# 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:  any
# 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
"B1"?->D:"B2"?->E
"B3"?->F
"+"_
A+D_
B+E_
C+F_
"-"_
A-D_
B-E_
C-F_
"."
AD+BE+CF->K_
C=0=>F=0=>Goto 0
"x"_
BF-CE_
CD-AF_
AE-BD_
Lbl 0
"Abs A=sqrt"
AA+BB+CC->G_
"Abs B=\sqrt"
DD+EE+FF->H_
"\theta"
arccos (K/sqrt(GH))