!第1章 大型有限元软件ANSYS简介
!（三跨连续梁受力分析ANSYS命令流程序）
!采用记事本进行编辑，其文件名为CH1Examp1.txt，其命令流程序如下：
!1． 定义基本参数
/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 !保存数据库
!2． 建立有限元模型
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
!3． 加载与求解
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 
　　!4． 进入后处理
/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
　　!5． 考虑自重的内力和变形分析
/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 
/EXIT,ALL   !退出并保存所有的数据