Subversion Repositories wimsdev

!if $wims_read_parm!=slib_header
  !goto proc
!endif

slib_author=Bernadette, Perrin-Riou

slib_example= 5,6,t,monic\
5,6,t,2\
5,6,t,-3
slib_require=pari
!exit

:proc

slib_input=$wims_read_parm
!distribute items $slib_input into slib_n, slib_m,slib_var,slib_leading,slib_ring
!default slib_ring=Z
!default slib_n=4
!default slib_m=4
!default slib_leading=monic
!default slib_var=x

!if $slib_leading=monic
        slib_leading=1
!endif
slib_out=!exec pari slib_s=sign($slib_leading); slib_V=vector($slib_n+1,i,random(2*$slib_m)-$slib_m); slib_V[1]=slib_s*(random(abs($slib_leading))+1);print(Pol(slib_V,$slib_var))