Mercurial > octave-nkf

comparison src/DLD-FUNCTIONS/rand.cc @ 5164:57077d0ddc8e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2005-02-25 19:55:24 by jwe]
author jwe
date Fri, 25 Feb 2005 19:55:28 +0000
parents dece11da64ed
children 23b37da9fd5b
comparison
equal deleted inserted replaced
5163:9f3299378193 5164:57077d0ddc8e
70 70
71 if (s_arg == "dist") 71 if (s_arg == "dist")
72 { 72 {
73 retval = octave_rand::distribution (); 73 retval = octave_rand::distribution ();
74 } 74 }
75 else if (s_arg == "seed") 75 else if (s_arg == "seed" || s_arg == "state")
76 { 76 {
77 retval = octave_rand::seed (); 77 retval = octave_rand::seed ();
78 } 78 }
79 else if (s_arg == "uniform") 79 else if (s_arg == "uniform")
80 { 80 {
177 { 177 {
178 octave_value tmp = args(0); 178 octave_value tmp = args(0);
179 179
180 if (nargin == 2 && tmp.is_string ()) 180 if (nargin == 2 && tmp.is_string ())
181 { 181 {
182 if (tmp.string_value () == "seed") 182 std::string ts = tmp.string_value ();
183
184 if (ts == "seed" || ts == "state")
183 { 185 {
184 double d = args(1).double_value (); 186 double d = args(1).double_value ();
185 187
186 if (! error_state) 188 if (! error_state)
187 octave_rand::seed (d); 189 octave_rand::seed (d);