Subversion Repositories wimsdev

!if $wims_read_parm!=slib_header
!goto proc
!endif

slib_parms=3\
,[data]\
,lambda\
,sigma

slib_author=Bernadette PERRIN-RIOU

slib_example=[2,6.4],5,0.5
!exit

:proc

!distribute  item $wims_read_parm into slib_data,slib_l,slib_s


slib_data=!declosing $slib_data
slib_cnt= !itemcnt $slib_data
slib_cst= $[(pi*$slib_s)^(-1)]
slib_out=!values 0.5 + atan ((x - $slib_l)/$slib_s) / pi  for x in $slib_data

slib_out=!trim $slib_out