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=3\
5
slib_parms=3\
6
,[data]\
6
,[data]\
7
,a\
7
,a\
Line 21... Line 21...
21
slib_data=!declosing $slib_data
21
slib_data=!declosing $slib_data
22
 
22
 
23
 
23
 
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 $[$slib_a*$slib_b*exp(-$slib_b*($slib_x)^($slib_a))*$slib_x^($slib_a-1)] to $slib_out
29
    slib_out=!append item $[$slib_a*$slib_b*exp(-$slib_b*($slib_x)^($slib_a))*$slib_x^($slib_a-1)] 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
34
slib_data=$empty
34
slib_data=$empty