Rev 4349 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 4349 | 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=4,2,5,random\ |
6 | slib_example=4,2,5,random\ |
7 | 4,2,5,u\ |
7 | 4,2,5,u\ |
Line 20... | Line 20... | ||
20 | !bound slib_rows between integer 1 and 30 default 2 |
20 | !bound slib_rows between integer 1 and 30 default 2 |
21 | !bound slib_cols between integer 1 and 30 default 2 |
21 | !bound slib_cols between integer 1 and 30 default 2 |
22 | !bound slib_range between integer 1 and 1000000 default 2 |
22 | !bound slib_range between integer 1 and 1000000 default 2 |
23 | 23 | ||
24 | !if $slib_ring=Z |
24 | !if $slib_ring=Z |
25 | slib_ran1=(random(2*$slib_range+1)-$slib_range) |
25 | slib_ran1=(random(2*$slib_range+1)-$slib_range) |
26 | !endif |
26 | !endif |
27 | 27 | ||
28 | !if $slib_o=u |
28 | !if $slib_o=u |
29 | slib_comp=x>y |
29 | slib_comp=x>y |
30 | !else |
30 | !else |
31 | slib_comp=x<y |
31 | slib_comp=x<y |
32 | !endif |
32 | !endif |
33 | 33 | ||
34 | slib_coef=if($slib_comp,0,$slib_ran1) |
34 | slib_coef=if($slib_comp,0,$slib_ran1) |
35 | slib_out=!exec pari print(matrix($slib_rows,$slib_cols,x,y,$slib_coef)) |
35 | slib_out=!exec pari print(matrix($slib_rows,$slib_cols,x,y,$slib_coef)) |
36 | - |