Subversion Repositories wimsdev

Rev

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

Rev 4161 Rev 4330
Line 4... Line 4...
4 
 
 4 
 
5 
slib_parms=2\
 5 
slib_parms=2\
6 
,[data]\
 6 
,[data]\
7 
1,p
 7 
1,p
8 
 
 8 
 
9 
slib_author=Bernadette PERRIN-RIOU
 9 
slib_author=Sophie, Lemaire; Bernadette, Perrin-Riou
10 
 
 10 
 
11 
slib_example=[0.1,0.2,0.3],7
 11 
slib_example=[0.1,0.2,0.3],7
12 
!exit
 12 
!exit
13 
 
 13 
 
14 
:proc
 14 
:proc
15 
 
 15 
 
16 
!distribute  item $wims_read_parm into slib_data,slib_p
 16 
!distribute item $wims_read_parm into slib_data,slib_p
17 
 
 17 
 
18 
!if  $slib_p<=0
 18 
!if  $slib_p<=0
19 
slib_out=0
 19 
slib_out=0
20 
!exit
 20 
!exit
21 
!endif
 21 
!endif
22 
 
 22 
 
23 
slib_data=!declosing $slib_data
 23 
slib_data=!declosing $slib_data
24 
slib_out=!values  -log(1-x)/$slib_p for x in $slib_data
 24 
slib_out=!values -log(1-x)/$slib_p for x in $slib_data
25 
 
 25 
 
26 
slib_out=!trim $slib_out
 26 
slib_out=!trim $slib_out