Создание программы для построения графика функции - VB
Формулировка задачи:
Составить программу построения графика функции : y = 3*(cos(x/5))3
Пределы построения: -20<x<20
Решение задачи: «Создание программы для построения графика функции»
textual
Листинг программы
- Private Sub Command1_Click()
- Picture1.AutoRedraw = True
- Dim x#
- a = -20: b = 20: dx = 0.01
- Picture1.Scale (a, 10)-(b, -10)
- Picture1.Line (a, 0)-(b, 0): Picture1.Line (0, 10)-(0, -10)
- For x = a + dx To b Step dx
- Picture1.Line (x, Sin(f(x)))-(x - dx, f(x - dx)), RGB(Abs(f(x)) * 255 / 4, 0, 0)
- Next
- End Sub
- Function f#(x#)
- f = 3 * (Cos(x / 5)) ^ 3
- End Function
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
