Решение систем дифференциальных уравнений методом Рунге - Кутты 4 порядка

Категория реферата: Рефераты по математике
Теги реферата: школьные рефераты, менеджмент
Добавил(а) на сайт: Lapotnikov.

PROCEDURE RUN;

BEGIN

WRITE('Step 3: Calculating data and writting results to file : out.rez');

X:=Xn;

dX:=0.05;

REPEAT

IF (ABS(x-p)Xk);

WRITELN(' - done.');

END;

PROCEDURE INIT;

BEGIN

ClrScr;

WRITELN;

WRITE('Step 1: Read data from file : in.dat');

ASSIGN(f1,'in.dat');

RESET(f1);

READLN(f1,C[1],C[2],C[3]);

READLN(f1,k1,k2,k3,k4);

READLN(f1,Xn,Xk,dp,n,eps,p);

WRITELN(' - done.');

ASSIGN(f2,'out.rez');

REWRITE(f2);

WRITE('Step 2: Write header to file : out.rez');

Рекомендуем скачать другие рефераты по теме: доклад 2011, шпори для студентів.

Предыдущая страница реферата | 1 2 3 4 5 6 7 8 9 10 11 | Следующая страница реферата

Рефераты | Рефераты по математике | Решение систем дифференциальных уравнений методом Рунге - Кутты 4 порядка