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 
 
 -