Valor presente X71853

Diseñad la función @valor_presente(I, r)@ que calcula el valor presente de una inversión $I$ representada como una lista de pagos mensuales y un interés mensual $r$.

Ejemplo: Juan le pide a Pablo que le alquile su vehiculo durante 3 meses a un pago mensual de 5000 euros (el primer pago es hoy). Luego de este tiempo se lo comprará por 45000 euros. El coste de oportunidad de Juan es de un 5% mensual. ¿Cuál es el valor presente del proyecto?

La inversión de Juan es $I= [5000, 5000, 5000, 45000]$. El coste de oportunidad es $r = 0.05$. El @valor_presente(I, r)@ es $$5000 + 5000/(1.05) + 5000/(1.05)^2 + 45000/(1.05)^3 = 53169.74408811143$$

En general si la inversión viene dada por $I = [I_0, I_1,\ldots , I_{n}]$ El valor presente es $I[0] + \sum_{i=1}^{n}\dfrac{I[i]}{(1+r)^i}$

Ejemplo de sessión