+- HP Forums (https://www.hpmuseum.org/forum)
+-- Forum: HP Software Libraries (/forum-10.html)
+--- Forum: General Software Library (/forum-13.html)
+--- Thread: (HP15C CE) 3 Med Calcs I always carry with me (/thread-20526.html)
(HP15C CE) 3 Med Calcs I always carry with me - mchris - 09-20-2023 06:13 PM
Since I bought HP15c CE it's always in my pocket for 3 essential medical calculations, and tried to use only the stack without STOring and RCL (recalling) additional registers. First the Creatinine Clearance (Cockcroft-Gault) formula which is useful for almost all drugs dosages for people with kidney failure. Second is the Body Surface Area (Takahira). As I use meters and kilograms for height and weight, the height is always a very small number and I don't bother to remember the order to put them on the stack, the program figures it out. And last the Polymyxine dosage formula for initial and subsequent doses with the results on x and y registers.
Creatinine Clearance (Cockcroft-Gault)
Sex (1=male, 2=female) ENTER, Age (Years) ENTER, Weight (Kg) ENTER, Cr (mg/dL) fC.
Code:
001 32.21.13 LBL C
002 10 ÷
003 7 7
004 2 2
005 10 ÷
006 34 x↔y
007 1 1
008 4 4
009 0 0
010 34 x↔y
011 30 -
012 20 *
013 34 x↔y
014 48 ,
015 1 1
016 5 5
017 16 CHS
018 20 *
019 1 1
020 48 ,
021 1 1
022 5 5
023 40 +
024 20 *
025 43 32 RTNBody Surface Area (Takahira)
Weight ENTER, Height fA. Or vice versa!
Code:
026 42.21.11 LBL A
027 43 10 x≤y
028 34 x↔y
029 48 ,
030 4 4
031 2 2
032 5 5
033 14 y^x
034 48 ,
035 0 0
036 0 0
037 7 7
038 1 1
039 8 8
040 4 4
041 20 *
042 34 x↔y
043 1 1
044 0 0
045 0 0
046 20 *
047 48 ,
048 7 7
049 2 2
050 5 5
051 14 y^x
052 20 *
053 43 32 RTNPolymyxine Dose Calculator
Creatinine Clearance ENTER, Weight (Kg) ENTER, Desired consentration (mg/dL) fB
For MIC<1 the desired consentration is 2mg/dL
Code:
054 42,21,12 LBL B
055 3 3
056 26 EEX
057 4 4
058 20 *
059 36 ENTER
060 33 R↓
061 20 *
062 2 2
063 20 *
064 34 x↔y
065 1 1
066 48 ,
067 5 5
068 20 *
069 3 3
070 0 0
071 40 +
072 34 x↔y
073 33 R↓
074 20 *
075 34 x↔y
076 33 R↓
077 34 x↔y
078 43 32 RTNRE: (HP15C CE) 3 Med Calcs I always carry with me - Gil - 09-20-2023 09:52 PM
For body surface formulae:
https://en.m.wikipedia.org/wiki/Body_surface_area