Построение графика функции - VB (170452)
Формулировка задачи:
Составить программу, которая в центре экрана на синем фоне желтым цветом строит график функции, заданной в параметрической форме :
x(t)=(A-B) * cos(t) + D * cos(t*A/B)
y(t)=(A-B) * sin(t) + D * sin(t*A/B) , где параметр 0 < t < 2 .
Отрисовать график при значении коэффициентов :
- А=120, В=40, D=60;
- А=120, В=30, D=60;
А=120, В=24, D=60 .
Решение задачи: «Построение графика функции»
textual
Листинг программы
Dim A As Single Dim B As Single Function x(t As Single, A As Single, B As Single) As Single x = (A - B) * Cos(t) + d * Cos(t * A / B) End Function Function y(t As Single, A As Single, B As Single) As Single y = (A - B) * Sin(t) + d * Sin(t * A / B) End Function Private Sub Command1_Click() Dim t As Single A = Val(Text1.Text) B = Val(Text2.Text) d = Val(Text3.Text) Picture1.CurrentX = x(0) Picture1.CurrentY = y(0) Picture1.BackColor = vbBlue Picture1.DrawWidth = 3 Form1.Print x(0) Scale (50, 50)-(500, 500) For t = 0 To 2 Step 0.01 Picture1.Line -(x(t) + 1000, y(t) + 1000), vbYellow Next t End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д