1 files changed, 90 insertions, 0 deletions
diff --git a/P_vector_cross_product b/P_vector_cross_product
new file mode 100644
index 0000000..1f7c66a
--- /dev/null
+++ b/P_vector_cross_product
@@ -0,0 +1,90 @@
+LBL P
+XEQ S001
+105.110
+STO J
+R⬇
+x<>y
+XEQ P061
+R⬇
+XEQ P061
+100.102
+STO I
+106
+110
+XEQ P079
+x
+109
+107
+XEQ P079
+x
+-
+[1,0,0]
+x
+STO (I)
+ISG I
+107
+108
+XEQ P079
+x
+110
+105
+XEQ P079
+x
+-
+[0,1,0]
+x
+STO (I)
+ISG I
+105
+109
+XEQ P079
+x
+108
+106
+XEQ P079
+x
+-
+[0,0,1]
+x
+100.101
+STO I
+R⬇
+RCL (I)
+ISG I
+GTO P052
++
++
+STO I
+XEQ S011
+RCL I
+RTN
+STO I
+[1,0,0]
+x
+STO (J)
+ISG J
+CLx
+RCL I
+[0,1,0]
+x
+STO (J)
+ISG J
+CLx
+RCL I
+[0,0,1]
+x
+STO (J)
+ISG J
+RTN
+STO J
+CLx
+RCL (J)
+x<>y
+STO J
+CLx
+RCL (J)
+x<>y
+RTN
+
+LN=360
+CK=4FDF