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