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 
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=[2,4,7],6.1
 11 
slib_example=[2,4,7],6.1
12 
!exit
 12 
!exit
13 
 
 13 
 
14 
:proc
 14 
:proc
Line 20... Line 20...
20 
!exit
 20 
!exit
21 
!endif
 21 
!endif
22 
 
 22 
 
23 
slib_data=!declosing $slib_data
 23 
slib_data=!declosing $slib_data
24 
slib_a=$[exp(-$slib_p)]
 24 
slib_a=$[exp(-$slib_p)]
25 
slib_out=!values  $slib_a * $slib_p^x/factorial(round(x)) for x in $slib_data
 25 
slib_out=!values $slib_a * $slib_p^x/factorial(round(x)) for x in $slib_data
26 
 
 26 
 
27 
slib_out=!trim $slib_out
 27 
slib_out=!trim $slib_out
28 
slib_cnt=!itemcnt $slib_data
 28 
slib_cnt=!itemcnt $slib_data
29 
!for slib_i=1 to $slib_cnt
 29 
!for slib_i=1 to $slib_cnt
30 
	slib_tmp=!item $slib_i of $slib_data
 30 
	slib_tmp=!item $slib_i of $slib_data