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