PROGRAMsystemVCT~DIVFXNEWS'(C)2018 Charlie Watson
:2
1,2,"VCT INTERNAL DIV v1.0"
1,4,"Finds position vector"
1,5,"of point that divides"
1,6,"vector AB INTERNALLY"
1,7,"in ratio m:n"
1,1,"Type of vector"
3,3,"F2 2D [i,j]"
3,4,"F3 3D [i,j,k]"
1K999:
:K:K=0
K69K59
'change K to match key
8(K10)K
'get coeffs
"":1,1,"Vector A"
"":1,2,"Enter coeffs"
"i"?A
"j"?B
K=3
"k"?C
[[A][B][C]]A
[[A][B]]A
"":1,1,"Vector B"
"":1,2,"Enter coeffs"
"i"?A
"j"?B
K=3
"k"?C
[[A][B][C]]B
[[A][B]]B
"":1,1,"Ratio m:n"
"":1,2,"Enter values"
"m"?M
"n"?N
'solution
MN0
M(MN)R
BAC
K=3
51,2,"SOLN: AJ[i,j,k]"
3,6,"k="
5,6,C[3,1]
51,2,"SOLN: AJ[i,j]"
3,3,"J="
5,3,R
3,4,"i="
5,4,C[1,1]
3,5,"j="
5,5,C[2,1]
ARC
"Bad m:n coeffs. Done."
4" Program finished "
""
6" More like this from"
""
5" www.charliewatson"
5" .com/fxcg/"
N