// Copyright 2004 David Bourne david@boomer.org

function c1201a(form1)
{
	var phg;
	var phb;
	var pka;

	var agi;
	var agu;
	var abi;
	var abu;
	var dvalue;

	var gto;
	var bto;
	var tot;
	
	var pgu;
	var pgi;
	var pbu;
	var pbi;

	phg   = document.form1.phg.value;
	phb   = document.form1.phb.value;
	pka   = document.form1.pka.value;
	
	agu = 1.;
	abu = 1.;

	agi = Math.pow(10,phg-pka);
	abi = Math.pow(10,phb-pka);
	
	gto = agu + agi;
	bto = abu + abi;
	
	tot = gto + bto;
	
	agu = 100.*agu/tot;
	abu = 100.*abu/tot;
	agi = 100.*agi/tot;
	abi = 100.*abi/tot;
	
	gto = 100*gto/tot;
	bto = 100*bto/tot;
	
	pgu = 100*agu/gto;
	pgi = 100*agi/gto;
	pbu = 100*abu/bto;
	pbi = 100*abi/bto;
	
	document.form1.agu.value = roundit(agu,3);
	document.form1.abu.value = roundit(abu,3);


	document.form1.agi.value = roundit(agi,3);
	document.form1.abi.value = roundit(abi,3);

	dvalue = (abu+abi)/(agu+agi);

	document.form1.gto.value = roundit(gto,3);
	document.form1.bto.value = roundit(bto,3);

	document.form1.pgu.value = roundit(pgu,3);
	document.form1.pgi.value = roundit(pgi,3);
	document.form1.pbu.value = roundit(pbu,3);
	document.form1.pbi.value = roundit(pbi,3);

	document.form1.dvalue.value = roundit(dvalue,3);
	
}

function c1202a(form2)
{
	var phg;
	var phb;
	var pka;
	var pba;

	var agi;
	var agu;
	var abi;
	var abu;
	var dvalue;
	
	var gto;
	var bto;
	var tot;
	
	var pgu;
	var pgi;
	var pbu;
	var pbi;

	phg   = document.form2.phg.value;
	phb   = document.form2.phb.value;
	pka   = document.form2.pka.value;
	pkb   = document.form2.pkb.value;
	
	if (pka <= 0)
	{
		pka = 14. - pkb;
	}
	
	pkb = 14. - pka;
	
	agu = 1.;
	abu = 1.;

	agi = Math.pow(10,pka-phg);
	abi = Math.pow(10,pka-phb);
	
	gto = agu + agi;
	bto = abu + abi;
	
	tot = gto + bto;
	
	agu = 100.*agu/tot;
	abu = 100.*abu/tot;
	agi = 100.*agi/tot;
	abi = 100.*abi/tot;
	
	gto = 100*gto/tot;
	bto = 100*bto/tot;
	
	pgu = 100*agu/gto;
	pgi = 100*agi/gto;
	pbu = 100*abu/bto;
	pbi = 100*abi/bto;
	
	document.form2.agu.value = roundit(agu,3);
	document.form2.abu.value = roundit(abu,3);


	document.form2.agi.value = roundit(agi,3);
	document.form2.abi.value = roundit(abi,3);

	dvalue = (abu+abi)/(agu+agi);

	document.form2.dvalue.value = roundit(dvalue,3);
	
	document.form2.gto.value = roundit(gto,3);
	document.form2.bto.value = roundit(bto,3);

	document.form2.pgu.value = roundit(pgu,3);
	document.form2.pgi.value = roundit(pgi,3);
	document.form2.pbu.value = roundit(pbu,3);
	document.form2.pbi.value = roundit(pbi,3);

	document.form2.pka.value = roundit(pka,3);
	document.form2.pkb.value = roundit(pkb,3);
}

function roundit(a,b)

// a is value and b is number of significant digits returned

{
         c = b - Math.round(0.5 + (Math.log(a)/Math.log(10)));
         c = Math.pow(10,c);
         c = Math.round(c*a)/c;
         return c;
}