Subversion Repositories wimsdev

Rev

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

Rev 7692 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 
1,p
 7 
1,p
Line 14... Line 14...
14 
:proc
 14 
:proc
15 
 
 15 
 
16 
!distribute item $wims_read_parm into slib_data,slib_p
 16 
!distribute item $wims_read_parm into slib_data,slib_p
17 
 
 17 
 
18 
!if  $slib_p<=0
 18 
!if  $slib_p<=0
19 
slib_out=0
 19 
  slib_out=0
20 
!exit
 20 
  !exit
21 
!endif
 21 
!endif
22 
 
 22 
 
23 
slib_data=!declosing $slib_data
 23 
slib_data=!declosing $slib_data
24 
slib_out=
 24 
slib_out=
25 
!for slib_x in $slib_data
 25 
!for slib_x in $slib_data
26 
 !if $slib_x<0
 26 
  !if $slib_x<0
27 
   slib_out=!append item 0 to $slib_out
 27 
    slib_out=!append item 0 to $slib_out
28 
 !else
 28 
  !else
29 
   slib_out=!append item  $[1-exp(-$slib_p*$slib_x)] to $slib_out
 29 
    slib_out=!append item  $[1-exp(-$slib_p*$slib_x)] to $slib_out
30 
 !endif
 30 
  !endif
31 
!next slib_x
 31 
!next slib_x
32 
 
 32 
 
33 
slib_out=!trim $slib_out
 33 
slib_out=!trim $slib_out