function CalcPH()
{
var mamul = [2.0, 1.11111, 1.0, .909091, 2.16897, 1.08448 ];
var temp, adj, delta, extra;
delta=parseFloat(document.F.PHto.value)-parseFloat(document.F.PHfrom.value);
delta*=GetGallons();
temp=(parseFloat(document.F.PHfrom.value)+
parseFloat(document.F.PHto.value))/2;
adj=(192.1626 + -60.1221*temp + 6.0752*temp*temp + -0.1943*temp*temp*temp) *
(parseInt(document.F.TAfrom.value)+13.91) / 114.6;
extra=(-5.476259 + 2.414292*temp + -0.355882*temp*temp +
0.01755*temp*temp*temp) * parseInt(document.F.BORfrom.value);
extra*=delta;
delta*=adj;
if (parseFloat(document.F.PHfrom.value)<parseFloat(document.F.PHto.value)) {
// Washing soda, soda ash
temp=(delta/218.68)+(extra/218.68);
document.F.PHU1oz.value=PutWeight(temp);
document.F.PHU1vol.value=PutVolume(temp * 0.8715);
// Borax
temp=(delta/110.05)+(extra/110.05);
document.F.PHU2oz.value=PutWeight(temp);
document.F.PHU2vol.value=PutVolume(temp * 0.9586);
}
else {
document.F.PHU1oz.value=document.F.PHU1vol.value=0;
document.F.PHU2oz.value=document.F.PHU2vol.value=0;
}
if (parseFloat(document.F.PHfrom.value)>parseFloat(document.F.PHto.value)) {
// Muriatic acid
temp=(delta / -240.15 * mamul[document.F.MApop.selectedIndex])+
(extra / -240.15 * mamul[document.F.MApop.selectedIndex]);
document.F.PHD1oz.value=PutVolume(temp);
// Dry acid
temp=(delta/-178.66)+(extra/-178.66);
document.F.PHD2oz.value=PutWeight(temp);
document.F.PHD2vol.value=PutVolume(temp * 0.6657);
}
else {
document.F.PHD1oz.value=0;
document.F.PHD2oz.value=document.F.PHD2vol.value=0;
}
}