88:0a39cbdcf085 | 89:082c23b26055 |
---|---|
173 return 486.8693 * ($og - $fg) / (4.749804 - $fg); | 173 return 486.8693 * ($og - $fg) / (4.749804 - $fg); |
174 return 0; | 174 return 0; |
175 } | 175 } |
176 | 176 |
177 | 177 |
178 /* | |
179 * Kleurwerking naar SRM | |
180 */ | |
181 function kw_to_srm($colormethod, $c) { | |
182 | |
183 if ($colormethod == "Morey") | |
184 return 1.49 * pow($c, 0.69); | |
185 if ($colormethod == "Mosher") | |
186 return 0.3 * $c + 4.7; | |
187 if ($colormethod == "Daniels") | |
188 return 0.2 * $c + 8.4; | |
189 } | |
190 | |
191 | |
192 | |
193 function kw_to_ebc($colormethod, $c) { | |
194 return srm_to_ebc(kw_to_srm($colormethod, $c)); | |
195 } | |
196 | |
197 | |
178 | 198 |
179 /* | 199 /* |
180 | 200 |
181 Brouwhulp data.pas | 201 Brouwhulp data.pas |
182 | 202 |
535 Result := FIBUMax.Value / (1000 * (((FOGMax.Value + FOGMin.Value) / 2) - 1)); | 555 Result := FIBUMax.Value / (1000 * (((FOGMax.Value + FOGMin.Value) / 2) - 1)); |
536 end; | 556 end; |
537 end; | 557 end; |
538 | 558 |
539 | 559 |
540 CalcOG; | |
541 CalcBitterness; | 560 CalcBitterness; |
542 | 561 |
543 // Get concentration of ions in diluted brewwater (1) and target water (2) in mmol/l | 562 // Get concentration of ions in diluted brewwater (1) and target water (2) in mmol/l |
544 Ca1 := W.Calcium.Value / MMCa; | 563 Ca1 := W.Calcium.Value / MMCa; |
545 Ca2 := W2.Calcium.Value / MMCa; | 564 Ca2 := W2.Calcium.Value / MMCa; |