#######################################################################################################################################
#                                                                                                                                     #
#         T R A N S F O R M A T I O N   C O N F O R M E   (A.O+B)/(C.O+D)  :                                                          #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirs/.PROK.MB.5.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, 20191224144228).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  FilSTmpB            FFrAcTaL

$Z        SETParam            _____OJ                       -100.0

$Z        SETParam            _____EJ                       0

$Z        SETParam            _____Facteur                  100000

$Z        SETParam            _____Seuil                    `GetParam $xci/seuil$X seuil`

$Z        setenvParam         _____Param_o_homogra          "$K_VIDE"

$c                  #include  <stdio.h>
$c
$c                  #define   N0        cPremiere
$c                  #define   N         cDerniere
$c
$c                  #define   OJ        _____OJ
$c                  #define   EJ        _____EJ
$c
$c                  int       main()
$c                            {
$c                            int       n;
$c
$c                            for       (n=N0 ; n<=N ; n++)
$c                                      {
$c                                      double    J=((EJ*(n-N0))+(OJ*(N-n)))/(N-N0);
$c
$c                                      printf("echo      %c$xci/tapisserie$X
$c                                                                    A=$_____ImageT2.%04d
$c                                                                                                                      $formatI  |
$c                                                          $xci/o_homogra.81$X
$c                                                                    facteur=%f
$c                                                                    J=%f
$c                                                                    $_____Param_o_homogra
$c                                                                                                                      $formatI  |
$c                                                          $xci/seuil$X
$c                                                                    seuil=%d
$c                                                                    R=$_____ImageT2.%04d
$c                                                                                                                      $formatI%c
$c                                                                                                  >> $FFrAcTaL\n"
$c                                            ,'\''
$c                                            ,n
$c                                            ,(double)_____Facteur
$c                                            ,J
$c                                            ,_____Seuil
$c                                            ,n
$c                                            ,'\''
$c                                             );
$c                                      }
$c                            }

$Z                  execPar_V           $FFrAcTaL

$Z                  FilSTmpE            FFrAcTaL