Calculo de cuotas por el sistema francés

Con esta rutina podemos calcular el valor de la cuota, cuota capitalizada e interés según el sistema francés.

*-- Sistema Frances 
*-- Datos a Cargar 
Capital = 10000 
CantidadCuotas = 36 
TasaAnual = 22  && Porcentaje 
TasaMensual = TasaAnual/12/100 
*-- Listado 
? "    Nro.Cuota        Cuota             Cuota Capitalizada             Interes" 
? REPLICATE("-",80) 
FOR NroCuota = 1 TO CantidadCuotas 
  Cuota = Capital * (TasaMensual/(1-(1+TasaMensual)^-CantidadCuotas)) 
  CuotaCapitalizada = Cuota * (1-TasaMensual*(1-(1+TasaMensual)^-(CantidadCuotas-NroCuota+1))/TasaMensual ) 
  Interes = TasaMensual * Cuota * (1-(1+TasaMensual)^-(CantidadCuotas-NroCuota+1))/TasaMensual 
  ? NroCuota, ROUND(Cuota,2), ROUND(CuotaCapitalizada,2), ROUND(Interes,2) 
ENDFOR 

Luis María Guayán