梁弯曲分析,自由振动分析的C程序.doc

1、梁弯曲分析，自由振动分析的c程序程序：#include #include float zgxj(float b,float h)/*轴惯性矩计算子程序*/float i;i=b*h*h*h/12;return(i);void main() /*主函数*/*/ int i,j;float a44;float l,b,h,jz,l; /*设置轴的长度、周截面的高度h、宽带b、轴惯性矩、梁单元长度*/int n;/*设置节点数量n*/float e; /*刚度系数模量*/printf(请输入刚度系数：);scanf(%f,&e);printf(n);printf(请输入杆的长度：);scanf(%f,&l);printf(n);printf(请输入杆的宽带和高度(数据之间用空格隔开)：);scanf(%f %f,&b,&h);printf(n);printf(请需要输入划分的节点数量（建议不要太大20）：);scanf(%d,&n);printf(n);jz=zgxj(b,h);/*计算轴惯性矩的值*/l=l/(n+1);/*求梁单元长度*/a00=12*e*jz/(l*l*l); /*计算刚度矩阵*/a01=6*e*jz/(l*l);a02=(-12)*e*jz/(l*l*l);a03=6*e*jz/(l*l);a10=6*e*jz/(l*l);a11=4*e*jz/l;a12=(-6)*e*jz/(l*l);a13=2*e*jz/l;a20=(-12)*e*jz/(l*l*l);a21=(-6)*e*jz/(l*l);a22=12*e*jz/(l*l*l);a23=(-6)*e*jz/(l*l);a30=6*e*jz/(l*l);a31=2*e*jz/(l*l);a32=(-6)*e*jz/(l*l);a33=4*e*jz/l;printf(梁单元刚度矩阵k：n);for(i=0;i=3;i+) /*输出刚度矩阵*/for(j=0;j=3;j+)printf( %.1f ,aij);printf(n);#include#includefloat zgxj(float b,float h)/*轴惯性矩计算子程序*/float i;i=b*h*h*h/12;return(i);（2）求振动频率的程序float zizhen(float e,float i,float m,float l,int i) /*模特分析子程序,用于输出前各阶自振频率*/float f;float a4=3.516,22.03,61.7,120.9;f=ai*sqrt(e*i/m)/l/l);/*计算前四阶自振频率*/return(f);/*返回单前频率*/void main()/*主函数*/float l,b,h,iz; /*设置轴的长度、周截面的高度h、宽带b、轴惯性矩*/int i,j;/*设置节点数量n*/float e,m;float a4=3.516,22.03,61.7,120.9,f4;/*定义影响系数和自振频率的字符*/printf(请输入刚度系数：);scanf(%f,&e);printf(n);printf(请输入杆的长度：);scanf(%f,&l);printf(n);printf(请输入杆的宽带和高度(数据之间用空格隔开)：);scanf(%f %f,&b,&h);printf(n);printf(请输入线密度(单位:kg/立方米)：);scanf(%f,&m);printf(n);iz=zgxj(b,h); for(i=0;i=3;i+) /*循环计算各阶频率*/ f