APPENDIX 



CALCULATOR PROGRAM FOR WAVE SHOALING WITH DISSIPATION 



The following four pages document a calculator program executing the 

 procedure presented in Section II and exemplified in Section III of this report. 

 This program runs in about 120 seconds on a Hewlett-Packard HP-67 Programmable 

 Pocket Calculator, employing metric units, RPN logic, three levels of nested 

 subroutines, 17 address labels, 26 storage registers, and 223 program steps. 

 The program could be converted for use with other calculators having different 

 logic systems but similar features and capacities. 



Equations (1) to (10) are included with an effective root-finding iteration 

 for wavelength. Values to be specified in metric units for a calculation are: 

 p, g, Hj, T, , dj, d., Djjj, and X. The standard value of g is 9.81 meters per 

 second squared, and the value of p for seawater may be taken as 1026 kilo- 

 grams per cubic meter; for freshwater, p is about 1000 kilograms per cubic 

 meter, but common situations might not constitute the requisite rough turbu- 

 lent flow over a strongly agitated bed. Satisfaction of these requirements, 

 related to equations (11) and (12), remains to be considered external to the 

 calculator program. 



17 



