/* zone relations (percent of protein, fat , carb) */
arg prot fat  carb
rdakcal=2400
rdaprot=55
arg oprot ofat  ocarb
 fat=fat*2
p100=prot+fat+carb
prot=format(prot*100/p100,2,0)
fat =format(fat *100/p100,2,0)
carb=format(carb*100/p100,2,0)
kcalp100=oprot*3.95+ofat*9.30+ocarb*3.95
gram_per_day=format(rdakcal*100/kcalp100,4,0)
grprotein      = (gram_per_day/100)*oprot
percentprotein = format(grprotein/rdaprot*100,4,0)
return  prot'/'fat'/'carb gram_per_day,
rdakcal'kcal='grprotein 'g protein' (percentprotein)'%rda'