Студопедия.Орг Главная | Случайная страница | Контакты | Мы поможем в написании вашей работы!  
 

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



Общий вид формы Изменение свойств графического окна при проектировании (FillColor, FillStyle, AutoRedraw)

'Задание вида функции
Function F(x)
F = 3 * Sin(x) * Cos(x / 6)
End Function

Private Sub Command1_Click()
Const pi = 3.1415926
Picture1.Cls
miny = 0: maxy = 0: minx = 0: maxx = 0
'Цикл для нахождения минимального и
'максимального значения функции
For x = -2 * pi To 2 * pi Step 0.1
y = F(x)
If y < miny Then
miny = y
minx = x
End If
If y > maxy Then
maxy = y
maxx = x
End If
Next
'Разметка графического окна методом Scale
Picture1.Scale (-2 * pi, maxy)-(2 * pi, miny)
'Вывод на метку значений минимума и максимума функции с
'соответствующими аргументами
Label1.Left = maxx - 1 'Задание координат левого
Label1.Top = -0.3 'верхнего угла метки
Label1.Caption = Format(maxx, "0.00")+"; "+Format(maxy, "0.00")
Label2.Left = minx – 1
Label2.Top = 0.5
Label2.Caption = Format(minx, "0.00")+"; "+Format(miny, "0.00")
'Построение оси Х
Picture1.Line (-2 * pi, 0)-(2 * pi, 0), vbBlack
'Построение оси y
Picture1.Line (0, -2 * pi)-(0, 2 * pi), vbBlack
'Цикл для построения графика функции методом Pset
For x = -2 * pi To 2 * pi Step 0.01
y = F(x)
Picture1.PSet (x, y), vbRed
Next
'Пометка на графике точек максимума и минимума функции
Picture1.Circle (maxx, maxy), 0.15, vbRed
Picture1.Line (maxx, maxy)-(maxx, 0), vbWhite
Picture1.Circle (minx, miny), 0.15, vbRed
Picture1.Line (minx, miny)-(minx, 0), vbWhite
End Sub






Дата публикования: 2014-12-28; Прочитано: 141 | Нарушение авторского права страницы | Мы поможем в написании вашей работы!



studopedia.org - Студопедия.Орг - 2014-2024 год. Студопедия не является автором материалов, которые размещены. Но предоставляет возможность бесплатного использования (0.007 с)...