<!-- Copyright 1997 David W.A. Bourne (david@boomer.org -->

function compute(form)
{
		apb = 1.*form.kel.value + 1.*form.k12.value + 1.*form.k21.value
		atb = 1.*form.kel.value * form.k21.value
		form.alpha.value = (apb + Math.sqrt(apb*apb - 4*atb))/2
		form.beta.value  = (apb - Math.sqrt(apb*apb - 4*atb))/2
		amb = form.alpha.value - form.beta.value
		form.A.value = form.Dose.value*(form.alpha.value-form.k21.value)/(form.V1.value*amb)
		form.B.value = form.Dose.value*(form.k21.value-form.beta.value)/(form.V1.value*amb)

// form..value

		form.alpha.value  = this.roundit(form.alpha.value,4)
		form.beta.value   = this.roundit(form.beta.value,4)
		form.A.value      = this.roundit(form.A.value,3)
		form.B.value      = this.roundit(form.B.value,3)
}

function compute2(form)
{
		form.k21.value  = ((form.A.value*form.beta.value) + (form.B.value*form.alpha.value))/(1*form.A.value+1*form.B.value)
		form.kel.value  = (form.alpha.value*form.beta.value)/form.k21.value
		form.k12.value  = 1*form.alpha.value+1*form.beta.value-1*form.k21.value-1*form.kel.value
		form.V1.value   = form.Dose.value/(1*form.A.value+1*form.B.value)

// form..value

		form.k21.value  = this.roundit(form.k21.value,4)
		form.kel.value  = this.roundit(form.kel.value,4)
		form.k12.value  = this.roundit(form.k12.value,4)
		form.V1.value   = this.roundit(form.V1.value,4)
}

function roundit(a,b)
{
	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
}