|
|
Code
BMR 1.0
BMR 1.0
A program for calculating the basic metabolic rate
and the energy requirements of critically ill
patients (e.g. in intensive care units) with the
Harris-Benedict equation on Programmable RPN
Calculators
( tested with HP 32 S).
|
H01
|
LBL
H
|
|
H02
|
CF
1
|
|
H03
|
INPUT
G
|
|
H04
|
X<>0?
|
|
H05
|
SF
1
|
|
H06
|
INPUT
L
|
|
H07
|
INPUT
M
|
|
H08
|
INPUT
A
|
|
H09
|
FS?
1
|
|
H10
|
GTO
F
|
|
H11
|
66,47
|
|
H12
|
ENTER
|
|
H13
|
13,74
|
|
H14
|
ENTER
|
|
H15
|
RCL
M
|
|
H16
|
X
|
|
H17
|
+
|
|
H18
|
5
|
|
H19
|
ENTER
|
|
H20
|
RCL
L
|
|
H21
|
X
|
|
H22
|
+
|
|
H23
|
6,75
|
|
H24
|
ENTER
|
|
H25
|
RCL
A
|
|
H26
|
X
|
|
H27
|
-
|
|
H28
|
XEQ
C
|
|
F01
|
LBL
F
|
|
F02
|
65,51
|
|
F03
|
ENTER
|
|
F04
|
9,56
|
|
F05
|
ENTER
|
|
F06
|
RCL
M
|
|
F07
|
X
|
|
F08
|
+
|
|
F09
|
1,85
|
|
F10
|
ENTER
|
|
F11
|
RCL
L
|
|
F12
|
X
|
|
F13
|
+
|
|
F14
|
4,676
|
|
F15
|
ENTER
|
|
F16
|
RCL
A
|
|
F17
|
X
|
|
F18
|
-
|
|
F19
|
XEQ
C
|
|
C01
|
LBL
C
|
|
C02
|
STO
R
|
|
C03
|
INPUT
T
|
|
C04
|
37
|
|
C05
|
-
|
|
C06
|
10
|
|
C07
|
/
|
|
C08
|
1
|
|
C09
|
+
|
|
C10
|
RCL
R
|
|
C11
|
X
|
|
C12
|
STO
R
|
|
C13
|
INPUT
S
|
|
C14
|
2
|
|
C15
|
X
|
|
C16
|
1
|
|
C17
|
-
|
|
C18
|
10
|
|
C19
|
/
|
|
C20
|
1
|
|
C21
|
+
|
|
C22
|
STO
S
|
|
C23
|
1,7
|
|
C24
|
ENTER
|
|
C25
|
RCL
S
|
|
C26
|
X=Y?
|
|
C27
|
2
|
|
C28
|
STO
S
|
|
C29
|
0,9
|
|
C30
|
ENTER
|
|
C31
|
RCL
S
|
|
C32
|
X=Y?
|
|
C33
|
1
|
|
C34
|
STO
S
|
|
C35
|
RCL
R
|
|
C36
|
X
|
|
C37
|
STO
R
|
|
C38
|
SF
2
|
|
C39
|
INPUT
P
|
|
C40
|
X=0?
|
|
C41
|
CF
2
|
|
C42
|
1
|
|
C43
|
FS?
2
|
|
C44
|
1,25
|
|
C45
|
STO
P
|
|
C46
|
RCL
R
|
|
C47
|
X
|
|
C48
|
STOP
|
Variables:
G:
Gender (0: Male, 1: Female)
L: Body length
M: Body mass (in kg)
A: Age (in years)
T: Body core temperature (in degrees Celsius)
S: Severity of disease or condition
P: Physical activity (0: none, 1.25: activity).
|
