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

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;