# 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:  7400 or later
# NOTES:  Input the entries of two vectors. (2D or 3D)
#         For 2D vectors, enter zero for the third component.
#         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
"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))