結构工程专业非线性作业.docVIP

问题描述：如下图所示一矩形截面的细长梁，，分别用材料线性和材料非线性对该结构进行分析，求得在线形和非线性下的和变形图以及弯矩，剪力图。 /TITLE,Mechanical analysis on three spans continuum beam ! 确定分析标题 /NOPR !菜单过滤设置 /PMETH,OFF,0 KEYW,PR_SET,1 KEYW,PR_STRUC,1 /COM, /COM,Preferences for GUI filtering have been set to display: /COM, Structural !只要结构分析部分菜单 !* /PREP7 !* 进入前处理器 ET,1,BEAM3 !设置梁单元类型 R,1,0.18,0.0054,0.6, , , , !设置几何常数 MPTEMP,,,,,,,, !设置材料模型 MPTEMP,1,0 MPDATA,EX,1,,30e9 !输入弹性模量 MPDATA,PRXY,1,,0.2 !输入泊松比 MPTEMP,,,,,,,, MPTEMP,1,0 MPDATA,DENS,1,,2500 !输入密度 !* SAVE !保存数据库 K,1,0,0,0, !创建关键点 K,2,8,0,0, K,3,20,0,0, K,4,28,0,0, /REP,FAST /PNUM,KP,1 !显示关键点号 LSTR, 1, 2 !创建直线 LSTR, 2, 3 LSTR, 3, 4 SAVE LESIZE,ALL,1, , , ,1, , ,1, !设置单元大小 FLST,2,3,4,ORDE,2 FITEM,2,1 FITEM,2,-3 LMESH,P51X !划分网格 /PNUM,ELEM,1!显示单元内容 /REPLOT SAVE FINISH /SOL FLST,2,1,3,ORDE,1 FITEM,2,1 /GO DK,P51X, ,0, ,0,UX,UY, , , , , !施加关键点位移约束 FLST,2,3,3,ORDE,2 FITEM,2,2 FITEM,2,-4 /GO DK,P51X, ,0, ,0,UY, , , , , , FLST,2,1,1,ORDE,1 FITEM,2,16 FLST,2,7,1,ORDE,2 FITEM,2,3 FITEM,2,-9 /GO F,P51X,FY,-20000 !施加节点力 FLST,2,2,1,ORDE,2 FITEM,2,1 FITEM,2,-2 /GO F,P51X,FY,-10000 FLST,2,1,1,ORDE,1 FITEM,2,16 /GO F,P51X,FY,-100000 /STATUS,SOLU SOLVE !求解 FINISH /POST1 PLDISP,1!绘制变形图 AVPRIN,0, , ETABLE, ,SMISC, 6 !单元表数据设置 AVPRIN,0, , ETABLE, ,SMISC, 12 AVPRIN,0, , ETABLE, ,SMISC,2 AVPRIN,0, , ETABLE, ,SMISC, 8 AVPRIN,0, , ETABLE, ,SMISC, 1 AVPRIN,0, , ETABLE, ,SMISC, 7 PLLS,SMIS6,SMIS12,-1,0 !绘制内力图 PLLS,SMIS2,SMIS8,1,0 PLLS,SMIS1,SMIS7,1,0 SAVE Finish /SOLU !再一次进入求解器 ACEL,0,10,0, !施加重力加速度 /STATUS,SOLU SOLVE !求解 FINISH /POST1 !进入后处理器 PLDISP,1 !绘制变形图 ETABLE,REFL !更新 PLLS,SMIS6,SMIS12,-1,0 !绘制弯矩图 PLLS,SMIS2,SMIS8,1,0 !绘制剪力图 SAVE FINISH 弯矩图 Y方向剪力图 2.非线性分析命令流及部分结果 /TITLE,Mechanical analysis on three spans continuum beam