# TITLE:  Vector Operations
# AUTHOR: Roy F.A. Maclean 
# EMAIL:  rfamgm at gmail
# WEB:    http://www.spiderpixel.co.uk/caspro        
# DATE:   19Dec1995, 23Jul2007
# MAKE:   CASIO     
# MODEL:  GE/GH models 7700GE/GH, 9700GE/GH and 9800
# NOTES:  Input the entries of two vectors. (2D or 3D)
#         For 2D vectors, enter zero for the third component.
#         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_
C=0=>F=0=>Goto 0
"x"_
[[BF-CE,CD-AF,AE-BD]]_
Lbl 0
"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))