材料力學上機大作業
壓桿穩定分析及組合截面幾何性質計算
作者班號： 1208105
作者學號： 1120810529
作者姓名: 殷琪
指導教師: 張桂蓮
完成時間： 2014.6.10
1、 使用及功能介紹:
組合截面幾何性質計算：
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分別是截面對形心主軸的主慣性矩；
壓桿穩定分析：
輸入:1.截面引數輸入
圓截面—d
圓環截面—d，d
矩形截面—h，b
工字型截面—對形心軸的慣性矩iy、iz及截面面積a
2.相當長度係數、長度l
3.材料引數：e、,σp、σs;線性經驗公式係數a、b
4.工作壓力p及穩定安全係數nw
輸出：1. 繪製臨界應力總圖（圖示）
2. 臨界壓力pcr或臨界應力σcr
3. 穩定安全校核結果
2、程式
首頁：private sub command1_click()
end sub
private sub command2_click()
endend sub
private sub command3_click()
end sub
組合截面幾何性質計算：
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 command1_click()
xc = (x4 + x5 + x6) / (s1 + s2 + s3)
yc = (y4 + y5 + y6) / (s1 + s2 + s3)
text4 = xc
text5 = yc
end sub
private sub command2_click()
= vbwhite
(-max - 10, max + 10)-(max + 10, -max - 10)
(0, max + 10)-(0, -max - 10)
(max + 10, 0)-(-max - 10, 0)
= 0for i = 1 to n1 step 1
= vbblue
(x1(i), y1(i)), d1(i) / 2, vbred
next i
for i = 1 to n2 step 1
= vbgreen
(x2(i), y2(i)), d2(i) / 2, vbred
= vbwhite
(x2(i), y2(i)), d3(i) / 2, vbred
next i
for i = 1 to n3 step 1
= vbred
(x3(i) - d(i) / 2, y3(i) - h(i) / 2)-(x3(i) + d(i) / 2, y3(i) + h(i) / 2), vbred, bf
next i
end sub
private sub command3_click()
for i = 1 to n1
ix1 = ix1 + 3.14159 * d1(i) * d1(i) * d1(i) * d1(i) / 64 + (y1(i) - yc) * (y1(i) - yc) * 3.14159 * d1(i) * d1(i) / 4
iy1 = iy1 + 3.14159 * d1(i) * d1(i) * d1(i) * d1(i) / 64 + (x1(i) - xc) * (x1(i) - xc) * 3.14159 * d1(i) * d1(i) / 4
ixy1 = ixy1 + (x1(i) - xc) * (y1(i) - yc) * 3.14159 * d1(i) * d1(i) / 4
next i
for i = 1 to n2
ix2 = ix2 + 3.14159 * (d2(i) * d2(i) * 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)) / 4
iy2 = 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)) / 4
ixy2 = ixy2 + (x2(i) - xc) * (y2(i) - yc) * 3.14159 * (d2(i) * d2(i) - d3(i) * d3(i)) / 4
next i
for i = 1 to n3
ix3 = 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)
next i
imax = (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 = (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 = imax
text7 = imin
if ix <> iy then
a = * (ixy1 + ixy2 + ixy3) / (ix1 + ix2 + ix3 - iy1 - iy2 - iy3)) / 2
(xc, yc)-(xc + 20, yc + 20 * tan(a)), vbgreen
(xc, yc)-(xc - 20 * tan(a), yc + 20), vbgreen
else
(xc, yc)-(xc, yc + 20), vbgreen
(xc, yc)-(xc + 20, yc), vbgreen
end if
end sub
private sub command4_click()
= ""
哈工大材料力學上機實驗課作業
scanf f e e 1.e9 printf 請輸入所求端麵到左端麵a的距離x n scanf f x x 1000 printf 請輸入梁的截面形狀 圓柱面 1,矩形梁 2,工字梁 3,空心圓柱梁 4 n scanf d kind i get i kind 計算慣性矩 b l a m f x 計...
哈工大材料力學上機實驗報告
harbin institute of technology 材料力學上機報告 組合截面幾何性質計算 學院 班級 姓名 學號 1 實驗要求 1.程式實現功能 組合截面幾何性質計算 2.輸入 1 各幾何圖形形狀 圓形 圓環 矩形 及個數 2 截面引數輸入 形狀 尺寸及位置 圓截面 d，圓心位置 圓環截...
哈工大材料力學上機大作業四 繪製梁的剪力彎矩圖
harbin institute of technology 材料力學上機作業 課程名稱 材料力學 設計題目 繪製梁的剪力彎矩圖 院系 班級分析者 學號指導教師 設計時間 哈爾濱工業大學 材料力學上機課設計說明書 一，設計題目 題目4 繪製梁的剪力彎矩圖 輸入 1.梁的總長度l 2.支撐條件及量的各...
哈工大2019年春季學期期中材料力學試題
試題 注意 本試題滿分25分 一 4分 已知，試作梁的剪力 彎矩圖。二 4分 矩形截面細長懸臂梁如圖所示。試求a b c三點的應力，並用單元體分別表示這三點的應力狀態。三 4分 外徑，內徑，長的空心圓軸，承受分布集度為的均勻分布外力偶作用。若材料的切變模量為，試求 1 圓軸的最大切應力 2 整個圓軸...
哈工大材料力學2019年春期末考試試卷
1.圖示結構，受力如圖，各段材料相同，均為優質碳鋼，橫樑的抗彎剛度為 杆的抗拉壓剛度為,其中。要求 1 求杆的內力 2 若，梁的慣性矩，抗彎截面模量，材料許用應力。杆橫截面為正方形，其邊長為，材料的，規定的穩定安全係數。試確定許可載荷。2.圖示剛架，各段材料 直徑 長度均相同，一總重量的重物，在高度...