This commit is contained in:
jbetzend 2014-04-18 14:28:32 +02:00
parent d59e13e64f
commit a2433638df

View File

@ -4,7 +4,16 @@ where
import Map.Types import Map.Types
import Data.Array import Data.Array
gauss2Dgeneral :: Floating q => q -> q -> q -> q -> q -> q -> q -> q -- general 2D-Gaussian
gauss2Dgeneral :: Floating q =>
q -- ^ Amplitude
-> q -- ^ Origin on X-Achsis
-> q -- ^ Origin on Y-Achsis
-> q -- ^ Sigma on X
-> q -- ^ Sigma on Y
-> q -- ^ Coordinate in question on X
-> q -- ^ Coordinate in question on Y
-> q -- ^ elevation on coordinate in question
gauss2Dgeneral amp x0 y0 sX sY x y = amp * exp(-(((x-x0)^2/(2 * sX^2))+((y-y0)^2/(2 * sY^2)))) gauss2Dgeneral amp x0 y0 sX sY x y = amp * exp(-(((x-x0)^2/(2 * sX^2))+((y-y0)^2/(2 * sY^2))))
gauss2D :: Floating q => q -> q -> q gauss2D :: Floating q => q -> q -> q