Subversion Repositories wimsdev

!if $wims_read_parm!=slib_header

 !goto proc

!endif

slib_title=Random polynomial

slib_parms=4\

4,degree\

4,range\

x, variable\

, monic the polynomial is monic,otherwise range of the leading coefficient (sign is permitted)\

Z,coefficient ring: Z for the time being,Q,R,C,G (Gauss ring), n (n is an integer for Z/nZ)

slib_author=Bernadette PERRIN-RIOU

slib_out=the polynomial

slib_comment= by default, the polynomial is a polynomial in x, monic, of degree 4 and with coefficients between -4 and 4 

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