Решение деференциального уравнения
Автор: Fedor • Декабрь 21, 2017 • Доклад • 616 Слов (3 Страниц) • 615 Просмотры
Решение дифференциального уравнения
Постановка задачи: найти решение дифференциального уравнения первого порядка dy/dx=F(x,y) на интервале [xн,xк] с шагом h=0.01 при начальном условии y0=y(xк).
Построить численное и точное решение на одном графике.
Исходные данные для расчета | Данные для проверки | ||||
№ | F(x,y) | Началь-ное условие | [xн,xк] | Точное решение | Значение y в 2-х точках |
1 | [pic 1] | y(2)=1 | [2;4] | [pic 2] | y(3)=1.0606 y(4)=2.8284 |
Решение в Excel
[pic 3]
Решение в Mathcad
[pic 4]
Решение в Visual Basic
Код программы
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Xn As Double
Dim Xk As Double
Dim DX As Double
Dim Yo As Double
Dim Y1 As Double
Dim K1 As Double
Dim K2 As Double
Dim K3 As Double
Dim K4 As Double
Yo = 1
Xn = 2
Xk = 4
DX = 0.01
For X = Xn To Xk Step DX
Y1 = Yo + DX * F(X, Yo)
RichTextBox1.Text = RichTextBox1.Text + "X=" + Chr(9) + Str(X) + Chr(9) + "Y=" + Chr(9) + Str(Yo) + Chr(10)
Yo = Y1
Next
Yo = 1
...