材料力学大作业-组合截面几何性质计算

1、.usauiuiuu|lll|iii;iiHanunE：.HarbinInstituteofTechnology材料力学电算大作业课程名称：材料力学设计题目：组合截面几何性质计算作者院系：作者班级：作者姓名：作者学号：扌旨导教师：完成时间：一、软件主要功能圆形截面圆环形截面矩形截面个数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个圆环形截面，n3个矩形截面的面积X4，X5，X6分别是n1个圆形截面，n2个圆环形截面，n3个矩形

2、截面的形心位置X与面积的乘积Y4，Y5，Y6分别是n1个圆形截面，n2个圆环形截面，n3个矩形截面的形心位置Y与面积的乘积Xc,Yc是总截面的形心坐标Ixl,Ix2,Ix3分别是n1个圆形截面，n2个圆环形截面，n3个矩形截面对通过形心且与x轴平行的轴的惯性矩Iyl,Iy2,Iy3分别是n1个圆形截面，n2个圆环形截面，n3个矩形截面对通过形心且与y轴平行的轴的惯性矩Ixy1,Ixy2,Ixy3分别是n1个圆形截面，n2个圆环形截面，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坐标值)Y1(i)=Val(InputBox(输入第&(i)&个圆的圆心的y坐标值)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)&个圆环的外径)d3(i)=Val(InputBox(输入第

6、&(i)&个圆环的内径)X2(i)=Val(InputBox(输入第&(i)&个圆的圆心的x坐标值)Y2(i)=Val(InputBox(输入第&(i)&个圆的圆心的y坐标值)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坐标值)Y3(i)=Val(InputBox(输入第&(i)&个矩形形心的y坐标值)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