График зависимости одной функции от другой - VB

Узнай цену своей работы

Формулировка задачи:

Мне необходимо построить график зависимости одной функции от другой на что следует обратить внимание и какая в общем последовательность действий. Если можно поясните на примере. Заранее спасибо!!! к примеру можно ли это код преобразовать с учетом того что у нас будет дана еще одна какая - то функция Y, а X при этом в обоих случаях будет иметь диапазон (2 7 8 11 15 17)?
Листинг программы
  1. Function Example(ByVal x As Single)
  2. y = x ^ 3 - 12 * x ^ 2 + 3 ^ x
  3. Debug.Print y
  4. Example = y
  5. End Function
  6. Private Sub Form_Resize()
  7. Refresh
  8. End Sub
  9. Private Sub mnuDraw_Click()
  10. Form1.BackColor = &H80000009
  11. DrawWidth = 2
  12. Scale (-10, 200)-(10, -200)
  13. Form1.ForeColor = &H0&
  14. Line (-10, 0)-(10, 0)
  15. Line (0, -200)-(0, 200)
  16. DrawWidth = 1
  17. Form1.ForeColor = &HFF&
  18. For x = -10 To 10 Step 0.01
  19. Line -(x, Example(x))
  20. Next
  21. End Sub

Решение задачи: «График зависимости одной функции от другой»

textual
Листинг программы
  1. Function x(ByVal t As Double) As Double
  2. x = 4 * Sin(t) * (1 + Cos(t))
  3. End Function
  4. Function y(ByVal t As Double) As Double
  5. y = 4 * Cos(t) * (1 + Cos(t))
  6. End Function
  7.  
  8. Private Sub Form_Click()
  9. Form1.BackColor = &H80000009
  10. DrawWidth = 1
  11. Scale (-10, 10)-(10, -10)
  12. Form1.ForeColor = &H0&
  13. Line (-10, 0)-(10, 0)
  14. Line (0, -200)-(0, 200)
  15. DrawWidth = 1
  16. Form1.ForeColor = &HFF&
  17.    
  18. Line (y(0), x(0))-(y(0), x(0))
  19. For t = 0 To 6.28 Step 0.01
  20.     Line -(y(t), x(t))
  21. Next
  22. End Sub

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


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

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

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

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы