Subversion Repositories wimsdev

!if $wims_read_parm!=slib_header

  !goto proc

!endif

slib_parms=1\

,[data]

slib_author=Sophie, Lemaire; Bernadette, Perrin-Riou

slib_example=[0.2,0.4,0.7]

!exit

:proc

slib_out=

!distribute item $wims_read_parm into slib_data

slib_data=!declosing $slib_data

slib_out=$empty

!for slib_x in $slib_data

	!if $slib_x<0.5 and $slib_x>0

		slib_out=!append  item $[log (2 * $slib_x)] to $slib_out

	!endif

	!if $slib_x>=0.5 and $slib_x<1

		slib_out=!append  item $[log (2 * (1-$slib_x))] to $slib_out

	!endif

	!if $slib_x<0 or $slib_x>1

		slib_out=!append  item NaN  to $slib_out

	!endif

!next slib_x

slib_out=!trim $slib_out