График зависимости одной функции от другой - VB
Формулировка задачи:
Мне необходимо построить график зависимости одной функции от другой на что следует обратить внимание и какая в общем последовательность действий. Если можно поясните на примере. Заранее спасибо!!!
к примеру можно ли это код преобразовать с учетом того что у нас будет дана еще одна какая - то функция Y, а X при этом в обоих случаях будет иметь диапазон (2 7 8 11 15 17)?
Листинг программы
- Function Example(ByVal x As Single)
- y = x ^ 3 - 12 * x ^ 2 + 3 ^ x
- Debug.Print y
- Example = y
- End Function
- Private Sub Form_Resize()
- Refresh
- End Sub
- Private Sub mnuDraw_Click()
- Form1.BackColor = &H80000009
- DrawWidth = 2
- Scale (-10, 200)-(10, -200)
- Form1.ForeColor = &H0&
- Line (-10, 0)-(10, 0)
- Line (0, -200)-(0, 200)
- DrawWidth = 1
- Form1.ForeColor = &HFF&
- For x = -10 To 10 Step 0.01
- Line -(x, Example(x))
- Next
- End Sub
Решение задачи: «График зависимости одной функции от другой»
textual
Листинг программы
- Function x(ByVal t As Double) As Double
- x = 4 * Sin(t) * (1 + Cos(t))
- End Function
- Function y(ByVal t As Double) As Double
- y = 4 * Cos(t) * (1 + Cos(t))
- End Function
- Private Sub Form_Click()
- Form1.BackColor = &H80000009
- DrawWidth = 1
- Scale (-10, 10)-(10, -10)
- Form1.ForeColor = &H0&
- Line (-10, 0)-(10, 0)
- Line (0, -200)-(0, 200)
- DrawWidth = 1
- Form1.ForeColor = &HFF&
- Line (y(0), x(0))-(y(0), x(0))
- For t = 0 To 6.28 Step 0.01
- Line -(y(t), x(t))
- Next
- End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д