叶片受力分析_第1页
叶片受力分析_第2页
叶片受力分析_第3页
叶片受力分析_第4页
叶片受力分析_第5页
已阅读5页,还剩2页未读 继续免费阅读

下载本文档

版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领

文档简介

1、叶片截面1截面2截面3截面4截面5Xm0.00470.00410.004050.00320.0018ym0.003950.00340.002450.00150.00065Am0.0002060.0002720.0003610.0004790.0006265Xh0.001200.00010.00160.0012Vh0.00030.00080.00110.00080.0009Zh0.0370.0310.030.0360.036Pz9228.049639.2411724.417537.821325.4Py59.804456.947752.706251.380229.1208a拉25777737420

2、5413313402990354552Fx11.30668.944698.19749.241258.59148Fy245.431194.16177.939200.598186.493Mx_gas-4.540461.5309812.489227.404353.5My 崩 as0.209173-0.0705302-0.575361-1.26248-2.46467Mx_离0.2778252.69518-3.12148-25.5983-47.0795Mf5.536825.536824.9506-6.0204658.1915Mx-4.262644.226169.367731.8066.42054My-5

3、.327655.466294.37524-7.2829455.7268Mn1.379341.520057.046613.74348-5.30602M C-6.682176.74027.56587-6.5030155.844。弯a-1.862442.6988614.15225.98086-10.6914。弯b2.82543-2.75315-9.71932-2.90496-0.411531a弯c-8.127316.9434714.68312.888996.971(以上个参量均使用国际单位制)使用C+编程,程序如下:#include#include#define N 6#define M 5#def

4、ine Q68void average (double aJnt n,double b)平均 (int i=0;for(i;in-l;i+)bi=(ai+ai+l)/2;void altitude (double aJnt n,double b)(int i=0;for(i;in;i+)bi=ai-ai+l;Jvoid load(double a,double b,double czdouble d,double f,double g)离心力(for(int i=0;iM;i+)ci=a*b*b*di*fi*gi;voidsentrifugal_force(doublea,doubleb,do

5、ublec)离心拉应力(double d;for(int i=0;iM;i+)d=0;for(int j=O;j=i;j+)(d=d+bj; ai=d/ci+l;void main()double pi=3.1415926;double w=4700*2*pi0;int i,j;double den=8200;double radianN=0;radian0=(30+40/360)*pi/180;radianl=(27+49/360)*pi/180;radian2=(25+1960)*pi/180;radian3=(22+360+30/360/360)*pi/180;radian4=(16+5

6、7360)*pi/180;radian5=(12+4360)*pi/180;double xN=(0.0053/0.0041/0.0041/0.0040/0.0024/0.0012;double yN=0.0041,0.0038,0.0030,0.0019,0.0011,0.0002;double zN=O.628059LO.56,O.53,0.494,0.458;double AN=0.00018,0.000232,0.0003120000410,0.00054&0.000705;double clam=297;double clum=410;double c2am=313;double c

7、2um=-38;double denlm=0.894; double plm=222;double den2m=0.75; doublep2m=178;double Jat5=0.242,0.304,0.484,0.939,1.802;double Jkc5=6.694,9.332,12.52,17.57,23.74;double ata5=2.685广2.847广2.938广2.889广2.894;double kca5=-0.797广0.951广1.094广1.232广1.319;double atb5=-0.084,-0.205,-0.303,-0.219,-0.302);double

8、kcb5=(0.481,0.521,0.655,0.749,0.1015);double atc5=3.728,3.909,4.060,4.366,4.597;double kcc5=(-0.773z-0.824,-0.840,-1.130,-1.305;coutHxmdouble coutrT;double coutrT;double coutrT;double coutrT;double coutrT;doublexm5=0;ym5=0;zm5=0;Am5=0;xh5=0;yh5=0;average(x,N,xm);average(y,N,ym);average(z,N,zm);coutn

9、ymcoutHzmaverage(A,N,Am); coutnAmaltitude(x,M/xh);cout,xhaltitude(y,M,yh);cout,yh;for(i=0;iN-l;i+);for(i=0;iN-l;i+);for(i=0;iN-l;i+);for(i=0;iN-l;i+)M;for(i=0;iN-l;i+);for(i=0;iN-l;i+)coutrT;double My_gasM;double Mx_senM;弯矩double MyM;double stress_bM;double stress_cM;Mx_senj=f;double zh5=0; altitude

10、(z,M,zh);cout,zh ;for(i=0;iN-l;i+) (coutzhi,t,; coutn;double Pz5=0;load(den/w,Pz/Am/zm/zh);cout,Pz ;for(i=0;iN-l;i+) coutPzi,t,; coutn;double Py5=0;load(den,w,Py/Am,ym/zh);cout,Py M;for(i=0;iN-l;i+) (coutPyi,t,;) coutn;coutn;double stress_sen5=0;sentrifugal_force(stress_sen/Py/A);cout,stress_senfor(

11、i=0;iN-l;i+) (coutstress_seni,t,; cout,nl;coutn;double Fx5=0; double Fy5=0;double a=denlm*clam*clam-den2m*c2am*c2am+(plm-p2m);double b=denlm*clam*clum-den2m*c2am*c2um;for(i=0;iM;i+)Fxi=2*pi*zmi*zhi*a/Q;Fyi=2*pi*zmi*zhi*b/Q;coutnFx H;for(i=0;iN-l;i+) (coutFxi,t,; coutn;coutnFy n;for(i=0;iN-l;i+) (cou

12、tFyi,t,; cout,n,;double Mx_gasM;double My_gasM;double My_senM;double MxM;double MatM;double stress_aM;double d,e,f,g;for(j=0;jM;j+)d=0;e=0;f=0;g=0;for(i=0;i=j;i+)d=d+Fyi*(zmi-zj);e=e+Fxi*(zmi-zj);f=f+(Pzi*(yj-ymi)+Pyi*(zmi-zj);g=g+Pzi*(xmi-xj);)Mx_gasj=d;My_gasj=-e;Mx_senj=f;My_senj=g;Mxj=Mx_gasj+Mx

13、_senj;Myj=My_gasj+My_senj;Matj=Mxj*cos(radianj+l)-Myj*sin(radianj+l);Mkcj=Mxj*sin(radianj+l)+Myj*cos(radianj+l);stress_aj=Mkcj*ataj/Jkcj-Matj*kcaj/Jatj;stress_bj=Mkcj*atbj/Jkcj-Matj*kcbj/Jatj;stress_cj=Mkcj*atcj/Jkcj-Matj*kccj/Jatj; coutcCn;coutnMx_gas ;for(i=0;iN-l;i+) (coutMx_gasi,t,; cout,n,; cou

14、tMy_gas H;for(i=0;iN-l;i+) (coutMy_gasit; coutcn; coutn;coutMx_sen ;for(i=0;iN-l;i+) coutMx_seni,t,; coutn; coutMy_sen ;for(i=0;iN-l;i+) (coutMy_seni,t,; coutn; coutn;coutMx ,;for(i=0;iN-l;i+) (coutMxit1; coutn;coutMy ;for(i=0;iN-l;i+) coutMyi,t,; coutn; coutn;coutMat ;for(i=0;iN-l;i+) (coutMatit,; coutn; coutMkc ;for(i=0;iN-l;i+) coutMkcit,; coutn;

温馨提示

  • 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
  • 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
  • 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
  • 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
  • 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
  • 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
  • 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。

评论

0/150

提交评论