define(CreationDate,Mardi 05 Decembre 2023 -20231205095859-) AVirtualMachineForExploringSpaceTimeAndBeyond : .

#######################################################################################################################################
#                                                                                                                                     #
#         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.62.0.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois COLONNA (LACTAMME, 20231205100013).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  set                 P_=0.2
$Z                                      # Definition du "Pave" elementaire...                                                         #

$Z                  set                 A_=0.0
$Z                  set                 B_=`calcul $A_+$P_`
$Z                  set                 C_=`calcul $B_+$P_`
$Z                  set                 D_=`calcul $C_+$P_`
$Z                  set                 E_=`calcul $D_+$P_`

$Z                  set                 Z_=0
$Z                                      # Il faut que 'Z' soit egal a 'Zmin' a cause de 'v $xrv/store_album$K Astore_point_valide',   #
$Z                                      # cette procedure elle-meme referencant 'v $xiiD/definit.1$DEF TEST_DANS_L_ALBUM' qui teste   #
$Z                                      # la coordonnee 'Z' par rapport a [Zmin,Zmax]...                                              #

$Z                  set                 _____ListX=($K_VIDE)
$Z                  set                 _____ListY=($K_VIDE)
$Z                  set                 _____ListZ=($K_VIDE)



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