blob: beb4c5805e3dc1a422ff8b12690dc3078d15cf24 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
|
#!/bin/rc
#
# Surface-based Body Shape Index (SBSI)
# H(cm)^7/4 * WC(cm)^5/6
# SBSI = ------------------------
# BSA(m²) * VTC(cm)
# where WC is waist circumference and VTC is the vertical trunk one.
#
rfork ne
vtc=()
wc=()
w=()
h=()
flagfmt=''
args='vtc wc weight height'
fn usage {
aux/usage
exit usage
}
if(! ifs=() eval `{aux/getflags $*} || ! ~ $#* 4)
usage
vtc=$1
wc=$2
w=$3
h=$4
bsa=`{bsa $w $h}
hoc <<EOF
($h ^ (7/4) * $wc ^ (5/6))/($bsa * $vtc)
EOF
|
