真空应用作业-装备0801-毛琦-20082198.docVIP

真空应用作业二 感应器设计计算: 1.依据容炼材料及熔炼量计算坩埚及感应器的尺寸; 2.依据熔炼材料及熔炼温度等计算感应炉的功率; 3.计算感应器的电器参数。 解题过程： 首先编程输出h1（感应器的高度）,h2（金属液的高度）,h（坩埚的深度），d2(炉口平均直径)的值。（matlab部分） syms c0 Vg Vz d2 d1 m rm h T0 g0 h1 b k=0.75; a=1; a1=0.2; a2=5e-3; a3=15e-3; a0=10e-3;%{底部绝缘层的厚度}% m=200; b=1; rm=7200;%{密度}% Tn=1700+273; Vg=m/rm;%{液体金属体积}% Vz=Vg/k; d2=((4*a*Vg)/pi)^(1/3); h2=d2/a; h=h2/k;%{坩埚深度}% T0=c0-a2;%{平均厚度}% c0=a1*d2; g0=T0+a3; d1=d2+2*c0; h1=b*d1; A=[h1,h2,h,d2]; A A = 0.4595 0.3282 0.4377 0.3282 根据h2，d2和h的值找出角系数的值为0.7186。 编程求出各值： #include stdio.h #include math.h void main() { double k,a,a1,a2,a0,a3,m,rm,r0,Tn,Tw,Tb,nng,nna,H,t,Vg,Vz,p0,C0,tc,tr,Cs,yr,dth,pr,yd,pd,Xd,Id,Ud,fi; double b,fy,p02,p01,kL,km,UH,Cm,ur,u,f,x,y1,y2,y3,y4,kL1,kL2,k3,u0,Am,yz; double lm1,lm2,Rd,Lm,X1,X2,Xm,K,Zd,pz,Ri,Xi,Zi,C,Xc,Sg,smg,Ag,Aa; double d1,d2,h1,h2,h,D2,T0,c0,g0,px,pf,pc1,pc2,fm,R1,R2,L1,L2,Pi,Ui,N,Ii,dv,D1,Qc,n,ps,qv; double pi=3.1415926; k=0.75; a=0.5; a1=0.2; a2=5.0*pow(10,-3); a3=15.0*pow(10,-3); a0=10*pow(10,-3);//底部绝缘层的厚度}% m=200.0; rm=7200.0;//%{密度}% r0=1000.0; Tn=1973.0; Tw=323,0; nng=2.9; nna=0.21; p02=1.0*pow(10,-5); p01=1.75*pow(10,-6); ur=1,0; u=4*pi*pow(10,-7); f=2500.0; H=0.42; b=1.1; x=0.36; t=1.0; C0=5.7; fy=0.7186; Tb=475.0; y1=0.8; y2=0.97; y3=0.8; y4=0.95; p0=1.37*pow(10,-6); kL1=0.82; kL2=0.75; k3=0.8; km=2.015; u0=4*pi*pow(10,-7); UH=250.0; Cm=1.25*pow(10,-4); yr=0.8; tc=80.0; tr=20.0; Cs=4.2; Vg=m*1.0/rm;//%{液体金属体积}% Vz=Vg*1.0/k; d2=pow(((4*a*Vg)/pi),1.0/3); h2=d2*1.0/a; h=h2*1.0/k;//%{坩埚深度}% c0=a1*d2; T0=c0-a2;//%{平均厚度}% g0=T0+a3; d1=d2+2*c0; h1=b*d1; D2=d2+2*T0; px=(m*H*1.0)/t;//%{融化功率}% dth=x*C0; Am=(pi*d2*d2/4); pf=(dth*Am*(pow(((Tn*1.0)/100),4)-pow(((Tw*1.0)/100),4))*fy)/1000; Ag=(pi*D2*D2)*1.0/4; 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(