Уроки 8 - 10
§1.3. Приближенное решение уравнений

Dim Graph1 As Graphics
Dim Pen1 As New Pen (Color.Black, 2)
Dim drawBrush As Hew SolidBrush(Color.Black)
Dim drawFont As New Font("Arial", 10)
Dim X, Y As Single
'Графическое решение уравнения
Private Sub Buttonl_Click (...)
Graph1=Me.PictureBox1.CreateGraphics()
Graph1.Clear(Color.White)
'Печать шкал математической системы координат
'в компьютерной системе координат
For Х=-150 То 150 Step 50
Graph1.Drawstring(Х/100, drawFont,_ drawBrush, X+150, 50)
Next X
For Y=0 To 200 Step 50
Graph1.DrawString ((Y-150)/100, drawFont, _ drawBrush, 150, 200-Y)
Next Y
'Пpeобразование компьютерной системы
'координат в математическую систему координат
Graph1.ScaleTransforrn(1, -1)
'Поворот оси Y
Graph1.TranslateTransform(150, -50)
'Сдвиг no осям X и Y
'Рисование осей математической системы
'координат
Graph1.DrawLine(Pen1, -150, 0, 300, 0) 'Ось X
Graph1.DrawLine(Pen1, 0, -150, 0, 50) 'Ось У
For X=-150 To 150 Step 50 'Засечки на оси X
Graph1.DrawLine(Pen1,X,-5,X, 5)
Next X
For Y=-l00 To 100 Step 50 'Засечки на оси Y
Graph1.DrawLine(Pen1,-5,Y,5,Y)
Next Y
'График функции
For X=-l - 5 To 1-5 Step 0.01
Y=Xˆ3-Math.Cos(X)
Graph1.DrawEllipse (Pen1, X*100, Y*100, 1, 1)
Next X
End Sub