From 52ec9c241edba821775f9765b76417b8ce5b678f Mon Sep 17 00:00:00 2001 From: Joerg Elfring Date: Tue, 5 Feb 2019 20:33:55 +0100 Subject: [PATCH] first commit --- README.md | 20 +++++++++++ base/README.md | 34 ++++++++++++++++++ base/base.raw | Bin 0 -> 184 bytes base/base.txt | 75 +++++++++++++++++++++++++++++++++++++++ base/images/image001.gif | Bin 0 -> 1867 bytes base/images/image002.gif | Bin 0 -> 1600 bytes base/images/image003.gif | Bin 0 -> 1837 bytes base/images/image004.gif | Bin 0 -> 1764 bytes base/images/image005.gif | Bin 0 -> 1875 bytes brewery/README.md | 19 ++++++++++ brewery/spund.raw | Bin 0 -> 80 bytes brewery/spund.txt | 22 ++++++++++++ diving/README.md | 21 +++++++++++ diving/mod.raw | Bin 0 -> 67 bytes diving/mod.txt | 25 +++++++++++++ diving/nitrox.raw | Bin 0 -> 49 bytes diving/nitrox.txt | 18 ++++++++++ microwave/README.md | 6 ++++ microwave/mwve.raw | Bin 0 -> 136 bytes microwave/mwve.txt | 44 +++++++++++++++++++++++ split/README.md | 34 ++++++++++++++++++ split/split.raw | Bin 0 -> 38 bytes split/split.txt | 20 +++++++++++ statitics/README.md | 16 +++++++++ statitics/SnCk.raw | Bin 0 -> 43 bytes statitics/SnCk.txt | 18 ++++++++++ 26 files changed, 372 insertions(+) create mode 100644 README.md create mode 100644 base/README.md create mode 100644 base/base.raw create mode 100644 base/base.txt create mode 100644 base/images/image001.gif create mode 100644 base/images/image002.gif create mode 100644 base/images/image003.gif create mode 100644 base/images/image004.gif create mode 100644 base/images/image005.gif create mode 100644 brewery/README.md create mode 100644 brewery/spund.raw create mode 100644 brewery/spund.txt create mode 100644 diving/README.md create mode 100644 diving/mod.raw create mode 100644 diving/mod.txt create mode 100644 diving/nitrox.raw create mode 100644 diving/nitrox.txt create mode 100644 microwave/README.md create mode 100644 microwave/mwve.raw create mode 100644 microwave/mwve.txt create mode 100644 split/README.md create mode 100644 split/split.raw create mode 100644 split/split.txt create mode 100644 statitics/README.md create mode 100644 statitics/SnCk.raw create mode 100644 statitics/SnCk.txt diff --git a/README.md b/README.md new file mode 100644 index 0000000..6998c13 --- /dev/null +++ b/README.md @@ -0,0 +1,20 @@ +# HP-42S RPN Programs + +These are my RPN programs to be used with the HP-42S scientific calculator. +As I do not own the original calculator, the programs also run on +[Free42](http://thomasokken.com/free42/) and the +[Swissmicros DM42](https://www.swissmicros.com/dm42.php). + +Notes on the usage might be found in each directory. + +The directories also contain .raw files which are the binaries. +This is not the git-way but rather useful and I'll give my best to keep them in +sync. + +Compilation is done with [Swissmicros' Online Converter](https://www.swissmicros.com/dm42/decoder/) + +## License +Most of the programs (the ones I made) are licensed under **GNU GPLv3**. +Some programs were contributed by others and are stored here for convenience. +If so, this is mentioned in a local readme and the program is subject to +whatever the original author prefers. diff --git a/base/README.md b/base/README.md new file mode 100644 index 0000000..e080dc3 --- /dev/null +++ b/base/README.md @@ -0,0 +1,34 @@ +This is the base conversion program contributed by Ton van de Burgt to the +[Free42 Software Collection](http://thomasokken.com/free42/42progs/index.html) + +--- + +# Base +A program for viewing several bases together. + +## Usage +![Usage](images/image001.gif) + +The program shows the ASCII character, the Hexadecimal value, the Decimal value and the Binary value. +The maximum value of the word is 1 byte: "FF" in Hex, 255 in Dec, 1111.1111 in Bin. +- Pressing [ASCII] you can enter a new ASCII value +- Pressing [HEX] you can enter a new Hexadecimal value +- Pressing [DEC] you can enter a new Decimal value +- Pressing [BIN] you can enter a new Binary value + +## Example +Press [ASCII] and enter a "Q": + +![Example 2](images/image002.gif) + +Press [R/S] and the several bases are displayed: + +![Example 3](images/image003.gif) + +Press [HEX] and enter "15" + +![Example 4](images/image004.gif) + +Press [R/S] and the several bases are displayed: + +![Example 5](images/image005.gif) diff --git a/base/base.raw b/base/base.raw new file mode 100644 index 0000000000000000000000000000000000000000..3c94541e00481d64aba4c036c9515f0bf7572ea8 GIT binary patch literal 184 zcmX@b@Rh;IG1!$+NK}+zX~);baQ`5eMY&%cgPlD+KR;q*{OsWx@%a%G(`Oe~=g*Ir znLj&u`h9-H!t(hsC+A0nW%+^v422b+eB3_QD<}wwiZM7Wcr?2h#1R(}VQ^Sx2x68w zE_gb-ScGAj+cI|uDGFvw0Li*VabG8bEN$7yz|;<5F3ay}>0ajE%DmvwwhopBkGD0m TE_llJ^(aVLE7zi&0}Q+XSHDWH literal 0 HcmV?d00001 diff --git a/base/base.txt b/base/base.txt new file mode 100644 index 0000000..d07d7d6 --- /dev/null +++ b/base/base.txt @@ -0,0 +1,75 @@ +00 { 181-Byte Prgm } +01▸LBL "BASE" +02▸LBL 00 +03 255 +04 AND +05 STO "WORD" +06 CLMENU +07 "ASCII" +08 KEY 1 XEQ 01 +09 "HEX" +10 KEY 2 XEQ 02 +11 "DEC" +12 KEY 3 XEQ 03 +13 "BIN" +14 KEY 4 XEQ 04 +15 KEY 9 GTO 09 +16 " " +17 XTOA +18 10 +19 X<>Y +20 X=Y? +21 "LF" +22 ├" " +23 256 +24 + +25 HEXM +26 ARCL ST X +27 ├" " +28 744 +29 + +30 AIP +31 ├" " +32 LASTX +33 - +34 BINM +35 ARCL ST X +36 4 +37 AROT +38 ATOX +39 4 +40 AROT +41 ATOX +42 5 +43 AROT +44 ATOX +45 8 +46 AROT +47 AVIEW +48 MENU +49 RCL "WORD" +50 STOP +51 GTO 00 +52▸LBL 01 +53 CLA +54 RCL "WORD" +55 XTOA +56 AON +57 STOP +58 AOFF +59 ATOX +60 RTN +61▸LBL 02 +62 HEXM +63 GTO 05 +64▸LBL 03 +65 DECM +66 GTO 05 +67▸LBL 04 +68 BINM +69▸LBL 05 +70 INPUT "WORD" +71 RTN +72▸LBL 09 +73 EXITALL +74 END diff --git a/base/images/image001.gif b/base/images/image001.gif new file mode 100644 index 0000000000000000000000000000000000000000..6ba6091567541953199511b210babdbfca767b02 GIT binary patch literal 1867 zcmV-R2ekM{Nk%w1VFm#(0CxZYA^!_UK}}6TPES`cE-(aRTLS<9EC2ui00sdt0EYko z009930s;a90|NvE1O){J1_lNP2L}iU2nh)Z3JMAf3kwVk3=Itp4h{|v4-XI!5D^g( z5)u*<6B85^6crT}78Vv47Z(^97#SHE8X6iK8yg%P9334U9v&VaA0HqfAR!?kA|fIq zBO@dvBqb#!CMG5)CnqQ@~D=RE4EG;c9E-o%FFE21KFflPPGBPqVGcz_~R#sM5 zS65hASXo(FT3T9LTU%UQTwPsVUS3{bUteHgU}0flVq#)rV`F4wWMyS#W@ct*XJ=?= zXlZF_YHDh0Yin$5Y;A3AZfQa&mHWb8~cbbai!gc6N4mcXxPrczJnw zdU|?$dwYC*e0_a=etv#`e}900fPsO5f`WpBgM);GgoTBLhK7cRhlhxWh>3}bii(Ph zi;IkmjE#+rj*gCxkB^X$kdcv*l9G~>larK`l$Dj0mX?;6mzS8Bn3Cf>sHv%`s;a81tE;T6tgWrB zuCA`HudlGMu(7eRva+(Xv$M3cw6(Rhwzjsnx3{>sxVgExy1Kf%ySu!+yuH1>zP`S{ zzrVo1z`?=6!otGC!^6bH#KpzM#>U3S$H&OX$jQmc%F4>i%gfBn%+1Zs&d$!y&(F}% z(9zM+($dn?)6>+{)YaA1*4Eb7*VowC*xA|H+S=ON+uPjS+}+*X-rnBd-{0Wi;Njun z;^N}tgww2>+9_7?CtIC?(XjI@9*&N@bU5S^78WY z^Yird^!4@i_V)Jo_xJet`1$$y`uh6&`}_R-{Qdp?{{H^||NjX80HX;UNRS|ag9r;M zT*#2&L5BbuN}MPVVZwzL4O-ktvE#sv5iy2T2$Cenf+bO&)Ra{b*a*#L%C{YI`%8n zvSN95rOI|KR+DMFik%uau3N1_ljd!Tm+jn;f7P}vdsi^u!i05Zy&D*;O~i*Cd)@1} zvE{{m8&58*nX}oiYdhD)j9B#Nyq8g9u4&rt&(5I%lkQtOYfIN#Yrh?AI5FLezggP` zJ{-2()w7)nhX|Rr@8oDfM-7gg^6lcXcT?|8*7Z%}RhK{i_N*OxZt{A0JHKAOefsU{ z!*7L7b2xLz;)S23EMKtk{Mls|Ab|c27+_?vofjK|lA#CSe(}9#Ab$cDXkmpI5{My# z@+o*6ht4rJVRYVwINgX0YN+CfD_#hqa@DytUyQZ=*4vE{en-@QJIZEbVg>$)6nH06 z2&0EMCTO3DxY760kTj+jS?4&ky_uYf5mznuE_BU7p%bM zDxHp!7O9x6kNSG7qqhdztFylfEA6w$HfQa%*k-Hkw%m5>?YH2DEAF`DmTT_0=%%ag zy6m>=?z`~DEAPDY*1PVE_~tvGSNisgFTefue85>n)n#84ysDUYa`0A)9h5R1LB9n~r$2;c> z@NO3lyzhpap4>6eQW~xFX8P%Da?e6TO|i;nvfQ-LFHae@$!MZ!v&~H7eDc*$=iGD9 zHK+Zv(hm}MG}|z@JhjV2lfAXnX77wP&u!cP?Y7l%->o*_dB3fp)=x_6QaddFbbNU;g2pzmBo|BV(U_`|sZ`z4m)2k38DBgP!Yxr?}|NbXYMQHq3`ML>Lep7dAv8@^E5BELakQ=&vPOY@~D=RE4EG;c9E-o%FFE21KFflPPGBPqVGcz_~R#sM5 zS65hASXo(FT3T9LTU%UQTwPsVUS3{bUteHgU}0flVq#)rV`F4wWMyS#W@ct*XJ=?= zXlZF_YHDh0Yin$5Y;A3AZfQa&mHWb8~cbbai!gc6N4mcXxPrczJnw zdU|?$dwYC*e0_a=etv#`e}900fPsO5f`WpBgM);GgoTBLhK7cRhlhxWh>3}bii(Ph zi;IkmjE#+rj*gCxkB^X$kdcv*l9G~>larK`l$Dj0mX?;6mzS8Bn3Cf>sHv%`s;a81tE;T6tgWrB zuCA`HudlGMu(7eRva+(Xv$M3cw6(Rhwzjsnx3{>sxVgExy1Kf%ySu!+yuH1>zP`S{ zzrVo1z`?=6!otGC!^6bH#KpzM#>U3S$H&OX$jQmc%F4>i%gfBn%+1Zs&d$!y&(F}% z(9zM+($dn?)6>+{)YaA1*4Eb7*VowC*xA|H+S=ON+uPjS+}+*X-rnBd-{0Wi;Njun z;^N}tgww2>+9_7?CtIC?(XjI@9*&N@bU5S^78WY z^Yird^!4@i_V)Jo_xJet`1$$y`uh6&`}_R-{Qdp?{{H^||NjX80HZ|%K(L^|g9sBU zT*$DY!-o(fN}NcsqQ#3CGipRw(BQ_8AVZ2ANwTC#h#d)@T* zvuJagP0P0J%9(Jjx}8fGWZa{2>+0P*@h(rkfCJ0S`&6)DzCQ~eUOYE(UdE8?cElUG za$}E*Eo;^~`S0e>bW^4TO**US&ZSdBJ?&Ao>({Vj%brcUc4^kQbL;NBySH!5zk}z- zE4=t~AARw)2V8-K)pwtK{jqnTXA2@Io`H_h7nXknE)?N^ z4ld|nhXIBN-+T5c*cyiemRKQ83_{rAgb!|5m4EJGNTPcU;z(kKAHw)yjv$T*V~Rxb zr{aSaCKz9XOd3h!i%?1!rHlGeiQ<({J_)3cQ*xQ1kSEI6rGrfZIHZ+7VmW4&TA~@E zm|m*crkO#yN#~bNhPkGlBD%>Pm}T}k=a_Md$tIMA9>-dsS;i>nd^eI=VxWvZTIrdF z<|!Vfa-NuCqMz0Y=%g(Esb-RQ@;Ty?R`Mt*g>PE_>Svxn9?IofphlYNs72D5Dy)ar zY9y+tBFYli)@v=?&zYkE!yfRn1yXN-nw- zcX}|N6RT=*x!KN3ZpMv{>hOw{7JTlJBo9j}whX~Z@3+0iT5z=q<2$9c2+myZy(VT% z?X;zC-15Kj?h9?FI$wBRyPV?8BG1x7{WQBj8%Qj}-4b2w%0=7DG0k4v+@#adMjZ9m yQ?EC$+Do&IE!*ma7q{DL&)uEf+Tnej-qi6CP50d#!X0?sgRkeebB8w<5CA*giYV*= literal 0 HcmV?d00001 diff --git a/base/images/image003.gif b/base/images/image003.gif new file mode 100644 index 0000000000000000000000000000000000000000..31caae20f5bd2955a92525447d7a1767bfe33fe2 GIT binary patch literal 1837 zcmV+|2h#XQNk%w1VFm#(0CxZYA^!_UK}}6TPES`cE-(aRTLS<9EC2ui00sdt0EYko z009930s;a90|NvE1O){J1_lNP2L}iU2nh)Z3JMAf3kwVk3=Itp4h{|v4-XI!5D^g( z5)u*<6B85^6crT}78Vv47Z(^97#SHE8X6iK8yg%P9334U9v&VaA0HqfAR!?kA|fIq zBO@dvBqb#!CMG5)CnqQ@~D=RE4EG;c9E-o%FFE21KFflPPGBPqVGcz_~R#sM5 zS65hASXo(FT3T9LTU%UQTwPsVUS3{bUteHgU}0flVq#)rV`F4wWMyS#W@ct*XJ=?= zXlZF_YHDh0Yin$5Y;A3AZfQa&mHWb8~cbbai!gc6N4mcXxPrczJnw zdU|?$dwYC*e0_a=etv#`e}900fPsO5f`WpBgM);GgoTBLhK7cRhlhxWh>3}bii(Ph zi;IkmjE#+rj*gCxkB^X$kdcv*l9G~>larK`l$Dj0mX?;6mzS8Bn3Cf>sHv%`s;a81tE;T6tgWrB zuCA`HudlGMu(7eRva+(Xv$M3cw6(Rhwzjsnx3{>sxVgExy1Kf%ySu!+yuH1>zP`S{ zzrVo1z`?=6!otGC!^6bH#KpzM#>U3S$H&OX$jQmc%F4>i%gfBn%+1Zs&d$!y&(F}% z(9zM+($dn?)6>+{)YaA1*4Eb7*VowC*xA|H+S=ON+uPjS+}+*X-rnBd-{0Wi;Njun z;^N}tgww2>+9_7?CtIC?(XjI@9*&N@bU5S^78WY z^Yird^!4@i_V)Jo_xJet`1$$y`uh6&`}_R-{Qdp?{{H^||NjX80HX;UNRS|ag9r;M zT*y!$!iNb99&AXlqCjum`cXjB!pBs0LJUede#KYhJ*8aOO@adClTerMEy4%-` z;cI6P{q}h7tKH{UE&e2Z)Bgpi-*?;1CLewPwr8Jn2>xfDfW1MO;C>Sph@g1}4p^Ln zdM&72h0Rg;pnoJ%DB*!QN%$du_rWF{iyGqg;&wzeH)D+?&WK@yC9VkLhdBOd;c+^4 z1)h*cCU_%RD9)tficO}-WRD{PIc0=b(wJqCk|Ft?bs1u5C1?Y-m|2-Md~w7Llbr9u6!$2T#1+CNZ^;Um$6K#3cNZMG2D4}K#ygKZ z<&qO?{G^Ewvn;dBEE|3EZ{y~Cu+t@{^& zw{7)#Y5yJb(qZ|$bK(pye)Hs(+q_)lq<;;by^qhlVA5rCj`*%PJ05uI(n)Unlckq_ zdTWN44R`Bw`~9`)l1;`h@~D=RE4EG;c9E-o%FFE21KFflPPGBPqVGcz_~R#sM5 zS65hASXo(FT3T9LTU%UQTwPsVUS3{bUteHgU}0flVq#)rV`F4wWMyS#W@ct*XJ=?= zXlZF_YHDh0Yin$5Y;A3AZfQa&mHWb8~cbbai!gc6N4mcXxPrczJnw zdU|?$dwYC*e0_a=etv#`e}900fPsO5f`WpBgM);GgoTBLhK7cRhlhxWh>3}bii(Ph zi;IkmjE#+rj*gCxkB^X$kdcv*l9G~>larK`l$Dj0mX?;6mzS8Bn3Cf>sHv%`s;a81tE;T6tgWrB zuCA`HudlGMu(7eRva+(Xv$M3cw6(Rhwzjsnx3{>sxVgExy1Kf%ySu!+yuH1>zP`S{ zzrVo1z`?=6!otGC!^6bH#KpzM#>U3S$H&OX$jQmc%F4>i%gfBn%+1Zs&d$!y&(F}% z(9zM+($dn?)6>+{)YaA1*4Eb7*VowC*xA|H+S=ON+uPjS+}+*X-rnBd-{0Wi;Njun z;^N}tgww2>+9_7?CtIC?(XjI@9*&N@bU5S^78WY z^Yird^!4@i_V)Jo_xJet`1$$y`uh6&`}_R-{Qdp?{{H^||NjX80097qMzEm3g3$yj z9B6Q%LWB+(A|x1bVnd4&7h2rNv7^V2AVZ2ANwTELlM@f7l$g*V#EdUBZmc+yCB=*? zQR>{uv!~CWC39YEDDx&wqYrBqU5OE=O`uStN}VcI=*_E4TQuHCV4yJF4jwJTq+U+)SYOn4;U!)O`)tr<3^%fgT&4@Ml8 za^S{89WRy4x${)ZbNdcmj9G8Xqn=Z%=Gk^{Vx&t+XTID~?dsdOYb)Mux-Dwirh_xi zO}u#4)}meiem%UjZsX94BS#*Z`t06MLxZ#(y}RV;ypMIaygJ06&*iymq==b@*ZxQ56hg|1TSEPuA9DlCqya;I#hI7vI|l9OutUa8OC+UbgsZc1#j%)Sa< zb?N3h=C|4MS}e8Ps_O2v*r|K&tQB5s>#O}z3oo+db^GptX=+<9qVy_yD!w=B>+Qh- zo2#(E35Gi`y9M9tal-Nn8myRc>Y6dY*kWv5q2ki&?8O%In(52K{kw0=mWI6K$jikW zqiCic>#u|?4?Hx?E~h%Pfg2wT@ya*voN~M+Q+%?<;2sThxa+#ywa+vU4XuP6hdgoD zMrV0(&|p8@@VBDIJZ;fl_1%MOjkeiN z;~j0`V6KgB+hI#icI1oG9kkpHi;cD0a6@kJ>4#g6y59DZE?(fU#y)f77{^*}-J;v> z_~n}eC-c-FQyx0+rT@Kcug9{hFI;0QKKh4l+dO!D^<68t@Wv-zc-d{nUMaH6Cx5%= zSc5Ko@~D=RE4EG;c9E-o%FFE21KFflPPGBPqVGcz_~R#sM5 zS65hASXo(FT3T9LTU%UQTwPsVUS3{bUteHgU}0flVq#)rV`F4wWMyS#W@ct*XJ=?= zXlZF_YHDh0Yin$5Y;A3AZfQa&mHWb8~cbbai!gc6N4mcXxPrczJnw zdU|?$dwYC*e0_a=etv#`e}900fPsO5f`WpBgM);GgoTBLhK7cRhlhxWh>3}bii(Ph zi;IkmjE#+rj*gCxkB^X$kdcv*l9G~>larK`l$Dj0mX?;6mzS8Bn3Cf>sHv%`s;a81tE;T6tgWrB zuCA`HudlGMu(7eRva+(Xv$M3cw6(Rhwzjsnx3{>sxVgExy1Kf%ySu!+yuH1>zP`S{ zzrVo1z`?=6!otGC!^6bH#KpzM#>U3S$H&OX$jQmc%F4>i%gfBn%+1Zs&d$!y&(F}% z(9zM+($dn?)6>+{)YaA1*4Eb7*VowC*xA|H+S=ON+uPjS+}+*X-rnBd-{0Wi;Njun z;^N}tgww2>+9_7?CtIC?(XjI@9*&N@bU5S^78WY z^Yird^!4@i_V)Jo_xJet`1$$y`uh6&`}_R-{Qdp?{{H^||NjX80HX;UNU&fu000Cc zG{~@_!-WMAN}QO`p~Z$2D-z6zQRBsr202Eg7?LDIh$Sa>?5OgjN02ZNRzw-|BTa=F zCDycQa%0btJ7bFU*^;PEmn@H#OnP%*)1WJ5LcQ2Dr_!k-i#q-36Dw7&GPU9qyOrt7 zvM$Nu^cwXkTe5E1qU|ab=+?MctIj+NQLoXZcE|D^{8z4Byi?(xH9Qxs-@A+760S@4 zv0%V-F9&X{R`OcLkTHYK?0B-~(T`J`4!ipE>Bg>Eqi$_j@6g&FJICIQyD-g`zpwHR zZke-i%Dp!;whh)R@yNrW=goced2Gd^v2WJCoVHx%x}jSCf9TzFXym}D7r%bIICtE^ zNAr&QeQ$KPh{fBl+joEe=z#sF9Dn=-Ez1AI>YaXU0 zn)L-Z*?MTwX=iy?o@eBMG?FLhk@D4fA(kuN$tIs~0;;Esh_+eTn|+4p=AVsLTIi2^ zu1KU};pyn3RYpbn6{qcib(>(|QCVuICJs3rsiNZl_-Rg|CYt1`xTZRyu36=3D~_&u z>T964S@m43?YH2DEAF`DmTT_0=%%ag zy6m>=?z`~D+pDqk)(a|Y_U4-}s`~bOufG5r%WuE|4@~gE2m@?z!uBrAFue{x{IA6R zMojU=2V0DBe;e1U@x~ux9CF7d75gN|)d`H^qYk&c=xY$;`%`+FH7qm9CF88H%!Oeo zQp_>>ta8k1Lg_NmP@-({$P_cJGrv8vnBK%1qWrVUMbCQmy*2ab^~5^UdUM!fOE`7P zP><~*&jf;9_Jn5xJ#>+6&rNpDcgt;I+;FG=Om*F6zx}t>U)%jQp@0jXH{pxZoOs%V zAKiE0TOas$FZtkwlOOy}bS(R!?|fuKoXOJ1 zKDr6bdpnZS|HRg{<3X@`2*lv#TF1co35tPyn^oxQ7s3ekZD|?2nDtb+GPXUicJ5Qn z1b?ThT9t4-N@Ly%GnPX9UC)ON#Murc2{y!n^$>^>E8@<8sKkmL@nKCwqQ0Uy#V0b1 Nis56T6%!T^06ShT%k}^O literal 0 HcmV?d00001 diff --git a/brewery/README.md b/brewery/README.md new file mode 100644 index 0000000..786f892 --- /dev/null +++ b/brewery/README.md @@ -0,0 +1,19 @@ +# Brewery calculations + +## SPND - Spundungsdruck +This is a **solver-program** to calculate the carbonization pressure according +to this formula: +``` + 2617.25 + (- 10.73797) + ---------- + t + 273.15 + c(p, t) := (p + 1.013) %e 10 +``` + +c: CO₂ concentration in g/l +p: Carbonization gauge pressure in bar +ϑ: Temperature in °C + +https://elfring.ms/blog/rpn-karbonisierungsrechner + + diff --git a/brewery/spund.raw b/brewery/spund.raw new file mode 100644 index 0000000000000000000000000000000000000000..db72c19e9641740c22bd2f0ac0281ff8ccaa07ac GIT binary patch literal 80 zcmX@W@RcDrz|ZB&grvlx&l7~5zf4Hi&k+(66qgbbWe^e Please note: +> As diving is potentially dangerous, please be sensible and verify the +> calculations on your own. + +## MOD +Maximum-Operating-Depth for nitrox + +1. Enter the percentage of oxygen in the gas. +2. Execute the program. +3. Get the MOD in meters for the O₂-pressures of 1,4 and 1,6 bar. + +## NTRX - Nitrox +This is a **solver-program** for the general nitrox formula: +``` + PO₂ x 10 +EAN = ---------- x 100 + D + 10 +``` + diff --git a/diving/mod.raw b/diving/mod.raw new file mode 100644 index 0000000000000000000000000000000000000000..8a9f0b7e872670248d49e10aad875e513520745c GIT binary patch literal 67 zcmX@W@P)zG-$hVBfWg^NP)dYB(OHneQBZ)v=?75QP{+hpVRo^glo&$%S3MV4#tbA= IcYuKx0PV96YybcN literal 0 HcmV?d00001 diff --git a/diving/mod.txt b/diving/mod.txt new file mode 100644 index 0000000..ccf7b74 --- /dev/null +++ b/diving/mod.txt @@ -0,0 +1,25 @@ +00 { 64-Byte Prgm } +01▸LBL "MOD" +02 100 +03 ÷ +04 STO 01 +05 1.4 +06 RCL 01 +07 ÷ +08 1 +09 - +10 10 +11 × +12 "MOD1,4= " +13 ARCL ST X +14 1.6 +15 RCL 01 +16 ÷ +17 1 +18 - +19 10 +20 × +21 ├"[LF]MOD1,6= " +22 ARCL ST X +23 AVIEW +24 END diff --git a/diving/nitrox.raw b/diving/nitrox.raw new file mode 100644 index 0000000000000000000000000000000000000000..f4f257b2a03928581a470eef62031f74abc5994a GIT binary patch literal 49 zcmX@W@Rh+YBq-w31eebf0t&uNaCP+iG|@#+fWcXi!Qsn9AXiWT$Z`5SF`&Tl00S=o D_#6^I literal 0 HcmV?d00001 diff --git a/diving/nitrox.txt b/diving/nitrox.txt new file mode 100644 index 0000000..70351b3 --- /dev/null +++ b/diving/nitrox.txt @@ -0,0 +1,18 @@ +00 { 46-Byte Prgm } +01▸LBL "NTRX" +02 MVAR "D" +03 MVAR "Pp" +04 MVAR "EAN" +05 RCL "D" +06 10 +07 ÷ +08 1 +09 + +10 RCL "EAN" +11 100 +12 ÷ +13 × +14 RCL "Pp" +15 - +16 END + diff --git a/microwave/README.md b/microwave/README.md new file mode 100644 index 0000000..2f9f1df --- /dev/null +++ b/microwave/README.md @@ -0,0 +1,6 @@ +# MWVE - Microwave +A little helper for the microwave oven. + +Enter wattage and time for something to cook. +The program will return an available powerlevel (from MY oven) and an adjusted time. +The time is entered in mm,ss diff --git a/microwave/mwve.raw b/microwave/mwve.raw new file mode 100644 index 0000000000000000000000000000000000000000..f8e1c2bce98dc41b2cf68a6d2b79f93243e1e493 GIT binary patch literal 136 zcmX@W@Rh+gJk0g$(eT8QlCMXjQZq|(zczv>K>+~Y │ Sum / number = amount per person +÷ ─┘ +STO 02 Store the amount per person +RCL 01 RCL the Sum to have it in Z later on +X<>Y Get the amount per person back into X (Could also be RCL 02) +RCL "m" ─┐ +X<>Y │ Matrix - amount p.p. = matrix with comp. cashflow +- ─┘ +RCL 02 ─┐ Put the amount p.p. into Y +X<>Y ─┘ +END +``` diff --git a/split/split.raw b/split/split.raw new file mode 100644 index 0000000000000000000000000000000000000000..005b85c5b0e89326f0648a9e52b2407286b2a03f GIT binary patch literal 38 tcmX@W@Qoojz{fM>Q)BM33(L+JewvuO?73p0vyoyUkXh)cRCs`a7XV}Y5mW#G literal 0 HcmV?d00001 diff --git a/split/split.txt b/split/split.txt new file mode 100644 index 0000000..a0b630a --- /dev/null +++ b/split/split.txt @@ -0,0 +1,20 @@ +00 { 35-Byte Prgm } +01▸LBL "SPLIT" +02 STO "m" +03 RSUM +04 DET +05 STO 01 +06 RCL "m" +07 DIM? +08 RCL 01 +09 X<>Y +10 ÷ +11 STO 02 +12 RCL 01 +13 X<>Y +14 RCL "m" +15 X<>Y +16 - +17 RCL 02 +18 X<>Y +19 END diff --git a/statitics/README.md b/statitics/README.md new file mode 100644 index 0000000..08317e3 --- /dev/null +++ b/statitics/README.md @@ -0,0 +1,16 @@ +# Statistics Tools + +## SnCk +Sum of combinations. +The usual nCk function returns the number of combinations for k elements out of n. +This program sums up the combinations for 1 .. k out of n. + +``` + k + ==== + \ 1 + n! > ----------- + / k! (n - k)! + ==== + k = 1 +``` diff --git a/statitics/SnCk.raw b/statitics/SnCk.raw new file mode 100644 index 0000000000000000000000000000000000000000..48832ad10ade79b0b982553b7ee362494ad8904e GIT binary patch literal 43 ycmX@W@Rflz&pBIw!Qj);yiZ57**{Ip`!q3oLH;BLL55Gw*+6#6b_Rt547>oNBofR3 literal 0 HcmV?d00001 diff --git a/statitics/SnCk.txt b/statitics/SnCk.txt new file mode 100644 index 0000000..92472c8 --- /dev/null +++ b/statitics/SnCk.txt @@ -0,0 +1,18 @@ +00 { 40-Byte Prgm } +01▸LBL "ΣnCk" +02 0 +03 STO 00 +04 INPUT "n" +05 INPUT "k" +06▸LBL 06 +07 RCL "n" +08 RCL "k" +09 COMB +10 STO+ 00 +11 1 +12 STO- "k" +13 RCL "k" +14 X>0? +15 GTO 06 +16 RCL 00 +17 END