Программирование -компьютерное моделирование
Для решения дифференциального уравнения выберем наиболее распространенный язык программирования Паскаль (Турбо Паскаль).
Алгоритм программы:
program biocheml; uses
crt, GRAPH; Label metl,met2; VAR
I: integer;
ch : char;
s : string;
C1,C2,CATP,CATP_MAX,CCRP,CCRP_MAX:REAL;
V1,V2:REAL;
VC Al, VCA2,TEND: REAL;
ml,m2,m3,mash,t,dt:real;
procedure InpGraph; var
Driver, Mode, Code : Integer; begin
Driver: = Detect;
InitGraph(Driver, Mode, 'c:\tp\bgi'); end;
function DigStr(S: Longint; A:Byte): string;
var SI: string[10];
begin
Str(S:A, SI);
DigStr:= SI; end;{function DigStr}
function DigStrR(S: Real; A,B:Byte): string;
var SI: stringflO];
begin
Str(S:A:B, SI);
DigStrR :« SI; end; {function DigStrR}
BEGIN ClrScr; InpGraph;
C1:=3;C2: = 15;C3:=1; {THE SPEED EXPENDITER ATP ,
CRP}
CATP:=5;CATP_MAX:=5;CCRP:=15;CCRP_MAX:=15;DT:=0.001
T:=0;
gotoXY(6,3);writeln('Input ');
gotoXY(3,5);writeln('ATP - ");
gotoXY(3,7);writeln('CrP - ");
gotoXY(3,9);writeln('Scale - ');
gotoXY(3,ll);writeln('time activity - ');
gotoXY(3,13);writeln( Intensity - ');
gotoXY(3,15);writeln('time investignation - ');
gotoXY(49,5); readln(ml); gotoXY(49,7); readln(m2); gotoXY(49,9); readln(mash); gotoXY(49,ll); readln(ta); gotoXY(49,13); readln(i); gotoXY(49,15); readln(tend);
cl:=cl*ml;c2:=c2*m2;
clrscr;
InpGraph;
line(100,300,600,300);
line(100,50,100,300); textcolor(2); setcolor(l); setbkcolor(O); MET1:
Г I****************************'1
T:=0;
WHILE T<TEND DO BEGIN
V1: =C 1 *i*(C ATP/C ATP_MAX);
V2:=C2*(1-CATP/CATP_MAX)*CCRP/CCRP_MAX; CATP:=CATP+(V2-V1)*DT; CCRP: =CCRP+(V3-V2)*DT;
OUTTEXTXY(3,360,'Time =' +DigStrR(T,9,3));
OUTTEXTXY(3,370,'Power =*+DigStrR(vl,19,3));
OUTTEXTXY(3,380,'ATP ='+DigStrR(CATP,19,3));
OUTTEXTXY(3,390,'CrP ='+DigStrR(CCRP,19,3));
putpixel(round(100+t*500*mash), Round(300-vl*100),7); putpixel(round(100+t*500*mash), Round(300-catp*100),4); putpixel(round(100+t*500*mash), Round(300-ccrp*20),3); T:=T+DT;
if t>=tend then I:=0;
ch:=readkey;
BAR(3,350,200,410); END; {WHILE}
GOTO MET1; CloseGraph; END.
Дата добавления: 2015-06-05; просмотров: 647;