1 / 1 / 1
Регистрация: 27.06.2009
Сообщений: 62

Графики - Метод Рунге-Кутта и Метод Адамса

11.09.2010, 21:27. Показов 5089. Ответов 2
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Вот задание:
Миниатюры
Графики - Метод Рунге-Кутта и Метод Адамса  
0
Лучшие ответы (1)
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
11.09.2010, 21:27
Ответы с готовыми решениями:

Графики - Метод Рунге-Кутта и Метод Адамса
Пожалуйста помогите!!! очень срочно нужно сделать графики (два в одном): метод Рунге-Кутта и метод Адамса......

Метод Эйлера и метод Рунге-Кутта: проверить код
Доброго времени суток. Хотел бы обратится к вам за помощью. Я написал программку, которая решает сит. диф. ур-й, двумя методами. Но метод...

Метод Рунге-Кутта
Здравствуйте, пожалуйста помогите в программе Delphi решить систему обыкновенных дифференциальных уравнений методом Рунге-Кутта и вывести...

2
1 / 1 / 1
Регистрация: 27.06.2009
Сообщений: 62
11.09.2010, 21:30  [ТС]
Лучший ответ Сообщение было отмечено Anchut@ как решение

Решение

Код самого решения этим методом есть...вот он:
Delphi
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
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;
 
type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    Button2: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Image1: TImage;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  y0, x0, a, b, h: extended;
 
implementation
 
{$R *.dfm}
 
function fxy(x,y: extended): extended;
begin
 fxy:=-(2*x+ y)/(1+cos(y));
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
 x,y : extended;
 k1,x1,y1,k2,y2,
   k3,y3,x2,k4,dy       :extended;
begin
y0 := StrToFloat(Edit1.Text);
 x0 := 0;
 a  := StrToFloat(Edit2.Text);
 b  := StrToFloat(Edit3.Text);
 h  := StrToFloat(Edit4.Text);
 memo1.Lines.Add('Метод Рунге-Кутта');
 x:=x0;
 y:=y0;
 memo1.Lines.Add('  x='+floattostr(x)+'; y='+floattostr(y));
 
 while x<=b do
  begin
   k1:=h*fxy(x,y);
   x1:=x+h/2;
   y1:=y+k1/2;
 
   k2:=h*fxy(x1,y1);
   y2:=y+k2/2;
 
   k3:=h*fxy(x1,y2);
   y3:=y+k3;
        x2:=x+h;
   k4:=h*fxy(x2,y3);
   dy:=(k1+2*k2+2*k3+k4)/6;
   y:=y+dy;
   x:=x+h;
   memo1.Lines.Add('  x='+floattostr(x)+'; y='+floattostr(y));
  end;
 
 memo1.Lines.Add('');
 memo1.Lines.Add('  Метод Адамса ');
 x:=x0;
 y:=y0;
 memo1.Lines.Add('  x='+floattostr(x)+'; y='+floattostr(y));
 
 while x<=b do
  begin
   x:=x+h;
   y:=y+h*fxy(x,y);
   memo1.Lines.Add('  x='+floattostr(x)+'; y='+floattostr(y));
  end;
 
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
close
end;
 
end.
Только вот нужны еще графики по результатам... Подскажите, что нужно дописать в коде?
0
1 / 1 / 1
Регистрация: 27.06.2009
Сообщений: 62
11.09.2010, 21:45  [ТС]
Вот так выглядит программа:
Миниатюры
Графики - Метод Рунге-Кутта и Метод Адамса  
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
11.09.2010, 21:45
Помогаю со студенческими работами здесь

Метод Рунге-Кутта
Ребят, помогите разобраться почему полученный данные не выводятся в указанный файл(если что, то это файл у меня есть дабы сразу исключить...

Метод Рунге-Кутта
Здравствуйте, подскажите пожалуйста где я ошибся тут только для два значения икса и игрека выводится данный y0=-1 x0=0, h=0.1, a=0...

Метод Рунге-Кутта 4-го порядка
Доброго времени суток Господа. Прошу помочь с написанием кода для интегрирования сист. диф. ура-ий методом Рунге-Кутта 4-го порядка. Так...

Метод Рунге-Кутта 4-го порядка
Добрый день. Скачал программку, которая решает систему диф.уравнений методом Рунге-Кутты 4-го порядка. При добавлений своих значений выдает...

Метод Рунге-Кутта для 5 порядка
нужна ваша помощь! Нужно написать программу для Рунге-Кутта для дифференциального уравнения 5 порядка!


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

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

Новые блоги и статьи
Пишем адаптер для локального хранилища S3 на C#
stackOverflow 16.07.2025
Разработка современных приложений часто требует интеграции с объектными хранилищами, и Amazon S3 стал де-факто стандартом в этой области. Однако работа с облачными сервисами в процессе разработки. . .
Старые замки
kumehtar 16.07.2025
Смотрел тут фото, попались пара старых замков. И сразу бросилось в глаза из отличие. Например: Замок Бистон, в англии. Разрушенное сооружение. Но - не испорченное людьми, по крайней мере - на. . .
Java и Eclipse Store: Сверхбыстрые приложения с In-Memory DB
Javaican 15.07.2025
Eclipse Store — это микро-движок персистентности для Java, который позволяет хранить и извлекать нативные Java-объекты без необходимости преобразования данных или использования объектно-реляционного. . .
EmBitz, создание проекта, отладка, прошивка
locm 15.07.2025
Создание проекта для Blue Pill (STM32F103C8T6) в EmBitz 2. 30, написания кода blink, запуск отладки в ОЗУ, заливка релизной прошивки во flash используя ST-Link и др. . . .
Трассировка корутин Kotlin с OpenTelemetry
mobDevWorks 14.07.2025
Асинхронное программирование меняет правила игры, особенно когда речь заходит о трассировке операций. В Kotlin с его корутинами эта проблема приобретает особый оттенок, который я хотел бы детально. . .
Облачные приложения на Rust: руководство по архитектуре микросервисов
golander 13.07.2025
Когда я впервые взялся за проектирование облачной платформы для одного из наших клиентов, выбор стоял между привычными Go и Java. Но после нескольких месяцев разработки микросервисной системы,. . .
Как Node.js выполняет асинхронные операции
Reangularity 13.07.2025
Каждый раз, когда я рассказываю про Node. js, возникает один и тот же вопрос: "Как эта штука может быть быстрой, если JavaScript — однопоточный язык?" И это действительно кажется парадоксом. Ведь в. . .
Как писать чистый, тестируемый и качественный код на Python
py-thonny 12.07.2025
Помню свой первый проект на Python. Работал тогда быстро, грязно, лишь бы работало. Код был похож на запутанный клубок - переменные по одной букве, функции на 200 строк, комментарии отсутствовали как. . .
Blazor и контроллер сервопривода IoT Meadow Maple
Wired 11.07.2025
Я решил разобраться, как можно соединить современные веб-технологии с миром "железа". Интересная комбинация получилась из Blazor в качестве веб-интерфейса и микроконтроллера Meadow с его веб-сервером. . .
Генерация OpenQASM из кода Q#
EggHead 10.07.2025
Летом 2024-го я начал эксперименты с библиотекой Q# Bridge, и знаете что? Она оказалась просто находкой для тех, кто работает на стыке разных квантовых экосистем. Основная фишка этой библиотеки -. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru