Лабораторная работа: Охлаждение изолированного провода

begin

t1 [i]:=t[i]+lamdap/(cp*rop*v0)*hz1*(1/r*((t [i+1] – t [i‑1])/(2*hr1))+(t [i+1] – 2*t[i]+t [i‑1])/(hr1*hr1));

r:=r+hr1;

end;

r:=r+hr2;

t1 [1]:=t1 [2];

for i:=n1+1 to n‑1 do

begin

t1 [i]:=t[i]+lamdai/(ci*roi*v0)*hz1*(1/r*((t [i+1] – t [i‑1])/(2*hr2))+(t [i+1] – 2*t[i]+t [i‑1])/(hr2*hr2));

r:=r+hr2;

end;

t1 [n]:=(t1 [n‑1]/hr2+alpha/lamdai*tv)/(1/hr2+alpha1/lamdai);

t1 [n1]:=(t1 [n1–1]*lamdap+t1 [n1+1]*lamdai)/(lamdap+lamdai);

for i:=1 to n do

t[i]:=t1 [i];

if j mod 10000=0 then

begin

for i:=1 to n do

begin

write (f, t[i]:2:2);

write (f, ' ');

end;

writeln(f);

end;

end;

end;

begin

clrscr;

n:=30;