!-----Set Contact for Outher Circle FLST,5,3,4,ORDE,3 !-----Choose all three parts FITEM,5,5 FITEM,5,13 FITEM,5,90 LSEL,S, , ,P51X NSLL,S,1 ALLSEL,BELOW,LINE TYPE, 4 !-----Contact MAT, 4 REAL, 12 ESYS, 0 SECNUM, FLST,2,2,4,ORDE,2 FITEM,2,5 FITEM,2,90 LMESH,P51X !-----Set Target for Outher Circles TYPE, 3 !-----Target MAT, 4 REAL, 13 ESYS, 0 SECNUM, FLST,2,2,4,ORDE,2 FITEM,2,5 FITEM,2,90 LMESH,P51X !-----Set Contact for Inner Circle TYPE, 4 !-----Contact MAT, 4 REAL, 14 ESYS, 0 SECNUM, LMESH, 13 !-----Set Target for Inner Circle TYPE, 3 !-----Target MAT, 4 REAL, 15 ESYS, 0 SECNUM, LMESH, 13 !-----Set Target for Outher Wire LSEL,S, , ,34 !-----Choose Wire NSLL,S,1 ALLSEL,BELOW,LINE TYPE, 3 !-----Target MAT, 1 REAL, 12 ESYS, 0 SECNUM, TSHAP,LINE FLST,5,171,1,ORDE,4 FITEM,5,13215 FITEM,5,-13301 FITEM,5,13332 FITEM,5,-13415 CM,_Y,NODE NSEL, , , ,P51X CM,_Y1,NODE CMSEL,S,_Y CMSEL,,_Y1 ESURF, ,TOP, CMSEL,,_Y CMDELE,_Y CMDELE,_Y1 !-----Set Contact for Outher Wire TYPE, 4 !-----Contact MAT, 1 REAL, 13 ESYS, 0 SECNUM, TSHAP,LINE FLST,5,168,1,ORDE,4 FITEM,5,13215 FITEM,5,-13296 FITEM,5,13330 FITEM,5,-13415 CM,_Y,NODE NSEL, , , ,P51X CM,_Y1,NODE CMSEL,S,_Y CMSEL,,_Y1 ESURF, ,TOP, CMSEL,,_Y CMDELE,_Y CMDELE,_Y1 !-----Set Target for Inner Wire--------------- TYPE, 3 !-----Target MAT, 1 REAL, 14 ESYS, 0 SECNUM, TSHAP,LINE FLST,5,26,1,ORDE,2 FITEM,5,13302 FITEM,5,-13327 CM,_Y,NODE NSEL, , , ,P51X CM,_Y1,NODE CMSEL,,_Y1 ESURF, ,TOP, CMSEL,,_Y CMDELE,_Y CMDELE,_Y1 !-----Set Contact for inner Wire------------------------- TYPE, 4 !-----Contact MAT, 1 REAL, 15 ESYS, 0 SECNUM, TSHAP,LINE FLST,5,27,1,ORDE,2 FITEM,5,13301 FITEM,5,-13327 CM,_Y,NODE NSEL, , , ,P51X CM,_Y1,NODE CMSEL,S,_Y CMSEL,,_Y1 ESURF, ,TOP, CMSEL,,_Y CMDELE,_Y CMDELE,_Y1 !-----Settings for Contact Manager---------------------------------- /COM, CONTACT PAIR PROPERTIES - START MP,MU,4, RMODIF,12,7, RMODIF,12,8, RMODIF,12,3,0.0001 KEYOPT,4,12,2 /COM, CONTACT PAIR PROPERTIES - END /MREP,EPLOT /COM, CONTACT PAIR PROPERTIES - START MP,MU,1, RMODIF,13,7, RMODIF,13,8, RMODIF,13,3,0.001 KEYOPT,4,12,4 /COM, CONTACT PAIR PROPERTIES - END /MREP,EPLOT /MREP,EPLOT /COM, CONTACT PAIR PROPERTIES - START RMODIF,14,3,0.001 RMODIF,14,7, RMODIF,14,8, KEYOPT,4,12,3 /COM, CONTACT PAIR PROPERTIES - END /MREP,EPLOT /COM, CONTACT PAIR PROPERTIES - START RMODIF,15,3,0.001 RMODIF,15,7, RMODIF,15,8, KEYOPT,4,12,5 /COM, CONTACT PAIR PROPERTIES - END