#######################################################################################################################################
#                                                                                                                                     #
#         T R A N S F O R M A T I O N   D ' U N E   S T R U C T U R E   F R A C T A L E   T R I D I M E N S I O N N E L L E  :        #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirf/.FRA3.Z2.2.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, 20120318171443).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z        setParam            _____SeuilInferieur           `calcul $GRIS_4-5`

$Z        setParam            _____SeuilSuperieur           `calcul $GRIS_4+5`

$c                  #include  <stdio.h>
$c
$c                  extern    double    sin();
$c
$c                  #define   N0        cPremiere
$c                  #define   N         cDerniere
$c
$c                  #define   DTHETA    0.1
$c                  #define   THETA0    (0+DTHETA)
$c                  #define   THETAN    (3.14159265358979312-DTHETA)
$c                  #define   FACTEUR   64
$c                  #define   TRANS     4
$c
$c                  int       main()
$c                            {
$c                            int       n;
$c
$c                            for       (n=N0 ; n<=N ; n++)
$c                                      {
$c                                      double    theta=((THETAN*(n-N0))+(THETA0*(N-n)))/(N-N0);
$c
$c                                      printf("$xci/gauss$X
$c                                                     standard=FAUX
$c                                                     c=%f
$c                                                                                        $formatI                                |
$c                                              $xci/normalise.01$X
$c                                                                                        $formatI                                |
$c                                              $xci/multi_02.01$X
$c                                                     A2=$_____ImageT3.%04d
$c                                                     standard=FAUX
$c                                                                                        $formatI                                |
$c                                              $xci/acces$X
$c                                                     standard=FAUX
$c                                                     zero=FAUX
$c                                                     R=$_____ImageT2.%04d
$c                                                                                        $formatI\n"
$c                                            ,TRANS+FACTEUR*(1-sin(theta))
$c                                            ,n
$c                                            ,n
$c                                             );
$c                                      }
$c                            }