low_actual := 99999999.0;
low_prediction := 99999999.0;
high_actual := 0.0;
high_prediction := 0.0;
# Copyright (C) 2023 Dennis J. Darland
# This file is part of Dennis J Darland's Glucose Prediction Software.
# darland's philosophy is free software: you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation, either version 3 of the License, or
# (at your option) any later version.
# This is distributed in the hope that it will be useful, 
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
# You should have received a copy of the GNU General Public License
# along with darland's philosophy. If not, see <http://www.gnu.org/licenses/>.
recommended_ksteps := 100.;
kstep_exponent := 1;
kstep_factor := 20.;
recommended_fat := 2.;
recommended_carb := 3.;
recommended_prot := 1.;
recommended_fiber := 1.;
recommended_sugar := 1.;
recommended_saturated := 1.;
delta_method := 3;
kstep_method := 1;
order2 := 1;
factor1 := 1.;
factor2 := 0.;
fasted_factor := 0.01;
recommended_fasted := 5.;
recommended_carb_other := 1.;
recommended_fat_other := 1.;
eliminate_extremes := 24;
cal_per_gram_carb := 4.;
cal_per_gram_fat := 9.;
cal_per_gram_prot := 4.;
cal_per_ksteps := -50;
prior_factor := 1.;
fasted_factor := 0.01;
count := 0.0;
min_perc_err := 99999999.0;
max_perc_err := 0;
tot_perc_err := 0;
C_ksteps := 0.000557056103978481;
C_fat_other := -0.005247000168341764;
C_carb_other  := 0.0209093234179114;
C_protein := 0.09984455620331649;
C_fiber := -0.009842270927556858;
C_sugar := 0.07502465383470508;
C_saturated := -0.07453102964202535;
C_fasted := 407.5646077139151;
ksteps := 10.0;
kstep_factor := 20.;
fat := 121.0;
carb := 380.0;
prot := 36.1;
fiber := 15.4;
sugar := 172.0;
saturated := 23.6;
fasted := 4.0;
fat_other := 97.4;
carb_other := 192.6;
delta_ksteps :=  (recommended_ksteps - ksteps) * kstep_factor;
delta_fat_other := (fat_other - recommended_fat_other);
delta_carb_other := (carb_other - recommended_carb_other);
delta_prot := (prot - recommended_prot);
delta_fiber := (fiber - recommended_fiber);
delta_sugar := (sugar - recommended_sugar);
delta_saturated := (saturated - recommended_saturated);
delta_fasted := (fasted - recommended_fasted) * fasted_factor;
it_previous :=  76.0;
metabolism :=  0.;
it_ksteps := (C_ksteps) * (delta_ksteps);
it_fat_other := factor1  * ( C_fat_other ) * ( (delta_fat_other) );
it_carb_other := factor1  * ( C_carb_other ) * ( (delta_carb_other) );
it_prot := factor1  * ( C_protein ) * ( (delta_prot) );
it_fiber := factor1  * ( C_fiber ) * ( (delta_fiber) );
it_sugar :=  factor1  * ( C_sugar ) * ( (delta_sugar) );
it_saturated := factor1  * ( C_saturated ) * ( (delta_saturated) );
it_fasted := ( C_fasted ) * ( (delta_fasted) );
prediction  := evalf(it_previous * prior_factor
 + metabolism
 + it_ksteps * cal_per_ksteps
 + it_fat_other * cal_per_gram_fat
 + it_carb_other * cal_per_gram_carb
 + it_prot * cal_per_gram_prot
 + it_fiber * cal_per_gram_carb
 + it_sugar * cal_per_gram_carb
 + it_saturated * cal_per_gram_fat
 + it_fasted);
it_previous := 76.0;
actual := 151.0;
previous := 76.0;
err := abs(prediction - actual);
perc_err := abs(err * 100.0) / actual;
delta_glucose := abs(previous - actual);
perc_delta := (delta_glucose * 100.0) / actual;
if (perc_err < min_perc_err) then min_perc_err := perc_err; fi;
if (perc_err > max_perc_err) then max_perc_err := perc_err; fi;
tot_perc_err := tot_perc_err + perc_err;
if (actual < low_actual) then low_actual := actual; fi;
if (actual > high_actual) then high_actual := actual; fi;
if (prediction < low_prediction) then low_prediction := prediction; fi;
if (prediction > high_prediction) then high_prediction := prediction; fi;
count := count + 1.0;
out2 := [count, perc_err, actual,prediction,it_previous,it_previous * prior_factor,metabolism,it_ksteps * cal_per_ksteps,it_fat_other*cal_per_gram_fat,it_carb_other*cal_per_gram_carb,it_prot*cal_per_gram_prot,it_fiber*cal_per_gram_carb,it_sugar*cal_per_gram_carb,it_saturated*cal_per_gram_fat,it_fasted,order2, delta_method, kstep_method, recommended_ksteps, kstep_exponent, kstep_factor, recommended_fat, recommended_carb, recommended_prot, recommended_fiber, recommended_sugar, recommended_saturated ,factor1, factor2, recommended_fasted,prior_factor,fasted_factor,eliminate_extremes,ksteps,fat_other,carb_other,prot,fiber,sugar,saturated,fasted,C_ksteps,C_fat_other,C_carb_other,C_protein,C_fiber,C_sugar,C_saturated,C_fasted,cal_per_gram_carb,cal_per_gram_prot,cal_per_gram_fat,cal_per_ksteps];
writedata("OUT/out2_work.tmp", out2);
ksteps := 10.0;
kstep_factor := 20.;
fat := 76.5;
carb := 254.0;
prot := 31.3;
fiber := 28.3;
sugar := 92.4;
saturated := 16.0;
fasted := 5.5;
fat_other := 60.5;
carb_other := 133.3;
delta_ksteps :=  (recommended_ksteps - ksteps) * kstep_factor;
delta_fat_other := (fat_other - recommended_fat_other);
delta_carb_other := (carb_other - recommended_carb_other);
delta_prot := (prot - recommended_prot);
delta_fiber := (fiber - recommended_fiber);
delta_sugar := (sugar - recommended_sugar);
delta_saturated := (saturated - recommended_saturated);
delta_fasted := (fasted - recommended_fasted) * fasted_factor;
it_previous :=  63.0;
metabolism :=  0.;
it_ksteps := (C_ksteps) * (delta_ksteps);
it_fat_other := factor1  * ( C_fat_other ) * ( (delta_fat_other) );
it_carb_other := factor1  * ( C_carb_other ) * ( (delta_carb_other) );
it_prot := factor1  * ( C_protein ) * ( (delta_prot) );
it_fiber := factor1  * ( C_fiber ) * ( (delta_fiber) );
it_sugar :=  factor1  * ( C_sugar ) * ( (delta_sugar) );
it_saturated := factor1  * ( C_saturated ) * ( (delta_saturated) );
it_fasted := ( C_fasted ) * ( (delta_fasted) );
prediction  := evalf(it_previous * prior_factor
 + metabolism
 + it_ksteps * cal_per_ksteps
 + it_fat_other * cal_per_gram_fat
 + it_carb_other * cal_per_gram_carb
 + it_prot * cal_per_gram_prot
 + it_fiber * cal_per_gram_carb
 + it_sugar * cal_per_gram_carb
 + it_saturated * cal_per_gram_fat
 + it_fasted);
it_previous := 63.0;
actual := 76.0;
previous := 63.0;
err := abs(prediction - actual);
perc_err := abs(err * 100.0) / actual;
delta_glucose := abs(previous - actual);
perc_delta := (delta_glucose * 100.0) / actual;
if (perc_err < min_perc_err) then min_perc_err := perc_err; fi;
if (perc_err > max_perc_err) then max_perc_err := perc_err; fi;
tot_perc_err := tot_perc_err + perc_err;
if (actual < low_actual) then low_actual := actual; fi;
if (actual > high_actual) then high_actual := actual; fi;
if (prediction < low_prediction) then low_prediction := prediction; fi;
if (prediction > high_prediction) then high_prediction := prediction; fi;
count := count + 1.0;
out2 := [count, perc_err, actual,prediction,it_previous,it_previous * prior_factor,metabolism,it_ksteps * cal_per_ksteps,it_fat_other*cal_per_gram_fat,it_carb_other*cal_per_gram_carb,it_prot*cal_per_gram_prot,it_fiber*cal_per_gram_carb,it_sugar*cal_per_gram_carb,it_saturated*cal_per_gram_fat,it_fasted,order2, delta_method, kstep_method, recommended_ksteps, kstep_exponent, kstep_factor, recommended_fat, recommended_carb, recommended_prot, recommended_fiber, recommended_sugar, recommended_saturated ,factor1, factor2, recommended_fasted,prior_factor,fasted_factor,eliminate_extremes,ksteps,fat_other,carb_other,prot,fiber,sugar,saturated,fasted,C_ksteps,C_fat_other,C_carb_other,C_protein,C_fiber,C_sugar,C_saturated,C_fasted,cal_per_gram_carb,cal_per_gram_prot,cal_per_gram_fat,cal_per_ksteps];
writedata("OUT/out3_work.tmp", out2);
ksteps := 12.0;
kstep_factor := 20.;
fat := 66.2;
carb := 387.0;
prot := 78.8;
fiber := 23.7;
sugar := 138.0;
saturated := 10.6;
fasted := 8.0;
fat_other := 55.6;
carb_other := 225.3;
delta_ksteps :=  (recommended_ksteps - ksteps) * kstep_factor;
delta_fat_other := (fat_other - recommended_fat_other);
delta_carb_other := (carb_other - recommended_carb_other);
delta_prot := (prot - recommended_prot);
delta_fiber := (fiber - recommended_fiber);
delta_sugar := (sugar - recommended_sugar);
delta_saturated := (saturated - recommended_saturated);
delta_fasted := (fasted - recommended_fasted) * fasted_factor;
it_previous :=  95.0;
metabolism :=  0.;
it_ksteps := (C_ksteps) * (delta_ksteps);
it_fat_other := factor1  * ( C_fat_other ) * ( (delta_fat_other) );
it_carb_other := factor1  * ( C_carb_other ) * ( (delta_carb_other) );
it_prot := factor1  * ( C_protein ) * ( (delta_prot) );
it_fiber := factor1  * ( C_fiber ) * ( (delta_fiber) );
it_sugar :=  factor1  * ( C_sugar ) * ( (delta_sugar) );
it_saturated := factor1  * ( C_saturated ) * ( (delta_saturated) );
it_fasted := ( C_fasted ) * ( (delta_fasted) );
prediction  := evalf(it_previous * prior_factor
 + metabolism
 + it_ksteps * cal_per_ksteps
 + it_fat_other * cal_per_gram_fat
 + it_carb_other * cal_per_gram_carb
 + it_prot * cal_per_gram_prot
 + it_fiber * cal_per_gram_carb
 + it_sugar * cal_per_gram_carb
 + it_saturated * cal_per_gram_fat
 + it_fasted);
it_previous := 95.0;
actual := 63.0;
previous := 95.0;
err := abs(prediction - actual);
perc_err := abs(err * 100.0) / actual;
delta_glucose := abs(previous - actual);
perc_delta := (delta_glucose * 100.0) / actual;
if (perc_err < min_perc_err) then min_perc_err := perc_err; fi;
if (perc_err > max_perc_err) then max_perc_err := perc_err; fi;
tot_perc_err := tot_perc_err + perc_err;
if (actual < low_actual) then low_actual := actual; fi;
if (actual > high_actual) then high_actual := actual; fi;
if (prediction < low_prediction) then low_prediction := prediction; fi;
if (prediction > high_prediction) then high_prediction := prediction; fi;
count := count + 1.0;
out2 := [count, perc_err, actual,prediction,it_previous,it_previous * prior_factor,metabolism,it_ksteps * cal_per_ksteps,it_fat_other*cal_per_gram_fat,it_carb_other*cal_per_gram_carb,it_prot*cal_per_gram_prot,it_fiber*cal_per_gram_carb,it_sugar*cal_per_gram_carb,it_saturated*cal_per_gram_fat,it_fasted,order2, delta_method, kstep_method, recommended_ksteps, kstep_exponent, kstep_factor, recommended_fat, recommended_carb, recommended_prot, recommended_fiber, recommended_sugar, recommended_saturated ,factor1, factor2, recommended_fasted,prior_factor,fasted_factor,eliminate_extremes,ksteps,fat_other,carb_other,prot,fiber,sugar,saturated,fasted,C_ksteps,C_fat_other,C_carb_other,C_protein,C_fiber,C_sugar,C_saturated,C_fasted,cal_per_gram_carb,cal_per_gram_prot,cal_per_gram_fat,cal_per_ksteps];
writedata("OUT/out4_work.tmp", out2);
ksteps := 10.0;
kstep_factor := 20.;
fat := 91.9;
carb := 219.0;
prot := 51.2;
fiber := 17.3;
sugar := 61.2;
saturated := 17.0;
fasted := 6.5;
fat_other := 74.9;
carb_other := 140.5;
delta_ksteps :=  (recommended_ksteps - ksteps) * kstep_factor;
delta_fat_other := (fat_other - recommended_fat_other);
delta_carb_other := (carb_other - recommended_carb_other);
delta_prot := (prot - recommended_prot);
delta_fiber := (fiber - recommended_fiber);
delta_sugar := (sugar - recommended_sugar);
delta_saturated := (saturated - recommended_saturated);
delta_fasted := (fasted - recommended_fasted) * fasted_factor;
it_previous :=  117.0;
metabolism :=  0.;
it_ksteps := (C_ksteps) * (delta_ksteps);
it_fat_other := factor1  * ( C_fat_other ) * ( (delta_fat_other) );
it_carb_other := factor1  * ( C_carb_other ) * ( (delta_carb_other) );
it_prot := factor1  * ( C_protein ) * ( (delta_prot) );
it_fiber := factor1  * ( C_fiber ) * ( (delta_fiber) );
it_sugar :=  factor1  * ( C_sugar ) * ( (delta_sugar) );
it_saturated := factor1  * ( C_saturated ) * ( (delta_saturated) );
it_fasted := ( C_fasted ) * ( (delta_fasted) );
prediction  := evalf(it_previous * prior_factor
 + metabolism
 + it_ksteps * cal_per_ksteps
 + it_fat_other * cal_per_gram_fat
 + it_carb_other * cal_per_gram_carb
 + it_prot * cal_per_gram_prot
 + it_fiber * cal_per_gram_carb
 + it_sugar * cal_per_gram_carb
 + it_saturated * cal_per_gram_fat
 + it_fasted);
it_previous := 117.0;
actual := 95.0;
previous := 117.0;
err := abs(prediction - actual);
perc_err := abs(err * 100.0) / actual;
delta_glucose := abs(previous - actual);
perc_delta := (delta_glucose * 100.0) / actual;
if (perc_err < min_perc_err) then min_perc_err := perc_err; fi;
if (perc_err > max_perc_err) then max_perc_err := perc_err; fi;
tot_perc_err := tot_perc_err + perc_err;
if (actual < low_actual) then low_actual := actual; fi;
if (actual > high_actual) then high_actual := actual; fi;
if (prediction < low_prediction) then low_prediction := prediction; fi;
if (prediction > high_prediction) then high_prediction := prediction; fi;
count := count + 1.0;
out2 := [count, perc_err, actual,prediction,it_previous,it_previous * prior_factor,metabolism,it_ksteps * cal_per_ksteps,it_fat_other*cal_per_gram_fat,it_carb_other*cal_per_gram_carb,it_prot*cal_per_gram_prot,it_fiber*cal_per_gram_carb,it_sugar*cal_per_gram_carb,it_saturated*cal_per_gram_fat,it_fasted,order2, delta_method, kstep_method, recommended_ksteps, kstep_exponent, kstep_factor, recommended_fat, recommended_carb, recommended_prot, recommended_fiber, recommended_sugar, recommended_saturated ,factor1, factor2, recommended_fasted,prior_factor,fasted_factor,eliminate_extremes,ksteps,fat_other,carb_other,prot,fiber,sugar,saturated,fasted,C_ksteps,C_fat_other,C_carb_other,C_protein,C_fiber,C_sugar,C_saturated,C_fasted,cal_per_gram_carb,cal_per_gram_prot,cal_per_gram_fat,cal_per_ksteps];
writedata("OUT/out5_work.tmp", out2);
ksteps := 9.0;
kstep_factor := 20.;
fat := 64.9;
carb := 299.0;
prot := 29.1;
fiber := 16.4;
sugar := 105.0;
saturated := 14.0;
fasted := 8.5;
fat_other := 50.9;
carb_other := 177.6;
delta_ksteps :=  (recommended_ksteps - ksteps) * kstep_factor;
delta_fat_other := (fat_other - recommended_fat_other);
delta_carb_other := (carb_other - recommended_carb_other);
delta_prot := (prot - recommended_prot);
delta_fiber := (fiber - recommended_fiber);
delta_sugar := (sugar - recommended_sugar);
delta_saturated := (saturated - recommended_saturated);
delta_fasted := (fasted - recommended_fasted) * fasted_factor;
it_previous :=  83.0;
metabolism :=  0.;
it_ksteps := (C_ksteps) * (delta_ksteps);
it_fat_other := factor1  * ( C_fat_other ) * ( (delta_fat_other) );
it_carb_other := factor1  * ( C_carb_other ) * ( (delta_carb_other) );
it_prot := factor1  * ( C_protein ) * ( (delta_prot) );
it_fiber := factor1  * ( C_fiber ) * ( (delta_fiber) );
it_sugar :=  factor1  * ( C_sugar ) * ( (delta_sugar) );
it_saturated := factor1  * ( C_saturated ) * ( (delta_saturated) );
it_fasted := ( C_fasted ) * ( (delta_fasted) );
prediction  := evalf(it_previous * prior_factor
 + metabolism
 + it_ksteps * cal_per_ksteps
 + it_fat_other * cal_per_gram_fat
 + it_carb_other * cal_per_gram_carb
 + it_prot * cal_per_gram_prot
 + it_fiber * cal_per_gram_carb
 + it_sugar * cal_per_gram_carb
 + it_saturated * cal_per_gram_fat
 + it_fasted);
it_previous := 83.0;
actual := 117.0;
previous := 83.0;
err := abs(prediction - actual);
perc_err := abs(err * 100.0) / actual;
delta_glucose := abs(previous - actual);
perc_delta := (delta_glucose * 100.0) / actual;
if (perc_err < min_perc_err) then min_perc_err := perc_err; fi;
if (perc_err > max_perc_err) then max_perc_err := perc_err; fi;
tot_perc_err := tot_perc_err + perc_err;
if (actual < low_actual) then low_actual := actual; fi;
if (actual > high_actual) then high_actual := actual; fi;
if (prediction < low_prediction) then low_prediction := prediction; fi;
if (prediction > high_prediction) then high_prediction := prediction; fi;
count := count + 1.0;
out2 := [count, perc_err, actual,prediction,it_previous,it_previous * prior_factor,metabolism,it_ksteps * cal_per_ksteps,it_fat_other*cal_per_gram_fat,it_carb_other*cal_per_gram_carb,it_prot*cal_per_gram_prot,it_fiber*cal_per_gram_carb,it_sugar*cal_per_gram_carb,it_saturated*cal_per_gram_fat,it_fasted,order2, delta_method, kstep_method, recommended_ksteps, kstep_exponent, kstep_factor, recommended_fat, recommended_carb, recommended_prot, recommended_fiber, recommended_sugar, recommended_saturated ,factor1, factor2, recommended_fasted,prior_factor,fasted_factor,eliminate_extremes,ksteps,fat_other,carb_other,prot,fiber,sugar,saturated,fasted,C_ksteps,C_fat_other,C_carb_other,C_protein,C_fiber,C_sugar,C_saturated,C_fasted,cal_per_gram_carb,cal_per_gram_prot,cal_per_gram_fat,cal_per_ksteps];
writedata("OUT/out6_work.tmp", out2);
ksteps := 16.0;
kstep_factor := 20.;
fat := 155.0;
carb := 291.0;
prot := 45.8;
fiber := 11.8;
sugar := 124.0;
saturated := 26.0;
fasted := 7.0;
fat_other := 129.;
carb_other := 155.2;
delta_ksteps :=  (recommended_ksteps - ksteps) * kstep_factor;
delta_fat_other := (fat_other - recommended_fat_other);
delta_carb_other := (carb_other - recommended_carb_other);
delta_prot := (prot - recommended_prot);
delta_fiber := (fiber - recommended_fiber);
delta_sugar := (sugar - recommended_sugar);
delta_saturated := (saturated - recommended_saturated);
delta_fasted := (fasted - recommended_fasted) * fasted_factor;
it_previous :=  137.0;
metabolism :=  0.;
it_ksteps := (C_ksteps) * (delta_ksteps);
it_fat_other := factor1  * ( C_fat_other ) * ( (delta_fat_other) );
it_carb_other := factor1  * ( C_carb_other ) * ( (delta_carb_other) );
it_prot := factor1  * ( C_protein ) * ( (delta_prot) );
it_fiber := factor1  * ( C_fiber ) * ( (delta_fiber) );
it_sugar :=  factor1  * ( C_sugar ) * ( (delta_sugar) );
it_saturated := factor1  * ( C_saturated ) * ( (delta_saturated) );
it_fasted := ( C_fasted ) * ( (delta_fasted) );
prediction  := evalf(it_previous * prior_factor
 + metabolism
 + it_ksteps * cal_per_ksteps
 + it_fat_other * cal_per_gram_fat
 + it_carb_other * cal_per_gram_carb
 + it_prot * cal_per_gram_prot
 + it_fiber * cal_per_gram_carb
 + it_sugar * cal_per_gram_carb
 + it_saturated * cal_per_gram_fat
 + it_fasted);
it_previous := 137.0;
actual := 83.0;
previous := 137.0;
err := abs(prediction - actual);
perc_err := abs(err * 100.0) / actual;
delta_glucose := abs(previous - actual);
perc_delta := (delta_glucose * 100.0) / actual;
if (perc_err < min_perc_err) then min_perc_err := perc_err; fi;
if (perc_err > max_perc_err) then max_perc_err := perc_err; fi;
tot_perc_err := tot_perc_err + perc_err;
if (actual < low_actual) then low_actual := actual; fi;
if (actual > high_actual) then high_actual := actual; fi;
if (prediction < low_prediction) then low_prediction := prediction; fi;
if (prediction > high_prediction) then high_prediction := prediction; fi;
count := count + 1.0;
out2 := [count, perc_err, actual,prediction,it_previous,it_previous * prior_factor,metabolism,it_ksteps * cal_per_ksteps,it_fat_other*cal_per_gram_fat,it_carb_other*cal_per_gram_carb,it_prot*cal_per_gram_prot,it_fiber*cal_per_gram_carb,it_sugar*cal_per_gram_carb,it_saturated*cal_per_gram_fat,it_fasted,order2, delta_method, kstep_method, recommended_ksteps, kstep_exponent, kstep_factor, recommended_fat, recommended_carb, recommended_prot, recommended_fiber, recommended_sugar, recommended_saturated ,factor1, factor2, recommended_fasted,prior_factor,fasted_factor,eliminate_extremes,ksteps,fat_other,carb_other,prot,fiber,sugar,saturated,fasted,C_ksteps,C_fat_other,C_carb_other,C_protein,C_fiber,C_sugar,C_saturated,C_fasted,cal_per_gram_carb,cal_per_gram_prot,cal_per_gram_fat,cal_per_ksteps];
writedata("OUT/out7_work.tmp", out2);
ksteps := 10.0;
kstep_factor := 20.;
fat := 120.0;
carb := 355.0;
prot := 38.5;
fiber := 16.4;
sugar := 189.0;
saturated := 26.7;
fasted := 5.5;
fat_other := 93.3;
carb_other := 149.6;
delta_ksteps :=  (recommended_ksteps - ksteps) * kstep_factor;
delta_fat_other := (fat_other - recommended_fat_other);
delta_carb_other := (carb_other - recommended_carb_other);
delta_prot := (prot - recommended_prot);
delta_fiber := (fiber - recommended_fiber);
delta_sugar := (sugar - recommended_sugar);
delta_saturated := (saturated - recommended_saturated);
delta_fasted := (fasted - recommended_fasted) * fasted_factor;
it_previous :=  117.0;
metabolism :=  0.;
it_ksteps := (C_ksteps) * (delta_ksteps);
it_fat_other := factor1  * ( C_fat_other ) * ( (delta_fat_other) );
it_carb_other := factor1  * ( C_carb_other ) * ( (delta_carb_other) );
it_prot := factor1  * ( C_protein ) * ( (delta_prot) );
it_fiber := factor1  * ( C_fiber ) * ( (delta_fiber) );
it_sugar :=  factor1  * ( C_sugar ) * ( (delta_sugar) );
it_saturated := factor1  * ( C_saturated ) * ( (delta_saturated) );
it_fasted := ( C_fasted ) * ( (delta_fasted) );
prediction  := evalf(it_previous * prior_factor
 + metabolism
 + it_ksteps * cal_per_ksteps
 + it_fat_other * cal_per_gram_fat
 + it_carb_other * cal_per_gram_carb
 + it_prot * cal_per_gram_prot
 + it_fiber * cal_per_gram_carb
 + it_sugar * cal_per_gram_carb
 + it_saturated * cal_per_gram_fat
 + it_fasted);
it_previous := 117.0;
actual := 137.0;
previous := 117.0;
err := abs(prediction - actual);
perc_err := abs(err * 100.0) / actual;
delta_glucose := abs(previous - actual);
perc_delta := (delta_glucose * 100.0) / actual;
if (perc_err < min_perc_err) then min_perc_err := perc_err; fi;
if (perc_err > max_perc_err) then max_perc_err := perc_err; fi;
tot_perc_err := tot_perc_err + perc_err;
if (actual < low_actual) then low_actual := actual; fi;
if (actual > high_actual) then high_actual := actual; fi;
if (prediction < low_prediction) then low_prediction := prediction; fi;
if (prediction > high_prediction) then high_prediction := prediction; fi;
count := count + 1.0;
out2 := [count, perc_err, actual,prediction,it_previous,it_previous * prior_factor,metabolism,it_ksteps * cal_per_ksteps,it_fat_other*cal_per_gram_fat,it_carb_other*cal_per_gram_carb,it_prot*cal_per_gram_prot,it_fiber*cal_per_gram_carb,it_sugar*cal_per_gram_carb,it_saturated*cal_per_gram_fat,it_fasted,order2, delta_method, kstep_method, recommended_ksteps, kstep_exponent, kstep_factor, recommended_fat, recommended_carb, recommended_prot, recommended_fiber, recommended_sugar, recommended_saturated ,factor1, factor2, recommended_fasted,prior_factor,fasted_factor,eliminate_extremes,ksteps,fat_other,carb_other,prot,fiber,sugar,saturated,fasted,C_ksteps,C_fat_other,C_carb_other,C_protein,C_fiber,C_sugar,C_saturated,C_fasted,cal_per_gram_carb,cal_per_gram_prot,cal_per_gram_fat,cal_per_ksteps];
writedata("OUT/out8_work.tmp", out2);
ksteps := 3.0;
kstep_factor := 20.;
fat := 177.0;
carb := 273.0;
prot := 81.2;
fiber := 16.3;
sugar := 70.8;
saturated := 52.9;
fasted := 7.0;
fat_other := 124.1;
carb_other := 185.9;
delta_ksteps :=  (recommended_ksteps - ksteps) * kstep_factor;
delta_fat_other := (fat_other - recommended_fat_other);
delta_carb_other := (carb_other - recommended_carb_other);
delta_prot := (prot - recommended_prot);
delta_fiber := (fiber - recommended_fiber);
delta_sugar := (sugar - recommended_sugar);
delta_saturated := (saturated - recommended_saturated);
delta_fasted := (fasted - recommended_fasted) * fasted_factor;
it_previous :=  100.0;
metabolism :=  0.;
it_ksteps := (C_ksteps) * (delta_ksteps);
it_fat_other := factor1  * ( C_fat_other ) * ( (delta_fat_other) );
it_carb_other := factor1  * ( C_carb_other ) * ( (delta_carb_other) );
it_prot := factor1  * ( C_protein ) * ( (delta_prot) );
it_fiber := factor1  * ( C_fiber ) * ( (delta_fiber) );
it_sugar :=  factor1  * ( C_sugar ) * ( (delta_sugar) );
it_saturated := factor1  * ( C_saturated ) * ( (delta_saturated) );
it_fasted := ( C_fasted ) * ( (delta_fasted) );
prediction  := evalf(it_previous * prior_factor
 + metabolism
 + it_ksteps * cal_per_ksteps
 + it_fat_other * cal_per_gram_fat
 + it_carb_other * cal_per_gram_carb
 + it_prot * cal_per_gram_prot
 + it_fiber * cal_per_gram_carb
 + it_sugar * cal_per_gram_carb
 + it_saturated * cal_per_gram_fat
 + it_fasted);
it_previous := 100.0;
actual := 117.0;
previous := 100.0;
err := abs(prediction - actual);
perc_err := abs(err * 100.0) / actual;
delta_glucose := abs(previous - actual);
perc_delta := (delta_glucose * 100.0) / actual;
if (perc_err < min_perc_err) then min_perc_err := perc_err; fi;
if (perc_err > max_perc_err) then max_perc_err := perc_err; fi;
tot_perc_err := tot_perc_err + perc_err;
if (actual < low_actual) then low_actual := actual; fi;
if (actual > high_actual) then high_actual := actual; fi;
if (prediction < low_prediction) then low_prediction := prediction; fi;
if (prediction > high_prediction) then high_prediction := prediction; fi;
count := count + 1.0;
out2 := [count, perc_err, actual,prediction,it_previous,it_previous * prior_factor,metabolism,it_ksteps * cal_per_ksteps,it_fat_other*cal_per_gram_fat,it_carb_other*cal_per_gram_carb,it_prot*cal_per_gram_prot,it_fiber*cal_per_gram_carb,it_sugar*cal_per_gram_carb,it_saturated*cal_per_gram_fat,it_fasted,order2, delta_method, kstep_method, recommended_ksteps, kstep_exponent, kstep_factor, recommended_fat, recommended_carb, recommended_prot, recommended_fiber, recommended_sugar, recommended_saturated ,factor1, factor2, recommended_fasted,prior_factor,fasted_factor,eliminate_extremes,ksteps,fat_other,carb_other,prot,fiber,sugar,saturated,fasted,C_ksteps,C_fat_other,C_carb_other,C_protein,C_fiber,C_sugar,C_saturated,C_fasted,cal_per_gram_carb,cal_per_gram_prot,cal_per_gram_fat,cal_per_ksteps];
writedata("OUT/out9_work.tmp", out2);
ksteps := 10.0;
kstep_factor := 20.;
fat := 127.0;
carb := 242.0;
prot := 47.6;
fiber := 9.8;
sugar := 111.0;
saturated := 36.0;
fasted := 6.5;
fat_other := 91.;
carb_other := 121.2;
delta_ksteps :=  (recommended_ksteps - ksteps) * kstep_factor;
delta_fat_other := (fat_other - recommended_fat_other);
delta_carb_other := (carb_other - recommended_carb_other);
delta_prot := (prot - recommended_prot);
delta_fiber := (fiber - recommended_fiber);
delta_sugar := (sugar - recommended_sugar);
delta_saturated := (saturated - recommended_saturated);
delta_fasted := (fasted - recommended_fasted) * fasted_factor;
it_previous :=  94.0;
metabolism :=  0.;
it_ksteps := (C_ksteps) * (delta_ksteps);
it_fat_other := factor1  * ( C_fat_other ) * ( (delta_fat_other) );
it_carb_other := factor1  * ( C_carb_other ) * ( (delta_carb_other) );
it_prot := factor1  * ( C_protein ) * ( (delta_prot) );
it_fiber := factor1  * ( C_fiber ) * ( (delta_fiber) );
it_sugar :=  factor1  * ( C_sugar ) * ( (delta_sugar) );
it_saturated := factor1  * ( C_saturated ) * ( (delta_saturated) );
it_fasted := ( C_fasted ) * ( (delta_fasted) );
prediction  := evalf(it_previous * prior_factor
 + metabolism
 + it_ksteps * cal_per_ksteps
 + it_fat_other * cal_per_gram_fat
 + it_carb_other * cal_per_gram_carb
 + it_prot * cal_per_gram_prot
 + it_fiber * cal_per_gram_carb
 + it_sugar * cal_per_gram_carb
 + it_saturated * cal_per_gram_fat
 + it_fasted);
it_previous := 94.0;
actual := 100.0;
previous := 94.0;
err := abs(prediction - actual);
perc_err := abs(err * 100.0) / actual;
delta_glucose := abs(previous - actual);
perc_delta := (delta_glucose * 100.0) / actual;
if (perc_err < min_perc_err) then min_perc_err := perc_err; fi;
if (perc_err > max_perc_err) then max_perc_err := perc_err; fi;
tot_perc_err := tot_perc_err + perc_err;
if (actual < low_actual) then low_actual := actual; fi;
if (actual > high_actual) then high_actual := actual; fi;
if (prediction < low_prediction) then low_prediction := prediction; fi;
if (prediction > high_prediction) then high_prediction := prediction; fi;
count := count + 1.0;
out2 := [count, perc_err, actual,prediction,it_previous,it_previous * prior_factor,metabolism,it_ksteps * cal_per_ksteps,it_fat_other*cal_per_gram_fat,it_carb_other*cal_per_gram_carb,it_prot*cal_per_gram_prot,it_fiber*cal_per_gram_carb,it_sugar*cal_per_gram_carb,it_saturated*cal_per_gram_fat,it_fasted,order2, delta_method, kstep_method, recommended_ksteps, kstep_exponent, kstep_factor, recommended_fat, recommended_carb, recommended_prot, recommended_fiber, recommended_sugar, recommended_saturated ,factor1, factor2, recommended_fasted,prior_factor,fasted_factor,eliminate_extremes,ksteps,fat_other,carb_other,prot,fiber,sugar,saturated,fasted,C_ksteps,C_fat_other,C_carb_other,C_protein,C_fiber,C_sugar,C_saturated,C_fasted,cal_per_gram_carb,cal_per_gram_prot,cal_per_gram_fat,cal_per_ksteps];
writedata("OUT/out10_work.tmp", out2);
ksteps := 10.0;
kstep_factor := 20.;
fat := 95.3;
carb := 315.0;
prot := 48.1;
fiber := 17.6;
sugar := 110.0;
saturated := 24.8;
fasted := 8.5;
fat_other := 70.5;
carb_other := 187.4;
delta_ksteps :=  (recommended_ksteps - ksteps) * kstep_factor;
delta_fat_other := (fat_other - recommended_fat_other);
delta_carb_other := (carb_other - recommended_carb_other);
delta_prot := (prot - recommended_prot);
delta_fiber := (fiber - recommended_fiber);
delta_sugar := (sugar - recommended_sugar);
delta_saturated := (saturated - recommended_saturated);
delta_fasted := (fasted - recommended_fasted) * fasted_factor;
it_previous :=  98.0;
metabolism :=  0.;
it_ksteps := (C_ksteps) * (delta_ksteps);
it_fat_other := factor1  * ( C_fat_other ) * ( (delta_fat_other) );
it_carb_other := factor1  * ( C_carb_other ) * ( (delta_carb_other) );
it_prot := factor1  * ( C_protein ) * ( (delta_prot) );
it_fiber := factor1  * ( C_fiber ) * ( (delta_fiber) );
it_sugar :=  factor1  * ( C_sugar ) * ( (delta_sugar) );
it_saturated := factor1  * ( C_saturated ) * ( (delta_saturated) );
it_fasted := ( C_fasted ) * ( (delta_fasted) );
prediction  := evalf(it_previous * prior_factor
 + metabolism
 + it_ksteps * cal_per_ksteps
 + it_fat_other * cal_per_gram_fat
 + it_carb_other * cal_per_gram_carb
 + it_prot * cal_per_gram_prot
 + it_fiber * cal_per_gram_carb
 + it_sugar * cal_per_gram_carb
 + it_saturated * cal_per_gram_fat
 + it_fasted);
it_previous := 98.0;
actual := 94.0;
previous := 98.0;
err := abs(prediction - actual);
perc_err := abs(err * 100.0) / actual;
delta_glucose := abs(previous - actual);
perc_delta := (delta_glucose * 100.0) / actual;
if (perc_err < min_perc_err) then min_perc_err := perc_err; fi;
if (perc_err > max_perc_err) then max_perc_err := perc_err; fi;
tot_perc_err := tot_perc_err + perc_err;
if (actual < low_actual) then low_actual := actual; fi;
if (actual > high_actual) then high_actual := actual; fi;
if (prediction < low_prediction) then low_prediction := prediction; fi;
if (prediction > high_prediction) then high_prediction := prediction; fi;
count := count + 1.0;
out2 := [count, perc_err, actual,prediction,it_previous,it_previous * prior_factor,metabolism,it_ksteps * cal_per_ksteps,it_fat_other*cal_per_gram_fat,it_carb_other*cal_per_gram_carb,it_prot*cal_per_gram_prot,it_fiber*cal_per_gram_carb,it_sugar*cal_per_gram_carb,it_saturated*cal_per_gram_fat,it_fasted,order2, delta_method, kstep_method, recommended_ksteps, kstep_exponent, kstep_factor, recommended_fat, recommended_carb, recommended_prot, recommended_fiber, recommended_sugar, recommended_saturated ,factor1, factor2, recommended_fasted,prior_factor,fasted_factor,eliminate_extremes,ksteps,fat_other,carb_other,prot,fiber,sugar,saturated,fasted,C_ksteps,C_fat_other,C_carb_other,C_protein,C_fiber,C_sugar,C_saturated,C_fasted,cal_per_gram_carb,cal_per_gram_prot,cal_per_gram_fat,cal_per_ksteps];
writedata("OUT/out11_work.tmp", out2);
ksteps := 10.0;
kstep_factor := 20.;
fat := 130.0;
carb := 322.0;
prot := 50.2;
fiber := 11.2;
sugar := 106.0;
saturated := 38.0;
fasted := 8.0;
fat_other := 92.;
carb_other := 204.8;
delta_ksteps :=  (recommended_ksteps - ksteps) * kstep_factor;
delta_fat_other := (fat_other - recommended_fat_other);
delta_carb_other := (carb_other - recommended_carb_other);
delta_prot := (prot - recommended_prot);
delta_fiber := (fiber - recommended_fiber);
delta_sugar := (sugar - recommended_sugar);
delta_saturated := (saturated - recommended_saturated);
delta_fasted := (fasted - recommended_fasted) * fasted_factor;
it_previous :=  99.0;
metabolism :=  0.;
it_ksteps := (C_ksteps) * (delta_ksteps);
it_fat_other := factor1  * ( C_fat_other ) * ( (delta_fat_other) );
it_carb_other := factor1  * ( C_carb_other ) * ( (delta_carb_other) );
it_prot := factor1  * ( C_protein ) * ( (delta_prot) );
it_fiber := factor1  * ( C_fiber ) * ( (delta_fiber) );
it_sugar :=  factor1  * ( C_sugar ) * ( (delta_sugar) );
it_saturated := factor1  * ( C_saturated ) * ( (delta_saturated) );
it_fasted := ( C_fasted ) * ( (delta_fasted) );
prediction  := evalf(it_previous * prior_factor
 + metabolism
 + it_ksteps * cal_per_ksteps
 + it_fat_other * cal_per_gram_fat
 + it_carb_other * cal_per_gram_carb
 + it_prot * cal_per_gram_prot
 + it_fiber * cal_per_gram_carb
 + it_sugar * cal_per_gram_carb
 + it_saturated * cal_per_gram_fat
 + it_fasted);
it_previous := 99.0;
actual := 98.0;
previous := 99.0;
err := abs(prediction - actual);
perc_err := abs(err * 100.0) / actual;
delta_glucose := abs(previous - actual);
perc_delta := (delta_glucose * 100.0) / actual;
if (perc_err < min_perc_err) then min_perc_err := perc_err; fi;
if (perc_err > max_perc_err) then max_perc_err := perc_err; fi;
tot_perc_err := tot_perc_err + perc_err;
if (actual < low_actual) then low_actual := actual; fi;
if (actual > high_actual) then high_actual := actual; fi;
if (prediction < low_prediction) then low_prediction := prediction; fi;
if (prediction > high_prediction) then high_prediction := prediction; fi;
count := count + 1.0;
out2 := [count, perc_err, actual,prediction,it_previous,it_previous * prior_factor,metabolism,it_ksteps * cal_per_ksteps,it_fat_other*cal_per_gram_fat,it_carb_other*cal_per_gram_carb,it_prot*cal_per_gram_prot,it_fiber*cal_per_gram_carb,it_sugar*cal_per_gram_carb,it_saturated*cal_per_gram_fat,it_fasted,order2, delta_method, kstep_method, recommended_ksteps, kstep_exponent, kstep_factor, recommended_fat, recommended_carb, recommended_prot, recommended_fiber, recommended_sugar, recommended_saturated ,factor1, factor2, recommended_fasted,prior_factor,fasted_factor,eliminate_extremes,ksteps,fat_other,carb_other,prot,fiber,sugar,saturated,fasted,C_ksteps,C_fat_other,C_carb_other,C_protein,C_fiber,C_sugar,C_saturated,C_fasted,cal_per_gram_carb,cal_per_gram_prot,cal_per_gram_fat,cal_per_ksteps];
writedata("OUT/out12_work.tmp", out2);
ksteps := 13.0;
kstep_factor := 20.;
fat := 158.0;
carb := 362.0;
prot := 53.6;
fiber := 19.5;
sugar := 162.0;
saturated := 42.2;
fasted := 6.5;
fat_other := 115.8;
carb_other := 180.5;
delta_ksteps :=  (recommended_ksteps - ksteps) * kstep_factor;
delta_fat_other := (fat_other - recommended_fat_other);
delta_carb_other := (carb_other - recommended_carb_other);
delta_prot := (prot - recommended_prot);
delta_fiber := (fiber - recommended_fiber);
delta_sugar := (sugar - recommended_sugar);
delta_saturated := (saturated - recommended_saturated);
delta_fasted := (fasted - recommended_fasted) * fasted_factor;
it_previous :=  98.0;
metabolism :=  0.;
it_ksteps := (C_ksteps) * (delta_ksteps);
it_fat_other := factor1  * ( C_fat_other ) * ( (delta_fat_other) );
it_carb_other := factor1  * ( C_carb_other ) * ( (delta_carb_other) );
it_prot := factor1  * ( C_protein ) * ( (delta_prot) );
it_fiber := factor1  * ( C_fiber ) * ( (delta_fiber) );
it_sugar :=  factor1  * ( C_sugar ) * ( (delta_sugar) );
it_saturated := factor1  * ( C_saturated ) * ( (delta_saturated) );
it_fasted := ( C_fasted ) * ( (delta_fasted) );
prediction  := evalf(it_previous * prior_factor
 + metabolism
 + it_ksteps * cal_per_ksteps
 + it_fat_other * cal_per_gram_fat
 + it_carb_other * cal_per_gram_carb
 + it_prot * cal_per_gram_prot
 + it_fiber * cal_per_gram_carb
 + it_sugar * cal_per_gram_carb
 + it_saturated * cal_per_gram_fat
 + it_fasted);
it_previous := 98.0;
actual := 99.0;
previous := 98.0;
err := abs(prediction - actual);
perc_err := abs(err * 100.0) / actual;
delta_glucose := abs(previous - actual);
perc_delta := (delta_glucose * 100.0) / actual;
if (perc_err < min_perc_err) then min_perc_err := perc_err; fi;
if (perc_err > max_perc_err) then max_perc_err := perc_err; fi;
tot_perc_err := tot_perc_err + perc_err;
if (actual < low_actual) then low_actual := actual; fi;
if (actual > high_actual) then high_actual := actual; fi;
if (prediction < low_prediction) then low_prediction := prediction; fi;
if (prediction > high_prediction) then high_prediction := prediction; fi;
count := count + 1.0;
out2 := [count, perc_err, actual,prediction,it_previous,it_previous * prior_factor,metabolism,it_ksteps * cal_per_ksteps,it_fat_other*cal_per_gram_fat,it_carb_other*cal_per_gram_carb,it_prot*cal_per_gram_prot,it_fiber*cal_per_gram_carb,it_sugar*cal_per_gram_carb,it_saturated*cal_per_gram_fat,it_fasted,order2, delta_method, kstep_method, recommended_ksteps, kstep_exponent, kstep_factor, recommended_fat, recommended_carb, recommended_prot, recommended_fiber, recommended_sugar, recommended_saturated ,factor1, factor2, recommended_fasted,prior_factor,fasted_factor,eliminate_extremes,ksteps,fat_other,carb_other,prot,fiber,sugar,saturated,fasted,C_ksteps,C_fat_other,C_carb_other,C_protein,C_fiber,C_sugar,C_saturated,C_fasted,cal_per_gram_carb,cal_per_gram_prot,cal_per_gram_fat,cal_per_ksteps];
writedata("OUT/out13_work.tmp", out2);
ksteps := 16.0;
kstep_factor := 20.;
fat := 124.0;
carb := 373.0;
prot := 63.3;
fiber := 21.1;
sugar := 129.0;
saturated := 32.3;
fasted := 5.0;
fat_other := 91.7;
carb_other := 222.9;
delta_ksteps :=  (recommended_ksteps - ksteps) * kstep_factor;
delta_fat_other := (fat_other - recommended_fat_other);
delta_carb_other := (carb_other - recommended_carb_other);
delta_prot := (prot - recommended_prot);
delta_fiber := (fiber - recommended_fiber);
delta_sugar := (sugar - recommended_sugar);
delta_saturated := (saturated - recommended_saturated);
delta_fasted := (fasted - recommended_fasted) * fasted_factor;
it_previous :=  88.0;
metabolism :=  0.;
it_ksteps := (C_ksteps) * (delta_ksteps);
it_fat_other := factor1  * ( C_fat_other ) * ( (delta_fat_other) );
it_carb_other := factor1  * ( C_carb_other ) * ( (delta_carb_other) );
it_prot := factor1  * ( C_protein ) * ( (delta_prot) );
it_fiber := factor1  * ( C_fiber ) * ( (delta_fiber) );
it_sugar :=  factor1  * ( C_sugar ) * ( (delta_sugar) );
it_saturated := factor1  * ( C_saturated ) * ( (delta_saturated) );
it_fasted := ( C_fasted ) * ( (delta_fasted) );
prediction  := evalf(it_previous * prior_factor
 + metabolism
 + it_ksteps * cal_per_ksteps
 + it_fat_other * cal_per_gram_fat
 + it_carb_other * cal_per_gram_carb
 + it_prot * cal_per_gram_prot
 + it_fiber * cal_per_gram_carb
 + it_sugar * cal_per_gram_carb
 + it_saturated * cal_per_gram_fat
 + it_fasted);
it_previous := 88.0;
actual := 98.0;
previous := 88.0;
err := abs(prediction - actual);
perc_err := abs(err * 100.0) / actual;
delta_glucose := abs(previous - actual);
perc_delta := (delta_glucose * 100.0) / actual;
if (perc_err < min_perc_err) then min_perc_err := perc_err; fi;
if (perc_err > max_perc_err) then max_perc_err := perc_err; fi;
tot_perc_err := tot_perc_err + perc_err;
if (actual < low_actual) then low_actual := actual; fi;
if (actual > high_actual) then high_actual := actual; fi;
if (prediction < low_prediction) then low_prediction := prediction; fi;
if (prediction > high_prediction) then high_prediction := prediction; fi;
count := count + 1.0;
out2 := [count, perc_err, actual,prediction,it_previous,it_previous * prior_factor,metabolism,it_ksteps * cal_per_ksteps,it_fat_other*cal_per_gram_fat,it_carb_other*cal_per_gram_carb,it_prot*cal_per_gram_prot,it_fiber*cal_per_gram_carb,it_sugar*cal_per_gram_carb,it_saturated*cal_per_gram_fat,it_fasted,order2, delta_method, kstep_method, recommended_ksteps, kstep_exponent, kstep_factor, recommended_fat, recommended_carb, recommended_prot, recommended_fiber, recommended_sugar, recommended_saturated ,factor1, factor2, recommended_fasted,prior_factor,fasted_factor,eliminate_extremes,ksteps,fat_other,carb_other,prot,fiber,sugar,saturated,fasted,C_ksteps,C_fat_other,C_carb_other,C_protein,C_fiber,C_sugar,C_saturated,C_fasted,cal_per_gram_carb,cal_per_gram_prot,cal_per_gram_fat,cal_per_ksteps];
writedata("OUT/out14_work.tmp", out2);
ksteps := 15.0;
kstep_factor := 20.;
fat := 130.0;
carb := 326.0;
prot := 52.7;
fiber := 21.0;
sugar := 95.0;
saturated := 26.6;
fasted := 7.0;
fat_other := 103.4;
carb_other := 210.;
delta_ksteps :=  (recommended_ksteps - ksteps) * kstep_factor;
delta_fat_other := (fat_other - recommended_fat_other);
delta_carb_other := (carb_other - recommended_carb_other);
delta_prot := (prot - recommended_prot);
delta_fiber := (fiber - recommended_fiber);
delta_sugar := (sugar - recommended_sugar);
delta_saturated := (saturated - recommended_saturated);
delta_fasted := (fasted - recommended_fasted) * fasted_factor;
it_previous :=  111.0;
metabolism :=  0.;
it_ksteps := (C_ksteps) * (delta_ksteps);
it_fat_other := factor1  * ( C_fat_other ) * ( (delta_fat_other) );
it_carb_other := factor1  * ( C_carb_other ) * ( (delta_carb_other) );
it_prot := factor1  * ( C_protein ) * ( (delta_prot) );
it_fiber := factor1  * ( C_fiber ) * ( (delta_fiber) );
it_sugar :=  factor1  * ( C_sugar ) * ( (delta_sugar) );
it_saturated := factor1  * ( C_saturated ) * ( (delta_saturated) );
it_fasted := ( C_fasted ) * ( (delta_fasted) );
prediction  := evalf(it_previous * prior_factor
 + metabolism
 + it_ksteps * cal_per_ksteps
 + it_fat_other * cal_per_gram_fat
 + it_carb_other * cal_per_gram_carb
 + it_prot * cal_per_gram_prot
 + it_fiber * cal_per_gram_carb
 + it_sugar * cal_per_gram_carb
 + it_saturated * cal_per_gram_fat
 + it_fasted);
it_previous := 111.0;
actual := 88.0;
previous := 111.0;
err := abs(prediction - actual);
perc_err := abs(err * 100.0) / actual;
delta_glucose := abs(previous - actual);
perc_delta := (delta_glucose * 100.0) / actual;
if (perc_err < min_perc_err) then min_perc_err := perc_err; fi;
if (perc_err > max_perc_err) then max_perc_err := perc_err; fi;
tot_perc_err := tot_perc_err + perc_err;
if (actual < low_actual) then low_actual := actual; fi;
if (actual > high_actual) then high_actual := actual; fi;
if (prediction < low_prediction) then low_prediction := prediction; fi;
if (prediction > high_prediction) then high_prediction := prediction; fi;
count := count + 1.0;
out2 := [count, perc_err, actual,prediction,it_previous,it_previous * prior_factor,metabolism,it_ksteps * cal_per_ksteps,it_fat_other*cal_per_gram_fat,it_carb_other*cal_per_gram_carb,it_prot*cal_per_gram_prot,it_fiber*cal_per_gram_carb,it_sugar*cal_per_gram_carb,it_saturated*cal_per_gram_fat,it_fasted,order2, delta_method, kstep_method, recommended_ksteps, kstep_exponent, kstep_factor, recommended_fat, recommended_carb, recommended_prot, recommended_fiber, recommended_sugar, recommended_saturated ,factor1, factor2, recommended_fasted,prior_factor,fasted_factor,eliminate_extremes,ksteps,fat_other,carb_other,prot,fiber,sugar,saturated,fasted,C_ksteps,C_fat_other,C_carb_other,C_protein,C_fiber,C_sugar,C_saturated,C_fasted,cal_per_gram_carb,cal_per_gram_prot,cal_per_gram_fat,cal_per_ksteps];
writedata("OUT/out15_work.tmp", out2);
ksteps := 10.0;
kstep_factor := 20.;
fat := 86.8;
carb := 335.0;
prot := 43.5;
fiber := 23.1;
sugar := 114.0;
saturated := 6.17;
fasted := 5.5;
fat_other := 80.63;
carb_other := 197.9;
delta_ksteps :=  (recommended_ksteps - ksteps) * kstep_factor;
delta_fat_other := (fat_other - recommended_fat_other);
delta_carb_other := (carb_other - recommended_carb_other);
delta_prot := (prot - recommended_prot);
delta_fiber := (fiber - recommended_fiber);
delta_sugar := (sugar - recommended_sugar);
delta_saturated := (saturated - recommended_saturated);
delta_fasted := (fasted - recommended_fasted) * fasted_factor;
it_previous :=  103.0;
metabolism :=  0.;
it_ksteps := (C_ksteps) * (delta_ksteps);
it_fat_other := factor1  * ( C_fat_other ) * ( (delta_fat_other) );
it_carb_other := factor1  * ( C_carb_other ) * ( (delta_carb_other) );
it_prot := factor1  * ( C_protein ) * ( (delta_prot) );
it_fiber := factor1  * ( C_fiber ) * ( (delta_fiber) );
it_sugar :=  factor1  * ( C_sugar ) * ( (delta_sugar) );
it_saturated := factor1  * ( C_saturated ) * ( (delta_saturated) );
it_fasted := ( C_fasted ) * ( (delta_fasted) );
prediction  := evalf(it_previous * prior_factor
 + metabolism
 + it_ksteps * cal_per_ksteps
 + it_fat_other * cal_per_gram_fat
 + it_carb_other * cal_per_gram_carb
 + it_prot * cal_per_gram_prot
 + it_fiber * cal_per_gram_carb
 + it_sugar * cal_per_gram_carb
 + it_saturated * cal_per_gram_fat
 + it_fasted);
it_previous := 103.0;
actual := 111.0;
previous := 103.0;
err := abs(prediction - actual);
perc_err := abs(err * 100.0) / actual;
delta_glucose := abs(previous - actual);
perc_delta := (delta_glucose * 100.0) / actual;
if (perc_err < min_perc_err) then min_perc_err := perc_err; fi;
if (perc_err > max_perc_err) then max_perc_err := perc_err; fi;
tot_perc_err := tot_perc_err + perc_err;
if (actual < low_actual) then low_actual := actual; fi;
if (actual > high_actual) then high_actual := actual; fi;
if (prediction < low_prediction) then low_prediction := prediction; fi;
if (prediction > high_prediction) then high_prediction := prediction; fi;
count := count + 1.0;
out2 := [count, perc_err, actual,prediction,it_previous,it_previous * prior_factor,metabolism,it_ksteps * cal_per_ksteps,it_fat_other*cal_per_gram_fat,it_carb_other*cal_per_gram_carb,it_prot*cal_per_gram_prot,it_fiber*cal_per_gram_carb,it_sugar*cal_per_gram_carb,it_saturated*cal_per_gram_fat,it_fasted,order2, delta_method, kstep_method, recommended_ksteps, kstep_exponent, kstep_factor, recommended_fat, recommended_carb, recommended_prot, recommended_fiber, recommended_sugar, recommended_saturated ,factor1, factor2, recommended_fasted,prior_factor,fasted_factor,eliminate_extremes,ksteps,fat_other,carb_other,prot,fiber,sugar,saturated,fasted,C_ksteps,C_fat_other,C_carb_other,C_protein,C_fiber,C_sugar,C_saturated,C_fasted,cal_per_gram_carb,cal_per_gram_prot,cal_per_gram_fat,cal_per_ksteps];
writedata("OUT/out16_work.tmp", out2);
ksteps := 12.0;
kstep_factor := 20.;
fat := 139.0;
carb := 407.0;
prot := 65.4;
fiber := 26.8;
sugar := 129.0;
saturated := 26.1;
fasted := 5.0;
fat_other := 112.9;
carb_other := 251.2;
delta_ksteps :=  (recommended_ksteps - ksteps) * kstep_factor;
delta_fat_other := (fat_other - recommended_fat_other);
delta_carb_other := (carb_other - recommended_carb_other);
delta_prot := (prot - recommended_prot);
delta_fiber := (fiber - recommended_fiber);
delta_sugar := (sugar - recommended_sugar);
delta_saturated := (saturated - recommended_saturated);
delta_fasted := (fasted - recommended_fasted) * fasted_factor;
it_previous :=  78.0;
metabolism :=  0.;
it_ksteps := (C_ksteps) * (delta_ksteps);
it_fat_other := factor1  * ( C_fat_other ) * ( (delta_fat_other) );
it_carb_other := factor1  * ( C_carb_other ) * ( (delta_carb_other) );
it_prot := factor1  * ( C_protein ) * ( (delta_prot) );
it_fiber := factor1  * ( C_fiber ) * ( (delta_fiber) );
it_sugar :=  factor1  * ( C_sugar ) * ( (delta_sugar) );
it_saturated := factor1  * ( C_saturated ) * ( (delta_saturated) );
it_fasted := ( C_fasted ) * ( (delta_fasted) );
prediction  := evalf(it_previous * prior_factor
 + metabolism
 + it_ksteps * cal_per_ksteps
 + it_fat_other * cal_per_gram_fat
 + it_carb_other * cal_per_gram_carb
 + it_prot * cal_per_gram_prot
 + it_fiber * cal_per_gram_carb
 + it_sugar * cal_per_gram_carb
 + it_saturated * cal_per_gram_fat
 + it_fasted);
it_previous := 78.0;
actual := 103.0;
previous := 78.0;
err := abs(prediction - actual);
perc_err := abs(err * 100.0) / actual;
delta_glucose := abs(previous - actual);
perc_delta := (delta_glucose * 100.0) / actual;
if (perc_err < min_perc_err) then min_perc_err := perc_err; fi;
if (perc_err > max_perc_err) then max_perc_err := perc_err; fi;
tot_perc_err := tot_perc_err + perc_err;
if (actual < low_actual) then low_actual := actual; fi;
if (actual > high_actual) then high_actual := actual; fi;
if (prediction < low_prediction) then low_prediction := prediction; fi;
if (prediction > high_prediction) then high_prediction := prediction; fi;
count := count + 1.0;
out2 := [count, perc_err, actual,prediction,it_previous,it_previous * prior_factor,metabolism,it_ksteps * cal_per_ksteps,it_fat_other*cal_per_gram_fat,it_carb_other*cal_per_gram_carb,it_prot*cal_per_gram_prot,it_fiber*cal_per_gram_carb,it_sugar*cal_per_gram_carb,it_saturated*cal_per_gram_fat,it_fasted,order2, delta_method, kstep_method, recommended_ksteps, kstep_exponent, kstep_factor, recommended_fat, recommended_carb, recommended_prot, recommended_fiber, recommended_sugar, recommended_saturated ,factor1, factor2, recommended_fasted,prior_factor,fasted_factor,eliminate_extremes,ksteps,fat_other,carb_other,prot,fiber,sugar,saturated,fasted,C_ksteps,C_fat_other,C_carb_other,C_protein,C_fiber,C_sugar,C_saturated,C_fasted,cal_per_gram_carb,cal_per_gram_prot,cal_per_gram_fat,cal_per_ksteps];
writedata("OUT/out17_work.tmp", out2);
ksteps := 12.0;
kstep_factor := 20.;
fat := 86.6;
carb := 386.0;
prot := 73.8;
fiber := 27.0;
sugar := 85.4;
saturated := 13.5;
fasted := 9.0;
fat_other := 73.1;
carb_other := 273.6;
delta_ksteps :=  (recommended_ksteps - ksteps) * kstep_factor;
delta_fat_other := (fat_other - recommended_fat_other);
delta_carb_other := (carb_other - recommended_carb_other);
delta_prot := (prot - recommended_prot);
delta_fiber := (fiber - recommended_fiber);
delta_sugar := (sugar - recommended_sugar);
delta_saturated := (saturated - recommended_saturated);
delta_fasted := (fasted - recommended_fasted) * fasted_factor;
it_previous :=  93.0;
metabolism :=  0.;
it_ksteps := (C_ksteps) * (delta_ksteps);
it_fat_other := factor1  * ( C_fat_other ) * ( (delta_fat_other) );
it_carb_other := factor1  * ( C_carb_other ) * ( (delta_carb_other) );
it_prot := factor1  * ( C_protein ) * ( (delta_prot) );
it_fiber := factor1  * ( C_fiber ) * ( (delta_fiber) );
it_sugar :=  factor1  * ( C_sugar ) * ( (delta_sugar) );
it_saturated := factor1  * ( C_saturated ) * ( (delta_saturated) );
it_fasted := ( C_fasted ) * ( (delta_fasted) );
prediction  := evalf(it_previous * prior_factor
 + metabolism
 + it_ksteps * cal_per_ksteps
 + it_fat_other * cal_per_gram_fat
 + it_carb_other * cal_per_gram_carb
 + it_prot * cal_per_gram_prot
 + it_fiber * cal_per_gram_carb
 + it_sugar * cal_per_gram_carb
 + it_saturated * cal_per_gram_fat
 + it_fasted);
it_previous := 93.0;
actual := 78.0;
previous := 93.0;
err := abs(prediction - actual);
perc_err := abs(err * 100.0) / actual;
delta_glucose := abs(previous - actual);
perc_delta := (delta_glucose * 100.0) / actual;
if (perc_err < min_perc_err) then min_perc_err := perc_err; fi;
if (perc_err > max_perc_err) then max_perc_err := perc_err; fi;
tot_perc_err := tot_perc_err + perc_err;
if (actual < low_actual) then low_actual := actual; fi;
if (actual > high_actual) then high_actual := actual; fi;
if (prediction < low_prediction) then low_prediction := prediction; fi;
if (prediction > high_prediction) then high_prediction := prediction; fi;
count := count + 1.0;
out2 := [count, perc_err, actual,prediction,it_previous,it_previous * prior_factor,metabolism,it_ksteps * cal_per_ksteps,it_fat_other*cal_per_gram_fat,it_carb_other*cal_per_gram_carb,it_prot*cal_per_gram_prot,it_fiber*cal_per_gram_carb,it_sugar*cal_per_gram_carb,it_saturated*cal_per_gram_fat,it_fasted,order2, delta_method, kstep_method, recommended_ksteps, kstep_exponent, kstep_factor, recommended_fat, recommended_carb, recommended_prot, recommended_fiber, recommended_sugar, recommended_saturated ,factor1, factor2, recommended_fasted,prior_factor,fasted_factor,eliminate_extremes,ksteps,fat_other,carb_other,prot,fiber,sugar,saturated,fasted,C_ksteps,C_fat_other,C_carb_other,C_protein,C_fiber,C_sugar,C_saturated,C_fasted,cal_per_gram_carb,cal_per_gram_prot,cal_per_gram_fat,cal_per_ksteps];
writedata("OUT/out18_work.tmp", out2);
ksteps := 16.0;
kstep_factor := 20.;
fat := 160.0;
carb := 248.0;
prot := 61.4;
fiber := 21.7;
sugar := 78.5;
saturated := 31.0;
fasted := 6.0;
fat_other := 129.;
carb_other := 147.8;
delta_ksteps :=  (recommended_ksteps - ksteps) * kstep_factor;
delta_fat_other := (fat_other - recommended_fat_other);
delta_carb_other := (carb_other - recommended_carb_other);
delta_prot := (prot - recommended_prot);
delta_fiber := (fiber - recommended_fiber);
delta_sugar := (sugar - recommended_sugar);
delta_saturated := (saturated - recommended_saturated);
delta_fasted := (fasted - recommended_fasted) * fasted_factor;
it_previous :=  86.0;
metabolism :=  0.;
it_ksteps := (C_ksteps) * (delta_ksteps);
it_fat_other := factor1  * ( C_fat_other ) * ( (delta_fat_other) );
it_carb_other := factor1  * ( C_carb_other ) * ( (delta_carb_other) );
it_prot := factor1  * ( C_protein ) * ( (delta_prot) );
it_fiber := factor1  * ( C_fiber ) * ( (delta_fiber) );
it_sugar :=  factor1  * ( C_sugar ) * ( (delta_sugar) );
it_saturated := factor1  * ( C_saturated ) * ( (delta_saturated) );
it_fasted := ( C_fasted ) * ( (delta_fasted) );
prediction  := evalf(it_previous * prior_factor
 + metabolism
 + it_ksteps * cal_per_ksteps
 + it_fat_other * cal_per_gram_fat
 + it_carb_other * cal_per_gram_carb
 + it_prot * cal_per_gram_prot
 + it_fiber * cal_per_gram_carb
 + it_sugar * cal_per_gram_carb
 + it_saturated * cal_per_gram_fat
 + it_fasted);
it_previous := 86.0;
actual := 93.0;
previous := 86.0;
err := abs(prediction - actual);
perc_err := abs(err * 100.0) / actual;
delta_glucose := abs(previous - actual);
perc_delta := (delta_glucose * 100.0) / actual;
if (perc_err < min_perc_err) then min_perc_err := perc_err; fi;
if (perc_err > max_perc_err) then max_perc_err := perc_err; fi;
tot_perc_err := tot_perc_err + perc_err;
if (actual < low_actual) then low_actual := actual; fi;
if (actual > high_actual) then high_actual := actual; fi;
if (prediction < low_prediction) then low_prediction := prediction; fi;
if (prediction > high_prediction) then high_prediction := prediction; fi;
count := count + 1.0;
out2 := [count, perc_err, actual,prediction,it_previous,it_previous * prior_factor,metabolism,it_ksteps * cal_per_ksteps,it_fat_other*cal_per_gram_fat,it_carb_other*cal_per_gram_carb,it_prot*cal_per_gram_prot,it_fiber*cal_per_gram_carb,it_sugar*cal_per_gram_carb,it_saturated*cal_per_gram_fat,it_fasted,order2, delta_method, kstep_method, recommended_ksteps, kstep_exponent, kstep_factor, recommended_fat, recommended_carb, recommended_prot, recommended_fiber, recommended_sugar, recommended_saturated ,factor1, factor2, recommended_fasted,prior_factor,fasted_factor,eliminate_extremes,ksteps,fat_other,carb_other,prot,fiber,sugar,saturated,fasted,C_ksteps,C_fat_other,C_carb_other,C_protein,C_fiber,C_sugar,C_saturated,C_fasted,cal_per_gram_carb,cal_per_gram_prot,cal_per_gram_fat,cal_per_ksteps];
writedata("OUT/out19_work.tmp", out2);
ksteps := 16.0;
kstep_factor := 20.;
fat := 116.0;
carb := 281.0;
prot := 42.7;
fiber := 29.6;
sugar := 71.1;
saturated := 20.0;
fasted := 6.5;
fat_other := 96.;
carb_other := 180.3;
delta_ksteps :=  (recommended_ksteps - ksteps) * kstep_factor;
delta_fat_other := (fat_other - recommended_fat_other);
delta_carb_other := (carb_other - recommended_carb_other);
delta_prot := (prot - recommended_prot);
delta_fiber := (fiber - recommended_fiber);
delta_sugar := (sugar - recommended_sugar);
delta_saturated := (saturated - recommended_saturated);
delta_fasted := (fasted - recommended_fasted) * fasted_factor;
it_previous :=  94.0;
metabolism :=  0.;
it_ksteps := (C_ksteps) * (delta_ksteps);
it_fat_other := factor1  * ( C_fat_other ) * ( (delta_fat_other) );
it_carb_other := factor1  * ( C_carb_other ) * ( (delta_carb_other) );
it_prot := factor1  * ( C_protein ) * ( (delta_prot) );
it_fiber := factor1  * ( C_fiber ) * ( (delta_fiber) );
it_sugar :=  factor1  * ( C_sugar ) * ( (delta_sugar) );
it_saturated := factor1  * ( C_saturated ) * ( (delta_saturated) );
it_fasted := ( C_fasted ) * ( (delta_fasted) );
prediction  := evalf(it_previous * prior_factor
 + metabolism
 + it_ksteps * cal_per_ksteps
 + it_fat_other * cal_per_gram_fat
 + it_carb_other * cal_per_gram_carb
 + it_prot * cal_per_gram_prot
 + it_fiber * cal_per_gram_carb
 + it_sugar * cal_per_gram_carb
 + it_saturated * cal_per_gram_fat
 + it_fasted);
it_previous := 94.0;
actual := 86.0;
previous := 94.0;
err := abs(prediction - actual);
perc_err := abs(err * 100.0) / actual;
delta_glucose := abs(previous - actual);
perc_delta := (delta_glucose * 100.0) / actual;
if (perc_err < min_perc_err) then min_perc_err := perc_err; fi;
if (perc_err > max_perc_err) then max_perc_err := perc_err; fi;
tot_perc_err := tot_perc_err + perc_err;
if (actual < low_actual) then low_actual := actual; fi;
if (actual > high_actual) then high_actual := actual; fi;
if (prediction < low_prediction) then low_prediction := prediction; fi;
if (prediction > high_prediction) then high_prediction := prediction; fi;
count := count + 1.0;
out2 := [count, perc_err, actual,prediction,it_previous,it_previous * prior_factor,metabolism,it_ksteps * cal_per_ksteps,it_fat_other*cal_per_gram_fat,it_carb_other*cal_per_gram_carb,it_prot*cal_per_gram_prot,it_fiber*cal_per_gram_carb,it_sugar*cal_per_gram_carb,it_saturated*cal_per_gram_fat,it_fasted,order2, delta_method, kstep_method, recommended_ksteps, kstep_exponent, kstep_factor, recommended_fat, recommended_carb, recommended_prot, recommended_fiber, recommended_sugar, recommended_saturated ,factor1, factor2, recommended_fasted,prior_factor,fasted_factor,eliminate_extremes,ksteps,fat_other,carb_other,prot,fiber,sugar,saturated,fasted,C_ksteps,C_fat_other,C_carb_other,C_protein,C_fiber,C_sugar,C_saturated,C_fasted,cal_per_gram_carb,cal_per_gram_prot,cal_per_gram_fat,cal_per_ksteps];
writedata("OUT/out20_work.tmp", out2);
ksteps := 10.0;
kstep_factor := 20.;
fat := 149.0;
carb := 244.0;
prot := 63.0;
fiber := 12.5;
sugar := 121.0;
saturated := 44.4;
fasted := 8.0;
fat_other := 104.6;
carb_other := 110.5;
delta_ksteps :=  (recommended_ksteps - ksteps) * kstep_factor;
delta_fat_other := (fat_other - recommended_fat_other);
delta_carb_other := (carb_other - recommended_carb_other);
delta_prot := (prot - recommended_prot);
delta_fiber := (fiber - recommended_fiber);
delta_sugar := (sugar - recommended_sugar);
delta_saturated := (saturated - recommended_saturated);
delta_fasted := (fasted - recommended_fasted) * fasted_factor;
it_previous :=  83.0;
metabolism :=  0.;
it_ksteps := (C_ksteps) * (delta_ksteps);
it_fat_other := factor1  * ( C_fat_other ) * ( (delta_fat_other) );
it_carb_other := factor1  * ( C_carb_other ) * ( (delta_carb_other) );
it_prot := factor1  * ( C_protein ) * ( (delta_prot) );
it_fiber := factor1  * ( C_fiber ) * ( (delta_fiber) );
it_sugar :=  factor1  * ( C_sugar ) * ( (delta_sugar) );
it_saturated := factor1  * ( C_saturated ) * ( (delta_saturated) );
it_fasted := ( C_fasted ) * ( (delta_fasted) );
prediction  := evalf(it_previous * prior_factor
 + metabolism
 + it_ksteps * cal_per_ksteps
 + it_fat_other * cal_per_gram_fat
 + it_carb_other * cal_per_gram_carb
 + it_prot * cal_per_gram_prot
 + it_fiber * cal_per_gram_carb
 + it_sugar * cal_per_gram_carb
 + it_saturated * cal_per_gram_fat
 + it_fasted);
it_previous := 83.0;
actual := 94.0;
previous := 83.0;
err := abs(prediction - actual);
perc_err := abs(err * 100.0) / actual;
delta_glucose := abs(previous - actual);
perc_delta := (delta_glucose * 100.0) / actual;
if (perc_err < min_perc_err) then min_perc_err := perc_err; fi;
if (perc_err > max_perc_err) then max_perc_err := perc_err; fi;
tot_perc_err := tot_perc_err + perc_err;
if (actual < low_actual) then low_actual := actual; fi;
if (actual > high_actual) then high_actual := actual; fi;
if (prediction < low_prediction) then low_prediction := prediction; fi;
if (prediction > high_prediction) then high_prediction := prediction; fi;
count := count + 1.0;
out2 := [count, perc_err, actual,prediction,it_previous,it_previous * prior_factor,metabolism,it_ksteps * cal_per_ksteps,it_fat_other*cal_per_gram_fat,it_carb_other*cal_per_gram_carb,it_prot*cal_per_gram_prot,it_fiber*cal_per_gram_carb,it_sugar*cal_per_gram_carb,it_saturated*cal_per_gram_fat,it_fasted,order2, delta_method, kstep_method, recommended_ksteps, kstep_exponent, kstep_factor, recommended_fat, recommended_carb, recommended_prot, recommended_fiber, recommended_sugar, recommended_saturated ,factor1, factor2, recommended_fasted,prior_factor,fasted_factor,eliminate_extremes,ksteps,fat_other,carb_other,prot,fiber,sugar,saturated,fasted,C_ksteps,C_fat_other,C_carb_other,C_protein,C_fiber,C_sugar,C_saturated,C_fasted,cal_per_gram_carb,cal_per_gram_prot,cal_per_gram_fat,cal_per_ksteps];
writedata("OUT/out21_work.tmp", out2);
ksteps := 10.0;
kstep_factor := 20.;
fat := 110.0;
carb := 366.0;
prot := 53.9;
fiber := 24.3;
sugar := 115.0;
saturated := 27.4;
fasted := 6.5;
fat_other := 82.6;
carb_other := 226.7;
delta_ksteps :=  (recommended_ksteps - ksteps) * kstep_factor;
delta_fat_other := (fat_other - recommended_fat_other);
delta_carb_other := (carb_other - recommended_carb_other);
delta_prot := (prot - recommended_prot);
delta_fiber := (fiber - recommended_fiber);
delta_sugar := (sugar - recommended_sugar);
delta_saturated := (saturated - recommended_saturated);
delta_fasted := (fasted - recommended_fasted) * fasted_factor;
it_previous :=  101.0;
metabolism :=  0.;
it_ksteps := (C_ksteps) * (delta_ksteps);
it_fat_other := factor1  * ( C_fat_other ) * ( (delta_fat_other) );
it_carb_other := factor1  * ( C_carb_other ) * ( (delta_carb_other) );
it_prot := factor1  * ( C_protein ) * ( (delta_prot) );
it_fiber := factor1  * ( C_fiber ) * ( (delta_fiber) );
it_sugar :=  factor1  * ( C_sugar ) * ( (delta_sugar) );
it_saturated := factor1  * ( C_saturated ) * ( (delta_saturated) );
it_fasted := ( C_fasted ) * ( (delta_fasted) );
prediction  := evalf(it_previous * prior_factor
 + metabolism
 + it_ksteps * cal_per_ksteps
 + it_fat_other * cal_per_gram_fat
 + it_carb_other * cal_per_gram_carb
 + it_prot * cal_per_gram_prot
 + it_fiber * cal_per_gram_carb
 + it_sugar * cal_per_gram_carb
 + it_saturated * cal_per_gram_fat
 + it_fasted);
it_previous := 101.0;
actual := 83.0;
previous := 101.0;
err := abs(prediction - actual);
perc_err := abs(err * 100.0) / actual;
delta_glucose := abs(previous - actual);
perc_delta := (delta_glucose * 100.0) / actual;
if (perc_err < min_perc_err) then min_perc_err := perc_err; fi;
if (perc_err > max_perc_err) then max_perc_err := perc_err; fi;
tot_perc_err := tot_perc_err + perc_err;
if (actual < low_actual) then low_actual := actual; fi;
if (actual > high_actual) then high_actual := actual; fi;
if (prediction < low_prediction) then low_prediction := prediction; fi;
if (prediction > high_prediction) then high_prediction := prediction; fi;
count := count + 1.0;
out2 := [count, perc_err, actual,prediction,it_previous,it_previous * prior_factor,metabolism,it_ksteps * cal_per_ksteps,it_fat_other*cal_per_gram_fat,it_carb_other*cal_per_gram_carb,it_prot*cal_per_gram_prot,it_fiber*cal_per_gram_carb,it_sugar*cal_per_gram_carb,it_saturated*cal_per_gram_fat,it_fasted,order2, delta_method, kstep_method, recommended_ksteps, kstep_exponent, kstep_factor, recommended_fat, recommended_carb, recommended_prot, recommended_fiber, recommended_sugar, recommended_saturated ,factor1, factor2, recommended_fasted,prior_factor,fasted_factor,eliminate_extremes,ksteps,fat_other,carb_other,prot,fiber,sugar,saturated,fasted,C_ksteps,C_fat_other,C_carb_other,C_protein,C_fiber,C_sugar,C_saturated,C_fasted,cal_per_gram_carb,cal_per_gram_prot,cal_per_gram_fat,cal_per_ksteps];
writedata("OUT/out22_work.tmp", out2);
ksteps := 10.0;
kstep_factor := 20.;
fat := 145.0;
carb := 297.0;
prot := 59.2;
fiber := 31.9;
sugar := 110.0;
saturated := 29.9;
fasted := 5.5;
fat_other := 115.1;
carb_other := 155.1;
delta_ksteps :=  (recommended_ksteps - ksteps) * kstep_factor;
delta_fat_other := (fat_other - recommended_fat_other);
delta_carb_other := (carb_other - recommended_carb_other);
delta_prot := (prot - recommended_prot);
delta_fiber := (fiber - recommended_fiber);
delta_sugar := (sugar - recommended_sugar);
delta_saturated := (saturated - recommended_saturated);
delta_fasted := (fasted - recommended_fasted) * fasted_factor;
it_previous :=  98.0;
metabolism :=  0.;
it_ksteps := (C_ksteps) * (delta_ksteps);
it_fat_other := factor1  * ( C_fat_other ) * ( (delta_fat_other) );
it_carb_other := factor1  * ( C_carb_other ) * ( (delta_carb_other) );
it_prot := factor1  * ( C_protein ) * ( (delta_prot) );
it_fiber := factor1  * ( C_fiber ) * ( (delta_fiber) );
it_sugar :=  factor1  * ( C_sugar ) * ( (delta_sugar) );
it_saturated := factor1  * ( C_saturated ) * ( (delta_saturated) );
it_fasted := ( C_fasted ) * ( (delta_fasted) );
prediction  := evalf(it_previous * prior_factor
 + metabolism
 + it_ksteps * cal_per_ksteps
 + it_fat_other * cal_per_gram_fat
 + it_carb_other * cal_per_gram_carb
 + it_prot * cal_per_gram_prot
 + it_fiber * cal_per_gram_carb
 + it_sugar * cal_per_gram_carb
 + it_saturated * cal_per_gram_fat
 + it_fasted);
it_previous := 98.0;
actual := 101.0;
previous := 98.0;
err := abs(prediction - actual);
perc_err := abs(err * 100.0) / actual;
delta_glucose := abs(previous - actual);
perc_delta := (delta_glucose * 100.0) / actual;
if (perc_err < min_perc_err) then min_perc_err := perc_err; fi;
if (perc_err > max_perc_err) then max_perc_err := perc_err; fi;
tot_perc_err := tot_perc_err + perc_err;
if (actual < low_actual) then low_actual := actual; fi;
if (actual > high_actual) then high_actual := actual; fi;
if (prediction < low_prediction) then low_prediction := prediction; fi;
if (prediction > high_prediction) then high_prediction := prediction; fi;
count := count + 1.0;
out2 := [count, perc_err, actual,prediction,it_previous,it_previous * prior_factor,metabolism,it_ksteps * cal_per_ksteps,it_fat_other*cal_per_gram_fat,it_carb_other*cal_per_gram_carb,it_prot*cal_per_gram_prot,it_fiber*cal_per_gram_carb,it_sugar*cal_per_gram_carb,it_saturated*cal_per_gram_fat,it_fasted,order2, delta_method, kstep_method, recommended_ksteps, kstep_exponent, kstep_factor, recommended_fat, recommended_carb, recommended_prot, recommended_fiber, recommended_sugar, recommended_saturated ,factor1, factor2, recommended_fasted,prior_factor,fasted_factor,eliminate_extremes,ksteps,fat_other,carb_other,prot,fiber,sugar,saturated,fasted,C_ksteps,C_fat_other,C_carb_other,C_protein,C_fiber,C_sugar,C_saturated,C_fasted,cal_per_gram_carb,cal_per_gram_prot,cal_per_gram_fat,cal_per_ksteps];
writedata("OUT/out23_work.tmp", out2);
ksteps := 10.0;
kstep_factor := 20.;
fat := 105.0;
carb := 252.0;
prot := 37.8;
fiber := 16.1;
sugar := 77.5;
saturated := 21.9;
fasted := 7.5;
fat_other := 83.1;
carb_other := 158.4;
delta_ksteps :=  (recommended_ksteps - ksteps) * kstep_factor;
delta_fat_other := (fat_other - recommended_fat_other);
delta_carb_other := (carb_other - recommended_carb_other);
delta_prot := (prot - recommended_prot);
delta_fiber := (fiber - recommended_fiber);
delta_sugar := (sugar - recommended_sugar);
delta_saturated := (saturated - recommended_saturated);
delta_fasted := (fasted - recommended_fasted) * fasted_factor;
it_previous :=  89.0;
metabolism :=  0.;
it_ksteps := (C_ksteps) * (delta_ksteps);
it_fat_other := factor1  * ( C_fat_other ) * ( (delta_fat_other) );
it_carb_other := factor1  * ( C_carb_other ) * ( (delta_carb_other) );
it_prot := factor1  * ( C_protein ) * ( (delta_prot) );
it_fiber := factor1  * ( C_fiber ) * ( (delta_fiber) );
it_sugar :=  factor1  * ( C_sugar ) * ( (delta_sugar) );
it_saturated := factor1  * ( C_saturated ) * ( (delta_saturated) );
it_fasted := ( C_fasted ) * ( (delta_fasted) );
prediction  := evalf(it_previous * prior_factor
 + metabolism
 + it_ksteps * cal_per_ksteps
 + it_fat_other * cal_per_gram_fat
 + it_carb_other * cal_per_gram_carb
 + it_prot * cal_per_gram_prot
 + it_fiber * cal_per_gram_carb
 + it_sugar * cal_per_gram_carb
 + it_saturated * cal_per_gram_fat
 + it_fasted);
it_previous := 89.0;
actual := 98.0;
previous := 89.0;
err := abs(prediction - actual);
perc_err := abs(err * 100.0) / actual;
delta_glucose := abs(previous - actual);
perc_delta := (delta_glucose * 100.0) / actual;
if (perc_err < min_perc_err) then min_perc_err := perc_err; fi;
if (perc_err > max_perc_err) then max_perc_err := perc_err; fi;
tot_perc_err := tot_perc_err + perc_err;
if (actual < low_actual) then low_actual := actual; fi;
if (actual > high_actual) then high_actual := actual; fi;
if (prediction < low_prediction) then low_prediction := prediction; fi;
if (prediction > high_prediction) then high_prediction := prediction; fi;
count := count + 1.0;
out2 := [count, perc_err, actual,prediction,it_previous,it_previous * prior_factor,metabolism,it_ksteps * cal_per_ksteps,it_fat_other*cal_per_gram_fat,it_carb_other*cal_per_gram_carb,it_prot*cal_per_gram_prot,it_fiber*cal_per_gram_carb,it_sugar*cal_per_gram_carb,it_saturated*cal_per_gram_fat,it_fasted,order2, delta_method, kstep_method, recommended_ksteps, kstep_exponent, kstep_factor, recommended_fat, recommended_carb, recommended_prot, recommended_fiber, recommended_sugar, recommended_saturated ,factor1, factor2, recommended_fasted,prior_factor,fasted_factor,eliminate_extremes,ksteps,fat_other,carb_other,prot,fiber,sugar,saturated,fasted,C_ksteps,C_fat_other,C_carb_other,C_protein,C_fiber,C_sugar,C_saturated,C_fasted,cal_per_gram_carb,cal_per_gram_prot,cal_per_gram_fat,cal_per_ksteps];
writedata("OUT/out24_work.tmp", out2);
ksteps := 10.0;
kstep_factor := 20.;
fat := 112.0;
carb := 322.0;
prot := 40.5;
fiber := 28.7;
sugar := 128.0;
saturated := 25.4;
fasted := 7.5;
fat_other := 86.6;
carb_other := 165.3;
delta_ksteps :=  (recommended_ksteps - ksteps) * kstep_factor;
delta_fat_other := (fat_other - recommended_fat_other);
delta_carb_other := (carb_other - recommended_carb_other);
delta_prot := (prot - recommended_prot);
delta_fiber := (fiber - recommended_fiber);
delta_sugar := (sugar - recommended_sugar);
delta_saturated := (saturated - recommended_saturated);
delta_fasted := (fasted - recommended_fasted) * fasted_factor;
it_previous :=  80.0;
metabolism :=  0.;
it_ksteps := (C_ksteps) * (delta_ksteps);
it_fat_other := factor1  * ( C_fat_other ) * ( (delta_fat_other) );
it_carb_other := factor1  * ( C_carb_other ) * ( (delta_carb_other) );
it_prot := factor1  * ( C_protein ) * ( (delta_prot) );
it_fiber := factor1  * ( C_fiber ) * ( (delta_fiber) );
it_sugar :=  factor1  * ( C_sugar ) * ( (delta_sugar) );
it_saturated := factor1  * ( C_saturated ) * ( (delta_saturated) );
it_fasted := ( C_fasted ) * ( (delta_fasted) );
prediction  := evalf(it_previous * prior_factor
 + metabolism
 + it_ksteps * cal_per_ksteps
 + it_fat_other * cal_per_gram_fat
 + it_carb_other * cal_per_gram_carb
 + it_prot * cal_per_gram_prot
 + it_fiber * cal_per_gram_carb
 + it_sugar * cal_per_gram_carb
 + it_saturated * cal_per_gram_fat
 + it_fasted);
it_previous := 80.0;
actual := 89.0;
previous := 80.0;
err := abs(prediction - actual);
perc_err := abs(err * 100.0) / actual;
delta_glucose := abs(previous - actual);
perc_delta := (delta_glucose * 100.0) / actual;
if (perc_err < min_perc_err) then min_perc_err := perc_err; fi;
if (perc_err > max_perc_err) then max_perc_err := perc_err; fi;
tot_perc_err := tot_perc_err + perc_err;
if (actual < low_actual) then low_actual := actual; fi;
if (actual > high_actual) then high_actual := actual; fi;
if (prediction < low_prediction) then low_prediction := prediction; fi;
if (prediction > high_prediction) then high_prediction := prediction; fi;
count := count + 1.0;
out2 := [count, perc_err, actual,prediction,it_previous,it_previous * prior_factor,metabolism,it_ksteps * cal_per_ksteps,it_fat_other*cal_per_gram_fat,it_carb_other*cal_per_gram_carb,it_prot*cal_per_gram_prot,it_fiber*cal_per_gram_carb,it_sugar*cal_per_gram_carb,it_saturated*cal_per_gram_fat,it_fasted,order2, delta_method, kstep_method, recommended_ksteps, kstep_exponent, kstep_factor, recommended_fat, recommended_carb, recommended_prot, recommended_fiber, recommended_sugar, recommended_saturated ,factor1, factor2, recommended_fasted,prior_factor,fasted_factor,eliminate_extremes,ksteps,fat_other,carb_other,prot,fiber,sugar,saturated,fasted,C_ksteps,C_fat_other,C_carb_other,C_protein,C_fiber,C_sugar,C_saturated,C_fasted,cal_per_gram_carb,cal_per_gram_prot,cal_per_gram_fat,cal_per_ksteps];
writedata("OUT/out25_work.tmp", out2);
ksteps := 10.0;
kstep_factor := 20.;
fat := 100.0;
carb := 349.0;
prot := 37.9;
fiber := 15.8;
sugar := 116.0;
saturated := 21.4;
fasted := 6.5;
fat_other := 78.6;
carb_other := 217.2;
delta_ksteps :=  (recommended_ksteps - ksteps) * kstep_factor;
delta_fat_other := (fat_other - recommended_fat_other);
delta_carb_other := (carb_other - recommended_carb_other);
delta_prot := (prot - recommended_prot);
delta_fiber := (fiber - recommended_fiber);
delta_sugar := (sugar - recommended_sugar);
delta_saturated := (saturated - recommended_saturated);
delta_fasted := (fasted - recommended_fasted) * fasted_factor;
it_previous :=  114.0;
metabolism :=  0.;
it_ksteps := (C_ksteps) * (delta_ksteps);
it_fat_other := factor1  * ( C_fat_other ) * ( (delta_fat_other) );
it_carb_other := factor1  * ( C_carb_other ) * ( (delta_carb_other) );
it_prot := factor1  * ( C_protein ) * ( (delta_prot) );
it_fiber := factor1  * ( C_fiber ) * ( (delta_fiber) );
it_sugar :=  factor1  * ( C_sugar ) * ( (delta_sugar) );
it_saturated := factor1  * ( C_saturated ) * ( (delta_saturated) );
it_fasted := ( C_fasted ) * ( (delta_fasted) );
prediction  := evalf(it_previous * prior_factor
 + metabolism
 + it_ksteps * cal_per_ksteps
 + it_fat_other * cal_per_gram_fat
 + it_carb_other * cal_per_gram_carb
 + it_prot * cal_per_gram_prot
 + it_fiber * cal_per_gram_carb
 + it_sugar * cal_per_gram_carb
 + it_saturated * cal_per_gram_fat
 + it_fasted);
it_previous := 114.0;
actual := 80.0;
previous := 114.0;
err := abs(prediction - actual);
perc_err := abs(err * 100.0) / actual;
delta_glucose := abs(previous - actual);
perc_delta := (delta_glucose * 100.0) / actual;
if (perc_err < min_perc_err) then min_perc_err := perc_err; fi;
if (perc_err > max_perc_err) then max_perc_err := perc_err; fi;
tot_perc_err := tot_perc_err + perc_err;
if (actual < low_actual) then low_actual := actual; fi;
if (actual > high_actual) then high_actual := actual; fi;
if (prediction < low_prediction) then low_prediction := prediction; fi;
if (prediction > high_prediction) then high_prediction := prediction; fi;
count := count + 1.0;
out2 := [count, perc_err, actual,prediction,it_previous,it_previous * prior_factor,metabolism,it_ksteps * cal_per_ksteps,it_fat_other*cal_per_gram_fat,it_carb_other*cal_per_gram_carb,it_prot*cal_per_gram_prot,it_fiber*cal_per_gram_carb,it_sugar*cal_per_gram_carb,it_saturated*cal_per_gram_fat,it_fasted,order2, delta_method, kstep_method, recommended_ksteps, kstep_exponent, kstep_factor, recommended_fat, recommended_carb, recommended_prot, recommended_fiber, recommended_sugar, recommended_saturated ,factor1, factor2, recommended_fasted,prior_factor,fasted_factor,eliminate_extremes,ksteps,fat_other,carb_other,prot,fiber,sugar,saturated,fasted,C_ksteps,C_fat_other,C_carb_other,C_protein,C_fiber,C_sugar,C_saturated,C_fasted,cal_per_gram_carb,cal_per_gram_prot,cal_per_gram_fat,cal_per_ksteps];
writedata("OUT/out26_work.tmp", out2);
ksteps := 10.0;
kstep_factor := 20.;
fat := 190.0;
carb := 282.0;
prot := 88.3;
fiber := 42.2;
sugar := 64.8;
saturated := 31.5;
fasted := 7.5;
fat_other := 158.5;
carb_other := 175.;
delta_ksteps :=  (recommended_ksteps - ksteps) * kstep_factor;
delta_fat_other := (fat_other - recommended_fat_other);
delta_carb_other := (carb_other - recommended_carb_other);
delta_prot := (prot - recommended_prot);
delta_fiber := (fiber - recommended_fiber);
delta_sugar := (sugar - recommended_sugar);
delta_saturated := (saturated - recommended_saturated);
delta_fasted := (fasted - recommended_fasted) * fasted_factor;
it_previous :=  90.0;
metabolism :=  0.;
it_ksteps := (C_ksteps) * (delta_ksteps);
it_fat_other := factor1  * ( C_fat_other ) * ( (delta_fat_other) );
it_carb_other := factor1  * ( C_carb_other ) * ( (delta_carb_other) );
it_prot := factor1  * ( C_protein ) * ( (delta_prot) );
it_fiber := factor1  * ( C_fiber ) * ( (delta_fiber) );
it_sugar :=  factor1  * ( C_sugar ) * ( (delta_sugar) );
it_saturated := factor1  * ( C_saturated ) * ( (delta_saturated) );
it_fasted := ( C_fasted ) * ( (delta_fasted) );
prediction  := evalf(it_previous * prior_factor
 + metabolism
 + it_ksteps * cal_per_ksteps
 + it_fat_other * cal_per_gram_fat
 + it_carb_other * cal_per_gram_carb
 + it_prot * cal_per_gram_prot
 + it_fiber * cal_per_gram_carb
 + it_sugar * cal_per_gram_carb
 + it_saturated * cal_per_gram_fat
 + it_fasted);
it_previous := 90.0;
actual := 114.0;
previous := 90.0;
err := abs(prediction - actual);
perc_err := abs(err * 100.0) / actual;
delta_glucose := abs(previous - actual);
perc_delta := (delta_glucose * 100.0) / actual;
if (perc_err < min_perc_err) then min_perc_err := perc_err; fi;
if (perc_err > max_perc_err) then max_perc_err := perc_err; fi;
tot_perc_err := tot_perc_err + perc_err;
if (actual < low_actual) then low_actual := actual; fi;
if (actual > high_actual) then high_actual := actual; fi;
if (prediction < low_prediction) then low_prediction := prediction; fi;
if (prediction > high_prediction) then high_prediction := prediction; fi;
count := count + 1.0;
out2 := [count, perc_err, actual,prediction,it_previous,it_previous * prior_factor,metabolism,it_ksteps * cal_per_ksteps,it_fat_other*cal_per_gram_fat,it_carb_other*cal_per_gram_carb,it_prot*cal_per_gram_prot,it_fiber*cal_per_gram_carb,it_sugar*cal_per_gram_carb,it_saturated*cal_per_gram_fat,it_fasted,order2, delta_method, kstep_method, recommended_ksteps, kstep_exponent, kstep_factor, recommended_fat, recommended_carb, recommended_prot, recommended_fiber, recommended_sugar, recommended_saturated ,factor1, factor2, recommended_fasted,prior_factor,fasted_factor,eliminate_extremes,ksteps,fat_other,carb_other,prot,fiber,sugar,saturated,fasted,C_ksteps,C_fat_other,C_carb_other,C_protein,C_fiber,C_sugar,C_saturated,C_fasted,cal_per_gram_carb,cal_per_gram_prot,cal_per_gram_fat,cal_per_ksteps];
writedata("OUT/out27_work.tmp", out2);
ksteps := 10.0;
kstep_factor := 20.;
fat := 87.3;
carb := 302.0;
prot := 79.6;
fiber := 23.2;
sugar := 91.4;
saturated := 12.1;
fasted := 7.0;
fat_other := 75.2;
carb_other := 187.4;
delta_ksteps :=  (recommended_ksteps - ksteps) * kstep_factor;
delta_fat_other := (fat_other - recommended_fat_other);
delta_carb_other := (carb_other - recommended_carb_other);
delta_prot := (prot - recommended_prot);
delta_fiber := (fiber - recommended_fiber);
delta_sugar := (sugar - recommended_sugar);
delta_saturated := (saturated - recommended_saturated);
delta_fasted := (fasted - recommended_fasted) * fasted_factor;
it_previous :=  104.0;
metabolism :=  0.;
it_ksteps := (C_ksteps) * (delta_ksteps);
it_fat_other := factor1  * ( C_fat_other ) * ( (delta_fat_other) );
it_carb_other := factor1  * ( C_carb_other ) * ( (delta_carb_other) );
it_prot := factor1  * ( C_protein ) * ( (delta_prot) );
it_fiber := factor1  * ( C_fiber ) * ( (delta_fiber) );
it_sugar :=  factor1  * ( C_sugar ) * ( (delta_sugar) );
it_saturated := factor1  * ( C_saturated ) * ( (delta_saturated) );
it_fasted := ( C_fasted ) * ( (delta_fasted) );
prediction  := evalf(it_previous * prior_factor
 + metabolism
 + it_ksteps * cal_per_ksteps
 + it_fat_other * cal_per_gram_fat
 + it_carb_other * cal_per_gram_carb
 + it_prot * cal_per_gram_prot
 + it_fiber * cal_per_gram_carb
 + it_sugar * cal_per_gram_carb
 + it_saturated * cal_per_gram_fat
 + it_fasted);
it_previous := 104.0;
actual := 90.0;
previous := 104.0;
err := abs(prediction - actual);
perc_err := abs(err * 100.0) / actual;
delta_glucose := abs(previous - actual);
perc_delta := (delta_glucose * 100.0) / actual;
if (perc_err < min_perc_err) then min_perc_err := perc_err; fi;
if (perc_err > max_perc_err) then max_perc_err := perc_err; fi;
tot_perc_err := tot_perc_err + perc_err;
if (actual < low_actual) then low_actual := actual; fi;
if (actual > high_actual) then high_actual := actual; fi;
if (prediction < low_prediction) then low_prediction := prediction; fi;
if (prediction > high_prediction) then high_prediction := prediction; fi;
count := count + 1.0;
out2 := [count, perc_err, actual,prediction,it_previous,it_previous * prior_factor,metabolism,it_ksteps * cal_per_ksteps,it_fat_other*cal_per_gram_fat,it_carb_other*cal_per_gram_carb,it_prot*cal_per_gram_prot,it_fiber*cal_per_gram_carb,it_sugar*cal_per_gram_carb,it_saturated*cal_per_gram_fat,it_fasted,order2, delta_method, kstep_method, recommended_ksteps, kstep_exponent, kstep_factor, recommended_fat, recommended_carb, recommended_prot, recommended_fiber, recommended_sugar, recommended_saturated ,factor1, factor2, recommended_fasted,prior_factor,fasted_factor,eliminate_extremes,ksteps,fat_other,carb_other,prot,fiber,sugar,saturated,fasted,C_ksteps,C_fat_other,C_carb_other,C_protein,C_fiber,C_sugar,C_saturated,C_fasted,cal_per_gram_carb,cal_per_gram_prot,cal_per_gram_fat,cal_per_ksteps];
writedata("OUT/out28_work.tmp", out2);
ksteps := 10.0;
kstep_factor := 20.;
fat := 130.0;
carb := 358.0;
prot := 56.2;
fiber := 21.7;
sugar := 143.0;
saturated := 32.1;
fasted := 7.0;
fat_other := 97.9;
carb_other := 193.3;
delta_ksteps :=  (recommended_ksteps - ksteps) * kstep_factor;
delta_fat_other := (fat_other - recommended_fat_other);
delta_carb_other := (carb_other - recommended_carb_other);
delta_prot := (prot - recommended_prot);
delta_fiber := (fiber - recommended_fiber);
delta_sugar := (sugar - recommended_sugar);
delta_saturated := (saturated - recommended_saturated);
delta_fasted := (fasted - recommended_fasted) * fasted_factor;
it_previous :=  106.0;
metabolism :=  0.;
it_ksteps := (C_ksteps) * (delta_ksteps);
it_fat_other := factor1  * ( C_fat_other ) * ( (delta_fat_other) );
it_carb_other := factor1  * ( C_carb_other ) * ( (delta_carb_other) );
it_prot := factor1  * ( C_protein ) * ( (delta_prot) );
it_fiber := factor1  * ( C_fiber ) * ( (delta_fiber) );
it_sugar :=  factor1  * ( C_sugar ) * ( (delta_sugar) );
it_saturated := factor1  * ( C_saturated ) * ( (delta_saturated) );
it_fasted := ( C_fasted ) * ( (delta_fasted) );
prediction  := evalf(it_previous * prior_factor
 + metabolism
 + it_ksteps * cal_per_ksteps
 + it_fat_other * cal_per_gram_fat
 + it_carb_other * cal_per_gram_carb
 + it_prot * cal_per_gram_prot
 + it_fiber * cal_per_gram_carb
 + it_sugar * cal_per_gram_carb
 + it_saturated * cal_per_gram_fat
 + it_fasted);
it_previous := 106.0;
actual := 104.0;
previous := 106.0;
err := abs(prediction - actual);
perc_err := abs(err * 100.0) / actual;
delta_glucose := abs(previous - actual);
perc_delta := (delta_glucose * 100.0) / actual;
if (perc_err < min_perc_err) then min_perc_err := perc_err; fi;
if (perc_err > max_perc_err) then max_perc_err := perc_err; fi;
tot_perc_err := tot_perc_err + perc_err;
if (actual < low_actual) then low_actual := actual; fi;
if (actual > high_actual) then high_actual := actual; fi;
if (prediction < low_prediction) then low_prediction := prediction; fi;
if (prediction > high_prediction) then high_prediction := prediction; fi;
count := count + 1.0;
out2 := [count, perc_err, actual,prediction,it_previous,it_previous * prior_factor,metabolism,it_ksteps * cal_per_ksteps,it_fat_other*cal_per_gram_fat,it_carb_other*cal_per_gram_carb,it_prot*cal_per_gram_prot,it_fiber*cal_per_gram_carb,it_sugar*cal_per_gram_carb,it_saturated*cal_per_gram_fat,it_fasted,order2, delta_method, kstep_method, recommended_ksteps, kstep_exponent, kstep_factor, recommended_fat, recommended_carb, recommended_prot, recommended_fiber, recommended_sugar, recommended_saturated ,factor1, factor2, recommended_fasted,prior_factor,fasted_factor,eliminate_extremes,ksteps,fat_other,carb_other,prot,fiber,sugar,saturated,fasted,C_ksteps,C_fat_other,C_carb_other,C_protein,C_fiber,C_sugar,C_saturated,C_fasted,cal_per_gram_carb,cal_per_gram_prot,cal_per_gram_fat,cal_per_ksteps];
writedata("OUT/out29_work.tmp", out2);
ksteps := 13.0;
kstep_factor := 20.;
fat := 178.0;
carb := 343.0;
prot := 64.2;
fiber := 22.3;
sugar := 154.0;
saturated := 45.9;
fasted := 8.5;
fat_other := 132.1;
carb_other := 166.7;
delta_ksteps :=  (recommended_ksteps - ksteps) * kstep_factor;
delta_fat_other := (fat_other - recommended_fat_other);
delta_carb_other := (carb_other - recommended_carb_other);
delta_prot := (prot - recommended_prot);
delta_fiber := (fiber - recommended_fiber);
delta_sugar := (sugar - recommended_sugar);
delta_saturated := (saturated - recommended_saturated);
delta_fasted := (fasted - recommended_fasted) * fasted_factor;
it_previous :=  102.0;
metabolism :=  0.;
it_ksteps := (C_ksteps) * (delta_ksteps);
it_fat_other := factor1  * ( C_fat_other ) * ( (delta_fat_other) );
it_carb_other := factor1  * ( C_carb_other ) * ( (delta_carb_other) );
it_prot := factor1  * ( C_protein ) * ( (delta_prot) );
it_fiber := factor1  * ( C_fiber ) * ( (delta_fiber) );
it_sugar :=  factor1  * ( C_sugar ) * ( (delta_sugar) );
it_saturated := factor1  * ( C_saturated ) * ( (delta_saturated) );
it_fasted := ( C_fasted ) * ( (delta_fasted) );
prediction  := evalf(it_previous * prior_factor
 + metabolism
 + it_ksteps * cal_per_ksteps
 + it_fat_other * cal_per_gram_fat
 + it_carb_other * cal_per_gram_carb
 + it_prot * cal_per_gram_prot
 + it_fiber * cal_per_gram_carb
 + it_sugar * cal_per_gram_carb
 + it_saturated * cal_per_gram_fat
 + it_fasted);
it_previous := 102.0;
actual := 106.0;
previous := 102.0;
err := abs(prediction - actual);
perc_err := abs(err * 100.0) / actual;
delta_glucose := abs(previous - actual);
perc_delta := (delta_glucose * 100.0) / actual;
if (perc_err < min_perc_err) then min_perc_err := perc_err; fi;
if (perc_err > max_perc_err) then max_perc_err := perc_err; fi;
tot_perc_err := tot_perc_err + perc_err;
if (actual < low_actual) then low_actual := actual; fi;
if (actual > high_actual) then high_actual := actual; fi;
if (prediction < low_prediction) then low_prediction := prediction; fi;
if (prediction > high_prediction) then high_prediction := prediction; fi;
count := count + 1.0;
out2 := [count, perc_err, actual,prediction,it_previous,it_previous * prior_factor,metabolism,it_ksteps * cal_per_ksteps,it_fat_other*cal_per_gram_fat,it_carb_other*cal_per_gram_carb,it_prot*cal_per_gram_prot,it_fiber*cal_per_gram_carb,it_sugar*cal_per_gram_carb,it_saturated*cal_per_gram_fat,it_fasted,order2, delta_method, kstep_method, recommended_ksteps, kstep_exponent, kstep_factor, recommended_fat, recommended_carb, recommended_prot, recommended_fiber, recommended_sugar, recommended_saturated ,factor1, factor2, recommended_fasted,prior_factor,fasted_factor,eliminate_extremes,ksteps,fat_other,carb_other,prot,fiber,sugar,saturated,fasted,C_ksteps,C_fat_other,C_carb_other,C_protein,C_fiber,C_sugar,C_saturated,C_fasted,cal_per_gram_carb,cal_per_gram_prot,cal_per_gram_fat,cal_per_ksteps];
writedata("OUT/out30_work.tmp", out2);
ksteps := 10.0;
kstep_factor := 20.;
fat := 199.0;
carb := 358.0;
prot := 86.1;
fiber := 27.1;
sugar := 123.0;
saturated := 51.9;
fasted := 6.0;
fat_other := 147.1;
carb_other := 207.9;
delta_ksteps :=  (recommended_ksteps - ksteps) * kstep_factor;
delta_fat_other := (fat_other - recommended_fat_other);
delta_carb_other := (carb_other - recommended_carb_other);
delta_prot := (prot - recommended_prot);
delta_fiber := (fiber - recommended_fiber);
delta_sugar := (sugar - recommended_sugar);
delta_saturated := (saturated - recommended_saturated);
delta_fasted := (fasted - recommended_fasted) * fasted_factor;
it_previous :=  133.0;
metabolism :=  0.;
it_ksteps := (C_ksteps) * (delta_ksteps);
it_fat_other := factor1  * ( C_fat_other ) * ( (delta_fat_other) );
it_carb_other := factor1  * ( C_carb_other ) * ( (delta_carb_other) );
it_prot := factor1  * ( C_protein ) * ( (delta_prot) );
it_fiber := factor1  * ( C_fiber ) * ( (delta_fiber) );
it_sugar :=  factor1  * ( C_sugar ) * ( (delta_sugar) );
it_saturated := factor1  * ( C_saturated ) * ( (delta_saturated) );
it_fasted := ( C_fasted ) * ( (delta_fasted) );
prediction  := evalf(it_previous * prior_factor
 + metabolism
 + it_ksteps * cal_per_ksteps
 + it_fat_other * cal_per_gram_fat
 + it_carb_other * cal_per_gram_carb
 + it_prot * cal_per_gram_prot
 + it_fiber * cal_per_gram_carb
 + it_sugar * cal_per_gram_carb
 + it_saturated * cal_per_gram_fat
 + it_fasted);
it_previous := 133.0;
actual := 102.0;
previous := 133.0;
err := abs(prediction - actual);
perc_err := abs(err * 100.0) / actual;
delta_glucose := abs(previous - actual);
perc_delta := (delta_glucose * 100.0) / actual;
if (perc_err < min_perc_err) then min_perc_err := perc_err; fi;
if (perc_err > max_perc_err) then max_perc_err := perc_err; fi;
tot_perc_err := tot_perc_err + perc_err;
if (actual < low_actual) then low_actual := actual; fi;
if (actual > high_actual) then high_actual := actual; fi;
if (prediction < low_prediction) then low_prediction := prediction; fi;
if (prediction > high_prediction) then high_prediction := prediction; fi;
count := count + 1.0;
out2 := [count, perc_err, actual,prediction,it_previous,it_previous * prior_factor,metabolism,it_ksteps * cal_per_ksteps,it_fat_other*cal_per_gram_fat,it_carb_other*cal_per_gram_carb,it_prot*cal_per_gram_prot,it_fiber*cal_per_gram_carb,it_sugar*cal_per_gram_carb,it_saturated*cal_per_gram_fat,it_fasted,order2, delta_method, kstep_method, recommended_ksteps, kstep_exponent, kstep_factor, recommended_fat, recommended_carb, recommended_prot, recommended_fiber, recommended_sugar, recommended_saturated ,factor1, factor2, recommended_fasted,prior_factor,fasted_factor,eliminate_extremes,ksteps,fat_other,carb_other,prot,fiber,sugar,saturated,fasted,C_ksteps,C_fat_other,C_carb_other,C_protein,C_fiber,C_sugar,C_saturated,C_fasted,cal_per_gram_carb,cal_per_gram_prot,cal_per_gram_fat,cal_per_ksteps];
writedata("OUT/out31_work.tmp", out2);
ksteps := 10.0;
kstep_factor := 20.;
fat := 144.0;
carb := 370.0;
prot := 57.4;
fiber := 17.7;
sugar := 153.0;
saturated := 46.6;
fasted := 4.5;
fat_other := 97.4;
carb_other := 199.3;
delta_ksteps :=  (recommended_ksteps - ksteps) * kstep_factor;
delta_fat_other := (fat_other - recommended_fat_other);
delta_carb_other := (carb_other - recommended_carb_other);
delta_prot := (prot - recommended_prot);
delta_fiber := (fiber - recommended_fiber);
delta_sugar := (sugar - recommended_sugar);
delta_saturated := (saturated - recommended_saturated);
delta_fasted := (fasted - recommended_fasted) * fasted_factor;
it_previous :=  95.0;
metabolism :=  0.;
it_ksteps := (C_ksteps) * (delta_ksteps);
it_fat_other := factor1  * ( C_fat_other ) * ( (delta_fat_other) );
it_carb_other := factor1  * ( C_carb_other ) * ( (delta_carb_other) );
it_prot := factor1  * ( C_protein ) * ( (delta_prot) );
it_fiber := factor1  * ( C_fiber ) * ( (delta_fiber) );
it_sugar :=  factor1  * ( C_sugar ) * ( (delta_sugar) );
it_saturated := factor1  * ( C_saturated ) * ( (delta_saturated) );
it_fasted := ( C_fasted ) * ( (delta_fasted) );
prediction  := evalf(it_previous * prior_factor
 + metabolism
 + it_ksteps * cal_per_ksteps
 + it_fat_other * cal_per_gram_fat
 + it_carb_other * cal_per_gram_carb
 + it_prot * cal_per_gram_prot
 + it_fiber * cal_per_gram_carb
 + it_sugar * cal_per_gram_carb
 + it_saturated * cal_per_gram_fat
 + it_fasted);
it_previous := 95.0;
actual := 133.0;
previous := 95.0;
err := abs(prediction - actual);
perc_err := abs(err * 100.0) / actual;
delta_glucose := abs(previous - actual);
perc_delta := (delta_glucose * 100.0) / actual;
if (perc_err < min_perc_err) then min_perc_err := perc_err; fi;
if (perc_err > max_perc_err) then max_perc_err := perc_err; fi;
tot_perc_err := tot_perc_err + perc_err;
if (actual < low_actual) then low_actual := actual; fi;
if (actual > high_actual) then high_actual := actual; fi;
if (prediction < low_prediction) then low_prediction := prediction; fi;
if (prediction > high_prediction) then high_prediction := prediction; fi;
count := count + 1.0;
out2 := [count, perc_err, actual,prediction,it_previous,it_previous * prior_factor,metabolism,it_ksteps * cal_per_ksteps,it_fat_other*cal_per_gram_fat,it_carb_other*cal_per_gram_carb,it_prot*cal_per_gram_prot,it_fiber*cal_per_gram_carb,it_sugar*cal_per_gram_carb,it_saturated*cal_per_gram_fat,it_fasted,order2, delta_method, kstep_method, recommended_ksteps, kstep_exponent, kstep_factor, recommended_fat, recommended_carb, recommended_prot, recommended_fiber, recommended_sugar, recommended_saturated ,factor1, factor2, recommended_fasted,prior_factor,fasted_factor,eliminate_extremes,ksteps,fat_other,carb_other,prot,fiber,sugar,saturated,fasted,C_ksteps,C_fat_other,C_carb_other,C_protein,C_fiber,C_sugar,C_saturated,C_fasted,cal_per_gram_carb,cal_per_gram_prot,cal_per_gram_fat,cal_per_ksteps];
writedata("OUT/out32_work.tmp", out2);
ksteps := 13.0;
kstep_factor := 20.;
fat := 149.0;
carb := 331.0;
prot := 98.6;
fiber := 30.0;
sugar := 129.0;
saturated := 34.2;
fasted := 8.0;
fat_other := 114.8;
carb_other := 172.;
delta_ksteps :=  (recommended_ksteps - ksteps) * kstep_factor;
delta_fat_other := (fat_other - recommended_fat_other);
delta_carb_other := (carb_other - recommended_carb_other);
delta_prot := (prot - recommended_prot);
delta_fiber := (fiber - recommended_fiber);
delta_sugar := (sugar - recommended_sugar);
delta_saturated := (saturated - recommended_saturated);
delta_fasted := (fasted - recommended_fasted) * fasted_factor;
it_previous :=  112.0;
metabolism :=  0.;
it_ksteps := (C_ksteps) * (delta_ksteps);
it_fat_other := factor1  * ( C_fat_other ) * ( (delta_fat_other) );
it_carb_other := factor1  * ( C_carb_other ) * ( (delta_carb_other) );
it_prot := factor1  * ( C_protein ) * ( (delta_prot) );
it_fiber := factor1  * ( C_fiber ) * ( (delta_fiber) );
it_sugar :=  factor1  * ( C_sugar ) * ( (delta_sugar) );
it_saturated := factor1  * ( C_saturated ) * ( (delta_saturated) );
it_fasted := ( C_fasted ) * ( (delta_fasted) );
prediction  := evalf(it_previous * prior_factor
 + metabolism
 + it_ksteps * cal_per_ksteps
 + it_fat_other * cal_per_gram_fat
 + it_carb_other * cal_per_gram_carb
 + it_prot * cal_per_gram_prot
 + it_fiber * cal_per_gram_carb
 + it_sugar * cal_per_gram_carb
 + it_saturated * cal_per_gram_fat
 + it_fasted);
it_previous := 112.0;
actual := 95.0;
previous := 112.0;
err := abs(prediction - actual);
perc_err := abs(err * 100.0) / actual;
delta_glucose := abs(previous - actual);
perc_delta := (delta_glucose * 100.0) / actual;
if (perc_err < min_perc_err) then min_perc_err := perc_err; fi;
if (perc_err > max_perc_err) then max_perc_err := perc_err; fi;
tot_perc_err := tot_perc_err + perc_err;
if (actual < low_actual) then low_actual := actual; fi;
if (actual > high_actual) then high_actual := actual; fi;
if (prediction < low_prediction) then low_prediction := prediction; fi;
if (prediction > high_prediction) then high_prediction := prediction; fi;
count := count + 1.0;
out2 := [count, perc_err, actual,prediction,it_previous,it_previous * prior_factor,metabolism,it_ksteps * cal_per_ksteps,it_fat_other*cal_per_gram_fat,it_carb_other*cal_per_gram_carb,it_prot*cal_per_gram_prot,it_fiber*cal_per_gram_carb,it_sugar*cal_per_gram_carb,it_saturated*cal_per_gram_fat,it_fasted,order2, delta_method, kstep_method, recommended_ksteps, kstep_exponent, kstep_factor, recommended_fat, recommended_carb, recommended_prot, recommended_fiber, recommended_sugar, recommended_saturated ,factor1, factor2, recommended_fasted,prior_factor,fasted_factor,eliminate_extremes,ksteps,fat_other,carb_other,prot,fiber,sugar,saturated,fasted,C_ksteps,C_fat_other,C_carb_other,C_protein,C_fiber,C_sugar,C_saturated,C_fasted,cal_per_gram_carb,cal_per_gram_prot,cal_per_gram_fat,cal_per_ksteps];
writedata("OUT/out33_work.tmp", out2);
ksteps := 10.0;
kstep_factor := 20.;
fat := 172.0;
carb := 357.0;
prot := 63.7;
fiber := 17.0;
sugar := 160.0;
saturated := 42.0;
fasted := 8.0;
fat_other := 130.;
carb_other := 180.;
delta_ksteps :=  (recommended_ksteps - ksteps) * kstep_factor;
delta_fat_other := (fat_other - recommended_fat_other);
delta_carb_other := (carb_other - recommended_carb_other);
delta_prot := (prot - recommended_prot);
delta_fiber := (fiber - recommended_fiber);
delta_sugar := (sugar - recommended_sugar);
delta_saturated := (saturated - recommended_saturated);
delta_fasted := (fasted - recommended_fasted) * fasted_factor;
it_previous :=  83.0;
metabolism :=  0.;
it_ksteps := (C_ksteps) * (delta_ksteps);
it_fat_other := factor1  * ( C_fat_other ) * ( (delta_fat_other) );
it_carb_other := factor1  * ( C_carb_other ) * ( (delta_carb_other) );
it_prot := factor1  * ( C_protein ) * ( (delta_prot) );
it_fiber := factor1  * ( C_fiber ) * ( (delta_fiber) );
it_sugar :=  factor1  * ( C_sugar ) * ( (delta_sugar) );
it_saturated := factor1  * ( C_saturated ) * ( (delta_saturated) );
it_fasted := ( C_fasted ) * ( (delta_fasted) );
prediction  := evalf(it_previous * prior_factor
 + metabolism
 + it_ksteps * cal_per_ksteps
 + it_fat_other * cal_per_gram_fat
 + it_carb_other * cal_per_gram_carb
 + it_prot * cal_per_gram_prot
 + it_fiber * cal_per_gram_carb
 + it_sugar * cal_per_gram_carb
 + it_saturated * cal_per_gram_fat
 + it_fasted);
it_previous := 83.0;
actual := 112.0;
previous := 83.0;
err := abs(prediction - actual);
perc_err := abs(err * 100.0) / actual;
delta_glucose := abs(previous - actual);
perc_delta := (delta_glucose * 100.0) / actual;
if (perc_err < min_perc_err) then min_perc_err := perc_err; fi;
if (perc_err > max_perc_err) then max_perc_err := perc_err; fi;
tot_perc_err := tot_perc_err + perc_err;
if (actual < low_actual) then low_actual := actual; fi;
if (actual > high_actual) then high_actual := actual; fi;
if (prediction < low_prediction) then low_prediction := prediction; fi;
if (prediction > high_prediction) then high_prediction := prediction; fi;
count := count + 1.0;
out2 := [count, perc_err, actual,prediction,it_previous,it_previous * prior_factor,metabolism,it_ksteps * cal_per_ksteps,it_fat_other*cal_per_gram_fat,it_carb_other*cal_per_gram_carb,it_prot*cal_per_gram_prot,it_fiber*cal_per_gram_carb,it_sugar*cal_per_gram_carb,it_saturated*cal_per_gram_fat,it_fasted,order2, delta_method, kstep_method, recommended_ksteps, kstep_exponent, kstep_factor, recommended_fat, recommended_carb, recommended_prot, recommended_fiber, recommended_sugar, recommended_saturated ,factor1, factor2, recommended_fasted,prior_factor,fasted_factor,eliminate_extremes,ksteps,fat_other,carb_other,prot,fiber,sugar,saturated,fasted,C_ksteps,C_fat_other,C_carb_other,C_protein,C_fiber,C_sugar,C_saturated,C_fasted,cal_per_gram_carb,cal_per_gram_prot,cal_per_gram_fat,cal_per_ksteps];
writedata("OUT/out34_work.tmp", out2);
ksteps := 10.0;
kstep_factor := 20.;
fat := 159.0;
carb := 328.0;
prot := 57.1;
fiber := 14.9;
sugar := 124.0;
saturated := 36.0;
fasted := 6.5;
fat_other := 123.;
carb_other := 189.1;
delta_ksteps :=  (recommended_ksteps - ksteps) * kstep_factor;
delta_fat_other := (fat_other - recommended_fat_other);
delta_carb_other := (carb_other - recommended_carb_other);
delta_prot := (prot - recommended_prot);
delta_fiber := (fiber - recommended_fiber);
delta_sugar := (sugar - recommended_sugar);
delta_saturated := (saturated - recommended_saturated);
delta_fasted := (fasted - recommended_fasted) * fasted_factor;
it_previous :=  117.0;
metabolism :=  0.;
it_ksteps := (C_ksteps) * (delta_ksteps);
it_fat_other := factor1  * ( C_fat_other ) * ( (delta_fat_other) );
it_carb_other := factor1  * ( C_carb_other ) * ( (delta_carb_other) );
it_prot := factor1  * ( C_protein ) * ( (delta_prot) );
it_fiber := factor1  * ( C_fiber ) * ( (delta_fiber) );
it_sugar :=  factor1  * ( C_sugar ) * ( (delta_sugar) );
it_saturated := factor1  * ( C_saturated ) * ( (delta_saturated) );
it_fasted := ( C_fasted ) * ( (delta_fasted) );
prediction  := evalf(it_previous * prior_factor
 + metabolism
 + it_ksteps * cal_per_ksteps
 + it_fat_other * cal_per_gram_fat
 + it_carb_other * cal_per_gram_carb
 + it_prot * cal_per_gram_prot
 + it_fiber * cal_per_gram_carb
 + it_sugar * cal_per_gram_carb
 + it_saturated * cal_per_gram_fat
 + it_fasted);
it_previous := 117.0;
actual := 83.0;
previous := 117.0;
err := abs(prediction - actual);
perc_err := abs(err * 100.0) / actual;
delta_glucose := abs(previous - actual);
perc_delta := (delta_glucose * 100.0) / actual;
if (perc_err < min_perc_err) then min_perc_err := perc_err; fi;
if (perc_err > max_perc_err) then max_perc_err := perc_err; fi;
tot_perc_err := tot_perc_err + perc_err;
if (actual < low_actual) then low_actual := actual; fi;
if (actual > high_actual) then high_actual := actual; fi;
if (prediction < low_prediction) then low_prediction := prediction; fi;
if (prediction > high_prediction) then high_prediction := prediction; fi;
count := count + 1.0;
out2 := [count, perc_err, actual,prediction,it_previous,it_previous * prior_factor,metabolism,it_ksteps * cal_per_ksteps,it_fat_other*cal_per_gram_fat,it_carb_other*cal_per_gram_carb,it_prot*cal_per_gram_prot,it_fiber*cal_per_gram_carb,it_sugar*cal_per_gram_carb,it_saturated*cal_per_gram_fat,it_fasted,order2, delta_method, kstep_method, recommended_ksteps, kstep_exponent, kstep_factor, recommended_fat, recommended_carb, recommended_prot, recommended_fiber, recommended_sugar, recommended_saturated ,factor1, factor2, recommended_fasted,prior_factor,fasted_factor,eliminate_extremes,ksteps,fat_other,carb_other,prot,fiber,sugar,saturated,fasted,C_ksteps,C_fat_other,C_carb_other,C_protein,C_fiber,C_sugar,C_saturated,C_fasted,cal_per_gram_carb,cal_per_gram_prot,cal_per_gram_fat,cal_per_ksteps];
writedata("OUT/out35_work.tmp", out2);
ksteps := 10.0;
kstep_factor := 20.;
fat := 191.0;
carb := 357.0;
prot := 73.8;
fiber := 19.9;
sugar := 153.0;
saturated := 46.1;
fasted := 5.5;
fat_other := 144.9;
carb_other := 184.1;
delta_ksteps :=  (recommended_ksteps - ksteps) * kstep_factor;
delta_fat_other := (fat_other - recommended_fat_other);
delta_carb_other := (carb_other - recommended_carb_other);
delta_prot := (prot - recommended_prot);
delta_fiber := (fiber - recommended_fiber);
delta_sugar := (sugar - recommended_sugar);
delta_saturated := (saturated - recommended_saturated);
delta_fasted := (fasted - recommended_fasted) * fasted_factor;
it_previous :=  105.0;
metabolism :=  0.;
it_ksteps := (C_ksteps) * (delta_ksteps);
it_fat_other := factor1  * ( C_fat_other ) * ( (delta_fat_other) );
it_carb_other := factor1  * ( C_carb_other ) * ( (delta_carb_other) );
it_prot := factor1  * ( C_protein ) * ( (delta_prot) );
it_fiber := factor1  * ( C_fiber ) * ( (delta_fiber) );
it_sugar :=  factor1  * ( C_sugar ) * ( (delta_sugar) );
it_saturated := factor1  * ( C_saturated ) * ( (delta_saturated) );
it_fasted := ( C_fasted ) * ( (delta_fasted) );
prediction  := evalf(it_previous * prior_factor
 + metabolism
 + it_ksteps * cal_per_ksteps
 + it_fat_other * cal_per_gram_fat
 + it_carb_other * cal_per_gram_carb
 + it_prot * cal_per_gram_prot
 + it_fiber * cal_per_gram_carb
 + it_sugar * cal_per_gram_carb
 + it_saturated * cal_per_gram_fat
 + it_fasted);
it_previous := 105.0;
actual := 85.0;
previous := 105.0;
err := abs(prediction - actual);
perc_err := abs(err * 100.0) / actual;
delta_glucose := abs(previous - actual);
perc_delta := (delta_glucose * 100.0) / actual;
if (perc_err < min_perc_err) then min_perc_err := perc_err; fi;
if (perc_err > max_perc_err) then max_perc_err := perc_err; fi;
tot_perc_err := tot_perc_err + perc_err;
if (actual < low_actual) then low_actual := actual; fi;
if (actual > high_actual) then high_actual := actual; fi;
if (prediction < low_prediction) then low_prediction := prediction; fi;
if (prediction > high_prediction) then high_prediction := prediction; fi;
count := count + 1.0;
out2 := [count, perc_err, actual,prediction,it_previous,it_previous * prior_factor,metabolism,it_ksteps * cal_per_ksteps,it_fat_other*cal_per_gram_fat,it_carb_other*cal_per_gram_carb,it_prot*cal_per_gram_prot,it_fiber*cal_per_gram_carb,it_sugar*cal_per_gram_carb,it_saturated*cal_per_gram_fat,it_fasted,order2, delta_method, kstep_method, recommended_ksteps, kstep_exponent, kstep_factor, recommended_fat, recommended_carb, recommended_prot, recommended_fiber, recommended_sugar, recommended_saturated ,factor1, factor2, recommended_fasted,prior_factor,fasted_factor,eliminate_extremes,ksteps,fat_other,carb_other,prot,fiber,sugar,saturated,fasted,C_ksteps,C_fat_other,C_carb_other,C_protein,C_fiber,C_sugar,C_saturated,C_fasted,cal_per_gram_carb,cal_per_gram_prot,cal_per_gram_fat,cal_per_ksteps];
writedata("OUT/out36_work.tmp", out2);
ksteps := 6.0;
kstep_factor := 20.;
fat := 133.0;
carb := 217.0;
prot := 38.1;
fiber := 12.5;
sugar := 104.0;
saturated := 29.9;
fasted := 4.5;
fat_other := 103.1;
carb_other := 100.5;
delta_ksteps :=  (recommended_ksteps - ksteps) * kstep_factor;
delta_fat_other := (fat_other - recommended_fat_other);
delta_carb_other := (carb_other - recommended_carb_other);
delta_prot := (prot - recommended_prot);
delta_fiber := (fiber - recommended_fiber);
delta_sugar := (sugar - recommended_sugar);
delta_saturated := (saturated - recommended_saturated);
delta_fasted := (fasted - recommended_fasted) * fasted_factor;
it_previous :=  148.0;
metabolism :=  0.;
it_ksteps := (C_ksteps) * (delta_ksteps);
it_fat_other := factor1  * ( C_fat_other ) * ( (delta_fat_other) );
it_carb_other := factor1  * ( C_carb_other ) * ( (delta_carb_other) );
it_prot := factor1  * ( C_protein ) * ( (delta_prot) );
it_fiber := factor1  * ( C_fiber ) * ( (delta_fiber) );
it_sugar :=  factor1  * ( C_sugar ) * ( (delta_sugar) );
it_saturated := factor1  * ( C_saturated ) * ( (delta_saturated) );
it_fasted := ( C_fasted ) * ( (delta_fasted) );
prediction  := evalf(it_previous * prior_factor
 + metabolism
 + it_ksteps * cal_per_ksteps
 + it_fat_other * cal_per_gram_fat
 + it_carb_other * cal_per_gram_carb
 + it_prot * cal_per_gram_prot
 + it_fiber * cal_per_gram_carb
 + it_sugar * cal_per_gram_carb
 + it_saturated * cal_per_gram_fat
 + it_fasted);
it_previous := 148.0;
actual := 105.0;
previous := 148.0;
err := abs(prediction - actual);
perc_err := abs(err * 100.0) / actual;
delta_glucose := abs(previous - actual);
perc_delta := (delta_glucose * 100.0) / actual;
if (perc_err < min_perc_err) then min_perc_err := perc_err; fi;
if (perc_err > max_perc_err) then max_perc_err := perc_err; fi;
tot_perc_err := tot_perc_err + perc_err;
if (actual < low_actual) then low_actual := actual; fi;
if (actual > high_actual) then high_actual := actual; fi;
if (prediction < low_prediction) then low_prediction := prediction; fi;
if (prediction > high_prediction) then high_prediction := prediction; fi;
count := count + 1.0;
out2 := [count, perc_err, actual,prediction,it_previous,it_previous * prior_factor,metabolism,it_ksteps * cal_per_ksteps,it_fat_other*cal_per_gram_fat,it_carb_other*cal_per_gram_carb,it_prot*cal_per_gram_prot,it_fiber*cal_per_gram_carb,it_sugar*cal_per_gram_carb,it_saturated*cal_per_gram_fat,it_fasted,order2, delta_method, kstep_method, recommended_ksteps, kstep_exponent, kstep_factor, recommended_fat, recommended_carb, recommended_prot, recommended_fiber, recommended_sugar, recommended_saturated ,factor1, factor2, recommended_fasted,prior_factor,fasted_factor,eliminate_extremes,ksteps,fat_other,carb_other,prot,fiber,sugar,saturated,fasted,C_ksteps,C_fat_other,C_carb_other,C_protein,C_fiber,C_sugar,C_saturated,C_fasted,cal_per_gram_carb,cal_per_gram_prot,cal_per_gram_fat,cal_per_ksteps];
writedata("OUT/out37_work.tmp", out2);
ksteps := 3.0;
kstep_factor := 20.;
fat := 217.0;
carb := 324.0;
prot := 95.0;
fiber := 32.0;
sugar := 193.0;
saturated := 58.3;
fasted := 5.5;
fat_other := 158.7;
carb_other := 99.;
delta_ksteps :=  (recommended_ksteps - ksteps) * kstep_factor;
delta_fat_other := (fat_other - recommended_fat_other);
delta_carb_other := (carb_other - recommended_carb_other);
delta_prot := (prot - recommended_prot);
delta_fiber := (fiber - recommended_fiber);
delta_sugar := (sugar - recommended_sugar);
delta_saturated := (saturated - recommended_saturated);
delta_fasted := (fasted - recommended_fasted) * fasted_factor;
it_previous :=  117.0;
metabolism :=  0.;
it_ksteps := (C_ksteps) * (delta_ksteps);
it_fat_other := factor1  * ( C_fat_other ) * ( (delta_fat_other) );
it_carb_other := factor1  * ( C_carb_other ) * ( (delta_carb_other) );
it_prot := factor1  * ( C_protein ) * ( (delta_prot) );
it_fiber := factor1  * ( C_fiber ) * ( (delta_fiber) );
it_sugar :=  factor1  * ( C_sugar ) * ( (delta_sugar) );
it_saturated := factor1  * ( C_saturated ) * ( (delta_saturated) );
it_fasted := ( C_fasted ) * ( (delta_fasted) );
prediction  := evalf(it_previous * prior_factor
 + metabolism
 + it_ksteps * cal_per_ksteps
 + it_fat_other * cal_per_gram_fat
 + it_carb_other * cal_per_gram_carb
 + it_prot * cal_per_gram_prot
 + it_fiber * cal_per_gram_carb
 + it_sugar * cal_per_gram_carb
 + it_saturated * cal_per_gram_fat
 + it_fasted);
it_previous := 117.0;
actual := 148.0;
previous := 117.0;
err := abs(prediction - actual);
perc_err := abs(err * 100.0) / actual;
delta_glucose := abs(previous - actual);
perc_delta := (delta_glucose * 100.0) / actual;
if (perc_err < min_perc_err) then min_perc_err := perc_err; fi;
if (perc_err > max_perc_err) then max_perc_err := perc_err; fi;
tot_perc_err := tot_perc_err + perc_err;
if (actual < low_actual) then low_actual := actual; fi;
if (actual > high_actual) then high_actual := actual; fi;
if (prediction < low_prediction) then low_prediction := prediction; fi;
if (prediction > high_prediction) then high_prediction := prediction; fi;
count := count + 1.0;
out2 := [count, perc_err, actual,prediction,it_previous,it_previous * prior_factor,metabolism,it_ksteps * cal_per_ksteps,it_fat_other*cal_per_gram_fat,it_carb_other*cal_per_gram_carb,it_prot*cal_per_gram_prot,it_fiber*cal_per_gram_carb,it_sugar*cal_per_gram_carb,it_saturated*cal_per_gram_fat,it_fasted,order2, delta_method, kstep_method, recommended_ksteps, kstep_exponent, kstep_factor, recommended_fat, recommended_carb, recommended_prot, recommended_fiber, recommended_sugar, recommended_saturated ,factor1, factor2, recommended_fasted,prior_factor,fasted_factor,eliminate_extremes,ksteps,fat_other,carb_other,prot,fiber,sugar,saturated,fasted,C_ksteps,C_fat_other,C_carb_other,C_protein,C_fiber,C_sugar,C_saturated,C_fasted,cal_per_gram_carb,cal_per_gram_prot,cal_per_gram_fat,cal_per_ksteps];
writedata("OUT/out38_work.tmp", out2);
ksteps := 3.0;
kstep_factor := 20.;
fat := 124.0;
carb := 192.0;
prot := 76.6;
fiber := 15.2;
sugar := 111.0;
saturated := 46.8;
fasted := 9.0;
fat_other := 77.2;
carb_other := 65.8;
delta_ksteps :=  (recommended_ksteps - ksteps) * kstep_factor;
delta_fat_other := (fat_other - recommended_fat_other);
delta_carb_other := (carb_other - recommended_carb_other);
delta_prot := (prot - recommended_prot);
delta_fiber := (fiber - recommended_fiber);
delta_sugar := (sugar - recommended_sugar);
delta_saturated := (saturated - recommended_saturated);
delta_fasted := (fasted - recommended_fasted) * fasted_factor;
it_previous :=  113.0;
metabolism :=  0.;
it_ksteps := (C_ksteps) * (delta_ksteps);
it_fat_other := factor1  * ( C_fat_other ) * ( (delta_fat_other) );
it_carb_other := factor1  * ( C_carb_other ) * ( (delta_carb_other) );
it_prot := factor1  * ( C_protein ) * ( (delta_prot) );
it_fiber := factor1  * ( C_fiber ) * ( (delta_fiber) );
it_sugar :=  factor1  * ( C_sugar ) * ( (delta_sugar) );
it_saturated := factor1  * ( C_saturated ) * ( (delta_saturated) );
it_fasted := ( C_fasted ) * ( (delta_fasted) );
prediction  := evalf(it_previous * prior_factor
 + metabolism
 + it_ksteps * cal_per_ksteps
 + it_fat_other * cal_per_gram_fat
 + it_carb_other * cal_per_gram_carb
 + it_prot * cal_per_gram_prot
 + it_fiber * cal_per_gram_carb
 + it_sugar * cal_per_gram_carb
 + it_saturated * cal_per_gram_fat
 + it_fasted);
it_previous := 113.0;
actual := 117.0;
previous := 113.0;
err := abs(prediction - actual);
perc_err := abs(err * 100.0) / actual;
delta_glucose := abs(previous - actual);
perc_delta := (delta_glucose * 100.0) / actual;
if (perc_err < min_perc_err) then min_perc_err := perc_err; fi;
if (perc_err > max_perc_err) then max_perc_err := perc_err; fi;
tot_perc_err := tot_perc_err + perc_err;
if (actual < low_actual) then low_actual := actual; fi;
if (actual > high_actual) then high_actual := actual; fi;
if (prediction < low_prediction) then low_prediction := prediction; fi;
if (prediction > high_prediction) then high_prediction := prediction; fi;
count := count + 1.0;
out2 := [count, perc_err, actual,prediction,it_previous,it_previous * prior_factor,metabolism,it_ksteps * cal_per_ksteps,it_fat_other*cal_per_gram_fat,it_carb_other*cal_per_gram_carb,it_prot*cal_per_gram_prot,it_fiber*cal_per_gram_carb,it_sugar*cal_per_gram_carb,it_saturated*cal_per_gram_fat,it_fasted,order2, delta_method, kstep_method, recommended_ksteps, kstep_exponent, kstep_factor, recommended_fat, recommended_carb, recommended_prot, recommended_fiber, recommended_sugar, recommended_saturated ,factor1, factor2, recommended_fasted,prior_factor,fasted_factor,eliminate_extremes,ksteps,fat_other,carb_other,prot,fiber,sugar,saturated,fasted,C_ksteps,C_fat_other,C_carb_other,C_protein,C_fiber,C_sugar,C_saturated,C_fasted,cal_per_gram_carb,cal_per_gram_prot,cal_per_gram_fat,cal_per_ksteps];
writedata("OUT/out39_work.tmp", out2);
ksteps := 4.0;
kstep_factor := 20.;
fat := 45.0;
carb := 172.0;
prot := 44.7;
fiber := 5.51;
sugar := 128.0;
saturated := 26.7;
fasted := 8.5;
fat_other := 18.3;
carb_other := 38.49;
delta_ksteps :=  (recommended_ksteps - ksteps) * kstep_factor;
delta_fat_other := (fat_other - recommended_fat_other);
delta_carb_other := (carb_other - recommended_carb_other);
delta_prot := (prot - recommended_prot);
delta_fiber := (fiber - recommended_fiber);
delta_sugar := (sugar - recommended_sugar);
delta_saturated := (saturated - recommended_saturated);
delta_fasted := (fasted - recommended_fasted) * fasted_factor;
it_previous :=  104.0;
metabolism :=  0.;
it_ksteps := (C_ksteps) * (delta_ksteps);
it_fat_other := factor1  * ( C_fat_other ) * ( (delta_fat_other) );
it_carb_other := factor1  * ( C_carb_other ) * ( (delta_carb_other) );
it_prot := factor1  * ( C_protein ) * ( (delta_prot) );
it_fiber := factor1  * ( C_fiber ) * ( (delta_fiber) );
it_sugar :=  factor1  * ( C_sugar ) * ( (delta_sugar) );
it_saturated := factor1  * ( C_saturated ) * ( (delta_saturated) );
it_fasted := ( C_fasted ) * ( (delta_fasted) );
prediction  := evalf(it_previous * prior_factor
 + metabolism
 + it_ksteps * cal_per_ksteps
 + it_fat_other * cal_per_gram_fat
 + it_carb_other * cal_per_gram_carb
 + it_prot * cal_per_gram_prot
 + it_fiber * cal_per_gram_carb
 + it_sugar * cal_per_gram_carb
 + it_saturated * cal_per_gram_fat
 + it_fasted);
it_previous := 104.0;
actual := 113.0;
previous := 104.0;
err := abs(prediction - actual);
perc_err := abs(err * 100.0) / actual;
delta_glucose := abs(previous - actual);
perc_delta := (delta_glucose * 100.0) / actual;
if (perc_err < min_perc_err) then min_perc_err := perc_err; fi;
if (perc_err > max_perc_err) then max_perc_err := perc_err; fi;
tot_perc_err := tot_perc_err + perc_err;
if (actual < low_actual) then low_actual := actual; fi;
if (actual > high_actual) then high_actual := actual; fi;
if (prediction < low_prediction) then low_prediction := prediction; fi;
if (prediction > high_prediction) then high_prediction := prediction; fi;
count := count + 1.0;
out2 := [count, perc_err, actual,prediction,it_previous,it_previous * prior_factor,metabolism,it_ksteps * cal_per_ksteps,it_fat_other*cal_per_gram_fat,it_carb_other*cal_per_gram_carb,it_prot*cal_per_gram_prot,it_fiber*cal_per_gram_carb,it_sugar*cal_per_gram_carb,it_saturated*cal_per_gram_fat,it_fasted,order2, delta_method, kstep_method, recommended_ksteps, kstep_exponent, kstep_factor, recommended_fat, recommended_carb, recommended_prot, recommended_fiber, recommended_sugar, recommended_saturated ,factor1, factor2, recommended_fasted,prior_factor,fasted_factor,eliminate_extremes,ksteps,fat_other,carb_other,prot,fiber,sugar,saturated,fasted,C_ksteps,C_fat_other,C_carb_other,C_protein,C_fiber,C_sugar,C_saturated,C_fasted,cal_per_gram_carb,cal_per_gram_prot,cal_per_gram_fat,cal_per_ksteps];
writedata("OUT/out40_work.tmp", out2);
ksteps := 10.0;
kstep_factor := 20.;
fat := 274.0;
carb := 268.0;
prot := 113.0;
fiber := 31.2;
sugar := 139.0;
saturated := 65.9;
fasted := 6.0;
fat_other := 208.1;
carb_other := 97.8;
delta_ksteps :=  (recommended_ksteps - ksteps) * kstep_factor;
delta_fat_other := (fat_other - recommended_fat_other);
delta_carb_other := (carb_other - recommended_carb_other);
delta_prot := (prot - recommended_prot);
delta_fiber := (fiber - recommended_fiber);
delta_sugar := (sugar - recommended_sugar);
delta_saturated := (saturated - recommended_saturated);
delta_fasted := (fasted - recommended_fasted) * fasted_factor;
it_previous :=  83.0;
metabolism :=  0.;
it_ksteps := (C_ksteps) * (delta_ksteps);
it_fat_other := factor1  * ( C_fat_other ) * ( (delta_fat_other) );
it_carb_other := factor1  * ( C_carb_other ) * ( (delta_carb_other) );
it_prot := factor1  * ( C_protein ) * ( (delta_prot) );
it_fiber := factor1  * ( C_fiber ) * ( (delta_fiber) );
it_sugar :=  factor1  * ( C_sugar ) * ( (delta_sugar) );
it_saturated := factor1  * ( C_saturated ) * ( (delta_saturated) );
it_fasted := ( C_fasted ) * ( (delta_fasted) );
prediction  := evalf(it_previous * prior_factor
 + metabolism
 + it_ksteps * cal_per_ksteps
 + it_fat_other * cal_per_gram_fat
 + it_carb_other * cal_per_gram_carb
 + it_prot * cal_per_gram_prot
 + it_fiber * cal_per_gram_carb
 + it_sugar * cal_per_gram_carb
 + it_saturated * cal_per_gram_fat
 + it_fasted);
it_previous := 83.0;
actual := 104.0;
previous := 83.0;
err := abs(prediction - actual);
perc_err := abs(err * 100.0) / actual;
delta_glucose := abs(previous - actual);
perc_delta := (delta_glucose * 100.0) / actual;
if (perc_err < min_perc_err) then min_perc_err := perc_err; fi;
if (perc_err > max_perc_err) then max_perc_err := perc_err; fi;
tot_perc_err := tot_perc_err + perc_err;
if (actual < low_actual) then low_actual := actual; fi;
if (actual > high_actual) then high_actual := actual; fi;
if (prediction < low_prediction) then low_prediction := prediction; fi;
if (prediction > high_prediction) then high_prediction := prediction; fi;
count := count + 1.0;
out2 := [count, perc_err, actual,prediction,it_previous,it_previous * prior_factor,metabolism,it_ksteps * cal_per_ksteps,it_fat_other*cal_per_gram_fat,it_carb_other*cal_per_gram_carb,it_prot*cal_per_gram_prot,it_fiber*cal_per_gram_carb,it_sugar*cal_per_gram_carb,it_saturated*cal_per_gram_fat,it_fasted,order2, delta_method, kstep_method, recommended_ksteps, kstep_exponent, kstep_factor, recommended_fat, recommended_carb, recommended_prot, recommended_fiber, recommended_sugar, recommended_saturated ,factor1, factor2, recommended_fasted,prior_factor,fasted_factor,eliminate_extremes,ksteps,fat_other,carb_other,prot,fiber,sugar,saturated,fasted,C_ksteps,C_fat_other,C_carb_other,C_protein,C_fiber,C_sugar,C_saturated,C_fasted,cal_per_gram_carb,cal_per_gram_prot,cal_per_gram_fat,cal_per_ksteps];
writedata("OUT/out41_work.tmp", out2);
ksteps := 10.0;
kstep_factor := 20.;
fat := 96.0;
carb := 214.0;
prot := 42.3;
fiber := 12.1;
sugar := 106.0;
saturated := 25.7;
fasted := 5.5;
fat_other := 70.3;
carb_other := 95.9;
delta_ksteps :=  (recommended_ksteps - ksteps) * kstep_factor;
delta_fat_other := (fat_other - recommended_fat_other);
delta_carb_other := (carb_other - recommended_carb_other);
delta_prot := (prot - recommended_prot);
delta_fiber := (fiber - recommended_fiber);
delta_sugar := (sugar - recommended_sugar);
delta_saturated := (saturated - recommended_saturated);
delta_fasted := (fasted - recommended_fasted) * fasted_factor;
it_previous :=  153.0;
metabolism :=  0.;
it_ksteps := (C_ksteps) * (delta_ksteps);
it_fat_other := factor1  * ( C_fat_other ) * ( (delta_fat_other) );
it_carb_other := factor1  * ( C_carb_other ) * ( (delta_carb_other) );
it_prot := factor1  * ( C_protein ) * ( (delta_prot) );
it_fiber := factor1  * ( C_fiber ) * ( (delta_fiber) );
it_sugar :=  factor1  * ( C_sugar ) * ( (delta_sugar) );
it_saturated := factor1  * ( C_saturated ) * ( (delta_saturated) );
it_fasted := ( C_fasted ) * ( (delta_fasted) );
prediction  := evalf(it_previous * prior_factor
 + metabolism
 + it_ksteps * cal_per_ksteps
 + it_fat_other * cal_per_gram_fat
 + it_carb_other * cal_per_gram_carb
 + it_prot * cal_per_gram_prot
 + it_fiber * cal_per_gram_carb
 + it_sugar * cal_per_gram_carb
 + it_saturated * cal_per_gram_fat
 + it_fasted);
it_previous := 153.0;
actual := 83.0;
previous := 153.0;
err := abs(prediction - actual);
perc_err := abs(err * 100.0) / actual;
delta_glucose := abs(previous - actual);
perc_delta := (delta_glucose * 100.0) / actual;
if (perc_err < min_perc_err) then min_perc_err := perc_err; fi;
if (perc_err > max_perc_err) then max_perc_err := perc_err; fi;
tot_perc_err := tot_perc_err + perc_err;
if (actual < low_actual) then low_actual := actual; fi;
if (actual > high_actual) then high_actual := actual; fi;
if (prediction < low_prediction) then low_prediction := prediction; fi;
if (prediction > high_prediction) then high_prediction := prediction; fi;
count := count + 1.0;
out2 := [count, perc_err, actual,prediction,it_previous,it_previous * prior_factor,metabolism,it_ksteps * cal_per_ksteps,it_fat_other*cal_per_gram_fat,it_carb_other*cal_per_gram_carb,it_prot*cal_per_gram_prot,it_fiber*cal_per_gram_carb,it_sugar*cal_per_gram_carb,it_saturated*cal_per_gram_fat,it_fasted,order2, delta_method, kstep_method, recommended_ksteps, kstep_exponent, kstep_factor, recommended_fat, recommended_carb, recommended_prot, recommended_fiber, recommended_sugar, recommended_saturated ,factor1, factor2, recommended_fasted,prior_factor,fasted_factor,eliminate_extremes,ksteps,fat_other,carb_other,prot,fiber,sugar,saturated,fasted,C_ksteps,C_fat_other,C_carb_other,C_protein,C_fiber,C_sugar,C_saturated,C_fasted,cal_per_gram_carb,cal_per_gram_prot,cal_per_gram_fat,cal_per_ksteps];
writedata("OUT/out42_work.tmp", out2);
ksteps := 10.0;
kstep_factor := 20.;
fat := 263.0;
carb := 328.0;
prot := 115.0;
fiber := 40.8;
sugar := 104.0;
saturated := 49.0;
fasted := 7.5;
fat_other := 214.;
carb_other := 183.2;
delta_ksteps :=  (recommended_ksteps - ksteps) * kstep_factor;
delta_fat_other := (fat_other - recommended_fat_other);
delta_carb_other := (carb_other - recommended_carb_other);
delta_prot := (prot - recommended_prot);
delta_fiber := (fiber - recommended_fiber);
delta_sugar := (sugar - recommended_sugar);
delta_saturated := (saturated - recommended_saturated);
delta_fasted := (fasted - recommended_fasted) * fasted_factor;
it_previous :=  84.0;
metabolism :=  0.;
it_ksteps := (C_ksteps) * (delta_ksteps);
it_fat_other := factor1  * ( C_fat_other ) * ( (delta_fat_other) );
it_carb_other := factor1  * ( C_carb_other ) * ( (delta_carb_other) );
it_prot := factor1  * ( C_protein ) * ( (delta_prot) );
it_fiber := factor1  * ( C_fiber ) * ( (delta_fiber) );
it_sugar :=  factor1  * ( C_sugar ) * ( (delta_sugar) );
it_saturated := factor1  * ( C_saturated ) * ( (delta_saturated) );
it_fasted := ( C_fasted ) * ( (delta_fasted) );
prediction  := evalf(it_previous * prior_factor
 + metabolism
 + it_ksteps * cal_per_ksteps
 + it_fat_other * cal_per_gram_fat
 + it_carb_other * cal_per_gram_carb
 + it_prot * cal_per_gram_prot
 + it_fiber * cal_per_gram_carb
 + it_sugar * cal_per_gram_carb
 + it_saturated * cal_per_gram_fat
 + it_fasted);
it_previous := 84.0;
actual := 153.0;
previous := 84.0;
err := abs(prediction - actual);
perc_err := abs(err * 100.0) / actual;
delta_glucose := abs(previous - actual);
perc_delta := (delta_glucose * 100.0) / actual;
if (perc_err < min_perc_err) then min_perc_err := perc_err; fi;
if (perc_err > max_perc_err) then max_perc_err := perc_err; fi;
tot_perc_err := tot_perc_err + perc_err;
if (actual < low_actual) then low_actual := actual; fi;
if (actual > high_actual) then high_actual := actual; fi;
if (prediction < low_prediction) then low_prediction := prediction; fi;
if (prediction > high_prediction) then high_prediction := prediction; fi;
count := count + 1.0;
out2 := [count, perc_err, actual,prediction,it_previous,it_previous * prior_factor,metabolism,it_ksteps * cal_per_ksteps,it_fat_other*cal_per_gram_fat,it_carb_other*cal_per_gram_carb,it_prot*cal_per_gram_prot,it_fiber*cal_per_gram_carb,it_sugar*cal_per_gram_carb,it_saturated*cal_per_gram_fat,it_fasted,order2, delta_method, kstep_method, recommended_ksteps, kstep_exponent, kstep_factor, recommended_fat, recommended_carb, recommended_prot, recommended_fiber, recommended_sugar, recommended_saturated ,factor1, factor2, recommended_fasted,prior_factor,fasted_factor,eliminate_extremes,ksteps,fat_other,carb_other,prot,fiber,sugar,saturated,fasted,C_ksteps,C_fat_other,C_carb_other,C_protein,C_fiber,C_sugar,C_saturated,C_fasted,cal_per_gram_carb,cal_per_gram_prot,cal_per_gram_fat,cal_per_ksteps];
writedata("OUT/out43_work.tmp", out2);
ksteps := 10.0;
kstep_factor := 20.;
fat := 213.0;
carb := 323.0;
prot := 74.4;
fiber := 28.6;
sugar := 139.0;
saturated := 50.5;
fasted := 8.5;
fat_other := 162.5;
carb_other := 155.4;
delta_ksteps :=  (recommended_ksteps - ksteps) * kstep_factor;
delta_fat_other := (fat_other - recommended_fat_other);
delta_carb_other := (carb_other - recommended_carb_other);
delta_prot := (prot - recommended_prot);
delta_fiber := (fiber - recommended_fiber);
delta_sugar := (sugar - recommended_sugar);
delta_saturated := (saturated - recommended_saturated);
delta_fasted := (fasted - recommended_fasted) * fasted_factor;
it_previous :=  78.0;
metabolism :=  0.;
it_ksteps := (C_ksteps) * (delta_ksteps);
it_fat_other := factor1  * ( C_fat_other ) * ( (delta_fat_other) );
it_carb_other := factor1  * ( C_carb_other ) * ( (delta_carb_other) );
it_prot := factor1  * ( C_protein ) * ( (delta_prot) );
it_fiber := factor1  * ( C_fiber ) * ( (delta_fiber) );
it_sugar :=  factor1  * ( C_sugar ) * ( (delta_sugar) );
it_saturated := factor1  * ( C_saturated ) * ( (delta_saturated) );
it_fasted := ( C_fasted ) * ( (delta_fasted) );
prediction  := evalf(it_previous * prior_factor
 + metabolism
 + it_ksteps * cal_per_ksteps
 + it_fat_other * cal_per_gram_fat
 + it_carb_other * cal_per_gram_carb
 + it_prot * cal_per_gram_prot
 + it_fiber * cal_per_gram_carb
 + it_sugar * cal_per_gram_carb
 + it_saturated * cal_per_gram_fat
 + it_fasted);
it_previous := 78.0;
actual := 84.0;
previous := 78.0;
err := abs(prediction - actual);
perc_err := abs(err * 100.0) / actual;
delta_glucose := abs(previous - actual);
perc_delta := (delta_glucose * 100.0) / actual;
if (perc_err < min_perc_err) then min_perc_err := perc_err; fi;
if (perc_err > max_perc_err) then max_perc_err := perc_err; fi;
tot_perc_err := tot_perc_err + perc_err;
if (actual < low_actual) then low_actual := actual; fi;
if (actual > high_actual) then high_actual := actual; fi;
if (prediction < low_prediction) then low_prediction := prediction; fi;
if (prediction > high_prediction) then high_prediction := prediction; fi;
count := count + 1.0;
out2 := [count, perc_err, actual,prediction,it_previous,it_previous * prior_factor,metabolism,it_ksteps * cal_per_ksteps,it_fat_other*cal_per_gram_fat,it_carb_other*cal_per_gram_carb,it_prot*cal_per_gram_prot,it_fiber*cal_per_gram_carb,it_sugar*cal_per_gram_carb,it_saturated*cal_per_gram_fat,it_fasted,order2, delta_method, kstep_method, recommended_ksteps, kstep_exponent, kstep_factor, recommended_fat, recommended_carb, recommended_prot, recommended_fiber, recommended_sugar, recommended_saturated ,factor1, factor2, recommended_fasted,prior_factor,fasted_factor,eliminate_extremes,ksteps,fat_other,carb_other,prot,fiber,sugar,saturated,fasted,C_ksteps,C_fat_other,C_carb_other,C_protein,C_fiber,C_sugar,C_saturated,C_fasted,cal_per_gram_carb,cal_per_gram_prot,cal_per_gram_fat,cal_per_ksteps];
writedata("OUT/out44_work.tmp", out2);
ksteps := 11.0;
kstep_factor := 20.;
fat := 140.0;
carb := 322.0;
prot := 40.6;
fiber := 10.9;
sugar := 141.0;
saturated := 45.9;
fasted := 5.5;
fat_other := 94.1;
carb_other := 170.1;
delta_ksteps :=  (recommended_ksteps - ksteps) * kstep_factor;
delta_fat_other := (fat_other - recommended_fat_other);
delta_carb_other := (carb_other - recommended_carb_other);
delta_prot := (prot - recommended_prot);
delta_fiber := (fiber - recommended_fiber);
delta_sugar := (sugar - recommended_sugar);
delta_saturated := (saturated - recommended_saturated);
delta_fasted := (fasted - recommended_fasted) * fasted_factor;
it_previous :=  87.0;
metabolism :=  0.;
it_ksteps := (C_ksteps) * (delta_ksteps);
it_fat_other := factor1  * ( C_fat_other ) * ( (delta_fat_other) );
it_carb_other := factor1  * ( C_carb_other ) * ( (delta_carb_other) );
it_prot := factor1  * ( C_protein ) * ( (delta_prot) );
it_fiber := factor1  * ( C_fiber ) * ( (delta_fiber) );
it_sugar :=  factor1  * ( C_sugar ) * ( (delta_sugar) );
it_saturated := factor1  * ( C_saturated ) * ( (delta_saturated) );
it_fasted := ( C_fasted ) * ( (delta_fasted) );
prediction  := evalf(it_previous * prior_factor
 + metabolism
 + it_ksteps * cal_per_ksteps
 + it_fat_other * cal_per_gram_fat
 + it_carb_other * cal_per_gram_carb
 + it_prot * cal_per_gram_prot
 + it_fiber * cal_per_gram_carb
 + it_sugar * cal_per_gram_carb
 + it_saturated * cal_per_gram_fat
 + it_fasted);
it_previous := 87.0;
actual := 78.0;
previous := 87.0;
err := abs(prediction - actual);
perc_err := abs(err * 100.0) / actual;
delta_glucose := abs(previous - actual);
perc_delta := (delta_glucose * 100.0) / actual;
if (perc_err < min_perc_err) then min_perc_err := perc_err; fi;
if (perc_err > max_perc_err) then max_perc_err := perc_err; fi;
tot_perc_err := tot_perc_err + perc_err;
if (actual < low_actual) then low_actual := actual; fi;
if (actual > high_actual) then high_actual := actual; fi;
if (prediction < low_prediction) then low_prediction := prediction; fi;
if (prediction > high_prediction) then high_prediction := prediction; fi;
count := count + 1.0;
out2 := [count, perc_err, actual,prediction,it_previous,it_previous * prior_factor,metabolism,it_ksteps * cal_per_ksteps,it_fat_other*cal_per_gram_fat,it_carb_other*cal_per_gram_carb,it_prot*cal_per_gram_prot,it_fiber*cal_per_gram_carb,it_sugar*cal_per_gram_carb,it_saturated*cal_per_gram_fat,it_fasted,order2, delta_method, kstep_method, recommended_ksteps, kstep_exponent, kstep_factor, recommended_fat, recommended_carb, recommended_prot, recommended_fiber, recommended_sugar, recommended_saturated ,factor1, factor2, recommended_fasted,prior_factor,fasted_factor,eliminate_extremes,ksteps,fat_other,carb_other,prot,fiber,sugar,saturated,fasted,C_ksteps,C_fat_other,C_carb_other,C_protein,C_fiber,C_sugar,C_saturated,C_fasted,cal_per_gram_carb,cal_per_gram_prot,cal_per_gram_fat,cal_per_ksteps];
writedata("OUT/out45_work.tmp", out2);
ksteps := 14.0;
kstep_factor := 20.;
fat := 144.0;
carb := 334.0;
prot := 50.2;
fiber := 18.5;
sugar := 116.0;
saturated := 54.6;
fasted := 7.0;
fat_other := 89.4;
carb_other := 199.5;
delta_ksteps :=  (recommended_ksteps - ksteps) * kstep_factor;
delta_fat_other := (fat_other - recommended_fat_other);
delta_carb_other := (carb_other - recommended_carb_other);
delta_prot := (prot - recommended_prot);
delta_fiber := (fiber - recommended_fiber);
delta_sugar := (sugar - recommended_sugar);
delta_saturated := (saturated - recommended_saturated);
delta_fasted := (fasted - recommended_fasted) * fasted_factor;
it_previous :=  87.0;
metabolism :=  0.;
it_ksteps := (C_ksteps) * (delta_ksteps);
it_fat_other := factor1  * ( C_fat_other ) * ( (delta_fat_other) );
it_carb_other := factor1  * ( C_carb_other ) * ( (delta_carb_other) );
it_prot := factor1  * ( C_protein ) * ( (delta_prot) );
it_fiber := factor1  * ( C_fiber ) * ( (delta_fiber) );
it_sugar :=  factor1  * ( C_sugar ) * ( (delta_sugar) );
it_saturated := factor1  * ( C_saturated ) * ( (delta_saturated) );
it_fasted := ( C_fasted ) * ( (delta_fasted) );
prediction  := evalf(it_previous * prior_factor
 + metabolism
 + it_ksteps * cal_per_ksteps
 + it_fat_other * cal_per_gram_fat
 + it_carb_other * cal_per_gram_carb
 + it_prot * cal_per_gram_prot
 + it_fiber * cal_per_gram_carb
 + it_sugar * cal_per_gram_carb
 + it_saturated * cal_per_gram_fat
 + it_fasted);
it_previous := 87.0;
actual := 87.0;
previous := 87.0;
err := abs(prediction - actual);
perc_err := abs(err * 100.0) / actual;
delta_glucose := abs(previous - actual);
perc_delta := (delta_glucose * 100.0) / actual;
if (perc_err < min_perc_err) then min_perc_err := perc_err; fi;
if (perc_err > max_perc_err) then max_perc_err := perc_err; fi;
tot_perc_err := tot_perc_err + perc_err;
if (actual < low_actual) then low_actual := actual; fi;
if (actual > high_actual) then high_actual := actual; fi;
if (prediction < low_prediction) then low_prediction := prediction; fi;
if (prediction > high_prediction) then high_prediction := prediction; fi;
count := count + 1.0;
out2 := [count, perc_err, actual,prediction,it_previous,it_previous * prior_factor,metabolism,it_ksteps * cal_per_ksteps,it_fat_other*cal_per_gram_fat,it_carb_other*cal_per_gram_carb,it_prot*cal_per_gram_prot,it_fiber*cal_per_gram_carb,it_sugar*cal_per_gram_carb,it_saturated*cal_per_gram_fat,it_fasted,order2, delta_method, kstep_method, recommended_ksteps, kstep_exponent, kstep_factor, recommended_fat, recommended_carb, recommended_prot, recommended_fiber, recommended_sugar, recommended_saturated ,factor1, factor2, recommended_fasted,prior_factor,fasted_factor,eliminate_extremes,ksteps,fat_other,carb_other,prot,fiber,sugar,saturated,fasted,C_ksteps,C_fat_other,C_carb_other,C_protein,C_fiber,C_sugar,C_saturated,C_fasted,cal_per_gram_carb,cal_per_gram_prot,cal_per_gram_fat,cal_per_ksteps];
writedata("OUT/out46_work.tmp", out2);
ksteps := 7.0;
kstep_factor := 20.;
fat := 115.0;
carb := 222.0;
prot := 60.6;
fiber := 24.2;
sugar := 51.2;
saturated := 19.8;
fasted := 5.5;
fat_other := 95.2;
carb_other := 146.6;
delta_ksteps :=  (recommended_ksteps - ksteps) * kstep_factor;
delta_fat_other := (fat_other - recommended_fat_other);
delta_carb_other := (carb_other - recommended_carb_other);
delta_prot := (prot - recommended_prot);
delta_fiber := (fiber - recommended_fiber);
delta_sugar := (sugar - recommended_sugar);
delta_saturated := (saturated - recommended_saturated);
delta_fasted := (fasted - recommended_fasted) * fasted_factor;
it_previous :=  133.0;
metabolism :=  0.;
it_ksteps := (C_ksteps) * (delta_ksteps);
it_fat_other := factor1  * ( C_fat_other ) * ( (delta_fat_other) );
it_carb_other := factor1  * ( C_carb_other ) * ( (delta_carb_other) );
it_prot := factor1  * ( C_protein ) * ( (delta_prot) );
it_fiber := factor1  * ( C_fiber ) * ( (delta_fiber) );
it_sugar :=  factor1  * ( C_sugar ) * ( (delta_sugar) );
it_saturated := factor1  * ( C_saturated ) * ( (delta_saturated) );
it_fasted := ( C_fasted ) * ( (delta_fasted) );
prediction  := evalf(it_previous * prior_factor
 + metabolism
 + it_ksteps * cal_per_ksteps
 + it_fat_other * cal_per_gram_fat
 + it_carb_other * cal_per_gram_carb
 + it_prot * cal_per_gram_prot
 + it_fiber * cal_per_gram_carb
 + it_sugar * cal_per_gram_carb
 + it_saturated * cal_per_gram_fat
 + it_fasted);
it_previous := 133.0;
actual := 87.0;
previous := 133.0;
err := abs(prediction - actual);
perc_err := abs(err * 100.0) / actual;
delta_glucose := abs(previous - actual);
perc_delta := (delta_glucose * 100.0) / actual;
if (perc_err < min_perc_err) then min_perc_err := perc_err; fi;
if (perc_err > max_perc_err) then max_perc_err := perc_err; fi;
tot_perc_err := tot_perc_err + perc_err;
if (actual < low_actual) then low_actual := actual; fi;
if (actual > high_actual) then high_actual := actual; fi;
if (prediction < low_prediction) then low_prediction := prediction; fi;
if (prediction > high_prediction) then high_prediction := prediction; fi;
count := count + 1.0;
out2 := [count, perc_err, actual,prediction,it_previous,it_previous * prior_factor,metabolism,it_ksteps * cal_per_ksteps,it_fat_other*cal_per_gram_fat,it_carb_other*cal_per_gram_carb,it_prot*cal_per_gram_prot,it_fiber*cal_per_gram_carb,it_sugar*cal_per_gram_carb,it_saturated*cal_per_gram_fat,it_fasted,order2, delta_method, kstep_method, recommended_ksteps, kstep_exponent, kstep_factor, recommended_fat, recommended_carb, recommended_prot, recommended_fiber, recommended_sugar, recommended_saturated ,factor1, factor2, recommended_fasted,prior_factor,fasted_factor,eliminate_extremes,ksteps,fat_other,carb_other,prot,fiber,sugar,saturated,fasted,C_ksteps,C_fat_other,C_carb_other,C_protein,C_fiber,C_sugar,C_saturated,C_fasted,cal_per_gram_carb,cal_per_gram_prot,cal_per_gram_fat,cal_per_ksteps];
writedata("OUT/out47_work.tmp", out2);
ksteps := 14.0;
kstep_factor := 20.;
fat := 107.0;
carb := 321.0;
prot := 80.1;
fiber := 26.6;
sugar := 123.0;
saturated := 27.6;
fasted := 7.0;
fat_other := 79.4;
carb_other := 171.4;
delta_ksteps :=  (recommended_ksteps - ksteps) * kstep_factor;
delta_fat_other := (fat_other - recommended_fat_other);
delta_carb_other := (carb_other - recommended_carb_other);
delta_prot := (prot - recommended_prot);
delta_fiber := (fiber - recommended_fiber);
delta_sugar := (sugar - recommended_sugar);
delta_saturated := (saturated - recommended_saturated);
delta_fasted := (fasted - recommended_fasted) * fasted_factor;
it_previous :=  78.0;
metabolism :=  0.;
it_ksteps := (C_ksteps) * (delta_ksteps);
it_fat_other := factor1  * ( C_fat_other ) * ( (delta_fat_other) );
it_carb_other := factor1  * ( C_carb_other ) * ( (delta_carb_other) );
it_prot := factor1  * ( C_protein ) * ( (delta_prot) );
it_fiber := factor1  * ( C_fiber ) * ( (delta_fiber) );
it_sugar :=  factor1  * ( C_sugar ) * ( (delta_sugar) );
it_saturated := factor1  * ( C_saturated ) * ( (delta_saturated) );
it_fasted := ( C_fasted ) * ( (delta_fasted) );
prediction  := evalf(it_previous * prior_factor
 + metabolism
 + it_ksteps * cal_per_ksteps
 + it_fat_other * cal_per_gram_fat
 + it_carb_other * cal_per_gram_carb
 + it_prot * cal_per_gram_prot
 + it_fiber * cal_per_gram_carb
 + it_sugar * cal_per_gram_carb
 + it_saturated * cal_per_gram_fat
 + it_fasted);
it_previous := 78.0;
actual := 133.0;
previous := 78.0;
err := abs(prediction - actual);
perc_err := abs(err * 100.0) / actual;
delta_glucose := abs(previous - actual);
perc_delta := (delta_glucose * 100.0) / actual;
if (perc_err < min_perc_err) then min_perc_err := perc_err; fi;
if (perc_err > max_perc_err) then max_perc_err := perc_err; fi;
tot_perc_err := tot_perc_err + perc_err;
if (actual < low_actual) then low_actual := actual; fi;
if (actual > high_actual) then high_actual := actual; fi;
if (prediction < low_prediction) then low_prediction := prediction; fi;
if (prediction > high_prediction) then high_prediction := prediction; fi;
count := count + 1.0;
out2 := [count, perc_err, actual,prediction,it_previous,it_previous * prior_factor,metabolism,it_ksteps * cal_per_ksteps,it_fat_other*cal_per_gram_fat,it_carb_other*cal_per_gram_carb,it_prot*cal_per_gram_prot,it_fiber*cal_per_gram_carb,it_sugar*cal_per_gram_carb,it_saturated*cal_per_gram_fat,it_fasted,order2, delta_method, kstep_method, recommended_ksteps, kstep_exponent, kstep_factor, recommended_fat, recommended_carb, recommended_prot, recommended_fiber, recommended_sugar, recommended_saturated ,factor1, factor2, recommended_fasted,prior_factor,fasted_factor,eliminate_extremes,ksteps,fat_other,carb_other,prot,fiber,sugar,saturated,fasted,C_ksteps,C_fat_other,C_carb_other,C_protein,C_fiber,C_sugar,C_saturated,C_fasted,cal_per_gram_carb,cal_per_gram_prot,cal_per_gram_fat,cal_per_ksteps];
writedata("OUT/out48_work.tmp", out2);
ksteps := 12.0;
kstep_factor := 20.;
fat := 216.0;
carb := 303.0;
prot := 72.5;
fiber := 23.0;
sugar := 69.7;
saturated := 39.8;
fasted := 11.5;
fat_other := 176.2;
carb_other := 210.3;
delta_ksteps :=  (recommended_ksteps - ksteps) * kstep_factor;
delta_fat_other := (fat_other - recommended_fat_other);
delta_carb_other := (carb_other - recommended_carb_other);
delta_prot := (prot - recommended_prot);
delta_fiber := (fiber - recommended_fiber);
delta_sugar := (sugar - recommended_sugar);
delta_saturated := (saturated - recommended_saturated);
delta_fasted := (fasted - recommended_fasted) * fasted_factor;
it_previous :=  84.0;
metabolism :=  0.;
it_ksteps := (C_ksteps) * (delta_ksteps);
it_fat_other := factor1  * ( C_fat_other ) * ( (delta_fat_other) );
it_carb_other := factor1  * ( C_carb_other ) * ( (delta_carb_other) );
it_prot := factor1  * ( C_protein ) * ( (delta_prot) );
it_fiber := factor1  * ( C_fiber ) * ( (delta_fiber) );
it_sugar :=  factor1  * ( C_sugar ) * ( (delta_sugar) );
it_saturated := factor1  * ( C_saturated ) * ( (delta_saturated) );
it_fasted := ( C_fasted ) * ( (delta_fasted) );
prediction  := evalf(it_previous * prior_factor
 + metabolism
 + it_ksteps * cal_per_ksteps
 + it_fat_other * cal_per_gram_fat
 + it_carb_other * cal_per_gram_carb
 + it_prot * cal_per_gram_prot
 + it_fiber * cal_per_gram_carb
 + it_sugar * cal_per_gram_carb
 + it_saturated * cal_per_gram_fat
 + it_fasted);
it_previous := 84.0;
actual := 78.0;
previous := 84.0;
err := abs(prediction - actual);
perc_err := abs(err * 100.0) / actual;
delta_glucose := abs(previous - actual);
perc_delta := (delta_glucose * 100.0) / actual;
if (perc_err < min_perc_err) then min_perc_err := perc_err; fi;
if (perc_err > max_perc_err) then max_perc_err := perc_err; fi;
tot_perc_err := tot_perc_err + perc_err;
if (actual < low_actual) then low_actual := actual; fi;
if (actual > high_actual) then high_actual := actual; fi;
if (prediction < low_prediction) then low_prediction := prediction; fi;
if (prediction > high_prediction) then high_prediction := prediction; fi;
count := count + 1.0;
out2 := [count, perc_err, actual,prediction,it_previous,it_previous * prior_factor,metabolism,it_ksteps * cal_per_ksteps,it_fat_other*cal_per_gram_fat,it_carb_other*cal_per_gram_carb,it_prot*cal_per_gram_prot,it_fiber*cal_per_gram_carb,it_sugar*cal_per_gram_carb,it_saturated*cal_per_gram_fat,it_fasted,order2, delta_method, kstep_method, recommended_ksteps, kstep_exponent, kstep_factor, recommended_fat, recommended_carb, recommended_prot, recommended_fiber, recommended_sugar, recommended_saturated ,factor1, factor2, recommended_fasted,prior_factor,fasted_factor,eliminate_extremes,ksteps,fat_other,carb_other,prot,fiber,sugar,saturated,fasted,C_ksteps,C_fat_other,C_carb_other,C_protein,C_fiber,C_sugar,C_saturated,C_fasted,cal_per_gram_carb,cal_per_gram_prot,cal_per_gram_fat,cal_per_ksteps];
writedata("OUT/out49_work.tmp", out2);
ksteps := 11.0;
kstep_factor := 20.;
fat := 174.0;
carb := 385.0;
prot := 64.4;
fiber := 27.6;
sugar := 133.0;
saturated := 45.8;
fasted := 6.0;
fat_other := 128.2;
carb_other := 224.4;
delta_ksteps :=  (recommended_ksteps - ksteps) * kstep_factor;
delta_fat_other := (fat_other - recommended_fat_other);
delta_carb_other := (carb_other - recommended_carb_other);
delta_prot := (prot - recommended_prot);
delta_fiber := (fiber - recommended_fiber);
delta_sugar := (sugar - recommended_sugar);
delta_saturated := (saturated - recommended_saturated);
delta_fasted := (fasted - recommended_fasted) * fasted_factor;
it_previous :=  72.0;
metabolism :=  0.;
it_ksteps := (C_ksteps) * (delta_ksteps);
it_fat_other := factor1  * ( C_fat_other ) * ( (delta_fat_other) );
it_carb_other := factor1  * ( C_carb_other ) * ( (delta_carb_other) );
it_prot := factor1  * ( C_protein ) * ( (delta_prot) );
it_fiber := factor1  * ( C_fiber ) * ( (delta_fiber) );
it_sugar :=  factor1  * ( C_sugar ) * ( (delta_sugar) );
it_saturated := factor1  * ( C_saturated ) * ( (delta_saturated) );
it_fasted := ( C_fasted ) * ( (delta_fasted) );
prediction  := evalf(it_previous * prior_factor
 + metabolism
 + it_ksteps * cal_per_ksteps
 + it_fat_other * cal_per_gram_fat
 + it_carb_other * cal_per_gram_carb
 + it_prot * cal_per_gram_prot
 + it_fiber * cal_per_gram_carb
 + it_sugar * cal_per_gram_carb
 + it_saturated * cal_per_gram_fat
 + it_fasted);
it_previous := 72.0;
actual := 84.0;
previous := 72.0;
err := abs(prediction - actual);
perc_err := abs(err * 100.0) / actual;
delta_glucose := abs(previous - actual);
perc_delta := (delta_glucose * 100.0) / actual;
if (perc_err < min_perc_err) then min_perc_err := perc_err; fi;
if (perc_err > max_perc_err) then max_perc_err := perc_err; fi;
tot_perc_err := tot_perc_err + perc_err;
if (actual < low_actual) then low_actual := actual; fi;
if (actual > high_actual) then high_actual := actual; fi;
if (prediction < low_prediction) then low_prediction := prediction; fi;
if (prediction > high_prediction) then high_prediction := prediction; fi;
count := count + 1.0;
out2 := [count, perc_err, actual,prediction,it_previous,it_previous * prior_factor,metabolism,it_ksteps * cal_per_ksteps,it_fat_other*cal_per_gram_fat,it_carb_other*cal_per_gram_carb,it_prot*cal_per_gram_prot,it_fiber*cal_per_gram_carb,it_sugar*cal_per_gram_carb,it_saturated*cal_per_gram_fat,it_fasted,order2, delta_method, kstep_method, recommended_ksteps, kstep_exponent, kstep_factor, recommended_fat, recommended_carb, recommended_prot, recommended_fiber, recommended_sugar, recommended_saturated ,factor1, factor2, recommended_fasted,prior_factor,fasted_factor,eliminate_extremes,ksteps,fat_other,carb_other,prot,fiber,sugar,saturated,fasted,C_ksteps,C_fat_other,C_carb_other,C_protein,C_fiber,C_sugar,C_saturated,C_fasted,cal_per_gram_carb,cal_per_gram_prot,cal_per_gram_fat,cal_per_ksteps];
writedata("OUT/out50_work.tmp", out2);
ksteps := 11.0;
kstep_factor := 20.;
fat := 198.0;
carb := 273.0;
prot := 77.3;
fiber := 35.1;
sugar := 77.3;
saturated := 49.7;
fasted := 5.0;
fat_other := 148.3;
carb_other := 160.6;
delta_ksteps :=  (recommended_ksteps - ksteps) * kstep_factor;
delta_fat_other := (fat_other - recommended_fat_other);
delta_carb_other := (carb_other - recommended_carb_other);
delta_prot := (prot - recommended_prot);
delta_fiber := (fiber - recommended_fiber);
delta_sugar := (sugar - recommended_sugar);
delta_saturated := (saturated - recommended_saturated);
delta_fasted := (fasted - recommended_fasted) * fasted_factor;
it_previous :=  85.0;
metabolism :=  0.;
it_ksteps := (C_ksteps) * (delta_ksteps);
it_fat_other := factor1  * ( C_fat_other ) * ( (delta_fat_other) );
it_carb_other := factor1  * ( C_carb_other ) * ( (delta_carb_other) );
it_prot := factor1  * ( C_protein ) * ( (delta_prot) );
it_fiber := factor1  * ( C_fiber ) * ( (delta_fiber) );
it_sugar :=  factor1  * ( C_sugar ) * ( (delta_sugar) );
it_saturated := factor1  * ( C_saturated ) * ( (delta_saturated) );
it_fasted := ( C_fasted ) * ( (delta_fasted) );
prediction  := evalf(it_previous * prior_factor
 + metabolism
 + it_ksteps * cal_per_ksteps
 + it_fat_other * cal_per_gram_fat
 + it_carb_other * cal_per_gram_carb
 + it_prot * cal_per_gram_prot
 + it_fiber * cal_per_gram_carb
 + it_sugar * cal_per_gram_carb
 + it_saturated * cal_per_gram_fat
 + it_fasted);
it_previous := 85.0;
actual := 72.0;
previous := 85.0;
err := abs(prediction - actual);
perc_err := abs(err * 100.0) / actual;
delta_glucose := abs(previous - actual);
perc_delta := (delta_glucose * 100.0) / actual;
if (perc_err < min_perc_err) then min_perc_err := perc_err; fi;
if (perc_err > max_perc_err) then max_perc_err := perc_err; fi;
tot_perc_err := tot_perc_err + perc_err;
if (actual < low_actual) then low_actual := actual; fi;
if (actual > high_actual) then high_actual := actual; fi;
if (prediction < low_prediction) then low_prediction := prediction; fi;
if (prediction > high_prediction) then high_prediction := prediction; fi;
count := count + 1.0;
out2 := [count, perc_err, actual,prediction,it_previous,it_previous * prior_factor,metabolism,it_ksteps * cal_per_ksteps,it_fat_other*cal_per_gram_fat,it_carb_other*cal_per_gram_carb,it_prot*cal_per_gram_prot,it_fiber*cal_per_gram_carb,it_sugar*cal_per_gram_carb,it_saturated*cal_per_gram_fat,it_fasted,order2, delta_method, kstep_method, recommended_ksteps, kstep_exponent, kstep_factor, recommended_fat, recommended_carb, recommended_prot, recommended_fiber, recommended_sugar, recommended_saturated ,factor1, factor2, recommended_fasted,prior_factor,fasted_factor,eliminate_extremes,ksteps,fat_other,carb_other,prot,fiber,sugar,saturated,fasted,C_ksteps,C_fat_other,C_carb_other,C_protein,C_fiber,C_sugar,C_saturated,C_fasted,cal_per_gram_carb,cal_per_gram_prot,cal_per_gram_fat,cal_per_ksteps];
writedata("OUT/out51_work.tmp", out2);
ksteps := 15.0;
kstep_factor := 20.;
fat := 179.0;
carb := 295.0;
prot := 67.9;
fiber := 20.0;
sugar := 57.4;
saturated := 49.7;
fasted := 5.5;
fat_other := 129.3;
carb_other := 217.6;
delta_ksteps :=  (recommended_ksteps - ksteps) * kstep_factor;
delta_fat_other := (fat_other - recommended_fat_other);
delta_carb_other := (carb_other - recommended_carb_other);
delta_prot := (prot - recommended_prot);
delta_fiber := (fiber - recommended_fiber);
delta_sugar := (sugar - recommended_sugar);
delta_saturated := (saturated - recommended_saturated);
delta_fasted := (fasted - recommended_fasted) * fasted_factor;
it_previous :=  79.0;
metabolism :=  0.;
it_ksteps := (C_ksteps) * (delta_ksteps);
it_fat_other := factor1  * ( C_fat_other ) * ( (delta_fat_other) );
it_carb_other := factor1  * ( C_carb_other ) * ( (delta_carb_other) );
it_prot := factor1  * ( C_protein ) * ( (delta_prot) );
it_fiber := factor1  * ( C_fiber ) * ( (delta_fiber) );
it_sugar :=  factor1  * ( C_sugar ) * ( (delta_sugar) );
it_saturated := factor1  * ( C_saturated ) * ( (delta_saturated) );
it_fasted := ( C_fasted ) * ( (delta_fasted) );
prediction  := evalf(it_previous * prior_factor
 + metabolism
 + it_ksteps * cal_per_ksteps
 + it_fat_other * cal_per_gram_fat
 + it_carb_other * cal_per_gram_carb
 + it_prot * cal_per_gram_prot
 + it_fiber * cal_per_gram_carb
 + it_sugar * cal_per_gram_carb
 + it_saturated * cal_per_gram_fat
 + it_fasted);
it_previous := 79.0;
actual := 85.0;
previous := 79.0;
err := abs(prediction - actual);
perc_err := abs(err * 100.0) / actual;
delta_glucose := abs(previous - actual);
perc_delta := (delta_glucose * 100.0) / actual;
if (perc_err < min_perc_err) then min_perc_err := perc_err; fi;
if (perc_err > max_perc_err) then max_perc_err := perc_err; fi;
tot_perc_err := tot_perc_err + perc_err;
if (actual < low_actual) then low_actual := actual; fi;
if (actual > high_actual) then high_actual := actual; fi;
if (prediction < low_prediction) then low_prediction := prediction; fi;
if (prediction > high_prediction) then high_prediction := prediction; fi;
count := count + 1.0;
out2 := [count, perc_err, actual,prediction,it_previous,it_previous * prior_factor,metabolism,it_ksteps * cal_per_ksteps,it_fat_other*cal_per_gram_fat,it_carb_other*cal_per_gram_carb,it_prot*cal_per_gram_prot,it_fiber*cal_per_gram_carb,it_sugar*cal_per_gram_carb,it_saturated*cal_per_gram_fat,it_fasted,order2, delta_method, kstep_method, recommended_ksteps, kstep_exponent, kstep_factor, recommended_fat, recommended_carb, recommended_prot, recommended_fiber, recommended_sugar, recommended_saturated ,factor1, factor2, recommended_fasted,prior_factor,fasted_factor,eliminate_extremes,ksteps,fat_other,carb_other,prot,fiber,sugar,saturated,fasted,C_ksteps,C_fat_other,C_carb_other,C_protein,C_fiber,C_sugar,C_saturated,C_fasted,cal_per_gram_carb,cal_per_gram_prot,cal_per_gram_fat,cal_per_ksteps];
writedata("OUT/out52_work.tmp", out2);
ksteps := 14.0;
kstep_factor := 20.;
fat := 187.0;
carb := 308.0;
prot := 57.1;
fiber := 27.7;
sugar := 80.4;
saturated := 54.8;
fasted := 7.0;
fat_other := 132.2;
carb_other := 199.9;
delta_ksteps :=  (recommended_ksteps - ksteps) * kstep_factor;
delta_fat_other := (fat_other - recommended_fat_other);
delta_carb_other := (carb_other - recommended_carb_other);
delta_prot := (prot - recommended_prot);
delta_fiber := (fiber - recommended_fiber);
delta_sugar := (sugar - recommended_sugar);
delta_saturated := (saturated - recommended_saturated);
delta_fasted := (fasted - recommended_fasted) * fasted_factor;
it_previous :=  79.0;
metabolism :=  0.;
it_ksteps := (C_ksteps) * (delta_ksteps);
it_fat_other := factor1  * ( C_fat_other ) * ( (delta_fat_other) );
it_carb_other := factor1  * ( C_carb_other ) * ( (delta_carb_other) );
it_prot := factor1  * ( C_protein ) * ( (delta_prot) );
it_fiber := factor1  * ( C_fiber ) * ( (delta_fiber) );
it_sugar :=  factor1  * ( C_sugar ) * ( (delta_sugar) );
it_saturated := factor1  * ( C_saturated ) * ( (delta_saturated) );
it_fasted := ( C_fasted ) * ( (delta_fasted) );
prediction  := evalf(it_previous * prior_factor
 + metabolism
 + it_ksteps * cal_per_ksteps
 + it_fat_other * cal_per_gram_fat
 + it_carb_other * cal_per_gram_carb
 + it_prot * cal_per_gram_prot
 + it_fiber * cal_per_gram_carb
 + it_sugar * cal_per_gram_carb
 + it_saturated * cal_per_gram_fat
 + it_fasted);
it_previous := 79.0;
actual := 79.0;
previous := 79.0;
err := abs(prediction - actual);
perc_err := abs(err * 100.0) / actual;
delta_glucose := abs(previous - actual);
perc_delta := (delta_glucose * 100.0) / actual;
if (perc_err < min_perc_err) then min_perc_err := perc_err; fi;
if (perc_err > max_perc_err) then max_perc_err := perc_err; fi;
tot_perc_err := tot_perc_err + perc_err;
if (actual < low_actual) then low_actual := actual; fi;
if (actual > high_actual) then high_actual := actual; fi;
if (prediction < low_prediction) then low_prediction := prediction; fi;
if (prediction > high_prediction) then high_prediction := prediction; fi;
count := count + 1.0;
out2 := [count, perc_err, actual,prediction,it_previous,it_previous * prior_factor,metabolism,it_ksteps * cal_per_ksteps,it_fat_other*cal_per_gram_fat,it_carb_other*cal_per_gram_carb,it_prot*cal_per_gram_prot,it_fiber*cal_per_gram_carb,it_sugar*cal_per_gram_carb,it_saturated*cal_per_gram_fat,it_fasted,order2, delta_method, kstep_method, recommended_ksteps, kstep_exponent, kstep_factor, recommended_fat, recommended_carb, recommended_prot, recommended_fiber, recommended_sugar, recommended_saturated ,factor1, factor2, recommended_fasted,prior_factor,fasted_factor,eliminate_extremes,ksteps,fat_other,carb_other,prot,fiber,sugar,saturated,fasted,C_ksteps,C_fat_other,C_carb_other,C_protein,C_fiber,C_sugar,C_saturated,C_fasted,cal_per_gram_carb,cal_per_gram_prot,cal_per_gram_fat,cal_per_ksteps];
writedata("OUT/out53_work.tmp", out2);
ksteps := 14.0;
kstep_factor := 20.;
fat := 175.0;
carb := 300.0;
prot := 60.6;
fiber := 21.8;
sugar := 132.0;
saturated := 40.9;
fasted := 5.0;
fat_other := 134.1;
carb_other := 146.2;
delta_ksteps :=  (recommended_ksteps - ksteps) * kstep_factor;
delta_fat_other := (fat_other - recommended_fat_other);
delta_carb_other := (carb_other - recommended_carb_other);
delta_prot := (prot - recommended_prot);
delta_fiber := (fiber - recommended_fiber);
delta_sugar := (sugar - recommended_sugar);
delta_saturated := (saturated - recommended_saturated);
delta_fasted := (fasted - recommended_fasted) * fasted_factor;
it_previous :=  72.0;
metabolism :=  0.;
it_ksteps := (C_ksteps) * (delta_ksteps);
it_fat_other := factor1  * ( C_fat_other ) * ( (delta_fat_other) );
it_carb_other := factor1  * ( C_carb_other ) * ( (delta_carb_other) );
it_prot := factor1  * ( C_protein ) * ( (delta_prot) );
it_fiber := factor1  * ( C_fiber ) * ( (delta_fiber) );
it_sugar :=  factor1  * ( C_sugar ) * ( (delta_sugar) );
it_saturated := factor1  * ( C_saturated ) * ( (delta_saturated) );
it_fasted := ( C_fasted ) * ( (delta_fasted) );
prediction  := evalf(it_previous * prior_factor
 + metabolism
 + it_ksteps * cal_per_ksteps
 + it_fat_other * cal_per_gram_fat
 + it_carb_other * cal_per_gram_carb
 + it_prot * cal_per_gram_prot
 + it_fiber * cal_per_gram_carb
 + it_sugar * cal_per_gram_carb
 + it_saturated * cal_per_gram_fat
 + it_fasted);
it_previous := 72.0;
actual := 79.0;
previous := 72.0;
err := abs(prediction - actual);
perc_err := abs(err * 100.0) / actual;
delta_glucose := abs(previous - actual);
perc_delta := (delta_glucose * 100.0) / actual;
if (perc_err < min_perc_err) then min_perc_err := perc_err; fi;
if (perc_err > max_perc_err) then max_perc_err := perc_err; fi;
tot_perc_err := tot_perc_err + perc_err;
if (actual < low_actual) then low_actual := actual; fi;
if (actual > high_actual) then high_actual := actual; fi;
if (prediction < low_prediction) then low_prediction := prediction; fi;
if (prediction > high_prediction) then high_prediction := prediction; fi;
count := count + 1.0;
out2 := [count, perc_err, actual,prediction,it_previous,it_previous * prior_factor,metabolism,it_ksteps * cal_per_ksteps,it_fat_other*cal_per_gram_fat,it_carb_other*cal_per_gram_carb,it_prot*cal_per_gram_prot,it_fiber*cal_per_gram_carb,it_sugar*cal_per_gram_carb,it_saturated*cal_per_gram_fat,it_fasted,order2, delta_method, kstep_method, recommended_ksteps, kstep_exponent, kstep_factor, recommended_fat, recommended_carb, recommended_prot, recommended_fiber, recommended_sugar, recommended_saturated ,factor1, factor2, recommended_fasted,prior_factor,fasted_factor,eliminate_extremes,ksteps,fat_other,carb_other,prot,fiber,sugar,saturated,fasted,C_ksteps,C_fat_other,C_carb_other,C_protein,C_fiber,C_sugar,C_saturated,C_fasted,cal_per_gram_carb,cal_per_gram_prot,cal_per_gram_fat,cal_per_ksteps];
writedata("OUT/out54_work.tmp", out2);
ksteps := 10.0;
kstep_factor := 20.;
fat := 171.0;
carb := 283.0;
prot := 49.2;
fiber := 22.6;
sugar := 76.8;
saturated := 38.6;
fasted := 5.0;
fat_other := 132.4;
carb_other := 183.6;
delta_ksteps :=  (recommended_ksteps - ksteps) * kstep_factor;
delta_fat_other := (fat_other - recommended_fat_other);
delta_carb_other := (carb_other - recommended_carb_other);
delta_prot := (prot - recommended_prot);
delta_fiber := (fiber - recommended_fiber);
delta_sugar := (sugar - recommended_sugar);
delta_saturated := (saturated - recommended_saturated);
delta_fasted := (fasted - recommended_fasted) * fasted_factor;
it_previous :=  94.0;
metabolism :=  0.;
it_ksteps := (C_ksteps) * (delta_ksteps);
it_fat_other := factor1  * ( C_fat_other ) * ( (delta_fat_other) );
it_carb_other := factor1  * ( C_carb_other ) * ( (delta_carb_other) );
it_prot := factor1  * ( C_protein ) * ( (delta_prot) );
it_fiber := factor1  * ( C_fiber ) * ( (delta_fiber) );
it_sugar :=  factor1  * ( C_sugar ) * ( (delta_sugar) );
it_saturated := factor1  * ( C_saturated ) * ( (delta_saturated) );
it_fasted := ( C_fasted ) * ( (delta_fasted) );
prediction  := evalf(it_previous * prior_factor
 + metabolism
 + it_ksteps * cal_per_ksteps
 + it_fat_other * cal_per_gram_fat
 + it_carb_other * cal_per_gram_carb
 + it_prot * cal_per_gram_prot
 + it_fiber * cal_per_gram_carb
 + it_sugar * cal_per_gram_carb
 + it_saturated * cal_per_gram_fat
 + it_fasted);
it_previous := 94.0;
actual := 72.0;
previous := 94.0;
err := abs(prediction - actual);
perc_err := abs(err * 100.0) / actual;
delta_glucose := abs(previous - actual);
perc_delta := (delta_glucose * 100.0) / actual;
if (perc_err < min_perc_err) then min_perc_err := perc_err; fi;
if (perc_err > max_perc_err) then max_perc_err := perc_err; fi;
tot_perc_err := tot_perc_err + perc_err;
if (actual < low_actual) then low_actual := actual; fi;
if (actual > high_actual) then high_actual := actual; fi;
if (prediction < low_prediction) then low_prediction := prediction; fi;
if (prediction > high_prediction) then high_prediction := prediction; fi;
count := count + 1.0;
out2 := [count, perc_err, actual,prediction,it_previous,it_previous * prior_factor,metabolism,it_ksteps * cal_per_ksteps,it_fat_other*cal_per_gram_fat,it_carb_other*cal_per_gram_carb,it_prot*cal_per_gram_prot,it_fiber*cal_per_gram_carb,it_sugar*cal_per_gram_carb,it_saturated*cal_per_gram_fat,it_fasted,order2, delta_method, kstep_method, recommended_ksteps, kstep_exponent, kstep_factor, recommended_fat, recommended_carb, recommended_prot, recommended_fiber, recommended_sugar, recommended_saturated ,factor1, factor2, recommended_fasted,prior_factor,fasted_factor,eliminate_extremes,ksteps,fat_other,carb_other,prot,fiber,sugar,saturated,fasted,C_ksteps,C_fat_other,C_carb_other,C_protein,C_fiber,C_sugar,C_saturated,C_fasted,cal_per_gram_carb,cal_per_gram_prot,cal_per_gram_fat,cal_per_ksteps];
writedata("OUT/out55_work.tmp", out2);
ksteps := 10.0;
kstep_factor := 20.;
fat := 155.0;
carb := 246.0;
prot := 67.3;
fiber := 21.9;
sugar := 93.4;
saturated := 27.2;
fasted := 5.0;
fat_other := 127.8;
carb_other := 130.7;
delta_ksteps :=  (recommended_ksteps - ksteps) * kstep_factor;
delta_fat_other := (fat_other - recommended_fat_other);
delta_carb_other := (carb_other - recommended_carb_other);
delta_prot := (prot - recommended_prot);
delta_fiber := (fiber - recommended_fiber);
delta_sugar := (sugar - recommended_sugar);
delta_saturated := (saturated - recommended_saturated);
delta_fasted := (fasted - recommended_fasted) * fasted_factor;
it_previous :=  72.0;
metabolism :=  0.;
it_ksteps := (C_ksteps) * (delta_ksteps);
it_fat_other := factor1  * ( C_fat_other ) * ( (delta_fat_other) );
it_carb_other := factor1  * ( C_carb_other ) * ( (delta_carb_other) );
it_prot := factor1  * ( C_protein ) * ( (delta_prot) );
it_fiber := factor1  * ( C_fiber ) * ( (delta_fiber) );
it_sugar :=  factor1  * ( C_sugar ) * ( (delta_sugar) );
it_saturated := factor1  * ( C_saturated ) * ( (delta_saturated) );
it_fasted := ( C_fasted ) * ( (delta_fasted) );
prediction  := evalf(it_previous * prior_factor
 + metabolism
 + it_ksteps * cal_per_ksteps
 + it_fat_other * cal_per_gram_fat
 + it_carb_other * cal_per_gram_carb
 + it_prot * cal_per_gram_prot
 + it_fiber * cal_per_gram_carb
 + it_sugar * cal_per_gram_carb
 + it_saturated * cal_per_gram_fat
 + it_fasted);
it_previous := 72.0;
actual := 94.0;
previous := 72.0;
err := abs(prediction - actual);
perc_err := abs(err * 100.0) / actual;
delta_glucose := abs(previous - actual);
perc_delta := (delta_glucose * 100.0) / actual;
if (perc_err < min_perc_err) then min_perc_err := perc_err; fi;
if (perc_err > max_perc_err) then max_perc_err := perc_err; fi;
tot_perc_err := tot_perc_err + perc_err;
if (actual < low_actual) then low_actual := actual; fi;
if (actual > high_actual) then high_actual := actual; fi;
if (prediction < low_prediction) then low_prediction := prediction; fi;
if (prediction > high_prediction) then high_prediction := prediction; fi;
count := count + 1.0;
out2 := [count, perc_err, actual,prediction,it_previous,it_previous * prior_factor,metabolism,it_ksteps * cal_per_ksteps,it_fat_other*cal_per_gram_fat,it_carb_other*cal_per_gram_carb,it_prot*cal_per_gram_prot,it_fiber*cal_per_gram_carb,it_sugar*cal_per_gram_carb,it_saturated*cal_per_gram_fat,it_fasted,order2, delta_method, kstep_method, recommended_ksteps, kstep_exponent, kstep_factor, recommended_fat, recommended_carb, recommended_prot, recommended_fiber, recommended_sugar, recommended_saturated ,factor1, factor2, recommended_fasted,prior_factor,fasted_factor,eliminate_extremes,ksteps,fat_other,carb_other,prot,fiber,sugar,saturated,fasted,C_ksteps,C_fat_other,C_carb_other,C_protein,C_fiber,C_sugar,C_saturated,C_fasted,cal_per_gram_carb,cal_per_gram_prot,cal_per_gram_fat,cal_per_ksteps];
writedata("OUT/out56_work.tmp", out2);
ksteps := 10.0;
kstep_factor := 20.;
fat := 120.0;
carb := 362.0;
prot := 52.1;
fiber := 32.2;
sugar := 146.0;
saturated := 31.0;
fasted := 6.5;
fat_other := 89.;
carb_other := 183.8;
delta_ksteps :=  (recommended_ksteps - ksteps) * kstep_factor;
delta_fat_other := (fat_other - recommended_fat_other);
delta_carb_other := (carb_other - recommended_carb_other);
delta_prot := (prot - recommended_prot);
delta_fiber := (fiber - recommended_fiber);
delta_sugar := (sugar - recommended_sugar);
delta_saturated := (saturated - recommended_saturated);
delta_fasted := (fasted - recommended_fasted) * fasted_factor;
it_previous :=  85.0;
metabolism :=  0.;
it_ksteps := (C_ksteps) * (delta_ksteps);
it_fat_other := factor1  * ( C_fat_other ) * ( (delta_fat_other) );
it_carb_other := factor1  * ( C_carb_other ) * ( (delta_carb_other) );
it_prot := factor1  * ( C_protein ) * ( (delta_prot) );
it_fiber := factor1  * ( C_fiber ) * ( (delta_fiber) );
it_sugar :=  factor1  * ( C_sugar ) * ( (delta_sugar) );
it_saturated := factor1  * ( C_saturated ) * ( (delta_saturated) );
it_fasted := ( C_fasted ) * ( (delta_fasted) );
prediction  := evalf(it_previous * prior_factor
 + metabolism
 + it_ksteps * cal_per_ksteps
 + it_fat_other * cal_per_gram_fat
 + it_carb_other * cal_per_gram_carb
 + it_prot * cal_per_gram_prot
 + it_fiber * cal_per_gram_carb
 + it_sugar * cal_per_gram_carb
 + it_saturated * cal_per_gram_fat
 + it_fasted);
it_previous := 85.0;
actual := 72.0;
previous := 85.0;
err := abs(prediction - actual);
perc_err := abs(err * 100.0) / actual;
delta_glucose := abs(previous - actual);
perc_delta := (delta_glucose * 100.0) / actual;
if (perc_err < min_perc_err) then min_perc_err := perc_err; fi;
if (perc_err > max_perc_err) then max_perc_err := perc_err; fi;
tot_perc_err := tot_perc_err + perc_err;
if (actual < low_actual) then low_actual := actual; fi;
if (actual > high_actual) then high_actual := actual; fi;
if (prediction < low_prediction) then low_prediction := prediction; fi;
if (prediction > high_prediction) then high_prediction := prediction; fi;
count := count + 1.0;
out2 := [count, perc_err, actual,prediction,it_previous,it_previous * prior_factor,metabolism,it_ksteps * cal_per_ksteps,it_fat_other*cal_per_gram_fat,it_carb_other*cal_per_gram_carb,it_prot*cal_per_gram_prot,it_fiber*cal_per_gram_carb,it_sugar*cal_per_gram_carb,it_saturated*cal_per_gram_fat,it_fasted,order2, delta_method, kstep_method, recommended_ksteps, kstep_exponent, kstep_factor, recommended_fat, recommended_carb, recommended_prot, recommended_fiber, recommended_sugar, recommended_saturated ,factor1, factor2, recommended_fasted,prior_factor,fasted_factor,eliminate_extremes,ksteps,fat_other,carb_other,prot,fiber,sugar,saturated,fasted,C_ksteps,C_fat_other,C_carb_other,C_protein,C_fiber,C_sugar,C_saturated,C_fasted,cal_per_gram_carb,cal_per_gram_prot,cal_per_gram_fat,cal_per_ksteps];
writedata("OUT/out57_work.tmp", out2);
ksteps := 10.0;
kstep_factor := 20.;
fat := 144.0;
carb := 314.0;
prot := 99.6;
fiber := 30.5;
sugar := 111.0;
saturated := 32.5;
fasted := 9.0;
fat_other := 111.5;
carb_other := 172.5;
delta_ksteps :=  (recommended_ksteps - ksteps) * kstep_factor;
delta_fat_other := (fat_other - recommended_fat_other);
delta_carb_other := (carb_other - recommended_carb_other);
delta_prot := (prot - recommended_prot);
delta_fiber := (fiber - recommended_fiber);
delta_sugar := (sugar - recommended_sugar);
delta_saturated := (saturated - recommended_saturated);
delta_fasted := (fasted - recommended_fasted) * fasted_factor;
it_previous :=  66.0;
metabolism :=  0.;
it_ksteps := (C_ksteps) * (delta_ksteps);
it_fat_other := factor1  * ( C_fat_other ) * ( (delta_fat_other) );
it_carb_other := factor1  * ( C_carb_other ) * ( (delta_carb_other) );
it_prot := factor1  * ( C_protein ) * ( (delta_prot) );
it_fiber := factor1  * ( C_fiber ) * ( (delta_fiber) );
it_sugar :=  factor1  * ( C_sugar ) * ( (delta_sugar) );
it_saturated := factor1  * ( C_saturated ) * ( (delta_saturated) );
it_fasted := ( C_fasted ) * ( (delta_fasted) );
prediction  := evalf(it_previous * prior_factor
 + metabolism
 + it_ksteps * cal_per_ksteps
 + it_fat_other * cal_per_gram_fat
 + it_carb_other * cal_per_gram_carb
 + it_prot * cal_per_gram_prot
 + it_fiber * cal_per_gram_carb
 + it_sugar * cal_per_gram_carb
 + it_saturated * cal_per_gram_fat
 + it_fasted);
it_previous := 66.0;
actual := 85.0;
previous := 66.0;
err := abs(prediction - actual);
perc_err := abs(err * 100.0) / actual;
delta_glucose := abs(previous - actual);
perc_delta := (delta_glucose * 100.0) / actual;
if (perc_err < min_perc_err) then min_perc_err := perc_err; fi;
if (perc_err > max_perc_err) then max_perc_err := perc_err; fi;
tot_perc_err := tot_perc_err + perc_err;
if (actual < low_actual) then low_actual := actual; fi;
if (actual > high_actual) then high_actual := actual; fi;
if (prediction < low_prediction) then low_prediction := prediction; fi;
if (prediction > high_prediction) then high_prediction := prediction; fi;
count := count + 1.0;
out2 := [count, perc_err, actual,prediction,it_previous,it_previous * prior_factor,metabolism,it_ksteps * cal_per_ksteps,it_fat_other*cal_per_gram_fat,it_carb_other*cal_per_gram_carb,it_prot*cal_per_gram_prot,it_fiber*cal_per_gram_carb,it_sugar*cal_per_gram_carb,it_saturated*cal_per_gram_fat,it_fasted,order2, delta_method, kstep_method, recommended_ksteps, kstep_exponent, kstep_factor, recommended_fat, recommended_carb, recommended_prot, recommended_fiber, recommended_sugar, recommended_saturated ,factor1, factor2, recommended_fasted,prior_factor,fasted_factor,eliminate_extremes,ksteps,fat_other,carb_other,prot,fiber,sugar,saturated,fasted,C_ksteps,C_fat_other,C_carb_other,C_protein,C_fiber,C_sugar,C_saturated,C_fasted,cal_per_gram_carb,cal_per_gram_prot,cal_per_gram_fat,cal_per_ksteps];
writedata("OUT/out58_work.tmp", out2);
ksteps := 10.0;
kstep_factor := 20.;
fat := 91.1;
carb := 233.0;
prot := 43.7;
fiber := 33.9;
sugar := 57.8;
saturated := 18.7;
fasted := 6.0;
fat_other := 72.4;
carb_other := 141.3;
delta_ksteps :=  (recommended_ksteps - ksteps) * kstep_factor;
delta_fat_other := (fat_other - recommended_fat_other);
delta_carb_other := (carb_other - recommended_carb_other);
delta_prot := (prot - recommended_prot);
delta_fiber := (fiber - recommended_fiber);
delta_sugar := (sugar - recommended_sugar);
delta_saturated := (saturated - recommended_saturated);
delta_fasted := (fasted - recommended_fasted) * fasted_factor;
it_previous :=  84.0;
metabolism :=  0.;
it_ksteps := (C_ksteps) * (delta_ksteps);
it_fat_other := factor1  * ( C_fat_other ) * ( (delta_fat_other) );
it_carb_other := factor1  * ( C_carb_other ) * ( (delta_carb_other) );
it_prot := factor1  * ( C_protein ) * ( (delta_prot) );
it_fiber := factor1  * ( C_fiber ) * ( (delta_fiber) );
it_sugar :=  factor1  * ( C_sugar ) * ( (delta_sugar) );
it_saturated := factor1  * ( C_saturated ) * ( (delta_saturated) );
it_fasted := ( C_fasted ) * ( (delta_fasted) );
prediction  := evalf(it_previous * prior_factor
 + metabolism
 + it_ksteps * cal_per_ksteps
 + it_fat_other * cal_per_gram_fat
 + it_carb_other * cal_per_gram_carb
 + it_prot * cal_per_gram_prot
 + it_fiber * cal_per_gram_carb
 + it_sugar * cal_per_gram_carb
 + it_saturated * cal_per_gram_fat
 + it_fasted);
it_previous := 84.0;
actual := 66.0;
previous := 84.0;
err := abs(prediction - actual);
perc_err := abs(err * 100.0) / actual;
delta_glucose := abs(previous - actual);
perc_delta := (delta_glucose * 100.0) / actual;
if (perc_err < min_perc_err) then min_perc_err := perc_err; fi;
if (perc_err > max_perc_err) then max_perc_err := perc_err; fi;
tot_perc_err := tot_perc_err + perc_err;
if (actual < low_actual) then low_actual := actual; fi;
if (actual > high_actual) then high_actual := actual; fi;
if (prediction < low_prediction) then low_prediction := prediction; fi;
if (prediction > high_prediction) then high_prediction := prediction; fi;
count := count + 1.0;
out2 := [count, perc_err, actual,prediction,it_previous,it_previous * prior_factor,metabolism,it_ksteps * cal_per_ksteps,it_fat_other*cal_per_gram_fat,it_carb_other*cal_per_gram_carb,it_prot*cal_per_gram_prot,it_fiber*cal_per_gram_carb,it_sugar*cal_per_gram_carb,it_saturated*cal_per_gram_fat,it_fasted,order2, delta_method, kstep_method, recommended_ksteps, kstep_exponent, kstep_factor, recommended_fat, recommended_carb, recommended_prot, recommended_fiber, recommended_sugar, recommended_saturated ,factor1, factor2, recommended_fasted,prior_factor,fasted_factor,eliminate_extremes,ksteps,fat_other,carb_other,prot,fiber,sugar,saturated,fasted,C_ksteps,C_fat_other,C_carb_other,C_protein,C_fiber,C_sugar,C_saturated,C_fasted,cal_per_gram_carb,cal_per_gram_prot,cal_per_gram_fat,cal_per_ksteps];
writedata("OUT/out59_work.tmp", out2);
ksteps := 10.0;
kstep_factor := 20.;
fat := 75.8;
carb := 212.0;
prot := 36.1;
fiber := 14.9;
sugar := 72.5;
saturated := 18.4;
fasted := 7.5;
fat_other := 57.4;
carb_other := 124.6;
delta_ksteps :=  (recommended_ksteps - ksteps) * kstep_factor;
delta_fat_other := (fat_other - recommended_fat_other);
delta_carb_other := (carb_other - recommended_carb_other);
delta_prot := (prot - recommended_prot);
delta_fiber := (fiber - recommended_fiber);
delta_sugar := (sugar - recommended_sugar);
delta_saturated := (saturated - recommended_saturated);
delta_fasted := (fasted - recommended_fasted) * fasted_factor;
it_previous :=  83.0;
metabolism :=  0.;
it_ksteps := (C_ksteps) * (delta_ksteps);
it_fat_other := factor1  * ( C_fat_other ) * ( (delta_fat_other) );
it_carb_other := factor1  * ( C_carb_other ) * ( (delta_carb_other) );
it_prot := factor1  * ( C_protein ) * ( (delta_prot) );
it_fiber := factor1  * ( C_fiber ) * ( (delta_fiber) );
it_sugar :=  factor1  * ( C_sugar ) * ( (delta_sugar) );
it_saturated := factor1  * ( C_saturated ) * ( (delta_saturated) );
it_fasted := ( C_fasted ) * ( (delta_fasted) );
prediction  := evalf(it_previous * prior_factor
 + metabolism
 + it_ksteps * cal_per_ksteps
 + it_fat_other * cal_per_gram_fat
 + it_carb_other * cal_per_gram_carb
 + it_prot * cal_per_gram_prot
 + it_fiber * cal_per_gram_carb
 + it_sugar * cal_per_gram_carb
 + it_saturated * cal_per_gram_fat
 + it_fasted);
it_previous := 83.0;
actual := 84.0;
previous := 83.0;
err := abs(prediction - actual);
perc_err := abs(err * 100.0) / actual;
delta_glucose := abs(previous - actual);
perc_delta := (delta_glucose * 100.0) / actual;
if (perc_err < min_perc_err) then min_perc_err := perc_err; fi;
if (perc_err > max_perc_err) then max_perc_err := perc_err; fi;
tot_perc_err := tot_perc_err + perc_err;
if (actual < low_actual) then low_actual := actual; fi;
if (actual > high_actual) then high_actual := actual; fi;
if (prediction < low_prediction) then low_prediction := prediction; fi;
if (prediction > high_prediction) then high_prediction := prediction; fi;
count := count + 1.0;
out2 := [count, perc_err, actual,prediction,it_previous,it_previous * prior_factor,metabolism,it_ksteps * cal_per_ksteps,it_fat_other*cal_per_gram_fat,it_carb_other*cal_per_gram_carb,it_prot*cal_per_gram_prot,it_fiber*cal_per_gram_carb,it_sugar*cal_per_gram_carb,it_saturated*cal_per_gram_fat,it_fasted,order2, delta_method, kstep_method, recommended_ksteps, kstep_exponent, kstep_factor, recommended_fat, recommended_carb, recommended_prot, recommended_fiber, recommended_sugar, recommended_saturated ,factor1, factor2, recommended_fasted,prior_factor,fasted_factor,eliminate_extremes,ksteps,fat_other,carb_other,prot,fiber,sugar,saturated,fasted,C_ksteps,C_fat_other,C_carb_other,C_protein,C_fiber,C_sugar,C_saturated,C_fasted,cal_per_gram_carb,cal_per_gram_prot,cal_per_gram_fat,cal_per_ksteps];
writedata("OUT/out60_work.tmp", out2);
ksteps := 10.0;
kstep_factor := 20.;
fat := 96.4;
carb := 242.0;
prot := 43.3;
fiber := 14.3;
sugar := 91.1;
saturated := 22.2;
fasted := 8.0;
fat_other := 74.2;
carb_other := 136.6;
delta_ksteps :=  (recommended_ksteps - ksteps) * kstep_factor;
delta_fat_other := (fat_other - recommended_fat_other);
delta_carb_other := (carb_other - recommended_carb_other);
delta_prot := (prot - recommended_prot);
delta_fiber := (fiber - recommended_fiber);
delta_sugar := (sugar - recommended_sugar);
delta_saturated := (saturated - recommended_saturated);
delta_fasted := (fasted - recommended_fasted) * fasted_factor;
it_previous :=  77.0;
metabolism :=  0.;
it_ksteps := (C_ksteps) * (delta_ksteps);
it_fat_other := factor1  * ( C_fat_other ) * ( (delta_fat_other) );
it_carb_other := factor1  * ( C_carb_other ) * ( (delta_carb_other) );
it_prot := factor1  * ( C_protein ) * ( (delta_prot) );
it_fiber := factor1  * ( C_fiber ) * ( (delta_fiber) );
it_sugar :=  factor1  * ( C_sugar ) * ( (delta_sugar) );
it_saturated := factor1  * ( C_saturated ) * ( (delta_saturated) );
it_fasted := ( C_fasted ) * ( (delta_fasted) );
prediction  := evalf(it_previous * prior_factor
 + metabolism
 + it_ksteps * cal_per_ksteps
 + it_fat_other * cal_per_gram_fat
 + it_carb_other * cal_per_gram_carb
 + it_prot * cal_per_gram_prot
 + it_fiber * cal_per_gram_carb
 + it_sugar * cal_per_gram_carb
 + it_saturated * cal_per_gram_fat
 + it_fasted);
it_previous := 77.0;
actual := 83.0;
previous := 77.0;
err := abs(prediction - actual);
perc_err := abs(err * 100.0) / actual;
delta_glucose := abs(previous - actual);
perc_delta := (delta_glucose * 100.0) / actual;
if (perc_err < min_perc_err) then min_perc_err := perc_err; fi;
if (perc_err > max_perc_err) then max_perc_err := perc_err; fi;
tot_perc_err := tot_perc_err + perc_err;
if (actual < low_actual) then low_actual := actual; fi;
if (actual > high_actual) then high_actual := actual; fi;
if (prediction < low_prediction) then low_prediction := prediction; fi;
if (prediction > high_prediction) then high_prediction := prediction; fi;
count := count + 1.0;
out2 := [count, perc_err, actual,prediction,it_previous,it_previous * prior_factor,metabolism,it_ksteps * cal_per_ksteps,it_fat_other*cal_per_gram_fat,it_carb_other*cal_per_gram_carb,it_prot*cal_per_gram_prot,it_fiber*cal_per_gram_carb,it_sugar*cal_per_gram_carb,it_saturated*cal_per_gram_fat,it_fasted,order2, delta_method, kstep_method, recommended_ksteps, kstep_exponent, kstep_factor, recommended_fat, recommended_carb, recommended_prot, recommended_fiber, recommended_sugar, recommended_saturated ,factor1, factor2, recommended_fasted,prior_factor,fasted_factor,eliminate_extremes,ksteps,fat_other,carb_other,prot,fiber,sugar,saturated,fasted,C_ksteps,C_fat_other,C_carb_other,C_protein,C_fiber,C_sugar,C_saturated,C_fasted,cal_per_gram_carb,cal_per_gram_prot,cal_per_gram_fat,cal_per_ksteps];
writedata("OUT/out61_work.tmp", out2);
ksteps := 9.0;
kstep_factor := 20.;
fat := 115.0;
carb := 298.0;
prot := 57.0;
fiber := 24.3;
sugar := 86.8;
saturated := 26.3;
fasted := 6.5;
fat_other := 88.7;
carb_other := 186.9;
delta_ksteps :=  (recommended_ksteps - ksteps) * kstep_factor;
delta_fat_other := (fat_other - recommended_fat_other);
delta_carb_other := (carb_other - recommended_carb_other);
delta_prot := (prot - recommended_prot);
delta_fiber := (fiber - recommended_fiber);
delta_sugar := (sugar - recommended_sugar);
delta_saturated := (saturated - recommended_saturated);
delta_fasted := (fasted - recommended_fasted) * fasted_factor;
it_previous :=  69.0;
metabolism :=  0.;
it_ksteps := (C_ksteps) * (delta_ksteps);
it_fat_other := factor1  * ( C_fat_other ) * ( (delta_fat_other) );
it_carb_other := factor1  * ( C_carb_other ) * ( (delta_carb_other) );
it_prot := factor1  * ( C_protein ) * ( (delta_prot) );
it_fiber := factor1  * ( C_fiber ) * ( (delta_fiber) );
it_sugar :=  factor1  * ( C_sugar ) * ( (delta_sugar) );
it_saturated := factor1  * ( C_saturated ) * ( (delta_saturated) );
it_fasted := ( C_fasted ) * ( (delta_fasted) );
prediction  := evalf(it_previous * prior_factor
 + metabolism
 + it_ksteps * cal_per_ksteps
 + it_fat_other * cal_per_gram_fat
 + it_carb_other * cal_per_gram_carb
 + it_prot * cal_per_gram_prot
 + it_fiber * cal_per_gram_carb
 + it_sugar * cal_per_gram_carb
 + it_saturated * cal_per_gram_fat
 + it_fasted);
it_previous := 69.0;
actual := 77.0;
previous := 69.0;
err := abs(prediction - actual);
perc_err := abs(err * 100.0) / actual;
delta_glucose := abs(previous - actual);
perc_delta := (delta_glucose * 100.0) / actual;
if (perc_err < min_perc_err) then min_perc_err := perc_err; fi;
if (perc_err > max_perc_err) then max_perc_err := perc_err; fi;
tot_perc_err := tot_perc_err + perc_err;
if (actual < low_actual) then low_actual := actual; fi;
if (actual > high_actual) then high_actual := actual; fi;
if (prediction < low_prediction) then low_prediction := prediction; fi;
if (prediction > high_prediction) then high_prediction := prediction; fi;
count := count + 1.0;
out2 := [count, perc_err, actual,prediction,it_previous,it_previous * prior_factor,metabolism,it_ksteps * cal_per_ksteps,it_fat_other*cal_per_gram_fat,it_carb_other*cal_per_gram_carb,it_prot*cal_per_gram_prot,it_fiber*cal_per_gram_carb,it_sugar*cal_per_gram_carb,it_saturated*cal_per_gram_fat,it_fasted,order2, delta_method, kstep_method, recommended_ksteps, kstep_exponent, kstep_factor, recommended_fat, recommended_carb, recommended_prot, recommended_fiber, recommended_sugar, recommended_saturated ,factor1, factor2, recommended_fasted,prior_factor,fasted_factor,eliminate_extremes,ksteps,fat_other,carb_other,prot,fiber,sugar,saturated,fasted,C_ksteps,C_fat_other,C_carb_other,C_protein,C_fiber,C_sugar,C_saturated,C_fasted,cal_per_gram_carb,cal_per_gram_prot,cal_per_gram_fat,cal_per_ksteps];
writedata("OUT/out62_work.tmp", out2);
ksteps := 10.0;
kstep_factor := 20.;
fat := 93.8;
carb := 160.0;
prot := 47.1;
fiber := 18.5;
sugar := 50.9;
saturated := 13.8;
fasted := 5.0;
fat_other := 80.;
carb_other := 90.6;
delta_ksteps :=  (recommended_ksteps - ksteps) * kstep_factor;
delta_fat_other := (fat_other - recommended_fat_other);
delta_carb_other := (carb_other - recommended_carb_other);
delta_prot := (prot - recommended_prot);
delta_fiber := (fiber - recommended_fiber);
delta_sugar := (sugar - recommended_sugar);
delta_saturated := (saturated - recommended_saturated);
delta_fasted := (fasted - recommended_fasted) * fasted_factor;
it_previous :=  78.0;
metabolism :=  0.;
it_ksteps := (C_ksteps) * (delta_ksteps);
it_fat_other := factor1  * ( C_fat_other ) * ( (delta_fat_other) );
it_carb_other := factor1  * ( C_carb_other ) * ( (delta_carb_other) );
it_prot := factor1  * ( C_protein ) * ( (delta_prot) );
it_fiber := factor1  * ( C_fiber ) * ( (delta_fiber) );
it_sugar :=  factor1  * ( C_sugar ) * ( (delta_sugar) );
it_saturated := factor1  * ( C_saturated ) * ( (delta_saturated) );
it_fasted := ( C_fasted ) * ( (delta_fasted) );
prediction  := evalf(it_previous * prior_factor
 + metabolism
 + it_ksteps * cal_per_ksteps
 + it_fat_other * cal_per_gram_fat
 + it_carb_other * cal_per_gram_carb
 + it_prot * cal_per_gram_prot
 + it_fiber * cal_per_gram_carb
 + it_sugar * cal_per_gram_carb
 + it_saturated * cal_per_gram_fat
 + it_fasted);
it_previous := 78.0;
actual := 69.0;
previous := 78.0;
err := abs(prediction - actual);
perc_err := abs(err * 100.0) / actual;
delta_glucose := abs(previous - actual);
perc_delta := (delta_glucose * 100.0) / actual;
if (perc_err < min_perc_err) then min_perc_err := perc_err; fi;
if (perc_err > max_perc_err) then max_perc_err := perc_err; fi;
tot_perc_err := tot_perc_err + perc_err;
if (actual < low_actual) then low_actual := actual; fi;
if (actual > high_actual) then high_actual := actual; fi;
if (prediction < low_prediction) then low_prediction := prediction; fi;
if (prediction > high_prediction) then high_prediction := prediction; fi;
count := count + 1.0;
out2 := [count, perc_err, actual,prediction,it_previous,it_previous * prior_factor,metabolism,it_ksteps * cal_per_ksteps,it_fat_other*cal_per_gram_fat,it_carb_other*cal_per_gram_carb,it_prot*cal_per_gram_prot,it_fiber*cal_per_gram_carb,it_sugar*cal_per_gram_carb,it_saturated*cal_per_gram_fat,it_fasted,order2, delta_method, kstep_method, recommended_ksteps, kstep_exponent, kstep_factor, recommended_fat, recommended_carb, recommended_prot, recommended_fiber, recommended_sugar, recommended_saturated ,factor1, factor2, recommended_fasted,prior_factor,fasted_factor,eliminate_extremes,ksteps,fat_other,carb_other,prot,fiber,sugar,saturated,fasted,C_ksteps,C_fat_other,C_carb_other,C_protein,C_fiber,C_sugar,C_saturated,C_fasted,cal_per_gram_carb,cal_per_gram_prot,cal_per_gram_fat,cal_per_ksteps];
writedata("OUT/out63_work.tmp", out2);
ksteps := 10.0;
kstep_factor := 20.;
fat := 105.0;
carb := 259.0;
prot := 51.5;
fiber := 20.3;
sugar := 86.4;
saturated := 23.7;
fasted := 7.5;
fat_other := 81.3;
carb_other := 152.3;
delta_ksteps :=  (recommended_ksteps - ksteps) * kstep_factor;
delta_fat_other := (fat_other - recommended_fat_other);
delta_carb_other := (carb_other - recommended_carb_other);
delta_prot := (prot - recommended_prot);
delta_fiber := (fiber - recommended_fiber);
delta_sugar := (sugar - recommended_sugar);
delta_saturated := (saturated - recommended_saturated);
delta_fasted := (fasted - recommended_fasted) * fasted_factor;
it_previous :=  93.0;
metabolism :=  0.;
it_ksteps := (C_ksteps) * (delta_ksteps);
it_fat_other := factor1  * ( C_fat_other ) * ( (delta_fat_other) );
it_carb_other := factor1  * ( C_carb_other ) * ( (delta_carb_other) );
it_prot := factor1  * ( C_protein ) * ( (delta_prot) );
it_fiber := factor1  * ( C_fiber ) * ( (delta_fiber) );
it_sugar :=  factor1  * ( C_sugar ) * ( (delta_sugar) );
it_saturated := factor1  * ( C_saturated ) * ( (delta_saturated) );
it_fasted := ( C_fasted ) * ( (delta_fasted) );
prediction  := evalf(it_previous * prior_factor
 + metabolism
 + it_ksteps * cal_per_ksteps
 + it_fat_other * cal_per_gram_fat
 + it_carb_other * cal_per_gram_carb
 + it_prot * cal_per_gram_prot
 + it_fiber * cal_per_gram_carb
 + it_sugar * cal_per_gram_carb
 + it_saturated * cal_per_gram_fat
 + it_fasted);
it_previous := 93.0;
actual := 78.0;
previous := 93.0;
err := abs(prediction - actual);
perc_err := abs(err * 100.0) / actual;
delta_glucose := abs(previous - actual);
perc_delta := (delta_glucose * 100.0) / actual;
if (perc_err < min_perc_err) then min_perc_err := perc_err; fi;
if (perc_err > max_perc_err) then max_perc_err := perc_err; fi;
tot_perc_err := tot_perc_err + perc_err;
if (actual < low_actual) then low_actual := actual; fi;
if (actual > high_actual) then high_actual := actual; fi;
if (prediction < low_prediction) then low_prediction := prediction; fi;
if (prediction > high_prediction) then high_prediction := prediction; fi;
count := count + 1.0;
out2 := [count, perc_err, actual,prediction,it_previous,it_previous * prior_factor,metabolism,it_ksteps * cal_per_ksteps,it_fat_other*cal_per_gram_fat,it_carb_other*cal_per_gram_carb,it_prot*cal_per_gram_prot,it_fiber*cal_per_gram_carb,it_sugar*cal_per_gram_carb,it_saturated*cal_per_gram_fat,it_fasted,order2, delta_method, kstep_method, recommended_ksteps, kstep_exponent, kstep_factor, recommended_fat, recommended_carb, recommended_prot, recommended_fiber, recommended_sugar, recommended_saturated ,factor1, factor2, recommended_fasted,prior_factor,fasted_factor,eliminate_extremes,ksteps,fat_other,carb_other,prot,fiber,sugar,saturated,fasted,C_ksteps,C_fat_other,C_carb_other,C_protein,C_fiber,C_sugar,C_saturated,C_fasted,cal_per_gram_carb,cal_per_gram_prot,cal_per_gram_fat,cal_per_ksteps];
writedata("OUT/out64_work.tmp", out2);
ksteps := 10.0;
kstep_factor := 20.;
fat := 110.0;
carb := 270.0;
prot := 55.8;
fiber := 19.1;
sugar := 87.2;
saturated := 36.8;
fasted := 7.5;
fat_other := 73.2;
carb_other := 163.7;
delta_ksteps :=  (recommended_ksteps - ksteps) * kstep_factor;
delta_fat_other := (fat_other - recommended_fat_other);
delta_carb_other := (carb_other - recommended_carb_other);
delta_prot := (prot - recommended_prot);
delta_fiber := (fiber - recommended_fiber);
delta_sugar := (sugar - recommended_sugar);
delta_saturated := (saturated - recommended_saturated);
delta_fasted := (fasted - recommended_fasted) * fasted_factor;
it_previous :=  81.0;
metabolism :=  0.;
it_ksteps := (C_ksteps) * (delta_ksteps);
it_fat_other := factor1  * ( C_fat_other ) * ( (delta_fat_other) );
it_carb_other := factor1  * ( C_carb_other ) * ( (delta_carb_other) );
it_prot := factor1  * ( C_protein ) * ( (delta_prot) );
it_fiber := factor1  * ( C_fiber ) * ( (delta_fiber) );
it_sugar :=  factor1  * ( C_sugar ) * ( (delta_sugar) );
it_saturated := factor1  * ( C_saturated ) * ( (delta_saturated) );
it_fasted := ( C_fasted ) * ( (delta_fasted) );
prediction  := evalf(it_previous * prior_factor
 + metabolism
 + it_ksteps * cal_per_ksteps
 + it_fat_other * cal_per_gram_fat
 + it_carb_other * cal_per_gram_carb
 + it_prot * cal_per_gram_prot
 + it_fiber * cal_per_gram_carb
 + it_sugar * cal_per_gram_carb
 + it_saturated * cal_per_gram_fat
 + it_fasted);
it_previous := 81.0;
actual := 93.0;
previous := 81.0;
err := abs(prediction - actual);
perc_err := abs(err * 100.0) / actual;
delta_glucose := abs(previous - actual);
perc_delta := (delta_glucose * 100.0) / actual;
if (perc_err < min_perc_err) then min_perc_err := perc_err; fi;
if (perc_err > max_perc_err) then max_perc_err := perc_err; fi;
tot_perc_err := tot_perc_err + perc_err;
if (actual < low_actual) then low_actual := actual; fi;
if (actual > high_actual) then high_actual := actual; fi;
if (prediction < low_prediction) then low_prediction := prediction; fi;
if (prediction > high_prediction) then high_prediction := prediction; fi;
count := count + 1.0;
out2 := [count, perc_err, actual,prediction,it_previous,it_previous * prior_factor,metabolism,it_ksteps * cal_per_ksteps,it_fat_other*cal_per_gram_fat,it_carb_other*cal_per_gram_carb,it_prot*cal_per_gram_prot,it_fiber*cal_per_gram_carb,it_sugar*cal_per_gram_carb,it_saturated*cal_per_gram_fat,it_fasted,order2, delta_method, kstep_method, recommended_ksteps, kstep_exponent, kstep_factor, recommended_fat, recommended_carb, recommended_prot, recommended_fiber, recommended_sugar, recommended_saturated ,factor1, factor2, recommended_fasted,prior_factor,fasted_factor,eliminate_extremes,ksteps,fat_other,carb_other,prot,fiber,sugar,saturated,fasted,C_ksteps,C_fat_other,C_carb_other,C_protein,C_fiber,C_sugar,C_saturated,C_fasted,cal_per_gram_carb,cal_per_gram_prot,cal_per_gram_fat,cal_per_ksteps];
writedata("OUT/out65_work.tmp", out2);
ksteps := 10.0;
kstep_factor := 20.;
fat := 170.0;
carb := 392.0;
prot := 68.9;
fiber := 24.9;
sugar := 147.0;
saturated := 44.8;
fasted := 7.5;
fat_other := 125.2;
carb_other := 220.1;
delta_ksteps :=  (recommended_ksteps - ksteps) * kstep_factor;
delta_fat_other := (fat_other - recommended_fat_other);
delta_carb_other := (carb_other - recommended_carb_other);
delta_prot := (prot - recommended_prot);
delta_fiber := (fiber - recommended_fiber);
delta_sugar := (sugar - recommended_sugar);
delta_saturated := (saturated - recommended_saturated);
delta_fasted := (fasted - recommended_fasted) * fasted_factor;
it_previous :=  92.0;
metabolism :=  0.;
it_ksteps := (C_ksteps) * (delta_ksteps);
it_fat_other := factor1  * ( C_fat_other ) * ( (delta_fat_other) );
it_carb_other := factor1  * ( C_carb_other ) * ( (delta_carb_other) );
it_prot := factor1  * ( C_protein ) * ( (delta_prot) );
it_fiber := factor1  * ( C_fiber ) * ( (delta_fiber) );
it_sugar :=  factor1  * ( C_sugar ) * ( (delta_sugar) );
it_saturated := factor1  * ( C_saturated ) * ( (delta_saturated) );
it_fasted := ( C_fasted ) * ( (delta_fasted) );
prediction  := evalf(it_previous * prior_factor
 + metabolism
 + it_ksteps * cal_per_ksteps
 + it_fat_other * cal_per_gram_fat
 + it_carb_other * cal_per_gram_carb
 + it_prot * cal_per_gram_prot
 + it_fiber * cal_per_gram_carb
 + it_sugar * cal_per_gram_carb
 + it_saturated * cal_per_gram_fat
 + it_fasted);
it_previous := 92.0;
actual := 81.0;
previous := 92.0;
err := abs(prediction - actual);
perc_err := abs(err * 100.0) / actual;
delta_glucose := abs(previous - actual);
perc_delta := (delta_glucose * 100.0) / actual;
if (perc_err < min_perc_err) then min_perc_err := perc_err; fi;
if (perc_err > max_perc_err) then max_perc_err := perc_err; fi;
tot_perc_err := tot_perc_err + perc_err;
if (actual < low_actual) then low_actual := actual; fi;
if (actual > high_actual) then high_actual := actual; fi;
if (prediction < low_prediction) then low_prediction := prediction; fi;
if (prediction > high_prediction) then high_prediction := prediction; fi;
count := count + 1.0;
out2 := [count, perc_err, actual,prediction,it_previous,it_previous * prior_factor,metabolism,it_ksteps * cal_per_ksteps,it_fat_other*cal_per_gram_fat,it_carb_other*cal_per_gram_carb,it_prot*cal_per_gram_prot,it_fiber*cal_per_gram_carb,it_sugar*cal_per_gram_carb,it_saturated*cal_per_gram_fat,it_fasted,order2, delta_method, kstep_method, recommended_ksteps, kstep_exponent, kstep_factor, recommended_fat, recommended_carb, recommended_prot, recommended_fiber, recommended_sugar, recommended_saturated ,factor1, factor2, recommended_fasted,prior_factor,fasted_factor,eliminate_extremes,ksteps,fat_other,carb_other,prot,fiber,sugar,saturated,fasted,C_ksteps,C_fat_other,C_carb_other,C_protein,C_fiber,C_sugar,C_saturated,C_fasted,cal_per_gram_carb,cal_per_gram_prot,cal_per_gram_fat,cal_per_ksteps];
writedata("OUT/out66_work.tmp", out2);
ksteps := 12.0;
kstep_factor := 20.;
fat := 109.0;
carb := 319.0;
prot := 66.7;
fiber := 13.9;
sugar := 133.0;
saturated := 38.0;
fasted := 6.5;
fat_other := 71.;
carb_other := 172.1;
delta_ksteps :=  (recommended_ksteps - ksteps) * kstep_factor;
delta_fat_other := (fat_other - recommended_fat_other);
delta_carb_other := (carb_other - recommended_carb_other);
delta_prot := (prot - recommended_prot);
delta_fiber := (fiber - recommended_fiber);
delta_sugar := (sugar - recommended_sugar);
delta_saturated := (saturated - recommended_saturated);
delta_fasted := (fasted - recommended_fasted) * fasted_factor;
it_previous :=  74.0;
metabolism :=  0.;
it_ksteps := (C_ksteps) * (delta_ksteps);
it_fat_other := factor1  * ( C_fat_other ) * ( (delta_fat_other) );
it_carb_other := factor1  * ( C_carb_other ) * ( (delta_carb_other) );
it_prot := factor1  * ( C_protein ) * ( (delta_prot) );
it_fiber := factor1  * ( C_fiber ) * ( (delta_fiber) );
it_sugar :=  factor1  * ( C_sugar ) * ( (delta_sugar) );
it_saturated := factor1  * ( C_saturated ) * ( (delta_saturated) );
it_fasted := ( C_fasted ) * ( (delta_fasted) );
prediction  := evalf(it_previous * prior_factor
 + metabolism
 + it_ksteps * cal_per_ksteps
 + it_fat_other * cal_per_gram_fat
 + it_carb_other * cal_per_gram_carb
 + it_prot * cal_per_gram_prot
 + it_fiber * cal_per_gram_carb
 + it_sugar * cal_per_gram_carb
 + it_saturated * cal_per_gram_fat
 + it_fasted);
it_previous := 74.0;
actual := 92.0;
previous := 74.0;
err := abs(prediction - actual);
perc_err := abs(err * 100.0) / actual;
delta_glucose := abs(previous - actual);
perc_delta := (delta_glucose * 100.0) / actual;
if (perc_err < min_perc_err) then min_perc_err := perc_err; fi;
if (perc_err > max_perc_err) then max_perc_err := perc_err; fi;
tot_perc_err := tot_perc_err + perc_err;
if (actual < low_actual) then low_actual := actual; fi;
if (actual > high_actual) then high_actual := actual; fi;
if (prediction < low_prediction) then low_prediction := prediction; fi;
if (prediction > high_prediction) then high_prediction := prediction; fi;
count := count + 1.0;
out2 := [count, perc_err, actual,prediction,it_previous,it_previous * prior_factor,metabolism,it_ksteps * cal_per_ksteps,it_fat_other*cal_per_gram_fat,it_carb_other*cal_per_gram_carb,it_prot*cal_per_gram_prot,it_fiber*cal_per_gram_carb,it_sugar*cal_per_gram_carb,it_saturated*cal_per_gram_fat,it_fasted,order2, delta_method, kstep_method, recommended_ksteps, kstep_exponent, kstep_factor, recommended_fat, recommended_carb, recommended_prot, recommended_fiber, recommended_sugar, recommended_saturated ,factor1, factor2, recommended_fasted,prior_factor,fasted_factor,eliminate_extremes,ksteps,fat_other,carb_other,prot,fiber,sugar,saturated,fasted,C_ksteps,C_fat_other,C_carb_other,C_protein,C_fiber,C_sugar,C_saturated,C_fasted,cal_per_gram_carb,cal_per_gram_prot,cal_per_gram_fat,cal_per_ksteps];
writedata("OUT/out67_work.tmp", out2);
ksteps := 12.0;
kstep_factor := 20.;
fat := 143.0;
carb := 299.0;
prot := 67.4;
fiber := 24.2;
sugar := 112.0;
saturated := 30.4;
fasted := 7.5;
fat_other := 112.6;
carb_other := 162.8;
delta_ksteps :=  (recommended_ksteps - ksteps) * kstep_factor;
delta_fat_other := (fat_other - recommended_fat_other);
delta_carb_other := (carb_other - recommended_carb_other);
delta_prot := (prot - recommended_prot);
delta_fiber := (fiber - recommended_fiber);
delta_sugar := (sugar - recommended_sugar);
delta_saturated := (saturated - recommended_saturated);
delta_fasted := (fasted - recommended_fasted) * fasted_factor;
it_previous :=  122.0;
metabolism :=  0.;
it_ksteps := (C_ksteps) * (delta_ksteps);
it_fat_other := factor1  * ( C_fat_other ) * ( (delta_fat_other) );
it_carb_other := factor1  * ( C_carb_other ) * ( (delta_carb_other) );
it_prot := factor1  * ( C_protein ) * ( (delta_prot) );
it_fiber := factor1  * ( C_fiber ) * ( (delta_fiber) );
it_sugar :=  factor1  * ( C_sugar ) * ( (delta_sugar) );
it_saturated := factor1  * ( C_saturated ) * ( (delta_saturated) );
it_fasted := ( C_fasted ) * ( (delta_fasted) );
prediction  := evalf(it_previous * prior_factor
 + metabolism
 + it_ksteps * cal_per_ksteps
 + it_fat_other * cal_per_gram_fat
 + it_carb_other * cal_per_gram_carb
 + it_prot * cal_per_gram_prot
 + it_fiber * cal_per_gram_carb
 + it_sugar * cal_per_gram_carb
 + it_saturated * cal_per_gram_fat
 + it_fasted);
it_previous := 122.0;
actual := 74.0;
previous := 122.0;
err := abs(prediction - actual);
perc_err := abs(err * 100.0) / actual;
delta_glucose := abs(previous - actual);
perc_delta := (delta_glucose * 100.0) / actual;
if (perc_err < min_perc_err) then min_perc_err := perc_err; fi;
if (perc_err > max_perc_err) then max_perc_err := perc_err; fi;
tot_perc_err := tot_perc_err + perc_err;
if (actual < low_actual) then low_actual := actual; fi;
if (actual > high_actual) then high_actual := actual; fi;
if (prediction < low_prediction) then low_prediction := prediction; fi;
if (prediction > high_prediction) then high_prediction := prediction; fi;
count := count + 1.0;
out2 := [count, perc_err, actual,prediction,it_previous,it_previous * prior_factor,metabolism,it_ksteps * cal_per_ksteps,it_fat_other*cal_per_gram_fat,it_carb_other*cal_per_gram_carb,it_prot*cal_per_gram_prot,it_fiber*cal_per_gram_carb,it_sugar*cal_per_gram_carb,it_saturated*cal_per_gram_fat,it_fasted,order2, delta_method, kstep_method, recommended_ksteps, kstep_exponent, kstep_factor, recommended_fat, recommended_carb, recommended_prot, recommended_fiber, recommended_sugar, recommended_saturated ,factor1, factor2, recommended_fasted,prior_factor,fasted_factor,eliminate_extremes,ksteps,fat_other,carb_other,prot,fiber,sugar,saturated,fasted,C_ksteps,C_fat_other,C_carb_other,C_protein,C_fiber,C_sugar,C_saturated,C_fasted,cal_per_gram_carb,cal_per_gram_prot,cal_per_gram_fat,cal_per_ksteps];
writedata("OUT/out68_work.tmp", out2);
ksteps := 10.0;
kstep_factor := 20.;
fat := 110.0;
carb := 261.0;
prot := 46.2;
fiber := 14.7;
sugar := 113.0;
saturated := 26.4;
fasted := 4.5;
fat_other := 83.6;
carb_other := 133.3;
delta_ksteps :=  (recommended_ksteps - ksteps) * kstep_factor;
delta_fat_other := (fat_other - recommended_fat_other);
delta_carb_other := (carb_other - recommended_carb_other);
delta_prot := (prot - recommended_prot);
delta_fiber := (fiber - recommended_fiber);
delta_sugar := (sugar - recommended_sugar);
delta_saturated := (saturated - recommended_saturated);
delta_fasted := (fasted - recommended_fasted) * fasted_factor;
it_previous :=  88.0;
metabolism :=  0.;
it_ksteps := (C_ksteps) * (delta_ksteps);
it_fat_other := factor1  * ( C_fat_other ) * ( (delta_fat_other) );
it_carb_other := factor1  * ( C_carb_other ) * ( (delta_carb_other) );
it_prot := factor1  * ( C_protein ) * ( (delta_prot) );
it_fiber := factor1  * ( C_fiber ) * ( (delta_fiber) );
it_sugar :=  factor1  * ( C_sugar ) * ( (delta_sugar) );
it_saturated := factor1  * ( C_saturated ) * ( (delta_saturated) );
it_fasted := ( C_fasted ) * ( (delta_fasted) );
prediction  := evalf(it_previous * prior_factor
 + metabolism
 + it_ksteps * cal_per_ksteps
 + it_fat_other * cal_per_gram_fat
 + it_carb_other * cal_per_gram_carb
 + it_prot * cal_per_gram_prot
 + it_fiber * cal_per_gram_carb
 + it_sugar * cal_per_gram_carb
 + it_saturated * cal_per_gram_fat
 + it_fasted);
it_previous := 88.0;
actual := 122.0;
previous := 88.0;
err := abs(prediction - actual);
perc_err := abs(err * 100.0) / actual;
delta_glucose := abs(previous - actual);
perc_delta := (delta_glucose * 100.0) / actual;
if (perc_err < min_perc_err) then min_perc_err := perc_err; fi;
if (perc_err > max_perc_err) then max_perc_err := perc_err; fi;
tot_perc_err := tot_perc_err + perc_err;
if (actual < low_actual) then low_actual := actual; fi;
if (actual > high_actual) then high_actual := actual; fi;
if (prediction < low_prediction) then low_prediction := prediction; fi;
if (prediction > high_prediction) then high_prediction := prediction; fi;
count := count + 1.0;
out2 := [count, perc_err, actual,prediction,it_previous,it_previous * prior_factor,metabolism,it_ksteps * cal_per_ksteps,it_fat_other*cal_per_gram_fat,it_carb_other*cal_per_gram_carb,it_prot*cal_per_gram_prot,it_fiber*cal_per_gram_carb,it_sugar*cal_per_gram_carb,it_saturated*cal_per_gram_fat,it_fasted,order2, delta_method, kstep_method, recommended_ksteps, kstep_exponent, kstep_factor, recommended_fat, recommended_carb, recommended_prot, recommended_fiber, recommended_sugar, recommended_saturated ,factor1, factor2, recommended_fasted,prior_factor,fasted_factor,eliminate_extremes,ksteps,fat_other,carb_other,prot,fiber,sugar,saturated,fasted,C_ksteps,C_fat_other,C_carb_other,C_protein,C_fiber,C_sugar,C_saturated,C_fasted,cal_per_gram_carb,cal_per_gram_prot,cal_per_gram_fat,cal_per_ksteps];
writedata("OUT/out69_work.tmp", out2);
ksteps := 11.0;
kstep_factor := 20.;
fat := 99.6;
carb := 294.0;
prot := 50.8;
fiber := 12.3;
sugar := 104.0;
saturated := 31.7;
fasted := 6.5;
fat_other := 67.9;
carb_other := 177.7;
delta_ksteps :=  (recommended_ksteps - ksteps) * kstep_factor;
delta_fat_other := (fat_other - recommended_fat_other);
delta_carb_other := (carb_other - recommended_carb_other);
delta_prot := (prot - recommended_prot);
delta_fiber := (fiber - recommended_fiber);
delta_sugar := (sugar - recommended_sugar);
delta_saturated := (saturated - recommended_saturated);
delta_fasted := (fasted - recommended_fasted) * fasted_factor;
it_previous :=  99.0;
metabolism :=  0.;
it_ksteps := (C_ksteps) * (delta_ksteps);
it_fat_other := factor1  * ( C_fat_other ) * ( (delta_fat_other) );
it_carb_other := factor1  * ( C_carb_other ) * ( (delta_carb_other) );
it_prot := factor1  * ( C_protein ) * ( (delta_prot) );
it_fiber := factor1  * ( C_fiber ) * ( (delta_fiber) );
it_sugar :=  factor1  * ( C_sugar ) * ( (delta_sugar) );
it_saturated := factor1  * ( C_saturated ) * ( (delta_saturated) );
it_fasted := ( C_fasted ) * ( (delta_fasted) );
prediction  := evalf(it_previous * prior_factor
 + metabolism
 + it_ksteps * cal_per_ksteps
 + it_fat_other * cal_per_gram_fat
 + it_carb_other * cal_per_gram_carb
 + it_prot * cal_per_gram_prot
 + it_fiber * cal_per_gram_carb
 + it_sugar * cal_per_gram_carb
 + it_saturated * cal_per_gram_fat
 + it_fasted);
it_previous := 99.0;
actual := 88.0;
previous := 99.0;
err := abs(prediction - actual);
perc_err := abs(err * 100.0) / actual;
delta_glucose := abs(previous - actual);
perc_delta := (delta_glucose * 100.0) / actual;
if (perc_err < min_perc_err) then min_perc_err := perc_err; fi;
if (perc_err > max_perc_err) then max_perc_err := perc_err; fi;
tot_perc_err := tot_perc_err + perc_err;
if (actual < low_actual) then low_actual := actual; fi;
if (actual > high_actual) then high_actual := actual; fi;
if (prediction < low_prediction) then low_prediction := prediction; fi;
if (prediction > high_prediction) then high_prediction := prediction; fi;
count := count + 1.0;
out2 := [count, perc_err, actual,prediction,it_previous,it_previous * prior_factor,metabolism,it_ksteps * cal_per_ksteps,it_fat_other*cal_per_gram_fat,it_carb_other*cal_per_gram_carb,it_prot*cal_per_gram_prot,it_fiber*cal_per_gram_carb,it_sugar*cal_per_gram_carb,it_saturated*cal_per_gram_fat,it_fasted,order2, delta_method, kstep_method, recommended_ksteps, kstep_exponent, kstep_factor, recommended_fat, recommended_carb, recommended_prot, recommended_fiber, recommended_sugar, recommended_saturated ,factor1, factor2, recommended_fasted,prior_factor,fasted_factor,eliminate_extremes,ksteps,fat_other,carb_other,prot,fiber,sugar,saturated,fasted,C_ksteps,C_fat_other,C_carb_other,C_protein,C_fiber,C_sugar,C_saturated,C_fasted,cal_per_gram_carb,cal_per_gram_prot,cal_per_gram_fat,cal_per_ksteps];
writedata("OUT/out70_work.tmp", out2);
ksteps := 15.0;
kstep_factor := 20.;
fat := 138.0;
carb := 344.0;
prot := 46.4;
fiber := 20.3;
sugar := 146.0;
saturated := 34.5;
fasted := 6.5;
fat_other := 103.5;
carb_other := 177.7;
delta_ksteps :=  (recommended_ksteps - ksteps) * kstep_factor;
delta_fat_other := (fat_other - recommended_fat_other);
delta_carb_other := (carb_other - recommended_carb_other);
delta_prot := (prot - recommended_prot);
delta_fiber := (fiber - recommended_fiber);
delta_sugar := (sugar - recommended_sugar);
delta_saturated := (saturated - recommended_saturated);
delta_fasted := (fasted - recommended_fasted) * fasted_factor;
it_previous :=  76.0;
metabolism :=  0.;
it_ksteps := (C_ksteps) * (delta_ksteps);
it_fat_other := factor1  * ( C_fat_other ) * ( (delta_fat_other) );
it_carb_other := factor1  * ( C_carb_other ) * ( (delta_carb_other) );
it_prot := factor1  * ( C_protein ) * ( (delta_prot) );
it_fiber := factor1  * ( C_fiber ) * ( (delta_fiber) );
it_sugar :=  factor1  * ( C_sugar ) * ( (delta_sugar) );
it_saturated := factor1  * ( C_saturated ) * ( (delta_saturated) );
it_fasted := ( C_fasted ) * ( (delta_fasted) );
prediction  := evalf(it_previous * prior_factor
 + metabolism
 + it_ksteps * cal_per_ksteps
 + it_fat_other * cal_per_gram_fat
 + it_carb_other * cal_per_gram_carb
 + it_prot * cal_per_gram_prot
 + it_fiber * cal_per_gram_carb
 + it_sugar * cal_per_gram_carb
 + it_saturated * cal_per_gram_fat
 + it_fasted);
it_previous := 76.0;
actual := 99.0;
previous := 76.0;
err := abs(prediction - actual);
perc_err := abs(err * 100.0) / actual;
delta_glucose := abs(previous - actual);
perc_delta := (delta_glucose * 100.0) / actual;
if (perc_err < min_perc_err) then min_perc_err := perc_err; fi;
if (perc_err > max_perc_err) then max_perc_err := perc_err; fi;
tot_perc_err := tot_perc_err + perc_err;
if (actual < low_actual) then low_actual := actual; fi;
if (actual > high_actual) then high_actual := actual; fi;
if (prediction < low_prediction) then low_prediction := prediction; fi;
if (prediction > high_prediction) then high_prediction := prediction; fi;
count := count + 1.0;
out2 := [count, perc_err, actual,prediction,it_previous,it_previous * prior_factor,metabolism,it_ksteps * cal_per_ksteps,it_fat_other*cal_per_gram_fat,it_carb_other*cal_per_gram_carb,it_prot*cal_per_gram_prot,it_fiber*cal_per_gram_carb,it_sugar*cal_per_gram_carb,it_saturated*cal_per_gram_fat,it_fasted,order2, delta_method, kstep_method, recommended_ksteps, kstep_exponent, kstep_factor, recommended_fat, recommended_carb, recommended_prot, recommended_fiber, recommended_sugar, recommended_saturated ,factor1, factor2, recommended_fasted,prior_factor,fasted_factor,eliminate_extremes,ksteps,fat_other,carb_other,prot,fiber,sugar,saturated,fasted,C_ksteps,C_fat_other,C_carb_other,C_protein,C_fiber,C_sugar,C_saturated,C_fasted,cal_per_gram_carb,cal_per_gram_prot,cal_per_gram_fat,cal_per_ksteps];
writedata("OUT/out71_work.tmp", out2);
ksteps := 10.0;
kstep_factor := 20.;
fat := 116.0;
carb := 290.0;
prot := 48.0;
fiber := 32.1;
sugar := 96.9;
saturated := 32.3;
fasted := 6.5;
fat_other := 83.7;
carb_other := 161.;
delta_ksteps :=  (recommended_ksteps - ksteps) * kstep_factor;
delta_fat_other := (fat_other - recommended_fat_other);
delta_carb_other := (carb_other - recommended_carb_other);
delta_prot := (prot - recommended_prot);
delta_fiber := (fiber - recommended_fiber);
delta_sugar := (sugar - recommended_sugar);
delta_saturated := (saturated - recommended_saturated);
delta_fasted := (fasted - recommended_fasted) * fasted_factor;
it_previous :=  76.0;
metabolism :=  0.;
it_ksteps := (C_ksteps) * (delta_ksteps);
it_fat_other := factor1  * ( C_fat_other ) * ( (delta_fat_other) );
it_carb_other := factor1  * ( C_carb_other ) * ( (delta_carb_other) );
it_prot := factor1  * ( C_protein ) * ( (delta_prot) );
it_fiber := factor1  * ( C_fiber ) * ( (delta_fiber) );
it_sugar :=  factor1  * ( C_sugar ) * ( (delta_sugar) );
it_saturated := factor1  * ( C_saturated ) * ( (delta_saturated) );
it_fasted := ( C_fasted ) * ( (delta_fasted) );
prediction  := evalf(it_previous * prior_factor
 + metabolism
 + it_ksteps * cal_per_ksteps
 + it_fat_other * cal_per_gram_fat
 + it_carb_other * cal_per_gram_carb
 + it_prot * cal_per_gram_prot
 + it_fiber * cal_per_gram_carb
 + it_sugar * cal_per_gram_carb
 + it_saturated * cal_per_gram_fat
 + it_fasted);
it_previous := 76.0;
actual := 76.0;
previous := 76.0;
err := abs(prediction - actual);
perc_err := abs(err * 100.0) / actual;
delta_glucose := abs(previous - actual);
perc_delta := (delta_glucose * 100.0) / actual;
if (perc_err < min_perc_err) then min_perc_err := perc_err; fi;
if (perc_err > max_perc_err) then max_perc_err := perc_err; fi;
tot_perc_err := tot_perc_err + perc_err;
if (actual < low_actual) then low_actual := actual; fi;
if (actual > high_actual) then high_actual := actual; fi;
if (prediction < low_prediction) then low_prediction := prediction; fi;
if (prediction > high_prediction) then high_prediction := prediction; fi;
count := count + 1.0;
out2 := [count, perc_err, actual,prediction,it_previous,it_previous * prior_factor,metabolism,it_ksteps * cal_per_ksteps,it_fat_other*cal_per_gram_fat,it_carb_other*cal_per_gram_carb,it_prot*cal_per_gram_prot,it_fiber*cal_per_gram_carb,it_sugar*cal_per_gram_carb,it_saturated*cal_per_gram_fat,it_fasted,order2, delta_method, kstep_method, recommended_ksteps, kstep_exponent, kstep_factor, recommended_fat, recommended_carb, recommended_prot, recommended_fiber, recommended_sugar, recommended_saturated ,factor1, factor2, recommended_fasted,prior_factor,fasted_factor,eliminate_extremes,ksteps,fat_other,carb_other,prot,fiber,sugar,saturated,fasted,C_ksteps,C_fat_other,C_carb_other,C_protein,C_fiber,C_sugar,C_saturated,C_fasted,cal_per_gram_carb,cal_per_gram_prot,cal_per_gram_fat,cal_per_ksteps];
writedata("OUT/out72_work.tmp", out2);
ksteps := 14.0;
kstep_factor := 20.;
fat := 90.0;
carb := 293.0;
prot := 45.4;
fiber := 14.7;
sugar := 121.0;
saturated := 28.4;
fasted := 7.0;
fat_other := 61.6;
carb_other := 157.3;
delta_ksteps :=  (recommended_ksteps - ksteps) * kstep_factor;
delta_fat_other := (fat_other - recommended_fat_other);
delta_carb_other := (carb_other - recommended_carb_other);
delta_prot := (prot - recommended_prot);
delta_fiber := (fiber - recommended_fiber);
delta_sugar := (sugar - recommended_sugar);
delta_saturated := (saturated - recommended_saturated);
delta_fasted := (fasted - recommended_fasted) * fasted_factor;
it_previous :=  69.0;
metabolism :=  0.;
it_ksteps := (C_ksteps) * (delta_ksteps);
it_fat_other := factor1  * ( C_fat_other ) * ( (delta_fat_other) );
it_carb_other := factor1  * ( C_carb_other ) * ( (delta_carb_other) );
it_prot := factor1  * ( C_protein ) * ( (delta_prot) );
it_fiber := factor1  * ( C_fiber ) * ( (delta_fiber) );
it_sugar :=  factor1  * ( C_sugar ) * ( (delta_sugar) );
it_saturated := factor1  * ( C_saturated ) * ( (delta_saturated) );
it_fasted := ( C_fasted ) * ( (delta_fasted) );
prediction  := evalf(it_previous * prior_factor
 + metabolism
 + it_ksteps * cal_per_ksteps
 + it_fat_other * cal_per_gram_fat
 + it_carb_other * cal_per_gram_carb
 + it_prot * cal_per_gram_prot
 + it_fiber * cal_per_gram_carb
 + it_sugar * cal_per_gram_carb
 + it_saturated * cal_per_gram_fat
 + it_fasted);
it_previous := 69.0;
actual := 76.0;
previous := 69.0;
err := abs(prediction - actual);
perc_err := abs(err * 100.0) / actual;
delta_glucose := abs(previous - actual);
perc_delta := (delta_glucose * 100.0) / actual;
if (perc_err < min_perc_err) then min_perc_err := perc_err; fi;
if (perc_err > max_perc_err) then max_perc_err := perc_err; fi;
tot_perc_err := tot_perc_err + perc_err;
if (actual < low_actual) then low_actual := actual; fi;
if (actual > high_actual) then high_actual := actual; fi;
if (prediction < low_prediction) then low_prediction := prediction; fi;
if (prediction > high_prediction) then high_prediction := prediction; fi;
count := count + 1.0;
out2 := [count, perc_err, actual,prediction,it_previous,it_previous * prior_factor,metabolism,it_ksteps * cal_per_ksteps,it_fat_other*cal_per_gram_fat,it_carb_other*cal_per_gram_carb,it_prot*cal_per_gram_prot,it_fiber*cal_per_gram_carb,it_sugar*cal_per_gram_carb,it_saturated*cal_per_gram_fat,it_fasted,order2, delta_method, kstep_method, recommended_ksteps, kstep_exponent, kstep_factor, recommended_fat, recommended_carb, recommended_prot, recommended_fiber, recommended_sugar, recommended_saturated ,factor1, factor2, recommended_fasted,prior_factor,fasted_factor,eliminate_extremes,ksteps,fat_other,carb_other,prot,fiber,sugar,saturated,fasted,C_ksteps,C_fat_other,C_carb_other,C_protein,C_fiber,C_sugar,C_saturated,C_fasted,cal_per_gram_carb,cal_per_gram_prot,cal_per_gram_fat,cal_per_ksteps];
writedata("OUT/out73_work.tmp", out2);
ksteps := 12.0;
kstep_factor := 20.;
fat := 126.0;
carb := 291.0;
prot := 55.9;
fiber := 21.3;
sugar := 102.0;
saturated := 27.1;
fasted := 6.0;
fat_other := 98.9;
carb_other := 167.7;
delta_ksteps :=  (recommended_ksteps - ksteps) * kstep_factor;
delta_fat_other := (fat_other - recommended_fat_other);
delta_carb_other := (carb_other - recommended_carb_other);
delta_prot := (prot - recommended_prot);
delta_fiber := (fiber - recommended_fiber);
delta_sugar := (sugar - recommended_sugar);
delta_saturated := (saturated - recommended_saturated);
delta_fasted := (fasted - recommended_fasted) * fasted_factor;
it_previous :=  92.0;
metabolism :=  0.;
it_ksteps := (C_ksteps) * (delta_ksteps);
it_fat_other := factor1  * ( C_fat_other ) * ( (delta_fat_other) );
it_carb_other := factor1  * ( C_carb_other ) * ( (delta_carb_other) );
it_prot := factor1  * ( C_protein ) * ( (delta_prot) );
it_fiber := factor1  * ( C_fiber ) * ( (delta_fiber) );
it_sugar :=  factor1  * ( C_sugar ) * ( (delta_sugar) );
it_saturated := factor1  * ( C_saturated ) * ( (delta_saturated) );
it_fasted := ( C_fasted ) * ( (delta_fasted) );
prediction  := evalf(it_previous * prior_factor
 + metabolism
 + it_ksteps * cal_per_ksteps
 + it_fat_other * cal_per_gram_fat
 + it_carb_other * cal_per_gram_carb
 + it_prot * cal_per_gram_prot
 + it_fiber * cal_per_gram_carb
 + it_sugar * cal_per_gram_carb
 + it_saturated * cal_per_gram_fat
 + it_fasted);
it_previous := 92.0;
actual := 69.0;
previous := 92.0;
err := abs(prediction - actual);
perc_err := abs(err * 100.0) / actual;
delta_glucose := abs(previous - actual);
perc_delta := (delta_glucose * 100.0) / actual;
if (perc_err < min_perc_err) then min_perc_err := perc_err; fi;
if (perc_err > max_perc_err) then max_perc_err := perc_err; fi;
tot_perc_err := tot_perc_err + perc_err;
if (actual < low_actual) then low_actual := actual; fi;
if (actual > high_actual) then high_actual := actual; fi;
if (prediction < low_prediction) then low_prediction := prediction; fi;
if (prediction > high_prediction) then high_prediction := prediction; fi;
count := count + 1.0;
out2 := [count, perc_err, actual,prediction,it_previous,it_previous * prior_factor,metabolism,it_ksteps * cal_per_ksteps,it_fat_other*cal_per_gram_fat,it_carb_other*cal_per_gram_carb,it_prot*cal_per_gram_prot,it_fiber*cal_per_gram_carb,it_sugar*cal_per_gram_carb,it_saturated*cal_per_gram_fat,it_fasted,order2, delta_method, kstep_method, recommended_ksteps, kstep_exponent, kstep_factor, recommended_fat, recommended_carb, recommended_prot, recommended_fiber, recommended_sugar, recommended_saturated ,factor1, factor2, recommended_fasted,prior_factor,fasted_factor,eliminate_extremes,ksteps,fat_other,carb_other,prot,fiber,sugar,saturated,fasted,C_ksteps,C_fat_other,C_carb_other,C_protein,C_fiber,C_sugar,C_saturated,C_fasted,cal_per_gram_carb,cal_per_gram_prot,cal_per_gram_fat,cal_per_ksteps];
writedata("OUT/out74_work.tmp", out2);
ksteps := 10.0;
kstep_factor := 20.;
fat := 137.0;
carb := 339.0;
prot := 70.9;
fiber := 21.4;
sugar := 134.0;
saturated := 55.3;
fasted := 7.5;
fat_other := 81.7;
carb_other := 183.6;
delta_ksteps :=  (recommended_ksteps - ksteps) * kstep_factor;
delta_fat_other := (fat_other - recommended_fat_other);
delta_carb_other := (carb_other - recommended_carb_other);
delta_prot := (prot - recommended_prot);
delta_fiber := (fiber - recommended_fiber);
delta_sugar := (sugar - recommended_sugar);
delta_saturated := (saturated - recommended_saturated);
delta_fasted := (fasted - recommended_fasted) * fasted_factor;
it_previous :=  75.0;
metabolism :=  0.;
it_ksteps := (C_ksteps) * (delta_ksteps);
it_fat_other := factor1  * ( C_fat_other ) * ( (delta_fat_other) );
it_carb_other := factor1  * ( C_carb_other ) * ( (delta_carb_other) );
it_prot := factor1  * ( C_protein ) * ( (delta_prot) );
it_fiber := factor1  * ( C_fiber ) * ( (delta_fiber) );
it_sugar :=  factor1  * ( C_sugar ) * ( (delta_sugar) );
it_saturated := factor1  * ( C_saturated ) * ( (delta_saturated) );
it_fasted := ( C_fasted ) * ( (delta_fasted) );
prediction  := evalf(it_previous * prior_factor
 + metabolism
 + it_ksteps * cal_per_ksteps
 + it_fat_other * cal_per_gram_fat
 + it_carb_other * cal_per_gram_carb
 + it_prot * cal_per_gram_prot
 + it_fiber * cal_per_gram_carb
 + it_sugar * cal_per_gram_carb
 + it_saturated * cal_per_gram_fat
 + it_fasted);
it_previous := 75.0;
actual := 92.0;
previous := 75.0;
err := abs(prediction - actual);
perc_err := abs(err * 100.0) / actual;
delta_glucose := abs(previous - actual);
perc_delta := (delta_glucose * 100.0) / actual;
if (perc_err < min_perc_err) then min_perc_err := perc_err; fi;
if (perc_err > max_perc_err) then max_perc_err := perc_err; fi;
tot_perc_err := tot_perc_err + perc_err;
if (actual < low_actual) then low_actual := actual; fi;
if (actual > high_actual) then high_actual := actual; fi;
if (prediction < low_prediction) then low_prediction := prediction; fi;
if (prediction > high_prediction) then high_prediction := prediction; fi;
count := count + 1.0;
out2 := [count, perc_err, actual,prediction,it_previous,it_previous * prior_factor,metabolism,it_ksteps * cal_per_ksteps,it_fat_other*cal_per_gram_fat,it_carb_other*cal_per_gram_carb,it_prot*cal_per_gram_prot,it_fiber*cal_per_gram_carb,it_sugar*cal_per_gram_carb,it_saturated*cal_per_gram_fat,it_fasted,order2, delta_method, kstep_method, recommended_ksteps, kstep_exponent, kstep_factor, recommended_fat, recommended_carb, recommended_prot, recommended_fiber, recommended_sugar, recommended_saturated ,factor1, factor2, recommended_fasted,prior_factor,fasted_factor,eliminate_extremes,ksteps,fat_other,carb_other,prot,fiber,sugar,saturated,fasted,C_ksteps,C_fat_other,C_carb_other,C_protein,C_fiber,C_sugar,C_saturated,C_fasted,cal_per_gram_carb,cal_per_gram_prot,cal_per_gram_fat,cal_per_ksteps];
writedata("OUT/out75_work.tmp", out2);
ksteps := 14.0;
kstep_factor := 20.;
fat := 143.0;
carb := 285.0;
prot := 62.1;
fiber := 21.6;
sugar := 127.0;
saturated := 35.9;
fasted := 5.5;
fat_other := 107.1;
carb_other := 136.4;
delta_ksteps :=  (recommended_ksteps - ksteps) * kstep_factor;
delta_fat_other := (fat_other - recommended_fat_other);
delta_carb_other := (carb_other - recommended_carb_other);
delta_prot := (prot - recommended_prot);
delta_fiber := (fiber - recommended_fiber);
delta_sugar := (sugar - recommended_sugar);
delta_saturated := (saturated - recommended_saturated);
delta_fasted := (fasted - recommended_fasted) * fasted_factor;
it_previous :=  74.0;
metabolism :=  0.;
it_ksteps := (C_ksteps) * (delta_ksteps);
it_fat_other := factor1  * ( C_fat_other ) * ( (delta_fat_other) );
it_carb_other := factor1  * ( C_carb_other ) * ( (delta_carb_other) );
it_prot := factor1  * ( C_protein ) * ( (delta_prot) );
it_fiber := factor1  * ( C_fiber ) * ( (delta_fiber) );
it_sugar :=  factor1  * ( C_sugar ) * ( (delta_sugar) );
it_saturated := factor1  * ( C_saturated ) * ( (delta_saturated) );
it_fasted := ( C_fasted ) * ( (delta_fasted) );
prediction  := evalf(it_previous * prior_factor
 + metabolism
 + it_ksteps * cal_per_ksteps
 + it_fat_other * cal_per_gram_fat
 + it_carb_other * cal_per_gram_carb
 + it_prot * cal_per_gram_prot
 + it_fiber * cal_per_gram_carb
 + it_sugar * cal_per_gram_carb
 + it_saturated * cal_per_gram_fat
 + it_fasted);
it_previous := 74.0;
actual := 75.0;
previous := 74.0;
err := abs(prediction - actual);
perc_err := abs(err * 100.0) / actual;
delta_glucose := abs(previous - actual);
perc_delta := (delta_glucose * 100.0) / actual;
if (perc_err < min_perc_err) then min_perc_err := perc_err; fi;
if (perc_err > max_perc_err) then max_perc_err := perc_err; fi;
tot_perc_err := tot_perc_err + perc_err;
if (actual < low_actual) then low_actual := actual; fi;
if (actual > high_actual) then high_actual := actual; fi;
if (prediction < low_prediction) then low_prediction := prediction; fi;
if (prediction > high_prediction) then high_prediction := prediction; fi;
count := count + 1.0;
out2 := [count, perc_err, actual,prediction,it_previous,it_previous * prior_factor,metabolism,it_ksteps * cal_per_ksteps,it_fat_other*cal_per_gram_fat,it_carb_other*cal_per_gram_carb,it_prot*cal_per_gram_prot,it_fiber*cal_per_gram_carb,it_sugar*cal_per_gram_carb,it_saturated*cal_per_gram_fat,it_fasted,order2, delta_method, kstep_method, recommended_ksteps, kstep_exponent, kstep_factor, recommended_fat, recommended_carb, recommended_prot, recommended_fiber, recommended_sugar, recommended_saturated ,factor1, factor2, recommended_fasted,prior_factor,fasted_factor,eliminate_extremes,ksteps,fat_other,carb_other,prot,fiber,sugar,saturated,fasted,C_ksteps,C_fat_other,C_carb_other,C_protein,C_fiber,C_sugar,C_saturated,C_fasted,cal_per_gram_carb,cal_per_gram_prot,cal_per_gram_fat,cal_per_ksteps];
writedata("OUT/out76_work.tmp", out2);
ksteps := 14.0;
kstep_factor := 20.;
fat := 123.0;
carb := 385.0;
prot := 33.9;
fiber := 13.4;
sugar := 169.0;
saturated := 31.0;
fasted := 8.0;
fat_other := 92.;
carb_other := 202.6;
delta_ksteps :=  (recommended_ksteps - ksteps) * kstep_factor;
delta_fat_other := (fat_other - recommended_fat_other);
delta_carb_other := (carb_other - recommended_carb_other);
delta_prot := (prot - recommended_prot);
delta_fiber := (fiber - recommended_fiber);
delta_sugar := (sugar - recommended_sugar);
delta_saturated := (saturated - recommended_saturated);
delta_fasted := (fasted - recommended_fasted) * fasted_factor;
it_previous :=  71.0;
metabolism :=  0.;
it_ksteps := (C_ksteps) * (delta_ksteps);
it_fat_other := factor1  * ( C_fat_other ) * ( (delta_fat_other) );
it_carb_other := factor1  * ( C_carb_other ) * ( (delta_carb_other) );
it_prot := factor1  * ( C_protein ) * ( (delta_prot) );
it_fiber := factor1  * ( C_fiber ) * ( (delta_fiber) );
it_sugar :=  factor1  * ( C_sugar ) * ( (delta_sugar) );
it_saturated := factor1  * ( C_saturated ) * ( (delta_saturated) );
it_fasted := ( C_fasted ) * ( (delta_fasted) );
prediction  := evalf(it_previous * prior_factor
 + metabolism
 + it_ksteps * cal_per_ksteps
 + it_fat_other * cal_per_gram_fat
 + it_carb_other * cal_per_gram_carb
 + it_prot * cal_per_gram_prot
 + it_fiber * cal_per_gram_carb
 + it_sugar * cal_per_gram_carb
 + it_saturated * cal_per_gram_fat
 + it_fasted);
it_previous := 71.0;
actual := 74.0;
previous := 71.0;
err := abs(prediction - actual);
perc_err := abs(err * 100.0) / actual;
delta_glucose := abs(previous - actual);
perc_delta := (delta_glucose * 100.0) / actual;
if (perc_err < min_perc_err) then min_perc_err := perc_err; fi;
if (perc_err > max_perc_err) then max_perc_err := perc_err; fi;
tot_perc_err := tot_perc_err + perc_err;
if (actual < low_actual) then low_actual := actual; fi;
if (actual > high_actual) then high_actual := actual; fi;
if (prediction < low_prediction) then low_prediction := prediction; fi;
if (prediction > high_prediction) then high_prediction := prediction; fi;
count := count + 1.0;
out2 := [count, perc_err, actual,prediction,it_previous,it_previous * prior_factor,metabolism,it_ksteps * cal_per_ksteps,it_fat_other*cal_per_gram_fat,it_carb_other*cal_per_gram_carb,it_prot*cal_per_gram_prot,it_fiber*cal_per_gram_carb,it_sugar*cal_per_gram_carb,it_saturated*cal_per_gram_fat,it_fasted,order2, delta_method, kstep_method, recommended_ksteps, kstep_exponent, kstep_factor, recommended_fat, recommended_carb, recommended_prot, recommended_fiber, recommended_sugar, recommended_saturated ,factor1, factor2, recommended_fasted,prior_factor,fasted_factor,eliminate_extremes,ksteps,fat_other,carb_other,prot,fiber,sugar,saturated,fasted,C_ksteps,C_fat_other,C_carb_other,C_protein,C_fiber,C_sugar,C_saturated,C_fasted,cal_per_gram_carb,cal_per_gram_prot,cal_per_gram_fat,cal_per_ksteps];
writedata("OUT/out77_work.tmp", out2);
ksteps := 10.0;
kstep_factor := 20.;
fat := 114.0;
carb := 288.0;
prot := 46.2;
fiber := 12.4;
sugar := 135.0;
saturated := 33.1;
fasted := 7.0;
fat_other := 80.9;
carb_other := 140.6;
delta_ksteps :=  (recommended_ksteps - ksteps) * kstep_factor;
delta_fat_other := (fat_other - recommended_fat_other);
delta_carb_other := (carb_other - recommended_carb_other);
delta_prot := (prot - recommended_prot);
delta_fiber := (fiber - recommended_fiber);
delta_sugar := (sugar - recommended_sugar);
delta_saturated := (saturated - recommended_saturated);
delta_fasted := (fasted - recommended_fasted) * fasted_factor;
it_previous :=  93.0;
metabolism :=  0.;
it_ksteps := (C_ksteps) * (delta_ksteps);
it_fat_other := factor1  * ( C_fat_other ) * ( (delta_fat_other) );
it_carb_other := factor1  * ( C_carb_other ) * ( (delta_carb_other) );
it_prot := factor1  * ( C_protein ) * ( (delta_prot) );
it_fiber := factor1  * ( C_fiber ) * ( (delta_fiber) );
it_sugar :=  factor1  * ( C_sugar ) * ( (delta_sugar) );
it_saturated := factor1  * ( C_saturated ) * ( (delta_saturated) );
it_fasted := ( C_fasted ) * ( (delta_fasted) );
prediction  := evalf(it_previous * prior_factor
 + metabolism
 + it_ksteps * cal_per_ksteps
 + it_fat_other * cal_per_gram_fat
 + it_carb_other * cal_per_gram_carb
 + it_prot * cal_per_gram_prot
 + it_fiber * cal_per_gram_carb
 + it_sugar * cal_per_gram_carb
 + it_saturated * cal_per_gram_fat
 + it_fasted);
it_previous := 93.0;
actual := 71.0;
previous := 93.0;
err := abs(prediction - actual);
perc_err := abs(err * 100.0) / actual;
delta_glucose := abs(previous - actual);
perc_delta := (delta_glucose * 100.0) / actual;
if (perc_err < min_perc_err) then min_perc_err := perc_err; fi;
if (perc_err > max_perc_err) then max_perc_err := perc_err; fi;
tot_perc_err := tot_perc_err + perc_err;
if (actual < low_actual) then low_actual := actual; fi;
if (actual > high_actual) then high_actual := actual; fi;
if (prediction < low_prediction) then low_prediction := prediction; fi;
if (prediction > high_prediction) then high_prediction := prediction; fi;
count := count + 1.0;
out2 := [count, perc_err, actual,prediction,it_previous,it_previous * prior_factor,metabolism,it_ksteps * cal_per_ksteps,it_fat_other*cal_per_gram_fat,it_carb_other*cal_per_gram_carb,it_prot*cal_per_gram_prot,it_fiber*cal_per_gram_carb,it_sugar*cal_per_gram_carb,it_saturated*cal_per_gram_fat,it_fasted,order2, delta_method, kstep_method, recommended_ksteps, kstep_exponent, kstep_factor, recommended_fat, recommended_carb, recommended_prot, recommended_fiber, recommended_sugar, recommended_saturated ,factor1, factor2, recommended_fasted,prior_factor,fasted_factor,eliminate_extremes,ksteps,fat_other,carb_other,prot,fiber,sugar,saturated,fasted,C_ksteps,C_fat_other,C_carb_other,C_protein,C_fiber,C_sugar,C_saturated,C_fasted,cal_per_gram_carb,cal_per_gram_prot,cal_per_gram_fat,cal_per_ksteps];
writedata("OUT/out78_work.tmp", out2);
ksteps := 10.0;
kstep_factor := 20.;
fat := 131.0;
carb := 292.0;
prot := 54.0;
fiber := 15.4;
sugar := 130.0;
saturated := 30.6;
fasted := 6.5;
fat_other := 100.4;
carb_other := 146.6;
delta_ksteps :=  (recommended_ksteps - ksteps) * kstep_factor;
delta_fat_other := (fat_other - recommended_fat_other);
delta_carb_other := (carb_other - recommended_carb_other);
delta_prot := (prot - recommended_prot);
delta_fiber := (fiber - recommended_fiber);
delta_sugar := (sugar - recommended_sugar);
delta_saturated := (saturated - recommended_saturated);
delta_fasted := (fasted - recommended_fasted) * fasted_factor;
it_previous :=  66.0;
metabolism :=  0.;
it_ksteps := (C_ksteps) * (delta_ksteps);
it_fat_other := factor1  * ( C_fat_other ) * ( (delta_fat_other) );
it_carb_other := factor1  * ( C_carb_other ) * ( (delta_carb_other) );
it_prot := factor1  * ( C_protein ) * ( (delta_prot) );
it_fiber := factor1  * ( C_fiber ) * ( (delta_fiber) );
it_sugar :=  factor1  * ( C_sugar ) * ( (delta_sugar) );
it_saturated := factor1  * ( C_saturated ) * ( (delta_saturated) );
it_fasted := ( C_fasted ) * ( (delta_fasted) );
prediction  := evalf(it_previous * prior_factor
 + metabolism
 + it_ksteps * cal_per_ksteps
 + it_fat_other * cal_per_gram_fat
 + it_carb_other * cal_per_gram_carb
 + it_prot * cal_per_gram_prot
 + it_fiber * cal_per_gram_carb
 + it_sugar * cal_per_gram_carb
 + it_saturated * cal_per_gram_fat
 + it_fasted);
it_previous := 66.0;
actual := 93.0;
previous := 66.0;
err := abs(prediction - actual);
perc_err := abs(err * 100.0) / actual;
delta_glucose := abs(previous - actual);
perc_delta := (delta_glucose * 100.0) / actual;
if (perc_err < min_perc_err) then min_perc_err := perc_err; fi;
if (perc_err > max_perc_err) then max_perc_err := perc_err; fi;
tot_perc_err := tot_perc_err + perc_err;
if (actual < low_actual) then low_actual := actual; fi;
if (actual > high_actual) then high_actual := actual; fi;
if (prediction < low_prediction) then low_prediction := prediction; fi;
if (prediction > high_prediction) then high_prediction := prediction; fi;
count := count + 1.0;
out2 := [count, perc_err, actual,prediction,it_previous,it_previous * prior_factor,metabolism,it_ksteps * cal_per_ksteps,it_fat_other*cal_per_gram_fat,it_carb_other*cal_per_gram_carb,it_prot*cal_per_gram_prot,it_fiber*cal_per_gram_carb,it_sugar*cal_per_gram_carb,it_saturated*cal_per_gram_fat,it_fasted,order2, delta_method, kstep_method, recommended_ksteps, kstep_exponent, kstep_factor, recommended_fat, recommended_carb, recommended_prot, recommended_fiber, recommended_sugar, recommended_saturated ,factor1, factor2, recommended_fasted,prior_factor,fasted_factor,eliminate_extremes,ksteps,fat_other,carb_other,prot,fiber,sugar,saturated,fasted,C_ksteps,C_fat_other,C_carb_other,C_protein,C_fiber,C_sugar,C_saturated,C_fasted,cal_per_gram_carb,cal_per_gram_prot,cal_per_gram_fat,cal_per_ksteps];
writedata("OUT/out79_work.tmp", out2);
ksteps := 12.0;
kstep_factor := 20.;
fat := 134.0;
carb := 318.0;
prot := 53.7;
fiber := 16.2;
sugar := 149.0;
saturated := 43.6;
fasted := 6.5;
fat_other := 90.4;
carb_other := 152.8;
delta_ksteps :=  (recommended_ksteps - ksteps) * kstep_factor;
delta_fat_other := (fat_other - recommended_fat_other);
delta_carb_other := (carb_other - recommended_carb_other);
delta_prot := (prot - recommended_prot);
delta_fiber := (fiber - recommended_fiber);
delta_sugar := (sugar - recommended_sugar);
delta_saturated := (saturated - recommended_saturated);
delta_fasted := (fasted - recommended_fasted) * fasted_factor;
it_previous :=  76.0;
metabolism :=  0.;
it_ksteps := (C_ksteps) * (delta_ksteps);
it_fat_other := factor1  * ( C_fat_other ) * ( (delta_fat_other) );
it_carb_other := factor1  * ( C_carb_other ) * ( (delta_carb_other) );
it_prot := factor1  * ( C_protein ) * ( (delta_prot) );
it_fiber := factor1  * ( C_fiber ) * ( (delta_fiber) );
it_sugar :=  factor1  * ( C_sugar ) * ( (delta_sugar) );
it_saturated := factor1  * ( C_saturated ) * ( (delta_saturated) );
it_fasted := ( C_fasted ) * ( (delta_fasted) );
prediction  := evalf(it_previous * prior_factor
 + metabolism
 + it_ksteps * cal_per_ksteps
 + it_fat_other * cal_per_gram_fat
 + it_carb_other * cal_per_gram_carb
 + it_prot * cal_per_gram_prot
 + it_fiber * cal_per_gram_carb
 + it_sugar * cal_per_gram_carb
 + it_saturated * cal_per_gram_fat
 + it_fasted);
it_previous := 76.0;
actual := 66.0;
previous := 76.0;
err := abs(prediction - actual);
perc_err := abs(err * 100.0) / actual;
delta_glucose := abs(previous - actual);
perc_delta := (delta_glucose * 100.0) / actual;
if (perc_err < min_perc_err) then min_perc_err := perc_err; fi;
if (perc_err > max_perc_err) then max_perc_err := perc_err; fi;
tot_perc_err := tot_perc_err + perc_err;
if (actual < low_actual) then low_actual := actual; fi;
if (actual > high_actual) then high_actual := actual; fi;
if (prediction < low_prediction) then low_prediction := prediction; fi;
if (prediction > high_prediction) then high_prediction := prediction; fi;
count := count + 1.0;
out2 := [count, perc_err, actual,prediction,it_previous,it_previous * prior_factor,metabolism,it_ksteps * cal_per_ksteps,it_fat_other*cal_per_gram_fat,it_carb_other*cal_per_gram_carb,it_prot*cal_per_gram_prot,it_fiber*cal_per_gram_carb,it_sugar*cal_per_gram_carb,it_saturated*cal_per_gram_fat,it_fasted,order2, delta_method, kstep_method, recommended_ksteps, kstep_exponent, kstep_factor, recommended_fat, recommended_carb, recommended_prot, recommended_fiber, recommended_sugar, recommended_saturated ,factor1, factor2, recommended_fasted,prior_factor,fasted_factor,eliminate_extremes,ksteps,fat_other,carb_other,prot,fiber,sugar,saturated,fasted,C_ksteps,C_fat_other,C_carb_other,C_protein,C_fiber,C_sugar,C_saturated,C_fasted,cal_per_gram_carb,cal_per_gram_prot,cal_per_gram_fat,cal_per_ksteps];
writedata("OUT/out80_work.tmp", out2);
ksteps := 10.0;
kstep_factor := 20.;
fat := 140.0;
carb := 384.0;
prot := 56.5;
fiber := 19.6;
sugar := 151.0;
saturated := 42.5;
fasted := 7.0;
fat_other := 97.5;
carb_other := 213.4;
delta_ksteps :=  (recommended_ksteps - ksteps) * kstep_factor;
delta_fat_other := (fat_other - recommended_fat_other);
delta_carb_other := (carb_other - recommended_carb_other);
delta_prot := (prot - recommended_prot);
delta_fiber := (fiber - recommended_fiber);
delta_sugar := (sugar - recommended_sugar);
delta_saturated := (saturated - recommended_saturated);
delta_fasted := (fasted - recommended_fasted) * fasted_factor;
it_previous :=  77.0;
metabolism :=  0.;
it_ksteps := (C_ksteps) * (delta_ksteps);
it_fat_other := factor1  * ( C_fat_other ) * ( (delta_fat_other) );
it_carb_other := factor1  * ( C_carb_other ) * ( (delta_carb_other) );
it_prot := factor1  * ( C_protein ) * ( (delta_prot) );
it_fiber := factor1  * ( C_fiber ) * ( (delta_fiber) );
it_sugar :=  factor1  * ( C_sugar ) * ( (delta_sugar) );
it_saturated := factor1  * ( C_saturated ) * ( (delta_saturated) );
it_fasted := ( C_fasted ) * ( (delta_fasted) );
prediction  := evalf(it_previous * prior_factor
 + metabolism
 + it_ksteps * cal_per_ksteps
 + it_fat_other * cal_per_gram_fat
 + it_carb_other * cal_per_gram_carb
 + it_prot * cal_per_gram_prot
 + it_fiber * cal_per_gram_carb
 + it_sugar * cal_per_gram_carb
 + it_saturated * cal_per_gram_fat
 + it_fasted);
it_previous := 77.0;
actual := 76.0;
previous := 77.0;
err := abs(prediction - actual);
perc_err := abs(err * 100.0) / actual;
delta_glucose := abs(previous - actual);
perc_delta := (delta_glucose * 100.0) / actual;
if (perc_err < min_perc_err) then min_perc_err := perc_err; fi;
if (perc_err > max_perc_err) then max_perc_err := perc_err; fi;
tot_perc_err := tot_perc_err + perc_err;
if (actual < low_actual) then low_actual := actual; fi;
if (actual > high_actual) then high_actual := actual; fi;
if (prediction < low_prediction) then low_prediction := prediction; fi;
if (prediction > high_prediction) then high_prediction := prediction; fi;
count := count + 1.0;
out2 := [count, perc_err, actual,prediction,it_previous,it_previous * prior_factor,metabolism,it_ksteps * cal_per_ksteps,it_fat_other*cal_per_gram_fat,it_carb_other*cal_per_gram_carb,it_prot*cal_per_gram_prot,it_fiber*cal_per_gram_carb,it_sugar*cal_per_gram_carb,it_saturated*cal_per_gram_fat,it_fasted,order2, delta_method, kstep_method, recommended_ksteps, kstep_exponent, kstep_factor, recommended_fat, recommended_carb, recommended_prot, recommended_fiber, recommended_sugar, recommended_saturated ,factor1, factor2, recommended_fasted,prior_factor,fasted_factor,eliminate_extremes,ksteps,fat_other,carb_other,prot,fiber,sugar,saturated,fasted,C_ksteps,C_fat_other,C_carb_other,C_protein,C_fiber,C_sugar,C_saturated,C_fasted,cal_per_gram_carb,cal_per_gram_prot,cal_per_gram_fat,cal_per_ksteps];
writedata("OUT/out81_work.tmp", out2);
ksteps := 10.0;
kstep_factor := 20.;
fat := 79.5;
carb := 205.0;
prot := 28.5;
fiber := 11.4;
sugar := 88.8;
saturated := 17.2;
fasted := 6.0;
fat_other := 62.3;
carb_other := 104.8;
delta_ksteps :=  (recommended_ksteps - ksteps) * kstep_factor;
delta_fat_other := (fat_other - recommended_fat_other);
delta_carb_other := (carb_other - recommended_carb_other);
delta_prot := (prot - recommended_prot);
delta_fiber := (fiber - recommended_fiber);
delta_sugar := (sugar - recommended_sugar);
delta_saturated := (saturated - recommended_saturated);
delta_fasted := (fasted - recommended_fasted) * fasted_factor;
it_previous :=  91.0;
metabolism :=  0.;
it_ksteps := (C_ksteps) * (delta_ksteps);
it_fat_other := factor1  * ( C_fat_other ) * ( (delta_fat_other) );
it_carb_other := factor1  * ( C_carb_other ) * ( (delta_carb_other) );
it_prot := factor1  * ( C_protein ) * ( (delta_prot) );
it_fiber := factor1  * ( C_fiber ) * ( (delta_fiber) );
it_sugar :=  factor1  * ( C_sugar ) * ( (delta_sugar) );
it_saturated := factor1  * ( C_saturated ) * ( (delta_saturated) );
it_fasted := ( C_fasted ) * ( (delta_fasted) );
prediction  := evalf(it_previous * prior_factor
 + metabolism
 + it_ksteps * cal_per_ksteps
 + it_fat_other * cal_per_gram_fat
 + it_carb_other * cal_per_gram_carb
 + it_prot * cal_per_gram_prot
 + it_fiber * cal_per_gram_carb
 + it_sugar * cal_per_gram_carb
 + it_saturated * cal_per_gram_fat
 + it_fasted);
it_previous := 91.0;
actual := 77.0;
previous := 91.0;
err := abs(prediction - actual);
perc_err := abs(err * 100.0) / actual;
delta_glucose := abs(previous - actual);
perc_delta := (delta_glucose * 100.0) / actual;
if (perc_err < min_perc_err) then min_perc_err := perc_err; fi;
if (perc_err > max_perc_err) then max_perc_err := perc_err; fi;
tot_perc_err := tot_perc_err + perc_err;
if (actual < low_actual) then low_actual := actual; fi;
if (actual > high_actual) then high_actual := actual; fi;
if (prediction < low_prediction) then low_prediction := prediction; fi;
if (prediction > high_prediction) then high_prediction := prediction; fi;
count := count + 1.0;
out2 := [count, perc_err, actual,prediction,it_previous,it_previous * prior_factor,metabolism,it_ksteps * cal_per_ksteps,it_fat_other*cal_per_gram_fat,it_carb_other*cal_per_gram_carb,it_prot*cal_per_gram_prot,it_fiber*cal_per_gram_carb,it_sugar*cal_per_gram_carb,it_saturated*cal_per_gram_fat,it_fasted,order2, delta_method, kstep_method, recommended_ksteps, kstep_exponent, kstep_factor, recommended_fat, recommended_carb, recommended_prot, recommended_fiber, recommended_sugar, recommended_saturated ,factor1, factor2, recommended_fasted,prior_factor,fasted_factor,eliminate_extremes,ksteps,fat_other,carb_other,prot,fiber,sugar,saturated,fasted,C_ksteps,C_fat_other,C_carb_other,C_protein,C_fiber,C_sugar,C_saturated,C_fasted,cal_per_gram_carb,cal_per_gram_prot,cal_per_gram_fat,cal_per_ksteps];
writedata("OUT/out82_work.tmp", out2);
ksteps := 14.0;
kstep_factor := 20.;
fat := 74.9;
carb := 309.0;
prot := 75.4;
fiber := 15.2;
sugar := 121.0;
saturated := 18.1;
fasted := 10.0;
fat_other := 56.8;
carb_other := 172.8;
delta_ksteps :=  (recommended_ksteps - ksteps) * kstep_factor;
delta_fat_other := (fat_other - recommended_fat_other);
delta_carb_other := (carb_other - recommended_carb_other);
delta_prot := (prot - recommended_prot);
delta_fiber := (fiber - recommended_fiber);
delta_sugar := (sugar - recommended_sugar);
delta_saturated := (saturated - recommended_saturated);
delta_fasted := (fasted - recommended_fasted) * fasted_factor;
it_previous :=  117.0;
metabolism :=  0.;
it_ksteps := (C_ksteps) * (delta_ksteps);
it_fat_other := factor1  * ( C_fat_other ) * ( (delta_fat_other) );
it_carb_other := factor1  * ( C_carb_other ) * ( (delta_carb_other) );
it_prot := factor1  * ( C_protein ) * ( (delta_prot) );
it_fiber := factor1  * ( C_fiber ) * ( (delta_fiber) );
it_sugar :=  factor1  * ( C_sugar ) * ( (delta_sugar) );
it_saturated := factor1  * ( C_saturated ) * ( (delta_saturated) );
it_fasted := ( C_fasted ) * ( (delta_fasted) );
prediction  := evalf(it_previous * prior_factor
 + metabolism
 + it_ksteps * cal_per_ksteps
 + it_fat_other * cal_per_gram_fat
 + it_carb_other * cal_per_gram_carb
 + it_prot * cal_per_gram_prot
 + it_fiber * cal_per_gram_carb
 + it_sugar * cal_per_gram_carb
 + it_saturated * cal_per_gram_fat
 + it_fasted);
it_previous := 117.0;
actual := 91.0;
previous := 117.0;
err := abs(prediction - actual);
perc_err := abs(err * 100.0) / actual;
delta_glucose := abs(previous - actual);
perc_delta := (delta_glucose * 100.0) / actual;
if (perc_err < min_perc_err) then min_perc_err := perc_err; fi;
if (perc_err > max_perc_err) then max_perc_err := perc_err; fi;
tot_perc_err := tot_perc_err + perc_err;
if (actual < low_actual) then low_actual := actual; fi;
if (actual > high_actual) then high_actual := actual; fi;
if (prediction < low_prediction) then low_prediction := prediction; fi;
if (prediction > high_prediction) then high_prediction := prediction; fi;
count := count + 1.0;
out2 := [count, perc_err, actual,prediction,it_previous,it_previous * prior_factor,metabolism,it_ksteps * cal_per_ksteps,it_fat_other*cal_per_gram_fat,it_carb_other*cal_per_gram_carb,it_prot*cal_per_gram_prot,it_fiber*cal_per_gram_carb,it_sugar*cal_per_gram_carb,it_saturated*cal_per_gram_fat,it_fasted,order2, delta_method, kstep_method, recommended_ksteps, kstep_exponent, kstep_factor, recommended_fat, recommended_carb, recommended_prot, recommended_fiber, recommended_sugar, recommended_saturated ,factor1, factor2, recommended_fasted,prior_factor,fasted_factor,eliminate_extremes,ksteps,fat_other,carb_other,prot,fiber,sugar,saturated,fasted,C_ksteps,C_fat_other,C_carb_other,C_protein,C_fiber,C_sugar,C_saturated,C_fasted,cal_per_gram_carb,cal_per_gram_prot,cal_per_gram_fat,cal_per_ksteps];
writedata("OUT/out83_work.tmp", out2);
ksteps := 12.0;
kstep_factor := 20.;
fat := 224.0;
carb := 306.0;
prot := 111.0;
fiber := 38.7;
sugar := 95.4;
saturated := 41.3;
fasted := 5.0;
fat_other := 182.7;
carb_other := 171.9;
delta_ksteps :=  (recommended_ksteps - ksteps) * kstep_factor;
delta_fat_other := (fat_other - recommended_fat_other);
delta_carb_other := (carb_other - recommended_carb_other);
delta_prot := (prot - recommended_prot);
delta_fiber := (fiber - recommended_fiber);
delta_sugar := (sugar - recommended_sugar);
delta_saturated := (saturated - recommended_saturated);
delta_fasted := (fasted - recommended_fasted) * fasted_factor;
it_previous :=  96.0;
metabolism :=  0.;
it_ksteps := (C_ksteps) * (delta_ksteps);
it_fat_other := factor1  * ( C_fat_other ) * ( (delta_fat_other) );
it_carb_other := factor1  * ( C_carb_other ) * ( (delta_carb_other) );
it_prot := factor1  * ( C_protein ) * ( (delta_prot) );
it_fiber := factor1  * ( C_fiber ) * ( (delta_fiber) );
it_sugar :=  factor1  * ( C_sugar ) * ( (delta_sugar) );
it_saturated := factor1  * ( C_saturated ) * ( (delta_saturated) );
it_fasted := ( C_fasted ) * ( (delta_fasted) );
prediction  := evalf(it_previous * prior_factor
 + metabolism
 + it_ksteps * cal_per_ksteps
 + it_fat_other * cal_per_gram_fat
 + it_carb_other * cal_per_gram_carb
 + it_prot * cal_per_gram_prot
 + it_fiber * cal_per_gram_carb
 + it_sugar * cal_per_gram_carb
 + it_saturated * cal_per_gram_fat
 + it_fasted);
it_previous := 96.0;
actual := 117.0;
previous := 96.0;
err := abs(prediction - actual);
perc_err := abs(err * 100.0) / actual;
delta_glucose := abs(previous - actual);
perc_delta := (delta_glucose * 100.0) / actual;
if (perc_err < min_perc_err) then min_perc_err := perc_err; fi;
if (perc_err > max_perc_err) then max_perc_err := perc_err; fi;
tot_perc_err := tot_perc_err + perc_err;
if (actual < low_actual) then low_actual := actual; fi;
if (actual > high_actual) then high_actual := actual; fi;
if (prediction < low_prediction) then low_prediction := prediction; fi;
if (prediction > high_prediction) then high_prediction := prediction; fi;
count := count + 1.0;
out2 := [count, perc_err, actual,prediction,it_previous,it_previous * prior_factor,metabolism,it_ksteps * cal_per_ksteps,it_fat_other*cal_per_gram_fat,it_carb_other*cal_per_gram_carb,it_prot*cal_per_gram_prot,it_fiber*cal_per_gram_carb,it_sugar*cal_per_gram_carb,it_saturated*cal_per_gram_fat,it_fasted,order2, delta_method, kstep_method, recommended_ksteps, kstep_exponent, kstep_factor, recommended_fat, recommended_carb, recommended_prot, recommended_fiber, recommended_sugar, recommended_saturated ,factor1, factor2, recommended_fasted,prior_factor,fasted_factor,eliminate_extremes,ksteps,fat_other,carb_other,prot,fiber,sugar,saturated,fasted,C_ksteps,C_fat_other,C_carb_other,C_protein,C_fiber,C_sugar,C_saturated,C_fasted,cal_per_gram_carb,cal_per_gram_prot,cal_per_gram_fat,cal_per_ksteps];
writedata("OUT/out84_work.tmp", out2);
ksteps := 10.0;
kstep_factor := 20.;
fat := 105.0;
carb := 182.0;
prot := 52.0;
fiber := 15.9;
sugar := 66.9;
saturated := 20.1;
fasted := 6.5;
fat_other := 84.9;
carb_other := 99.2;
delta_ksteps :=  (recommended_ksteps - ksteps) * kstep_factor;
delta_fat_other := (fat_other - recommended_fat_other);
delta_carb_other := (carb_other - recommended_carb_other);
delta_prot := (prot - recommended_prot);
delta_fiber := (fiber - recommended_fiber);
delta_sugar := (sugar - recommended_sugar);
delta_saturated := (saturated - recommended_saturated);
delta_fasted := (fasted - recommended_fasted) * fasted_factor;
it_previous :=  88.0;
metabolism :=  0.;
it_ksteps := (C_ksteps) * (delta_ksteps);
it_fat_other := factor1  * ( C_fat_other ) * ( (delta_fat_other) );
it_carb_other := factor1  * ( C_carb_other ) * ( (delta_carb_other) );
it_prot := factor1  * ( C_protein ) * ( (delta_prot) );
it_fiber := factor1  * ( C_fiber ) * ( (delta_fiber) );
it_sugar :=  factor1  * ( C_sugar ) * ( (delta_sugar) );
it_saturated := factor1  * ( C_saturated ) * ( (delta_saturated) );
it_fasted := ( C_fasted ) * ( (delta_fasted) );
prediction  := evalf(it_previous * prior_factor
 + metabolism
 + it_ksteps * cal_per_ksteps
 + it_fat_other * cal_per_gram_fat
 + it_carb_other * cal_per_gram_carb
 + it_prot * cal_per_gram_prot
 + it_fiber * cal_per_gram_carb
 + it_sugar * cal_per_gram_carb
 + it_saturated * cal_per_gram_fat
 + it_fasted);
it_previous := 88.0;
actual := 96.0;
previous := 88.0;
err := abs(prediction - actual);
perc_err := abs(err * 100.0) / actual;
delta_glucose := abs(previous - actual);
perc_delta := (delta_glucose * 100.0) / actual;
if (perc_err < min_perc_err) then min_perc_err := perc_err; fi;
if (perc_err > max_perc_err) then max_perc_err := perc_err; fi;
tot_perc_err := tot_perc_err + perc_err;
if (actual < low_actual) then low_actual := actual; fi;
if (actual > high_actual) then high_actual := actual; fi;
if (prediction < low_prediction) then low_prediction := prediction; fi;
if (prediction > high_prediction) then high_prediction := prediction; fi;
count := count + 1.0;
out2 := [count, perc_err, actual,prediction,it_previous,it_previous * prior_factor,metabolism,it_ksteps * cal_per_ksteps,it_fat_other*cal_per_gram_fat,it_carb_other*cal_per_gram_carb,it_prot*cal_per_gram_prot,it_fiber*cal_per_gram_carb,it_sugar*cal_per_gram_carb,it_saturated*cal_per_gram_fat,it_fasted,order2, delta_method, kstep_method, recommended_ksteps, kstep_exponent, kstep_factor, recommended_fat, recommended_carb, recommended_prot, recommended_fiber, recommended_sugar, recommended_saturated ,factor1, factor2, recommended_fasted,prior_factor,fasted_factor,eliminate_extremes,ksteps,fat_other,carb_other,prot,fiber,sugar,saturated,fasted,C_ksteps,C_fat_other,C_carb_other,C_protein,C_fiber,C_sugar,C_saturated,C_fasted,cal_per_gram_carb,cal_per_gram_prot,cal_per_gram_fat,cal_per_ksteps];
writedata("OUT/out85_work.tmp", out2);
ksteps := 10.0;
kstep_factor := 20.;
fat := 93.2;
carb := 297.0;
prot := 41.3;
fiber := 19.5;
sugar := 113.0;
saturated := 19.8;
fasted := 6.0;
fat_other := 73.4;
carb_other := 164.5;
delta_ksteps :=  (recommended_ksteps - ksteps) * kstep_factor;
delta_fat_other := (fat_other - recommended_fat_other);
delta_carb_other := (carb_other - recommended_carb_other);
delta_prot := (prot - recommended_prot);
delta_fiber := (fiber - recommended_fiber);
delta_sugar := (sugar - recommended_sugar);
delta_saturated := (saturated - recommended_saturated);
delta_fasted := (fasted - recommended_fasted) * fasted_factor;
it_previous :=  73.0;
metabolism :=  0.;
it_ksteps := (C_ksteps) * (delta_ksteps);
it_fat_other := factor1  * ( C_fat_other ) * ( (delta_fat_other) );
it_carb_other := factor1  * ( C_carb_other ) * ( (delta_carb_other) );
it_prot := factor1  * ( C_protein ) * ( (delta_prot) );
it_fiber := factor1  * ( C_fiber ) * ( (delta_fiber) );
it_sugar :=  factor1  * ( C_sugar ) * ( (delta_sugar) );
it_saturated := factor1  * ( C_saturated ) * ( (delta_saturated) );
it_fasted := ( C_fasted ) * ( (delta_fasted) );
prediction  := evalf(it_previous * prior_factor
 + metabolism
 + it_ksteps * cal_per_ksteps
 + it_fat_other * cal_per_gram_fat
 + it_carb_other * cal_per_gram_carb
 + it_prot * cal_per_gram_prot
 + it_fiber * cal_per_gram_carb
 + it_sugar * cal_per_gram_carb
 + it_saturated * cal_per_gram_fat
 + it_fasted);
it_previous := 73.0;
actual := 88.0;
previous := 73.0;
err := abs(prediction - actual);
perc_err := abs(err * 100.0) / actual;
delta_glucose := abs(previous - actual);
perc_delta := (delta_glucose * 100.0) / actual;
if (perc_err < min_perc_err) then min_perc_err := perc_err; fi;
if (perc_err > max_perc_err) then max_perc_err := perc_err; fi;
tot_perc_err := tot_perc_err + perc_err;
if (actual < low_actual) then low_actual := actual; fi;
if (actual > high_actual) then high_actual := actual; fi;
if (prediction < low_prediction) then low_prediction := prediction; fi;
if (prediction > high_prediction) then high_prediction := prediction; fi;
count := count + 1.0;
out2 := [count, perc_err, actual,prediction,it_previous,it_previous * prior_factor,metabolism,it_ksteps * cal_per_ksteps,it_fat_other*cal_per_gram_fat,it_carb_other*cal_per_gram_carb,it_prot*cal_per_gram_prot,it_fiber*cal_per_gram_carb,it_sugar*cal_per_gram_carb,it_saturated*cal_per_gram_fat,it_fasted,order2, delta_method, kstep_method, recommended_ksteps, kstep_exponent, kstep_factor, recommended_fat, recommended_carb, recommended_prot, recommended_fiber, recommended_sugar, recommended_saturated ,factor1, factor2, recommended_fasted,prior_factor,fasted_factor,eliminate_extremes,ksteps,fat_other,carb_other,prot,fiber,sugar,saturated,fasted,C_ksteps,C_fat_other,C_carb_other,C_protein,C_fiber,C_sugar,C_saturated,C_fasted,cal_per_gram_carb,cal_per_gram_prot,cal_per_gram_fat,cal_per_ksteps];
writedata("OUT/out86_work.tmp", out2);
ksteps := 10.0;
kstep_factor := 20.;
fat := 127.0;
carb := 314.0;
prot := 52.9;
fiber := 17.8;
sugar := 127.0;
saturated := 31.7;
fasted := 6.5;
fat_other := 95.3;
carb_other := 169.2;
delta_ksteps :=  (recommended_ksteps - ksteps) * kstep_factor;
delta_fat_other := (fat_other - recommended_fat_other);
delta_carb_other := (carb_other - recommended_carb_other);
delta_prot := (prot - recommended_prot);
delta_fiber := (fiber - recommended_fiber);
delta_sugar := (sugar - recommended_sugar);
delta_saturated := (saturated - recommended_saturated);
delta_fasted := (fasted - recommended_fasted) * fasted_factor;
it_previous :=  75.0;
metabolism :=  0.;
it_ksteps := (C_ksteps) * (delta_ksteps);
it_fat_other := factor1  * ( C_fat_other ) * ( (delta_fat_other) );
it_carb_other := factor1  * ( C_carb_other ) * ( (delta_carb_other) );
it_prot := factor1  * ( C_protein ) * ( (delta_prot) );
it_fiber := factor1  * ( C_fiber ) * ( (delta_fiber) );
it_sugar :=  factor1  * ( C_sugar ) * ( (delta_sugar) );
it_saturated := factor1  * ( C_saturated ) * ( (delta_saturated) );
it_fasted := ( C_fasted ) * ( (delta_fasted) );
prediction  := evalf(it_previous * prior_factor
 + metabolism
 + it_ksteps * cal_per_ksteps
 + it_fat_other * cal_per_gram_fat
 + it_carb_other * cal_per_gram_carb
 + it_prot * cal_per_gram_prot
 + it_fiber * cal_per_gram_carb
 + it_sugar * cal_per_gram_carb
 + it_saturated * cal_per_gram_fat
 + it_fasted);
it_previous := 75.0;
actual := 73.0;
previous := 75.0;
err := abs(prediction - actual);
perc_err := abs(err * 100.0) / actual;
delta_glucose := abs(previous - actual);
perc_delta := (delta_glucose * 100.0) / actual;
if (perc_err < min_perc_err) then min_perc_err := perc_err; fi;
if (perc_err > max_perc_err) then max_perc_err := perc_err; fi;
tot_perc_err := tot_perc_err + perc_err;
if (actual < low_actual) then low_actual := actual; fi;
if (actual > high_actual) then high_actual := actual; fi;
if (prediction < low_prediction) then low_prediction := prediction; fi;
if (prediction > high_prediction) then high_prediction := prediction; fi;
count := count + 1.0;
out2 := [count, perc_err, actual,prediction,it_previous,it_previous * prior_factor,metabolism,it_ksteps * cal_per_ksteps,it_fat_other*cal_per_gram_fat,it_carb_other*cal_per_gram_carb,it_prot*cal_per_gram_prot,it_fiber*cal_per_gram_carb,it_sugar*cal_per_gram_carb,it_saturated*cal_per_gram_fat,it_fasted,order2, delta_method, kstep_method, recommended_ksteps, kstep_exponent, kstep_factor, recommended_fat, recommended_carb, recommended_prot, recommended_fiber, recommended_sugar, recommended_saturated ,factor1, factor2, recommended_fasted,prior_factor,fasted_factor,eliminate_extremes,ksteps,fat_other,carb_other,prot,fiber,sugar,saturated,fasted,C_ksteps,C_fat_other,C_carb_other,C_protein,C_fiber,C_sugar,C_saturated,C_fasted,cal_per_gram_carb,cal_per_gram_prot,cal_per_gram_fat,cal_per_ksteps];
writedata("OUT/out87_work.tmp", out2);
ksteps := 10.0;
kstep_factor := 20.;
fat := 135.0;
carb := 286.0;
prot := 66.8;
fiber := 15.5;
sugar := 96.7;
saturated := 35.4;
fasted := 6.5;
fat_other := 99.6;
carb_other := 173.8;
delta_ksteps :=  (recommended_ksteps - ksteps) * kstep_factor;
delta_fat_other := (fat_other - recommended_fat_other);
delta_carb_other := (carb_other - recommended_carb_other);
delta_prot := (prot - recommended_prot);
delta_fiber := (fiber - recommended_fiber);
delta_sugar := (sugar - recommended_sugar);
delta_saturated := (saturated - recommended_saturated);
delta_fasted := (fasted - recommended_fasted) * fasted_factor;
it_previous :=  79.0;
metabolism :=  0.;
it_ksteps := (C_ksteps) * (delta_ksteps);
it_fat_other := factor1  * ( C_fat_other ) * ( (delta_fat_other) );
it_carb_other := factor1  * ( C_carb_other ) * ( (delta_carb_other) );
it_prot := factor1  * ( C_protein ) * ( (delta_prot) );
it_fiber := factor1  * ( C_fiber ) * ( (delta_fiber) );
it_sugar :=  factor1  * ( C_sugar ) * ( (delta_sugar) );
it_saturated := factor1  * ( C_saturated ) * ( (delta_saturated) );
it_fasted := ( C_fasted ) * ( (delta_fasted) );
prediction  := evalf(it_previous * prior_factor
 + metabolism
 + it_ksteps * cal_per_ksteps
 + it_fat_other * cal_per_gram_fat
 + it_carb_other * cal_per_gram_carb
 + it_prot * cal_per_gram_prot
 + it_fiber * cal_per_gram_carb
 + it_sugar * cal_per_gram_carb
 + it_saturated * cal_per_gram_fat
 + it_fasted);
it_previous := 79.0;
actual := 75.0;
previous := 79.0;
err := abs(prediction - actual);
perc_err := abs(err * 100.0) / actual;
delta_glucose := abs(previous - actual);
perc_delta := (delta_glucose * 100.0) / actual;
if (perc_err < min_perc_err) then min_perc_err := perc_err; fi;
if (perc_err > max_perc_err) then max_perc_err := perc_err; fi;
tot_perc_err := tot_perc_err + perc_err;
if (actual < low_actual) then low_actual := actual; fi;
if (actual > high_actual) then high_actual := actual; fi;
if (prediction < low_prediction) then low_prediction := prediction; fi;
if (prediction > high_prediction) then high_prediction := prediction; fi;
count := count + 1.0;
out2 := [count, perc_err, actual,prediction,it_previous,it_previous * prior_factor,metabolism,it_ksteps * cal_per_ksteps,it_fat_other*cal_per_gram_fat,it_carb_other*cal_per_gram_carb,it_prot*cal_per_gram_prot,it_fiber*cal_per_gram_carb,it_sugar*cal_per_gram_carb,it_saturated*cal_per_gram_fat,it_fasted,order2, delta_method, kstep_method, recommended_ksteps, kstep_exponent, kstep_factor, recommended_fat, recommended_carb, recommended_prot, recommended_fiber, recommended_sugar, recommended_saturated ,factor1, factor2, recommended_fasted,prior_factor,fasted_factor,eliminate_extremes,ksteps,fat_other,carb_other,prot,fiber,sugar,saturated,fasted,C_ksteps,C_fat_other,C_carb_other,C_protein,C_fiber,C_sugar,C_saturated,C_fasted,cal_per_gram_carb,cal_per_gram_prot,cal_per_gram_fat,cal_per_ksteps];
writedata("OUT/out88_work.tmp", out2);
ksteps := 16.0;
kstep_factor := 20.;
fat := 98.6;
carb := 349.0;
prot := 40.1;
fiber := 35.8;
sugar := 138.0;
saturated := 31.6;
fasted := 7.0;
fat_other := 67.;
carb_other := 175.2;
delta_ksteps :=  (recommended_ksteps - ksteps) * kstep_factor;
delta_fat_other := (fat_other - recommended_fat_other);
delta_carb_other := (carb_other - recommended_carb_other);
delta_prot := (prot - recommended_prot);
delta_fiber := (fiber - recommended_fiber);
delta_sugar := (sugar - recommended_sugar);
delta_saturated := (saturated - recommended_saturated);
delta_fasted := (fasted - recommended_fasted) * fasted_factor;
it_previous :=  60.0;
metabolism :=  0.;
it_ksteps := (C_ksteps) * (delta_ksteps);
it_fat_other := factor1  * ( C_fat_other ) * ( (delta_fat_other) );
it_carb_other := factor1  * ( C_carb_other ) * ( (delta_carb_other) );
it_prot := factor1  * ( C_protein ) * ( (delta_prot) );
it_fiber := factor1  * ( C_fiber ) * ( (delta_fiber) );
it_sugar :=  factor1  * ( C_sugar ) * ( (delta_sugar) );
it_saturated := factor1  * ( C_saturated ) * ( (delta_saturated) );
it_fasted := ( C_fasted ) * ( (delta_fasted) );
prediction  := evalf(it_previous * prior_factor
 + metabolism
 + it_ksteps * cal_per_ksteps
 + it_fat_other * cal_per_gram_fat
 + it_carb_other * cal_per_gram_carb
 + it_prot * cal_per_gram_prot
 + it_fiber * cal_per_gram_carb
 + it_sugar * cal_per_gram_carb
 + it_saturated * cal_per_gram_fat
 + it_fasted);
it_previous := 60.0;
actual := 79.0;
previous := 60.0;
err := abs(prediction - actual);
perc_err := abs(err * 100.0) / actual;
delta_glucose := abs(previous - actual);
perc_delta := (delta_glucose * 100.0) / actual;
if (perc_err < min_perc_err) then min_perc_err := perc_err; fi;
if (perc_err > max_perc_err) then max_perc_err := perc_err; fi;
tot_perc_err := tot_perc_err + perc_err;
if (actual < low_actual) then low_actual := actual; fi;
if (actual > high_actual) then high_actual := actual; fi;
if (prediction < low_prediction) then low_prediction := prediction; fi;
if (prediction > high_prediction) then high_prediction := prediction; fi;
count := count + 1.0;
out2 := [count, perc_err, actual,prediction,it_previous,it_previous * prior_factor,metabolism,it_ksteps * cal_per_ksteps,it_fat_other*cal_per_gram_fat,it_carb_other*cal_per_gram_carb,it_prot*cal_per_gram_prot,it_fiber*cal_per_gram_carb,it_sugar*cal_per_gram_carb,it_saturated*cal_per_gram_fat,it_fasted,order2, delta_method, kstep_method, recommended_ksteps, kstep_exponent, kstep_factor, recommended_fat, recommended_carb, recommended_prot, recommended_fiber, recommended_sugar, recommended_saturated ,factor1, factor2, recommended_fasted,prior_factor,fasted_factor,eliminate_extremes,ksteps,fat_other,carb_other,prot,fiber,sugar,saturated,fasted,C_ksteps,C_fat_other,C_carb_other,C_protein,C_fiber,C_sugar,C_saturated,C_fasted,cal_per_gram_carb,cal_per_gram_prot,cal_per_gram_fat,cal_per_ksteps];
writedata("OUT/out89_work.tmp", out2);
ksteps := 12.0;
kstep_factor := 20.;
fat := 110.0;
carb := 354.0;
prot := 58.0;
fiber := 19.5;
sugar := 153.0;
saturated := 33.4;
fasted := 6.5;
fat_other := 76.6;
carb_other := 181.5;
delta_ksteps :=  (recommended_ksteps - ksteps) * kstep_factor;
delta_fat_other := (fat_other - recommended_fat_other);
delta_carb_other := (carb_other - recommended_carb_other);
delta_prot := (prot - recommended_prot);
delta_fiber := (fiber - recommended_fiber);
delta_sugar := (sugar - recommended_sugar);
delta_saturated := (saturated - recommended_saturated);
delta_fasted := (fasted - recommended_fasted) * fasted_factor;
it_previous :=  73.0;
metabolism :=  0.;
it_ksteps := (C_ksteps) * (delta_ksteps);
it_fat_other := factor1  * ( C_fat_other ) * ( (delta_fat_other) );
it_carb_other := factor1  * ( C_carb_other ) * ( (delta_carb_other) );
it_prot := factor1  * ( C_protein ) * ( (delta_prot) );
it_fiber := factor1  * ( C_fiber ) * ( (delta_fiber) );
it_sugar :=  factor1  * ( C_sugar ) * ( (delta_sugar) );
it_saturated := factor1  * ( C_saturated ) * ( (delta_saturated) );
it_fasted := ( C_fasted ) * ( (delta_fasted) );
prediction  := evalf(it_previous * prior_factor
 + metabolism
 + it_ksteps * cal_per_ksteps
 + it_fat_other * cal_per_gram_fat
 + it_carb_other * cal_per_gram_carb
 + it_prot * cal_per_gram_prot
 + it_fiber * cal_per_gram_carb
 + it_sugar * cal_per_gram_carb
 + it_saturated * cal_per_gram_fat
 + it_fasted);
it_previous := 73.0;
actual := 60.0;
previous := 73.0;
err := abs(prediction - actual);
perc_err := abs(err * 100.0) / actual;
delta_glucose := abs(previous - actual);
perc_delta := (delta_glucose * 100.0) / actual;
if (perc_err < min_perc_err) then min_perc_err := perc_err; fi;
if (perc_err > max_perc_err) then max_perc_err := perc_err; fi;
tot_perc_err := tot_perc_err + perc_err;
if (actual < low_actual) then low_actual := actual; fi;
if (actual > high_actual) then high_actual := actual; fi;
if (prediction < low_prediction) then low_prediction := prediction; fi;
if (prediction > high_prediction) then high_prediction := prediction; fi;
count := count + 1.0;
out2 := [count, perc_err, actual,prediction,it_previous,it_previous * prior_factor,metabolism,it_ksteps * cal_per_ksteps,it_fat_other*cal_per_gram_fat,it_carb_other*cal_per_gram_carb,it_prot*cal_per_gram_prot,it_fiber*cal_per_gram_carb,it_sugar*cal_per_gram_carb,it_saturated*cal_per_gram_fat,it_fasted,order2, delta_method, kstep_method, recommended_ksteps, kstep_exponent, kstep_factor, recommended_fat, recommended_carb, recommended_prot, recommended_fiber, recommended_sugar, recommended_saturated ,factor1, factor2, recommended_fasted,prior_factor,fasted_factor,eliminate_extremes,ksteps,fat_other,carb_other,prot,fiber,sugar,saturated,fasted,C_ksteps,C_fat_other,C_carb_other,C_protein,C_fiber,C_sugar,C_saturated,C_fasted,cal_per_gram_carb,cal_per_gram_prot,cal_per_gram_fat,cal_per_ksteps];
writedata("OUT/out90_work.tmp", out2);
ksteps := 10.0;
kstep_factor := 20.;
fat := 127.0;
carb := 231.0;
prot := 76.0;
fiber := 19.5;
sugar := 82.3;
saturated := 28.2;
fasted := 5.0;
fat_other := 98.8;
carb_other := 129.2;
delta_ksteps :=  (recommended_ksteps - ksteps) * kstep_factor;
delta_fat_other := (fat_other - recommended_fat_other);
delta_carb_other := (carb_other - recommended_carb_other);
delta_prot := (prot - recommended_prot);
delta_fiber := (fiber - recommended_fiber);
delta_sugar := (sugar - recommended_sugar);
delta_saturated := (saturated - recommended_saturated);
delta_fasted := (fasted - recommended_fasted) * fasted_factor;
it_previous :=  78.0;
metabolism :=  0.;
it_ksteps := (C_ksteps) * (delta_ksteps);
it_fat_other := factor1  * ( C_fat_other ) * ( (delta_fat_other) );
it_carb_other := factor1  * ( C_carb_other ) * ( (delta_carb_other) );
it_prot := factor1  * ( C_protein ) * ( (delta_prot) );
it_fiber := factor1  * ( C_fiber ) * ( (delta_fiber) );
it_sugar :=  factor1  * ( C_sugar ) * ( (delta_sugar) );
it_saturated := factor1  * ( C_saturated ) * ( (delta_saturated) );
it_fasted := ( C_fasted ) * ( (delta_fasted) );
prediction  := evalf(it_previous * prior_factor
 + metabolism
 + it_ksteps * cal_per_ksteps
 + it_fat_other * cal_per_gram_fat
 + it_carb_other * cal_per_gram_carb
 + it_prot * cal_per_gram_prot
 + it_fiber * cal_per_gram_carb
 + it_sugar * cal_per_gram_carb
 + it_saturated * cal_per_gram_fat
 + it_fasted);
it_previous := 78.0;
actual := 73.0;
previous := 78.0;
err := abs(prediction - actual);
perc_err := abs(err * 100.0) / actual;
delta_glucose := abs(previous - actual);
perc_delta := (delta_glucose * 100.0) / actual;
if (perc_err < min_perc_err) then min_perc_err := perc_err; fi;
if (perc_err > max_perc_err) then max_perc_err := perc_err; fi;
tot_perc_err := tot_perc_err + perc_err;
if (actual < low_actual) then low_actual := actual; fi;
if (actual > high_actual) then high_actual := actual; fi;
if (prediction < low_prediction) then low_prediction := prediction; fi;
if (prediction > high_prediction) then high_prediction := prediction; fi;
count := count + 1.0;
out2 := [count, perc_err, actual,prediction,it_previous,it_previous * prior_factor,metabolism,it_ksteps * cal_per_ksteps,it_fat_other*cal_per_gram_fat,it_carb_other*cal_per_gram_carb,it_prot*cal_per_gram_prot,it_fiber*cal_per_gram_carb,it_sugar*cal_per_gram_carb,it_saturated*cal_per_gram_fat,it_fasted,order2, delta_method, kstep_method, recommended_ksteps, kstep_exponent, kstep_factor, recommended_fat, recommended_carb, recommended_prot, recommended_fiber, recommended_sugar, recommended_saturated ,factor1, factor2, recommended_fasted,prior_factor,fasted_factor,eliminate_extremes,ksteps,fat_other,carb_other,prot,fiber,sugar,saturated,fasted,C_ksteps,C_fat_other,C_carb_other,C_protein,C_fiber,C_sugar,C_saturated,C_fasted,cal_per_gram_carb,cal_per_gram_prot,cal_per_gram_fat,cal_per_ksteps];
writedata("OUT/out91_work.tmp", out2);
ksteps := 12.0;
kstep_factor := 20.;
fat := 102.0;
carb := 262.0;
prot := 40.5;
fiber := 32.1;
sugar := 84.1;
saturated := 27.3;
fasted := 5.5;
fat_other := 74.7;
carb_other := 145.8;
delta_ksteps :=  (recommended_ksteps - ksteps) * kstep_factor;
delta_fat_other := (fat_other - recommended_fat_other);
delta_carb_other := (carb_other - recommended_carb_other);
delta_prot := (prot - recommended_prot);
delta_fiber := (fiber - recommended_fiber);
delta_sugar := (sugar - recommended_sugar);
delta_saturated := (saturated - recommended_saturated);
delta_fasted := (fasted - recommended_fasted) * fasted_factor;
it_previous :=  95.0;
metabolism :=  0.;
it_ksteps := (C_ksteps) * (delta_ksteps);
it_fat_other := factor1  * ( C_fat_other ) * ( (delta_fat_other) );
it_carb_other := factor1  * ( C_carb_other ) * ( (delta_carb_other) );
it_prot := factor1  * ( C_protein ) * ( (delta_prot) );
it_fiber := factor1  * ( C_fiber ) * ( (delta_fiber) );
it_sugar :=  factor1  * ( C_sugar ) * ( (delta_sugar) );
it_saturated := factor1  * ( C_saturated ) * ( (delta_saturated) );
it_fasted := ( C_fasted ) * ( (delta_fasted) );
prediction  := evalf(it_previous * prior_factor
 + metabolism
 + it_ksteps * cal_per_ksteps
 + it_fat_other * cal_per_gram_fat
 + it_carb_other * cal_per_gram_carb
 + it_prot * cal_per_gram_prot
 + it_fiber * cal_per_gram_carb
 + it_sugar * cal_per_gram_carb
 + it_saturated * cal_per_gram_fat
 + it_fasted);
it_previous := 95.0;
actual := 78.0;
previous := 95.0;
err := abs(prediction - actual);
perc_err := abs(err * 100.0) / actual;
delta_glucose := abs(previous - actual);
perc_delta := (delta_glucose * 100.0) / actual;
if (perc_err < min_perc_err) then min_perc_err := perc_err; fi;
if (perc_err > max_perc_err) then max_perc_err := perc_err; fi;
tot_perc_err := tot_perc_err + perc_err;
if (actual < low_actual) then low_actual := actual; fi;
if (actual > high_actual) then high_actual := actual; fi;
if (prediction < low_prediction) then low_prediction := prediction; fi;
if (prediction > high_prediction) then high_prediction := prediction; fi;
count := count + 1.0;
out2 := [count, perc_err, actual,prediction,it_previous,it_previous * prior_factor,metabolism,it_ksteps * cal_per_ksteps,it_fat_other*cal_per_gram_fat,it_carb_other*cal_per_gram_carb,it_prot*cal_per_gram_prot,it_fiber*cal_per_gram_carb,it_sugar*cal_per_gram_carb,it_saturated*cal_per_gram_fat,it_fasted,order2, delta_method, kstep_method, recommended_ksteps, kstep_exponent, kstep_factor, recommended_fat, recommended_carb, recommended_prot, recommended_fiber, recommended_sugar, recommended_saturated ,factor1, factor2, recommended_fasted,prior_factor,fasted_factor,eliminate_extremes,ksteps,fat_other,carb_other,prot,fiber,sugar,saturated,fasted,C_ksteps,C_fat_other,C_carb_other,C_protein,C_fiber,C_sugar,C_saturated,C_fasted,cal_per_gram_carb,cal_per_gram_prot,cal_per_gram_fat,cal_per_ksteps];
writedata("OUT/out92_work.tmp", out2);
ksteps := 10.0;
kstep_factor := 20.;
fat := 120.0;
carb := 289.0;
prot := 78.3;
fiber := 14.2;
sugar := 108.0;
saturated := 35.4;
fasted := 7.0;
fat_other := 84.6;
carb_other := 166.8;
delta_ksteps :=  (recommended_ksteps - ksteps) * kstep_factor;
delta_fat_other := (fat_other - recommended_fat_other);
delta_carb_other := (carb_other - recommended_carb_other);
delta_prot := (prot - recommended_prot);
delta_fiber := (fiber - recommended_fiber);
delta_sugar := (sugar - recommended_sugar);
delta_saturated := (saturated - recommended_saturated);
delta_fasted := (fasted - recommended_fasted) * fasted_factor;
it_previous :=  68.0;
metabolism :=  0.;
it_ksteps := (C_ksteps) * (delta_ksteps);
it_fat_other := factor1  * ( C_fat_other ) * ( (delta_fat_other) );
it_carb_other := factor1  * ( C_carb_other ) * ( (delta_carb_other) );
it_prot := factor1  * ( C_protein ) * ( (delta_prot) );
it_fiber := factor1  * ( C_fiber ) * ( (delta_fiber) );
it_sugar :=  factor1  * ( C_sugar ) * ( (delta_sugar) );
it_saturated := factor1  * ( C_saturated ) * ( (delta_saturated) );
it_fasted := ( C_fasted ) * ( (delta_fasted) );
prediction  := evalf(it_previous * prior_factor
 + metabolism
 + it_ksteps * cal_per_ksteps
 + it_fat_other * cal_per_gram_fat
 + it_carb_other * cal_per_gram_carb
 + it_prot * cal_per_gram_prot
 + it_fiber * cal_per_gram_carb
 + it_sugar * cal_per_gram_carb
 + it_saturated * cal_per_gram_fat
 + it_fasted);
it_previous := 68.0;
actual := 95.0;
previous := 68.0;
err := abs(prediction - actual);
perc_err := abs(err * 100.0) / actual;
delta_glucose := abs(previous - actual);
perc_delta := (delta_glucose * 100.0) / actual;
if (perc_err < min_perc_err) then min_perc_err := perc_err; fi;
if (perc_err > max_perc_err) then max_perc_err := perc_err; fi;
tot_perc_err := tot_perc_err + perc_err;
if (actual < low_actual) then low_actual := actual; fi;
if (actual > high_actual) then high_actual := actual; fi;
if (prediction < low_prediction) then low_prediction := prediction; fi;
if (prediction > high_prediction) then high_prediction := prediction; fi;
count := count + 1.0;
out2 := [count, perc_err, actual,prediction,it_previous,it_previous * prior_factor,metabolism,it_ksteps * cal_per_ksteps,it_fat_other*cal_per_gram_fat,it_carb_other*cal_per_gram_carb,it_prot*cal_per_gram_prot,it_fiber*cal_per_gram_carb,it_sugar*cal_per_gram_carb,it_saturated*cal_per_gram_fat,it_fasted,order2, delta_method, kstep_method, recommended_ksteps, kstep_exponent, kstep_factor, recommended_fat, recommended_carb, recommended_prot, recommended_fiber, recommended_sugar, recommended_saturated ,factor1, factor2, recommended_fasted,prior_factor,fasted_factor,eliminate_extremes,ksteps,fat_other,carb_other,prot,fiber,sugar,saturated,fasted,C_ksteps,C_fat_other,C_carb_other,C_protein,C_fiber,C_sugar,C_saturated,C_fasted,cal_per_gram_carb,cal_per_gram_prot,cal_per_gram_fat,cal_per_ksteps];
writedata("OUT/out93_work.tmp", out2);
ksteps := 10.0;
kstep_factor := 20.;
fat := 74.1;
carb := 183.0;
prot := 28.4;
fiber := 9.73;
sugar := 102.0;
saturated := 25.9;
fasted := 5.5;
fat_other := 48.2;
carb_other := 71.27;
delta_ksteps :=  (recommended_ksteps - ksteps) * kstep_factor;
delta_fat_other := (fat_other - recommended_fat_other);
delta_carb_other := (carb_other - recommended_carb_other);
delta_prot := (prot - recommended_prot);
delta_fiber := (fiber - recommended_fiber);
delta_sugar := (sugar - recommended_sugar);
delta_saturated := (saturated - recommended_saturated);
delta_fasted := (fasted - recommended_fasted) * fasted_factor;
it_previous :=  72.0;
metabolism :=  0.;
it_ksteps := (C_ksteps) * (delta_ksteps);
it_fat_other := factor1  * ( C_fat_other ) * ( (delta_fat_other) );
it_carb_other := factor1  * ( C_carb_other ) * ( (delta_carb_other) );
it_prot := factor1  * ( C_protein ) * ( (delta_prot) );
it_fiber := factor1  * ( C_fiber ) * ( (delta_fiber) );
it_sugar :=  factor1  * ( C_sugar ) * ( (delta_sugar) );
it_saturated := factor1  * ( C_saturated ) * ( (delta_saturated) );
it_fasted := ( C_fasted ) * ( (delta_fasted) );
prediction  := evalf(it_previous * prior_factor
 + metabolism
 + it_ksteps * cal_per_ksteps
 + it_fat_other * cal_per_gram_fat
 + it_carb_other * cal_per_gram_carb
 + it_prot * cal_per_gram_prot
 + it_fiber * cal_per_gram_carb
 + it_sugar * cal_per_gram_carb
 + it_saturated * cal_per_gram_fat
 + it_fasted);
it_previous := 72.0;
actual := 68.0;
previous := 72.0;
err := abs(prediction - actual);
perc_err := abs(err * 100.0) / actual;
delta_glucose := abs(previous - actual);
perc_delta := (delta_glucose * 100.0) / actual;
if (perc_err < min_perc_err) then min_perc_err := perc_err; fi;
if (perc_err > max_perc_err) then max_perc_err := perc_err; fi;
tot_perc_err := tot_perc_err + perc_err;
if (actual < low_actual) then low_actual := actual; fi;
if (actual > high_actual) then high_actual := actual; fi;
if (prediction < low_prediction) then low_prediction := prediction; fi;
if (prediction > high_prediction) then high_prediction := prediction; fi;
count := count + 1.0;
out2 := [count, perc_err, actual,prediction,it_previous,it_previous * prior_factor,metabolism,it_ksteps * cal_per_ksteps,it_fat_other*cal_per_gram_fat,it_carb_other*cal_per_gram_carb,it_prot*cal_per_gram_prot,it_fiber*cal_per_gram_carb,it_sugar*cal_per_gram_carb,it_saturated*cal_per_gram_fat,it_fasted,order2, delta_method, kstep_method, recommended_ksteps, kstep_exponent, kstep_factor, recommended_fat, recommended_carb, recommended_prot, recommended_fiber, recommended_sugar, recommended_saturated ,factor1, factor2, recommended_fasted,prior_factor,fasted_factor,eliminate_extremes,ksteps,fat_other,carb_other,prot,fiber,sugar,saturated,fasted,C_ksteps,C_fat_other,C_carb_other,C_protein,C_fiber,C_sugar,C_saturated,C_fasted,cal_per_gram_carb,cal_per_gram_prot,cal_per_gram_fat,cal_per_ksteps];
writedata("OUT/out94_work.tmp", out2);
ksteps := 10.0;
kstep_factor := 20.;
fat := 93.2;
carb := 236.0;
prot := 42.4;
fiber := 15.8;
sugar := 87.2;
saturated := 21.9;
fasted := 7.5;
fat_other := 71.3;
carb_other := 133.;
delta_ksteps :=  (recommended_ksteps - ksteps) * kstep_factor;
delta_fat_other := (fat_other - recommended_fat_other);
delta_carb_other := (carb_other - recommended_carb_other);
delta_prot := (prot - recommended_prot);
delta_fiber := (fiber - recommended_fiber);
delta_sugar := (sugar - recommended_sugar);
delta_saturated := (saturated - recommended_saturated);
delta_fasted := (fasted - recommended_fasted) * fasted_factor;
it_previous :=  85.0;
metabolism :=  0.;
it_ksteps := (C_ksteps) * (delta_ksteps);
it_fat_other := factor1  * ( C_fat_other ) * ( (delta_fat_other) );
it_carb_other := factor1  * ( C_carb_other ) * ( (delta_carb_other) );
it_prot := factor1  * ( C_protein ) * ( (delta_prot) );
it_fiber := factor1  * ( C_fiber ) * ( (delta_fiber) );
it_sugar :=  factor1  * ( C_sugar ) * ( (delta_sugar) );
it_saturated := factor1  * ( C_saturated ) * ( (delta_saturated) );
it_fasted := ( C_fasted ) * ( (delta_fasted) );
prediction  := evalf(it_previous * prior_factor
 + metabolism
 + it_ksteps * cal_per_ksteps
 + it_fat_other * cal_per_gram_fat
 + it_carb_other * cal_per_gram_carb
 + it_prot * cal_per_gram_prot
 + it_fiber * cal_per_gram_carb
 + it_sugar * cal_per_gram_carb
 + it_saturated * cal_per_gram_fat
 + it_fasted);
it_previous := 85.0;
actual := 72.0;
previous := 85.0;
err := abs(prediction - actual);
perc_err := abs(err * 100.0) / actual;
delta_glucose := abs(previous - actual);
perc_delta := (delta_glucose * 100.0) / actual;
if (perc_err < min_perc_err) then min_perc_err := perc_err; fi;
if (perc_err > max_perc_err) then max_perc_err := perc_err; fi;
tot_perc_err := tot_perc_err + perc_err;
if (actual < low_actual) then low_actual := actual; fi;
if (actual > high_actual) then high_actual := actual; fi;
if (prediction < low_prediction) then low_prediction := prediction; fi;
if (prediction > high_prediction) then high_prediction := prediction; fi;
count := count + 1.0;
out2 := [count, perc_err, actual,prediction,it_previous,it_previous * prior_factor,metabolism,it_ksteps * cal_per_ksteps,it_fat_other*cal_per_gram_fat,it_carb_other*cal_per_gram_carb,it_prot*cal_per_gram_prot,it_fiber*cal_per_gram_carb,it_sugar*cal_per_gram_carb,it_saturated*cal_per_gram_fat,it_fasted,order2, delta_method, kstep_method, recommended_ksteps, kstep_exponent, kstep_factor, recommended_fat, recommended_carb, recommended_prot, recommended_fiber, recommended_sugar, recommended_saturated ,factor1, factor2, recommended_fasted,prior_factor,fasted_factor,eliminate_extremes,ksteps,fat_other,carb_other,prot,fiber,sugar,saturated,fasted,C_ksteps,C_fat_other,C_carb_other,C_protein,C_fiber,C_sugar,C_saturated,C_fasted,cal_per_gram_carb,cal_per_gram_prot,cal_per_gram_fat,cal_per_ksteps];
writedata("OUT/out95_work.tmp", out2);
ksteps := 10.0;
kstep_factor := 20.;
fat := 135.0;
carb := 189.0;
prot := 69.5;
fiber := 23.0;
sugar := 69.1;
saturated := 26.1;
fasted := 5.5;
fat_other := 108.9;
carb_other := 96.9;
delta_ksteps :=  (recommended_ksteps - ksteps) * kstep_factor;
delta_fat_other := (fat_other - recommended_fat_other);
delta_carb_other := (carb_other - recommended_carb_other);
delta_prot := (prot - recommended_prot);
delta_fiber := (fiber - recommended_fiber);
delta_sugar := (sugar - recommended_sugar);
delta_saturated := (saturated - recommended_saturated);
delta_fasted := (fasted - recommended_fasted) * fasted_factor;
it_previous :=  76.0;
metabolism :=  0.;
it_ksteps := (C_ksteps) * (delta_ksteps);
it_fat_other := factor1  * ( C_fat_other ) * ( (delta_fat_other) );
it_carb_other := factor1  * ( C_carb_other ) * ( (delta_carb_other) );
it_prot := factor1  * ( C_protein ) * ( (delta_prot) );
it_fiber := factor1  * ( C_fiber ) * ( (delta_fiber) );
it_sugar :=  factor1  * ( C_sugar ) * ( (delta_sugar) );
it_saturated := factor1  * ( C_saturated ) * ( (delta_saturated) );
it_fasted := ( C_fasted ) * ( (delta_fasted) );
prediction  := evalf(it_previous * prior_factor
 + metabolism
 + it_ksteps * cal_per_ksteps
 + it_fat_other * cal_per_gram_fat
 + it_carb_other * cal_per_gram_carb
 + it_prot * cal_per_gram_prot
 + it_fiber * cal_per_gram_carb
 + it_sugar * cal_per_gram_carb
 + it_saturated * cal_per_gram_fat
 + it_fasted);
it_previous := 76.0;
actual := 85.0;
previous := 76.0;
err := abs(prediction - actual);
perc_err := abs(err * 100.0) / actual;
delta_glucose := abs(previous - actual);
perc_delta := (delta_glucose * 100.0) / actual;
if (perc_err < min_perc_err) then min_perc_err := perc_err; fi;
if (perc_err > max_perc_err) then max_perc_err := perc_err; fi;
tot_perc_err := tot_perc_err + perc_err;
if (actual < low_actual) then low_actual := actual; fi;
if (actual > high_actual) then high_actual := actual; fi;
if (prediction < low_prediction) then low_prediction := prediction; fi;
if (prediction > high_prediction) then high_prediction := prediction; fi;
count := count + 1.0;
out2 := [count, perc_err, actual,prediction,it_previous,it_previous * prior_factor,metabolism,it_ksteps * cal_per_ksteps,it_fat_other*cal_per_gram_fat,it_carb_other*cal_per_gram_carb,it_prot*cal_per_gram_prot,it_fiber*cal_per_gram_carb,it_sugar*cal_per_gram_carb,it_saturated*cal_per_gram_fat,it_fasted,order2, delta_method, kstep_method, recommended_ksteps, kstep_exponent, kstep_factor, recommended_fat, recommended_carb, recommended_prot, recommended_fiber, recommended_sugar, recommended_saturated ,factor1, factor2, recommended_fasted,prior_factor,fasted_factor,eliminate_extremes,ksteps,fat_other,carb_other,prot,fiber,sugar,saturated,fasted,C_ksteps,C_fat_other,C_carb_other,C_protein,C_fiber,C_sugar,C_saturated,C_fasted,cal_per_gram_carb,cal_per_gram_prot,cal_per_gram_fat,cal_per_ksteps];
writedata("OUT/out96_work.tmp", out2);
ksteps := 10.0;
kstep_factor := 20.;
fat := 108.0;
carb := 222.0;
prot := 29.8;
fiber := 6.68;
sugar := 115.0;
saturated := 27.7;
fasted := 7.0;
fat_other := 80.3;
carb_other := 100.32;
delta_ksteps :=  (recommended_ksteps - ksteps) * kstep_factor;
delta_fat_other := (fat_other - recommended_fat_other);
delta_carb_other := (carb_other - recommended_carb_other);
delta_prot := (prot - recommended_prot);
delta_fiber := (fiber - recommended_fiber);
delta_sugar := (sugar - recommended_sugar);
delta_saturated := (saturated - recommended_saturated);
delta_fasted := (fasted - recommended_fasted) * fasted_factor;
it_previous :=  71.0;
metabolism :=  0.;
it_ksteps := (C_ksteps) * (delta_ksteps);
it_fat_other := factor1  * ( C_fat_other ) * ( (delta_fat_other) );
it_carb_other := factor1  * ( C_carb_other ) * ( (delta_carb_other) );
it_prot := factor1  * ( C_protein ) * ( (delta_prot) );
it_fiber := factor1  * ( C_fiber ) * ( (delta_fiber) );
it_sugar :=  factor1  * ( C_sugar ) * ( (delta_sugar) );
it_saturated := factor1  * ( C_saturated ) * ( (delta_saturated) );
it_fasted := ( C_fasted ) * ( (delta_fasted) );
prediction  := evalf(it_previous * prior_factor
 + metabolism
 + it_ksteps * cal_per_ksteps
 + it_fat_other * cal_per_gram_fat
 + it_carb_other * cal_per_gram_carb
 + it_prot * cal_per_gram_prot
 + it_fiber * cal_per_gram_carb
 + it_sugar * cal_per_gram_carb
 + it_saturated * cal_per_gram_fat
 + it_fasted);
it_previous := 71.0;
actual := 76.0;
previous := 71.0;
err := abs(prediction - actual);
perc_err := abs(err * 100.0) / actual;
delta_glucose := abs(previous - actual);
perc_delta := (delta_glucose * 100.0) / actual;
if (perc_err < min_perc_err) then min_perc_err := perc_err; fi;
if (perc_err > max_perc_err) then max_perc_err := perc_err; fi;
tot_perc_err := tot_perc_err + perc_err;
if (actual < low_actual) then low_actual := actual; fi;
if (actual > high_actual) then high_actual := actual; fi;
if (prediction < low_prediction) then low_prediction := prediction; fi;
if (prediction > high_prediction) then high_prediction := prediction; fi;
count := count + 1.0;
out2 := [count, perc_err, actual,prediction,it_previous,it_previous * prior_factor,metabolism,it_ksteps * cal_per_ksteps,it_fat_other*cal_per_gram_fat,it_carb_other*cal_per_gram_carb,it_prot*cal_per_gram_prot,it_fiber*cal_per_gram_carb,it_sugar*cal_per_gram_carb,it_saturated*cal_per_gram_fat,it_fasted,order2, delta_method, kstep_method, recommended_ksteps, kstep_exponent, kstep_factor, recommended_fat, recommended_carb, recommended_prot, recommended_fiber, recommended_sugar, recommended_saturated ,factor1, factor2, recommended_fasted,prior_factor,fasted_factor,eliminate_extremes,ksteps,fat_other,carb_other,prot,fiber,sugar,saturated,fasted,C_ksteps,C_fat_other,C_carb_other,C_protein,C_fiber,C_sugar,C_saturated,C_fasted,cal_per_gram_carb,cal_per_gram_prot,cal_per_gram_fat,cal_per_ksteps];
writedata("OUT/out97_work.tmp", out2);
ksteps := 10.0;
kstep_factor := 20.;
fat := 118.0;
carb := 170.0;
prot := 60.7;
fiber := 13.6;
sugar := 79.3;
saturated := 20.8;
fasted := 5.5;
fat_other := 97.2;
carb_other := 77.1;
delta_ksteps :=  (recommended_ksteps - ksteps) * kstep_factor;
delta_fat_other := (fat_other - recommended_fat_other);
delta_carb_other := (carb_other - recommended_carb_other);
delta_prot := (prot - recommended_prot);
delta_fiber := (fiber - recommended_fiber);
delta_sugar := (sugar - recommended_sugar);
delta_saturated := (saturated - recommended_saturated);
delta_fasted := (fasted - recommended_fasted) * fasted_factor;
it_previous :=  96.0;
metabolism :=  0.;
it_ksteps := (C_ksteps) * (delta_ksteps);
it_fat_other := factor1  * ( C_fat_other ) * ( (delta_fat_other) );
it_carb_other := factor1  * ( C_carb_other ) * ( (delta_carb_other) );
it_prot := factor1  * ( C_protein ) * ( (delta_prot) );
it_fiber := factor1  * ( C_fiber ) * ( (delta_fiber) );
it_sugar :=  factor1  * ( C_sugar ) * ( (delta_sugar) );
it_saturated := factor1  * ( C_saturated ) * ( (delta_saturated) );
it_fasted := ( C_fasted ) * ( (delta_fasted) );
prediction  := evalf(it_previous * prior_factor
 + metabolism
 + it_ksteps * cal_per_ksteps
 + it_fat_other * cal_per_gram_fat
 + it_carb_other * cal_per_gram_carb
 + it_prot * cal_per_gram_prot
 + it_fiber * cal_per_gram_carb
 + it_sugar * cal_per_gram_carb
 + it_saturated * cal_per_gram_fat
 + it_fasted);
it_previous := 96.0;
actual := 71.0;
previous := 96.0;
err := abs(prediction - actual);
perc_err := abs(err * 100.0) / actual;
delta_glucose := abs(previous - actual);
perc_delta := (delta_glucose * 100.0) / actual;
if (perc_err < min_perc_err) then min_perc_err := perc_err; fi;
if (perc_err > max_perc_err) then max_perc_err := perc_err; fi;
tot_perc_err := tot_perc_err + perc_err;
if (actual < low_actual) then low_actual := actual; fi;
if (actual > high_actual) then high_actual := actual; fi;
if (prediction < low_prediction) then low_prediction := prediction; fi;
if (prediction > high_prediction) then high_prediction := prediction; fi;
count := count + 1.0;
out2 := [count, perc_err, actual,prediction,it_previous,it_previous * prior_factor,metabolism,it_ksteps * cal_per_ksteps,it_fat_other*cal_per_gram_fat,it_carb_other*cal_per_gram_carb,it_prot*cal_per_gram_prot,it_fiber*cal_per_gram_carb,it_sugar*cal_per_gram_carb,it_saturated*cal_per_gram_fat,it_fasted,order2, delta_method, kstep_method, recommended_ksteps, kstep_exponent, kstep_factor, recommended_fat, recommended_carb, recommended_prot, recommended_fiber, recommended_sugar, recommended_saturated ,factor1, factor2, recommended_fasted,prior_factor,fasted_factor,eliminate_extremes,ksteps,fat_other,carb_other,prot,fiber,sugar,saturated,fasted,C_ksteps,C_fat_other,C_carb_other,C_protein,C_fiber,C_sugar,C_saturated,C_fasted,cal_per_gram_carb,cal_per_gram_prot,cal_per_gram_fat,cal_per_ksteps];
writedata("OUT/out98_work.tmp", out2);
ksteps := 12.0;
kstep_factor := 20.;
fat := 71.0;
carb := 193.0;
prot := 40.5;
fiber := 14.8;
sugar := 83.6;
saturated := 17.9;
fasted := 6.0;
fat_other := 53.1;
carb_other := 94.6;
delta_ksteps :=  (recommended_ksteps - ksteps) * kstep_factor;
delta_fat_other := (fat_other - recommended_fat_other);
delta_carb_other := (carb_other - recommended_carb_other);
delta_prot := (prot - recommended_prot);
delta_fiber := (fiber - recommended_fiber);
delta_sugar := (sugar - recommended_sugar);
delta_saturated := (saturated - recommended_saturated);
delta_fasted := (fasted - recommended_fasted) * fasted_factor;
it_previous :=  85.0;
metabolism :=  0.;
it_ksteps := (C_ksteps) * (delta_ksteps);
it_fat_other := factor1  * ( C_fat_other ) * ( (delta_fat_other) );
it_carb_other := factor1  * ( C_carb_other ) * ( (delta_carb_other) );
it_prot := factor1  * ( C_protein ) * ( (delta_prot) );
it_fiber := factor1  * ( C_fiber ) * ( (delta_fiber) );
it_sugar :=  factor1  * ( C_sugar ) * ( (delta_sugar) );
it_saturated := factor1  * ( C_saturated ) * ( (delta_saturated) );
it_fasted := ( C_fasted ) * ( (delta_fasted) );
prediction  := evalf(it_previous * prior_factor
 + metabolism
 + it_ksteps * cal_per_ksteps
 + it_fat_other * cal_per_gram_fat
 + it_carb_other * cal_per_gram_carb
 + it_prot * cal_per_gram_prot
 + it_fiber * cal_per_gram_carb
 + it_sugar * cal_per_gram_carb
 + it_saturated * cal_per_gram_fat
 + it_fasted);
it_previous := 85.0;
actual := 96.0;
previous := 85.0;
err := abs(prediction - actual);
perc_err := abs(err * 100.0) / actual;
delta_glucose := abs(previous - actual);
perc_delta := (delta_glucose * 100.0) / actual;
if (perc_err < min_perc_err) then min_perc_err := perc_err; fi;
if (perc_err > max_perc_err) then max_perc_err := perc_err; fi;
tot_perc_err := tot_perc_err + perc_err;
if (actual < low_actual) then low_actual := actual; fi;
if (actual > high_actual) then high_actual := actual; fi;
if (prediction < low_prediction) then low_prediction := prediction; fi;
if (prediction > high_prediction) then high_prediction := prediction; fi;
count := count + 1.0;
out2 := [count, perc_err, actual,prediction,it_previous,it_previous * prior_factor,metabolism,it_ksteps * cal_per_ksteps,it_fat_other*cal_per_gram_fat,it_carb_other*cal_per_gram_carb,it_prot*cal_per_gram_prot,it_fiber*cal_per_gram_carb,it_sugar*cal_per_gram_carb,it_saturated*cal_per_gram_fat,it_fasted,order2, delta_method, kstep_method, recommended_ksteps, kstep_exponent, kstep_factor, recommended_fat, recommended_carb, recommended_prot, recommended_fiber, recommended_sugar, recommended_saturated ,factor1, factor2, recommended_fasted,prior_factor,fasted_factor,eliminate_extremes,ksteps,fat_other,carb_other,prot,fiber,sugar,saturated,fasted,C_ksteps,C_fat_other,C_carb_other,C_protein,C_fiber,C_sugar,C_saturated,C_fasted,cal_per_gram_carb,cal_per_gram_prot,cal_per_gram_fat,cal_per_ksteps];
writedata("OUT/out99_work.tmp", out2);
ksteps := 16.0;
kstep_factor := 20.;
fat := 84.1;
carb := 274.0;
prot := 52.1;
fiber := 31.6;
sugar := 94.6;
saturated := 17.6;
fasted := 8.5;
fat_other := 66.5;
carb_other := 147.8;
delta_ksteps :=  (recommended_ksteps - ksteps) * kstep_factor;
delta_fat_other := (fat_other - recommended_fat_other);
delta_carb_other := (carb_other - recommended_carb_other);
delta_prot := (prot - recommended_prot);
delta_fiber := (fiber - recommended_fiber);
delta_sugar := (sugar - recommended_sugar);
delta_saturated := (saturated - recommended_saturated);
delta_fasted := (fasted - recommended_fasted) * fasted_factor;
it_previous :=  98.0;
metabolism :=  0.;
it_ksteps := (C_ksteps) * (delta_ksteps);
it_fat_other := factor1  * ( C_fat_other ) * ( (delta_fat_other) );
it_carb_other := factor1  * ( C_carb_other ) * ( (delta_carb_other) );
it_prot := factor1  * ( C_protein ) * ( (delta_prot) );
it_fiber := factor1  * ( C_fiber ) * ( (delta_fiber) );
it_sugar :=  factor1  * ( C_sugar ) * ( (delta_sugar) );
it_saturated := factor1  * ( C_saturated ) * ( (delta_saturated) );
it_fasted := ( C_fasted ) * ( (delta_fasted) );
prediction  := evalf(it_previous * prior_factor
 + metabolism
 + it_ksteps * cal_per_ksteps
 + it_fat_other * cal_per_gram_fat
 + it_carb_other * cal_per_gram_carb
 + it_prot * cal_per_gram_prot
 + it_fiber * cal_per_gram_carb
 + it_sugar * cal_per_gram_carb
 + it_saturated * cal_per_gram_fat
 + it_fasted);
it_previous := 98.0;
actual := 85.0;
previous := 98.0;
err := abs(prediction - actual);
perc_err := abs(err * 100.0) / actual;
delta_glucose := abs(previous - actual);
perc_delta := (delta_glucose * 100.0) / actual;
if (perc_err < min_perc_err) then min_perc_err := perc_err; fi;
if (perc_err > max_perc_err) then max_perc_err := perc_err; fi;
tot_perc_err := tot_perc_err + perc_err;
if (actual < low_actual) then low_actual := actual; fi;
if (actual > high_actual) then high_actual := actual; fi;
if (prediction < low_prediction) then low_prediction := prediction; fi;
if (prediction > high_prediction) then high_prediction := prediction; fi;
count := count + 1.0;
out2 := [count, perc_err, actual,prediction,it_previous,it_previous * prior_factor,metabolism,it_ksteps * cal_per_ksteps,it_fat_other*cal_per_gram_fat,it_carb_other*cal_per_gram_carb,it_prot*cal_per_gram_prot,it_fiber*cal_per_gram_carb,it_sugar*cal_per_gram_carb,it_saturated*cal_per_gram_fat,it_fasted,order2, delta_method, kstep_method, recommended_ksteps, kstep_exponent, kstep_factor, recommended_fat, recommended_carb, recommended_prot, recommended_fiber, recommended_sugar, recommended_saturated ,factor1, factor2, recommended_fasted,prior_factor,fasted_factor,eliminate_extremes,ksteps,fat_other,carb_other,prot,fiber,sugar,saturated,fasted,C_ksteps,C_fat_other,C_carb_other,C_protein,C_fiber,C_sugar,C_saturated,C_fasted,cal_per_gram_carb,cal_per_gram_prot,cal_per_gram_fat,cal_per_ksteps];
writedata("OUT/out100_work.tmp", out2);
ksteps := 10.0;
kstep_factor := 20.;
fat := 170.0;
carb := 392.0;
prot := 51.1;
fiber := 13.9;
sugar := 187.0;
saturated := 48.3;
fasted := 7.0;
fat_other := 121.7;
carb_other := 191.1;
delta_ksteps :=  (recommended_ksteps - ksteps) * kstep_factor;
delta_fat_other := (fat_other - recommended_fat_other);
delta_carb_other := (carb_other - recommended_carb_other);
delta_prot := (prot - recommended_prot);
delta_fiber := (fiber - recommended_fiber);
delta_sugar := (sugar - recommended_sugar);
delta_saturated := (saturated - recommended_saturated);
delta_fasted := (fasted - recommended_fasted) * fasted_factor;
it_previous :=  82.0;
metabolism :=  0.;
it_ksteps := (C_ksteps) * (delta_ksteps);
it_fat_other := factor1  * ( C_fat_other ) * ( (delta_fat_other) );
it_carb_other := factor1  * ( C_carb_other ) * ( (delta_carb_other) );
it_prot := factor1  * ( C_protein ) * ( (delta_prot) );
it_fiber := factor1  * ( C_fiber ) * ( (delta_fiber) );
it_sugar :=  factor1  * ( C_sugar ) * ( (delta_sugar) );
it_saturated := factor1  * ( C_saturated ) * ( (delta_saturated) );
it_fasted := ( C_fasted ) * ( (delta_fasted) );
prediction  := evalf(it_previous * prior_factor
 + metabolism
 + it_ksteps * cal_per_ksteps
 + it_fat_other * cal_per_gram_fat
 + it_carb_other * cal_per_gram_carb
 + it_prot * cal_per_gram_prot
 + it_fiber * cal_per_gram_carb
 + it_sugar * cal_per_gram_carb
 + it_saturated * cal_per_gram_fat
 + it_fasted);
it_previous := 82.0;
actual := 98.0;
previous := 82.0;
err := abs(prediction - actual);
perc_err := abs(err * 100.0) / actual;
delta_glucose := abs(previous - actual);
perc_delta := (delta_glucose * 100.0) / actual;
if (perc_err < min_perc_err) then min_perc_err := perc_err; fi;
if (perc_err > max_perc_err) then max_perc_err := perc_err; fi;
tot_perc_err := tot_perc_err + perc_err;
if (actual < low_actual) then low_actual := actual; fi;
if (actual > high_actual) then high_actual := actual; fi;
if (prediction < low_prediction) then low_prediction := prediction; fi;
if (prediction > high_prediction) then high_prediction := prediction; fi;
count := count + 1.0;
out2 := [count, perc_err, actual,prediction,it_previous,it_previous * prior_factor,metabolism,it_ksteps * cal_per_ksteps,it_fat_other*cal_per_gram_fat,it_carb_other*cal_per_gram_carb,it_prot*cal_per_gram_prot,it_fiber*cal_per_gram_carb,it_sugar*cal_per_gram_carb,it_saturated*cal_per_gram_fat,it_fasted,order2, delta_method, kstep_method, recommended_ksteps, kstep_exponent, kstep_factor, recommended_fat, recommended_carb, recommended_prot, recommended_fiber, recommended_sugar, recommended_saturated ,factor1, factor2, recommended_fasted,prior_factor,fasted_factor,eliminate_extremes,ksteps,fat_other,carb_other,prot,fiber,sugar,saturated,fasted,C_ksteps,C_fat_other,C_carb_other,C_protein,C_fiber,C_sugar,C_saturated,C_fasted,cal_per_gram_carb,cal_per_gram_prot,cal_per_gram_fat,cal_per_ksteps];
writedata("OUT/out101_work.tmp", out2);
ksteps := 12.0;
kstep_factor := 20.;
fat := 118.0;
carb := 306.0;
prot := 44.5;
fiber := 13.5;
sugar := 134.0;
saturated := 33.2;
fasted := 5.5;
fat_other := 84.8;
carb_other := 158.5;
delta_ksteps :=  (recommended_ksteps - ksteps) * kstep_factor;
delta_fat_other := (fat_other - recommended_fat_other);
delta_carb_other := (carb_other - recommended_carb_other);
delta_prot := (prot - recommended_prot);
delta_fiber := (fiber - recommended_fiber);
delta_sugar := (sugar - recommended_sugar);
delta_saturated := (saturated - recommended_saturated);
delta_fasted := (fasted - recommended_fasted) * fasted_factor;
it_previous :=  87.0;
metabolism :=  0.;
it_ksteps := (C_ksteps) * (delta_ksteps);
it_fat_other := factor1  * ( C_fat_other ) * ( (delta_fat_other) );
it_carb_other := factor1  * ( C_carb_other ) * ( (delta_carb_other) );
it_prot := factor1  * ( C_protein ) * ( (delta_prot) );
it_fiber := factor1  * ( C_fiber ) * ( (delta_fiber) );
it_sugar :=  factor1  * ( C_sugar ) * ( (delta_sugar) );
it_saturated := factor1  * ( C_saturated ) * ( (delta_saturated) );
it_fasted := ( C_fasted ) * ( (delta_fasted) );
prediction  := evalf(it_previous * prior_factor
 + metabolism
 + it_ksteps * cal_per_ksteps
 + it_fat_other * cal_per_gram_fat
 + it_carb_other * cal_per_gram_carb
 + it_prot * cal_per_gram_prot
 + it_fiber * cal_per_gram_carb
 + it_sugar * cal_per_gram_carb
 + it_saturated * cal_per_gram_fat
 + it_fasted);
it_previous := 87.0;
actual := 82.0;
previous := 87.0;
err := abs(prediction - actual);
perc_err := abs(err * 100.0) / actual;
delta_glucose := abs(previous - actual);
perc_delta := (delta_glucose * 100.0) / actual;
if (perc_err < min_perc_err) then min_perc_err := perc_err; fi;
if (perc_err > max_perc_err) then max_perc_err := perc_err; fi;
tot_perc_err := tot_perc_err + perc_err;
if (actual < low_actual) then low_actual := actual; fi;
if (actual > high_actual) then high_actual := actual; fi;
if (prediction < low_prediction) then low_prediction := prediction; fi;
if (prediction > high_prediction) then high_prediction := prediction; fi;
count := count + 1.0;
out2 := [count, perc_err, actual,prediction,it_previous,it_previous * prior_factor,metabolism,it_ksteps * cal_per_ksteps,it_fat_other*cal_per_gram_fat,it_carb_other*cal_per_gram_carb,it_prot*cal_per_gram_prot,it_fiber*cal_per_gram_carb,it_sugar*cal_per_gram_carb,it_saturated*cal_per_gram_fat,it_fasted,order2, delta_method, kstep_method, recommended_ksteps, kstep_exponent, kstep_factor, recommended_fat, recommended_carb, recommended_prot, recommended_fiber, recommended_sugar, recommended_saturated ,factor1, factor2, recommended_fasted,prior_factor,fasted_factor,eliminate_extremes,ksteps,fat_other,carb_other,prot,fiber,sugar,saturated,fasted,C_ksteps,C_fat_other,C_carb_other,C_protein,C_fiber,C_sugar,C_saturated,C_fasted,cal_per_gram_carb,cal_per_gram_prot,cal_per_gram_fat,cal_per_ksteps];
writedata("OUT/out102_work.tmp", out2);
ksteps := 10.0;
kstep_factor := 20.;
fat := 76.2;
carb := 250.0;
prot := 49.6;
fiber := 6.03;
sugar := 107.0;
saturated := 32.1;
fasted := 6.5;
fat_other := 44.1;
carb_other := 136.97;
delta_ksteps :=  (recommended_ksteps - ksteps) * kstep_factor;
delta_fat_other := (fat_other - recommended_fat_other);
delta_carb_other := (carb_other - recommended_carb_other);
delta_prot := (prot - recommended_prot);
delta_fiber := (fiber - recommended_fiber);
delta_sugar := (sugar - recommended_sugar);
delta_saturated := (saturated - recommended_saturated);
delta_fasted := (fasted - recommended_fasted) * fasted_factor;
it_previous :=  80.0;
metabolism :=  0.;
it_ksteps := (C_ksteps) * (delta_ksteps);
it_fat_other := factor1  * ( C_fat_other ) * ( (delta_fat_other) );
it_carb_other := factor1  * ( C_carb_other ) * ( (delta_carb_other) );
it_prot := factor1  * ( C_protein ) * ( (delta_prot) );
it_fiber := factor1  * ( C_fiber ) * ( (delta_fiber) );
it_sugar :=  factor1  * ( C_sugar ) * ( (delta_sugar) );
it_saturated := factor1  * ( C_saturated ) * ( (delta_saturated) );
it_fasted := ( C_fasted ) * ( (delta_fasted) );
prediction  := evalf(it_previous * prior_factor
 + metabolism
 + it_ksteps * cal_per_ksteps
 + it_fat_other * cal_per_gram_fat
 + it_carb_other * cal_per_gram_carb
 + it_prot * cal_per_gram_prot
 + it_fiber * cal_per_gram_carb
 + it_sugar * cal_per_gram_carb
 + it_saturated * cal_per_gram_fat
 + it_fasted);
it_previous := 80.0;
actual := 87.0;
previous := 80.0;
err := abs(prediction - actual);
perc_err := abs(err * 100.0) / actual;
delta_glucose := abs(previous - actual);
perc_delta := (delta_glucose * 100.0) / actual;
if (perc_err < min_perc_err) then min_perc_err := perc_err; fi;
if (perc_err > max_perc_err) then max_perc_err := perc_err; fi;
tot_perc_err := tot_perc_err + perc_err;
if (actual < low_actual) then low_actual := actual; fi;
if (actual > high_actual) then high_actual := actual; fi;
if (prediction < low_prediction) then low_prediction := prediction; fi;
if (prediction > high_prediction) then high_prediction := prediction; fi;
count := count + 1.0;
out2 := [count, perc_err, actual,prediction,it_previous,it_previous * prior_factor,metabolism,it_ksteps * cal_per_ksteps,it_fat_other*cal_per_gram_fat,it_carb_other*cal_per_gram_carb,it_prot*cal_per_gram_prot,it_fiber*cal_per_gram_carb,it_sugar*cal_per_gram_carb,it_saturated*cal_per_gram_fat,it_fasted,order2, delta_method, kstep_method, recommended_ksteps, kstep_exponent, kstep_factor, recommended_fat, recommended_carb, recommended_prot, recommended_fiber, recommended_sugar, recommended_saturated ,factor1, factor2, recommended_fasted,prior_factor,fasted_factor,eliminate_extremes,ksteps,fat_other,carb_other,prot,fiber,sugar,saturated,fasted,C_ksteps,C_fat_other,C_carb_other,C_protein,C_fiber,C_sugar,C_saturated,C_fasted,cal_per_gram_carb,cal_per_gram_prot,cal_per_gram_fat,cal_per_ksteps];
writedata("OUT/out103_work.tmp", out2);
ksteps := 14.0;
kstep_factor := 20.;
fat := 73.8;
carb := 245.0;
prot := 58.2;
fiber := 16.2;
sugar := 96.1;
saturated := 24.6;
fasted := 7.5;
fat_other := 49.2;
carb_other := 132.7;
delta_ksteps :=  (recommended_ksteps - ksteps) * kstep_factor;
delta_fat_other := (fat_other - recommended_fat_other);
delta_carb_other := (carb_other - recommended_carb_other);
delta_prot := (prot - recommended_prot);
delta_fiber := (fiber - recommended_fiber);
delta_sugar := (sugar - recommended_sugar);
delta_saturated := (saturated - recommended_saturated);
delta_fasted := (fasted - recommended_fasted) * fasted_factor;
it_previous :=  97.0;
metabolism :=  0.;
it_ksteps := (C_ksteps) * (delta_ksteps);
it_fat_other := factor1  * ( C_fat_other ) * ( (delta_fat_other) );
it_carb_other := factor1  * ( C_carb_other ) * ( (delta_carb_other) );
it_prot := factor1  * ( C_protein ) * ( (delta_prot) );
it_fiber := factor1  * ( C_fiber ) * ( (delta_fiber) );
it_sugar :=  factor1  * ( C_sugar ) * ( (delta_sugar) );
it_saturated := factor1  * ( C_saturated ) * ( (delta_saturated) );
it_fasted := ( C_fasted ) * ( (delta_fasted) );
prediction  := evalf(it_previous * prior_factor
 + metabolism
 + it_ksteps * cal_per_ksteps
 + it_fat_other * cal_per_gram_fat
 + it_carb_other * cal_per_gram_carb
 + it_prot * cal_per_gram_prot
 + it_fiber * cal_per_gram_carb
 + it_sugar * cal_per_gram_carb
 + it_saturated * cal_per_gram_fat
 + it_fasted);
it_previous := 97.0;
actual := 80.0;
previous := 97.0;
err := abs(prediction - actual);
perc_err := abs(err * 100.0) / actual;
delta_glucose := abs(previous - actual);
perc_delta := (delta_glucose * 100.0) / actual;
if (perc_err < min_perc_err) then min_perc_err := perc_err; fi;
if (perc_err > max_perc_err) then max_perc_err := perc_err; fi;
tot_perc_err := tot_perc_err + perc_err;
if (actual < low_actual) then low_actual := actual; fi;
if (actual > high_actual) then high_actual := actual; fi;
if (prediction < low_prediction) then low_prediction := prediction; fi;
if (prediction > high_prediction) then high_prediction := prediction; fi;
count := count + 1.0;
out2 := [count, perc_err, actual,prediction,it_previous,it_previous * prior_factor,metabolism,it_ksteps * cal_per_ksteps,it_fat_other*cal_per_gram_fat,it_carb_other*cal_per_gram_carb,it_prot*cal_per_gram_prot,it_fiber*cal_per_gram_carb,it_sugar*cal_per_gram_carb,it_saturated*cal_per_gram_fat,it_fasted,order2, delta_method, kstep_method, recommended_ksteps, kstep_exponent, kstep_factor, recommended_fat, recommended_carb, recommended_prot, recommended_fiber, recommended_sugar, recommended_saturated ,factor1, factor2, recommended_fasted,prior_factor,fasted_factor,eliminate_extremes,ksteps,fat_other,carb_other,prot,fiber,sugar,saturated,fasted,C_ksteps,C_fat_other,C_carb_other,C_protein,C_fiber,C_sugar,C_saturated,C_fasted,cal_per_gram_carb,cal_per_gram_prot,cal_per_gram_fat,cal_per_ksteps];
writedata("OUT/out104_work.tmp", out2);
ksteps := 14.0;
kstep_factor := 20.;
fat := 144.0;
carb := 432.0;
prot := 66.7;
fiber := 20.7;
sugar := 157.0;
saturated := 40.5;
fasted := 5.0;
fat_other := 103.5;
carb_other := 254.3;
delta_ksteps :=  (recommended_ksteps - ksteps) * kstep_factor;
delta_fat_other := (fat_other - recommended_fat_other);
delta_carb_other := (carb_other - recommended_carb_other);
delta_prot := (prot - recommended_prot);
delta_fiber := (fiber - recommended_fiber);
delta_sugar := (sugar - recommended_sugar);
delta_saturated := (saturated - recommended_saturated);
delta_fasted := (fasted - recommended_fasted) * fasted_factor;
it_previous :=  66.0;
metabolism :=  0.;
it_ksteps := (C_ksteps) * (delta_ksteps);
it_fat_other := factor1  * ( C_fat_other ) * ( (delta_fat_other) );
it_carb_other := factor1  * ( C_carb_other ) * ( (delta_carb_other) );
it_prot := factor1  * ( C_protein ) * ( (delta_prot) );
it_fiber := factor1  * ( C_fiber ) * ( (delta_fiber) );
it_sugar :=  factor1  * ( C_sugar ) * ( (delta_sugar) );
it_saturated := factor1  * ( C_saturated ) * ( (delta_saturated) );
it_fasted := ( C_fasted ) * ( (delta_fasted) );
prediction  := evalf(it_previous * prior_factor
 + metabolism
 + it_ksteps * cal_per_ksteps
 + it_fat_other * cal_per_gram_fat
 + it_carb_other * cal_per_gram_carb
 + it_prot * cal_per_gram_prot
 + it_fiber * cal_per_gram_carb
 + it_sugar * cal_per_gram_carb
 + it_saturated * cal_per_gram_fat
 + it_fasted);
it_previous := 66.0;
actual := 97.0;
previous := 66.0;
err := abs(prediction - actual);
perc_err := abs(err * 100.0) / actual;
delta_glucose := abs(previous - actual);
perc_delta := (delta_glucose * 100.0) / actual;
if (perc_err < min_perc_err) then min_perc_err := perc_err; fi;
if (perc_err > max_perc_err) then max_perc_err := perc_err; fi;
tot_perc_err := tot_perc_err + perc_err;
if (actual < low_actual) then low_actual := actual; fi;
if (actual > high_actual) then high_actual := actual; fi;
if (prediction < low_prediction) then low_prediction := prediction; fi;
if (prediction > high_prediction) then high_prediction := prediction; fi;
count := count + 1.0;
out2 := [count, perc_err, actual,prediction,it_previous,it_previous * prior_factor,metabolism,it_ksteps * cal_per_ksteps,it_fat_other*cal_per_gram_fat,it_carb_other*cal_per_gram_carb,it_prot*cal_per_gram_prot,it_fiber*cal_per_gram_carb,it_sugar*cal_per_gram_carb,it_saturated*cal_per_gram_fat,it_fasted,order2, delta_method, kstep_method, recommended_ksteps, kstep_exponent, kstep_factor, recommended_fat, recommended_carb, recommended_prot, recommended_fiber, recommended_sugar, recommended_saturated ,factor1, factor2, recommended_fasted,prior_factor,fasted_factor,eliminate_extremes,ksteps,fat_other,carb_other,prot,fiber,sugar,saturated,fasted,C_ksteps,C_fat_other,C_carb_other,C_protein,C_fiber,C_sugar,C_saturated,C_fasted,cal_per_gram_carb,cal_per_gram_prot,cal_per_gram_fat,cal_per_ksteps];
writedata("OUT/out105_work.tmp", out2);
ksteps := 13.0;
kstep_factor := 20.;
fat := 106.0;
carb := 303.0;
prot := 68.0;
fiber := 11.7;
sugar := 150.0;
saturated := 36.1;
fasted := 5.5;
fat_other := 69.9;
carb_other := 141.3;
delta_ksteps :=  (recommended_ksteps - ksteps) * kstep_factor;
delta_fat_other := (fat_other - recommended_fat_other);
delta_carb_other := (carb_other - recommended_carb_other);
delta_prot := (prot - recommended_prot);
delta_fiber := (fiber - recommended_fiber);
delta_sugar := (sugar - recommended_sugar);
delta_saturated := (saturated - recommended_saturated);
delta_fasted := (fasted - recommended_fasted) * fasted_factor;
it_previous :=  84.0;
metabolism :=  0.;
it_ksteps := (C_ksteps) * (delta_ksteps);
it_fat_other := factor1  * ( C_fat_other ) * ( (delta_fat_other) );
it_carb_other := factor1  * ( C_carb_other ) * ( (delta_carb_other) );
it_prot := factor1  * ( C_protein ) * ( (delta_prot) );
it_fiber := factor1  * ( C_fiber ) * ( (delta_fiber) );
it_sugar :=  factor1  * ( C_sugar ) * ( (delta_sugar) );
it_saturated := factor1  * ( C_saturated ) * ( (delta_saturated) );
it_fasted := ( C_fasted ) * ( (delta_fasted) );
prediction  := evalf(it_previous * prior_factor
 + metabolism
 + it_ksteps * cal_per_ksteps
 + it_fat_other * cal_per_gram_fat
 + it_carb_other * cal_per_gram_carb
 + it_prot * cal_per_gram_prot
 + it_fiber * cal_per_gram_carb
 + it_sugar * cal_per_gram_carb
 + it_saturated * cal_per_gram_fat
 + it_fasted);
it_previous := 84.0;
actual := 66.0;
previous := 84.0;
err := abs(prediction - actual);
perc_err := abs(err * 100.0) / actual;
delta_glucose := abs(previous - actual);
perc_delta := (delta_glucose * 100.0) / actual;
if (perc_err < min_perc_err) then min_perc_err := perc_err; fi;
if (perc_err > max_perc_err) then max_perc_err := perc_err; fi;
tot_perc_err := tot_perc_err + perc_err;
if (actual < low_actual) then low_actual := actual; fi;
if (actual > high_actual) then high_actual := actual; fi;
if (prediction < low_prediction) then low_prediction := prediction; fi;
if (prediction > high_prediction) then high_prediction := prediction; fi;
count := count + 1.0;
out2 := [count, perc_err, actual,prediction,it_previous,it_previous * prior_factor,metabolism,it_ksteps * cal_per_ksteps,it_fat_other*cal_per_gram_fat,it_carb_other*cal_per_gram_carb,it_prot*cal_per_gram_prot,it_fiber*cal_per_gram_carb,it_sugar*cal_per_gram_carb,it_saturated*cal_per_gram_fat,it_fasted,order2, delta_method, kstep_method, recommended_ksteps, kstep_exponent, kstep_factor, recommended_fat, recommended_carb, recommended_prot, recommended_fiber, recommended_sugar, recommended_saturated ,factor1, factor2, recommended_fasted,prior_factor,fasted_factor,eliminate_extremes,ksteps,fat_other,carb_other,prot,fiber,sugar,saturated,fasted,C_ksteps,C_fat_other,C_carb_other,C_protein,C_fiber,C_sugar,C_saturated,C_fasted,cal_per_gram_carb,cal_per_gram_prot,cal_per_gram_fat,cal_per_ksteps];
writedata("OUT/out106_work.tmp", out2);
ksteps := 20.0;
kstep_factor := 20.;
fat := 77.5;
carb := 203.0;
prot := 56.3;
fiber := 10.4;
sugar := 110.0;
saturated := 25.8;
fasted := 6.5;
fat_other := 51.7;
carb_other := 82.6;
delta_ksteps :=  (recommended_ksteps - ksteps) * kstep_factor;
delta_fat_other := (fat_other - recommended_fat_other);
delta_carb_other := (carb_other - recommended_carb_other);
delta_prot := (prot - recommended_prot);
delta_fiber := (fiber - recommended_fiber);
delta_sugar := (sugar - recommended_sugar);
delta_saturated := (saturated - recommended_saturated);
delta_fasted := (fasted - recommended_fasted) * fasted_factor;
it_previous :=  78.0;
metabolism :=  0.;
it_ksteps := (C_ksteps) * (delta_ksteps);
it_fat_other := factor1  * ( C_fat_other ) * ( (delta_fat_other) );
it_carb_other := factor1  * ( C_carb_other ) * ( (delta_carb_other) );
it_prot := factor1  * ( C_protein ) * ( (delta_prot) );
it_fiber := factor1  * ( C_fiber ) * ( (delta_fiber) );
it_sugar :=  factor1  * ( C_sugar ) * ( (delta_sugar) );
it_saturated := factor1  * ( C_saturated ) * ( (delta_saturated) );
it_fasted := ( C_fasted ) * ( (delta_fasted) );
prediction  := evalf(it_previous * prior_factor
 + metabolism
 + it_ksteps * cal_per_ksteps
 + it_fat_other * cal_per_gram_fat
 + it_carb_other * cal_per_gram_carb
 + it_prot * cal_per_gram_prot
 + it_fiber * cal_per_gram_carb
 + it_sugar * cal_per_gram_carb
 + it_saturated * cal_per_gram_fat
 + it_fasted);
it_previous := 78.0;
actual := 84.0;
previous := 78.0;
err := abs(prediction - actual);
perc_err := abs(err * 100.0) / actual;
delta_glucose := abs(previous - actual);
perc_delta := (delta_glucose * 100.0) / actual;
if (perc_err < min_perc_err) then min_perc_err := perc_err; fi;
if (perc_err > max_perc_err) then max_perc_err := perc_err; fi;
tot_perc_err := tot_perc_err + perc_err;
if (actual < low_actual) then low_actual := actual; fi;
if (actual > high_actual) then high_actual := actual; fi;
if (prediction < low_prediction) then low_prediction := prediction; fi;
if (prediction > high_prediction) then high_prediction := prediction; fi;
count := count + 1.0;
out2 := [count, perc_err, actual,prediction,it_previous,it_previous * prior_factor,metabolism,it_ksteps * cal_per_ksteps,it_fat_other*cal_per_gram_fat,it_carb_other*cal_per_gram_carb,it_prot*cal_per_gram_prot,it_fiber*cal_per_gram_carb,it_sugar*cal_per_gram_carb,it_saturated*cal_per_gram_fat,it_fasted,order2, delta_method, kstep_method, recommended_ksteps, kstep_exponent, kstep_factor, recommended_fat, recommended_carb, recommended_prot, recommended_fiber, recommended_sugar, recommended_saturated ,factor1, factor2, recommended_fasted,prior_factor,fasted_factor,eliminate_extremes,ksteps,fat_other,carb_other,prot,fiber,sugar,saturated,fasted,C_ksteps,C_fat_other,C_carb_other,C_protein,C_fiber,C_sugar,C_saturated,C_fasted,cal_per_gram_carb,cal_per_gram_prot,cal_per_gram_fat,cal_per_ksteps];
writedata("OUT/out107_work.tmp", out2);
ksteps := 8.0;
kstep_factor := 20.;
fat := 137.0;
carb := 269.0;
prot := 59.1;
fiber := 11.1;
sugar := 149.0;
saturated := 41.9;
fasted := 6.5;
fat_other := 95.1;
carb_other := 108.9;
delta_ksteps :=  (recommended_ksteps - ksteps) * kstep_factor;
delta_fat_other := (fat_other - recommended_fat_other);
delta_carb_other := (carb_other - recommended_carb_other);
delta_prot := (prot - recommended_prot);
delta_fiber := (fiber - recommended_fiber);
delta_sugar := (sugar - recommended_sugar);
delta_saturated := (saturated - recommended_saturated);
delta_fasted := (fasted - recommended_fasted) * fasted_factor;
it_previous :=  78.0;
metabolism :=  0.;
it_ksteps := (C_ksteps) * (delta_ksteps);
it_fat_other := factor1  * ( C_fat_other ) * ( (delta_fat_other) );
it_carb_other := factor1  * ( C_carb_other ) * ( (delta_carb_other) );
it_prot := factor1  * ( C_protein ) * ( (delta_prot) );
it_fiber := factor1  * ( C_fiber ) * ( (delta_fiber) );
it_sugar :=  factor1  * ( C_sugar ) * ( (delta_sugar) );
it_saturated := factor1  * ( C_saturated ) * ( (delta_saturated) );
it_fasted := ( C_fasted ) * ( (delta_fasted) );
prediction  := evalf(it_previous * prior_factor
 + metabolism
 + it_ksteps * cal_per_ksteps
 + it_fat_other * cal_per_gram_fat
 + it_carb_other * cal_per_gram_carb
 + it_prot * cal_per_gram_prot
 + it_fiber * cal_per_gram_carb
 + it_sugar * cal_per_gram_carb
 + it_saturated * cal_per_gram_fat
 + it_fasted);
it_previous := 78.0;
actual := 78.0;
previous := 78.0;
err := abs(prediction - actual);
perc_err := abs(err * 100.0) / actual;
delta_glucose := abs(previous - actual);
perc_delta := (delta_glucose * 100.0) / actual;
if (perc_err < min_perc_err) then min_perc_err := perc_err; fi;
if (perc_err > max_perc_err) then max_perc_err := perc_err; fi;
tot_perc_err := tot_perc_err + perc_err;
if (actual < low_actual) then low_actual := actual; fi;
if (actual > high_actual) then high_actual := actual; fi;
if (prediction < low_prediction) then low_prediction := prediction; fi;
if (prediction > high_prediction) then high_prediction := prediction; fi;
count := count + 1.0;
out2 := [count, perc_err, actual,prediction,it_previous,it_previous * prior_factor,metabolism,it_ksteps * cal_per_ksteps,it_fat_other*cal_per_gram_fat,it_carb_other*cal_per_gram_carb,it_prot*cal_per_gram_prot,it_fiber*cal_per_gram_carb,it_sugar*cal_per_gram_carb,it_saturated*cal_per_gram_fat,it_fasted,order2, delta_method, kstep_method, recommended_ksteps, kstep_exponent, kstep_factor, recommended_fat, recommended_carb, recommended_prot, recommended_fiber, recommended_sugar, recommended_saturated ,factor1, factor2, recommended_fasted,prior_factor,fasted_factor,eliminate_extremes,ksteps,fat_other,carb_other,prot,fiber,sugar,saturated,fasted,C_ksteps,C_fat_other,C_carb_other,C_protein,C_fiber,C_sugar,C_saturated,C_fasted,cal_per_gram_carb,cal_per_gram_prot,cal_per_gram_fat,cal_per_ksteps];
writedata("OUT/out108_work.tmp", out2);
ksteps := 14.0;
kstep_factor := 20.;
fat := 103.0;
carb := 311.0;
prot := 54.5;
fiber := 9.58;
sugar := 132.0;
saturated := 30.1;
fasted := 4.5;
fat_other := 72.9;
carb_other := 169.42;
delta_ksteps :=  (recommended_ksteps - ksteps) * kstep_factor;
delta_fat_other := (fat_other - recommended_fat_other);
delta_carb_other := (carb_other - recommended_carb_other);
delta_prot := (prot - recommended_prot);
delta_fiber := (fiber - recommended_fiber);
delta_sugar := (sugar - recommended_sugar);
delta_saturated := (saturated - recommended_saturated);
delta_fasted := (fasted - recommended_fasted) * fasted_factor;
it_previous :=  74.0;
metabolism :=  0.;
it_ksteps := (C_ksteps) * (delta_ksteps);
it_fat_other := factor1  * ( C_fat_other ) * ( (delta_fat_other) );
it_carb_other := factor1  * ( C_carb_other ) * ( (delta_carb_other) );
it_prot := factor1  * ( C_protein ) * ( (delta_prot) );
it_fiber := factor1  * ( C_fiber ) * ( (delta_fiber) );
it_sugar :=  factor1  * ( C_sugar ) * ( (delta_sugar) );
it_saturated := factor1  * ( C_saturated ) * ( (delta_saturated) );
it_fasted := ( C_fasted ) * ( (delta_fasted) );
prediction  := evalf(it_previous * prior_factor
 + metabolism
 + it_ksteps * cal_per_ksteps
 + it_fat_other * cal_per_gram_fat
 + it_carb_other * cal_per_gram_carb
 + it_prot * cal_per_gram_prot
 + it_fiber * cal_per_gram_carb
 + it_sugar * cal_per_gram_carb
 + it_saturated * cal_per_gram_fat
 + it_fasted);
it_previous := 74.0;
actual := 78.0;
previous := 74.0;
err := abs(prediction - actual);
perc_err := abs(err * 100.0) / actual;
delta_glucose := abs(previous - actual);
perc_delta := (delta_glucose * 100.0) / actual;
if (perc_err < min_perc_err) then min_perc_err := perc_err; fi;
if (perc_err > max_perc_err) then max_perc_err := perc_err; fi;
tot_perc_err := tot_perc_err + perc_err;
if (actual < low_actual) then low_actual := actual; fi;
if (actual > high_actual) then high_actual := actual; fi;
if (prediction < low_prediction) then low_prediction := prediction; fi;
if (prediction > high_prediction) then high_prediction := prediction; fi;
count := count + 1.0;
out2 := [count, perc_err, actual,prediction,it_previous,it_previous * prior_factor,metabolism,it_ksteps * cal_per_ksteps,it_fat_other*cal_per_gram_fat,it_carb_other*cal_per_gram_carb,it_prot*cal_per_gram_prot,it_fiber*cal_per_gram_carb,it_sugar*cal_per_gram_carb,it_saturated*cal_per_gram_fat,it_fasted,order2, delta_method, kstep_method, recommended_ksteps, kstep_exponent, kstep_factor, recommended_fat, recommended_carb, recommended_prot, recommended_fiber, recommended_sugar, recommended_saturated ,factor1, factor2, recommended_fasted,prior_factor,fasted_factor,eliminate_extremes,ksteps,fat_other,carb_other,prot,fiber,sugar,saturated,fasted,C_ksteps,C_fat_other,C_carb_other,C_protein,C_fiber,C_sugar,C_saturated,C_fasted,cal_per_gram_carb,cal_per_gram_prot,cal_per_gram_fat,cal_per_ksteps];
writedata("OUT/out109_work.tmp", out2);
ksteps := 20.0;
kstep_factor := 20.;
fat := 80.5;
carb := 133.0;
prot := 31.0;
fiber := 11.0;
sugar := 60.3;
saturated := 15.4;
fasted := 6.5;
fat_other := 65.1;
carb_other := 61.7;
delta_ksteps :=  (recommended_ksteps - ksteps) * kstep_factor;
delta_fat_other := (fat_other - recommended_fat_other);
delta_carb_other := (carb_other - recommended_carb_other);
delta_prot := (prot - recommended_prot);
delta_fiber := (fiber - recommended_fiber);
delta_sugar := (sugar - recommended_sugar);
delta_saturated := (saturated - recommended_saturated);
delta_fasted := (fasted - recommended_fasted) * fasted_factor;
it_previous :=  98.0;
metabolism :=  0.;
it_ksteps := (C_ksteps) * (delta_ksteps);
it_fat_other := factor1  * ( C_fat_other ) * ( (delta_fat_other) );
it_carb_other := factor1  * ( C_carb_other ) * ( (delta_carb_other) );
it_prot := factor1  * ( C_protein ) * ( (delta_prot) );
it_fiber := factor1  * ( C_fiber ) * ( (delta_fiber) );
it_sugar :=  factor1  * ( C_sugar ) * ( (delta_sugar) );
it_saturated := factor1  * ( C_saturated ) * ( (delta_saturated) );
it_fasted := ( C_fasted ) * ( (delta_fasted) );
prediction  := evalf(it_previous * prior_factor
 + metabolism
 + it_ksteps * cal_per_ksteps
 + it_fat_other * cal_per_gram_fat
 + it_carb_other * cal_per_gram_carb
 + it_prot * cal_per_gram_prot
 + it_fiber * cal_per_gram_carb
 + it_sugar * cal_per_gram_carb
 + it_saturated * cal_per_gram_fat
 + it_fasted);
it_previous := 98.0;
actual := 74.0;
previous := 98.0;
err := abs(prediction - actual);
perc_err := abs(err * 100.0) / actual;
delta_glucose := abs(previous - actual);
perc_delta := (delta_glucose * 100.0) / actual;
if (perc_err < min_perc_err) then min_perc_err := perc_err; fi;
if (perc_err > max_perc_err) then max_perc_err := perc_err; fi;
tot_perc_err := tot_perc_err + perc_err;
if (actual < low_actual) then low_actual := actual; fi;
if (actual > high_actual) then high_actual := actual; fi;
if (prediction < low_prediction) then low_prediction := prediction; fi;
if (prediction > high_prediction) then high_prediction := prediction; fi;
count := count + 1.0;
out2 := [count, perc_err, actual,prediction,it_previous,it_previous * prior_factor,metabolism,it_ksteps * cal_per_ksteps,it_fat_other*cal_per_gram_fat,it_carb_other*cal_per_gram_carb,it_prot*cal_per_gram_prot,it_fiber*cal_per_gram_carb,it_sugar*cal_per_gram_carb,it_saturated*cal_per_gram_fat,it_fasted,order2, delta_method, kstep_method, recommended_ksteps, kstep_exponent, kstep_factor, recommended_fat, recommended_carb, recommended_prot, recommended_fiber, recommended_sugar, recommended_saturated ,factor1, factor2, recommended_fasted,prior_factor,fasted_factor,eliminate_extremes,ksteps,fat_other,carb_other,prot,fiber,sugar,saturated,fasted,C_ksteps,C_fat_other,C_carb_other,C_protein,C_fiber,C_sugar,C_saturated,C_fasted,cal_per_gram_carb,cal_per_gram_prot,cal_per_gram_fat,cal_per_ksteps];
writedata("OUT/out110_work.tmp", out2);
ksteps := 10.0;
kstep_factor := 20.;
fat := 96.3;
carb := 241.0;
prot := 20.1;
fiber := 6.94;
sugar := 134.0;
saturated := 29.5;
fasted := 7.0;
fat_other := 66.8;
carb_other := 100.06;
delta_ksteps :=  (recommended_ksteps - ksteps) * kstep_factor;
delta_fat_other := (fat_other - recommended_fat_other);
delta_carb_other := (carb_other - recommended_carb_other);
delta_prot := (prot - recommended_prot);
delta_fiber := (fiber - recommended_fiber);
delta_sugar := (sugar - recommended_sugar);
delta_saturated := (saturated - recommended_saturated);
delta_fasted := (fasted - recommended_fasted) * fasted_factor;
it_previous :=  89.0;
metabolism :=  0.;
it_ksteps := (C_ksteps) * (delta_ksteps);
it_fat_other := factor1  * ( C_fat_other ) * ( (delta_fat_other) );
it_carb_other := factor1  * ( C_carb_other ) * ( (delta_carb_other) );
it_prot := factor1  * ( C_protein ) * ( (delta_prot) );
it_fiber := factor1  * ( C_fiber ) * ( (delta_fiber) );
it_sugar :=  factor1  * ( C_sugar ) * ( (delta_sugar) );
it_saturated := factor1  * ( C_saturated ) * ( (delta_saturated) );
it_fasted := ( C_fasted ) * ( (delta_fasted) );
prediction  := evalf(it_previous * prior_factor
 + metabolism
 + it_ksteps * cal_per_ksteps
 + it_fat_other * cal_per_gram_fat
 + it_carb_other * cal_per_gram_carb
 + it_prot * cal_per_gram_prot
 + it_fiber * cal_per_gram_carb
 + it_sugar * cal_per_gram_carb
 + it_saturated * cal_per_gram_fat
 + it_fasted);
it_previous := 89.0;
actual := 98.0;
previous := 89.0;
err := abs(prediction - actual);
perc_err := abs(err * 100.0) / actual;
delta_glucose := abs(previous - actual);
perc_delta := (delta_glucose * 100.0) / actual;
if (perc_err < min_perc_err) then min_perc_err := perc_err; fi;
if (perc_err > max_perc_err) then max_perc_err := perc_err; fi;
tot_perc_err := tot_perc_err + perc_err;
if (actual < low_actual) then low_actual := actual; fi;
if (actual > high_actual) then high_actual := actual; fi;
if (prediction < low_prediction) then low_prediction := prediction; fi;
if (prediction > high_prediction) then high_prediction := prediction; fi;
count := count + 1.0;
out2 := [count, perc_err, actual,prediction,it_previous,it_previous * prior_factor,metabolism,it_ksteps * cal_per_ksteps,it_fat_other*cal_per_gram_fat,it_carb_other*cal_per_gram_carb,it_prot*cal_per_gram_prot,it_fiber*cal_per_gram_carb,it_sugar*cal_per_gram_carb,it_saturated*cal_per_gram_fat,it_fasted,order2, delta_method, kstep_method, recommended_ksteps, kstep_exponent, kstep_factor, recommended_fat, recommended_carb, recommended_prot, recommended_fiber, recommended_sugar, recommended_saturated ,factor1, factor2, recommended_fasted,prior_factor,fasted_factor,eliminate_extremes,ksteps,fat_other,carb_other,prot,fiber,sugar,saturated,fasted,C_ksteps,C_fat_other,C_carb_other,C_protein,C_fiber,C_sugar,C_saturated,C_fasted,cal_per_gram_carb,cal_per_gram_prot,cal_per_gram_fat,cal_per_ksteps];
writedata("OUT/out111_work.tmp", out2);
ksteps := 14.0;
kstep_factor := 20.;
fat := 110.0;
carb := 274.0;
prot := 75.5;
fiber := 30.8;
sugar := 96.2;
saturated := 24.1;
fasted := 6.5;
fat_other := 85.9;
carb_other := 147.;
delta_ksteps :=  (recommended_ksteps - ksteps) * kstep_factor;
delta_fat_other := (fat_other - recommended_fat_other);
delta_carb_other := (carb_other - recommended_carb_other);
delta_prot := (prot - recommended_prot);
delta_fiber := (fiber - recommended_fiber);
delta_sugar := (sugar - recommended_sugar);
delta_saturated := (saturated - recommended_saturated);
delta_fasted := (fasted - recommended_fasted) * fasted_factor;
it_previous :=  77.0;
metabolism :=  0.;
it_ksteps := (C_ksteps) * (delta_ksteps);
it_fat_other := factor1  * ( C_fat_other ) * ( (delta_fat_other) );
it_carb_other := factor1  * ( C_carb_other ) * ( (delta_carb_other) );
it_prot := factor1  * ( C_protein ) * ( (delta_prot) );
it_fiber := factor1  * ( C_fiber ) * ( (delta_fiber) );
it_sugar :=  factor1  * ( C_sugar ) * ( (delta_sugar) );
it_saturated := factor1  * ( C_saturated ) * ( (delta_saturated) );
it_fasted := ( C_fasted ) * ( (delta_fasted) );
prediction  := evalf(it_previous * prior_factor
 + metabolism
 + it_ksteps * cal_per_ksteps
 + it_fat_other * cal_per_gram_fat
 + it_carb_other * cal_per_gram_carb
 + it_prot * cal_per_gram_prot
 + it_fiber * cal_per_gram_carb
 + it_sugar * cal_per_gram_carb
 + it_saturated * cal_per_gram_fat
 + it_fasted);
it_previous := 77.0;
actual := 89.0;
previous := 77.0;
err := abs(prediction - actual);
perc_err := abs(err * 100.0) / actual;
delta_glucose := abs(previous - actual);
perc_delta := (delta_glucose * 100.0) / actual;
if (perc_err < min_perc_err) then min_perc_err := perc_err; fi;
if (perc_err > max_perc_err) then max_perc_err := perc_err; fi;
tot_perc_err := tot_perc_err + perc_err;
if (actual < low_actual) then low_actual := actual; fi;
if (actual > high_actual) then high_actual := actual; fi;
if (prediction < low_prediction) then low_prediction := prediction; fi;
if (prediction > high_prediction) then high_prediction := prediction; fi;
count := count + 1.0;
out2 := [count, perc_err, actual,prediction,it_previous,it_previous * prior_factor,metabolism,it_ksteps * cal_per_ksteps,it_fat_other*cal_per_gram_fat,it_carb_other*cal_per_gram_carb,it_prot*cal_per_gram_prot,it_fiber*cal_per_gram_carb,it_sugar*cal_per_gram_carb,it_saturated*cal_per_gram_fat,it_fasted,order2, delta_method, kstep_method, recommended_ksteps, kstep_exponent, kstep_factor, recommended_fat, recommended_carb, recommended_prot, recommended_fiber, recommended_sugar, recommended_saturated ,factor1, factor2, recommended_fasted,prior_factor,fasted_factor,eliminate_extremes,ksteps,fat_other,carb_other,prot,fiber,sugar,saturated,fasted,C_ksteps,C_fat_other,C_carb_other,C_protein,C_fiber,C_sugar,C_saturated,C_fasted,cal_per_gram_carb,cal_per_gram_prot,cal_per_gram_fat,cal_per_ksteps];
writedata("OUT/out112_work.tmp", out2);
ksteps := 10.0;
kstep_factor := 20.;
fat := 90.4;
carb := 320.0;
prot := 50.9;
fiber := 8.04;
sugar := 121.0;
saturated := 21.8;
fasted := 6.5;
fat_other := 68.6;
carb_other := 190.96;
delta_ksteps :=  (recommended_ksteps - ksteps) * kstep_factor;
delta_fat_other := (fat_other - recommended_fat_other);
delta_carb_other := (carb_other - recommended_carb_other);
delta_prot := (prot - recommended_prot);
delta_fiber := (fiber - recommended_fiber);
delta_sugar := (sugar - recommended_sugar);
delta_saturated := (saturated - recommended_saturated);
delta_fasted := (fasted - recommended_fasted) * fasted_factor;
it_previous :=  77.0;
metabolism :=  0.;
it_ksteps := (C_ksteps) * (delta_ksteps);
it_fat_other := factor1  * ( C_fat_other ) * ( (delta_fat_other) );
it_carb_other := factor1  * ( C_carb_other ) * ( (delta_carb_other) );
it_prot := factor1  * ( C_protein ) * ( (delta_prot) );
it_fiber := factor1  * ( C_fiber ) * ( (delta_fiber) );
it_sugar :=  factor1  * ( C_sugar ) * ( (delta_sugar) );
it_saturated := factor1  * ( C_saturated ) * ( (delta_saturated) );
it_fasted := ( C_fasted ) * ( (delta_fasted) );
prediction  := evalf(it_previous * prior_factor
 + metabolism
 + it_ksteps * cal_per_ksteps
 + it_fat_other * cal_per_gram_fat
 + it_carb_other * cal_per_gram_carb
 + it_prot * cal_per_gram_prot
 + it_fiber * cal_per_gram_carb
 + it_sugar * cal_per_gram_carb
 + it_saturated * cal_per_gram_fat
 + it_fasted);
it_previous := 77.0;
actual := 77.0;
previous := 77.0;
err := abs(prediction - actual);
perc_err := abs(err * 100.0) / actual;
delta_glucose := abs(previous - actual);
perc_delta := (delta_glucose * 100.0) / actual;
if (perc_err < min_perc_err) then min_perc_err := perc_err; fi;
if (perc_err > max_perc_err) then max_perc_err := perc_err; fi;
tot_perc_err := tot_perc_err + perc_err;
if (actual < low_actual) then low_actual := actual; fi;
if (actual > high_actual) then high_actual := actual; fi;
if (prediction < low_prediction) then low_prediction := prediction; fi;
if (prediction > high_prediction) then high_prediction := prediction; fi;
count := count + 1.0;
out2 := [count, perc_err, actual,prediction,it_previous,it_previous * prior_factor,metabolism,it_ksteps * cal_per_ksteps,it_fat_other*cal_per_gram_fat,it_carb_other*cal_per_gram_carb,it_prot*cal_per_gram_prot,it_fiber*cal_per_gram_carb,it_sugar*cal_per_gram_carb,it_saturated*cal_per_gram_fat,it_fasted,order2, delta_method, kstep_method, recommended_ksteps, kstep_exponent, kstep_factor, recommended_fat, recommended_carb, recommended_prot, recommended_fiber, recommended_sugar, recommended_saturated ,factor1, factor2, recommended_fasted,prior_factor,fasted_factor,eliminate_extremes,ksteps,fat_other,carb_other,prot,fiber,sugar,saturated,fasted,C_ksteps,C_fat_other,C_carb_other,C_protein,C_fiber,C_sugar,C_saturated,C_fasted,cal_per_gram_carb,cal_per_gram_prot,cal_per_gram_fat,cal_per_ksteps];
writedata("OUT/out113_work.tmp", out2);
ksteps := 18.0;
kstep_factor := 20.;
fat := 155.0;
carb := 352.0;
prot := 79.0;
fiber := 13.8;
sugar := 138.0;
saturated := 51.5;
fasted := 6.0;
fat_other := 103.5;
carb_other := 200.2;
delta_ksteps :=  (recommended_ksteps - ksteps) * kstep_factor;
delta_fat_other := (fat_other - recommended_fat_other);
delta_carb_other := (carb_other - recommended_carb_other);
delta_prot := (prot - recommended_prot);
delta_fiber := (fiber - recommended_fiber);
delta_sugar := (sugar - recommended_sugar);
delta_saturated := (saturated - recommended_saturated);
delta_fasted := (fasted - recommended_fasted) * fasted_factor;
it_previous :=  84.0;
metabolism :=  0.;
it_ksteps := (C_ksteps) * (delta_ksteps);
it_fat_other := factor1  * ( C_fat_other ) * ( (delta_fat_other) );
it_carb_other := factor1  * ( C_carb_other ) * ( (delta_carb_other) );
it_prot := factor1  * ( C_protein ) * ( (delta_prot) );
it_fiber := factor1  * ( C_fiber ) * ( (delta_fiber) );
it_sugar :=  factor1  * ( C_sugar ) * ( (delta_sugar) );
it_saturated := factor1  * ( C_saturated ) * ( (delta_saturated) );
it_fasted := ( C_fasted ) * ( (delta_fasted) );
prediction  := evalf(it_previous * prior_factor
 + metabolism
 + it_ksteps * cal_per_ksteps
 + it_fat_other * cal_per_gram_fat
 + it_carb_other * cal_per_gram_carb
 + it_prot * cal_per_gram_prot
 + it_fiber * cal_per_gram_carb
 + it_sugar * cal_per_gram_carb
 + it_saturated * cal_per_gram_fat
 + it_fasted);
it_previous := 84.0;
actual := 77.0;
previous := 84.0;
err := abs(prediction - actual);
perc_err := abs(err * 100.0) / actual;
delta_glucose := abs(previous - actual);
perc_delta := (delta_glucose * 100.0) / actual;
if (perc_err < min_perc_err) then min_perc_err := perc_err; fi;
if (perc_err > max_perc_err) then max_perc_err := perc_err; fi;
tot_perc_err := tot_perc_err + perc_err;
if (actual < low_actual) then low_actual := actual; fi;
if (actual > high_actual) then high_actual := actual; fi;
if (prediction < low_prediction) then low_prediction := prediction; fi;
if (prediction > high_prediction) then high_prediction := prediction; fi;
count := count + 1.0;
out2 := [count, perc_err, actual,prediction,it_previous,it_previous * prior_factor,metabolism,it_ksteps * cal_per_ksteps,it_fat_other*cal_per_gram_fat,it_carb_other*cal_per_gram_carb,it_prot*cal_per_gram_prot,it_fiber*cal_per_gram_carb,it_sugar*cal_per_gram_carb,it_saturated*cal_per_gram_fat,it_fasted,order2, delta_method, kstep_method, recommended_ksteps, kstep_exponent, kstep_factor, recommended_fat, recommended_carb, recommended_prot, recommended_fiber, recommended_sugar, recommended_saturated ,factor1, factor2, recommended_fasted,prior_factor,fasted_factor,eliminate_extremes,ksteps,fat_other,carb_other,prot,fiber,sugar,saturated,fasted,C_ksteps,C_fat_other,C_carb_other,C_protein,C_fiber,C_sugar,C_saturated,C_fasted,cal_per_gram_carb,cal_per_gram_prot,cal_per_gram_fat,cal_per_ksteps];
writedata("OUT/out114_work.tmp", out2);
ksteps := 20.0;
kstep_factor := 20.;
fat := 90.0;
carb := 317.0;
prot := 49.4;
fiber := 15.1;
sugar := 139.0;
saturated := 60.0;
fasted := 6.0;
fat_other := 30.;
carb_other := 162.9;
delta_ksteps :=  (recommended_ksteps - ksteps) * kstep_factor;
delta_fat_other := (fat_other - recommended_fat_other);
delta_carb_other := (carb_other - recommended_carb_other);
delta_prot := (prot - recommended_prot);
delta_fiber := (fiber - recommended_fiber);
delta_sugar := (sugar - recommended_sugar);
delta_saturated := (saturated - recommended_saturated);
delta_fasted := (fasted - recommended_fasted) * fasted_factor;
it_previous :=  78.0;
metabolism :=  0.;
it_ksteps := (C_ksteps) * (delta_ksteps);
it_fat_other := factor1  * ( C_fat_other ) * ( (delta_fat_other) );
it_carb_other := factor1  * ( C_carb_other ) * ( (delta_carb_other) );
it_prot := factor1  * ( C_protein ) * ( (delta_prot) );
it_fiber := factor1  * ( C_fiber ) * ( (delta_fiber) );
it_sugar :=  factor1  * ( C_sugar ) * ( (delta_sugar) );
it_saturated := factor1  * ( C_saturated ) * ( (delta_saturated) );
it_fasted := ( C_fasted ) * ( (delta_fasted) );
prediction  := evalf(it_previous * prior_factor
 + metabolism
 + it_ksteps * cal_per_ksteps
 + it_fat_other * cal_per_gram_fat
 + it_carb_other * cal_per_gram_carb
 + it_prot * cal_per_gram_prot
 + it_fiber * cal_per_gram_carb
 + it_sugar * cal_per_gram_carb
 + it_saturated * cal_per_gram_fat
 + it_fasted);
it_previous := 78.0;
actual := 84.0;
previous := 78.0;
err := abs(prediction - actual);
perc_err := abs(err * 100.0) / actual;
delta_glucose := abs(previous - actual);
perc_delta := (delta_glucose * 100.0) / actual;
if (perc_err < min_perc_err) then min_perc_err := perc_err; fi;
if (perc_err > max_perc_err) then max_perc_err := perc_err; fi;
tot_perc_err := tot_perc_err + perc_err;
if (actual < low_actual) then low_actual := actual; fi;
if (actual > high_actual) then high_actual := actual; fi;
if (prediction < low_prediction) then low_prediction := prediction; fi;
if (prediction > high_prediction) then high_prediction := prediction; fi;
count := count + 1.0;
out2 := [count, perc_err, actual,prediction,it_previous,it_previous * prior_factor,metabolism,it_ksteps * cal_per_ksteps,it_fat_other*cal_per_gram_fat,it_carb_other*cal_per_gram_carb,it_prot*cal_per_gram_prot,it_fiber*cal_per_gram_carb,it_sugar*cal_per_gram_carb,it_saturated*cal_per_gram_fat,it_fasted,order2, delta_method, kstep_method, recommended_ksteps, kstep_exponent, kstep_factor, recommended_fat, recommended_carb, recommended_prot, recommended_fiber, recommended_sugar, recommended_saturated ,factor1, factor2, recommended_fasted,prior_factor,fasted_factor,eliminate_extremes,ksteps,fat_other,carb_other,prot,fiber,sugar,saturated,fasted,C_ksteps,C_fat_other,C_carb_other,C_protein,C_fiber,C_sugar,C_saturated,C_fasted,cal_per_gram_carb,cal_per_gram_prot,cal_per_gram_fat,cal_per_ksteps];
writedata("OUT/out115_work.tmp", out2);
ksteps := 14.0;
kstep_factor := 20.;
fat := 130.0;
carb := 335.0;
prot := 77.0;
fiber := 21.6;
sugar := 118.0;
saturated := 35.8;
fasted := 5.5;
fat_other := 94.2;
carb_other := 195.4;
delta_ksteps :=  (recommended_ksteps - ksteps) * kstep_factor;
delta_fat_other := (fat_other - recommended_fat_other);
delta_carb_other := (carb_other - recommended_carb_other);
delta_prot := (prot - recommended_prot);
delta_fiber := (fiber - recommended_fiber);
delta_sugar := (sugar - recommended_sugar);
delta_saturated := (saturated - recommended_saturated);
delta_fasted := (fasted - recommended_fasted) * fasted_factor;
it_previous :=  64.0;
metabolism :=  0.;
it_ksteps := (C_ksteps) * (delta_ksteps);
it_fat_other := factor1  * ( C_fat_other ) * ( (delta_fat_other) );
it_carb_other := factor1  * ( C_carb_other ) * ( (delta_carb_other) );
it_prot := factor1  * ( C_protein ) * ( (delta_prot) );
it_fiber := factor1  * ( C_fiber ) * ( (delta_fiber) );
it_sugar :=  factor1  * ( C_sugar ) * ( (delta_sugar) );
it_saturated := factor1  * ( C_saturated ) * ( (delta_saturated) );
it_fasted := ( C_fasted ) * ( (delta_fasted) );
prediction  := evalf(it_previous * prior_factor
 + metabolism
 + it_ksteps * cal_per_ksteps
 + it_fat_other * cal_per_gram_fat
 + it_carb_other * cal_per_gram_carb
 + it_prot * cal_per_gram_prot
 + it_fiber * cal_per_gram_carb
 + it_sugar * cal_per_gram_carb
 + it_saturated * cal_per_gram_fat
 + it_fasted);
it_previous := 64.0;
actual := 78.0;
previous := 64.0;
err := abs(prediction - actual);
perc_err := abs(err * 100.0) / actual;
delta_glucose := abs(previous - actual);
perc_delta := (delta_glucose * 100.0) / actual;
if (perc_err < min_perc_err) then min_perc_err := perc_err; fi;
if (perc_err > max_perc_err) then max_perc_err := perc_err; fi;
tot_perc_err := tot_perc_err + perc_err;
if (actual < low_actual) then low_actual := actual; fi;
if (actual > high_actual) then high_actual := actual; fi;
if (prediction < low_prediction) then low_prediction := prediction; fi;
if (prediction > high_prediction) then high_prediction := prediction; fi;
count := count + 1.0;
out2 := [count, perc_err, actual,prediction,it_previous,it_previous * prior_factor,metabolism,it_ksteps * cal_per_ksteps,it_fat_other*cal_per_gram_fat,it_carb_other*cal_per_gram_carb,it_prot*cal_per_gram_prot,it_fiber*cal_per_gram_carb,it_sugar*cal_per_gram_carb,it_saturated*cal_per_gram_fat,it_fasted,order2, delta_method, kstep_method, recommended_ksteps, kstep_exponent, kstep_factor, recommended_fat, recommended_carb, recommended_prot, recommended_fiber, recommended_sugar, recommended_saturated ,factor1, factor2, recommended_fasted,prior_factor,fasted_factor,eliminate_extremes,ksteps,fat_other,carb_other,prot,fiber,sugar,saturated,fasted,C_ksteps,C_fat_other,C_carb_other,C_protein,C_fiber,C_sugar,C_saturated,C_fasted,cal_per_gram_carb,cal_per_gram_prot,cal_per_gram_fat,cal_per_ksteps];
writedata("OUT/out116_work.tmp", out2);
ksteps := 10.0;
kstep_factor := 20.;
fat := 73.8;
carb := 217.0;
prot := 15.8;
fiber := 9.82;
sugar := 117.0;
saturated := 18.3;
fasted := 6.0;
fat_other := 55.5;
carb_other := 90.18;
delta_ksteps :=  (recommended_ksteps - ksteps) * kstep_factor;
delta_fat_other := (fat_other - recommended_fat_other);
delta_carb_other := (carb_other - recommended_carb_other);
delta_prot := (prot - recommended_prot);
delta_fiber := (fiber - recommended_fiber);
delta_sugar := (sugar - recommended_sugar);
delta_saturated := (saturated - recommended_saturated);
delta_fasted := (fasted - recommended_fasted) * fasted_factor;
it_previous :=  87.0;
metabolism :=  0.;
it_ksteps := (C_ksteps) * (delta_ksteps);
it_fat_other := factor1  * ( C_fat_other ) * ( (delta_fat_other) );
it_carb_other := factor1  * ( C_carb_other ) * ( (delta_carb_other) );
it_prot := factor1  * ( C_protein ) * ( (delta_prot) );
it_fiber := factor1  * ( C_fiber ) * ( (delta_fiber) );
it_sugar :=  factor1  * ( C_sugar ) * ( (delta_sugar) );
it_saturated := factor1  * ( C_saturated ) * ( (delta_saturated) );
it_fasted := ( C_fasted ) * ( (delta_fasted) );
prediction  := evalf(it_previous * prior_factor
 + metabolism
 + it_ksteps * cal_per_ksteps
 + it_fat_other * cal_per_gram_fat
 + it_carb_other * cal_per_gram_carb
 + it_prot * cal_per_gram_prot
 + it_fiber * cal_per_gram_carb
 + it_sugar * cal_per_gram_carb
 + it_saturated * cal_per_gram_fat
 + it_fasted);
it_previous := 87.0;
actual := 64.0;
previous := 87.0;
err := abs(prediction - actual);
perc_err := abs(err * 100.0) / actual;
delta_glucose := abs(previous - actual);
perc_delta := (delta_glucose * 100.0) / actual;
if (perc_err < min_perc_err) then min_perc_err := perc_err; fi;
if (perc_err > max_perc_err) then max_perc_err := perc_err; fi;
tot_perc_err := tot_perc_err + perc_err;
if (actual < low_actual) then low_actual := actual; fi;
if (actual > high_actual) then high_actual := actual; fi;
if (prediction < low_prediction) then low_prediction := prediction; fi;
if (prediction > high_prediction) then high_prediction := prediction; fi;
count := count + 1.0;
out2 := [count, perc_err, actual,prediction,it_previous,it_previous * prior_factor,metabolism,it_ksteps * cal_per_ksteps,it_fat_other*cal_per_gram_fat,it_carb_other*cal_per_gram_carb,it_prot*cal_per_gram_prot,it_fiber*cal_per_gram_carb,it_sugar*cal_per_gram_carb,it_saturated*cal_per_gram_fat,it_fasted,order2, delta_method, kstep_method, recommended_ksteps, kstep_exponent, kstep_factor, recommended_fat, recommended_carb, recommended_prot, recommended_fiber, recommended_sugar, recommended_saturated ,factor1, factor2, recommended_fasted,prior_factor,fasted_factor,eliminate_extremes,ksteps,fat_other,carb_other,prot,fiber,sugar,saturated,fasted,C_ksteps,C_fat_other,C_carb_other,C_protein,C_fiber,C_sugar,C_saturated,C_fasted,cal_per_gram_carb,cal_per_gram_prot,cal_per_gram_fat,cal_per_ksteps];
writedata("OUT/out117_work.tmp", out2);
ksteps := 12.0;
kstep_factor := 20.;
fat := 107.0;
carb := 244.0;
prot := 46.7;
fiber := 12.3;
sugar := 96.8;
saturated := 31.8;
fasted := 9.0;
fat_other := 75.2;
carb_other := 134.9;
delta_ksteps :=  (recommended_ksteps - ksteps) * kstep_factor;
delta_fat_other := (fat_other - recommended_fat_other);
delta_carb_other := (carb_other - recommended_carb_other);
delta_prot := (prot - recommended_prot);
delta_fiber := (fiber - recommended_fiber);
delta_sugar := (sugar - recommended_sugar);
delta_saturated := (saturated - recommended_saturated);
delta_fasted := (fasted - recommended_fasted) * fasted_factor;
it_previous :=  93.0;
metabolism :=  0.;
it_ksteps := (C_ksteps) * (delta_ksteps);
it_fat_other := factor1  * ( C_fat_other ) * ( (delta_fat_other) );
it_carb_other := factor1  * ( C_carb_other ) * ( (delta_carb_other) );
it_prot := factor1  * ( C_protein ) * ( (delta_prot) );
it_fiber := factor1  * ( C_fiber ) * ( (delta_fiber) );
it_sugar :=  factor1  * ( C_sugar ) * ( (delta_sugar) );
it_saturated := factor1  * ( C_saturated ) * ( (delta_saturated) );
it_fasted := ( C_fasted ) * ( (delta_fasted) );
prediction  := evalf(it_previous * prior_factor
 + metabolism
 + it_ksteps * cal_per_ksteps
 + it_fat_other * cal_per_gram_fat
 + it_carb_other * cal_per_gram_carb
 + it_prot * cal_per_gram_prot
 + it_fiber * cal_per_gram_carb
 + it_sugar * cal_per_gram_carb
 + it_saturated * cal_per_gram_fat
 + it_fasted);
it_previous := 93.0;
actual := 87.0;
previous := 93.0;
err := abs(prediction - actual);
perc_err := abs(err * 100.0) / actual;
delta_glucose := abs(previous - actual);
perc_delta := (delta_glucose * 100.0) / actual;
if (perc_err < min_perc_err) then min_perc_err := perc_err; fi;
if (perc_err > max_perc_err) then max_perc_err := perc_err; fi;
tot_perc_err := tot_perc_err + perc_err;
if (actual < low_actual) then low_actual := actual; fi;
if (actual > high_actual) then high_actual := actual; fi;
if (prediction < low_prediction) then low_prediction := prediction; fi;
if (prediction > high_prediction) then high_prediction := prediction; fi;
count := count + 1.0;
out2 := [count, perc_err, actual,prediction,it_previous,it_previous * prior_factor,metabolism,it_ksteps * cal_per_ksteps,it_fat_other*cal_per_gram_fat,it_carb_other*cal_per_gram_carb,it_prot*cal_per_gram_prot,it_fiber*cal_per_gram_carb,it_sugar*cal_per_gram_carb,it_saturated*cal_per_gram_fat,it_fasted,order2, delta_method, kstep_method, recommended_ksteps, kstep_exponent, kstep_factor, recommended_fat, recommended_carb, recommended_prot, recommended_fiber, recommended_sugar, recommended_saturated ,factor1, factor2, recommended_fasted,prior_factor,fasted_factor,eliminate_extremes,ksteps,fat_other,carb_other,prot,fiber,sugar,saturated,fasted,C_ksteps,C_fat_other,C_carb_other,C_protein,C_fiber,C_sugar,C_saturated,C_fasted,cal_per_gram_carb,cal_per_gram_prot,cal_per_gram_fat,cal_per_ksteps];
writedata("OUT/out118_work.tmp", out2);
ksteps := 10.0;
kstep_factor := 20.;
fat := 175.0;
carb := 334.0;
prot := 78.5;
fiber := 34.5;
sugar := 118.0;
saturated := 45.1;
fasted := 9.0;
fat_other := 129.9;
carb_other := 181.5;
delta_ksteps :=  (recommended_ksteps - ksteps) * kstep_factor;
delta_fat_other := (fat_other - recommended_fat_other);
delta_carb_other := (carb_other - recommended_carb_other);
delta_prot := (prot - recommended_prot);
delta_fiber := (fiber - recommended_fiber);
delta_sugar := (sugar - recommended_sugar);
delta_saturated := (saturated - recommended_saturated);
delta_fasted := (fasted - recommended_fasted) * fasted_factor;
it_previous :=  95.0;
metabolism :=  0.;
it_ksteps := (C_ksteps) * (delta_ksteps);
it_fat_other := factor1  * ( C_fat_other ) * ( (delta_fat_other) );
it_carb_other := factor1  * ( C_carb_other ) * ( (delta_carb_other) );
it_prot := factor1  * ( C_protein ) * ( (delta_prot) );
it_fiber := factor1  * ( C_fiber ) * ( (delta_fiber) );
it_sugar :=  factor1  * ( C_sugar ) * ( (delta_sugar) );
it_saturated := factor1  * ( C_saturated ) * ( (delta_saturated) );
it_fasted := ( C_fasted ) * ( (delta_fasted) );
prediction  := evalf(it_previous * prior_factor
 + metabolism
 + it_ksteps * cal_per_ksteps
 + it_fat_other * cal_per_gram_fat
 + it_carb_other * cal_per_gram_carb
 + it_prot * cal_per_gram_prot
 + it_fiber * cal_per_gram_carb
 + it_sugar * cal_per_gram_carb
 + it_saturated * cal_per_gram_fat
 + it_fasted);
it_previous := 95.0;
actual := 93.0;
previous := 95.0;
err := abs(prediction - actual);
perc_err := abs(err * 100.0) / actual;
delta_glucose := abs(previous - actual);
perc_delta := (delta_glucose * 100.0) / actual;
if (perc_err < min_perc_err) then min_perc_err := perc_err; fi;
if (perc_err > max_perc_err) then max_perc_err := perc_err; fi;
tot_perc_err := tot_perc_err + perc_err;
if (actual < low_actual) then low_actual := actual; fi;
if (actual > high_actual) then high_actual := actual; fi;
if (prediction < low_prediction) then low_prediction := prediction; fi;
if (prediction > high_prediction) then high_prediction := prediction; fi;
count := count + 1.0;
out2 := [count, perc_err, actual,prediction,it_previous,it_previous * prior_factor,metabolism,it_ksteps * cal_per_ksteps,it_fat_other*cal_per_gram_fat,it_carb_other*cal_per_gram_carb,it_prot*cal_per_gram_prot,it_fiber*cal_per_gram_carb,it_sugar*cal_per_gram_carb,it_saturated*cal_per_gram_fat,it_fasted,order2, delta_method, kstep_method, recommended_ksteps, kstep_exponent, kstep_factor, recommended_fat, recommended_carb, recommended_prot, recommended_fiber, recommended_sugar, recommended_saturated ,factor1, factor2, recommended_fasted,prior_factor,fasted_factor,eliminate_extremes,ksteps,fat_other,carb_other,prot,fiber,sugar,saturated,fasted,C_ksteps,C_fat_other,C_carb_other,C_protein,C_fiber,C_sugar,C_saturated,C_fasted,cal_per_gram_carb,cal_per_gram_prot,cal_per_gram_fat,cal_per_ksteps];
writedata("OUT/out119_work.tmp", out2);
ksteps := 12.0;
kstep_factor := 20.;
fat := 75.8;
carb := 180.0;
prot := 96.3;
fiber := 19.5;
sugar := 49.6;
saturated := 12.9;
fasted := 7.0;
fat_other := 62.9;
carb_other := 110.9;
delta_ksteps :=  (recommended_ksteps - ksteps) * kstep_factor;
delta_fat_other := (fat_other - recommended_fat_other);
delta_carb_other := (carb_other - recommended_carb_other);
delta_prot := (prot - recommended_prot);
delta_fiber := (fiber - recommended_fiber);
delta_sugar := (sugar - recommended_sugar);
delta_saturated := (saturated - recommended_saturated);
delta_fasted := (fasted - recommended_fasted) * fasted_factor;
it_previous :=  95.0;
metabolism :=  0.;
it_ksteps := (C_ksteps) * (delta_ksteps);
it_fat_other := factor1  * ( C_fat_other ) * ( (delta_fat_other) );
it_carb_other := factor1  * ( C_carb_other ) * ( (delta_carb_other) );
it_prot := factor1  * ( C_protein ) * ( (delta_prot) );
it_fiber := factor1  * ( C_fiber ) * ( (delta_fiber) );
it_sugar :=  factor1  * ( C_sugar ) * ( (delta_sugar) );
it_saturated := factor1  * ( C_saturated ) * ( (delta_saturated) );
it_fasted := ( C_fasted ) * ( (delta_fasted) );
prediction  := evalf(it_previous * prior_factor
 + metabolism
 + it_ksteps * cal_per_ksteps
 + it_fat_other * cal_per_gram_fat
 + it_carb_other * cal_per_gram_carb
 + it_prot * cal_per_gram_prot
 + it_fiber * cal_per_gram_carb
 + it_sugar * cal_per_gram_carb
 + it_saturated * cal_per_gram_fat
 + it_fasted);
it_previous := 95.0;
actual := 95.0;
previous := 95.0;
err := abs(prediction - actual);
perc_err := abs(err * 100.0) / actual;
delta_glucose := abs(previous - actual);
perc_delta := (delta_glucose * 100.0) / actual;
if (perc_err < min_perc_err) then min_perc_err := perc_err; fi;
if (perc_err > max_perc_err) then max_perc_err := perc_err; fi;
tot_perc_err := tot_perc_err + perc_err;
if (actual < low_actual) then low_actual := actual; fi;
if (actual > high_actual) then high_actual := actual; fi;
if (prediction < low_prediction) then low_prediction := prediction; fi;
if (prediction > high_prediction) then high_prediction := prediction; fi;
count := count + 1.0;
out2 := [count, perc_err, actual,prediction,it_previous,it_previous * prior_factor,metabolism,it_ksteps * cal_per_ksteps,it_fat_other*cal_per_gram_fat,it_carb_other*cal_per_gram_carb,it_prot*cal_per_gram_prot,it_fiber*cal_per_gram_carb,it_sugar*cal_per_gram_carb,it_saturated*cal_per_gram_fat,it_fasted,order2, delta_method, kstep_method, recommended_ksteps, kstep_exponent, kstep_factor, recommended_fat, recommended_carb, recommended_prot, recommended_fiber, recommended_sugar, recommended_saturated ,factor1, factor2, recommended_fasted,prior_factor,fasted_factor,eliminate_extremes,ksteps,fat_other,carb_other,prot,fiber,sugar,saturated,fasted,C_ksteps,C_fat_other,C_carb_other,C_protein,C_fiber,C_sugar,C_saturated,C_fasted,cal_per_gram_carb,cal_per_gram_prot,cal_per_gram_fat,cal_per_ksteps];
writedata("OUT/out120_work.tmp", out2);
ksteps := 10.0;
kstep_factor := 20.;
fat := 118.0;
carb := 301.0;
prot := 39.3;
fiber := 24.5;
sugar := 137.0;
saturated := 33.9;
fasted := 6.5;
fat_other := 84.1;
carb_other := 139.5;
delta_ksteps :=  (recommended_ksteps - ksteps) * kstep_factor;
delta_fat_other := (fat_other - recommended_fat_other);
delta_carb_other := (carb_other - recommended_carb_other);
delta_prot := (prot - recommended_prot);
delta_fiber := (fiber - recommended_fiber);
delta_sugar := (sugar - recommended_sugar);
delta_saturated := (saturated - recommended_saturated);
delta_fasted := (fasted - recommended_fasted) * fasted_factor;
it_previous :=  92.0;
metabolism :=  0.;
it_ksteps := (C_ksteps) * (delta_ksteps);
it_fat_other := factor1  * ( C_fat_other ) * ( (delta_fat_other) );
it_carb_other := factor1  * ( C_carb_other ) * ( (delta_carb_other) );
it_prot := factor1  * ( C_protein ) * ( (delta_prot) );
it_fiber := factor1  * ( C_fiber ) * ( (delta_fiber) );
it_sugar :=  factor1  * ( C_sugar ) * ( (delta_sugar) );
it_saturated := factor1  * ( C_saturated ) * ( (delta_saturated) );
it_fasted := ( C_fasted ) * ( (delta_fasted) );
prediction  := evalf(it_previous * prior_factor
 + metabolism
 + it_ksteps * cal_per_ksteps
 + it_fat_other * cal_per_gram_fat
 + it_carb_other * cal_per_gram_carb
 + it_prot * cal_per_gram_prot
 + it_fiber * cal_per_gram_carb
 + it_sugar * cal_per_gram_carb
 + it_saturated * cal_per_gram_fat
 + it_fasted);
it_previous := 92.0;
actual := 95.0;
previous := 92.0;
err := abs(prediction - actual);
perc_err := abs(err * 100.0) / actual;
delta_glucose := abs(previous - actual);
perc_delta := (delta_glucose * 100.0) / actual;
if (perc_err < min_perc_err) then min_perc_err := perc_err; fi;
if (perc_err > max_perc_err) then max_perc_err := perc_err; fi;
tot_perc_err := tot_perc_err + perc_err;
if (actual < low_actual) then low_actual := actual; fi;
if (actual > high_actual) then high_actual := actual; fi;
if (prediction < low_prediction) then low_prediction := prediction; fi;
if (prediction > high_prediction) then high_prediction := prediction; fi;
count := count + 1.0;
out2 := [count, perc_err, actual,prediction,it_previous,it_previous * prior_factor,metabolism,it_ksteps * cal_per_ksteps,it_fat_other*cal_per_gram_fat,it_carb_other*cal_per_gram_carb,it_prot*cal_per_gram_prot,it_fiber*cal_per_gram_carb,it_sugar*cal_per_gram_carb,it_saturated*cal_per_gram_fat,it_fasted,order2, delta_method, kstep_method, recommended_ksteps, kstep_exponent, kstep_factor, recommended_fat, recommended_carb, recommended_prot, recommended_fiber, recommended_sugar, recommended_saturated ,factor1, factor2, recommended_fasted,prior_factor,fasted_factor,eliminate_extremes,ksteps,fat_other,carb_other,prot,fiber,sugar,saturated,fasted,C_ksteps,C_fat_other,C_carb_other,C_protein,C_fiber,C_sugar,C_saturated,C_fasted,cal_per_gram_carb,cal_per_gram_prot,cal_per_gram_fat,cal_per_ksteps];
writedata("OUT/out121_work.tmp", out2);
ksteps := 18.0;
kstep_factor := 20.;
fat := 105.0;
carb := 268.0;
prot := 59.4;
fiber := 29.1;
sugar := 85.2;
saturated := 22.4;
fasted := 5.5;
fat_other := 82.6;
carb_other := 153.7;
delta_ksteps :=  (recommended_ksteps - ksteps) * kstep_factor;
delta_fat_other := (fat_other - recommended_fat_other);
delta_carb_other := (carb_other - recommended_carb_other);
delta_prot := (prot - recommended_prot);
delta_fiber := (fiber - recommended_fiber);
delta_sugar := (sugar - recommended_sugar);
delta_saturated := (saturated - recommended_saturated);
delta_fasted := (fasted - recommended_fasted) * fasted_factor;
it_previous :=  78.0;
metabolism :=  0.;
it_ksteps := (C_ksteps) * (delta_ksteps);
it_fat_other := factor1  * ( C_fat_other ) * ( (delta_fat_other) );
it_carb_other := factor1  * ( C_carb_other ) * ( (delta_carb_other) );
it_prot := factor1  * ( C_protein ) * ( (delta_prot) );
it_fiber := factor1  * ( C_fiber ) * ( (delta_fiber) );
it_sugar :=  factor1  * ( C_sugar ) * ( (delta_sugar) );
it_saturated := factor1  * ( C_saturated ) * ( (delta_saturated) );
it_fasted := ( C_fasted ) * ( (delta_fasted) );
prediction  := evalf(it_previous * prior_factor
 + metabolism
 + it_ksteps * cal_per_ksteps
 + it_fat_other * cal_per_gram_fat
 + it_carb_other * cal_per_gram_carb
 + it_prot * cal_per_gram_prot
 + it_fiber * cal_per_gram_carb
 + it_sugar * cal_per_gram_carb
 + it_saturated * cal_per_gram_fat
 + it_fasted);
it_previous := 78.0;
actual := 92.0;
previous := 78.0;
err := abs(prediction - actual);
perc_err := abs(err * 100.0) / actual;
delta_glucose := abs(previous - actual);
perc_delta := (delta_glucose * 100.0) / actual;
if (perc_err < min_perc_err) then min_perc_err := perc_err; fi;
if (perc_err > max_perc_err) then max_perc_err := perc_err; fi;
tot_perc_err := tot_perc_err + perc_err;
if (actual < low_actual) then low_actual := actual; fi;
if (actual > high_actual) then high_actual := actual; fi;
if (prediction < low_prediction) then low_prediction := prediction; fi;
if (prediction > high_prediction) then high_prediction := prediction; fi;
count := count + 1.0;
out2 := [count, perc_err, actual,prediction,it_previous,it_previous * prior_factor,metabolism,it_ksteps * cal_per_ksteps,it_fat_other*cal_per_gram_fat,it_carb_other*cal_per_gram_carb,it_prot*cal_per_gram_prot,it_fiber*cal_per_gram_carb,it_sugar*cal_per_gram_carb,it_saturated*cal_per_gram_fat,it_fasted,order2, delta_method, kstep_method, recommended_ksteps, kstep_exponent, kstep_factor, recommended_fat, recommended_carb, recommended_prot, recommended_fiber, recommended_sugar, recommended_saturated ,factor1, factor2, recommended_fasted,prior_factor,fasted_factor,eliminate_extremes,ksteps,fat_other,carb_other,prot,fiber,sugar,saturated,fasted,C_ksteps,C_fat_other,C_carb_other,C_protein,C_fiber,C_sugar,C_saturated,C_fasted,cal_per_gram_carb,cal_per_gram_prot,cal_per_gram_fat,cal_per_ksteps];
writedata("OUT/out122_work.tmp", out2);
ksteps := 20.0;
kstep_factor := 20.;
fat := 150.0;
carb := 319.0;
prot := 54.6;
fiber := 16.1;
sugar := 147.0;
saturated := 39.1;
fasted := 5.5;
fat_other := 110.9;
carb_other := 155.9;
delta_ksteps :=  (recommended_ksteps - ksteps) * kstep_factor;
delta_fat_other := (fat_other - recommended_fat_other);
delta_carb_other := (carb_other - recommended_carb_other);
delta_prot := (prot - recommended_prot);
delta_fiber := (fiber - recommended_fiber);
delta_sugar := (sugar - recommended_sugar);
delta_saturated := (saturated - recommended_saturated);
delta_fasted := (fasted - recommended_fasted) * fasted_factor;
it_previous :=  85.0;
metabolism :=  0.;
it_ksteps := (C_ksteps) * (delta_ksteps);
it_fat_other := factor1  * ( C_fat_other ) * ( (delta_fat_other) );
it_carb_other := factor1  * ( C_carb_other ) * ( (delta_carb_other) );
it_prot := factor1  * ( C_protein ) * ( (delta_prot) );
it_fiber := factor1  * ( C_fiber ) * ( (delta_fiber) );
it_sugar :=  factor1  * ( C_sugar ) * ( (delta_sugar) );
it_saturated := factor1  * ( C_saturated ) * ( (delta_saturated) );
it_fasted := ( C_fasted ) * ( (delta_fasted) );
prediction  := evalf(it_previous * prior_factor
 + metabolism
 + it_ksteps * cal_per_ksteps
 + it_fat_other * cal_per_gram_fat
 + it_carb_other * cal_per_gram_carb
 + it_prot * cal_per_gram_prot
 + it_fiber * cal_per_gram_carb
 + it_sugar * cal_per_gram_carb
 + it_saturated * cal_per_gram_fat
 + it_fasted);
it_previous := 85.0;
actual := 78.0;
previous := 85.0;
err := abs(prediction - actual);
perc_err := abs(err * 100.0) / actual;
delta_glucose := abs(previous - actual);
perc_delta := (delta_glucose * 100.0) / actual;
if (perc_err < min_perc_err) then min_perc_err := perc_err; fi;
if (perc_err > max_perc_err) then max_perc_err := perc_err; fi;
tot_perc_err := tot_perc_err + perc_err;
if (actual < low_actual) then low_actual := actual; fi;
if (actual > high_actual) then high_actual := actual; fi;
if (prediction < low_prediction) then low_prediction := prediction; fi;
if (prediction > high_prediction) then high_prediction := prediction; fi;
count := count + 1.0;
out2 := [count, perc_err, actual,prediction,it_previous,it_previous * prior_factor,metabolism,it_ksteps * cal_per_ksteps,it_fat_other*cal_per_gram_fat,it_carb_other*cal_per_gram_carb,it_prot*cal_per_gram_prot,it_fiber*cal_per_gram_carb,it_sugar*cal_per_gram_carb,it_saturated*cal_per_gram_fat,it_fasted,order2, delta_method, kstep_method, recommended_ksteps, kstep_exponent, kstep_factor, recommended_fat, recommended_carb, recommended_prot, recommended_fiber, recommended_sugar, recommended_saturated ,factor1, factor2, recommended_fasted,prior_factor,fasted_factor,eliminate_extremes,ksteps,fat_other,carb_other,prot,fiber,sugar,saturated,fasted,C_ksteps,C_fat_other,C_carb_other,C_protein,C_fiber,C_sugar,C_saturated,C_fasted,cal_per_gram_carb,cal_per_gram_prot,cal_per_gram_fat,cal_per_ksteps];
writedata("OUT/out123_work.tmp", out2);
ksteps := 13.0;
kstep_factor := 20.;
fat := 88.4;
carb := 322.0;
prot := 66.5;
fiber := 13.7;
sugar := 131.0;
saturated := 26.2;
fasted := 6.0;
fat_other := 62.2;
carb_other := 177.3;
delta_ksteps :=  (recommended_ksteps - ksteps) * kstep_factor;
delta_fat_other := (fat_other - recommended_fat_other);
delta_carb_other := (carb_other - recommended_carb_other);
delta_prot := (prot - recommended_prot);
delta_fiber := (fiber - recommended_fiber);
delta_sugar := (sugar - recommended_sugar);
delta_saturated := (saturated - recommended_saturated);
delta_fasted := (fasted - recommended_fasted) * fasted_factor;
it_previous :=  96.0;
metabolism :=  0.;
it_ksteps := (C_ksteps) * (delta_ksteps);
it_fat_other := factor1  * ( C_fat_other ) * ( (delta_fat_other) );
it_carb_other := factor1  * ( C_carb_other ) * ( (delta_carb_other) );
it_prot := factor1  * ( C_protein ) * ( (delta_prot) );
it_fiber := factor1  * ( C_fiber ) * ( (delta_fiber) );
it_sugar :=  factor1  * ( C_sugar ) * ( (delta_sugar) );
it_saturated := factor1  * ( C_saturated ) * ( (delta_saturated) );
it_fasted := ( C_fasted ) * ( (delta_fasted) );
prediction  := evalf(it_previous * prior_factor
 + metabolism
 + it_ksteps * cal_per_ksteps
 + it_fat_other * cal_per_gram_fat
 + it_carb_other * cal_per_gram_carb
 + it_prot * cal_per_gram_prot
 + it_fiber * cal_per_gram_carb
 + it_sugar * cal_per_gram_carb
 + it_saturated * cal_per_gram_fat
 + it_fasted);
it_previous := 96.0;
actual := 85.0;
previous := 96.0;
err := abs(prediction - actual);
perc_err := abs(err * 100.0) / actual;
delta_glucose := abs(previous - actual);
perc_delta := (delta_glucose * 100.0) / actual;
if (perc_err < min_perc_err) then min_perc_err := perc_err; fi;
if (perc_err > max_perc_err) then max_perc_err := perc_err; fi;
tot_perc_err := tot_perc_err + perc_err;
if (actual < low_actual) then low_actual := actual; fi;
if (actual > high_actual) then high_actual := actual; fi;
if (prediction < low_prediction) then low_prediction := prediction; fi;
if (prediction > high_prediction) then high_prediction := prediction; fi;
count := count + 1.0;
out2 := [count, perc_err, actual,prediction,it_previous,it_previous * prior_factor,metabolism,it_ksteps * cal_per_ksteps,it_fat_other*cal_per_gram_fat,it_carb_other*cal_per_gram_carb,it_prot*cal_per_gram_prot,it_fiber*cal_per_gram_carb,it_sugar*cal_per_gram_carb,it_saturated*cal_per_gram_fat,it_fasted,order2, delta_method, kstep_method, recommended_ksteps, kstep_exponent, kstep_factor, recommended_fat, recommended_carb, recommended_prot, recommended_fiber, recommended_sugar, recommended_saturated ,factor1, factor2, recommended_fasted,prior_factor,fasted_factor,eliminate_extremes,ksteps,fat_other,carb_other,prot,fiber,sugar,saturated,fasted,C_ksteps,C_fat_other,C_carb_other,C_protein,C_fiber,C_sugar,C_saturated,C_fasted,cal_per_gram_carb,cal_per_gram_prot,cal_per_gram_fat,cal_per_ksteps];
writedata("OUT/out124_work.tmp", out2);
ksteps := 8.0;
kstep_factor := 20.;
fat := 137.0;
carb := 382.0;
prot := 89.6;
fiber := 23.7;
sugar := 143.0;
saturated := 35.7;
fasted := 8.0;
fat_other := 101.3;
carb_other := 215.3;
delta_ksteps :=  (recommended_ksteps - ksteps) * kstep_factor;
delta_fat_other := (fat_other - recommended_fat_other);
delta_carb_other := (carb_other - recommended_carb_other);
delta_prot := (prot - recommended_prot);
delta_fiber := (fiber - recommended_fiber);
delta_sugar := (sugar - recommended_sugar);
delta_saturated := (saturated - recommended_saturated);
delta_fasted := (fasted - recommended_fasted) * fasted_factor;
it_previous :=  98.0;
metabolism :=  0.;
it_ksteps := (C_ksteps) * (delta_ksteps);
it_fat_other := factor1  * ( C_fat_other ) * ( (delta_fat_other) );
it_carb_other := factor1  * ( C_carb_other ) * ( (delta_carb_other) );
it_prot := factor1  * ( C_protein ) * ( (delta_prot) );
it_fiber := factor1  * ( C_fiber ) * ( (delta_fiber) );
it_sugar :=  factor1  * ( C_sugar ) * ( (delta_sugar) );
it_saturated := factor1  * ( C_saturated ) * ( (delta_saturated) );
it_fasted := ( C_fasted ) * ( (delta_fasted) );
prediction  := evalf(it_previous * prior_factor
 + metabolism
 + it_ksteps * cal_per_ksteps
 + it_fat_other * cal_per_gram_fat
 + it_carb_other * cal_per_gram_carb
 + it_prot * cal_per_gram_prot
 + it_fiber * cal_per_gram_carb
 + it_sugar * cal_per_gram_carb
 + it_saturated * cal_per_gram_fat
 + it_fasted);
it_previous := 98.0;
actual := 96.0;
previous := 98.0;
err := abs(prediction - actual);
perc_err := abs(err * 100.0) / actual;
delta_glucose := abs(previous - actual);
perc_delta := (delta_glucose * 100.0) / actual;
if (perc_err < min_perc_err) then min_perc_err := perc_err; fi;
if (perc_err > max_perc_err) then max_perc_err := perc_err; fi;
tot_perc_err := tot_perc_err + perc_err;
if (actual < low_actual) then low_actual := actual; fi;
if (actual > high_actual) then high_actual := actual; fi;
if (prediction < low_prediction) then low_prediction := prediction; fi;
if (prediction > high_prediction) then high_prediction := prediction; fi;
count := count + 1.0;
out2 := [count, perc_err, actual,prediction,it_previous,it_previous * prior_factor,metabolism,it_ksteps * cal_per_ksteps,it_fat_other*cal_per_gram_fat,it_carb_other*cal_per_gram_carb,it_prot*cal_per_gram_prot,it_fiber*cal_per_gram_carb,it_sugar*cal_per_gram_carb,it_saturated*cal_per_gram_fat,it_fasted,order2, delta_method, kstep_method, recommended_ksteps, kstep_exponent, kstep_factor, recommended_fat, recommended_carb, recommended_prot, recommended_fiber, recommended_sugar, recommended_saturated ,factor1, factor2, recommended_fasted,prior_factor,fasted_factor,eliminate_extremes,ksteps,fat_other,carb_other,prot,fiber,sugar,saturated,fasted,C_ksteps,C_fat_other,C_carb_other,C_protein,C_fiber,C_sugar,C_saturated,C_fasted,cal_per_gram_carb,cal_per_gram_prot,cal_per_gram_fat,cal_per_ksteps];
writedata("OUT/out125_work.tmp", out2);
ksteps := 10.0;
kstep_factor := 20.;
fat := 104.0;
carb := 337.0;
prot := 62.5;
fiber := 19.4;
sugar := 134.0;
saturated := 21.9;
fasted := 4.5;
fat_other := 82.1;
carb_other := 183.6;
delta_ksteps :=  (recommended_ksteps - ksteps) * kstep_factor;
delta_fat_other := (fat_other - recommended_fat_other);
delta_carb_other := (carb_other - recommended_carb_other);
delta_prot := (prot - recommended_prot);
delta_fiber := (fiber - recommended_fiber);
delta_sugar := (sugar - recommended_sugar);
delta_saturated := (saturated - recommended_saturated);
delta_fasted := (fasted - recommended_fasted) * fasted_factor;
it_previous :=  93.0;
metabolism :=  0.;
it_ksteps := (C_ksteps) * (delta_ksteps);
it_fat_other := factor1  * ( C_fat_other ) * ( (delta_fat_other) );
it_carb_other := factor1  * ( C_carb_other ) * ( (delta_carb_other) );
it_prot := factor1  * ( C_protein ) * ( (delta_prot) );
it_fiber := factor1  * ( C_fiber ) * ( (delta_fiber) );
it_sugar :=  factor1  * ( C_sugar ) * ( (delta_sugar) );
it_saturated := factor1  * ( C_saturated ) * ( (delta_saturated) );
it_fasted := ( C_fasted ) * ( (delta_fasted) );
prediction  := evalf(it_previous * prior_factor
 + metabolism
 + it_ksteps * cal_per_ksteps
 + it_fat_other * cal_per_gram_fat
 + it_carb_other * cal_per_gram_carb
 + it_prot * cal_per_gram_prot
 + it_fiber * cal_per_gram_carb
 + it_sugar * cal_per_gram_carb
 + it_saturated * cal_per_gram_fat
 + it_fasted);
it_previous := 93.0;
actual := 98.0;
previous := 93.0;
err := abs(prediction - actual);
perc_err := abs(err * 100.0) / actual;
delta_glucose := abs(previous - actual);
perc_delta := (delta_glucose * 100.0) / actual;
if (perc_err < min_perc_err) then min_perc_err := perc_err; fi;
if (perc_err > max_perc_err) then max_perc_err := perc_err; fi;
tot_perc_err := tot_perc_err + perc_err;
if (actual < low_actual) then low_actual := actual; fi;
if (actual > high_actual) then high_actual := actual; fi;
if (prediction < low_prediction) then low_prediction := prediction; fi;
if (prediction > high_prediction) then high_prediction := prediction; fi;
count := count + 1.0;
out2 := [count, perc_err, actual,prediction,it_previous,it_previous * prior_factor,metabolism,it_ksteps * cal_per_ksteps,it_fat_other*cal_per_gram_fat,it_carb_other*cal_per_gram_carb,it_prot*cal_per_gram_prot,it_fiber*cal_per_gram_carb,it_sugar*cal_per_gram_carb,it_saturated*cal_per_gram_fat,it_fasted,order2, delta_method, kstep_method, recommended_ksteps, kstep_exponent, kstep_factor, recommended_fat, recommended_carb, recommended_prot, recommended_fiber, recommended_sugar, recommended_saturated ,factor1, factor2, recommended_fasted,prior_factor,fasted_factor,eliminate_extremes,ksteps,fat_other,carb_other,prot,fiber,sugar,saturated,fasted,C_ksteps,C_fat_other,C_carb_other,C_protein,C_fiber,C_sugar,C_saturated,C_fasted,cal_per_gram_carb,cal_per_gram_prot,cal_per_gram_fat,cal_per_ksteps];
writedata("OUT/out126_work.tmp", out2);
ksteps := 10.0;
kstep_factor := 20.;
fat := 66.6;
carb := 222.0;
prot := 70.8;
fiber := 8.2;
sugar := 87.4;
saturated := 21.0;
fasted := 6.0;
fat_other := 45.6;
carb_other := 126.4;
delta_ksteps :=  (recommended_ksteps - ksteps) * kstep_factor;
delta_fat_other := (fat_other - recommended_fat_other);
delta_carb_other := (carb_other - recommended_carb_other);
delta_prot := (prot - recommended_prot);
delta_fiber := (fiber - recommended_fiber);
delta_sugar := (sugar - recommended_sugar);
delta_saturated := (saturated - recommended_saturated);
delta_fasted := (fasted - recommended_fasted) * fasted_factor;
it_previous :=  82.0;
metabolism :=  0.;
it_ksteps := (C_ksteps) * (delta_ksteps);
it_fat_other := factor1  * ( C_fat_other ) * ( (delta_fat_other) );
it_carb_other := factor1  * ( C_carb_other ) * ( (delta_carb_other) );
it_prot := factor1  * ( C_protein ) * ( (delta_prot) );
it_fiber := factor1  * ( C_fiber ) * ( (delta_fiber) );
it_sugar :=  factor1  * ( C_sugar ) * ( (delta_sugar) );
it_saturated := factor1  * ( C_saturated ) * ( (delta_saturated) );
it_fasted := ( C_fasted ) * ( (delta_fasted) );
prediction  := evalf(it_previous * prior_factor
 + metabolism
 + it_ksteps * cal_per_ksteps
 + it_fat_other * cal_per_gram_fat
 + it_carb_other * cal_per_gram_carb
 + it_prot * cal_per_gram_prot
 + it_fiber * cal_per_gram_carb
 + it_sugar * cal_per_gram_carb
 + it_saturated * cal_per_gram_fat
 + it_fasted);
it_previous := 82.0;
actual := 93.0;
previous := 82.0;
err := abs(prediction - actual);
perc_err := abs(err * 100.0) / actual;
delta_glucose := abs(previous - actual);
perc_delta := (delta_glucose * 100.0) / actual;
if (perc_err < min_perc_err) then min_perc_err := perc_err; fi;
if (perc_err > max_perc_err) then max_perc_err := perc_err; fi;
tot_perc_err := tot_perc_err + perc_err;
if (actual < low_actual) then low_actual := actual; fi;
if (actual > high_actual) then high_actual := actual; fi;
if (prediction < low_prediction) then low_prediction := prediction; fi;
if (prediction > high_prediction) then high_prediction := prediction; fi;
count := count + 1.0;
out2 := [count, perc_err, actual,prediction,it_previous,it_previous * prior_factor,metabolism,it_ksteps * cal_per_ksteps,it_fat_other*cal_per_gram_fat,it_carb_other*cal_per_gram_carb,it_prot*cal_per_gram_prot,it_fiber*cal_per_gram_carb,it_sugar*cal_per_gram_carb,it_saturated*cal_per_gram_fat,it_fasted,order2, delta_method, kstep_method, recommended_ksteps, kstep_exponent, kstep_factor, recommended_fat, recommended_carb, recommended_prot, recommended_fiber, recommended_sugar, recommended_saturated ,factor1, factor2, recommended_fasted,prior_factor,fasted_factor,eliminate_extremes,ksteps,fat_other,carb_other,prot,fiber,sugar,saturated,fasted,C_ksteps,C_fat_other,C_carb_other,C_protein,C_fiber,C_sugar,C_saturated,C_fasted,cal_per_gram_carb,cal_per_gram_prot,cal_per_gram_fat,cal_per_ksteps];
writedata("OUT/out127_work.tmp", out2);
ksteps := 10.0;
kstep_factor := 20.;
fat := 104.0;
carb := 350.0;
prot := 53.1;
fiber := 16.8;
sugar := 141.0;
saturated := 22.2;
fasted := 5.5;
fat_other := 81.8;
carb_other := 192.2;
delta_ksteps :=  (recommended_ksteps - ksteps) * kstep_factor;
delta_fat_other := (fat_other - recommended_fat_other);
delta_carb_other := (carb_other - recommended_carb_other);
delta_prot := (prot - recommended_prot);
delta_fiber := (fiber - recommended_fiber);
delta_sugar := (sugar - recommended_sugar);
delta_saturated := (saturated - recommended_saturated);
delta_fasted := (fasted - recommended_fasted) * fasted_factor;
it_previous :=  69.0;
metabolism :=  0.;
it_ksteps := (C_ksteps) * (delta_ksteps);
it_fat_other := factor1  * ( C_fat_other ) * ( (delta_fat_other) );
it_carb_other := factor1  * ( C_carb_other ) * ( (delta_carb_other) );
it_prot := factor1  * ( C_protein ) * ( (delta_prot) );
it_fiber := factor1  * ( C_fiber ) * ( (delta_fiber) );
it_sugar :=  factor1  * ( C_sugar ) * ( (delta_sugar) );
it_saturated := factor1  * ( C_saturated ) * ( (delta_saturated) );
it_fasted := ( C_fasted ) * ( (delta_fasted) );
prediction  := evalf(it_previous * prior_factor
 + metabolism
 + it_ksteps * cal_per_ksteps
 + it_fat_other * cal_per_gram_fat
 + it_carb_other * cal_per_gram_carb
 + it_prot * cal_per_gram_prot
 + it_fiber * cal_per_gram_carb
 + it_sugar * cal_per_gram_carb
 + it_saturated * cal_per_gram_fat
 + it_fasted);
it_previous := 69.0;
actual := 82.0;
previous := 69.0;
err := abs(prediction - actual);
perc_err := abs(err * 100.0) / actual;
delta_glucose := abs(previous - actual);
perc_delta := (delta_glucose * 100.0) / actual;
if (perc_err < min_perc_err) then min_perc_err := perc_err; fi;
if (perc_err > max_perc_err) then max_perc_err := perc_err; fi;
tot_perc_err := tot_perc_err + perc_err;
if (actual < low_actual) then low_actual := actual; fi;
if (actual > high_actual) then high_actual := actual; fi;
if (prediction < low_prediction) then low_prediction := prediction; fi;
if (prediction > high_prediction) then high_prediction := prediction; fi;
count := count + 1.0;
out2 := [count, perc_err, actual,prediction,it_previous,it_previous * prior_factor,metabolism,it_ksteps * cal_per_ksteps,it_fat_other*cal_per_gram_fat,it_carb_other*cal_per_gram_carb,it_prot*cal_per_gram_prot,it_fiber*cal_per_gram_carb,it_sugar*cal_per_gram_carb,it_saturated*cal_per_gram_fat,it_fasted,order2, delta_method, kstep_method, recommended_ksteps, kstep_exponent, kstep_factor, recommended_fat, recommended_carb, recommended_prot, recommended_fiber, recommended_sugar, recommended_saturated ,factor1, factor2, recommended_fasted,prior_factor,fasted_factor,eliminate_extremes,ksteps,fat_other,carb_other,prot,fiber,sugar,saturated,fasted,C_ksteps,C_fat_other,C_carb_other,C_protein,C_fiber,C_sugar,C_saturated,C_fasted,cal_per_gram_carb,cal_per_gram_prot,cal_per_gram_fat,cal_per_ksteps];
writedata("OUT/out128_work.tmp", out2);
ksteps := 10.0;
kstep_factor := 20.;
fat := 103.0;
carb := 231.0;
prot := 85.6;
fiber := 10.3;
sugar := 127.0;
saturated := 25.4;
fasted := 5.0;
fat_other := 77.6;
carb_other := 93.7;
delta_ksteps :=  (recommended_ksteps - ksteps) * kstep_factor;
delta_fat_other := (fat_other - recommended_fat_other);
delta_carb_other := (carb_other - recommended_carb_other);
delta_prot := (prot - recommended_prot);
delta_fiber := (fiber - recommended_fiber);
delta_sugar := (sugar - recommended_sugar);
delta_saturated := (saturated - recommended_saturated);
delta_fasted := (fasted - recommended_fasted) * fasted_factor;
it_previous :=  79.0;
metabolism :=  0.;
it_ksteps := (C_ksteps) * (delta_ksteps);
it_fat_other := factor1  * ( C_fat_other ) * ( (delta_fat_other) );
it_carb_other := factor1  * ( C_carb_other ) * ( (delta_carb_other) );
it_prot := factor1  * ( C_protein ) * ( (delta_prot) );
it_fiber := factor1  * ( C_fiber ) * ( (delta_fiber) );
it_sugar :=  factor1  * ( C_sugar ) * ( (delta_sugar) );
it_saturated := factor1  * ( C_saturated ) * ( (delta_saturated) );
it_fasted := ( C_fasted ) * ( (delta_fasted) );
prediction  := evalf(it_previous * prior_factor
 + metabolism
 + it_ksteps * cal_per_ksteps
 + it_fat_other * cal_per_gram_fat
 + it_carb_other * cal_per_gram_carb
 + it_prot * cal_per_gram_prot
 + it_fiber * cal_per_gram_carb
 + it_sugar * cal_per_gram_carb
 + it_saturated * cal_per_gram_fat
 + it_fasted);
it_previous := 79.0;
actual := 69.0;
previous := 79.0;
err := abs(prediction - actual);
perc_err := abs(err * 100.0) / actual;
delta_glucose := abs(previous - actual);
perc_delta := (delta_glucose * 100.0) / actual;
if (perc_err < min_perc_err) then min_perc_err := perc_err; fi;
if (perc_err > max_perc_err) then max_perc_err := perc_err; fi;
tot_perc_err := tot_perc_err + perc_err;
if (actual < low_actual) then low_actual := actual; fi;
if (actual > high_actual) then high_actual := actual; fi;
if (prediction < low_prediction) then low_prediction := prediction; fi;
if (prediction > high_prediction) then high_prediction := prediction; fi;
count := count + 1.0;
out2 := [count, perc_err, actual,prediction,it_previous,it_previous * prior_factor,metabolism,it_ksteps * cal_per_ksteps,it_fat_other*cal_per_gram_fat,it_carb_other*cal_per_gram_carb,it_prot*cal_per_gram_prot,it_fiber*cal_per_gram_carb,it_sugar*cal_per_gram_carb,it_saturated*cal_per_gram_fat,it_fasted,order2, delta_method, kstep_method, recommended_ksteps, kstep_exponent, kstep_factor, recommended_fat, recommended_carb, recommended_prot, recommended_fiber, recommended_sugar, recommended_saturated ,factor1, factor2, recommended_fasted,prior_factor,fasted_factor,eliminate_extremes,ksteps,fat_other,carb_other,prot,fiber,sugar,saturated,fasted,C_ksteps,C_fat_other,C_carb_other,C_protein,C_fiber,C_sugar,C_saturated,C_fasted,cal_per_gram_carb,cal_per_gram_prot,cal_per_gram_fat,cal_per_ksteps];
writedata("OUT/out129_work.tmp", out2);
ksteps := 10.0;
kstep_factor := 20.;
fat := 132.0;
carb := 306.0;
prot := 101.0;
fiber := 15.8;
sugar := 79.6;
saturated := 29.1;
fasted := 5.0;
fat_other := 102.9;
carb_other := 210.6;
delta_ksteps :=  (recommended_ksteps - ksteps) * kstep_factor;
delta_fat_other := (fat_other - recommended_fat_other);
delta_carb_other := (carb_other - recommended_carb_other);
delta_prot := (prot - recommended_prot);
delta_fiber := (fiber - recommended_fiber);
delta_sugar := (sugar - recommended_sugar);
delta_saturated := (saturated - recommended_saturated);
delta_fasted := (fasted - recommended_fasted) * fasted_factor;
it_previous :=  104.0;
metabolism :=  0.;
it_ksteps := (C_ksteps) * (delta_ksteps);
it_fat_other := factor1  * ( C_fat_other ) * ( (delta_fat_other) );
it_carb_other := factor1  * ( C_carb_other ) * ( (delta_carb_other) );
it_prot := factor1  * ( C_protein ) * ( (delta_prot) );
it_fiber := factor1  * ( C_fiber ) * ( (delta_fiber) );
it_sugar :=  factor1  * ( C_sugar ) * ( (delta_sugar) );
it_saturated := factor1  * ( C_saturated ) * ( (delta_saturated) );
it_fasted := ( C_fasted ) * ( (delta_fasted) );
prediction  := evalf(it_previous * prior_factor
 + metabolism
 + it_ksteps * cal_per_ksteps
 + it_fat_other * cal_per_gram_fat
 + it_carb_other * cal_per_gram_carb
 + it_prot * cal_per_gram_prot
 + it_fiber * cal_per_gram_carb
 + it_sugar * cal_per_gram_carb
 + it_saturated * cal_per_gram_fat
 + it_fasted);
it_previous := 104.0;
actual := 79.0;
previous := 104.0;
err := abs(prediction - actual);
perc_err := abs(err * 100.0) / actual;
delta_glucose := abs(previous - actual);
perc_delta := (delta_glucose * 100.0) / actual;
if (perc_err < min_perc_err) then min_perc_err := perc_err; fi;
if (perc_err > max_perc_err) then max_perc_err := perc_err; fi;
tot_perc_err := tot_perc_err + perc_err;
if (actual < low_actual) then low_actual := actual; fi;
if (actual > high_actual) then high_actual := actual; fi;
if (prediction < low_prediction) then low_prediction := prediction; fi;
if (prediction > high_prediction) then high_prediction := prediction; fi;
count := count + 1.0;
out2 := [count, perc_err, actual,prediction,it_previous,it_previous * prior_factor,metabolism,it_ksteps * cal_per_ksteps,it_fat_other*cal_per_gram_fat,it_carb_other*cal_per_gram_carb,it_prot*cal_per_gram_prot,it_fiber*cal_per_gram_carb,it_sugar*cal_per_gram_carb,it_saturated*cal_per_gram_fat,it_fasted,order2, delta_method, kstep_method, recommended_ksteps, kstep_exponent, kstep_factor, recommended_fat, recommended_carb, recommended_prot, recommended_fiber, recommended_sugar, recommended_saturated ,factor1, factor2, recommended_fasted,prior_factor,fasted_factor,eliminate_extremes,ksteps,fat_other,carb_other,prot,fiber,sugar,saturated,fasted,C_ksteps,C_fat_other,C_carb_other,C_protein,C_fiber,C_sugar,C_saturated,C_fasted,cal_per_gram_carb,cal_per_gram_prot,cal_per_gram_fat,cal_per_ksteps];
writedata("OUT/out130_work.tmp", out2);
ksteps := 10.0;
kstep_factor := 20.;
fat := 139.0;
carb := 393.0;
prot := 66.9;
fiber := 13.2;
sugar := 163.0;
saturated := 55.7;
fasted := 7.5;
fat_other := 83.3;
carb_other := 216.8;
delta_ksteps :=  (recommended_ksteps - ksteps) * kstep_factor;
delta_fat_other := (fat_other - recommended_fat_other);
delta_carb_other := (carb_other - recommended_carb_other);
delta_prot := (prot - recommended_prot);
delta_fiber := (fiber - recommended_fiber);
delta_sugar := (sugar - recommended_sugar);
delta_saturated := (saturated - recommended_saturated);
delta_fasted := (fasted - recommended_fasted) * fasted_factor;
it_previous :=  92.0;
metabolism :=  0.;
it_ksteps := (C_ksteps) * (delta_ksteps);
it_fat_other := factor1  * ( C_fat_other ) * ( (delta_fat_other) );
it_carb_other := factor1  * ( C_carb_other ) * ( (delta_carb_other) );
it_prot := factor1  * ( C_protein ) * ( (delta_prot) );
it_fiber := factor1  * ( C_fiber ) * ( (delta_fiber) );
it_sugar :=  factor1  * ( C_sugar ) * ( (delta_sugar) );
it_saturated := factor1  * ( C_saturated ) * ( (delta_saturated) );
it_fasted := ( C_fasted ) * ( (delta_fasted) );
prediction  := evalf(it_previous * prior_factor
 + metabolism
 + it_ksteps * cal_per_ksteps
 + it_fat_other * cal_per_gram_fat
 + it_carb_other * cal_per_gram_carb
 + it_prot * cal_per_gram_prot
 + it_fiber * cal_per_gram_carb
 + it_sugar * cal_per_gram_carb
 + it_saturated * cal_per_gram_fat
 + it_fasted);
it_previous := 92.0;
actual := 110.0;
previous := 92.0;
err := abs(prediction - actual);
perc_err := abs(err * 100.0) / actual;
delta_glucose := abs(previous - actual);
perc_delta := (delta_glucose * 100.0) / actual;
if (perc_err < min_perc_err) then min_perc_err := perc_err; fi;
if (perc_err > max_perc_err) then max_perc_err := perc_err; fi;
tot_perc_err := tot_perc_err + perc_err;
if (actual < low_actual) then low_actual := actual; fi;
if (actual > high_actual) then high_actual := actual; fi;
if (prediction < low_prediction) then low_prediction := prediction; fi;
if (prediction > high_prediction) then high_prediction := prediction; fi;
count := count + 1.0;
out2 := [count, perc_err, actual,prediction,it_previous,it_previous * prior_factor,metabolism,it_ksteps * cal_per_ksteps,it_fat_other*cal_per_gram_fat,it_carb_other*cal_per_gram_carb,it_prot*cal_per_gram_prot,it_fiber*cal_per_gram_carb,it_sugar*cal_per_gram_carb,it_saturated*cal_per_gram_fat,it_fasted,order2, delta_method, kstep_method, recommended_ksteps, kstep_exponent, kstep_factor, recommended_fat, recommended_carb, recommended_prot, recommended_fiber, recommended_sugar, recommended_saturated ,factor1, factor2, recommended_fasted,prior_factor,fasted_factor,eliminate_extremes,ksteps,fat_other,carb_other,prot,fiber,sugar,saturated,fasted,C_ksteps,C_fat_other,C_carb_other,C_protein,C_fiber,C_sugar,C_saturated,C_fasted,cal_per_gram_carb,cal_per_gram_prot,cal_per_gram_fat,cal_per_ksteps];
writedata("OUT/out131_work.tmp", out2);
ksteps := 10.0;
kstep_factor := 20.;
fat := 213.0;
carb := 189.0;
prot := 99.0;
fiber := 27.3;
sugar := 90.9;
saturated := 33.9;
fasted := 7.0;
fat_other := 179.1;
carb_other := 70.8;
delta_ksteps :=  (recommended_ksteps - ksteps) * kstep_factor;
delta_fat_other := (fat_other - recommended_fat_other);
delta_carb_other := (carb_other - recommended_carb_other);
delta_prot := (prot - recommended_prot);
delta_fiber := (fiber - recommended_fiber);
delta_sugar := (sugar - recommended_sugar);
delta_saturated := (saturated - recommended_saturated);
delta_fasted := (fasted - recommended_fasted) * fasted_factor;
it_previous :=  100.0;
metabolism :=  0.;
it_ksteps := (C_ksteps) * (delta_ksteps);
it_fat_other := factor1  * ( C_fat_other ) * ( (delta_fat_other) );
it_carb_other := factor1  * ( C_carb_other ) * ( (delta_carb_other) );
it_prot := factor1  * ( C_protein ) * ( (delta_prot) );
it_fiber := factor1  * ( C_fiber ) * ( (delta_fiber) );
it_sugar :=  factor1  * ( C_sugar ) * ( (delta_sugar) );
it_saturated := factor1  * ( C_saturated ) * ( (delta_saturated) );
it_fasted := ( C_fasted ) * ( (delta_fasted) );
prediction  := evalf(it_previous * prior_factor
 + metabolism
 + it_ksteps * cal_per_ksteps
 + it_fat_other * cal_per_gram_fat
 + it_carb_other * cal_per_gram_carb
 + it_prot * cal_per_gram_prot
 + it_fiber * cal_per_gram_carb
 + it_sugar * cal_per_gram_carb
 + it_saturated * cal_per_gram_fat
 + it_fasted);
it_previous := 100.0;
actual := 92.0;
previous := 100.0;
err := abs(prediction - actual);
perc_err := abs(err * 100.0) / actual;
delta_glucose := abs(previous - actual);
perc_delta := (delta_glucose * 100.0) / actual;
if (perc_err < min_perc_err) then min_perc_err := perc_err; fi;
if (perc_err > max_perc_err) then max_perc_err := perc_err; fi;
tot_perc_err := tot_perc_err + perc_err;
if (actual < low_actual) then low_actual := actual; fi;
if (actual > high_actual) then high_actual := actual; fi;
if (prediction < low_prediction) then low_prediction := prediction; fi;
if (prediction > high_prediction) then high_prediction := prediction; fi;
count := count + 1.0;
out2 := [count, perc_err, actual,prediction,it_previous,it_previous * prior_factor,metabolism,it_ksteps * cal_per_ksteps,it_fat_other*cal_per_gram_fat,it_carb_other*cal_per_gram_carb,it_prot*cal_per_gram_prot,it_fiber*cal_per_gram_carb,it_sugar*cal_per_gram_carb,it_saturated*cal_per_gram_fat,it_fasted,order2, delta_method, kstep_method, recommended_ksteps, kstep_exponent, kstep_factor, recommended_fat, recommended_carb, recommended_prot, recommended_fiber, recommended_sugar, recommended_saturated ,factor1, factor2, recommended_fasted,prior_factor,fasted_factor,eliminate_extremes,ksteps,fat_other,carb_other,prot,fiber,sugar,saturated,fasted,C_ksteps,C_fat_other,C_carb_other,C_protein,C_fiber,C_sugar,C_saturated,C_fasted,cal_per_gram_carb,cal_per_gram_prot,cal_per_gram_fat,cal_per_ksteps];
writedata("OUT/out132_work.tmp", out2);
ksteps := 14.0;
kstep_factor := 20.;
fat := 74.3;
carb := 266.0;
prot := 43.8;
fiber := 29.2;
sugar := 94.0;
saturated := 19.7;
fasted := 6.0;
fat_other := 54.6;
carb_other := 142.8;
delta_ksteps :=  (recommended_ksteps - ksteps) * kstep_factor;
delta_fat_other := (fat_other - recommended_fat_other);
delta_carb_other := (carb_other - recommended_carb_other);
delta_prot := (prot - recommended_prot);
delta_fiber := (fiber - recommended_fiber);
delta_sugar := (sugar - recommended_sugar);
delta_saturated := (saturated - recommended_saturated);
delta_fasted := (fasted - recommended_fasted) * fasted_factor;
it_previous :=  93.0;
metabolism :=  0.;
it_ksteps := (C_ksteps) * (delta_ksteps);
it_fat_other := factor1  * ( C_fat_other ) * ( (delta_fat_other) );
it_carb_other := factor1  * ( C_carb_other ) * ( (delta_carb_other) );
it_prot := factor1  * ( C_protein ) * ( (delta_prot) );
it_fiber := factor1  * ( C_fiber ) * ( (delta_fiber) );
it_sugar :=  factor1  * ( C_sugar ) * ( (delta_sugar) );
it_saturated := factor1  * ( C_saturated ) * ( (delta_saturated) );
it_fasted := ( C_fasted ) * ( (delta_fasted) );
prediction  := evalf(it_previous * prior_factor
 + metabolism
 + it_ksteps * cal_per_ksteps
 + it_fat_other * cal_per_gram_fat
 + it_carb_other * cal_per_gram_carb
 + it_prot * cal_per_gram_prot
 + it_fiber * cal_per_gram_carb
 + it_sugar * cal_per_gram_carb
 + it_saturated * cal_per_gram_fat
 + it_fasted);
it_previous := 93.0;
actual := 100.0;
previous := 93.0;
err := abs(prediction - actual);
perc_err := abs(err * 100.0) / actual;
delta_glucose := abs(previous - actual);
perc_delta := (delta_glucose * 100.0) / actual;
if (perc_err < min_perc_err) then min_perc_err := perc_err; fi;
if (perc_err > max_perc_err) then max_perc_err := perc_err; fi;
tot_perc_err := tot_perc_err + perc_err;
if (actual < low_actual) then low_actual := actual; fi;
if (actual > high_actual) then high_actual := actual; fi;
if (prediction < low_prediction) then low_prediction := prediction; fi;
if (prediction > high_prediction) then high_prediction := prediction; fi;
count := count + 1.0;
out2 := [count, perc_err, actual,prediction,it_previous,it_previous * prior_factor,metabolism,it_ksteps * cal_per_ksteps,it_fat_other*cal_per_gram_fat,it_carb_other*cal_per_gram_carb,it_prot*cal_per_gram_prot,it_fiber*cal_per_gram_carb,it_sugar*cal_per_gram_carb,it_saturated*cal_per_gram_fat,it_fasted,order2, delta_method, kstep_method, recommended_ksteps, kstep_exponent, kstep_factor, recommended_fat, recommended_carb, recommended_prot, recommended_fiber, recommended_sugar, recommended_saturated ,factor1, factor2, recommended_fasted,prior_factor,fasted_factor,eliminate_extremes,ksteps,fat_other,carb_other,prot,fiber,sugar,saturated,fasted,C_ksteps,C_fat_other,C_carb_other,C_protein,C_fiber,C_sugar,C_saturated,C_fasted,cal_per_gram_carb,cal_per_gram_prot,cal_per_gram_fat,cal_per_ksteps];
writedata("OUT/out133_work.tmp", out2);
ksteps := 14.0;
kstep_factor := 20.;
fat := 99.8;
carb := 195.0;
prot := 83.5;
fiber := 22.4;
sugar := 64.0;
saturated := 27.9;
fasted := 6.5;
fat_other := 71.9;
carb_other := 108.6;
delta_ksteps :=  (recommended_ksteps - ksteps) * kstep_factor;
delta_fat_other := (fat_other - recommended_fat_other);
delta_carb_other := (carb_other - recommended_carb_other);
delta_prot := (prot - recommended_prot);
delta_fiber := (fiber - recommended_fiber);
delta_sugar := (sugar - recommended_sugar);
delta_saturated := (saturated - recommended_saturated);
delta_fasted := (fasted - recommended_fasted) * fasted_factor;
it_previous :=  93.0;
metabolism :=  0.;
it_ksteps := (C_ksteps) * (delta_ksteps);
it_fat_other := factor1  * ( C_fat_other ) * ( (delta_fat_other) );
it_carb_other := factor1  * ( C_carb_other ) * ( (delta_carb_other) );
it_prot := factor1  * ( C_protein ) * ( (delta_prot) );
it_fiber := factor1  * ( C_fiber ) * ( (delta_fiber) );
it_sugar :=  factor1  * ( C_sugar ) * ( (delta_sugar) );
it_saturated := factor1  * ( C_saturated ) * ( (delta_saturated) );
it_fasted := ( C_fasted ) * ( (delta_fasted) );
prediction  := evalf(it_previous * prior_factor
 + metabolism
 + it_ksteps * cal_per_ksteps
 + it_fat_other * cal_per_gram_fat
 + it_carb_other * cal_per_gram_carb
 + it_prot * cal_per_gram_prot
 + it_fiber * cal_per_gram_carb
 + it_sugar * cal_per_gram_carb
 + it_saturated * cal_per_gram_fat
 + it_fasted);
it_previous := 93.0;
actual := 93.0;
previous := 93.0;
err := abs(prediction - actual);
perc_err := abs(err * 100.0) / actual;
delta_glucose := abs(previous - actual);
perc_delta := (delta_glucose * 100.0) / actual;
if (perc_err < min_perc_err) then min_perc_err := perc_err; fi;
if (perc_err > max_perc_err) then max_perc_err := perc_err; fi;
tot_perc_err := tot_perc_err + perc_err;
if (actual < low_actual) then low_actual := actual; fi;
if (actual > high_actual) then high_actual := actual; fi;
if (prediction < low_prediction) then low_prediction := prediction; fi;
if (prediction > high_prediction) then high_prediction := prediction; fi;
count := count + 1.0;
out2 := [count, perc_err, actual,prediction,it_previous,it_previous * prior_factor,metabolism,it_ksteps * cal_per_ksteps,it_fat_other*cal_per_gram_fat,it_carb_other*cal_per_gram_carb,it_prot*cal_per_gram_prot,it_fiber*cal_per_gram_carb,it_sugar*cal_per_gram_carb,it_saturated*cal_per_gram_fat,it_fasted,order2, delta_method, kstep_method, recommended_ksteps, kstep_exponent, kstep_factor, recommended_fat, recommended_carb, recommended_prot, recommended_fiber, recommended_sugar, recommended_saturated ,factor1, factor2, recommended_fasted,prior_factor,fasted_factor,eliminate_extremes,ksteps,fat_other,carb_other,prot,fiber,sugar,saturated,fasted,C_ksteps,C_fat_other,C_carb_other,C_protein,C_fiber,C_sugar,C_saturated,C_fasted,cal_per_gram_carb,cal_per_gram_prot,cal_per_gram_fat,cal_per_ksteps];
writedata("OUT/out134_work.tmp", out2);
order2 := 1;
factor1 := 1.;
factor2 := 0.;
delta_method := 3;
kstep_method := 1;
recommended_ksteps := 100.;
kstep_exponent := 1;
kstep_factor := 20.;
recommended_fat := 2.;
recommended_carb := 3.;
recommended_prot := 1.;
recommended_fiber := 1.;
recommended_sugar := 1.;
recommended_saturated := 1.;
recommended_fasted := 5.;
print("max_perc_err := ", max_err);
ave_perc_err :=  tot_perc_err / count;
print("min_max_how_good := ", 100.0 / max_how_good);
out := [ave_perc_err, min_perc_err, max_perc_err, low_actual,high_actual,low_prediction,high_prediction, order2, delta_method, kstep_method, recommended_ksteps, kstep_exponent, kstep_factor, recommended_fat, recommended_carb, recommended_prot, recommended_fiber, recommended_sugar, recommended_saturated ,factor1, factor2, recommended_fasted,prior_factor,fasted_factor,eliminate_extremes,metabolism];
writedata("entry_work.txt", out);
out2 := [0, 0, 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0];
writedata("OUT/out___________work.tmp", out2);
quit;