Subversion Repositories wimsdev

Rev

Rev 4435 | Rev 13586 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
20 reyssat 1 
!if $wims_read_parm!=slib_header
2 
!goto proc
3 
!endif
4161 bpr 4 
 
20 reyssat 5 
slib_parms=3\
6 
,[data]\
7 
5,n\
8 
0.5,p
9 
 
4330 bpr 10 
slib_author=Sophie, Lemaire; Bernadette, Perrin-Riou
4161 bpr 11 
 
20 reyssat 12 
slib_example=[3,5,6],10,0.6
3265 bpr 13 
slib_require=octave
20 reyssat 14 
!exit
15 
 
16 
:proc
17 
 
18 
!distribute  item $wims_read_parm into slib_data,slib_n,slib_p
19 
 
20 
!default slib_n= 5
21 
!default slib_p=0.5
22 
 
23 
 
7692 bpr 24 
!if $slib_p>=1 or $slib_p<=0
20 reyssat 25 
	slib_out=0
26 
	!exit
27 
!endif
28 
slib_out=
29 
slib_data=!declosing $slib_data
30 
 
31 
slib_cnt= !itemcnt $slib_data
32 
 
4330 bpr 33 
!!deprecated syntax
34 
!!slib_out=!exec octave binomial_cdf([$slib_data], $slib_n, $slib_p)
4435 bpr 35 
slib_out=!exec octave binocdf([$slib_data], $slib_n, $slib_p)
20 reyssat 36 
slib_out=!words2items $slib_out
37 
slib_out=!trim $slib_out