[modified] u_feedingcalc2.pasのStandardDailyWeightGainを訂正

diff --git a/u_feedingcalc2.pas b/u_feedingcalc2.pas
index 2fe85dd..9e5694b 100644 (file)
--- a/u_feedingcalc2.pas
+++ b/u_feedingcalc2.pas
@@ -1370,7 +1370,11 @@ function StandardDailyWeightGain(var dWt : Double) : Double;
    282～344     0.7
    345～403     0.6
    404～461     0.5
-   462～504     0.4          }
+   462～517       0.4
+   518～572       0.3
+   573～626       0.2
+   627～680       0.1
+   681～707       0.0          }
 
 begin
   if( dWt >=  40 ) then StandardDailyWeightGain := 0.0 ;
@@ -1390,6 +1394,10 @@ begin
   if( dWt >= 345 ) then StandardDailyWeightGain := 0.6 ;
   if( dWt >= 404 ) then StandardDailyWeightGain := 0.5 ;
   if( dWt >= 462 ) then StandardDailyWeightGain := 0.4 ;
+  if( dWt >= 518 ) then StandardDailyWeightGain := 0.3 ;
+  if( dWt >= 573 ) then StandardDailyWeightGain := 0.2 ;
+  if( dWt >= 627 ) then StandardDailyWeightGain := 0.1 ;
+  if( dWt >= 681 ) then StandardDailyWeightGain := 0.0 ;
 
 end;