Subversion Repositories wimsdev

Rev

Rev 4161 | Rev 7692 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 4161 Rev 4330
Line 5... Line 5...
5 
slib_parms=3\
 5 
slib_parms=3\
6 
,[data]\
 6 
,[data]\
7 
,a\
 7 
,a\
8 
,b
 8 
,b
9 
 
 9 
 
10 
slib_author=Bernadette PERRIN-RIOU
 10 
slib_author=Sophie, Lemaire; Bernadette, Perrin-Riou
11 
 
 11 
 
12 
slib_example=[0.2,0.4,7],4,5
 12 
slib_example=[0.2,0.4,7],4,5
13 
slib_require=pari
 13 
slib_require=pari
14 
!exit
 14 
!exit
15 
 
 15 
 
16 
:proc
 16 
:proc
17 
slib_out=
 17 
slib_out=
18 
 
 18 
 
19 
!distribute  item $wims_read_parm into slib_data,slib_a, slib_b
 19 
!distribute item $wims_read_parm into slib_data,slib_a, slib_b
20 
slib_data=!declosing $slib_data
 20 
slib_data=!declosing $slib_data
21 
slib_n=!itemcnt $slib_data
 21 
slib_n=!itemcnt $slib_data
22 
 
 22 
 
23 
slib_out=!exec pari slib_u=gamma($slib_a); V=vector($slib_n,x,1-incgam($slib_a ,$slib_b*[$slib_data][x],slib_u)/slib_u);\
 23 
slib_out=!exec pari slib_u=gamma($slib_a); V=vector($slib_n,x,1-incgam($slib_a ,$slib_b*[$slib_data][x],slib_u)/slib_u);\
24 
for(slib_r =1, $slib_n, if ( [$slib_data][slib_r] <= 0, V[slib_r]=0)); V
24 
for(slib_r =1, $slib_n, if ( [$slib_data][slib_r] <= 0, V[slib_r]=0)); V