Построение графика функции 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д