Subversion Repositories wimsdev

Rev

Rev 4482 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 4482 Rev 13586
Line 1... Line 1...
1
!if $wims_read_parm!=slib_header
1
!if $wims_read_parm!=slib_header
2
!goto proc
2
  !goto proc
3
!endif
3
!endif
4
 
4
 
5
slib_parms=1\
5
slib_parms=1\
6
,m
6
,m
7
 
7
 
Line 18... Line 18...
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
 
25
 
26
slib_out=!trim $slib_out
26
slib_out=!trim $slib_out
27
slib_out=!replace internal $\
27
slib_out=!replace internal $\
28
$ by ; in $slib_out
28
$ by ; in $slib_out