接触分析运行一半?

likefeng

请大家帮忙解决
/PREP7  
!*  
ET,1,PLANE182   
!*  
ET,2,TARGE169   
!*  
ET,3,CONTA172   
!*  
KEYOPT,1,1,0
KEYOPT,1,3,1
KEYOPT,1,6,0
KEYOPT,1,10,0   
!*  
KEYOPT,3,1,0
KEYOPT,3,2,0
KEYOPT,3,3,0
KEYOPT,3,4,0
KEYOPT,3,5,3
KEYOPT,3,6,0
KEYOPT,3,7,0
KEYOPT,3,8,0
KEYOPT,3,9,0
KEYOPT,3,10,0   
KEYOPT,3,11,1   
KEYOPT,3,12,0   
!*  
R,2, , ,
!*  
!*  
MPTEMP,,,,,,,,  
MPTEMP,1,0  
MPDATA,EX,1,,82000  
MPDATA,PRXY,1,,0.32
TB,MISO,1,1,2,0
TBTEMP,0
TBPT,,0.00065,53.3  
TBPT,,1.00065,362   
MPTEMP,,,,,,,,  
MPTEMP,1,0  
MPDATA,MU,1,,0.06   
MPTEMP,,,,,,,,  
MPTEMP,1,0  
MPDATA,EX,2,,220000
MPDATA,PRXY,2,,0.3  
MPTEMP,,,,,,,,  
MPTEMP,1,0  
MPDATA,MU,2,,0.06   
SAVE
*SET,d1,12  
*SET,d2,11.95
*SET,d3,60  
*SET,l1,30  
*SET,l2,30  
*SET,l3,30  

K,1,0,-d2/2,,   
K,2,0,-d3/2,,   
K,3,l1,-d3/2,,  
K,4,l1,-d2/2,,  
K,5,l1,-d1/2,,  
K,6,60,-d1/2,,  
K,7,0,-d1/2,,   
KDELE,       7  
K,7,60,0,,  
K,8,30,0,,  
LSTR,       1,       2  
LSTR,       2,       3  
LSTR,       3,       4  
LSTR,       4,       1  
LSTR,       5,       6  
LSTR,       6,       7  
LSTR,       7,       8  
LSTR,       8,       5  
SAVE
FLST,5,2,4,ORDE,2   
FITEM,5,2   
FITEM,5,4   
CM,_Y,LINE  
LSEL, , , ,P51X
CM,_Y1,LINE
CMSEL,,_Y   
!*  
LESIZE,_Y1, , ,20, , , , ,1
!*  
FLST,5,2,4,ORDE,2   
FITEM,5,1   
FITEM,5,3   
CM,_Y,LINE  
LSEL, , , ,P51X
CM,_Y1,LINE
CMSEL,,_Y   
!*  
LESIZE,_Y1, , ,20, , , , ,1
!*  
FLST,5,2,4,ORDE,2   
FITEM,5,6   
FITEM,5,8   
CM,_Y,LINE  
LSEL, , , ,P51X
CM,_Y1,LINE
CMSEL,,_Y   
!*  
LESIZE,_Y1, , ,5, , , , ,1  
!*  
FLST,5,2,4,ORDE,2   
FITEM,5,5   
FITEM,5,7   
CM,_Y,LINE  
LSEL, , , ,P51X
CM,_Y1,LINE
CMSEL,,_Y   
!*  
LESIZE,_Y1, , ,20, , , , ,1
!*  
TYPE,   1   
MAT,       1
REAL,       2   
ESYS,       0   
SECNUM,
!*  
MSHKEY,0
APLOT   
ALLSEL,ALL  
/REPLOT
LPLOT   
APLOT   
FLST,2,4,4  
FITEM,2,2   
FITEM,2,1   
FITEM,2,4   
FITEM,2,3   
AL,P51X
FLST,2,4,4  
FITEM,2,7   
FITEM,2,8   
FITEM,2,5   
FITEM,2,6   
AL,P51X
MSHKEY,0
CM,_Y,AREA  
ASEL, , , ,       2
CM,_Y1,AREA
CHKMSH,'AREA'   
CMSEL,S,_Y  
!*  
AMESH,_Y1   
!*  
CMDELE,_Y   
CMDELE,_Y1  
CMDELE,_Y2  
!*  
APLOT   
TYPE,   1   
MAT,       2
REAL,       2   
ESYS,       0   
SECNUM,
!*  
MSHKEY,0
CM,_Y,AREA  
ASEL, , , ,       1
CM,_Y1,AREA
CHKMSH,'AREA'   
CMSEL,S,_Y  
!*  
AMESH,_Y1   
!*  
CMDELE,_Y   
CMDELE,_Y1  
CMDELE,_Y2  
!*  
ALLSEL,ALL  
LPLOT   
LSEL,S, , ,       5
CM,_targent,LINE
TYPE,   2   
MAT,       2
REAL,       2   
ESYS,       0   
SECNUM,
TSHAP,LINE  
!*  
NSLL,S,1
FLST,5,21,1,ORDE,3  
FITEM,5,22  
FITEM,5,27  
FITEM,5,-46
CM,_Y,NODE  
NSEL, , , ,P51X
CM,_Y1,NODE
CMSEL,S,_Y  
!*  
CMSEL,,_Y1  
ESURF, ,TOP,
CMSEL,,_Y   
CMDELE,_Y   
CMDELE,_Y1  
!*  
ALLSEL,ALL  
LSEL,S, , ,       4
CM,_contact,LINE
TYPE,   3   
MAT,       2
REAL,       2   
ESYS,       0   
SECNUM,
TSHAP,LINE  
!*  
NSLL,S,1
FLST,5,21,1,ORDE,3  
FITEM,5,148
FITEM,5,168
FITEM,5,-187
CM,_Y,NODE  
NSEL, , , ,P51X
CM,_Y1,NODE
CMSEL,S,_Y  
!*  
CMSEL,,_Y1  
ESURF, ,TOP,
CMSEL,,_Y   
CMDELE,_Y   
CMDELE,_Y1  
!*  
ALLSEL,ALL  
FLST,5,2,4,ORDE,2   
FITEM,5,2   
FITEM,5,7   
LSEL,S, , ,P51X
NSLL,S,1
FLST,2,42,1,ORDE,4  
FITEM,2,1   
FITEM,2,-21
FITEM,2,127
FITEM,2,-147
!*  
/GO
D,P51X, ,0, , , ,UY, , , , ,
ALLSEL,ALL  
LSEL,S, , ,       1
NSLL,S,1
FLST,2,21,1,ORDE,4  
FITEM,2,127
FITEM,2,168
FITEM,2,188
FITEM,2,-206
!*  
/GO
D,P51X, ,0, , , ,UX, , , , ,
ALLSEL,ALL  
ALLSEL,ALL  
/REPLOT
FINISH  
/SOL
!*  
ANTYPE,0
ANTYPE,0
NLGEOM,1
NSUBST,20,1000,20   
OUTRES,ERASE
OUTRES,ALL,-20  
AUTOTS,1
TIME,1  
LSEL,S, , ,       6
NSLL,S,1
FLST,2,6,1,ORDE,4   
FITEM,2,1   
FITEM,2,27  
FITEM,2,47  
FITEM,2,-50
!*  
/GO
D,P51X, ,-20, , , ,UX, , , , ,  
SAVE
/STATUS,SOLU
SOLVE   
SAVE