From 3f2f92a1f48783f10692ae2defaf57585805b704 Mon Sep 17 00:00:00 2001
From: rodri <rgl@antares-labs.eu>
Date: Wed, 30 Jun 2021 19:30:06 +0000
Subject: =?UTF-8?q?workout:=20ignore=20shell-style=20comments=20from=20inp?=
 =?UTF-8?q?ut=20when=20adding=20reps=20per=20exercise.=20default.session:?=
 =?UTF-8?q?=20updated=20program.=20exercises:=20some=20corrections=20and?=
 =?UTF-8?q?=20new=20stuff.=20added=20new=20scripts=20to=20register=20age,?=
 =?UTF-8?q?=20height,=20=CE=94weight/dt,=20BSA=20and=20SBSI=20(the=20latte?=
 =?UTF-8?q?r=20too=20technical=20to=20be=20useful=20for=20me=20but=20were?=
 =?UTF-8?q?=20fun=20rc=20practice.)?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 bsa | 25 +++++++++++++++++++++++++
 1 file changed, 25 insertions(+)
 create mode 100755 bsa

(limited to 'bsa')

diff --git a/bsa b/bsa
new file mode 100755
index 0000000..021131b
--- /dev/null
+++ b/bsa
@@ -0,0 +1,25 @@
+#!/bin/rc
+#
+# Body Surface Area (BSA) following the Lipscombe equation
+#	BSA(m²) = 0.00878108 * W(kg)^0.434972 * H(cm)^0.67844
+#
+rfork ne
+w=()
+h=()
+flagfmt=''
+args='weight height'
+
+fn usage {
+	aux/usage
+	exit usage
+}
+
+if(! ifs=() eval `{aux/getflags $*} || ! ~ $#* 2)
+	usage
+
+w=$1
+h=$2
+
+hoc <<EOF
+0.00878108 * $w ^ 0.434972 * $h ^ 0.67844
+EOF
-- 
cgit v1.2.3