T[0]:=strtoint(edit2.Text);
p1:=1-2*a*dt/(b*c*dx*dx); ///
p2:=a*dt/(b*c*dx*dx);
/// конечно разностоное уранение
for i:=2 to r+2 do begin
T[1]:=dx*i*i*dx;
T[2]:=dx*(i+1)*(i+1)*dx;
T[3]:=p1*T[1]+p2*(T[2]+T[0]); ///
T[0]:=dx*(i-1)*(i-1)*dx;
if i<>2 then listbox1.Items.Add(currtostr(T[3]));
end;
end;
procedure Tform1.setparam;
begin
case form1.RadioGroup1.ItemIndex of
0: begin
a:=236; // vatt/metr*kel'vin teploprovodnost'
b:=2688;// plotnost'
c:=930; //teploemkost'
end;
1:begin
a:=111;
b:=2688;
c:=377;
end;
2:begin
a:= 320;
b:= 1932;
c:=129;
end;
3:begin
a:=390;
b:=8296;
c:=385;
end;
end;
end;
procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
setparam;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
r:=10;
setparam;
X:=strtoint(edit1.Text);
