Subversion Repositories wimsdev

Rev

Rev 4482 | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
20 reyssat 1
!if $wims_read_parm!=slib_header
13586 bpr 2
  !goto proc
20 reyssat 3
!endif
4161 bpr 4
 
4330 bpr 5
slib_author=Sophie, Lemaire; Bernadette, Perrin-Riou
4328 bpr 6
 
20 reyssat 7
slib_parms=4\
8
,m\
9
,N\
10
,K\
11
,n
12
 
4482 bpr 13
slib_example= 5,16,4,6\
4328 bpr 14
[2,3],16,4,6
3265 bpr 15
slib_require=octave
20 reyssat 16
!exit
17
 
18
:proc
19
slib_out=
20
 
4328 bpr 21
!distribute item $wims_read_parm into slib_data,slib_N,slib_K,slib_n
20 reyssat 22
slib_data=!declosing $slib_data
4328 bpr 23
slib_cnt=!itemcnt $slib_data
24
!if $slib_cnt=1
25
	slib_data=1,$slib_data
26
!endif
4330 bpr 27
!!deprecated syntax
28
!!slib_out=!exec octave hypergeometric_rnd($slib_K,$slib_N,$slib_n,[$slib_data])
29
slib_out=!exec octave hygernd($slib_N,$slib_K,$slib_n,$slib_data)
20 reyssat 30
 
4328 bpr 31
slib_out=!trim $slib_out
32
slib_out=!replace internal $\
33
$ by ; in $slib_out
20 reyssat 34
slib_out=!words2items $slib_out