简单的悬臂梁APDL例子

alex_shoal

!CASE1
!2012-11-2 BY ALEX SHOAL
!EMAIL:ALEX.SHOAL@GMAIL.COM
!----------------FILE ENVIRONMENT
FINISH
/CLEAR,
/SHOW,WIN32c         ! Use /SHOW,X11C for UNIX
/CONT,1,20           
/COM, Structural
/CWD,'M:\ansys_work\ex'

/FILNAME,ex1,0

/PREP7
ET,1,SOLID187
MAT,1,
EX,1,1.3E5
NUXY,1,0.33
TB,BISO,1,
TBDATA,1,600,0

BLOCK,0,1,0,0.4,0,5,  

MAT,1
ESIZE,0.2
MSHAPE,1,3D
MSHKEY,0
VSEL,S,VOLU,,ALL
VMESH,ALL



!**************** LOAD APPLY ***************************************************
!*****apply the load
/SOLU             ! Enter SOLUTION

!  Load Step 1:
ANTYPE,0
NLGEOM,1
NSUBST,100,500,50
OUTRES,ERASE
OUTRES,ALL,ALL
TIME,1

ALLSEL,ALL
!load on pilot node


!fix BEAM
ASEL,S,AREA,,1
NSLA,S,1
CP,NEXT,UX,ALL
CP,NEXT,UY,ALL
CP,NEXT,UZ,ALL
*get,F1,node,,num,min
NSEL,S,NODE,,F1
D,ALL,ALL,0

!LOADING THE FORCE
LSEL,S,LINE,,5

NSLL,S
CP,NEXT,UY,ALL
*get,P1,node,,num,min
F,P1,FY,4


!**************** SOLVE   ******************************************************
ALLSEL,ALL
!solve
SOLVE

/POST1
PLNSOL,S,EQV,3