aboutsummaryrefslogtreecommitdiffstats
path: root/P_vector_cross_product
diff options
context:
space:
mode:
authoralepori <alepori@thearcway.org>2017-08-23 16:20:29 +0200
committeralepori <alepori@thearcway.org>2017-08-23 16:20:29 +0200
commit75743511fe22e4a427f724d2f8cc0f4852b09187 (patch)
treeff3fb96fd70337784255fabb0551af17107e71b2 /P_vector_cross_product
parentfirst commit (diff)
downloadhp35s-programs-75743511fe22e4a427f724d2f8cc0f4852b09187.tar.gz
hp35s-programs-75743511fe22e4a427f724d2f8cc0f4852b09187.zip
rename files and add license
Diffstat (limited to 'P_vector_cross_product')
-rw-r--r--P_vector_cross_product90
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