APPENDIX 

 LISTING OF THE COMPUTER PROGRAM ^1ADSEN 



PHnf.«4M MioSF Nf I^'^'l»T,lJllTPLn,T4PL'^=TNPUT, TAf'tb = nuTPUt ,TAPt. 5) 

 CUMM0N/MAUS\/NM,ML.lJ{ll)|MfintLL(11lllJ»TH(ll) 



RtAL nKL 



RtAL LiNii»Kl,Ki<,N,Lf .'■^c^fLLtKTDtKTT 

 DATA hU>'/\ ,? , h,U,b,b, 7,6,9iin/ 

 PIsS.l'Mb'J 

 CALL wEAiU 

 RfAn(S«S^0 5 WCO'^P 

 5«?o f-D^^MAT C UciiiiXt 7rU).S) 



C RfAO INPUT ir.f "t^^ATirVi 



R[. AO(S« 1 71) f TTTI fcf JJi-M ,,IJ"s| ,?0) 

 17t FtiKMAT (c!OAij) 



^RnHh,\ !,>) fTlTUMJjM),JJHS)i20) 

 l7^Ft1^►'AT(l>M,ln)(.^oAy) 



RM(i(S.SVl)1 MT,N"f'^L.HS,MU,fJlJ, T0Pw,1ANP,KA,HB 



TffRA.LL.O.) KAsn ,^'<? 

 IKRHj.t. 0.) WBs.SOu 



WR! TP (^i^J'/l ) '4T,\'^'.^L f Mb.nn.^li, TOP-J. T AfJH,RA,KH 

 97l rOR'UTf/ , lOx. TLl-'^'in Al TO^-'S ('f WAVf. TWA^sf'lSSICjN THrcMJOH a POpOnS 



♦ BRMK'Alt Ri ,///.S« . Imdh of kAvF COmOII IU^S' I li^X, I i, /,SXi 

 t tNljM (If- MATFfVl A( b= ' . 1 7> t ! ^1 /.SXt 



« IMIJM Of HORTi^iJ^JTlAL LAyf-R-Ssf .'^Xt ISi/tSX* 'STPUCTURk HfjGHT ( ni ) 



»sl ♦6X,M0,^t/,Sx, '"ATt R nfPTM f f-.ls ' » 1 IXinCii/iSXi 



♦ iKINthATiC VTSCOSITY ( M<e / tjF C 5 = ' < F" 1 t , <? . /.SX.iBW TOP wiDTh CM)="t 

 *10XiPlO,ii/,SXt " TAMo Ur FHONT SL(lPt=' ''*'^'t-^«''''/'''X« 'f^UNliP c^'f^^TlCl 

 »eNTS *= ' .F6, it ' B= ' iPh. i) 



00 «><? 1 = 1 » 11 

 DO 9H .1=1 f 1 1 



98 LL(I»J5=0, 



99 CCNTlNUL 

 wRITt C*'»2«3) 



^Hj FORf'ATCjX, IM4TP.WTAL C « a*^ AC T t « I ST I c S (^AKf. AR^^OR MaTLRIAL MiMHtR 1) 

 »t ,/) 



DO 6 1 = 1 t"^" 



Rt ADfS« 7) n( I) ,^f n 

 7 FfiHf'ATt lOX, 7F11,'>) 



WKlTt (6i 1 77) Itllf I 1 .^( T) 

 177 Fo«MAT(bX, " MAT^ wT At= ' I Til I OlA^cTpR fM) = l,F 6,3»' POROS IT Ys ' • ^ 6 i 5 ) 



6 CONII'Mlh 



WRl H:(»3»r? 8 (I) C^U-'C J'-^) » T'-'sl iNM) 

 2flU FOW^^A^ (//.SXi 'Hiii^lZu:--! TAl l AV^.W r.HAWACTtWIST ICS ' t /ibX, 



♦ t(MAKf lAYFt^ ^fXT TU SpAMfn L A >^ t R KiUMbf-R !)'•/• 



♦ 5?Xi •^^*T^RIAL= ' t7( Tl »SX) i/ib3X,6( IPi^JX) » /) 

 DO J\ J=) ^^L 



RtAC/(s« 7) TMf J) . rLL( T.,t) I 1=1 l^M) 

 '<RITF(6,17A) JiTw(J)i(lUCl.J),'ei,N'-') 

 17r FO»^'AT (bX, ihORWOnTIal LAYFH=i,n,i THjCHNf-SS fM)si, Ffe,5,i Lt.^^.TH 



17 



