1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
!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))
|
