+- HP Forums (https://www.hpmuseum.org/forum)
+-- Forum: HP Software Libraries (/forum-10.html)
+--- Forum: HP Prime Software Library (/forum-15.html)
+--- Thread: Net Present Value (/thread-987.html)
Net Present Value - Eddie W. Shore - 03-28-2014 03:34 AM
HP Net Present Value
2014-03-28
Arguments:
NPV(periodical rate, list of cash flows)
or
NPV(periodical rate, [ cash flow, frequency ] )
Program:
EXPORT NPV(r, flows)
BEGIN
LOCAL t:=0, k, s;
r:=1+0.01*r;
CASE
// list
IF TYPE(flows)==6 THEN
s:=SIZE(flows);
FOR k FROM 1 TO s DO
t:=t+flows(k)/(r^(k-1));
END;
END;
// matrix
IF TYPE(flows)==4 THEN
LOCAL j, n;
s:=SIZE(flows);
k:=0;
FOR j FROM 1 TO s(1) DO
FOR n FROM 1 TO flows(j,2) DO
t:=flows(j,1)/(r^k)+t;
k:=k+1;
END;
END;
END;
DEFAULT
MSGBOX("NPV(rate, list) or NPV(rate, [flow, freq])");
KILL;
END;
RETURN t;
END;
--- Examples:
NPV(5, {-1000, 100, 250, 500, 750, 500}) returns 762.704203447
NPV(3, [[-1000, 1],[0, 5],[500, 5],[1500, 1]]) returns 2058.87973969
RE: Net Present Value - salvomic - 05-17-2015 09:15 AM
(03-28-2014 03:34 AM)Eddie W. Shore Wrote: HP Net Present Value
2014-03-28
...
Nice, Eddie!
I hope you would like to develop also a function to calc IRR (Internal Rate of Return: see here) for the cash flow...
thank you
Salvo
RE: Net Present Value - shuhei - 03-05-2019 06:10 AM
if returned an error, when enter NPV(3, [100, 5])
It cannot accept matrix 1x2 as an input. Can someone help? Thanks