// Copyright 2001 David Bourne david@boomer.org

function c1408a(form1)
{

	var volume;
	var kel;
	var clearance;

	document.form1.number.value = Math.round((9999-99)*Math.random()+99.5);
	document.form1.weight.value = roundit((120-30)*Math.random()+30,3);
	document.form1.dose.value = roundit((1000-10)*Math.random()+10,3);
	document.form1.tau.value = roundit((24-4)*Math.random()+4,2);
	document.form1.volume.value = roundit((5-0.1)*Math.random()+0.1,3);
	volume = document.form1.volume.value;
	document.form1.kel.value = roundit((0.2-0.01)*Math.random()+0.01,3);
	kel = document.form1.kel.value;
	clearance = volume * kel;
	document.form1.CL.value = roundit(clearance,3);
	
}

function c1408c(form2)
{

	var volume;
	var kel;
	var clearance;

	document.form2.number.value = Math.round((9999-99)*Math.random()+99.5);
	document.form2.weight.value = roundit((120-30)*Math.random()+30,3);
	document.form2.cpmax.value = roundit((40-5)*Math.random()+5,3);
	document.form2.cpmin.value = roundit((2-.25)*Math.random()+.25,2);
	document.form2.volume.value = roundit((5-0.1)*Math.random()+0.1,3);
	volume = document.form2.volume.value;
	document.form2.kel.value = roundit((0.2-0.01)*Math.random()+0.01,3);
	kel = document.form2.kel.value;
	clearance = volume * kel;
	document.form2.CL.value = roundit(clearance,3);
	
}

function c1408b(form1)
{
	var weight;
	var dose;
	var tau;
	var volume;
	var kel;
	var clearance;
	
	var temp;
	var R;
	
	var cpmin;
	var cpmax;
	
	weight = document.form1.weight.value;
	if (weight < 30)
	{
		alert ("Please enter a weight value > 30");
		return false;
	}
	dose = document.form1.dose.value;
	if (dose < 10)
	{
		alert ("Please enter a dose value > 10");
		return false;
	}
	tau = document.form1.tau.value;
	if (tau < 4)
	{
		alert ("Please enter a tau value > 4");
		return false;
	}
	volume = document.form1.volume.value;
	if (volume < 0.1)
	{
		alert ("Please enter a volume (L/Kg) value > 0.1");
		return false;
	}
	kel = document.form1.kel.value;
	clearance = document.form1.CL.value;
	if (kel < 0.01 && clearance < 0.001)
	{
		alert ("Please enter a kel or a clearance value > 0.0");
		return false;
	}
		
	volume = volume * weight;
	if (kel < 0.01)
	{
		kel = clearance/volume;
	}
	
	R = Math.exp(-kel*tau);
	
	cpmin = R*dose/(volume*(1.0-R));
	cpmax = dose/(volume*(1.0-R));
	
	document.form1.cpmin.value  = roundit(cpmin,3);
	document.form1.cpmax.value  = roundit(cpmax,3);
	
}

function c1408d(form2)
{
	var weight;
	var cpmin;
	var cpmax;
	var volume;
	var kel;
	var clearance;
	
	var temp;
	var R;
	
	var tau;
	var dose;
	
	weight = document.form2.weight.value;
	if (weight < 30)
	{
		alert ("Please enter a weight value > 30");
		return false;
	}
	cpmax = document.form2.cpmax.value;
	if (cpmax < 5)
	{
		alert ("Please enter a Cpmax value > 5");
		return false;
	}
	cpmin = document.form2.cpmin.value;
	if (cpmin < 0.25)
	{
		alert ("Please enter a Cpmin value > 0.25");
		return false;
	}
	volume = document.form2.volume.value;
	if (volume < 0.1)
	{
		alert ("Please enter a volume (L/Kg) value > 0.1");
		return false;
	}
	kel = document.form2.kel.value;
	clearance = document.form2.CL.value;
	if (kel < 0.01 && clearance < 0.001)
	{
		alert ("Please enter a kel or a clearance value > 0.0");
		return false;
	}
		
	volume = volume * weight;
	if (kel < 0.01)
	{
		kel = clearance/volume;
	}
	
	tau = -(Math.log(cpmin/cpmax))/kel;
	//kel;

	document.form2.tau.value  = roundit(tau,3);
	document.form2.tauprime.value  = "";
	document.form2.ldose.value  = "";
	document.form2.mdose.value  = "";
	document.form2.taup.value  = "";
	
}

function c1408e(form2)
{
	var weight;
	var cpmin;
	var cpmax;
	var volume;
	var kel;
	var clearance;
	
	var temp;
	var R;
	
	var tau;
	var taup;
	var mdose;
	var ldose;
	
	weight = document.form2.weight.value;
	if (weight < 30)
	{
		alert ("Please enter a weight value > 30");
		return false;
	}
	cpmax = document.form2.cpmax.value;
	if (cpmax < 5)
	{
		alert ("Please enter a Cpmax value > 5");
		return false;
	}
	cpmin = document.form2.cpmin.value;
	if (cpmin < 0.25)
	{
		alert ("Please enter a Cpmin value > 0.25");
		return false;
	}
	volume = document.form2.volume.value;
	if (volume < 0.1)
	{
		alert ("Please enter a volume (L/Kg) value > 0.1");
		return false;
	}
	kel = document.form2.kel.value;
	clearance = document.form2.CL.value;
	if (kel < 0.01 && clearance < 0.001)
	{
		alert ("Please enter a kel or a clearance value > 0.0");
		return false;
	}	

	volume = volume * weight;
	if (kel < 0.01)
	{
		kel = clearance/volume;
	}

	tau = document.form2.tau.value;
	taup = document.form2.tauprime.value;
	if (taup > tau)
	{
		alert ("Please round the value of tau down not up");
		return false;
	}
	if (taup < 0.1)
	{
		alert ("Please enter a rounded value of tau")
		return false;
	}
	

	R = Math.exp(-kel*taup);
	mdose = cpmax*volume*(1-R);
	ldose = Math.floor(cpmax*volume);

	document.form2.ldose.value  = roundit(ldose,3);
	document.form2.mdose.value  = roundit(mdose,3);
	document.form2.taup.value  = taup;
	
}

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;
}