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 15... Line 15...
15 
:proc
 15 
:proc
16 
slib_out=
 16 
slib_out=
17 
 
 17 
 
18 
!distribute  item $wims_read_parm into slib_data
 18 
!distribute  item $wims_read_parm into slib_data
19 
slib_data=!declosing $slib_data
 19 
slib_data=!declosing $slib_data
20 
slib_cnt=!itemcnt slib_data
 20 
slib_cnt=!itemcnt $slib_data
21 
!if $slib_cnt=1
 21 
!if $slib_cnt=1
22 
	slib_data=1,$slib_data
 22 
	slib_data=1,$slib_data
23 
!endif
23 
!endif
24 
slib_out=!exec octave logistic_rnd($slib_data)
 24 
slib_out=!exec octave logistic_rnd($slib_data)
25 
slib_out=!words2items $slib_out
 - 
 
- 
 
 25 
 
26 
slib_out=!trim $slib_out
 26 
slib_out=!trim $slib_out
- 
 
 27 
slib_out=!replace internal $\
- 
 
 28 
$ by ; in $slib_out
- 
 
 29 
slib_out=!words2items $slib_out
- 
 
 30