如下为命令流,可直接**进Mechanical APDL中查看(大概需要10分钟计算时间)。
也可对逐条命令进行学习。
finish
/clear
!model
r=0.1
h=0.04
hjkd=0.01
!************
v=10
rg=1e9
hanjiequanshu=10
!function
wgds=36
jxwgs=r/hjkd
jgsj=10/v
chengshu=5
/prep7
ET,1,SOLID70
MPTEMP,,,,,,,,
MPTEMP,1,0
MPDATA,DENS,1,,7850
MPTEMP,,,,,,,,
MPTEMP,1,0
MPDATA,C,1,,480
MPTEMP,,,,,,,,
MPTEMP,1,0
MPDATA,KXX,1,,48
NUMCMP,ALL
CYL4, , ,r, , , ,h
wpro,,,30.000000
wpro,,,30.000000
wpro,,,30.000000
VSBW, all
wpro,,30.000000,
wpro,,30.000000,
wpro,,30.000000,
VSBW, all
FLST,5,8,4,ORDE,4
FITEM,5,15
FITEM,5,-18
FITEM,5,20
FITEM,5,-23
CM,_Y,LINE
LSEL, , , ,P51X
CM,_Y1,LINE
CMSEL,,_Y
!*
LESIZE,_Y1, , ,jxwgs, , , , ,0
!*
FLST,5,5,4,ORDE,5
FITEM,5,9
FITEM,5,-10
FITEM,5,13
FITEM,5,-14
FITEM,5,19
CM,_Y,LINE
LSEL, , , ,P51X
CM,_Y1,LINE
CMSEL,,_Y
!*
LESIZE,_Y1, , ,chengshu, , , , ,0
!*
FLST,5,8,4,ORDE,2
FITEM,5,1
FITEM,5,-8
CM,_Y,LINE
LSEL, , , ,P51X
CM,_Y1,LINE
CMSEL,,_Y
!*
LESIZE,_Y1, , ,wgds, , , , ,0
!*
!*
!*
VCLEAR,4
VSWEEP,4,3,16
!*
!*
VSWEEP,6,16,19
!*
!*
VSWEEP,5,19,4
!*
!*
VSWEEP,1,4,3
!*
/solu
ANTYPE,4
TRNOPT,FULL
LUMPM,0
TUNIF,20,
ASEL,S,EXT
SFA,all,1,CONV,20,20
CSYS,1
*do,n,1,hanjiequanshu,1
*do,i,1,36,1
BFDELE,all,HGEN
TIME,jgsj*I+360/v*(n-1)
NSUBST,4,4,4
NSEL,S,LOC,Z,h
NSEL,R,LOC,Y,10*(i-1),10*i
NSEL,R,LOC,X,hjkd*(n-1),hjkd*n
BF,all,HGEN,rg
nplot
alls
solve
*enddo
*enddo
FINISH
/POST1
!*
EFACET,1
PLNSOL,TEMP,,O