#######################################################################################################################################
# #
# D I F F U S I O N B I D I M E N S I O N N E L L E D Y N A M I Q U E #
# D O N T L A S O U R C E E S T T E L L E Q U E M E R I N I T A L E E S T C O N N E X E : #
# #
# #
# Author of '$xiirk/.DIFF.11.2.$U' : #
# #
# Jean-Francois COLONNA (LACTAMME, 20070214112356). #
# #
#######################################################################################################################################
$Z SETParam _____Diffuser $EXIST
$Z # Introduit le 20070217085645... #
$Z SETParam _____EpaisSource 254
$Z setParam _____Shuffler `GetParam $xci/diffus_2D.21$X shuffler`
$Z # Introduit le 20070216132631... #
$Z setParam _____NpasX `GetParam $xci/diffus_2D.21$X NpasX`
$Z # Introduit le 20070314090017... #
$Z setParam _____NpasY `GetParam $xci/diffus_2D.21$X NpasY`
$Z # Introduit le 20070314090017... #
$Z setParam _____Frequence `GetParam $xci/diffus_2D.21$X frequence`
$Z # Introduit le 20201116141531... #
$Z setParam _____Temperature 1
$Z setParam _____Iterations 1000
$Z SETParam _____Premiere 1
$Z SETParam _____Derniere 16
$Z setParam _____X___Mer $Xmin
$Z # Correspond, par defaut, a une source lineaire horizontale occupant toute la largeur du bas #
$Z # de l'image (introduit le 20070216164934)... #
$Z setParam _____Y___Mer $Ymax
$Z # Correspond, par defaut, a une source lineaire horizontale occupant toute la largeur du bas #
$Z # de l'image (introduit le 20070216164934)... #
$Z setParam _____X_Terre $Xmin
$Z # Correspond, par defaut, a une source lineaire horizontale occupant toute la largeur du bas #
$Z # de l'image (introduit le 20070216164934)... #
$Z setParam _____Y_Terre $Ymin
$Z # Correspond, par defaut, a une source lineaire horizontale occupant toute la largeur du bas #
$Z # de l'image (introduit le 20070216164934)... #
$Z setParam _____FoRmAt "Pal"
$Z # Correspond au format des images a generer (introduit le 20070320143756)... #
$Z set FoRmAtR="formatR_""$_____FoRmAt"
$Z set FoRmAtR=`eval echo "$K_DOLLAR$FoRmAtR"`
$Z # Introduit le 20070320143756 afin de parametrer le format des images... #
#20250211120139____:$Z setenv LONGUEUR_NOMS 60 #
$Z set DiFfUsIoN=$xTV/DIFF.d
$Z SET MaRqUaGe=$xTV/DIFF.m
$Z # Nom des sequences generees par la simulation (Diffusion et Marquage des particules). #
#20070320143756____:$Z Pal #
$Z eval $_____FoRmAt
$Z if ($_____Diffuser == $EXIST) then
$Z # Possibilite introduite le 20070217085645... #
$Z $xci/seuil$X \
$Z A=$xTV/SOURCE \
$Z seuil=$_____EpaisSource \
$Z R=$xTV/SOURCE \
$Z $formatI
$Z $xci/and$X \
$Z A1=$xTV/MARQUEURS \
$Z A2=$xTV/SOURCE \
$Z R=$xTV/MARQUEURS \
$Z $formatI
$Z # Generation d'une source lineaire en bas de l'espace... #
$Z $xci/diffus_2D.21$X \
$Z A=$xTV/SOURCE \
$Z S=$xTV/SOURCE \
$Z marquer_particules=VRAI \
$Z AM=$xTV/MARQUEURS \
$Z SM=$xTV/MARQUEURS \
$Z shuffler=$_____Shuffler \
$Z NpasX=$_____NpasX \
$Z NpasY=$_____NpasY \
$Z periodiser_X=VRAI \
$Z periodiser_Y=FAUX \
$Z iterations=$_____Iterations \
$Z frequence=$_____Frequence \
$Z temperature=$_____Temperature \
$Z premiere=$_____Premiere \
$Z derniere=$_____Derniere \
$Z R=$DiFfUsIoN. \
$Z RM=$MaRqUaGe. \
$Z $formatI
$Z # Generation d'une source lineaire en bas de l'espace... #
$Z # #
$Z # Le Marquage a ete introduit le 20070309093144... #
$Z # #
$Z # La possibilite de pas du reseau differents de {1,1} a ete introduite le 20070314090017... #
$Z else
$Z endif
$X echo "neutre"
$X # commande destinee uniquement a mettre a jour l'environnement 'env'... #
$Z if ($_____EpaisSource < 254) then
$Z # Possibilite introduite le 20070314093100... #
$c #include <stdio.h>
$c
$c #define N0 _____Premiere
$c #define N _____Derniere
$c
$c int main()
$c {
$c int n;
$c
$c for (n=N0 ; n<=N ; n++)
$c {
$c printf(" $xci/or_02$X
$c A1=$DiFfUsIoN.%04d
$c A2=$xTV/SOURCE
$c R=$DiFfUsIoN.%04d
$c $formatI\n"
$c ,n,n
$c );
$c /* Reintroduction de la Source dans chaque image afin d'eviter des problemes d'extraction */
$c /* de contours par la suite (introduit le 20070314093100...). */
$c }
$c /* On notera le 20201119120559 que si l'on souhaite introduire la remanence du passage */
$c /* des particules, il suffit d'ajouter ici les commandes suivantes : */
$c /* */
$c /* for (n=N0 ; n<=N ; n++) */
$c /* { */
$c /* */
$c /* printf(" $xci/accumule.01$X */
$c /* A=$DiFfUsIoN. */
$c /* premiere=%d */
$c /* derniere=%d */
$c /* maximum=VRAI */
$c /* R=$DiFfUsIoN.%04d */
$c /* $formatI\n" */
$c /* ,N0,n,n */
$c /* ); */
$c /* } */
$c /* */
$c /* Mais il n'est pas evident que cela soit tres utile, d'autant plus que cela creera des */
$c /* difficultes au niveau de l'identification des differents sous-ensembles "geographiques". */
$c }
$Z else
$Z endif