资源描述：
《材料力学大作业-组合截面几何性质计算》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。
1、HarbinInstituteofTechnology材料力学电算大作业课程名称：材料力学设计题目：组合截面几何性质计算作者院系：作者班级：作者姓名：作者学号：指导教师：完成时间：一、软件主要功能圆形截面圆环形截面矩形截面个数n1n2n3形心位置XX1(n1)X2(n2)X3(n3)形心位置YY1(n1)Y2(n2)Y3(n3)尺寸大小d1(n1)d2(n2),d3(n2)h(n3),d(n3)S1,S2,S3分别是n1个圆形截面，n2个圆环形截面，n3个矩形截面的面积X4，X5，X6分别是n1个圆形截面，n2个圆环形截面，n3个矩形截面的形心位置X与面积的乘积Y4
2、，Y5，Y6分别是n1个圆形截面，n2个圆环形截面，n3个矩形截面的形心位置Y与面积的乘积Xc,Yc是总截面的形心坐标Ix1,Ix2,Ix3分别是n1个圆形截面，n2个圆环形截面，n3个矩形截面对通过形心且与x轴平行的轴的惯性矩Iy1,Iy2,Iy3分别是n1个圆形截面，n2个圆环形截面，n3个矩形截面对通过形心且与y轴平行的轴的惯性矩Ixy1,Ixy2,Ixy3分别是n1个圆形截面，n2个圆环形截面，n3个矩形截面对通过形心且与x,y轴平行的两轴的惯性积a是通过形心的主轴与x轴的夹角Imax,Imin分别是截面对形心主轴的主惯性矩软件截图：二、程序源代码Dimn1
3、AsDoubleDimd1(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,X5AsDou
4、ble,Y5AsDouble,X6AsDouble,Y6AsDoubleDimXcAsDouble,YcAsDoubleDimIx1AsDouble,Iy1AsDouble,Ix2AsDouble,Iy2AsDouble,Ix3AsDouble,Iy3AsDouble,ImaxAsDouble,IminAsDoubleDimIxy1AsDouble,Ixy2AsDouble,Ixy3AsDoubleDimaAsDoublePrivateSubText1_Change()n1=Val(Text1.Text)Fori=1Ton1d1(i)=Val(InputBox("输
5、入第"&(i)&"个圆的直径"))X1(i)=Val(InputBox("输入第"&(i)&"个圆的圆心的x坐标值"))Y1(i)=Val(InputBox("输入第"&(i)&"个圆的圆心的y坐标值"))NextiFori=1Ton1S1=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(In
6、putBox("输入第"&(i)&"个圆环的外径"))d3(i)=Val(InputBox("输入第"&(i)&"个圆环的内径"))X2(i)=Val(InputBox("输入第"&(i)&"个圆的圆心的x坐标值"))Y2(i)=Val(InputBox("输入第"&(i)&"个圆的圆心的y坐标值"))NextiFori=1Ton2S2=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
7、)-d3(i)*d3(i))/4NextiEndSubPrivateSubText3_Change()n3=Val(Text3.Text)Fori=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
