Mercurial > octave
comparison src/DLD-FUNCTIONS/rand.cc @ 5782:96cd81ed579e
[project @ 2006-05-02 21:36:02 by jwe]
| author | jwe |
|---|---|
| date | Tue, 02 May 2006 21:36:50 +0000 |
| parents | 8d7162924bd3 |
| children | 7e7ed81f5566 |
comparison
equal
deleted
inserted
replaced
| 5781:faafc2d98b8d | 5782:96cd81ed579e |
|---|---|
| 226 { | 226 { |
| 227 std::string ts = tmp.string_value (); | 227 std::string ts = tmp.string_value (); |
| 228 | 228 |
| 229 if (ts == "seed") | 229 if (ts == "seed") |
| 230 { | 230 { |
| 231 double d = args(idx+1).double_value (); | 231 if (args(idx+1).is_real_scalar ()) |
| 232 | 232 { |
| 233 if (! error_state) | 233 double d = args(idx+1).double_value (); |
| 234 octave_rand::seed (d); | 234 |
| 235 if (! error_state) | |
| 236 octave_rand::seed (d); | |
| 237 } | |
| 238 else | |
| 239 error ("%s: seed must be a real scalar", fcn); | |
| 235 } | 240 } |
| 236 else if (ts == "state" || ts == "twister") | 241 else if (ts == "state" || ts == "twister") |
| 237 { | 242 { |
| 238 ColumnVector s = | 243 ColumnVector s = |
| 239 ColumnVector (args(idx+1).vector_value(false, true)); | 244 ColumnVector (args(idx+1).vector_value(false, true)); |