La economía no es mi punto fuerte, y me lleva bastante tiempo hacer los ejercicios. Hace unos días, se nos explicó cómo funciona el sistema de préstamos francés e hicimos ejercicios sobre ello.
Para comprender mejor cómo funcionaba el sistema, decidí hacer una pequeña aplicación en PHP que resuelve el ejercicio de forma automática.
Resulta extremadamente útil para hacer mis propios ejercicios de prácticas y tener la solución para saber si lo he resuelto bien. (Y de paso, repaso PHP, que no deja de ser otra asignatura de mi ciclo)
A continuación os paso un par de screenshots de dicha aplicación:
Formulario:
Ejercicio resuelto tras introducir los datos:
No se ve muy bonita, pero cumple su función, que es calcular la cantidad a devolver por unidad de tiempo (ya sea diaria, mensual o anual), además de realizar una tabla con los valores de amortización periódica y relativa teniendo en cuenta el capital restante a devolver.
Para los que estén interesados en trastear con ello, aquí os dejo el código:
Código
<html> <body> <form method ="post" action="<?php echo $_SERVER['PHP_SELF'];?>"> Cálculo de Préstamo Francés<br/> Cuantía Principal Prestada (euros): <input type="text" name = "co" value = "" /><br/> Interés (% anual): <input type="text" name = "i" value = "" /><br/> Duración (años): <input type="text" name = "n" value = "" /><br/> Tipo:<br/> <input type="radio" name = "tipo" value ="1" /> Anual<br/> <input type="radio" name = "tipo" value ="12" /> Mensual<br/> <input type="radio" name = "tipo" value ="365" /> Diario<br/> <input type="submit" name= "calcular" value="ok" /> </form> <table border = "1"> <?php { //Volcado de variables desde form $co = $_POST["co"]; $i = $_POST["i"]; $n = $_POST["n"]; $a = $_POST["tipo"]; //Variables de cálculo $lm = $n*$a; $op1 = ($i/$a)/100; $op3 = $op2-1; $cn = $co*($op1*$op2)/$op3; echo $cn; //Iniciando acumuladores $tar = 0; $cpr = $co; echo "<tr><td>Tiempo</td><td>Pago</td><td>Interés</td><td>Amortización</td><td>T. Amortiz</td><td>Cpt. Pend.</td></tr>"; echo "<tr><td>0</td><td>0</td><td>0</td><td>0</td><td>0</td>"; echo "<td>$cpr</td></tr>"; for ($tr=1;$tr<=$lm;$tr++) { $pr = $cn; $ir = $cpr*$op1; $ar = $pr-$ir; $tar = $tar+$ar; $cpo = $cpr; $cpr = $cpr - $ar; echo "<tr>"; echo "<td>$tr</td>"; echo "<td>$pr</td>"; echo "<td>$ir</td>"; echo "<td>$ar</td>"; echo "<td>$tar</td>"; echo "<td>$cpr</td>"; echo "</tr>"; } } ?> </table> </body> </html>
Si veis algún bug o error, comentádmelo. Si hay algo que puedo mejorar en mi código, también agradecería críticas constructivas.
Un Saludo.