Построение графиков функций

С помощью метода Line можно рисовать графики функций. Но их лучше помещать не на форме, а в некоторой ограниченной области формы. Для этой цели служит элемент Picture. Свойства Line, Circle, Pset будут относиться к элементу Picture и записываться следующим образом: Picture.Line ()-(). Систему координат будем задавать соответственно значениям аргументов и функций.

Свойства CurrentX и CurrentY формы определяют текущие координаты точки на форме (в программе они определяют начальное положение графика функции).

Минимальные и максимальные значения на осях Х и У проставляются с помощью меток (Label) на форме (свойствам Caption меток присваиваются соответствующие значения).

Приведем пример программы для построения графика функции У = 2 * X + 3 на отрезке [-5,+4] и построим график.

Заданный отрезок определяет масштаб оси Х.

Создайте проект. Текст проекта (сохраните проект под именем График1)

Dim x1 As Single, x2 As Single

Dim s As Single, p1 As Integer

Dim a As Single, b As Single

Dim x As Single

Private Sub Command1_Click()

x1=-5

x2=4

a=Abs(x1)

if Abs(x1)<Abs(x2) then a=Abs(x2)

b = FF(x1)

For x = x1 To x2 Step s

If Abs(FF(x)) > Abs(b) Then b = Abs(FF(x))

Next

Picture1.Scale (-a, b)-(a, -b)

Picture1.Cls

Picture1.Line (-a, 0)-(a, 0), RGB(0, 255, 0)

Picture1.Line (0, -b)-(0, b), RGB(0, 255, 0)

Label1.Caption = Str(-a)

Label2.Caption = Str(-b)

Label3.Caption = Str(a)

Label4.Caption = Str(b)

Picture1.CurrentX = x1

Picture1.CurrentY = FF(x1)

For x = x1 To x2 Step s

Picture1.DrawWidth = 6

Picture1.PSet (Picture1.CurrentX, Picture1.CurrentY)

Picture1.DrawWidth = p1

Picture1.Line -(x, FF(x)), RGB(255, 0, 0)

Next

End Sub

Private Sub Command2_Click()

End

End Sub

Public Function FF(x As Single) As Single

FF = 2 * x + 3

End Function

Дата добавления: 2014-01-07