【文章內(nèi)容簡介】 Ac=。Ae=0。Af=。Ag=。}if(M==3)break。}else m=0。eta=eta1。}for(i=0。i31。i++){tau[i]=cytau[i]/cy[i]。 }loop: for(i=0。i31。i++){f[i]=(o1[i]*tan((+(+*c)*tau[i])/180*pi)o2[i])/(+*tau[i]+*c)。f[i]=f[i]/pi*180。ba[i]=(pi/2(o1[i]*tan((23+9*tau[i])/180*pi)+o2[i])/(+*tau[i]+*c))/pi*180。}for(i=0。i31。i++){o1[i]=o1[i]/pi*180。o2[i]=o2[i]/pi*180。om[i]=om[i]/pi*180。{change=4*s/pi。d[i]=sqrt(change)。s=s+s0。}d[0]=dh。d[30]=dt。 while(M3){for(i=0。i31。i++){u[i]=pi*d[i]*n/60。cu[i]=p/(eta*rho*u[i])。cu2[i]=cu1[i]+cu[i]。o1[i]=atan((u[i]+cu1[i])/cz)。o2[i]=atan((tan(o2[i])*tan(o1[i]))/)。om[i]=atan((tan(o1[i])+tan(o2[i]))/2)。cytau[i]=2*(tan(o1[i])tan(o2[i]))*cos(om[i])。yy=0。Bb[i]=o1[i]o2[i]。Mm[i]=*(90o2[i])+。o[i]=(Bb[i]I)/(1Mm[i]*sqrt(t[i]/b[i]))。ss[i]=Mm[i]*o[i]*sqrt(t[i]/b[i])。R[i]=b[i]/2/sin(o[i]/180*pi/2)。X1[i]=X2[i]=o[i]/2。b1a[i]=(90o1[i])+I。b2a[i]=(90o2[i])+ss[i]。}p=p*2。 if(M==4){goto loop1。}{動葉參數(shù)輸出部分}printf(\n)。z=23。M+=1。for(i=0。i31。i++){cu3[i]=0。 o1[i]=atan(cu2[i]/cz)。 o2[i]=atan(cu3[i]/cz)。 t[i]=pi*d[i]/z。 b[i]=ab。 tau[i]=t[i]/b[i]。 om[i]=atan((tan(o1[i])+tan(o2[i]))/2)。 cytau[i]=2*(tan(o1[i])tan(o2[i]))*cos(om[i])。 cy[i]=cytau[i]*t[i]/b[i]。 u[i]=0。 } if(M==4) {goto loop。}loop1: {導葉參數(shù)輸出部分}⑵ 程序流程圖 ⑶ 程序結果前級各截面的參數(shù) 基本參數(shù)eta==^3/s,P=6000Pa,n=1000rpm **********************************************************截面序號 截面直徑 圓周速度 扭速 氣流角θ1 氣流角θ2 平均氣流角 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 截面序號 負載系數(shù) 升力系數(shù) 柵距 弦長(mm) 彎度(mm) 安裝角 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 截面序號 葉型R（m) X1 X2 b1a度 b2a 相對柵距 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 導葉各截面的參數(shù) ***********************************************************截面序號 截面直徑 圓周速度 扭速 氣流角θ1 氣流角θ2 平均氣流角 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 截面序號 負載系數(shù) 升力系數(shù) 柵距 弦長(mm) 彎度(%) 安裝角 1 2 3 4 5 6 7 8 9 10