Subversion Repositories wimsdev

Rev

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

Rev 4330 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_author=Sophie, Lemaire; Bernadette, Perrin-Riou
 5 
slib_author=Sophie, Lemaire; Bernadette, Perrin-Riou
6 
slib_parms=3\
 6 
slib_parms=3\
7 
,[data]\
 7 
,[data]\
Line 19... Line 19...
19 
!default slib_var=1
 19 
!default slib_var=1
20 
slib_data=!declosing $slib_data
 20 
slib_data=!declosing $slib_data
21 
 
 21 
 
22 
slib_out=
 22 
slib_out=
23 
!for slib_x in $slib_data
 23 
!for slib_x in $slib_data
24 
 !if $slib_x <= 0
 24 
  !if $slib_x <= 0
25 
    slib_out =!append item 0 to $slib_out
 25 
    slib_out =!append item 0 to $slib_out
26 
  !else
 26 
  !else
27 
    slib_out = !append item  $[(1+erf((log($slib_x)-$slib_mean)/(sqrt(2)*$slib_var)))*0.5] to $slib_out
 27 
    slib_out = !append item  $[(1+erf((log($slib_x)-$slib_mean)/(sqrt(2)*$slib_var)))*0.5] to $slib_out
28 
  !endif
 28 
  !endif
29 
!next slib_x
 29 
!next slib_x