|
Главная | Правила | Регистрация | Дневники | Справка | Пользователи | Календарь | Поиск | Сообщения за день | Все разделы прочитаны |
|
Опции темы | Опции просмотра |
15.05.2013, 15:34 | #1 (permalink) |
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. |
15.05.2013, 15:34 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Может быть решение данного вопроса имеется где то тут Вычислить методом тарапеции в VBA Помогите решить уравнение методом половинного деления Многопоточный сортировщик методом слияния Pascal, Delphi. Шифрование методом Льюиса Ладонник2 - клавиатура с новым методом ввода |
15.05.2013, 16:07 | #2 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
|
|
15.05.2013, 20:26 | #5 (permalink) |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
16.05.2013, 13:12 | #6 (permalink) |
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 Решить Дифференциальное уравнение Модифицированным методом Эйлера. |
16.05.2013, 16:05 | #10 (permalink) |
Member
Регистрация: 22.10.2012
Сообщений: 32
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
большое вам спасибо за вашу помощь, я очень вам благодарен,надеюсь у вас получится.
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
Опции темы | |
Опции просмотра | |
|
|