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

function WriteYearOptions(YearsAhead)
{
	line = "";

	for (i=0; i<YearsAhead; i++)
	{
		line += "<OPTION>";
		line += NowYear + i;
	}

	return line;
}

function recepie(form)
{
var slip = form.slip.value;
var conc = form.conc.value;
var dna = (300/conc)*(slip);
var en = 2.4*slip;
var ec = (75*slip)-(dna);
var ef = 6*slip;
var media = (300*slip)-(ec + en + ef + dna);
var total = media + ec + en + ef + dna;
if (form.conc.value > 0)
{
	if (form.slip.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(1*media)/1;
	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=" ";
	}
}
else
{
	form.dna.value=" ";
	form.en.value=" ";
	form.ec.value=" ";
	form.ef.value=" ";
	form.media.value=" ";
	form.total.value=" ";
}
}
// JavaScript Document
