Nachdem das Anhängen des Anhangs irgendwie nicht zu funktionieren scheint hier mein Programm:
/Prep7
!Abmessungen der Wärmequelle
WQB=0.3
WQH=0.3
WQT=0.3
!Abmessungen der umbebung
Breite=1.5
Höhe=1.5
Tiefe=1.5
!Hüllendicke
HD=7.5e-1 !Dicke der Umhüllung
!Wärmeeintrag
We=100 !Wärmeeintrag in W
WEW=100/(WQB*WQH*WQT) !Wärmeeintrag in W/m^3
stef,5.67e-8 !Stefan-Bolzmann-Konstante
TOFFST,273 !in °C umwandeln
ET,1,Solid70 !3D tehrmische Konduktivität, für festen strahler in der Mitte
MP,kxx,1,0.005 !384 !Wärmeleitfähigkeit Material 1 in W/(m*K) (Irgend ein Material, Vorgabe aus Buch)
emis,1,0.9 !Emissionskoeffizient Materialn 1 = 0,9
et,2,solid70 !Für die Luft
MP,visc,2,17.1 !Viskosität der Luft http://de.wikipedia.org/wiki/Kinematische_Viskosit%C3%A4t
MP,dens,2,1.21 !Dichte der Luft, Wikipeda
mptgen,1,41,0,10 !Temperaturstützstellen für eingabe von Polynom für kxx luft
MP,kxx,2,24.2e-3,74.6e-6,-18.2e-9 !Wärmeleitwert der Luft als Formel
mptemp
keyopt,2,7,1 !fluid-element (Temperatur wird als druck interpretiert)
et,3,shell57
R,3,0.0025 !2,5 mm Dicke Hülle
ET,4,Link31 !Link-Elemente für strahlung
Block,-WQB/2,WQB/2,-WQT/2,WQT/2,-WQH/2,WQH/2
!Volumen zwischen Trafo und Hülle
Block, -Breite/2,Breite/2,-Höhe/2,Höhe/2,-Tiefe/2,Tiefe/2
!Hülle
Block, -Breite/2-HD,Breite/2+HD,-Höhe/2-HD,Höhe/2+HD,-Tiefe/2-HD,Tiefe/2+HD
!Volumen Außerhalb der Hülle
!Block, -Breite*2,Breite*2,-Höhe*2,Höhe*2,-Tiefe*2,Tiefe*2
vovlap,all
numcmp,volu
esize,0.1
!LESIZE,ALL,,,20 !An jeder Kante 5 Elemente
type,1
mat,1
VMESH,1 !fester Strahler
esize,0.3
mshape,1,3D
vmesh,3 !Außenhülle
!aLLE oBERFLÄCHEN WÄHLEN
asel,s,area,,1,6
Type,3
esurf
alls
asel,s,area,,7,12
Type,3
esurf
alls
/aux 12
esel,s,type,,3
nsle,s
emis,1,0.8
!emis,
geom,0
vtype,0,20
write !Hier wurde die Strahlungsmatrix berechnet
/Prep7
Esel,s,Type,,3
edel,all !Alle Schelenelemente wieder entfernen
alls
et,4,matrix50,1 !Matrix als Superelement einfügen
Type,4
SE
asel,s,area,,13,18
nsla
D,all,temp,20
allsel
ASEL,s,area,,1,6 !alle knoten, die auf der Linie X=0 liegen
nsla
esln
D,all,temp,100 !und auf 100 Kelvin festlegen
!bf,all,hgen,WEW !Als Wärmeeintrag in die Simulation 100 W
ALLSEL
alls
/solu
nsubst,,10 !Nummer der Unterschritte in diesem Lastschritt
solve
/post1
/reset !setzt alle Plotangaben zurück
/type,,5
/cplane,1
!/CONTOUR,,,15,2,625
plnsol,temp !Zeigt Temperatur an
/ctype,1 !Iso-Flächendarstellung
/Replot
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP