Реферат: Теплопроводность через сферическую оболочку

if T1>T2 then

Ky:=T1/100

else

Ky:=T2/100;

x1:=R1; {Начальные условия}

y1:=T1;

Canvas.MoveTo(x0+Round((x1-R1)/Kx),y0-Round(y1/Ky));

repeat

y:=Round(y1/Ky);

x:=Round((x1-R1)/Kx);

Canvas.LineTo(x0+x, y0-y);

x1:=x1+Sag;

y1:=(T1+C1*ln(R1/x1));

{label1.Caption:=label1.Caption+'; '+intToStr(x);

label2.Caption:=label2.Caption+'; '+intToStr(y);}

until x1>R2;

P:=4*Pi*C1;

label1.Caption:='Мощность источника: ='+FloatToStrF(P,ffGeneral,5,1)+

' Вт';

label5.Caption:=FloatToStrF(R2,ffGeneral,4,1);

label6.Caption:=FloatToStrF(R1,ffGeneral,4,1);

if T1>T2 then

begin

label7.Caption:=FloatToStrF(T2,ffGeneral,4,1);

label8.Caption:=FloatToStrF(T1,ffGeneral,4,1);

end

else

begin

label7.Caption:=FloatToStrF(T1,ffGeneral,4,1);