Subversion Repositories wimsdev

!if $wims_read_parm!=slib_header

 !goto proc

!endif

slib_author=Gang, XIAO

slib_example= 3,6,5

slib_require=pari

!exit

:proc

!distribute items $wims_read_parm into slib_rows,slib_cols,slib_range,slib_ring

!default slib_ring=Z

!bound slib_rows between integer 1 and 30 default 2

!bound slib_cols between integer 1 and 30 default 2

!bound slib_range between integer 1 and 1000000 default 2

!if $slib_ring=Z

 slib_ran1=(random($slib_range)+1)*(2*random(2)-1)

 slib_out=!exec pari print(matrix($slib_rows,$slib_cols,x,y,$slib_ran1))

 !exit

!endif