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

Canvas.MoveTo(x0, y0-150);

Canvas.LineTo(x0+5, y0-150+10);

Label3.Left:=x0-25;

Label3.Top:=y0-150;

Canvas.Pen.Width:=1;

x:=x0;

for i:=1 to 10 do

begin

x:=x+35;

Canvas.MoveTo(x, y0-3);

Canvas.LineTo(x, y0+3);

end;

y:=y0;

for i:=1 to 5 do

begin

y:=y-20;

Canvas.MoveTo(x0-3, y);

Canvas.LineTo(x0+3, y);

end;

end;

procedure TForm1.Postroenie(T1,T2,R1,R2:real);

var

x,y:integer;

Kx,Ky,x1,y1,P,C1,Sag:real;

begin

Canvas.Pen.Width:=1;

Canvas.Pen.Color := clRed;

Sag:=(R2-R1)/500; {шаг по X}

C1:=(T1-T2)/(ln(R2/R1));