// Copyright 2001 David W.A. Bourne (david@boomer.org)
function C0605a(form1)
{
var k0 = 0;
var dose = 0;
var kel = 0;
var V = 0;
var time = 0;
var Cpb = 0.0;
var Cpi = 0.0;
var Cp = 0.0;
k0 = 1.0*document.form1.k0.value;
dose = 1.0*document.form1.dose.value;
kel = 1.0*document.form1.kel.value;
V = 1.0*document.form1.V.value;
time = 1.0*document.form1.t.value;
if (time < 0.0)
{
time = 0.0;
document.form1.t.value = 0.0;
}
Cpb = (dose/V)*Math.exp(-kel*time);
if (time > 0.0)
{
Cpi = (k0/(kel*V))*(1.0-Math.exp(-kel*time));
}
Cp = Cpb + Cpi;
document.form1.Cpb.value = roundit(Cpb,3);
if (time > 0.0)
{
document.form1.Cpi.value = roundit(Cpi,3);
}
else
{
document.form1.Cpi.value = "0.0";
}
document.form1.Cp.value = roundit(Cp,3);
return false;
}
function roundit(a,b)
{
var a;
var b;
var c;
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;
}
/*
function cb_help()
{
HelpWin = window.open('','NewWin','toolbar=0,status=0,width=200,height=300')
HelpWin.window.focus();
message = "Cp Average Help";
message += "
is calculated using the equation ";
message += "
";
message += "";
HelpWin.document.write(message);
}
*/