ZPROGRAMsystemVCT~TWOFXNEWS:2
1,1,"*2 Vector Calcs v1.0*"
3,2,"2D or 3D vectors?"
3,4,"F2 2D [i,j]"
3,5,"F3 3D [i,j,k]"
3,7,"F6 Quit"
1K999:
:K:K=0
K69K59K29
'
K=29:"Done"::
'change K to match key
8(K10)K
'get coeffs
" ":51,1,"Vector V1"
" ":1,2,"Enter coeffs"
"i"?A
"j"?B
K=3
"k"?C
[[A][B][C]]G
1T
[[A][B]]G
0T
" ":41,1,"Vector V2"
" ":1,2,"Enter coeffs"
"i"?A
"j"?B
K=3
"k"?C
[[A][B][C]]H
[[A][B]]H
'
[G)2G
[H)2H
GH=0
"Zero vector"
"Done":
'make selection
'
3,1,"F1 Magnitudes"
3,2,"F2 Angle between"
3,3,"F3 Unit vectors"
3,4,"F4 Sum and diff"
3,5,"F5 Dot V1V2"
T=1
3,6,"F6 Cross V1V2"
3,7,"EXIT Quit"
1K999:
:K:K=0
(K10).9K47
K=4719K
8(K10)K
'
'
K=1
1,2,"Magnitudes"
3,3,"V1="
7,3,G
5,4,"="
6,4,G
3,6,"V2="
7,6,H
5,7,"="
6,7,H
'
K=2
1,2,"Angle between"
3,4,"="
5,4,mG,H)
'
K=3
1,3,"Unit vector"
53,5,"[EXE] for V1"^G)
1,3,"Unit vector"
43,5,"[EXE] for V2"^H)
'
K=4
1,2,"Magnitudes"
[GH)2I
1,3,"V1V2="
8,3,I
6,4,"="
7,4,I
[GH)2I
1,5,"V1V2="
8,5,I
6,6,"="
7,6,I
51,7,"[EXE] for V1V2"GH
41,7,"[EXE] for V1V2"GH
'
K=5
1,2,"Dot Product"
5,4,"V1V2="
11,4,KG,H)
'
K=6
JG,H)
'
K7
4" Program finished "
""
6" More like this from"
""
5" www.charliewatson"
5" .com/fxcg/"XX