Temperatuur berekening in een gesloten oppervlak

(1)

Temperatuur berekening in een gesloten oppervlak

Citation for published version (APA):

Schreven, L. H. J. (1987). Temperatuur berekening in een gesloten oppervlak. (TH Eindhoven. Afd. Werktuigbouwkunde, Vakgroep Produktietechnologie : WPB; Vol. WPA0436). Technische Universiteit Eindhoven.

Document status and date: Gepubliceerd: 01/01/1987

Document Version:

Uitgevers PDF, ook bekend als Version of Record

Please check the document version of this publication:

• A submitted manuscript is the version of the article upon submission and before peer-review. There can be important differences between the submitted version and the official published version of record. People interested in the research are advised to contact the author for the final version of the publication, or visit the DOI to the publisher's website.

• The final author version and the galley proof are versions of the publication after peer review.

• The final published version features the final layout of the paper including the volume, issue and page numbers.

Link to publication

General rights

Copyright and moral rights for the publications made accessible in the public portal are retained by the authors and/or other copyright owners and it is a condition of accessing publications that users recognise and abide by the legal requirements associated with these rights. • Users may download and print one copy of any publication from the public portal for the purpose of private study or research. • You may not further distribute the material or use it for any profit-making activity or commercial gain

• You may freely distribute the URL identifying the publication in the public portal.

If the publication is distributed under the terms of Article 25fa of the Dutch Copyright Act, indicated by the “Taverne” license above, please follow below link for the End User Agreement:

www.tue.nl/taverne Take down policy

If you believe that this document breaches copyright please contact us at: openaccess@tue.nl

providing details and we will investigate your claim.

(2)

behorende bij:

LJ

!J l/od,Qf2.~

Temperatuur berekening in een

gesloten oppervlak.

listing: PLASTTEHP.PAS

.

~ 11 ' . - . . ~ . - . ( I · ' ( ' ~ ~} i • w .door: \ L.H.J.Schreven datum:juni 1987 VF code C2 WPA nr.0436

b

(3)

-PROGRAM PLASTTEMP<INPUT,OUTPUT);

TYPE STRING=PACKED ARRAYCl .. 5l OF CHARi ~ MAT=PACKED ARRAYC1 .. 9l OF CHARi

...

..

•

PAR.Af>1=<DRHQ, DSW, DC, DN, DLABDA, DSIGM02, DEPSQ, DTYZ, DB, DV, DTQ, DST, DAS, DH, DTTOT)i DAT=ARRAYCPARAMl OF REALi

FILENAAM=PACKED ARRAYC1 .. 32l OF CHARi VAR KEUZE: CHAR;

KMATERIAAL: MAT; F: BOOLF.AN i START: REAL; {****•~•»•»~~·~**~***~*~****•****~*******~*******•********************}

<•

*}

<*

{*

<•

{*

<*

{*

<•

{*

<•

naam: CURSOR TEKENHOK STATUS LIJN

doel:procedures ter ondersteuning van scherm opmaak CURSOR=cursor bes-turing voor monitor

TEKENHQj.<.=te kenen van omliJning < vi e.r kant)

STATUS,..,.zet informatie omtrent de invoer of het proces op_

plaats waar zich normaal de status balk bevindt LIJN=tekent hori~ontale, rechte liJn in tekenhok

door: L. Schreven

voor:T.U.Eindhoven pro~ramma PLASTTEMP datum:3-1987

*}

de

*}

<****~••***~**«*»*~*********•******~*****~*»**************************} PROCEDURE CURSOR <A,B: INT€GËR)i

BEGIN

WRITE<CHR< 155) I ' = , I CHR ( 159+A) I CHR ( 159+B)) i

END;

PROCEDURE TE~ENHOK<RIJ,KQL,LANG,HOOG: INTEGER); VAR I,LAAG,VER: INTEGER; BEGIN

WRITE<CHR<155), '$')iWRITE<CHR<155), '. 0');

CURSflR OHJ, KOL) i WRITE< 'B'); FOR I: =1 TO LANG DO WRITE< 'I·V); WRITE< 'C');

LAAG:=RIJ+HOOG+l;

CURSOR<LAAG,KOL)iWRITE<'A');FOR I:=1 TO LANG DO WRITE('K')iWRITE<'D'); VER : =!-\OL +LANG+ 1 i

FOR I:=<RIJ+l> TO <RIJ+HOOG> DO BEGIN

CURSOR (I, KOL) i WR ITE < 'J' >i CURSOR< I, VER) i WR ITE < 'J');

END;

-WRITt:.<CHR<155), '7.' ); WRITE<CHR<155), '. 3' );

END;

PROCEDURE LIJN<RIJ,KOL,LANG: INTEGER); VAR I : INTEGER;

BEGIN

(4)

....

~---WR I TE (

c

HR ( 15 5 ) I I $ I ) i

CURSIIRCRIJ1 KOL); WRITEC 1 ] 1 >;

FOR I : = 1 TO LANG DO WR I TE ( 'K ' > ; WR I TE< 1 _{L ' )} i

WR I TE ( CHR ( 155) I 1h, ) i

END;

PROCEDURE STATUS<A: INTEGER>;

VAR DAT1TIM:ALFA; BEGIN DATE { OA T ) ; TI MJ-:: ( TI M ) ; WR I TE < C HR ( 155 ) 1 ' f ' ) ; CASE A OF 1:WRITEC 1 _{, ) i} END; WRITELN< r END;

2: t-fRITE<' door: L. Schreven ');

3:WRITE<' doorgaan me-t <RETURN:> ');

4:WRITE<' toets 112,3 of 4 ');

5: t.JR I TE< ' in 1 e z en FILE ' > ;

6: (..IR ITE< ' terug naar menu met <RETURN:> '>;

7:WRITE<' alleen de verticale cursor piJlen! ');

8:WRITE<'selekteer met verticale cursor en toets SPATIEBALK'); 9:WRITE<' vul in J(a) of N<ee) +<return:> '); 10: WRITE<' we-rk in uitvoering : EVEN GEDULD A.U.B. '); 11:WRITEC 1

aantal stappen moet kleiner ziJn dan 20 1

>;

12:WRITE<'de waardes worden naar de printer file geschreven '); 13:WRITE<'geef materiaal constanten met elke keer <RETURN> '); 14:WRITE<'geef proces waarden me-t elke keer <RETURN> ');

TiJd: '1 TIM>; {****•****•~****•~**********•*******************************************} {* *} {* naam: D-ATAWRITE *} {* DATAREAD *}

<•

*}

{* doel:Het opslaan van de aktuele programma gegevens *}

{ *

in de externe f i 1 e PTDT. F IL . *}

{* DATAWRITE=De procedure die de data , die in een *}

{* array opgeslagen staan, in de file wegschriJft *}

{* DATAREAO=De procedure die de data uit de file weer in de *}

{* arra~ zet. *}

{* *}

{****»****•***~«*******************~*******»******~*********************}

PROCEDURE OATAWRITE< B:DAT>;

VAR U:TEXT; I: INTEGER;ENUM:PARAM; BEGIN

ENUM: =DRHO;

REWR ITE CU, 'PTDT. FIL' >; FOR I:=l TO 15 DO

END;

BEGIN

WRITECU,BCENUMJ>;

IF I<:>15 THEN ENUM:=SUCCCENUM); END;

PROCEDURE DATAREAD<VAR B:DAT);

VAR U:T~XT; I: INTEGER;ENUM:PARAM; BEGIN

(5)

RESET<U, 'PTDT.FIL'); ENUM: =DRHO;

FOR I : = 1 TO 1.5 DO BEGIN

READ<U,BCENUMJ>;

~ IF I<>15 THEN ENUM:=SUCC<ENUM); END; END; {*****~*•**~~***~*•*•********•**************~*************************} {* *} <* naam:DEFAULT *} {* *}

<* doel:Vult de file, aktuele programma gegevens, met default *}

<* gegevens. *} {* *} {********»*»~~*****••**~*****•******************~*•***************~***} PROCEDURE DEFAULT; VAR B: DAT; BEGIN STATUS< 10 >i BCDB J: =0. 2; BCDTYZJ: =200. 0; ~ BCDTOJ:=293_15; BCDVJ: =2; BCDSTJ: =100; BCDASJ: =20; DA TAWR I TE< a·> i END; {******~~*·~~**»*~*****************~*******~********************************~**} {* naam: TINVOER *} {* *}

<* doel: Inlezen + a-fdrukken externe tekst file <modelaannname of *}

<* gebruiksaanwiJ~ing~n) *}

{* *}

{*****~~···»~***~»~~*********•*~**~*********~*~********************************} PROCEDURE TINVOEH< FNAAM:ALFA);

VAR. F:TEXT;RIJ,KOL,LANG,HOOG: INTEGER;K:CHAR;

BEGIN WRITE<CHR<154), CHR<155), '. 0' )i STATUS(5); RESET ( F I FNAAM) i READ<F,RIJ>;READ<F,KOL);READ<F,LANG);READ<F,HOOG);READLN<F>; TEKENHOK<RIJ,KOL,LANG,HOOG); READ<F,RIJ)iREAD<F,KOL>iREAD<F,LANG>;LIJN<R~J,KOL,LANG>;READLN<F>;

WHILE NOT EOF<F> DO BEGIN

READ<F, R hJ> i READ<F, KOL> i CURSOR <RIJ, KOL>;

WHILE NOT EOLN<F> DO BEGIN READ<F, K); WRITE<K >i END; WRITELNiGET<F>;<*opruimen EOLN-marker*} END; WR I TE ( CHR ( 155) I ' . 3,); END; {****~~··*~~~*~*~*··~··~···~·*~*******~******************************~*} Page 3

(6)

---~---.,....

naam: TITELSCHERM

{~ *}

{* doel:BiJ opstarten programma weergeven titel PLASTTEMP en aangeven *}

{ *

f u n k t i e p r o g r aroma

*

>

{* *} {*****~··*-~****•*••**************************»********~********************} PROCEDURE TITELSCHERM; BEGIN WRITE<'TERMINAL:Televideo 950'); WR I TE ( c HR ( 1 5 5 ) I '$ ; ) i sT A TUS ( 2 ) i WR I TE ( c HR (1 5 5 ) I , • 0 , ) i CURSOR<7,8);WRITE<'RKKKS RS RKS RKKKS CURSQR(8,8);WRITE<'ZRKSZ ZZ Z Z ZRKSAS RKKKKS'); AKSRKD'); CURSORC9,8);WRITE<'ZGKDZ ZZ RD GS ZZ AKT

zz

I) j

CURSOR<lO, 8); WRITE< 'ZRKKT ZZ ZRKSZ ZAKKS

CURSOR<ll, 8); WRITE< 'ZZ ZZ RDGKDGS AKKSZ

CURSOR<12.8);WRITEC'ZZ ZZ Z RKS Z ZZ

CURSOR<13.8);WRITEC'ZZ ZZ RDRT GSGS RKKS ZZ

CUP.SOR<14~8>;WRITE<'ZZ ZGKS Z Z Z Z AKSGKTZ

CURSOR<lS,S>;WRITE<'AT AKKT AKT GKD AKKKD

CURSOR<7,44>iWRITE<'RKKK~S CURSOR<8~44)iWRITE<'AKSRKO CURSOR<9, 44> i WRITE<' ZZ CURSOR<l0,44>;WRITE<' ZZ CURSOR<11,44>;WHITEC' ZZ CURSOR<12~44);WHITEC' ZZ CURSOR<13,44)iW~ITE<' ZZ CURSOR<14·44>;W~ITEC' ZZ CURSORC15144>;WHITEC' GT WR I TE ( CHR ( 155) I I . 3 I ) i RKKKKS ZRKJI.KD

zz

ZGKKKS ZRKKKD

zz

ZGKKKS GKKKKT RS RS RKKKS I ) i ZGS RTZ ZRKSZ'); Z GSRD Z ZGKDZ'); ZRSGTRSZ ZRKKT'); ZZGSRTZZ ZZ '>;

zz

GT

zz zz

I);

zz

zz zz

t ) i

zz

·

ZZ'>i GT GT AT'); TEJ.<.ENHOK<16, g, 62,6); WRITE<CHRC155>~ '. 0');

zz')

i

zz

' ) i

zz

I) j

zz

.

• )

i

zz

IJ i GT');

CURSOR<17, 12)i(•!!·HTE< 'BiJ plastische deformatie komt warmte vriJ. Dit ');

CURSOR<lS, 12);WRITE< 'prografil-.ma lost numeriek de warmte dissipatie op wanneer');

CURSOR<19, 12); lo~RITEC 'er door een afschuivende kracht, op het oppervlak van ');

CURSOR<20, 12);W~ITE<'een balk, pla~tische deformatie onstaat. Op het ');

CURSORC21, 12);WRITEC'symmetrie vlak van het deformatie gebied bepalen we voor');

CURSOR<22, 12>;WRITE< 'een aantal segmenten het temperatuur verloop in tiJd.');

STATUS<3>;READLN;WRITE<CHR<155>, '7.1_{,CHRC155), '. 3');}

END;

{*******~*~•****************•***********************************************)

{* * )

{* naam: MENU *}

doel:Oeeft menu, vraagt en kontroleert keuze

{****»**~*·~·~~·~~*****~****•********~**************************************) PROCEDURE MENU< VAR KEUZt:CHAR);

VAR I : I ~.fTEGER;

BEGIN

STATUS< 1 >i

WR I TE ( CHR < 154) ) ; CURSOR< 31 1 ) ; WR I TE< CHR < 155), 'G4 ' > ;

cURSOR ( 3 I 38 ) i ~R I TELN ( I MENU , ) i WR I TE (

c

HR ( 1 S5') I I GO I ) i

T~KENHOKC81 15,S0.9);CURSOR<9~38);WRITE<'KEUZE'>;LIJN<10, 15,50); CURSUR<12~20>;WRITE<'-1-:HODELAANNAME'>;

(7)

. .,

CURSOR<13,20>;WRITEC'-2-:GEBRUIKSAANWI~ZING');

CURSOR< 14, 20 >; WR ITE< '-3-: BEREKENINGEN'); CURSOR< 15, 20 >; WR ITE< '-4-: STOP');

TEKCNHOK<19, 15,50,3);

I: =0;

CURSnR <21, 38

>;

WRITE< 'KEUZE: '); WRITECCHR < 155), '. 0'); STATUS< 4) i CURSOR<21, 44); WRITE<CHRC15.5), '. 3' ); CURSOR<21, 44)i

REPEAT IF I:•O THEN BEGIN CURSOR <21, 44); WR ITE < ' '); CURSOR< 21, 44 >; END; READCKEUZE); I:=I+1; WRITECCHRC155), 'Gl ')i WRITECORO<KEUZE)); WRITECCHRC155), 'GO');

UNTIL CKEUZE='l') OR CKEUZE='2') OR CKEUZE='3'> OR CKEUZE='4') END;

(~*********~~***************~*********4***~********************************}

( * *}

<*

naam: READCUR

*>

( * *}

<*

dcel:Bepalen positie cursor t.b.v. MINVOER, VERMWINVOER

*>

( * I VERPG INVOER *}

( * *}

(******~**»******************•*********************************************}

PROCEDU~E REA·DCUR <VAR y, X: INTEGER> i

VAR R,C:CHAR; BEGIN

WR I TE (

c

HR ( 1 5 5 ) I I G 1 , ) i

WR I TE< CHR < 155 >, ' ? ' ) i READ CR) i READCC >i

WR I TE < C HR < 1 5 5 > , 'GO ' > i Y: =ORDCR>-31; X: =ORD<C >-32; END; (********»*~***»»************•******~*************~*********************} ( * *} naam: SCHERMMINVOER

doe1:0pmaak invoer ~cherm t.b.v. MINVOER

(»»•****»*}

PROCEDUt-<E SCHERI"'MINVOERi VAR A, I: INTEGER; BEGIN STATUS< 1

>;

WRITECCHR < 15'4 > >; TEKENHOK < 3, 2., 4, 19); TEKENHOK < 1, 8, 11, 21> 1 A:=5;WRITECCHRC155), '. O')i FOR 1:=1 TO 9 DO BEGIN LIJN (A' 2 I 4 ) i A: =A+2i Page 5

(8)

END; A:=3; FOR 1:=1 TO 10 DO BEGIN LIJN< A, 8, 11 ) ; A: =A+2; END;

CURSOR<2,9);wRilE<CHR<15'5), 'Q8');WRITE< 'MATERIAAL'>;WRITE<CHR<155), 'GO');

cURSOR ( 22 I 9) i WR I TE ( c HR ( 155 > I , G4 , ) i WR I TE ( , DOOR GAAN , ) i WR I TE ( c HR ( 15 5 ) I , GO , > i

WR I TE (

c

HR ( 1 5 5 ) I , • 3 , ) i END; <*****»*4**»4**««***•********•**************»*************************} {* *} <* naam: MINVOER *} {* *}

<* doel:Afdrukken materialen uit materiaal file en keuze hieruit*}

{* *}

{*******•«**•*~««************~********~****~**************************}

PROCEDURE MINVOE~<VAR KMATERIAAL:MAT);

BEGIN

LABEL 10;

VAR MATE-RIAAL:MAT;STAP,A.BI I,y,X,A3: INTEGER; F: TEXT; K: CHAR; A2: REAL;

STATUS<5>;

WRITE<CHR< 155), '. 0'); REPEAT

RESET<F, 'PTMA. FIL'

>i

STAP: =0;

10: A: =4;

FOR I:=1 TO 9 DO BEGIN

READ(F, MATERIAAL>

i

READLN<F

>i

CURSOR<A,9)iWRITE<MATERIAAL)i A: =A+2; END; CURSCR<4.3>;WRITE<'->'>;A:=4;STATUS<8>;B:=4; CURSOR<4,75);READ<K>; REPEAT

READCU~ < Y, X); CURSOR< 4, 75"

>i

READLN ( K >; READ 00;

IF X<.>75 THEN BEGIN

CURSOR <A, 3);

WR I TE< '-.> ' > ; S.T A TUS < 7 ) ; END;

IF <Y=3> AND <A=4> AND <X=75) THEN

BEGIN

CURSOR< 221 3 > ;

B: =22;

WR I T-E< '-> '

>;

CURSOR< A, 3 > ; WR I TE< ' '

>;

END;

IF <Y=5) AND <A=22) AND <X=75) THEN

BEGIN

CURSOR ( 4, 3);

(9)

- - - . , . - - - · - - - ·

-..

B: =4;

WR I TE< ' - > ' ) ; CURSOR < A 1 3 ) ; WR I TE < ' ' > ;

END;

IF <Y=5> AND <A<22) AND <X=75) THEN BEGIN

B: =A+2;

CURSOR (BI 3) i

WRITE< '->' ); CURSORCA1 3); WRITE<' '); END;

IF <Y=3> AND <A>4> AND <X=75> THEN BEGIN

B: =A-2;

CURSOR CB1 3>;

WRITE< '->' >; CURSOR<A1 3); WRITE<' '>;

END; A: =B·ï CURSOR<4~ 75"); READ<K>; UNTIL 0<.=' ');CURSOR<B~3>;WRITE<' '>; IF A,...22 THEN BEGIN STAP: =STAP+1; GOTO 10; END; A2:=<A-2>12 + 9*STAP; A3: =ROUND<A2>; RESET<F1 'PTMA.FIL'); FOR I:=1 TO A3 DO BEGIN REAI'HF1 MATERIAAL) 1 READLN<F>; END; UNTIL <MATERIAAL<:>'OPNIEUW '); KMATERIAAL:=MATERIAAL; WRITE<CHRC15S>, '.3'); END; { ******il -~i( •* :.t·;l-lt-·:1-*

*

:.t-!1-·*-** )I ***<*******•)! *•:l-•lt-*•:1-***••** :!-*·•***************"" *** ***} {* *} naam:SCHERMMWINVOER

doel:Afdrukken invoerveld voor MWINVCER

{*****~~~***~***************~~******lt**il***~**************************} PROCEDURE SCHERMMWINVOER; BEGIN STATUS< 1 >; TEKENHOK<7~25,541 15>;LIJN<9~25154); C UR SUR ( 8, 32 ) ; WR I TE ( CHR ( 155 ) 1 'G8 ' ) ;

WRITI:::.< 'MI\ TER IA!\L CONSTANTEN: '); WRITECCHR ( 155) 1 'GO');

CURSORC10~27>;WRITE< 'RHO=dichtheid t:Kglm*3J: '); CURSOR < 121 27 ) ; WR I TE < 'SW=s ooT' te 1 i J k e- usa T' m te C J I Kg . K J : ' ) ;

CURSOR ( 14, 2 7 ) ; WR I TE < 'C =mate T' i a a 1 c onstante C NI mm*2 J : ' > ; CURSOR<16127>;WRITE< 'N=verstevigingsexpone.nt C- J: ');

CURSORC18~27);WRITE< 'LABDA=usarmte geleid. coef.P. CWim. KJ:'); CURSOR <201 27 >; WR ITE< 'SIGM02=rekgrens t:Nimm*2 J: '>; CURSOR <221 27); WR ITE< 'EPSO::.voordeformatie C - J: ');

END;

(10)

(*****~*~*·~~~***~*····~*****•**************•~************************}

( * *}

naam: Mt~INVOER

doel: Inlezen, afdrukken, opslaan materiaal constanten

(*******~**~~·*~********~****•******~*****************~***************}

PROCEDIJf.:E MWINVOE~< KMATERIAAt: MAT>;

VAR B:DAT;A, I: INTEGER;ENUM:PARAM;MATERIAAL:MAT; F: TEXT;

BEGIN

STATUS< 10); DATAREAD;

IF KMATERIAAL='

DAT AWR I TE< B ) i

END;

' THEN BEGIN

CURSOR (8, 54 >i WR ITE<CHR < 155 >, 'G8');

WR I TE < ' z e-1-f invoeren ' ) i WR I TE ( C HR < 1 5 5 ) , 'GO ' > i

A:=lOiENUM:=DRHOiSTATUSC13)i

FOR I:=l TO 7 DO

BEGIN

CURSOR (A, 66) i WR I TE< ' '>i

CURSOR(A,66)iREADLN<BCENUMJ); A: =A+2; ENUM:=SUCCCENUM>; END; END ELSE BEGIN CURSOR(8, 54>;WRITECCHR<155), 'G8');

WR ITECKMATER IAAL) i WRITE<CHR < 155>, 'GO'> i

RESET CF, 'PTMW. FIL');

REPEAT

READLN(F >;

READCF,MATERIAAL>;READLN<F>; UNTIL <MATERIAAL=KMATERIAAL);

ENUM: =DRHO; A: =lOi

FOR I:=1 TO 7 DO BEGIN END; READ(F, BCENUMJ); CURSOR< A-, 66

>;

WR I TE ( ' '>; CURSOR<A,66);WRITECBCENUMJ:8:2)i ENUM:=SUCCCENUM); A: =A+2i END; (*****~··••»~*****~•******»*~**~**********~*********~*****************}

<•

*} naam:MWINVUL

<•

*}

<•

doel:Vult de aktuele programma gegevens in, in SCHERMMWINVOER,*}

( * na herhaald uitv~eren van het scherm materiaal invoe~en *}

( * *}

{*****~*•********»***~*·~··~*·*~**~*********~*************************}

PROCEDU~E MWINVUL<KMATERIAAL:MAT>;

VAR B:DAT;ENUM:PARAM; I,A: INTEGER;

(11)

BEGIN

ST A TUS < 1 0) ;

CURSOR (8, 54>; WRITE<CHR < 155

>,

'G8' >; WRITE<KMATER IAAL); WRITE( CHR C 155>, 'GO'>;

OATAREAD<B

>i

ENUM:=DRHOiA:=10i

FOR I:=1 TO 7 00

END;

BEGIN

CURSOR CA, 66

>i

WR I TE C B C ENUM l : 8: 2 > ;

A:=A+2;ENUM:=SUCCCENUM); END;

{ ******•::t ... ***•}fo·lf'!fo :.~ ***'!fo·)f·)(

**

**~ *'~*****'lt** *******•ll-*·}foi(*'!fo*******************}

{* *}

{* naam: VERMWINVOER *}

{* *}

{* doel:Veranderen, aanpassen van individuele materiaal *}

{* constanten *}

{* *}

{**********»***ll-~**•********••****************************************}

PROCEDURE VERMWINVOER;

VAR Y, X, A, C: INTEGER; K: CHAR; B: DAT; ENUM: PAR'AM;

BEGIN STATUS< 10); WRITECCHR<155), '. 0 1 ) ; DATAREAD; CURSOR ( 1

o,

63) i WR I TE ( I-~, ) i A:=lO;C:=10;ENUM:=DRHO;STATUSC8); CURSOR< 4, 75'); REPEAT REAOCUR<Y,X>;CURSOR(4,75)iREADLN<K>;READ<K>; IF X·C•75 THEN BEGIN CURSOR< /!Jr, 63 >; WR I TE ( I-"> I ) i sT A TUS ( 7 ) i END;

IF <Y=3> AND <A=10> AND <X=75) THEN BEGIN

C:=22;ENUM:=DEPSO; CURSOR< 22, 63 >;

WRITE< '-">'>;CURSOR< 10, 63>; WRITE<' '>;

END;

IF <Y=S> AND <A=22> AND <X=75) THEN BEGIN

C:=10;ENUM:=DRHO; CURSOR ( 101 63 >;

WRITE< '-">'>;CURSORC22,63>;WRITE<' ');

END;

IF <Y=S> AND <A<22> AND <X=75) THEN BEGIN

C:=A+2;ENUM:=SUCC<ENUM);

CURSOR (

c

I 63) i

WR I TE ( , - "> , ) ; cURSOR ( A I 63 ) ; WR I TE ( , , ) i

END;

IF <Y=3> AND <A-:>10) AND <X=75> THEN BEGIN

C:=A-2;ENUM:=PRED<ENUM);

(12)

CURSOR< C, 63) i WR I TE< '-

> ' )

i C URSCR ( A 1 63 > i WR I TE ( ' ' > ; END; A:=C;CURSOR(4,75)iREAD<K>; UNTIL <K=' '); CURSORCC1 63); WRITE<' CURSOR

cc,

66

>;

WtHTE<CHR < 15·5 > 1 DATAWR ITE< B

>;

END; , ) ; ' . 3 ' > ; R EADLN ; {*******~•****~~*************•**************•************************} {* *} {* naam:MATTEKST *} {* *}

{* doel:Teksten ~er ondersteuning <naast de status balki van de*}

{* r.lateriaal constanten invoer. *>

{* *}

{*****•*•**·~·~**»***********•************~•*************************}

PROCEDURE MATTEKST< A: INTEGER )i BEGIN

CASE A OF 1.:

BEGIN

CIJRSOR<2.26>;'-!RITE<'Selecteer gewenste mate-riaal. Indien een leeg');

CURSOR<3.26>;WRITE<'hokJe geselecteerd wordt moet men de ');

CURSOR<4,26>;WRITE<'materiaal constanten zelf apart invullen. ');

END;

2:

BEGIN

CURSOR<2,26>;WRITE<'Indien er een foute waarde is ingevoerd kan ')i

CURSOR<3,26);WRITE< 'deze, na het invullen van het volledige- veld,');

CU~SOR(4,26);WniTE<'weer hersteld worden. Gewoon doorgaan dus. ');

END; 3: BEGIN CURSOR<2,26>;WRI~E<' C IJRSOR < 3, 26 > ; WR I TE < ' CURSORC4,26);WRITE(' CURSOR< 4, 53

>;

END; 4: BEGIN

Wilt u een ander materiaal kiezen:

Ja of Nee:

, ) i , ) i , ) i

CURSOR<2,26);WRITE<' Wilt u een materiaal constante wiJzigen: ')i

CURSORC3,26);WRITE<' ');

CURSOR<4,26);WRITE<' Ja of Nee: ')i

CURSQR(4, 53); END;

5:

BEGIN

CIJ~S0f((2,26);l"RITE<'Selecteer, op dezelfde manier als biJ de ');

CURSCRC3,26>;WRITE<'materiaal keuze, de constante die u wenst te ');

CURSOR(4, 26); WRITE< 'wiJzigen. ');

END; END; END;

- - - . . . , . . - - - -·- -- --

(13)

---~---;:---,-,---:---...,....,.--__..,.,---,---~---·--

--{~****~~**~*~~*~~*~*~***~~**~*****~**************~********************}

{* *}

{* naam:MATERIAAL *}

doel:Coo~dineren1 besturen:SCHERMMINVOER1 MINVOER

1 SCHERMMWINVOER1 MWINVOER1 VERMWINVOER1 MWINVVL

I MATTEKST.

{******~•**~<***~************~*******************~********************} PROCEDURE MATERIAAL< VAR KMATERIAAL:MAT;START:REAL);

VAR B:DAT;K:CHAR; BEGIN SCHERMMINVOER; SCHERMt'fWINVOER; TEKENHOK<1~25~45~3); IF START=O THEN BEGIN MATTEKST<1>;MINVOER<KMATERIAAL>;

H: <Kf1ATERIAAL=' '> THEN MATTEKST{2); MWINVOER<KMATERIAAL); END ELSE MWINVUL<KMATERIAAL>; IF KMAT~RIAAL<>' ' THEN BEGIN REPEAT STATUS<9>;MATTEKST<3>; REPEAT READLN<K>; IF <K<>'J') OR <K<>'J') OR <K-C>'N'> OR <K·C>'n') THEN BEGIN CURSOR<4~53);WRITE<' CURSOR ( 41 53 i; END; UNTIL <K='J') OR <K='J') OR <K='N') OR <K='n'); IF <K='J') OR <K='J') THEN UNTIL <K='N'> OR <K='n'); END; REPEAT STATVS<9>;MATTEKST<4>; REf-'EAT

n

EADLN 00 ; BEGIN MATTEKST< 1 >; MINVOER<KMATERIAAL); IF KMATERIAAL=' MWINVOER<KMATERIAAL>; END; ' THEN MATTEKST<2>; IF <KC>'J'> OR <K·C>'J') OR <K<:>'N'> OR <K<>'n'> THEN BEGIN CURSOR ( 41 53 i; WRITE<' CURSOR< 41 53 i; END; UNTIL <K='~') OR <K='J') OR <K='N') OR <K='n'); , ) i , ) j Page 11

(14)

·- - - ··- ·- --·- -- -- - -IF <K=~J') OR <K='J') THEN UNTIL <K=~N'> OR <K='n'); END; BEGIN MATTEKST < 5 > ; VERMWINVOER; END; {*****~~***•***~*~~··~******~•************~***************************} {* *} <* naam: BEREKH *} {* *}

{* doel:Be~ekening deformatie diepte H *}

{* *} {*******•***·~·~****•*************************************************} PROCEDURE BEREKH; VAR B:DAT;PHI,H:REAL; BEGIN STATUSC10>; DATAREAD; PHI: =4*ARCTAN < 1. 0 >;

H: =B C UB J I <2*TAN< <PHI*B CDSIGM02l) I< 2*BCDTYZl*SGRT<:3. 0)) >);

IF H<O THEN H:=O.OOOO; BCDHJ: =H; DATAWR ITE; END; {*******•~**~**~*~·t*•******~*t********************•********************} {* . *} {* naam:SCHEt-tMPGINVOER *} {* *}

{* doe1:0pmaak invoer schermt. b.v. PGINVOER en invullen default *}

{* of vorige gegevens *} {* *} {*****~ ·::: ->.t ::l-* ::1-·~·:HH:"' ll-11-~***·*-!t **if

*

""***** *·ll-*•ll-****•ll-·::t·ll-****•********************} PROCEDU~E SCHERMPGINVOER; VAR B: DI\T; BEGIN WR I TE < C HR < 1 54 > > ; BEREKHi DATAREAD; TEKENHOK < 1, 25, 30, 1

>i

CURSOR< 2, 321

i

Wk I TE ( CHR < 155

>,

'GS'

>i

WR ITE < 'PROCES GEGEVENS' j;

WR I TE< C HR ( 155: > , 'GO ' > ;

TEKENHOK<5,5,5?,3)i TEKENHOKC11~5,52, 1)i

TEKENHOK < 151 5~ 52, 7

>i

CURSORC6,6>;WRITE<'Tyz=afschuivings kracht CNimm*2l:

CURSOR<8,6);WRITE<'B=breedte afschuivings vlak

r

mm l:

CURSORC1~.6);W~ITE<'H=deformatie diepte C mm ]: CURSORC16,6);W~ITE<'V=gliJsnelheid C mlsec. J: CURSOR(18,6)lWRITE<'TO=b~gin temperatuur C K l : CURSORC20,6);Wt-tiT~C'ST=aantal stappen C l: CURSOR<2~,6);~~ITEC'AS=aantal segmenten C- J: END; '1 BCDTYZJ: 10: 5); '1 BCDBJ: 10: 5); '1 BCDHl: 10: 5); , I B [ DV l : 1 0: 5 ) i ', BCDTOJ: 10: 5); ',ROUNDCBCDSTJ>:4); , I R OUND ( B

c

DAS l ) : 4 ) i Page 12

(15)

<******~•**»********•***~***~**************~**************************}

<*

*}

<*

naam:PGINVOER

*}

<*

*}

<*

doel: Inlezen, afdrukken, opslaan, proces gegevens. *}

<*

*}

<**********»*****************•******~*********~***********************} PROCEDURE PGINVOER;

VAR B: DAT; ENUf"': PARAM; I, A: INTEGER; BEGIN STATUS< 10); DATAREAD<B) i STATUS< 14

>i

CURSOR<6,47)iWRITE<' READLN ; ')i CURSOR< 6, 47); '); CURSOR< 8, 47 >; DAT AWR I TE ;

BEREKH; DATAREAD< B) i CURSOR<12,47)iWRITE<' WRITE<BCDHJ: 10:5); ENUM:=DV;A:=16; FOR I:=l TO 4 DO ');CURSOR ( 12, 47>; BEGIN CURSORCA,47);WRITE<' READLNCB.CENUMJ >; ENUM:=SUCC<ENUM); , ) ; cURSOR ( A I 4 7 ) ; DATAwR ITE; END; A: =A+2; END;

< ***** •·::

4ll--l:: *·=~-~

**

*

:t

· :l

***~

:1-*

• :t*

· :ti: •

· :t***

'

ll-***•:t

· :t***************•ll-

• ll-**}

<*

*}

naam:VERPGINVOER

doel:Veranderen, aanpassen van individuele proces gegevens

<*******•**'**~*~*:.****~****««***********************~******************}

PROCEDURE VERPGfNVOERi

VAR -B: DAT; ENUM: PARAM; X, y, A, C: INTEGER; K: CHAR;

BEGIN

WR I TE ( CHR < 155

>, '.

0'

>;

STATUS ( 10);

DATAREAD< B);

CURSQR(6,43);WRITE<'->'>;

A:=6;C:=6;ENUM:=DTYZ;STATUS;

CURSOR< 4, 75 >; REPEAT READCUR<Y,X>;CURSOR<4,75);READLN<K>;READ(K); IF X<>75 THEN BEGIN CURSOR<A, 43); WR I TE < '-

> ' ) ;

ST A TUS < 7 > ; END; Page 13

(16)

~-.---~-~---·---·---

-IF <Y=3> AND <A=6> AND <X=75) THEN BEGIN

C:=22;ENUM:=DAS; CURSOR ( 22, 43 >i

WRITE< '->'>iCURSORC6,43)iWRITE<' '); END;

IF <Y=S> AND CA=22) AND <X=7S> THEN BEGIN

C: =6i ENUM: =DTYZ; CURSOR< 6, 43

>;

WRITEC '->');CURSOR <22, 43) 1 WRITE<' ') 1 END;

IF <Y=S> AND <A<22) AND <X=7S> THEN BEGIN

IF A=B THEN C:=16 ELSE C: =A+2i ENUM: =SUCC C ENUM) i

CURSOR CC, 43);

WRITEC '->');CURSOR CA, 43)i WRITE<' ')i

END;

IF <Y=3> AND <A>6> ANO <X=75) THEN BEGIN IF A=16 THEN C:=B ELSE C: =A-2i ENUM:=PREDCENUM)i CURSOR CC, 43) i WR I TE ( , - > ' ) i CURSOR ( A I 43 ) i WR I TE ( , , ) i END; A:=C;CURSORC4,75)iREADCK)i UNTIL <K=' '); CURSOR (

c

I 43) i Wt-t I TE ( , , ) i

CURSOR CC, 47) i Wt{ ITECCHR C 155), '. 3' >i READLNCBCENUMl) i

DATAWR ITE<B.

>;

IF CENUM=DB> OR <ENUM=DTYZ> THEN

END; BEGIN BEREKHi DATAREAD<B

>;

CURSOR<12,43);WRITEC' ')i CURSORC12,47);WRITE<BCDHJ: 10:5); END; {*******•***~***~***•***~****•***************~~***********************} {* *} {* naam:PROTEKST *} {* *}

<*

doel:Teksten ter ondersteuning <naast de status balk ) van

*}

<*

de proces gegevens invoer.

*}

{* *}

{~****~*•*•»<~*~***~****~~**~•******~~*****~**************************}

PROCEDURE PROTEKSTC A: INTEGER ); BEGIN

CASE A OF l:BEGIN

CURSORC12,6Q);WRITEC'Wilt u het hele veld');

(17)

END; END; C IJ~SOR < 13, 60 > ; WR I TE < ' op n i e uw in vu 11 e·n : ' ) ; GURSORC1b,6Q);WRITE.C' Ja of Ne-e: '); CURSOR C 16, 76); ENO; 2:BEGIN

CUNSOR<12,60);WRITEC'*Een f~ut ingevoerde');

CURSORC13,60);1;·JRITEC 'waarde kan na het ');

CURSORC14,60);WRITEC 'invullen van het ' ) i

CURSORC15,60);WRITEC 'volledige. veld weer ');

CURSORC16,60);WRITEC 'her1ite1d ·worden. ');

CURSORC17,60);WRITEC'*H wordt, na het in-'); CURSORC19,60);WRITE<'vullen van Twz en B ');

CURSORC19,60);~~RITEC 'opnieuw berekend. ');

END; 3:BEGIN

CURSORC12,6Q);WRITEC'Wilt u een proce1i ');

CURSORC13,60);WRITEC 'waarde w.iJzigen: ' ) i

CURSORC14,60);WRITEC' '>; CURSORC15,60>;WRITEC' ' ) i CURSORC16,60>;WRITEC' CURSORC17,60);WRITEC' CURSORC19,60>;WRITEC' CURSORC19,60);WRITEC' CURSOR C 16, 76); END; 4:BEGIN Ja of Nee:

,

'

_,. _' , ) i , ) i

,

) ; CURSORC12,60);WRITEC'*Selecteer de waarde');

CURSORC13,60>;WRITEC 'die. u wen1it te ');

CUHSORC 14, 60); WRITEC 'wiJzigen. ' ) i

CURSORC15,6Q);WRITEC'*BiJ wiJ~iging van ');

CURSORC16,60);WRITEC'Tyz en B wordt de H ~);

CUHSOR C 17, 60); WRITEC 'opnieuw berekend. ');

CURSOR C 16, 76

>;

END; {*****~****»•***~·~~·~***~***•**************~*************************}

<•

•>

<*

naam: PROCES

*}

{*

•>

doel:Coordineren, besturen:SCHERMPGINVOER, PGINVOER, VERPGINVOER, PROTEKST. {*****~~***»~*****~**********t****************************************} PROCEDU~E PROC.ES; VAR K: CHAR; BEGIN SCHERM?GINVOER; TEKENHOKC11, 59, 20, 9); STATUSC9);PROTEKSTC1); REPEAT READLN<K>; IF (:t,<:>'J") OR <K<:>'J') OR <K<:>'N') OR <K<:>'n') THEN BEGIN CURSORC16, 75.); WRITE<, I ) ; Page 15

(18)

CURSOR< 16, 75); END; UNTIL <K=~J') OR <K='J') OR <K='N'> OR <K='n'); IF <K='J') OR <K='J 1 ) THEN BEGIN PROTEKST < 2 >; PGINVOER; END; REPEAT STATUS<9>;PROTEKSTC3); REPEAT READLN<K>; I... < KC:> 'J 1 > OR < K <:;. ' J 1 _{> OR < K <:;. 'N ' > OR < K} <)-'n ' > THEN BEGIN CURSOR<16, 75); WRITE<, I ) ; CURSOR< 16, 75

>;

END; UNTIL <K='~'> OR <K=1 J') OR <K='N'> OR <K='n'); IF <K='J1 ) OR <K='J') THEN BEGIN PROTEKST < 4 > ; VERPGINVOER; END; UNTIL <K='N'> OR <K='n'); END;

{*)jo***~~"""** ~-4C ***ie **•-:t***•;t**** :t·;t**•;t*•;t•:t*•Jio***·;t-;t•;t**•;t•:t*'lf-•;t****•;t*************}

{* *}

{* naam:BEREKENING *}

{* *}

doel:Rekent de array voor het warmteverloop uit en schriJft

deze weg in een externe file.

{*****~4***~4****)1-~4********~*********************•*******************}

PROCEDURE BEREKENING;

TYPE ARR=ARRAYC1 . . 100J OF REAL;

VAR PHI,RHO,SW,c,N,LABDAIEPSO,TYZ~B~H~TrOT,TO,DELTAH~DELTAT: REAL;

DELTA~,STROQM,VERP1~VERP2,VIWTYZ,DSTAP:REALi

BEGIN

STATUS< 10

>;

y I A! .FA, SIGMA, BRON: ARR;

T:ARRAYC1 . . 100, 1 .. 2J OF REAL; EPS:ARRAYC1 .. 100, 1 .. 2J OF REAL; A: DAT;

I~J,AS~ST: INTEGER;

U: TEXT;

WRITE<CHR <154)) i TE::KENHOK<41 27, 241 3) i TEKENHOK (9, 31 I 16, 5); WR ITE<CHR ( 155) I I . 0,) i

DATAREAD<A>; RHO: =ACDRHOJ; SW: =ACOSWJ; C:=ACDCl*lOOOOOO; N: =ACDNJ; LABDA:=ACDLABDAJ;

EPSO: =AC OEPSO J;

TYZ:=ACOTYZl*1000000;

B: =ACDBl*O. 001;

(19)

- - --- -- - - ---·---~-- -·-·---~---H: =ACDHl*O-001; V: =ACDVJ; TO: =ACDTOJ; ST:=ROUND<ACDSTJ); AS:=ROUND<ACDASJ); PHI:=4*ARCTANC1.0); DEL TAH: =H/AS;

CURSOR<11,35);WRITE< 'STAP:'); CURSOR ( 13, 35) i WR ITE< 'SEGMENT: I) i

CURSOR<6,28);WRITE<'tiJd: VERP 1: =0; DSTAP:=TYZ/( ST+ 1 ); WTYZ: =DSTAP; TTOT: =0; FOR I:=1 TO AS DO BEGIN YCIJ:=DELTAH*<<I-1) + 0. 5); Csec. J ' ) ; EPSCI, 1l:=EXP<<11N)*LN<<WTYZ*SGRT<3>>1<PHI*C>*2*ARCTAN<BI<2*YCIJ)))); TCI, 1J:=TO; VERP1:=VERP1 + <DELTAH*EPSCI, 1l*SGRT<3)); END; FOR J:=1 TOST DO BEGIN CURSOR<11,41);WRITE<J:3); WTYZ:=WTYZ + DSTAP; VERP2: =O; FOR I:=1 TO AS DO BEGIN EPSCI,2l:=EXP((l/N)*LN<<<WTYZ*SGRT<3>>1<PHI*C>>*2*ARCTAN<BI<2*YCIJ)))); VERP2:=VERP2 + <DELTAH*EPSCI,2l*SGRT(3)); END; DELTAT:=<VERP2- VERP1)/V; TTOT:=TTOT + DELTAT; CURSCR<6,33);WRITE<TTOT:9:ó); VERP 1: =VC:::RP2; FCR I:=1 TO AS DO BEGIN cURSOR ( 13 I 44 ) i WR I TE ( I : 3 ) i

DELTAE: =ABS<EPSCI,2J - EPSCI, 11);

SIGMACIJ:=C*EXP<N*LN<EPSCI,2l + EPSO)); BRCNCil:=SIGMACil*DELTAE;

IF I=1 THE'N STROOM:=LABDA*«TCI,ll- TCI+l, 1J)/(DELTAH*DELTAH)); IF I=AS THEN STROOM:=LABDA*<<TCI, 11 - TCI-1, lJ)/(DELTAH*DELTAH>>; IF 1> AND <I<AS> THEN

STROOM:=LABDA*<< + 2*TCI, 1 l - T[I-1, 1 l - TCI+1, 1l>I<DELTAH*DELTAH)); T[I,2J:=TCI, 11 + (1/<RHO*SW>>*<BRONCIJ- STROOM*DELTAT>;

END; IF JC•ST THEN FOR I:=l TO AS DO BEGIN TC I, ll: =TC I', 2J; --~---~ - - - -·- -Page 17

(20)

END;

FOR I:=1 TO AS DO BEGIN

EPSCI, 1l: =EPSCI, 2l; END;

ALFACIJ:=CCT[I,2l- TCI, 1l>*RHO*SW)/BRONCIJ;

END;

REWR ITE::(U, 1_{PTUK. FIL}_I)_i

FOR I:=1 TO AS DO BEGIN WRITe<U,ALFACIJ); WRIT~<U,TCI,2J); WRITE<U,EPSCI,2l>; WRITE<U,SIGMACIJ); WR I TELN ; END; ACDTTOTJ: =TTOT; DATAWRITE<A> i WR I TE ( CHR { 155) I , • 3,) i END; {*****~~~**»*~~****••***~****•*************•*•************************} {* *} {* naam:UITPRINT *}

doel:Zet uitkomst b~rakening, naar keuze, op schermen/of

papier. BiJ uitprint op papier worden de materiaal en proces gegevens eveneens u i tgepr int. Voor afdruk op scheh1l mag het aantal segmenten niet groter als 20 bedra.gen.

{*******~******~*************•****************************************}

PROCEDURE U I TPR I NT ( KMATER IAAL: MAT > ;

BEGIN

WR I TE ( CHR < 154 > >;

VAR B:DATi I,K: INTEGER;U,F:TEXT;

· KEUZE: CHAR; DAT,TIM:ALFA;

ALFA,REK,SIGMA,TEMP:REAL;

TEKEI\:HOK (8, 1.'5, 50, 9); CURSOR (9, 38); .WR ITE< 'UITKOMST'>; LIJN< 1

o,

15, 50

>;

CURSOR<12.120)iWRITE<'-1-:UITKOMST OP SCHERM');

CURSOR<13~20);WRITE<' <aant.al s·egmenten max. 20 )');

CURSOR<1lt,20)iWRITE<'-2-:UITKOMST OP PAPIER'); CURSOR<15,20)iWRITE<'-3-:KeUZE -1- EN -2-');

CURSORC16,20);WRITE<'-4-:GEEN UITKOMST GEWENST'); TEKENHOK<191 15,5013);

I: =0;

CURSOR (21 I 38) i WR ITE< 'KEUZE: , ) i WRITE<CHR ( 155) I , • 0,) i

STATUS( 4) i CURSOR (21 I 44> i WRITE<CHR ( 15'5) I , • 3,) i CURSOR (211 44) i

REPEAT IF I:>O THEN BEGIN CURSOR<21, 44); WR I TE { I . , ) i Page 18

(21)

CURSOR <211 44); END; READ<KEUZE>; I:=I+l; WR I TE. (

c

HR ( 1 5 5 ) I , G 1 , ) i WRITE<ORD<KEUZE)); WR I TE (

c

HR ( 1 5 5 ) I , GO , ) i

UNTIL <KEUZE='l'> OR <KEUZE='2'> OR <KEUZE='3') OR <KEUZE='4'); STATUS< 1 > ; WR I TE< CHR ( 155), '. 0 ' ) ; WR ITE<CHR

<

154 >>i IF KEUZE<)'4' THEN BEGIN STATUS< 10>; DATAREAD; END;

IF <KEVZE='1') OR <KEVZE:'3') THEN BEGIN IF BCDASJ>20 THEN END; BEGIN STATUS< 11); KEUZE:= '2 I i END;

IF <KEVZE='1'> OR <KEUZE='3') THEN BEGIN

STATUS( 10);

CURSOR ( 1, 6>; WRITE< 'STAP'>;

CURSOR(1,2U;WRITE< 'ALFA t - l'); CVRSOR<t.36);WRITE<'TE:J1P C K l'); CVRSOR<1,51);WRITE<'REK C- J'); CURSOR(1,66);WRITE<'SIGMA CN/mm*2l'); LIJN < 2, 1, 78 > ;

Rt:.SET<U, 'PTUK. FIL'); K: =ROUND <BCDASJ >;

FOR I:=1 TOK DO BEGIN

CURSOR<2+I~6>;WRITE<I:2);

READ<U, Al FA) i CURSOR< I+2, 21 >i WRITE<ALFA: 8: 3>;

READ (IJ, TEMP) i CURSOR< l+2, 36 >i WR ITE<TEMP: 8: 3) i READ<U,REK>iCURSOR<I+2,51)iWRITE<REK:8:3); READ<U,SIGMA>;CURSOR<I+2,66)iSIGMA:=SIGMA*0.000001iWRITE<SIGMA:8:3); WR ITELN; GET; END; IF KEUZE<:>'3' THEN END; BEGIN STATUS(3)iREADLN; END;

IF <KEUZE='2'> OR <KEUZE='3') THEN BEGIN STATUS< 10 >; K:=ROUND<BCDASJ)i REWRITE<F, 'PT. UITKOMST'> i R~SET(U, 'PTUK.FIL'); WR ITELN<F >i

l.§~ITELN(F,' PLASTTEMP door L. Schreven ');

(22)

~1R I TELN ( F I , ***********"'"*********•lt*****•ltil *•lt******il*•lt*****************•lt*, ) i

DATE<DAT)iTIME<TIM);

WRLTELN<F,' DATUM:', DAT,' TIJD:', TIM>;

WRITELN(F, 'lt****il*ilil*~***************~********************************'); t..:niTE<F, 'm."\teriaal : '>; WRITELN<F, KMATERIAAL>;

l-.:R I TELN ( F I , - - - -- -·- - - -·-- - - -, ) i

l-~i-tiTE<F~ 'RHO=dichtheid CKg/m*3l: '); WRITELNCF, BCDRHOJ: 10: 3); Wl'<ITE<F, 'SW=soorteliJke warmte CJ/Kg.KJ: ')iWRITELNCF,BCDSWJ: 10:3>; WHITECF, 'C=materiaal constante CN/mm*2l: ');WRITELN<F,BCDCJ: 10:3>; WHITE<F. 'N verstevigings exponent C- J: ')iWRITELN<F~BCONJ: 10:3); t.iï-(ITE<F, 'LABOA=warmte geleid. coeff. CW/m. KJ: ')iWRITELN<F~BCOLABOAJ: 10:3); WRITE<F, 'SIGM02=rekgrens CN/mm*2l: ')i WRITELNCF1 BCOSIGM02J: 10: 3)i Wï-(ITF<F, 'EPSO.::...voordefor.'tlatie [ - J: '>;WRITELN<F~BCOEPSOJ: 10:3); WR ITE< F 1 'Ty z=afsc hu i ving s kracht CN/mm*2l: '>; WR I TELN<F, BCOTYZJ: 10: 3

>;

WRITE<F, 'B=breedte afschuivings vlak C mm l: ');WRITELNCF,BCDBJ: 10:3); WRITE(F, 'H=deformatie diepte [ mm J: ');WRITELNCF,BCDHJ: 10:3); WHITE::<F, 'V-gli,Jsnelheid Cm/sec. J: ');WRITELN<F~BCDVJ: 10:3>; Wï-( ITE< F 1 'Ttot=tota 1 e deformatie tiJd Csec. J: ')i WR ITELNCF1 B COTTOTJ: 10: 6) i

t-!;-(ITE'{F, 'TO=begin temperatuur C KJ: ')iWRITELN<F~BCDTOl: 10:3);

Wï-(ITE'<F, 'ST=aantal stappen C - l: ');WRITELN<F~ROUND<BCDSTJ>: 10); WkiTECF1 'AS=aantal segmenten C- J: ')iWRITELN<F~ROUND<BCDASJ>: 10);

~RITELNCF, '-- --- ---'); WRITELNCF);WRITELNCF)i WRIT~CF1 'SEGM~NT WRITELN<F, ' ALFA C - J REK C - J TEMP C K J

'>i

SIGMA CN/mm*2l'); ~RITELNCF1 '-- .. ---·---~·---'>i

FOR I:=l TOK DO BEGIN

WR I TE ( F I I : 21 I , ) i

READ

(u

I ALF A) i WR I TE ( F I ALFA: 10: 5 I , , ) i

READ (u I TEMP ) i WR I TE ( F I TEMP : 10: 5 I , , ) i

READ<UI REK> i WRITE<FI REK: 10: 51 I , ) i

READCU,SIGMA>iSIGMA:=SIGMA*O.OOOOOl;WRITELN<F~SIGMA: 10:5); READLN<U

>i

END;. IF KEUZE='3' THEN END; BEGIN STATUS<3>; READLNi END; WR I TE ( CHR ( 155) I , • 3 I) i END; (*****4*4***~-11*****44****-ll***•*************~**il***********************} ( * *} (* naam:ElNDE *} ( * *}

(* doel:Einde programma aangeven met grafisch grapJe. *}

( * *}

(*****~*****~**lt*lt~******il***•****il***************~*******************}

PROCEDURE EINDE;

VAR I IJ: INTEGER;

BEGIN

WR I TE (

c

HR ( 1 54 ) I

c

HR ( 155 ) I , $ , ) ; sT A TUS ( 2 ) ; WR I TE (

c

HR ( 15 5 ) I , . 0 I ) i CURSORC7,2~);W~ITE<'FKKKG FG FKG FG FKG FKKKG1

) ;

CURSORC8,25>;WHITE<'JFKKH EH J EW JJ J EG JFKKH'); CURSOR ( 9 I 25) i WH I Të ( , JEK KG FG JFGEWJJ JFGEG JEK KG I ) i

CURSOR C 101 25 > ; WR I TE< 'JFKKH JJ JJEWEHJ JEf-lFH JFKKH' > i

(23)

CURSOR<11,25>;WRITE<'JEKKG JJ JJ EW J J FH JEKKG'>; CURSOR<12,25>;WRITE<'EKKKH EH EH EKH EKH EKKKH'>; WRITE<CHR<155), '7.');

CURSOR<21, 1 );

WRITE<CHR<155), '$');FOR I :=1 TO 80 DO WRITE<'K'>;WRITE<CHR<155"), '7.'); CURSOR< 23, 1 >;

WRITE<CHR<155), '$');FOR I:=l TO SO DO WRITE<'K'>;WRITE<CHR<155), '7.'); CURSOR<2?.,2);WRITE<'TOT ZIENS'>; FOR I:= 1 TO 80 DO BEGIN FOR J:=1 TO 2 DO BEGIN CURSOR< 1, 1 >; WR ITE < ' '>; CURSOR <22, 1

>;

END; WRITE<CI!R<155), 'G'); END; WRITE<CHR<155), '.2'); END; {******~•»~»~··~*************~~*************~~**~*•***~*~************) {* * ) {* naam:GEBRUIKSAANWIJZING * ) {* *}

{* doel: Invoeren schermen voor gebruiksaanwiJZing <keuze 2 in *}

{* me.nu. *} {* * ) {*******•***f~*************~~*****~*~********************************) PROCEDU!-<E GEBRUIKSAANWIJZING; VAR A, I: INTEGER; BEGIN TINVOER < 'PTG1. FIL' >; WRITE<CHR<155), '.0'); STATUS<3>;READLN; WR I TE { CHR ( 155) I , • 3 (); TINVOER < 'PTG2. F IL' >; TEKENHOK<17,20, 18,2); WR I TE (

c

HR ( 1 5 5 ) I , $ , ) i CURSOR< 15, 46

>;

WR I TE< 'RS'

>;

CURSOR<16,44);WRITE<'RKTGKS'); WR I TE (

c

HR ( 155.) I ( 7. , ) i A: =41; FOR I :=1 TO 5 DO BEGIN TEKEI\IHOK

<

17, A, 1, 2) 1 A: =A+3; END;

CURSOR { 18, 44); WR ITE<CHR ( 155), 'G4'); WR ITE ( ' I ' ) ; WRITE<CHR<155), 'GO');

CURSOR< 19, 44); WR ITE<CHR < 155 >, 'G4'); WRITE < 'V'); WR I TE (

c

HR ( 1 5 5 ) I (GO I ) i CURSOR ( 18, 4 7 ) i WR I TE (

c

HR ( 155 ) I I G4 I ) ; WR I TE ( , ,A, I ) i WRITE<CHR<155>, 'GO'); CURSOR< 19, 4 7); WR I TE< CHR < 1.55

>,

'G4' ) ; WR I TE ( ' I ' ) ; WR I TE (

c

HR ( 1 5 5 ) I I GO I ) ; WR I TE ( CHR ( 155> I I . 0 I ) ; STATIJS < 6); READt N; WR I TE ( CIIR ( 15.5) I I . 3 I ) ; Page 21

(24)

- - - -- - - --- -- - -- -- ·- ·- ··- -- - -END; <*•••*~****»•*···~····~·~**~~-*~****~***~*•***********~***********~**} {********~J*~*•«***•*********•***************~*************************} {** **} <** HOOFDPROGRAMMA **} {** **}

<** PLASTTEMP.PAS PLASTTEMP.PAS PLASTTEMP.PAS **>

{** {** {**

{il*

{** {** {** {*·lt {** {** {** {** {** {** <** {** <•* {** {** {** {·lf·* <** {*'* {** {** {** door: L. SCHREVEN

voor: D1·. Ir. J. H. Dauzenberg TUeindhoven afd. Werktuigbouw

datum: 4-1987

doel: BiJ plastische deformatie komt warmte vriJ. Dit programma lost numeriek de warmte dissipatie op wat1neer er door een afschuivende kracht, op het oppervlak van een balk, plastische deformatie onstaat. Op het symmetrie vlak van het deformatie

gebied bepalen we voor een aantal segmenten het

temperatuur verloop in tiJd.

gebruikte ~rocedures C in hoo~dprogramma >:

DEFAULT,TITELSCHERM,MENU,TINVOER MATERIAAL, PROCES,

BEREKENING, UITPRINT, E:INDE,

GEBRUIKSAANWIJZING <C>opyrights 1987 L. SCHREVEN **} **} **} **} **}

**}

{***·**** '*~

*

::1-·-**·":1-·Jto lt-*·ll4f-·)fo*Jt*11 **** ~**** **•)1-*·lt-M ***·HI•***•lf*'******·•-lt**********·lt**}

{*******~**»~*****~*'********~4************************~****************}

BEGIN <HOOFDPROGRAMMA>

WRITE<CHR<154),Ct-:~C155), 'g');{status weg i.v.m. procedure STATUS}

WRITE<CHRC155), '. 1 '); DEFAULT; TITELSCHERM; START: =O; F: =FALSE; REPEAT MF.NU <KEUZE> ; IF KEUZE='l' THEN BEGIN TINVOER { 'f'TMD. FIL I ) ; STATUSC6);READLN; END; IF KEUZE='2' THEN BEGIN GEBRUIKSAANWIJZING; END; Page 22

(25)

IF KEUZE='3' THEN BEGIN MATERIAAL<KMATERIAAL,START>; PROCES; BEREKENING; UITPRINT<KMATERIAAL>; START: =1; EN01

IF KEUZ.E='4' THEN F: =TRUEJ UNTIL F=TRUE;

EINDE;

WRITt::<CHR<155), 'h ', CHR<15""!) ); {status balk weer in originele toestand: STATUS} CURSOR<t.l>;WRITELN< 'voor uitkomst op papier: SPOOL PT. UITKOMST');

END.

(26)

User: SCHREV -at PRO <.USEMFD~•WPB~•SCHREV:>PTG1. FlL *****~1*~~-~~~~~**~*•***•*~~-~~**~*~<*~~**~*':t<~**~******•~**~*****~*******"""************«***************************~*·tA':t~***»»****** ******•»•~*»~*~*~**~·*~***~«*****~**~*****•*-~*"""******«••~*-•***************•*****************************************•»••~•**»**»*** l.JWW l~Wt.J

w w wwww

WWWt~W

w

w w w w w w

w

'"

t-1WW

w

W!.JWWW

w w w w

wwww wwww w w

w w

w

w w

w

w w

w

w w

t.J

w w

w w w w

w w

www

w

w w wwwww

w

W'-1WW t~WWWW l.JWW

w

wwwww www w

w w

w

W{.S

w

w w

w

wwww

.w

w

tol

wwww

w

l'll WW

w

~-4

w

WW

w

l.J ~4

wwww www

WW

w

www wwwww

~*****.:::~-':t~*·~·-cl·:t·:t-?:~*·~·":f-"t~·lF<f-<*»·lf-*"l~*·lfo·':t·:t·»~*H"**~~·»<~ .. »·~·lf-·HI*»**I-ll*·~**·»«*·»**»**·»****'»·»****')(o****~*·»***************************"~ ':1-:1 .. .:1-*lHfolf-*******

**"""~ ** •-ll :H: *;: .. til ·.:t·»* :t~ ·A-'t·l ):(o"fo~ · ··t** ****~*·)Hl* :t~ **•'t*·'t~ -ll ·)Hl *"4-***« * ~~ *'****~ *·ll-~ * ll-******-1: *'»********"4-« *·ll-*********** ll-********•ll-****·l

' )(

't-':1 *·::1-·:t* 'I******

Label: PRT002 -form

Pathname: <USEMFU~•WPB:>SCHREV)PTG1. FIL

File last modified: 87-04-13.09:30:24.Mon

Spoo led: Started: 87-06-11. 12:40:32. Thu 87-06-11. 12:40:36.Thu [Spooler rev on: PRO 19. 4] b1,1: PRO

(27)

1 15 49 21

3 15 49

2 28

**

GEBRUIKSAANWIJZING

**

4 16 l*De status geeft informatie omtrent de toestand

5 18 wa~rin het programma zich bevind, de gewenste

6 18 invoer, aanwiJZingen voor de gebruiker.

8 16 2*De PR1ME comp~ter kan soms zeer traag ZiJn,

9 18 wacht rustig af en geef geen onnodige invoer. 11 16 3*Indien e•· in een invoerveld een horizontaal

12 18 piJltJe

<->>

verschiJnt kunnen we deze met de

13 18 verticale cursor toetsen door het invoerveld

14 18 laten be~egen. Als het piJltJe op de gew~nste

15 18 plaats staat toets dan de spatiebalk. ~et

16 18 piJltJe dient nu te verdwiJnen, indien dit niet 17 18 het geval is: herhaal dit laatste.

19 16 4*Rechts bO\'enaan kunnen biJ gebruik van d.e

20 18 cursor toetsen teken~ onstaan.#K zal het

21 18 teken ziJn biJ het toetsen van de spatiebalk.

(28)

User: SCHREV -at PRO <:USEMFD :>WPB:•SCHREV/PTG2. FlL

·:t***i1*1til ~~* ~··:C*·';t-l:*'*·:til~~**-ll*1t**-'Hl**~*'ll-<*1t•:t**~*·:f-~*·1t**·~·lt*·1t1t***'*"***':t**·:t**·:t******•lf*:t*****''ll-****il*************il***********~ :t*·~··~ .. Jt*lt-lt·ll*******

*******-lt·~*•~<*~~***4~**•<il*******~**~*"*'***~**~**********4•**************************************il********************•*•~~lt*il*******

www

~~WW (.J

w wwww wwwww w w

w w

t.,f

w w w

w

w w

w

w w

t.JWW

w

wwwww

WW~oiW

wwww w w

w w

w

w w

w

w w w

w

w w

www

Wl.SW

w

w w

.

w

WWWt.JW

w

wwww

W~.JWWW

www

wwwww www w

w

w w

w

wwww

tol

w

t-J

wwww

w

t-4

w

WW

w

(-I tol

w

WW

w

l-J ~-~

wwww wwwww

WW

w

www wwwww

*********•*~*****•*********~*******1t~*•***~****:t*********a********~******il****************************************~**~*•***<********

~ ***** 1t :t lt* * :'*·t·~·t·::l

*

::1-4 ::t•***·'=l·lt·1tolt* til *·:t·lf * ::t< *Wil**<* ~·:C*·ll-**•·':f-·lt·lt***-1! *'****•lt**il *'*** ll-*****·1t********** **********•ll-**********~****** lt< * H l il·lt ll* ******* Label: PRTOOS -form

Pathname: <USE'MFu:•WPB>SCHREV)PTG2. FIL

File last modified: 87-04-13. 10:22:24.Mon

Spooled: Started: 87-06-11. 12:51:24.Thu 87-06~11. 12:53:24.Thu t:Spaoler on: PRO rev 19.4] by: PRO - - - · -

(29)

-1 -15 48 2-1 Page 1

1 15 48 21 3 15 48

2 23 **GEBRUIKSAANWIJZING veTvolg **

4 16 5* Plaats cursor toets-en op toets·enbord 5 18 TELEVIDEO 950. 9 42 VERTICALE 10 42 CURSOR 11 42 TOETSEN 13 45 \ 14 46 \ 15 35 ho!ne\ 16 40 \ 18 23 spatiebalk 18 50

....

_'· 18 53

:>

17 56 horizon 18 56 -tale 19 56 cursor 20 56 taetsen

(30)

User: SCHREV -at PRO <USEMFD>WPB~•SCHREV:>PTMD. FIL ******~~·~*:~~·~*»****~*<*~**•***~***·~~·*~**•*•*********~*~*****************•***************************************••·~···****** ~~*******»»»<•*~*»~•·•***4***********~···~····~···•************************************************************~·~~-····~******* ~-.~ww t"t4W

w

WWt~W

wwwww w

w

w w

w

~.J

w

w w

w

www

w

Wf..jWWW wWWl.J

wwww

w

w w w

w

w w

,..,

w

w w

l.J

w

w w

www

w

w w

w wwwww

w

wwww

WHWWW l.J

w wwww

wwwww www w

w

{.S l.jW WW

w

{.J

w w w w

w

t.JWWW

w

w w w w

w

_wwww

_w

w

~-~

w

w w

w

{.J

w

_WW

w

~.J {.j

w wwww

WW

w

www wwwww

******~*·*~~~·~···******<***********~*»***<**~*******************************•***************************************~···~··•******* ******·~~·--~~···~··***4*~**•*****•<•****~••<*•******~****•*******************************************************~···~····~··· Label: PRT001 -form

Pathnam"': .CUSE1'1FU~•WPB>SCHREV>PTMD. FIL File last modified: 87-05-08. 13:25:32.Fri

Spooled: Started:

87-06-11.12:55:20. Thu 87-06-11. 12:55:24.Thu

CSpooler rev 19.4] on: f"RO by: PRO

(31)

1 15 48 21

1 15 48 21 3 15 48

2 31 ** MODELAANNAME **

4 16 1*Geen warmteverlies, via stroming of straling, 5 18 na~r omgeving.

7 16 2•Geen warmtegeleidin~ in de lengte-richting, 8 18 de balk wordt oneindig lang verondersteld.

10 16 3*We beschouwen op het symmetrie vlak van de 11 18 deformatie een aantal segmenten waartussen 12 18 ~~rmte ~itwisseling plaatsvindt. Oe segmenten 13 18 staan alleen warmte aan elkaar af en niet aan 14 18 de omgeving. < punt 1* en 2* >.

16 16 4*0e tempet·atuur en rek worden midden in het 17 18 segment bel·ekend, en geliJk verondersteld 18 18 voor het hele segment.

20 16 5* All~ deformatie-energie wordt in warmte 21 18 omgezet

Page

- - - ·- - - ·- ---~~---·

(32)

User: SCHREV -at PR'O

<USEMFD~•WPB:>SCHREV>PTMA. FIL

*•ll-

~ :1 :tol:

*

.

..

-11 -11·'1-

ll-*

;::.**

~-::t•~<

"*

~-)(*

... **i: ·

· ltoll

"*

****oll * ltoll *

lt*-ll·~i(·•·lt**~

..

*"****-ll •·lti: ·

· lt•lf****•lti: *"*********

"

*"******** .. " ltoll·lf

~·..t~

·lt .. ****

• lfoi( **

~****lf-·~§··•~«*~****~****<*lt**~***<*~~···~·*~·~·••<**************-ll*****************--********************************·~~-"lfo»~*»*******

www

hH~W (.J

w wwww

_WWW"-!W

w

w w w w w w

""

w w

w

w w

w

w w

www w

wwwww

(.,jWWW

wwww w w

w

w w w w

w w

w w w w w

(.J

w

w w

www

'JWW

w

w w w wwwww

w

wwww

Wt~(~WW

w

_"!WW

wwwww www w

w w

w

t.JW WW

w w

w

w w

w

w w w

w

w w

wwww

~ ('1/

w w wwwww

wwww

w w

w

~",

w

w w w

w

w w

w

w w w w

WW

w

w w

w

~.J (.J

w w

_'~ _WW

w

www

_t'liWWWW ******~*•~•~~~***»c*****~*~"******,.*»<**,.**o~~•»<*»"**•***************~*»***._******************************************~*•:t•*:~»~~»****** ··~····~·~·~<***i:***~-r••<•••••***<**<*»***<*»~****•******~*~--********~*********************************************::t•~~-*~»**»****** Label: PRT013 -~orm Pathname: <USEI1FD>WPB>SCHREV>PTMA.FIL

File last modified: 87-04-07.15:09:16. Tue

Spooled: Started: 87-06-11.12:53:08. Thu 87-06-11.12:54:20. Thu [Spooler on: PRO rev 19.4] b~:~: PRO

(33)

ALUM 99. 5 ALUM 99.5 ALUM SIMC NIKKEL STAAL C15 STAAL C22 STAAL C35 STAAL C45 STAAL C60 KOPER EU\ RVS 18/9 OPNIEUW OPNIEUW OPNIEUW OPNIEUW OPNIUEW OPNIEUW OPNIEUW OPNIEUW OPNIEUW OPNIEUW OPNIEUW Page 1

(34)

•

User: SCHREV -at PRO

<USEMFD"'>WPB)SCHREV:>PTMW.FIL

****~*1»·~~~~-~~*»•••***~*~**~***~*~4*~***~*~**»********~~**************************~********************~********~*··~~~~-~»**~****

******·~ -~ <1--::: ;::!-·::-·:f ·.:f-·~~ ~ ·lt·<t•..,_*-ll 4t4f *'~'**Hl **-ll *·ll-~ *·;t-***-1{ *·)lo-11 *"~*-11·"*-ll-lf-*-ll *:=1--* -lF~·**** *** *'ll-**·»***-!f *·»*****'ll-*****·lf-***********"lf-********·ll--lf*·ll-*<ll·.l.t·:t )I ':tol: •·:tol: * '=1-**·lf-***

www

t•!!~W

w w wwww wwwww w w

w w w w

w

w w w w

w w

w

w w w w w

w w

www

w

wwwww wwww wwww w w

w w

w

w w

w

w w

w

w w

www

~~WW lol

w

WWW~!W

w

wwww

lo.!tJWWW t.J

w

,."

wwwww www w

·

~."

w

WW WW

w w

w

w w w w w w w

w

wwww

(~

w

w w

w

wwww

w w

w

w w w

w

~-~

w w

WW WW WW

w

w w

w

WW

w

www wwwww

*~ ****"~

*

;t-~

*

'*<*·»~*»·A»"'***-!: *·»·lf-* Hl **-I: *·»·;t-* Hl**-!{ *lf-·11 -li·Jf--1: *..,_**·ll-**»-ll *·:!--11•*** *·»-ll *ll-•)lo*·lf-**** *·»***********·ll-*******·lf-·»*****•ll-******* **·;t*»~

*

':1-~ * »·:ll·lf- »**·»***

****** < * :J .. ?.:·* ::-·:1-·lt·':fo-l: * ::t-o41-*4t-ll **~ -ll·':fo** ':fo*·**< *·1-... *·':fo-ll **< * ::1--lf *•1-**-:4-**·':1-** ':fo-li *·::Hl***

**-ll

*':fo-lf *·::foojj **•*·':foojj ******·::1-·ll-* *•::1-********•::i-************* *·::1-** » :t 11 ':fo-ll ':1-lf--ll ****»***

Label: PRT005 -form

Pathnamj:l: <USEMFl>)W?B:>SCHR-EV;•PTMW. FIL

File last modified: 87-05-29. 13:06:48.Fri

Spooled: Started: 87-06-11.12:55:00. Thu 87-06-11. 12:55:08. Thu CSpooler on: .PRO rev 19. 4J by: PRO

(35)

Page 1 ALUM 99.5 2710 960 137 0.30 220 21 0.0 ALUM SIMC 2710 960 410 0.2~ 185 105 0.0 NIKKEL 8890 45~ 1132 0. 45 75 69 0.0 STAAL C15 7870 482 720 0. 19 65 221 0.0 STAAL ·C2?. 7860 482 850 0. 2~ 60 217 0.0 STAAL C35 7850 486 930 0.23 52 223 0.0 STAAL C45 7850 490 1030 :o. 18 52 337 0.0 STAAL C60 7850 490 1100 0. 16 52 407 0.0 KOPER El:.C:. 8900 385 335 0. 15 388 131 0.0 RVS 18/8 8000 500 1300 0.4 16 108 0.0

(36)

..

•

<USEMFD:>WPB:>SCHREV:>PTDT.FIL ******~~·~···~*·*~·~···~~···~··~····~···~···~****~·~···~***********************************************************·~··~··~~******* ~*****~»~K»»~·~~**~*~***<~~****•****<*****<*»•*~*~*******~*~***~**~******~*************************************~**~»*·~~****~~*******

t-4WW

t..:ww w

w

wwww

wwwww w l.J

w

w w

w

w w

w

tJ

l.J

w w w w

w

www w

!.JWWWW

WWt"'W

wwww w

{.,

w

w w w l.J

w

w w

w

t.J

l.J

w w

t.J

w

w w

www

~-Jt.JW

w

w w

w wwwww

w

t..Jt.JWW

~.i~..!~.JW\-J ~WWt..!

wwwww

wwwww www

w

w w

w

l.,

w

w w

l~

w w t.J

w

_w

w

wwww

t..f lol

w w

wwww

w

(..,

w

w w

,..,

_t~ _lol

_w

_{WW w}

_{w w}

w

t..f

wwww

w

WW

w

www wwwww

******~~*~*~*~~*~*~~****<*~~********~*****~··~·~·*•******~*****~**************************************************~··~··************ ~···~··~~~··~~~*********~~*******<*~~*****<~~-·~*********~***************~*******************************************~**************

Label: PRTOOl -farm

Pathname: <USEMFD:>WfJB~•SCHREV>PTDT. FIL File last modified: 87-06-11.11:17:04. Thu Spooled:

Started:

87-06-11.12:40:00. Thu 87-06-11.12:40:00. Thu

CSpooler rev 19.41 on: PRO by: PRO

(37)

----·-r--~,---~~--~---r---~--- --~·--··--·--· _--_-_{· --·-}_- _{-··-···--}

-2.710000000E-t03 9.600000000E+02 4. 100000000E+02 2.200000000E-01 1.850000000E+02 '1.050000000E+02 O.OOOOOOOOOE+OO 2.0000000 Pa~e 1

2. 71000000CsE-t03 9. 600000000E+02 4 .. 10000000CE+02. 2. 200000000~-01 1. 850000000E+02 1. OSOOOOOOOE+02 0. OOOOOOOOOE+OO 2. OOOOOOOOOE+02 2. 0

(38)

•

á

<USEMFD:>WPB:>SCHREV:>PTUK. FIL ****~·~··~· -·*~~~~·*··~·~~~**•***~*~~*~***"~*~~~***•~*~**~~********~*****************~******************************~···~··******* *****~·~··*~~·~*·~~***~*•*•**•~**~**<*»***~**~****•***~*-~*~***~**~**************************************~*********~·~··*··~·*******

www

t.Jt-JW

_~"'

w wwww wwwww w w

w w

w

lol

w w w

tol

w

t.J

w w w w w

w w

www w

l.,JWWWW

wwww wwww w w

w

l.,J

w w

w

w w

w

w w w w w w

w w

w~ w~w (.,J

_w

_{w wwwww}

_w

WWt.JW Wt.J(..JWl..J (.J

w

wwwww www w

w

l.J

w w

t.J

w

'"

w

l'll

w

t.ol

wwww

w

t.J

w

t~W

wwww

w

'~

{0:

w

w w w

w

_w

~~

w

t.J WW

w

~--~

w

www w

w

WW

w

www wwwww

******'*·~~~~**~*j~*****~****•***~**~*~***••••****••****•~***********************************************************·~···~******* •*****»*•***~~··~*·~~-~**~*~**•******«********•****•*****•~***********************************************************•~·~~·~~******* Label: P~T009 -farm Pathname: <USEMFlJ)WPB:>SCHREV:>PTUK.FIL File last modi.fied: 87-06-11. 11:17:04. Thu Spooled: Started: 87-0ó-11. 12:57:20. Thu 87-06-11.12:58:28. Thu [Spoeler on: PRO rev 19.4! by: PRO

(39)

5. 1653:-:-~2256E-01 3. 204051502F:+02 4. 031515354E-01 3. 357274770E+08 Page 1

5. 1653H2256E-01 3. 204051502E+02 4.031515354E-01 3.357274770E+08

7.011334154E-01 3. 177524913E+02 2.999537430E-01 3. 145603223E+08 9. 2266979~1E-·ot 3. 139411189E+02 2.204168236E-Ol 2. 939664037E+08

1. 178408784E+OO 3.099065955E+02 1. 607981710E-Ol 2.742620385E+08

1. 459399796E-+OO 3.061742139E+02 1. 168956133E-Ol 2. 556815932E+08

• 1.7502'?'8093E+OO 3.029882634E+02 8.499772317E-02 2.383710234E+08

2.031001109E+OO 3. 004155722F.:+02 6.201017592E-02 2.223953532E+08

....

2.280C06338E+OO 2.9842226551::+02 4. 550182734E-02 2.077543860E+08

4 2. 4785ó0655E+.OO 2.969265012F.+02 3.364223521E-02 1.944010123E+08

2.6143è!4329E+OO 2.958317672E+02 2. 509343122E-02 1. 822581962E+08 2.683505746E+OO 2.950457323E+02 1.889629607E-02 1.712327089E+08

2.690720451E+OO 2.94489195'5E+02 1. 437127726E-02 1.612251678E+OB

2.647303564E+OO 2.940988403E+02 1. 103966773E-02 1. 521367650E+08.

2.568901333E-+OO 2.938265504F."+02 8. 564695904E-03 1.438733928E+08

2.473656586E+OO 2. 9363715'89E+02 6.708989786E-03 1 . 3634 7·8912E +08

2.382098844E+OO 2.935057818E+02 5.304527828E-03 1.294810277E+08

2. 3196·~8753E+OO 2. 934153528E+02 4.231677056E-03 1.232016744E+08

2.322849908E+OO 2. 933546241F.+02 3.404661240E-03 1. 174465101E+08

2. 450413295E-+OO 2.933167002E+02 2. 761504725E-03 1. 121594654E+08

2.8025'i18"/6E+OO 2. 932980689E+02 2.25'7064103E-03 1.072910544E+08

Temperatuur berekening in een gesloten oppervlak