马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有账号?我要加入
x
本帖最后由 Chelsea 于 2011-3-11 15:26 编辑
- /filname,truss,1
- keyw,pr_struc,1
- /prep7
- et,1,beam4 !上、下弦梁和横梁、端斜腹梁
- et,2,link8 !其他斜腹杆、竖杆
- et,3,shell63 !桥面板
- !定义实常数
- r,1,3.0,0.25,2.25,3,1
- rmore,1e-4,1
- r,2,3.0,0.25,2.25,3,1
- rmore,0,1
- r,3,2.0,0.1667,0.6667,2,1
- rmore,0,0.6667
- r,4,1
- r,5,1,1.5e-4
- r,6,0.3
- !定义材料属性
- mp,ex,1,3.5e10
- mp,prxy,1,0.1667
- mp,dens,1,3000
- mp,ex,2,21e10
- mp,prxy,2,0.3
- mp,dens,2,3500
- r,ex,3,3.5e10
- r,prxy,3,0.1667
- mp,dens,3,2500
- mp,ex,4,3.5e10
- mp,prxy,4,0.1667
- mp,dens,4,2500
- /view,1,1,1,1
- /angle,1,270,xm,1
- /replot
- !生成二分之一节点
- n,1,0,-5,0 !下弦中节点
- ngen,4,1,1,,,12 !复制节点
- n,5,0,-5,12
- ngen,3,1,5,,,12
- nsel,all
- nsym,y,7,all
- !生成二分之一模型单元
- type,1
- mat,1
- real,1
- *do,i,1,3,1!两根下弦梁
- e,i,i+1
- *enddo
- *do,i,8,10,1
- e,i,i+1
- *enddo
- real,2
- e,5,6!上弦梁
- e,6,7
- e,12,13
- e,13,14
- e,5,12!横梁
- e,6,13
- e,7,14
- mat,2
- real,3
- e,7,4 !端斜梁
- e,14,11
- type,2
- mat,3
- real,4 !斜杆
- e,5,2
- e,2,7
- e,12,9
- e,9,14
- real,5
- *do,i,1,3,1 !竖腹杆
- e,i,i+4
- *enddo
- *do,i,8,10,1
- e,i,i+4
- *enddo
- type,3
- mat,4
- real,6
- e,1,2,9,8
- e,2,3,10,9
- e,3,4,11,10
- !生成另一半模型
- !先镜像节点
- nsel,all
- nsym,x,14,all
- !然后才能镜像单元(对称面为镜像节点时所指定的面)
- esel,all
- esym,,14,all
- !合并重复和单元,压缩编号
- allsel
- nummrg,all
- numcmp,all
- eplot
- !加载和求解
- !施加位移约束
- /solu
- nsel,s,node,,17,22,5
- d,all,all
- nsel,s,node,,4,11,7
- d,all,,,,,,uy,uz,rotx,rotz
- !施加重力场
- acel,0,0,10
- !结构施加荷载
- nsel,s,node,,1,8,7
- f,all,fz,-10000
- allsel
- !求解设置
- pstres,on !打开预应力开关
- !求解
- solve
复制代码 |