Program Name:	FV  (Falloff VMG)
Date:		6/96
Subject:	sailing
Size:		58 bytes

REQUIREMENTS
MODULES:	
SUBS:		
HARDWARE: 	

Comments
FV calculates the required boatspeed needed to maintain the same VMG to a mark on a new heading.
S = speed
A = course angle to mark
Fa= Course change (+for falling off, - for heading up)
S2= New speed to maintain VMG
VMG= Velocuty Made Good towards the mark

Formulas used IN FV

S2=S*cos(A) / cos(A+Fa)
VMG=S*cos(A)

Program results are displayed on two alpha lines:
DISPLAY1 >> |S A+Fa S2   |
DISPLAY2 >> |VMG=nn      |

DATA STRUCTURE
REG	DATA
01	S
02	A
03	Fa
04	VMG

PROGRAM LISTING
(|=append symbol)
........................
LBL FV  
STO 03  RDN  STO 02  RDN 
STO 01  RCL 02  COS  * 
STO 04  RCL 02  RCL 03  
+  COS  /  FIX 1  CLA  
ARCL 01  "| "  FIX 0  
CF 29  SF 21  ARCL 02  
"|+"  ARCL 03  "| "  
FIX 1  ARCL X  AVIEW  
"VMG="  ARCL 04  AVIEW  
END