ws2a.inp

来自「ANSYS 基础学习资料」· INP 代码 · 共 100 行

! ANSYS 5.7 Intro Part 1 - Workshop 2a

fini
/clear,start

/NOPR
/PMETH,OFF,0
KEYW,PR_SET,1
KEYW,PR_STRUC,1
KEYW,PR_THERM,0
KEYW,PR_FLUID,0
KEYW,PR_MULTI,0
/GO

/TITLE, Lathe Cutter

/AUX15
IOPTN,IGES,ALTERNATE
!*
IOPTN,MERGE,YES
IOPTN,SOLID,YES
IOPTN,SMALL,YES
IOPTN,GTOLER, DEFA
IGESIN,cutter,igs

/VIEW,1,-2,2,3
VPLOT

/PREP7

! convert cm to inches
VLSCAL,all,,,1/2.54,1/2.54,1/2.54, ,0,1
VPLOT

/INPUT,cutter-area,inp
! create a small area for pressure loading at tip
!KWPLAN,-1,14,12,13
!WPOFF,0,0,-1/5
!ASBW,22
!WPSTYLE,,,,,,,,0
!/VIEW,1,-2,2,3
!/PNUM,AREA,1
!APLOT

ET,1,SOLID92
UIMP,1,EX, , ,1e7

SMRT,4
MSHAPE,1,3D
MSHKEY,0

VMESH,ALL
/VIEW,1,-2,2,3
eplot

!/ui,copy,save, jpeg,graph,color,reverse,portrait
!/sys,rename cutter000.jpg cuttere.jpg
FINISH  

/SOLU   
! use area "symmetry" to restrain attachment region
FLST,2,4,5,ORDE,4
FITEM,2,18  
FITEM,2,-19 
FITEM,2,25  
FITEM,2,-26 
DA,P51X,SYMM

! pressure load at tip
FLST,2,1,5,ORDE,1
FITEM,2,1
SFA,P51X,1,PRES,10000
!SFA,P51X,1,PRES,15986

! iterative solver already set
SOLVE
FINISH

/POST1
/title,Lathe Cutter - with AREA SYMMETRY constraint at hole
PLNSOL,S,EQV,0,1
/eof

! solve again with altered restraints
/SOLU
DADELE,ALL,ALL

! fewer areas- all dof fixed
FLST,2,3,5,ORDE,3
FITEM,2,18
FITEM,2,-19
FITEM,2,26
DA,P51X,ALL
SOLVE
FINISH

/POST1
/title,Lathe Cutter - with ALL DOF constraint on areas at hole
PLNSOL,S,EQV,0,1