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 * |
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 |