/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        T R A N S F O R M A T I O N   G A U S S I E N N E   D E   ' v $xiirv/SERU.21 '  :                                          */
/*                                                                                                                                   */
/*                                                                                                                                   */
/*        Author of '$xtc/Serusier.01$c' :                                                                                           */
/*                                                                                                                                   */
/*                    Jean-Francois COLONNA (LACTAMME, 20250329094252).                                                              */
/*                                                                                                                                   */
/*************************************************************************************************************************************/

#include  <stdio.h>

extern    double    exp();

#define   N                                                                                                                             \
                    12
#define   GAUSS(x)                                                                                                                      \
                    (exp((double)x*x)-exp((double)0))

main()
          {
          int       n;
          double    tab[]={
                           0
                          ,0.1666666666666663
                          ,0.1666666666666667
                          ,0.333333333333333
                          ,0.3333333333333334
                          ,0.4999999999999998
                          ,0.5000000000000001
                          ,0.6666666666666665
                          ,0.6666666666666669
                          ,0.8333333333333333
                          ,0.8333333333333336
                          ,1
                           };
                                        /* Correspond a 'v $xiirv/.SERU.11.1.$U .FiLePoInTs.COORD_Y'...                              */

          for       (n=0 ; n<N ; n++)
                    {
                    double    y=tab[n];
                    double    fy;
                    printf("y=%f",y);
                    fy=GAUSS(y)/GAUSS(1.0);
                    printf(" --> %f",fy);
                    printf("\n");
                    }
          }