Rev 7692 | Details | Compare with Previous | Last modification | View Log | RSS feed
Rev | Author | Line No. | Line |
---|---|---|---|
20 | reyssat | 1 | !if $wims_read_parm!=slib_header |
13585 | bpr | 2 | !goto proc |
20 | reyssat | 3 | !endif |
4349 | bpr | 4 | slib_author=Gang, XIAO |
4158 | bpr | 5 | |
20 | reyssat | 6 | slib_example=3,2,5 |
3265 | bpr | 7 | slib_require=pari |
20 | reyssat | 8 | !exit |
9 | |||
10 | :proc |
||
11 | !distribute items $wims_read_parm into slib_rows,slib_cols,slib_range,slib_ring |
||
12 | !default slib_ring=Z |
||
13 | !bound slib_rows between integer 1 and 30 default 2 |
||
14 | !bound slib_cols between integer 1 and 30 default 2 |
||
15 | !bound slib_range between integer 1 and 1000000 default 2 |
||
16 | |||
17 | !if $slib_ring=Z |
||
13585 | bpr | 18 | slib_ran1=(random(2*$slib_range+1)-$slib_range) |
19 | slib_out=!exec pari print(matrix($slib_rows,$slib_cols,x,y,$slib_ran1)) |
||
20 | !exit |
||
20 | reyssat | 21 | !endif |