subm.inp

ANSYS 基础学习资料

finish
/clear
!
! Coarse Model
! ------------
/filnam,coarse
/show,subm,grph

! Geometry
aa=4       ! Edge length
rr=0.3     ! Hole radius
tk=1/8     ! Thickness
pp=1000    ! Pressure
/prep7
rect,,aa,,aa
pcirc,rr
asba,1,2

! Mesh
et,1,82,,,3
pval=pp
r,1,tk         ! Thickness
mpread,Al_a2024-T3,BIN_MPL,,lib
desize,,,3     ! Maximum 3 divisions per line
amesh,all   
/color,outl,black
/plopts,logo,off
eplot   

! Loading
lsel,,loc,y,0
lsel,a,loc,x,0
dl,all,,symm        ! Symmetry BC on left & bottom
lsel,,loc,x,aa
sfl,all,pres,-pval  ! Pressure on right
lsel,all

! Solution
/solu
save
solve

! Results
/graph,full
/post1
plnsol,s,x     ! SX stresses
*get,sxmax1,plnsol,,max
plesol,sdsg    ! Stress deviation error SDSG
finish


! Submodel
/filnam,sub

! Submodel geometry
/prep7
asel,none
allsel,below,area    ! Unselect everything
pcirc,rr,aa/2,,90
cm,asub,area
aplot

! Submodel mesh
et,2,82,,,3          ! Use TYPE=2 for ease of selection
type,2
desize,15,15,30,3,3  ! Minimum 15 div's per line, max 30, 3 deg/elem
amesh,all
eplot

esel,a,type,,1   ! Select elements of coarse mesh
nsle
eplot
esel,u,type,,1
nsle
/user
/device,vect,on
/noerase
eplot           ! Overlay submodel plot on coarse mesh
/erase
/device,vect,off
/auto

! Delete coarse model & mesh
asel,all
cmsel,u,asub
allsel,below,area
aclear,all
adele,all,,,1
allsel
eplot

! Submodel BC
lsel,,loc,x,0
lsel,a,loc,y,0
dl,all,,symm
lsel,all
save

! Interpolate displacements from coarse model
csys,1
nsel,,loc,x,aa/2
nwrite           ! Cut boundary nodes on sub.node
finish

/filnam,coarse
resume
/post1
set             ! Read in coarse model results
cbdof,sub,node  ! Cut boundary D's on coarse.cbdo
finish

/filnam,sub
resume
/prep7
/input,coarse,cbdo  ! Apply cut-boundary D's

! Solve submodel
/solu
save
solve

! Review submodel results
/graph,full
/post1
plnsol,s,x
*get,sxmax2,plnsol,,max
plesol,sdsg
finish