Создание программы для построения графика функции - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д