www/includes/formulas.php

changeset 103
895829b91057
parent 101
5b6bb99bc52a
child 147
e6e5d007eb54
--- a/www/includes/formulas.php	Sat Nov 17 21:59:06 2018 +0100
+++ b/www/includes/formulas.php	Sat Nov 17 23:29:11 2018 +0100
@@ -627,8 +627,6 @@
 end;
 
 
-  CalcBitterness;
-
         // Get concentration of ions in diluted brewwater (1) and target water (2) in mmol/l
         Ca1 := W.Calcium.Value / MMCa;
         Ca2 := W2.Calcium.Value / MMCa;
@@ -678,31 +676,6 @@
 
 
 
-function TRecipe.CalcColorWort : double;
-var
-  i: integer;
-  F: TFermentable;
-  c, v: double;
-begin
-  c := 0;
-  v := FBatchSize.Value;
-  if (v > 0) and (High(FFermentables) >= 0) then
-  begin
-    for i := Low(FFermentables) to High(FFermentables) do
-    begin
-      F := TFermentable(FFermentables[i]);
-      c := c + F.Amount.Value * F.Color.Value / v;
-    end;
-    c := c * 8.34436;
-    case FColorMethod of
-      cmMorey: c := 1.49 * Power(c, 0.69);
-      cmMosher: c := 0.3 * c + 4.7;
-      cmDaniels: c := 0.2 * c + 8.4;
-    end;
-  end;
-  Result:= c;
-end;
-
 
 procedure TRecipe.CalcWaterBalance;
 var

mercurial