|
 |
 |
 |
 |
 |
 |
 |
 |
 |
D.2.9.8 sparsetriag
Procedure from libraryrandom.lib (see random_lib).
- 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 |