
<!-- ******************************************************************************** -->
<!-- *            SCRIPT para CALCULADORA DE TIME LAPSE                * -->
<!-- "                                        ASTRONUM                                        * -->
<!-- "                                   www.astronum.net                                    * -->
<!-- ******************************************************************************** -->

	/**** Funcion Redondeo(valor,ndecs). Limitacion del numero de decimales ****/

	function Redondeo(valor,ndecs) {							// args: valor = valor numerico, ndecs=decimales a mostrar
		var pEntera="", pDecimal="";
		var car, aTexto = "" + valor;
		var z, i = 0;

		if (aTexto.indexOf(".") != -1) { // Si es un valor con punto decimal...
			car = aTexto.charAt(i);
			while(car != ".") {
				pEntera += car;
				car = aTexto.charAt(++i);
			}

			if (ndecs > (aTexto.length - pEntera.length + 1)) {
				ndecs = aTexto.length - pEntera.length + 1;
			}

			for(z=i+1; z<i+ndecs+1; z++) {
				pDecimal += aTexto.charAt(z);
			}

			(ndecs) ? aTexto = pEntera+"."+pDecimal : aTexto = pEntera;
		}

		return aTexto;
	}

	/**** Funcion CalcularTE() ****/

	function CalcularTE() {
		focal = document.getElementById("focal").value;
		document.getElementById("TEXP").value = Math.round( 500 / focal );
		return true;
	}
		

	/**** Funcion CalcularTL(pt_fotos, pt_exposicion, dp_min, dp_seg, dp_ips, de_dias, de_horas, de_min, de_seg) ****/

	function CalcularTL(ptfotos, ptexposicion, dpmin, dpseg, dpips, dedias, dehoras, demin, deseg) {

		/* Definicion e inicializacion de variables */

		var DP = 0;										// duracion total de la pelicula en segundos
		var FRAMES = 0;							// numero de fotos necesarios
		var DE = 0;										// duracion total del evento en segundos
		var INTERVALO = 0;						// intervalo entre disparos
		var FACTOR = 0;							// factor de velocidad
		var FACTORTIEMPO = 0;			// equivalencia del tiempo real del evento por cada segundo de pelicula

		/* comprueba que se introducen valores numericos y no alfabeticos y la validez del tiempo de exposicion si se ha introducido como fraccion */

		var denominador = 0;					// para almacenar el valor entero del denominador de un tiempo de exposicion introducido como fraccion
		var TExp_entrado = "";

		if ( isNaN(ptexposicion) ) {
				
			TExp_entrado = ptexposicion;

			if ( ptexposicion.indexOf("/") == 1) {								// comprueba que " / " esté en la posición 1 (la primera es la 0)
				if (ptexposicion.indexOf("1") == 0 ) {							// comprueba encontrar un " 1 " en la primera posición (la 0), con estas dos sabemos que comienza con " 1/ " 
					denominador = ptexposicion.substring(2);				// obtiene el valor correspondiente al denominador a partir de " / "
					ptexposicion = parseFloat( 1/ denominador );		// convierte la posible fraccion en un número decimal para operar con el
				}
				else {
					alert("Para realizar los cálculos es imprescindible la entrada de un valor correcto");
					document.CalculadoraTL.pt_exposicion.focus();									// posicionarse en el campo incorrecto
					return true;
				}
			}
			else {
				alert("Para realizar los cálculos es imprescindible la entrada de un valor correcto");
				document.CalculadoraTL.pt_exposicion.focus();										// posicionarse en el campo vacio
				return true;
			}
		}	

		if ( isNaN(ptfotos) || isNaN(dpmin) || isNaN(dpseg) || isNaN(dpips) || isNaN(dedias) || isNaN(dehoras) || isNaN(demin) || isNaN(deseg) ) {
				alert("Para realizar los cálculos es imprescindible la entrada de valores numéricos");
				return true;
			}

		/* Valida los campos: exige los necesarios y convierte a valor 0 los campos vacios no necesarios */

		if ( ptfotos == "" ) {
			alert (" CANTIDAD MÁXIMA DE FOTOS POSIBLES debe contener un valor");		// advertencia
			document.CalculadoraTL.pt_fotos.focus();													// posicionarse en el campo vacio
			return false;
 		}

		if ( ptexposicion == "" ) {
			alert (" TIEMPO DE EXPOSICIÓN SEGÚN ISO PREVISTO debe contener un valor");		// advertencia
			document.CalculadoraTL.pt_exposicion.focus();											// posicionarse en el campo vacio
			return false;
	 	}

		if ( dpmin == "" ) { dpmin = 0; }
		if ( dpseg == "" ) { dpseg = 0; }
		if ( (dpmin == 0) && (dpseg == 0) ) {
			alert (" Debe establecerse un tiempo en DURACIÓN DESEADA DE LA PELICULA (DP)");	// advertencia
			document.CalculadoraTL.dp_min.focus();														// posicionarse en el campo vacio
			return false;
		}
		
		if ( dpips == "" ) {
			alert (" Debe establecerse un valor en VELOCIDAD DE REPRODUCCIÓN (IPS)");		// advertencia
			document.CalculadoraTL.dp_ips.focus();														// posicionarse en el campo vacio
			return false;
		}

		if ( dedias == "" ) { dedias = 0; }
		if ( dehoras == "" ) { dehoras = 0; }
		if ( demin == "" ) { demin = 0; }
		if ( deseg == "" ) { deseg = 0; }
		if ( (dedias == 0) && (dehoras == 0) && (demin == 0) && (deseg == 0) ) {
			alert (" Debe establecerse un tiempo en DURACIÓN DEL EVENTO A FILMAR (DE)");	// advertencia
			document.CalculadoraTL.de_dias.focus();														// posicionarse en el campo vacio
			return false;
		}


		/* Convierte cadenas a valores numericos e inicializa las variables de RESULTADOS */

		ptfotos = parseInt(ptfotos);
		// ptexposicion = parseFloat(ptexposicion);														// ya se ha calculado más arriba
		dpmin = parseInt(dpmin);
		dpseg = parseInt(dpseg);
		IPS = parseInt(dpips);
		dedias = parseInt(dedias);
		dehoras = parseInt(dehoras);
		demin = parseInt(demin);
		deseg = parseInt(deseg);

		control_ALMACENAMIENTO = 1;
		ALMACENAMIENTO = "La tarjeta PERMITE almacenar el número de imágenes necesarias";
		control_TIEMPOEXPOSICION = 1;
		TIEMPOEXPOSICION = "El tiempo de exposición SE ADAPTA al de los intérvalos";
		POSIBILIDAD = "¡ El Time-Lapse PUEDE EJECUTARSE !" + "\n" + "Aplicar los parámetros de EJECUCIÓN DEL TIME LAPSE";
		NUMFOTOS = "";
		EXPOSICIONFINAL = "";
		TUMISMO = "";
		FINALHORAS = "";
		FINALMIN = "";
		FINALSEG = "";
		VELOCIDADFINAL = "";

		/* Realiza los calculos y prepara los valores a mostrar */

		DP = dpmin * 60 + dpseg;
		FRAMES = DP * IPS;
		DE = dedias * 24 * 3600 + dehoras * 3600 + demin * 60 + deseg;
		INTERVALO = DE / FRAMES;
		FACTOR = IPS / ( 1 / INTERVALO );
		FACTORTIEMPO = FACTOR / 60;

		if ( FRAMES > ptfotos ) {
			control_ALMACENAMIENTO = 0;
			ALMACENAMIENTO ="La tarjeta NO PERMITE almacenar el número de imágenes necesarias" + "\n";
			ALMACENAMIENTO += "<<<<<<<<< 2 SOLUCIONES >>>>>>>>>>" + "\n";
			ALMACENAMIENTO += "-> Reducir la duración de la película (DP)" + "\n";
			ALMACENAMIENTO += "-> Reducir la velocidad de reproducción (IPS)";
		}

		if ( ptexposicion > INTERVALO ) {
			control_TIEMPOEXPOSICION = 0;
			TIEMPOEXPOSICION = "El tiempo de exposición ES MAYOR que el de los intérvalos" + "\n";
			TIEMPOEXPOSICION += "<<<<<<<<< 3 SOLUCIONES >>>>>>>>>>" + "\n";
			TIEMPOEXPOSICION += " -> Extender la duración del evento a filmar (DE)" + "\n";
			TIEMPOEXPOSICION += "-> Aumentar la sensibilidad ISO y reducir el tiempo de exposición" + "\n";
			TIEMPOEXPOSICION += "-> Reducir la velocidad de reproducción (IPS)";
		}

		if ( control_ALMACENAMIENTO && control_TIEMPOEXPOSICION ) {
			NUMFOTOS = FRAMES;
			EXPOSICIONFINAL = ptexposicion;
			TUMISMO = "¡tú mismo! ";
			VELOCIDADFINAL = IPS;
			FINALHORAS = parseInt( INTERVALO / 3600 );
			FINALMIN = parseInt( (INTERVALO - FINALHORAS * 3600) / 60 );
			FINALSEG = parseInt( INTERVALO - (FINALHORAS * 3600 + FINALMIN * 60) - ptexposicion ); 
		}
		else {
			POSIBILIDAD = "¡ El Time-Lapse NO PUEDE EJECUTARSE con esos valores !" + "\n";
			POSIBILIDAD += "No se proporcionará ningún parámetro";
		}
		
		/* Muestra los resultados de los calculos en el formulario */

		document.CalculadoraTL.DP_TOTAL.value = DP;
		document.CalculadoraTL.DP_FRAMES.value = FRAMES;
		document.CalculadoraTL.DE_TOTAL.value = DE;
		document.CalculadoraTL.DE_INTERVALO.value = Redondeo(INTERVALO,2);
		document.CalculadoraTL.FACTORV.value = Redondeo(FACTOR,2);
		document.CalculadoraTL.TREAL.value = Redondeo(FACTORTIEMPO,2);
		document.CalculadoraTL.ALMACENAMIENTO.value = ALMACENAMIENTO;
		document.CalculadoraTL.TIEMPOEXPOSICION.value = TIEMPOEXPOSICION;
		document.CalculadoraTL.POSIBILIDAD.value = POSIBILIDAD;
		document.CalculadoraTL.NUMFOTOS.value = NUMFOTOS;
		if (TExp_entrado == "") {
			document.CalculadoraTL.EXPOSICIONFINAL.value = EXPOSICIONFINAL;
		}
		else {
			document.CalculadoraTL.EXPOSICIONFINAL.value = TExp_entrado;
		}
		document.CalculadoraTL.TUMISMO.value = TUMISMO;
		document.CalculadoraTL.FINALHORAS.value = FINALHORAS;
		document.CalculadoraTL.FINALMIN.value = FINALMIN;
		document.CalculadoraTL.FINALSEG.value = FINALSEG;
		document.CalculadoraTL.VELOCIDADFINAL.value = VELOCIDADFINAL;

		return true;
	}