#######################################################################################################################################
#                                                                                                                                     #
#         G E N E R A T I O N   D ' U N   F R A C T A L   " C A R R E "   ( V E R S I O N   2 )  :                                    #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirf/.FRC2.12.1.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois COLONNA (LACTAMME, 20231105113930).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  set                 _____ListX=($_____ListX                 +$B_           )
$Z                  set                 _____ListY=($_____ListY                 +$D_           )
$Z                  set                 _____ListZ=($_____ListZ                 +$Z_           )
$Z                  set                 _____LNiveaux=($_____LNiveaux           1              )

$Z                  set                 _____ListX=($_____ListX            +$A_ +$B_           )
$Z                  set                 _____ListY=($_____ListY            +$C_ +$C_           )
$Z                  set                 _____ListZ=($_____ListZ            +$Z_ +$Z_           )
$Z                  set                 _____LNiveaux=($_____LNiveaux      3    2              )

$Z                  set                 _____ListX=($_____ListX            +$A_      +$C_ +$D_ )
$Z                  set                 _____ListY=($_____ListY            +$B_      +$B_ +$B_ )
$Z                  set                 _____ListZ=($_____ListZ            +$Z_      +$Z_ +$Z_ )
$Z                  set                 _____LNiveaux=($_____LNiveaux      4         8    9    )

$Z                  set                 _____ListX=($_____ListX            +$A_ +$B_ +$C_      )
$Z                  set                 _____ListY=($_____ListY            +$A_ +$A_ +$A_      )
$Z                  set                 _____ListZ=($_____ListZ            -$Z_ -$Z_ -$Z_      )
$Z                  set                 _____LNiveaux=($_____LNiveaux      5    6    7         )

$Z                  set                 NoMbReX=$#_____ListX
$Z                  set                 NoMbReY=$#_____ListY
$Z                  set                 NoMbReZ=$#_____ListZ
$Z                  set                 NoMbRe=`$xcg/MAX3.01$X x=$NoMbReX y=$NoMbReY z=$NoMbReZ`

#20231231123548____:$Z                  set                 ArGs="lineaire=VRAI entiers=VRAI vD=$GRIS_1 vA=$GRIS_8"                   #
#20231231123548____:$Z                  set                 _____LNiveaux=`$xci/valeurs_inte$X p=1 d=$NoMbRe $ArGs`                   #

$m4                 _____include(_____xiirf/.FRC2.41.3._____U)



Copyright © Jean-François COLONNA, 2023-2024.
Copyright © CMAP (Centre de Mathématiques APpliquées) UMR CNRS 7641 / École polytechnique, Institut Polytechnique de Paris, 2023-2024.