function invullen()
{
document.tester.Ca.value=82.2
document.tester.Mg.value=17.9
document.tester.Na.value=46.4
document.tester.K.value=15.5
document.tester.HCO3.value=220
document.tester.SO4.value=98.3
document.tester.Cl.value=78.0
document.tester.NO3.value=25.6
}

function concentratio()
{
var gamma=document.tester.gamma.value*1
var tempera=document.tester.tempera.value*1
var eenheidtemperatuur=document.tester.eenheidtemperatuur.value

if		(eenheidtemperatuur=="1"){tempera=tempera}
else if	(eenheidtemperatuur=="2"){tempera=0.555*(tempera-32)}
else if (eenheidtemperatuur=="3"){tempera=tempera-273}

ksp=9e-9*Math.exp(-0.0277*tempera)
concentratie=Math.sqrt(ksp)/gamma
concentratiemg=concentratie*40000

document.tester.concentratie.value=concentratie
document.tester.concentratiemg.value=concentratiemg
document.tester.concentratie.value=concentratie.toPrecision(3)
document.tester.concentratiemg.value=concentratiemg.toPrecision(3)
}

function testen()
{
var Ca=document.tester.Ca.value*1
var Mg=document.tester.Mg.value*1
var Na=document.tester.Na.value*1
var K=document.tester.K.value*1
var HCO3=document.tester.HCO3.value*1
var SO4=document.tester.SO4.value*1
var Cl=document.tester.Cl.value*1
var NO3=document.tester.NO3.value*1

var eenheidCa=document.tester.eenheidCa.value
var eenheidMg=document.tester.eenheidMg.value
var eenheidNa=document.tester.eenheidNa.value
var eenheidK=document.tester.eenheidK.value
var eenheidHCO3=document.tester.eenheidHCO3.value
var eenheidSO4=document.tester.eenheidSO4.value
var eenheidCl=document.tester.eenheidCl.value
var eenheidNO3=document.tester.eenheidNO3.value

if 		(eenheidCa=="1")	{Camoleliter=Ca/40.1}
else if (eenheidCa=="2")	{Camoleliter=Ca/40.1}
else if (eenheidCa=="3")	{Camoleliter=Ca/40.1}
else if (eenheidCa=="4")	{Camoleliter=Ca/2*1e3}
else if (eenheidCa=="5")	{Camoleliter=Ca/2}
else if (eenheidCa=="6")	{Camoleliter=Ca*1e3}
else if (eenheidCa=="7")	{Camoleliter=Ca}

if 		(eenheidMg=="1")	{Mgmoleliter=Mg/24.3}
else if (eenheidMg=="2")	{Mgmoleliter=Mg/24.3}
else if (eenheidMg=="3")	{Mgmoleliter=Mg/24.3}
else if (eenheidMg=="4")	{Mgmoleliter=Mg/2*1e3}
else if (eenheidMg=="5")	{Mgmoleliter=Mg/2}
else if (eenheidMg=="6")	{Mgmoleliter=Mg*1e3}
else if (eenheidMg=="7")	{Mgmoleliter=Mg}

if 		(eenheidNa=="1")	{Namoleliter=Na/23.0}
else if (eenheidNa=="2")	{Namoleliter=Na/23.0}
else if (eenheidNa=="3")	{Namoleliter=Na/23.0}
else if (eenheidNa=="4")	{Namoleliter=Na*1e3}
else if (eenheidNa=="5")	{Namoleliter=Na}
else if (eenheidNa=="6")	{Namoleliter=Na*1e3}
else if (eenheidNa=="7")	{Namoleliter=Na}

if 		(eenheidK=="1")		{Kmoleliter=K/39.1}
else if (eenheidK=="2")		{Kmoleliter=K/39.1}
else if (eenheidK=="3")		{Kmoleliter=K/39.1}
else if (eenheidK=="4")		{Kmoleliter=K*1e3}
else if (eenheidK=="5")		{Kmoleliter=K}
else if (eenheidK=="6")		{Kmoleliter=K*1e3}
else if (eenheidK=="7")		{Kmoleliter=K}

if 		(eenheidHCO3=="1")	{HCO3moleliter=HCO3/61.0}
else if (eenheidHCO3=="2")	{HCO3moleliter=HCO3/61.0}
else if (eenheidHCO3=="3")	{HCO3moleliter=HCO3/61.0}
else if (eenheidHCO3=="4")	{HCO3moleliter=HCO3*1e3}
else if (eenheidHCO3=="5")	{HCO3moleliter=HCO3}
else if (eenheidHCO3=="6")	{HCO3moleliter=HCO3*1e3}
else if (eenheidHCO3=="7")	{HCO3moleliter=HCO3}

if 		(eenheidSO4=="1")	{SO4moleliter=SO4/96.1}
else if (eenheidSO4=="2")	{SO4moleliter=SO4/96.1}
else if (eenheidSO4=="3")	{SO4moleliter=SO4/96.1}
else if (eenheidSO4=="4")	{SO4moleliter=SO4*1e3}
else if (eenheidSO4=="5")	{SO4moleliter=SO4}
else if (eenheidSO4=="6")	{SO4moleliter=SO4*1e3}
else if (eenheidSO4=="7")	{SO4moleliter=SO4}

if 		(eenheidCl=="1")	{Clmoleliter=Cl/35.5}
else if (eenheidCl=="2")	{Clmoleliter=Cl/35.5}
else if (eenheidCl=="3")	{Clmoleliter=Cl/35.5}
else if (eenheidCl=="4")	{Clmoleliter=Cl*1e3}
else if (eenheidCl=="5")	{Clmoleliter=Cl}
else if (eenheidCl=="6")	{Clmoleliter=Cl*1e3}
else if (eenheidCl=="7")	{Clmoleliter=Cl}

if 		(eenheidNO3=="1")	{NO3moleliter=NO3/62.0}
else if (eenheidNO3=="2")	{NO3moleliter=NO3/62.0}
else if (eenheidNO3=="3")	{NO3moleliter=NO3/62.0}
else if (eenheidNO3=="4")	{NO3moleliter=NO3*1e3}
else if (eenheidNO3=="5")	{NO3moleliter=NO3}
else if (eenheidNO3=="6")	{NO3moleliter=NO3*1e3}
else if (eenheidNO3=="7")	{NO3moleliter=NO3}

document.tester.Camoleliter.value=Camoleliter
document.tester.Mgmoleliter.value=Mgmoleliter
document.tester.Namoleliter.value=Namoleliter
document.tester.Kmoleliter.value=Kmoleliter
document.tester.HCO3moleliter.value=HCO3moleliter
document.tester.SO4moleliter.value=SO4moleliter
document.tester.Clmoleliter.value=Clmoleliter
document.tester.NO3moleliter.value=NO3moleliter

document.tester.Camoleliter.value=Camoleliter.toPrecision(3)
document.tester.Mgmoleliter.value=Mgmoleliter.toPrecision(3)
document.tester.Namoleliter.value=Namoleliter.toPrecision(3)
document.tester.Kmoleliter.value=Kmoleliter.toPrecision(3)
document.tester.HCO3moleliter.value=HCO3moleliter.toPrecision(3)
document.tester.SO4moleliter.value=SO4moleliter.toPrecision(3)
document.tester.Clmoleliter.value=Clmoleliter.toPrecision(3)
document.tester.NO3moleliter.value=NO3moleliter.toPrecision(3)

CaforI=4*Camoleliter
MgforI=4*Mgmoleliter
NaforI=1*Namoleliter
KforI=1*Kmoleliter
HCO3forI=1*HCO3moleliter
SO4forI=4*SO4moleliter
ClforI=1*Clmoleliter
NO3forI=1*NO3moleliter

document.tester.CaforI.value=CaforI
document.tester.MgforI.value=MgforI
document.tester.NaforI.value=NaforI
document.tester.KforI.value=KforI
document.tester.HCO3forI.value=HCO3forI
document.tester.SO4forI.value=SO4forI
document.tester.ClforI.value=ClforI
document.tester.NO3forI.value=NO3forI

document.tester.CaforI.value=CaforI.toPrecision(3)
document.tester.MgforI.value=MgforI.toPrecision(3)
document.tester.NaforI.value=NaforI.toPrecision(3)
document.tester.KforI.value=KforI.toPrecision(3)
document.tester.HCO3forI.value=HCO3forI.toPrecision(3)
document.tester.SO4forI.value=SO4forI.toPrecision(3)
document.tester.ClforI.value=ClforI.toPrecision(3)
document.tester.NO3forI.value=NO3forI.toPrecision(3)

sumcI=CaforI+MgforI+NaforI+KforI
sumaI=HCO3forI+SO4forI+ClforI+NO3forI
totaalI=sumcI+sumaI
ionicstrength=0.5*totaalI/1000

with(Math)
{
wortelI=Math.sqrt(ionicstrength)
ymono=-(0.5*1*wortelI)/(1+wortelI)
ydiva=-(0.5*4*wortelI)/(1+wortelI)
actimonovalent=Math.pow(10,ymono)
actidivalent=Math.pow(10,ydiva)
}

document.tester.totaalI.value=totaalI
document.tester.actimonovalent.value=actimonovalent
document.tester.actidivalent.value=actidivalent
document.tester.ionicstrength.value=ionicstrength

document.tester.totaalI.value=totaalI.toPrecision(3)
document.tester.actimonovalent.value=actimonovalent.toPrecision(3)
document.tester.actidivalent.value=actidivalent.toPrecision(3)
document.tester.ionicstrength.value=ionicstrength.toPrecision(3)
}