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