结构屈曲失稳的知识(3)

*if,FORCE(i),ge,0,then !拉杆

RATIO=FORCE(i)/AREA(k)/FD !拉杆应力比 *elseif,FORCE(i),lt,0,then !压杆,a类截面 SLENDER=LENGTH(i)/RI(k) !长细比 d1=SLENDER/temp !相对长细比 *if,d1,le,0.215,then !稳定系数 FI=1-0.41*d1*d1 *else

d2=0.986+0.152*d1+d1*d1

FI=(d2-sqrt(d2*d2-4*d1*d1))/2/d1/d1 *endif

RATIO=FORCE(i)/AREA(k)/FD/FI !压杆应力比 *endif

TOTALMASS=TOTALMASS+AREA(k)*LENGTH(i)*7.85e-6 *VWRITE,i,k,DOUT(k),(DOUT(k)-DIN(k))/2,RATIO, (1X,F8.1,F8.1,' ',F5.1,'X',F5.1,' ',F10.4) *enddo *enddo

*VWRITE,TOTALMASS (1X,' ,'F20.4)

*LIST,STRESSRATIO,txt

!下面是boundary.txt文件

!这个文件用来社定边界条件，这个可根据情况而变化 D, 1 , UZ D, 4 , UZ D, 7 , UZ D, 10 , UZ D, 13 , UZ D, 16 , UZ D, 19 , UZ D, 22 , UZ D, 25 , UZ D, 28 , UZ D, 31 , UZ D, 125 , UZ D, 140 , UZ D, 155 , UZ D, 249 , UZ D, 264 , UZ D, 279 , UZ D, 373 , UZ D, 388 , UZ D, 403 , UZ

D, 497 , UZ D, 512 , UZ D, 527 , UZ D, 621 , UZ D, 636 , UZ D, 651 , UZ D, 745 , UZ D, 760 , UZ D, 775 , UZ D, 869 , UZ D, 872 , UZ D, 875 , UZ D, 878 , UZ D, 881 , UZ D, 884 , UZ D, 887 , UZ D, 890 , UZ D, 893 , UZ D, 896 , UZ D, 899 , UZ D, 1 , UX D, 1 , UY D, 899 , UX D, 899 , UY D, 31 , UX D, 31 , UY D, 869 , UX D, 869 , UY

!在下面是load1.txt文件，这个文件用来施加何在，如果只有屋面均布何在，前面几行就

!可以了，我这个网架还有下弦吊载，所以比较长

!------------------------------------------------------ !施加上弦节点荷载 *do,i,1,NNUP

f,i,fz,-DLOAD*DX*DY *enddo

!------------------------------------------------------ !输入自重

ACEL,0,0,11.9952, !9.8*1.02*1.2设计值

!------------------------------------------------------ !风管下弦吊载

F, 931 , FZ, -3600 F, 939 , FZ, -3600 F, 950 , FZ, -3600

F, 958 , FZ, -3600 F, 961 , FZ, -3600 F, 969 , FZ, -3600 F, 980 , FZ, -3600 F, 988 , FZ, -3600 F, 991 , FZ, -3600 F, 999 , FZ, -3600 F, 1010 , FZ, -3600 F, 1018 , FZ, -3600 F, 1021 , FZ, -3600 F, 1029 , FZ, -3600 F, 1040 , FZ, -3600 F, 1048 , FZ, -3600 F, 1051 , FZ, -3600 F, 1059 , FZ, -3600 F, 1070 , FZ, -3600 F, 1078 , FZ, -3600 F, 1081 , FZ, -3600 F, 1089 , FZ, -3600 F, 1100 , FZ, -3600 F, 1108 , FZ, -3600 F, 1111 , FZ, -3600 F, 1119 , FZ, -3600 F, 1130 , FZ, -3600 F, 1138 , FZ, -3600 F, 1141 , FZ, -3600 F, 1149 , FZ, -3600 F, 1160 , FZ, -3600 F, 1168 , FZ, -3600 F, 1171 , FZ, -3600 F, 1179 , FZ, -3600 F, 1190 , FZ, -3600 F, 1198 , FZ, -3600 F, 1201 , FZ, -3600 F, 1209 , FZ, -3600 F, 1220 , FZ, -3600 F, 1228 , FZ, -3600 F, 1231 , FZ, -3600 F, 1239 , FZ, -3600 F, 1250 , FZ, -3600 F, 1258 , FZ, -3600 F, 1261 , FZ, -3600 F, 1269 , FZ, -3600 F, 1280 , FZ, -3600

F, 1288 , FZ, -3600 F, 1291 , FZ, -3600 F, 1299 , FZ, -3600 F, 1310 , FZ, -3600 F, 1318 , FZ, -3600 F, 1321 , FZ, -3600 F, 1329 , FZ, -3600 F, 1340 , FZ, -3600 F, 1348 , FZ, -3600 F, 1351 , FZ, -3600 F, 1359 , FZ, -3600 F, 1370 , FZ, -3600 F, 1378 , FZ, -3600 F, 1381 , FZ, -3600 F, 1389 , FZ, -3600 F, 1400 , FZ, -3600 F, 1408 , FZ, -3600

!------------------------------------------------------ !电动葫芦吊车下弦荷载 F, 927, FZ, -48000 F, 1047, FZ, -48000 F, 1167, FZ, -48000 F, 1317, FZ, -48000 F, 1437, FZ, -48000

!------------------------------------------------------ !桥式吊车下弦荷载

F, 902, -21840 !最小轮压（靠边） F, 1022, -21840 F, 1142, -21840 F, 1262, -21840 F, 1382, -21840

F, 910, -89600 !最大轮压（居中） F, 1030, -89600 F, 1150, -89600 F, 1270, -89600 F, 1390, -89600

分享】网架结构特征值稳定分析与极限荷载分析的例子（转）

!------------------------------------------------------------- !典型六角星型穹顶非线性全过程分析

!可参考 沈世钊等著,《网壳结构稳定性》,科学出版社,1999,P39~P41

!此例可查看子步及弧长法之作用 !可分别打开与关闭弧长法进行计算

!------------------------------------------------------------- !建立几何模型，定义几个关键点，并利用复制命令； !线采用直接生成，没有采用拷贝等命令 /prep7 csys,1 k,1,500,30 kgen,6,1,1,,,60 k,7,250,,62.16 kgen,6,7,7,,,60 k,13,,,82.16 csys,0 *do,i,1,5,1 l,i,i+6 l,i,i+7 *enddo l,6,7 l,6,12 *do,i,7,11,1 l,i,i+1 *enddo l,12,7 *do,i,7,12,1 l,i,13 *enddo /view,1,1,1,1 /ang,1,-150,xs,1 gplot

!------------------------------ !定义单元类型、实常数及材料性质 !每根线为一个单元

!------------------------------ et,1,link8 r,1,317

mp,ex,1,3030.0 mp,prxy,1,1096/3030 lesize,all,,1 lmesh,all finish

!====================================== !这里插入了静力及特征值屈曲分析,当然可不进行了！ !/solu !*do,i,1,6,1

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库结构屈曲失稳的知识(3)在线全文阅读。