Subversion Repositories wimsdev

Rev

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
 
-