LSCLEAR,ALL 
CPDELE, 1   
CPDELE, 2   
CPDELE, 3   
CPDELE, 4   
CPDELE, 5   

/POST1  
FLST,5,1408,1,ORDE,2
FITEM,5,1409
FITEM,5,-2816   
NSEL,S, , ,P51X 
! CP,1, VOLT, ALL   
FINISH  
/PREP7  
FINISH  
/SOL
FINISH  
/PREP7  
FLST,5,1408,1,ORDE,2
FITEM,5,1409
FITEM,5,-2816   
NSEL,S, , ,P51X 
CP, 1, VOLT, ALL
ALLSEL,ALL  
/REPLOT 
FLST,5,1408,1,ORDE,2
FITEM,5,1   
FITEM,5,-1408   
NSEL,S, , ,P51X 
CP, 2, VOLT, ALL
FINISH  
/SOL
!*  
ANTYPE,0

FLST,2,3,5,ORDE,3   
FITEM,2,1   
FITEM,2,3   
FITEM,2,5   
DA,P51X,SYMM

FLST,2,1,5,ORDE,1   
FITEM,2,2   
/GO 
!*  
SFA,P51X,1,PRES,1   
CPLIST  
ALLSEL,ALL  
/REPLOT 
CPLIST  
FLST,2,1,1,ORDE,1   
FITEM,2,1   
/GO 
!*  
D,P51X,VOLT,0   
ALLSEL,ALL  
/REPLOT 
FLST,2,1,1,ORDE,1   
FITEM,2,1   
/GO 
!*  
D,P51X,VOLT,0   
CNVTOL,F,,,,1E-5
CNVTOL,AMPS,,,,1E-5 
CNVTOL,VOLT,,,,1E-5 
/STATUS,SOLU
SOLVE   

