用梁单元计算简支梁.txt

Ansys专题教程

!********************************************************************************
!			这是一个真正的梁单元计算简支梁的例子			*
!										*
!				2000.3.8完成					*
!********************************************************************************
!先定义接点（其中第四点是为定义梁截面方向而设的）
/PREP7  
K, ,,,, 
K, ,400,,,  
K, ,800,,,  
K, ,1400,100,,   	!在梁‘体’外，显示接点误差较小，如1400为400则误差很大。
!连线
LSTR,       1,       2  
LSTR,       2,       3  
!*  
!定义单元类型
ET,1,BEAM188
!*  
!定义材料属性
UIMP,1,EX, , ,1e5,  
UIMP,1,NUXY, , ,0.3,  
!
!*定义截面形状（MM>SECTIONS>-BEAM-COMMON SECTIONS) 
!
SECTYPE,   1, BEAM, RECT,   
SECOFFSET, CENT 
SECDATA,50,20,0,0,0,0,0,0,0,0   
!
!
!定义梁截面方向
!
FLST,5,2,4,ORDE,2   
FITEM,5,1   
FITEM,5,-2  
CM,_Y,LINE  
LSEL, , , ,P51X 
CM,_Y1,LINE 
CMSEL,S,_Y  
!*  
!*  
CMSEL,S,_Y1 
LATT,1, ,1, ,       4, ,1   
CMSEL,S,_Y  
CMDELE,_Y   
CMDELE,_Y1  
!*  
!分网
!*  
FLST,5,2,4,ORDE,2   
FITEM,5,1   
FITEM,5,-2  
CM,_Y,LINE  
LSEL, , , ,P51X 
CM,_Y1,LINE 
CMSEL,,_Y   
!*  
LESIZE,_Y1, , ,50, , , , ,1 
CMDELE,_Y   
CMDELE,_Y1  
!*  
FLST,2,2,4,ORDE,2   
FITEM,2,1   
FITEM,2,-2  
LMESH,P51X  
/UI,MESH,OFF
!*  
!*  
!显示梁截面 
!*  
!*  
!*  
/SHRINK,0   
/ESHAPE,1.0 
/EFACET,1   
/RATIO,1,1,1
/REPLOT 
!*  
!*  
!*  
!加约束边界条件  
!
!* 约束  
!
FINISH  
/SOLU   
FLST,2,1,3,ORDE,1   
FITEM,2,1   
!*  
/GO 
DK,P51X, , , ,0,UX,UY,UZ, , , , 
FLST,2,1,3,ORDE,1   
FITEM,2,3   
!*  
/GO 
DK,P51X, , , ,0,UY,UZ, , , , ,  
!
!加载
!
FLST,2,1,3,ORDE,1   
FITEM,2,2   
!*  
/GO 
FK,P51X,FY,-1000
!
!求解
!
/STATUS,SOLU
SOLVE   
!
!显示应力分布云图
!
FINISH  
/POST1  
/EFACE,1
AVPRIN,0,0, 
!*  
PLNSOL,S,1,0,1