Subversion Repositories wimsdev

Rev

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

Rev 4330 Rev 7209
Line 4... Line 4...
4 
 
 4 
 
5 
slib_parms=1\
 5 
slib_parms=1\
6 
 ,[data] or [data],[weight]
 6 
 ,[data] or [data],[weight]
7 
slib_author=Sophie, Lemaire; Bernadette, Perrin-Riou
 7 
slib_author=Sophie, Lemaire; Bernadette, Perrin-Riou
8 
 
 8 
 
9 
slib_example=[2,-7,6]\
 9 
slib_example=[2,3]\
- 
 
 10 
2,3\
- 
 
 11 
[2,-7,6]\
10 
[2,-7,6;1,1,4]\
 12 
[2,-7,6;1,1,4]\
11 
[2,-7,6],[1,1,4]
 13 
[2,-7,6],[1,1,4]\
- 
 
 14 
[3,4],[1,1]\
- 
 
 15 
[2,1;3,1]
12 
slib_require=pari
 16 
slib_require=pari
13 
!exit
 17 
!exit
14 
 
 18 
 
15 
:proc
 19 
:proc
16 
 
 20 
 
Line 27... Line 31...
27 
  slib_out =!trim $slib_out
 31 
  slib_out =!trim $slib_out
28 
  !exit
 32 
  !exit
29 
 !else
 33 
 !else
30 
  slib_out=!exec pari { slib_mean=([$slib_data]*[$slib_weight]~)/$slib_tw;\
 34 
  slib_out=!exec pari { slib_mean=([$slib_data]*[$slib_weight]~)/$slib_tw;\
31 
slib_dev=sum(x=1,$slib_cnt,[$slib_weight][x]*[$slib_data][x]^2)-$slib_tw*(slib_mean)^2;\
 35 
slib_dev=sum(x=1,$slib_cnt,[$slib_weight][x]*[$slib_data][x]^2)-$slib_tw*(slib_mean)^2;\
32 
  print(1.*slib_dev/$slib_tw","1.*slib_dev/($slib_tw-1))}
 36 
  print([1.*slib_dev/$slib_tw,1.*slib_dev/($slib_tw-1)])}
33 
  slib_out =!trim $slib_out
 37 
  slib_out =!trim $slib_out
34 
 !endif weight
 38 
 !endif weight
35 
 
 39 
 
36 
  slib_out =!trim $slib_out
 40 
  slib_out =!trim $slib_out
37 
!endif
 41 
!endif