材料力学大作业-组合截面几何性质计算[优化].doc

Harbin Institute of Technology 材料力学电算大作业 课程名称： 材料力学 设计题目： 组合截面几何性质计算 作者院系： 作者班级： 作者姓名： 作者学号： 指导教师： 完成时间： 软件主要功能 圆形截面 圆环形截面 矩形截面 个数 n1 n2 n3 形心位置X X1(n1) X2(n2) X3(n3) 形心位置Y Y1(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，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分别是截面对形心主轴的主惯性矩 软件截图： 程序源代码 Dim n1 As Double Dim d1(10) As Double Dim X1(10) As Double Dim Y1(10) As Double Dim n2 As Double Dim d2(10) As Double Dim d3(10) As Double Dim X2(10) As Double Dim Y2(10) As Double Dim n3 As Double Dim h(10) As Double Dim d(10) As Double Dim X3(10) As Double Dim Y3(10) As Double Dim S1 As Double, S2 As Double, S3 As Double Dim X4 As Double, Y4 As Double, X5 As Double, Y5 As Double, X6 As Double, Y6 As Double Dim Xc As Double, Yc As Double Dim Ix1 As Double, Iy1 As Double, Ix2 As Double, Iy2 As Double, Ix3 As Double, Iy3 As Double, Imax As Double, Imin As Double Dim Ixy1 As Double, Ixy2 As Double, Ixy3 As Double Dim a As Double Private Sub Text1_Change() n1 = Val(Text1.Text) For i = 1 To n1 d1(i) = Val(InputBox(输入第 (i) 个圆的直径)) X1(i) = Val(InputBox(输入第 (i) 个圆的圆心的x坐标值)) Y1(i) = Val(InputBox(输入第 (i) 个圆的圆心的y坐标值)) Next i For i = 1 To n1 S1 = S1 + 3.14159 * d1(i) * d1(i) / 4 X4 = X4 + X1(i) * 3.14159 * d1(i) * d1(i) / 4 Y4 = Y4 + Y1(i) * 3.14159 * d1(i) * d1(i) / 4 Next i End Sub Private Sub Text2_Change() n2 = Val(Text2.Text) For i = 1 To n2 d2(i) = Val(InputBox(输入第 (i) 个圆环的外径)) d3(i) = Val(InputBox(输入第 (i) 个圆环的内径)) X2(i) = Val(InputBox(输入第 (i) 个圆的圆心的x坐标值))