var g_peso=0, g_talla=0, g_talla_previa=0, g_pc=0, g_vc=0, g_TAS=0; g_TAD=0; g_segmento_i=0, g_braza=0; g_lms=0,g_lb=0,g_la=0,g_lmi=0,g_lm=0,g_lp=0, g_eo=0, g_talla_p=0, g_talla_m=0, g_incremento_talla=0, g_incremento_edad_o=0, g_edad_menarquia=0, g_perimetro_abd=0, g_perimetro_bic=0, g_pliegue_tri=0, g_pliegue_bic=0, g_pliegue_sub=0, g_pliegue_ili=0;
function validar_peso()
	{
		var peso=(document.forms.datos_deseados.peso.value).toString();
		var talla=(document.forms.datos_deseados.talla.value).toString();
		if(!peso.length)
			{
			g_peso=0;
			document.forms.datos_deseados.peso_replica.value="";
			document.forms.datos_deseados.imc.value="";
			document.forms.datos_deseados.s_corp.value="";
			return;
			}
		for(i=0;i<peso.length;i++)
			{
			if(peso.charCodeAt(i)<46 || peso.charCodeAt(i)>57 || peso.charCodeAt(i)==47)
				{
				document.forms.datos_deseados.peso.value="";
				alert("Error: el peso debe contener números entre 0.1 y 150 kg");
				g_peso=0;
				document.forms.datos_deseados.peso_replica.value="";
				document.forms.datos_deseados.imc.value="";
				document.forms.datos_deseados.s_corp.value="";
				return;
				}
			}
		peso=xredondeo(parseFloat(peso),2);
		if(peso<=0 || peso>150) 
			{
			document.forms.datos_deseados.peso.value="";
			alert("Error: el peso exige un intervalo válido entre 0.1 y 150 kg");
			g_peso=0;
			document.forms.datos_deseados.peso_replica.value="";
			document.forms.datos_deseados.imc.value="";
			document.forms.datos_deseados.s_corp.value="";
			return;
			}
		else 
			{
			document.forms.datos_deseados.peso_replica.value=document.forms.datos_deseados.peso.value+" kg.";
			g_peso=1;
			var s_corpx;
			if(g_talla==1)
				{
				talla=xredondeo(parseFloat(talla),2);
				s_corpx=Math.sqrt((talla*peso)/3600);
				document.forms.datos_deseados.imc.value=xredondeo(10000*peso/(talla*talla),2);
				document.forms.datos_deseados.s_corp.value=xredondeo(s_corpx,2);
				}
			else 
				{
				s_corpx=((peso*4)+7)/(peso+90);
				document.forms.datos_deseados.s_corp.value=xredondeo(s_corpx,2);
				}

			}
	}
function validar_talla()
	{
		var talla=(document.forms.datos_deseados.talla.value).toString();
		var peso=(document.forms.datos_deseados.peso.value).toString();
		var s_corpx;
		if(!talla.length)
			{
			g_talla=0;
			document.forms.datos_deseados.talla_replica.value="";
			document.forms.datos_deseados.imc.value="";
			if(g_peso)
				{
				peso=xredondeo(parseFloat(peso),2);
				s_corpx=((peso*4)+7)/(peso+90);
				document.forms.datos_deseados.s_corp.value=xredondeo(s_corpx,2);
				}
			else document.forms.datos_deseados.s_corp.value="";
			return;
			}
		for(i=0;i<talla.length;i++)
			{
			if(talla.charCodeAt(i)<46 || talla.charCodeAt(i)>57 || talla.charCodeAt(i)==47)
				{
				document.forms.datos_deseados.talla.value="";
				alert("Error: la talla debe contener números entre 35 y 250 cm");
				g_talla=0;
				document.forms.datos_deseados.talla_replica.value="";
				document.forms.datos_deseados.imc.value="";
				if(g_peso)
					{
					peso=xredondeo(parseFloat(peso),2);
					s_corpx=((peso*4)+7)/(peso+90);
					document.forms.datos_deseados.s_corp.value=xredondeo(s_corpx,2);
					}
				else document.forms.datos_deseados.s_corp.value="";
				return;
				}
			}
		talla=xredondeo(parseFloat(talla),2);
		if(talla<=35 || talla>250) 
			{
			document.forms.datos_deseados.talla.value="";
			alert("Error: la talla exige un intervalo válido entre 35 y 250 cm");
			g_talla=0;
			document.forms.datos_deseados.talla_replica.value="";
			document.forms.datos_deseados.imc.value="";
			if(g_peso)
					{
					peso=xredondeo(parseFloat(peso),2);
					s_corpx=((peso*4)+7)/(peso+90);
					document.forms.datos_deseados.s_corp.value=xredondeo(s_corpx,2);
					}
			else document.forms.datos_deseados.s_corp.value="";
			return;
			}
		else 
			{
			g_talla=1;
			document.forms.datos_deseados.talla_replica.value=document.forms.datos_deseados.talla.value+" cm.";
			if(g_peso==1)
				{
				peso=xredondeo(parseFloat(peso),2);
				s_corpx=Math.sqrt((talla*peso)/3600);
				document.forms.datos_deseados.imc.value=xredondeo(10000*peso/(talla*talla),2);
				document.forms.datos_deseados.s_corp.value=xredondeo(s_corpx,2);
				}
			}
	}
function validar_talla_previa()
	{
		var talla=(document.forms.datos_deseados.talla_previa.value).toString();
		if(!talla.length)
			{
			g_talla_previa=0;
			return;
			}
		for(i=0;i<talla.length;i++)
			{
			if(talla.charCodeAt(i)<46 || talla.charCodeAt(i)>57 || talla.charCodeAt(i)==47)
				{
				document.forms.datos_deseados.talla_previa.value="";
				alert("Error: la talla debe contener números entre 35 y 250 cm");
				g_talla_previa=0;
				return;
				}
			}
		talla=xredondeo(parseFloat(talla),2);
		if(talla<=35 || talla>250) 
			{
			document.forms.datos_deseados.talla_previa.value="";
			alert("Error: la talla exige un intervalo válido entre 35 y 250 cm");
			g_talla_previa=0;
			return;
			}
		else 
			{
			g_talla_previa=1;
			}
	}
function calculo_vc()
	{
	var tallax, talla_previax, fecha_previax, fecha_exploracionx;
	if(g_talla_previa==1 && g_fecha_exploracion_previa==1 && g_fecha_nacimiento==1 && g_fecha_exploracion==1 && g_talla==1)
		{
		talla_previax=(document.forms.datos_deseados.talla_previa.value).toString();
		talla_previax=xredondeo(parseFloat(talla_previax),1);
		tallax=(document.forms.datos_deseados.talla.value).toString();
		tallax=xredondeo(parseFloat(tallax),1);
		fecha_previax=conversor_fecha_Date(document.forms.datos_deseados.fecha_exploracion_previa.value);
		fecha_exploracionx=conversor_fecha_Date(document.forms.datos_deseados.fecha_exploracion.value);
		var diferencia_fechas=(fecha_exploracionx-fecha_previax)/31557600000;
		var diferencia_tallas=tallax-talla_previax;
		if(diferencia_fechas<=0)
			{
			alert("La fecha de la visita previa no puede ser posterior a la de exploracion.");
			document.forms.datos_deseados.fecha_exploracion_previa.value='';
			return;
			}
		if(diferencia_tallas<0)
			{
			alert("La talla de la visita previa no puede ser mayor que la de exploracion.");
			document.forms.datos_deseados.talla_previa.value='';
			return;
			}
		if(diferencia_fechas<0.5)
			{
			alert("El tiempo que ha pasado entre ambas fechas es escaso para una valoración fiable de la velocidad de crecimiento.");
			}
		if(diferencia_fechas>2)
			{
			alert("El tiempo que ha pasado entre ambas fechas es excesivo para una valoración fiable de la velocidad de crecimiento.");
			}
		document.forms.datos_deseados.vc.value=xredondeo((diferencia_tallas/diferencia_fechas),1);
		g_vc=1;
		document.forms.datos_deseados.incremento_talla.value=document.forms.datos_deseados.vc.value;
		calculo_automatico2();
		}
	else document.forms.datos_deseados.vc.value='';
	}
function validar_pc()
	{
		var talla=(document.forms.datos_deseados.pc.value).toString();
		if(!talla.length)
			{
			g_pc=0;
			return;
			}
		for(i=0;i<talla.length;i++)
			{
			if(talla.charCodeAt(i)<46 || talla.charCodeAt(i)>57 || talla.charCodeAt(i)==47)
				{
				document.forms.datos_deseados.pc.value="";
				alert("Error: el perimetro cefalico debe contener números entre 30 y 80 cm");
				g_pc=0;
				return;
				}
			}
		talla=xredondeo(parseFloat(talla),2);		
		if(talla<=30 || talla>80) 
			{
			document.forms.datos_deseados.pc.value="";
			alert("Error: el perimetro cefalico exige un intervalo válido entre 30 y 80 cm");
			g_pc=0;
			return;
			}
		else g_pc=1;
	}
function validar_vc()
	{
		var talla=(document.forms.datos_deseados.vc.value).toString();
		if(!talla.length)
			{
			g_vc=0;
			return;
			}
		for(i=0;i<talla.length;i++)
			{
			if(talla.charCodeAt(i)<46 || talla.charCodeAt(i)>57 || talla.charCodeAt(i)==47)
				{
				document.forms.datos_deseados.vc.value="";
				alert("Error: la vel. de crecimiento debe contener números entre 0 y 60 cm");
				g_vc=0;
				return;
				}
			}
		talla=xredondeo(parseFloat(talla),2);		
		if(talla<0 || talla>60) 
			{
			document.forms.datos_deseados.vc.value="";
			alert("Error: la vel. de crecimiento exige un intervalo válido entre 0 y 60 cm");
			g_vc=0;
			return;
			}
		else g_vc=1;
	}
function onFocus_vc()
	{
	var antrop4x=document.forms.datos_deseados.antrop4.selectedIndex;
	if(antrop4x!=0)
		{
		alert("AVISO: La tabla seleccionada no tiene en cuenta esta opción.");
		document.forms.datos_deseados.antrop4.focus();
		}
	}
function validar_TAS()
	{
		var talla=(document.forms.datos_deseados.TAS.value).toString();
		if(!talla.length)
			{
			g_TAS=0;
			return;
			}
		for(i=0;i<talla.length;i++)
			{
			if(talla.charCodeAt(i)<48 || talla.charCodeAt(i)>57)
				{
				document.forms.datos_deseados.TAS.value="";
				alert("Error: la cifra sistólica debe contener números enteros entre 10 y 250 mmHg");
				g_TAS=0;
				return;
				}
			}
		talla=xredondeo(parseFloat(talla),0);
		if(talla<10 || talla>250) 
			{
			document.forms.datos_deseados.TAS.value="";
			alert("Error: la cifra sistólica debe estar comprendida entre 10 y 250 mmHg");
			g_TAS=0;
			return;
			}
		else
			{
			g_TAS=1;
			}
	}
function validar_TAD()
	{
		var talla=(document.forms.datos_deseados.TAD.value).toString();
		if(!talla.length)
			{
			g_TAD=0;
			return;
			}
		for(i=0;i<talla.length;i++)
			{
			if(talla.charCodeAt(i)<48 || talla.charCodeAt(i)>57)
				{
				document.forms.datos_deseados.TAD.value="";
				alert("Error: la cifra diastólica debe contener números enteros entre 0 y 200 mmHg");
				g_TAD=0;
				return;
				}
			}
		talla=xredondeo(parseFloat(talla),0);
		if(talla<0 || talla>200) 
			{
			document.forms.datos_deseados.TAD.value="";
			alert("Error: la cifra diastólica debe estar comprendida entre 0 y 200 mmHg");
			g_TAD=0;
			return;
			}
		else
			{
			g_TAD=1;
			}
	}
	
function validar_segmento_i()
	{
		var talla=(document.forms.datos_deseados.segmento_i.value).toString();
		if(!talla.length)
			{
			g_segmento_i=0;
			document.forms.datos_deseados.segmento_s.value="";
			return;
			}
		for(i=0;i<talla.length;i++)
			{
			if(talla.charCodeAt(i)<46 || talla.charCodeAt(i)>57 || talla.charCodeAt(i)==47)
				{
				document.forms.datos_deseados.segmento_i.value="";
				document.forms.datos_deseados.segmento_s.value="";
				alert("Error: el segmento inferior debe contener números entre 20 y 150 cm");
				g_segmento_i=0;
				return;
				}
			}
		talla=xredondeo(parseFloat(talla),2);		
		if(talla<=20 || talla>150) 
			{
			document.forms.datos_deseados.segmento_i.value="";
			document.forms.datos_deseados.segmento_s.value="";
			alert("Error: la longitud del segmento inferior exige un intervalo entre 20 y 150 cm");
			g_segmento_i=0;
			return;
			}
		else 
			{
			if(g_talla)
				{
				if(parseFloat(document.forms.datos_deseados.talla.value)<=parseFloat(document.forms.datos_deseados.segmento_i.value))
					{
					document.forms.datos_deseados.segmento_i.value="";
					document.forms.datos_deseados.segmento_s.value="";
					alert("Error: El segmento inferior no puede superar a la talla.");
					g_segmento_i=0;
					return;
					}
				}
				g_segmento_i=1;
				if(g_talla) document.forms.datos_deseados.segmento_s.value=parseFloat(document.forms.datos_deseados.talla.value)-parseFloat(document.forms.datos_deseados.segmento_i.value);
				else document.forms.datos_deseados.segmento_s.value="";
			}
	}
function validar_braza()
	{
		var talla=(document.forms.datos_deseados.braza.value).toString();
		if(!talla.length)
			{
			g_braza=0;
			return;
			}
		for(i=0;i<talla.length;i++)
			{
			if(talla.charCodeAt(i)<46 || talla.charCodeAt(i)>57 || talla.charCodeAt(i)==47)
				{
				document.forms.datos_deseados.talla.value="";
				alert("Error: la braza o envergadura debe contener números entre 35 y 250 cm");
				g_braza=0;
				return;
				}
			}
		talla=xredondeo(parseFloat(talla),2);		
		if(talla<=35 || talla>250) 
			{
			document.forms.datos_deseados.braza.value="";
			alert("Error: la braza o envergadura exige un intervalo válido entre 35 y 250 cm");
			g_braza=0;
			return;
			}
		else g_braza=1;
	}
function validar_longitud_total_ms()
	{
		var talla=(document.forms.datos_deseados.longitud_ms.value).toString();
		if(!talla.length)
			{
			g_lms=0;
			return;
			}
		for(i=0;i<talla.length;i++)
			{
			if(talla.charCodeAt(i)<46 || talla.charCodeAt(i)>57 || talla.charCodeAt(i)==47)
				{
				document.forms.datos_deseados.longitud_ms.value="";
				alert("Error: la longitud del miembro superior debe contener números entre 20 y 100 cm");
				g_lms=0;
				return;
				}
			}
		talla=xredondeo(parseFloat(talla),2);		
		if(talla<=20 || talla>100) 
			{
			document.forms.datos_deseados.longitud_ms.value="";
			alert("Error: la longitud del miembro superior exige un intervalo entre 20 y 100 cm");
			g_lms=0;
			return;
			}
		else g_lms=1;
	}
function validar_longitud_brazo()
	{
		var talla=(document.forms.datos_deseados.longitud_brazo.value).toString();
		if(!talla.length)
			{
			g_lb=0;
			return;
			}
		for(i=0;i<talla.length;i++)
			{
			if(talla.charCodeAt(i)<46 || talla.charCodeAt(i)>57 || talla.charCodeAt(i)==47)
				{
				document.forms.datos_deseados.longitud_brazo.value="";
				alert("Error: la longitud del brazo debe contener números entre 5 y 75 cm");
				g_lb=0;
				return;
				}
			}
		talla=xredondeo(parseFloat(talla),2);		
		if(talla<=5 || talla>75) 
			{
			document.forms.datos_deseados.longitud_brazo.value="";
			alert("Error: la longitud del brazo exige un intervalo entre 5 y 75 cm");
			g_lb=0;
			return;
			}
		else g_lb=1;
	}
function validar_longitud_antebrazo()
	{
		var talla=(document.forms.datos_deseados.longitud_antebrazo.value).toString();
		if(!talla.length)
			{
			g_la=0;
			return;
			}
		for(i=0;i<talla.length;i++)
			{
			if(talla.charCodeAt(i)<46 || talla.charCodeAt(i)>57 || talla.charCodeAt(i)==47)
				{
				document.forms.datos_deseados.longitud_antebrazo.value="";
				alert("Error: la longitud del antebrazo debe contener números entre 5 y 50 cm");
				g_la=0;
				return;
				}
			}
		talla=xredondeo(parseFloat(talla),2);		
		if(talla<=5 || talla>50) 
			{
			document.forms.datos_deseados.longitud_antebrazo.value="";
			alert("Error: la longitud del antebrazo exige un intervalo entre 5 y 50 cm");
			g_la=0;
			return;
			}
		else g_la=1;
	}
function validar_longitud_total_mi()
	{
		var talla=(document.forms.datos_deseados.longitud_mi.value).toString();
		if(!talla.length)
			{
			g_lmi=0;
			return;
			}
		for(i=0;i<talla.length;i++)
			{
			if(talla.charCodeAt(i)<46 || talla.charCodeAt(i)>57 || talla.charCodeAt(i)==47)
				{
				document.forms.datos_deseados.longitud_mi.value="";
				alert("Error: la longitud del miembro inferior debe contener números entre 10 y 200 cm");
				g_lmi=0;
				return;
				}
			}
		talla=xredondeo(parseFloat(talla),2);		
		if(talla<=10 || talla>200) 
			{
			document.forms.datos_deseados.longitud_mi.value="";
			alert("Error: la longitud del miembro inferior exige un intervalo entre 10 y 200 cm");
			g_lmi=0;
			return;
			}
		else g_lmi=1;
	}
function validar_longitud_muslo()
	{
		var talla=(document.forms.datos_deseados.longitud_muslo.value).toString();
		if(!talla.length)
			{
			g_lm=0;
			return;
			}
		for(i=0;i<talla.length;i++)
			{
			if(talla.charCodeAt(i)<46 || talla.charCodeAt(i)>57 || talla.charCodeAt(i)==47)
				{
				document.forms.datos_deseados.longitud_muslo.value="";
				alert("Error: la longitud del muslo debe contener números entre 5 y 75 cm");
				g_lm=0;
				return;
				}
			}
		talla=xredondeo(parseFloat(talla),2);		
		if(talla<=5 || talla>75) 
			{
			document.forms.datos_deseados.longitud_muslo.value="";
			alert("Error: la longitud del muslo exige un intervalo entre 5 y 75 cm");
			g_lm=0;
			return;
			}
		else g_lm=1;
	}
function validar_longitud_pierna()
	{
		var talla=(document.forms.datos_deseados.longitud_pierna.value).toString();
		if(!talla.length)
			{
			g_lp=0;
			return;
			}
		for(i=0;i<talla.length;i++)
			{
			if(talla.charCodeAt(i)<46 || talla.charCodeAt(i)>57 || talla.charCodeAt(i)==47)
				{
				document.forms.datos_deseados.longitud_pierna.value="";
				alert("Error: la longitud de la pierna debe contener números entre 2 y 75 cm");
				g_lp=0;
				return;
				}
			}
		talla=xredondeo(parseFloat(talla),2);		
		if(talla<=2 || talla>75) 
			{
			document.forms.datos_deseados.longitud_pierna.value="";
			alert("Error: la longitud de la pierna exige un intervalo entre 2 y 75 cm");
			g_lp=0;
			return;
			}
		else g_lp=1;
	}
function validar_eo()
	{
		var eo=(document.forms.datos_deseados.edad_osea.value).toString();
		if(!eo.length)
			{
			g_eo=0;
			return;
			}
		for(i=0;i<eo.length;i++)
			{
			if(eo.charCodeAt(i)<46 || eo.charCodeAt(i)>57 || eo.charCodeAt(i)==47)
				{
				document.forms.datos_deseados.edad_osea.value="";
				alert("Error: la edad ósea debe contener números entre 1 y 18 años");
				g_eo=0;
				return;
				}
			}
		eo=xredondeo(parseFloat(eo),1);		
		if(eo<1 || eo>18) 
			{
			document.forms.datos_deseados.edad_osea.value="";
			alert("Error: la edad ósea exige un intervalo válido entre 1 y 18 años");
			g_eo=0;
			return;
			}
		else g_eo=1;
	}
function validar_talla_padre()
	{
		var talla_px=(document.forms.datos_deseados.talla_p.value).toString();
		if(!talla_px.length)
			{
			g_talla_p=0;
			return;
			}
		for(i=0;i<talla_px.length;i++)
			{
			if(talla_px.charCodeAt(i)<46 || talla_px.charCodeAt(i)>57 || talla_px.charCodeAt(i)==47)
				{
				document.forms.datos_deseados.talla_p.value="";
				alert("Error: la talla paterna debe contener números entre 120 y 230 cm");
				g_talla_p=0;
				return;
				}
			}
		talla_px=xredondeo(parseFloat(talla_px),1);
		if(talla_px<120 || talla_px>230) 
			{
			document.forms.datos_deseados.talla_p.value="";
			alert("Error: la talla paterna exige un intervalo entre 120 y 230 cm");
			g_talla_p=0;
			return;
			}
		else g_talla_p=1;
	}
function validar_talla_madre()
	{

		var talla_mx=(document.forms.datos_deseados.talla_m.value).toString();
		if(!talla_mx.length)
			{
			g_talla_m=0;
			return;
			}
		for(i=0;i<talla_mx.length;i++)
			{
			if(talla_mx.charCodeAt(i)<46 || talla_mx.charCodeAt(i)>57 || talla_mx.charCodeAt(i)==47)
				{
				document.forms.datos_deseados.talla_m.value="";
				alert("Error: la talla materna debe contener números entre 120 y 230 cm");
				g_talla_m=0;
				return;
				}
			}
		talla_mx=xredondeo(parseFloat(talla_mx),1);	
		if(talla_mx<120 || talla_mx>230) 
			{
			document.forms.datos_deseados.talla_m.value="";
			alert("Error: la talla materna exige un intervalo entre 120 y 230 cm");
			g_talla_m=0;
			return;
			}
		else g_talla_m=1;
	}
function validar_talla_diana()
	{
		var talla_dianax;
		var talla_px=parseFloat(document.forms.datos_deseados.talla_p.value);
		var talla_mx=parseFloat(document.forms.datos_deseados.talla_m.value);
		if(document.forms.datos_deseados.sexo[0].checked) sexo=1;
		else sexo=0;
		if(g_talla_p==1 && g_talla_m==1)
			{
			if(sexo) xredondeo(talla_dianax=(talla_px+talla_mx)/2+6.5,1);
			else talla_dianax=xredondeo((talla_px+talla_mx)/2-6.5,1);
			document.forms.datos_deseados.talla_diana.value=talla_dianax;
			}
		else document.forms.datos_deseados.talla_diana.value="";
	}
function validar_incremento_talla()
	{
		var talla=(document.forms.datos_deseados.incremento_talla.value).toString();
		if(!talla.length)
			{
			g_incremento_talla=0;
			return;
			}
		for(i=0;i<talla.length;i++)
			{
			if(talla.charCodeAt(i)<46 || talla.charCodeAt(i)>57 || talla.charCodeAt(i)==47)
				{
				document.forms.datos_deseados.incremento_talla.value="";
				alert("Error: el incremento de talla (vel. de crecimiento) debe contener números entre 0 y 60 cm");
				g_incremento_talla=0;
				return;
				}
			}
		talla=xredondeo(parseFloat(talla),2);		
		if(talla<0 || talla>60) 
			{
			document.forms.datos_deseados.incremento_talla.value="";
			alert("Error: el incremento de talla (vel. de crecimiento) exige un intervalo válido entre 0 y 60 cm");
			g_incremento_talla=0;
			return;
			}
		else g_incremento_talla=1;
	}
function validar_incremento_edad_o()
	{
		var talla=(document.forms.datos_deseados.incremento_edad_o.value).toString();
		if(!talla.length)
			{
			g_incremento_edad_o=0;
			return;
			}
		for(i=0;i<talla.length;i++)
			{
			if(talla.charCodeAt(i)<46 || talla.charCodeAt(i)>57 || talla.charCodeAt(i)==47)
				{
				document.forms.datos_deseados.incremento_edad_o.value="";
				alert("Error: el incremento de edad ósea debe contener números entre 0 y 5 años");
				g_incremento_edad_o=0;
				return;
				}
			}
		talla=xredondeo(parseFloat(talla),2);		
		if(talla<0 || talla>5) 
			{
			document.forms.datos_deseados.incremento_edad_o.value="";
			alert("Error: el incremento de edad ósea exige un intervalo válido entre 0 y 5 años");
			g_incremento_edad_o=0;
			return;
			}
		else g_incremento_edad_o=1;
	}
function validar_edad_menarquia()
	{
		var talla=(document.forms.datos_deseados.edad_menarquia.value).toString();
		if(!talla.length)
			{
			g_edad_menarquia=0;
			return;
			}
		for(i=0;i<talla.length;i++)
			{
			if(talla.charCodeAt(i)<46 || talla.charCodeAt(i)>57 || talla.charCodeAt(i)==47)
				{
				document.forms.datos_deseados.edad_menarquia.value="";
				alert("Error: la edad de la menarquia debe contener números entre 6 y 18 años");
				g_edad_menarquia=0;
				return;
				}
			}
		talla=xredondeo(parseFloat(talla),2);		
		if(talla<6 || talla>18) 
			{
			document.forms.datos_deseados.edad_menarquia.value="";
			alert("Error: la edad de la menarquia exige un intervalo válido entre 6 y 18 años");
			g_edad_menarquia=0;
			return;
			}
		else g_edad_menarquia=1;
	}
function validar_perimetro_abd()
	{
		var talla=(document.forms.datos_deseados.perimetro_abd.value).toString();
		if(!talla.length)
			{
			g_perimetro_abd=0;
			return;
			}
		for(i=0;i<talla.length;i++)
			{
			if(talla.charCodeAt(i)<46 || talla.charCodeAt(i)>57 || talla.charCodeAt(i)==47)
				{
				document.forms.datos_deseados.perimetro_abd.value="";
				alert("Error: el perimetro abdominal debe contener números entre 20 y 200 cm");
				g_perimetro_abd=0;
				return;
				}
			}
		talla=xredondeo(parseFloat(talla),2);		
		if(talla<=20 || talla>200) 
			{
			document.forms.datos_deseados.perimetro_abd.value="";
			alert("Error: el perimetro abdominal exige un intervalo válido entre 20 y 200 cm");
			g_perimetro_abd=0;
			return;
			}
		else g_perimetro_abd=1;
	}
function validar_perimetro_bic()
	{
		var talla=(document.forms.datos_deseados.perimetro_bic.value).toString();
		if(!talla.length)
			{
			g_perimetro_bic=0;
			return;
			}
		for(i=0;i<talla.length;i++)
			{
			if(talla.charCodeAt(i)<46 || talla.charCodeAt(i)>57 || talla.charCodeAt(i)==47)
				{
				document.forms.datos_deseados.perimetro_bic.value="";
				alert("Error: el perimetro del brazo debe contener números entre 3 y 80 cm");
				g_perimetro_bic=0;
				return;
				}
			}
		talla=xredondeo(parseFloat(talla),2);		
		if(talla<=3 || talla>80) 
			{
			document.forms.datos_deseados.perimetro_bic.value="";
			alert("Error: el perimetro del brazo exige un intervalo válido entre 3 y 80 cm");
			g_perimetro_bic=0;
			return;
			}
		else g_perimetro_bic=1;
	}
function validar_pliegue_tri()
	{
		var talla=(document.forms.datos_deseados.pliegue_tri.value).toString();
		if(!talla.length)
			{
			g_pliegue_tri=0;
			return;
			}
		for(i=0;i<talla.length;i++)
			{
			if(talla.charCodeAt(i)<46 || talla.charCodeAt(i)>57 || talla.charCodeAt(i)==47)
				{
				document.forms.datos_deseados.pliegue_tri.value="";
				alert("Error: el pliegue tricipital debe contener números entre 0.1 y 50 cm");
				g_pliegue_tri=0;
				return;
				}
			}
		talla=xredondeo(parseFloat(talla),2);		
		if(talla<=0.1 || talla>50) 
			{
			document.forms.datos_deseados.pliegue_tri.value="";
			alert("Error: el pliegue tricipital exige un intervalo válido entre 0.1 y 50 cm");
			g_pliegue_tri=0;
			return;
			}
		else g_pliegue_tri=1;
	}
function validar_pliegue_bic()
	{
		var talla=(document.forms.datos_deseados.pliegue_bic.value).toString();
		if(!talla.length)
			{
			g_pliegue_bic=0;
			return;
			}
		for(i=0;i<talla.length;i++)
			{
			if(talla.charCodeAt(i)<46 || talla.charCodeAt(i)>57 || talla.charCodeAt(i)==47)
				{
				document.forms.datos_deseados.pliegue_bic.value="";
				alert("Error: el pliegue bicipital debe contener números entre 0.1 y 50 cm");
				g_pliegue_bic=0;
				return;
				}
			}
		talla=xredondeo(parseFloat(talla),2);		
		if(talla<=0.1 || talla>50) 
			{
			document.forms.datos_deseados.pliegue_bic.value="";
			alert("Error: el pliegue bicipital exige un intervalo válido entre 0.1 y 50 cm");
			g_pliegue_bic=0;
			return;
			}
		else g_pliegue_bic=1;
	}
function validar_pliegue_sub()
	{
		var talla=(document.forms.datos_deseados.pliegue_sub.value).toString();
		if(!talla.length)
			{
			g_pliegue_sub=0;
			return;
			}
		for(i=0;i<talla.length;i++)
			{
			if(talla.charCodeAt(i)<46 || talla.charCodeAt(i)>57 || talla.charCodeAt(i)==47)
				{
				document.forms.datos_deseados.pliegue_sub.value="";
				alert("Error: el pliegue subescapular debe contener números entre 0.1 y 35 cm");
				g_pliegue_sub=0;
				return;
				}
			}
		talla=xredondeo(parseFloat(talla),2);		
		if(talla<=0.1 || talla>35) 
			{
			document.forms.datos_deseados.pliegue_sub.value="";
			alert("Error: el pliegue subescapular exige un intervalo válido entre 0.1 y 35 cm");
			g_pliegue_sub=0;
			return;
			}
		else g_pliegue_sub=1;
	}
function validar_pliegue_ili()
	{
		var talla=(document.forms.datos_deseados.pliegue_ili.value).toString();
		if(!talla.length)
			{
			g_pliegue_ili=0;
			return;
			}
		for(i=0;i<talla.length;i++)
			{
			if(talla.charCodeAt(i)<46 || talla.charCodeAt(i)>57 || talla.charCodeAt(i)==47)
				{
				document.forms.datos_deseados.pliegue_ili.value="";
				alert("Error: el pliegue iliaco debe contener números entre 1 y 100 cm");
				g_pliegue_ili=0;
				return;
				}
			}
		talla=xredondeo(parseFloat(talla),2);		
		if(talla<=1 || talla>100) 
			{
			document.forms.datos_deseados.pliegue_ili.value="";
			alert("Error: el pliegue iliaco exige un intervalo válido entre 1 y 100 cm");
			g_pliegue_ili=0;
			return;
			}
		else g_pliegue_ili=1;
	}

function onFocus_obesidad()
	{
	document.forms.datos_deseados.perimetro_abd.focus();
	}
function calculo_automatico2()
	{
	var edad, sexo, DE, percentilx, pesox, tallax,imcx, pcx, vcx, dmo_lx, talla_px, talla_mx, talla_dx, TASx, TADx;
	var antrop2x=document.forms.datos_deseados.antrop2.selectedIndex;
	var antrop3x=document.forms.datos_deseados.antrop3.selectedIndex;
	var antrop4x=document.forms.datos_deseados.antrop4.selectedIndex;
	if(document.forms.datos_deseados.sexo[0].checked) sexo=1;
	else sexo=0;
	if(g_fecha_nacimiento==1 && g_fecha_exploracion==1)
		{
		with(document.forms.datos_deseados)
			{
			edad=calculo_edad(conversor_fecha_Date(fecha_nacimiento.value),conversor_fecha_Date(fecha_exploracion.value));
			}
		if(g_peso==1)
			{
			pesox=xredondeo(parseFloat(document.forms.datos_deseados.peso.value),2);
			if(antrop2x==0)DE=DE_x(tabla_peso_espana_2008(),pesox,edad,sexo);
			if(antrop2x==1)DE=DE_x(tabla_peso_espana_barcelona_2003(),pesox,edad,sexo);
			if(antrop2x==2)DE=DE_x(tabla_peso_espana_zaragoza_2002(),pesox,edad,sexo);
			if(antrop2x==3)DE=DE_x(tabla_peso_espana_bilbao_1988(),pesox,edad,sexo);
			percentilx=percentil(DE);
			document.forms.datos_deseados.p_peso.value="("+percentilx+", "+DE+" DE"+")";
			}
		else document.forms.datos_deseados.p_peso.value="";
		if(g_talla==1)
			{
			tallax=xredondeo(parseFloat(document.forms.datos_deseados.talla.value),2);
			if(antrop2x==0)DE=DE_x(tabla_talla_espana_2008(),tallax,edad,sexo);
			if(antrop2x==1)DE=DE_x(tabla_talla_espana_barcelona_2003(),tallax,edad,sexo);
			if(antrop2x==2)DE=DE_x(tabla_talla_espana_zaragoza_2002(),tallax,edad,sexo);
			if(antrop2x==3)DE=DE_x(tabla_talla_espana_bilbao_1988(),tallax,edad,sexo);
			var z_talla=DE;
			percentilx=percentil(DE);
			document.forms.datos_deseados.p_talla.value="("+percentilx+", "+DE+" DE"+")";
			}
		else document.forms.datos_deseados.p_talla.value="";
		if(g_peso==1 && g_talla==1)
			{
			imcx=xredondeo(pesox*10000/(tallax*tallax),2);
			if(antrop2x==0)DE=DE_x(tabla_imc_espana_2008(),imcx,edad,sexo);
			if(antrop2x==1)DE=DE_x(tabla_imc_espana_barcelona_2003(),imcx,edad,sexo);
			if(antrop2x==2)DE=DE_x(tabla_imc_espana_zaragoza_2002(),imcx,edad,sexo);
			if(antrop2x==3)DE=DE_x(tabla_imc_espana_zaragoza_2002(),imcx,edad,sexo);
			percentilx=percentil(DE);
			document.forms.datos_deseados.p_imc.value="("+percentilx+", "+DE+" DE)";
			}
		else document.forms.datos_deseados.p_imc.value="";
		if(g_pc)
			{
			pcx=xredondeo(parseFloat(document.forms.datos_deseados.pc.value),2);
			if(antrop3x==0) DE=DE_x(tabla_pc_espana_zaragoza_2002(),pcx,edad,sexo);
			percentilx=percentil(DE);
			document.forms.datos_deseados.p_pc.value="("+percentilx+", "+DE+" DE"+")";
			}
		else document.forms.datos_deseados.p_pc.value="";
		if(g_vc)
			{
			vcx=xredondeo(parseFloat(document.forms.datos_deseados.vc.value),2);
			if(antrop4x==0)	
				{
				with(document.forms.datos_deseados)
					{
					if(tanner[0].checked) 
						{
						DE=DE_x(tabla_vc1_espana_zaragoza_2002(),vcx,edad,sexo);
						percentilx=percentil(DE);
						}
					if(tanner[1].checked)
						{
						DE=DE_x(tabla_vc2_espana_zaragoza_2002(),vcx,edad,sexo);
						percentilx=percentil(DE);
						}
					if(tanner[2].checked)
						{
						DE=DE_x(tabla_vc3_espana_zaragoza_2002(),vcx,edad,sexo);
						percentilx=percentil(DE);
						}
					if(tanner[3].checked)
						{
						DE=DE_x(tabla_vc4_espana_zaragoza_2002(),vcx,edad,sexo);
						percentilx=percentil(DE);
						}
					if(tanner[4].checked)
						{
						DE=DE_x(tabla_vc5_espana_zaragoza_2002(),vcx,edad,sexo);
						percentilx=percentil(DE);				
						}
					}
				}
			if(antrop4x==1)
				{
				DE=DE_x(tabla_vc_espana_bilbao_2002(),vcx,edad,sexo);
				percentilx=percentil(DE);
				}
			document.forms.datos_deseados.p_vc.value="("+percentilx+", "+DE+" DE"+")";
			}
		else document.forms.datos_deseados.p_vc.value="";
		
		/* Tension arterial*/
		var xHTA=0;
		if(g_TAS && g_talla)
			{
			TASx=xredondeo(parseFloat(document.forms.datos_deseados.TAS.value),0);
			DE=tabla_tension_arterial_sistolica_NHBPEP_2004(edad, sexo, z_talla, TASx);
			percentilx=percentil(DE);
			if(DE>=1.30)
				{
				if(DE<1.66) xHTA=1;
				else xHTA=3;
				}
			else xHTA=0;
			document.forms.datos_deseados.p_TAS.value="("+percentilx+", "+DE+" DE"+")";
			}
		else document.forms.datos_deseados.p_TAS.value="";
		if(g_TAD && g_talla)
			{
			TADx=xredondeo(parseFloat(document.forms.datos_deseados.TAD.value),0);
			DE=tabla_tension_arterial_diastolica_NHBPEP_2004(edad, sexo, z_talla, TADx);
			percentilx=percentil(DE);
			if(DE>=1.30)
				{
				if(DE<1.66) xHTA+=1;
				else xHTA+=3;
				}
			else xHTA+=0;
			document.forms.datos_deseados.p_TAD.value="("+percentilx+", "+DE+" DE"+")";
			}
		else document.forms.datos_deseados.p_TAD.value="";
		if((g_TAS || g_TAD) && g_talla)
			{
			if(xHTA==0 && TASx<121 && TADx<81) document.forms.datos_deseados.alerta_HTA.value="";
			else
				{
				if(xHTA>2 || TASx>120 || TADx>80) document.forms.datos_deseados.alerta_HTA.value="ALERTA: Cifras de hipertensión arterial. Comprobar y confirmar en visitas posteriores.";
				else if (xHTA>0) document.forms.datos_deseados.alerta_HTA.value="ALERTA: Cifras de prehipertensión arterial. Comprobar y confirmar en visitas posteriores.";
				}
			}
		else document.forms.datos_deseados.alerta_HTA.value="";
		
		
		/* Proporciones corporales*/
		var segmento_ix, segmento_sx, cociente, texto_cociente='', brazax, lmsx, lbx, lax, indice_ms, lmix, lmx, lpx, indice_mi;
		
			/*Aqui empieza sangrado de segmentos y braza*/
					if(g_segmento_i)
					{
					segmento_ix=xredondeo(parseFloat(document.forms.datos_deseados.segmento_i.value),2);
					if(g_talla)
						{
						segmento_sx=xredondeo(parseFloat(document.forms.datos_deseados.talla.value)-parseFloat(document.forms.datos_deseados.segmento_i.value),2);
						cociente=xredondeo(segmento_sx/segmento_ix,1);
						if(edad<=1)
							{
							if(cociente>=1.5) texto_cociente+="(normal)";
							else texto_cociente+="(disminuido). ";
							}
						if(edad>1 && edad<8)
							{
							if(cociente>1.7) texto_cociente+="(elevado)";
							else 
								{
								if(cociente<1.1) texto_cociente+="(disminuido)";
								else texto_cociente+="(normal)";
								}							
							}
						if(edad>=8 && edad<=10)
							{
							if(cociente>1.5) texto_cociente+="(elevado)";
							else 
								{
								if(cociente<0.9) texto_cociente+="(disminuido)";
								else texto_cociente+="(normal)";
								}							
							}
						if (edad>10)
							{
							if(cociente>=1.2) texto_cociente+="(elevado; proporciones eunucoides)";
							else
								{
								if(cociente>1) texto_cociente+="(ligeramente elevado)";
								else texto_cociente+="(normal)";
								}
							}
						document.forms.datos_deseados.SS_SI.value=cociente+" "+texto_cociente;
						}
					else
						{
						document.forms.datos_deseados.SS_SI.value="";
						}
					}
				else document.forms.datos_deseados.SS_SI.value="";
				
				if(g_braza)
					{
					brazax=xredondeo(parseFloat(document.forms.datos_deseados.braza.value),1);
					if(g_talla)
						{
						var diferencia=brazax-tallax;
						if(edad<12 || sexo==0)
							{
							if(diferencia<=-3) document.forms.datos_deseados.braza_v.value=" (disminuida)";
							if(diferencia<3 && diferencia>-3) document.forms.datos_deseados.braza_v.value=" (normal)";
							if(diferencia>=3 && diferencia<=4) document.forms.datos_deseados.braza_v.value=" (ligeramente incrementada)";
							if(diferencia>4) document.forms.datos_deseados.braza_v.value=" (muy incrementada)";
							}
						else
							{
							if(diferencia<-3) document.forms.datos_deseados.braza_v.value=" (disminuida)";
							if(diferencia<5 && diferencia>=-3) document.forms.datos_deseados.braza_v.value=" (normal)";
							if(diferencia>=5 && diferencia<6) document.forms.datos_deseados.braza_v.value=" (ligeramente incrementada)";
							if(diferencia>=6) document.forms.datos_deseados.braza_v.value=" (muy incrementada)";
							}
						}
					else document.forms.datos_deseados.braza_v.value="";
					}
				else document.forms.datos_deseados.braza_v.value="";
				
				/*Aqui termina sangrado de segmentos*/
				
				/*Aqui empieza sangrado de porciones*/
				if(g_lms)
					{
					lmsx=xredondeo(parseFloat(document.forms.datos_deseados.longitud_ms.value),2);
					DE=DE_x(tabla_longitud_total_ms(),lmsx,edad,sexo);
					percentilx=percentil(DE);
					if(DE==Infinity) document.forms.datos_deseados.lts_v.value="---";
					else document.forms.datos_deseados.lts_v.value="("+percentilx+", "+DE+" DE"+")";
					}
				else document.forms.datos_deseados.lts_v.value="";

				if(g_lb)
					{
					lbx=xredondeo(parseFloat(document.forms.datos_deseados.longitud_brazo.value),2);
					DE=DE_x(tabla_longitud_brazo(),lbx,edad,sexo);
					percentilx=percentil(DE);
					if(DE==Infinity) document.forms.datos_deseados.lb_v.value="---";
					else 
						{
						document.forms.datos_deseados.lb_v.value="("+percentilx+", "+DE+" DE)";
						}
					}
				else document.forms.datos_deseados.lb_v.value="";
				if(g_la)
					{
					lax=xredondeo(parseFloat(document.forms.datos_deseados.longitud_antebrazo.value),2);
					DE=DE_x(tabla_longitud_antebrazo(),lax,edad,sexo);
					percentilx=percentil(DE);
					if(DE==Infinity) document.forms.datos_deseados.la_v.value="---";
					else 
						{
						document.forms.datos_deseados.la_v.value="("+percentilx+", "+DE+" DE)";
						}
					}
				else document.forms.datos_deseados.la_v.value="";
				if(g_lb==1 && g_lms==1)
					{
					var texto_ims="";
					indice_ms=xredondeo(lbx/lmsx,2);
					if(indice_ms<=0 || indice_ms>10 || isNaN(indice_ms))
						document.forms.datos_deseados.ims_v.value="incalculable con los datos disponibles";
					else 
						{
						if(indice_ms>0.50) texto_ims=indice_ms+" (elevado: posible mesomelia)";
						else
							{
							if(indice_ms<0.38) texto_ims=indice_ms+" (bajo: posible rizomelia)";
							else texto_ims=indice_ms+" (normal)";
							}
						document.forms.datos_deseados.ims_v.value=texto_ims;
						}
					}
				else document.forms.datos_deseados.ims_v.value="";
				if(g_lmi)
					{
					lmix=xredondeo(parseFloat(document.forms.datos_deseados.longitud_mi.value),2);
					DE=DE_x(tabla_longitud_total_mi(),lmix,edad,sexo);
					percentilx=percentil(DE);
					if(DE==Infinity) document.forms.datos_deseados.lti_v.value="---";
					else document.forms.datos_deseados.lti_v.value="("+percentilx+", "+DE+" DE"+")";
					}
				else document.forms.datos_deseados.lti_v.value="";
				if(g_lm)
					{
					lmx=xredondeo(parseFloat(document.forms.datos_deseados.longitud_muslo.value),2);
					DE=DE_x(tabla_longitud_muslo(),lmx,edad,sexo);
					percentilx=percentil(DE);
					if(DE==Infinity) document.forms.datos_deseados.lm_v.value="---";
					else
						{
						document.forms.datos_deseados.lm_v.value="("+percentilx+", "+DE+" DE)";
						}
					}
				else document.forms.datos_deseados.lm_v.value="";
				if(g_lp)
					{
					lpx=xredondeo(parseFloat(document.forms.datos_deseados.longitud_pierna.value),2);
					DE=DE_x(tabla_longitud_pierna(),lpx,edad,sexo);
					percentilx=percentil(DE);
					if(DE==Infinity) document.forms.datos_deseados.lp_v.value="---";
					else
						{
						document.forms.datos_deseados.lp_v.value=" ("+percentilx+", "+DE+" DE"+")";
						}
					}
				else document.forms.datos_deseados.lp_v.value="";
				if(g_lp==1 && g_lmi==1)
					{
					indice_mi=xredondeo(lpx/lmix,2);
					var texto_imi="";
					if(indice_mi<=0 || indice_mi>10 || isNaN(indice_mi))
						document.forms.datos_deseados.imi.value="incalculable con los datos disponibles";
					else 
						{
						if(indice_mi>0.67) texto_imi=indice_mi+" (elevado: posible rizomelia)";
						else 
							{
							if(indice_mi<0.57) texto_imi=indice_mi+" (bajo: posible mesomelia)";
							else texto_imi=indice_mi+" (normal)";
							}
						document.forms.datos_deseados.imi_v.value=texto_imi;
						}
					}
				else document.forms.datos_deseados.imi_v.value="";
		/*Aqui termina sangrado de porciones*/
	
		/*Pronostico de talla*/
		if(g_talla_p)
			{
			talla_px=xredondeo(parseFloat(document.forms.datos_deseados.talla_p.value),2);
			if(antrop2x==0)DE=DE_x(tabla_talla_espana_2008(),talla_px,22,1);
			if(antrop2x==1)DE=DE_x(tabla_talla_espana_barcelona_2003(),talla_px,22,1);
			if(antrop2x==2)DE=DE_x(tabla_talla_espana_zaragoza_2002(),talla_px,22,1);
			if(antrop2x==3)DE=DE_x(tabla_talla_espana_bilbao_1988(),talla_px,22,1);
			percentilx=percentil(DE);
			document.forms.datos_deseados.p_talla_p.value="("+percentilx+", "+DE+" DE"+")";
			}
		if(g_talla_m)
			{
			talla_mx=xredondeo(parseFloat(document.forms.datos_deseados.talla_m.value),2);
			if(antrop2x==0)DE=DE_x(tabla_talla_espana_2008(),talla_mx,22,0);
			if(antrop2x==1)DE=DE_x(tabla_talla_espana_barcelona_2003(),talla_mx,22,0);
			if(antrop2x==2)DE=DE_x(tabla_talla_espana_zaragoza_2002(),talla_mx,22,0);
			if(antrop2x==3)DE=DE_x(tabla_talla_espana_bilbao_1988(),talla_mx,22,0);
			percentilx=percentil(DE);
			document.forms.datos_deseados.p_talla_m.value="("+percentilx+", "+DE+" DE"+")";
			}
		if(g_talla_p==1 && g_talla_m==1)
			{
			talla_dx=xredondeo(parseFloat(document.forms.datos_deseados.talla_diana.value),2);
			if(antrop2x==0)DE=DE_x(tabla_talla_espana_2008(),talla_dx,22,sexo);
			if(antrop2x==1)DE=DE_x(tabla_talla_espana_barcelona_2003(),talla_dx,22,sexo);
			if(antrop2x==2)DE=DE_x(tabla_talla_espana_zaragoza_2002(),talla_dx,22,sexo);
			if(antrop2x==3)DE=DE_x(tabla_talla_espana_bilbao_1988(),talla_dx,22,sexo);
			percentilx=percentil(DE);
			document.forms.datos_deseados.p_talla_d.value="("+percentilx+", "+DE+" DE"+")";
			}
			

		var eox=xredondeo(parseFloat(document.forms.datos_deseados.edad_osea.value),1);
		var pron_talla;
		if(g_eo) 
			{
			var diferencia;
			if((edad-eox)<1 && (edad-eox)>-1) diferencia="acorde";
			if((edad-eox)>=1) diferencia="retrasada";
			if((edad-eox)<=-1) diferencia="adelantada";
			document.forms.datos_deseados.val_edad_osea.value=" ["+diferencia+"]";
			}
		else document.forms.datos_deseados.val_edad_osea.value="";
		if(g_talla==1)
			{
			if(antrop2x==0)document.forms.datos_deseados.talla_proyectada.value=talla_proyectada(edad, sexo, tallax,tabla_talla_espana_2008())+" cm";
			if(antrop2x==1)document.forms.datos_deseados.talla_proyectada.value=talla_proyectada(edad, sexo, tallax,tabla_talla_espana_barcelona_2003())+" cm";
			if(antrop2x==2)document.forms.datos_deseados.talla_proyectada.value=talla_proyectada(edad, sexo, tallax,tabla_talla_espana_zaragoza_2002())+" cm";

			}
		else document.forms.datos_deseados.talla_proyectada.value="";
		if(document.forms.datos_deseados.atlas[0].checked && g_eo==1 && g_talla==1)
					{
					pron_talla=xredondeo(pred_talla_BP(sexo, tallax, edad, eox, talla_px, talla_mx),1);
					if(pron_talla==0 || pron_talla==Infinity) document.forms.datos_deseados.R_BP.value="incalculable con estos datos";
					else document.forms.datos_deseados.R_BP.value=pron_talla+" ± 5 cm. ";
					if(g_peso)
						{
						pron_talla=pred_talla_RWT(sexo, tallax, pesox, edad, eox, talla_px, talla_mx);
						if(pron_talla==0 || pron_talla==Infinity) document.forms.datos_deseados.R_RWT.value="incalculable con estos datos";
						else document.forms.datos_deseados.R_RWT.value=pron_talla;
						}
					}
		else 
					{
					document.forms.datos_deseados.R_BP.value="";
					document.forms.datos_deseados.R_RWT.value="";
					}
		if((document.forms.datos_deseados.atlas[2].checked && g_peso==1 && g_talla==1) || (g_peso==1 && g_eo==0 && g_talla==1))
					{
					pron_talla=pred_talla_KR(sexo, tallax, pesox, edad, talla_px, talla_mx);
					if(pron_talla==0 || pron_talla==Infinity) document.forms.datos_deseados.R_KR.value="incalculable con estos datos";
					else document.forms.datos_deseados.R_KR.value=pron_talla;
					}
		else 		document.forms.datos_deseados.R_KR.value="";
		if(document.forms.datos_deseados.atlas[1].checked && g_eo==1 && g_talla==1)
					{
					var menarquiax=document.forms.datos_deseados.menarquia.checked;
					var edad_menarquiax=document.forms.datos_deseados.edad_menarquia.value;
					var incremento_tallax=document.forms.datos_deseados.incremento_talla.value;
					var incremento_edad_ox=document.forms.datos_deseados.incremento_edad_o.value;
					pron_talla=prediccion_talla_TW2(edad,eox,sexo,tallax,menarquiax,edad_menarquiax,incremento_tallax,incremento_edad_ox)[0];
					if(pron_talla==0  || pron_talla<tallax) document.forms.datos_deseados.R_TWM.value="incalculable con estos datos";
					else document.forms.datos_deseados.R_TWM.value=pron_talla+" ± "+prediccion_talla_TW2(edad,eox,sexo,tallax,menarquiax,edad_menarquiax,incremento_tallax,incremento_edad_ox)[1]+" cm (fiabilidad del "+prediccion_talla_TW2(edad,eox,sexo,tallax,menarquiax,edad_menarquiax,incremento_tallax,incremento_edad_ox)[2]+"%)";
					}
		else 		document.forms.datos_deseados.R_TWM.value="";
					
		/*Composicion corporal*/
		if(g_perimetro_abd)
			{
			var perimetro_abdx=xredondeo(parseFloat(document.forms.datos_deseados.perimetro_abd.value),1);
			var comp_corp_1x=document.forms.datos_deseados.comp_corp_1.selectedIndex;
			if(comp_corp_1x==0 && edad>=6)
					{	
					DE=DE_x(tabla_per_abdominal_espana_1999(),perimetro_abdx,edad,sexo);
					percentilx=percentil(DE);
					document.forms.datos_deseados.p_perimetro_abd.value="("+percentilx+", "+DE+" DE"+")";
					}
			else
				{
				alert("AVISO: La tabla suministrada para perímetro abdominal requiere una edad superior o igual a 6 años");
				document.forms.datos_deseados.p_perimetro_abd.value="";
				document.forms.datos_deseados.perimetro_abd.value="";
				document.forms.datos_deseados.perimetro_bic.focus();
				}
			}
		else document.forms.datos_deseados.p_perimetro_abd.value="";
		if(g_perimetro_bic)
			{
			var perimetro_bicx=xredondeo(parseFloat(document.forms.datos_deseados.perimetro_bic.value),1);
			var comp_corp_2x=document.forms.datos_deseados.comp_corp_1.selectedIndex;
			if(comp_corp_2x==0)
				{
				DE=DE_x(tabla_per_bicipital_espana_1988(),perimetro_bicx,edad,sexo);
				percentilx=percentil(DE);
				document.forms.datos_deseados.p_perimetro_bic.value="("+percentilx+", "+DE+" DE). ";
				}
			}
		else document.forms.datos_deseados.p_perimetro_bic.value="";
		if(g_pliegue_tri)
			{
			var pliegue_trix=xredondeo(parseFloat(document.forms.datos_deseados.pliegue_tri.value),1);
			var comp_corp_2x=document.forms.datos_deseados.comp_corp_1.selectedIndex;
			if(comp_corp_2x==0)
				{
				DE=DE_x(tabla_pl_tricipital_espana_1988(),pliegue_trix,edad,sexo);
				percentilx=percentil(DE);
				document.forms.datos_deseados.p_pliegue_tri.value="("+percentilx+", "+DE+" DE). ";
				}
			}
		else document.forms.datos_deseados.p_pliegue_tri.value="";
		if(g_pliegue_sub)
			{
			var pliegue_subx=xredondeo(parseFloat(document.forms.datos_deseados.pliegue_sub.value),1);
			var comp_corp_2x=document.forms.datos_deseados.comp_corp_1.selectedIndex;
			if(comp_corp_2x==0)
				{
				DE=DE_x(tabla_pl_subescapular_espana_1988(),pliegue_subx,edad,sexo);
				percentilx=percentil(DE);
				document.forms.datos_deseados.p_pliegue_sub.value="("+percentilx+", "+DE+" DE). ";
				}
			}
		else document.forms.datos_deseados.p_pliegue_sub.value="";

/*Composicion corporal*/
		if(g_peso==1 && g_talla==1)
			{
			var peso_ideal, peso_p50, talla_p50;
			if(antrop2x==0)
				{
				peso_ideal= peso_ideal_talla(sexo, tallax, tabla_talla_espana_2008(), tabla_peso_espana_2008());
				peso_p50=p50(edad, sexo,tabla_peso_espana_2008());
				talla_p50=p50(edad, sexo,tabla_talla_espana_2008());
				}
			if(antrop2x==1)
				{
				peso_ideal= peso_ideal_talla(sexo, tallax, tabla_talla_espana_barcelona_2003(), tabla_peso_espana_barcelona_2003());
				peso_p50=p50(edad, sexo,tabla_peso_espana_barcelona_2003());
				talla_p50=p50(edad, sexo,tabla_talla_espana_barcelona_2003());
				}
			if(antrop2x==2)
				{
				peso_ideal= peso_ideal_talla(sexo, tallax, tabla_talla_espana_zaragoza_2002(), tabla_peso_espana_zaragoza_2002());
				peso_p50=p50(edad, sexo,tabla_peso_espana_zaragoza_2002());
				talla_p50=p50(edad, sexo,tabla_talla_espana_zaragoza_2002());
				}
			if(antrop2x==3)
				{
				peso_ideal= peso_ideal_talla(sexo, tallax, tabla_talla_espana_bilbao_1988(), tabla_peso_espana_bilbao_1988());
				peso_p50=p50(edad, sexo,tabla_peso_espana_bilbao_1988());
				talla_p50=p50(edad, sexo,tabla_talla_espana_bilbao_1988());
				}
			peso_ideal=xredondeo(peso_ideal,2);
			document.forms.datos_deseados.val_peso_real.value=pesox+" kg"+" (";
			if((pesox-peso_ideal)>0) document.forms.datos_deseados.val_peso_real.value+="+";
			document.forms.datos_deseados.val_peso_real.value+=(xredondeo(pesox-peso_ideal,2))+" kg)";
			document.forms.datos_deseados.val_peso_ideal.value=peso_ideal+" kg (ideal para talla)";
			document.forms.datos_deseados.val_waterlow_ideal.value="90-115 %";
			document.forms.datos_deseados.val_shukla_ideal.value="90-120 %";
			var masa_grasa_ideal=comp_grasa_ideal(edad,sexo,pesox);
			document.forms.datos_deseados.val_masa_grasa.value=masa_grasa_ideal+" kg ("+(xredondeo(100*masa_grasa_ideal/pesox,1))+"% del peso total)";
			document.forms.datos_deseados.val_masa_magra.value=(xredondeo(pesox-masa_grasa_ideal,1))+" kg";
			
			var media_xx, sigma_xx, val_p3, val_p85;
			if(antrop2x==0)
				{
				DE=DE_x(tabla_imc_espana_2008(),imcx,edad,sexo);
				media_xx=media_x(tabla_imc_espana_2008(),edad,sexo);
				sigma_xx=sigma_x(tabla_imc_espana_2008(),edad,sexo);
				}
			if(antrop2x==1)
				{
				DE=DE_x(tabla_imc_espana_barcelona_2003(),imcx,edad,sexo);
				media_xx=media_x(tabla_imc_espana_barcelona_2003(),edad,sexo);
				sigma_xx=sigma_x(tabla_imc_espana_barcelona_2003(),edad,sexo);
				}
			if(antrop2x==2)
				{
				DE=DE_x(tabla_imc_espana_zaragoza_2002(),imcx,edad,sexo);
				media_xx=media_x(tabla_imc_espana_zaragoza_2002(),edad,sexo);
				sigma_xx=sigma_x(tabla_imc_espana_zaragoza_2002(),edad,sexo);
				}
			if(antrop2x==3)
				{
				DE=DE_x(tabla_imc_espana_zaragoza_2002(),imcx,edad,sexo);
				media_xx=media_x(tabla_imc_espana_zaragoza_2002(),edad,sexo);
				sigma_xx=sigma_x(tabla_imc_espana_zaragoza_2002(),edad,sexo);
				}
			percentilx=percentil(DE);
			val_p3=xredondeo(media_xx-1.96*sigma_xx,1);
			val_p85=xredondeo(media_xx+1.10*sigma_xx,1);
			document.forms.datos_deseados.val_imc_ideal.value="aprox. "+val_p3+" - "+val_p85+" kg/m2 %";
			var val_Queteletx=imcx+" kg/m2 %"+" ("+percentilx+", "+DE+" DE";
			if(DE<-1.9) val_Queteletx+=", bajo)";
			else
				{
				if(antrop2x==1 || antrop2x==2 || antrop2x==3)
					{
					if(DE>=-1.9 && DE<1.05) val_Queteletx+=", normal)";
					if(DE>=1.05 && DE<1.66) val_Queteletx+=", sobrepeso)";
					if(DE>=1.66) val_Queteletx+=", obesidad)";
					}
				else
					{
					if(sexo)
						{
						if(DE>=-1.9 && DE<0.86) val_Queteletx+=", normal)";
						if(DE>=0.86 && DE<1.9) val_Queteletx+=", sobrepeso)";
						if(DE>=1.9) val_Queteletx+=", obesidad)";
						}
					else
						{
						if(DE>=-1.9 && DE<1.05) val_Queteletx+=", normal)";
						if(DE>=1.05 && DE<1.9) val_Queteletx+=", sobrepeso)";
						if(DE>=1.9) val_Queteletx+=", obesidad)";							
						}
					}
				}
			document.forms.datos_deseados.val_Quetelet.value=val_Queteletx;
			
			var i_waterlow=xredondeo((100*pesox/peso_ideal),1), i_nutricional=xredondeo((100*(pesox/tallax)/(peso_p50/talla_p50)),1);
			var val_Waterlowx=i_waterlow+" % (";
			if(i_waterlow<75) val_Waterlowx+="disminución importante)";
			else if(i_waterlow<80) val_Waterlowx+="disminución moderada)";
			else if(i_waterlow<90) val_Waterlowx+="leve disminución)";
			else if(i_waterlow<115) val_Waterlowx+="normal)";
			else val_Waterlowx+="obesidad)";
			document.forms.datos_deseados.val_Waterlow.value=val_Waterlowx;
			
			var val_Shuklax=i_nutricional+"% (";
			if(i_nutricional<75) val_Shuklax+="disminucion importante)";
			else if(i_nutricional<80) val_Shuklax+="disminución moderada)";
			else if(i_nutricional<90) val_Shuklax+="leve disminución)";
			else if(i_nutricional<110)val_Shuklax+="normal)";
			else if(i_nutricional<120)val_Shuklax+="sobrepeso)";
			else if(i_nutricional<130)val_Shuklax+="obesidad leve)";
			else if(i_nutricional<150)val_Shuklax+="obesidad moderada)";
			else if(i_nutricional<170)val_Shuklax+="obesidad severa)";
			else val_Shuklax+="obesidad mórbida)";
			document.forms.datos_deseados.val_Shukla.value=val_Shuklax;
			if(g_pliegue_tri==1 && g_pliegue_sub==1 && g_pliegue_ili==1 && g_pliegue_bic==1)
				{
				var pliegue_ilix=xredondeo(parseFloat(document.forms.datos_deseados.pliegue_ili.value),1);
				var pliegue_bicx=xredondeo(parseFloat(document.forms.datos_deseados.pliegue_bic.value),1);
				var pliegue_trix=xredondeo(parseFloat(document.forms.datos_deseados.pliegue_tri.value),1);
				var pliegue_subx=xredondeo(parseFloat(document.forms.datos_deseados.pliegue_sub.value),1);
				var masa_grasa_real=comp_grasa_real(edad,sexo,pesox,pliegue_trix,pliegue_bicx,pliegue_subx,pliegue_ilix);
				var x, val_masa_grasa_realx=masa_grasa_real+" kg ("+(xredondeo((100*masa_grasa_real/pesox),1))+"%)";
				if(masa_grasa_real>masa_grasa_ideal) x='. Excedente de ';
				else x='. Déficit de ';
				val_masa_grasa_realx+=x+(xredondeo((masa_grasa_real-masa_grasa_ideal),1))+" kg";
				var val_masa_magra_realx=pesox-masa_grasa_real+" kg";
				document.forms.datos_deseados.val_masa_grasa_real.value=val_masa_grasa_realx;
				document.forms.datos_deseados.val_masa_magra_real.value=val_masa_magra_realx;
				}
			else
				{
				document.forms.datos_deseados.val_masa_grasa_real.value="";
				document.forms.datos_deseados.val_masa_magra_real.value="";
				}
			}
		else 
			{
			document.forms.datos_deseados.val_peso_ideal.value="";
			document.forms.datos_deseados.val_masa_grasa.value="";
			document.forms.datos_deseados.val_masa_magra.value="";
			document.forms.datos_deseados.val_Shukla.value="";
			document.forms.datos_deseados.val_Waterlow.value="";
			document.forms.datos_deseados.val_Quetelet.value="";
			document.forms.datos_deseados.val_masa_grasa_real.value="";
			document.forms.datos_deseados.val_masa_magra_real.value="";
			document.forms.datos_deseados.val_imc_ideal.value="";
			document.forms.datos_deseados.val_waterlow_ideal.value="";
			document.forms.datos_deseados.val_shukla_ideal.value="";
			document.forms.datos_deseados.val_peso_real.value="";
			}
/* Fin composicion corporal*/

/* Inicio Densitometría*/
			if(g_dmo_l)
			{
			var dmo_lx=xredondeo(parseFloat(document.forms.datos_deseados.dmo_l.value),3);
			var D2x=document.forms.datos_deseados.D2.selectedIndex;
			if(D2x==0)
				{
				DE=DE_x(tabla_DMOlumbar_espana_barcelona_1999(),dmo_lx,edad,sexo);
				percentilx=percentil(DE);
				var dmo_texto="("+percentilx+", "+DE+" DE";
				if(DE<-1 &&DE>-2.5)dmo_texto+=", osteopenia)";
				if(DE>=-1) dmo_texto+=")";
				if(DE<=-2.5) dmo_texto+=", osteoporosis)";
				document.forms.datos_deseados.p_dmo_l.value=dmo_texto;
				}
			}
			else document.forms.datos_deseados.p_dmo_l.value="";
			
			if(g_dmo_cf && edad>=9)
			{
			var dmo_cfx=xredondeo(parseFloat(document.forms.datos_deseados.dmo_cf.value),3);
			var D3x=document.forms.datos_deseados.D3.selectedIndex;
			if(D3x==0)
				{
				DE=DE_x(tabla_DMO_cuellofemoral_espana_barcelona_1999(),dmo_cfx,edad,sexo);
				percentilx=percentil(DE);
				var dmo_texto="("+percentilx+", "+DE+" DE";
				if(DE<-1 &&DE>-2.5)dmo_texto+=", osteopenia)";
				if(DE>=-1) dmo_texto+=")";
				if(DE<=-2.5) dmo_texto+=", osteoporosis)";
				document.forms.datos_deseados.p_dmo_cf.value=dmo_texto;
				}
			}
			else document.forms.datos_deseados.p_dmo_cf.value="";
/*Fin densitometria*/
		}
	else
		{
		document.forms.datos_deseados.p_peso.value="";
		document.forms.datos_deseados.p_talla.value="";
		document.forms.datos_deseados.p_imc.value="";
		document.forms.datos_deseados.p_pc.value="";
		document.forms.datos_deseados.p_vc.value="";
		document.forms.datos_deseados.p_TAS.value="";
		document.forms.datos_deseados.p_TAD.value="";
		document.forms.datos_deseados.alerta_HTA.value="";
		document.forms.datos_deseados.val_edad_osea.value="";
		document.forms.datos_deseados.R_BP.value="";
		document.forms.datos_deseados.R_RWT.value="";
		document.forms.datos_deseados.R_TWM.value="";
		document.forms.datos_deseados.R_KR.value="";
		document.forms.datos_deseados.talla_proyectada.value="";
		document.forms.datos_deseados.peso_replica.value="";
		document.forms.datos_deseados.talla_replica.value="";
		document.forms.datos_deseados.p_perimetro_abd.value="";
		document.forms.datos_deseados.p_perimetro_bic.value="";
		document.forms.datos_deseados.p_pliegue_tri.value="";
		document.forms.datos_deseados.p_pliegue_sub.value="";
		document.forms.datos_deseados.val_peso_ideal.value="";
		document.forms.datos_deseados.val_peso_ideal.value="";
		document.forms.datos_deseados.val_masa_grasa.value="";
		document.forms.datos_deseados.val_masa_magra.value="";
		document.forms.datos_deseados.val_Shukla.value="";
		document.forms.datos_deseados.val_Waterlow.value="";
		document.forms.datos_deseados.val_Quetelet.value="";
		document.forms.datos_deseados.val_masa_grasa_real.value="";
		document.forms.datos_deseados.val_masa_magra_real.value="";
		document.forms.datos_deseados.val_imc_ideal.value="";
		document.forms.datos_deseados.val_waterlow_ideal.value="";
		document.forms.datos_deseados.val_shukla_ideal.value="";
		document.forms.datos_deseados.p_dmo_l.value="";
		document.forms.datos_deseados.p_dmo_cf.value="";
		document.forms.datos_deseados.val_peso_real.value="";
		document.forms.datos_deseados.SS_SI.value="";
		document.forms.datos_deseados.braza_v.value="";
		document.forms.datos_deseados.lts_v.value="";
		document.forms.datos_deseados.lb_v.value="";
		document.forms.datos_deseados.la_v.value="";
		document.forms.datos_deseados.ims_v.value="";
		document.forms.datos_deseados.lti_v.value="";
		document.forms.datos_deseados.lm_v.value="";
		document.forms.datos_deseados.lp_v.value="";
		document.forms.datos_deseados.imi_v.value="";
		}
	}