[modified] u_feedingcalc2.pasのStandardDailyWeightGainを訂正

diff --git a/u_feedingcalc2.pas b/u_feedingcalc2.pas
index 24b551c..aec9a3f 100644 (file)
--- a/u_feedingcalc2.pas
+++ b/u_feedingcalc2.pas
@@ -1357,9 +1357,9 @@ function StandardDailyWeightGain(var dWt : Double) : Double;
 {    体重kg   １日増体重kg
  ----------------------------
     40～42      0.0
-      43         0.1
-      44         0.2
-      45         0.3
+      43             0.1
+      44             0.2
+      45             0.3
     46～47      0.4
     48～50      0.5
     51～54      0.6
@@ -1372,7 +1372,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 ;
@@ -1392,6 +1396,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;