搜索
/TITLE,Mechanicalanalysisonrailwaytunnel2ndlining!确定分析标题/NOPR!菜单过滤设置/PMETH,OFF,0KEYW,PR_SET,1KEYW,PR_STRUC,1!保留结构分析部分菜单/COM,/COM,PreferencesforGUIfilteringhavebeensettodisplay:/COM,Structural/PREP7!进入前处理器ET,1,BEAM3!设置梁单元类型ET,2,COMBIN14!设置弹簧单元类型R,1,0.4,0.0053333,0.4,,,,!设置梁单元几何常数R,2,400e6,,,!设置弹簧单元几何常数MPTEMP,,,,,,,,!设置材料模型MPTEMP,1,0MPDATA,EX,1,,30.0e9!输入弹性模量MPDATA,PRXY,1,,0.2!输入泊松比MPTEMP,,,,,,,,!设置材料模型MPTEMP,1,0MPDATA,DENS,1,,2500!输入密度SAVE!保存数据库K,1,,,,!创建关键点（隧道二次衬砌）K,2,4.71,-1.82,,K,3,-4.71,-1.82,,K,4,0,-3.75,,K,5,0,5.05,,K,20,5.6,-2.162,,!创建关键点（地层弹簧）K,30,-5.6,-2.16,,K,40,0,-4.75,,K,50,0,6,,!创建隧道衬砌线LARC,2,5,1,5.05,!创建圆弧线（拱顶部）LARC,5,3,1,5.05,LARC,2,3,4!创建圆弧线（仰拱部）!创建地层弹簧线LARC,20,50,1,6,!创建圆弧线（拱顶部）LARC,50,30,1,6,LARC,20,30,40!创建圆弧线（仰拱部）!HPTCREATE,TYPE,ENTITY,NHP,LABEL,VAL1,VAL2,VAL3!HPTCREATE,LINE,3,444,COORD,0,-3.75,,!HPTCREATE,LINE,2,445,COORD,-4.71,-1.82,,!HPTCREATE,LINE,1,446,COORD,4.71,-1.82,,SAVE!保存数据LESIZE,ALL,,,10,,1,,,1,!设置单元大小,每条弧线划分成10个单元TYPE,1!设置将要创建单元的类型MAT,1!设置将要创建单元的材料REAL,1!设置将要创建单元的几何常数LMESH,1,6,1!将所有直线划分单元/PNUM,KP,0!以下为显示单元编号和颜色/PNUM,ELEM,1/REPLOT!重新显示SAVETYPE,2!设置将要创建单元的类型MAT,1!设置将要创建单元的材料REAL,2!设置将要创建单元的几何常数E,1,31!通过两个节点创建弹簧单元E,2,32E,3,33E,4,34E,5,35E,6,36E,7,37E,8,38E,9,39E,10,40E,11,41E,12,42E,13,43E,14,44E,15,45E,16,46E,17,47E,18,48E,19,49E,20,50E,21,51E,22,52E,23,53E,24,54E,25,55E,26,56E,27,57E,28,58E,29,59E,30,60Lclear,4,6,1!清除用于创建地层弹簧单元的外层梁单元LDELE,4,6,1,1!删除外层直线Finish!返回MainMenu主菜单/SOL!进入求解器d,31,ux,0,0,60,1,uy,!在“Ux”和“Uy”两个方向的施加约束ACEL,0,10,0,!在Y方向施加重力加速度F,2,Fx,0!在节点上施加X方向集中力F,13,Fx,43554.43356F,14,Fx,86574.64508F,15,Fx,128464.6048F,16,Fx,168285.8813F,17,Fx,204799.5937F,18,Fx,236448.4444F,19,Fx,261396.9365F,20,Fx,277795.0781F,21,Fx,283894.0611F,12,Fx,247397.3915F,30,Fx,190308.0663F,29,Fx,149683.6899F,28,Fx,103226.8339F,27,Fx,52665.0399F,26,Fx,0F,25,Fx,-52665.0399F,24,Fx,-103226.8339F,23,Fx,-149683.6899F,22,Fx,-190308.0663F,1,Fx,-247397.3915F,3,Fx,-283894.0611F,4,Fx,-277795.0781F,5,Fx,-261396.9365F,6,Fx,-236448.4444F,7,Fx,-204799.5937F,8,Fx,-168285.8813F,9,Fx,-128464.6048F,10,Fx,-86574.64508F,11,Fx,-43554.43356F,2,Fy,-449636.88!在节点上施加Y方向集中力F,13,Fy,-441210F,14,Fy,-416229.66F,15,Fy,-375629.1F,16,Fy,-320951.4F,17,Fy,-254238.6F,18,Fy,-178008.6F,19,Fy,-95102.7F,20,Fy,0F,21,Fy,82772.64F,12,Fy,259324.92F,30,Fy,413398.46F,29,Fy,454320.04F,28,Fy,484308F,27,Fy,502604.08F,26,Fy,508719.08F,25,Fy,502604.08F,24,Fy,484308F,23,Fy,454320.04F,22,Fy,413398.46F,1,Fy,259324.92F,3,Fy,82772.64F,4,Fy,0F,5,Fy,-95102.7F,6,Fy,-178008.6F,7,Fy,-254238.6F,8,Fy,-320951.4F,9,Fy,-375629.1F,10,Fy,-416229.66F,11,Fy,-441210SaveNROPT,FULL,,!采用全牛顿－拉普森法进行求解Allsel!选择所有内容Outres,all,all!输出所有内容Solve!求解计算Finish!求解结束返回MainMenu主菜单SAVE/POST1!进入后处理器PLDISP,1!绘制变形和未变形图