# TITLE:  Vector Operations
# AUTHOR: Roy F.A. Maclean
# EMAIL:  [email protected]
# WEB:    http://members.tripod.co.uk/rfam
# DATE:   19Dec1995
# MAKE:   CASIO
# MODEL:  GE models 7700GE, 9700GE or greater
# SIZE:   218
# NOTES:  Input the entries of two 3D vectors.
#         The sum,difference,dot product,cross product,
#         lengths and angle between will be displayed.
#         Make sure calculator is in the angle mode you want.
 

@@ Program "VECTORS"

"A1"?->A:"A2"?->B
"A3"?->C
[[A,B,C]]->Mat A
"B1"?->D:"B2"?->E
"B3"?->F
[[D,E,F]]->Mat B
"+"_
Mat A+Mat B_
"-"_
Mat A-Mat B_
".":Mat ATrn Mat B
Mat Ans[1,1]->K_
"x"_
[[BF-CE,CD-AF,AE-BD]]_
"Abs A=sqrt"
Mat ATrn Mat A
Mat Ans[1,1]->G_
"Abs B=\sqrt"
Mat BTrn Mat B
Mat Ans[1,1]->H_
"\theta":arccos (K/sqrt(GH))