/prep7
et,1,226,110		

!---Materialdaten
mp,kxx,1,0.1		
mp,kxx,2,54		

mp,c,2,793		
mp,c,2,520		

mp,dens,1,5.85e3	
mp,dens,2,5.5e3		

mp,rsvx,1,0.0001		
mp,rsvx,2,24.5		

!--- Geometrie
/dev,vector,on
l1=20e-3
l2=5e-3
block,0,l1,0,l1,0,l1
block,0,-l2,0,l1,0,l1
block,l1,l1+l2,0,l1,0,l1

vplot
numstr,volu,100			
vglue,all			
numcmp,all			
/PNUM,VOLU,1
vplot

!---Vernetzen
seltol,1e-12			
meshsize=l2/2

vsel,s,loc,x,-l2/2			
esize,meshsize			
type,1				
mat,2				
mshkey,1			
vmesh,all

vsel,s,loc,x,l1/2			
esize,meshsize			
type,1				
mat,1				
mshkey,1			
vmesh,all

vsel,s,loc,x,l1+l2/2			
esize,meshsize			
type,1				
mat,2				
mshkey,1			
vmesh,all

!---elektrische Parameter
eplot
nsel,s,loc,x,l1+l2							
cp,1,volt,all							
nsel,s,loc,x,-l2	
d,all,volt,0

u1=440					
r1=1e-4
abst=2e-3					
et,3,circu124,0				
r,3,r1
nsel,all
*get,node_max,node,,num,max
n,node_max+1,l1+l2+abst,l1,0
type,3					
real,3					
e,node_max+1,3286	

d,node_max+1,volt,u1

*get,element_max,elem,,num,max

!----Lösung
allsel					
/solu					

zeitende=5				
schritte=100				
					
antype,trans				
outres,all,all				
autots,on				
nsubst,100,100,schritte			
kbc,1					
time,zeitende
/dev,vector,off

solve


!---Auswertung
/post26					

/grtyp,2
nsol,2,909,temp				
esol,3,element_max,,smisc,2,Strom	
plvar,2,3


/post1
PLNS,TEMP   
ANTIME,100,0, ,1,1,0,0