Subversion Repositories wimsdev

Rev

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