0 / 0 / 0
Регистрация: 30.10.2020
Сообщений: 12

Реализация алгоритмов Метод прогноза и коррекции и Рунге - Кутта -Фельберга

06.04.2021, 02:26. Показов 2388. Ответов 0

Студворк — интернет-сервис помощи студентам
Почему для одинаковых начальных условий и одинаковых уравнение у меня получается слишком разные значения корня
Фельберг
Python
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
import math
import numpy as np
 
def f(x,y):
    return x*x-2*y
 
def rkf45(x0,y0,e,h,a,b):
    n = int((b-a)/h)
    t = np.arange(a,b,h)
    yi = y0
    i = 0
    for i in range(n):
        k0 = h*f(t[i],yi)
        k1 = h*f(t[i]+(2/3)*h,yi+(2/3)*k0)
        k2 = h*f(t[i]+(1/3)*h,yi+(1/12)*k0+(1/4)*k1)
        k3 = h*f(t[i]+(3/4)*h,yi+(69/128)*k0-(143/128)*k1+(135/64)*k2)
        k4 = h*f(t[i]+h,yi-(17/22)*k0+(27/4)*k1-(27/5)*k2+(16/15)*k3)
        k5 = h*f(t[i]+(5/6)*h,yi+(65/432)*k0-(5/16)*k1+(13/16)*k2+(4/27)*k3+(5/144)*k4)
        yi = yi + (1/9)*k0+(9/20)*k2+(16/45)*k3+(1/12)*k4
        r = (1/150)*k0-(3/100)*k2+(16/75)*k3+(1/20)*k4-(6/25)*k5
        #print(f"\tIteration: {i}\tx: {t[i]}\tyi: {yi}\tError: {r}\tStep: {h}\n")
        if abs(r) > e:
            h = h/2
            yi = 1
        elif abs(r) < e/20:
            h = h*2
            yi = 1
        elif e/20<=abs(r)<=e:
            print(f"\tIteration: {i}\tx: {t[i]}\tyi: {yi}\tError: {r}\tStep: {h}\n")
    return yi
 
x0 = 0#float(input("x0: "))
y0 = 1#float(input("y0: "))
h = 0.1#float(input("h: "))
a = 0#float(input("a: "))
b = 1#float(input("b: "))
e = 0.001#float(input("e: "))
 
n = int((b-a)/h)
 
print(rkf45(x0,y0,e,h,a,b))
Прогноза и коррекции
Python
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
import math
import numpy as np
import matplotlib.pyplot as plt
 
def f(x,y):
    return x*x-2*y
 
def rk4(x0,y0,h,a,b):
    t = x0
    y = y0
    n = int((b-a)/h)
    ypoints = []
    tpoints = np.arange(a,b,h)
    for i in range(4):
        k1 = h*f(t,y)
        k2 = h*f(t+h*0.5,y+h*k1*0.5)
        k3 = h*f(t+h*0.5,y+h*k2*0.5)
        k4 = h*f(t+h,y+h*k3)
        y += (k1+2*k2+2*k3+k4)/6
        ypoints.append(y)
    
    return ypoints
 
def rkf45(x0,y0,h,a,b,e):
    y = rk4(x0,y0,h,a,b)
    x = np.arange(a,b,h)
    tpoints =[]
    for i in range(len(y)):
        tpoints.append(x[i])
    p = []
    pi = 0
    yi = 1
    y_ = []
 
    for i in reversed(range(len(y))):
        pi = y[i] + (h/24)*(55*f(x[i],y[i]) - 59*f(x[i-1],y[i-1])+37*f(x[i-2],y[i-2])-9*f(x[i-3],y[i-3]))
        yi = y[i] + (h/24)*(9*f(x[i+1],pi)+19*f(x[i],y[i])-5*f(x[i-1],y[i-1])+f(x[i-2],y[i-2]))
        p.append(pi)
        y_.append(yi)
        print(f"\tIteration: {i}\tPredictor: {pi}\tCorrector: {yi}\tError: abs(yi-pi) : {abs(yi-pi)}\t\n")
        if abs(yi-pi) < e:
            print("\t\t\t\t\t\t\t\tEND")
            print(f"\t\t\t\t\t\t\t\tERROR: {abs(yi-pi)}")
            print(f"\t\t\t\t\t\t\t\tyn = {f(x[i],yi)}")
            break
    plt.ylabel('rkf45')
    plt.plot(tpoints, y, '-o')
    plt.grid(True)
    plt.xticks(x)
    plt.yticks(y_)
    plt.show()  
    return y_
 
 
x0 = 0#float(input("x0: "))
y0 = 1#float(input("y0: "))
h = 0.1#float(input("h: "))
a = 0#float(input("a: "))
b = 1#float(input("b: "))
e = 0.001#float(input("e: "))
print("\t\t\t\t\t\t\t\tSOLUTION\t")
print("----------------------------------------------------------------------------------------------------------------------------------------------")
print(f"\tyi: {rkf45(x0,y0,h,a,b,e)}")
print("---------
Корень по первому методу 0,7395
Корень по второму методу 0,6437
Что я делаю не так? Подскажите, пожалуйста
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
06.04.2021, 02:26
Ответы с готовыми решениями:

Метод Рунге-Кутта четвертого порядка (метод прогноза и коррекции)
Дано ОДУ x'''-x''x+(x')^2=0. Пытаюсь решить ОДУ методом Рунге-Кутта по данному примеру: http://alexlarin.net/Int/zad3.htm. Но при подсчете...

Метод прогноза и коррекции, метод Рунге - Кутта 4 порядка
Здравствуйте. Не могли бы Вы помочь разобраться с поиском погрешности вычеслений какого-то ОДУ методами обозначенными выше? Никак не могу...

Метод Рунге-Кутта-Фельберга
Здравствуйте. Помогите реализовать метод RKF в Mathcad. Задача: Попытка реализации: Ошибка:

0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
06.04.2021, 02:26
Помогаю со студенческими работами здесь

Метод Рунге-Кутта-Фельберга для уравнения 2 порядка
Товарищи, прошу помощи, было дано задание - реализовать на маткад метод РКФ для уравнения 2 порядка с саморегулирующимся шагом. Собственно...

Метод Рунге-Кутта-Фельберга для решения системы Чуа
Всем доброго времени суток! Необходимо написать программу в Маткаде для решения системы Чуа - системы нелинейных дифф. уравнений. Метод:...

Решение задачи Коши методом Рунге-Кутта-Фельберга
Решить задачу Коши методом Рунге-Кутта-Фельберга y``+y= 2Ch(x); a=0, b=1; y(a)=1; y`(a)=-1; n=5; Точное решение: y(x)= Ch(x) - Sin(x); ...

Решение задачи Коши методом Рунге- Кутта -Фельберга
Решение задачи Коши методом Рунге Кутта Фельберга Найти решение дифференциального уравнения на отрезке с заданной точностью с...

Решение задачи Коши методом Рунге-Кутта-Фельберга
Доброго времени суток всем! Моя проблема заключается в следующем: передо мной стоит задача решения задачи методом Рунге-Кутта-Фельберга. По...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Опции темы

Новые блоги и статьи
Отчёт о затраченных материалах за определенный период с макетом печатной формы
Maks 21.04.2026
Отчёт из решения ниже размещён в конфигурации КА2. Задача: разработка отчёта по затраченным материалам за определённый период, с возможностью вывода печатной формы отчёта с шапкой и подвалом. В. . .
Отчёт о спецтехнике находящейся в ремонте
Maks 20.04.2026
Отчёт из решения ниже размещен в конфигурации КА2. Задача: отобразить спецтехнику, которая на данный момент находится в ремонте. Есть нетиповой документ "Заявка на ремонт спецтехники" который. . .
Памятка для бота и "визитка" для читателей "Semantic Universe Layer (Слой семантической вселенной)"
Hrethgir 19.04.2026
Сгенерировано для краткого описания по случаю сборки и компиляции скелета серверного приложения. И пусть после этого скажут, что статьи сгенерированные AI - туфта и не интересно. И это не реклама -. . .
Запрет удаления строк ТЧ документа при определённом условии
Maks 19.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "Аккумуляторы", разработанного в конфигурации КА2. У данного документа есть ТЧ, в которой в зависимости от прав доступа. . .
Модель заражения группы наркоманов
alhaos 17.04.2026
Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .
Мысли в слух. Про "навсегда".
kumehtar 16.04.2026
Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .
My Business CRM
MaGz GoLd 16.04.2026
Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .
Знаешь почему 90% людей редко бывают счастливыми?
kumehtar 14.04.2026
Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru