Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Помощь студентам


Ответ
 
Опции темы Опции просмотра
Старый 15.05.2013, 15:34   #1 (permalink)
Alexei18
Member
 
Регистрация: 22.10.2012
Сообщений: 32
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию Помогите с модифицированным методом Эйлера

помогите пожалуйста, уже не знаю что делать, препод дал курсач и мне достался модифицированный метод Эйлера, а в примере только усовершенствованный, а учитель такой, что ни в чем не поможет и ни чего не объяснит. Прошу пожалуйста хотябы примерчик какой нито скиньте, а я по нему попробую сделать. Внизу усовершенствованный метод.

Program Kursach;
uses crt;
const n=200;
f=90;
fi=72;
L=0.00557;
C=0.00002;
W=2*PI*f;
PI=3.14;
E0=15;
R1=30;
R2=25;
R3=50;
R4=1.88;
R5=15;
R6=50;
t1=0.003;
t2=0.009;
var A,B,G,D,U0,I0,t0,t,I,U,hx,k,j,E,KU1,KU2,KI1,KI2:re al;
m:integer;
O:TEXT;
function E1(ft:real):real;
begin
E:=E0+E0*sin(W*ft+fi);
If (t<t1)Then
E1:=E
Else
E1:=0;
end;
begin
assign(O,'D:\result.txt');
rewrite(O);
k:=0;
J:=5;
t0:=0;
U0:=0;
I0:=0;
hx:=(t2-t0)/n;
Writeln(O,' t I U ');
Writeln(O,t:9:4,I:11:7,U:11:6);
A:=R2/(R1+R2);
B:=R1*R2/(R1+R2);
G:=(R5+R6)/(R3+R5+R6);
D:=1/(R3+R5+R6);
For m:=1 to n do
begin
k:=k+1;
KU1:=hx*(1/C*(I0*G-U0*D));
t:=t0+hx;
KU2:=hx*(1/C*((I0+KI1)*G-(U0+KU1)*D));
KI2:=hx*(1/L*(E1(t0+hx)*A-(I0+KI1)*(R4+B+G*R3)-(U0+KU1)*G));
U:=U0+((KU1+KU2)/2);
I:=I0+((KI1+KI2)/2);
I0:=I;
U0:=U;
t0:=t;
if k=j then
begin
Writeln(O,' ',t:6:4,' ',I:10:7,' ',U:10:6);
j:=j+5;
end;
end;
close(O);
end.
Alexei18 вне форума   Ответить с цитированием

Старый 15.05.2013, 15:34
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Может быть решение данного вопроса имеется где то тут

Вычислить методом тарапеции в VBA
Помогите решить уравнение методом половинного деления
Многопоточный сортировщик методом слияния
Pascal, Delphi. Шифрование методом Льюиса
Ладонник2 - клавиатура с новым методом ввода

Старый 15.05.2013, 16:07   #2 (permalink)
Vladimir_S
Специалист
 
Аватар для Vladimir_S
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 26,298
Сказал(а) спасибо: 290
Поблагодарили 512 раз(а) в 169 сообщениях
Репутация: 93301
По умолчанию

Цитата:
Сообщение от Alexei18 Посмотреть сообщение
помогите пожалуйста, уже не знаю что делать, препод дал курсач и мне достался модифицированный метод Эйлера, а в примере только усовершенствованный, а учитель такой, что ни в чем не поможет и ни чего не объяснит. Прошу пожалуйста хотябы примерчик какой нито скиньте, а я по нему попробую сделать.
Примерчик хотите? А пожалуйста: Метод Рунге-Кутта 2-го порядка, Паскаль
__________________
With Mozilla Firefox - straight to communism!
Vladimir_S вне форума   Ответить с цитированием
Старый 15.05.2013, 17:31   #3 (permalink)
Alexei18
Member
 
Регистрация: 22.10.2012
Сообщений: 32
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

спасибо!!!надеюсь все получится.
Alexei18 вне форума   Ответить с цитированием
Старый 15.05.2013, 17:46   #4 (permalink)
Alexei18
Member
 
Регистрация: 22.10.2012
Сообщений: 32
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

не подскажите как мне переделать итерационные формулы под мои, что то мне не совсем все понятно...
Alexei18 вне форума   Ответить с цитированием
Старый 15.05.2013, 20:26   #5 (permalink)
Vladimir_S
Специалист
 
Аватар для Vladimir_S
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 26,298
Сказал(а) спасибо: 290
Поблагодарили 512 раз(а) в 169 сообщениях
Репутация: 93301
По умолчанию

Цитата:
Сообщение от Alexei18 Посмотреть сообщение
не подскажите как мне переделать итерационные формулы под мои, что то мне не совсем все понятно...
Ну так может быть Вы всё-таки снизойдёте до формулировки задачи? Вид уравнения, опорная точка, диапазон и т.п.
__________________
With Mozilla Firefox - straight to communism!
Vladimir_S вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Старый 16.05.2013, 13:12   #6 (permalink)
Alexei18
Member
 
Регистрация: 22.10.2012
Сообщений: 32
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

• гармонический источник тока, B E(t)=E0(t)•sin(ωt+φ)
• амплитуда колебаний, В E0=15
• катушка индуктивности, мГн L=5.57
• конденсатор, мкФ C=20
• циклическая частота ω=2πf
• текущее время, c T1=0,003
T2=0.009
• линейная частота, Гц 90
• фаза, рад 2*пи/5
• резисторы, Ом R1=30, R2=25, R3=50, R4=1.88, R5=15, R6=50

Решить Дифференциальное уравнение Модифицированным методом Эйлера.
Alexei18 вне форума   Ответить с цитированием
Старый 16.05.2013, 14:01   #7 (permalink)
Vladimir_S
Специалист
 
Аватар для Vladimir_S
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 26,298
Сказал(а) спасибо: 290
Поблагодарили 512 раз(а) в 169 сообщениях
Репутация: 93301
По умолчанию

Цитата:
Сообщение от Alexei18 Посмотреть сообщение
Решить Дифференциальное уравнение Модифицированным методом Эйлера.
Эх, еще бы самО уравнение увидеть... Ну или по крайней мере схему. Мечты, мечты...
__________________
With Mozilla Firefox - straight to communism!
Vladimir_S вне форума   Ответить с цитированием
Старый 16.05.2013, 14:30   #8 (permalink)
Alexei18
Member
 
Регистрация: 22.10.2012
Сообщений: 32
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

вот надеюсь эти формулы.
Миниатюры
nieiie.png   nieiie2.jpg  
Alexei18 вне форума   Ответить с цитированием
Старый 16.05.2013, 15:33   #9 (permalink)
Vladimir_S
Специалист
 
Аватар для Vladimir_S
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 26,298
Сказал(а) спасибо: 290
Поблагодарили 512 раз(а) в 169 сообщениях
Репутация: 93301
По умолчанию

Цитата:
Сообщение от Alexei18 Посмотреть сообщение
вот надеюсь эти формулы.
Черт, да тут система... Тогда не знаю, сумею ли быстро помочь. Надо вспоминать, разбираться. Попробую, конечно, но ничего не обещаю.
__________________
With Mozilla Firefox - straight to communism!
Vladimir_S вне форума   Ответить с цитированием
Старый 16.05.2013, 16:05   #10 (permalink)
Alexei18
Member
 
Регистрация: 22.10.2012
Сообщений: 32
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

большое вам спасибо за вашу помощь, я очень вам благодарен,надеюсь у вас получится.
Alexei18 вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 23:53.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.