G-HEIZSTRANG-5 E,1,2,6002,6001,101,102,6102,6101 EGEN,BreiteAnzahl,1,1 EGEN,LängeAnzahl,100,-BreiteAnzahl *IF,QDICKE,EQ,0.01,THEN EGEN,1,6000,-6000 *ELSEIF,QDICKE,EQ,0.02,THEN EGEN,2,6000,-6000 *ELSEIF,QDICKE,EQ,0.03,THEN EGEN,3,6000,-6000 *ELSEIF,QDICKE,EQ,0.04,THEN EGEN,4,6000,-6000 *ELSEIF,QDICKE,EQ,0.05,THEN EGEN,5,6000,-6000 *ELSEIF,QDICKE,EQ,0.06,THEN EGEN,6,6000,-6000 *ELSEIF,QDICKE,EQ,0.07,THEN EGEN,7,6000,-6000 *ELSEIF,QDICKE,EQ,0.08,THEN EGEN,8,6000,-6000 *ELSEIF,QDICKE,EQ,0.09,THEN EGEN,9,6000,-6000 *ELSEIF,QDICKE,EQ,0.10,THEN EGEN,10,6000,-6000 *ELSEIF,QDICKE,EQ,0.11,THEN EGEN,11,6000,-6000 *ELSEIF,QDICKE,EQ,0.12,THEN EGEN,12,6000,-6000 *ELSEIF,QDICKE,EQ,0.13,THEN EGEN,13,6000,-6000 *ELSEIF,QDICKE,EQ,0.14,THEN EGEN,14,6000,-6000 *ELSEIF,QDICKE,EQ,0.15,THEN EGEN,15,6000,-6000 *ELSEIF,QDICKE,EQ,0.16,THEN EGEN,16,6000,-6000 *ELSEIF,QDICKE,EQ,0.17,THEN EGEN,17,6000,-6000 *ELSEIF,QDICKE,EQ,0.18,THEN EGEN,18,6000,-6000 *ELSEIF,QDICKE,EQ,0.19,THEN EGEN,19,6000,-6000 *ELSEIF,QDICKE,EQ,0.20,THEN EGEN,20,6000,-6000 *ENDIF !------------------------------- *IF,HHÖHE,EQ,0.00,THEN X=0 NGEN,2,130000,1,(LängeAnzahl*100+BreiteAnzahl+1),1,0,0,HHÖHE TYPE,2 MAT,2 REAL,2 *GO,:G-STRANG !*** OHNE *GO-SCHLEIFE FUNKTIONIERT ES NICHT !!!!! *ELSEIF,HHÖHE,EQ,0.01,THEN X=6000 NGEN,2,130000,1,(LängeAnzahl*100+BreiteAnzahl+1),1,0,0,HHÖHE TYPE,2 MAT,2 REAL,2 *GO,:G-STRANG *ELSEIF,HHÖHE,EQ,0.02,THEN X=12000 NGEN,2,130000,1,(LängeAnzahl*100+BreiteAnzahl+1),1,0,0,HHÖHE TYPE,2 MAT,2 REAL,2 *GO,:G-STRANG *ELSEIF,HHÖHE,EQ,0.03,THEN X=18000 NGEN,2,130000,1,(LängeAnzahl*100+BreiteAnzahl+1),1,0,0,HHÖHE TYPE,2 MAT,2 REAL,2 *GO,:G-STRANG *ELSEIF,HHÖHE,EQ,0.04,THEN X=24000 NGEN,2,130000,1,(LängeAnzahl*100+BreiteAnzahl+1),1,0,0,HHÖHE TYPE,2 MAT,2 REAL,2 *GO,:G-STRANG *ELSEIF,HHÖHE,EQ,0.05,THEN X=30000 NGEN,2,130000,1,(LängeAnzahl*100+BreiteAnzahl+1),1,0,0,HHÖHE TYPE,2 MAT,2 REAL,2 *GO,:G-STRANG *ELSEIF,HHÖHE,EQ,0.06,THEN X=36000 NGEN,2,130000,1,(LängeAnzahl*100+BreiteAnzahl+1),1,0,0,HHÖHE TYPE,2 MAT,2 REAL,2 *GO,:G-STRANG *ELSEIF,HHÖHE,EQ,0.07,THEN X=42000 NGEN,2,130000,1,(LängeAnzahl*100+BreiteAnzahl+1),1,0,0,HHÖHE TYPE,2 MAT,2 REAL,2 *GO,:G-STRANG *ELSEIF,HHÖHE,EQ,0.08,THEN X=48000 NGEN,2,130000,1,(LängeAnzahl*100+BreiteAnzahl+1),1,0,0,HHÖHE TYPE,2 MAT,2 REAL,2 *GO,:G-STRANG *ELSEIF,HHÖHE,EQ,0.09,THEN X=54000 NGEN,2,130000,1,(LängeAnzahl*100+BreiteAnzahl+1),1,0,0,HHÖHE TYPE,2 MAT,2 REAL,2 *GO,:G-STRANG *ELSEIF,HHÖHE,EQ,0.10,THEN X=60000 NGEN,2,130000,1,(LängeAnzahl*100+BreiteAnzahl+1),1,0,0,HHÖHE TYPE,2 MAT,2 REAL,2 *GO,:G-STRANG *ELSEIF,HHÖHE,EQ,0.11,THEN X=66000 NGEN,2,130000,1,(LängeAnzahl*100+BreiteAnzahl+1),1,0,0,HHÖHE TYPE,2 MAT,2 REAL,2 *GO,:G-STRANG *ELSEIF,HHÖHE,EQ,0.12,THEN X=72000 NGEN,2,130000,1,(LängeAnzahl*100+BreiteAnzahl+1),1,0,0,HHÖHE TYPE,2 MAT,2 REAL,2 *GO,:G-STRANG *ELSEIF,HHÖHE,EQ,0.13,THEN X=78000 NGEN,2,130000,1,(LängeAnzahl*100+BreiteAnzahl+1),1,0,0,HHÖHE TYPE,2 MAT,2 REAL,2 *GO,:G-STRANG *ELSEIF,HHÖHE,EQ,0.14,THEN X=84000 NGEN,2,130000,1,(LängeAnzahl*100+BreiteAnzahl+1),1,0,0,HHÖHE TYPE,2 MAT,2 REAL,2 *GO,:G-STRANG *ELSEIF,HHÖHE,EQ,0.15,THEN X=90000 NGEN,2,130000,1,(LängeAnzahl*100+BreiteAnzahl+1),1,0,0,HHÖHE TYPE,2 MAT,2 REAL,2 *GO,:G-STRANG *ELSEIF,HHÖHE,EQ,0.16,THEN X=96000 NGEN,2,130000,1,(LängeAnzahl*100+BreiteAnzahl+1),1,0,0,HHÖHE TYPE,2 MAT,2 REAL,2 *GO,:G-STRANG *ELSEIF,HHÖHE,EQ,0.17,THEN X=102000 NGEN,2,130000,1,(LängeAnzahl*100+BreiteAnzahl+1),1,0,0,HHÖHE TYPE,2 MAT,2 REAL,2 *GO,:G-STRANG *ELSEIF,HHÖHE,EQ,0.18,THEN X=108000 NGEN,2,130000,1,(LängeAnzahl*100+BreiteAnzahl+1),1,0,0,HHÖHE TYPE,2 MAT,2 REAL,2 *GO,:G-STRANG *ELSEIF,HHÖHE,EQ,0.19,THEN X=114000 NGEN,2,130000,1,(LängeAnzahl*100+BreiteAnzahl+1),1,0,0,HHÖHE TYPE,2 MAT,2 REAL,2 *GO,:G-STRANG *ELSEIF,HHÖHE,EQ,0.20,THEN X=120000 NGEN,2,130000,1,(LängeAnzahl*100+BreiteAnzahl+1),1,0,0,HHÖHE TYPE,2 MAT,2 REAL,2 *GO,:G-STRANG *ENDIF !--------------------------------- :G-STRANG /TITLE,->RANDABSTAND:%(QBREITE/BreiteAnzahl*BreiteAnzahl/2)% [m] E,130001+(BreiteAnzahl/2),130001+(BreiteAnzahl/2)+100,X+1+(BreiteAnzahl/2),X+1+(BreiteAnzahl/2)+100 EGEN,LängeAnzahl,100,-1 EPLOT !*** BEWEHRUNG NOCH MIT EINBINDEN !--------------------------------- !---------------------------- SOLUTION ------------------------------ !---------------------------- *IF,RECHNE,EQ,2,AND,DARSTELLUNG,EQ,3,THEN *IF,ZEIT,EQ,1,THEN /SOLU *ULIB,KONVEKTION-1,MAC *USE,KONVEKTION-1 /POST1 /PNUM,NODE PLNS,TEMP NSEL,S,,,130001,135051 PRNS,TEMP NSORT,TEMP PRNS,TEMP ALLS NSEL,S,,,1,150000 /PNUM,NODE PLNS,TEMP ALLS *ULIB,PICTURE,MAC *USE,PICTURE *ENDIF !---------------------------------------------------------- *IF,ZEIT,EQ,2,THEN !----- transiente Berechnung ----- /SOLU ANTYPE,TRANS AUTOTS,ON TIMINT,ON TINTP,,,,1 KBC,1 *DO,i,1,ZEITSCHRITTE TIME,ZEITENDE DELTIM,ZEITENDE/ZEITSCHRITTE OUTRES,ALL,ALL D,(130001+BreiteAnzahl/2),TEMP,HeizTEMP !*** 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 *ENDDO SOLVE !------------------ /POST1 NSEL,S,,,1,150000 /PNUM,NODE PLNS,TEMP ALLS /AUTO,1 !***BILDGRÖßE ANS FENSTER /REP,FAST !***ANPASSEN /SHOW,JPEG JPEG,QUAL,75 JPEG,ORIENT,HORIZ JPEG,COLOR,2 JPEG,TMOD,1 !***BILD WIRD GESCHOSSEN /GFILE,1200 !* *DO,i,1,ZEITSCHRITTE ZEIT=ZEITENDE/ZEITSCHRITTE*i SET,,,,,ZEIT /REPLOT *ENDDO /SHOW,CLOSE /DEVICE,VECTOR,0 *ENDIF *ENDIF !-------------------------------------- /EOF