вот код который я сделал график
Dim i As Integer Dim Etp As Integer Etp = Val(Text1.Text) Private Sub Command1_Click() 'Ïîñòðîåíèå ãðàôèêà For Etp = 0 To 25 Step 0.01 Picture1.PSet (Etp, Sqr((2000 * 10 ^ 6) / 950) / Sqr(1 + (219 / 10) * (2000 * 10 ^ 6) / (Ep* 10 ^ 6))) Next Etp 'Õ Picture1.Line (0, 0)-(25, 0) For i = 0 To 25 Picture1.PSet (i, 0) Picture1.Print i Next i 'Y Picture1.Line (0, 25)-(0, 0) For i = 0 To 25 Picture1.PSet (0, i) Picture1.Print i Next i 'êîðäèíàòû ñåòêè For i = 1 To 25 Picture1.Line (i, 25)-(i, 0), vbRed Picture1.Line (0, i)-(25, i), vbRed Next 'Ìàñøòàá ãðàôèêà Picture1.Scale (-1, 25)-(25, -1) End Sub
и не знаю как сделать дальше такой график
помогите плизз