134 lines
3.8 KiB
Mathematica
134 lines
3.8 KiB
Mathematica
FHASM2C ; HISC/REL - Target Weight - Pediatric ;6/2/89 15:15
|
|
;;5.5;DIETETICS;**8**;Jan 28, 2005;Build 28
|
|
;;Normalized NCHS/CDC Anthropometric Reference
|
|
S X1=+$J(AGE*12,0,0) I X1'>0!(X1>119) S IBW="" Q
|
|
P1 S X=$P($T(WT+X1),";;",2) S:SEX="F" X=$P(X," ",4,6) S X3=$P(X," ",1),A1=$P(X," ",2),A2=$P(X," ",3)
|
|
S X1=+$J(-.524*A1+X3,0,1),X2=+$J(.524*A2+X3,0,1)
|
|
S W1=+$J(X1*2.2,0,0),W2=+$J(X2*2.2,0,0),W3=+$J(X3*2.2,0,0)
|
|
I FHU'="M" S X1=W1,X2=W2,X3=W3
|
|
P3 W !!,"Select Target Weight (",X1,"-",X2,") ",X3,$S(FHU'="M":" lb",1:" kg"),"// " R X:DTIME I '$T!(X["^") S IBW="^" Q
|
|
I X="" S IBW=W3 Q
|
|
D WGT^FHASM1 I Y<1 D WGP^FHASM1 G P3
|
|
S IBW=+Y I IBW<W1!(IBW>W2) S METH="E"
|
|
Q
|
|
WT ;;3.3 .4 .5 3.2 .5 .4
|
|
;;4.3 .7 .7 4 .6 .5
|
|
;;5.2 .9 .8 4.7 .7 .7
|
|
;;6 1 .9 5.4 .7 .8
|
|
;;6.7 1 .9 6 .8 .8
|
|
;;7.3 1 .9 6.7 .8 .9
|
|
;;7.8 1 1 7.2 .9 .9
|
|
;;8.3 1 1 7.7 .9 .9
|
|
;;8.8 1 1 8.2 .9 1
|
|
;;9.2 1 1 8.6 1 1
|
|
;;9.5 1 1.1 8.9 1 1
|
|
;;9.9 1 1.1 9.2 1 1
|
|
;;10.2 1 1.1 9.5 1 1
|
|
;;10.4 1 1.1 9.8 1.1 1.1
|
|
;;10.7 1.1 1.2 10 1.1 1.1
|
|
;;10.9 1.1 1.2 10.2 1.1 1.1
|
|
;;11.1 1.1 1.2 10.4 1.1 1.1
|
|
;;11.3 1.1 1.2 10.6 1.2 1.1
|
|
;;11.5 1.2 1.2 10.8 1.2 1.1
|
|
;;11.7 1.2 1.2 11 1.2 1.2
|
|
;;11.8 1.2 1.3 11.2 1.2 1.2
|
|
;;12 1.3 1.3 11.4 1.2 1.2
|
|
;;12.2 1.3 1.3 11.5 1.2 1.2
|
|
;;12.4 1.3 1.3 11.7 1.2 1.3
|
|
;;12.3 1.1 1.7 11.8 1.2 1.4
|
|
;;12.5 1.2 1.7 12 1.2 1.5
|
|
;;12.7 1.2 1.7 12.2 1.2 1.5
|
|
;;12.9 1.3 1.7 12.4 1.3 1.6
|
|
;;13.1 1.3 1.7 12.6 1.3 1.6
|
|
;;13.3 1.3 1.7 12.8 1.3 1.7
|
|
;;13.5 1.4 1.7 13 1.3 1.7
|
|
;;13.7 1.4 1.7 13.2 1.4 1.7
|
|
;;13.9 1.5 1.8 13.4 1.4 1.8
|
|
;;14.1 1.5 1.8 13.6 1.4 1.8
|
|
;;14.3 1.5 1.8 13.8 1.4 1.9
|
|
;;14.4 1.6 1.8 13.9 1.5 1.9
|
|
;;14.6 1.6 1.8 14.1 1.5 2
|
|
;;14.8 1.6 1.8 14.3 1.5 2
|
|
;;15 1.7 1.8 14.4 1.5 2
|
|
;;15.2 1.7 1.9 14.6 1.5 2.1
|
|
;;15.3 1.7 1.9 14.8 1.6 2.1
|
|
;;15.5 1.7 1.9 14.9 1.6 2.1
|
|
;;15.7 1.8 1.9 15.1 1.6 2.2
|
|
;;15.8 1.8 1.9 15.2 1.6 2.2
|
|
;;16 1.8 2 15.4 1.6 2.2
|
|
;;16.2 1.8 2 15.5 1.6 2.3
|
|
;;16.4 1.9 2 15.7 1.7 2.3
|
|
;;16.5 1.9 2 15.8 1.7 2.3
|
|
;;16.7 1.9 2 16 1.7 2.4
|
|
;;16.9 1.9 2.1 16.1 1.7 2.4
|
|
;;17 1.9 2.1 16.2 1.7 2.4
|
|
;;17.2 2 2.1 16.4 1.8 2.5
|
|
;;17.4 2 2.2 16.5 1.8 2.5
|
|
;;17.5 2 2.2 16.7 1.8 2.5
|
|
;;17.7 2 2.2 16.8 1.8 2.6
|
|
;;17.9 2 2.2 17 1.8 2.6
|
|
;;18 2 2.3 17.1 1.8 2.6
|
|
;;18.2 2.1 2.3 17.2 1.9 2.7
|
|
;;18.3 2.1 2.3 17.4 1.9 2.7
|
|
;;18.5 2.1 2.4 17.5 1.9 2.7
|
|
;;18.7 2.1 2.4 17.7 1.9 2.8
|
|
;;18.8 2.1 2.4 17.8 2 2.8
|
|
;;19 2.1 2.5 18 2 2.9
|
|
;;19.2 2.2 2.5 18.1 2 2.9
|
|
;;19.3 2.2 2.6 18.3 2 2.9
|
|
;;19.5 2.2 2.6 18.4 2.1 3
|
|
;;19.7 2.2 2.6 18.6 2.1 3
|
|
;;19.8 2.2 2.7 18.7 2.1 3.1
|
|
;;20 2.3 2.7 18.9 2.1 3.1
|
|
;;20.2 2.3 2.8 19 2.2 3.2
|
|
;;20.3 2.3 2.8 19.2 2.2 3.2
|
|
;;20.5 2.3 2.9 19.4 2.2 3.3
|
|
;;20.7 2.3 2.9 19.5 2.3 3.3
|
|
;;20.9 2.4 3 19.7 2.3 3.4
|
|
;;21 2.4 3 19.9 2.3 3.5
|
|
;;21.2 2.4 3.1 20 2.4 3.5
|
|
;;21.4 2.4 3.2 20.2 2.4 3.6
|
|
;;21.6 2.4 3.2 20.4 2.4 3.6
|
|
;;21.7 2.5 3.3 20.6 2.5 3.7
|
|
;;21.9 2.5 3.3 20.8 2.5 3.8
|
|
;;22.1 2.5 3.4 21 2.6 3.9
|
|
;;22.3 2.5 3.5 21.2 2.6 3.9
|
|
;;22.5 2.6 3.5 21.4 2.7 4
|
|
;;22.7 2.6 3.6 21.6 2.7 4.1
|
|
;;22.9 2.6 3.7 21.8 2.8 4.2
|
|
;;23 2.7 3.7 22.1 2.8 4.3
|
|
;;23.2 2.7 3.8 22.3 2.9 4.4
|
|
;;23.4 2.7 3.9 22.5 2.9 4.4
|
|
;;23.6 2.8 4 22.8 3 4.5
|
|
;;23.8 2.8 4 23 3 4.6
|
|
;;24 2.8 4.1 23.3 3.1 4.7
|
|
;;24.2 2.9 4.2 23.5 3.2 4.8
|
|
;;24.4 2.9 4.3 23.8 3.2 4.9
|
|
;;24.7 3 4.4 24 3.3 5
|
|
;;24.9 3 4.5 24.3 3.3 5.2
|
|
;;25.1 3.1 4.6 24.6 3.4 5.3
|
|
;;25.3 3.1 4.7 24.8 3.5 5.4
|
|
;;25.5 3.1 4.7 25.1 3.5 5.5
|
|
;;25.7 3.2 4.8 25.4 3.6 5.6
|
|
;;26 3.3 4.9 25.7 3.7 5.7
|
|
;;26.2 3.3 5 26 3.8 5.8
|
|
;;26.4 3.4 5.1 26.3 3.8 6
|
|
;;26.7 3.4 5.2 26.6 3.9 6.1
|
|
;;26.9 3.5 5.4 26.9 4 6.2
|
|
;;27.1 3.5 5.5 27.2 4.1 6.3
|
|
;;27.4 3.6 5.6 27.5 4.1 6.4
|
|
;;27.6 3.7 5.7 27.8 4.2 6.6
|
|
;;27.9 3.7 5.8 28.1 4.3 6.7
|
|
;;28.1 3.8 5.9 28.5 4.4 6.8
|
|
;;28.4 3.9 6 28.8 4.4 6.9
|
|
;;28.6 3.9 6.1 29.1 4.5 7.1
|
|
;;28.9 4 6.2 29.4 4.6 7.2
|
|
;;29.2 4.1 6.3 29.8 4.7 7.3
|
|
;;29.5 4.1 6.5 30.1 4.8 7.4
|
|
;;29.7 4.2 6.6 30.5 4.8 7.6
|
|
;;30 4.3 6.7 30.8 4.9 7.7
|
|
;;30.3 4.4 6.8 31.1 5 7.8
|
|
;;30.6 4.4 6.9 31.5 5.1 7.9
|
|
;;30.9 4.5 7.1 31.8 5.2 8.1
|
|
;;31.1 4.6 7.2 32.2 5.2 8.2
|