/prep7
et,1,55
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
!VERNETZUNG
lsel,s,,,1,4,1
lesize,all,,,100
lsel,all
amap,1,1,2,3,4
lesize,17,,,50,5
lesize,18,,,50,5
lesize,5,,,100
amap,5,1,5,6,2
lesize,19,,,50,5
lesize,20,,,50,5
lesize,10,,,100
amap,6,2,10,11,3
lesize,21,,,50,5
lesize,22,,,50,5
amap,7,6,14,10,2
/solu
!ERSTELLEN EINES STEPS
antype,trans
tunif,293
nsel,s,loc,x,1e-1
nsel,a,loc,y,-1e-1
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,60,1
f,301-j,heat,108000*exp(-(j*j)/(15.6*15.6))
*enddo
!MITTELKNOTEN EINZELN WEGEN KNOTENNUMERIERUNG
f,202,heat,110000
outres,all,all
SOLVE
/POST1
PLNS,TEMP
/cont,,9,293,,12024
/title,Temperaturverteilung
/replot