PIC2
		
!------------- Solution + Postprocessing PIC2 ---------------
		
		
		/SOLU
		ANTYPE,TRANS		!***Transiente Analyse
		AUTOTS,ON		!***Einschalten der Schrittweitenautomatik
		TIMINT,OFF		!***Deaktivieren der Effekte aus Zeitintegration
		TINTP,,,,1		!***Festlegung der Integrationsparameter

		TIME,1E-6		!***Zeit am Ende des ersten Lastfalles

		!-------------------
		*IF,HEIZKANALLAUF,EQ,1,THEN	
			D,8009,TEMP,HTEMP	!***Startpunkt der Wärmezuführung
		*ENDIF
		!-------------------

			!*** KONVEKTION OBEN
				NSEL,S,LOC,Z,QDICKE			!***Knoten an der Oberfläche
				SF,ALL,CONV,ALPHAoben,TUMGoben		!***Aufbringen der Konvektion

			!*** KONVEKTION UNTEN
				NSEL,S,LOC,Z,0				!***Knoten an der Unterfläche
				SF,ALL,CONV,ALPHAunten,TUMGunten	!***Aufbringen der Konvektion

				ALLS
				OUTRES,ALL,ALL		 	
				SOLVE

!-------- Beginn der transienten Berechnung ----------

		TIMINT,ON
		KBC,1

*DO,i,1,ZEITSCHRITTE
	TIME, ZEITENDE/ ZEITSCHRITTE*i

		!-------------------
		*IF,HEIZKANALLAUF,EQ,1,THEN	
			D,8009,TEMP,HTEMP	!***Startpunkt der Wärmezuführung
		*ENDIF
		!-------------------

			!*** KONVEKTION OBEN
				NSEL,S,LOC,Z,QDICKE			!***Knoten an der Oberfläche
				SF,ALL,CONV,ALPHAoben,TUMGoben		!***Aufbringen der Konvektion

			!*** KONVEKTION UNTEN
				NSEL,S,LOC,Z,0				!***Knoten an der Unterfläche
				SF,ALL,CONV,ALPHAunten,TUMGunten	!***Aufbringen der Konvektion

				ALLS
				OUTRES,ALL,ALL		 	
				SOLVE
*ENDDO
!------------------------------------------------
/POST1

		/PNUM,NODE
		PLNS,TEMP

			NSEL,S,,,8001,8211		!***Heizkanalnummerierung
			PRNS,TEMP			!***Auflistung der Temperaturen Heizkanal
			NSORT,TEMP			!***Sortieren nach den Temperaturen
			PRNS,TEMP			!***Neue Liste der Temperaturen
			ALLS

			NSEL,S,,,1,10211		!***Konturplot des Modells; da Bew. viell. 
							!***mit dargestellt werden NSEL,S,,,1,10211
		/PNUM,NODE
		PLNS,TEMP

!-------- Bilder schießen und abspeichern ----------

		PLNSOL,TEMP
		/AUTO,1
		/REP,FAST

		/SHOW,JPEG
		JPEG,QUAL,100,
		JPEG,ORIENT,HORIZ
		JPEG,COLOR,2		!***COLOR,2 -->weil Colorskala
		JPEG,TMOD,1
		/GFILE,1000,

		SET,,,,,1E-6
		/REPLOT

*DO,i,1,ZEITSCHRITTE
	ZEIT= ZEITENDE/ ZEITSCHRITTE*i
	SET,,,,,ZEIT
	/TITLE,Zeit: %ZEIT% -PIC2.MAC
	PLNSOL,TEMP
*ENDDO

/SHOW,CLOSE
/DEVICE,VECTOR,0

/EOF