ex3-1.txt

ANSYS机械工程应用实例,在工程运用中很具典型代表

FINI
/CLE
/FILENAME,EX3-1,1
/TITLE,The Static Intensity Analysis of the structure
/AUX15  
IGESIN,EX3-1,IGES
VPLOT   
/VIEW,1,1,1,1   
/ANG,1
/REP,FAST
/PREP7
ET,1,SOLID45
MP,EX,1,2.1E11
MP,PRXY,1,0.3
ESIZE,0.03
VSEL,S,VOLU,,15
VSEL,A,VOLU,,23
VSEL,A,VOLU,,3
VSEL,A,VOLU,,7
VSEL,A,VOLU,,1
VSEL,A,VOLU,,9
VSEL,A,VOLU,,8
VSEL,A,VOLU,,12
VSEL,A,VOLU,,27
VSEL,A,VOLU,,22
VSEL,A,VOLU,,18
VSEL,A,VOLU,,24
VSEL,A,VOLU,,6
VSWEEP,ALL
ALLSEL,ALL
MSHKEY,0
MSHAPE,1,3D 
SMRT,6
VMESH,10
VMESH,25
VMESH,16
VMESH,13
VMESH,26
VMESH,21
/SOLU
ANTYPE,STATIC
!
FK,6,FY,100000
FK,24,FY,-100000
FK,201,FY,100000
FK,201,FZ,-8000
FK,188,FY,6000
FK,188,FZ,48000
FK,149,FY,15000
FK,149,FZ,10000
FK,183,FY,80000
FK,183,FZ,-100000
!
DA,14,ALL,0
DA,147,ALL,0
DA,7,ALL,0
DA,154,ALL,0
!
DA,77,ALL,0
DA,150,ALL,0
DA,16,ALL,0
DA,163,ALL,0
!
DA,128,ALL,0
DA,124,ALL,0
DA,133,ALL,0
DA,131,ALL,0
!
DA,78,ALL,0
DA,5,ALL,0
DA,114,ALL,0
DA,103,ALL,0
!
SAVE
SOLVE
FINISH
/POST1
PLDISP,2
/DSCALE,1,3000
/REPLOT 
PLNSOL,S,EQV
/CONTOUR,1,9,0,,200000000
/REPLOT 
FINISH
/EXIT,ALL