#######################################################################################################################################
#                                                                                                                                     #
#         V I S U A L I S A T I O N   D E   S O M M E S   D E   C O S I N U S   B I D I M E N S I O N N E L S  :                      #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirv/.SCOB.11.1.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, 20150416102043).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z        setParam            _____Premier                  2

$Z        SETParam            _____Dernier                  13

$Z        setParam            _____DernierVisu              $_____Dernier

$Z        SETParam            _____NombresPremiers          $NEXIST

$Z        setParam            _____NPeriodes                50

$Z        setParam            _____FSomme                   somme_02

$Z        setParam            _____Sinferieur               -1000

$Z        setParam            _____Ssuperieur               +1000

$Z        setParam            _____Exposant                 1

$Z        setParam            _____Translation              `calcul 1/($_____DernierVisu-$_____Premier+1+1)`

$Z        setParam            _____Echelle                  `calcul 0.95*$_____Translation`

$Z        setParam            _____Ty                       `GetParam $xci/montagne.01$X Ty`

$Z        set                 ArGs="ne=0 fichier== m=0 M=$_____Dernier formater=VRAI signe=$K_QS$K_VIDE$K_QS"
$Z        set                 NoMbReS_PrEmIeRs=`$xci/valeurs_Goldbach$X p=$_____Premier d=$_____Dernier enp=VRAI cd=FAUX`
$Z        set                 NoMbReS_PrEmIeRs=`echo "$NoMbReS_PrEmIeRs" | $R "$K_BLANC" "$K_NL" | $xrv/passe_ban.01$X $ArGs`

$Z        if                  ($_____NombresPremiers == $NEXIST) then
$Z                            set                 LiStE=`$xci/nombres$X premiere=$_____Premier derniere=$_____Dernier`
$Z                                      # Cas ou on utilise toutes les cosinusoides...                                                #
$Z        else
$Z                            set                 LiStE="$K_VIDE"

$Z                            foreach             NoMbRe ($NoMbReS_PrEmIeRs)
$Z                                                set                 LiStE=($LiStE `$xci/nombres$X p=$NoMbRe d=$NoMbRe`)
$Z                                      # Cas ou on utilise les seules cosinusoides relatives aux nombres premiers...                 #
$Z                            end
$Z        endif

$Z        $xci/init$X                                                                                                                   \
$Z                            v=0                                                                                                       \
$Z                            standard=FAUX                                                                                             \
$Z                            R=$xTV/COSINUS.1                                                                                          \
$Z                                                                              $formatI

$Z        set                 SuPpRiMeR=0
$Z        set                 CoNsErVer=1

$Z        set                 NuMeRo=$_____Premier

$Z        foreach             ImAgE ($LiStE)
$Z                            if                  ($_____NombresPremiers == $NEXIST) then
$Z                                                set                 OmEgA=`calcul 1/$NuMeRo`
$Z                            else
$Z                                                @                   NuMeRoNP = $NuMeRo - $_____Premier + 1
$Z                                                set                 OmEgA=`calcul 1/$NoMbReS_PrEmIeRs[$NuMeRoNP]`
$Z                            endif
$Z                            set                 AnGlE=`calcul $_____NPeriodes*($_____Premier*$dpi*$OmEgA)`

$Z                            set                 Cx=$AnGlE
$Z                            set                 Cy=$AnGlE
$Z                            set                 Cr=0
$Z                            set                 Ct=0
$Z                            set                 PhAsE=0

$Z                            $xci/sinus$X                                                                                              \
$Z                                                carre_X_CHAMP_3D=FAUX                                                                 \
$Z                                                xbg=0 ybg=0 xhd=1 yhd=1                                                               \
$Z                                                sinus=FAUX                                                                            \
$Z                                                cx=$Cx cy=0 cr=$Cr ct=$Ct c=$PhAsE                                                    \
$Z                                                standard=FAUX                                                                         \
$Z                                                translation=0 echelle=1                                                               \
$Z                                                R=$xTV/COSINUS$COORD_X                                                                \
$Z                                                                                                  $formatI
$Z                            $xci/sinus$X                                                                                              \
$Z                                                carre_X_CHAMP_3D=FAUX                                                                 \
$Z                                                xbg=0 ybg=0 xhd=1 yhd=1                                                               \
$Z                                                sinus=FAUX                                                                            \
$Z                                                cx=0 cy=$Cy cr=$Cr ct=$Ct c=$PhAsE                                                    \
$Z                                                standard=FAUX                                                                         \
$Z                                                translation=0 echelle=1                                                               \
$Z                                                R=$xTV/COSINUS$COORD_Y                                                                \
$Z                                                                                                  $formatI

$Z                            $xci/multi_02.01$X                                                                                        \
$Z                                                standard=FAUX                                                                         \
$Z                                                A1=$xTV/COSINUS$COORD_X                                                               \
$Z                                                A2=$xTV/COSINUS$COORD_Y                                                               \
$Z                                                                                                  $formatI                      |     \
$Z                            $xci/passe_bande$X                                                                                        \
$Z                                                standard=FAUX                                                                         \
$Z                                                Fseuil_inferieur=$_____Sinferieur Fseuil_superieur=$_____Ssuperieur                   \
$Z                                                                                                  $formatI                      |     \
$Z                            $xci/Fermat$X                                                                                             \
$Z                                                standard=FAUX                                                                         \
$Z                                                cx=0 cy=0 cn=1 en=$_____Exposant                                                      \
$Z                                                SPUIX=VRAI                                                                            \
$Z                                                R=$xTV/COSINUS.1.$ImAgE                                                               \
$Z                                                                                                  $formatI
$Z                                      # Le calcul du cosinus effectue par '$xci/sinus$X' est le suivant :                           #
$Z                                      #                                                                                             #
$Z                                      #                   sin(Cx.X + Cy.Y + Cr.sqrt(Rho) + Ct.Theta + Phase + pi/2)                 #
$Z                                      #                                                                                             #
$Z                                      # en notant que "translation=0 echelle=1" garantit que le cosinus est dans [-1,+1]. Enfin     #
$Z                                      # tout ceci a ete l'objets des remarques 'v $xiii/mono_image$FON 20150403184751'...           #

$Z                            $xci/$_____FSomme$X                                                                                       \
$Z                                                A1=$xTV/COSINUS.1.$ImAgE                                                              \
$Z                                                A2=$xTV/COSINUS.1                                                                     \
$Z                                                standard=FAUX                                                                         \
$Z                                                R=$xTV/COSINUS.1                                                                      \
$Z                                                                                                  $formatI
$Z                                      # Sommation iterative de tous les cosinus calcules.                                           #

$Z                            @                   NuMeRo = $NuMeRo + 1
$Z        end

$Z        $xci/montagne.01$X                                                                                                            \
$Z                            A=$xTV/COSINUS.1                                                                                          \
$Z                            standard=FAUX zero=FAUX                                                                                   \
$Z                            T=$BLANC                                                                                                  \
$Z                            avion=VRAI                                                                                                \
$Z                            R=$_____ImageR$m                                                                                          \
$Z                                                                              $formatI

$Z        $xci/montagne.01$X                                                                                                            \
$Z                            A=$xTV/COSINUS.1                                                                                          \
$Z                            standard=FAUX zero=FAUX                                                                                   \
$Z                            T=$BLANC                                                                                                  \
$Z                            avion=FAUX                                                                                                \
$Z                            Ty=$_____Ty                                                                                               \
$Z                            R=$_____ImageR$M                                                                                          \
$Z                                                                              $formatI