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))