Нарисовать график функции - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

12   голосов , оценка 4.167 из 5