Program Name: SADL
Date: 10/95
Subject: sailing
Size: 57 bytes
REQUIREMENTS
MODULES:
SUBS:
HARDWARE:
Comments

SADL calculates the sail area-displacement ratio and the displacemet length ratio for a sail boat. the data is entered in the stack as follows:
z sail area in sqft
y displacement in lbs
x waterline length in ft
the results are returned to the alpha register for viewing.
The formulas used in the program are:
Sail Area Displacement Ratio -> SAD=SA/(disp/64)^2/3
Displacement Length Ratio -> DL=(disp/2240)/(.01*lwl)^3
DATA STRUCTURE
REG DATA
00 scratch
01 scratch
PROGRAM LISTING
........................
LBL SADL
.01 * 3 Y^X X<>Y
STO 00 2240 / X<>Y /
STO 01 RDN RCL 00 64
/ 2 3 / Y^X /
FIX 1 CLA ARCL X
"| " FIX 0 CF 29
ARCL 01 AVIEW SF 29
FIX 2 END
Note: X<>Y is the swap X and Y function.