Построить строфоиду - VB
Формулировка задачи:
Помогите, пожалуйста, построить график строфоиды на VB, заданной формулой
{(x=(at^2)/(b+t^2 )
y=a (t(t^2-b))/(b+t^2 ))
Всю голову сломала, не представляю как делать(
Решение задачи: «Построить строфоиду»
textual
Листинг программы
Option Explicit Dim l As Integer, a, b, t As Single, i As Long, x, y As Single, shag Public mycol Private Sub Command1_Click() Picture1.Cls ' очищение формы Picture1.Scale (-10, 10)-(10, -10) ' масштаб shag = 0.09 'Text5.Text ' параметр шага Picture1.Line (-10, 0)-(10, 0), QBColor(1) 'ось OX For l = -10 To 10 Step 2 Picture1.PSet (l, 0) 'построение оси Picture1.Print l 'рисуем на графике цифры Next Picture1.Line (0, 10)-(0, -10), QBColor(1) 'ось OY For l = -10 To 10 Step 2 Picture1.PSet (0, l) 'построение оси Picture1.Print l 'рисуем на графике цифры Next a = 3 b = 5 For t = -20 To 20 Step shag ' While a <= 10 x = (a * t * t) / (b + t * t) y = a * t * (t * t - b) / (b + t * t) Picture1.PSet (x, y), mycol 'построение графика For i = 1 To 100000: Next ' задержка рисования 'a = a + shag Next ' Wend End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д