/COM,   
/COM,Preferences for GUI filtering have been set to display:
/COM,  Structural   
/COM,  Thermal  
/COM,  ANSYS Fluid  
/COM,  FLOTRAN CFD  
/COM,  Magnetic-Nodal   
/COM,  Magnetic-Edge
/COM,  High Frequency   
/COM,  Electric 
!*  
/PREP7  
!*  
ET,1,SOLID5 
!*  
KEYOPT,1,1,3
KEYOPT,1,3,0
KEYOPT,1,5,0
!*  
!*  
MPTEMP,,,,,,,,  
MPTEMP,1,0  
MPDATA,EX,1,,210000 
MPDATA,PRXY,1,,0.33 
MPTEMP,,,,,,,,  
MPTEMP,1,0  
MPDATA,RSVX,1,,10e-9
BLOCK,0,0.1,0,0.02,0,0.02,  
BLOCK,0,0.1,0.021,0.041,0,0.02, 
/USER,  1   
/VIEW,  1, -0.418384899544E-01, -0.575557044287E-01,  0.997465228289
/ANG,   1,  0.471872190196E-01  
/REPLO  
TYPE,   1   
MAT,       1
REAL,   
ESYS,       0   
SECNUM, 
!*  
ESIZE,0.003,0,  
MSHAPE,0,3D 
MSHKEY,1
!*  
CM,_Y,VOLU  
VSEL, , , ,       1 
CM,_Y1,VOLU 
CHKMSH,'VOLU'   
CMSEL,S,_Y  
!*  
VMESH,_Y1   
!*  
CMDELE,_Y   
CMDELE,_Y1  
CMDELE,_Y2  
!*  
VPLOT   
ESIZE,0.005,0,  
CM,_Y,VOLU  
VSEL, , , ,       2 
CM,_Y1,VOLU 
CHKMSH,'VOLU'   
CMSEL,S,_Y  
!*  
VMESH,_Y1   
!*  
CMDELE,_Y   
CMDELE,_Y1  
CMDELE,_Y2  
!*  
/UI,MESH,OFF
/REPLOT 
!*  
!*  
/COM, CONTACT PAIR CREATION - START 
CM,_NODECM,NODE 
CM,_ELEMCM,ELEM 
CM,_KPCM,KP 
CM,_LINECM,LINE 
CM,_AREACM,AREA 
CM,_VOLUCM,VOLU 
/GSAV,cwz,gsav,,temp
MP,MU,1,
MAT,1   
R,3 
REAL,3  
ET,2,170
ET,3,174
KEYOPT,3,9,0
KEYOPT,3,10,2   
R,3,
RMORE,  
RMORE,,0
RMORE,18e-9 
KEYOPT,3,1,5
! Generate the target surface   
ASEL,S,,,4  
CM,_TARGET,AREA 
TYPE,2  
NSLA,S,1
ESLN,S,0
ESLL,U  
ESEL,U,ENAME,,188,189   
ESURF   
CMSEL,S,_ELEMCM 
! Generate the contact surface  
ASEL,S,,,9  
CM,_CONTACT,AREA
TYPE,3  
NSLA,S,1
ESLN,S,0
ESURF   
!* Create Companion Pair - Start
R,4 
REAL,4  
ET,4,170
ET,5,174
KEYOPT,5,9,0
KEYOPT,5,10,2   
R,4,
RMORE,  
RMORE,,0
RMORE,18e-9 
KEYOPT,5,1,5
TYPE,4  
ESEL,S,TYPE,,3  
NSLE,S  
ESLN,S,0
ESURF   
TYPE,5  
ESEL,S,TYPE,,2  
NSLE,S  
ESLN,S,0
ESURF   
!* Create Companion Pair - End  
ALLSEL  
ESEL,ALL
ESEL,S,TYPE,,2  
ESEL,A,TYPE,,3  
ESEL,R,REAL,,3  
/PSYMB,ESYS,1   
/PNUM,TYPE,1
/NUM,1  
EPLOT   
ESEL,ALL
ESEL,S,TYPE,,2  
ESEL,A,TYPE,,3  
ESEL,R,REAL,,3  
ESEL,A,TYPE,,4  
ESEL,A,TYPE,,5  
CMSEL,A,_NODECM 
CMDEL,_NODECM   
CMSEL,A,_ELEMCM 
CMDEL,_ELEMCM   
CMSEL,S,_KPCM   
CMDEL,_KPCM 
CMSEL,S,_LINECM 
CMDEL,_LINECM   
CMSEL,S,_AREACM 
CMDEL,_AREACM   
CMSEL,S,_VOLUCM 
CMDEL,_VOLUCM   
/GRES,cwz,gsav  
CMDEL,_TARGET   
CMDEL,_CONTACT  
/COM, CONTACT PAIR CREATION - END   
/MREP,EPLOT 
VPLOT   
/REPLOT 



!----------------

  

alls

nsel,s,loc,x,50/1000,60/1000
nsel,r,loc,y
cm,volt_unten,node

alls

nsel,s,loc,x,50/1000,60/1000
nsel,r,loc,y,41/1000
cm,volt_oben,node

alls

nsel,s,loc,x
nsel,r,loc,y,0,20/1000
cm,unten,node

alls

nsel,s,loc,x
nsel,r,loc,y,20.5/1000,42/1000
cm,oben,node

alls

cmsel,s,unten,node
d,all,ux,0
d,all,uy,0
d,all,uz,0

alls

cmsel,s,oben,node
d,all,ux,0
d,all,uy,0
d,all,uz,0

alls

nsel,s,loc,x,100/1000
nsel,r,loc,y,0,20.5/1000
cm,konvektion,node

alls

nsel,s,loc,x,100/1000
nsel,r,loc,y,41/1000
cm,hub,node

alls

!nsel,s,node,,all

!d,node,temp,1
!d,node,volt,1
!d,node,mag,1
alls

/SOL
anty,trans
NLGEOM,1


cmsel,s,hub,node

d,hub,uy,-2/1000   
!time,1e-7
nsubst,5,5
time,1
kbc,0
alls
solve

alls

d,all,volt,0
!d,all,temp,0
d,all,mag


!cmsel,s,konvektion,node
!sf,all,conv,2,20


alls


time,1.00000001
nsubst,1



save
alls

solve



!ddel,all,temp
ddel,all,volt

alls

cmsel,s,volt_unten,node
d,all,volt,0
alls
cmsel,s,volt_oben,node
d,all,volt,1000

alls



timint,on,elect

autots,on
time,2
nsubst,10,10,1
kbc,1

outres,all,1
save 
alls
solve !Lastfall 2 Einprägen der Spannungen

finish