#
# NEED_PARMS startsigma
#
# HELP: SYNOPSIS:
# HELP:     angiotux/user/glaetten startsigma
# HELP:
# HELP: DESCRIPTION:
# HELP:     Do a nonlinear gaussian smoothing.
#
DECLARE double $sigma
CECHO ${$sigma=(double)${$argv[1]}}
{ IF2 ${$sigma<=0.001}
	CECHO ${$sigma=100.0}
} IF2 0 0
NLGS 0 0.7 50000
NLGS 1 0.7 50000
NLGS 2 0.7 50000
NLGS 0 4 ${$sigma}
NLGS 1 4 ${$sigma*0.79}
NLGS 2 4 ${$sigma*0.63}
NLGS 0 6 ${$sigma*0.5}
NLGS 1 6 ${$sigma*0.4}
NLGS 2 6 ${$sigma*0.32}
