function calculo()
{
	a=document.tablaalimentos
	sumatoria()
    if(a.ingphdec.value>0||a.ingplip.value>0||a.ingpprot.value>0||a.ingcal.value>0)
     {
			porcentajeagramos() //... y este a adeacuacion()
     }
	unidades()
}	

function sumatoria ()
{
	a=document.tablaalimentos
	var ali;
	var fruta = a.nfr.value;
	var cetu=a.ncetu.value;
	var cetug=a.ncetug.value;
	var ve=a.nve.value;
	var le=a.nle.value;
	var cmbg=a.ncmbg.value;
	var cbg=a.ncbg.value;
	var cmg=a.ncmg.value;
	var az=a.naz.value;
	var gr=a.ngr.value;
	var led=a.nled.value;
	var les=a.nles.value;
	var lee=a.nlee.value;
	
	if (isNaN(fruta)||fruta<0)a.nfr.value=0;
	if (isNaN(cetu)||cetu<0)a.ncetu.value=0;
	if (isNaN(cetug)||cetug<0)a.ncetug.value=0;
	if (isNaN(a.nve.value)||a.nve.value<0)a.nve.value=0;
	if (isNaN(a.nle.value)||a.nle.value<0)a.nle.value=0;
	if (isNaN(a.ncmbg.value)||a.cmbg.value<0)a.ncmbg.value=0;
	if (isNaN(a.ncbg.value)||a.ncbg.value<0)a.ncbg.value=0;
	if (isNaN(a.ncmg.value)||a.ncmg.value<0)a.ncmg.value=0;
	if (isNaN(a.naz.value)||a.naz.value<0)a.naz.value=0;
	if (isNaN(a.ngr.value)||a.ngr.value<0)a.ngr.value=0;
	if (isNaN(a.nled.value)||a.nled.value<0)a.nled.value=0;
	if (isNaN(a.nles.value)||a.nles.value<0)a.nles.value=0;
	if (isNaN(a.nlee.value)||a.nlee.value<0)a.nlee.value=0;

	// FRUTA
	ali=fruta*0
	a.lipfr.value=Math.round(ali*10)/10;
	
	ali=fruta*0
	a.protfr.value=Math.round(ali*10)/10;
	
	ali=a.hdecfr.value*4+a.lipfr.value*9+a.protfr.value*4
	a.calfr.value=Math.round(ali*10)/10;
	
	// CEREALES
	ali=cetu*15
	a.hdeccetu.value=Math.round(ali*10)/10;
	
	ali=cetu*0
	a.lipcetu.value=Math.round(ali*10)/10;
	
	ali=cetu*2
	a.protcetu.value=Math.round(ali*10)/10;
	
	ali=a.hdeccetu.value*4+a.lipcetu.value*9+a.protcetu.value*4
	a.calcetu.value=Math.round(ali*10)/10;

	// CEREALES CON GRASA
	ali=a.ncetug.value*15
	a.hdeccetug.value=Math.round(ali*10)/10;
	
	ali=a.ncetug.value*5
	a.lipcetug.value=Math.round(ali*10)/10;
	
	ali=a.ncetug.value*2
	a.protcetug.value=Math.round(ali*10)/10;
	
	ali=a.hdeccetug.value*4+a.lipcetug.value*9+a.protcetug.value*4
	a.calcetug.value=Math.round(ali*10)/10; 

	// VERDURAS
	ali=a.nve.value*4
	a.hdecve.value=Math.round(ali*10)/10;
	
	ali=a.nve.value*0
	a.lipve.value=Math.round(ali*10)/10;
	
	ali=a.nve.value*2
	a.protve.value=Math.round(ali*10)/10;
	
	ali=a.hdecve.value*4+a.lipve.value*9+a.protve.value*4
	a.calve.value=Math.round(ali*10)/10; 

	// LEGUMINOSAS
	ali=a.nle.value*20
	a.hdecle.value=Math.round(ali*10)/10;
	
	ali=a.nle.value*1
	a.liple.value=Math.round(ali*10)/10;
	
	ali=a.nle.value*8
	a.protle.value=Math.round(ali*10)/10;
	
	ali=a.hdecle.value*4+a.liple.value*9+a.protle.value*4
	a.calle.value=Math.round(ali*10)/10;
	// CMBG
	ali=a.ncmbg.value*0
	a.hdeccmbg.value=Math.round(ali*10)/10;
	
	ali=a.ncmbg.value*1
	a.lipcmbg.value=Math.round(ali*10)/10;
	
	ali=a.ncmbg.value*7
	a.protcmbg.value=Math.round(a.protcmbg.value*10)/10;
	
	ali=a.hdeccmbg.value*4+a.lipcmbg.value*9+a.protcmbg.value*4
	a.calcmbg.value=Math.round(ali*10)/10;

	// CBG
	ali=a.ncbg.value*0
	a.hdeccbg.value=Math.round(ali*10)/10;
	
	ali=a.ncbg.value*2
	a.lipcbg.value=Math.round(ali*10)/10;
	
	ali=a.ncbg.value*7
	a.protcbg.value=Math.round(ali*10)/10;
	
	ali=a.hdeccbg.value*4+a.lipcbg.value*9+a.protcbg.value*4
	a.calcbg.value=Math.round(ali*10)/10;


	// CMG
	ali=a.ncmg.value*0
	a.hdeccmg.value=Math.round(ali*10)/10;
	
	ali=a.ncmg.value*4
	a.lipcmg.value=Math.round(ali*10)/10;
	
	ali=a.ncmg.value*7
	a.protcmg.value=Math.round(ali*10)/10;
	
	ali=a.hdeccmg.value*4+a.lipcmg.value*9+a.protcmg.value*4
	a.calcmg.value=Math.round(ali*10)/10;

	// AZUCAR	
	ali=a.naz.value*10
	a.hdecaz.value=Math.round(ali*10)/10;
	
	ali=a.naz.value*0
	a.lipaz.value=Math.round(ali*10)/10;
	
	ali=a.naz.value*0
	a.protaz.value=Math.round(ali*10)/10;
	
	ali=a.hdecaz.value*4+a.lipaz.value*9+a.protaz.value*4
	a.calaz.value=Math.round(ali*10)/10;

	// GRASA
	ali=a.ngr.value*0
	a.hdecgr.value=Math.round(ali*10)/10;
	
	ali=a.ngr.value*5
	a.lipgr.value=Math.round(ali*10)/10;
	
	ali=a.ngr.value*0
	a.protgr.value=Math.round(ali*10)/10;
	
	ali=a.hdecgr.value*4+a.lipgr.value*9+a.protgr.value*4
	a.calgr.value=Math.round(ali*10)/10;


	// L DESCREMADA
	ali=a.nled.value*12
	a.hdecled.value=Math.round(ali*10)/10;
	
	ali=a.nled.value*1
	a.lipled.value=Math.round(ali*10)/10;
	
	ali=a.nled.value*9
	a.protled.value=Math.round(ali*10)/10;
	
	ali=a.hdecled.value*4+a.lipled.value*9+a.protled.value*4
	a.called.value=Math.round(ali*10)/10;


	// L SEMIDESCREMADA
	ali=a.nles.value*12
	a.hdecles.value=Math.round(ali*10)/10;
	
	ali=a.nles.value*3
	a.liples.value=Math.round(ali*10)/10;
	
	ali=a.nles.value*9
	a.protles.value=Math.round(ali*10)/10;
	
	ali=a.hdecles.value*4+a.liples.value*9+a.protles.value*4
	a.calles.value=Math.round(ali*10)/10;


	// L ENTERA
	ali=a.nlee.value*12
	a.hdeclee.value=Math.round(ali*10)/10;
	
	ali=a.nlee.value*8
	a.liplee.value=Math.round(ali*10)/10;
	
	ali=a.nlee.value*9
	a.protlee.value=Math.round(ali*10)/10;
	
	ali=a.hdeclee.value*4+a.liplee.value*9+a.protlee.value*4
	a.callee.value=Math.round(ali*10)/10;

	
	// SUMA HDEC 
	a.hdectot.value=parseInt(a.hdecfr.value)+parseInt(a.hdecve.value)+parseInt(a.hdecle.value)+parseInt(a.hdecled.value)+parseInt(a		   .hdecles.value)+parseInt(a.hdeclee.value)+parseInt(a.hdecaz.value)+parseInt(a.hdeccetu.value)+parseInt(a.hdeccetug.value)  
	//SUMA LIP 
	a.liptot.value=parseInt(a.lipcmbg.value)+parseInt(a.lipcbg.value)+parseInt(a.lipcmg.value)+parseInt(a.lipve.value)+parseInt(a.   liple.value)+parseInt(a.lipled.value)+parseInt(a.liples.value)+parseInt(a.liplee.value)+parseInt(a.lipgr.value)+parseInt(a.       lipcetu.value)+parseInt(a.lipcetug.value) 
	//SUMA PROT
	a.prottot.value=parseInt(a.protcmbg.value)+parseInt(a.protcbg.value)+parseInt(a.protcmg.value)+parseInt(a.protve.value)+      parseInt(a.protle.value)+parseInt(a.protled.value)+parseInt(a.protles.value)+parseInt(a.protlee.value)+parseInt(a.protgr.value)+   parseInt(a.protcetu.value)+parseInt(a.protcetug.value) 
	//SUMA CALORÍAS
	a.caltot.value=parseInt(a.prottot.value*4)+parseInt(a.liptot.value*9)+parseInt(a.hdectot.value*4)

	//PORCENTAJES
	dhdec=parseFloat(a.hdectot.value)*4*100/parseFloat(a.caltot.value) 
	dlip=parseFloat(a.liptot.value)*9*100/parseFloat(a.caltot.value) 
	dprot=parseFloat(a.prottot.value)*4*100/parseFloat(a.caltot.value)
	if (dhdec+dlip+dprot!=100)
	{
		dhdec=Math.round(dhdec*10)/10
		dlip=Math.round(dlip*10)/10
		dprot=Math.round(dprot*10)/10
	}
	else
	{
		dhdec=Math.round(dhdec)
		dlip=Math.round(dlip)
		dprot=Math.round(dprot)
	}
	if(dhdec>0)
	a.dhdec.value= dhdec +"%"
	if(dlip>0)
	a.dlip.value= dlip+"%"
	if(dprot>0)
	a.dprot.value= dprot+"%"

}// FIN SUMATORIA
function porcentajeagramos()
{
	a=document.tablaalimentos
		// OBTENER GRAMOS DE NUTRIENTE 
		hdec=parseInt(a.ingphdec.value)
		lip=parseInt(a.ingplip.value)
		prot=parseInt(a.ingpprot.value)
		cal=parseInt(a.ingcal.value)
		a.ghdec.value=Math.round((hdec/100*cal)/4)
		a.glip.value=Math.round((lip/100*cal)/9)
		a.gprot.value=Math.round((prot/100*cal)/4)
		 adecuacion()      
}
function adecuacion()
{ 
	a=document.tablaalimentos
	// ADECUACIÓN
//	if(a.ghdec.value>0&&a.hdectot.value>0)	
//	{
	a.ahdec.value=parseInt(a.hdectot.value)*100/parseInt(a.ghdec.value)
 	a.ahdec.value=Math.round(a.ahdec.value)
	a.ahdec.value=a.ahdec.value+ "%"
//	}
//	else 
//	{
//	a.ahdec.value=""
//	}
//	if(a.glip.value>0&&a.liptot.value>0)
//	{
	a.alip.value=parseInt(a.liptot.value)*100/parseInt(a.glip.value)
	a.alip.value=Math.round(a.alip.value)
	a.alip.value=a.alip.value+"%"
//	}
//	else 
//	{
//	a.alip.value=""
//	}
//	if(a.gprot.value>0&&a.prottot.value>0)
//	{
	a.aprot.value=parseInt(a.prottot.value)*100/parseInt(a.gprot.value)
	a.aprot.value=Math.round(a.aprot.value)
	a.aprot.value=a.aprot.value+"%"
//	}
//	else 
//	{
//	a.aprot.value=""
//	}
//	if (a.caltot.value>0&&a.ingcal.value>0)
//	{
	a.acal.value=a.caltot.value*100/a.ingcal.value 
	a.acal.value=Math.round(a.acal.value)
	a.acal.value=a.acal.value+"%"
//	}
//	else 
//	{
//	a.acal.value=""
//	}
	unidades()

}//FIN ADECUACIÓN
	function masporcehdec()   //	if(a.ingphdec.value>0||a.ingplip.value>0||a.ingpprot.value>0||a.ingcal.value>0)
	{  
	a=document.tablaalimentos 
	hdec=parseInt(a.ingphdec.value)+1
	prot=parseInt(a.ingpprot.value)
		if ( revisaringresodatos(hdec,prot)==true)
		{
				if(hdec>100)
				{
					a.ingphdec.value=100;
					
				}
				 else if(hdec.value<0)
					{
						a.ingphdec.value=0;
					}				
						else 
						{
							a.ingphdec.value=parseInt(a.ingphdec.value)+1;	
							porcelip()
						}
		}
	}
		function menosporcehdec()   //	if(a.ingphdec.value>0||a.ingplip.value>0||a.ingpprot.value>0||a.ingcal.value>0)
	{  
	a=document.tablaalimentos   
	hdec=parseInt(a.ingphdec.value)-1
	prot=parseInt(a.ingpprot.value)
		if(hdec<0)
	{
		hdec=0
	}
		if ( revisaringresodatos(hdec,prot)==true)
		{

				if(hdec>100)
				{
					a.ingphdec.value=100;
					porcelip()
					
				}
				 else if(hdec<0)
					{
						a.ingphdec.value=0;
						porcelip()
					}				
						else 
						{
							a.ingphdec.value=parseInt(a.ingphdec.value)-1;
							porcelip()
						}
		}
	}
	function masporceprot()   //	if(a.ingphdec.value>0||a.ingplip.value>0||a.ingpprot.value>0||a.ingcal.value>0)
	{ 
	a=document.tablaalimentos
	hdec=parseInt(a.ingphdec.value)
	prot=parseInt(a.ingpprot.value)+1
		if ( revisaringresodatos(hdec,prot)==true)
		{

				if(prot>100)
				{
					a.ingprot.value=100;
					
				}
				 else if(prot<0)
					{
						a.ingpprot.value=0;
					}				
						else 
						{
							a.ingpprot.value=parseInt(a.ingpprot.value)+1;	
							porcelip()
						}
		}
	}
	function menosporceprot()   //	if(a.ingphdec.value>0||a.ingplip.value>0||a.ingpprot.value>0||a.ingcal.value>0)
	{  
	a=document.tablaalimentos
	hdec=parseInt(a.ingphdec.value)
	prot=parseInt(a.ingpprot.value)-1
		if ( revisaringresodatos(hdec,prot)==true)
		{

				if(prot>100)
				{
					a.ingprot.value=100;
					
				}
				 else if(prot<0)
					{
						a.ingpprot.value=0;
					}				
						else 
						{
							a.ingpprot.value=parseInt(a.ingpprot.value)-1;
							porcelip()
						}
		}
	}
	function porcelip()   //	if(a.ingphdec.value>0||a.ingplip.value>0||a.ingpprot.value>0||a.ingcal.value>0)
	{     
		a=document.tablaalimentos
		if (a.ingphdec.value>=a.ingpprot.value)
		{	
			a.ingplip.value=100-(parseInt(a.ingphdec.value)+parseInt(a.ingpprot.value))
			porcentajeagramos()
			unidades()
			
		}
		else 
		{
			a.ingplip.value=100-(parseInt(a.ingphdec.value)+parseInt(a.ingpprot.value))
			porcentajeagramos()
			unidades()
		}
	}

function revisaringresodatos(hdec,prot)
{   
	var hdec=hdec
	var prot=prot
	//ing =ingreso porcentajes
	a=document.tablaalimentos
	ingptot=0;
	ingptot=hdec+prot;
	if(ingptot>100)
	{
		alert("Los porcentajes son mayores a 100%")
		limpieza()
		return false;
	}
	
	if(a.ingcal.value<=0)
	{
		alert("Calorías debe ser mayor a 0")
		limpieza()
		return false;
	}
	return true;

}// fin revisar datos


function unidades()
{
	// PONER UNIDADES
	a=document.tablaalimentos

	if (a.ingphdec.value>0)
	a.ingphdec.value=parseInt(a.ingphdec.value) + "%"
	if (a.ingplip.value>0)
	a.ingplip.value=parseInt(a.ingplip.value) + "%"
	if (a.ingpprot.value>0)
	a.ingpprot.value=parseInt(a.ingpprot.value) + "%"
	
	if (a.hdectot.value>0)
	a.hdectot.value=parseInt(a.hdectot.value) + "g"
	if (a.prottot.value>0)
	a.prottot.value=parseInt(a.prottot.value) + "g"
	if (a.liptot.value>0)
	a.liptot.value=parseInt(a.liptot.value) + "g"
	if (a.caltot.value>0)
	a.caltot.value=parseInt(a.caltot.value) + " cal"
	
	if (a.ghdec.value>0)
	a.ghdec.value=parseInt(a.ghdec.value) +"g"
	if (a.glip.value>0)
	a.glip.value=parseInt(a.glip.value) + "g"
	if(a.gprot.value>0)
	a.gprot.value= parseInt(a.gprot.value) + "g"

} //fin unidades

function limpieza()
{

	a=document.tablaalimentos
	a.gprot.value=""
	a.ghdec.value=""
	a.glip.value=""
	a.aprot.value=""
	a.ahdec.value=""
	a.alip.value=""
	
} // fin limpieza

			 function frutamas()
			{ 
			   numero=parseFloat(document.tablaalimentos.nfr.value);
			   numero = numero +.1;
			   if(numero<0)numero=0;
			   document.tablaalimentos.nfr.value=Math.round(numero*10)/10;
			   calculo();
			}
			 function frmenos() 
			{ 
			   numero=parseFloat(document.tablaalimentos.nfr.value)-.1;
			    if(numero<0)numero=0;
			   document.tablaalimentos.nfr.value=Math.round(numero*10)/10
			   calculo();
			}
			function vemas() 
			{ 
			   numero=parseFloat(document.tablaalimentos.nve.value)+.1;
			    if(numero<0)numero=0;
			   document.tablaalimentos.nve.value=Math.round(numero*10)/10
			   calculo();
			}

			function vemenos() 
			{ 
			   numero=parseFloat(document.tablaalimentos.nve.value)-.1;
			    if(numero<0)numero=0;
			   document.tablaalimentos.nve.value=Math.round(numero*10)/10
			   calculo();
			}
			function ceretumas() 
			{ 
			   numero=parseFloat(document.tablaalimentos.ncetu.value)+.1;
			    if(numero<0)numero=0;
			   document.tablaalimentos.ncetu.value=Math.round(numero*10)/10
			   calculo();
			}
			function ceretumenos() 
			{ 
			   numero=parseFloat(document.tablaalimentos.ncetu.value)-.1;
			    if(numero<0)numero=0;
			   document.tablaalimentos.ncetu.value=Math.round(numero*10)/10
			   calculo();
			}
			function ceretugmas() 
			{ 
			   numero=parseFloat(document.tablaalimentos.ncetug.value)+.1;
			    if(numero<0)numero=0;
			   document.tablaalimentos.ncetug.value=Math.round(numero*10)/10
			   calculo();
			}
			function ceretugmenos() 
			{ 
			   numero=parseFloat(document.tablaalimentos.ncetug.value)-.1;
			    if(numero<0)numero=0;
			   document.tablaalimentos.ncetug.value=Math.round(numero*10)/10
			   calculo();
			}
			function cambgmas() 
			{ 
			   numero=parseFloat(document.tablaalimentos.ncmbg.value)+.1;
			    if(numero<0)numero=0;
			   document.tablaalimentos.ncmbg.value=Math.round(numero*10)/10
			   calculo();
			}
			function cambgmenos() 
			{ 
			   numero=parseFloat(document.tablaalimentos.ncmbg.value)-.1;
			    if(numero<0)numero=0;
			   document.tablaalimentos.ncmbg.value=Math.round(numero*10)/10
			   calculo();
			}
			function cabgmas() 
			{ 
			   numero=parseFloat(document.tablaalimentos.ncbg.value)+.1;
			    if(numero<0)numero=0;
			   document.tablaalimentos.ncbg.value=Math.round(numero*10)/10
			   calculo();
			}
			function cabgmenos() 
			{ 
			   numero=parseFloat(document.tablaalimentos.ncbg.value)-.1;
			    if(numero<0)numero=0;
			   document.tablaalimentos.ncbg.value=Math.round(numero*10)/10
			   calculo();
			}
			function camgmas() 
			{ 
			   numero=parseFloat(document.tablaalimentos.ncmg.value)+.1;
			    if(numero<0)numero=0;
			   document.tablaalimentos.ncmg.value=Math.round(numero*10)/10
			   calculo();
			}
			function camgmenos() 
			{ 
			   numero=parseFloat(document.tablaalimentos.ncmg.value)-.1;
			    if(numero<0)numero=0;
			   document.tablaalimentos.ncmg.value=Math.round(numero*10)/10			  
			   calculo();
			}
			function legumas() 
			{ 
			   numero=parseFloat(document.tablaalimentos.nle.value)+.1;
			    if(numero<0)numero=0;
			   document.tablaalimentos.nle.value=Math.round(numero*10)/10		  
			   calculo();
			}
			function legumenos() 
			{ 
			   numero=parseFloat(document.tablaalimentos.nle.value)-.1;
			    if(numero<0)numero=0;
			   document.tablaalimentos.nle.value=Math.round(numero*10)/10		  
			   calculo();
			}
			function lecheemas() 
			{ 
			   numero=parseFloat(document.tablaalimentos.nlee.value)+.1;
			    if(numero<0)numero=0;
			   document.tablaalimentos.nlee.value=Math.round(numero*10)/10		  
			   calculo();
			}
			function lecheemenos() 
			{ 
			   numero=parseFloat(document.tablaalimentos.nlee.value)-.1;
			    if(numero<0)numero=0;
			   document.tablaalimentos.nlee.value=Math.round(numero*10)/10		  
			   calculo();
			}
			function lechesmas() 
			{ 
			   numero=parseFloat(document.tablaalimentos.nles.value)+.1;
			    if(numero<0)numero=0;
			   document.tablaalimentos.nles.value=Math.round(numero*10)/10		  
			   calculo();
			}
			function lechesmenos() 
			{ 
			   numero=parseFloat(document.tablaalimentos.nles.value)-.1;
			    if(numero<0)numero=0;
			   document.tablaalimentos.nles.value=Math.round(numero*10)/10		  
			   calculo();
			}
			function lechedmas() 
			{ 
			   numero=parseFloat(document.tablaalimentos.nled.value)+.1;
			    if(numero<0)numero=0;
			   document.tablaalimentos.nled.value=Math.round(numero*10)/10		  
			   calculo();
			}
			function lechedmenos() 
			{ 
			   numero=parseFloat(document.tablaalimentos.nled.value)-.1;
			    if(numero<0)numero=0;
			   document.tablaalimentos.nled.value=Math.round(numero*10)/10		  
			   calculo();
			}
			function azucarmas() 
			{ 
			   numero=parseFloat(document.tablaalimentos.naz.value)+.1;
			    if(numero<0)numero=0;
			   document.tablaalimentos.naz.value=Math.round(numero*10)/10		  
			   calculo();
			}
			function azucarmenos() 
			{ 
			   numero=parseFloat(document.tablaalimentos.naz.value)-.1;
			    if(numero<0)numero=0;
			   document.tablaalimentos.naz.value=Math.round(numero*10)/10		  
			   calculo();
			}
			function grasamas() 
			{ 
			   numero=parseFloat(document.tablaalimentos.ngr.value)+.1;
			    if(numero<0)numero=0;
			   document.tablaalimentos.ngr.value=Math.round(numero*10)/10		  
			   calculo();
			}
			function grasamenos() 
			{ 
			   numero=parseFloat(document.tablaalimentos.ngr.value)-.1;
			    if(numero<0)numero=0;
			   document.tablaalimentos.ngr.value=Math.round(numero*10)/10		  
			   calculo();
			}
			
	function vertablacuadro()
	{
	      this.tablacuadro.style.visibility="visible";
	}
function enviar_formulario()
{ 
	a=document.tablaalimentos
	hdec=parseInt(a.ingphdec.value)
	prot=parseInt(a.ingprot.value)
	lip=parseInt(a.ingplip.value)
	tot=hdec+prot+lip
	if (tot==100)
	   {
		   document.tablaalimentos.submit()
	   }
	  else
	  {
		  alert("Corregir porcentajes")
	  }
}