From f8e69a43ee9d1717b41a1b18e0dfac7083b06dbd Mon Sep 17 00:00:00 2001 From: leporia Date: Wed, 23 Aug 2017 16:03:05 +0200 Subject: first commit --- P | 90 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Q | 43 ++++++++++++++++++++++++++++++++++ S | 19 +++++++++++++++ 3 files changed, 152 insertions(+) create mode 100644 P create mode 100644 Q create mode 100644 S diff --git a/P b/P new file mode 100644 index 0000000..1f7c66a --- /dev/null +++ b/P @@ -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 new file mode 100644 index 0000000..1ff2a0d --- /dev/null +++ b/Q @@ -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/S b/S new file mode 100644 index 0000000..f95e442 --- /dev/null +++ b/S @@ -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