Subversion Repositories wimsdev

Rev

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

Rev 4501 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=2\
5
slib_parms=2\
6
,[data]\
6
,[data]\
7
0.5,p
7
0.5,p
Line 23... Line 23...
23
slib_data=!declosing $slib_data
23
slib_data=!declosing $slib_data
24
slib_p=$[$slib_p]
24
slib_p=$[$slib_p]
25
slib_p1=$[1-$slib_p]
25
slib_p1=$[1-$slib_p]
26
slib_out=
26
slib_out=
27
!for slib_x  in $slib_data
27
!for slib_x  in $slib_data
28
 !if $slib_x<0
28
  !if $slib_x<0
29
  slib_out=!append item 0 to $slib_out
29
    slib_out=!append item 0 to $slib_out
30
 !else
30
  !else
31
slib_out=!append item  $[1-$slib_p1^($[1+floor($slib_x)])] to $slib_out
31
    slib_out=!append item  $[1-$slib_p1^($[1+floor($slib_x)])] to $slib_out
32
 !endif
32
 !endif
33
!next slib_x
33
!next slib_x
34
 
34
 
35
slib_out=!trim $slib_out
35
slib_out=!trim $slib_out