FUNCTION GAUSS(X,Y)
C
C La fonction GAUSS(X,Y) est utilisee dans MAPO#3DGAUSS pour
C visualisation 3d par HI/PLOT
C
C  1) DEUX GAUSSIENNES
 X1=1
 Y1=2
 P1=EXP(-(X-X1)**2-(Y-Y1)**2)
 X2=-3
 Y2=-2
 P2=EXP(-(X-X2)**2-(Y-Y2)**2)
C
 GAUSS=P1+3*P2
C
 END