Построение графика функции y(x) в указанном интервале - VB

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

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

Здравствуйте! Нужен код для построение графика функции y(x). Функция может быть: - прямая - парабола (максимальная степень равна 5) Как реализовать этот код в VB. Я пишу программу для построения линий влияния. Необходимо, чтобы пользователь назначил сечение (Например, x=5). Программа должна при этом построить график функции в интервале от 0 до L. L - длина балки. ЛИНИЯ ВЛИЯНИЯ - в строительной механике - график зависимости какой-либо величины (усилия, прогиба и т. п.) в заданном сечении элемента конструкции от положения приложенной к нему единичной силы постоянного направления. Линии влияния применяются для установления наиболее выгодного расположения нагрузки.

Решение задачи: «Построение графика функции y(x) в указанном интервале»

textual
Листинг программы
Private Sub Комманда3_Click()
Cls
Dim X, Y1, Y2
Dim K
K = 0
Scale (-3.5, 1.5)-(3.5, -1.5)
Line (-3.3, 0)-(3.3, 0)
Line (0, 1.4)-(0, -1.4)
For X = -Pi To Pi Step 10 / 180 * Pi
 
Y1 = (Sin(X)) ^ 2 * Sin(X)
Y2 = Cos(X)
Circle (X, Y1), 0.01, RGB(255, 0, 0)
Circle (X, Y2), 0.01, RGB(0, 0, 255)
 
If (K = 0 And X < 0 Or K = 1 And X > 0) And Abs(Y1 - Y2) < 0.01 Then
Line (X, Y1)-(X, 0)
Line (X, Y1)-(0, Y1)
CurrentX = X
CurrentY = Y1
Print "(" & Round(X, 1) & ", " & Round(Y1, 1) & ")"
If X < 0 Then K = 1
If X > 0 Then K = 2
End If
Next X
End Sub

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


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

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

5   голосов , оценка 4.4 из 5
Похожие ответы