La importancia de la salud financiera en los hogares del mundo es crucial, pues para ello se deben tener los ingresos suficientes para satisfacer las necesidades básicas de los miembros de la familia, como alimentación, vestido, salud y vivienda (Chin & Williams, 2020; Shim et al., 2009). Bajo estas circunstancias, el hogar se encuentra en condiciones de bienestar económico; es decir, en situaciones que le permiten vivir con tranquilidad a cada integrante de la familia. No obstante, la mayoría de habitantes de países subdesarrollados cuentan con una mala salud financiera (Carballo & Dalle-Nogare, 2019). La principal razón es que los salarios son insuficientes para poder cubrir las necesidades básicas en el hogar (Riitsalu & Põder, 2016).

México no es la excepción a esta problemática. La mayoría de su población vive en condiciones de pobreza y pobreza extrema; sin embargo, las familias tienen la necesidad de acceder a un hogar para vivir. Dicha necesidad, aunada a la falta de ingresos, conlleva a que el individuo solicite un crédito hipotecario que satisfaga esa necesidad, pero, al no contar con una adecuada salud financiera, los intereses periódicos a pagar pueden ser muy elevados, lo que conllevaría a que la deuda adquirida se dispare, poniendo en riesgo el bienestar económico del hogar. Por eso es importante hacer un análisis en distintos tipos de hipotecarias, tanto públicas como privadas, que ofrecen sus créditos y hacer un estudio previo del mercado para que el individuo pueda tomar la mejor decisión a la hora de adquirir su vivienda, teniendo una capacidad de pago periódica suficiente que no se vea excedida por los intereses y, por ende, una buena salud financiera en el crédito hipotecario adquirido (Bucks et al., 2019).

En México los individuos no tienen una buena salud financiera debido a que no cuentan con una adecuada conciencia por la disciplina del ahorro; tampoco están acostumbrados a planificar correctamente sus decisiones financieras futuras (Amezcua Gracía, et al., 2014; Cosma et al., 2019). Si bien las investigaciones de Boils Morales (2004) y Connolly (1997) muestran que existen apoyos del gobierno mexicano para financiar parte del costo total de la vivienda a través de subsidios, estos apoyos son poco comunes, lo que implica que, en general, los individuos adquieren vivienda sin subsidio alguno y tomen malas decisiones al momento de adquirir el crédito hipotecario al no haber hecho un análisis previo de su capacidad de pago respecto a sus ingresos actuales y del comportamiento de las variables que impactan directamente a éste. Al ser insuficiente el ingreso de los consumidores de dicho crédito, es decir, al no tener el individuo la solvencia suficiente para cubrir los intereses, crece el valor de la deuda adquirida y, por ende, se cae en insolvencia crediticia (Fiebiger & Lavoie, 2019).

Gómez Martínez et al., (2009) dicen que la tasa de interés es la principal restricción para el individuo al momento de solicitar un crédito hipotecario, pues los cambios que ésta puede tener representan un alto riesgo para el individuo en la hipoteca adquirida, según lo mostrado por (Eichholtz et al., 2019). Cabe recordar que el alza o baja de dicha variable depende de la Junta de Gobierno del Banco de México (Banxico) y en gran medida a las decisiones de política monetaria que toma la Reserva Federal (Fed) de los Estados Unidos. Algunos efectos de esta política se pueden observar en: Albuquerque (2019), Alpanda y Zubairy (2019), Bezemer y Zhang (2019), Dehmej y Gambacorta (2019) y Jarmuzek y Rozenov (2019). Las decisiones que se toman sobre esta política son de alto impacto cuando las tasas de interés son incrementadas, pues el costo del valor de la vivienda crece, ya que dicha tasa representa el costo monetario que Banxico les cobre a los bancos del país por prestar dinero y que estos a su vez lo usen como referencia para cobrar intereses a sus clientes por el financiamiento. Si bien existe el principal antecedente de otorgamiento irracional de créditos hipotecarios durante la crisis subprime en el año 2008, como lo muestran las investigaciones de Akdoğan (2019), Cuevas Ahumada (2011 y 2013), Davis et al., (2019), Luz Juárez et al., (2015), Gerlach-Kristen y Merola (2019), Hossain y Kryzanowski (2019), Justiniano et al., (2019), Martins et al., (2019), Mejía Reyes et al., (2017), Monkkonen (2019), Mykyta (2019), Lenin Navarro Chávez y Zamora Torres (2011), Samaniego (2009), Zurita González y Rodríguez Montoya (2008), Zurita et al., (2009), entre otras, el cliente debe tener precaución en adquirir créditos hipotecarios al observar comportamientos similares de las variables macroeconómicas a las mostradas en 2008, dado que estos comportamientos se pueden repetir y lograr potencializar el valor de la deuda. Lo anterior generará una alta probabilidad de incumplimiento en los pagos periódicos de los créditos hipotecarios adquiridos por el cliente.

En este trabajo se destaca la importancia de la salud financiera, lo vital que es para que el cliente no caiga en insolvencia crediticia (Barra & Zotti, 2019), así como saber utilizar de manera correcta los servicios que se tienen y los riesgos que se contraen al adquirir estos servicios ofrecidos por instituciones financieras privadas (bancarias), tripartita (INFONAVIT) institución tripartita entre: trabajadores, sector empresarial y el gobierno en México, que otorga créditos hipotecarios y no hipotecarios con relación a la vivienda, y gubernamental (FOVISSSTE) órgano gubernamental desconcentrado del Instituto de Seguridad y Servicios Sociales de los Trabajadores del Estado (ISSSTE) y cuya función es proporcionar créditos de vivienda a los trabajadores al servicio del Estado. Las tasas de interés que otorgan las instituciones que ofrecen créditos hipotecarios pueden verse como grandes oportunidades para adquirirlos, pero también pueden generar grandes deudas muy difíciles de pagar para los solicitantes de créditos hipotecarios (clientes). Por lo anterior, la hipótesis para este trabajo de investigación es que la clase media baja no tiene la adecuada capacidad de pago para acceder a créditos hipotecarios mexicanos.

En esta investigación se distinguen los tipos de créditos hipotecarios mexicanos que son ofrecidos a los clientes particularmente a la clase media baja (con información de la Secretaría de Gobernación de México 2013-2018), el ingreso promedio mensual se estimó en $5 579.88 MXN, lo que equivale a poco más de 2.65 SMVDF, a marzo de 2015), debido a las altas tasas que manejan los créditos hipotecarios bancarios respecto al (Benchmark) Certificados de la Tesorería de la Federación (CETES) 364 días a plazo de un año, que en el mes de marzo de 2015 tuvo un valor de 3.53 % (Banco de México, 2015). Esta tasa de referencia es la principal en México para que los individuos tomen decisiones de inversión, y para que antes de firmar un contrato con instituciones crediticias, tengan en cuenta factores como: salario mensual del trabajador, tasa de interés efectiva, capacidad de pago y el tiempo en que se desea terminar de liquidar el crédito hipotecario obtenido, es decir, la amortización del crédito hipotecario (término de la deuda adquirida), entre otros. Para llevar a cabo el análisis de esta investigación se muestran 25 escenarios de tablas de amortización para que el cliente pueda observar los resultados previos a su decisión de optar por algún crédito hipotecario. Además, mediante el desarrollo de un programa usando el software DEV C++, se calibra el código con datos reales, considerando las tasas de interés efectivas con periodicidad anual que las instituciones financieras muestran a sus usuarios previamente a la selección de un crédito hipotecario. El programa muestra la cantidad total que pagará el cliente a la fecha de vencimiento de su crédito.

El desarrollo del presente trabajo se compone de las siguientes secciones: crédito hipotecario, metodología de amortización de créditos hipotecarios, resultados, discusión, conclusiones, referencias y, finalmente, se presenta en el Anexo la información detallada de las tablas de amortización correspondientes a los 25 escenarios mostrados en la presente investigación y el código desarrollado en DEV C++.

En esta investigación, de tipo cuantitativa experimental, el proceso de indagación se realizó de la siguiente manera: primero se inició una búsqueda en páginas oficiales de hipotecarias mexicanas tanto públicas (INFONAVIT y FOVISSSTE) como privadas (Instituciones bancarias) a través de la CNBV; posteriormente se procedió a descargar los datos reales publicados - a marzo de 2015 - de las tasas de interés efectivas, Saldo Insoluto inicial de la vivienda y pagos periódicos según el tipo de producto ofrecido a los clientes. Una vez que la información fue homologada, se analizaron 241 escenarios mediante la construcción de tablas de amortización desarrolladas a través de un programa en DEV C++ para obtener los valores de la cantidad total a pagar, los intereses totales pagados y la amortización obtenida medida en años; es decir, el algoritmo determinó el tiempo exacto en el que el cliente terminará de liquidar su crédito hipotecario al realizar su último pago. Esta información fue exportada a Excel.

El resumen de los resultados obtenidos, ordenados de menor a mayor en cuanto al tiempo en que el cliente con una adecuada capacidad de pago terminará de liquidar su deuda para los distintos tipos de créditos, en todos los casos con un Saldo Insoluto inicial de $620 000 MXN, se muestran en la Tabla 5.

Tabla 5. Resultados de los créditos hipotecarios analizados Tabla 5. Resultados de los créditos hipotecarios analizados Table 5. Results of the mortgage loans under analysis

Caso	Valor del crédito hipotecario (MXN)	Interés total del crédito hipotecario (MXN)	Pago total del crédito hipotecario (MXN)	Amortización del crédito hipotecario en años	Tipo de crédito hipotecario
1	$620 000.00	$235 986.10	$855 986.10	7.16	INFONAVIT escenario 14
2	$620 000.00	$256 098.57	$876 098.57	7.33	INFONAVIT escenario 17
3	$620 000.00	$266 666.25	$886 666.25	7.41	FOVISSSTE escenario 3
4	$620 000.00	$298 291.22	$918 291.22	7.66	Bancario tasa mínima promedio escenario 3
5	$620 000.00	$425 198.59	$1 045 198.59	8.75	Bancario tasa media promedio escenario 1
6	$620 000.00	$687 732.94	$1 307 732.94	10.91	Bancario tasa máxima promedio escenario 1
7	$620 000.00	$498 389.06	$1 118 389.06	14.41	INFONAVIT escenario 7
8	$620 000.00	$511 691.13	$1 131 691.13	14.58	INFONAVIT escenario 9
9	$620 000.00	$525 487.73	$1 145 487.73	14.75	INFONAVIT escenario 11
10	$620 000.00	$539 810.97	$1 159 810.97	14.91	INFONAVIT escenario 13
11	$620 000.00	$620 757.69	$1 240 757.69	15.91	INFONAVIT escenario 16
12	$620 000.00	$668 492.51	$1 288 492.51	16.58	FOVISSSTE escenario 2
13	$620 000.00	$577 798.50	$1 197 798.50	16.66	INFONAVIT escenario 4
14	$620 000.00	$595 677.58	$1 215 677.58	16.91	INFONAVIT escenario 5
15	$620 000.00	$614 414.52	$1 234 414.52	17.16	INFONAVIT Escenario 6
16	$620 000.00	$634 083.92	$1 254 083.92	17.50	INFONAVIT escenario 8
17	$620 000.00	$654 785.85	$1 274 785.85	17.75	INFONAVIT escenario 10
18	$620 000.00	$676 601.04	$1 296 601.04	18.08	INFONAVIT escenario 12
19	$620 000.00	$842 050.79	$1 462 050.79	18.75	Bancario tasa mínima promedio escenario 2
20	$620 000.00	$807 255.10	$1 427 255.10	19.83	INFONAVIT escenario 15
21	$620 000.00	$891 396.09	$1 511 396.09	21	FOVISSSTE escenario 1
22	$620 000.00	$1 271 261.63	$1 891 261.63	26.33	Bancario tasa mínima promedio escenario 1
23	$620 000.00	$966 856.32	$1 586 856.32	26.50	INFONAVIT escenario 1
24	$620 000.00	$1 022 747.83	$1 642 747.83	27.41	INFONAVIT escenario 2
25	$620 000.00	$1 159 481.63	$1 779 481.63	29.66	INFONAVIT escenario 3

Fuente: elaboración propia.

Analizando la Tabla 5, que es un resumen de los resultados mostrados en esta investigación, se observa que, de los 25 escenarios mostrados, los 3 escenarios correspondientes a créditos hipotecarios otorgados por el FOVISSSTE ocupan los lugares 3, 12 y 21, por lo que, al comparar cada escenario, se observa lo siguiente:

En el escenario 1, el cliente termina de liquidar exactamente su deuda en 252 meses, que equivalen a 21 años; 53 meses más, es decir, a 4.41 años respecto al escenario 2, y con un pago total de intereses mayor por la cantidad de $222 903.58 MXN. En cuanto al escenario 3, las diferencias se observan mucho más grandes, pues en este escenario el cliente termina de liquidar su deuda en 89 meses, es decir, 163 meses menos, que equivalentes a 13.58 años, y con un pago de intereses totales menor por la cantidad de $624 729.83 MXN (esta cantidad de intereses es mayor que el costo inicial del valor del crédito hipotecario adquirido).

Ahora bien, como en el escenario 2 el cliente liquida su deuda en 199 meses (16.58 años), y en el escenario 3 la deuda es liquidada en 89 meses, que corresponden a 7.41 años, se observa que el escenario 3 es mejor que el escenario 2, ya que se muestra una diferencia de 110 meses, equivalentes a 9.16 años, además que la cantidad del interés pagado es menor por $401 826.25 MXN (dicho proceso lo podrán observar con detalle en las Tablas 6, 7 y 8 del Anexo).

Los resultados de los tres escenarios analizados para el crédito hipotecario bancario con tasa mínima ocupan los lugares 4, 19 y 22. Al comparar cada escenario se muestra lo siguiente: en el escenario 1, el cliente termina de liquidar exactamente su deuda en 316 meses (26.33 años), 91 meses más (7.58 años) con respecto al escenario 2, y con un pago total de intereses mayor por la cantidad de $429 210.84 MXN. En relación al escenario 3, las diferencias se observan mucho más grandes, pues en este escenario el cliente termina de liquidar su deuda en 92 meses, es decir 224 meses menos, que equivalen a 18.66 años, y con un pago de intereses totales menor por la cantidad de $972 970.41 MXN.

Entonces, como en el escenario 2 el cliente liquida su deuda en 225 meses, (18.75 años), y en el escenario 3 la deuda es liquidada en 92 meses, (7.66 años), se observa que el escenario 3 es mejor que el escenario 2 ya que se muestra una diferencia de 133 meses, equivalentes a 11.08 años; además, la cantidad del interés pagado es menor por $543 759.57 MXN (véase las Tablas 9,10 y 11 del Anexo, para un mayor detalle).

Asimismo, en los otros 2 escenarios correspondientes a créditos hipotecarios bancarios, pero en los casos de tasa media y máxima (se puede apreciar a detalle la evolución de dichos créditos respectivamente en las Tablas 12 y 13 del Anexo) ocupan los lugares 5 y 6, respectivamente; al comparar cada escenario con el mejor escenario de tasa mínima anteriormente mostrado, se tiene lo siguiente: para el escenario de tasa media el cliente termina de liquidar exactamente su deuda en 105 meses, es decir, 8.75 años, 13 meses más que equivalen a 1.08 años respecto al mejor escenario de tasa mínima, y con un pago total de intereses mayor por la cantidad de $126 907.37 MXN. Respecto al escenario de tasa máxima, las diferencias se observan más grandes, pues en este escenario el cliente termina de liquidar su deuda en 131 meses, lo que significa 39 meses más (3.25 años), en relación con el mejor escenario de tasa mínima y con un pago total de intereses mayor por la cantidad de $389 441.72 MXN. Por lo anterior, es claro que, de los cinco escenarios correspondientes al tipo de crédito hipotecario bancario, el mejor es el de tasa mínima.

En el caso de INFONAVIT se analizaron 17 escenarios más (para mayor detalle ver las Tablas 14 a 30 del Anexo); sin embargo, se explicarán por fines prácticos solamente los escenarios extremos, es decir, el mejor y el peor escenario, respectivamente, correspondientes al lugar 1 y 25 mostrados en la Tabla 5. Los resultados del peor escenario que se muestra en esta investigación corresponden a INFONAVIT (escenario 3) donde el cliente termina de liquidar exactamente su deuda en 356 meses, que equivalen a 29.66 años (muy cerca del tiempo límite establecido por Ley que es de 30 años); 270 meses más, que equivalen a 22.5 años respecto al mejor escenario que corresponde a INFONAVIT (escenario 14) y con un pago total de intereses mayor por la cantidad de $923 495.53 MXN. Lo anterior muestra que para el tipo de crédito INFONAVIT el mejor escenario de todos los analizados, corresponde al 14; de hecho, es el mejor escenario mostrado en esta investigación comparado también con los tipos de crédito hipotecarios FOVISSSTE y bancarios.

Si bien existen modelos más robustos para la medición del riesgo de crédito en investigaciones como las de Módica-Milo et al., (2012), Longstaff y Schwartz (1995), Merton (1974) y Ohlson (1980), en este trabajo se muestra una forma sencilla de concientizar a la población mexicana, particularmente a la clase media baja, del riesgo de incumplimiento del crédito adquirido a través de la metodología de amortización. En este trabajo se analizaron diversos escenarios mediante la construcción de 241 tablas de amortización. Los números reflejan que en el 89.50  % de las tablas realizadas, el pago mensual de los clientes no cubre los intereses del crédito hipotecario de manera periódica, lo cual lleva a que éste se dispare y que la deuda crezca mes a mes, pues la amortización es nula para estos casos. Dichos escenarios no son viables para el cliente, pero sí lo son para las instituciones financieras otorgantes del crédito hipotecario. Por otro lado, únicamente el 10.50 % de los escenarios realizados reflejan que los clientes pueden terminar de liquidar su deuda en un tiempo entre los 7 y los 30 años, al invertir su dinero en una propiedad realizando pagos mensuales principalmente por las cantidades de $5000 MXN, $6000 MXN y $6500 MXN (véase el detalle en el Anexo en las Tablas 6, 7, 9, 10, de la 14 a la 26 y la 28 y 29). Cabe resaltar que, si bien las cantidades de pago se observan con poca diferencia, realmente el resultado final de la cantidad de intereses totales pagados y el tiempo de liquidación de la deuda adquirida es significativo para el cliente.

Los mejores resultados de esta investigación únicamente corresponden a cuatro escenarios del total analizado, donde el interés total a pagar es menor al 5 0% del valor de la propiedad. Para ello se observó que el cliente debe destinar al pago de su crédito hipotecario la cantidad de $10 000 MXN, que aproximadamente equivale a 4.75 SMVDF a marzo de 2015. Sin embargo, para un cliente de clase media baja tener una capacidad de pago mensual a las cantidades anteriormente mencionadas es muy complicado, aunado a que muy probablemente también el cliente tenga sus gastos familiares.

Góngora Pérez (2014) dice «el aumento del desempleo, la inflación y las tasas de interés, suelen estar acompañadas por el incremento de la cartera vencida de los créditos generados, debido a la falta de capacidad de pago por parte de los deudores bancarios» (p. 7). Este tipo de factores alteran de manera negativa la estabilidad del sistema financiero mexicano. Por lo que, en este trabajo, se demuestra la importancia de un previo análisis de escenarios, ya que si bien se desea adquirir un patrimonio familiar (vivienda), el cliente debe tener claro las condiciones y los factores que influyen en la contratación de su crédito hipotecario, donde el principal riesgo para el cliente de clase media baja es que los intereses periódicos no puedan ser cubiertos, derivado esto del bajo salario mensual que percibe.

Existen diversas instituciones que consideran tasas de interés y periodicidad de pago distintas. ¿Pero entre tantas opciones cómo saber qué decisión tomar? Este artículo muestra una cantidad finita de 25 escenarios apoyado del código DEV C++, ayudando al posible cliente a tener una visión más clara del comportamiento que tienen los créditos hipotecarios, y de esta manera observar si su capacidad de pago le permite ser acreedor de alguno, cuidando siempre su salud financiera.

Precisamente, como actualmente en México existen personas de clase media baja con una inadecuada capacidad de pago para hacer frente a un crédito hipotecario, pues su bajo salario no alcanza a cubrir los intereses periódicos de dicho crédito, se ha creado el programa «Responsabilidad Compartida», del INFONAVIT, que opera a partir del año 2019. El objetivo del programa es apoyar a los trabajadores que menos tienen y más lo necesitan, considerando los siguientes requisitos: contar con un crédito tradicional vigente en Veces Salario Mínimo (VSM), ganar hasta cuatro salarios mínimos, ser mayor de 40 años, tener 24 meses de pagos continuos, un crédito hipotecario con duración de al menos 15 años, que se deba 1.5 veces más de la deuda adquirida inicialmente por el cliente y que éste pague por vía nómina o cuenta al (INFONAVIT, 2019). Este programa es impulsado por el actual gobierno a través del presidente Andrés Manuel López Obrador, quien indica que se podrá tener un descuento hasta del 55 % del total del Saldo Insoluto del crédito hipotecario, pues existen casos reales en que la deuda de dicho crédito hipotecario se ha incrementado hasta cinco veces (Excélsior, 2019).

En los 241 escenarios totales de esta investigación, los números reflejan que el 83.5 % de los clientes liquidarán su deuda en el plazo máximo - que es de 30 años en México -, y el 16.5 % terminarán de pagarla en un plazo menor; sin embargo, únicamente el 1.65 %, que equivale a 4 escenarios, el interés total a pagar es menor al 50 % del valor de la propiedad con pagos periódicos mensuales del cliente de $10 000 MXN. Se analizaron créditos hipotecarios de clientes que, a marzo de 2015, destinan de su ingreso de 1 hasta 4.75 SMVDF, donde los resultados muestran que en clientes de clase media baja que tienen un ingreso mensual de $2103 MXN hasta $6309 MXN, dicho ingreso no es suficiente para poder pagar su crédito hipotecario; es decir, no se tiene la capacidad de pago necesaria para cubrir al menos los intereses generados en el periodo mensual por la adquisición de dicho crédito. Por lo anterior, se muestran en resumen únicamente los resultados de 25 escenarios, correspondientes a las tablas de amortización para clientes que destinan en sus pagos $5000 MXN, $6000 MXN, $6500 MXN y $10 000 MXN de su ingreso. Observando que en todos los escenarios cuando el pago es justo de $5000 MXN, la deuda se termina de liquidar en un intervalo de tiempo de 26.50 a 29.66 años.

Este trabajo considera tablas de amortización con pagos constantes de forma mensual; sin embargo, la mayoría de las veces la cantidad abonada a capital (valor actual de la deuda) de este tipo de pagos es pequeña. Por tal motivo, para futuras investigaciones se pueden realizar escenarios donde la amortización periódica sea constante y se destine una mayor cantidad de cada pago periódico a capital y por ende la deuda decrezca más rápidamente. Asimismo, se propone como línea de investigación futura amortizaciones donde los pagos periódicos a realizar sean distintos, adaptándose así a las necesidades que tenga el acreedor del crédito hipotecario.

A diferencia de otras investigaciones, el valor agregado de esta investigación es que muestra un algoritmo útil y de fácil uso que pueda ser implementado en la práctica, no solo en México, sino en cualquier parte del mundo, para que los individuos puedan realizar comparativos de los productos públicos o privados que le son ofrecidos por las hipotecarias a través de diversos escenarios de adquisición de vivienda y puedan optar por la mejor decisión sujeta a su capacidad de pago.

Tabla 6. Escenario 1 crédito otorgado por el FOVISSSTE considerando una tasa de interés efectiva anual del 10.25 % Tabla 6. Escenario 1 crédito otorgado por el FOVISSSTE considerando una tasa de interés efectiva anual del 10.25 % Table 6. Scenario 1: Loan granted by the FOVISSSTE considering a 10.25 % effective annual interest rate

Número de meses	Pago por meses (MXN)	Intereses sobre el saldo insoluto (MXN)	Amortización (MXN)	Saldo Insoluto (MXN)
0	$0.00	$0.00	$0.00	$620 000.00
1	$6000.00	$5295.83	$704.17	$619 295.83
2	$6000.00	$5289.82	$710.18	$618 585.65
…	…	…	…	…
252	$5396.09	$45.70	$5350.38	$0.00
Total	$1 511 396.09	$891 396.09	$620 000.00

Fuente: elaboración propia exportando los valores del código a Excel.

Tabla 7. Escenario 2 crédito otorgado por el FOVISSSTE considerando una tasa de interés efectiva anual del 10.25 % Tabla 7. Escenario 2 crédito otorgado por el FOVISSSTE considerando una tasa de interés efectiva anual del 10.25 % Table 7. Scenario 2: Loan granted by the FOVISSSTE considering a 10.25 % effective annual interest rate

Número de meses	Pago por meses (MXN)	Intereses sobre el saldo insoluto (MXN)	Amortización (MXN)	Saldo Insoluto (MXN)
0	$0.00	$0.00	$0.00	$620 000.00
1	$6500.00	$5295.83	$1204.17	$618 795.83
2	$6500.00	$5285.55	$1214.45	$617 581.38
…	…	…	…	…
199	$1492.51	$12.64	$1479.87	$0.00
Total	$1 288 492.51	$668 492.51	$620 000.00

Fuente: elaboración propia exportando los valores del código a Excel.

Tabla 8. Escenario 3 crédito otorgado por el FOVISSSTE considerando una tasa de interés efectiva anual del 10.25 % Tabla 8. Escenario 3 crédito otorgado por el FOVISSSTE considerando una tasa de interés efectiva anual del 10.25 % Table 8. Scenario 3: Loan granted by the FOVISSSTE considering a 10.25 % effective annual interest rate

Número de meses	Pago por meses (MXN)	Intereses sobre el saldo insoluto (MXN)	Amortización (MXN)	Saldo Insoluto (MXN)
0	$0.00	$0.00	$0.00	$620 000.00
1	$10 000.00	$5295.83	$4704.17	$615 295.83
2	$10 000.00	$5255.65	$4744.35	$610 551.49
…	…	…	…	…
89	$6666.25	$56.46	$6609.79	$0.00
Total	$886 666.25	$266 666.25	$620 000.00

Fuente: elaboración propia exportando los valores del código a Excel.

Tabla 9. Escenario 1 crédito bancario considerando la tasa mínima promedio de 10.95 % efectiva anual Tabla 9. Escenario 1 crédito bancario considerando la tasa mínima promedio de 10.95 % efectiva anual Table 9. Scenario 1: Bank microcredit considering a 10.95 % minimum average effective annual interest rate

Número de meses	Pago por meses (MXN)	Intereses sobre el saldo insoluto (MXN)	Amortización (MXN)	Saldo Insoluto (MXN)
0	$0.00	$0.00	$0.00	$620 000.00
1	$6000.00	$5657.50	$342.50	$619 657.50
2	$6000.00	$5654.37	$345.63	$619 311.87
…	…	…	…	…
316	$1261.63	$11.41	$1250.22	$0.00
Total	$1 891 261.63	$1 271 261.63	$620 000.00

Fuente: elaboración propia exportando los valores del código a Excel.

Tabla 10. Escenario 2 crédito bancario considerando la tasa mínima promedio de 10.95 % efectiva anual Tabla 10. Escenario 2 crédito bancario considerando la tasa mínima promedio de 10.95 % efectiva anual Table 10. Scenario 2: Bank microcredit considering a 10.95 % minimum average effective annual interest rate

Número de meses	Pago por meses (MXN)	Intereses sobre el saldo insoluto (MXN)	Amortización (MXN)	Saldo Insoluto (MXN)
0	$0.00	$0.00	$0.00	$620 000.00
1	$6500.00	$5657.50	$842.50	$619 157.50
2	$6500.00	$5649.81	$850.19	$618 307.31
…	…	…	…	…
225	$6050.79	$54.71	$5996.08	$0.00
Total	$1 462 050.79	$842 050.79	$620 000.00

Tabla 10. Escenario 2 crédito bancario considerando la tasa m

Tabla 11. Escenario 3 crédito bancario considerando la tasa mínima promedio de 10.95 % efectiva anual Tabla 11. Escenario 3 crédito bancario considerando la tasa mínima promedio de 10.95 % efectiva anual Table 11. Scenario 3: Bank microcredit considering a 10.95 % minimum average effective annual interest rate

Número de meses	Pago por meses (MXN)	Intereses sobre el saldo insoluto (MXN)	Amortización (MXN)	Saldo Insoluto (MXN)
0	$0.00	$0.00	$0.00	$620 000.00
1	$10 000.00	$5657.50	$4342.50	$615 657.50
2	$10 000.00	$5617.87	$4382.13	$611 275.37
…	…	…	…	…
92	$8291.22	$74.97	$8216.24	$0.00
Total	$918 291.22	$298 291.22	$620 000.00

Fuente: elaboración propia exportando los valores del código a Excel.

Tabla 12. Escenario 1 crédito bancario considerando la tasa media promedio de 13.17 % efectiva anual Tabla 12. Escenario 1 crédito bancario considerando la tasa media promedio de 13.17 % efectiva anual Table 12. Scenario 1: Bank microcredit considering a 13.17 % average effective annual interest rate

Número de meses	Pago por meses (MXN)	Intereses sobre el saldo insoluto (MXN)	Amortización (MXN)	Saldo Insoluto (MXN)
0	$0.00	$0.00	$0.00	$620 000.00
1	$10 000.00	$6804.50	$3195.50	$616 804.50
2	$10 000.00	$6769.43	$3230.57	$613 573.93
…	…	…	…	…
105	$5198.59	$56.44	$5142.16	$0.00
Total	$1 045,198.59	$425 198.59	$620 000.00

Fuente: elaboración propia exportando los valores del código a Excel.

Tabla 13. Escenario 1 crédito bancario considerando la tasa máxima promedio de 15.89 % Tabla 13. Escenario 1 crédito bancario considerando la tasa máxima promedio de 15.89 % Table 13. Scenario 1: Bank microcredit considering a 15.89 % maximum average interest rate

Número de meses	Pago por meses (MXN)	Intereses sobre el saldo insoluto (MXN)	Amortización (MXN)	Saldo Insoluto (MXN)
0	$0.00	$0.00	$0.00	$620 000.00
1	$10 000.00	$8209.83	$1790.17	$618 209.83
2	$10 000.00	$8186.13	$1813.87	$616 395.96
…	…	…	…	…
131	$7732.94	$101.06	$7631.88	$0.00
Total	$1 307 732.94	$687 732.94	$620 000.00

Fuente: elaboración propia exportando los valores del código a Excel.

Tabla 14. Escenario 1 crédito otorgado por el INFONAVIT considerando una tasa de interés efectiva anual del 8.70  % Tabla 14. Escenario 1 crédito otorgado por el INFONAVIT considerando una tasa de interés efectiva anual del 8.70  % Table 14. Scenario 1: Loan granted by the INFONAVIT considering a 8.70 % effective annual interest rate

Número de meses	Pago por meses (MXN)	Intereses sobre el saldo insoluto (MXN)	Amortización (MXN)	Saldo Insoluto (MXN)
0	$0.00	$0.00	$0.00	$620 000.00
1	$5000.00	$4495.00	$505.00	$619 495.00
2	$5000.00	$4491.34	$508.66	$618 986.34
…	…	…	…	…
318	$1856.32	$13.36	$1842.96	$0.00
Total	$1 586 856.32	$966 856.32	$620 000.00

Fuente: elaboración propia exportando los valores del código a Excel.

Tabla 15. Escenario 2 crédito otorgado por el INFONAVIT considerando una tasa de interés efectiva anual del 8.80 % Tabla 15. Escenario 2 crédito otorgado por el INFONAVIT considerando una tasa de interés efectiva anual del 8.80 % Table 15. Scenario 2: Loan granted by the INFONAVIT considering a 8.80 % effective annual interest rate

Número de meses	Pago por meses (MXN)	Intereses sobre el saldo insoluto (MXN)	Amortización (MXN)	Saldo Insoluto (MXN)
0	$0.00	$0.00	$0.00	$620 000.00
1	$5000.00	$4546.67	$453.33	$619 546.67
2	$5000.00	$4543.34	$456.66	$619 090.01
…	…	…	…	…
329	$2747.83	$20.00	$2727.83	$0.00
Total	$1 642,747.83	$1 022,747.83	$620 000.00

Fuente: elaboración propia exportando los valores del código a Excel.

Tabla 16. Escenario 3 crédito otorgado por el INFONAVIT considerando una tasa de interés efectiva anual del 9.00 % Tabla 16. Escenario 3 crédito otorgado por el INFONAVIT considerando una tasa de interés efectiva anual del 9.00 % Table 16. Scenario 3: Loan granted by the INFONAVIT considering a 9.00 % effective annual interest rate

Número de meses	Pago por meses (MXN)	Intereses sobre el saldo insoluto (MXN)	Amortización (MXN)	Saldo Insoluto (MXN)
0	$0.00	$0.00	$0.00	$620 000.00
1	$5000.00	$4650.00	$350.00	$619 650.00
2	$5000.00	$4647.38	$352.63	$619 297.38
…	…	…	…	…
356	$4481.63	$33.36	$4448.27	$0.00
Total	$1 779 481.63	$1 159 481.63	$620 000.00

Fuente: elaboración propia exportando los valores del código a Excel.

Tabla 17. Escenario 4 crédito otorgado por el INFONAVIT considerando una tasa de interés efectiva anual del 9.00 % Tabla 17. Escenario 4 crédito otorgado por el INFONAVIT considerando una tasa de interés efectiva anual del 9.00 % Table 17. Scenario 4: Loan granted by the INFONAVIT considering a 9.00 % effective annual interest rate

Número de meses	Pago por meses (MXN)	Intereses sobre el saldo insoluto (MXN)	Amortización (MXN)	Saldo Insoluto (MXN)
0	$0.00	$0.00	$0.00	$620 000.00
1	$6000.00	$4650.00	$1350.00	$618 650.00
2	$6000.00	$4639.88	$1360.13	$617 289.88
…	…	…	…	…
200	$3798.50	$28.28	$3770.23	$0.00
Total	$1 197 798.50	$577 798.50	$620 000.00

Fuente: elaboración propia exportando los valores del código a Excel.

Tabla 18. Escenario 5 crédito otorgado por el INFONAVIT considerando una tasa de interés efectiva anual del 9.10 % Tabla 18. Escenario 5 crédito otorgado por el INFONAVIT considerando una tasa de interés efectiva anual del 9.10 % Table 18. Scenario 5: Loan granted by the INFONAVIT considering a 9.10 % effective annual interest rate

Número de meses	Pago por meses (MXN)	Intereses sobre el saldo insoluto (MXN)	Amortización (MXN)	Saldo Insoluto (MXN)
0	$0.00	$0.00	$0.00	$620 000.00
1	$6000.00	$4701.67	$1298.33	$618 701.67
2	$6000.00	$4691.82	$1308.18	$617 393.49
…	…	…	…	…
203	$3677.58	$27.68	$3649.91	$0.00
Total	$1 215 677.58	$595 677.58	$620 000.00

Fuente: elaboración propia exportando los valores del código a Excel.

Tabla 19. Escenario 6 crédito otorgado por el INFONAVIT considerando una tasa de interés efectiva anual del 9.20 % Tabla 19. Escenario 6 crédito otorgado por el INFONAVIT considerando una tasa de interés efectiva anual del 9.20 % Table 19. Scenario 6: Loan granted by the INFONAVIT considering a 9.20 % effective annual interest rate

Número de meses	Pago por meses (MXN)	Intereses sobre el saldo insoluto (MXN)	Amortización (MXN)	Saldo Insoluto (MXN)
0	$0.00	$0.00	$0.00	$620 000.00
1	$6000.00	$4753.33	$1246.67	$618 753.33
2	$6000.00	$4743.78	$1256.22	$617 497.11
…	…	…	…	…
206	$4414.52	$33.59	$4380.93	$0.00
Total	$1 234,414.52	$614 414.52	$620 000.00

Fuente: elaboración propia exportando los valores del código a Excel.

Tabla 20. Escenario 7 crédito otorgado por el INFONAVIT considerando una tasa de interés efectiva anual del 9.20 % Tabla 20. Escenario 7 crédito otorgado por el INFONAVIT considerando una tasa de interés efectiva anual del 9.20 % Table 20. Scenario 7: Loan granted by the INFONAVIT considering a 9.20 % effective annual interest rate

Número de meses	Pago por meses (MXN)	Intereses sobre el saldo insoluto (MXN)	Amortización (MXN)	Saldo Insoluto (MXN)
0	$0.00	$0.00	$0.00	$620 000.00
1	$6500.00	$4753.33	$1746.67	$618 253.33
2	$6500.00	$4739.94	$1760.06	$616493.28
…	…	…	…	…
173	$389.06	$2.96	$386.10	$0.00
Total	$1 118,389.06	$498 389.06	$620 000.00

Fuente: elaboración propia exportando los valores del código a Excel.

Tabla 21. Escenario 8 crédito otorgado por el INFONAVIT considerando una tasa de interés efectiva anual del 9.30 % Tabla 21. Escenario 8 crédito otorgado por el INFONAVIT considerando una tasa de interés efectiva anual del 9.30 % Table 21. Scenario 8: Loan granted by the INFONAVIT considering a 9.30 % effective annual interest rate

Número de meses	Pago por meses (MXN)	Intereses sobre el saldo insoluto (MXN)	Amortización (MXN)	Saldo Insoluto (MXN)
0	$0.00	$0.00	$0.00	$620 000.00
1	$6000.00	$4805.00	$,195.00	$618 805.00
2	$6000.00	$4795.74	$1204.26	$617 600.74
…	…	…	…	…
210	$83.92	$0.65	$83.28	$0.00
Total	$1 254,083.92	$634 083.92	$620 000.00

Fuente: elaboración propia exportando los valores del código a Excel.

Tabla 22. Escenario 9 crédito otorgado por el INFONAVIT considerando una tasa de interés efectiva anual del 9.30 % Tabla 22. Escenario 9 crédito otorgado por el INFONAVIT considerando una tasa de interés efectiva anual del 9.30 % Table 22. Scenario 9: Loan granted by the INFONAVIT considering a 9.30 % effective annual interest rate

Número de meses	Pago por meses (MXN)	Intereses sobre el saldo insoluto (MXN)	Amortización (MXN)	Saldo Insoluto (MXN)
0	$0.00	$0.00	$0.00	$620 000.00
1	$6500.00	$4805.00	$1695.00	$618 305.00
2	$6500.00	$4791.86	$1708.14	$616 596.86
…	…	…	…	…
175	$691.13	$5.32	$685.81	$0.00
Total	$1 131 691.13	$511 691.13	$620 000.00

Fuente: elaboración propia exportando los valores del código a Excel.

Tabla 23. Escenario 10 crédito otorgado por el INFONAVIT considerando una tasa de interés efectiva anual del 9.40 % Tabla 23. Escenario 10 crédito otorgado por el INFONAVIT considerando una tasa de interés efectiva anual del 9.40 % Table 23. Scenario 10: Loan granted by the INFONAVIT considering a 9.40 % effective annual interest rate

Número de meses	Pago por meses (MXN)	Intereses sobre el saldo insoluto (MXN)	Amortización (MXN)	Saldo Insoluto (MXN)
0	$0.00	$0.00	$0.00	$620 000.00
1	$6000.00	$4856.67	$1143.33	$618 856.67
2	$6000.00	$4847.71	$1152.29	$617 704.38
…	…	…	…	…
213	$2785.85	$21.65	$2764.20	$0.00
Total	$1 274 785.85	$654 785.85	$620 000.00

Fuente: elaboración propia exportando los valores del código a Excel.

Tabla 24. Escenario 11 crédito otorgado por el INFONAVIT considerando una tasa de interés efectiva anual del 9.40 % Tabla 24. Escenario 11 crédito otorgado por el INFONAVIT considerando una tasa de interés efectiva anual del 9.40 % Table 24. Scenario 11: Loan granted by the INFONAVIT considering a 9.40 % effective annual interest rate

Número de meses	Pago por meses (MXN)	Intereses sobre el saldo insoluto (MXN)	Amortización (MXN)	Saldo Insoluto (MXN)
0	$0.00	$0.00	$0.00	$620 000.00
1	$6500.00	$4856.67	$1643.33	$618 356.67
2	$6500.00	$4843.79	$1656.21	$616 700.46
…	…	…	…	…
177	$1487.73	$11.56	$1476.17	$0.00
Total	$1 145,487.73	$525 487.73	$620 000.00

Fuente: elaboración propia exportando los valores del código a Excel.

Tabla 25. Escenario 12 crédito otorgado por el INFONAVIT considerando una tasa de interés efectiva anual del 9.50 % Tabla 25. Escenario 12 crédito otorgado por el INFONAVIT considerando una tasa de interés efectiva anual del 9.50 % Table 25. Scenario 12: Loan granted by the INFONAVIT considering a 9.50 % effective annual interest rate

Número de meses	Pago por meses (MXN)	Intereses sobre el saldo insoluto (MXN)	Amortización (MXN)	Saldo Insoluto (MXN)
0	$0.00	$0.00	$0.00	$620 000.00
1	$6000.00	$4908.33	$1091.67	$618 908.33
2	$6000.00	$4899.69	$1100.31	$617 808.02
…	…	…	…	…
217	$601.04	$4.72	$596.32	$0.00
Total	$1 296 601.04	$676 601.04	$620 000.00

Fuente: elaboración propia exportando los valores del código a Excel.

Tabla 26. Escenario 13 crédito otorgado por el INFONAVIT considerando una tasa de interés efectiva anual del 9.50 % Tabla 26. Escenario 13 crédito otorgado por el INFONAVIT considerando una tasa de interés efectiva anual del 9.50 % Table 26. Scenario 13: Loan granted by the INFONAVIT considering a 9.50 % effective annual interest rate

Número de meses	Pago por meses (MXN)	Intereses sobre el saldo insoluto (MXN)	Amortización (MXN)	Saldo Insoluto (MXN)
0	$0.00	$0.00	$0.00	$620 000.00
1	$6500.00	$4908.33	$1591.67	$618 408.33
2	$6500.00	$4895.73	$1604.27	$616 804.07
…	…	…	…	…
179	$2810.97	$22.08	$2788.89	$0.00
Total	$1 159,810.97	$539 810.97	$620 000.00

Fuente: elaboración propia exportando los valores del código a Excel.

Tabla 27. Escenario 14 crédito otorgado por el INFONAVIT considerando una tasa de interés efectiva anual del 9.50 % Tabla 27. Escenario 14 crédito otorgado por el INFONAVIT considerando una tasa de interés efectiva anual del 9.50 % Table 27. Scenario 14: Loan granted by the INFONAVIT considering a 9.50 % effective annual interest rate

Número de meses	Pago por meses (MXN)	Intereses sobre el saldo insoluto (MXN)	Amortización (MXN)	Saldo Insoluto (MXN)
0	$0.00	$0.00	$0.00	$620 000.00
1	$10 000.00	$4908.33	$5091.67	$614 908.33
2	$10 000.00	$4868.02	$5131.98	$609 776.36
…	…	…	…	…
86	$5986.10	$47.02	$5939.08	$0.00
Total	$855 986.10	$235 986.10	$620 000.00

Fuente: elaboración propia exportando los valores del código a Excel.

Tabla 28. Escenario 15 crédito otorgado por el INFONAVIT considerando una tasa de interés efectiva anual del 10 % Tabla 28. Escenario 15 crédito otorgado por el INFONAVIT considerando una tasa de interés efectiva anual del 10 % Table 28. Scenario 15: Loan granted by the INFONAVIT considering a 10 % effective annual interest rate

Número de meses	Pago por meses (MXN)	Intereses sobre el saldo insoluto (MXN)	Amortización (MXN)	Saldo Insoluto (MXN)
0	$0.00	$0.00	$0.00	$620 000.00
1	$6000.00	$5166.67	$833.33	$619 166.67
2	$6000.00	$5159.72	$840.28	$618 326.39
…	…	…	…	…
238	$5255.10	$43.43	$5211.67	$0.00
Total	$1 427 255.10	$807 255.10	$620 000.00

Fuente: elaboración propia exportando los valores del código a Excel.

Tabla 29. Escenario 16 crédito otorgado por el INFONAVIT considerando una tasa de interés efectiva anual del 10 % Tabla 29. Escenario 16 crédito otorgado por el INFONAVIT considerando una tasa de interés efectiva anual del 10 % Table 29. Scenario 16: Loan granted by the INFONAVIT considering a 10 % effective annual interest rate

Número de meses	Pago por meses (MXN)	Intereses sobre el saldo insoluto (MXN)	Amortización (MXN)	Saldo Insoluto (MXN)
0	$0.00	$0.00	$0.00	$620 000.00
1	$6500.00	$5166.67	$1333.33	$618 666.67
2	$6500.00	$5155.56	$1344.44	$617 322.22
…	…	…	…	…
191	$5757.69	$47.58	$5710.10	$0.00
Total	$1 240 757.69	$620 757.69	$620 000.00

Fuente: elaboración propia exportando los valores del código a Excel.

Tabla 30. Escenario 17 crédito otorgado por el INFONAVIT considerando una tasa de interés efectiva anual del 10 % Tabla 30. Escenario 17 crédito otorgado por el INFONAVIT considerando una tasa de interés efectiva anual del 10 % Table 30. Scenario 17: Loan granted by the INFONAVIT considering a 10% effective annual interest rate

Número de meses	Pago por meses (MXN)	Intereses sobre el saldo insoluto (MXN)	Amortización (MXN)	Saldo Insoluto (MXN)
0	$0.00	$0.00	$0.00	$620 000.00
1	$10 000.00	$5166.67	$4833.33	$615 166.67
2	$10 000.00	$5126.39	$4873.61	$610 293.06
…	…	…	…	…
88	$6098.57	$50.40	$6048.17	$0.00
Total	$876 098.57	$256 098.57	$620 000.00

Fuente: elaboración propia exportando los valores del código a Excel.

Tabla 31. Salario Mensual de la clase Media Baja en México Tabla 31. Salario Mensual de la clase Media Baja en México Table 31. Monthly salary of low-income workers in Mexico

Año	SMVDF diario (MXN)	SMVDF mensual (MXN)	2SMVDF mensual (MXN)	3SMVDF mensual (MXN)
2015	$70.1	$2103	$4206	$6309
2016	$73.04	$2191.2	$4382.4	$6573.6
2017	$80.04	$2401.2	$4802.4	$7203.6
2018	$88.36	$2650.8	$5301.6	$7952.4
2019	$102.68	$3080.4	$6160.8	$9241.2
2020	$123.22	$3696.6	$7393.2	$11 089.8

Fuente: elaboración propia con datos de la CONASAMI (2020).

CÓDIGO

Para tener una mejor comprensión del algoritmo, se denotarán las ecuaciones que el programa ocupa para calcular las tablas de amortización: (4)

(4)

Donde r[y] representa el interés sobre el Saldo Insoluto del periodo actual, s [y-1] es el Saldo Insoluto de un periodo anterior, y el periodo actual y q la tasa de interés efectiva capitalizable. (5)

(5)

a[y] es la amortización del periodo actual, p es el pago por periodo y r[y] es el interés sobre el Saldo Insoluto del periodo actual. (6) y (7)

(6)

(7)

s[y] es el Saldo Insoluto del periodo actual, vp es el valor presente y s[y-1] es el Saldo Insoluto de un periodo anterior.

Observando las fórmulas se puede concluir que si p < r[y] , entonces la amortización será negativa, por lo que el Saldo Insoluto incrementará en lugar de disminuir, por lo tanto, la deuda se hará más grande.

También si desde el inicio se observa que p > r[y] y p ≈ r[y] , entonces la amortización periódica será muy pequeña, el Saldo Insoluto disminuirá muy poco y se tendrán demasiados periodos para que la deuda adquirida se encuentre completamente amortizada. El código del programa para amortizar una deuda que se trabajó en el software Dev c++, es el siguiente:

#include

main()

{

FILE *f;

char op;

int y=1,o,m;

float vp,i,n,k,q,p,r[8000],a[8000],s[8000],ta[8000],tr[8000],tp[8000];

op='s';

while(op=='s')

{

f=fopen("Amortizacion Gradual.txt","w");

printf("\nSeleccione la forma de pagos:\n");

printf("\n1 si son semanales");

printf("\n2 si son quincenales");

printf("\n3 si son mensuales");

printf("\n4 si son bimestrales");

printf("\n5 si son trimestrales");

printf("\n6 si son cuatrimestrales");

printf("\n7 si son semestrales");

printf("\n8 si son anuales\n");

scanf("%d",&o);

if(o==1)

{

m=48;

}

else if(o==2)

{

m=24;

}

else if(o==3)

{

m=12;

}

else if(o==4)

{

m=6;

}

else if(o==5)

{

m=4;

}

else if(o==6)

{

m=3;

}

else if(o==7)

{

m=2;

}

else if(o==8)

{

m=1;

}

else

{

printf("\nOpcion no valida\n");

return(1);

}

printf("\nTeclee el valor presente:\n");

scanf("%f",&vp);

printf("\nTeclee el pago fijo:\n");

scanf("%f",&p);

printf("\nTeclee la tasa convertible o capitalizable i(%d):\n",m);

scanf("%f",&i);

q=i/m; k=vp*q;

fprintf(f,"P.: Periodo");

fprintf(f,"\nP.p.: Pago por periodo");

fprintf(f,"\nI.s.s.i.: Interes sobre el saldo insoluto");

fprintf(f,"\nA.: Amortizacion");

fprintf(f,"\nS.i.:Saldo insoluto\n");

fprintf(f,"\nP. P.p. I.s.s.i. A. S.i.");

fprintf(f,"\n0 0 0 0 %.2f",vp);

for(y=1;y<=7998;y++)

{

tp[0]=0;

tr[0]=0;

ta[0]=0;

s[0]=vp;

r[y]=s[y-1]*q;

a[y]=p-r[y];

s[y]=s[y-1]-a[y];

tp[y]=tp[y-1]+p;

tr[y]=tr[y-1]+r[y];

ta[y]=ta[y-1]+a[y-2];

if(p>=a[y])

{

if(s[y]>=0)

{

printf("\n%d %.2f %.2f %.2f %.2f",y,p,r[y],a[y],s[y]);

fprintf(f,"\n%d %.2f %.2f %.2f %.2f",y,p,r[y],a[y],s[y]);

}

else

{

}

}

else

{

break;

}

}

if(s[y-3]>0&&s[y-3]!=0)

{

s[y-4]=s[y-3]-s[y-3];

a[y-4]=s[y-3]-a[y-2];

r[y-4]=s[y-2]*q;

n=a[y-4]+r[y-4];

printf("\n%d %.2f %.2f %.2f %.2f",y,n,r[y-4],a[y-4],s[y-4]);

fprintf(f,"\n%d %.2f %.2f %.2f %.2f",y,n,r[y-4],a[y-4],s[y-4]);

}

if(s[y-4]==0&&p>a[y]&&a[y]>0)

{

tp[y]=tp[y-2]+n;

tr[y]=tr[y]+r[y-4];

ta[y]=ta[y]+a[y-4];

printf("\n\nTotal de pago fijos: \n%.2f\n",tp[y]);

printf("\nTotal de intereses sobre el saldo insoluto: \n%.2f\n",tr[y]);

printf("\nTotal de la amortizacion: \n%.2f\n",ta[y]);

fprintf(f,"\n\nTotal de pago fijos: \n%.2f\n",tp[y]);

fprintf(f,"\nTotal de intereses sobre el saldo insoluto: \n%.2f\n",tr[y]);

fprintf(f,"\nTotal de la amortizacion: \n%.2f\n",ta[y]);

}

fclose(f);

printf("\n¿Desea continuar? s/n \n");

op=getche();

getche();

}

system("PAUSE");

}