Нарисовать график функции - VB
Формулировка задачи:
Всем доброго времени суток! Прошу Вас разъяснить: скажем, есть формула h=I/5. I варьируется от 50 до 300, допустим, шаг будет равен 50. Вот нужно построить график h(I). С осями координат, то есть засечки и масштаб подобрать, желательно, чтобы масштаб сам подбирался, заранее всем спасибо!=)
Решение задачи: «Нарисовать график функции»
textual
Листинг программы
Function f(x#) f = Sin(x) 'f = x / 5 End Function Private Sub Command1_Click() Dim x1#, x2#, dx#, x#, max# x1 = 0: x2 = 10: dx = 0.1 max = f(x1) For x = x1 To x2 Step dx If max < f(x) Then max = f(x) Next x Picture1.Scale (-x1, max + max / 10)-(x2 + dx, -max) Picture1.Line (-x1, 0)-(x2 + dx, 0) Picture1.Line (0, max + max / 10)-(0, -max) For x = x1 + (x2 - x1) / 10 To x2 Step (x2 - x1) / 10 Picture1.Line (x, -max / 20)-(x, max / 20) Picture1.Print Round(x, 1) Next x For x = -max + max / 5 To max Step max / 5 Picture1.Line (-(x2 - x1) / 20, x)-((x2 - x1) / 20, x) If x <> 0 Then Picture1.Print Round(x, 2) Next x For x = x1 + dx To x2 Step dx Picture1.Line (x - dx, f(x - dx))-(x, f(x)) Next x End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д