APPENDIX E 

 A PROGRAMING LANGUAGE (APL) PROGRAM TO FIT A CURVE TO A PROFILE 



V n^nilFL X;E;G 



[1] R snnr, is a fuhctiou to describe au innee-contiiienial 



[2] PI SHELF PBOFILE 



[3] PI FROGRAMMEn: C EVERTS, 3 JUEE 197 6 



[4] n THE REQUIRED CONS TART VALUES ARE: 



[5] R A=RAMT SLOPE 



[G] n P, -SHORE INTERCEPT AT Z=0 



[7] p C^DISTAHCE TO UPPER / LOUER SHOREFACE BOUNDARY 



[8] PI (.3C=SnOREFACE/RAMP BOUNDARY) 



[9] PI F = COnCAVITY PARAMETER 



no] fl X = DISTANCE FROM SHORELINE 



Cll] p .17/7 UNITS, APPLIED CONSISTANTLY , MAY BE USED 



[12] G^2.1'31*( 2. 8x( (.YtC 3x(7) )*10) ) 



[13] /7-<-(ylxCx3 )+/? 



[14] /?<-( ( l-f7)x( (/lx/)+/?) ) + (r7x(Vx( ( i-( 2.781 *( -(.Yvr?) )) )*F)) ) 



y 



92 



