<!--
//created by Joseph Roland
//www.cytographica.com

function recepie(form)
{
var conc = form.conc.value;
var dna = (2000/conc);
var en = 16;
var ec = (300)-(dna);
var ef = 60;
var media = (3000)-(ec + en + ef + dna);
var total = media + ec + en + ef + dna;
if (form.conc.value > 0)
{
	form.dna.value=Math.round(10*dna)/10;
	form.en.value=Math.round(10*en)/10;
	form.ec.value=Math.round(10*ec)/10;
	form.ef.value=Math.round(10*ef)/10;
	form.media.value=Math.round(10*media)/10;
	form.total.value=Math.round(10*total)/10;
	}
else
{
	form.dna.value=" ";
	form.en.value=" ";
	form.ec.value=" ";
	form.ef.value=" ";
	form.media.value=" ";
	form.total.value=" ";
}
}
// JavaScript Document