Subversion Repositories wimsdev

Rev

Rev 4161 | Rev 4501 | 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 
0.5,p
 7 
0.5,p
8 
 
 8 
 
9 
slib_author=Bernadette PERRIN-RIOU
 9 
slib_author=Sophie, Lemaire; Bernadette, Perrin-Riou
10 
 
 10 
 
11 
slib_example=[2,4,7],0.5
 11 
slib_example=[2,4,7],0.5
12 
!exit
 12 
!exit
13 
 
 13 
 
14 
:proc
 14 
:proc
Line 20... Line 20...
20 
	!exit
 20 
	!exit
21 
!endif
 21 
!endif
22 
slib_out=
 22 
slib_out=
23 
slib_data=!declosing $slib_data
 23 
slib_data=!declosing $slib_data
24 
slib_p1=$[1-$slib_p]
 24 
slib_p1=$[1-$slib_p]
25 
slib_out=!values  $slib_p*$slib_p1^x for x in $slib_data
 25 
slib_out=!values $slib_p*$slib_p1^x for x in $slib_data
26 
 
 26 
 
27 
slib_cnt=!itemcnt $slib_data
 27 
slib_cnt=!itemcnt $slib_data
28 
!for slib_i=1 to $slib_cnt
 28 
!for slib_i=1 to $slib_cnt
29 
	slib_tmp=!item $slib_i of $slib_data
 29 
	slib_tmp=!item $slib_i of $slib_data
30 
	!if $[rint($slib_tmp)-$slib_tmp]<>0 or $slib_tmp < 0
 30 
	!if $[rint($slib_tmp)-$slib_tmp]<>0 or $slib_tmp < 0