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

Из выражения (18), положив X=0 , определяем длину зоны плавления:

(19)

Для канала переменной глубины, высота которого изменяется по закону: H = H _l -A × z , где H (0)= H _l , A - угол конусности червяка, решение выглядит так:

(20)

Длина зоны плавления в этом случае определится:

(21)

Расчетная часть

Разработанная программа:

program Presnetsov;

Uses crt;

var i,l,s,Tg,n,m,Cs:integer;

P,Zpl,Tb,Ts,Q,LamdaM,Phi:real;

j:boolean;

f1:text;

Zav:string;

Procedure Plavlenie(j:boolean;P,Tb,Ts,Q,LamdaM,Phi:real;Zav:string;n,l,m,Cs:integer);

var {Tb,}Tm,Rom,Ros,k,s:integer;

Vb,Dsh,Vbx,Pvi,Vbz,Vsz,ShN,ShG,H,W,hcp,Vj,Ph,Lamda,LamdaS,

Cm,Psi,X,Z,omega,Y,sigma,Vsy,YY,Zpl:real;

Tg,Ttv:single;

f,fo,f1:text;

begin

Dsh:=0.09;

ShN:=0.09;

ShG:=0.009;

H:=0.011;

Ros:=930;

Rom:=1000;