var q = 12;
function calcular(nameformu)
{
	var C = quitarFormatoNumero(nameformu.C.value);
	var n = quitarFormatoNumero(nameformu.n.value);
	var I = quitarFormatoNumero(nameformu.I.value);
	var cu = quitarFormatoNumero(nameformu.cu.value);

	if (C == '' && n != '' && I != '' && cu != '')
		calcularCapital(cu, I, n, q,nameformu);
	else if (n == '' && C != '' && I != '' && cu != '')
		calcularPlazo(C, cu, I, q,nameformu);
	else if (I == '' && n != '' && C != '' && cu != '')
		calcularInteres(C, cu, n, q,nameformu);
	else if (cu == '' && n != '' && I != '' && C != '')
		calcularCuota(C, I, n ,q,nameformu);
	else
		alert('Debe rellenar todos los valores menos el que desea calcular.');
}
function calcular6()
{
	var C = quitarFormatoNumero(document.credito.C.value);
	var n = quitarFormatoNumero(document.credito.n.value);
	var I = quitarFormatoNumero(document.credito.I.value);
	var cu = quitarFormatoNumero(document.credito.cu.value);

	if (C == '' && n != '' && I != '' && cu != '')
		calcularCapital(cu, I, n, q);
	else if (n == '' && C != '' && I != '' && cu != '')
		calcularPlazo(C, cu, I, q);
	else if (I == '' && n != '' && C != '' && cu != '')
		calcularInteres(C, cu, n, q);
	else if (cu == '' && n != '' && I != '' && C != '')
		calcularCuota6(C, I, n ,q);
	else
		alert('Debe rellenar todos los valores menos el que desea calcular.');
}
function calcularPlazo(C, cu, I, q,nameformu)
{
	var p = plazox(C, cu, I, q);
	if (isNaN(p))
		alert('Los datos proporcionados no son coherentes.\nEl cálculo no se puede hacer.\n');
	else if (p <= 0)
		nameformu.n.value = '< 0';
	else if (p > 100)
		nameformu.n.value = '> 100';
	else
		nameformu.n.value = p;
}
function calcularCapital(cu, I, n, q,nameformu)
{
	var c = capital(cu, I, n, q);
	if (isNaN(c))
		alert('Los datos proporcionados no son coherentes.\n\nEl cálculo no se puede hacer.\n');
	else
		nameformu.C.value = ponerPuntos(Math.round(c));
}
function cuotaxx(capital, interes_anual, anyos, periodos_anyo)
{
	interes_anual /= 100;
	var aux = 1.0 - Math.pow((1.0 + interes_anual / periodos_anyo), -(anyos * periodos_anyo));
	return(capital * (interes_anual / periodos_anyo) / aux);
}
function calcularCuota(C, I, n ,q,nameformu)
{
	var c = cuotaxx(C, I, n ,q);
	if (isNaN(c))
		alert('Los datos proporcionados no son coherentes.\n\nEl cálculo no se puede hacer.\n');
	else
	{
		c = '' + redondear(c, 2);
		nameformu.cu.value = ponerPuntos(c.replace(/[.]/g, ','));
	}
}
function calcularCuota6(C, I, n ,q)
{
	var c = cuotacarencia2(document.credito);
	c=document.credito.cu.value
	if (isNaN(c))
		alert('Los datos proporcionados no son coherentes.\n\nEl cálculo no se puede hacer.\n');
	else
	{
		c = '' + redondear(c, 2);
		document.credito.cu.value = ponerPuntos(c.replace(/[.]/g, ','));
	}
}
function calcularInteres(C, cu, n, q,nameformu)
{
	var i = tae(C, cu, n, q);
	if (isNaN(i))
		alert('Los datos proporcionados no son coherentes.\n');
	else if (i >= 0)
	{
		i = '' + redondear(i, 3);
		nameformu.I.value = i.replace(/[.]/g, ',');
	}
	else
		alert('El interés calculado es menor que cero. \n\nLa cuota y/o el plazo son demasido bajos.\n');
}