procedure TForm1.Button2Click(Sender: TObject);
var al2F,kF,t1F,LF,aF,F1,F2,fiF,a1F,a2F,a3F,a4F:real;
et,tet: array OF array of REAL;
I,J:INTEGER;
begin
//SHOWMESSAGE('H='+FLOATTOSTR(H));
//SHOWMESSAGE('T='+FLOATTOSTR(T));
//SHOWMESSAGE('L='+FLOATTOSTR(L));
al2F:=AL2;
a1F:=a1;
a2F:=a2;
a3F:=a3;
a4F:=a4;
fiF:=fi;
kF:=k;
t1F:=t1;
LF:=L;
aF:=a;
SetLength(ET,N+1,m+1);
for i:=0 to N do
et[i,0]:=1;
for j:=0 to m do
et[0,j]:=0;
for j:=0 to m do
et[n,j]:=1;
MEMO1.Lines.Clear;
for i:=1 to n-1 do
for j:=0 to m-1 do
begin
F1:=exp(-(E)/(R*(T0+TET[I,J]*(Tgor-T0))));
tet[i,j+1]:=tet[i,j]+ t*(a2*(tet[i+1,j]-2*tet[i,j]+tet[i-1,j])/(h*h)-
a1*(tet[i+1,j]-tet[i,j])/(h)+a3*ET[i,j]*F1);
ET[i,j+1]:=ET[i,j]+t*(a4*(ET[i+1,j]-ET[i,j])/(h)-k0*t1*ET[i,j]*F1);
FORM2.Chart1.Series[0].Add(TET[I,J+1],'',CLRED); // Вот это график первой уравнения тут как можно добавит второй уравнения
end;
FORM2.ShowModal;
END;
end.
