//--------------------------------------------------------------------------------------
// Calcular cuota sistema frances

function cuota(importe,interes,plazo)
{
	potencia=1+interes;
	multiplicador=Math.pow(potencia,-plazo);
	multiplicador1=importe*interes;
	pagomes=multiplicador1/(1-multiplicador);
	return pagomes;
}

//-------------------------------------------------------------------------------------
// Calcula el principal de una operación

function principal(cuota,interes,plazo)
{
	potencia=1+interes;
	multiplicador=Math.pow(potencia,-plazo);
	multiplicador1=(1-multiplicador)/interes;
	cpendiente=cuota*multiplicador1;
	return cpendiente;
}



//--------------------------------------------------------------------------------------
// Calcular el capital amortizado de la operación

function pagado(amortizacion,interes,revision)
{
	potencia=1+interes;
	multiplicador=Math.pow(potencia,revision);
	multiplicador=multiplicador-1;
	amortizado=(multiplicador/interes)*amortizacion;
	return amortizado;
}

// ---------------------------------------------------------------------------------------
// Calcula la cuota de un leasing
function cleasing(importe,interes,plazo)
	{
	var factor1,factor2,factor3;
	factor1=1+interes;
	factor2=Math.pow(factor1,-plazo);
	factor3=(1-factor2)/interes;
	cuotaleasing=importe/(factor1*factor3);
	return cuotaleasing;
	}