// Copyright 2001 David W.A. Bourne (david@boomer.org)
function tpk(form1)
{
var kel = 0;
var ka = 0;
var tpk = 0;
kel = 1.0*document.form1.kel.value;
ka = 1.0*document.form1.ka.value;
if (ka == kel)
{
tpk = 1.0/kel;
}
else
{
tpk = (1.0/(ka - kel))*Math.log(ka/kel);
}
document.form1.tpeak.value = roundit(tpk,3);
return false;
}
function cpm(form1)
{
var kel = 0;
var ka = 0;
var tpk = 0;
var dose = 0;
var f = 0;
var v = 0;
var cpk = 0;
kel = 1.0*document.form1.kel.value;
ka = 1.0*document.form1.ka.value;
tpk = 1.0*document.form1.tpeak.value;
dose = 1.0*document.form1.dose.value;
f = 1.0*document.form1.f.value;
v = 1.0*document.form1.v.value;
if (tpk == 0)
{
alert("You must calculate t(max) first");
return false;
}
if (ka == kel)
{
cpk = 1.0*f*dose*Math.exp(-1.)/v;
}
else
{
cpk = 1.0*f*dose*Math.exp(-kel*tpk)/v;
}
document.form1.cpeak.value = roundit(cpk,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);
}