Лабораторная работа: Расчёт зоны плавления

Lamda:=140000;

Cm:=2060;

Tm:=140;

W:=ShN-ShG;

Vb:=pi*n*Dsh/60;

Vbx:=Vb*sin(Phi);

Vbz:=Vb*cos(Phi);

Vsz:=Q/(Ros*W*H);

Vj:=sqrt(sqr(Vb)+sqr(Vbz)-2*Vb*Vsz);

Ph:=sqrt(Vbx*Rom*(LamdaM*(Tb-Tm)+m*sqr(Vj)/2)/(2*(Cs*(Tm-Ts)+Lamda)));

Psi:=Ph/(Ros*Vsz*sqrt(W));

Zpl:=2*H/Psi;

assign(fo,'Omega.txt');

assign(f1,'Zpl.txt');

if P=0 then begin

rewrite(fo);

rewrite(f1);

writeln(fo,'Zav. Omega ot Z');

writeln(fo,'Z',' ','Omeg');

end;

Z:=0;k:=0;Y:=0;YY:=0;

if l=1 then begin

readln;

writeln(Zav);

end;

Writeln(P:3:3,' ','Zpl=',Zpl:1:5);

assign(f,'Tem.txt');

if j=true then begin

rewrite(f);