Subversion Repositories wimsdev

Rev

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

Rev 4330 Rev 7692
Line 23... Line 23...
23 
!endif
 23 
!endif
24 
 
 24 
 
25 
slib_data=!declosing $slib_data
 25 
slib_data=!declosing $slib_data
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  $[$slib_p *exp(-$slib_p*$slib_x)] to $slib_out
 31 
   slib_out=!append item  $[$slib_p *exp(-$slib_p*$slib_x)] to $slib_out
32 
 !endif
 32 
 !endif
33 
!next slib_x
 33 
!next slib_x