vectors.tibasic

Disp "V1: "
Input "X: ",A
Input "Y: ",B
Input "Z: ",C
Disp "V2: "
Input "X: ",D
Input "Y: ",E
Input "Z: ",F

Input "DOT (0) OR CROSS (1)? ",T

If T=0
Then
A*D→X
X+B*E→X
X+C*F→X
Disp "Result: ",X
Else
(B*F)-(C*E)→X
(C*D)-(A*F)→Y
(A*E)-(B*D)→Z
Disp "X ",X
Disp "Y ",Y
Disp "Z ",Z
End