Помогите построить график функции по формуле - VB
Формулировка задачи:
Добрый день. Помогите построить график функции по формуле {x = aCos (t) + tSin(ct)
y = aSin (t) - tCos(ct)
Сам новичок, и с такими графиками никогда не сталкивался. Наверно, сложно
Решение задачи: «Помогите построить график функции по формуле»
textual
Листинг программы
- Private Sub Form_Load()
- Dim x As Single, y As Single, a As Single, t As Single, c As Single
- c = 7: a = 3
- Me.Show
- AutoRedraw = True: ForeColor = vbBlue: DrawWidth = 2
- Scale (-10, 10)-(10, -10)
- Line (-10, 0)-(10, 0): Line (0, -10)-(0, 10)
- ForeColor = vbRed: DrawWidth = 3
- For t = -5 To 5 Step 0.001
- x = a * Cos(t) + t * Sin(c * t)
- y = a * Sin(t) - t * Cos(c * t)
- PSet (x, y)
- Next t
- End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
