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 2... Line 2...
2 
!goto proc
 2 
!goto proc
3 
!endif
 3 
!endif
- 
 
 4 
 
- 
 
 5 
slib_author=Bernadette PERRIN-RIOU
4 
 
 6 
 
5 
slib_parms=4\
 7 
slib_parms=4\
6 
,m\
 8 
,m\
7 
,N\
 9 
,N\
8 
,K\
 10 
,K\
9 
,n
 11 
,n
10 
 
 12 
 
11 
slib_author=Bernadette PERRIN-RIOU
 - 
 
12 
 
 - 
 
13 
slib_example= 20,16,4,6
 13 
slib_example= 20,16,4,6\
- 
 
 14 
[2,3],16,4,6
14 
slib_require=octave
 15 
slib_require=octave
15 
!exit
 16 
!exit
16 
 
 17 
 
17 
:proc
 18 
:proc
18 
slib_out=
 19 
slib_out=
19 
 
 20 
 
20 
!distribute  item $wims_read_parm into slib_data,slib_a,slib_b,slib_c
 21 
!distribute item $wims_read_parm into slib_data,slib_N,slib_K,slib_n
21 
slib_data=!declosing $slib_data
 22 
slib_data=!declosing $slib_data
- 
 
 23 
slib_cnt=!itemcnt $slib_data
- 
 
 24 
!if $slib_cnt=1
- 
 
 25 
	slib_data=1,$slib_data
22 
 
 26 
!endif
23 
slib_out=!exec octave hypergeometric_rnd($slib_data,$slib_b,$slib_a,$slib_c)
 27 
slib_out=!exec octave hypergeometric_rnd($slib_K,$slib_N,$slib_n,[$slib_data])
24 
slib_out=!words2items $slib_out
 28 
!!slib_out=!exec octave hygernd($slib_N,$slib_K,$slib_n,$slib_data)
25 
 
 29 
 
26 
slib_out=!trim $slib_out
 30 
slib_out=!trim $slib_out
- 
 
 31 
slib_out=!replace internal $\
- 
 
 32 
$ by ; in $slib_out
- 
 
 33 
slib_out=!words2items $slib_out