diff options
| author | alepori <alepori@thearcway.org> | 2017-08-23 16:20:29 +0200 |
|---|---|---|
| committer | alepori <alepori@thearcway.org> | 2017-08-23 16:20:29 +0200 |
| commit | 75743511fe22e4a427f724d2f8cc0f4852b09187 (patch) | |
| tree | ff3fb96fd70337784255fabb0551af17107e71b2 /P_vector_cross_product | |
| parent | first commit (diff) | |
| download | hp35s-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_product | 90 |
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 |