Subversion Repositories wimsdev

Rev

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

Rev 4161 Rev 4328
Line 3... Line 3...
3 
!endif
 3 
!endif
4 
 
 4 
 
5 
slib_parms=2\
 5 
slib_parms=2\
6 
  1,m\
 6 
  1,m\
7 
  1,lambda
 7 
  1,lambda
8 
slib_author=S. Lemaire and Bernadette Perrin-Riou
 8 
slib_author=Sophie Lemaire; Bernadette Perrin-Riou
9 
 
 9 
 
10 
slib_comment= for any nonnegative integer,  P(X=i)=exp(-lambda)*(lambda^i)/i!
 10 
slib_comment= for any nonnegative integer,  P(X=i)=exp(-lambda)*(lambda^i)/i!
11 
 
 11 
 
12 
slib_example= 5,2.5
 12 
slib_example= 5,2.5
13 
slib_require=octave
 13 
slib_require=octave
Line 42... Line 42...
42 
!!slib_out=!append item $slib_j to $slib_out
 42 
!!slib_out=!append item $slib_j to $slib_out
43 
!!!next slib_i
 43 
!!!next slib_i
44 
 
 44 
 
45 
 
 45 
 
46 
slib_data=!declosing $slib_data
 46 
slib_data=!declosing $slib_data
47 
slib_cnt=!itemcnt slib_data
 47 
slib_cnt=!itemcnt $slib_data
48 
!if $slib_cnt=1
 48 
!if $slib_cnt=1
49 
	slib_data=1,$slib_data
 49 
	slib_data=1,$slib_data
50 
!endif
50 
!endif
51 
slib_out=!exec octave poisson_rnd($slib_lambda,$slib_data)
 51 
!!slib_out=!exec octave poisson_rnd($slib_lambda,$slib_data)
- 
 
 52 
slib_out=!exec octave poisscdf($slib_lambda,$slib_data)
52 
 
 53 
 
- 
 
 54 
slib_out=!trim $slib_out
- 
 
 55 
slib_out=!replace internal $\
- 
 
 56 
$ by ; in $slib_out
53 
slib_out=!words2items $slib_out
 57 
slib_out=!words2items $slib_out
54 
 
 - 
 
55 
 
 - 
 
56 
slib_out =!trim $slib_out
 - 
 
57 
 
 58