|  |  D.2.9.8 sparsetriag Procedure from libraryrandom.lib(see  random_lib).
 
Example:Usage:
sparsetriag(n,m[,p,b]); n,m,p,b integers
Return:
nxm lower triagonal integer matrix, diagonal entries equal to 1, about
p percent of lower diagonal entries are 0, the remaining are random
integers >=1 and <= b; [defaults: (p,b) = (75,1)]
 |  | LIB "random.lib";
sparsetriag(5,7);"";
==> 1,0,0,0,0,0,0,
==> 0,1,0,0,0,0,0,
==> 0,1,1,0,0,0,0,
==> 0,0,0,1,0,0,0,
==> 1,1,0,0,1,0,0 
==> 
sparsetriag(7,5,90);"";
==> 1,0,0,0,0,
==> 0,1,0,0,0,
==> 0,1,1,0,0,
==> 0,0,0,1,0,
==> 0,0,0,0,1,
==> 0,0,0,1,0,
==> 0,1,0,0,0 
==> 
sparsetriag(5,5,0);"";
==> 1,0,0,0,0,
==> 1,1,0,0,0,
==> 1,1,1,0,0,
==> 1,1,1,1,0,
==> 1,1,1,1,1 
==> 
sparsetriag(5,5,50,100);
==> 1,0,0,0,0,
==> 73,1,0,0,0,
==> 0,79,1,0,0,
==> 14,0,0,1,0,
==> 0,48,23,0,1 
 | 
 
 |