Mercurial > octave

comparison src/rand.cc @ 2086:bfb775fb6fe8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1996-04-25 05:55:19 by jwe]
author jwe
date Thu, 25 Apr 1996 05:55:19 +0000
parents 003570e69c7b
children 5a3f1d00a474
comparison
equal deleted inserted replaced
2085:7603b37325db 2086:bfb775fb6fe8
148 F77_FCN (setall, SETALL) (s0, s1); 148 F77_FCN (setall, SETALL) (s0, s1);
149 149
150 initialized = 1; 150 initialized = 1;
151 } 151 }
152 152
153 static Octave_object 153 static octave_value_list
154 do_rand (const Octave_object& args, int nargin) 154 do_rand (const octave_value_list& args, int nargin)
155 { 155 {
156 Octave_object retval; 156 octave_value_list retval;
157 157
158 int n = 0; 158 int n = 0;
159 int m = 0; 159 int m = 0;
160 160
161 if (nargin == 0) 161 if (nargin == 0)
165 165
166 goto gen_matrix; 166 goto gen_matrix;
167 } 167 }
168 else if (nargin == 1) 168 else if (nargin == 1)
169 { 169 {
170 tree_constant tmp = args(0); 170 octave_value tmp = args(0);
171 171
172 if (tmp.is_string ()) 172 if (tmp.is_string ())
173 { 173 {
174 string s_arg = tmp.string_value (); 174 string s_arg = tmp.string_value ();
175 175
339 rand (SEED) -- get current seed\n\ 339 rand (SEED) -- get current seed\n\
340 rand (SEED, N) -- set seed\n\ 340 rand (SEED, N) -- set seed\n\
341 \n\ 341 \n\
342 See also: randn") 342 See also: randn")
343 { 343 {
344 Octave_object retval; 344 octave_value_list retval;
345 345
346 int nargin = args.length (); 346 int nargin = args.length ();
347 347
348 if (nargin > 2 || nargout > 1) 348 if (nargin > 2 || nargout > 1)
349 print_usage ("rand"); 349 print_usage ("rand");
373 randn (SEED) -- get current seed\n\ 373 randn (SEED) -- get current seed\n\
374 randn (SEED, N) -- set seed\n\ 374 randn (SEED, N) -- set seed\n\
375 \n\ 375 \n\
376 See also: rand") 376 See also: rand")
377 { 377 {
378 Octave_object retval; 378 octave_value_list retval;
379 379
380 int nargin = args.length (); 380 int nargin = args.length ();
381 381
382 if (nargin > 2 || nargout > 1) 382 if (nargin > 2 || nargout > 1)
383 print_usage ("randn"); 383 print_usage ("randn");