Program Name:	SAJ
Date:		2/96
Subject:	sailing
Size:		__ bytes

REQUIREMENTS
MODULES:	
SUBS:		
HARDWARE: 	

Comments

SAJ calculates the area, luff perpendicular and %J of a sail. The length of the luff, leech and foot are entered in the z, y and x registers before the program is run. They must be in that order. The program displays the results in the alpha register. The J dimension of the boat is stored in the program on line 51 (in feet/100).

Formulas used IN SAJ

sail perimiter/2
	P2=(S1+S2+S3)/2
sail area
	SA=SQRT(P2*(p2-S1)*(P2-S2)*(P2-S3)
luff perpendicular
	LP=S2*SIN(2*ACOS(SQRT(P2*(P2-S3)/S1*S2)))

DISPLAY >> | area LP %J   |

DATA STRUCTURE
REG	DATA
10	perimiter/2
11	S1
12	S2
13	S3
14	area
15	Luff Perpendicular

PROGRAM LISTING

LBL SAJ
STO 13
RDN
STO 12
RDN
STO 11
RDN
RDN
+
+
2
/
STO 10
RCL 11
-
RCL 10
*
RCL 10
RCL 12
-
*
RCL 10
RCL 13
-
*
SQRT
STO 14
RCL 10
RCL 13
-
RCL 10
*
RCL 11
RCL 12
*
/
SQRT
ACOS
2
*
SIN
RCL 12
*
STO 15
FIX 1
CLA
ARCL 14
"| "          (append space)
ARCL 15
RCL 15
.1163        (J Dimension in ft/100)    
/
FIX 0
CF 29
"| "         (append space)
ARCL X
AVIEW
END