c&2PROGRAMsystemVCT~C2GOFXNEWS'(C)2018 Charlie Watson
:2
1,2,"COURSE 2 STEER v1.0"
1,3,"Find vector course"
1,4,"from AB with wind"
1,5,"vector W, when your"
1,6,"max speed is S"
'get coeffs
"":1,1,"Pos Vector of A"
"":61,2,"Enter coeffs"
"i"?A
"j"?B
"":1,1,"Pos Vector of B"
"":61,2,"Enter coeffs"
"i"?V
VAA
"j"?V
VBB
'travel [A,B]
"":1,1,"Vel Vector of Wind"
"":61,2,"Enter coeffs"
"i"?V
"j"?W
"":1,1,"Your maximum speed"
"":61,2,"Enter speed"
"Speed"?S
S0
"Speed > 0 please"
'solution
4"Solving..."
A0
1(BA)P
BVAWF
2BFAQ
FSR
'EQN PxQxR=0
Q4PRD
D<0P=0
4"Impossible (1)"
(QD)(2P)X
(QD)(2P)I
B(XV)AWY
B(IV)AWJ
XV0
A(XV)T
4"Impossible (2)"
IV0
A(IV)K
4"Impossible (3)"
V~~0
'swap?
T<0K>0
XA:YB:TC
IX:JY:KT
AI:BJ:CK
T0K0
41,2,"AB No Solns"
1,3,"BA steer [i,j]"
1,3,"AB steer [i,j]"
1,4,"i="
3,4,X
1,5,"j="
3,5,Y
51,7,"Time="
56,7,T
T0K0
41,2,"AB 2nd Soln"
1,3,"AB steer [i,j]"
1,3,"BA steer [i,j]"
1,4,"i="
3,4,I
1,5,"j="
3,5,J
51,7,"Time="
56,7,K
4" Program finished "
""
6" More like this from"
""
5" www.charliewatson"
5" .com/fxcg/"
FX~~