<!--

/*
* Copyright (c)2010 Petr Koci, Czech Republic
* homepage: http://www.txtester.com
*/

if(!window['txtester']){
	window['txtester']={};
	txtester.Error=function(mycode,mymessage){
		this.code=mycode || -1;
		this.message=mymessage || "This error has no a description.";
	}
}

if(!window['txtester']['promile']){

	window['txtester']['promile']={};

	txtester.promile.calculate=function(quantity,percent,mass,gender,fc){
		
		var result=function(){
			this.error=false;
			this.promile=0;
			this.hours=0;
		};

		function m_ctrl_range(val,min,max){
			if(val=="")return(0);
			val=val.replace(",",".");
			if(isNaN(val))return(0);
			val=parseFloat(val);
			min=parseFloat(min);
			max=parseFloat(max);
			if(val<min)return(0);
			if(val>max)return(0);
			return(val.toFixed(4));
		}//end-of-m_ctrl_range

		//kontrola mnozstvi, 0,1-150dcl
		quantity=m_ctrl_range(quantity,0.1,150)

		if(quantity==0) {
			result.error=new txtester.Error(1,"quantity - invalid value");
			fc(result);
			return;
		}

		//kontrola procent, 0,1-85%
		percent=m_ctrl_range(percent,0.1,85)
		if(percent==0){ 
			result.error=new txtester.Error(2,"percent - invalid value");
			fc(result);
			return;
		}

		//kontrola hmotnosti, 40-200kg 
		mass=m_ctrl_range(mass,40,200)
		if(mass==0){
			result.error=new txtester.Error(3,"mass - invalid value");
			fc(result);
			return;
		}

		//nastaveni konstanty podle pohlavi
		if(gender=="male")gender=0.68;
		else gender=0.55;

		var numerator=(quantity*percent* 0.8).toFixed(4);
		var denominator=(mass*gender).toFixed(4);
		var _promile=(numerator/denominator).toFixed(4);

		//vypocet casu na vystrizliveni v hodinach
		var hours=(_promile/0.15).toFixed(4);

		result.promile=_promile;
		result.hours=hours;

		fc(result);

	}//end-of-txtester.promile.calculate

};//if(!window['txtester']['promile'])
-->