Rev 7692 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 7692 | Rev 13585 | ||
---|---|---|---|
Line 1... | Line 1... | ||
1 | !if $wims_read_parm!=slib_header |
1 | !if $wims_read_parm!=slib_header |
2 | !goto proc |
2 | !goto proc |
3 | !endif |
3 | !endif |
4 | slib_author=Gang, XIAO |
4 | slib_author=Gang, XIAO |
5 | 5 | ||
6 | slib_example=3,2,5 |
6 | slib_example=3,2,5 |
7 | slib_require=pari |
7 | slib_require=pari |
Line 13... | Line 13... | ||
13 | !bound slib_rows between integer 1 and 30 default 2 |
13 | !bound slib_rows between integer 1 and 30 default 2 |
14 | !bound slib_cols 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 |
15 | !bound slib_range between integer 1 and 1000000 default 2 |
16 | 16 | ||
17 | !if $slib_ring=Z |
17 | !if $slib_ring=Z |
18 | slib_ran1=(random(2*$slib_range+1)-$slib_range) |
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)) |
19 | slib_out=!exec pari print(matrix($slib_rows,$slib_cols,x,y,$slib_ran1)) |
20 | !exit |
20 | !exit |
21 | !endif |
21 | !endif |