Нахождение численного решения задачи Коши для одного дифференциального уравнения

@savonina_sv · Регистрация: 16.10.2014

Author24 — интернет-сервис помощи студентам

Найти указанном отрезке найти численное решение задачи Коши для одного дифференциального уравнения. В каждом случае выполнить двойной просчет для определения погрешности. Составить программу на языке Бейсик.
$https://www.cyberforum.ru/cgi-bin/latex.cgi?{y}^{'}=x-cosy$
y(0)=0;
[0;0,5];
h=0,1;
$https://www.cyberforum.ru/cgi-bin/latex.cgi?{h}_{1}=0,05$

@Catstail · 05.02.2015, 16:55

Метод Рунге-Кутта (Кутты):

Visual Basic

Function f(x As Double, y As Double) As Double
        f = x - Cos(y)
End Function
 
Sub Rk()
 
    h# = 0.05
    x# = 0
    y# = 0
    
    Do
    
       Debug.Print x#; " "; y#
    
       k1# = f(x#, y#)
       k2# = f(x# + 0.5 * h, y# + 0.5 * h * k1#)
       k3# = f(x# + 0.5 * h, y# + 0.5 * h * k2#)
       k2# = f(x# + 0.5 * h, y# + h * k3#)
      
       y# = y# + (h / 6) * (k1 + 2 * k2 + 2 * k3 + k4)
       x# = x# + h
    
       If x# > 0.5 Then Exit Do
    
    Loop
    
End Sub

@savonina_sv 0 / 1 / 0 Регистрация: 16.10.2014 Сообщений: 91
		1
	Нахождение численного решения задачи Коши для одного дифференциального уравнения 03.02.2015, 22:06. Показов 2699. Ответов 1 Метки нет (Все метки) Найти указанном отрезке найти численное решение задачи Коши для одного дифференциального уравнения. В каждом случае выполнить двойной просчет для определения погрешности. Составить программу на языке Бейсик. $https://www.cyberforum.ru/cgi-bin/latex.cgi?{y}^{'}=x-cosy$ y(0)=0; [0;0,5]; h=0,1; $https://www.cyberforum.ru/cgi-bin/latex.cgi?{h}_{1}=0,05$ 0

	05.02.2015, 16:55

Нахождение численного решения задачи Коши для одного дифференциального уравнения

Решение