.

Интегрирование линейного дифференциального уравнения с помощью степенных рядов

Язык: русский
Формат: реферат
Тип документа: Word Doc
0 261
Скачать документ

program coefficients;

type mas=array[1..100] of real;beg=array[1..6] of real;

var rez1,rez2:text;

r1,r2:mas;i:integer;r:beg;

procedure calculate(t:beg;var a:mas);

begin

for i:=1 to 6 do a[i]:=t[i];

for i:=7 to 100 do

a[i]:=2*a[i-5]/(i*(i-1))+a[i-1]*(1-i)/(2*i)

end;

begin

assign(rez1,’rez1.txt’);

rewrite(rez1);

assign(rez2,’rez2.txt’);

rewrite(rez2);

r[1]:=1;r[6]:=1/10;

calculate(r,r2);

r[1]:=0;r[2]:=1;r[3]:=1/4;r[6]:=0;

calculate(r,r1);

for i:=1 to 25 do begin

writeln(rez1,’ ‘,r1[i],’ ‘,r1[i+25],’ ‘,r1[i+50],’
‘,r1[i+75]);

writeln(rez2,’ ‘,r2[i],’ ‘,r2[i+25],’ ‘,r2[i+50],’
‘,r2[i+75]);

end;

close(rez1);close(rez2);

end.

0.0000000000E+00 -8.1624958212E-09 2.6771846582E-17
-3.2491066259E-25

1.0000000000E+00 4.0882043248E-09 -1.2724159976E-17
1.5836707627E-25

2.5000000000E-01 -1.9312581703E-09 6.0587809612E-18
-7.7230912899E-26

0.0000000000E+00 8.7931901201E-10 -2.8899594137E-18
3.7682040069E-26

0.0000000000E+00 -3.9113365760E-10 1.3806999533E-18
-1.8394445248E-26

0.0000000000E+00 1.7170446696E-10 -6.6063798253E-19
8.9833955968E-27

4.7619047619E-02 -7.4927003757E-11 3.1655138993E-19
-4.3892344328E-27

-1.1904761905E-02 3.2670558317E-11 -1.5188147944E-19
2.1454810957E-27

5.2910052910E-03 -1.4287416203E-11 7.2964561538E-20
-1.0491602917E-27

-2.3809523810E-03 6.2822346640E-12 -3.5094186285E-20
5.1325610907E-28

1.0822510823E-03 -2.7813172998E-12 1.6898431516E-20
-2.5118617002E-28

2.2546897547E-04 1.2405702723E-12 -8.1455391475E-21
1.2297620795E-28

-2.5668775669E-04 -5.5748878718E-13 3.9303541430E-21
-6.0228905014E-29

1.7731937375E-04 2.5231583802E-13 -1.8982784409E-21
2.9508171556E-29

-1.0542477804E-04 -1.1494982403E-13 9.1766487366E-22
-1.4461997657E-29

5.8436623727E-05 5.2681234526E-14 -4.4400237356E-22
7.0901975787E-30

-2.5841727522E-05 -2.4272611542E-14 2.1500363892E-22
-3.4771871308E-30

1.0525340241E-05 1.1236692030E-14 -1.0419555735E-22
1.7058202580E-30

-3.9487320804E-06 -5.2239376878E-15 5.0533583057E-23
-8.3708571981E-31

1.3207804853E-06 2.4378141584E-15 -2.4525851909E-23
4.1089817635E-31

-3.5067345145E-07 -1.1415093557E-15 1.1911535700E-23
-2.0175412562E-31

5.5497924241E-08 5.3615711160E-16 -5.7889316226E-24
9.9090274547E-32

1.5059649832E-08 -2.5253197948E-16 2.8151673613E-24
-4.8680681263E-32

-2.1523082502E-08 1.1924700892E-16 -1.3698530670E-24
2.3921919191E-32

1.4733681219E-08 -5.6440981997E-17 6.6695603490E-25
-1.1758340267E-32

1.0000000000E+00 1.7987642729E-08 -4.5312164317E-17
5.4992078518E-25

0.0000000000E+00 -8.3840108994E-09 2.1536019548E-17
-2.6804090156E-25

0.0000000000E+00 3.7670469949E-09 -1.0254665309E-17
1.3071557555E-25

0.0000000000E+00 -1.6526367936E-09 4.8913410547E-18
-6.3777953290E-26

0.0000000000E+00 7.1493015948E-10 -2.3368750685E-18
3.1133135776E-26

1.0000000000E-01 -3.0725084549E-10 1.1181490949E-18
-1.5204659400E-26

-4.2857142857E-02 1.3192138050E-10 -5.3577247549E-19
7.4289074616E-27

1.8750000000E-02 -5.6827322754E-11 2.5706384024E-19
-3.6312894115E-27

-8.3333333333E-03 2.4632088817E-11 -1.2349465142E-19
1.7757344336E-27

3.7500000000E-03 -1.0762594132E-11 5.9397935216E-20
-8.6870095383E-28

1.1363636364E-04 4.7441168372E-12 -2.8601088852E-20
4.2513992844E-28

-7.0143398268E-04 -2.1098685807E-12 1.3786562892E-20
-2.0814082337E-28

5.6412337662E-04 9.4633740966E-13 -6.6522391701E-21
1.0193918067E-28

-3.5348951644E-04 -4.2779448863E-13 3.2128916989E-21
-4.9943442121E-29

2.0067606005E-04 1.9475161560E-13 -1.5531745983E-21
2.4477353385E-29

-9.3119933452E-05 -8.9215279760E-14 7.5148698397E-22
-1.2000366465E-29

3.8663542340E-05 4.1095067060E-14 -3.6389993788E-22
5.8852407672E-30

-1.4570702990E-05 -1.9021691211E-14 1.7635402376E-22
-2.8871506037E-30

4.8347217880E-06 8.8424759764E-15 -8.5529565117E-23
1.4167920272E-30

-1.2403030595E-06 -4.1262694515E-15 4.1510720614E-23
-6.9545716342E-31

1.4719225001E-07 1.9320856329E-15 -2.0160622039E-23
3.4147474967E-31

9.7123795568E-08 -9.0747292577E-16 9.7979358322E-24
-1.6771318352E-31

-1.0404222235E-07 4.2742041848E-16 -4.7647529737E-24
8.2393474718E-32

6.7370672802E-08 -2.0182966417E-16 2.3185163214E-24
-4.0488546850E-32

-3.6472266477E-08 9.5528152219E-17 -1.1288425670E-24
1.9901334294E-32

Нашли опечатку? Выделите и нажмите CTRL+Enter

Похожие документы
Обсуждение

Оставить комментарий

avatar
  Подписаться  
Уведомление о
Заказать реферат!
UkrReferat.com. Всі права захищені. 2000-2020