function apaljot(num) {
	num = num * 100;
	return Math.round(num)/100;
}

function setvalues(matoVnt, silumosKiekisMatoVnt,  katiloGalingumas,silNuostoliai, maxSilumosPoreikis, PoreikisSezonui, kWKaina, islaidosMen, islaidosSez, kurokiekis ) {
	
	
	//document.forma.silumosKiekisMatoVnt.value=silumosKiekisMatoVnt;
	document.forma.katilogalingumas.value=katilogalingumas;
	//document.forma.silNuostoliai.value=apaljot(silNuostoliai);
	document.forma.maxSilumosPoreikis.value=apaljot(maxSilumosPoreikis);
	//document.forma.PoreikisSezonui.value=apaljot(PoreikisSezonui);
	document.forma.kWKaina.value=apaljot(kWKaina);
	document.forma.islaidosMen.value=apaljot(islaidosMen);
	document.forma.kurokiekis.value=kurokiekis + " " + matoVnt;
	document.forma.islaidosSez.value = apaljot(islaidosSez);
}

function calculate(operacija) {
var energy_type, plotas, aukstis, turis, sezonas; 
var nuostoliuKoef, KPD; 
var matoVnt, kainaMatoVnt, silumosKiekisMatoVnt,  katiloGalingumas; 
var silNuostoliai, maxSilumosPoreikis, PoreikisSezonui;
var kWKaina, islaidosMen, islaidosSez, kurokiekis;

sezonas=192;
var MatoVntID; 
if (document.getElementById)
	MatoVntID = document.getElementById('MatoVntID');
else 
	MatoVntID = MatoVntID;
energy_type = document.forma.energy_type.value;
plotas = document.forma.plotas.value;
aukstis = document.forma.aukstis.value;
nuostoliuKoef = document.forma.nuostoliuKoef.value;


turis = plotas * aukstis;
silNuostoliai=(0.0009*(0.54+(22/20.5))*(1.52/Math.sqrt(Math.sqrt(Math.sqrt(turis))))*turis*20.5)*nuostoliuKoef;
maxSilumosPoreikis=(0.001*(0.54+(22/42))*(1.52/Math.sqrt(Math.sqrt(Math.sqrt(turis))))*turis*42)*nuostoliuKoef;
PoreikisSezonui=silNuostoliai * 24 * sezonas;

katilogalingumas = Math.round(maxSilumosPoreikis*1.2 + 4 );


switch(energy_type)
{
case "malkos":
	MatoVntID.innerHTML = "kaina Lt už erdvinį metrą ";
	matoVnt="erdv. metr."
	if (operacija == 1) { 
		kainaMatoVnt = document.forma.kainaMatoVnt.value; } 
	 else { 
		kainaMatoVnt = 120.0; 
		document.forma.kainaMatoVnt.value = kainaMatoVnt; 
	}
	KPD=0.75;
	silumosKiekisMatoVnt=2160;
	kWKaina=kainaMatoVnt/silumosKiekisMatoVnt/KPD*100;
	kurokiekis = apaljot(PoreikisSezonui/silumosKiekisMatoVnt/KPD);
	islaidosSez = Math.round(kurokiekis * kainaMatoVnt);
	islaidosMen = islaidosSez / sezonas * 30;
	
	setvalues(matoVnt, silumosKiekisMatoVnt, katiloGalingumas, silNuostoliai, maxSilumosPoreikis, PoreikisSezonui, kWKaina, islaidosMen, islaidosSez, kurokiekis );
	break;
case "gamtines_dujos_kondensat":
	MatoVntID.innerHTML = "kaina Lt už kubinį metrą ";
	matoVnt="m3"
	if (operacija == 1) { 
		kainaMatoVnt = document.forma.kainaMatoVnt.value; } 
	 else { 
		kainaMatoVnt = 1.29; 
		document.forma.kainaMatoVnt.value = kainaMatoVnt; 
	}
	KPD=1.08;
	silumosKiekisMatoVnt=9.47;
	kWKaina=kainaMatoVnt/silumosKiekisMatoVnt/KPD*100;
	kurokiekis = apaljot(PoreikisSezonui/silumosKiekisMatoVnt/KPD);
	islaidosSez = Math.round(kurokiekis * kainaMatoVnt);
	islaidosMen = islaidosSez / sezonas * 30;
	
	setvalues(matoVnt, silumosKiekisMatoVnt, katiloGalingumas, silNuostoliai, maxSilumosPoreikis, PoreikisSezonui, kWKaina, islaidosMen, islaidosSez, kurokiekis );
	break;
case "gamtines_dujos_paprastas":
	MatoVntID.innerHTML = "kaina Lt už kubinį metrą ";
	matoVnt="m3"
	if (operacija == 1) { 
		kainaMatoVnt = document.forma.kainaMatoVnt.value; } 
	 else { 
		kainaMatoVnt = 1.29; 
		document.forma.kainaMatoVnt.value = kainaMatoVnt; 
	}
	KPD=0.93;
	silumosKiekisMatoVnt=9.47;
	kWKaina=kainaMatoVnt/silumosKiekisMatoVnt/KPD*100;
	kurokiekis = apaljot(PoreikisSezonui/silumosKiekisMatoVnt/KPD);
	islaidosSez = Math.round(kurokiekis * kainaMatoVnt);
	islaidosMen = islaidosSez / sezonas * 30;
	
	setvalues(matoVnt, silumosKiekisMatoVnt, katiloGalingumas, silNuostoliai, maxSilumosPoreikis, PoreikisSezonui, kWKaina, islaidosMen, islaidosSez, kurokiekis );
	break;
case "kuzbaso_anglys":
	MatoVntID.innerHTML = "kaina Lt už toną ";
	matoVnt="t."
	if (operacija == 1) { 
		kainaMatoVnt = document.forma.kainaMatoVnt.value; } 
	 else { 
		kainaMatoVnt = 380.0; 
		document.forma.kainaMatoVnt.value = kainaMatoVnt; 
	}
	KPD=0.75;
	silumosKiekisMatoVnt=8660;
	kWKaina=kainaMatoVnt/silumosKiekisMatoVnt/KPD*100;
	kurokiekis = apaljot(PoreikisSezonui/silumosKiekisMatoVnt/KPD);
	islaidosSez = Math.round(kurokiekis * kainaMatoVnt);
	islaidosMen = islaidosSez / sezonas * 30;
	
	setvalues(matoVnt, silumosKiekisMatoVnt, katiloGalingumas, silNuostoliai, maxSilumosPoreikis, PoreikisSezonui, kWKaina, islaidosMen, islaidosSez, kurokiekis );
	break;
case "akmens_anglys":
	MatoVntID.innerHTML = "kaina Lt už toną ";
	matoVnt="t."
	if (operacija == 1) { 
		kainaMatoVnt = document.forma.kainaMatoVnt.value; } 
	 else { 
		kainaMatoVnt = 380.0; 
		document.forma.kainaMatoVnt.value = kainaMatoVnt; 
	}
	KPD=0.75;
	silumosKiekisMatoVnt=7300;
	kWKaina=kainaMatoVnt/silumosKiekisMatoVnt/KPD*100;
	kurokiekis = apaljot(PoreikisSezonui/silumosKiekisMatoVnt/KPD);
	islaidosSez = Math.round(kurokiekis * kainaMatoVnt);
	islaidosMen = islaidosSez / sezonas * 30;
	
	setvalues(matoVnt, silumosKiekisMatoVnt, katiloGalingumas, silNuostoliai, maxSilumosPoreikis, PoreikisSezonui, kWKaina, islaidosMen, islaidosSez, kurokiekis );
	break;
case "durpiu_briketai":
	MatoVntID.innerHTML = "kaina Lt už toną ";
	matoVnt="t."
	if (operacija == 1) { 
		kainaMatoVnt = document.forma.kainaMatoVnt.value; } 
	 else { 
		kainaMatoVnt = 300.0; 
		document.forma.kainaMatoVnt.value = kainaMatoVnt; 
	}
	KPD=0.75;
	silumosKiekisMatoVnt=4650;
	kWKaina=kainaMatoVnt/silumosKiekisMatoVnt/KPD*100;
	kurokiekis = apaljot(PoreikisSezonui/silumosKiekisMatoVnt/KPD);
	islaidosSez = Math.round(kurokiekis * kainaMatoVnt);
	islaidosMen = islaidosSez / sezonas * 30;
	
	setvalues(matoVnt, silumosKiekisMatoVnt, katiloGalingumas, silNuostoliai, maxSilumosPoreikis, PoreikisSezonui, kWKaina, islaidosMen, islaidosSez, kurokiekis );
	break;
case "medienos_briketai":
	MatoVntID.innerHTML = "kaina Lt už toną ";
	matoVnt="t."
	if (operacija == 1) { 
		kainaMatoVnt = document.forma.kainaMatoVnt.value; } 
	 else { 
		kainaMatoVnt = 450.0; 
		document.forma.kainaMatoVnt.value = kainaMatoVnt; 
	}
	KPD=0.8;
	silumosKiekisMatoVnt=4600;
	kWKaina=kainaMatoVnt/silumosKiekisMatoVnt/KPD*100;
	kurokiekis = apaljot(PoreikisSezonui/silumosKiekisMatoVnt/KPD);
	islaidosSez = Math.round(kurokiekis * kainaMatoVnt);
	islaidosMen = islaidosSez / sezonas * 30;
	
	setvalues(matoVnt, silumosKiekisMatoVnt, katiloGalingumas, silNuostoliai, maxSilumosPoreikis, PoreikisSezonui, kWKaina, islaidosMen, islaidosSez, kurokiekis );
	break;
case "silumos_siurbliai":
	MatoVntID.innerHTML = "kaina Lt už kW ";
	matoVnt="kW."
	if (operacija == 1) { 
		kainaMatoVnt = document.forma.kainaMatoVnt.value; } 
	 else { 
		kainaMatoVnt = 0.33; 
		document.forma.kainaMatoVnt.value = kainaMatoVnt; 
	}
	KPD=3;
	silumosKiekisMatoVnt=1;
	kWKaina=kainaMatoVnt/silumosKiekisMatoVnt/KPD*100;
	kurokiekis = apaljot(PoreikisSezonui/silumosKiekisMatoVnt/KPD);
	islaidosSez = Math.round(kurokiekis * kainaMatoVnt);
	islaidosMen = islaidosSez / sezonas * 30;
	
	setvalues(matoVnt, silumosKiekisMatoVnt, katiloGalingumas, silNuostoliai, maxSilumosPoreikis, PoreikisSezonui, kWKaina, islaidosMen, islaidosSez, kurokiekis );
	break;
case "siluminiai_tinklai":
	MatoVntID.innerHTML = "kaina Lt už kW ";
	matoVnt="kW."
	if (operacija == 1) { 
		kainaMatoVnt = document.forma.kainaMatoVnt.value; } 
	 else { 
		kainaMatoVnt = 0.21; 
		document.forma.kainaMatoVnt.value = kainaMatoVnt; 
	}
	KPD=1;
	silumosKiekisMatoVnt=1;
	kWKaina=kainaMatoVnt/silumosKiekisMatoVnt/KPD*100;
	kurokiekis = apaljot(PoreikisSezonui/silumosKiekisMatoVnt/KPD);
	islaidosSez = Math.round(kurokiekis * kainaMatoVnt);
	islaidosMen = islaidosSez / sezonas * 30;
	
	setvalues(matoVnt, silumosKiekisMatoVnt, katiloGalingumas, silNuostoliai, maxSilumosPoreikis, PoreikisSezonui, kWKaina, islaidosMen, islaidosSez, kurokiekis );
	break;
case "suskystintos_dujos":
	MatoVntID.innerHTML = "kaina Lt už toną ";
	matoVnt="t."
	if (operacija == 1) { 
		kainaMatoVnt = document.forma.kainaMatoVnt.value; } 
	 else { 
		kainaMatoVnt = 3167.08; 
		document.forma.kainaMatoVnt.value = kainaMatoVnt; 
	}
	KPD=0.93;
	silumosKiekisMatoVnt=12790;
	kWKaina=kainaMatoVnt/silumosKiekisMatoVnt/KPD*100;
	kurokiekis = apaljot(PoreikisSezonui/silumosKiekisMatoVnt/KPD);
	islaidosSez = Math.round(kurokiekis * kainaMatoVnt);
	islaidosMen = islaidosSez / sezonas * 30;
	
	setvalues(matoVnt, silumosKiekisMatoVnt, katiloGalingumas, silNuostoliai, maxSilumosPoreikis, PoreikisSezonui, kWKaina, islaidosMen, islaidosSez, kurokiekis );
	break;
case "krosninis_kuras":
	MatoVntID.innerHTML = "kaina Lt už litrą ";
	matoVnt="ltr."
	if (operacija == 1) { 
		kainaMatoVnt = document.forma.kainaMatoVnt.value; } 
	 else { 
		kainaMatoVnt = 3.01; 
		document.forma.kainaMatoVnt.value = kainaMatoVnt; 
	}
	KPD=0.93;
	silumosKiekisMatoVnt=10.9;
	kWKaina=kainaMatoVnt/silumosKiekisMatoVnt/KPD*100;
	kurokiekis = apaljot(PoreikisSezonui/silumosKiekisMatoVnt/KPD);
	islaidosSez = Math.round(kurokiekis * kainaMatoVnt);
	islaidosMen = islaidosSez / sezonas * 30;
	
	setvalues(matoVnt, silumosKiekisMatoVnt, katiloGalingumas, silNuostoliai, maxSilumosPoreikis, PoreikisSezonui, kWKaina, islaidosMen, islaidosSez, kurokiekis );
	break;
	
case "elektra":	
	MatoVntID.innerHTML = "kaina Lt už kW ";
	matoVnt="kW."
	if (operacija == 1) { 
		kainaMatoVnt = document.forma.kainaMatoVnt.value; } 
	 else { 
		kainaMatoVnt = 0.45; 
		document.forma.kainaMatoVnt.value = kainaMatoVnt; 
	}
	KPD=0.99;
	silumosKiekisMatoVnt=1;
	kWKaina=kainaMatoVnt/silumosKiekisMatoVnt/KPD*100;
	kurokiekis = apaljot(PoreikisSezonui/silumosKiekisMatoVnt/KPD);
	islaidosSez = Math.round(kurokiekis * kainaMatoVnt);
	islaidosMen = islaidosSez / sezonas * 30;
	
	setvalues(matoVnt, silumosKiekisMatoVnt, katiloGalingumas, silNuostoliai, maxSilumosPoreikis, PoreikisSezonui, kWKaina, islaidosMen, islaidosSez, kurokiekis );
	break;
default:
	setvalues("", "", "", "", "", "", "", "", "", "" );
}
}