Subversion Repositories wimsdev

Rev

Rev 4330 | Rev 4986 | 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
,m\
7
,n\
8
,p
9
 
4330 bpr 10
slib_author=Sophie, Lemaire; Bernadette, Perrin-Riou
4161 bpr 11
 
4482 bpr 12
slib_example= 5,4,0.3\
13
[2,3],4,0.3
3265 bpr 14
slib_require=octave
20 reyssat 15
!exit
16
 
17
:proc
18
slib_out=
19
 
20
!distribute  item $wims_read_parm into slib_data,slib_a,slib_b
21
slib_data=!declosing $slib_data
4328 bpr 22
slib_cnt=!itemcnt $slib_data
20 reyssat 23
!if $slib_cnt=1
24
	slib_data=1,$slib_data
25
!endif	
4330 bpr 26
!!deprecated syntax
27
!!slib_out=!exec octave pascal_rnd($slib_a,$slib_b,$slib_data)
28
slib_out=!exec octave nbinrnd($slib_a,$slib_b,$slib_data)
20 reyssat 29
 
4328 bpr 30
slib_out=!trim $slib_out
31
slib_out=!replace internal $\
32
$ by ; in $slib_out
20 reyssat 33
slib_out=!words2items $slib_out