From 75743511fe22e4a427f724d2f8cc0f4852b09187 Mon Sep 17 00:00:00 2001 From: alepori Date: Wed, 23 Aug 2017 16:20:29 +0200 Subject: rename files and add license --- LICENSE.txt | 16 +++++++++ P | 90 -------------------------------------------------- P_vector_cross_product | 90 ++++++++++++++++++++++++++++++++++++++++++++++++++ Q | 43 ------------------------ Q_quadratic_solver | 43 ++++++++++++++++++++++++ README.md | 15 +++++++++ S | 19 ----------- S_save_stack | 19 +++++++++++ 8 files changed, 183 insertions(+), 152 deletions(-) create mode 100644 LICENSE.txt delete mode 100644 P create mode 100644 P_vector_cross_product delete mode 100644 Q create mode 100644 Q_quadratic_solver create mode 100644 README.md delete mode 100644 S create mode 100644 S_save_stack diff --git a/LICENSE.txt b/LICENSE.txt new file mode 100644 index 0000000..9298b31 --- /dev/null +++ b/LICENSE.txt @@ -0,0 +1,16 @@ +HP35s Programs +Copyright (C) 2017 mafaldo + +This program is free software; you can redistribute it and/or +modify it under the terms of the GNU General Public License +as published by the Free Software Foundation; either version 2 +of the License, or (at your option) any later version. + +This program is distributed in the hope that it will be useful, +but WITHOUT ANY WARRANTY; without even the implied warranty of +MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +GNU General Public License for more details. + +You should have received a copy of the GNU General Public License +along with this program; if not, write to the Free Software +Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. diff --git a/P b/P deleted file mode 100644 index 1f7c66a..0000000 --- a/P +++ /dev/null @@ -1,90 +0,0 @@ -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 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 diff --git a/Q b/Q deleted file mode 100644 index 1ff2a0d..0000000 --- a/Q +++ /dev/null @@ -1,43 +0,0 @@ -LBL Q -4 -x -R⬆ -x -+/- -x<>y -ENTER -+/- -R⬇ -x² -+ -XEQ Q032 -x<>y -2 -x -ENTER -R⬇ -÷ -R⬇ -x<>y -÷ -ENTER -R⬆ -ENTER -R⬇ -- -x<>y -R⬆ -+ -RTN -x<0? -GTO Q036 -√x -RTN -+/- -√x -0i1 -x -RTN - -LN=125 -CK=8694 diff --git a/Q_quadratic_solver b/Q_quadratic_solver new file mode 100644 index 0000000..1ff2a0d --- /dev/null +++ b/Q_quadratic_solver @@ -0,0 +1,43 @@ +LBL Q +4 +x +R⬆ +x ++/- +x<>y +ENTER ++/- +R⬇ +x² ++ +XEQ Q032 +x<>y +2 +x +ENTER +R⬇ +÷ +R⬇ +x<>y +÷ +ENTER +R⬆ +ENTER +R⬇ +- +x<>y +R⬆ ++ +RTN +x<0? +GTO Q036 +√x +RTN ++/- +√x +0i1 +x +RTN + +LN=125 +CK=8694 diff --git a/README.md b/README.md new file mode 100644 index 0000000..6b8d810 --- /dev/null +++ b/README.md @@ -0,0 +1,15 @@ +# HP35s programs + +## Description + +Programs to add funcionality to the HP35s calculator + +## Contents + +*****S** - Save (S001) and restore (S011) the stack in/from (J) 10-13. + +**Q** - Solve quadratic equation, it takes a, b and c from the stack and it +doesn't use any variables. + +**P** - Cross product between two vectors, it takes the vectors from the stack. +It uses (J) 105-110 and (I) 100-102 diff --git a/S b/S deleted file mode 100644 index f95e442..0000000 --- a/S +++ /dev/null @@ -1,19 +0,0 @@ -LBL S -STO J -CLx -010.013 -x<> J -STO (J) -R⬇ -ISG J -GTO S006 -RTN -013.009 -STO J -RCL (J) -DSE J -GTO S013 -RTN - -LN=62 -CK=7B96 diff --git a/S_save_stack b/S_save_stack new file mode 100644 index 0000000..f95e442 --- /dev/null +++ b/S_save_stack @@ -0,0 +1,19 @@ +LBL S +STO J +CLx +010.013 +x<> J +STO (J) +R⬇ +ISG J +GTO S006 +RTN +013.009 +STO J +RCL (J) +DSE J +GTO S013 +RTN + +LN=62 +CK=7B96 -- cgit v1.2.1