make bmr a script and add new exercises.

2 files changed, 48 insertions, 3 deletions

diff --git a/bmr b/bmr
index 30ff882..e684312 100644..100755
--- a/bmr
+++ b/bmr
@@ -1,3 +1,32 @@
-# 66 + 6.23*lbs + 12.7*inch + 6.8*years
-66 + 6.23*176.36 + 12.7*68.89 - 6.8*23
-1883.2258
+#!/bin/rc
+#
+# BMR following the Mifflin-St. Jeor equation
+# 	P(kcal/day) = 10*weight(kg) + 6.25*height(cm) - (5*age(yr)) + s
+# where s is +5 for men and -161 for women
+#
+s=5
+w=()
+h=()
+a=()
+flagfmt='w'
+args='weight height age'
+
+fn usage {
+	aux/usage
+	exit usage
+}
+
+if(! ifs=() eval `{aux/getflags $*} || ~ $#* 0)
+	usage
+
+w=$1
+h=$2
+a=$3
+
+if(~ $flagw 1)
+	s=-161
+
+bc <<EOF
+scale=4
+10*$w + 6.25*$h - (5*$a) + $s
+EOF
diff --git a/exercises b/exercises
index 9e47593..a985a14 100644
--- a/exercises
+++ b/exercises
@@ -37,3 +37,19 @@ calves
 	while holding a couple of dumbbells, bend your knees slightly
 	forward and begin raising your heels from the ground, standing
 	on the tips, then back down.
+floor dumbbell press
+	lay down on the floor, grab a dumbbell with each hand,
+	position the arms 45° from the torso and start pushing them
+	up, then down with control.
+flutter kicks
+	TBD
+squats
+	TBD
+weighted squats
+	TBD
+pull-ups with grounded heels
+	TBD
+parallel bar chest dips
+	TBD
+single bar chest dips
+	TBD