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