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=[ |
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/ |
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 |