From 75743511fe22e4a427f724d2f8cc0f4852b09187 Mon Sep 17 00:00:00 2001
From: alepori <alepori@thearcway.org>
Date: Wed, 23 Aug 2017 16:20:29 +0200
Subject: rename files and add license

---
 P_vector_cross_product | 90 ++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 90 insertions(+)
 create mode 100644 P_vector_cross_product

(limited to 'P_vector_cross_product')

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
-- 
cgit v1.2.1