/prep7
et,1,55,,,1
mp,kxx,1,32
mp,dens,1,7.85e-9
mp,c,1,500e6
!GEOMETRIEERSTELLUNG
rect,,5e-2,,5e-2
rect,,5e-2,5e-2,1e-1
rect,5e-2,1e-1,,5e-2
rect,5e-2,1e-1,5e-2,1e-1
aglue,all
lesize,3,,,100
lesize,19,,,100
lesize,7,,,100
lesize,20,,,100
amap,6,3,7,8,4
lesize,22,,,100
lesize,18,,,50,5
lesize,21,,,50,5
amap,7,11,15,7,3
lesize,1,,,100
lesize,2,,,50,.2
lesize,4,,,50,5
amap,1,2,3,4,1
lesize,10,,,50,.2
lesize,17,,,50,5
amap,5,10,11,3,2
/solu
!ERSTELLEN EINES STEPS
antype,trans
tunif,293
nsel,s,loc,x,1e-1
nsel,a,loc,y,0
d,all,temp,293
nsel,all
time,3e-7
nsubst,20
autots,on
kbc,0
!SCHLEIFE FÜR AUFBRINGUNG DER WÄRME AUF DIE KNOTEN
*do,j,0,40,2
f,301-j,heat,108000*exp(-(j*j)/(7.8*7.8))
*enddo
!MITTELKNOTEN EINZELN WEGEN KNOTENNUMERIERUNG
f,202,heat,110000
outres,all,all
SOLVE
/POST1
PLNS,TEMP