Mercurial > octave-nkf

comparison scripts/finance/irr.m @ 4030:22bd65326ec1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2002-08-09 18:58:13 by jwe]
author jwe
date Fri, 09 Aug 2002 19:00:16 +0000
parents 38c61cbf086c
children c08cb1098afc
comparison
equal deleted inserted replaced
4029:2cc57b6169cf 4030:22bd65326ec1
35 i = 0; 35 i = 0;
36 elseif (! (nargin == 2)) 36 elseif (! (nargin == 2))
37 usage ("irr (p, i)"); 37 usage ("irr (p, i)");
38 endif 38 endif
39 39
40 if (! (is_vector (p))) 40 if (! (isvector (p)))
41 error ("irr: p must be a vector"); 41 error ("irr: p must be a vector");
42 else 42 else
43 p_string = strcat ("[", sprintf ("%.15f, ", p), "]"); 43 p_string = strcat ("[", sprintf ("%.15f, ", p), "]");
44 endif 44 endif
45 45
46 if (! is_scalar (i)) 46 if (! isscalar (i))
47 error ("irr: i must be a scalar"); 47 error ("irr: i must be a scalar");
48 endif 48 endif
49 49
50 r = fsolve (sprintf ("npv (x, %s) - %g", p_string, i), 0.01); 50 r = fsolve (sprintf ("npv (x, %s) - %g", p_string, i), 0.01);
51 51