真空应用作业-装备0801-毛琦-20082198(5)

Aa=(pi*d1*d1)*1.0/4;

pc1=(2*pi*h2*(Tn-Tb)/((1.0/nng)*log(D2*1.0/d2)+(1.0/nna)*log(d1*1.0/D2)))/1000; pc2=((Tn-Tb)*1.0)/((g0*1.0)/(nng*Ag)+(a0*1.0)/(nna*Aa))/pow(10,3); pr=pf+pc1+pc2;

yz=y1*y2*y3*y4;

fm=(((25*pow(10,4))*p02)*1.0)/(pow(d2,2)*ur); lm1=sqrt(p0*1.0/(pi*u*f)); // %{感应器透入深度}% lm2=sqrt(p02*1.0/(pi*u*f));//%{炉料透入深度}%

R1=(p01*pi*(d1+lm1))*1.0/(lm1*h1*k3);// %{感应器电阻}% R2=(p02*pi*(d2-lm2))*1.0/(lm2*h2);//%{炉料电阻}% L1=((pi*pow((d1+lm1),2))*kL1*u*1.0)/(4*h1)/10; L2=((pi*pow((d2-lm2),2))*kL2*u*1.0)/(4*h2)/10; X1=2*pi*f*L1; X2=2*pi*f*L2;

Lm=((pi*pow((d2-lm2),2))*sqrt(km)*u)/(2*4*h2)/10; Xm=2*pi*f*Lm;

K=pow(Xm,2)*1.0/(pow(R2/10,2)+pow(X2,2));//%{折算系数}% Rd=R1+K*R2; Xd=X1-K*X2;

Zd=sqrt(pow(Rd,2)-pow(Xd,2));

Pi=px+pf;//%{加热、熔炼炉料所需的有功功率}% yd=(K*R2*1.0)/Rd;//炉子的电效率 pd=Pi/yd;

Id=sqrt(pd*1.0*1000/Rd); Ud=Zd*Id; fi=acos(Rd*1.0/Zd); pz=(pr+px)*1.0/yz;