梁彎曲分析自由振動(dòng)分析的C程序.doc_第1頁(yè)
梁彎曲分析自由振動(dòng)分析的C程序.doc_第2頁(yè)
梁彎曲分析自由振動(dòng)分析的C程序.doc_第3頁(yè)
梁彎曲分析自由振動(dòng)分析的C程序.doc_第4頁(yè)
全文預(yù)覽已結(jié)束

下載本文檔

版權(quán)說(shuō)明:本文檔由用戶提供并上傳,收益歸屬內(nèi)容提供方,若內(nèi)容存在侵權(quán),請(qǐng)進(jìn)行舉報(bào)或認(rèn)領(lǐng)

文檔簡(jiǎn)介

1、1、梁彎曲分析,自由振動(dòng)分析的c程序程序:#include <math.h>#include <stdio.h>float zgxj(float b,float h)/*軸慣性矩計(jì)算子程序*/float i;i=b*h*h*h/12;return(i);void main() /*主函數(shù)*/*/ int i,j;float a44;float l,b,h,jz,l; /*設(shè)置軸的長(zhǎng)度、周截面的高度h、寬帶b、軸慣性矩、梁?jiǎn)卧L(zhǎng)度*/int n;/*設(shè)置節(jié)點(diǎn)數(shù)量n*/float e; /*剛度系數(shù)模量*/printf("請(qǐng)輸入剛度系數(shù):");scanf

2、("%f",&e);printf("n");printf("請(qǐng)輸入桿的長(zhǎng)度:");scanf("%f",&l);printf("n");printf("請(qǐng)輸入桿的寬帶和高度(數(shù)據(jù)之間用空格隔開(kāi)):");scanf("%f %f",&b,&h);printf("n");printf("請(qǐng)需要輸入劃分的節(jié)點(diǎn)數(shù)量(建議不要太大<20):");scanf("%d",&

3、amp;n);printf("n");jz=zgxj(b,h);/*計(jì)算軸慣性矩的值*/l=l/(n+1);/*求梁?jiǎn)卧L(zhǎng)度*/a00=12*e*jz/(l*l*l); /*計(jì)算剛度矩陣*/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*j

4、z/(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("梁?jiǎn)卧獎(jiǎng)偠染仃噆:n");for(i=0;i<=3;i+) /*輸出剛度矩陣*/for(j=0;j<=3;j+)printf(" %.1f ",aij);printf("n");#include<stdio.h>#include<math.h>float zgxj(float b,float h)/*軸慣性矩計(jì)算子程序*/float i

5、;i=b*h*h*h/12;return(i);(2)求振動(dòng)頻率的程序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);/*計(jì)算前四階自振頻率*/return(f);/*返回單前頻率*/void main()/*主函數(shù)*/float l,b,h,iz; /*設(shè)置軸的長(zhǎng)度、周截面的高度h、寬帶b、軸慣性矩*/int i,j;/*設(shè)置節(jié)點(diǎn)數(shù)量n*/float e,m;float

6、 a4=3.516,22.03,61.7,120.9,f4;/*定義影響系數(shù)和自振頻率的字符*/printf("請(qǐng)輸入剛度系數(shù):");scanf("%f",&e);printf("n");printf("請(qǐng)輸入桿的長(zhǎng)度:");scanf("%f",&l);printf("n");printf("請(qǐng)輸入桿的寬帶和高度(數(shù)據(jù)之間用空格隔開(kāi)):");scanf("%f %f",&b,&h);printf("n");printf("請(qǐng)輸入線密度(單位:kg/立方米):");scanf("%f",&m);printf("n");iz=zgxj(b,h); for(i=0;i<=3;i+) /*

溫馨提示

  • 1. 本站所有資源如無(wú)特殊說(shuō)明,都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請(qǐng)下載最新的WinRAR軟件解壓。
  • 2. 本站的文檔不包含任何第三方提供的附件圖紙等,如果需要附件,請(qǐng)聯(lián)系上傳者。文件的所有權(quán)益歸上傳用戶所有。
  • 3. 本站RAR壓縮包中若帶圖紙,網(wǎng)頁(yè)內(nèi)容里面會(huì)有圖紙預(yù)覽,若沒(méi)有圖紙預(yù)覽就沒(méi)有圖紙。
  • 4. 未經(jīng)權(quán)益所有人同意不得將文件中的內(nèi)容挪作商業(yè)或盈利用途。
  • 5. 人人文庫(kù)網(wǎng)僅提供信息存儲(chǔ)空間,僅對(duì)用戶上傳內(nèi)容的表現(xiàn)方式做保護(hù)處理,對(duì)用戶上傳分享的文檔內(nèi)容本身不做任何修改或編輯,并不能對(duì)任何下載內(nèi)容負(fù)責(zé)。
  • 6. 下載文件中如有侵權(quán)或不適當(dāng)內(nèi)容,請(qǐng)與我們聯(lián)系,我們立即糾正。
  • 7. 本站不保證下載資源的準(zhǔn)確性、安全性和完整性, 同時(shí)也不承擔(dān)用戶因使用這些下載資源對(duì)自己和他人造成任何形式的傷害或損失。

最新文檔

評(píng)論

0/150

提交評(píng)論