1、.usauiuiuu|lll|iii;iiHanunE：.HarbinInstituteofTechnology材料力學(xué)電算大作業(yè)課程名稱：材料力學(xué)設(shè)計題目：組合截面幾何性質(zhì)計算作者院系：作者班級：作者姓名：作者學(xué)號：扌旨導(dǎo)教師：完成時間：一、軟件主要功能圓形截面圓環(huán)形截面矩形截面?zhèn)€數(shù)n1n2n3形心位置XXl(nl)X2(n2)X3(n3)形心位置YYl(nl)Y2(n2)Y3(n3)尺寸大小dl(nl)d2(n2),d3(n2)h(n3),d(n3)S1,S2,S3分別是n1個圓形截面，n2個圓環(huán)形截面，n3個矩形截面的面積X4，X5，X6分別是n1個圓形截面，n2個圓環(huán)形截面，n3個矩形

2、截面的形心位置X與面積的乘積Y4，Y5，Y6分別是n1個圓形截面，n2個圓環(huán)形截面，n3個矩形截面的形心位置Y與面積的乘積Xc,Yc是總截面的形心坐標(biāo)Ixl,Ix2,Ix3分別是n1個圓形截面，n2個圓環(huán)形截面，n3個矩形截面對通過形心且與x軸平行的軸的慣性矩Iyl,Iy2,Iy3分別是n1個圓形截面，n2個圓環(huán)形截面，n3個矩形截面對通過形心且與y軸平行的軸的慣性矩Ixy1,Ixy2,Ixy3分別是n1個圓形截面，n2個圓環(huán)形截面，n3個矩形截面對通過形心且與x,y軸平行的兩軸的慣性積a是通過形心的主軸與x軸的夾角Imax,Imin分別是截面對形心主軸的主慣性矩軟件截圖：二、程序源代碼Dim

3、n1AsDoubleDimd1(10)AsDoubleDimX1(10)AsDoubleDimY1(10)AsDoubleDimn2AsDoubleDimd2(10)AsDoubleDimd3(10)AsDoubleDimX2(10)AsDoubleDimY2(10)AsDoubleDimn3AsDoubleDimh(10)AsDoubleDimd(10)AsDoubleDimX3(10)AsDoubleDimY3(10)AsDoubleDimS1AsDouble,S2AsDouble,S3AsDoubleDimX4AsDouble,Y4AsDouble,X5AsDouble,Y5AsDoub

4、le,X6AsDouble,Y6AsDoubleDimXcAsDouble,YcAsDoubleDimIx1AsDouble,Iy1AsDouble,Ix2AsDouble,Iy2AsDouble,Ix3AsDouble,Iy3AsDouble,ImaxAsDouble,IminAsDoubleDimIxy1AsDouble,Ixy2AsDouble,Ixy3AsDoubleDimaAsDoublePrivateSubText1_Change()n1=Val(Text1.Text)Fori=1Ton1dl(i)=Val(InputBox(輸入第&(i)&個圓的直徑)Xl(i)=Val(Inpu

5、tBox(輸入第&(i)&個圓的圓心的x坐標(biāo)值)Y1(i)=Val(InputBox(輸入第&(i)&個圓的圓心的y坐標(biāo)值)NextiTOC o 1-5 h zFori=1Ton1=S1+3.14159*d1(i)*d1(i)/4X4=X4+X1(i)*3.14159*d1(i)*d1(i)/4Y4=Y4+Y1(i)*3.14159*d1(i)*d1(i)/4NextiEndSubPrivateSubText2_Change()n2=Val(Text2.Text)Fori=1Ton2d2(i)=Val(InputBox(輸入第&(i)&個圓環(huán)的外徑)d3(i)=Val(InputBox(輸入第

6、&(i)&個圓環(huán)的內(nèi)徑)X2(i)=Val(InputBox(輸入第&(i)&個圓的圓心的x坐標(biāo)值)Y2(i)=Val(InputBox(輸入第&(i)&個圓的圓心的y坐標(biāo)值)NextiTOC o 1-5 h zFori=1Ton2=S2+3.14159*(d2(i)*d2(i)-d3(i)*d3(i)/4X5=X5+X2(i)*3.14159*(d2(i)*d2(i)-d3(i)*d3(i)/4Y5=Y5+Y2(i)*3.14159*(d2(i)*d2(i)-d3(i)*d3(i)/4NextiEndSubPrivateSubText3_Change()n3=Val(Text3.Text)F

7、ori=1Ton3h(i)=Val(InputBox(輸入第&(i)&個矩形的高)d(i)=Val(InputBox(輸入第&(i)&個矩形的寬)X3(i)=Val(InputBox(輸入第&(i)&個矩形形心的x坐標(biāo)值)Y3(i)=Val(InputBox(輸入第&(i)&個矩形形心的y坐標(biāo)值)NextiFori=1Ton3S3=S3+h(i)*d(i)X6=X6+X3(i)*h(i)*d(i)Y6=Y6+Y3(i)*h(i)*d(i)NextiEndSubPrivateSubCommand1_Click()Xc=(X4+X5+X6)/(S1+S2+S3)Yc=(Y4+Y5+Y6)/(S1+

8、S2+S3)Text4=XcText5=YcEndSubPrivateSubCommand2_Click()Picture1.BackColor=vbWhitePicture1.Scale(-Max-10,Max+10)-(Max+10,-Max-10)Picture1.Line(0,Max+10)-(0,-Max-10)Picture1.Line(Max+10,0)-(-Max-10,0)Picture1.FillStyle=0Fori=1Ton1Step1Picture1.FillColor=vbBluePicture1.Circle(X1(i),Y1(i),d1(i)/2,vbRedNe

9、xtiFori=1Ton2Step1Picture1.FillColor=vbGreenPicture1.Circle(X2(i),Y2(i),d2(i)/2,vbRedPicture1.FillColor=vbWhitePicture1.Circle(X2(i),Y2(i),d3(i)/2,vbRedNextiFori=1Ton3Step1Picture1.FillColor=vbRedPicture1.Line(X3(i)-d(i)/2,Y3(i)-h(i)/2)-(X3(i)+d(i)/2,Y3(i)+h(i)/2),vbRed,BFNextiEndSubPrivateSubComman

10、d3_Click()Fori=1Ton1Ix1=Ix1+3.14159*d1(i)*d1(i)*d1(i)*d1(i)/64+(Y1(i)-TOC o 1-5 h zYc)*(Y1(i)-Yc)*3.14159*d1(i)*d1(i)/4Iy1=Iy1+3.14159*d1(i)*d1(i)*d1(i)*d1(i)/64+(X1(i)-Xc)*(X1(i)-Xc)*3.14159*d1(i)*d1(i)/4Ixy1=Ixy1+(X1(i)-Xc)*(Y1(i)-Yc)*3.14159*d1(i)*d1(i)/4NextiFori=1Ton2Ix2=Ix2+3.14159*(d2(i)*d2(i

11、)*d2(i)*d2(i)-d3(i)*d3(i)*d3(i)*d3(i)/64+(Y2(i)-Yc)*(Y2(i)-Yc)*3.14159*(d2(i)*d2(i)-d3(i)*d3(i)/4Iy2=Iy2+3.14159*(d2(i)*d2(i)*d2(i)*d2(i)-d3(i)*d3(i)*d3(i)*d3(i)/64+(X2(i)-Xc)*(X2(i)-Xc)*3.14159*(d2(i)*d2(i)-d3(i)*d3(i)/4Ixy2=Ixy2+(X2(i)-Xc)*(Y2(i)-Yc)*3.14159*(d2(i)*d2(i)-d3(i)*d3(i)/4NextiFori=1To

12、n3Ix3=Ix3+h(i)*h(i)*h(i)*d(i)/12+(Y3(i)-Yc)*(Y3(i)-Yc)*h(i)*d(i)Iy3=Iy3+d(i)*d(i)*d(i)*h(i)/12+(X3(i)-Xc)*(X3(i)-Xc)*h(i)*d(i)Ixy3=Ixy3+(X3(i)-Xc)*(Y3(i)-Yc)*h(i)*d(i)NextiImax=(Ix1+Ix2+Ix3+Iy1+Iy2+Iy3)/2+Sqr(Ix1+Ix2+Ix3-Iy1-Iy2-Iy3)*(Ix1+Ix2+Ix3-Iy1-Iy2-Iy3)/4+(Ixy1+Ixy2+Ixy3)*(Ixy1+Ixy2+Ixy3)Imin=

13、(Ix1+Ix2+Ix3+Iy1+Iy2+Iy3)/2-Sqr(Ix1+Ix2+Ix3-Iy1-Iy2-Iy3)*(Ix1+Ix2+Ix3-Iy1-Iy2-Iy3)/4+(Ixy1+Ixy2+Ixy3)*(Ixy1+Ixy2+Ixy3)Text6=ImaxText7=IminIfIxIyThena=Math.Atn(-2*(Ixy1+Ixy2+Ixy3)/(Ix1+Ix2+Ix3-Iy1-Iy2-Iy3)/2Picture1.Line(Xc,Yc)-(Xc+20,Yc+20*Tan(a),vbGreenPicture1.Line(Xc,Yc)-(Xc-20*Tan(a),Yc+20),vbGreenElsePicture1.Line(Xc,Yc)-(Xc,Yc+20),vbGreenPicture1.Line(Xc,Yc)-(Xc+20,Yc),vbGreenEndIfEndSub程序見 HYPERLINK /share/link?shareid=734076929&uk=100682977 /share/l