'построение графика
Private Sub Command2_Click()
Scale (-30, 350)-(350, -40) 'установка масштаба
Cls 'очистка экрана
AutoRedraw = True
DrawWidth = 2.5 'установка толщины линии
Line (0, 0)-(0, 230) 'рисование оси Y1
Line (0, 0)-(240, 0) 'рисование оси X
Line (240, 0)-(240, 230) 'рисование оси Y2
'рисование кривой
DrawWidth = 1 'установка толщины линии
PrimerX = (2 * (V ^ 2 + (S / 2) ^ 2 - ((V ^ 2 * (L / 2) ^ 2) / (x ^ 2 + (L / 2) ^ 2))) ^ 0.5) * Ns _
- (2 * (V ^ 2 + (S / 2) ^ 2 - ((V ^ 2 * (L / 2) ^ 2) / (x ^ 2 + (L / 2) ^ 2))) ^ 0.5)
CurrentX = 5 'текущее значение Х
CurrentY = 5 'текущее значение Y
For x = 0 To H Step 0.5
Line -(PrimerX, x) 'построение графика
Next
здесь с одним уравнением. добавлял PrimerY, а потом рисовал
Line -(PrimerX, PrimerY)...
но видать что-то я не то написал