以下是改进后的命令流:
finish
/clear,all
/filn, meshing-new, 1
!*
/prep7
!*
et,1,solid45
!*
MPTEMP,
MPTEMP,1,0
MPDATA,EX,1,210000
MPDATA,PRXY,1,0.3
!*
cyl4,3,10
!*
wpoffs,5
sph4,4,2
vsbv,1,2
nummrg,all
!*
FLST,2,2,3,ORDE,2
FITEM,2,13
FITEM,2,-14
KWPAVE,P51X
!*
VSBW, 3
LPLOT
!*
wpro,90.000000
!*
FLST,2,2,6,ORDE,2
FITEM,2,1
FITEM,2,-2
VSBW,P51X
!*
LPLOT
!*
FLST,2,3,6,ORDE,2
FITEM,2,4
FITEM,2,-6
VDELE,P51X, , ,1
!*
wpro,90.000000,
numcmp,all
!*
VGEN, , 1, , , , ,-5, , ,1
!*
WPSTYLE,0
!*
!*
ADRAG, 5, , , , , , 3
!*
LPLOT
VSBA, 1, 7
!*</