程序流如下:
/BATCH
! /COM,ANSYS RELEASE 8.1 UP20040329 09:42:13 07/07/2005
!*
/CWD,'D:\Ansys8.0\050707\lze'
/PREP7
K,1,1.15,1,,
! /AUTO,1
! /REP,FAST
! KPLOT
! /DIST,1,1.08222638492,1
! /REP,FAST
! /DIST,1,1.08222638492,1
! /REP,FAST
! /DIST,1,1.08222638492,1
! /REP,FAST
! /DIST,1,1.08222638492,1
! /REP,FAST
! /DIST,1,1.08222638492,1
! /REP,FAST
! /DIST,1,1.08222638492,1
! /REP,FAST
! /DIST,1,1.08222638492,1
! /REP,FAST
! /DIST,1,1.08222638492,1
! /REP,FAST
! /DIST,1,1.08222638492,1
! /REP,FAST
! /DIST,1,1.08222638492,1
! /REP,FAST
! /DIST,1,1.08222638492,1
! /REP,FAST
FLST,2,1,3,ORDE,1
FITEM,2,1
K,2,-1.15,1,,
K,3,-1.15,-1,,
K,3,1.15,-1,,
! KPLOT
! /DIST,1,1.08222638492,1
! /REP,FAST
! /DIST,1,1.08222638492,1
! /REP,FAST
! /DIST,1,0.924021086472,1
! /REP,FAST
! klist,all,,,coord
K,4,-1.15,-1,,
K,4,-1.15,-1,,
! KPLOT
! /DIST,1,1.08222638492,1
! /REP,FAST
! /DIST,1,1.08222638492,1
! /REP,FAST
! /DIST,1,1.08222638492,1
! /REP,FAST
! /DIST,1,1.08222638492,1
! /REP,FAST
! /DIST,1,1.08222638492,1
! /REP,FAST
! /DIST,1,1.08222638492,1
! /REP,FAST
! /DIST,1,1.08222638492,1
! /REP,FAST
! /DIST,1,1.08222638492,1
! /REP,FAST
! /DIST,1,1.08222638492,1
! /REP,FAST
! /DIST,1,1.08222638492,1
! /REP,FAST
! /DIST,1,1.08222638492,1
! /REP,FAST
! /DIST,1,1.08222638492,1
! /REP,FAST
! /DIST,1,1.08222638492,1
! /REP,FAST
! /DIST,1,1.08222638492,1
! /REP,FAST
! /DIST,1,1.08222638492,1
! /REP,FAST
! /DIST,1,1.08222638492,1
! /REP,FAST
! /DIST,1,1.08222638492,1
! /REP,FAST
! /DIST,1,1.08222638492,1
! /REP,FAST
! /DIST,1,1.08222638492,1
! /REP,FAST
! /DIST,1,1.08222638492,1
! /REP,FAST
! /DIST,1,1.08222638492,1
! /REP,FAST
! /DIST,1,1.08222638492,1
! /REP,FAST
! /DIST,1,1.08222638492,1
! /REP,FAST
! /DIST,1,1.08222638492,1
! /REP,FAST
! /DIST,1,1.08222638492,1
! /REP,FAST
! /DIST,1,1.08222638492,1
! /REP,FAST
! /DIST,1,1.08222638492,1
! /REP,FAST
! /DIST,1,1.08222638492,1
! /REP,FAST
! /DIST,1,1.08222638492,1
! /REP,FAST
! /DIST,1,1.08222638492,1
! /REP,FAST
! /DIST,1,1.08222638492,1
! /REP,FAST
! /DIST,1,1.08222638492,1
! /REP,FAST
! /DIST,1,1.08222638492,1
! /REP,FAST
! /DIST,1,1.08222638492,1
! /REP,FAST
! /DIST,1,1.08222638492,1
! /REP,FAST
! /DIST,1,1.08222638492,1
! /REP,FAST
! /DIST,1,1.08222638492,1
! /REP,FAST
! /DIST,1,1.08222638492,1
! /REP,FAST
! /DIST,1,1.08222638492,1
! /REP,FAST
! /DIST,1,1.08222638492,1
! /REP,FAST
! /DIST,1,1.08222638492,1
! /REP,FAST
! /DIST,1,1.08222638492,1
! /REP,FAST
! /DIST,1,1.08222638492,1
! /REP,FAST
! /DIST,1,1.08222638492,1
! /REP,FAST
! /DIST,1,1.08222638492,1
! /REP,FAST
! /DIST,1,1.08222638492,1
! /REP,FAST
! /DIST,1,1.08222638492,1
! /REP,FAST
! /DIST,1,1.08222638492,1
! /REP,FAST
! /DIST,1,1.08222638492,1
! /REP,FAST
! /DIST,1,1.08222638492,1
! /REP,FAST
! /DIST,1,1.08222638492,1
! /REP,FAST
! /DIST,1,1.08222638492,1
! /REP,FAST
! /DIST,1,1.08222638492,1
! /REP,FAST
! /DIST,1,1.08222638492,1
! /REP,FAST
! /DIST,1,1.08222638492,1
! /REP,FAST
! /DIST,1,1.08222638492,1
! /REP,FAST
! /DIST,1,1.08222638492,1
! /REP,FAST
! /DIST,1,1.08222638492,1
! /REP,FAST
! /DIST,1,1.08222638492,1
! /REP,FAST
! /DIST,1,1.08222638492,1
! /REP,FAST
! /DIST,1,1.08222638492,1
! /REP,FAST
! /DIST,1,0.924021086472,1
! /REP,FAST
! /DIST,1,0.924021086472,1
! /REP,FAST
! /DIST,1,0.924021086472,1
! /REP,FAST
! /DIST,1,0.924021086472,1
! /REP,FAST
! /DIST,1,0.924021086472,1
! /REP,FAST
! /DIST,1,0.924021086472,1
! /REP,FAST
! /DIST,1,0.924021086472,1
! /REP,FAST
! /DIST,1,0.924021086472,1
! /REP,FAST
! /DIST,1,0.924021086472,1
! /REP,FAST
! /DIST,1,0.924021086472,1
! /REP,FAST
! /DIST,1,0.924021086472,1
! /REP,FAST
! /DIST,1,0.924021086472,1
! /REP,FAST
! /DIST,1,0.924021086472,1
! /REP,FAST
! /DIST,1,1.08222638492,1
! /REP,FAST
! /DIST,1,0.924021086472,1
! /REP,FAST
! /DIST,1,0.924021086472,1
! /REP,FAST
! /DIST,1,0.924021086472,1
! /REP,FAST
! /DIST,1,0.924021086472,1
! /REP,FAST
! /DIST,1,0.924021086472,1
! /REP,FAST
! /DIST,1,0.924021086472,1
! /REP,FAST
! /DIST,1,0.924021086472,1
! /REP,FAST
! /DIST,1,0.924021086472,1
! /REP,FAST
! /DIST,1,0.924021086472,1
! /REP,FAST
! /DIST,1,0.924021086472,1
! /REP,FAST
! /DIST,1,0.924021086472,1
! /REP,FAST
! /DIST,1,0.924021086472,1
! /REP,FAST
! /DIST,1,0.924021086472,1
! /REP,FAST
! /DIST,1,0.924021086472,1
! /REP,FAST
! /DIST,1,0.924021086472,1
! /REP,FAST
! /DIST,1,0.924021086472,1
! /REP,FAST
! /DIST,1,0.924021086472,1
! /REP,FAST
! /DIST,1,0.924021086472,1
! /REP,FAST
! /AUTO,1
! /REP,FAST
! /DIST,1,1.08222638492,1
! /REP,FAST
! /DIST,1,1.08222638492,1
! /REP,FAST
! /DIST,1,1.08222638492,1
! /REP,FAST
! /DIST,1,1.08222638492,1
! /REP,FAST
! /DIST,1,1.08222638492,1
! /REP,FAST
! /DIST,1,1.08222638492,1
! /REP,FAST
! /DIST,1,1.08222638492,1
! /REP,FAST
! /DIST,1,1.08222638492,1
! /REP,FAST
! /DIST,1,1.08222638492,1
! /REP,FAST
! /DIST,1,1.08222638492,1
! /REP,FAST
! /DIST,1,1.08222638492,1
! /REP,FAST
! /DIST,1,0.924021086472,1
! /REP,FAST
! /DIST,1,0.924021086472,1
! /REP,FAST
! /DIST,1,1.08222638492,1
! /REP,FAST
! /DIST,1,1.08222638492,1
! /REP,FAST
! /DIST,1,0.924021086472,1
! /REP,FAST
! /DIST,1,0.924021086472,1
! /REP,FAST
! /DIST,1,0.924021086472,1
! /REP,FAST
FLST,2,4,3
FITEM,2,2
FITEM,2,1
FITEM,2,3
FITEM,2,4
A,P51X
! APLOT
! KPLOT
! alist, all
K,5,0.95,0.5,,
K,6,0.95,1,,
K,7,-0.95,1,,
K,8,-0.95,0.5,,
! KPLOT
FLST,2,4,3
FITEM,2,7
FITEM,2,8
FITEM,2,5
FITEM,2,6
A,P51X
! alist, all
FLST,3,1,5,ORDE,1
FITEM,3,2
ARSYM,Y,P51X, , , ,0,0
! KPLOT
FLST,2,4,3
FITEM,2,10
FITEM,2,9
FITEM,2,12
FITEM,2,11
A,P51X
! APLOT
! alist, all
ASEL,S, , , 3
! APLOT
! /PNUM,KP,0
! /PNUM,LINE,0
! /PNUM,AREA,1
! /PNUM,VOLU,0
! /PNUM,NODE,0
! /PNUM,TABN,0
! /PNUM,SVAL,0
! /NUMBER,0
!*
! /PNUM,ELEM,0
! /REPLOT
!*
ALLSEL,ALL
! APLOT
! SAVE, files,db,D:\Ansys8.0\050707\lze\
FLST,3,2,5,ORDE,2
FITEM,3,2
FITEM,3,-3
A***A, 1,P51X
! APLOT
! /DIST,1,1.08222638492,1
! /REP,FAST
! /DIST,1,1.08222638492,1
! /REP,FAST
! /DIST,1,0.924021086472,1
! /REP,FAST
! /DIST,1,0.924021086472,1
! /REP,FAST
! /DIST,1,0.924021086472,1
! /REP,FAST
! /DIST,1,0.924021086472,1
! /REP,FAST
! /DIST,1,0.924021086472,1
! /REP,FAST
! SAVE, files,db,D:\Ansys8.0\050707\lze\
! /COM,ANSYS RELEASE 8.1 UP20040329 10:16:02 07/07/2005
/PREP7
!*
ET,1,PLANE67
!*
KEYOPT,1,3,1
KEYOPT,1,4,0
!*
!*
MPTEMP,,,,,,,,
MPTEMP,1,0
MPDATA,RSVX,1,,20
! SAVE, files,db,
! SAVE, files,db,
! SAVE, files1,db,D:\Ansys8.0\050707\lze\
! /COM,ANSYS RELEASE 8.1 UP20040329 10:39:39 07/07/2005
/CWD,'D:\Ansys8.0\050707\lze'
/PREP7
!*
AATT, 1, , 1, 0,
SMRT,6
SMRT,5
SMRT,4
SMRT,3
MSHAPE,0,2D
MSHKEY,0
!*
CM,_Y,AREA
ASEL, , , , 4
CM,_Y1,AREA
CHKMSH,'AREA'
CMSEL,S,_Y
!*
AMESH,_Y1
!*
CMDELE,_Y
CMDELE,_Y1
CMDELE,_Y2
!*
FINISH
/SOL
FLST,2,2,4,ORDE,2
FITEM,2,13
FITEM,2,-14
/GO
!*
DL,P51X, ,VOLT,2.7
FLST,2,2,4,ORDE,2
FITEM,2,15
FITEM,2,-16
/GO
!*
DL,P51X, ,VOLT,0
! /STATUS,SOLU
SOLVE
FINISH
/POST1
FINISH
/PREP7
!*
! LGWRITE,'lze','lgw','D:\Ansys8.0\050707\lze\',COMMENT |