// Copyright 1999 David Bourne david@boomer.org
function cbar(form1)
{
kflag = 0;
iflag = 0;
iflag = iflag + 1*(document.form1.cb.value.length<1);
iflag = iflag + 2*(document.form1.f.value.length<1);
iflag = iflag + 4*(document.form1.dose.value.length<1);
iflag = iflag + 8*(document.form1.v.value.length<1);
iflag = iflag + 16*(document.form1.kel.value.length<1);
iflag = iflag + 32*(document.form1.tau.value.length<1);
cb = document.form1.cb.value;
f = document.form1.f.value;
dose = document.form1.dose.value;
v = document.form1.v.value;
kel = document.form1.kel.value;
tau = document.form1.tau.value;
if (iflag == 1) // cbar to be calculated
{
cb = 1*f*dose/(v*kel*tau);
document.form1.cb.value = roundit(cb,3);
kflag = 1;
}
if (iflag == 2) // f to be calculated
{
f = 1*cb*v*kel*tau/dose;
document.form1.f.value = roundit(f,3);
kflag = 1;
}
if (iflag == 4) // dose to be calculated
{
dose = 1*cb*v*kel*tau/f;
document.form1.dose.value = roundit(dose,3);
kflag = 1;
}
if (iflag == 8) // v to be calculated
{
v = 1*f*dose/(cb*kel*tau);
document.form1.v.value = roundit(v,3);
kflag = 1;
}
if (iflag == 16) // kel to be calculated
{
kel = 1*f*dose/(v*cb*tau);
document.form1.kel.value = roundit(kel,3);
kflag = 1;
}
if (iflag == 32) // tau to be calculated
{
tau = 1*f*dose/(v*kel*cb);
document.form1.tau.value = roundit(tau,3);
kflag = 1;
}
if (kflag == 0)
{
alert("One and only one field can be empty for this to work properly");
return false;
}
return false;
/*
*/
// document.form1.iflag.value = kflag;
}
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;
}
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);
}
function do_help()
{
HelpWin = window.open('','NewWin','toolbar=0,status=0,width=200,height=300')
HelpWin.window.focus();
message = "Cp Average Help";
message += "Dose is calculated using the equation ";
message += "
";
message += "";
HelpWin.document.write(message);
}
function ta_help()
{
HelpWin = window.open('','NewWin','toolbar=0,status=0,width=200,height=300')
HelpWin.window.focus();
message = "Cp Average Help";
message += "Tau is calculated using the equation ";
message += "
";
message += "";
HelpWin.document.write(message);
}