Subversion Repositories wimsdev

Rev

Rev 4501 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 4501 Rev 7692
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