Subversion Repositories wimsdev

Rev

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

Rev 4330 Rev 4501
Line 19... Line 19...
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_p=$[$slib_p]
24 
slib_a=$[exp(-$slib_p)]
 25 
slib_a=$[exp(-$slib_p)]
25 
slib_out=!values $slib_a * $slib_p^x/factorial(round(x)) for x in $slib_data
 26 
slib_out=!values $slib_a * $slib_p^(x)/factorial(round(x)) for x in $slib_data
26 
 
 27 
 
27 
slib_out=!trim $slib_out
 28 
slib_out=!trim $slib_out
28 
slib_cnt=!itemcnt $slib_data
 29 
slib_cnt=!itemcnt $slib_data
29 
!for slib_i=1 to $slib_cnt
 30 
!for slib_i=1 to $slib_cnt
30 
	slib_tmp=!item $slib_i of $slib_data
 31 
	slib_tmp=!item $slib_i of $slib_data