Subversion Repositories wimsdev

Rev

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