// Copyright 2001 David W.A. Bourne (david@boomer.org)
function C0606a(form1)
{
var k0f = 0;
var k0s = 0;
var td = 0;
var kel = 0;
var V = 0;
var time = 0;
var Cpf = 0.0;
var Cps = 0.0;
var Cp = 0.0;
var CpX = 0.0;
k0f = 1.0*document.form1.k0f.value;
k0s = 1.0*document.form1.k0s.value;
td = 1.0*document.form1.td.value;
kel = 1.0*document.form1.kel.value;
V = 1.0*document.form1.V.value;
time = 1.0*document.form1.t.value;
// Don't allow negative time values
if (time < 0.0)
{
time = 0.0;
document.form1.t.value = 0.0;
}
// Cp from fast infusion
if (time > td)
{
tt = td
Cpf = (k0f/(kel*V))*(1.0-Math.exp(-kel*tt))*Math.exp(-kel*(time-tt));
}
else
{
tt = time
Cpf = (k0f/(kel*V))*(1.0-Math.exp(-kel*tt));
}
// Cpss from fast infusion
CpX = k0f/(kel*V);
// Cp from maintenance infusion starting at td
if (time > td)
{
Cps = (k0s/(kel*V))*(1.0-Math.exp(-kel*(time-td)));
}
if (time > 0.0)
{
document.form1.Cpf.value = roundit(Cpf,3);
}
else
{
document.form1.Cpf.value = "0.0";
}
if (time > td)
{
document.form1.Cps.value = roundit(Cps,3);
}
else
{
document.form1.Cps.value = "0.0";
}
Cp = Cps + Cpf;
document.form1.Cp.value = roundit(Cp,3);
document.form1.CpX.value = roundit(CpX,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);
}
*/