!Aufgabe von Pawel
!thermisch elektrisch
finish  $/clear
*abbr,pawel2,/input,pawel2,txt
breit1=2e-3
hoch1=10e-3
breit2=20e-3
hoch2=5e-3

/PREP7  
rectng,-breit1/2,breit1/2,0,hoch1
rectng,-breit2/2,breit2/2,0,-hoch2
AGLUE,all
!A1:Stift  A3:Platte
ET,1,PLANE223,110   
!*  
MP,KXX,1,20
MP,C,1,120 
MP,DENS,1,5600 
MP,PERX,1,1
MP,RSVX,1,1.5e-8   
MP,SBKX,1,2e-6 
MP,KXX,2,1.5   
MP,C,2,75  
MP,DENS,2,8500 
MP,PERX,2,1
MP,RSVX,2,1.8e-5   
MP,SBKX,2,-200e-6 
 
AESIZE,ALL,0.001,   
TYPE,1   
MAT,1
AMESH,1 
mat,2
amesh,3

!---Randbedingungen-----
nsel,s,loc,y,hoch1
d,all,temp,300
nsel,s,loc,y,-hoch2
d,all,temp,290
d,all,volt,0
 
!--------------------------
ALLSEL,ALL
/SOLU  
! LGWRITE,'TE','lgw','D:\',COMMENT  
SOLVE   
!----------------------
/post1
plns,temp
plns,volt