#!/bin/csh
#######################################################################################################################################
# #
# N O T A : #
# #
# #
# Author of '$xivP/disk.000000004/face.2/$Fnota' : #
# #
# Jean-Francois COLONNA (LACTAMME, AAAAMMJJhhmmss). #
# #
#######################################################################################################################################
#######################################################################################################################################
# #
# F A C E R E S E R V E E A U ' P M C ' #
# F A C E ' xivPdf 04 2 ' : #
# F A C E A S U I V R E S U R L A F A C E ' xivPdf 14 1 ' : #
# #
#######################################################################################################################################
#######################################################################################################################################
# #
# E N R E G I S T R E M E N T S U R L E ' LVS6000P-LVR6000 ' : #
# #
#######################################################################################################################################
#######################################################################################################################################
# #
# U T I L I S A T I O N D U G E N E R A T E U R V I D E O D E L ' O P T I O N ' GenLock ' D E ' LACT21 ' : #
# #
#######################################################################################################################################
sequence 000001_000120
# Premiere sequence d'essai contenant deux fois de suite les memes images... #
sequence 000121_000285
# Deuxieme sequence d'essai. #
#######################################################################################################################################
# #
# E N R E G I S T R E M E N T S U R U N ' LVR4000P ' E N P R E T : #
# #
#######################################################################################################################################
#######################################################################################################################################
# #
# R E M I S E E N S E R V I C E D U ' LVS6000P-LVR6000 ' : #
# #
#######################################################################################################################################
#######################################################################################################################################
# #
# C H A N G E M E N T D E G E N E R A T E U R V I D E O G R A C E A U R E M P L A C E M E N T D E #
# L ' O P T I O N ' GenLock ' D E ' LACT21 ' P A R L A C A R T E ' Galileo ' D E ' LACT12 ' : #
# #
#######################################################################################################################################
sequence 000286_000334
# Sequence generee par : #
# #
# Std #
# #
# source $xis/PMC.01$Z #
# #
# $xci/genere$X premiere=2 derniere=50 pas=1 \ #
# C='PMCgenI \ #
# $xiim/Russ.S/RUSS.1.%04d \ #
# $xiim/Russ.S/RUSS.1.%04d' #
# #
# Std #
# #
# $xci/disk_video_P$Z $xiim/Russ.S/RUSS.1. 2 50 RVB \ #
# 4 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
sequence 000335_000373
# Sequence generee par : #
# #
# Std #
# #
# source $xis/PMC.01$Z #
# #
# $xci/genere$X premiere=2 derniere=40 pas=1 \ #
# C='PMCgenI \ #
# $xiim/Russ.S/RUSS.2.%04d \ #
# $xiim/Russ.S/RUSS.2.%04d' #
# #
# Std #
# #
# $xci/disk_video_P$Z $xiim/Russ.S/RUSS.2. 2 40 RVB \ #
# 4 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
sequence 000374_000422
# Sequence generee par : #
# #
# Std #
# #
# $xci/disk_video_P$Z $xiim/Russ.S/RUSS.1. 2 50 $xiP/cercle.34 \ #
# 4 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
sequence 000423_000461
# Sequence generee par : #
# #
# Std #
# #
# $xci/disk_video_P$Z $xiim/Russ.S/RUSS.2. 2 40 $xiP/cercle.34 \ #
# 4 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
sequence 000462_000510
# Sequence generee par : #
# #
# Std #
# #
# $xci/genere$X premiere=2 derniere=50 pas=1 \ #
# C='$xci/stereogra.01$X \ #
# Z=$xiim/Russ.S/RUSS.1.%04d \ #
# T=$xiio/BAND_RDN.11.51 \ #
# permutations=FAUX \ #
# R=$xiim/Russ.S/RUSS.3.%04d \ #
# $formatI' #
# #
# Std #
# #
# $xci/disk_video_P$Z $xiim/Russ.S/RUSS.3. 2 50 $xiP/fractal.11 \ #
# 4 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
sequence 000511_000549
# Sequence generee par : #
# #
# Std #
# #
# $xci/genere$X premiere=2 derniere=40 pas=1 \ #
# C='$xci/stereogra.01$X \ #
# Z=$xiim/Russ.S/RUSS.2.%04d \ #
# T=$xiio/BAND_RDN.11.51 \ #
# permutations=FAUX \ #
# R=$xiim/Russ.S/RUSS.4.%04d \ #
# $formatI' #
# #
# Std #
# #
# $xci/disk_video_P$Z $xiim/Russ.S/RUSS.4. 2 40 $xiP/fractal.11 \ #
# 4 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
#######################################################################################################################################
# #
# C H A N G E M E N T D U " T I M I N G " D E L A V I D E O P R O D U I T E #
# P A R L A C A R T E ' Galileo ' D E ' LACT12 ' L O R S D U #
# P A S S A G E D E L A R E L E A S E 5.2 A L A R E L E A S E 5.3 D U S Y S T E M E : #
# #
#######################################################################################################################################
#######################################################################################################################################
# #
# C H A N G E M E N T D U " T I M I N G " D E L A V I D E O P R O D U I T E #
# P A R L A C A R T E ' Galileo ' D E ' LACT12 ' A F I N D E C E N T R E R #
# L A V I D E O P A R P A S S A G E D E L A P H A S E H O R I Z O N T A L E D E ' -76 ' A ' -42 ' : #
# #
#######################################################################################################################################
#######################################################################################################################################
# #
# E N R E G I S T R E M E N T S U R U N ' LVR4000P ' E N L O C A T I O N : #
# #
#######################################################################################################################################
#######################################################################################################################################
# #
# M I S E E N S E R V I C E D U ' LVR4000P ' : #
# #
#######################################################################################################################################
sequence 000550_000608
# Sequence generee par : #
# #
# $Z XYmaxNe 208 208 #
# #
# $X $xci/genere$X premiere=1 derniere=59 pas=1 \ #
# $X C='$CA \ #
# $X $xw1/xxxx.Russ.S/TAMB.2.%04d | #
# $X $xcg/extract$X \ #
# $X eliminer=4 conserver=$tailleI | #
# $X $xci/format.01$X \ #
# $X mode=0 \ #
# $X $formatI \ #
# $X R=$xw1/xxxx.Russ.S/TAMB.2.%04d \ #
# $X $formatR_Std' #
# #
# $Z Std #
# #
# $Z source $xis/PMC.01$Z #
# #
# $X $xci/genere$X premiere=1 derniere=59 pas=1 \ #
# $X C='PMCgenI \ #
# $X $xw1/xxxx.Russ.S/TAMB.2.%04d \ #
# $X $xw1/xxxx.Russ.S/TAMB.2.%04d' #
# $X $xci/genere$X premiere=1 derniere=59 pas=1 \ #
# $X C='$xci/acces_RVB.11$Z \ #
# $X $xw1/xxxx.Russ.S/TAMB.2.%04d \ #
# $X $xw1/xxxx.Russ.S/TAMB.2.%04d' #
# #
# Std #
# #
# $xci/disk_video_P$Z $xw1/xxxx.Russ.S/TAMB.2. 1 59 RVB \ #
# 4 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
sequence 000609_000658
# Sequence generee par : #
# #
# $Z XYmaxNe 424 424 #
# #
# $X $xci/genere$X premiere=1 derniere=50 pas=1 \ #
# $X C='$CA \ #
# $X $xw1/xxxx.Russ.S/TAMB.3.%04d | #
# $X $xcg/extract$X \ #
# $X eliminer=4 conserver=$tailleI | #
# $X $xci/format.01$X \ #
# $X mode=0 \ #
# $X $formatI \ #
# $X R=$xw1/xxxx.Russ.S/TAMB.3.%04d \ #
# $X $formatR_Std' #
# #
# $Z Std #
# #
# $Z source $xis/PMC.01$Z #
# #
# $X $xci/genere$X premiere=1 derniere=50 pas=1 \ #
# $X C='PMCgenI \ #
# $X $xw1/xxxx.Russ.S/TAMB.3.%04d \ #
# $X $xw1/xxxx.Russ.S/TAMB.3.%04d' #
# $X $xci/genere$X premiere=1 derniere=50 pas=1 \ #
# $X C='$xci/acces_RVB.11$Z \ #
# $X $xw1/xxxx.Russ.S/TAMB.3.%04d \ #
# $X $xw1/xxxx.Russ.S/TAMB.3.%04d' #
# #
# Std #
# #
# $xci/disk_video_P$Z $xw1/xxxx.Russ.S/TAMB.3. 1 50 RVB \ #
# 4 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
sequence 000659_000717
# Sequence generee par : #
# #
# Std #
# #
# $xci/disk_video_P$Z $xw1/xxxx.Russ.S/TAMB.2. 1 59 $xiP/cercle.35 \ #
# 4 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
sequence 000718_000767
# Sequence generee par : #
# #
# Std #
# #
# $xci/disk_video_P$Z $xw1/xxxx.Russ.S/TAMB.3. 1 50 $xiP/cercle.35 \ #
# 4 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
sequence 000768_001267
sequence 001268_001767
# Sequence generee par : #
# #
# XYmaxNe 425 425 #
# #
# $xu/Russ.S/filminput$c #
# #
# NGEN=3 #
# Cpsimax=1 #
# Nimages=1000 #
# Pas=8 #
# #
# $xci/disk_video_P$Z $xw1/TAMB.1. 1 500 $xiP/cercle.95 \ #
# 4 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# $xci/disk_video_P$Z $xw1/TAMB.1. 501 1000 $xiP/cercle.95 \ #
# 4 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
# ATTENTION, l'enregistrement en deux fois est lie a la "capacite" limitee du 'foreach(...)' #
# qui, dans '$xci/disk_video_P$Z' permet d'enregistrer chaque image... #
sequence 001768_001871
sequence 001872_001975
# Sequence generee par : #
# #
# $Z XYmaxNe 226 226 #
# #
# $X $xci/genere$X premiere=1 derniere=104 pas=1 \ #
# $X C='$CA \ #
# $X $xw1/TAMB.4.%04d | #
# $X $xcg/extract$X \ #
# $X eliminer=4 conserver=$tailleI | #
# $X $xci/format.01$X \ #
# $X mode=0 \ #
# $X $formatI \ #
# $X R=$xw1/TAMB.4.%04d \ #
# $X $formatR_Std' #
# #
# $Z Std #
# #
# $Z source $xis/PMC.01$Z #
# #
# $X $xci/genere$X premiere=1 derniere=104 pas=1 \ #
# $X C='PMCgenI \ #
# $X $xw1/TAMB.4.%04d \ #
# $X $xw1/TAMB.4.%04d' #
# $X $xci/genere$X premiere=1 derniere=104 pas=1 \ #
# $X C='$xci/acces_RVB.11$Z \ #
# $X $xw1/TAMB.4.%04d \ #
# $X $xw1/TAMB.4.%04d' #
# #
# Std #
# #
# $xci/disk_video_P$Z $xw1/TAMB.4. 1 104 $xiP/cercle.35 \ #
# 4 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# $xci/disk_video_P$Z $xw1/TAMB.4. 1 104 RVB \ #
# 4 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
sequence 001976_002144
sequence 002145_002313
# Sequence generee par : #
# #
# $Z XYmaxNe 226 226 #
# #
# $X $xci/genere$X premiere=1 derniere=169 pas=1 \ #
# $X C='$CA \ #
# $X $xw1/TAMB.5.%04d | #
# $X $xcg/extract$X \ #
# $X eliminer=4 conserver=$tailleI | #
# $X $xci/format.01$X \ #
# $X mode=0 \ #
# $X $formatI \ #
# $X R=$xw1/TAMB.5.%04d \ #
# $X $formatR_Std' #
# #
# $Z Std #
# #
# $Z source $xis/PMC.01$Z #
# #
# $X $xci/genere$X premiere=1 derniere=169 pas=1 \ #
# $X C='PMCgenI \ #
# $X $xw1/TAMB.5.%04d \ #
# $X $xw1/TAMB.5.%04d' #
# $X $xci/genere$X premiere=1 derniere=169 pas=1 \ #
# $X C='$xci/acces_RVB.11$Z \ #
# $X $xw1/TAMB.5.%04d \ #
# $X $xw1/TAMB.5.%04d' #
# #
# Std #
# #
# $xci/disk_video_P$Z $xw1/TAMB.5. 1 169 $xiP/cercle.35 \ #
# 4 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# $xci/disk_video_P$Z $xw1/TAMB.5. 1 169 RVB \ #
# 4 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
sequence 002314_002421
# Sequence generee par : #
# #
# XYmaxNe 759 207 #
# #
# $xci/disk_video_P$Z $xT/Frame 000 107 RVB \ #
# 4 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
sequence 002422_002464
# Sequence generee par : #
# #
# XYmaxNe 767 183 #
# #
# $xci/disk_video_P$Z $xT/Frame 108 150 RVB \ #
# 4 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
sequence 002465_002516
# Sequence generee par : #
# #
# XYmaxNe 675 220 #
# #
# $xci/disk_video_P$Z $xT/Frame 151 202 RVB \ #
# 4 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
sequence 002517_002519
# Sequence generee par : #
# #
# XYmaxNe 551 435 #
# #
# $xci/disk_video_P$Z $xw1/xxxx.pmc/Frame 001 003 RVB \ #
# 4 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
sequence 002520_002562
# Sequence generee par : #
# #
# XYmaxNe 767 183 #
# #
# $xci/disk_video_P$Z $xw1/xxxx.pmc/Frame 108 150 RVB \ #
# 4 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
sequence 002563_002564
# Sequence generee par : #
# #
# XYmaxNe 551 435 #
# #
# $xci/disk_video_P$Z $xw1/xxxx.pmc/Frame 199 200 RVB \ #
# 4 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
sequence 002565_002591
# Sequence generee par : #
# #
# XYmaxNe 767 224 #
# #
# $xci/disk_video_P$Z $xw1/xxxx.pmc/Frame 201 227 RVB \ #
# 4 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
sequence 002592_002618
# Sequence generee par : #
# #
# #
# $Z SET Nimages=27 #
# #
# $Z XYmaxNe 767 224 #
# #
# #
# $c #define N0 1 #
# $c #define N Nimages #
# #
# $c int main() #
# $c { #
# $c int n; #
# #
# $c for (n=N0 ; n<=N ; n++) #
# $c { #
# $c printf("$xci/substitue$X #
# $c A=$xw1/xxxx.pmc/Frame%04d$ROUGE #
# $c substitution=L_SUBSTITUTION_02 #
# $c $formatI | #
# $c $xci/montagne.01$X #
# $c A=$xw1/xxxx.pmc/Frame%04d$ROUGE #
# $c avion=VRAI #
# $c sy=100 #
# $c R=$xw1/xxxx.pmc/Frame.m.%04d #
# $c $formatI\n" #
# $c ,n+200,n+200,n #
# $c ); #
# $c } #
# $c } #
# #
# #
# XYmaxNe 767 224 #
# #
# $xci/disk_video_P$Z $xw1/xxxx.pmc/Frame.m. 001 027 $xiP/gris.01 \ #
# 4 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
sequence 002619_002744
# Sequence generee par : #
# #
# #
# $Z SET Cnoir=$NOIR #
# $Z SET Cblanc=$BLANC #
# #
# $Z Std #
# #
# $Z $DELETE $xT/Pale #
# #
# #
# $c #define NOIR Cnoir #
# $c #define BLANC Cblanc #
# #
# $c int main() #
# $c { #
# $c int i,j; #
# $c int red,green,blue; #
# $c int niveau=NOIR; #
# #
# $c for (i=0 ; i<21 ; i++) #
# $c { #
# $c for (j=0 ; j<i ; j++) #
# $c { #
# $c red=(j*3250)/BLANC; #
# $c green=((i-j)*3250)/BLANC; #
# $c blue=((20-i)*3250)/BLANC; #
# $c printf("echo %02x %02x %02x >>! $xT/Pale\n" #
# $c ,red,green,blue #
# $c ); #
# $c niveau++; #
# $c } #
# $c } #
# #
# $c while (niveau<=BLANC) #
# $c { #
# $c printf("echo %02x %02x %02x >>! $xT/Pale\n" #
# $c ,red,green,blue #
# $c ); #
# $c niveau++; #
# $c } #
# $c } #
# #
# #
# $Z $DELETE $xTV/goutte$ROUGE #
# $Z $DELETE $xTV/goutte$VERTE #
# $Z $DELETE $xTV/goutte$BLEUE #
# #
# $Z $CA $xT/Pale \ #
# $Z | $AW ' { print $1 } ' \ #
# $Z | $xcg/anti_dumpX$X \ #
# $Z > $xTV/goutte$ROUGE #
# $Z $CA $xT/Pale \ #
# $Z | $AW ' { print $2 } ' \ #
# $Z | $xcg/anti_dumpX$X \ #
# $Z > $xTV/goutte$VERTE #
# $Z $CA $xT/Pale \ #
# $Z | $AW ' { print $3 } ' \ #
# $Z | $xcg/anti_dumpX$X \ #
# $Z > $xTV/goutte$BLEUE #
# #
# $Z $DELETE $xT/Pale #
# #
# #
# Std #
# #
# $xci/disk_video_P$Z $xw1/xxxx.pmc/goutte. 001 126 $xTV/goutte \ #
# 4 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
sequence 002745_002870
# Sequence generee par : #
# #
# #
# $Z SET Cnoir=$NOIR #
# $Z SET Cblanc=$BLANC #
# #
# $Z Std #
# #
# $Z $DELETE $xT/Pale #
# #
# #
# $c #define NOIR Cnoir #
# $c #define BLANC Cblanc #
# #
# $c int main() #
# $c { #
# $c int i,j; #
# $c int red,green,blue; #
# $c int niveau=NOIR; #
# #
# $c for (i=0 ; i<21 ; i++) #
# $c { #
# $c for (j=0 ; j<i ; j++) #
# $c { #
# $c red=(j*3250)/BLANC; #
# $c green=((i-j)*3250)/BLANC; #
# $c blue=((20-i)*3250)/BLANC; #
# $c printf("echo %02x %02x %02x >>! $xT/Pale\n" #
# $c ,red,green,blue #
# $c ); #
# $c niveau++; #
# $c } #
# $c } #
# #
# $c while (niveau<=BLANC) #
# $c { #
# $c printf("echo %02x %02x %02x >>! $xT/Pale\n" #
# $c ,red,green,blue #
# $c ); #
# $c niveau++; #
# $c } #
# $c } #
# #
# #
# $Z $DELETE $xTV/goutte$ROUGE #
# $Z $DELETE $xTV/goutte$VERTE #
# $Z $DELETE $xTV/goutte$BLEUE #
# #
# $Z $CA $xT/Pale \ #
# $Z | $AW ' { print $1 } ' \ #
# $Z | $xcg/anti_dumpX$X \ #
# $Z > $xTV/goutte$ROUGE #
# $Z $CA $xT/Pale \ #
# $Z | $AW ' { print $2 } ' \ #
# $Z | $xcg/anti_dumpX$X \ #
# $Z > $xTV/goutte$VERTE #
# $Z $CA $xT/Pale \ #
# $Z | $AW ' { print $3 } ' \ #
# $Z | $xcg/anti_dumpX$X \ #
# $Z > $xTV/goutte$BLEUE #
# #
# $Z $DELETE $xT/Pale #
# #
# #
# Std #
# #
# $xci/disk_video_P$Z $xw1/xxxx.pmc/goutte.v. 001 126 $xTV/goutte \ #
# 4 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
sequence 002871_002996
sequence 002997_003122
sequence 003123_003248
sequence 003249_003374
# Sequence generee par : #
# #
# #
# $Z SET Cnoir=$NOIR #
# $Z SET Cblanc=$BLANC #
# #
# $Z $DELETE $xT/Pale #
# #
# #
# $c #define NOIR Cnoir #
# $c #define BLANC Cblanc #
# #
# $c int main() #
# $c { #
# $c int i,j; #
# $c int red,green,blue; #
# $c int niveau=NOIR; #
# #
# $c for (i=0 ; i<21 ; i++) #
# $c { #
# $c for (j=0 ; j<i ; j++) #
# $c { #
# $c red=(j*3250)/BLANC; #
# $c green=((i-j)*3250)/BLANC; #
# $c blue=((20-i)*3250)/BLANC; #
# $c printf("echo %02x %02x %02x >>! $xT/Pale\n" #
# $c ,red,green,blue #
# $c ); #
# $c niveau++; #
# $c } #
# $c } #
# #
# $c while (niveau<=BLANC) #
# $c { #
# $c printf("echo %02x %02x %02x >>! $xT/Pale\n" #
# $c ,red,green,blue #
# $c ); #
# $c niveau++; #
# $c } #
# $c } #
# #
# #
# $Z $DELETE $xTV/goutte$ROUGE #
# $Z $DELETE $xTV/goutte$VERTE #
# $Z $DELETE $xTV/goutte$BLEUE #
# #
# $Z $CA $xT/Pale \ #
# $Z | $AW ' { print $1 } ' \ #
# $Z | $xcg/anti_dumpX$X \ #
# $Z > $xTV/goutte$ROUGE #
# $Z $CA $xT/Pale \ #
# $Z | $AW ' { print $2 } ' \ #
# $Z | $xcg/anti_dumpX$X \ #
# $Z > $xTV/goutte$VERTE #
# $Z $CA $xT/Pale \ #
# $Z | $AW ' { print $3 } ' \ #
# $Z | $xcg/anti_dumpX$X \ #
# $Z > $xTV/goutte$BLEUE #
# #
# $Z $DELETE $xT/Pale #
# #
# #
# $Z SET Nimages=126 #
# #
# $Z Suq #
# #
# #
# $c #define N0 1 #
# $c #define N Nimages #
# #
# $c int main() #
# $c { #
# $c int n; #
# #
# $c for (n=N0 ; n<=N ; n++) #
# $c { #
# $c printf("$xci/vraies_C$X #
# $c A=$xw1/xxxx.pmc/goutte.%04d #
# $c p=$xTV/goutte #
# $c RVB=VRAI #
# $c R=$xw1/xxxx.pmc/goutte.%04d #
# $c $formatI\n" #
# $c ,n,n #
# $c ); #
# $c printf("$xci/format.01$X #
# $c A=$xw1/xxxx.pmc/goutte.%04d$ROUGE #
# $c mode=2 #
# $c $formatI #
# $c R=$xw1/xxxx.pmc/goutte.%04d$ROUGE #
# $c $formatR_Std\n" #
# $c ,n,n #
# $c ); #
# $c printf("$xci/format.01$X #
# $c A=$xw1/xxxx.pmc/goutte.%04d$VERTE #
# $c mode=2 #
# $c $formatI #
# $c R=$xw1/xxxx.pmc/goutte.%04d$VERTE #
# $c $formatR_Std\n" #
# $c ,n,n #
# $c ); #
# $c printf("$xci/format.01$X #
# $c A=$xw1/xxxx.pmc/goutte.%04d$BLEUE #
# $c mode=2 #
# $c $formatI #
# $c R=$xw1/xxxx.pmc/goutte.%04d$BLEUE #
# $c $formatR_Std\n" #
# $c ,n,n #
# $c ); #
# $c printf("$xci/format.01$X #
# $c A=$xw1/xxxx.pmc/goutte.v.%04d #
# $c mode=2 #
# $c $formatI #
# $c R=$xw1/xxxx.pmc/goutte.v.%04d #
# $c $formatR_Std\n" #
# $c ,n,n #
# $c ); #
# $c } #
# $c } #
# #
# #
# $Z SET Nimages=126 #
# #
# $Z Std #
# #
# #
# $c #define N0 1 #
# $c #define N Nimages #
# #
# $c int main() #
# $c { #
# $c int n; #
# #
# $c for (n=N0 ; n<=N ; n++) #
# $c { #
# $c printf("$xci/complement$X #
# $c A=$xw1/xxxx.pmc/goutte.v.%04d #
# $c R=$xw1/xxxx.pmc/goutte.v.%04d #
# $c $formatI\n" #
# $c ,n,n #
# $c ); #
# #
# $c printf("$xci/montagne.01$X #
# $c A=$xw1/xxxx.pmc/goutte.v.%04d #
# $c T=$xw1/xxxx.pmc/goutte.%04d$ROUGE #
# $c avion=VRAI #
# $c R=$xw1/xxxx.pmc/goutte$m.%04d$ROUGE #
# $c $formatI\n" #
# $c ,n,n,n #
# $c ); #
# $c printf("$xci/montagne.01$X #
# $c A=$xw1/xxxx.pmc/goutte.v.%04d #
# $c T=$xw1/xxxx.pmc/goutte.%04d$VERTE #
# $c avion=VRAI #
# $c R=$xw1/xxxx.pmc/goutte$m.%04d$VERTE #
# $c $formatI\n" #
# $c ,n,n,n #
# $c ); #
# $c printf("$xci/montagne.01$X #
# $c A=$xw1/xxxx.pmc/goutte.v.%04d #
# $c T=$xw1/xxxx.pmc/goutte.%04d$BLEUE #
# $c avion=VRAI #
# $c R=$xw1/xxxx.pmc/goutte$m.%04d$BLEUE #
# $c $formatI\n" #
# $c ,n,n,n #
# $c ); #
# #
# $c printf("$xci/montagne.01$X #
# $c A=$xw1/xxxx.pmc/goutte.v.%04d #
# $c T=$xw1/xxxx.pmc/goutte.%04d$ROUGE #
# $c avion=FAUX #
# $c perspective=0.2 #
# $c Ty=0.8 #
# $c R=$xw1/xxxx.pmc/goutte$M.%04d$ROUGE #
# $c $formatI\n" #
# $c ,n,n,n #
# $c ); #
# $c printf("$xci/montagne.01$X #
# $c A=$xw1/xxxx.pmc/goutte.v.%04d #
# $c T=$xw1/xxxx.pmc/goutte.%04d$VERTE #
# $c avion=FAUX #
# $c perspective=0.2 #
# $c Ty=0.8 #
# $c R=$xw1/xxxx.pmc/goutte$M.%04d$VERTE #
# $c $formatI\n" #
# $c ,n,n,n #
# $c ); #
# $c printf("$xci/montagne.01$X #
# $c A=$xw1/xxxx.pmc/goutte.v.%04d #
# $c T=$xw1/xxxx.pmc/goutte.%04d$BLEUE #
# $c avion=FAUX #
# $c perspective=0.2 #
# $c Ty=0.8 #
# $c R=$xw1/xxxx.pmc/goutte$M.%04d$BLEUE #
# $c $formatI\n" #
# $c ,n,n,n #
# $c ); #
# $c } #
# $c } #
# #
# #
# Std #
# #
# $xci/disk_video_P$Z $xw1/xxxx.pmc/goutte. 001 126 RVB \ #
# 4 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# $xci/disk_video_P$Z $xw1/xxxx.pmc/goutte.v. 001 126 $xiP/gris.01 \ #
# 4 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# $xci/disk_video_P$Z $xw1/xxxx.pmc/goutte$m. 001 126 RVB \ #
# 4 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# $xci/disk_video_P$Z $xw1/xxxx.pmc/goutte$M. 001 126 RVB \ #
# 4 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
sequence 003375_004373
sequence 004374_005372
sequence 005373_006371
sequence 006372_007370
# Sequence generee par : #
# #
# #
# $Z S #
# $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS #
# #
# $Z SET Cnoir=$NOIR #
# $Z SET Cblanc=$BLANC #
# #
# $Z $DELETE $xT/Pale #
# #
# #
# $c #define NOIR Cnoir #
# $c #define BLANC Cblanc #
# #
# $c int main() #
# $c { #
# $c int i,j; #
# $c int red,green,blue; #
# $c int niveau=NOIR; #
# #
# $c for (i=0 ; i<21 ; i++) #
# $c { #
# $c for (j=0 ; j<i ; j++) #
# $c { #
# $c red=(j*3250)/BLANC; #
# $c green=((i-j)*3250)/BLANC; #
# $c blue=((20-i)*3250)/BLANC; #
# $c printf("echo %02x %02x %02x >>! $xT/Pale\n" #
# $c ,red,green,blue #
# $c ); #
# $c niveau++; #
# $c } #
# $c } #
# #
# $c while (niveau<=BLANC) #
# $c { #
# $c printf("echo %02x %02x %02x >>! $xT/Pale\n" #
# $c ,red,green,blue #
# $c ); #
# $c niveau++; #
# $c } #
# $c } #
# #
# #
# $Z $DELETE $xTV/goutte$ROUGE #
# $Z $DELETE $xTV/goutte$VERTE #
# $Z $DELETE $xTV/goutte$BLEUE #
# #
# $Z $CA $xT/Pale \ #
# $Z | $AW ' { print $1 } ' \ #
# $Z | $xcg/anti_dumpX$X \ #
# $Z > $xTV/goutte$ROUGE #
# $Z $CA $xT/Pale \ #
# $Z | $AW ' { print $2 } ' \ #
# $Z | $xcg/anti_dumpX$X \ #
# $Z > $xTV/goutte$VERTE #
# $Z $CA $xT/Pale \ #
# $Z | $AW ' { print $3 } ' \ #
# $Z | $xcg/anti_dumpX$X \ #
# $Z > $xTV/goutte$BLEUE #
# #
# $Z $DELETE $xT/Pale #
# #
# #
# $Z SET Nimages=999 #
# #
# $Z Suq #
# #
# #
# $c #define N0 1 #
# $c #define N Nimages #
# #
# $c int main() #
# $c { #
# $c int n; #
# #
# $c for (n=N0 ; n<=N ; n++) #
# $c { #
# $c printf("$xci/vraies_C$X #
# $c A=$xw1/xxxx.pmc/goutte.%04d #
# $c p=$xTV/goutte #
# $c RVB=VRAI #
# $c R=$xiim/xxxx.pmc/goutte.%04d #
# $c $formatI\n" #
# $c ,n,n #
# $c ); #
# $c printf("$xci/format.01$X #
# $c A=$xiim/xxxx.pmc/goutte.%04d$ROUGE #
# $c mode=1 #
# $c $formatI #
# $c R=$xiim/xxxx.pmc/goutte.%04d$ROUGE #
# $c $formatR_Std\n" #
# $c ,n,n #
# $c ); #
# $c printf("$xci/format.01$X #
# $c A=$xiim/xxxx.pmc/goutte.%04d$VERTE #
# $c mode=1 #
# $c $formatI #
# $c R=$xiim/xxxx.pmc/goutte.%04d$VERTE #
# $c $formatR_Std\n" #
# $c ,n,n #
# $c ); #
# $c printf("$xci/format.01$X #
# $c A=$xiim/xxxx.pmc/goutte.%04d$BLEUE #
# $c mode=1 #
# $c $formatI #
# $c R=$xiim/xxxx.pmc/goutte.%04d$BLEUE #
# $c $formatR_Std\n" #
# $c ,n,n #
# $c ); #
# $c printf("$xci/format.01$X #
# $c A=$xw1/xxxx.pmc/goutte.v.%04d #
# $c mode=1 #
# $c $formatI #
# $c R=$xiim/xxxx.pmc/goutte.v.%04d #
# $c $formatR_Std\n" #
# $c ,n,n #
# $c ); #
# $c } #
# $c } #
# #
# #
# $Z SET Nimages=999 #
# #
# $Z Std #
# #
# #
# $c #define N0 1 #
# $c #define N Nimages #
# #
# $c int main() #
# $c { #
# $c int n; #
# #
# $c for (n=N0 ; n<=N ; n++) #
# $c { #
# $c printf("$xci/complement$X #
# $c A=$xiim/xxxx.pmc/goutte.v.%04d #
# $c R=$xiim/xxxx.pmc/goutte.v.%04d #
# $c $formatI\n" #
# $c ,n,n #
# $c ); #
# #
# $c printf("$xci/montagne.01$X #
# $c A=$xiim/xxxx.pmc/goutte.v.%04d #
# $c T=$xiim/xxxx.pmc/goutte.%04d$ROUGE #
# $c avion=VRAI #
# $c R=$xiim/xxxx.pmc/goutte$m.%04d$ROUGE #
# $c $formatI\n" #
# $c ,n,n,n #
# $c ); #
# $c printf("$xci/montagne.01$X #
# $c A=$xiim/xxxx.pmc/goutte.v.%04d #
# $c T=$xiim/xxxx.pmc/goutte.%04d$VERTE #
# $c avion=VRAI #
# $c R=$xiim/xxxx.pmc/goutte$m.%04d$VERTE #
# $c $formatI\n" #
# $c ,n,n,n #
# $c ); #
# $c printf("$xci/montagne.01$X #
# $c A=$xiim/xxxx.pmc/goutte.v.%04d #
# $c T=$xiim/xxxx.pmc/goutte.%04d$BLEUE #
# $c avion=VRAI #
# $c R=$xiim/xxxx.pmc/goutte$m.%04d$BLEUE #
# $c $formatI\n" #
# $c ,n,n,n #
# $c ); #
# #
# $c printf("$xci/montagne.01$X #
# $c A=$xiim/xxxx.pmc/goutte.v.%04d #
# $c T=$xiim/xxxx.pmc/goutte.%04d$ROUGE #
# $c avion=FAUX #
# $c perspective=0.2 #
# $c Ty=0.8 #
# $c R=$xiim/xxxx.pmc/goutte$M.%04d$ROUGE #
# $c $formatI\n" #
# $c ,n,n,n #
# $c ); #
# $c printf("$xci/montagne.01$X #
# $c A=$xiim/xxxx.pmc/goutte.v.%04d #
# $c T=$xiim/xxxx.pmc/goutte.%04d$VERTE #
# $c avion=FAUX #
# $c perspective=0.2 #
# $c Ty=0.8 #
# $c R=$xiim/xxxx.pmc/goutte$M.%04d$VERTE #
# $c $formatI\n" #
# $c ,n,n,n #
# $c ); #
# $c printf("$xci/montagne.01$X #
# $c A=$xiim/xxxx.pmc/goutte.v.%04d #
# $c T=$xiim/xxxx.pmc/goutte.%04d$BLEUE #
# $c avion=FAUX #
# $c perspective=0.2 #
# $c Ty=0.8 #
# $c R=$xiim/xxxx.pmc/goutte$M.%04d$BLEUE #
# $c $formatI\n" #
# $c ,n,n,n #
# $c ); #
# $c } #
# $c } #
# #
# #
# Std #
# #
# #
# $Z SET Nimages=999 #
# #
# $Z relatif $xiim/xxxx.pmc #
# #
# $X $xci/genere$X premiere=001 derniere=$Nimages \ #
# $X C='$RCP \ #
# $X $R_LACT27/$nomR/goutte.%04d$ROUGE \ #
# $X $xw1/xxxx.pmc/goutte.%04d$ROUGE ; \ #
# $X $RCP \ #
# $X $R_LACT27/$nomR/goutte.%04d$VERTE \ #
# $X $xw1/xxxx.pmc/goutte.%04d$VERTE ; \ #
# $X $RCP \ #
# $X $R_LACT27/$nomR/goutte.%04d$BLEUE \ #
# $X $xw1/xxxx.pmc/goutte.%04d$BLEUE' #
# #
# $xci/disk_video_P$Z $xw1/xxxx.pmc/goutte. 001 999 RVB \ #
# 4 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz FAUX VRAI VRAI #
# #
# $Z SET Nimages=999 #
# #
# $Z relatif $xiim/xxxx.pmc #
# #
# $X $xci/genere$X premiere=001 derniere=$Nimages \ #
# $X C='$RCP \ #
# $X $R_LACT27/$nomR/goutte.v.%04d \ #
# $X $xw1/xxxx.pmc/goutte.v.%04d' #
# #
# $xci/disk_video_P$Z $xw1/xxxx.pmc/goutte.v. 001 999 $xiP/gris.01 \ #
# 4 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz FAUX VRAI VRAI #
# #
# $Z SET Nimages=999 #
# #
# $Z relatif $xiim/xxxx.pmc #
# #
# $X $xci/genere$X premiere=001 derniere=$Nimages \ #
# $X C='$RCP \ #
# $X $R_LACT27/$nomR/goutte$m.%04d$ROUGE \ #
# $X $xw1/xxxx.pmc/goutte$m.%04d$ROUGE ; \ #
# $X $RCP \ #
# $X $R_LACT27/$nomR/goutte$m.%04d$VERTE \ #
# $X $xw1/xxxx.pmc/goutte$m.%04d$VERTE ; \ #
# $X $RCP \ #
# $X $R_LACT27/$nomR/goutte$m.%04d$BLEUE \ #
# $X $xw1/xxxx.pmc/goutte$m.%04d$BLEUE' #
# #
# $xci/disk_video_P$Z $xw1/xxxx.pmc/goutte$m. 001 999 RVB \ #
# 4 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz FAUX VRAI VRAI #
# #
# $Z SET Nimages=999 #
# #
# $Z relatif $xiim/xxxx.pmc #
# #
# $X $xci/genere$X premiere=001 derniere=$Nimages \ #
# $X C='$RCP \ #
# $X $R_LACT27/$nomR/goutte$M.%04d$ROUGE \ #
# $X $xw1/xxxx.pmc/goutte$M.%04d$ROUGE ; \ #
# $X $RCP \ #
# $X $R_LACT27/$nomR/goutte$M.%04d$VERTE \ #
# $X $xw1/xxxx.pmc/goutte$M.%04d$VERTE ; \ #
# $X $RCP \ #
# $X $R_LACT27/$nomR/goutte$M.%04d$BLEUE \ #
# $X $xw1/xxxx.pmc/goutte$M.%04d$BLEUE' #
# #
# $xci/disk_video_P$Z $xw1/xxxx.pmc/goutte$M. 001 999 RVB \ #
# 4 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz FAUX VRAI VRAI #
# #
sequence 007371_008369
sequence 008370_009368
sequence 009369_010367
sequence 010368_011366
# Sequence generee par : #
# #
# #
# $Z S #
# $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS #
# #
# $Z SET Cnoir=$NOIR #
# $Z SET Cblanc=$BLANC #
# #
# $Z $DELETE $xT/Pale #
# #
# #
# $c #define NOIR Cnoir #
# $c #define BLANC Cblanc #
# #
# $c int main() #
# $c { #
# $c int i,j; #
# $c int red,green,blue; #
# $c int niveau=NOIR; #
# #
# $c for (i=0 ; i<21 ; i++) #
# $c { #
# $c for (j=0 ; j<i ; j++) #
# $c { #
# $c red=(j*3250)/BLANC; #
# $c green=((i-j)*3250)/BLANC; #
# $c blue=((20-i)*3250)/BLANC; #
# $c printf("echo %02x %02x %02x >>! $xT/Pale\n" #
# $c ,red,green,blue #
# $c ); #
# $c niveau++; #
# $c } #
# $c } #
# #
# $c while (niveau<=BLANC) #
# $c { #
# $c printf("echo %02x %02x %02x >>! $xT/Pale\n" #
# $c ,red,green,blue #
# $c ); #
# $c niveau++; #
# $c } #
# $c } #
# #
# #
# $Z $DELETE $xTV/goutte2$ROUGE #
# $Z $DELETE $xTV/goutte2$VERTE #
# $Z $DELETE $xTV/goutte2$BLEUE #
# #
# $Z $CA $xT/Pale \ #
# $Z | $AW ' { print $1 } ' \ #
# $Z | $xcg/anti_dumpX$X \ #
# $Z > $xTV/goutte2$ROUGE #
# $Z $CA $xT/Pale \ #
# $Z | $AW ' { print $2 } ' \ #
# $Z | $xcg/anti_dumpX$X \ #
# $Z > $xTV/goutte2$VERTE #
# $Z $CA $xT/Pale \ #
# $Z | $AW ' { print $3 } ' \ #
# $Z | $xcg/anti_dumpX$X \ #
# $Z > $xTV/goutte2$BLEUE #
# #
# $Z $DELETE $xT/Pale #
# #
# #
# $Z SET Nimages=999 #
# #
# $Z Suq #
# #
# #
# $c #define N0 1 #
# $c #define N Nimages #
# #
# $c int main() #
# $c { #
# $c int n; #
# #
# $c for (n=N0 ; n<=N ; n++) #
# $c { #
# $c printf("$xci/vraies_C$X #
# $c A=$xw1/xxxx.pmc/goutte2.%04d #
# $c p=$xTV/goutte2 #
# $c RVB=VRAI #
# $c R=$xiim/xxxx.pmc/goutte2.%04d #
# $c $formatI\n" #
# $c ,n,n #
# $c ); #
# $c printf("$xci/format.01$X #
# $c A=$xiim/xxxx.pmc/goutte2.%04d$ROUGE #
# $c mode=1 #
# $c $formatI #
# $c R=$xiim/xxxx.pmc/goutte2.%04d$ROUGE #
# $c $formatR_Std\n" #
# $c ,n,n #
# $c ); #
# $c printf("$xci/format.01$X #
# $c A=$xiim/xxxx.pmc/goutte2.%04d$VERTE #
# $c mode=1 #
# $c $formatI #
# $c R=$xiim/xxxx.pmc/goutte2.%04d$VERTE #
# $c $formatR_Std\n" #
# $c ,n,n #
# $c ); #
# $c printf("$xci/format.01$X #
# $c A=$xiim/xxxx.pmc/goutte2.%04d$BLEUE #
# $c mode=1 #
# $c $formatI #
# $c R=$xiim/xxxx.pmc/goutte2.%04d$BLEUE #
# $c $formatR_Std\n" #
# $c ,n,n #
# $c ); #
# $c printf("$xci/format.01$X #
# $c A=$xw1/xxxx.pmc/goutte2.v.%04d #
# $c mode=1 #
# $c $formatI #
# $c R=$xiim/xxxx.pmc/goutte2.v.%04d #
# $c $formatR_Std\n" #
# $c ,n,n #
# $c ); #
# $c } #
# $c } #
# #
# #
# $Z SET Nimages=999 #
# #
# $Z Std #
# #
# #
# $c #define N0 1 #
# $c #define N Nimages #
# #
# $c int main() #
# $c { #
# $c int n; #
# #
# $c for (n=N0 ; n<=N ; n++) #
# $c { #
# $c printf("$xci/complement$X #
# $c A=$xiim/xxxx.pmc/goutte2.v.%04d #
# $c R=$xiim/xxxx.pmc/goutte2.v.%04d #
# $c $formatI\n" #
# $c ,n,n #
# $c ); #
# #
# $c printf("$xci/montagne.01$X #
# $c A=$xiim/xxxx.pmc/goutte2.v.%04d #
# $c T=$xiim/xxxx.pmc/goutte2.%04d$ROUGE #
# $c avion=VRAI #
# $c R=$xiim/xxxx.pmc/goutte2$m.%04d$ROUGE #
# $c $formatI\n" #
# $c ,n,n,n #
# $c ); #
# $c printf("$xci/montagne.01$X #
# $c A=$xiim/xxxx.pmc/goutte2.v.%04d #
# $c T=$xiim/xxxx.pmc/goutte2.%04d$VERTE #
# $c avion=VRAI #
# $c R=$xiim/xxxx.pmc/goutte2$m.%04d$VERTE #
# $c $formatI\n" #
# $c ,n,n,n #
# $c ); #
# $c printf("$xci/montagne.01$X #
# $c A=$xiim/xxxx.pmc/goutte2.v.%04d #
# $c T=$xiim/xxxx.pmc/goutte2.%04d$BLEUE #
# $c avion=VRAI #
# $c R=$xiim/xxxx.pmc/goutte2$m.%04d$BLEUE #
# $c $formatI\n" #
# $c ,n,n,n #
# $c ); #
# #
# $c printf("$xci/montagne.01$X #
# $c A=$xiim/xxxx.pmc/goutte2.v.%04d #
# $c T=$xiim/xxxx.pmc/goutte2.%04d$ROUGE #
# $c avion=FAUX #
# $c perspective=0.2 #
# $c Ty=0.8 #
# $c R=$xiim/xxxx.pmc/goutte2$M.%04d$ROUGE #
# $c $formatI\n" #
# $c ,n,n,n #
# $c ); #
# $c printf("$xci/montagne.01$X #
# $c A=$xiim/xxxx.pmc/goutte2.v.%04d #
# $c T=$xiim/xxxx.pmc/goutte2.%04d$VERTE #
# $c avion=FAUX #
# $c perspective=0.2 #
# $c Ty=0.8 #
# $c R=$xiim/xxxx.pmc/goutte2$M.%04d$VERTE #
# $c $formatI\n" #
# $c ,n,n,n #
# $c ); #
# $c printf("$xci/montagne.01$X #
# $c A=$xiim/xxxx.pmc/goutte2.v.%04d #
# $c T=$xiim/xxxx.pmc/goutte2.%04d$BLEUE #
# $c avion=FAUX #
# $c perspective=0.2 #
# $c Ty=0.8 #
# $c R=$xiim/xxxx.pmc/goutte2$M.%04d$BLEUE #
# $c $formatI\n" #
# $c ,n,n,n #
# $c ); #
# $c } #
# $c } #
# #
# $X $xci/genere$X premiere=001 derniere=$Nimages \ #
# $X C='$xci/vraies_C$X \ #
# $X A=$xiim/xxxx.pmc/goutte2.v.%04d \ #
# $X p=$xiP/gris.01 \ #
# $X RVB=VRAI \ #
# $X R=$xiim/xxxx.pmc/goutte2.v.%04d \ #
# $X $formatI' #
# #
# #
# Std #
# #
# #
# $Z SET Nimages=999 #
# #
# $Z relatif $xiim/xxxx.pmc #
# #
# $X $xci/genere$X premiere=001 derniere=$Nimages \ #
# $X C='$RCP \ #
# $X $R_LACT27/$nomR/goutte2.%04d$ROUGE \ #
# $X $xw1/xxxx.pmc/goutte2.%04d$ROUGE ; \ #
# $X $RCP \ #
# $X $R_LACT27/$nomR/goutte2.%04d$VERTE \ #
# $X $xw1/xxxx.pmc/goutte2.%04d$VERTE ; \ #
# $X $RCP \ #
# $X $R_LACT27/$nomR/goutte2.%04d$BLEUE \ #
# $X $xw1/xxxx.pmc/goutte2.%04d$BLEUE' #
# #
# $xci/disk_video_P$Z $xw1/xxxx.pmc/goutte2. 001 999 RVB \ #
# 4 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz FAUX VRAI FAUX #
# #
# $Z SET Nimages=999 #
# #
# $Z relatif $xiim/xxxx.pmc #
# #
# $X $xci/genere$X premiere=001 derniere=$Nimages \ #
# $X C='$RCP \ #
# $X $R_LACT27/$nomR/goutte2.v.%04d$ROUGE \ #
# $X $xw1/xxxx.pmc/goutte2.v.%04d$ROUGE ; \ #
# $X $RCP \ #
# $X $R_LACT27/$nomR/goutte2.v.%04d$VERTE \ #
# $X $xw1/xxxx.pmc/goutte2.v.%04d$VERTE ; \ #
# $X $RCP \ #
# $X $R_LACT27/$nomR/goutte2.v.%04d$BLEUE \ #
# $X $xw1/xxxx.pmc/goutte2.v.%04d$BLEUE' #
# #
# $xci/disk_video_P$Z $xw1/xxxx.pmc/goutte2.v. 001 999 RVB \ #
# 4 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz FAUX VRAI VRAI #
# #
# $Z SET Nimages=999 #
# #
# $Z relatif $xiim/xxxx.pmc #
# #
# $X $xci/genere$X premiere=001 derniere=$Nimages \ #
# $X C='$RCP \ #
# $X $R_LACT27/$nomR/goutte2$m.%04d$ROUGE \ #
# $X $xw1/xxxx.pmc/goutte2$m.%04d$ROUGE ; \ #
# $X $RCP \ #
# $X $R_LACT27/$nomR/goutte2$m.%04d$VERTE \ #
# $X $xw1/xxxx.pmc/goutte2$m.%04d$VERTE ; \ #
# $X $RCP \ #
# $X $R_LACT27/$nomR/goutte2$m.%04d$BLEUE \ #
# $X $xw1/xxxx.pmc/goutte2$m.%04d$BLEUE' #
# #
# $xci/disk_video_P$Z $xw1/xxxx.pmc/goutte2$m. 001 999 RVB \ #
# 4 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz FAUX VRAI FAUX #
# #
# $Z SET Nimages=999 #
# #
# $Z relatif $xiim/xxxx.pmc #
# #
# $X $xci/genere$X premiere=001 derniere=$Nimages \ #
# $X C='$RCP \ #
# $X $R_LACT27/$nomR/goutte2$M.%04d$ROUGE \ #
# $X $xw1/xxxx.pmc/goutte2$M.%04d$ROUGE ; \ #
# $X $RCP \ #
# $X $R_LACT27/$nomR/goutte2$M.%04d$VERTE \ #
# $X $xw1/xxxx.pmc/goutte2$M.%04d$VERTE ; \ #
# $X $RCP \ #
# $X $R_LACT27/$nomR/goutte2$M.%04d$BLEUE \ #
# $X $xw1/xxxx.pmc/goutte2$M.%04d$BLEUE' #
# #
# $xci/disk_video_P$Z $xw1/xxxx.pmc/goutte2$M. 001 999 RVB \ #
# 4 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz FAUX VRAI VRAI #
# #
sequence 011367_011867
# Sequence generee par : #
# #
# #
# $Z S #
# $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS #
# #
# $Z SET Cnoir=$NOIR #
# $Z SET Cblanc=$BLANC #
# #
# $Z $DELETE $xT/Pale #
# #
# #
# $c #define NOIR Cnoir #
# $c #define BLANC Cblanc #
# #
# $c int main() #
# $c { #
# $c int i,j; #
# $c int red,green,blue; #
# $c int niveau=NOIR; #
# #
# $c for (i=0 ; i<21 ; i++) #
# $c { #
# $c for (j=0 ; j<i ; j++) #
# $c { #
# $c red=(j*3250)/BLANC; #
# $c green=((i-j)*3250)/BLANC; #
# $c blue=((20-i)*3250)/BLANC; #
# $c printf("echo %02x %02x %02x >>! $xT/Pale\n" #
# $c ,red,green,blue #
# $c ); #
# $c niveau++; #
# $c } #
# $c } #
# #
# $c while (niveau<=BLANC) #
# $c { #
# $c printf("echo %02x %02x %02x >>! $xT/Pale\n" #
# $c ,red,green,blue #
# $c ); #
# $c niveau++; #
# $c } #
# $c } #
# #
# #
# $Z $DELETE $xTV/cible$ROUGE #
# $Z $DELETE $xTV/cible$VERTE #
# $Z $DELETE $xTV/cible$BLEUE #
# #
# $Z $CA $xT/Pale \ #
# $Z | $AW ' { print $1 } ' \ #
# $Z | $xcg/anti_dumpX$X \ #
# $Z > $xTV/cible$ROUGE #
# $Z $CA $xT/Pale \ #
# $Z | $AW ' { print $2 } ' \ #
# $Z | $xcg/anti_dumpX$X \ #
# $Z > $xTV/cible$VERTE #
# $Z $CA $xT/Pale \ #
# $Z | $AW ' { print $3 } ' \ #
# $Z | $xcg/anti_dumpX$X \ #
# $Z > $xTV/cible$BLEUE #
# #
# $Z $DELETE $xT/Pale #
# #
# #
# $Z SET Nimages=501 #
# #
# $Z Suq #
# #
# #
# $c #define N0 1 #
# $c #define N Nimages #
# #
# $c int main() #
# $c { #
# $c int n; #
# #
# $c for (n=N0 ; n<=N ; n++) #
# $c { #
# $c printf("$xci/vraies_C$X #
# $c A=$xw1/xxxx.pmc/cible.%04d #
# $c p=$xTV/cible #
# $c RVB=VRAI #
# $c R=$xw1/xxxx.pmc/cible.%04d #
# $c $formatI\n" #
# $c ,n,n #
# $c ); #
# $c printf("$xci/format.01$X #
# $c A=$xw1/xxxx.pmc/cible.%04d$ROUGE #
# $c mode=1 #
# $c $formatI #
# $c R=$xw1/xxxx.pmc/cible.%04d$ROUGE #
# $c $formatR_Std\n" #
# $c ,n,n #
# $c ); #
# $c printf("$xci/format.01$X #
# $c A=$xw1/xxxx.pmc/cible.%04d$VERTE #
# $c mode=1 #
# $c $formatI #
# $c R=$xw1/xxxx.pmc/cible.%04d$VERTE #
# $c $formatR_Std\n" #
# $c ,n,n #
# $c ); #
# $c printf("$xci/format.01$X #
# $c A=$xw1/xxxx.pmc/cible.%04d$BLEUE #
# $c mode=1 #
# $c $formatI #
# $c R=$xw1/xxxx.pmc/cible.%04d$BLEUE #
# $c $formatR_Std\n" #
# $c ,n,n #
# $c ); #
# $c } #
# $c } #
# #
# #
# Std #
# #
# $xci/disk_video_P$Z $xw1/xxxx.pmc/cible. 001 501 RVB \ #
# 4 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz FAUX VRAI FAUX #
# #
sequence 011868_012168
# Sequence generee par : #
# #
# #
# $Z S #
# $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS #
# #
# $Z SET Cnoir=$NOIR #
# $Z SET Cblanc=$BLANC #
# #
# $Z $DELETE $xT/Pale #
# #
# #
# $c #define NOIR Cnoir #
# $c #define BLANC Cblanc #
# #
# $c int main() #
# $c { #
# $c int i,j; #
# $c int red,green,blue; #
# $c int niveau=NOIR; #
# #
# $c for (i=0 ; i<21 ; i++) #
# $c { #
# $c for (j=0 ; j<i ; j++) #
# $c { #
# $c red=(j*3250)/BLANC; #
# $c green=((i-j)*3250)/BLANC; #
# $c blue=((20-i)*3250)/BLANC; #
# $c printf("echo %02x %02x %02x >>! $xT/Pale\n" #
# $c ,red,green,blue #
# $c ); #
# $c niveau++; #
# $c } #
# $c } #
# #
# $c while (niveau<=BLANC) #
# $c { #
# $c printf("echo %02x %02x %02x >>! $xT/Pale\n" #
# $c ,red,green,blue #
# $c ); #
# $c niveau++; #
# $c } #
# $c } #
# #
# #
# $Z $DELETE $xTV/eclat$ROUGE #
# $Z $DELETE $xTV/eclat$VERTE #
# $Z $DELETE $xTV/eclat$BLEUE #
# #
# $Z $CA $xT/Pale \ #
# $Z | $AW ' { print $1 } ' \ #
# $Z | $xcg/anti_dumpX$X \ #
# $Z > $xTV/eclat$ROUGE #
# $Z $CA $xT/Pale \ #
# $Z | $AW ' { print $2 } ' \ #
# $Z | $xcg/anti_dumpX$X \ #
# $Z > $xTV/eclat$VERTE #
# $Z $CA $xT/Pale \ #
# $Z | $AW ' { print $3 } ' \ #
# $Z | $xcg/anti_dumpX$X \ #
# $Z > $xTV/eclat$BLEUE #
# #
# $Z $DELETE $xT/Pale #
# #
# #
# $Z SET Nimages=301 #
# #
# $Z Suq #
# #
# #
# $c #define N0 1 #
# $c #define N Nimages #
# #
# $c int main() #
# $c { #
# $c int n; #
# #
# $c for (n=N0 ; n<=N ; n++) #
# $c { #
# $c printf("$xci/vraies_C$X #
# $c A=$xw1/xxxx.pmc/eclat.%04d #
# $c p=$xTV/eclat #
# $c RVB=VRAI #
# $c R=$xw1/xxxx.pmc/eclat.%04d #
# $c $formatI\n" #
# $c ,n,n #
# $c ); #
# $c printf("$xci/format.01$X #
# $c A=$xw1/xxxx.pmc/eclat.%04d$ROUGE #
# $c mode=1 #
# $c $formatI #
# $c R=$xw1/xxxx.pmc/eclat.%04d$ROUGE #
# $c $formatR_Std\n" #
# $c ,n,n #
# $c ); #
# $c printf("$xci/format.01$X #
# $c A=$xw1/xxxx.pmc/eclat.%04d$VERTE #
# $c mode=1 #
# $c $formatI #
# $c R=$xw1/xxxx.pmc/eclat.%04d$VERTE #
# $c $formatR_Std\n" #
# $c ,n,n #
# $c ); #
# $c printf("$xci/format.01$X #
# $c A=$xw1/xxxx.pmc/eclat.%04d$BLEUE #
# $c mode=1 #
# $c $formatI #
# $c R=$xw1/xxxx.pmc/eclat.%04d$BLEUE #
# $c $formatR_Std\n" #
# $c ,n,n #
# $c ); #
# $c } #
# $c } #
# #
# #
# Std #
# #
# $xci/disk_video_P$Z $xw1/xxxx.pmc/eclat. 001 301 RVB \ #
# 4 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz FAUX VRAI FAUX #
# #
sequence 012169_012669
# Sequence generee par : #
# #
# #
# $Z S #
# $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS #
# #
# $Z SET Cnoir=$NOIR #
# $Z SET Cblanc=$BLANC #
# #
# $Z $DELETE $xT/Pale #
# #
# #
# $c #define NOIR Cnoir #
# $c #define BLANC Cblanc #
# #
# $c int main() #
# $c { #
# $c int i,j; #
# $c int red,green,blue; #
# $c int niveau=NOIR; #
# #
# $c for (i=0 ; i<21 ; i++) #
# $c { #
# $c for (j=0 ; j<i ; j++) #
# $c { #
# $c red=(j*3250)/BLANC; #
# $c green=((i-j)*3250)/BLANC; #
# $c blue=((20-i)*3250)/BLANC; #
# $c printf("echo %02x %02x %02x >>! $xT/Pale\n" #
# $c ,red,green,blue #
# $c ); #
# $c niveau++; #
# $c } #
# $c } #
# #
# $c while (niveau<=BLANC) #
# $c { #
# $c printf("echo %02x %02x %02x >>! $xT/Pale\n" #
# $c ,red,green,blue #
# $c ); #
# $c niveau++; #
# $c } #
# $c } #
# #
# #
# $Z $DELETE $xTV/stripe$ROUGE #
# $Z $DELETE $xTV/stripe$VERTE #
# $Z $DELETE $xTV/stripe$BLEUE #
# #
# $Z $CA $xT/Pale \ #
# $Z | $AW ' { print $1 } ' \ #
# $Z | $xcg/anti_dumpX$X \ #
# $Z > $xTV/stripe$ROUGE #
# $Z $CA $xT/Pale \ #
# $Z | $AW ' { print $2 } ' \ #
# $Z | $xcg/anti_dumpX$X \ #
# $Z > $xTV/stripe$VERTE #
# $Z $CA $xT/Pale \ #
# $Z | $AW ' { print $3 } ' \ #
# $Z | $xcg/anti_dumpX$X \ #
# $Z > $xTV/stripe$BLEUE #
# #
# $Z $DELETE $xT/Pale #
# #
# #
# $Z SET Nimages=501 #
# #
# $Z Suq #
# #
# #
# $c #define N0 1 #
# $c #define N Nimages #
# #
# $c int main() #
# $c { #
# $c int n; #
# #
# $c for (n=N0 ; n<=N ; n++) #
# $c { #
# $c printf("$xci/vraies_C$X #
# $c A=$xw1/xxxx.pmc/stripe.%04d #
# $c p=$xTV/stripe #
# $c RVB=VRAI #
# $c R=$xw1/xxxx.pmc/stripe.%04d #
# $c $formatI\n" #
# $c ,n,n #
# $c ); #
# $c printf("$xci/format.01$X #
# $c A=$xw1/xxxx.pmc/stripe.%04d$ROUGE #
# $c mode=1 #
# $c $formatI #
# $c R=$xw1/xxxx.pmc/stripe.%04d$ROUGE #
# $c $formatR_Std\n" #
# $c ,n,n #
# $c ); #
# $c printf("$xci/format.01$X #
# $c A=$xw1/xxxx.pmc/stripe.%04d$VERTE #
# $c mode=1 #
# $c $formatI #
# $c R=$xw1/xxxx.pmc/stripe.%04d$VERTE #
# $c $formatR_Std\n" #
# $c ,n,n #
# $c ); #
# $c printf("$xci/format.01$X #
# $c A=$xw1/xxxx.pmc/stripe.%04d$BLEUE #
# $c mode=1 #
# $c $formatI #
# $c R=$xw1/xxxx.pmc/stripe.%04d$BLEUE #
# $c $formatR_Std\n" #
# $c ,n,n #
# $c ); #
# $c } #
# $c } #
# #
# #
# Std #
# #
# $xci/disk_video_P$Z $xw1/xxxx.pmc/stripe. 001 501 RVB \ #
# 4 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz FAUX VRAI FAUX #
# #
sequence 012670_012733
# Sequence generee par : #
# #
# #
# $Z Pal #
# #
# $Z set Premiere=1 #
# $Z set Derniere=64 #
# #
# $Z @ Nimages = $Derniere - $Premiere #
# $Z @ Nimages = $Nimages + 1 #
# #
# $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS #
# #
# $Z set Cnoir=0.0 #
# $Z set Cgris=0.5 #
# $Z set Cblanc=1.0 #
# $Z set Cstructure=$Cblanc #
# #
# $Z set CboulesS=0.4 #
# $Z set CboulesC=0.4 #
# #
# $Z set Crayon=".r" #
# $Z set Cniveau=".n" #
# #
# $Z $DELETE $xTV/struc3d$COORD_X #
# $Z $DELETE $xTV/struc3d$COORD_Y #
# $Z $DELETE $xTV/struc3d$COORD_Z #
# $Z $DELETE $xTV/struc3d$Crayon #
# $Z $DELETE $xTV/struc3d$Cniveau #
# #
# $Z $DELETE $xTV/champ3d$COORD_X #
# $Z $DELETE $xTV/champ3d$COORD_Y #
# $Z $DELETE $xTV/champ3d$COORD_Z #
# $Z $DELETE $xTV/champ3d$Crayon #
# $Z $DELETE $xTV/champ3d$Cniveau #
# #
# $Z $DELETE $xTV/fract3d$COORD_X #
# $Z $DELETE $xTV/fract3d$COORD_Y #
# $Z $DELETE $xTV/fract3d$COORD_Z #
# $Z $DELETE $xTV/fract3d$Crayon #
# $Z $DELETE $xTV/fract3d$Cniveau #
# #
# $Z set Lstruc3d=`$WC $xw1/xxxx.pmc/struc3d` #
# $Z set Lstruc3d=$Lstruc3d[$WC1] #
# #
# $Z set Lchamp3d=`$WC $xw1/xxxx.pmc/champ3d` #
# $Z set Lchamp3d=$Lchamp3d[$WC1] #
# #
# #
# $Z $CA $xw1/xxxx.pmc/struc3d \ #
# $Z | $AW ' { print $1 } ' \ #
# $Z > $xTV/struc3d$COORD_X #
# $Z $CA $xw1/xxxx.pmc/struc3d \ #
# $Z | $AW ' { print $2 } ' \ #
# $Z > $xTV/struc3d$COORD_Y #
# $Z $CA $xw1/xxxx.pmc/struc3d \ #
# $Z | $AW ' { print $3 } ' \ #
# $Z > $xTV/struc3d$COORD_Z #
# $Z $xci/valeurs_inte$X \ #
# $Z premiere=$Premiere derniere=$Lstruc3d \ #
# $Z vD=$CboulesS vA=$CboulesS \ #
# $Z cubique=FAUX \ #
# $Z > $xTV/struc3d$Crayon #
# $Z $xci/valeurs_inte$X \ #
# $Z premiere=$Premiere derniere=$Lstruc3d \ #
# $Z vD=$Cstructure vA=$Cstructure \ #
# $Z cubique=FAUX \ #
# $Z > $xTV/struc3d$Cniveau #
# #
# $Z $CA $xw1/xxxx.pmc/champ3d \ #
# $Z | $AW ' { print $1 } ' \ #
# $Z > $xTV/champ3d$COORD_X #
# $Z $CA $xw1/xxxx.pmc/champ3d \ #
# $Z | $AW ' { print $2 } ' \ #
# $Z > $xTV/champ3d$COORD_Y #
# $Z $CA $xw1/xxxx.pmc/champ3d \ #
# $Z | $AW ' { print $3 } ' \ #
# $Z > $xTV/champ3d$COORD_Z #
# $Z $xci/valeurs_inte$X \ #
# $Z premiere=$Premiere derniere=$Lstruc3d \ #
# $Z vD=$CboulesC vA=$CboulesC \ #
# $Z cubique=FAUX \ #
# $Z > $xTV/champ3d$Crayon #
# $Z $CA $xw1/xxxx.pmc/champ3d \ #
# $Z | $AW ' { print $4 } ' \ #
# $Z > $xTV/champ3d$Cniveau #
# #
# $Z $CA $xTV/struc3d$COORD_X \ #
# $Z $xTV/champ3d$COORD_X \ #
# $Z > $xTV/fract3d$COORD_X #
# $Z $CA $xTV/struc3d$COORD_Y \ #
# $Z $xTV/champ3d$COORD_Y \ #
# $Z > $xTV/fract3d$COORD_Y #
# $Z $CA $xTV/struc3d$COORD_Z \ #
# $Z $xTV/champ3d$COORD_Z \ #
# $Z > $xTV/fract3d$COORD_Z #
# $Z $CA $xTV/struc3d$Crayon \ #
# $Z $xTV/champ3d$Crayon \ #
# $Z > $xTV/fract3d$Crayon #
# $Z $CA $xTV/struc3d$Cniveau \ #
# $Z $xTV/champ3d$Cniveau \ #
# $Z > $xTV/fract3d$Cniveau #
# #
# $Z $DELETE $xTV/ROTATION$COORD_X #
# $Z $xci/valeurs_inte$X p=1 d=$Nimages vD=0.60 vA=2.40 cubique=FAUX \ #
# $Z > $xTV/ROTATION$COORD_X #
# #
# $Z @ Lfract3d = $Lstruc3d + $Lchamp3d #
# #
# #
# $Z $xrv/particule.10$X \ #
# $Z np=$Nimages iterations=$Lfract3d \ #
# $Z LISTE_X=$xTV/fract3d$COORD_X \ #
# $Z LISTE_Y=$xTV/fract3d$COORD_Y \ #
# $Z LISTE_Z=$xTV/fract3d$COORD_Z \ #
# $Z ajuster=VRAI \ #
# $Z ZOOM=2.0 \ #
# $Z TRANSLATION_OY=-0.5 \ #
# $Z ROTATION_OX=$xTV/ROTATION$COORD_X \ #
# $Z Lz=100 \ #
# $Z p=$xiP/pmc.45 \ #
# $Z LISTE_NIVEAU=$xTV/fract3d$Cniveau \ #
# $Z ARVB=255 BRVB=0 \ #
# $Z LISTE_RAYON=$xTV/fract3d$Crayon \ #
# $Z Ar=0.04 Br=0 \ #
# $Z tri=VRAI N2=FAUX \ #
# $Z R=$xw1/xxxx.pmc/FRAC.1. \ #
# $Z $formatI #
# #
# $Z $DELETE $xTV/ROTATION$COORD_X #
# #
# $Z $DELETE $xTV/struc3d$COORD_X #
# $Z $DELETE $xTV/struc3d$COORD_Y #
# $Z $DELETE $xTV/struc3d$COORD_Z #
# $Z $DELETE $xTV/struc3d$Crayon #
# $Z $DELETE $xTV/struc3d$Cniveau #
# #
# $Z $DELETE $xTV/champ3d$COORD_X #
# $Z $DELETE $xTV/champ3d$COORD_Y #
# $Z $DELETE $xTV/champ3d$COORD_Z #
# $Z $DELETE $xTV/champ3d$Crayon #
# $Z $DELETE $xTV/champ3d$Cniveau #
# #
# $Z $DELETE $xTV/fract3d$COORD_X #
# $Z $DELETE $xTV/fract3d$COORD_Y #
# $Z $DELETE $xTV/fract3d$COORD_Z #
# $Z $DELETE $xTV/fract3d$Crayon #
# $Z $DELETE $xTV/fract3d$Cniveau #
# #
# #
# $Z Pal #
# #
# $X $xci/genere$X c='$CP $xw1/xxxx.pmc/FRAC.1.0018%s $xiird/ELEC.11.0018%s' RVB=VRAI #
# $X $xci/genere$X c='ro $xiird/ELEC.11.0018%s' RVB=VRAI #
# $X $xci/genere$X c='$xcg/unite$Z $xiird/ELEC.11.0018%s' RVB=VRAI #
# #
# $X $xci/genere$X c='$CP $xw1/xxxx.pmc/FRAC.1.0064%s $xiird/ELEC.11.0064%s' RVB=VRAI #
# $X $xci/genere$X c='ro $xiird/ELEC.11.0064%s' RVB=VRAI #
# $X $xci/genere$X c='$xcg/unite$Z $xiird/ELEC.11.0064%s' RVB=VRAI #
# #
# $Z $xci/reduction_16$Z $xw1/xxxx.pmc/FRAC.1. $xiad/ELEC.11 $Premiere $Derniere #
# $Z $xci/reduction_64$Z $xw1/xxxx.pmc/FRAC.1. $xiad/ELEC.11 $Premiere $Derniere #
# #
# $X $xci/genere$X c='ro $xiad/ELEC.11$R16%s' RVB=VRAI #
# $X $xci/genere$X c='ro $xiad/ELEC.11$R64%s' RVB=VRAI #
# #
# $X $xci/genere$X c='$xcg/unite$Z $xiad/ELEC.11$R16%s' RVB=VRAI #
# $X $xci/genere$X c='$xcg/unite$Z $xiad/ELEC.11$R64%s' RVB=VRAI #
# #
# #
# Pal #
# #
# $xci/disk_video_P$Z $xw1/xxxx.pmc/FRAC.1. 001 064 RVB \ #
# 4 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
sequence 012734_013548
# Sequence generee par a partir du programme : #
# #
# $xu/SB.Santra/etching.11$f #
# #
# avec les parametres : #
# #
# parameter (nimages=1024,npas=1) #
# #
# #
# $Z Std #
# #
# $Z SET Premiere=0 #
# $Z SET Derniere=814 #
# #
# $Z @ Taille = $taille_Std * 4 #
# #
# $X $xci/genere$X premiere=$Premiere derniere=$Derniere pas=1 \ #
# $X C='$CA \ #
# $X $xiim/ETCH.%04d | \ #
# $X $xcg/extract$X \ #
# $X eliminer=4 \ #
# $X conserver=$Taille | \ #
# $X $xcg/float_Float$X \ #
# $X $formatI | \ #
# $X $xci/acces$X \ #
# $X standard=FAUX \ #
# $X zero=VRAI \ #
# $X R=$xw1/xxxx.pmc/ETCH.1.%04d \ #
# $X $formatI' #
# #
# #
# Std #
# #
# $xci/disk_video_P$Z $xw1/xxxx.pmc/ETCH.1. 000 814 $xiP/pmc.54 \ #
# 4 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz FAUX FAUX VRAI #
# #
sequence 013549_013756
# Sequence generee par : #
# #
# #
# XYmaxNe 559 419 #
# #
# $xci/disk_video_P$Z $xw1/xxxx.pmc/ani/ani 001 208 RVB \ #
# 4 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz FAUX FAUX VRAI #
# #
sequence 013757_013856
# Sequence generee par le programme '$xu/M.Plapp/abv3col.12$c' sur '$LACT29' : #
# #
# #
# $Z Pal #
# #
# $Z $DELETE $xTV/boite$COORD_X #
# $Z $DELETE $xTV/boite$COORD_Y #
# $Z $DELETE $xTV/boite$COORD_Z #
# $Z $DELETE $xTV/boite$ROUGE #
# $Z $DELETE $xTV/boite$VERTE #
# $Z $DELETE $xTV/boite$BLEUE #
# $Z $DELETE $xTV/boite$RAYON #
# #
# $Z set points0=0 #
# $Z set pointsN=39 #
# $Z @ NBpoints = $pointsN - $points0 #
# $Z @ NBpoints = $NBpoints + 1 #
# $Z @ NBpoints = $NBpoints * 12 #
# $Z set Rpoints=$GRIS #
# $Z set Vpoints=$GRIS #
# $Z set Bpoints=$GRIS #
# $Z set rpoints=200 #
# #
# $Z alias genere 'set vD=\!:1 ; set vA=\!:2 ; set FiLe=\!:3 ; \\ #
# $Z $xci/valeurs_inte$X \\ #
# $Z premiere=$points0 derniere=$pointsN \\ #
# $Z vD=$vD vA=$vA \\ #
# $Z cubique=FAUX \\ #
# $Z >>! $FiLe ; \\ #
# $Z unset vD vA FiLe' #
# #
# $Z genere +0.25 +0.75 $xTV/boite$COORD_X #
# $Z genere +0.25 +0.25 $xTV/boite$COORD_Y #
# $Z genere -0.50 -0.50 $xTV/boite$COORD_Z #
# $Z genere $Rpoints $Rpoints $xTV/boite$ROUGE #
# $Z genere $Rpoints $Rpoints $xTV/boite$VERTE #
# $Z genere $Rpoints $Rpoints $xTV/boite$BLEUE #
# $Z genere $rpoints $rpoints $xTV/boite$RAYON #
# #
# $Z genere +0.75 +0.75 $xTV/boite$COORD_X #
# $Z genere +0.25 +0.75 $xTV/boite$COORD_Y #
# $Z genere -0.50 -0.50 $xTV/boite$COORD_Z #
# $Z genere $Rpoints $Rpoints $xTV/boite$ROUGE #
# $Z genere $Rpoints $Rpoints $xTV/boite$VERTE #
# $Z genere $Rpoints $Rpoints $xTV/boite$BLEUE #
# $Z genere $rpoints $rpoints $xTV/boite$RAYON #
# #
# $Z genere +0.75 +0.25 $xTV/boite$COORD_X #
# $Z genere +0.75 +0.75 $xTV/boite$COORD_Y #
# $Z genere -0.50 -0.50 $xTV/boite$COORD_Z #
# $Z genere $Rpoints $Rpoints $xTV/boite$ROUGE #
# $Z genere $Rpoints $Rpoints $xTV/boite$VERTE #
# $Z genere $Rpoints $Rpoints $xTV/boite$BLEUE #
# $Z genere $rpoints $rpoints $xTV/boite$RAYON #
# #
# $Z genere +0.25 +0.25 $xTV/boite$COORD_X #
# $Z genere +0.75 +0.25 $xTV/boite$COORD_Y #
# $Z genere -0.50 -0.50 $xTV/boite$COORD_Z #
# $Z genere $Rpoints $Rpoints $xTV/boite$ROUGE #
# $Z genere $Rpoints $Rpoints $xTV/boite$VERTE #
# $Z genere $Rpoints $Rpoints $xTV/boite$BLEUE #
# $Z genere $rpoints $rpoints $xTV/boite$RAYON #
# #
# $Z genere +0.25 +0.75 $xTV/boite$COORD_X #
# $Z genere +0.25 +0.25 $xTV/boite$COORD_Y #
# $Z genere +0.50 +0.50 $xTV/boite$COORD_Z #
# $Z genere $Rpoints $Rpoints $xTV/boite$ROUGE #
# $Z genere $Rpoints $Rpoints $xTV/boite$VERTE #
# $Z genere $Rpoints $Rpoints $xTV/boite$BLEUE #
# $Z genere $rpoints $rpoints $xTV/boite$RAYON #
# #
# $Z genere +0.75 +0.75 $xTV/boite$COORD_X #
# $Z genere +0.25 +0.75 $xTV/boite$COORD_Y #
# $Z genere +0.50 +0.50 $xTV/boite$COORD_Z #
# $Z genere $Rpoints $Rpoints $xTV/boite$ROUGE #
# $Z genere $Rpoints $Rpoints $xTV/boite$VERTE #
# $Z genere $Rpoints $Rpoints $xTV/boite$BLEUE #
# $Z genere $rpoints $rpoints $xTV/boite$RAYON #
# #
# $Z genere +0.75 +0.25 $xTV/boite$COORD_X #
# $Z genere +0.75 +0.75 $xTV/boite$COORD_Y #
# $Z genere +0.50 +0.50 $xTV/boite$COORD_Z #
# $Z genere $Rpoints $Rpoints $xTV/boite$ROUGE #
# $Z genere $Rpoints $Rpoints $xTV/boite$VERTE #
# $Z genere $Rpoints $Rpoints $xTV/boite$BLEUE #
# $Z genere $rpoints $rpoints $xTV/boite$RAYON #
# #
# $Z genere +0.25 +0.25 $xTV/boite$COORD_X #
# $Z genere +0.75 +0.25 $xTV/boite$COORD_Y #
# $Z genere +0.50 +0.50 $xTV/boite$COORD_Z #
# $Z genere $Rpoints $Rpoints $xTV/boite$ROUGE #
# $Z genere $Rpoints $Rpoints $xTV/boite$VERTE #
# $Z genere $Rpoints $Rpoints $xTV/boite$BLEUE #
# $Z genere $rpoints $rpoints $xTV/boite$RAYON #
# #
# $Z genere +0.25 +0.25 $xTV/boite$COORD_X #
# $Z genere +0.25 +0.25 $xTV/boite$COORD_Y #
# $Z genere -0.50 +0.50 $xTV/boite$COORD_Z #
# $Z genere $Rpoints $Rpoints $xTV/boite$ROUGE #
# $Z genere $Rpoints $Rpoints $xTV/boite$VERTE #
# $Z genere $Rpoints $Rpoints $xTV/boite$BLEUE #
# $Z genere $rpoints $rpoints $xTV/boite$RAYON #
# #
# $Z genere +0.75 +0.75 $xTV/boite$COORD_X #
# $Z genere +0.25 +0.25 $xTV/boite$COORD_Y #
# $Z genere -0.50 +0.50 $xTV/boite$COORD_Z #
# $Z genere $Rpoints $Rpoints $xTV/boite$ROUGE #
# $Z genere $Rpoints $Rpoints $xTV/boite$VERTE #
# $Z genere $Rpoints $Rpoints $xTV/boite$BLEUE #
# $Z genere $rpoints $rpoints $xTV/boite$RAYON #
# #
# $Z genere +0.75 +0.75 $xTV/boite$COORD_X #
# $Z genere +0.75 +0.75 $xTV/boite$COORD_Y #
# $Z genere -0.50 +0.50 $xTV/boite$COORD_Z #
# $Z genere $Rpoints $Rpoints $xTV/boite$ROUGE #
# $Z genere $Rpoints $Rpoints $xTV/boite$VERTE #
# $Z genere $Rpoints $Rpoints $xTV/boite$BLEUE #
# $Z genere $rpoints $rpoints $xTV/boite$RAYON #
# #
# $Z genere +0.25 +0.25 $xTV/boite$COORD_X #
# $Z genere +0.75 +0.75 $xTV/boite$COORD_Y #
# $Z genere -0.50 +0.50 $xTV/boite$COORD_Z #
# $Z genere $Rpoints $Rpoints $xTV/boite$ROUGE #
# $Z genere $Rpoints $Rpoints $xTV/boite$VERTE #
# $Z genere $Rpoints $Rpoints $xTV/boite$BLEUE #
# $Z genere $rpoints $rpoints $xTV/boite$RAYON #
# #
# $Z $DELETE $xTV/slab_boite$COORD_X #
# $Z $DELETE $xTV/slab_boite$COORD_Y #
# $Z $DELETE $xTV/slab_boite$COORD_Z #
# $Z $DELETE $xTV/slab_boite$ROUGE #
# $Z $DELETE $xTV/slab_boite$VERTE #
# $Z $DELETE $xTV/slab_boite$BLEUE #
# $Z $DELETE $xTV/slab_boite$RAYON #
# #
# $Z $DELETE $xTV/slab$COORD_X #
# $Z $DELETE $xTV/slab$COORD_Y #
# $Z $DELETE $xTV/slab$COORD_Z #
# $Z $DELETE $xTV/slab$ROUGE #
# $Z $DELETE $xTV/slab$VERTE #
# $Z $DELETE $xTV/slab$BLEUE #
# $Z $DELETE $xTV/slab$RAYON #
# #
# $Z SET Premiere=1 #
# $Z SET Derniere=100 #
# #
# $Z @ Nimages = $Derniere - $Premiere #
# $Z @ Nimages = $Nimages + 1 #
# #
# $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS #
# #
# $Z $CA $xiim/slab.XYZ \ #
# $Z | $AW ' { print $1 } ' \ #
# $Z > $xTV/slab$COORD_X #
# $Z $CA $xiim/slab.XYZ \ #
# $Z | $AW ' { print $2 } ' \ #
# $Z > $xTV/slab$COORD_Y #
# $Z $CA $xiim/slab.XYZ \ #
# $Z | $AW ' { print $3 } ' \ #
# $Z > $xTV/slab$COORD_Z #
# #
# $Z $CA $xTV/boite$COORD_X \ #
# $Z $xTV/slab$COORD_X \ #
# $Z > $xTV/slab_boite$COORD_X #
# $Z $CA $xTV/boite$COORD_Y \ #
# $Z $xTV/slab$COORD_Y \ #
# $Z > $xTV/slab_boite$COORD_Y #
# $Z $CA $xTV/boite$COORD_Z \ #
# $Z $xTV/slab$COORD_Z \ #
# $Z > $xTV/slab_boite$COORD_Z #
# #
# $c #define N0 Premiere #
# $c #define N Derniere #
# #
# $c int main() #
# $c { #
# $c int n; #
# #
# $c for (n=N0 ; n<=N ; n++) #
# $c { #
# $c printf("set NSpoints=`$WC $xiim/slab.XYZ`\n"); #
# $c printf("set NSpoints=$NSpoints[$WC1]\n"); #
# #
# $c printf("@ Npoints = $NBpoints + $NSpoints\n"); #
# #
# $c printf("$DELETE $xTV/slab$ROUGE\n"); #
# $c printf("$DELETE $xTV/slab$VERTE\n"); #
# $c printf("$DELETE $xTV/slab$BLEUE\n"); #
# $c printf("$DELETE $xTV/slab$RAYON\n"); #
# #
# $c printf("$CA $xiim/slab.%04d #
# $c | $AW ' { print $1 } ' #
# $c > $xTV/slab$ROUGE\n" #
# $c ,n #
# $c ); #
# $c printf("$xci/valeurs_inte$X #
# $c premiere=1 derniere=$NSpoints #
# $c vD=$NOIR vA=$NOIR #
# $c cubique=FAUX #
# $c > $xTV/slab$VERTE\n" #
# $c ,n #
# $c ); #
# $c printf("$CA $xiim/slab.%04d #
# $c | $AW ' { print $2 } ' #
# $c > $xTV/slab$BLEUE\n" #
# $c ,n #
# $c ); #
# $c printf("$CA $xiim/slab.%04d #
# $c | $AW ' { print $3 } ' #
# $c > $xTV/slab$RAYON\n" #
# $c ,n #
# $c ); #
# #
# $c printf("$DELETE $xTV/slab_boite$ROUGE\n"); #
# $c printf("$DELETE $xTV/slab_boite$VERTE\n"); #
# $c printf("$DELETE $xTV/slab_boite$BLEUE\n"); #
# $c printf("$DELETE $xTV/slab_boite$RAYON\n"); #
# #
# $c printf("$CA $xTV/boite$ROUGE #
# $c $xTV/slab$ROUGE #
# $c > $xTV/slab_boite$ROUGE\n" #
# $c ); #
# $c printf("$CA $xTV/boite$VERTE #
# $c $xTV/slab$VERTE #
# $c > $xTV/slab_boite$VERTE\n" #
# $c ); #
# $c printf("$CA $xTV/boite$BLEUE #
# $c $xTV/slab$BLEUE #
# $c > $xTV/slab_boite$BLEUE\n" #
# $c ); #
# $c printf("$CA $xTV/boite$RAYON #
# $c $xTV/slab$RAYON #
# $c > $xTV/slab_boite$RAYON\n" #
# $c ); #
# #
# $c printf("$xrv/particule.10$X #
# $c np=1 #
# $c iterations=$Npoints #
# $c N2=FAUX #
# $c BZ=0.5 #
# $c LISTE_X=$xTV/slab_boite$COORD_X #
# $c LISTE_Y=$xTV/slab_boite$COORD_Y #
# $c LISTE_Z=$xTV/slab_boite$COORD_Z #
# $c ARVB=0.5 BRVB=0.5 #
# $c LISTE_ROUGE=$xTV/slab_boite$ROUGE #
# $c LISTE_VERTE=$xTV/slab_boite$VERTE #
# $c LISTE_BLEUE=$xTV/slab_boite$BLEUE #
# $c Ar=0.00010 #
# $c LISTE_RAYON=$xTV/slab_boite$RAYON #
# $c Lz=1000 #
# $c ZOOM=0.8 #
# $c ROTATION_OX=-1.2 #
# $c ROTATION_OZ=+0.4 #
# $c R=$xTV/slab. #
# $c $formatI\n" #
# $c ); #
# #
# $c printf("$MV #
# $c $xTV/slab.0001$ROUGE #
# $c $xw1/xxxx.pmc/slab.1.%04d$ROUGE\n" #
# $c ,n #
# $c ); #
# $c printf("$MV #
# $c $xTV/slab.0001$VERTE #
# $c $xw1/xxxx.pmc/slab.1.%04d$VERTE\n" #
# $c ,n #
# $c ); #
# $c printf("$MV #
# $c $xTV/slab.0001$BLEUE #
# $c $xw1/xxxx.pmc/slab.1.%04d$BLEUE\n" #
# $c ,n #
# $c ); #
# $c } #
# $c } #
# #
# $Z $DELETE $xTV/slab$COORD_X #
# $Z $DELETE $xTV/slab$COORD_Y #
# $Z $DELETE $xTV/slab$COORD_Z #
# $Z $DELETE $xTV/slab$ROUGE #
# $Z $DELETE $xTV/slab$VERTE #
# $Z $DELETE $xTV/slab$BLEUE #
# $Z $DELETE $xTV/slab$RAYON #
# #
# $Z $DELETE $xTV/boite$COORD_X #
# $Z $DELETE $xTV/boite$COORD_Y #
# $Z $DELETE $xTV/boite$COORD_Z #
# $Z $DELETE $xTV/boite$ROUGE #
# $Z $DELETE $xTV/boite$VERTE #
# $Z $DELETE $xTV/boite$BLEUE #
# $Z $DELETE $xTV/boite$RAYON #
# #
# $Z $DELETE $xTV/slab_boite$COORD_X #
# $Z $DELETE $xTV/slab_boite$COORD_Y #
# $Z $DELETE $xTV/slab_boite$COORD_Z #
# $Z $DELETE $xTV/slab_boite$ROUGE #
# $Z $DELETE $xTV/slab_boite$VERTE #
# $Z $DELETE $xTV/slab_boite$BLEUE #
# $Z $DELETE $xTV/slab_boite$RAYON #
# #
# #
# Pal #
# #
# $xci/disk_video_P$Z $xw1/xxxx.pmc/slab.1. 001 100 RVB \ #
# 4 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
sequence 013857_013857
sequence 013858_014113
# Sequence generee par a partir du programme : #
# #
# $xu/SB.Santra/dissol2.11$f #
# #
# avec les parametres : #
# #
# parameter (cs=0.01) #
# #
# #
# $Z S #
# $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS #
# #
# $Z Std #
# #
# $Z $xci/message$X A=$xiio/NOIR \ #
# $Z anti_aliasing=VRAI \ #
# $Z centrer=VRAI \ #
# $Z message="TWO PARTICLES," \ #
# $Z Y=0.8 \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z anti_aliasing=VRAI \ #
# $Z centrer=VRAI \ #
# $Z message="CONSTANT DISSOLUTION," \ #
# $Z Y=0.7 \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z anti_aliasing=VRAI \ #
# $Z centrer=VRAI \ #
# $Z message="NO REDEPOSITION." \ #
# $Z Y=0.6 \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z anti_aliasing=VRAI \ #
# $Z centrer=VRAI \ #
# $Z message="Concentration of Strong Particles=01%" \ #
# $Z Y=0.1 \ #
# $Z R=$xw1/xxxx.pmc/TIT2.1.1.0001 \ #
# $Z $formatI #
# #
# $Z Sud #
# #
# $Z SET Premiere=0 #
# $Z SET Derniere=255 #
# #
# $Z @ Taille = $taille_Sud * 4 #
# #
# $X $xci/genere$X premiere=$Premiere derniere=$Derniere pas=1 \ #
# $X C='$CA \ #
# $X $xiim/DISS.%04d | \ #
# $X $xcg/extract$X \ #
# $X eliminer=4 \ #
# $X conserver=$Taille | \ #
# $X $xcg/float_Float$X \ #
# $X $formatI | \ #
# $X $xci/acces$X \ #
# $X standard=FAUX \ #
# $X zero=VRAI \ #
# $X $formatI | \ #
# $X $xci/format.01$X \ #
# $X $formatI \ #
# $X mode=0 \ #
# $X $formatR_Std | \ #
# $X $xci/vraies_C$X \ #
# $X p=$xiP/pmc.62 \ #
# $X RVB=VRAI \ #
# $X R=$xw1/xxxx.pmc/DIS2.1.1.%04d \ #
# $X $format_Std' #
# #
# $Z xiim #
# $Z $DELETE DISS.* #
# #
# #
# Std #
# #
# $xci/disk_video_P$Z $xw1/xxxx.pmc/TIT2.1.1. 0001 0001 $xiP/gris.01 \ #
# 4 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz FAUX VRAI FAUX #
# $xci/disk_video_P$Z $xw1/xxxx.pmc/DIS2.1.1. 0000 0255 RVB \ #
# 4 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz FAUX VRAI FAUX #
# #
sequence 014114_014114
sequence 014115_014370
# Sequence generee par a partir du programme : #
# #
# $xu/SB.Santra/dissol2.11$f #
# #
# avec les parametres : #
# #
# parameter (cs=0.04) #
# #
# #
# $Z S #
# $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS #
# #
# $Z Std #
# #
# $Z $xci/message$X A=$xiio/NOIR \ #
# $Z anti_aliasing=VRAI \ #
# $Z centrer=VRAI \ #
# $Z message="TWO PARTICLES," \ #
# $Z Y=0.8 \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z anti_aliasing=VRAI \ #
# $Z centrer=VRAI \ #
# $Z message="CONSTANT DISSOLUTION," \ #
# $Z Y=0.7 \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z anti_aliasing=VRAI \ #
# $Z centrer=VRAI \ #
# $Z message="NO REDEPOSITION." \ #
# $Z Y=0.6 \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z anti_aliasing=VRAI \ #
# $Z centrer=VRAI \ #
# $Z message="Concentration of Strong Particles=04%" \ #
# $Z Y=0.1 \ #
# $Z R=$xw1/xxxx.pmc/TIT2.1.4.0001 \ #
# $Z $formatI #
# #
# $Z Sud #
# #
# $Z SET Premiere=0 #
# $Z SET Derniere=255 #
# #
# $Z @ Taille = $taille_Sud * 4 #
# #
# $X $xci/genere$X premiere=$Premiere derniere=$Derniere pas=1 \ #
# $X C='$CA \ #
# $X $xiim/DISS.%04d | \ #
# $X $xcg/extract$X \ #
# $X eliminer=4 \ #
# $X conserver=$Taille | \ #
# $X $xcg/float_Float$X \ #
# $X $formatI | \ #
# $X $xci/acces$X \ #
# $X standard=FAUX \ #
# $X zero=VRAI \ #
# $X $formatI | \ #
# $X $xci/format.01$X \ #
# $X $formatI \ #
# $X mode=0 \ #
# $X $formatR_Std | \ #
# $X $xci/vraies_C$X \ #
# $X p=$xiP/pmc.62 \ #
# $X RVB=VRAI \ #
# $X R=$xw1/xxxx.pmc/DIS2.1.4.%04d \ #
# $X $format_Std' #
# #
# $Z xiim #
# $Z $DELETE DISS.* #
# #
# #
# Std #
# #
# $xci/disk_video_P$Z $xw1/xxxx.pmc/TIT2.1.4. 0001 0001 $xiP/gris.01 \ #
# 4 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz FAUX VRAI FAUX #
# $xci/disk_video_P$Z $xw1/xxxx.pmc/DIS2.1.4. 0000 0255 RVB \ #
# 4 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz FAUX VRAI FAUX #
# #
sequence 014371_014371
sequence 014372_014627
# Sequence generee par a partir du programme : #
# #
# $xu/SB.Santra/dissol2.11$f #
# #
# avec les parametres : #
# #
# parameter (cs=0.08) #
# #
# #
# $Z S #
# $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS #
# #
# $Z Std #
# #
# $Z $xci/message$X A=$xiio/NOIR \ #
# $Z anti_aliasing=VRAI \ #
# $Z centrer=VRAI \ #
# $Z message="TWO PARTICLES," \ #
# $Z Y=0.8 \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z anti_aliasing=VRAI \ #
# $Z centrer=VRAI \ #
# $Z message="CONSTANT DISSOLUTION," \ #
# $Z Y=0.7 \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z anti_aliasing=VRAI \ #
# $Z centrer=VRAI \ #
# $Z message="NO REDEPOSITION." \ #
# $Z Y=0.6 \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z anti_aliasing=VRAI \ #
# $Z centrer=VRAI \ #
# $Z message="Concentration of Strong Particles=08%" \ #
# $Z Y=0.1 \ #
# $Z R=$xw1/xxxx.pmc/TIT2.1.8.0001 \ #
# $Z $formatI #
# #
# $Z Sud #
# #
# $Z SET Premiere=0 #
# $Z SET Derniere=255 #
# #
# $Z @ Taille = $taille_Sud * 4 #
# #
# $X $xci/genere$X premiere=$Premiere derniere=$Derniere pas=1 \ #
# $X C='$CA \ #
# $X $xiim/DISS.%04d | \ #
# $X $xcg/extract$X \ #
# $X eliminer=4 \ #
# $X conserver=$Taille | \ #
# $X $xcg/float_Float$X \ #
# $X $formatI | \ #
# $X $xci/acces$X \ #
# $X standard=FAUX \ #
# $X zero=VRAI \ #
# $X $formatI | \ #
# $X $xci/format.01$X \ #
# $X $formatI \ #
# $X mode=0 \ #
# $X $formatR_Std | \ #
# $X $xci/vraies_C$X \ #
# $X p=$xiP/pmc.62 \ #
# $X RVB=VRAI \ #
# $X R=$xw1/xxxx.pmc/DIS2.1.8.%04d \ #
# $X $format_Std' #
# #
# $Z xiim #
# $Z $DELETE DISS.* #
# #
# #
# Std #
# #
# $xci/disk_video_P$Z $xw1/xxxx.pmc/TIT2.1.8. 0001 0001 $xiP/gris.01 \ #
# 4 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz FAUX VRAI FAUX #
# $xci/disk_video_P$Z $xw1/xxxx.pmc/DIS2.1.8. 0000 0255 RVB \ #
# 4 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz FAUX VRAI FAUX #
# #
sequence 014628_014628
sequence 014629_014884
# Sequence generee par a partir du programme : #
# #
# $xu/SB.Santra/dissol2.11$f #
# #
# avec les parametres : #
# #
# parameter (cs=0.16) #
# #
# #
# $Z S #
# $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS #
# #
# $Z Std #
# #
# $Z $xci/message$X A=$xiio/NOIR \ #
# $Z anti_aliasing=VRAI \ #
# $Z centrer=VRAI \ #
# $Z message="TWO PARTICLES," \ #
# $Z Y=0.8 \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z anti_aliasing=VRAI \ #
# $Z centrer=VRAI \ #
# $Z message="CONSTANT DISSOLUTION," \ #
# $Z Y=0.7 \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z anti_aliasing=VRAI \ #
# $Z centrer=VRAI \ #
# $Z message="NO REDEPOSITION." \ #
# $Z Y=0.6 \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z anti_aliasing=VRAI \ #
# $Z centrer=VRAI \ #
# $Z message="Concentration of Strong Particles=16%" \ #
# $Z Y=0.1 \ #
# $Z R=$xw1/xxxx.pmc/TIT2.1.G.0001 \ #
# $Z $formatI #
# #
# $Z Sud #
# #
# $Z SET Premiere=0 #
# $Z SET Derniere=255 #
# #
# $Z @ Taille = $taille_Sud * 4 #
# #
# $X $xci/genere$X premiere=$Premiere derniere=$Derniere pas=1 \ #
# $X C='$CA \ #
# $X $xiim/DISS.%04d | \ #
# $X $xcg/extract$X \ #
# $X eliminer=4 \ #
# $X conserver=$Taille | \ #
# $X $xcg/float_Float$X \ #
# $X $formatI | \ #
# $X $xci/acces$X \ #
# $X standard=FAUX \ #
# $X zero=VRAI \ #
# $X $formatI | \ #
# $X $xci/format.01$X \ #
# $X $formatI \ #
# $X mode=0 \ #
# $X $formatR_Std | \ #
# $X $xci/vraies_C$X \ #
# $X p=$xiP/pmc.62 \ #
# $X RVB=VRAI \ #
# $X R=$xw1/xxxx.pmc/DIS2.1.G.%04d \ #
# $X $format_Std' #
# #
# $Z xiim #
# $Z $DELETE DISS.* #
# #
# #
# Std #
# #
# $xci/disk_video_P$Z $xw1/xxxx.pmc/TIT2.1.G. 0001 0001 $xiP/gris.01 \ #
# 4 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz FAUX VRAI FAUX #
# $xci/disk_video_P$Z $xw1/xxxx.pmc/DIS2.1.G. 0000 0255 RVB \ #
# 4 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz FAUX VRAI FAUX #
# #
sequence 014885_014885
sequence 014886_015141
# Sequence generee par a partir du programme : #
# #
# $xu/SB.Santra/dissol2.11$f #
# #
# avec les parametres : #
# #
# parameter (cs=0.32) #
# #
# #
# $Z S #
# $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS #
# #
# $Z Std #
# #
# $Z $xci/message$X A=$xiio/NOIR \ #
# $Z anti_aliasing=VRAI \ #
# $Z centrer=VRAI \ #
# $Z message="TWO PARTICLES," \ #
# $Z Y=0.8 \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z anti_aliasing=VRAI \ #
# $Z centrer=VRAI \ #
# $Z message="CONSTANT DISSOLUTION," \ #
# $Z Y=0.7 \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z anti_aliasing=VRAI \ #
# $Z centrer=VRAI \ #
# $Z message="NO REDEPOSITION." \ #
# $Z Y=0.6 \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z anti_aliasing=VRAI \ #
# $Z centrer=VRAI \ #
# $Z message="Concentration of Strong Particles=32%" \ #
# $Z Y=0.1 \ #
# $Z R=$xw1/xxxx.pmc/TIT2.1.W.0001 \ #
# $Z $formatI #
# #
# $Z Sud #
# #
# $Z SET Premiere=0 #
# $Z SET Derniere=255 #
# #
# $Z @ Taille = $taille_Sud * 4 #
# #
# $X $xci/genere$X premiere=$Premiere derniere=$Derniere pas=1 \ #
# $X C='$CA \ #
# $X $xiim/DISS.%04d | \ #
# $X $xcg/extract$X \ #
# $X eliminer=4 \ #
# $X conserver=$Taille | \ #
# $X $xcg/float_Float$X \ #
# $X $formatI | \ #
# $X $xci/acces$X \ #
# $X standard=FAUX \ #
# $X zero=VRAI \ #
# $X $formatI | \ #
# $X $xci/format.01$X \ #
# $X $formatI \ #
# $X mode=0 \ #
# $X $formatR_Std | \ #
# $X $xci/vraies_C$X \ #
# $X p=$xiP/pmc.62 \ #
# $X RVB=VRAI \ #
# $X R=$xw1/xxxx.pmc/DIS2.1.W.%04d \ #
# $X $format_Std' #
# #
# $Z xiim #
# $Z $DELETE DISS.* #
# #
# #
# Std #
# #
# $xci/disk_video_P$Z $xw1/xxxx.pmc/TIT2.1.W. 0001 0001 $xiP/gris.01 \ #
# 4 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz FAUX VRAI FAUX #
# $xci/disk_video_P$Z $xw1/xxxx.pmc/DIS2.1.W. 0000 0255 RVB \ #
# 4 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz FAUX VRAI FAUX #
# #
sequence 015142_015142
sequence 015143_015654
# Sequence generee par a partir du programme : #
# #
# $xu/SB.Santra/dissol2.12$f #
# #
# avec les parametres : #
# #
# parameter (cs=0.01) #
# #
# #
# $Z S #
# $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS #
# #
# $Z Std #
# #
# $Z $xci/message$X A=$xiio/NOIR \ #
# $Z anti_aliasing=VRAI \ #
# $Z centrer=VRAI \ #
# $Z message="TWO PARTICLES," \ #
# $Z Y=0.8 \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z anti_aliasing=VRAI \ #
# $Z centrer=VRAI \ #
# $Z message="CONSTANT DISSOLUTION," \ #
# $Z Y=0.7 \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z anti_aliasing=VRAI \ #
# $Z centrer=VRAI \ #
# $Z message="REDEPOSITION PROPORTIONAL" \ #
# $Z Y=0.6 \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z anti_aliasing=VRAI \ #
# $Z centrer=VRAI \ #
# $Z message="TO THE CONCENTRATION OF LIQUID." \ #
# $Z Y=0.5 \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z anti_aliasing=VRAI \ #
# $Z centrer=VRAI \ #
# $Z message="Concentration of Strong Particles=01%" \ #
# $Z Y=0.1 \ #
# $Z R=$xw1/xxxx.pmc/TIT2.2.1.0001 \ #
# $Z $formatI #
# #
# $Z Sud #
# #
# $Z SET Premiere=0 #
# $Z SET Derniere=511 #
# #
# $Z @ Taille = $taille_Sud * 4 #
# #
# $X $xci/genere$X premiere=$Premiere derniere=$Derniere pas=1 \ #
# $X C='$CA \ #
# $X $xiim/DISS.%04d | \ #
# $X $xcg/extract$X \ #
# $X eliminer=4 \ #
# $X conserver=$Taille | \ #
# $X $xcg/float_Float$X \ #
# $X $formatI | \ #
# $X $xci/acces$X \ #
# $X standard=FAUX \ #
# $X zero=VRAI \ #
# $X $formatI | \ #
# $X $xci/format.01$X \ #
# $X $formatI \ #
# $X mode=0 \ #
# $X $formatR_Std | \ #
# $X $xci/vraies_C$X \ #
# $X p=$xiP/pmc.62 \ #
# $X RVB=VRAI \ #
# $X R=$xw1/xxxx.pmc/DIS2.2.1.%04d \ #
# $X $format_Std' #
# #
# $Z xiim #
# $Z $DELETE DISS.* #
# #
# #
# Std #
# #
# $xci/disk_video_P$Z $xw1/xxxx.pmc/TIT2.2.1. 0001 0001 $xiP/gris.01 \ #
# 4 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz FAUX VRAI FAUX #
# $xci/disk_video_P$Z $xw1/xxxx.pmc/DIS2.2.1. 0000 0511 RVB \ #
# 4 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz FAUX VRAI FAUX #
# #
sequence 015655_015655
sequence 015656_016167
# Sequence generee par a partir du programme : #
# #
# $xu/SB.Santra/dissol2.12$f #
# #
# avec les parametres : #
# #
# parameter (cs=0.04) #
# #
# #
# $Z S #
# $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS #
# #
# $Z Std #
# #
# $Z $xci/message$X A=$xiio/NOIR \ #
# $Z anti_aliasing=VRAI \ #
# $Z centrer=VRAI \ #
# $Z message="TWO PARTICLES," \ #
# $Z Y=0.8 \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z anti_aliasing=VRAI \ #
# $Z centrer=VRAI \ #
# $Z message="CONSTANT DISSOLUTION," \ #
# $Z Y=0.7 \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z anti_aliasing=VRAI \ #
# $Z centrer=VRAI \ #
# $Z message="REDEPOSITION PROPORTIONAL" \ #
# $Z Y=0.6 \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z anti_aliasing=VRAI \ #
# $Z centrer=VRAI \ #
# $Z message="TO THE CONCENTRATION OF LIQUID." \ #
# $Z Y=0.5 \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z anti_aliasing=VRAI \ #
# $Z centrer=VRAI \ #
# $Z message="Concentration of Strong Particles=04%" \ #
# $Z Y=0.1 \ #
# $Z R=$xw1/xxxx.pmc/TIT2.2.4.0001 \ #
# $Z $formatI #
# #
# $Z Sud #
# #
# $Z SET Premiere=0 #
# $Z SET Derniere=511 #
# #
# $Z @ Taille = $taille_Sud * 4 #
# #
# $X $xci/genere$X premiere=$Premiere derniere=$Derniere pas=1 \ #
# $X C='$CA \ #
# $X $xiim/DISS.%04d | \ #
# $X $xcg/extract$X \ #
# $X eliminer=4 \ #
# $X conserver=$Taille | \ #
# $X $xcg/float_Float$X \ #
# $X $formatI | \ #
# $X $xci/acces$X \ #
# $X standard=FAUX \ #
# $X zero=VRAI \ #
# $X $formatI | \ #
# $X $xci/format.01$X \ #
# $X $formatI \ #
# $X mode=0 \ #
# $X $formatR_Std | \ #
# $X $xci/vraies_C$X \ #
# $X p=$xiP/pmc.62 \ #
# $X RVB=VRAI \ #
# $X R=$xw1/xxxx.pmc/DIS2.2.4.%04d \ #
# $X $format_Std' #
# #
# $Z xiim #
# $Z $DELETE DISS.* #
# #
# #
# Std #
# #
# $xci/disk_video_P$Z $xw1/xxxx.pmc/TIT2.2.4. 0001 0001 $xiP/gris.01 \ #
# 4 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz FAUX VRAI FAUX #
# $xci/disk_video_P$Z $xw1/xxxx.pmc/DIS2.2.4. 0000 0511 RVB \ #
# 4 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz FAUX VRAI FAUX #
# #
sequence 016168_016168
sequence 016169_016680
# Sequence generee par a partir du programme : #
# #
# $xu/SB.Santra/dissol2.12$f #
# #
# avec les parametres : #
# #
# parameter (cs=0.08) #
# #
# #
# $Z S #
# $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS #
# #
# $Z Std #
# #
# $Z $xci/message$X A=$xiio/NOIR \ #
# $Z anti_aliasing=VRAI \ #
# $Z centrer=VRAI \ #
# $Z message="TWO PARTICLES," \ #
# $Z Y=0.8 \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z anti_aliasing=VRAI \ #
# $Z centrer=VRAI \ #
# $Z message="CONSTANT DISSOLUTION," \ #
# $Z Y=0.7 \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z anti_aliasing=VRAI \ #
# $Z centrer=VRAI \ #
# $Z message="REDEPOSITION PROPORTIONAL" \ #
# $Z Y=0.6 \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z anti_aliasing=VRAI \ #
# $Z centrer=VRAI \ #
# $Z message="TO THE CONCENTRATION OF LIQUID." \ #
# $Z Y=0.5 \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z anti_aliasing=VRAI \ #
# $Z centrer=VRAI \ #
# $Z message="Concentration of Strong Particles=08%" \ #
# $Z Y=0.1 \ #
# $Z R=$xw1/xxxx.pmc/TIT2.2.8.0001 \ #
# $Z $formatI #
# #
# $Z Sud #
# #
# $Z SET Premiere=0 #
# $Z SET Derniere=511 #
# #
# $Z @ Taille = $taille_Sud * 4 #
# #
# $X $xci/genere$X premiere=$Premiere derniere=$Derniere pas=1 \ #
# $X C='$CA \ #
# $X $xiim/DISS.%04d | \ #
# $X $xcg/extract$X \ #
# $X eliminer=4 \ #
# $X conserver=$Taille | \ #
# $X $xcg/float_Float$X \ #
# $X $formatI | \ #
# $X $xci/acces$X \ #
# $X standard=FAUX \ #
# $X zero=VRAI \ #
# $X $formatI | \ #
# $X $xci/format.01$X \ #
# $X $formatI \ #
# $X mode=0 \ #
# $X $formatR_Std | \ #
# $X $xci/vraies_C$X \ #
# $X p=$xiP/pmc.62 \ #
# $X RVB=VRAI \ #
# $X R=$xw1/xxxx.pmc/DIS2.2.8.%04d \ #
# $X $format_Std' #
# #
# $Z xiim #
# $Z $DELETE DISS.* #
# #
# #
# Std #
# #
# $xci/disk_video_P$Z $xw1/xxxx.pmc/TIT2.2.8. 0001 0001 $xiP/gris.01 \ #
# 4 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz FAUX VRAI FAUX #
# $xci/disk_video_P$Z $xw1/xxxx.pmc/DIS2.2.8. 0000 0511 RVB \ #
# 4 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz FAUX VRAI FAUX #
# #
sequence 016681_016681
sequence 016682_017193
# Sequence generee par a partir du programme : #
# #
# $xu/SB.Santra/dissol2.12$f #
# #
# avec les parametres : #
# #
# parameter (cs=0.16) #
# #
# #
# $Z S #
# $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS #
# #
# $Z Std #
# #
# $Z $xci/message$X A=$xiio/NOIR \ #
# $Z anti_aliasing=VRAI \ #
# $Z centrer=VRAI \ #
# $Z message="TWO PARTICLES," \ #
# $Z Y=0.8 \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z anti_aliasing=VRAI \ #
# $Z centrer=VRAI \ #
# $Z message="CONSTANT DISSOLUTION," \ #
# $Z Y=0.7 \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z anti_aliasing=VRAI \ #
# $Z centrer=VRAI \ #
# $Z message="REDEPOSITION PROPORTIONAL" \ #
# $Z Y=0.6 \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z anti_aliasing=VRAI \ #
# $Z centrer=VRAI \ #
# $Z message="TO THE CONCENTRATION OF LIQUID." \ #
# $Z Y=0.5 \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z anti_aliasing=VRAI \ #
# $Z centrer=VRAI \ #
# $Z message="Concentration of Strong Particles=16%" \ #
# $Z Y=0.1 \ #
# $Z R=$xw1/xxxx.pmc/TIT2.2.G.0001 \ #
# $Z $formatI #
# #
# $Z Sud #
# #
# $Z SET Premiere=0 #
# $Z SET Derniere=511 #
# #
# $Z @ Taille = $taille_Sud * 4 #
# #
# $X $xci/genere$X premiere=$Premiere derniere=$Derniere pas=1 \ #
# $X C='$CA \ #
# $X $xiim/DISS.%04d | \ #
# $X $xcg/extract$X \ #
# $X eliminer=4 \ #
# $X conserver=$Taille | \ #
# $X $xcg/float_Float$X \ #
# $X $formatI | \ #
# $X $xci/acces$X \ #
# $X standard=FAUX \ #
# $X zero=VRAI \ #
# $X $formatI | \ #
# $X $xci/format.01$X \ #
# $X $formatI \ #
# $X mode=0 \ #
# $X $formatR_Std | \ #
# $X $xci/vraies_C$X \ #
# $X p=$xiP/pmc.62 \ #
# $X RVB=VRAI \ #
# $X R=$xw1/xxxx.pmc/DIS2.2.G.%04d \ #
# $X $format_Std' #
# #
# $Z xiim #
# $Z $DELETE DISS.* #
# #
# #
# Std #
# #
# $xci/disk_video_P$Z $xw1/xxxx.pmc/TIT2.2.G. 0001 0001 $xiP/gris.01 \ #
# 4 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz FAUX VRAI FAUX #
# $xci/disk_video_P$Z $xw1/xxxx.pmc/DIS2.2.G. 0000 0511 RVB \ #
# 4 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz FAUX VRAI FAUX #
# #
sequence 017194_017194
sequence 017195_017706
# Sequence generee par a partir du programme : #
# #
# $xu/SB.Santra/dissol2.12$f #
# #
# avec les parametres : #
# #
# parameter (cs=0.32) #
# #
# #
# $Z S #
# $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS #
# #
# $Z Std #
# #
# $Z $xci/message$X A=$xiio/NOIR \ #
# $Z anti_aliasing=VRAI \ #
# $Z centrer=VRAI \ #
# $Z message="TWO PARTICLES," \ #
# $Z Y=0.8 \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z anti_aliasing=VRAI \ #
# $Z centrer=VRAI \ #
# $Z message="CONSTANT DISSOLUTION," \ #
# $Z Y=0.7 \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z anti_aliasing=VRAI \ #
# $Z centrer=VRAI \ #
# $Z message="REDEPOSITION PROPORTIONAL" \ #
# $Z Y=0.6 \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z anti_aliasing=VRAI \ #
# $Z centrer=VRAI \ #
# $Z message="TO THE CONCENTRATION OF LIQUID." \ #
# $Z Y=0.5 \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z anti_aliasing=VRAI \ #
# $Z centrer=VRAI \ #
# $Z message="Concentration of Strong Particles=32%" \ #
# $Z Y=0.1 \ #
# $Z R=$xw1/xxxx.pmc/TIT2.2.W.0001 \ #
# $Z $formatI #
# #
# $Z Sud #
# #
# $Z SET Premiere=0 #
# $Z SET Derniere=511 #
# #
# $Z @ Taille = $taille_Sud * 4 #
# #
# $X $xci/genere$X premiere=$Premiere derniere=$Derniere pas=1 \ #
# $X C='$CA \ #
# $X $xiim/DISS.%04d | \ #
# $X $xcg/extract$X \ #
# $X eliminer=4 \ #
# $X conserver=$Taille | \ #
# $X $xcg/float_Float$X \ #
# $X $formatI | \ #
# $X $xci/acces$X \ #
# $X standard=FAUX \ #
# $X zero=VRAI \ #
# $X $formatI | \ #
# $X $xci/format.01$X \ #
# $X $formatI \ #
# $X mode=0 \ #
# $X $formatR_Std | \ #
# $X $xci/vraies_C$X \ #
# $X p=$xiP/pmc.72 \ #
# $X RVB=VRAI \ #
# $X R=$xw1/xxxx.pmc/DIS2.2.W.%04d \ #
# $X $format_Std' #
# #
# $Z xiim #
# $Z $DELETE DISS.* #
# #
# #
# Std #
# #
# $xci/disk_video_P$Z $xw1/xxxx.pmc/TIT2.2.W. 0001 0001 $xiP/gris.01 \ #
# 4 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz FAUX VRAI FAUX #
# $xci/disk_video_P$Z $xw1/xxxx.pmc/DIS2.2.W. 0000 0511 RVB \ #
# 4 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz FAUX VRAI FAUX #
# #
sequence 017707_017707
sequence 017708_018219
# Sequence generee par a partir du programme : #
# #
# $xu/SB.Santra/dissol3.11$f #
# #
# avec les parametres : #
# #
# parameter (cs1=0.01,cs2=0.16) #
# #
# #
# $Z S #
# $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS #
# #
# $Z Std #
# #
# $Z $xci/message$X A=$xiio/NOIR \ #
# $Z anti_aliasing=VRAI \ #
# $Z centrer=VRAI \ #
# $Z message="THREE PARTICLES," \ #
# $Z Y=0.8 \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z anti_aliasing=VRAI \ #
# $Z centrer=VRAI \ #
# $Z message="CONSTANT DISSOLUTION," \ #
# $Z Y=0.7 \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z anti_aliasing=VRAI \ #
# $Z centrer=VRAI \ #
# $Z message="REDEPOSITION PROPORTIONAL" \ #
# $Z Y=0.6 \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z anti_aliasing=VRAI \ #
# $Z centrer=VRAI \ #
# $Z message="TO THE CONCENTRATION OF LIQUID." \ #
# $Z Y=0.5 \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z anti_aliasing=VRAI \ #
# $Z centrer=VRAI \ #
# $Z message="Concentration of Weak Particles=01%" \ #
# $Z Y=0.2 \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z anti_aliasing=VRAI \ #
# $Z centrer=VRAI \ #
# $Z message="Concentration of Strong Particles=16%" \ #
# $Z Y=0.1 \ #
# $Z R=$xw1/xxxx.pmc/TIT3.1.1G.0001 \ #
# $Z $formatI #
# #
# $Z Sud #
# #
# $Z SET Premiere=0 #
# $Z SET Derniere=511 #
# #
# $Z @ Taille = $taille_Sud * 4 #
# #
# $X $xci/genere$X premiere=$Premiere derniere=$Derniere pas=1 \ #
# $X C='$CA \ #
# $X $xiim/DISS.%04d | \ #
# $X $xcg/extract$X \ #
# $X eliminer=4 \ #
# $X conserver=$Taille | \ #
# $X $xcg/float_Float$X \ #
# $X $formatI | \ #
# $X $xci/acces$X \ #
# $X standard=FAUX \ #
# $X zero=VRAI \ #
# $X $formatI | \ #
# $X $xci/format.01$X \ #
# $X $formatI \ #
# $X mode=0 \ #
# $X $formatR_Std | \ #
# $X $xci/vraies_C$X \ #
# $X p=$xiP/pmc.63 \ #
# $X RVB=VRAI \ #
# $X R=$xw1/xxxx.pmc/DIS3.1.1G.%04d \ #
# $X $format_Std' #
# #
# $Z xiim #
# $Z $DELETE DISS.* #
# #
# #
# Std #
# #
# $xci/disk_video_P$Z $xw1/xxxx.pmc/TIT3.1.1G. 0001 0001 $xiP/gris.01 \ #
# 4 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz FAUX VRAI FAUX #
# $xci/disk_video_P$Z $xw1/xxxx.pmc/DIS3.1.1G. 0000 0511 RVB \ #
# 4 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz FAUX VRAI FAUX #
# #
sequence 018220_018220
sequence 018221_018732
# Sequence generee par a partir du programme : #
# #
# $xu/SB.Santra/dissol3.11$f #
# #
# avec les parametres : #
# #
# parameter (cs1=0.16,cs2=0.08) #
# #
# #
# $Z S #
# $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS #
# #
# $Z Std #
# #
# $Z $xci/message$X A=$xiio/NOIR \ #
# $Z anti_aliasing=VRAI \ #
# $Z centrer=VRAI \ #
# $Z message="THREE PARTICLES," \ #
# $Z Y=0.8 \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z anti_aliasing=VRAI \ #
# $Z centrer=VRAI \ #
# $Z message="CONSTANT DISSOLUTION," \ #
# $Z Y=0.7 \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z anti_aliasing=VRAI \ #
# $Z centrer=VRAI \ #
# $Z message="REDEPOSITION PROPORTIONAL" \ #
# $Z Y=0.6 \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z anti_aliasing=VRAI \ #
# $Z centrer=VRAI \ #
# $Z message="TO THE CONCENTRATION OF LIQUID." \ #
# $Z Y=0.5 \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z anti_aliasing=VRAI \ #
# $Z centrer=VRAI \ #
# $Z message="Concentration of Weak Particles=16%" \ #
# $Z Y=0.2 \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z anti_aliasing=VRAI \ #
# $Z centrer=VRAI \ #
# $Z message="Concentration of Strong Particles=08%" \ #
# $Z Y=0.1 \ #
# $Z R=$xw1/xxxx.pmc/TIT3.1.G8.0001 \ #
# $Z $formatI #
# #
# $Z Sud #
# #
# $Z SET Premiere=0 #
# $Z SET Derniere=511 #
# #
# $Z @ Taille = $taille_Sud * 4 #
# #
# $X $xci/genere$X premiere=$Premiere derniere=$Derniere pas=1 \ #
# $X C='$CA \ #
# $X $xiim/DISS.%04d | \ #
# $X $xcg/extract$X \ #
# $X eliminer=4 \ #
# $X conserver=$Taille | \ #
# $X $xcg/float_Float$X \ #
# $X $formatI | \ #
# $X $xci/acces$X \ #
# $X standard=FAUX \ #
# $X zero=VRAI \ #
# $X $formatI | \ #
# $X $xci/format.01$X \ #
# $X $formatI \ #
# $X mode=0 \ #
# $X $formatR_Std | \ #
# $X $xci/vraies_C$X \ #
# $X p=$xiP/pmc.73 \ #
# $X RVB=VRAI \ #
# $X R=$xw1/xxxx.pmc/DIS3.1.G8.%04d \ #
# $X $format_Std' #
# #
# $Z xiim #
# $Z $DELETE DISS.* #
# #
# #
# Std #
# #
# $xci/disk_video_P$Z $xw1/xxxx.pmc/TIT3.1.G8. 0001 0001 $xiP/gris.01 \ #
# 4 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz FAUX VRAI FAUX #
# $xci/disk_video_P$Z $xw1/xxxx.pmc/DIS3.1.G8. 0000 0511 RVB \ #
# 4 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz FAUX VRAI FAUX #
# #
sequence 018733_018733
sequence 018734_018888
# Sequence generee par a partir du programme : #
# #
# $xu/SB.Santra/dissol3.11$f #
# #
# avec les parametres : #
# #
# parameter (cs1=0.32,cs2=0.08) #
# #
# #
# $Z S #
# $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS #
# #
# $Z Std #
# #
# $Z $xci/message$X A=$xiio/NOIR \ #
# $Z anti_aliasing=VRAI \ #
# $Z centrer=VRAI \ #
# $Z message="THREE PARTICLES," \ #
# $Z Y=0.8 \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z anti_aliasing=VRAI \ #
# $Z centrer=VRAI \ #
# $Z message="CONSTANT DISSOLUTION," \ #
# $Z Y=0.7 \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z anti_aliasing=VRAI \ #
# $Z centrer=VRAI \ #
# $Z message="REDEPOSITION PROPORTIONAL" \ #
# $Z Y=0.6 \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z anti_aliasing=VRAI \ #
# $Z centrer=VRAI \ #
# $Z message="TO THE CONCENTRATION OF LIQUID." \ #
# $Z Y=0.5 \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z anti_aliasing=VRAI \ #
# $Z centrer=VRAI \ #
# $Z message="Concentration of Weak Particles=32%" \ #
# $Z Y=0.2 \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z anti_aliasing=VRAI \ #
# $Z centrer=VRAI \ #
# $Z message="Concentration of Strong Particles=08%" \ #
# $Z Y=0.1 \ #
# $Z R=$xw1/xxxx.pmc/TIT3.1.W8.0001 \ #
# $Z $formatI #
# #
# $Z Sud #
# #
# $Z SET Premiere=0 #
# $Z SET Derniere=154 #
# #
# $Z @ Taille = $taille_Sud * 4 #
# #
# $X $xci/genere$X premiere=$Premiere derniere=$Derniere pas=1 \ #
# $X C='$CA \ #
# $X $xiim/DISS.%04d | \ #
# $X $xcg/extract$X \ #
# $X eliminer=4 \ #
# $X conserver=$Taille | \ #
# $X $xcg/float_Float$X \ #
# $X $formatI | \ #
# $X $xci/acces$X \ #
# $X standard=FAUX \ #
# $X zero=VRAI \ #
# $X $formatI | \ #
# $X $xci/format.01$X \ #
# $X $formatI \ #
# $X mode=0 \ #
# $X $formatR_Std | \ #
# $X $xci/vraies_C$X \ #
# $X p=$xiP/pmc.73 \ #
# $X RVB=VRAI \ #
# $X R=$xw1/xxxx.pmc/DIS3.1.W8.%04d \ #
# $X $format_Std' #
# #
# $Z xiim #
# $Z $DELETE DISS.* #
# #
# #
# Std #
# #
# $xci/disk_video_P$Z $xw1/xxxx.pmc/TIT3.1.W8. 0001 0001 $xiP/gris.01 \ #
# 4 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz FAUX VRAI FAUX #
# $xci/disk_video_P$Z $xw1/xxxx.pmc/DIS3.1.W8. 0000 0154 RVB \ #
# 4 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz FAUX VRAI FAUX #
# #
sequence 018889_018889
sequence 018890_019046
# Sequence generee par a partir du programme : #
# #
# $xu/SB.Santra/dissol3.11$f #
# #
# avec les parametres : #
# #
# parameter (cs1=0.32,cs2=0.16) #
# #
# #
# $Z S #
# $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS #
# #
# $Z Std #
# #
# $Z $xci/message$X A=$xiio/NOIR \ #
# $Z anti_aliasing=VRAI \ #
# $Z centrer=VRAI \ #
# $Z message="THREE PARTICLES," \ #
# $Z Y=0.8 \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z anti_aliasing=VRAI \ #
# $Z centrer=VRAI \ #
# $Z message="CONSTANT DISSOLUTION," \ #
# $Z Y=0.7 \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z anti_aliasing=VRAI \ #
# $Z centrer=VRAI \ #
# $Z message="REDEPOSITION PROPORTIONAL" \ #
# $Z Y=0.6 \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z anti_aliasing=VRAI \ #
# $Z centrer=VRAI \ #
# $Z message="TO THE CONCENTRATION OF LIQUID." \ #
# $Z Y=0.5 \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z anti_aliasing=VRAI \ #
# $Z centrer=VRAI \ #
# $Z message="Concentration of Weak Particles=32%" \ #
# $Z Y=0.2 \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z anti_aliasing=VRAI \ #
# $Z centrer=VRAI \ #
# $Z message="Concentration of Strong Particles=16%" \ #
# $Z Y=0.1 \ #
# $Z R=$xw1/xxxx.pmc/TIT3.1.WG.0001 \ #
# $Z $formatI #
# #
# $Z Sud #
# #
# $Z SET Premiere=0 #
# $Z SET Derniere=156 #
# #
# $Z @ Taille = $taille_Sud * 4 #
# #
# $X $xci/genere$X premiere=$Premiere derniere=$Derniere pas=1 \ #
# $X C='$CA \ #
# $X $xiim/DISS.%04d | \ #
# $X $xcg/extract$X \ #
# $X eliminer=4 \ #
# $X conserver=$Taille | \ #
# $X $xcg/float_Float$X \ #
# $X $formatI | \ #
# $X $xci/acces$X \ #
# $X standard=FAUX \ #
# $X zero=VRAI \ #
# $X $formatI | \ #
# $X $xci/format.01$X \ #
# $X $formatI \ #
# $X mode=0 \ #
# $X $formatR_Std | \ #
# $X $xci/vraies_C$X \ #
# $X p=$xiP/pmc.73 \ #
# $X RVB=VRAI \ #
# $X R=$xw1/xxxx.pmc/DIS3.1.WG.%04d \ #
# $X $format_Std' #
# #
# $Z xiim #
# $Z $DELETE DISS.* #
# #
# #
# Std #
# #
# $xci/disk_video_P$Z $xw1/xxxx.pmc/TIT3.1.WG. 0001 0001 $xiP/gris.01 \ #
# 4 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz FAUX VRAI FAUX #
# $xci/disk_video_P$Z $xw1/xxxx.pmc/DIS3.1.WG. 0000 0156 RVB \ #
# 4 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz FAUX VRAI FAUX #
# #
sequence 019047_019047
sequence 019048_019200
# Sequence generee par a partir du programme : #
# #
# $xu/SB.Santra/dissol3.11$f #
# #
# avec les parametres : #
# #
# parameter (cs1=0.32,cs2=0.32) #
# #
# #
# $Z S #
# $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS #
# #
# $Z Std #
# #
# $Z $xci/message$X A=$xiio/NOIR \ #
# $Z anti_aliasing=VRAI \ #
# $Z centrer=VRAI \ #
# $Z message="THREE PARTICLES," \ #
# $Z Y=0.8 \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z anti_aliasing=VRAI \ #
# $Z centrer=VRAI \ #
# $Z message="CONSTANT DISSOLUTION," \ #
# $Z Y=0.7 \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z anti_aliasing=VRAI \ #
# $Z centrer=VRAI \ #
# $Z message="REDEPOSITION PROPORTIONAL" \ #
# $Z Y=0.6 \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z anti_aliasing=VRAI \ #
# $Z centrer=VRAI \ #
# $Z message="TO THE CONCENTRATION OF LIQUID." \ #
# $Z Y=0.5 \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z anti_aliasing=VRAI \ #
# $Z centrer=VRAI \ #
# $Z message="Concentration of Weak Particles=32%" \ #
# $Z Y=0.2 \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z anti_aliasing=VRAI \ #
# $Z centrer=VRAI \ #
# $Z message="Concentration of Strong Particles=32%" \ #
# $Z Y=0.1 \ #
# $Z R=$xw1/xxxx.pmc/TIT3.1.WW.0001 \ #
# $Z $formatI #
# #
# $Z Sud #
# #
# $Z SET Premiere=0 #
# $Z SET Derniere=152 #
# #
# $Z @ Taille = $taille_Sud * 4 #
# #
# $X $xci/genere$X premiere=$Premiere derniere=$Derniere pas=1 \ #
# $X C='$CA \ #
# $X $xiim/DISS.%04d | \ #
# $X $xcg/extract$X \ #
# $X eliminer=4 \ #
# $X conserver=$Taille | \ #
# $X $xcg/float_Float$X \ #
# $X $formatI | \ #
# $X $xci/acces$X \ #
# $X standard=FAUX \ #
# $X zero=VRAI \ #
# $X $formatI | \ #
# $X $xci/format.01$X \ #
# $X $formatI \ #
# $X mode=0 \ #
# $X $formatR_Std | \ #
# $X $xci/vraies_C$X \ #
# $X p=$xiP/pmc.73 \ #
# $X RVB=VRAI \ #
# $X R=$xw1/xxxx.pmc/DIS3.1.WW.%04d \ #
# $X $format_Std' #
# #
# $Z xiim #
# $Z $DELETE DISS.* #
# #
# #
# Std #
# #
# $xci/disk_video_P$Z $xw1/xxxx.pmc/TIT3.1.WW. 0001 0001 $xiP/gris.01 \ #
# 4 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz FAUX VRAI FAUX #
# $xci/disk_video_P$Z $xw1/xxxx.pmc/DIS3.1.WW. 0000 0152 RVB \ #
# 4 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz FAUX VRAI FAUX #
# #
sequence 019201_019201
sequence 019202_019713
# Sequence generee par a partir du programme : #
# #
# $xu/SB.Santra/dissol3.12$f #
# #
# avec les parametres : #
# #
# parameter (cs1=0.16,cs2=0.08) #
# #
# #
# $Z S #
# $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS #
# #
# $Z Std #
# #
# $Z $xci/message$X A=$xiio/NOIR \ #
# $Z anti_aliasing=VRAI \ #
# $Z centrer=VRAI \ #
# $Z message="THREE PARTICLES," \ #
# $Z Y=0.8 \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z anti_aliasing=VRAI \ #
# $Z centrer=VRAI \ #
# $Z message="DISSOLUTION DEPENDS ON" \ #
# $Z Y=0.7 \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z anti_aliasing=VRAI \ #
# $Z centrer=VRAI \ #
# $Z message="THE NEAREST NEIGHBORS," \ #
# $Z Y=0.6 \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z anti_aliasing=VRAI \ #
# $Z centrer=VRAI \ #
# $Z message="REDEPOSITION PROPORTIONAL" \ #
# $Z Y=0.5 \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z anti_aliasing=VRAI \ #
# $Z centrer=VRAI \ #
# $Z message="TO THE CONCENTRATION OF LIQUID." \ #
# $Z Y=0.4 \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z anti_aliasing=VRAI \ #
# $Z centrer=VRAI \ #
# $Z message="Concentration of Weak Particles=16%" \ #
# $Z Y=0.2 \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z anti_aliasing=VRAI \ #
# $Z centrer=VRAI \ #
# $Z message="Concentration of Strong Particles=08%" \ #
# $Z Y=0.1 \ #
# $Z R=$xw1/xxxx.pmc/TIT3.2.G8.0001 \ #
# $Z $formatI #
# #
# $Z Sud #
# #
# $Z SET Premiere=0 #
# $Z SET Derniere=511 #
# #
# $Z @ Taille = $taille_Sud * 4 #
# #
# $X $xci/genere$X premiere=$Premiere derniere=$Derniere pas=1 \ #
# $X C='$CA \ #
# $X $xiim/DISS.%04d | \ #
# $X $xcg/extract$X \ #
# $X eliminer=4 \ #
# $X conserver=$Taille | \ #
# $X $xcg/float_Float$X \ #
# $X $formatI | \ #
# $X $xci/acces$X \ #
# $X standard=FAUX \ #
# $X zero=VRAI \ #
# $X $formatI | \ #
# $X $xci/format.01$X \ #
# $X $formatI \ #
# $X mode=0 \ #
# $X $formatR_Std | \ #
# $X $xci/vraies_C$X \ #
# $X p=$xiP/pmc.73 \ #
# $X RVB=VRAI \ #
# $X R=$xw1/xxxx.pmc/DIS3.2.G8.%04d \ #
# $X $format_Std' #
# #
# $Z xiim #
# $Z $DELETE DISS.* #
# #
# #
# Std #
# #
# $xci/disk_video_P$Z $xw1/xxxx.pmc/TIT3.2.G8. 0001 0001 $xiP/gris.01 \ #
# 4 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz FAUX VRAI FAUX #
# $xci/disk_video_P$Z $xw1/xxxx.pmc/DIS3.2.G8. 0000 0511 RVB \ #
# 4 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz FAUX VRAI FAUX #
# #
sequence 019714_019714
sequence 019715_019876
# Sequence generee par a partir du programme : #
# #
# $xu/SB.Santra/dissol3.12$f #
# #
# avec les parametres : #
# #
# parameter (cs1=0.32,cs2=0.08) #
# #
# #
# $Z S #
# $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS #
# #
# $Z Std #
# #
# $Z $xci/message$X A=$xiio/NOIR \ #
# $Z anti_aliasing=VRAI \ #
# $Z centrer=VRAI \ #
# $Z message="THREE PARTICLES," \ #
# $Z Y=0.8 \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z anti_aliasing=VRAI \ #
# $Z centrer=VRAI \ #
# $Z message="DISSOLUTION DEPENDS ON" \ #
# $Z Y=0.7 \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z anti_aliasing=VRAI \ #
# $Z centrer=VRAI \ #
# $Z message="THE NEAREST NEIGHBORS," \ #
# $Z Y=0.6 \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z anti_aliasing=VRAI \ #
# $Z centrer=VRAI \ #
# $Z message="REDEPOSITION PROPORTIONAL" \ #
# $Z Y=0.5 \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z anti_aliasing=VRAI \ #
# $Z centrer=VRAI \ #
# $Z message="TO THE CONCENTRATION OF LIQUID." \ #
# $Z Y=0.4 \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z anti_aliasing=VRAI \ #
# $Z centrer=VRAI \ #
# $Z message="Concentration of Weak Particles=32%" \ #
# $Z Y=0.2 \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z anti_aliasing=VRAI \ #
# $Z centrer=VRAI \ #
# $Z message="Concentration of Strong Particles=08%" \ #
# $Z Y=0.1 \ #
# $Z R=$xw1/xxxx.pmc/TIT3.2.W8.0001 \ #
# $Z $formatI #
# #
# $Z Sud #
# #
# $Z SET Premiere=0 #
# $Z SET Derniere=161 #
# #
# $Z @ Taille = $taille_Sud * 4 #
# #
# $X $xci/genere$X premiere=$Premiere derniere=$Derniere pas=1 \ #
# $X C='$CA \ #
# $X $xiim/DISS.%04d | \ #
# $X $xcg/extract$X \ #
# $X eliminer=4 \ #
# $X conserver=$Taille | \ #
# $X $xcg/float_Float$X \ #
# $X $formatI | \ #
# $X $xci/acces$X \ #
# $X standard=FAUX \ #
# $X zero=VRAI \ #
# $X $formatI | \ #
# $X $xci/format.01$X \ #
# $X $formatI \ #
# $X mode=0 \ #
# $X $formatR_Std | \ #
# $X $xci/vraies_C$X \ #
# $X p=$xiP/pmc.73 \ #
# $X RVB=VRAI \ #
# $X R=$xw1/xxxx.pmc/DIS3.2.W8.%04d \ #
# $X $format_Std' #
# #
# $Z xiim #
# $Z $DELETE DISS.* #
# #
# #
# Std #
# #
# $xci/disk_video_P$Z $xw1/xxxx.pmc/TIT3.2.W8. 0001 0001 $xiP/gris.01 \ #
# 4 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz FAUX VRAI FAUX #
# $xci/disk_video_P$Z $xw1/xxxx.pmc/DIS3.2.W8. 0000 0161 RVB \ #
# 4 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz FAUX VRAI FAUX #
# #
sequence 019877_019877
sequence 019878_020061
# Sequence generee par a partir du programme : #
# #
# $xu/SB.Santra/dissol3.12$f #
# #
# avec les parametres : #
# #
# parameter (cs1=0.32,cs2=0.16) #
# #
# #
# $Z S #
# $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS #
# #
# $Z Std #
# #
# $Z $xci/message$X A=$xiio/NOIR \ #
# $Z anti_aliasing=VRAI \ #
# $Z centrer=VRAI \ #
# $Z message="THREE PARTICLES," \ #
# $Z Y=0.8 \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z anti_aliasing=VRAI \ #
# $Z centrer=VRAI \ #
# $Z message="DISSOLUTION DEPENDS ON" \ #
# $Z Y=0.7 \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z anti_aliasing=VRAI \ #
# $Z centrer=VRAI \ #
# $Z message="THE NEAREST NEIGHBORS," \ #
# $Z Y=0.6 \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z anti_aliasing=VRAI \ #
# $Z centrer=VRAI \ #
# $Z message="REDEPOSITION PROPORTIONAL" \ #
# $Z Y=0.5 \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z anti_aliasing=VRAI \ #
# $Z centrer=VRAI \ #
# $Z message="TO THE CONCENTRATION OF LIQUID." \ #
# $Z Y=0.4 \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z anti_aliasing=VRAI \ #
# $Z centrer=VRAI \ #
# $Z message="Concentration of Weak Particles=32%" \ #
# $Z Y=0.2 \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z anti_aliasing=VRAI \ #
# $Z centrer=VRAI \ #
# $Z message="Concentration of Strong Particles=16%" \ #
# $Z Y=0.1 \ #
# $Z R=$xw1/xxxx.pmc/TIT3.2.WG.0001 \ #
# $Z $formatI #
# #
# $Z Sud #
# #
# $Z SET Premiere=0 #
# $Z SET Derniere=183 #
# #
# $Z @ Taille = $taille_Sud * 4 #
# #
# $X $xci/genere$X premiere=$Premiere derniere=$Derniere pas=1 \ #
# $X C='$CA \ #
# $X $xiim/DISS.%04d | \ #
# $X $xcg/extract$X \ #
# $X eliminer=4 \ #
# $X conserver=$Taille | \ #
# $X $xcg/float_Float$X \ #
# $X $formatI | \ #
# $X $xci/acces$X \ #
# $X standard=FAUX \ #
# $X zero=VRAI \ #
# $X $formatI | \ #
# $X $xci/format.01$X \ #
# $X $formatI \ #
# $X mode=0 \ #
# $X $formatR_Std | \ #
# $X $xci/vraies_C$X \ #
# $X p=$xiP/pmc.73 \ #
# $X RVB=VRAI \ #
# $X R=$xw1/xxxx.pmc/DIS3.2.WG.%04d \ #
# $X $format_Std' #
# #
# $Z xiim #
# $Z $DELETE DISS.* #
# #
# #
# Std #
# #
# $xci/disk_video_P$Z $xw1/xxxx.pmc/TIT3.2.WG. 0001 0001 $xiP/gris.01 \ #
# 4 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz FAUX VRAI FAUX #
# $xci/disk_video_P$Z $xw1/xxxx.pmc/DIS3.2.WG. 0000 0183 RVB \ #
# 4 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz FAUX VRAI FAUX #
# #
sequence 020062_020062
sequence 020063_020328
# Sequence generee par a partir du programme : #
# #
# $xu/SB.Santra/dissol3.12$f #
# #
# avec les parametres : #
# #
# parameter (lx=2**8) #
# parameter (cs1=0.32,cs2=0.32) #
# #
# #
# $Z S #
# $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS #
# #
# $Z Std #
# #
# $Z $xci/message$X A=$xiio/NOIR \ #
# $Z anti_aliasing=VRAI \ #
# $Z centrer=VRAI \ #
# $Z message="THREE PARTICLES," \ #
# $Z Y=0.8 \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z anti_aliasing=VRAI \ #
# $Z centrer=VRAI \ #
# $Z message="DISSOLUTION DEPENDS ON" \ #
# $Z Y=0.7 \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z anti_aliasing=VRAI \ #
# $Z centrer=VRAI \ #
# $Z message="THE NEAREST NEIGHBORS," \ #
# $Z Y=0.6 \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z anti_aliasing=VRAI \ #
# $Z centrer=VRAI \ #
# $Z message="REDEPOSITION PROPORTIONAL" \ #
# $Z Y=0.5 \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z anti_aliasing=VRAI \ #
# $Z centrer=VRAI \ #
# $Z message="TO THE CONCENTRATION OF LIQUID." \ #
# $Z Y=0.4 \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z anti_aliasing=VRAI \ #
# $Z centrer=VRAI \ #
# $Z message="Concentration of Weak Particles=32%" \ #
# $Z Y=0.2 \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z anti_aliasing=VRAI \ #
# $Z centrer=VRAI \ #
# $Z message="Concentration of Strong Particles=32%" \ #
# $Z Y=0.1 \ #
# $Z R=$xw1/xxxx.pmc/TIT3.2.WW.0001 \ #
# $Z $formatI #
# #
# $Z Sud #
# #
# $Z SET Premiere=0 #
# $Z SET Derniere=265 #
# #
# $Z @ Taille = $taille_Sud * 4 #
# #
# $X $xci/genere$X premiere=$Premiere derniere=$Derniere pas=1 \ #
# $X C='$CA \ #
# $X $xiim/DISS.%04d | \ #
# $X $xcg/extract$X \ #
# $X eliminer=4 \ #
# $X conserver=$Taille | \ #
# $X $xcg/float_Float$X \ #
# $X $formatI | \ #
# $X $xci/acces$X \ #
# $X standard=FAUX \ #
# $X zero=VRAI \ #
# $X $formatI | \ #
# $X $xci/format.01$X \ #
# $X $formatI \ #
# $X mode=0 \ #
# $X $formatR_Std | \ #
# $X $xci/vraies_C$X \ #
# $X p=$xiP/pmc.73 \ #
# $X RVB=VRAI \ #
# $X R=$xw1/xxxx.pmc/DIS3.2.WW.%04d \ #
# $X $format_Std' #
# #
# $Z xiim #
# $Z $DELETE DISS.* #
# #
# #
# Std #
# #
# $xci/disk_video_P$Z $xw1/xxxx.pmc/TIT3.2.WW. 0001 0001 $xiP/gris.01 \ #
# 4 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz FAUX VRAI FAUX #
# $xci/disk_video_P$Z $xw1/xxxx.pmc/DIS3.2.WW. 0000 0265 RVB \ #
# 4 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz FAUX VRAI FAUX #
# #
sequence 020329_020428
# Sequence generee par le programme '$xu/M.Plapp/abv3col.12$c' sur '$LACT29' : #
# #
# #
# $Z Pal #
# #
# $Z $DELETE $xTV/boite$COORD_X #
# $Z $DELETE $xTV/boite$COORD_Y #
# $Z $DELETE $xTV/boite$COORD_Z #
# $Z $DELETE $xTV/boite$ROUGE #
# $Z $DELETE $xTV/boite$VERTE #
# $Z $DELETE $xTV/boite$BLEUE #
# $Z $DELETE $xTV/boite$RAYON #
# #
# $Z set points0=0 #
# $Z set pointsN=39 #
# $Z @ NBpoints = $pointsN - $points0 #
# $Z @ NBpoints = $NBpoints + 1 #
# $Z @ NBpoints = $NBpoints * 12 #
# $Z set Rpoints=$GRIS #
# $Z set Vpoints=$GRIS #
# $Z set Bpoints=$GRIS #
# $Z set rpoints=200 #
# #
# $Z alias genere 'set vD=\!:1 ; set vA=\!:2 ; set FiLe=\!:3 ; \\ #
# $Z $xci/valeurs_inte$X \\ #
# $Z premiere=$points0 derniere=$pointsN \\ #
# $Z vD=$vD vA=$vA \\ #
# $Z cubique=FAUX \\ #
# $Z >>! $FiLe ; \\ #
# $Z unset vD vA FiLe' #
# #
# $Z genere +0.25 +0.75 $xTV/boite$COORD_X #
# $Z genere +0.25 +0.25 $xTV/boite$COORD_Y #
# $Z genere -0.50 -0.50 $xTV/boite$COORD_Z #
# $Z genere $Rpoints $Rpoints $xTV/boite$ROUGE #
# $Z genere $Rpoints $Rpoints $xTV/boite$VERTE #
# $Z genere $Rpoints $Rpoints $xTV/boite$BLEUE #
# $Z genere $rpoints $rpoints $xTV/boite$RAYON #
# #
# $Z genere +0.75 +0.75 $xTV/boite$COORD_X #
# $Z genere +0.25 +0.75 $xTV/boite$COORD_Y #
# $Z genere -0.50 -0.50 $xTV/boite$COORD_Z #
# $Z genere $Rpoints $Rpoints $xTV/boite$ROUGE #
# $Z genere $Rpoints $Rpoints $xTV/boite$VERTE #
# $Z genere $Rpoints $Rpoints $xTV/boite$BLEUE #
# $Z genere $rpoints $rpoints $xTV/boite$RAYON #
# #
# $Z genere +0.75 +0.25 $xTV/boite$COORD_X #
# $Z genere +0.75 +0.75 $xTV/boite$COORD_Y #
# $Z genere -0.50 -0.50 $xTV/boite$COORD_Z #
# $Z genere $Rpoints $Rpoints $xTV/boite$ROUGE #
# $Z genere $Rpoints $Rpoints $xTV/boite$VERTE #
# $Z genere $Rpoints $Rpoints $xTV/boite$BLEUE #
# $Z genere $rpoints $rpoints $xTV/boite$RAYON #
# #
# $Z genere +0.25 +0.25 $xTV/boite$COORD_X #
# $Z genere +0.75 +0.25 $xTV/boite$COORD_Y #
# $Z genere -0.50 -0.50 $xTV/boite$COORD_Z #
# $Z genere $Rpoints $Rpoints $xTV/boite$ROUGE #
# $Z genere $Rpoints $Rpoints $xTV/boite$VERTE #
# $Z genere $Rpoints $Rpoints $xTV/boite$BLEUE #
# $Z genere $rpoints $rpoints $xTV/boite$RAYON #
# #
# $Z genere +0.25 +0.75 $xTV/boite$COORD_X #
# $Z genere +0.25 +0.25 $xTV/boite$COORD_Y #
# $Z genere +0.50 +0.50 $xTV/boite$COORD_Z #
# $Z genere $Rpoints $Rpoints $xTV/boite$ROUGE #
# $Z genere $Rpoints $Rpoints $xTV/boite$VERTE #
# $Z genere $Rpoints $Rpoints $xTV/boite$BLEUE #
# $Z genere $rpoints $rpoints $xTV/boite$RAYON #
# #
# $Z genere +0.75 +0.75 $xTV/boite$COORD_X #
# $Z genere +0.25 +0.75 $xTV/boite$COORD_Y #
# $Z genere +0.50 +0.50 $xTV/boite$COORD_Z #
# $Z genere $Rpoints $Rpoints $xTV/boite$ROUGE #
# $Z genere $Rpoints $Rpoints $xTV/boite$VERTE #
# $Z genere $Rpoints $Rpoints $xTV/boite$BLEUE #
# $Z genere $rpoints $rpoints $xTV/boite$RAYON #
# #
# $Z genere +0.75 +0.25 $xTV/boite$COORD_X #
# $Z genere +0.75 +0.75 $xTV/boite$COORD_Y #
# $Z genere +0.50 +0.50 $xTV/boite$COORD_Z #
# $Z genere $Rpoints $Rpoints $xTV/boite$ROUGE #
# $Z genere $Rpoints $Rpoints $xTV/boite$VERTE #
# $Z genere $Rpoints $Rpoints $xTV/boite$BLEUE #
# $Z genere $rpoints $rpoints $xTV/boite$RAYON #
# #
# $Z genere +0.25 +0.25 $xTV/boite$COORD_X #
# $Z genere +0.75 +0.25 $xTV/boite$COORD_Y #
# $Z genere +0.50 +0.50 $xTV/boite$COORD_Z #
# $Z genere $Rpoints $Rpoints $xTV/boite$ROUGE #
# $Z genere $Rpoints $Rpoints $xTV/boite$VERTE #
# $Z genere $Rpoints $Rpoints $xTV/boite$BLEUE #
# $Z genere $rpoints $rpoints $xTV/boite$RAYON #
# #
# $Z genere +0.25 +0.25 $xTV/boite$COORD_X #
# $Z genere +0.25 +0.25 $xTV/boite$COORD_Y #
# $Z genere -0.50 +0.50 $xTV/boite$COORD_Z #
# $Z genere $Rpoints $Rpoints $xTV/boite$ROUGE #
# $Z genere $Rpoints $Rpoints $xTV/boite$VERTE #
# $Z genere $Rpoints $Rpoints $xTV/boite$BLEUE #
# $Z genere $rpoints $rpoints $xTV/boite$RAYON #
# #
# $Z genere +0.75 +0.75 $xTV/boite$COORD_X #
# $Z genere +0.25 +0.25 $xTV/boite$COORD_Y #
# $Z genere -0.50 +0.50 $xTV/boite$COORD_Z #
# $Z genere $Rpoints $Rpoints $xTV/boite$ROUGE #
# $Z genere $Rpoints $Rpoints $xTV/boite$VERTE #
# $Z genere $Rpoints $Rpoints $xTV/boite$BLEUE #
# $Z genere $rpoints $rpoints $xTV/boite$RAYON #
# #
# $Z genere +0.75 +0.75 $xTV/boite$COORD_X #
# $Z genere +0.75 +0.75 $xTV/boite$COORD_Y #
# $Z genere -0.50 +0.50 $xTV/boite$COORD_Z #
# $Z genere $Rpoints $Rpoints $xTV/boite$ROUGE #
# $Z genere $Rpoints $Rpoints $xTV/boite$VERTE #
# $Z genere $Rpoints $Rpoints $xTV/boite$BLEUE #
# $Z genere $rpoints $rpoints $xTV/boite$RAYON #
# #
# $Z genere +0.25 +0.25 $xTV/boite$COORD_X #
# $Z genere +0.75 +0.75 $xTV/boite$COORD_Y #
# $Z genere -0.50 +0.50 $xTV/boite$COORD_Z #
# $Z genere $Rpoints $Rpoints $xTV/boite$ROUGE #
# $Z genere $Rpoints $Rpoints $xTV/boite$VERTE #
# $Z genere $Rpoints $Rpoints $xTV/boite$BLEUE #
# $Z genere $rpoints $rpoints $xTV/boite$RAYON #
# #
# $Z $DELETE $xTV/slab_boite$COORD_X #
# $Z $DELETE $xTV/slab_boite$COORD_Y #
# $Z $DELETE $xTV/slab_boite$COORD_Z #
# $Z $DELETE $xTV/slab_boite$ROUGE #
# $Z $DELETE $xTV/slab_boite$VERTE #
# $Z $DELETE $xTV/slab_boite$BLEUE #
# $Z $DELETE $xTV/slab_boite$RAYON #
# #
# $Z $DELETE $xTV/slab$COORD_X #
# $Z $DELETE $xTV/slab$COORD_Y #
# $Z $DELETE $xTV/slab$COORD_Z #
# $Z $DELETE $xTV/slab$ROUGE #
# $Z $DELETE $xTV/slab$VERTE #
# $Z $DELETE $xTV/slab$BLEUE #
# $Z $DELETE $xTV/slab$RAYON #
# #
# $Z SET Premiere=1 #
# $Z SET Derniere=100 #
# #
# $Z @ Nimages = $Derniere - $Premiere #
# $Z @ Nimages = $Nimages + 1 #
# #
# $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS #
# #
# $Z $CA $xiim/couche.XYZ \ #
# $Z | $AW ' { print $1 } ' \ #
# $Z > $xTV/slab$COORD_X #
# $Z $CA $xiim/couche.XYZ \ #
# $Z | $AW ' { print $2 } ' \ #
# $Z > $xTV/slab$COORD_Y #
# $Z $CA $xiim/couche.XYZ \ #
# $Z | $AW ' { print $3 } ' \ #
# $Z > $xTV/slab$COORD_Z #
# #
# $Z $CA $xTV/boite$COORD_X \ #
# $Z $xTV/slab$COORD_X \ #
# $Z > $xTV/slab_boite$COORD_X #
# $Z $CA $xTV/boite$COORD_Y \ #
# $Z $xTV/slab$COORD_Y \ #
# $Z > $xTV/slab_boite$COORD_Y #
# $Z $CA $xTV/boite$COORD_Z \ #
# $Z $xTV/slab$COORD_Z \ #
# $Z > $xTV/slab_boite$COORD_Z #
# #
# $c #define N0 Premiere #
# $c #define N Derniere #
# #
# $c int main() #
# $c { #
# $c int n; #
# #
# $c for (n=N0 ; n<=N ; n++) #
# $c { #
# $c printf("set NSpoints=`$WC $xiim/couche.XYZ`\n"); #
# $c printf("set NSpoints=$NSpoints[$WC1]\n"); #
# #
# $c printf("@ Npoints = $NBpoints + $NSpoints\n"); #
# #
# $c printf("$DELETE $xTV/slab$ROUGE\n"); #
# $c printf("$DELETE $xTV/slab$VERTE\n"); #
# $c printf("$DELETE $xTV/slab$BLEUE\n"); #
# $c printf("$DELETE $xTV/slab$RAYON\n"); #
# #
# $c printf("$CA $xiim/couche.%04d #
# $c | $AW ' { print $1 } ' #
# $c > $xTV/slab$ROUGE\n" #
# $c ,n #
# $c ); #
# $c printf("$xci/valeurs_inte$X #
# $c premiere=1 derniere=$NSpoints #
# $c vD=$NOIR vA=$NOIR #
# $c cubique=FAUX #
# $c > $xTV/slab$VERTE\n" #
# $c ,n #
# $c ); #
# $c printf("$CA $xiim/couche.%04d #
# $c | $AW ' { print $2 } ' #
# $c > $xTV/slab$BLEUE\n" #
# $c ,n #
# $c ); #
# $c printf("$CA $xiim/couche.%04d #
# $c | $AW ' { print $3 } ' #
# $c > $xTV/slab$RAYON\n" #
# $c ,n #
# $c ); #
# #
# $c printf("$DELETE $xTV/slab_boite$ROUGE\n"); #
# $c printf("$DELETE $xTV/slab_boite$VERTE\n"); #
# $c printf("$DELETE $xTV/slab_boite$BLEUE\n"); #
# $c printf("$DELETE $xTV/slab_boite$RAYON\n"); #
# #
# $c printf("$CA $xTV/boite$ROUGE #
# $c $xTV/slab$ROUGE #
# $c > $xTV/slab_boite$ROUGE\n" #
# $c ); #
# $c printf("$CA $xTV/boite$VERTE #
# $c $xTV/slab$VERTE #
# $c > $xTV/slab_boite$VERTE\n" #
# $c ); #
# $c printf("$CA $xTV/boite$BLEUE #
# $c $xTV/slab$BLEUE #
# $c > $xTV/slab_boite$BLEUE\n" #
# $c ); #
# $c printf("$CA $xTV/boite$RAYON #
# $c $xTV/slab$RAYON #
# $c > $xTV/slab_boite$RAYON\n" #
# $c ); #
# #
# $c printf("$xrv/particule.10$X #
# $c np=1 #
# $c iterations=$Npoints #
# $c N2=FAUX #
# $c BZ=0.5 #
# $c LISTE_X=$xTV/slab_boite$COORD_X #
# $c LISTE_Y=$xTV/slab_boite$COORD_Y #
# $c LISTE_Z=$xTV/slab_boite$COORD_Z #
# $c ARVB=0.5 BRVB=0.5 #
# $c LISTE_ROUGE=$xTV/slab_boite$ROUGE #
# $c LISTE_VERTE=$xTV/slab_boite$VERTE #
# $c LISTE_BLEUE=$xTV/slab_boite$BLEUE #
# $c Ar=0.00010 #
# $c LISTE_RAYON=$xTV/slab_boite$RAYON #
# $c Lz=1000 #
# $c ZOOM=0.8 #
# $c ROTATION_OX=-1.2 #
# $c ROTATION_OZ=+0.4 #
# $c R=$xTV/slab. #
# $c $formatI\n" #
# $c ); #
# #
# $c printf("$MV #
# $c $xTV/slab.0001$ROUGE #
# $c $xw1/xxxx.pmc/slab.2.%04d$ROUGE\n" #
# $c ,n #
# $c ); #
# $c printf("$MV #
# $c $xTV/slab.0001$VERTE #
# $c $xw1/xxxx.pmc/slab.2.%04d$VERTE\n" #
# $c ,n #
# $c ); #
# $c printf("$MV #
# $c $xTV/slab.0001$BLEUE #
# $c $xw1/xxxx.pmc/slab.2.%04d$BLEUE\n" #
# $c ,n #
# $c ); #
# $c } #
# $c } #
# #
# $Z $DELETE $xTV/slab$COORD_X #
# $Z $DELETE $xTV/slab$COORD_Y #
# $Z $DELETE $xTV/slab$COORD_Z #
# $Z $DELETE $xTV/slab$ROUGE #
# $Z $DELETE $xTV/slab$VERTE #
# $Z $DELETE $xTV/slab$BLEUE #
# $Z $DELETE $xTV/slab$RAYON #
# #
# $Z $DELETE $xTV/boite$COORD_X #
# $Z $DELETE $xTV/boite$COORD_Y #
# $Z $DELETE $xTV/boite$COORD_Z #
# $Z $DELETE $xTV/boite$ROUGE #
# $Z $DELETE $xTV/boite$VERTE #
# $Z $DELETE $xTV/boite$BLEUE #
# $Z $DELETE $xTV/boite$RAYON #
# #
# $Z $DELETE $xTV/slab_boite$COORD_X #
# $Z $DELETE $xTV/slab_boite$COORD_Y #
# $Z $DELETE $xTV/slab_boite$COORD_Z #
# $Z $DELETE $xTV/slab_boite$ROUGE #
# $Z $DELETE $xTV/slab_boite$VERTE #
# $Z $DELETE $xTV/slab_boite$BLEUE #
# $Z $DELETE $xTV/slab_boite$RAYON #
# #
# #
# Pal #
# #
# $xci/disk_video_P$Z $xw1/xxxx.pmc/slab.2. 001 100 RVB \ #
# 4 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
sequence 020429_020929
# Sequence generee par : #
# #
# #
# $Z S #
# $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS #
# #
# $Z SET Cnoir=$NOIR #
# $Z SET Cblanc=$BLANC #
# #
# $Z $DELETE $xT/Pale #
# #
# #
# $c #define NOIR Cnoir #
# $c #define BLANC Cblanc #
# #
# $c int main() #
# $c { #
# $c int i,j; #
# $c int red,green,blue; #
# $c int niveau=NOIR; #
# #
# $c for (i=0 ; i<21 ; i++) #
# $c { #
# $c for (j=0 ; j<i ; j++) #
# $c { #
# $c red=(j*3250)/BLANC; #
# $c green=((i-j)*3250)/BLANC; #
# $c blue=((20-i)*3250)/BLANC; #
# $c printf("echo %02x %02x %02x >>! $xT/Pale\n" #
# $c ,red,green,blue #
# $c ); #
# $c niveau++; #
# $c } #
# $c } #
# #
# $c while (niveau<=BLANC) #
# $c { #
# $c printf("echo %02x %02x %02x >>! $xT/Pale\n" #
# $c ,red,green,blue #
# $c ); #
# $c niveau++; #
# $c } #
# $c } #
# #
# #
# $Z $DELETE $xTV/cible$ROUGE #
# $Z $DELETE $xTV/cible$VERTE #
# $Z $DELETE $xTV/cible$BLEUE #
# #
# $Z $CA $xT/Pale \ #
# $Z | $AW ' { print $1 } ' \ #
# $Z | $xcg/anti_dumpX$X \ #
# $Z > $xTV/cible$ROUGE #
# $Z $CA $xT/Pale \ #
# $Z | $AW ' { print $2 } ' \ #
# $Z | $xcg/anti_dumpX$X \ #
# $Z > $xTV/cible$VERTE #
# $Z $CA $xT/Pale \ #
# $Z | $AW ' { print $3 } ' \ #
# $Z | $xcg/anti_dumpX$X \ #
# $Z > $xTV/cible$BLEUE #
# #
# $Z $DELETE $xT/Pale #
# #
# #
# $Z SET Nimages=501 #
# #
# $Z Suq #
# #
# #
# $c #define N0 1 #
# $c #define N Nimages #
# #
# $c int main() #
# $c { #
# $c int n; #
# #
# $c for (n=N0 ; n<=N ; n++) #
# $c { #
# $c printf("$xci/vraies_C$X #
# $c A=$xw1/xxxx.pmc/cible.%04d #
# $c p=$xTV/cible #
# $c RVB=VRAI #
# $c R=$xw1/xxxx.pmc/cible.%04d #
# $c $formatI\n" #
# $c ,n,n #
# $c ); #
# $c printf("$xci/format.01$X #
# $c A=$xw1/xxxx.pmc/cible.%04d$ROUGE #
# $c mode=0 #
# $c $formatI #
# $c R=$xw1/xxxx.pmc/cible.%04d$ROUGE #
# $c $formatR_Std\n" #
# $c ,n,n #
# $c ); #
# $c printf("$xci/format.01$X #
# $c A=$xw1/xxxx.pmc/cible.%04d$VERTE #
# $c mode=0 #
# $c $formatI #
# $c R=$xw1/xxxx.pmc/cible.%04d$VERTE #
# $c $formatR_Std\n" #
# $c ,n,n #
# $c ); #
# $c printf("$xci/format.01$X #
# $c A=$xw1/xxxx.pmc/cible.%04d$BLEUE #
# $c mode=0 #
# $c $formatI #
# $c R=$xw1/xxxx.pmc/cible.%04d$BLEUE #
# $c $formatR_Std\n" #
# $c ,n,n #
# $c ); #
# $c } #
# $c } #
# #
# #
# Std #
# #
# $xci/disk_video_P$Z $xw1/xxxx.pmc/cible. 001 501 RVB \ #
# 4 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz FAUX VRAI FAUX #
# #
sequence 020930_021230
# Sequence generee par : #
# #
# #
# $Z S #
# $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS #
# #
# $Z SET Cnoir=$NOIR #
# $Z SET Cblanc=$BLANC #
# #
# $Z $DELETE $xT/Pale #
# #
# #
# $c #define NOIR Cnoir #
# $c #define BLANC Cblanc #
# #
# $c int main() #
# $c { #
# $c int i,j; #
# $c int red,green,blue; #
# $c int niveau=NOIR; #
# #
# $c for (i=0 ; i<21 ; i++) #
# $c { #
# $c for (j=0 ; j<i ; j++) #
# $c { #
# $c red=(j*3250)/BLANC; #
# $c green=((i-j)*3250)/BLANC; #
# $c blue=((20-i)*3250)/BLANC; #
# $c printf("echo %02x %02x %02x >>! $xT/Pale\n" #
# $c ,red,green,blue #
# $c ); #
# $c niveau++; #
# $c } #
# $c } #
# #
# $c while (niveau<=BLANC) #
# $c { #
# $c printf("echo %02x %02x %02x >>! $xT/Pale\n" #
# $c ,red,green,blue #
# $c ); #
# $c niveau++; #
# $c } #
# $c } #
# #
# #
# $Z $DELETE $xTV/eclat$ROUGE #
# $Z $DELETE $xTV/eclat$VERTE #
# $Z $DELETE $xTV/eclat$BLEUE #
# #
# $Z $CA $xT/Pale \ #
# $Z | $AW ' { print $1 } ' \ #
# $Z | $xcg/anti_dumpX$X \ #
# $Z > $xTV/eclat$ROUGE #
# $Z $CA $xT/Pale \ #
# $Z | $AW ' { print $2 } ' \ #
# $Z | $xcg/anti_dumpX$X \ #
# $Z > $xTV/eclat$VERTE #
# $Z $CA $xT/Pale \ #
# $Z | $AW ' { print $3 } ' \ #
# $Z | $xcg/anti_dumpX$X \ #
# $Z > $xTV/eclat$BLEUE #
# #
# $Z $DELETE $xT/Pale #
# #
# #
# $Z SET Nimages=301 #
# #
# $Z Suq #
# #
# #
# $c #define N0 1 #
# $c #define N Nimages #
# #
# $c int main() #
# $c { #
# $c int n; #
# #
# $c for (n=N0 ; n<=N ; n++) #
# $c { #
# $c printf("$xci/vraies_C$X #
# $c A=$xw1/xxxx.pmc/eclat.%04d #
# $c p=$xTV/eclat #
# $c RVB=VRAI #
# $c R=$xw1/xxxx.pmc/eclat.%04d #
# $c $formatI\n" #
# $c ,n,n #
# $c ); #
# $c printf("$xci/format.01$X #
# $c A=$xw1/xxxx.pmc/eclat.%04d$ROUGE #
# $c mode=0 #
# $c $formatI #
# $c R=$xw1/xxxx.pmc/eclat.%04d$ROUGE #
# $c $formatR_Std\n" #
# $c ,n,n #
# $c ); #
# $c printf("$xci/format.01$X #
# $c A=$xw1/xxxx.pmc/eclat.%04d$VERTE #
# $c mode=0 #
# $c $formatI #
# $c R=$xw1/xxxx.pmc/eclat.%04d$VERTE #
# $c $formatR_Std\n" #
# $c ,n,n #
# $c ); #
# $c printf("$xci/format.01$X #
# $c A=$xw1/xxxx.pmc/eclat.%04d$BLEUE #
# $c mode=0 #
# $c $formatI #
# $c R=$xw1/xxxx.pmc/eclat.%04d$BLEUE #
# $c $formatR_Std\n" #
# $c ,n,n #
# $c ); #
# $c } #
# $c } #
# #
# #
# Std #
# #
# $xci/disk_video_P$Z $xw1/xxxx.pmc/eclat. 001 301 RVB \ #
# 4 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz FAUX VRAI FAUX #
# #
sequence 021231_021731
# Sequence generee par : #
# #
# #
# $Z S #
# $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS #
# #
# $Z SET Cnoir=$NOIR #
# $Z SET Cblanc=$BLANC #
# #
# $Z $DELETE $xT/Pale #
# #
# #
# $c #define NOIR Cnoir #
# $c #define BLANC Cblanc #
# #
# $c int main() #
# $c { #
# $c int i,j; #
# $c int red,green,blue; #
# $c int niveau=NOIR; #
# #
# $c for (i=0 ; i<21 ; i++) #
# $c { #
# $c for (j=0 ; j<i ; j++) #
# $c { #
# $c red=(j*3250)/BLANC; #
# $c green=((i-j)*3250)/BLANC; #
# $c blue=((20-i)*3250)/BLANC; #
# $c printf("echo %02x %02x %02x >>! $xT/Pale\n" #
# $c ,red,green,blue #
# $c ); #
# $c niveau++; #
# $c } #
# $c } #
# #
# $c while (niveau<=BLANC) #
# $c { #
# $c printf("echo %02x %02x %02x >>! $xT/Pale\n" #
# $c ,red,green,blue #
# $c ); #
# $c niveau++; #
# $c } #
# $c } #
# #
# #
# $Z $DELETE $xTV/stripe$ROUGE #
# $Z $DELETE $xTV/stripe$VERTE #
# $Z $DELETE $xTV/stripe$BLEUE #
# #
# $Z $CA $xT/Pale \ #
# $Z | $AW ' { print $1 } ' \ #
# $Z | $xcg/anti_dumpX$X \ #
# $Z > $xTV/stripe$ROUGE #
# $Z $CA $xT/Pale \ #
# $Z | $AW ' { print $2 } ' \ #
# $Z | $xcg/anti_dumpX$X \ #
# $Z > $xTV/stripe$VERTE #
# $Z $CA $xT/Pale \ #
# $Z | $AW ' { print $3 } ' \ #
# $Z | $xcg/anti_dumpX$X \ #
# $Z > $xTV/stripe$BLEUE #
# #
# $Z $DELETE $xT/Pale #
# #
# #
# $Z SET Nimages=501 #
# #
# $Z Suq #
# #
# #
# $c #define N0 1 #
# $c #define N Nimages #
# #
# $c int main() #
# $c { #
# $c int n; #
# #
# $c for (n=N0 ; n<=N ; n++) #
# $c { #
# $c printf("$xci/vraies_C$X #
# $c A=$xw1/xxxx.pmc/stripe.%04d #
# $c p=$xTV/stripe #
# $c RVB=VRAI #
# $c R=$xw1/xxxx.pmc/stripe.%04d #
# $c $formatI\n" #
# $c ,n,n #
# $c ); #
# $c printf("$xci/format.01$X #
# $c A=$xw1/xxxx.pmc/stripe.%04d$ROUGE #
# $c mode=0 #
# $c $formatI #
# $c R=$xw1/xxxx.pmc/stripe.%04d$ROUGE #
# $c $formatR_Std\n" #
# $c ,n,n #
# $c ); #
# $c printf("$xci/format.01$X #
# $c A=$xw1/xxxx.pmc/stripe.%04d$VERTE #
# $c mode=0 #
# $c $formatI #
# $c R=$xw1/xxxx.pmc/stripe.%04d$VERTE #
# $c $formatR_Std\n" #
# $c ,n,n #
# $c ); #
# $c printf("$xci/format.01$X #
# $c A=$xw1/xxxx.pmc/stripe.%04d$BLEUE #
# $c mode=0 #
# $c $formatI #
# $c R=$xw1/xxxx.pmc/stripe.%04d$BLEUE #
# $c $formatR_Std\n" #
# $c ,n,n #
# $c ); #
# $c } #
# $c } #
# #
# #
# Std #
# #
# $xci/disk_video_P$Z $xw1/xxxx.pmc/stripe. 001 501 RVB \ #
# 4 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz FAUX VRAI FAUX #
# #
sequence 021732_021736
# Sequence generee par : #
# #
# #
# XYmaxNe 703 555 \ #
# #
# $xci/disk_video_P$Z $xw1/xxxx.pmc/gener. 001 005 RVB \ #
# 4 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
sequence 021737_021755
# Sequence generee par : #
# #
# #
# $Z Pal #
# #
# $Z $xci/init$X niveau=$NOIR \ #
# $Z R=$xTV/FOND \ #
# $Z $formatI #
# #
# $Z $xci/message$X A=$xTV/FOND \ #
# $Z message="TWO PARTICLES," \ #
# $Z Y=0.8 anti_aliasing=VRAI centrer=VRAI \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z message="CONSTANT DISSOLUTION," \ #
# $Z Y=0.7 anti_aliasing=VRAI centrer=VRAI \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z message="NO REDEPOSITION." \ #
# $Z Y=0.6 anti_aliasing=VRAI centrer=VRAI \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z message="Concentration of Strong Particles=01%" \ #
# $Z Y=0.1 anti_aliasing=VRAI centrer=VRAI \ #
# $Z $formatI | \ #
# $Z $xci/dilate.01$X \ #
# $Z R=$xw1/xxxx.pmc/TITR.1.0001 \ #
# $Z $formatI #
# #
# $Z $xci/message$X A=$xTV/FOND \ #
# $Z message="TWO PARTICLES," \ #
# $Z Y=0.8 anti_aliasing=VRAI centrer=VRAI \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z message="CONSTANT DISSOLUTION," \ #
# $Z Y=0.7 anti_aliasing=VRAI centrer=VRAI \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z message="NO REDEPOSITION." \ #
# $Z Y=0.6 anti_aliasing=VRAI centrer=VRAI \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z message="Concentration of Strong Particles=04%" \ #
# $Z Y=0.1 anti_aliasing=VRAI centrer=VRAI \ #
# $Z $formatI | \ #
# $Z $xci/dilate.01$X \ #
# $Z R=$xw1/xxxx.pmc/TITR.1.0002 \ #
# $Z $formatI #
# #
# $Z $xci/message$X A=$xTV/FOND \ #
# $Z message="TWO PARTICLES," \ #
# $Z Y=0.8 anti_aliasing=VRAI centrer=VRAI \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z message="CONSTANT DISSOLUTION," \ #
# $Z Y=0.7 anti_aliasing=VRAI centrer=VRAI \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z message="NO REDEPOSITION." \ #
# $Z Y=0.6 anti_aliasing=VRAI centrer=VRAI \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z message="Concentration of Strong Particles=08%" \ #
# $Z Y=0.1 anti_aliasing=VRAI centrer=VRAI \ #
# $Z $formatI | \ #
# $Z $xci/dilate.01$X \ #
# $Z R=$xw1/xxxx.pmc/TITR.1.0003 \ #
# $Z $formatI #
# #
# $Z $xci/message$X A=$xTV/FOND \ #
# $Z message="TWO PARTICLES," \ #
# $Z Y=0.8 anti_aliasing=VRAI centrer=VRAI \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z message="CONSTANT DISSOLUTION," \ #
# $Z Y=0.7 anti_aliasing=VRAI centrer=VRAI \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z message="NO REDEPOSITION." \ #
# $Z Y=0.6 anti_aliasing=VRAI centrer=VRAI \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z message="Concentration of Strong Particles=16%" \ #
# $Z Y=0.1 anti_aliasing=VRAI centrer=VRAI \ #
# $Z $formatI | \ #
# $Z $xci/dilate.01$X \ #
# $Z R=$xw1/xxxx.pmc/TITR.1.0004 \ #
# $Z $formatI #
# #
# $Z $xci/message$X A=$xTV/FOND \ #
# $Z message="TWO PARTICLES," \ #
# $Z Y=0.8 anti_aliasing=VRAI centrer=VRAI \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z message="CONSTANT DISSOLUTION," \ #
# $Z Y=0.7 anti_aliasing=VRAI centrer=VRAI \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z message="NO REDEPOSITION." \ #
# $Z Y=0.6 anti_aliasing=VRAI centrer=VRAI \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z message="Concentration of Strong Particles=32%" \ #
# $Z Y=0.1 anti_aliasing=VRAI centrer=VRAI \ #
# $Z $formatI | \ #
# $Z $xci/dilate.01$X \ #
# $Z R=$xw1/xxxx.pmc/TITR.1.0005 \ #
# $Z $formatI #
# #
# $Z $xci/message$X A=$xTV/FOND \ #
# $Z message="TWO PARTICLES," \ #
# $Z Y=0.8 anti_aliasing=VRAI centrer=VRAI \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z message="CONSTANT DISSOLUTION," \ #
# $Z Y=0.7 anti_aliasing=VRAI centrer=VRAI \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z message="REDEPOSITION PROPORTIONAL" \ #
# $Z Y=0.6 anti_aliasing=VRAI centrer=VRAI \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z message="TO THE CONCENTRATION OF LIQUID." \ #
# $Z Y=0.5 anti_aliasing=VRAI centrer=VRAI \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z message="Concentration of Strong Particles=01%" \ #
# $Z Y=0.1 anti_aliasing=VRAI centrer=VRAI \ #
# $Z $formatI | \ #
# $Z $xci/dilate.01$X \ #
# $Z R=$xw1/xxxx.pmc/TITR.1.0006 \ #
# $Z $formatI #
# #
# $Z $xci/message$X A=$xTV/FOND \ #
# $Z message="TWO PARTICLES," \ #
# $Z Y=0.8 anti_aliasing=VRAI centrer=VRAI \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z message="CONSTANT DISSOLUTION," \ #
# $Z Y=0.7 anti_aliasing=VRAI centrer=VRAI \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z message="REDEPOSITION PROPORTIONAL" \ #
# $Z Y=0.6 anti_aliasing=VRAI centrer=VRAI \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z message="TO THE CONCENTRATION OF LIQUID." \ #
# $Z Y=0.5 anti_aliasing=VRAI centrer=VRAI \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z message="Concentration of Strong Particles=04%" \ #
# $Z Y=0.1 anti_aliasing=VRAI centrer=VRAI \ #
# $Z $formatI | \ #
# $Z $xci/dilate.01$X \ #
# $Z R=$xw1/xxxx.pmc/TITR.1.0007 \ #
# $Z $formatI #
# #
# $Z $xci/message$X A=$xTV/FOND \ #
# $Z message="TWO PARTICLES," \ #
# $Z Y=0.8 anti_aliasing=VRAI centrer=VRAI \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z message="CONSTANT DISSOLUTION," \ #
# $Z Y=0.7 anti_aliasing=VRAI centrer=VRAI \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z message="REDEPOSITION PROPORTIONAL" \ #
# $Z Y=0.6 anti_aliasing=VRAI centrer=VRAI \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z message="TO THE CONCENTRATION OF LIQUID." \ #
# $Z Y=0.5 anti_aliasing=VRAI centrer=VRAI \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z message="Concentration of Strong Particles=08%" \ #
# $Z Y=0.1 anti_aliasing=VRAI centrer=VRAI \ #
# $Z $formatI | \ #
# $Z $xci/dilate.01$X \ #
# $Z R=$xw1/xxxx.pmc/TITR.1.0008 \ #
# $Z $formatI #
# #
# $Z $xci/message$X A=$xTV/FOND \ #
# $Z message="TWO PARTICLES," \ #
# $Z Y=0.8 anti_aliasing=VRAI centrer=VRAI \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z message="CONSTANT DISSOLUTION," \ #
# $Z Y=0.7 anti_aliasing=VRAI centrer=VRAI \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z message="REDEPOSITION PROPORTIONAL" \ #
# $Z Y=0.6 anti_aliasing=VRAI centrer=VRAI \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z message="TO THE CONCENTRATION OF LIQUID." \ #
# $Z Y=0.5 anti_aliasing=VRAI centrer=VRAI \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z message="Concentration of Strong Particles=16%" \ #
# $Z Y=0.1 anti_aliasing=VRAI centrer=VRAI \ #
# $Z $formatI | \ #
# $Z $xci/dilate.01$X \ #
# $Z R=$xw1/xxxx.pmc/TITR.1.0009 \ #
# $Z $formatI #
# #
# $Z $xci/message$X A=$xTV/FOND \ #
# $Z message="TWO PARTICLES," \ #
# $Z Y=0.8 anti_aliasing=VRAI centrer=VRAI \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z message="CONSTANT DISSOLUTION," \ #
# $Z Y=0.7 anti_aliasing=VRAI centrer=VRAI \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z message="REDEPOSITION PROPORTIONAL" \ #
# $Z Y=0.6 anti_aliasing=VRAI centrer=VRAI \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z message="TO THE CONCENTRATION OF LIQUID." \ #
# $Z Y=0.5 anti_aliasing=VRAI centrer=VRAI \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z message="Concentration of Strong Particles=32%" \ #
# $Z Y=0.1 anti_aliasing=VRAI centrer=VRAI \ #
# $Z $formatI | \ #
# $Z $xci/dilate.01$X \ #
# $Z R=$xw1/xxxx.pmc/TITR.1.0010 \ #
# $Z $formatI #
# #
# $Z $xci/message$X A=$xTV/FOND \ #
# $Z message="THREE PARTICLES," \ #
# $Z Y=0.8 anti_aliasing=VRAI centrer=VRAI \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z message="CONSTANT DISSOLUTION," \ #
# $Z Y=0.7 anti_aliasing=VRAI centrer=VRAI \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z message="REDEPOSITION PROPORTIONAL" \ #
# $Z Y=0.6 anti_aliasing=VRAI centrer=VRAI \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z message="TO THE CONCENTRATION OF LIQUID." \ #
# $Z Y=0.5 anti_aliasing=VRAI centrer=VRAI \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z message="Concentration of Weak Particles=01%" \ #
# $Z Y=0.2 anti_aliasing=VRAI centrer=VRAI \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z message="Concentration of Strong Particles=16%" \ #
# $Z Y=0.1 anti_aliasing=VRAI centrer=VRAI \ #
# $Z $formatI | \ #
# $Z $xci/dilate.01$X \ #
# $Z R=$xw1/xxxx.pmc/TITR.1.0011 \ #
# $Z $formatI #
# #
# $Z $xci/message$X A=$xTV/FOND \ #
# $Z message="THREE PARTICLES," \ #
# $Z Y=0.8 anti_aliasing=VRAI centrer=VRAI \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z message="CONSTANT DISSOLUTION," \ #
# $Z Y=0.7 anti_aliasing=VRAI centrer=VRAI \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z message="REDEPOSITION PROPORTIONAL" \ #
# $Z Y=0.6 anti_aliasing=VRAI centrer=VRAI \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z message="TO THE CONCENTRATION OF LIQUID." \ #
# $Z Y=0.5 anti_aliasing=VRAI centrer=VRAI \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z message="Concentration of Weak Particles=16%" \ #
# $Z Y=0.2 anti_aliasing=VRAI centrer=VRAI \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z message="Concentration of Strong Particles=08%" \ #
# $Z Y=0.1 anti_aliasing=VRAI centrer=VRAI \ #
# $Z $formatI | \ #
# $Z $xci/dilate.01$X \ #
# $Z R=$xw1/xxxx.pmc/TITR.1.0012 \ #
# $Z $formatI #
# #
# $Z $xci/message$X A=$xTV/FOND \ #
# $Z message="THREE PARTICLES," \ #
# $Z Y=0.8 anti_aliasing=VRAI centrer=VRAI \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z message="CONSTANT DISSOLUTION," \ #
# $Z Y=0.7 anti_aliasing=VRAI centrer=VRAI \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z message="REDEPOSITION PROPORTIONAL" \ #
# $Z Y=0.6 anti_aliasing=VRAI centrer=VRAI \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z message="TO THE CONCENTRATION OF LIQUID." \ #
# $Z Y=0.5 anti_aliasing=VRAI centrer=VRAI \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z message="Concentration of Weak Particles=32%" \ #
# $Z Y=0.2 anti_aliasing=VRAI centrer=VRAI \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z message="Concentration of Strong Particles=08%" \ #
# $Z Y=0.1 anti_aliasing=VRAI centrer=VRAI \ #
# $Z $formatI | \ #
# $Z $xci/dilate.01$X \ #
# $Z R=$xw1/xxxx.pmc/TITR.1.0013 \ #
# $Z $formatI #
# #
# $Z $xci/message$X A=$xTV/FOND \ #
# $Z message="THREE PARTICLES," \ #
# $Z Y=0.8 anti_aliasing=VRAI centrer=VRAI \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z message="CONSTANT DISSOLUTION," \ #
# $Z Y=0.7 anti_aliasing=VRAI centrer=VRAI \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z message="REDEPOSITION PROPORTIONAL" \ #
# $Z Y=0.6 anti_aliasing=VRAI centrer=VRAI \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z message="TO THE CONCENTRATION OF LIQUID." \ #
# $Z Y=0.5 anti_aliasing=VRAI centrer=VRAI \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z message="Concentration of Weak Particles=32%" \ #
# $Z Y=0.2 anti_aliasing=VRAI centrer=VRAI \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z message="Concentration of Strong Particles=16%" \ #
# $Z Y=0.1 anti_aliasing=VRAI centrer=VRAI \ #
# $Z $formatI | \ #
# $Z $xci/dilate.01$X \ #
# $Z R=$xw1/xxxx.pmc/TITR.1.0014 \ #
# $Z $formatI #
# #
# $Z $xci/message$X A=$xTV/FOND \ #
# $Z message="THREE PARTICLES," \ #
# $Z Y=0.8 anti_aliasing=VRAI centrer=VRAI \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z message="CONSTANT DISSOLUTION," \ #
# $Z Y=0.7 anti_aliasing=VRAI centrer=VRAI \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z message="REDEPOSITION PROPORTIONAL" \ #
# $Z Y=0.6 anti_aliasing=VRAI centrer=VRAI \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z message="TO THE CONCENTRATION OF LIQUID." \ #
# $Z Y=0.5 anti_aliasing=VRAI centrer=VRAI \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z message="Concentration of Weak Particles=32%" \ #
# $Z Y=0.2 anti_aliasing=VRAI centrer=VRAI \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z message="Concentration of Strong Particles=32%" \ #
# $Z Y=0.1 anti_aliasing=VRAI centrer=VRAI \ #
# $Z $formatI | \ #
# $Z $xci/dilate.01$X \ #
# $Z R=$xw1/xxxx.pmc/TITR.1.0015 \ #
# $Z $formatI #
# #
# $Z $xci/message$X A=$xTV/FOND \ #
# $Z message="THREE PARTICLES," \ #
# $Z Y=0.8 anti_aliasing=VRAI centrer=VRAI \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z message="DISSOLUTION DEPENDS ON" \ #
# $Z Y=0.7 anti_aliasing=VRAI centrer=VRAI \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z message="THE NEAREST NEIGHBORS," \ #
# $Z Y=0.6 anti_aliasing=VRAI centrer=VRAI \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z message="REDEPOSITION PROPORTIONAL" \ #
# $Z Y=0.5 anti_aliasing=VRAI centrer=VRAI \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z message="TO THE CONCENTRATION OF LIQUID." \ #
# $Z Y=0.4 anti_aliasing=VRAI centrer=VRAI \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z message="Concentration of Weak Particles=16%" \ #
# $Z Y=0.2 anti_aliasing=VRAI centrer=VRAI \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z message="Concentration of Strong Particles=08%" \ #
# $Z Y=0.1 anti_aliasing=VRAI centrer=VRAI \ #
# $Z $formatI | \ #
# $Z $xci/dilate.01$X \ #
# $Z R=$xw1/xxxx.pmc/TITR.1.0016 \ #
# $Z $formatI #
# #
# $Z $xci/message$X A=$xTV/FOND \ #
# $Z message="THREE PARTICLES," \ #
# $Z Y=0.8 anti_aliasing=VRAI centrer=VRAI \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z message="DISSOLUTION DEPENDS ON" \ #
# $Z Y=0.7 anti_aliasing=VRAI centrer=VRAI \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z message="THE NEAREST NEIGHBORS," \ #
# $Z Y=0.6 anti_aliasing=VRAI centrer=VRAI \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z message="REDEPOSITION PROPORTIONAL" \ #
# $Z Y=0.5 anti_aliasing=VRAI centrer=VRAI \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z message="TO THE CONCENTRATION OF LIQUID." \ #
# $Z Y=0.4 anti_aliasing=VRAI centrer=VRAI \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z message="Concentration of Weak Particles=32%" \ #
# $Z Y=0.2 anti_aliasing=VRAI centrer=VRAI \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z message="Concentration of Strong Particles=08%" \ #
# $Z Y=0.1 anti_aliasing=VRAI centrer=VRAI \ #
# $Z $formatI | \ #
# $Z $xci/dilate.01$X \ #
# $Z R=$xw1/xxxx.pmc/TITR.1.0017 \ #
# $Z $formatI #
# #
# $Z $xci/message$X A=$xTV/FOND \ #
# $Z message="THREE PARTICLES," \ #
# $Z Y=0.8 anti_aliasing=VRAI centrer=VRAI \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z message="DISSOLUTION DEPENDS ON" \ #
# $Z Y=0.7 anti_aliasing=VRAI centrer=VRAI \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z message="THE NEAREST NEIGHBORS," \ #
# $Z Y=0.6 anti_aliasing=VRAI centrer=VRAI \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z message="REDEPOSITION PROPORTIONAL" \ #
# $Z Y=0.5 anti_aliasing=VRAI centrer=VRAI \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z message="TO THE CONCENTRATION OF LIQUID." \ #
# $Z Y=0.4 anti_aliasing=VRAI centrer=VRAI \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z message="Concentration of Weak Particles=32%" \ #
# $Z Y=0.2 anti_aliasing=VRAI centrer=VRAI \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z message="Concentration of Strong Particles=16%" \ #
# $Z Y=0.1 anti_aliasing=VRAI centrer=VRAI \ #
# $Z $formatI | \ #
# $Z $xci/dilate.01$X \ #
# $Z R=$xw1/xxxx.pmc/TITR.1.0018 \ #
# $Z $formatI #
# #
# $Z $xci/message$X A=$xTV/FOND \ #
# $Z message="THREE PARTICLES," \ #
# $Z Y=0.8 anti_aliasing=VRAI centrer=VRAI \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z message="DISSOLUTION DEPENDS ON" \ #
# $Z Y=0.7 anti_aliasing=VRAI centrer=VRAI \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z message="THE NEAREST NEIGHBORS," \ #
# $Z Y=0.6 anti_aliasing=VRAI centrer=VRAI \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z message="REDEPOSITION PROPORTIONAL" \ #
# $Z Y=0.5 anti_aliasing=VRAI centrer=VRAI \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z message="TO THE CONCENTRATION OF LIQUID." \ #
# $Z Y=0.4 anti_aliasing=VRAI centrer=VRAI \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z message="Concentration of Weak Particles=32%" \ #
# $Z Y=0.2 anti_aliasing=VRAI centrer=VRAI \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z message="Concentration of Strong Particles=32%" \ #
# $Z Y=0.1 anti_aliasing=VRAI centrer=VRAI \ #
# $Z $formatI | \ #
# $Z $xci/dilate.01$X \ #
# $Z R=$xw1/xxxx.pmc/TITR.1.0019 \ #
# $Z $formatI #
# #
# #
# #
# Pal #
# #
# $xci/disk_video_P$Z $xw1/xxxx.pmc/TITR.1. 001 019 $xiP/gris.01 \ #
# 4 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
sequence 021756_021819
# Sequence generee a partir du fichier '$xu/SB.Santra/pore0.d' (nptot=18) par : #
# #
# #
# $Z Std #
# #
# $Z set CRstruc2d=$BLANC #
# $Z set CVstruc2d=$BLANC #
# $Z set CBstruc2d=$BLANC #
# $Z set Rstruc2d=0.03 #
# $Z set Zstruc2d=0.0 #
# $Z set Rcollis=0.02 #
# $Z set Zcollis=0.0 #
# $Z set Rzoom=1.2 #
# #
# $Z $DELETE $xTV/struc2d$COORD_X #
# $Z $DELETE $xTV/struc2d$COORD_Y #
# $Z $DELETE $xTV/struc2d$COORD_Z #
# #
# $Z set Lstruc2d=`$WC $xu/SB.Santra/pore0.d` #
# $Z set Lstruc2d=$Lstruc2d[$WC1] #
# $Z @ Lstruc2d = $Lstruc2d / 2 #
# #
# #
# $Z set Numerotage=4 #
# #
# $Z $CA $xu/SB.Santra/pore0.d \ #
# $Z | $NL -nrz -w$Numerotage \ #
# $Z | $R "$K_TAB" "$K_BLANC" \ #
# $Z | $GRE "[13579] " \ #
# $Z | $AW ' { print $2 } ' \ #
# $Z > $xTV/struc2d$COORD_X #
# $Z $CA $xu/SB.Santra/pore0.d \ #
# $Z | $NL -nrz -w$Numerotage \ #
# $Z | $R "$K_TAB" "$K_BLANC" \ #
# $Z | $GRE "[02468] " \ #
# $Z | $AW ' { print $2 } ' \ #
# $Z > $xTV/struc2d$COORD_Y #
# $Z $xci/valeurs_inte$X p=1 d=$Lstruc2d vD=$Zstruc2d vA=$Zstruc2d \ #
# $Z > $xTV/struc2d$COORD_Z #
# #
# $Z set ScaleX=`$xrv/extrema.01$X CAL1=FAUX ne=$Lstruc2d fichier=$xTV/struc2d$COORD_X` #
# $Z set HomoX=`echo "$ScaleX" | $SE -e "s/.*facteur d'homothetie=\([^ ][^ ]*\).*/\1/"` #
# $Z set TranX1=`echo "$ScaleX" | $SE -e "s/.*translation.*=\([^ ][^ ]*\).*/\1/"` #
# #
# $Z set ScaleY=`$xrv/extrema.01$X CAL1=FAUX ne=$Lstruc2d fichier=$xTV/struc2d$COORD_Y` #
# $Z set HomoY=`echo "$ScaleY" | $SE -e "s/.*facteur d'homothetie=\([^ ][^ ]*\).*/\1/"` #
# $Z set TranY1=`echo "$ScaleY" | $SE -e "s/.*translation.*=\([^ ][^ ]*\).*/\1/"` #
# #
# $Z set HomoXYZ=`$xcg/MIN2.01$X n1=$HomoX n2=$HomoY` #
# $Z set TranXYZ=`$xcg/MIN2.01$X n1=$TranX1 n2=$TranY1` #
# #
# $Z if ("$HomoX" != "$HomoXYZ") then #
# $Z set TranX2=`$xcg/DIVZ.01$X n1=$HomoY n2=$HomoX` #
# $Z set TranX2=`$xcg/MOIT.01$X n=$TranX2` #
# $Z set TranX=`$xcg/ADD2.01$X n1=$TranX1 n2=$TranX2` #
# $Z set TranY=0 #
# $Z else #
# $Z set TranX=0 #
# $Z set TranY2=`$xcg/DIVZ.01$X n1=$HomoX n2=$HomoY` #
# $Z set TranY2=`$xcg/MOIT.01$X n=$TranY2` #
# $Z set TranY=`$xcg/ADD2.01$X n1=$TranY1 n2=$TranY2` #
# $Z endif #
# #
# $Z $xrv/particule.10$X \ #
# $Z np=1 iterations=$Lstruc2d \ #
# $Z LISTE_X=$xTV/struc2d$COORD_X \ #
# $Z LISTE_Y=$xTV/struc2d$COORD_Y \ #
# $Z LISTE_Z=$xTV/struc2d$COORD_Z \ #
# $Z LISTE_ROUGE=$CRstruc2d \ #
# $Z LISTE_VERTE=$CVstruc2d \ #
# $Z LISTE_BLEUE=$CBstruc2d \ #
# $Z isoles=FAUX Pajuster=VRAI nombreR=512 \ #
# $Z AX=$HomoXYZ BX=$TranX \ #
# $Z AY=$HomoXYZ BY=$TranY \ #
# $Z rayon_de_visualisation=$Rstruc2d \ #
# $Z ZOOM=$Rzoom \ #
# $Z tri=VRAI N_au_carre=FAUX \ #
# $Z Lz=1000 \ #
# $Z R=$xw1/xxxx.pmc/STRU.0. \ #
# $Z $formatI #
# #
# $Z PushdC $xu/SB.Santra #
# $Z $DELETE $xTV/tra.d #
# $Z $xu/SB.Santra/$aPout #
# $Z PopdC #
# #
# $Z SET Premiere=1 #
# $Z SET Derniere=63 #
# #
# $Z $DELETE $xTV/Liste$ROUGE #
# $Z $DELETE $xTV/Liste$VERTE #
# $Z $DELETE $xTV/Liste$BLEUE #
# #
# $Z set Ra_prioriB=$GRIS_2 #
# $Z set Ra_prioriG=$GRIS_6 #
# $Z set Va_prioriB=$GRIS_2 #
# $Z set Va_prioriG=$GRIS_6 #
# $Z set Ba_prioriB=$GRIS_2 #
# $Z set Ba_prioriG=$GRIS_6 #
# #
# $Z set Angle=`$xcg/MUL2.01$X n1=1.0 n2=$dpi` #
# $Z $xci/valeurs_trig$X premiere=$Premiere derniere=$Derniere \ #
# $Z aD=0 aA=$Angle \ #
# $Z alpha=0 beta=$Ra_prioriB gamma=$Ra_prioriG \ #
# $Z entiers=VRAI \ #
# $Z > $xTV/Liste$ROUGE #
# $Z set Angle=`$xcg/MUL2.01$X n1=2.0 n2=$dpi` #
# $Z $xci/valeurs_trig$X premiere=$Premiere derniere=$Derniere \ #
# $Z aD=0 aA=$Angle \ #
# $Z alpha=0 beta=$Va_prioriB gamma=$Va_prioriG \ #
# $Z entiers=VRAI \ #
# $Z > $xTV/Liste$VERTE #
# $Z set Angle=`$xcg/MUL2.01$X n1=3.0 n2=$dpi` #
# $Z $xci/valeurs_trig$X premiere=$Premiere derniere=$Derniere \ #
# $Z aD=0 aA=$Angle \ #
# $Z alpha=0 beta=$Ba_prioriB gamma=$Ba_prioriG \ #
# $Z entiers=VRAI \ #
# $Z > $xTV/Liste$BLEUE #
# #
# $Z set ListeR=`$CA $xTV/Liste$ROUGE` #
# $Z set ListeV=`$CA $xTV/Liste$VERTE` #
# $Z set ListeB=`$CA $xTV/Liste$BLEUE` #
# #
# $Z $CP $xw1/xxxx.pmc/STRU.0.0001$ROUGE $xw1/xxxx.pmc/COLL.0.0001$ROUGE #
# $Z $CP $xw1/xxxx.pmc/STRU.0.0001$VERTE $xw1/xxxx.pmc/COLL.0.0001$VERTE #
# $Z $CP $xw1/xxxx.pmc/STRU.0.0001$BLEUE $xw1/xxxx.pmc/COLL.0.0001$BLEUE #
# #
# $c #define N0 (Premiere+1) #
# $c #define N (Derniere+1) #
# #
# $c int main() #
# $c { #
# $c int n; #
# #
# $c for (n=N0 ; n<=N ; n++) #
# $c { #
# $c printf("$DELETE $xTV/collision\n"); #
# $c printf("$DELETE $xTV/collision$COORD_X\n"); #
# $c printf("$DELETE $xTV/collision$COORD_Y\n"); #
# #
# $c printf("$CA $xTV/tra.d | #
# $c $SE -e 's/^ *//' -e 's/ */ /g' | #
# $c $AW '/traj %d=/,/traj %d=/' | #
# $c $SE -e '/^traj *[0-9][0-9]*=$/d' | #
# $c $R %c$K_BLANC%c %c$K_NL%c | #
# $c $NL -nrz -w$Numerotage | #
# $c $R %c$K_TAB%c %c$K_BLANC%c #
# $c > $xTV/collision\n" #
# $c ,n-1,n,'"','"','"','"','"','"','"','"' #
# $c ); #
# $c printf("$CA $xTV/collision | #
# $c $GRE '[13579] ' | #
# $c $AW ' { print $2 } ' #
# $c > $xTV/collision$COORD_X\n" #
# $c ); #
# $c printf("$CA $xTV/collision | #
# $c $GRE '[02468] ' | #
# $c $AW ' { print $2 } ' #
# $c > $xTV/collision$COORD_Y\n" #
# $c ); #
# #
# $c printf("set Lcol=`$WC $xTV/collision`\n"); #
# $c printf("set Lcol=$Lcol[$WC1]\n"); #
# $c printf("@ Lcol = $Lcol / 2\n"); #
# $c printf("$xrv/particule.10$X #
# $c np=1 iterations=$Lcol #
# $c LISTE_X=$xTV/collision$COORD_X #
# $c LISTE_Y=$xTV/collision$COORD_Y #
# $c LISTE_Z=$Zcollis #
# $c LISTE_ROUGE=$ListeR[%d] #
# $c LISTE_VERTE=$ListeV[%d] #
# $c LISTE_BLEUE=$ListeB[%d] #
# $c isoles=FAUX #
# $c Pajuster=VRAI nombreR=512 #
# $c AX=$HomoXYZ BX=$TranX #
# $c AY=$HomoXYZ BY=$TranY #
# $c rayon_de_visualisation=$Rcollis #
# $c ZOOM=$Rzoom #
# $c tri=VRAI N_au_carre=FAUX #
# $c fond=VRAI dynamique=FAUX #
# $c F=$xw1/xxxx.pmc/COLL.0.%04d #
# $c Lz=1000 #
# $c R=$xw1/xxxx.pmc/COLL. #
# $c $formatI\n" #
# $c ,n-1,n-1,n-1,n-1 #
# $c ); #
# #
# $c printf("$CP $xw1/xxxx.pmc/COLL.%04d$ROUGE #
# $c $xw1/xxxx.pmc/COLL.0.%04d$ROUGE\n" #
# $c ,N0-1,n #
# $c ); #
# $c printf("$CP $xw1/xxxx.pmc/COLL.%04d$VERTE #
# $c $xw1/xxxx.pmc/COLL.0.%04d$VERTE\n" #
# $c ,N0-1,n #
# $c ); #
# $c printf("$CP $xw1/xxxx.pmc/COLL.%04d$BLEUE #
# $c $xw1/xxxx.pmc/COLL.0.%04d$BLEUE\n" #
# $c ,N0-1,n #
# $c ); #
# $c } #
# $c } #
# #
# #
# Std #
# #
# $xci/disk_video_P$Z $xw1/xxxx.pmc/COLL.0. 0001 0064 RVB \ #
# 4 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
sequence 021820_021883
sequence 021884_021947
sequence 021948_022011
sequence 022012_022075
# Sequence generee via '$xu/SB.Santra/collision.11$f' par : #
# #
# #
# $Z Std #
# #
# $Z SET Premiere=1 #
# $Z SET Derniere=63 #
# #
# $Z set CRstruc2d=$BLANC #
# $Z set CVstruc2d=$BLANC #
# $Z set CBstruc2d=$BLANC #
# $Z set Rstruc2d=0.04 #
# $Z set Zstruc2d=0.0 #
# $Z set Rcollis=0.03 #
# $Z set Zcollis=0.0 #
# $Z set Rzoom=1.2 #
# #
# #
# $Z set Numerotage=4 #
# #
# #
# $Z $DELETE $xTV/geometry.1$k #
# $Z $DELETE $xTV/geometry.2$k #
# #
# $Z echo 'BEGIN {' >>! $xTV/geometry.1$k #
# $Z echo ' numero = 0;' >>! $xTV/geometry.1$k #
# $Z echo ' }' >>! $xTV/geometry.1$k #
# $Z echo '{' >>! $xTV/geometry.1$k #
# $Z echo 'numero++;' >>! $xTV/geometry.1$k #
# $Z echo 'ligne[numero] = $0;' >>! $xTV/geometry.1$k #
# $Z echo '}' >>! $xTV/geometry.1$k #
# $Z echo 'END {' >>! $xTV/geometry.1$k #
# $Z echo ' for (n=1 ; n<=numero ; n++)' >>! $xTV/geometry.1$k #
# $Z echo ' {' >>! $xTV/geometry.1$k #
# $Z echo ' printf("%s",ligne[n]);' >>! $xTV/geometry.1$k #
# $Z echo ' if ((n%2) == 0)' >>! $xTV/geometry.1$k #
# $Z echo ' {' >>! $xTV/geometry.1$k #
# $Z echo ' printf("\\n");' >>! $xTV/geometry.1$k #
# $Z echo ' }' >>! $xTV/geometry.1$k #
# $Z echo ' else' >>! $xTV/geometry.1$k #
# $Z echo ' {' >>! $xTV/geometry.1$k #
# $Z echo ' printf(" ");' >>! $xTV/geometry.1$k #
# $Z echo ' }' >>! $xTV/geometry.1$k #
# $Z echo ' }' >>! $xTV/geometry.1$k #
# $Z echo ' }' >>! $xTV/geometry.1$k #
# #
# $Z echo 'BEGIN {' >>! $xTV/geometry.2$k #
# $Z echo ' numero = 0;' >>! $xTV/geometry.2$k #
# $Z echo ' }' >>! $xTV/geometry.2$k #
# $Z echo '{' >>! $xTV/geometry.2$k #
# $Z echo 'numero++;' >>! $xTV/geometry.2$k #
# $Z echo 'ligne[numero] = $0;' >>! $xTV/geometry.2$k #
# $Z echo '}' >>! $xTV/geometry.2$k #
# $Z echo 'END {' >>! $xTV/geometry.2$k #
# $Z echo ' for (n=1 ; n<=numero ; n++)' >>! $xTV/geometry.2$k #
# $Z echo ' {' >>! $xTV/geometry.2$k #
# $Z echo ' printf("%s\\n",ligne[n]);' >>! $xTV/geometry.2$k #
# $Z echo ' if ((n > 1) && (n<numero))' >>! $xTV/geometry.2$k #
# $Z echo ' {' >>! $xTV/geometry.2$k #
# $Z echo ' printf("%s\\n",ligne[n]);' >>! $xTV/geometry.2$k #
# $Z echo ' }' >>! $xTV/geometry.2$k #
# $Z echo ' else' >>! $xTV/geometry.2$k #
# $Z echo ' {' >>! $xTV/geometry.2$k #
# $Z echo ' }' >>! $xTV/geometry.2$k #
# $Z echo ' }' >>! $xTV/geometry.2$k #
# $Z echo ' }' >>! $xTV/geometry.2$k #
# #
# $Z set Ra_prioriB=$GRIS_0 #
# $Z set Ra_prioriG=$GRIS_8 #
# $Z set Va_prioriB=$GRIS_0 #
# $Z set Va_prioriG=$GRIS_6 #
# $Z set Ba_prioriB=$GRIS_0 #
# $Z set Ba_prioriG=$GRIS_2 #
# #
# $Z set Lgeometry={0,1,2,3} #
# #
# $Z foreach Ngeo ($Lgeometry) #
# #
# $Z setenv Fgeometry $xu/SB.Santra/pore$Ngeo.d #
# #
# $Z $DELETE $xTV/geometry #
# #
# $Z $CA $Fgeometry \ #
# $Z | $TAI +2 \ #
# $Z | $AW -f $xTV/geometry.1$k \ #
# $Z | $AW -f $xTV/geometry.2$k \ #
# $Z | $R "$K_BLANC" "$K_NL" \ #
# $Z > $xTV/geometry #
# #
# $Z set Lstruc2d=`$WC $xTV/geometry` #
# $Z set Lstruc2d=$Lstruc2d[$WC1] #
# $Z @ Lstruc2d = $Lstruc2d / 2 #
# #
# $Z $DELETE $xTV/struc2d$COORD_X #
# $Z $DELETE $xTV/struc2d$COORD_Y #
# $Z $DELETE $xTV/struc2d$COORD_Z #
# #
# $Z $CA $xTV/geometry \ #
# $Z | $NL -nrz -w$Numerotage \ #
# $Z | $R "$K_TAB" "$K_BLANC" \ #
# $Z | $GRE "[13579] " \ #
# $Z | $AW ' { print $2 } ' \ #
# $Z > $xTV/struc2d$COORD_X #
# $Z $CA $xTV/geometry \ #
# $Z | $NL -nrz -w$Numerotage \ #
# $Z | $R "$K_TAB" "$K_BLANC" \ #
# $Z | $GRE "[02468] " \ #
# $Z | $AW ' { print $2 } ' \ #
# $Z > $xTV/struc2d$COORD_Y #
# $Z $xci/valeurs_inte$X p=1 d=$Lstruc2d vD=$Zstruc2d vA=$Zstruc2d \ #
# $Z > $xTV/struc2d$COORD_Z #
# #
# $Z set ScaleX=`$xrv/extrema.01$X CAL1=FAUX ne=$Lstruc2d fichier=$xTV/struc2d$COORD_X` #
# $Z set HomoX=`echo "$ScaleX" | $SE -e "s/.*facteur d'homothetie=\([^ ][^ ]*\).*/\1/"` #
# $Z set TranX1=`echo "$ScaleX" | $SE -e "s/.*translation.*=\([^ ][^ ]*\).*/\1/"` #
# #
# $Z set ScaleY=`$xrv/extrema.01$X CAL1=FAUX ne=$Lstruc2d fichier=$xTV/struc2d$COORD_Y` #
# $Z set HomoY=`echo "$ScaleY" | $SE -e "s/.*facteur d'homothetie=\([^ ][^ ]*\).*/\1/"` #
# $Z set TranY1=`echo "$ScaleY" | $SE -e "s/.*translation.*=\([^ ][^ ]*\).*/\1/"` #
# #
# $Z set HomoXYZ=`$xcg/MIN2.01$X n1=$HomoX n2=$HomoY` #
# $Z set TranXYZ=`$xcg/MIN2.01$X n1=$TranX1 n2=$TranY1` #
# #
# $Z if ("$HomoX" != "$HomoXYZ") then #
# $Z set TranX2=`$xcg/DIVZ.01$X n1=$HomoY n2=$HomoX` #
# $Z set TranX2=`$xcg/MOIT.01$X n=$TranX2` #
# $Z set TranX=`$xcg/ADD2.01$X n1=$TranX1 n2=$TranX2` #
# $Z set TranY=0 #
# $Z else #
# $Z set TranX=0 #
# $Z set TranY2=`$xcg/DIVZ.01$X n1=$HomoX n2=$HomoY` #
# $Z set TranY2=`$xcg/MOIT.01$X n=$TranY2` #
# $Z set TranY=`$xcg/ADD2.01$X n1=$TranY1 n2=$TranY2` #
# $Z endif #
# #
# $Z $xrv/particule.10$X \ #
# $Z ATTENTION=FAUX \ #
# $Z np=1 iterations=$Lstruc2d \ #
# $Z LISTE_X=$xTV/struc2d$COORD_X \ #
# $Z LISTE_Y=$xTV/struc2d$COORD_Y \ #
# $Z LISTE_Z=$xTV/struc2d$COORD_Z \ #
# $Z LISTE_ROUGE=$CRstruc2d \ #
# $Z LISTE_VERTE=$CVstruc2d \ #
# $Z LISTE_BLEUE=$CBstruc2d \ #
# $Z isoles=FAUX Pajuster=VRAI \ #
# $Z AX=$HomoXYZ BX=$TranX \ #
# $Z AY=$HomoXYZ BY=$TranY \ #
# $Z rayon_de_visualisation=$Rstruc2d \ #
# $Z ZOOM=$Rzoom \ #
# $Z tri=VRAI N_au_carre=FAUX \ #
# $Z Lz=1000 \ #
# $Z R=$xw1/xxxx.pmc/STRU.$Ngeo. \ #
# $Z $formatI #
# #
# $Z PushdC $xu/SB.Santra #
# $Z $DELETE $xTV/tra.d #
# $Z $xu/SB.Santra/$aPout #
# $Z PopdC #
# #
# $Z $DELETE $xTV/Liste$ROUGE #
# $Z $DELETE $xTV/Liste$VERTE #
# $Z $DELETE $xTV/Liste$BLEUE #
# #
# $Z set Angle=`$xcg/MUL2.01$X n1=1.0 n2=$dpi` #
# $Z $xci/valeurs_trig$X premiere=$Premiere derniere=$Derniere \ #
# $Z aD=0 aA=$Angle \ #
# $Z alpha=0 beta=$Ra_prioriB gamma=$Ra_prioriG \ #
# $Z entiers=VRAI \ #
# $Z > $xTV/Liste$ROUGE #
# $Z set Angle=`$xcg/MUL2.01$X n1=2.0 n2=$dpi` #
# $Z $xci/valeurs_trig$X premiere=$Premiere derniere=$Derniere \ #
# $Z aD=0 aA=$Angle \ #
# $Z alpha=0 beta=$Va_prioriB gamma=$Va_prioriG \ #
# $Z entiers=VRAI \ #
# $Z > $xTV/Liste$VERTE #
# $Z set Angle=`$xcg/MUL2.01$X n1=3.0 n2=$dpi` #
# $Z $xci/valeurs_trig$X premiere=$Premiere derniere=$Derniere \ #
# $Z aD=0 aA=$Angle \ #
# $Z alpha=0 beta=$Ba_prioriB gamma=$Ba_prioriG \ #
# $Z entiers=VRAI \ #
# $Z > $xTV/Liste$BLEUE #
# #
# $Z set ListeR=`$CA $xTV/Liste$ROUGE` #
# $Z set ListeV=`$CA $xTV/Liste$VERTE` #
# $Z set ListeB=`$CA $xTV/Liste$BLEUE` #
# #
# $Z $CP $xw1/xxxx.pmc/STRU.$Ngeo.0001$ROUGE $xw1/xxxx.pmc/COLL.$Ngeo.0001$ROUGE #
# $Z $CP $xw1/xxxx.pmc/STRU.$Ngeo.0001$VERTE $xw1/xxxx.pmc/COLL.$Ngeo.0001$VERTE #
# $Z $CP $xw1/xxxx.pmc/STRU.$Ngeo.0001$BLEUE $xw1/xxxx.pmc/COLL.$Ngeo.0001$BLEUE #
# #
# $c #define N0 (Premiere+1) #
# $c #define N (Derniere+1) #
# #
# $c int main() #
# $c { #
# $c int n; #
# #
# $c for (n=N0 ; n<=N ; n++) #
# $c { #
# $c printf("$DELETE $xTV/collision\n"); #
# $c printf("$DELETE $xTV/collision$COORD_X\n"); #
# $c printf("$DELETE $xTV/collision$COORD_Y\n"); #
# #
# $c printf("$CA $xTV/tra.d | #
# $c $SE -e 's/^ *//' -e 's/ */ /g' | #
# $c $AW '/traj %d=/,/traj %d=/' | #
# $c $SE -e '/^traj *[0-9][0-9]*=$/d' | #
# $c $R %c$K_BLANC%c %c$K_NL%c | #
# $c $NL -nrz -w$Numerotage | #
# $c $R %c$K_TAB%c %c$K_BLANC%c #
# $c > $xTV/collision\n" #
# $c ,n-1,n,'"','"','"','"','"','"','"','"' #
# $c ); #
# $c printf("$CA $xTV/collision | #
# $c $GRE '[13579] ' | #
# $c $AW ' { print $2 } ' #
# $c > $xTV/collision$COORD_X\n" #
# $c ); #
# $c printf("$CA $xTV/collision | #
# $c $GRE '[02468] ' | #
# $c $AW ' { print $2 } ' #
# $c > $xTV/collision$COORD_Y\n" #
# $c ); #
# #
# $c printf("set Lcol=`$WC $xTV/collision`\n"); #
# $c printf("set Lcol=$Lcol[$WC1]\n"); #
# $c printf("@ Lcol = $Lcol / 2\n"); #
# $c printf("$xrv/particule.10$X #
# $c ATTENTION=FAUX #
# $c np=1 iterations=$Lcol #
# $c LISTE_X=$xTV/collision$COORD_X #
# $c LISTE_Y=$xTV/collision$COORD_Y #
# $c LISTE_Z=$Zcollis #
# $c LISTE_ROUGE=$ListeR[%d] #
# $c LISTE_VERTE=$ListeV[%d] #
# $c LISTE_BLEUE=$ListeB[%d] #
# $c isoles=FAUX #
# $c Pajuster=VRAI #
# $c AX=$HomoXYZ BX=$TranX #
# $c AY=$HomoXYZ BY=$TranY #
# $c rayon_de_visualisation=$Rcollis #
# $c ZOOM=$Rzoom #
# $c tri=VRAI N_au_carre=FAUX #
# $c fond=VRAI dynamique=FAUX #
# $c F=$xw1/xxxx.pmc/COLL.$Ngeo.%04d #
# $c Lz=1000 #
# $c R=$xw1/xxxx.pmc/COLL. #
# $c $formatI\n" #
# $c ,n-1,n-1,n-1,N0-1 #
# $c ); #
# #
# $c printf("$CP $xw1/xxxx.pmc/COLL.%04d$ROUGE #
# $c $xw1/xxxx.pmc/COLL.$Ngeo.%04d$ROUGE\n" #
# $c ,N0-1,n #
# $c ); #
# $c printf("$CP $xw1/xxxx.pmc/COLL.%04d$VERTE #
# $c $xw1/xxxx.pmc/COLL.$Ngeo.%04d$VERTE\n" #
# $c ,N0-1,n #
# $c ); #
# $c printf("$CP $xw1/xxxx.pmc/COLL.%04d$BLEUE #
# $c $xw1/xxxx.pmc/COLL.$Ngeo.%04d$BLEUE\n" #
# $c ,N0-1,n #
# $c ); #
# $c } #
# $c } #
# #
# $Z end #
# $Z $DELETE $xTV/geometry.1$k #
# $Z $DELETE $xTV/geometry.2$k #
# $Z $DELETE $xTV/geometry #
# $Z $DELETE $xTV/struc2d$COORD_X #
# $Z $DELETE $xTV/struc2d$COORD_Y #
# $Z $DELETE $xTV/struc2d$COORD_Z #
# $Z $DELETE $xTV/tra.d #
# $Z $DELETE $xTV/Liste$ROUGE #
# $Z $DELETE $xTV/Liste$VERTE #
# $Z $DELETE $xTV/Liste$BLEUE #
# $Z $DELETE $xTV/collision #
# $Z $DELETE $xTV/collision$COORD_X #
# $Z $DELETE $xTV/collision$COORD_Y #
# #
# #
# Std #
# #
# $xci/disk_video_P$Z $xw1/xxxx.pmc/COLL.0. 0001 0064 RVB \ #
# 4 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# $xci/disk_video_P$Z $xw1/xxxx.pmc/COLL.1. 0001 0064 RVB \ #
# 4 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# $xci/disk_video_P$Z $xw1/xxxx.pmc/COLL.2. 0001 0064 RVB \ #
# 4 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# $xci/disk_video_P$Z $xw1/xxxx.pmc/COLL.3. 0001 0064 RVB \ #
# 4 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
sequence 022076_022139
sequence 022140_022203
sequence 022204_022267
sequence 022268_022331
# Sequence generee via '$xu/SB.Santra/collision.11$f' par : #
# #
# #
# $Z Pal #
# #
# $Z SET Premiere=1 #
# $Z SET Derniere=63 #
# #
# $Z set CRstruc2d=$GRIS_8 #
# $Z set CVstruc2d=$GRIS_6 #
# $Z set CBstruc2d=$GRIS_2 #
# $Z set Rstruc2d=0.02 #
# $Z set Zstruc2d=0.0 #
# $Z set Rcollis=0.02 #
# $Z set Zcollis=0.0 #
# $Z set Rzoom=1.2 #
# #
# #
# $Z set Numerotage=4 #
# #
# #
# $Z $DELETE $xTV/geometry.1$k #
# $Z $DELETE $xTV/geometry.2$k #
# #
# $Z echo 'BEGIN {' >>! $xTV/geometry.1$k #
# $Z echo ' numero = 0;' >>! $xTV/geometry.1$k #
# $Z echo ' }' >>! $xTV/geometry.1$k #
# $Z echo '{' >>! $xTV/geometry.1$k #
# $Z echo 'numero++;' >>! $xTV/geometry.1$k #
# $Z echo 'ligne[numero] = $0;' >>! $xTV/geometry.1$k #
# $Z echo '}' >>! $xTV/geometry.1$k #
# $Z echo 'END {' >>! $xTV/geometry.1$k #
# $Z echo ' for (n=1 ; n<=numero ; n++)' >>! $xTV/geometry.1$k #
# $Z echo ' {' >>! $xTV/geometry.1$k #
# $Z echo ' printf("%s",ligne[n]);' >>! $xTV/geometry.1$k #
# $Z echo ' if ((n%2) == 0)' >>! $xTV/geometry.1$k #
# $Z echo ' {' >>! $xTV/geometry.1$k #
# $Z echo ' printf("\\n");' >>! $xTV/geometry.1$k #
# $Z echo ' }' >>! $xTV/geometry.1$k #
# $Z echo ' else' >>! $xTV/geometry.1$k #
# $Z echo ' {' >>! $xTV/geometry.1$k #
# $Z echo ' printf(" ");' >>! $xTV/geometry.1$k #
# $Z echo ' }' >>! $xTV/geometry.1$k #
# $Z echo ' }' >>! $xTV/geometry.1$k #
# $Z echo ' }' >>! $xTV/geometry.1$k #
# #
# $Z echo 'BEGIN {' >>! $xTV/geometry.2$k #
# $Z echo ' numero = 0;' >>! $xTV/geometry.2$k #
# $Z echo ' }' >>! $xTV/geometry.2$k #
# $Z echo '{' >>! $xTV/geometry.2$k #
# $Z echo 'numero++;' >>! $xTV/geometry.2$k #
# $Z echo 'ligne[numero] = $0;' >>! $xTV/geometry.2$k #
# $Z echo '}' >>! $xTV/geometry.2$k #
# $Z echo 'END {' >>! $xTV/geometry.2$k #
# $Z echo ' for (n=1 ; n<=numero ; n++)' >>! $xTV/geometry.2$k #
# $Z echo ' {' >>! $xTV/geometry.2$k #
# $Z echo ' printf("%s\\n",ligne[n]);' >>! $xTV/geometry.2$k #
# $Z echo ' if ((n > 1) && (n<numero))' >>! $xTV/geometry.2$k #
# $Z echo ' {' >>! $xTV/geometry.2$k #
# $Z echo ' printf("%s\\n",ligne[n]);' >>! $xTV/geometry.2$k #
# $Z echo ' }' >>! $xTV/geometry.2$k #
# $Z echo ' else' >>! $xTV/geometry.2$k #
# $Z echo ' {' >>! $xTV/geometry.2$k #
# $Z echo ' }' >>! $xTV/geometry.2$k #
# $Z echo ' }' >>! $xTV/geometry.2$k #
# $Z echo ' }' >>! $xTV/geometry.2$k #
# #
# $Z set Ra_prioriB=$GRIS_0 #
# $Z set Ra_prioriG=$GRIS_8 #
# $Z set Va_prioriB=$GRIS_0 #
# $Z set Va_prioriG=$GRIS_8 #
# $Z set Ba_prioriB=$GRIS_0 #
# $Z set Ba_prioriG=$GRIS_8 #
# #
# $Z set Lgeometry={0,1,2,3} #
# #
# $Z foreach Ngeo ($Lgeometry) #
# #
# $Z setenv Fgeometry $xu/SB.Santra/pore$Ngeo.d #
# #
# $Z $DELETE $xTV/geometry #
# #
# $Z $CA $Fgeometry \ #
# $Z | $TAI +2 \ #
# $Z | $AW -f $xTV/geometry.1$k \ #
# $Z | $AW -f $xTV/geometry.2$k \ #
# $Z | $R "$K_BLANC" "$K_NL" \ #
# $Z > $xTV/geometry #
# #
# $Z set Lstruc2d=`$WC $xTV/geometry` #
# $Z set Lstruc2d=$Lstruc2d[$WC1] #
# $Z @ Lstruc2d = $Lstruc2d / 2 #
# #
# $Z $DELETE $xTV/struc2d$COORD_X #
# $Z $DELETE $xTV/struc2d$COORD_Y #
# $Z $DELETE $xTV/struc2d$COORD_Z #
# #
# $Z $CA $xTV/geometry \ #
# $Z | $NL -nrz -w$Numerotage \ #
# $Z | $R "$K_TAB" "$K_BLANC" \ #
# $Z | $GRE "[13579] " \ #
# $Z | $AW ' { print $2 } ' \ #
# $Z > $xTV/struc2d$COORD_X #
# $Z $CA $xTV/geometry \ #
# $Z | $NL -nrz -w$Numerotage \ #
# $Z | $R "$K_TAB" "$K_BLANC" \ #
# $Z | $GRE "[02468] " \ #
# $Z | $AW ' { print $2 } ' \ #
# $Z > $xTV/struc2d$COORD_Y #
# $Z $xci/valeurs_inte$X p=1 d=$Lstruc2d vD=$Zstruc2d vA=$Zstruc2d \ #
# $Z > $xTV/struc2d$COORD_Z #
# #
# $Z set FichierX="fichier=$xTV/struc2d$COORD_X" #
# $Z set FichierY="fichier=$xTV/struc2d$COORD_Y" #
# $Z set FichierXY="CAL1=FAUX ne=$Lstruc2d" #
# #
# $Z set ScaleX=`$xrv/extrema.01$X $FichierXY $FichierX` #
# $Z set HomoX=`echo "$ScaleX" | $SE -e "s/.*facteur d'homothetie=\([^ ][^ ]*\).*/\1/"` #
# #
# $Z set ScaleY=`$xrv/extrema.01$X $FichierXY $FichierY` #
# $Z set HomoY=`echo "$ScaleY" | $SE -e "s/.*facteur d'homothetie=\([^ ][^ ]*\).*/\1/"` #
# #
# $Z set HomoXYZ=`$xcg/MIN2.01$X n1=$HomoX n2=$HomoY` #
# $Z set Minimum=0 #
# $Z set Maximum=1 #
# $Z set Milieu=`$xcg/SOUS.01$X n1=$Maximum n2=$Minimum` #
# $Z set Milieu=`$xcg/MOIT.01$X n=$Milieu` #
# $Z set Milieu=`echo $Milieu | $SE -e "s/^.//"` #
# #
# $Z if ("$HomoX" != "$HomoXYZ") then #
# $Z set HomoX1=`$xcg/DIVZ.01$X n1=$HomoXYZ n2=$HomoX` #
# $Z set MinimumX=`$xcg/AXPB.01$X a=-$Milieu x=$HomoX1 b=$Milieu` #
# $Z set MaximumX=`$xcg/AXPB.01$X a=+$Milieu x=$HomoX1 b=$Milieu` #
# #
# $Z set MinimumY=$Minimum #
# $Z set MaximumY=$Maximum #
# $Z else #
# $Z set MinimumX=$Minimum #
# $Z set MaximumX=$Maximum #
# #
# $Z set HomoY1=`$xcg/DIVZ.01$X n1=$HomoXYZ n2=$HomoY` #
# $Z set MinimumY=`$xcg/AXPB.01$X a=-$Milieu x=$HomoY1 b=$Milieu` #
# $Z set MaximumY=`$xcg/AXPB.01$X a=+$Milieu x=$HomoY1 b=$Milieu` #
# $Z endif #
# #
# $Z set ScaleX=`$xrv/extrema.01$X $FichierXY $FichierX m=$MinimumX M=$MaximumX` #
# $Z set HomoX=`echo "$ScaleX" | $SE -e "s/.*facteur d'homothetie=\([^ ][^ ]*\).*/\1/"` #
# $Z set TranX=`echo "$ScaleX" | $SE -e "s/.*translation.*=\([^ ][^ ]*\).*/\1/"` #
# #
# $Z set ScaleY=`$xrv/extrema.01$X $FichierXY $FichierY m=$MinimumY M=$MaximumY` #
# $Z set HomoY=`echo "$ScaleY" | $SE -e "s/.*facteur d'homothetie=\([^ ][^ ]*\).*/\1/"` #
# $Z set TranY=`echo "$ScaleY" | $SE -e "s/.*translation.*=\([^ ][^ ]*\).*/\1/"` #
# #
# $Z $xrv/particule.10$X \ #
# $Z ATTENTION=FAUX \ #
# $Z np=1 iterations=$Lstruc2d \ #
# $Z LISTE_X=$xTV/struc2d$COORD_X \ #
# $Z LISTE_Y=$xTV/struc2d$COORD_Y \ #
# $Z LISTE_Z=$xTV/struc2d$COORD_Z \ #
# $Z LISTE_ROUGE=$CRstruc2d \ #
# $Z LISTE_VERTE=$CVstruc2d \ #
# $Z LISTE_BLEUE=$CBstruc2d \ #
# $Z isoles=FAUX Pajuster=VRAI \ #
# $Z AX=$HomoX BX=$TranX \ #
# $Z AY=$HomoY BY=$TranY \ #
# $Z rayon_de_visualisation=$Rstruc2d \ #
# $Z ZOOM=$Rzoom \ #
# $Z tri=VRAI N_au_carre=FAUX \ #
# $Z Lz=1000 \ #
# $Z R=$xw1/xxxx.pmc/STRU.$Ngeo. \ #
# $Z $formatI #
# #
# $Z PushdC $xu/SB.Santra #
# $Z $DELETE $xTV/tra.d #
# $Z $xu/SB.Santra/$aPout #
# $Z PopdC #
# #
# $Z $DELETE $xTV/Liste$ROUGE #
# $Z $DELETE $xTV/Liste$VERTE #
# $Z $DELETE $xTV/Liste$BLEUE #
# #
# $Z set Angle=`$xcg/MUL2.01$X n1=1.0 n2=$dpi` #
# $Z $xci/valeurs_trig$X premiere=$Premiere derniere=$Derniere \ #
# $Z aD=0 aA=$Angle \ #
# $Z alpha=0 beta=$Ra_prioriB gamma=$Ra_prioriG \ #
# $Z entiers=VRAI \ #
# $Z > $xTV/Liste$ROUGE #
# $Z set Angle=`$xcg/MUL2.01$X n1=2.0 n2=$dpi` #
# $Z $xci/valeurs_trig$X premiere=$Premiere derniere=$Derniere \ #
# $Z aD=0 aA=$Angle \ #
# $Z alpha=0 beta=$Va_prioriB gamma=$Va_prioriG \ #
# $Z entiers=VRAI \ #
# $Z > $xTV/Liste$VERTE #
# $Z set Angle=`$xcg/MUL2.01$X n1=3.0 n2=$dpi` #
# $Z $xci/valeurs_trig$X premiere=$Premiere derniere=$Derniere \ #
# $Z aD=0 aA=$Angle \ #
# $Z alpha=0 beta=$Ba_prioriB gamma=$Ba_prioriG \ #
# $Z entiers=VRAI \ #
# $Z > $xTV/Liste$BLEUE #
# #
# $Z set ListeR=`$CA $xTV/Liste$ROUGE` #
# $Z set ListeV=`$CA $xTV/Liste$VERTE` #
# $Z set ListeB=`$CA $xTV/Liste$BLEUE` #
# #
# $Z $CP $xw1/xxxx.pmc/STRU.$Ngeo.0001$ROUGE $xw1/xxxx.pmc/COLL.$Ngeo.0001$ROUGE #
# $Z $CP $xw1/xxxx.pmc/STRU.$Ngeo.0001$VERTE $xw1/xxxx.pmc/COLL.$Ngeo.0001$VERTE #
# $Z $CP $xw1/xxxx.pmc/STRU.$Ngeo.0001$BLEUE $xw1/xxxx.pmc/COLL.$Ngeo.0001$BLEUE #
# #
# $c #define N0 (Premiere+1) #
# $c #define N (Derniere+1) #
# #
# $c int main() #
# $c { #
# $c int n; #
# #
# $c for (n=N0 ; n<=N ; n++) #
# $c { #
# $c printf("$DELETE $xTV/collision\n"); #
# $c printf("$DELETE $xTV/collision$COORD_X\n"); #
# $c printf("$DELETE $xTV/collision$COORD_Y\n"); #
# #
# $c printf("$CA $xTV/tra.d | #
# $c $SE -e 's/^ *//' -e 's/ */ /g' | #
# $c $AW '/traj %d=/,/traj %d=/' | #
# $c $SE -e '/^traj *[0-9][0-9]*=$/d' | #
# $c $R %c$K_BLANC%c %c$K_NL%c | #
# $c $NL -nrz -w$Numerotage | #
# $c $R %c$K_TAB%c %c$K_BLANC%c #
# $c > $xTV/collision\n" #
# $c ,n-1,n,'"','"','"','"','"','"','"','"' #
# $c ); #
# $c printf("$CA $xTV/collision | #
# $c $GRE '[13579] ' | #
# $c $AW ' { print $2 } ' #
# $c > $xTV/collision$COORD_X\n" #
# $c ); #
# $c printf("$CA $xTV/collision | #
# $c $GRE '[02468] ' | #
# $c $AW ' { print $2 } ' #
# $c > $xTV/collision$COORD_Y\n" #
# $c ); #
# #
# $c printf("set Lcol=`$WC $xTV/collision`\n"); #
# $c printf("set Lcol=$Lcol[$WC1]\n"); #
# $c printf("@ Lcol = $Lcol / 2\n"); #
# $c printf("$xrv/particule.10$X #
# $c ATTENTION=FAUX #
# $c np=1 iterations=$Lcol #
# $c LISTE_X=$xTV/collision$COORD_X #
# $c LISTE_Y=$xTV/collision$COORD_Y #
# $c LISTE_Z=$Zcollis #
# $c LISTE_ROUGE=$ListeR[%d] #
# $c LISTE_VERTE=$ListeV[%d] #
# $c LISTE_BLEUE=$ListeB[%d] #
# $c isoles=FAUX #
# $c Pajuster=VRAI #
# $c AX=$HomoX BX=$TranX #
# $c AY=$HomoY BY=$TranY #
# $c rayon_de_visualisation=$Rcollis #
# $c ZOOM=$Rzoom #
# $c tri=VRAI N_au_carre=FAUX #
# $c fond=VRAI dynamique=FAUX #
# $c F=$xw1/xxxx.pmc/COLL.$Ngeo.%04d #
# $c Lz=1000 #
# $c R=$xw1/xxxx.pmc/COLL. #
# $c $formatI\n" #
# $c ,n-1,n-1,n-1,N0-1 #
# $c ); #
# #
# $c printf("$CP $xw1/xxxx.pmc/COLL.%04d$ROUGE #
# $c $xw1/xxxx.pmc/COLL.$Ngeo.%04d$ROUGE\n" #
# $c ,N0-1,n #
# $c ); #
# $c printf("$CP $xw1/xxxx.pmc/COLL.%04d$VERTE #
# $c $xw1/xxxx.pmc/COLL.$Ngeo.%04d$VERTE\n" #
# $c ,N0-1,n #
# $c ); #
# $c printf("$CP $xw1/xxxx.pmc/COLL.%04d$BLEUE #
# $c $xw1/xxxx.pmc/COLL.$Ngeo.%04d$BLEUE\n" #
# $c ,N0-1,n #
# $c ); #
# $c } #
# $c } #
# #
# $Z end #
# $Z $DELETE $xTV/geometry.1$k #
# $Z $DELETE $xTV/geometry.2$k #
# $Z $DELETE $xTV/geometry #
# $Z $DELETE $xTV/struc2d$COORD_X #
# $Z $DELETE $xTV/struc2d$COORD_Y #
# $Z $DELETE $xTV/struc2d$COORD_Z #
# $Z $DELETE $xTV/tra.d #
# $Z $DELETE $xTV/Liste$ROUGE #
# $Z $DELETE $xTV/Liste$VERTE #
# $Z $DELETE $xTV/Liste$BLEUE #
# $Z $DELETE $xTV/collision #
# $Z $DELETE $xTV/collision$COORD_X #
# $Z $DELETE $xTV/collision$COORD_Y #
# #
# #
# Pal #
# #
# $xci/disk_video_P$Z $xw1/xxxx.pmc/COLL.0. 0001 0064 RVB \ #
# 4 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# $xci/disk_video_P$Z $xw1/xxxx.pmc/COLL.1. 0001 0064 RVB \ #
# 4 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# $xci/disk_video_P$Z $xw1/xxxx.pmc/COLL.2. 0001 0064 RVB \ #
# 4 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# $xci/disk_video_P$Z $xw1/xxxx.pmc/COLL.3. 0001 0064 RVB \ #
# 4 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
sequence 022332_022395
sequence 022396_022459
sequence 022460_022523
sequence 022524_022587
# Sequence generee via '$xu/SB.Santra/collision.12$f' par... Mais ATTENTION, le compteur #
# n'a que deux chiffres or j'ai decouvert le 19971124152543 que 3, voire 4 chiffres pouvaient #
# etre necessaires. Ces sequences ont donc ete refaites en : #
# #
# xivPdf 4 2 / 024480_024607 #
# xivPdf 4 2 / 024608_024735 #
# xivPdf 4 2 / 024736_024863 #
# xivPdf 4 2 / 024987_025114 #
# #
# #
# $Z Pal #
# #
# $Z SET Premiere=1 #
# $Z SET Derniere=63 #
# #
# $Z set CRstruc2d=$GRIS_8 #
# $Z set CVstruc2d=$GRIS_6 #
# $Z set CBstruc2d=$GRIS_2 #
# $Z set Rstruc2d=0.0075 #
# $Z set Zstruc2d=0.0 #
# $Z set Rcollis=0.0075 #
# $Z set Zcollis=0.0 #
# $Z set Rzoom=1.2 #
# #
# #
# $Z set Numerotage=4 #
# #
# #
# $Z $DELETE $xTV/geometry.1$k #
# $Z $DELETE $xTV/geometry.2$k #
# #
# $Z echo 'BEGIN {' >>! $xTV/geometry.1$k #
# $Z echo ' numero = 0;' >>! $xTV/geometry.1$k #
# $Z echo ' }' >>! $xTV/geometry.1$k #
# $Z echo '{' >>! $xTV/geometry.1$k #
# $Z echo 'numero++;' >>! $xTV/geometry.1$k #
# $Z echo 'ligne[numero] = $0;' >>! $xTV/geometry.1$k #
# $Z echo '}' >>! $xTV/geometry.1$k #
# $Z echo 'END {' >>! $xTV/geometry.1$k #
# $Z echo ' for (n=1 ; n<=numero ; n++)' >>! $xTV/geometry.1$k #
# $Z echo ' {' >>! $xTV/geometry.1$k #
# $Z echo ' printf("%s",ligne[n]);' >>! $xTV/geometry.1$k #
# $Z echo ' if ((n%2) == 0)' >>! $xTV/geometry.1$k #
# $Z echo ' {' >>! $xTV/geometry.1$k #
# $Z echo ' printf("\\n");' >>! $xTV/geometry.1$k #
# $Z echo ' }' >>! $xTV/geometry.1$k #
# $Z echo ' else' >>! $xTV/geometry.1$k #
# $Z echo ' {' >>! $xTV/geometry.1$k #
# $Z echo ' printf(" ");' >>! $xTV/geometry.1$k #
# $Z echo ' }' >>! $xTV/geometry.1$k #
# $Z echo ' }' >>! $xTV/geometry.1$k #
# $Z echo ' }' >>! $xTV/geometry.1$k #
# #
# $Z echo 'BEGIN {' >>! $xTV/geometry.2$k #
# $Z echo ' numero = 0;' >>! $xTV/geometry.2$k #
# $Z echo ' }' >>! $xTV/geometry.2$k #
# $Z echo '{' >>! $xTV/geometry.2$k #
# $Z echo 'numero++;' >>! $xTV/geometry.2$k #
# $Z echo 'ligne[numero] = $0;' >>! $xTV/geometry.2$k #
# $Z echo '}' >>! $xTV/geometry.2$k #
# $Z echo 'END {' >>! $xTV/geometry.2$k #
# $Z echo ' for (n=1 ; n<=numero ; n++)' >>! $xTV/geometry.2$k #
# $Z echo ' {' >>! $xTV/geometry.2$k #
# $Z echo ' printf("%s\\n",ligne[n]);' >>! $xTV/geometry.2$k #
# $Z echo ' if ((n > 1) && (n<numero))' >>! $xTV/geometry.2$k #
# $Z echo ' {' >>! $xTV/geometry.2$k #
# $Z echo ' printf("%s\\n",ligne[n]);' >>! $xTV/geometry.2$k #
# $Z echo ' }' >>! $xTV/geometry.2$k #
# $Z echo ' else' >>! $xTV/geometry.2$k #
# $Z echo ' {' >>! $xTV/geometry.2$k #
# $Z echo ' }' >>! $xTV/geometry.2$k #
# $Z echo ' }' >>! $xTV/geometry.2$k #
# $Z echo ' }' >>! $xTV/geometry.2$k #
# #
# $Z set Ra_prioriB=$GRIS_0 #
# $Z set Ra_prioriG=$GRIS_8 #
# $Z set Va_prioriB=$GRIS_0 #
# $Z set Va_prioriG=$GRIS_8 #
# $Z set Ba_prioriB=$GRIS_0 #
# $Z set Ba_prioriG=$GRIS_8 #
# #
# $Z set Lgeometry={0,1,2,3} #
# #
# $Z foreach Ngeo ($Lgeometry) #
# #
# $Z setenv Fgeometry $xu/SB.Santra/pore$Ngeo.d #
# #
# $Z $DELETE $xTV/geometry #
# #
# $Z $CA $Fgeometry \ #
# $Z | $TAI +2 \ #
# $Z | $AW -f $xTV/geometry.1$k \ #
# $Z | $AW -f $xTV/geometry.2$k \ #
# $Z | $R "$K_BLANC" "$K_NL" \ #
# $Z > $xTV/geometry #
# #
# $Z set Lstruc2d=`$WC $xTV/geometry` #
# $Z set Lstruc2d=$Lstruc2d[$WC1] #
# $Z @ Lstruc2d = $Lstruc2d / 2 #
# #
# $Z $DELETE $xTV/struc2d$COORD_X #
# $Z $DELETE $xTV/struc2d$COORD_Y #
# $Z $DELETE $xTV/struc2d$COORD_Z #
# #
# $Z $CA $xTV/geometry \ #
# $Z | $NL -nrz -w$Numerotage \ #
# $Z | $R "$K_TAB" "$K_BLANC" \ #
# $Z | $GRE "[13579] " \ #
# $Z | $AW ' { print $2 } ' \ #
# $Z > $xTV/struc2d$COORD_X #
# $Z $CA $xTV/geometry \ #
# $Z | $NL -nrz -w$Numerotage \ #
# $Z | $R "$K_TAB" "$K_BLANC" \ #
# $Z | $GRE "[02468] " \ #
# $Z | $AW ' { print $2 } ' \ #
# $Z > $xTV/struc2d$COORD_Y #
# $Z $xci/valeurs_inte$X p=1 d=$Lstruc2d vD=$Zstruc2d vA=$Zstruc2d \ #
# $Z > $xTV/struc2d$COORD_Z #
# #
# $Z set FichierX="fichier=$xTV/struc2d$COORD_X" #
# $Z set FichierY="fichier=$xTV/struc2d$COORD_Y" #
# $Z set FichierXY="CAL1=FAUX ne=$Lstruc2d" #
# #
# $Z set ScaleX=`$xrv/extrema.01$X $FichierXY $FichierX` #
# $Z set HomoX=`echo "$ScaleX" | $SE -e "s/.*facteur d'homothetie=\([^ ][^ ]*\).*/\1/"` #
# #
# $Z set ScaleY=`$xrv/extrema.01$X $FichierXY $FichierY` #
# $Z set HomoY=`echo "$ScaleY" | $SE -e "s/.*facteur d'homothetie=\([^ ][^ ]*\).*/\1/"` #
# #
# $Z set HomoXYZ=`$xcg/MIN2.01$X n1=$HomoX n2=$HomoY` #
# $Z set Minimum=0 #
# $Z set Maximum=1 #
# $Z set Milieu=`$xcg/SOUS.01$X n1=$Maximum n2=$Minimum` #
# $Z set Milieu=`$xcg/MOIT.01$X n=$Milieu` #
# $Z set Milieu=`echo $Milieu | $SE -e "s/^.//"` #
# #
# $Z if ("$HomoX" != "$HomoXYZ") then #
# $Z set HomoX1=`$xcg/DIVZ.01$X n1=$HomoXYZ n2=$HomoX` #
# $Z set MinimumX=`$xcg/AXPB.01$X a=-$Milieu x=$HomoX1 b=$Milieu` #
# $Z set MaximumX=`$xcg/AXPB.01$X a=+$Milieu x=$HomoX1 b=$Milieu` #
# #
# $Z set MinimumY=$Minimum #
# $Z set MaximumY=$Maximum #
# $Z else #
# $Z set MinimumX=$Minimum #
# $Z set MaximumX=$Maximum #
# #
# $Z set HomoY1=`$xcg/DIVZ.01$X n1=$HomoXYZ n2=$HomoY` #
# $Z set MinimumY=`$xcg/AXPB.01$X a=-$Milieu x=$HomoY1 b=$Milieu` #
# $Z set MaximumY=`$xcg/AXPB.01$X a=+$Milieu x=$HomoY1 b=$Milieu` #
# $Z endif #
# #
# $Z set ScaleX=`$xrv/extrema.01$X $FichierXY $FichierX m=$MinimumX M=$MaximumX` #
# $Z set HomoX=`echo "$ScaleX" | $SE -e "s/.*facteur d'homothetie=\([^ ][^ ]*\).*/\1/"` #
# $Z set TranX=`echo "$ScaleX" | $SE -e "s/.*translation.*=\([^ ][^ ]*\).*/\1/"` #
# #
# $Z set ScaleY=`$xrv/extrema.01$X $FichierXY $FichierY m=$MinimumY M=$MaximumY` #
# $Z set HomoY=`echo "$ScaleY" | $SE -e "s/.*facteur d'homothetie=\([^ ][^ ]*\).*/\1/"` #
# $Z set TranY=`echo "$ScaleY" | $SE -e "s/.*translation.*=\([^ ][^ ]*\).*/\1/"` #
# #
# $Z $xrv/particule.10$X \ #
# $Z ATTENTION=FAUX \ #
# $Z np=1 iterations=$Lstruc2d \ #
# $Z LISTE_X=$xTV/struc2d$COORD_X \ #
# $Z LISTE_Y=$xTV/struc2d$COORD_Y \ #
# $Z LISTE_Z=$xTV/struc2d$COORD_Z \ #
# $Z LISTE_ROUGE=$CRstruc2d \ #
# $Z LISTE_VERTE=$CVstruc2d \ #
# $Z LISTE_BLEUE=$CBstruc2d \ #
# $Z isoles=FAUX Pajuster=VRAI \ #
# $Z AX=$HomoX BX=$TranX \ #
# $Z AY=$HomoY BY=$TranY \ #
# $Z rayon_de_visualisation=$Rstruc2d \ #
# $Z ZOOM=$Rzoom \ #
# $Z tri=VRAI N_au_carre=FAUX \ #
# $Z Lz=1000 \ #
# $Z R=$xw1/xxxx.pmc/STRU.$Ngeo. \ #
# $Z $formatI #
# #
# $Z PushdC $xu/SB.Santra #
# $Z $DELETE $xTV/tra.d #
# $Z $xu/SB.Santra/$aPout #
# $Z PopdC #
# #
# $Z $DELETE $xTV/Liste$ROUGE #
# $Z $DELETE $xTV/Liste$VERTE #
# $Z $DELETE $xTV/Liste$BLEUE #
# #
# $Z set Angle=`$xcg/MUL2.01$X n1=1.0 n2=$dpi` #
# $Z $xci/valeurs_trig$X premiere=$Premiere derniere=$Derniere \ #
# $Z aD=0 aA=$Angle \ #
# $Z alpha=0 beta=$Ra_prioriB gamma=$Ra_prioriG \ #
# $Z entiers=VRAI \ #
# $Z > $xTV/Liste$ROUGE #
# $Z set Angle=`$xcg/MUL2.01$X n1=2.0 n2=$dpi` #
# $Z $xci/valeurs_trig$X premiere=$Premiere derniere=$Derniere \ #
# $Z aD=0 aA=$Angle \ #
# $Z alpha=0 beta=$Va_prioriB gamma=$Va_prioriG \ #
# $Z entiers=VRAI \ #
# $Z > $xTV/Liste$VERTE #
# $Z set Angle=`$xcg/MUL2.01$X n1=3.0 n2=$dpi` #
# $Z $xci/valeurs_trig$X premiere=$Premiere derniere=$Derniere \ #
# $Z aD=0 aA=$Angle \ #
# $Z alpha=0 beta=$Ba_prioriB gamma=$Ba_prioriG \ #
# $Z entiers=VRAI \ #
# $Z > $xTV/Liste$BLEUE #
# #
# $Z set Message="x=0.1 y=0.1 T=3 anti_aliasing=VRAI" #
# #
# $Z set ListeR=`$CA $xTV/Liste$ROUGE` #
# $Z set ListeV=`$CA $xTV/Liste$VERTE` #
# $Z set ListeB=`$CA $xTV/Liste$BLEUE` #
# #
# $Z $CP $xw1/xxxx.pmc/STRU.$Ngeo.0001$ROUGE $xw1/xxxx.pmc/COLL.$Ngeo.0001$ROUGE #
# $Z $CP $xw1/xxxx.pmc/STRU.$Ngeo.0001$VERTE $xw1/xxxx.pmc/COLL.$Ngeo.0001$VERTE #
# $Z $CP $xw1/xxxx.pmc/STRU.$Ngeo.0001$BLEUE $xw1/xxxx.pmc/COLL.$Ngeo.0001$BLEUE #
# #
# $c #define N0 (Premiere+1) #
# $c #define N (Derniere+1) #
# #
# $c int main() #
# $c { #
# $c int n; #
# #
# $c for (n=N0 ; n<=N ; n++) #
# $c { #
# $c printf("$DELETE $xTV/collis\n"); #
# $c printf("$DELETE $xTV/collision\n"); #
# $c printf("$DELETE $xTV/collision$COORD_X\n"); #
# $c printf("$DELETE $xTV/collision$COORD_Y\n"); #
# #
# $c printf("$CA $xTV/tra.d | #
# $c $SE -e 's/^ *//' -e 's/ */ /g' | #
# $c $AW '/traj %d=/,/traj %d=/' | #
# $c $SE -e '/^traj *[0-9][0-9]*=$/d' | #
# $c $SE -e 's/^\\(refl\\) */\\1=/' | #
# $c $R %c$K_BLANC%c %c$K_NL%c #
# $c > $xTV/collis\n" #
# $c ,n-1,n,'"','"','"','"' #
# $c ); #
# #
# $c printf("set Nre=`$GRE '^refl=' $xTV/collis | $SE -e 's/^refl=//' -e 's/=$//'`\n"); #
# $c printf("set Nre=`echo '00'$Nre | $SE -e 's/^.*\\(..\\)$/\\1/'`\n"); #
# #
# $c printf("$CA $xTV/collis | #
# $c $SE -e '/^refl=[0-9][0-9]*=$/d' | #
# $c $NL -nrz -w$Numerotage | #
# $c $R %c$K_TAB%c %c$K_BLANC%c #
# $c > $xTV/collision\n" #
# $c ,'"','"','"','"' #
# $c ); #
# #
# $c printf("$CA $xTV/collision | #
# $c $GRE '[13579] ' | #
# $c $AW ' { print $2 } ' #
# $c > $xTV/collision$COORD_X\n" #
# $c ); #
# $c printf("$CA $xTV/collision | #
# $c $GRE '[02468] ' | #
# $c $AW ' { print $2 } ' #
# $c > $xTV/collision$COORD_Y\n" #
# $c ); #
# #
# $c printf("set Lcol=`$WC $xTV/collision`\n"); #
# $c printf("set Lcol=$Lcol[$WC1]\n"); #
# $c printf("@ Lcol = $Lcol / 2\n"); #
# $c printf("$xrv/particule.10$X #
# $c ATTENTION=FAUX #
# $c np=1 iterations=$Lcol #
# $c LISTE_X=$xTV/collision$COORD_X #
# $c LISTE_Y=$xTV/collision$COORD_Y #
# $c LISTE_Z=$Zcollis #
# $c LISTE_ROUGE=$ListeR[%d] #
# $c LISTE_VERTE=$ListeV[%d] #
# $c LISTE_BLEUE=$ListeB[%d] #
# $c isoles=FAUX #
# $c Pajuster=VRAI #
# $c AX=$HomoX BX=$TranX #
# $c AY=$HomoY BY=$TranY #
# $c rayon_de_visualisation=$Rcollis #
# $c ZOOM=$Rzoom #
# $c tri=VRAI N_au_carre=FAUX #
# $c fond=VRAI dynamique=FAUX #
# $c F=$xw1/xxxx.pmc/COLL.$Ngeo.%04d #
# $c Lz=1000 #
# $c R=$xw1/xxxx.pmc/COLL. #
# $c $formatI\n" #
# $c ,n-1,n-1,n-1,N0-1 #
# $c ); #
# #
# $c printf("$xci/message$X #
# $c A=$xw1/xxxx.pmc/COLL.%04d$ROUGE #
# $c message=$Nre #
# $c $Message #
# $c R=$xw1/xxxx.pmc/COLL.$Ngeo.%04d$ROUGE #
# $c $formatI\n" #
# $c ,N0-1,n #
# $c ); #
# $c printf("$xci/message$X #
# $c A=$xw1/xxxx.pmc/COLL.%04d$VERTE #
# $c message=$Nre #
# $c $Message #
# $c R=$xw1/xxxx.pmc/COLL.$Ngeo.%04d$VERTE #
# $c $formatI\n" #
# $c ,N0-1,n #
# $c ); #
# $c printf("$xci/message$X #
# $c A=$xw1/xxxx.pmc/COLL.%04d$BLEUE #
# $c message=$Nre #
# $c $Message #
# $c R=$xw1/xxxx.pmc/COLL.$Ngeo.%04d$BLEUE #
# $c $formatI\n" #
# $c ,N0-1,n #
# $c ); #
# $c } #
# $c } #
# #
# $Z end #
# $Z $DELETE $xTV/geometry.1$k #
# $Z $DELETE $xTV/geometry.2$k #
# $Z $DELETE $xTV/geometry #
# $Z $DELETE $xTV/struc2d$COORD_X #
# $Z $DELETE $xTV/struc2d$COORD_Y #
# $Z $DELETE $xTV/struc2d$COORD_Z #
# $Z $DELETE $xTV/tra.d #
# $Z $DELETE $xTV/Liste$ROUGE #
# $Z $DELETE $xTV/Liste$VERTE #
# $Z $DELETE $xTV/Liste$BLEUE #
# $Z $DELETE $xTV/collis #
# $Z $DELETE $xTV/collision #
# $Z $DELETE $xTV/collision$COORD_X #
# $Z $DELETE $xTV/collision$COORD_Y #
# #
# #
# Pal #
# #
# $xci/disk_video_P$Z $xw1/xxxx.pmc/COLL.0. 0001 0064 RVB \ #
# 4 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# $xci/disk_video_P$Z $xw1/xxxx.pmc/COLL.1. 0001 0064 RVB \ #
# 4 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# $xci/disk_video_P$Z $xw1/xxxx.pmc/COLL.2. 0001 0064 RVB \ #
# 4 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# $xci/disk_video_P$Z $xw1/xxxx.pmc/COLL.3. 0001 0064 RVB \ #
# 4 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
sequence 022588_022651
sequence 022652_022715
sequence 022716_022779
sequence 022780_022843
# Sequence generee via '$xu/SB.Santra/collision.12$f' par : #
# #
# #
# $Z Pal #
# #
# $Z SET Premiere=1 #
# $Z SET Derniere=63 #
# #
# $Z @ CRstruc2d = $GRIS_8 #
# $Z @ CVstruc2d = $GRIS_6 #
# $Z @ CBstruc2d = $GRIS_2 #
# #
# $Z set FConnexion=2 #
# $Z set Rstruc2d=0.0075 #
# $Z set Zstruc2d=0.0 #
# $Z set Rcollis=0.0075 #
# $Z set Zcollis=0.0 #
# $Z set Rzoom=1.2 #
# #
# #
# $Z set Numerotage=4 #
# #
# #
# $Z $DELETE $xTV/geometry.1$k #
# $Z $DELETE $xTV/geometry.2$k #
# #
# $Z echo 'BEGIN {' >>! $xTV/geometry.1$k #
# $Z echo ' numero = 0;' >>! $xTV/geometry.1$k #
# $Z echo ' }' >>! $xTV/geometry.1$k #
# $Z echo '{' >>! $xTV/geometry.1$k #
# $Z echo 'numero++;' >>! $xTV/geometry.1$k #
# $Z echo 'ligne[numero] = $0;' >>! $xTV/geometry.1$k #
# $Z echo '}' >>! $xTV/geometry.1$k #
# $Z echo 'END {' >>! $xTV/geometry.1$k #
# $Z echo ' for (n=1 ; n<=numero ; n++)' >>! $xTV/geometry.1$k #
# $Z echo ' {' >>! $xTV/geometry.1$k #
# $Z echo ' printf("%s",ligne[n]);' >>! $xTV/geometry.1$k #
# $Z echo ' if ((n%2) == 0)' >>! $xTV/geometry.1$k #
# $Z echo ' {' >>! $xTV/geometry.1$k #
# $Z echo ' printf("\\n");' >>! $xTV/geometry.1$k #
# $Z echo ' }' >>! $xTV/geometry.1$k #
# $Z echo ' else' >>! $xTV/geometry.1$k #
# $Z echo ' {' >>! $xTV/geometry.1$k #
# $Z echo ' printf(" ");' >>! $xTV/geometry.1$k #
# $Z echo ' }' >>! $xTV/geometry.1$k #
# $Z echo ' }' >>! $xTV/geometry.1$k #
# $Z echo ' }' >>! $xTV/geometry.1$k #
# #
# $Z echo 'BEGIN {' >>! $xTV/geometry.2$k #
# $Z echo ' numero = 0;' >>! $xTV/geometry.2$k #
# $Z echo ' }' >>! $xTV/geometry.2$k #
# $Z echo '{' >>! $xTV/geometry.2$k #
# $Z echo 'numero++;' >>! $xTV/geometry.2$k #
# $Z echo 'ligne[numero] = $0;' >>! $xTV/geometry.2$k #
# $Z echo '}' >>! $xTV/geometry.2$k #
# $Z echo 'END {' >>! $xTV/geometry.2$k #
# $Z echo ' for (n=1 ; n<=numero ; n++)' >>! $xTV/geometry.2$k #
# $Z echo ' {' >>! $xTV/geometry.2$k #
# $Z echo ' printf("%s\\n",ligne[n]);' >>! $xTV/geometry.2$k #
# $Z echo ' if ((n > 1) && (n<numero))' >>! $xTV/geometry.2$k #
# $Z echo ' {' >>! $xTV/geometry.2$k #
# $Z echo ' printf("%s\\n",ligne[n]);' >>! $xTV/geometry.2$k #
# $Z echo ' }' >>! $xTV/geometry.2$k #
# $Z echo ' else' >>! $xTV/geometry.2$k #
# $Z echo ' {' >>! $xTV/geometry.2$k #
# $Z echo ' }' >>! $xTV/geometry.2$k #
# $Z echo ' }' >>! $xTV/geometry.2$k #
# $Z echo ' }' >>! $xTV/geometry.2$k #
# #
# $Z set Ra_prioriB=$GRIS_0 #
# $Z set Ra_prioriG=$GRIS_8 #
# $Z set Va_prioriB=$GRIS_0 #
# $Z set Va_prioriG=$GRIS_8 #
# $Z set Ba_prioriB=$GRIS_0 #
# $Z set Ba_prioriG=$GRIS_8 #
# #
# $Z set PContraste=$xiP/gris.82 #
# #
# $Z set Lgeometry={0,1,2,3} #
# #
# $Z foreach Ngeo ($Lgeometry) #
# #
# $Z setenv Fgeometry $xu/SB.Santra/pore$Ngeo.d #
# #
# $Z $DELETE $xTV/geometry #
# #
# $Z $CA $Fgeometry \ #
# $Z | $TAI +2 \ #
# $Z | $AW -f $xTV/geometry.1$k \ #
# $Z | $AW -f $xTV/geometry.2$k \ #
# $Z | $R "$K_BLANC" "$K_NL" \ #
# $Z > $xTV/geometry #
# #
# $Z set Lstruc2d=`$WC $xTV/geometry` #
# $Z set Lstruc2d=$Lstruc2d[$WC1] #
# $Z @ Lstruc2d = $Lstruc2d / 2 #
# #
# $Z $DELETE $xTV/struc2d$COORD_X #
# $Z $DELETE $xTV/struc2d$COORD_Y #
# $Z $DELETE $xTV/struc2d$COORD_Z #
# #
# $Z $CA $xTV/geometry \ #
# $Z | $NL -nrz -w$Numerotage \ #
# $Z | $R "$K_TAB" "$K_BLANC" \ #
# $Z | $GRE "[13579] " \ #
# $Z | $AW ' { print $2 } ' \ #
# $Z > $xTV/struc2d$COORD_X #
# $Z $CA $xTV/geometry \ #
# $Z | $NL -nrz -w$Numerotage \ #
# $Z | $R "$K_TAB" "$K_BLANC" \ #
# $Z | $GRE "[02468] " \ #
# $Z | $AW ' { print $2 } ' \ #
# $Z > $xTV/struc2d$COORD_Y #
# $Z $xci/valeurs_inte$X p=1 d=$Lstruc2d vD=$Zstruc2d vA=$Zstruc2d \ #
# $Z > $xTV/struc2d$COORD_Z #
# #
# $Z set FichierX="fichier=$xTV/struc2d$COORD_X" #
# $Z set FichierY="fichier=$xTV/struc2d$COORD_Y" #
# $Z set FichierXY="CAL1=FAUX ne=$Lstruc2d" #
# #
# $Z set ScaleX=`$xrv/extrema.01$X $FichierXY $FichierX` #
# $Z set HomoX=`echo "$ScaleX" | $SE -e "s/.*facteur d'homothetie=\([^ ][^ ]*\).*/\1/"` #
# #
# $Z set ScaleY=`$xrv/extrema.01$X $FichierXY $FichierY` #
# $Z set HomoY=`echo "$ScaleY" | $SE -e "s/.*facteur d'homothetie=\([^ ][^ ]*\).*/\1/"` #
# #
# $Z set HomoXYZ=`$xcg/MIN2.01$X n1=$HomoX n2=$HomoY` #
# $Z set Minimum=0 #
# $Z set Maximum=1 #
# $Z set Milieu=`$xcg/SOUS.01$X n1=$Maximum n2=$Minimum` #
# $Z set Milieu=`$xcg/MOIT.01$X n=$Milieu` #
# $Z set Milieu=`echo $Milieu | $SE -e "s/^.//"` #
# #
# $Z if ("$HomoX" != "$HomoXYZ") then #
# $Z set HomoX1=`$xcg/DIVZ.01$X n1=$HomoXYZ n2=$HomoX` #
# $Z set MinimumX=`$xcg/AXPB.01$X a=-$Milieu x=$HomoX1 b=$Milieu` #
# $Z set MaximumX=`$xcg/AXPB.01$X a=+$Milieu x=$HomoX1 b=$Milieu` #
# #
# $Z set MinimumY=$Minimum #
# $Z set MaximumY=$Maximum #
# $Z else #
# $Z set MinimumX=$Minimum #
# $Z set MaximumX=$Maximum #
# #
# $Z set HomoY1=`$xcg/DIVZ.01$X n1=$HomoXYZ n2=$HomoY` #
# $Z set MinimumY=`$xcg/AXPB.01$X a=-$Milieu x=$HomoY1 b=$Milieu` #
# $Z set MaximumY=`$xcg/AXPB.01$X a=+$Milieu x=$HomoY1 b=$Milieu` #
# $Z endif #
# #
# $Z set ScaleX=`$xrv/extrema.01$X $FichierXY $FichierX m=$MinimumX M=$MaximumX` #
# $Z set HomoX=`echo "$ScaleX" | $SE -e "s/.*facteur d'homothetie=\([^ ][^ ]*\).*/\1/"` #
# $Z set TranX=`echo "$ScaleX" | $SE -e "s/.*translation.*=\([^ ][^ ]*\).*/\1/"` #
# #
# $Z set ScaleY=`$xrv/extrema.01$X $FichierXY $FichierY m=$MinimumY M=$MaximumY` #
# $Z set HomoY=`echo "$ScaleY" | $SE -e "s/.*facteur d'homothetie=\([^ ][^ ]*\).*/\1/"` #
# $Z set TranY=`echo "$ScaleY" | $SE -e "s/.*translation.*=\([^ ][^ ]*\).*/\1/"` #
# #
# $Z $xrv/particule.10$X \ #
# $Z ATTENTION=FAUX \ #
# $Z np=1 iterations=$Lstruc2d \ #
# $Z LISTE_X=$xTV/struc2d$COORD_X \ #
# $Z LISTE_Y=$xTV/struc2d$COORD_Y \ #
# $Z LISTE_Z=$xTV/struc2d$COORD_Z \ #
# $Z LISTE_ROUGE=$CRstruc2d \ #
# $Z LISTE_VERTE=$CVstruc2d \ #
# $Z LISTE_BLEUE=$CBstruc2d \ #
# $Z isoles=FAUX Pajuster=VRAI \ #
# $Z AX=$HomoX BX=$TranX \ #
# $Z AY=$HomoY BY=$TranY \ #
# $Z rayon_de_visualisation=$Rstruc2d \ #
# $Z nombreR=$FConnexion \ #
# $Z ZOOM=$Rzoom \ #
# $Z tri=VRAI N_au_carre=FAUX \ #
# $Z Lz=1000 \ #
# $Z R=$xw1/xxxx.pmc/STRU.$Ngeo. \ #
# $Z $formatI #
# #
# $Z PushdC $xu/SB.Santra #
# $Z $DELETE $xTV/tra.d #
# $Z $xu/SB.Santra/$aPout #
# $Z PopdC #
# #
# $Z $DELETE $xTV/Liste$ROUGE #
# $Z $DELETE $xTV/Liste$VERTE #
# $Z $DELETE $xTV/Liste$BLEUE #
# #
# $Z set Angle=`$xcg/MUL2.01$X n1=1.0 n2=$dpi` #
# $Z $xci/valeurs_trig$X premiere=$Premiere derniere=$Derniere \ #
# $Z aD=0 aA=$Angle \ #
# $Z alpha=0 beta=$Ra_prioriB gamma=$Ra_prioriG \ #
# $Z entiers=VRAI \ #
# $Z > $xTV/Liste$ROUGE #
# $Z set Angle=`$xcg/MUL2.01$X n1=2.0 n2=$dpi` #
# $Z $xci/valeurs_trig$X premiere=$Premiere derniere=$Derniere \ #
# $Z aD=0 aA=$Angle \ #
# $Z alpha=0 beta=$Va_prioriB gamma=$Va_prioriG \ #
# $Z entiers=VRAI \ #
# $Z > $xTV/Liste$VERTE #
# $Z set Angle=`$xcg/MUL2.01$X n1=3.0 n2=$dpi` #
# $Z $xci/valeurs_trig$X premiere=$Premiere derniere=$Derniere \ #
# $Z aD=0 aA=$Angle \ #
# $Z alpha=0 beta=$Ba_prioriB gamma=$Ba_prioriG \ #
# $Z entiers=VRAI \ #
# $Z > $xTV/Liste$BLEUE #
# #
# $Z set ListeR=`$CA $xTV/Liste$ROUGE` #
# $Z set ListeV=`$CA $xTV/Liste$VERTE` #
# $Z set ListeB=`$CA $xTV/Liste$BLEUE` #
# #
# $c #define N0 (Premiere+1) #
# $c #define N (Derniere+1) #
# #
# $c int main() #
# $c { #
# $c int n; #
# $c printf("$xci/init$X #
# $c valeur=0 #
# $c standard=FAUX #
# $c R=$xw1/xxxx.pmc/COLL.$Ngeo.%04d$ROUGE #
# $c $formatI\n" #
# $c ,N0-1 #
# $c ); #
# $c printf("$xci/init$X #
# $c valeur=0 #
# $c standard=FAUX #
# $c R=$xw1/xxxx.pmc/COLL.$Ngeo.%04d$VERTE #
# $c $formatI\n" #
# $c ,N0-1 #
# $c ); #
# $c printf("$xci/init$X #
# $c valeur=0 #
# $c standard=FAUX #
# $c R=$xw1/xxxx.pmc/COLL.$Ngeo.%04d$BLEUE #
# $c $formatI\n" #
# $c ,N0-1 #
# $c ); #
# #
# $c for (n=N0 ; n<=N ; n++) #
# $c { #
# $c printf("$DELETE $xTV/collis\n"); #
# $c printf("$DELETE $xTV/collision\n"); #
# $c printf("$DELETE $xTV/collision$COORD_X\n"); #
# $c printf("$DELETE $xTV/collision$COORD_Y\n"); #
# #
# $c printf("$CA $xTV/tra.d | #
# $c $SE -e 's/^ *//' -e 's/ */ /g' | #
# $c $AW '/traj %d=/,/traj %d=/' | #
# $c $SE -e '/^traj *[0-9][0-9]*=$/d' | #
# $c $SE -e 's/^\\(refl\\) */\\1=/' | #
# $c $R %c$K_BLANC%c %c$K_NL%c #
# $c > $xTV/collis\n" #
# $c ,n-1,n,'"','"','"','"' #
# $c ); #
# #
# $c printf("set Nre=`$GRE '^refl=' $xTV/collis | $SE -e 's/^refl=//' -e 's/=$//'`\n"); #
# $c printf("set Nre=`echo '00'$Nre | $SE -e 's/^.*\\(..\\)$/\\1/'`\n"); #
# #
# $c printf("$CA $xTV/collis | #
# $c $SE -e '/^refl=[0-9][0-9]*=$/d' | #
# $c $NL -nrz -w$Numerotage | #
# $c $R %c$K_TAB%c %c$K_BLANC%c #
# $c > $xTV/collision\n" #
# $c ,'"','"','"','"' #
# $c ); #
# #
# $c printf("$CA $xTV/collision | #
# $c $GRE '[13579] ' | #
# $c $AW ' { print $2 } ' #
# $c > $xTV/collision$COORD_X\n" #
# $c ); #
# $c printf("$CA $xTV/collision | #
# $c $GRE '[02468] ' | #
# $c $AW ' { print $2 } ' #
# $c > $xTV/collision$COORD_Y\n" #
# $c ); #
# #
# $c printf("set Lcol=`$WC $xTV/collision`\n"); #
# $c printf("set Lcol=$Lcol[$WC1]\n"); #
# $c printf("@ Lcol = $Lcol / 2\n"); #
# $c printf("$xrv/particule.10$X #
# $c ATTENTION=FAUX #
# $c np=1 iterations=$Lcol #
# $c LISTE_X=$xTV/collision$COORD_X #
# $c LISTE_Y=$xTV/collision$COORD_Y #
# $c LISTE_Z=$Zcollis #
# $c LISTE_ROUGE=$ListeR[%d] #
# $c LISTE_VERTE=$ListeV[%d] #
# $c LISTE_BLEUE=$ListeB[%d] #
# $c isoles=FAUX #
# $c Pajuster=VRAI #
# $c AX=$HomoX BX=$TranX #
# $c AY=$HomoY BY=$TranY #
# $c rayon_de_visualisation=$Rcollis #
# $c nombreR=$FConnexion #
# $c ZOOM=$Rzoom #
# $c tri=VRAI N_au_carre=FAUX #
# $c fond=FAUX dynamique=FAUX #
# $c Lz=1000 #
# $c F=$xw1/xxxx.pmc/STRU.$Ngeo.%04d #
# $c R=$xw1/xxxx.pmc/COLL. #
# $c $formatI\n" #
# $c ,n-1,n-1,n-1,N0-1 #
# $c ); #
# #
# $c printf("$xci/acces$X #
# $c A=$xw1/xxxx.pmc/COLL.%04d$ROUGE #
# $c convertir=VRAI #
# $c minimum=$NOIR maximum=$BLANC #
# $c interpoler=FAUX #
# $c $formatI | #
# $c $xci/somme_02$X #
# $c A1=$xw1/xxxx.pmc/COLL.$Ngeo.%04d$ROUGE #
# $c standard=FAUX #
# $c R=$xw1/xxxx.pmc/COLL.$Ngeo.%04d$ROUGE #
# $c $formatI\n" #
# $c ,N0-1,n-1,n #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xw1/xxxx.pmc/COLL.%04d$VERTE #
# $c convertir=VRAI #
# $c minimum=$NOIR maximum=$BLANC #
# $c interpoler=FAUX #
# $c $formatI | #
# $c $xci/somme_02$X #
# $c A1=$xw1/xxxx.pmc/COLL.$Ngeo.%04d$VERTE #
# $c standard=FAUX #
# $c R=$xw1/xxxx.pmc/COLL.$Ngeo.%04d$VERTE #
# $c $formatI\n" #
# $c ,N0-1,n-1,n #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xw1/xxxx.pmc/COLL.%04d$BLEUE #
# $c convertir=VRAI #
# $c minimum=$NOIR maximum=$BLANC #
# $c interpoler=FAUX #
# $c $formatI | #
# $c $xci/somme_02$X #
# $c A1=$xw1/xxxx.pmc/COLL.$Ngeo.%04d$BLEUE #
# $c standard=FAUX #
# $c R=$xw1/xxxx.pmc/COLL.$Ngeo.%04d$BLEUE #
# $c $formatI\n" #
# $c ,N0-1,n-1,n #
# $c ); #
# $c } #
# #
# $c printf("set Rnom=$xw1/xxxx.pmc/COLL.$Ngeo.%04d$ROUGE\n" #
# $c ,N #
# $c ); #
# $c printf("set Rminmax=`$xci/extrema$X A=$Rnom standard=FAUX $formatI |& $CA`\n"); #
# $c printf("set Rmin=`$xcg/MIN2.01$X n1=$Rminmax[1] n2=$Rminmax[2]`\n"); #
# $c printf("set Rmax=`$xcg/MAX2.01$X n1=$Rminmax[1] n2=$Rminmax[2]`\n"); #
# #
# $c printf("set Vnom=$xw1/xxxx.pmc/COLL.$Ngeo.%04d$VERTE\n" #
# $c ,N #
# $c ); #
# $c printf("set Vminmax=`$xci/extrema$X A=$Vnom standard=FAUX $formatI |& $CA`\n"); #
# $c printf("set Vmin=`$xcg/MIN2.01$X n1=$Vminmax[1] n2=$Vminmax[2]`\n"); #
# $c printf("set Vmax=`$xcg/MAX2.01$X n1=$Vminmax[1] n2=$Vminmax[2]`\n"); #
# #
# $c printf("set Bnom=$xw1/xxxx.pmc/COLL.$Ngeo.%04d$BLEUE\n" #
# $c ,N #
# $c ); #
# $c printf("set Bminmax=`$xci/extrema$X A=$Bnom standard=FAUX $formatI |& $CA`\n"); #
# $c printf("set Bmin=`$xcg/MIN2.01$X n1=$Bminmax[1] n2=$Bminmax[2]`\n"); #
# $c printf("set Bmax=`$xcg/MAX2.01$X n1=$Bminmax[1] n2=$Bminmax[2]`\n"); #
# #
# $c printf("set RVBmin=`$xcg/MIN2.01$X n1=$Rmin n2=$Vmin`\n"); #
# $c printf("set RVBmin=`$xcg/MIN2.01$X n1=$RVBmin n2=$Bmin`\n"); #
# #
# $c printf("set RVBmax=`$xcg/MAX2.01$X n1=$Rmax n2=$Vmax`\n"); #
# $c printf("set RVBmax=`$xcg/MAX2.01$X n1=$RVBmax n2=$Bmax`\n"); #
# #
# $c for (n=(N0-1) ; n<=N ; n++) #
# $c { #
# $c printf("$xci/acces$X #
# $c A=$xw1/xxxx.pmc/COLL.$Ngeo.%04d$ROUGE #
# $c standard=FAUX #
# $c zero=FAUX #
# $c extrema=FAUX #
# $c minimum=$RVBmin maximum=$RVBmax #
# $c $formatI | #
# $c $xci/substitue$X #
# $c substitution=L_SUBSTITUTION_ROUGE #
# $c p=$PContraste #
# $c $formatI | #
# $c $xci/cache$X #
# $c M=$xw1/xxxx.pmc/STRU.$Ngeo.%04d$ROUGE #
# $c R=$xw1/xxxx.pmc/COLL.$Ngeo.%04d$ROUGE #
# $c $formatI\n" #
# $c ,n,N0-1,n #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xw1/xxxx.pmc/COLL.$Ngeo.%04d$VERTE #
# $c standard=FAUX #
# $c zero=FAUX #
# $c extrema=FAUX #
# $c minimum=$RVBmin maximum=$RVBmax #
# $c $formatI | #
# $c $xci/substitue$X #
# $c substitution=L_SUBSTITUTION_ROUGE #
# $c p=$PContraste #
# $c $formatI | #
# $c $xci/cache$X #
# $c M=$xw1/xxxx.pmc/STRU.$Ngeo.%04d$VERTE #
# $c R=$xw1/xxxx.pmc/COLL.$Ngeo.%04d$VERTE #
# $c $formatI\n" #
# $c ,n,N0-1,n #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xw1/xxxx.pmc/COLL.$Ngeo.%04d$BLEUE #
# $c standard=FAUX #
# $c zero=FAUX #
# $c extrema=FAUX #
# $c minimum=$RVBmin maximum=$RVBmax #
# $c $formatI | #
# $c $xci/substitue$X #
# $c substitution=L_SUBSTITUTION_ROUGE #
# $c p=$PContraste #
# $c $formatI | #
# $c $xci/cache$X #
# $c M=$xw1/xxxx.pmc/STRU.$Ngeo.%04d$BLEUE #
# $c R=$xw1/xxxx.pmc/COLL.$Ngeo.%04d$BLEUE #
# $c $formatI\n" #
# $c ,n,N0-1,n #
# $c ); #
# $c } #
# $c } #
# #
# $Z end #
# $Z $DELETE $xTV/geometry.1$k #
# $Z $DELETE $xTV/geometry.2$k #
# $Z $DELETE $xTV/geometry #
# $Z $DELETE $xTV/struc2d$COORD_X #
# $Z $DELETE $xTV/struc2d$COORD_Y #
# $Z $DELETE $xTV/struc2d$COORD_Z #
# $Z $DELETE $xTV/tra.d #
# $Z $DELETE $xTV/Liste$ROUGE #
# $Z $DELETE $xTV/Liste$VERTE #
# $Z $DELETE $xTV/Liste$BLEUE #
# $Z $DELETE $xTV/collis #
# $Z $DELETE $xTV/collision #
# $Z $DELETE $xTV/collision$COORD_X #
# $Z $DELETE $xTV/collision$COORD_Y #
# #
# #
# Pal #
# #
# $xci/disk_video_P$Z $xw1/xxxx.pmc/COLL.0. 0001 0064 RVB \ #
# 4 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# $xci/disk_video_P$Z $xw1/xxxx.pmc/COLL.1. 0001 0064 RVB \ #
# 4 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# $xci/disk_video_P$Z $xw1/xxxx.pmc/COLL.2. 0001 0064 RVB \ #
# 4 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# $xci/disk_video_P$Z $xw1/xxxx.pmc/COLL.3. 0001 0064 RVB \ #
# 4 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
sequence 022844_022907
sequence 022908_022971
sequence 022972_023035
sequence 023036_023099
# Sequence generee via '$xu/SB.Santra/collision.13$f' par : #
# #
# #
# $Z Pal #
# #
# $Z SET Premiere=1 #
# $Z SET Derniere=63 #
# #
# $Z @ CRstruc2d = $GRIS_8 #
# $Z @ CVstruc2d = $GRIS_6 #
# $Z @ CBstruc2d = $GRIS_2 #
# #
# $Z set FConnexion=2 #
# $Z set Rstruc2d=0.0075 #
# $Z set Zstruc2d=0.0 #
# $Z set Rcollis=0.0075 #
# $Z set Zcollis=0.0 #
# $Z set Rzoom=1.2 #
# #
# #
# $Z set Numerotage=4 #
# #
# #
# $Z $DELETE $xTV/geometry.1$k #
# $Z $DELETE $xTV/geometry.2$k #
# #
# $Z echo 'BEGIN {' >>! $xTV/geometry.1$k #
# $Z echo ' numero = 0;' >>! $xTV/geometry.1$k #
# $Z echo ' }' >>! $xTV/geometry.1$k #
# $Z echo '{' >>! $xTV/geometry.1$k #
# $Z echo 'numero++;' >>! $xTV/geometry.1$k #
# $Z echo 'ligne[numero] = $0;' >>! $xTV/geometry.1$k #
# $Z echo '}' >>! $xTV/geometry.1$k #
# $Z echo 'END {' >>! $xTV/geometry.1$k #
# $Z echo ' for (n=1 ; n<=numero ; n++)' >>! $xTV/geometry.1$k #
# $Z echo ' {' >>! $xTV/geometry.1$k #
# $Z echo ' printf("%s",ligne[n]);' >>! $xTV/geometry.1$k #
# $Z echo ' if ((n%2) == 0)' >>! $xTV/geometry.1$k #
# $Z echo ' {' >>! $xTV/geometry.1$k #
# $Z echo ' printf("\\n");' >>! $xTV/geometry.1$k #
# $Z echo ' }' >>! $xTV/geometry.1$k #
# $Z echo ' else' >>! $xTV/geometry.1$k #
# $Z echo ' {' >>! $xTV/geometry.1$k #
# $Z echo ' printf(" ");' >>! $xTV/geometry.1$k #
# $Z echo ' }' >>! $xTV/geometry.1$k #
# $Z echo ' }' >>! $xTV/geometry.1$k #
# $Z echo ' }' >>! $xTV/geometry.1$k #
# #
# $Z echo 'BEGIN {' >>! $xTV/geometry.2$k #
# $Z echo ' numero = 0;' >>! $xTV/geometry.2$k #
# $Z echo ' }' >>! $xTV/geometry.2$k #
# $Z echo '{' >>! $xTV/geometry.2$k #
# $Z echo 'numero++;' >>! $xTV/geometry.2$k #
# $Z echo 'ligne[numero] = $0;' >>! $xTV/geometry.2$k #
# $Z echo '}' >>! $xTV/geometry.2$k #
# $Z echo 'END {' >>! $xTV/geometry.2$k #
# $Z echo ' for (n=1 ; n<=numero ; n++)' >>! $xTV/geometry.2$k #
# $Z echo ' {' >>! $xTV/geometry.2$k #
# $Z echo ' printf("%s\\n",ligne[n]);' >>! $xTV/geometry.2$k #
# $Z echo ' if ((n > 1) && (n<numero))' >>! $xTV/geometry.2$k #
# $Z echo ' {' >>! $xTV/geometry.2$k #
# $Z echo ' printf("%s\\n",ligne[n]);' >>! $xTV/geometry.2$k #
# $Z echo ' }' >>! $xTV/geometry.2$k #
# $Z echo ' else' >>! $xTV/geometry.2$k #
# $Z echo ' {' >>! $xTV/geometry.2$k #
# $Z echo ' }' >>! $xTV/geometry.2$k #
# $Z echo ' }' >>! $xTV/geometry.2$k #
# $Z echo ' }' >>! $xTV/geometry.2$k #
# #
# $Z set minRVB=$GRIS_2 #
# $Z set maxRVB=$GRIS_8 #
# #
# $Z set PContraste=$xiP/gris.82 #
# #
# $Z set Lgeometry={0,1,2,3} #
# #
# $Z foreach Ngeo ($Lgeometry) #
# #
# $Z setenv Fgeometry $xu/SB.Santra/pore$Ngeo.d #
# #
# $Z $DELETE $xTV/geometry #
# #
# $Z $CA $Fgeometry \ #
# $Z | $TAI +2 \ #
# $Z | $AW -f $xTV/geometry.1$k \ #
# $Z | $AW -f $xTV/geometry.2$k \ #
# $Z | $R "$K_BLANC" "$K_NL" \ #
# $Z > $xTV/geometry #
# #
# $Z set Lstruc2d=`$WC $xTV/geometry` #
# $Z set Lstruc2d=$Lstruc2d[$WC1] #
# $Z @ Lstruc2d = $Lstruc2d / 2 #
# #
# $Z $DELETE $xTV/struc2d$COORD_X #
# $Z $DELETE $xTV/struc2d$COORD_Y #
# $Z $DELETE $xTV/struc2d$COORD_Z #
# #
# $Z $CA $xTV/geometry \ #
# $Z | $NL -nrz -w$Numerotage \ #
# $Z | $R "$K_TAB" "$K_BLANC" \ #
# $Z | $GRE "[13579] " \ #
# $Z | $AW ' { print $2 } ' \ #
# $Z > $xTV/struc2d$COORD_X #
# $Z $CA $xTV/geometry \ #
# $Z | $NL -nrz -w$Numerotage \ #
# $Z | $R "$K_TAB" "$K_BLANC" \ #
# $Z | $GRE "[02468] " \ #
# $Z | $AW ' { print $2 } ' \ #
# $Z > $xTV/struc2d$COORD_Y #
# $Z $xci/valeurs_inte$X p=1 d=$Lstruc2d vD=$Zstruc2d vA=$Zstruc2d \ #
# $Z > $xTV/struc2d$COORD_Z #
# #
# $Z set FichierX="fichier=$xTV/struc2d$COORD_X" #
# $Z set FichierY="fichier=$xTV/struc2d$COORD_Y" #
# $Z set FichierXY="CAL1=FAUX ne=$Lstruc2d" #
# #
# $Z set ScaleX=`$xrv/extrema.01$X $FichierXY $FichierX` #
# $Z set HomoX=`echo "$ScaleX" | $SE -e "s/.*facteur d'homothetie=\([^ ][^ ]*\).*/\1/"` #
# #
# $Z set ScaleY=`$xrv/extrema.01$X $FichierXY $FichierY` #
# $Z set HomoY=`echo "$ScaleY" | $SE -e "s/.*facteur d'homothetie=\([^ ][^ ]*\).*/\1/"` #
# #
# $Z set HomoXYZ=`$xcg/MIN2.01$X n1=$HomoX n2=$HomoY` #
# $Z set Minimum=0 #
# $Z set Maximum=1 #
# $Z set Milieu=`$xcg/SOUS.01$X n1=$Maximum n2=$Minimum` #
# $Z set Milieu=`$xcg/MOIT.01$X n=$Milieu` #
# $Z set Milieu=`echo $Milieu | $SE -e "s/^.//"` #
# #
# $Z if ("$HomoX" != "$HomoXYZ") then #
# $Z set HomoX1=`$xcg/DIVZ.01$X n1=$HomoXYZ n2=$HomoX` #
# $Z set MinimumX=`$xcg/AXPB.01$X a=-$Milieu x=$HomoX1 b=$Milieu` #
# $Z set MaximumX=`$xcg/AXPB.01$X a=+$Milieu x=$HomoX1 b=$Milieu` #
# #
# $Z set MinimumY=$Minimum #
# $Z set MaximumY=$Maximum #
# $Z else #
# $Z set MinimumX=$Minimum #
# $Z set MaximumX=$Maximum #
# #
# $Z set HomoY1=`$xcg/DIVZ.01$X n1=$HomoXYZ n2=$HomoY` #
# $Z set MinimumY=`$xcg/AXPB.01$X a=-$Milieu x=$HomoY1 b=$Milieu` #
# $Z set MaximumY=`$xcg/AXPB.01$X a=+$Milieu x=$HomoY1 b=$Milieu` #
# $Z endif #
# #
# $Z set ScaleX=`$xrv/extrema.01$X $FichierXY $FichierX m=$MinimumX M=$MaximumX` #
# $Z set HomoX=`echo "$ScaleX" | $SE -e "s/.*facteur d'homothetie=\([^ ][^ ]*\).*/\1/"` #
# $Z set TranX=`echo "$ScaleX" | $SE -e "s/.*translation.*=\([^ ][^ ]*\).*/\1/"` #
# #
# $Z set ScaleY=`$xrv/extrema.01$X $FichierXY $FichierY m=$MinimumY M=$MaximumY` #
# $Z set HomoY=`echo "$ScaleY" | $SE -e "s/.*facteur d'homothetie=\([^ ][^ ]*\).*/\1/"` #
# $Z set TranY=`echo "$ScaleY" | $SE -e "s/.*translation.*=\([^ ][^ ]*\).*/\1/"` #
# #
# $Z $xrv/particule.10$X \ #
# $Z ATTENTION=FAUX \ #
# $Z np=1 iterations=$Lstruc2d \ #
# $Z LISTE_X=$xTV/struc2d$COORD_X \ #
# $Z LISTE_Y=$xTV/struc2d$COORD_Y \ #
# $Z LISTE_Z=$xTV/struc2d$COORD_Z \ #
# $Z LISTE_ROUGE=$CRstruc2d \ #
# $Z LISTE_VERTE=$CVstruc2d \ #
# $Z LISTE_BLEUE=$CBstruc2d \ #
# $Z isoles=FAUX Pajuster=VRAI \ #
# $Z AX=$HomoX BX=$TranX \ #
# $Z AY=$HomoY BY=$TranY \ #
# $Z rayon_de_visualisation=$Rstruc2d \ #
# $Z nombreR=$FConnexion \ #
# $Z ZOOM=$Rzoom \ #
# $Z tri=VRAI N_au_carre=FAUX \ #
# $Z Lz=1000 \ #
# $Z R=$xiim/STRU.$Ngeo. \ #
# $Z $formatI #
# #
# $Z PushdC $xu/SB.Santra #
# $Z $DELETE $xTV/tra.d #
# $Z $xu/SB.Santra/$aPout #
# $Z PopdC #
# #
# $Z $DELETE $xTV/Long.1 #
# $Z $DELETE $xTV/Long.2 #
# $Z $DELETE $xTV/Long.3 #
# $Z $DELETE $xTV/Long.4 #
# #
# #
# $Z $CA $xTV/tra.d \ #
# $Z | $GRE '^long .*=$' \ #
# $Z | $SE -e "s/^long *//" \ #
# $Z -e 's/=$//' \ #
# $Z > $xTV/Long.1 #
# $Z set NLongueur=`$WC $xTV/Long.1` #
# $Z set NLongueur=$NLongueur[$WC1] #
# #
# $Z $xrv/AXPB.01$X \ #
# $Z ATTENTION=FAUX \ #
# $Z ne=$NLongueur \ #
# $Z fichier=$xTV/Long.1 \ #
# $Z homothetie=-1 translation=0 \ #
# $Z > $xTV/Long.4 #
# #
# $Z $xrv/extrema.01$X \ #
# $Z ATTENTION=FAUX \ #
# $Z ne=$NLongueur \ #
# $Z fichier=$xTV/Long.4 \ #
# $Z minimum=$minRVB maximum=$maxRVB \ #
# $Z > $xTV/Long.2 #
# $Z set Homothetie=`$GRE "^facteur d'homothetie.*=" $xTV/Long.2 | $SE -e "s/^.*=//"` #
# $Z set Translation=`$GRE "^translation.*=" $xTV/Long.2 | $SE -e "s/^.*=//"` #
# #
# $Z $xrv/AXPB.01$X \ #
# $Z ATTENTION=FAUX \ #
# $Z ne=$NLongueur \ #
# $Z fichier=$xTV/Long.4 \ #
# $Z homothetie=$Homothetie translation=$Translation \ #
# $Z | $SE -e 's/\.[0-9]*$//' \ #
# $Z > $xTV/Long.3 #
# #
# $Z $DELETE $xTV/Liste$ROUGE #
# $Z $DELETE $xTV/Liste$VERTE #
# $Z $DELETE $xTV/Liste$BLEUE #
# #
# $Z $CA $xTV/Long.3 \ #
# $Z > $xTV/Liste$ROUGE #
# $Z $CA $xTV/Long.3 \ #
# $Z > $xTV/Liste$VERTE #
# $Z $CA $xTV/Long.3 \ #
# $Z > $xTV/Liste$BLEUE #
# #
# $Z set ListeR=`$CA $xTV/Liste$ROUGE` #
# $Z set ListeV=`$CA $xTV/Liste$VERTE` #
# $Z set ListeB=`$CA $xTV/Liste$BLEUE` #
# #
# $c #define N0 (Premiere+1) #
# $c #define N (Derniere+1) #
# #
# $c int main() #
# $c { #
# $c int n; #
# $c printf("$xci/init$X #
# $c valeur=0 #
# $c standard=FAUX #
# $c R=$xiim/COLL.$Ngeo.%04d$ROUGE #
# $c $formatI\n" #
# $c ,N0-1 #
# $c ); #
# $c printf("$xci/init$X #
# $c valeur=0 #
# $c standard=FAUX #
# $c R=$xiim/COLL.$Ngeo.%04d$VERTE #
# $c $formatI\n" #
# $c ,N0-1 #
# $c ); #
# $c printf("$xci/init$X #
# $c valeur=0 #
# $c standard=FAUX #
# $c R=$xiim/COLL.$Ngeo.%04d$BLEUE #
# $c $formatI\n" #
# $c ,N0-1 #
# $c ); #
# #
# $c for (n=N0 ; n<=N ; n++) #
# $c { #
# $c printf("$DELETE $xTV/collis\n"); #
# $c printf("$DELETE $xTV/collision\n"); #
# $c printf("$DELETE $xTV/collision$COORD_X\n"); #
# $c printf("$DELETE $xTV/collision$COORD_Y\n"); #
# #
# $c printf("$CA $xTV/tra.d | #
# $c $SE -e 's/^ *//' -e 's/ */ /g' | #
# $c $AW '/traj %d=/,/traj %d=/' | #
# $c $SE -e '/^traj *[0-9][0-9]*=$/d' | #
# $c $SE -e '/^long *[^=][^=]*=$/d' | #
# $c $SE -e 's/^\\(refl\\) */\\1=/' | #
# $c $R %c$K_BLANC%c %c$K_NL%c #
# $c > $xTV/collis\n" #
# $c ,n-1,n,'"','"','"','"' #
# $c ); #
# #
# $c printf("set Nre=`$GRE '^refl=' $xTV/collis | $SE -e 's/^refl=//' -e 's/=$//'`\n"); #
# $c printf("set Nre=`echo '0000'$Nre | $SE -e 's/^.*\\(....\\)$/\\1/'`\n"); #
# #
# $c printf("$CA $xTV/collis | #
# $c $SE -e '/^refl=[0-9][0-9]*=$/d' | #
# $c $SE -e '/^long=[^=][^=]*=$/d' | #
# $c $NL -nrz -w$Numerotage | #
# $c $R %c$K_TAB%c %c$K_BLANC%c #
# $c > $xTV/collision\n" #
# $c ,'"','"','"','"' #
# $c ); #
# #
# $c printf("$CA $xTV/collision | #
# $c $GRE '[13579] ' | #
# $c $AW ' { print $2 } ' #
# $c > $xTV/collision$COORD_X\n" #
# $c ); #
# $c printf("$CA $xTV/collision | #
# $c $GRE '[02468] ' | #
# $c $AW ' { print $2 } ' #
# $c > $xTV/collision$COORD_Y\n" #
# $c ); #
# #
# $c printf("set Lcol=`$WC $xTV/collision`\n"); #
# $c printf("set Lcol=$Lcol[$WC1]\n"); #
# $c printf("@ Lcol = $Lcol / 2\n"); #
# $c printf("$xrv/particule.10$X #
# $c ATTENTION=FAUX #
# $c np=1 iterations=$Lcol #
# $c LISTE_X=$xTV/collision$COORD_X #
# $c LISTE_Y=$xTV/collision$COORD_Y #
# $c LISTE_Z=$Zcollis #
# $c LISTE_ROUGE=$ListeR[%d] #
# $c LISTE_VERTE=$ListeV[%d] #
# $c LISTE_BLEUE=$ListeB[%d] #
# $c isoles=FAUX #
# $c Pajuster=VRAI #
# $c AX=$HomoX BX=$TranX #
# $c AY=$HomoY BY=$TranY #
# $c rayon_de_visualisation=$Rcollis #
# $c nombreR=$FConnexion #
# $c ZOOM=$Rzoom #
# $c tri=VRAI N_au_carre=FAUX #
# $c fond=FAUX dynamique=FAUX #
# $c Lz=1000 #
# $c F=$xiim/STRU.$Ngeo.%04d #
# $c R=$xiim/COLL. #
# $c $formatI\n" #
# $c ,n-1,n-1,n-1,N0-1 #
# $c ); #
# #
# $c printf("$xci/acces$X #
# $c A=$xiim/COLL.%04d$ROUGE #
# $c convertir=VRAI #
# $c minimum=$NOIR maximum=$BLANC #
# $c interpoler=FAUX #
# $c $formatI | #
# $c $xci/somme_02$X #
# $c A1=$xiim/COLL.$Ngeo.%04d$ROUGE #
# $c standard=FAUX #
# $c R=$xiim/COLL.$Ngeo.%04d$ROUGE #
# $c $formatI\n" #
# $c ,N0-1,n-1,n #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xiim/COLL.%04d$VERTE #
# $c convertir=VRAI #
# $c minimum=$NOIR maximum=$BLANC #
# $c interpoler=FAUX #
# $c $formatI | #
# $c $xci/somme_02$X #
# $c A1=$xiim/COLL.$Ngeo.%04d$VERTE #
# $c standard=FAUX #
# $c R=$xiim/COLL.$Ngeo.%04d$VERTE #
# $c $formatI\n" #
# $c ,N0-1,n-1,n #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xiim/COLL.%04d$BLEUE #
# $c convertir=VRAI #
# $c minimum=$NOIR maximum=$BLANC #
# $c interpoler=FAUX #
# $c $formatI | #
# $c $xci/somme_02$X #
# $c A1=$xiim/COLL.$Ngeo.%04d$BLEUE #
# $c standard=FAUX #
# $c R=$xiim/COLL.$Ngeo.%04d$BLEUE #
# $c $formatI\n" #
# $c ,N0-1,n-1,n #
# $c ); #
# $c } #
# #
# $c printf("set Rnom=$xiim/COLL.$Ngeo.%04d$ROUGE\n" #
# $c ,N #
# $c ); #
# $c printf("set Rminmax=`$xci/extrema$X A=$Rnom standard=FAUX $formatI |& $CA`\n"); #
# $c printf("set Rmin=`$xcg/MIN2.01$X n1=$Rminmax[1] n2=$Rminmax[2]`\n"); #
# $c printf("set Rmax=`$xcg/MAX2.01$X n1=$Rminmax[1] n2=$Rminmax[2]`\n"); #
# #
# $c printf("set Vnom=$xiim/COLL.$Ngeo.%04d$VERTE\n" #
# $c ,N #
# $c ); #
# $c printf("set Vminmax=`$xci/extrema$X A=$Vnom standard=FAUX $formatI |& $CA`\n"); #
# $c printf("set Vmin=`$xcg/MIN2.01$X n1=$Vminmax[1] n2=$Vminmax[2]`\n"); #
# $c printf("set Vmax=`$xcg/MAX2.01$X n1=$Vminmax[1] n2=$Vminmax[2]`\n"); #
# #
# $c printf("set Bnom=$xiim/COLL.$Ngeo.%04d$BLEUE\n" #
# $c ,N #
# $c ); #
# $c printf("set Bminmax=`$xci/extrema$X A=$Bnom standard=FAUX $formatI |& $CA`\n"); #
# $c printf("set Bmin=`$xcg/MIN2.01$X n1=$Bminmax[1] n2=$Bminmax[2]`\n"); #
# $c printf("set Bmax=`$xcg/MAX2.01$X n1=$Bminmax[1] n2=$Bminmax[2]`\n"); #
# #
# $c printf("set RVBmin=`$xcg/MIN2.01$X n1=$Rmin n2=$Vmin`\n"); #
# $c printf("set RVBmin=`$xcg/MIN2.01$X n1=$RVBmin n2=$Bmin`\n"); #
# #
# $c printf("set RVBmax=`$xcg/MAX2.01$X n1=$Rmax n2=$Vmax`\n"); #
# $c printf("set RVBmax=`$xcg/MAX2.01$X n1=$RVBmax n2=$Bmax`\n"); #
# #
# $c for (n=(N0-1) ; n<=N ; n++) #
# $c { #
# $c printf("$xci/acces$X #
# $c A=$xiim/COLL.$Ngeo.%04d$ROUGE #
# $c standard=FAUX #
# $c zero=FAUX #
# $c extrema=FAUX #
# $c minimum=$RVBmin maximum=$RVBmax #
# $c $formatI | #
# $c $xci/substitue$X #
# $c substitution=L_SUBSTITUTION_ROUGE #
# $c p=$PContraste #
# $c $formatI | #
# $c $xci/cache$X #
# $c M=$xiim/STRU.$Ngeo.%04d$ROUGE #
# $c R=$xw1/xxxx.pmc/COLL.$Ngeo.%04d$ROUGE #
# $c $formatI\n" #
# $c ,n,N0-1,n #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xiim/COLL.$Ngeo.%04d$VERTE #
# $c standard=FAUX #
# $c zero=FAUX #
# $c extrema=FAUX #
# $c minimum=$RVBmin maximum=$RVBmax #
# $c $formatI | #
# $c $xci/substitue$X #
# $c substitution=L_SUBSTITUTION_ROUGE #
# $c p=$PContraste #
# $c $formatI | #
# $c $xci/cache$X #
# $c M=$xiim/STRU.$Ngeo.%04d$VERTE #
# $c R=$xw1/xxxx.pmc/COLL.$Ngeo.%04d$VERTE #
# $c $formatI\n" #
# $c ,n,N0-1,n #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xiim/COLL.$Ngeo.%04d$BLEUE #
# $c standard=FAUX #
# $c zero=FAUX #
# $c extrema=FAUX #
# $c minimum=$RVBmin maximum=$RVBmax #
# $c $formatI | #
# $c $xci/substitue$X #
# $c substitution=L_SUBSTITUTION_ROUGE #
# $c p=$PContraste #
# $c $formatI | #
# $c $xci/cache$X #
# $c M=$xiim/STRU.$Ngeo.%04d$BLEUE #
# $c R=$xw1/xxxx.pmc/COLL.$Ngeo.%04d$BLEUE #
# $c $formatI\n" #
# $c ,n,N0-1,n #
# $c ); #
# $c } #
# #
# $c printf("$CP $xw1/xxxx.pmc/COLL.$Ngeo.%04d$ROUGE #
# $c $xiird/CO.2.$Ngeo.%04d$ROUGE\n" #
# $c ,N,N-1 #
# $c ); #
# $c printf("$CP $xw1/xxxx.pmc/COLL.$Ngeo.%04d$VERTE #
# $c $xiird/CO.2.$Ngeo.%04d$VERTE\n" #
# $c ,N,N-1 #
# $c ); #
# $c printf("$CP $xw1/xxxx.pmc/COLL.$Ngeo.%04d$BLEUE #
# $c $xiird/CO.2.$Ngeo.%04d$BLEUE\n" #
# $c ,N,N-1 #
# $c ); #
# #
# $c printf("ro $xiird/CO.2.$Ngeo.%04d$ROUGE\n" #
# $c ,N-1 #
# $c ); #
# $c printf("ro $xiird/CO.2.$Ngeo.%04d$VERTE\n" #
# $c ,N-1 #
# $c ); #
# $c printf("ro $xiird/CO.2.$Ngeo.%04d$BLEUE\n" #
# $c ,N-1 #
# $c ); #
# #
# $c printf("$xcg/unite$Z $xiird/CO.2.$Ngeo.%04d$ROUGE\n" #
# $c ,N-1 #
# $c ); #
# $c printf("$xcg/unite$Z $xiird/CO.2.$Ngeo.%04d$VERTE\n" #
# $c ,N-1 #
# $c ); #
# $c printf("$xcg/unite$Z $xiird/CO.2.$Ngeo.%04d$BLEUE\n" #
# $c ,N-1 #
# $c ); #
# $c } #
# #
# $Z end #
# #
# $Z $DELETE $xTV/geometry.1$k #
# $Z $DELETE $xTV/geometry.2$k #
# $Z $DELETE $xTV/geometry #
# $Z $DELETE $xTV/struc2d$COORD_X #
# $Z $DELETE $xTV/struc2d$COORD_Y #
# $Z $DELETE $xTV/struc2d$COORD_Z #
# $Z $DELETE $xTV/tra.d #
# $Z $DELETE $xTV/Long.1 #
# $Z $DELETE $xTV/Long.2 #
# $Z $DELETE $xTV/Long.3 #
# $Z $DELETE $xTV/Long.4 #
# $Z $DELETE $xTV/Liste$ROUGE #
# $Z $DELETE $xTV/Liste$VERTE #
# $Z $DELETE $xTV/Liste$BLEUE #
# $Z $DELETE $xTV/Liste$ROUGE #
# $Z $DELETE $xTV/Liste$VERTE #
# $Z $DELETE $xTV/Liste$BLEUE #
# $Z $DELETE $xTV/collis #
# $Z $DELETE $xTV/collision #
# $Z $DELETE $xTV/collision$COORD_X #
# $Z $DELETE $xTV/collision$COORD_Y #
# #
# #
# Pal #
# #
# $xci/disk_video_P$Z $xw1/xxxx.pmc/COLL.0. 0001 0064 RVB \ #
# 4 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# $xci/disk_video_P$Z $xw1/xxxx.pmc/COLL.1. 0001 0064 RVB \ #
# 4 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# $xci/disk_video_P$Z $xw1/xxxx.pmc/COLL.2. 0001 0064 RVB \ #
# 4 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# $xci/disk_video_P$Z $xw1/xxxx.pmc/COLL.3. 0001 0064 RVB \ #
# 4 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
sequence 023100_023227
sequence 023228_023355
sequence 023356_023483
sequence 023484_023611
# Sequence generee via '$xu/SB.Santra/collision.13$f' par : #
# #
# #
# $Z Pal #
# #
# $Z SET Premiere=1 #
# $Z SET Derniere=127 #
# #
# $Z @ CRstruc2d = $GRIS_8 #
# $Z @ CVstruc2d = $GRIS_6 #
# $Z @ CBstruc2d = $GRIS_2 #
# #
# $Z set FConnexion=2 #
# $Z set Rstruc2d=0.0075 #
# $Z set Zstruc2d=0.0 #
# $Z set Rcollis=0.0075 #
# $Z set Zcollis=0.0 #
# $Z set Rzoom=1.2 #
# #
# #
# $Z set Numerotage=4 #
# #
# #
# $Z $DELETE $xTV/geometry.1$k #
# $Z $DELETE $xTV/geometry.2$k #
# #
# $Z echo 'BEGIN {' >>! $xTV/geometry.1$k #
# $Z echo ' numero = 0;' >>! $xTV/geometry.1$k #
# $Z echo ' }' >>! $xTV/geometry.1$k #
# $Z echo '{' >>! $xTV/geometry.1$k #
# $Z echo 'numero++;' >>! $xTV/geometry.1$k #
# $Z echo 'ligne[numero] = $0;' >>! $xTV/geometry.1$k #
# $Z echo '}' >>! $xTV/geometry.1$k #
# $Z echo 'END {' >>! $xTV/geometry.1$k #
# $Z echo ' for (n=1 ; n<=numero ; n++)' >>! $xTV/geometry.1$k #
# $Z echo ' {' >>! $xTV/geometry.1$k #
# $Z echo ' printf("%s",ligne[n]);' >>! $xTV/geometry.1$k #
# $Z echo ' if ((n%2) == 0)' >>! $xTV/geometry.1$k #
# $Z echo ' {' >>! $xTV/geometry.1$k #
# $Z echo ' printf("\\n");' >>! $xTV/geometry.1$k #
# $Z echo ' }' >>! $xTV/geometry.1$k #
# $Z echo ' else' >>! $xTV/geometry.1$k #
# $Z echo ' {' >>! $xTV/geometry.1$k #
# $Z echo ' printf(" ");' >>! $xTV/geometry.1$k #
# $Z echo ' }' >>! $xTV/geometry.1$k #
# $Z echo ' }' >>! $xTV/geometry.1$k #
# $Z echo ' }' >>! $xTV/geometry.1$k #
# #
# $Z echo 'BEGIN {' >>! $xTV/geometry.2$k #
# $Z echo ' numero = 0;' >>! $xTV/geometry.2$k #
# $Z echo ' }' >>! $xTV/geometry.2$k #
# $Z echo '{' >>! $xTV/geometry.2$k #
# $Z echo 'numero++;' >>! $xTV/geometry.2$k #
# $Z echo 'ligne[numero] = $0;' >>! $xTV/geometry.2$k #
# $Z echo '}' >>! $xTV/geometry.2$k #
# $Z echo 'END {' >>! $xTV/geometry.2$k #
# $Z echo ' for (n=1 ; n<=numero ; n++)' >>! $xTV/geometry.2$k #
# $Z echo ' {' >>! $xTV/geometry.2$k #
# $Z echo ' printf("%s\\n",ligne[n]);' >>! $xTV/geometry.2$k #
# $Z echo ' if ((n > 1) && (n<numero))' >>! $xTV/geometry.2$k #
# $Z echo ' {' >>! $xTV/geometry.2$k #
# $Z echo ' printf("%s\\n",ligne[n]);' >>! $xTV/geometry.2$k #
# $Z echo ' }' >>! $xTV/geometry.2$k #
# $Z echo ' else' >>! $xTV/geometry.2$k #
# $Z echo ' {' >>! $xTV/geometry.2$k #
# $Z echo ' }' >>! $xTV/geometry.2$k #
# $Z echo ' }' >>! $xTV/geometry.2$k #
# $Z echo ' }' >>! $xTV/geometry.2$k #
# #
# $Z set minRVB=$GRIS_2 #
# $Z set maxRVB=$GRIS_8 #
# #
# $Z set PContraste=$xiP/gris.01 #
# #
# $Z set Lgeometry={0,1,2,3} #
# #
# $Z foreach Ngeo ($Lgeometry) #
# #
# $Z setenv Fgeometry $xu/SB.Santra/pore$Ngeo.d #
# #
# $Z $DELETE $xTV/geometry #
# #
# $Z $CA $Fgeometry \ #
# $Z | $TAI +2 \ #
# $Z | $AW -f $xTV/geometry.1$k \ #
# $Z | $AW -f $xTV/geometry.2$k \ #
# $Z | $R "$K_BLANC" "$K_NL" \ #
# $Z > $xTV/geometry #
# #
# $Z set Lstruc2d=`$WC $xTV/geometry` #
# $Z set Lstruc2d=$Lstruc2d[$WC1] #
# $Z @ Lstruc2d = $Lstruc2d / 2 #
# #
# $Z $DELETE $xTV/struc2d$COORD_X #
# $Z $DELETE $xTV/struc2d$COORD_Y #
# $Z $DELETE $xTV/struc2d$COORD_Z #
# #
# $Z $CA $xTV/geometry \ #
# $Z | $NL -nrz -w$Numerotage \ #
# $Z | $R "$K_TAB" "$K_BLANC" \ #
# $Z | $GRE "[13579] " \ #
# $Z | $AW ' { print $2 } ' \ #
# $Z > $xTV/struc2d$COORD_X #
# $Z $CA $xTV/geometry \ #
# $Z | $NL -nrz -w$Numerotage \ #
# $Z | $R "$K_TAB" "$K_BLANC" \ #
# $Z | $GRE "[02468] " \ #
# $Z | $AW ' { print $2 } ' \ #
# $Z > $xTV/struc2d$COORD_Y #
# $Z $xci/valeurs_inte$X p=1 d=$Lstruc2d vD=$Zstruc2d vA=$Zstruc2d \ #
# $Z > $xTV/struc2d$COORD_Z #
# #
# $Z set FichierX="fichier=$xTV/struc2d$COORD_X" #
# $Z set FichierY="fichier=$xTV/struc2d$COORD_Y" #
# $Z set FichierXY="CAL1=FAUX ne=$Lstruc2d" #
# #
# $Z set ScaleX=`$xrv/extrema.01$X $FichierXY $FichierX` #
# $Z set HomoX=`echo "$ScaleX" | $SE -e "s/.*facteur d'homothetie=\([^ ][^ ]*\).*/\1/"` #
# #
# $Z set ScaleY=`$xrv/extrema.01$X $FichierXY $FichierY` #
# $Z set HomoY=`echo "$ScaleY" | $SE -e "s/.*facteur d'homothetie=\([^ ][^ ]*\).*/\1/"` #
# #
# $Z set HomoXYZ=`$xcg/MIN2.01$X n1=$HomoX n2=$HomoY` #
# $Z set Minimum=0 #
# $Z set Maximum=1 #
# $Z set Milieu=`$xcg/SOUS.01$X n1=$Maximum n2=$Minimum` #
# $Z set Milieu=`$xcg/MOIT.01$X n=$Milieu` #
# $Z set Milieu=`echo $Milieu | $SE -e "s/^.//"` #
# #
# $Z if ("$HomoX" != "$HomoXYZ") then #
# $Z set HomoX1=`$xcg/DIVZ.01$X n1=$HomoXYZ n2=$HomoX` #
# $Z set MinimumX=`$xcg/AXPB.01$X a=-$Milieu x=$HomoX1 b=$Milieu` #
# $Z set MaximumX=`$xcg/AXPB.01$X a=+$Milieu x=$HomoX1 b=$Milieu` #
# #
# $Z set MinimumY=$Minimum #
# $Z set MaximumY=$Maximum #
# $Z else #
# $Z set MinimumX=$Minimum #
# $Z set MaximumX=$Maximum #
# #
# $Z set HomoY1=`$xcg/DIVZ.01$X n1=$HomoXYZ n2=$HomoY` #
# $Z set MinimumY=`$xcg/AXPB.01$X a=-$Milieu x=$HomoY1 b=$Milieu` #
# $Z set MaximumY=`$xcg/AXPB.01$X a=+$Milieu x=$HomoY1 b=$Milieu` #
# $Z endif #
# #
# $Z set ScaleX=`$xrv/extrema.01$X $FichierXY $FichierX m=$MinimumX M=$MaximumX` #
# $Z set HomoX=`echo "$ScaleX" | $SE -e "s/.*facteur d'homothetie=\([^ ][^ ]*\).*/\1/"` #
# $Z set TranX=`echo "$ScaleX" | $SE -e "s/.*translation.*=\([^ ][^ ]*\).*/\1/"` #
# #
# $Z set ScaleY=`$xrv/extrema.01$X $FichierXY $FichierY m=$MinimumY M=$MaximumY` #
# $Z set HomoY=`echo "$ScaleY" | $SE -e "s/.*facteur d'homothetie=\([^ ][^ ]*\).*/\1/"` #
# $Z set TranY=`echo "$ScaleY" | $SE -e "s/.*translation.*=\([^ ][^ ]*\).*/\1/"` #
# #
# $Z $xrv/particule.10$X \ #
# $Z ATTENTION=FAUX \ #
# $Z np=1 iterations=$Lstruc2d \ #
# $Z LISTE_X=$xTV/struc2d$COORD_X \ #
# $Z LISTE_Y=$xTV/struc2d$COORD_Y \ #
# $Z LISTE_Z=$xTV/struc2d$COORD_Z \ #
# $Z LISTE_ROUGE=$CRstruc2d \ #
# $Z LISTE_VERTE=$CVstruc2d \ #
# $Z LISTE_BLEUE=$CBstruc2d \ #
# $Z isoles=FAUX Pajuster=VRAI \ #
# $Z AX=$HomoX BX=$TranX \ #
# $Z AY=$HomoY BY=$TranY \ #
# $Z rayon_de_visualisation=$Rstruc2d \ #
# $Z nombreR=$FConnexion \ #
# $Z ZOOM=$Rzoom \ #
# $Z tri=VRAI N_au_carre=FAUX \ #
# $Z Lz=1000 \ #
# $Z R=$xiim/STRU.$Ngeo. \ #
# $Z $formatI #
# #
# $Z PushdC $xu/SB.Santra #
# $Z $DELETE $xTV/tra.d #
# $Z $xu/SB.Santra/$aPout #
# $Z PopdC #
# #
# $Z $DELETE $xTV/Long.1 #
# $Z $DELETE $xTV/Long.2 #
# $Z $DELETE $xTV/Long.3 #
# $Z $DELETE $xTV/Long.4 #
# #
# #
# $Z $CA $xTV/tra.d \ #
# $Z | $GRE '^long .*=$' \ #
# $Z | $SE -e "s/^long *//" \ #
# $Z -e 's/=$//' \ #
# $Z > $xTV/Long.1 #
# $Z set NLongueur=`$WC $xTV/Long.1` #
# $Z set NLongueur=$NLongueur[$WC1] #
# #
# $Z $xrv/INVZ.01$X \ #
# $Z ATTENTION=FAUX \ #
# $Z ne=$NLongueur \ #
# $Z fichier=$xTV/Long.1 \ #
# $Z > $xTV/Long.4 #
# #
# $Z $xrv/extrema.01$X \ #
# $Z ATTENTION=FAUX \ #
# $Z ne=$NLongueur \ #
# $Z fichier=$xTV/Long.4 \ #
# $Z minimum=$minRVB maximum=$maxRVB \ #
# $Z > $xTV/Long.2 #
# $Z set Homothetie=`$GRE "^facteur d'homothetie.*=" $xTV/Long.2 | $SE -e "s/^.*=//"` #
# $Z set Translation=`$GRE "^translation.*=" $xTV/Long.2 | $SE -e "s/^.*=//"` #
# #
# $Z $xrv/AXPB.01$X \ #
# $Z ATTENTION=FAUX \ #
# $Z ne=$NLongueur \ #
# $Z fichier=$xTV/Long.4 \ #
# $Z homothetie=$Homothetie translation=$Translation \ #
# $Z | $SE -e 's/\.[0-9]*$//' \ #
# $Z > $xTV/Long.3 #
# #
# $Z $DELETE $xTV/Liste$ROUGE #
# $Z $DELETE $xTV/Liste$VERTE #
# $Z $DELETE $xTV/Liste$BLEUE #
# #
# $Z $CA $xTV/Long.3 \ #
# $Z > $xTV/Liste$ROUGE #
# $Z $CA $xTV/Long.3 \ #
# $Z > $xTV/Liste$VERTE #
# $Z $CA $xTV/Long.3 \ #
# $Z > $xTV/Liste$BLEUE #
# #
# $Z set ListeR=`$CA $xTV/Liste$ROUGE` #
# $Z set ListeV=`$CA $xTV/Liste$VERTE` #
# $Z set ListeB=`$CA $xTV/Liste$BLEUE` #
# #
# $c #define N0 (Premiere+1) #
# $c #define N (Derniere+1) #
# #
# $c int main() #
# $c { #
# $c int n; #
# $c printf("$xci/init$X #
# $c valeur=0 #
# $c standard=FAUX #
# $c R=$xiim/COLL.$Ngeo.%04d$ROUGE #
# $c $formatI\n" #
# $c ,N0-1 #
# $c ); #
# $c printf("$xci/init$X #
# $c valeur=0 #
# $c standard=FAUX #
# $c R=$xiim/COLL.$Ngeo.%04d$VERTE #
# $c $formatI\n" #
# $c ,N0-1 #
# $c ); #
# $c printf("$xci/init$X #
# $c valeur=0 #
# $c standard=FAUX #
# $c R=$xiim/COLL.$Ngeo.%04d$BLEUE #
# $c $formatI\n" #
# $c ,N0-1 #
# $c ); #
# #
# $c for (n=N0 ; n<=N ; n++) #
# $c { #
# $c printf("$DELETE $xTV/collis\n"); #
# $c printf("$DELETE $xTV/collision\n"); #
# $c printf("$DELETE $xTV/collision$COORD_X\n"); #
# $c printf("$DELETE $xTV/collision$COORD_Y\n"); #
# #
# $c printf("$CA $xTV/tra.d | #
# $c $SE -e 's/^ *//' -e 's/ */ /g' | #
# $c $AW '/traj %d=/,/traj %d=/' | #
# $c $SE -e '/^traj *[0-9][0-9]*=$/d' | #
# $c $SE -e '/^long *[^=][^=]*=$/d' | #
# $c $SE -e 's/^\\(refl\\) */\\1=/' | #
# $c $R %c$K_BLANC%c %c$K_NL%c #
# $c > $xTV/collis\n" #
# $c ,n-1,n,'"','"','"','"' #
# $c ); #
# #
# $c printf("set Nre=`$GRE '^refl=' $xTV/collis | $SE -e 's/^refl=//' -e 's/=$//'`\n"); #
# $c printf("set Nre=`echo '0000'$Nre | $SE -e 's/^.*\\(....\\)$/\\1/'`\n"); #
# #
# $c printf("$CA $xTV/collis | #
# $c $SE -e '/^refl=[0-9][0-9]*=$/d' | #
# $c $SE -e '/^long=[^=][^=]*=$/d' | #
# $c $NL -nrz -w$Numerotage | #
# $c $R %c$K_TAB%c %c$K_BLANC%c #
# $c > $xTV/collision\n" #
# $c ,'"','"','"','"' #
# $c ); #
# #
# $c printf("$CA $xTV/collision | #
# $c $GRE '[13579] ' | #
# $c $AW ' { print $2 } ' #
# $c > $xTV/collision$COORD_X\n" #
# $c ); #
# $c printf("$CA $xTV/collision | #
# $c $GRE '[02468] ' | #
# $c $AW ' { print $2 } ' #
# $c > $xTV/collision$COORD_Y\n" #
# $c ); #
# #
# $c printf("set Lcol=`$WC $xTV/collision`\n"); #
# $c printf("set Lcol=$Lcol[$WC1]\n"); #
# $c printf("@ Lcol = $Lcol / 2\n"); #
# $c printf("$xrv/particule.10$X #
# $c ATTENTION=FAUX #
# $c np=1 iterations=$Lcol #
# $c LISTE_X=$xTV/collision$COORD_X #
# $c LISTE_Y=$xTV/collision$COORD_Y #
# $c LISTE_Z=$Zcollis #
# $c LISTE_ROUGE=$ListeR[%d] #
# $c LISTE_VERTE=$ListeV[%d] #
# $c LISTE_BLEUE=$ListeB[%d] #
# $c isoles=FAUX #
# $c Pajuster=VRAI #
# $c AX=$HomoX BX=$TranX #
# $c AY=$HomoY BY=$TranY #
# $c rayon_de_visualisation=$Rcollis #
# $c nombreR=$FConnexion #
# $c ZOOM=$Rzoom #
# $c tri=VRAI N_au_carre=FAUX #
# $c fond=FAUX dynamique=FAUX #
# $c Lz=1000 #
# $c F=$xiim/STRU.$Ngeo.%04d #
# $c R=$xiim/COLL. #
# $c $formatI\n" #
# $c ,n-1,n-1,n-1,N0-1 #
# $c ); #
# #
# $c printf("$xci/acces$X #
# $c A=$xiim/COLL.%04d$ROUGE #
# $c convertir=VRAI #
# $c minimum=$NOIR maximum=$BLANC #
# $c interpoler=FAUX #
# $c $formatI | #
# $c $xci/somme_02$X #
# $c A1=$xiim/COLL.$Ngeo.%04d$ROUGE #
# $c standard=FAUX #
# $c R=$xiim/COLL.$Ngeo.%04d$ROUGE #
# $c $formatI\n" #
# $c ,N0-1,n-1,n #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xiim/COLL.%04d$VERTE #
# $c convertir=VRAI #
# $c minimum=$NOIR maximum=$BLANC #
# $c interpoler=FAUX #
# $c $formatI | #
# $c $xci/somme_02$X #
# $c A1=$xiim/COLL.$Ngeo.%04d$VERTE #
# $c standard=FAUX #
# $c R=$xiim/COLL.$Ngeo.%04d$VERTE #
# $c $formatI\n" #
# $c ,N0-1,n-1,n #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xiim/COLL.%04d$BLEUE #
# $c convertir=VRAI #
# $c minimum=$NOIR maximum=$BLANC #
# $c interpoler=FAUX #
# $c $formatI | #
# $c $xci/somme_02$X #
# $c A1=$xiim/COLL.$Ngeo.%04d$BLEUE #
# $c standard=FAUX #
# $c R=$xiim/COLL.$Ngeo.%04d$BLEUE #
# $c $formatI\n" #
# $c ,N0-1,n-1,n #
# $c ); #
# $c } #
# #
# $c printf("set Rnom=$xiim/COLL.$Ngeo.%04d$ROUGE\n" #
# $c ,N #
# $c ); #
# $c printf("set Rminmax=`$xci/extrema$X A=$Rnom standard=FAUX $formatI |& $CA`\n"); #
# $c printf("set Rmin=`$xcg/MIN2.01$X n1=$Rminmax[1] n2=$Rminmax[2]`\n"); #
# $c printf("set Rmax=`$xcg/MAX2.01$X n1=$Rminmax[1] n2=$Rminmax[2]`\n"); #
# #
# $c printf("set Vnom=$xiim/COLL.$Ngeo.%04d$VERTE\n" #
# $c ,N #
# $c ); #
# $c printf("set Vminmax=`$xci/extrema$X A=$Vnom standard=FAUX $formatI |& $CA`\n"); #
# $c printf("set Vmin=`$xcg/MIN2.01$X n1=$Vminmax[1] n2=$Vminmax[2]`\n"); #
# $c printf("set Vmax=`$xcg/MAX2.01$X n1=$Vminmax[1] n2=$Vminmax[2]`\n"); #
# #
# $c printf("set Bnom=$xiim/COLL.$Ngeo.%04d$BLEUE\n" #
# $c ,N #
# $c ); #
# $c printf("set Bminmax=`$xci/extrema$X A=$Bnom standard=FAUX $formatI |& $CA`\n"); #
# $c printf("set Bmin=`$xcg/MIN2.01$X n1=$Bminmax[1] n2=$Bminmax[2]`\n"); #
# $c printf("set Bmax=`$xcg/MAX2.01$X n1=$Bminmax[1] n2=$Bminmax[2]`\n"); #
# #
# $c printf("set RVBmin=`$xcg/MIN2.01$X n1=$Rmin n2=$Vmin`\n"); #
# $c printf("set RVBmin=`$xcg/MIN2.01$X n1=$RVBmin n2=$Bmin`\n"); #
# #
# $c printf("set RVBmax=`$xcg/MAX2.01$X n1=$Rmax n2=$Vmax`\n"); #
# $c printf("set RVBmax=`$xcg/MAX2.01$X n1=$RVBmax n2=$Bmax`\n"); #
# #
# $c for (n=(N0-1) ; n<=N ; n++) #
# $c { #
# $c printf("$xci/acces$X #
# $c A=$xiim/COLL.$Ngeo.%04d$ROUGE #
# $c standard=FAUX #
# $c zero=FAUX #
# $c extrema=FAUX #
# $c minimum=$RVBmin maximum=$RVBmax #
# $c $formatI | #
# $c $xci/substitue$X #
# $c substitution=L_SUBSTITUTION_ROUGE #
# $c p=$PContraste #
# $c $formatI | #
# $c $xci/cache$X #
# $c M=$xiim/STRU.$Ngeo.%04d$ROUGE #
# $c R=$xw1/xxxx.pmc/COLL.$Ngeo.%04d$ROUGE #
# $c $formatI\n" #
# $c ,n,N0-1,n #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xiim/COLL.$Ngeo.%04d$ROUGE #
# $c standard=FAUX #
# $c detruire=VRAI #
# $c $formatI\n" #
# $c ,n #
# $c ); #
# #
# $c printf("$xci/acces$X #
# $c A=$xiim/COLL.$Ngeo.%04d$VERTE #
# $c standard=FAUX #
# $c zero=FAUX #
# $c extrema=FAUX #
# $c minimum=$RVBmin maximum=$RVBmax #
# $c $formatI | #
# $c $xci/substitue$X #
# $c substitution=L_SUBSTITUTION_ROUGE #
# $c p=$PContraste #
# $c $formatI | #
# $c $xci/cache$X #
# $c M=$xiim/STRU.$Ngeo.%04d$VERTE #
# $c R=$xw1/xxxx.pmc/COLL.$Ngeo.%04d$VERTE #
# $c $formatI\n" #
# $c ,n,N0-1,n #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xiim/COLL.$Ngeo.%04d$VERTE #
# $c standard=FAUX #
# $c detruire=VRAI #
# $c $formatI\n" #
# $c ,n #
# $c ); #
# #
# $c printf("$xci/acces$X #
# $c A=$xiim/COLL.$Ngeo.%04d$BLEUE #
# $c standard=FAUX #
# $c zero=FAUX #
# $c extrema=FAUX #
# $c minimum=$RVBmin maximum=$RVBmax #
# $c $formatI | #
# $c $xci/substitue$X #
# $c substitution=L_SUBSTITUTION_ROUGE #
# $c p=$PContraste #
# $c $formatI | #
# $c $xci/cache$X #
# $c M=$xiim/STRU.$Ngeo.%04d$BLEUE #
# $c R=$xw1/xxxx.pmc/COLL.$Ngeo.%04d$BLEUE #
# $c $formatI\n" #
# $c ,n,N0-1,n #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xiim/COLL.$Ngeo.%04d$BLEUE #
# $c standard=FAUX #
# $c detruire=VRAI #
# $c $formatI\n" #
# $c ,n #
# $c ); #
# $c } #
# #
# $c printf("$CP $xw1/xxxx.pmc/COLL.$Ngeo.%04d$ROUGE #
# $c $xiird/CO.3.$Ngeo.%04d$ROUGE\n" #
# $c ,N,N-1 #
# $c ); #
# $c printf("$CP $xw1/xxxx.pmc/COLL.$Ngeo.%04d$VERTE #
# $c $xiird/CO.3.$Ngeo.%04d$VERTE\n" #
# $c ,N,N-1 #
# $c ); #
# $c printf("$CP $xw1/xxxx.pmc/COLL.$Ngeo.%04d$BLEUE #
# $c $xiird/CO.3.$Ngeo.%04d$BLEUE\n" #
# $c ,N,N-1 #
# $c ); #
# #
# $c printf("ro $xiird/CO.3.$Ngeo.%04d$ROUGE\n" #
# $c ,N-1 #
# $c ); #
# $c printf("ro $xiird/CO.3.$Ngeo.%04d$VERTE\n" #
# $c ,N-1 #
# $c ); #
# $c printf("ro $xiird/CO.3.$Ngeo.%04d$BLEUE\n" #
# $c ,N-1 #
# $c ); #
# #
# $c printf("$xcg/unite$Z $xiird/CO.3.$Ngeo.%04d$ROUGE\n" #
# $c ,N-1 #
# $c ); #
# $c printf("$xcg/unite$Z $xiird/CO.3.$Ngeo.%04d$VERTE\n" #
# $c ,N-1 #
# $c ); #
# $c printf("$xcg/unite$Z $xiird/CO.3.$Ngeo.%04d$BLEUE\n" #
# $c ,N-1 #
# $c ); #
# $c } #
# #
# $Z end #
# #
# $Z $DELETE $xTV/geometry.1$k #
# $Z $DELETE $xTV/geometry.2$k #
# $Z $DELETE $xTV/geometry #
# $Z $DELETE $xTV/struc2d$COORD_X #
# $Z $DELETE $xTV/struc2d$COORD_Y #
# $Z $DELETE $xTV/struc2d$COORD_Z #
# $Z $DELETE $xTV/tra.d #
# $Z $DELETE $xTV/Long.1 #
# $Z $DELETE $xTV/Long.2 #
# $Z $DELETE $xTV/Long.3 #
# $Z $DELETE $xTV/Long.4 #
# $Z $DELETE $xTV/Liste$ROUGE #
# $Z $DELETE $xTV/Liste$VERTE #
# $Z $DELETE $xTV/Liste$BLEUE #
# $Z $DELETE $xTV/Liste$ROUGE #
# $Z $DELETE $xTV/Liste$VERTE #
# $Z $DELETE $xTV/Liste$BLEUE #
# $Z $DELETE $xTV/collis #
# $Z $DELETE $xTV/collision #
# $Z $DELETE $xTV/collision$COORD_X #
# $Z $DELETE $xTV/collision$COORD_Y #
# #
# #
# Pal #
# #
# $xci/disk_video_P$Z $xw1/xxxx.pmc/COLL.0. 0001 0128 RVB \ #
# 4 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# $xci/disk_video_P$Z $xw1/xxxx.pmc/COLL.1. 0001 0128 RVB \ #
# 4 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# $xci/disk_video_P$Z $xw1/xxxx.pmc/COLL.2. 0001 0128 RVB \ #
# 4 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# $xci/disk_video_P$Z $xw1/xxxx.pmc/COLL.3. 0001 0128 RVB \ #
# 4 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
# #
# xivPdf 3 2 #
# #
# record.01$Z $xiird/CO.3.0.0127 RVB rien #
# record.01$Z $xiird/CO.3.1.0127 RVB rien #
# record.01$Z $xiird/CO.3.2.0127 RVB rien #
# record.01$Z $xiird/CO.3.3.0127 RVB rien #
# #
sequence 023612_023739
sequence 023740_023867
sequence 023868_023995
sequence 023996_024123
# Sequence generee via '$xu/SB.Santra/collision.13$f' par : #
# #
# #
# $Z Pal #
# #
# $Z SET Premiere=1 #
# $Z SET Derniere=127 #
# #
# $Z @ CRstruc2d = $GRIS_8 #
# $Z @ CVstruc2d = $GRIS_6 #
# $Z @ CBstruc2d = $GRIS_2 #
# #
# $Z set FConnexion=2 #
# $Z set Rstruc2d=0.0075 #
# $Z set Zstruc2d=0.0 #
# $Z set Rcollis=0.0075 #
# $Z set Zcollis=0.0 #
# $Z set Rzoom=1.2 #
# #
# #
# $Z set Numerotage=4 #
# #
# #
# $Z $DELETE $xTV/geometry.1$k #
# $Z $DELETE $xTV/geometry.2$k #
# #
# $Z echo 'BEGIN {' >>! $xTV/geometry.1$k #
# $Z echo ' numero = 0;' >>! $xTV/geometry.1$k #
# $Z echo ' }' >>! $xTV/geometry.1$k #
# $Z echo '{' >>! $xTV/geometry.1$k #
# $Z echo 'numero++;' >>! $xTV/geometry.1$k #
# $Z echo 'ligne[numero] = $0;' >>! $xTV/geometry.1$k #
# $Z echo '}' >>! $xTV/geometry.1$k #
# $Z echo 'END {' >>! $xTV/geometry.1$k #
# $Z echo ' for (n=1 ; n<=numero ; n++)' >>! $xTV/geometry.1$k #
# $Z echo ' {' >>! $xTV/geometry.1$k #
# $Z echo ' printf("%s",ligne[n]);' >>! $xTV/geometry.1$k #
# $Z echo ' if ((n%2) == 0)' >>! $xTV/geometry.1$k #
# $Z echo ' {' >>! $xTV/geometry.1$k #
# $Z echo ' printf("\\n");' >>! $xTV/geometry.1$k #
# $Z echo ' }' >>! $xTV/geometry.1$k #
# $Z echo ' else' >>! $xTV/geometry.1$k #
# $Z echo ' {' >>! $xTV/geometry.1$k #
# $Z echo ' printf(" ");' >>! $xTV/geometry.1$k #
# $Z echo ' }' >>! $xTV/geometry.1$k #
# $Z echo ' }' >>! $xTV/geometry.1$k #
# $Z echo ' }' >>! $xTV/geometry.1$k #
# #
# $Z echo 'BEGIN {' >>! $xTV/geometry.2$k #
# $Z echo ' numero = 0;' >>! $xTV/geometry.2$k #
# $Z echo ' }' >>! $xTV/geometry.2$k #
# $Z echo '{' >>! $xTV/geometry.2$k #
# $Z echo 'numero++;' >>! $xTV/geometry.2$k #
# $Z echo 'ligne[numero] = $0;' >>! $xTV/geometry.2$k #
# $Z echo '}' >>! $xTV/geometry.2$k #
# $Z echo 'END {' >>! $xTV/geometry.2$k #
# $Z echo ' for (n=1 ; n<=numero ; n++)' >>! $xTV/geometry.2$k #
# $Z echo ' {' >>! $xTV/geometry.2$k #
# $Z echo ' printf("%s\\n",ligne[n]);' >>! $xTV/geometry.2$k #
# $Z echo ' if ((n > 1) && (n<numero))' >>! $xTV/geometry.2$k #
# $Z echo ' {' >>! $xTV/geometry.2$k #
# $Z echo ' printf("%s\\n",ligne[n]);' >>! $xTV/geometry.2$k #
# $Z echo ' }' >>! $xTV/geometry.2$k #
# $Z echo ' else' >>! $xTV/geometry.2$k #
# $Z echo ' {' >>! $xTV/geometry.2$k #
# $Z echo ' }' >>! $xTV/geometry.2$k #
# $Z echo ' }' >>! $xTV/geometry.2$k #
# $Z echo ' }' >>! $xTV/geometry.2$k #
# #
# $Z set minRVB=$GRIS_2 #
# $Z set maxRVB=$GRIS_8 #
# #
# $Z set PContraste=$xiP/gris.01 #
# #
# $Z set Lgeometry={0,1,2,3} #
# #
# $Z foreach Ngeo ($Lgeometry) #
# #
# $Z setenv Fgeometry $xu/SB.Santra/pore$Ngeo.d #
# #
# $Z $DELETE $xTV/geometry #
# #
# $Z $CA $Fgeometry \ #
# $Z | $TAI +2 \ #
# $Z | $AW -f $xTV/geometry.1$k \ #
# $Z | $AW -f $xTV/geometry.2$k \ #
# $Z | $R "$K_BLANC" "$K_NL" \ #
# $Z > $xTV/geometry #
# #
# $Z set Lstruc2d=`$WC $xTV/geometry` #
# $Z set Lstruc2d=$Lstruc2d[$WC1] #
# $Z @ Lstruc2d = $Lstruc2d / 2 #
# #
# $Z $DELETE $xTV/struc2d$COORD_X #
# $Z $DELETE $xTV/struc2d$COORD_Y #
# $Z $DELETE $xTV/struc2d$COORD_Z #
# #
# $Z $CA $xTV/geometry \ #
# $Z | $NL -nrz -w$Numerotage \ #
# $Z | $R "$K_TAB" "$K_BLANC" \ #
# $Z | $GRE "[13579] " \ #
# $Z | $AW ' { print $2 } ' \ #
# $Z > $xTV/struc2d$COORD_X #
# $Z $CA $xTV/geometry \ #
# $Z | $NL -nrz -w$Numerotage \ #
# $Z | $R "$K_TAB" "$K_BLANC" \ #
# $Z | $GRE "[02468] " \ #
# $Z | $AW ' { print $2 } ' \ #
# $Z > $xTV/struc2d$COORD_Y #
# $Z $xci/valeurs_inte$X p=1 d=$Lstruc2d vD=$Zstruc2d vA=$Zstruc2d \ #
# $Z > $xTV/struc2d$COORD_Z #
# #
# $Z set FichierX="fichier=$xTV/struc2d$COORD_X" #
# $Z set FichierY="fichier=$xTV/struc2d$COORD_Y" #
# $Z set FichierXY="CAL1=FAUX ne=$Lstruc2d" #
# #
# $Z set ScaleX=`$xrv/extrema.01$X $FichierXY $FichierX` #
# $Z set HomoX=`echo "$ScaleX" | $SE -e "s/.*facteur d'homothetie=\([^ ][^ ]*\).*/\1/"` #
# #
# $Z set ScaleY=`$xrv/extrema.01$X $FichierXY $FichierY` #
# $Z set HomoY=`echo "$ScaleY" | $SE -e "s/.*facteur d'homothetie=\([^ ][^ ]*\).*/\1/"` #
# #
# $Z set HomoXYZ=`$xcg/MIN2.01$X n1=$HomoX n2=$HomoY` #
# $Z set Minimum=0 #
# $Z set Maximum=1 #
# $Z set Milieu=`$xcg/SOUS.01$X n1=$Maximum n2=$Minimum` #
# $Z set Milieu=`$xcg/MOIT.01$X n=$Milieu` #
# $Z set Milieu=`echo $Milieu | $SE -e "s/^.//"` #
# #
# $Z if ("$HomoX" != "$HomoXYZ") then #
# $Z set HomoX1=`$xcg/DIVZ.01$X n1=$HomoXYZ n2=$HomoX` #
# $Z set MinimumX=`$xcg/AXPB.01$X a=-$Milieu x=$HomoX1 b=$Milieu` #
# $Z set MaximumX=`$xcg/AXPB.01$X a=+$Milieu x=$HomoX1 b=$Milieu` #
# #
# $Z set MinimumY=$Minimum #
# $Z set MaximumY=$Maximum #
# $Z else #
# $Z set MinimumX=$Minimum #
# $Z set MaximumX=$Maximum #
# #
# $Z set HomoY1=`$xcg/DIVZ.01$X n1=$HomoXYZ n2=$HomoY` #
# $Z set MinimumY=`$xcg/AXPB.01$X a=-$Milieu x=$HomoY1 b=$Milieu` #
# $Z set MaximumY=`$xcg/AXPB.01$X a=+$Milieu x=$HomoY1 b=$Milieu` #
# $Z endif #
# #
# $Z set ScaleX=`$xrv/extrema.01$X $FichierXY $FichierX m=$MinimumX M=$MaximumX` #
# $Z set HomoX=`echo "$ScaleX" | $SE -e "s/.*facteur d'homothetie=\([^ ][^ ]*\).*/\1/"` #
# $Z set TranX=`echo "$ScaleX" | $SE -e "s/.*translation.*=\([^ ][^ ]*\).*/\1/"` #
# #
# $Z set ScaleY=`$xrv/extrema.01$X $FichierXY $FichierY m=$MinimumY M=$MaximumY` #
# $Z set HomoY=`echo "$ScaleY" | $SE -e "s/.*facteur d'homothetie=\([^ ][^ ]*\).*/\1/"` #
# $Z set TranY=`echo "$ScaleY" | $SE -e "s/.*translation.*=\([^ ][^ ]*\).*/\1/"` #
# #
# $Z $xrv/particule.10$X \ #
# $Z ATTENTION=FAUX \ #
# $Z np=1 iterations=$Lstruc2d \ #
# $Z LISTE_X=$xTV/struc2d$COORD_X \ #
# $Z LISTE_Y=$xTV/struc2d$COORD_Y \ #
# $Z LISTE_Z=$xTV/struc2d$COORD_Z \ #
# $Z LISTE_ROUGE=$CRstruc2d \ #
# $Z LISTE_VERTE=$CVstruc2d \ #
# $Z LISTE_BLEUE=$CBstruc2d \ #
# $Z isoles=FAUX Pajuster=VRAI \ #
# $Z AX=$HomoX BX=$TranX \ #
# $Z AY=$HomoY BY=$TranY \ #
# $Z rayon_de_visualisation=$Rstruc2d \ #
# $Z nombreR=$FConnexion \ #
# $Z ZOOM=$Rzoom \ #
# $Z tri=VRAI N_au_carre=FAUX \ #
# $Z Lz=1000 \ #
# $Z R=$xiim/STRU.$Ngeo. \ #
# $Z $formatI #
# #
# $Z PushdC $xu/SB.Santra #
# $Z $DELETE $xTV/tra.d #
# $Z $xu/SB.Santra/$aPout #
# $Z PopdC #
# #
# $Z $DELETE $xTV/Long.1 #
# $Z $DELETE $xTV/Long.2 #
# $Z $DELETE $xTV/Long.3 #
# $Z $DELETE $xTV/Long.4 #
# $Z $DELETE $xTV/Refl.1 #
# #
# #
# #
# $Z $CA $xTV/tra.d \ #
# $Z | $GRE '^refl .*=$' \ #
# $Z | $SE -e "s/^refl *//" \ #
# $Z -e 's/=$//' \ #
# $Z > $xTV/Refl.1 #
# $Z $CA $xTV/tra.d \ #
# $Z | $GRE '^long .*=$' \ #
# $Z | $SE -e "s/^long *//" \ #
# $Z -e 's/=$//' \ #
# $Z > $xTV/Long.1 #
# $Z set NLongueur=`$WC $xTV/Long.1` #
# $Z set NLongueur=$NLongueur[$WC1] #
# #
# $Z $xrv/DIVZ.11$X \ #
# $Z ATTENTION=FAUX \ #
# $Z ne=$NLongueur \ #
# $Z fichier1=$xTV/Refl.1 \ #
# $Z fichier2=$xTV/Long.1 \ #
# $Z > $xTV/Long.4 #
# #
# $Z $xrv/extrema.01$X \ #
# $Z ATTENTION=FAUX \ #
# $Z ne=$NLongueur \ #
# $Z fichier=$xTV/Long.4 \ #
# $Z minimum=$minRVB maximum=$maxRVB \ #
# $Z > $xTV/Long.2 #
# $Z set Homothetie=`$GRE "^facteur d'homothetie.*=" $xTV/Long.2 | $SE -e "s/^.*=//"` #
# $Z set Translation=`$GRE "^translation.*=" $xTV/Long.2 | $SE -e "s/^.*=//"` #
# #
# $Z $xrv/AXPB.01$X \ #
# $Z ATTENTION=FAUX \ #
# $Z ne=$NLongueur \ #
# $Z fichier=$xTV/Long.4 \ #
# $Z homothetie=$Homothetie translation=$Translation \ #
# $Z | $SE -e 's/\.[0-9]*$//' \ #
# $Z > $xTV/Long.3 #
# #
# $Z $DELETE $xTV/Liste$ROUGE #
# $Z $DELETE $xTV/Liste$VERTE #
# $Z $DELETE $xTV/Liste$BLEUE #
# #
# $Z $CA $xTV/Long.3 \ #
# $Z > $xTV/Liste$ROUGE #
# $Z $CA $xTV/Long.3 \ #
# $Z > $xTV/Liste$VERTE #
# $Z $CA $xTV/Long.3 \ #
# $Z > $xTV/Liste$BLEUE #
# #
# $Z set ListeR=`$CA $xTV/Liste$ROUGE` #
# $Z set ListeV=`$CA $xTV/Liste$VERTE` #
# $Z set ListeB=`$CA $xTV/Liste$BLEUE` #
# #
# $c #define N0 (Premiere+1) #
# $c #define N (Derniere+1) #
# #
# $c int main() #
# $c { #
# $c int n; #
# $c printf("$xci/init$X #
# $c valeur=0 #
# $c standard=FAUX #
# $c R=$xiim/COLL.$Ngeo.%04d$ROUGE #
# $c $formatI\n" #
# $c ,N0-1 #
# $c ); #
# $c printf("$xci/init$X #
# $c valeur=0 #
# $c standard=FAUX #
# $c R=$xiim/COLL.$Ngeo.%04d$VERTE #
# $c $formatI\n" #
# $c ,N0-1 #
# $c ); #
# $c printf("$xci/init$X #
# $c valeur=0 #
# $c standard=FAUX #
# $c R=$xiim/COLL.$Ngeo.%04d$BLEUE #
# $c $formatI\n" #
# $c ,N0-1 #
# $c ); #
# #
# $c for (n=N0 ; n<=N ; n++) #
# $c { #
# $c printf("$DELETE $xTV/collis\n"); #
# $c printf("$DELETE $xTV/collision\n"); #
# $c printf("$DELETE $xTV/collision$COORD_X\n"); #
# $c printf("$DELETE $xTV/collision$COORD_Y\n"); #
# #
# $c printf("$CA $xTV/tra.d | #
# $c $SE -e 's/^ *//' -e 's/ */ /g' | #
# $c $AW '/traj %d=/,/traj %d=/' | #
# $c $SE -e '/^traj *[0-9][0-9]*=$/d' | #
# $c $SE -e '/^long *[^=][^=]*=$/d' | #
# $c $SE -e 's/^\\(refl\\) */\\1=/' | #
# $c $R %c$K_BLANC%c %c$K_NL%c #
# $c > $xTV/collis\n" #
# $c ,n-1,n,'"','"','"','"' #
# $c ); #
# #
# $c printf("$CA $xTV/collis | #
# $c $SE -e '/^refl=[0-9][0-9]*=$/d' | #
# $c $SE -e '/^long=[^=][^=]*=$/d' | #
# $c $NL -nrz -w$Numerotage | #
# $c $R %c$K_TAB%c %c$K_BLANC%c #
# $c > $xTV/collision\n" #
# $c ,'"','"','"','"' #
# $c ); #
# #
# $c printf("$CA $xTV/collision | #
# $c $GRE '[13579] ' | #
# $c $AW ' { print $2 } ' #
# $c > $xTV/collision$COORD_X\n" #
# $c ); #
# $c printf("$CA $xTV/collision | #
# $c $GRE '[02468] ' | #
# $c $AW ' { print $2 } ' #
# $c > $xTV/collision$COORD_Y\n" #
# $c ); #
# #
# $c printf("set Lcol=`$WC $xTV/collision`\n"); #
# $c printf("set Lcol=$Lcol[$WC1]\n"); #
# $c printf("@ Lcol = $Lcol / 2\n"); #
# $c printf("$xrv/particule.10$X #
# $c ATTENTION=FAUX #
# $c np=1 iterations=$Lcol #
# $c LISTE_X=$xTV/collision$COORD_X #
# $c LISTE_Y=$xTV/collision$COORD_Y #
# $c LISTE_Z=$Zcollis #
# $c LISTE_ROUGE=$ListeR[%d] #
# $c LISTE_VERTE=$ListeV[%d] #
# $c LISTE_BLEUE=$ListeB[%d] #
# $c isoles=FAUX #
# $c Pajuster=VRAI #
# $c AX=$HomoX BX=$TranX #
# $c AY=$HomoY BY=$TranY #
# $c rayon_de_visualisation=$Rcollis #
# $c nombreR=$FConnexion #
# $c ZOOM=$Rzoom #
# $c tri=VRAI N_au_carre=FAUX #
# $c fond=FAUX dynamique=FAUX #
# $c Lz=1000 #
# $c F=$xiim/STRU.$Ngeo.%04d #
# $c R=$xiim/COLL. #
# $c $formatI\n" #
# $c ,n-1,n-1,n-1,N0-1 #
# $c ); #
# #
# $c printf("$xci/acces$X #
# $c A=$xiim/COLL.%04d$ROUGE #
# $c convertir=VRAI #
# $c minimum=$NOIR maximum=$BLANC #
# $c interpoler=FAUX #
# $c $formatI | #
# $c $xci/somme_02$X #
# $c A1=$xiim/COLL.$Ngeo.%04d$ROUGE #
# $c standard=FAUX #
# $c R=$xiim/COLL.$Ngeo.%04d$ROUGE #
# $c $formatI\n" #
# $c ,N0-1,n-1,n #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xiim/COLL.%04d$VERTE #
# $c convertir=VRAI #
# $c minimum=$NOIR maximum=$BLANC #
# $c interpoler=FAUX #
# $c $formatI | #
# $c $xci/somme_02$X #
# $c A1=$xiim/COLL.$Ngeo.%04d$VERTE #
# $c standard=FAUX #
# $c R=$xiim/COLL.$Ngeo.%04d$VERTE #
# $c $formatI\n" #
# $c ,N0-1,n-1,n #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xiim/COLL.%04d$BLEUE #
# $c convertir=VRAI #
# $c minimum=$NOIR maximum=$BLANC #
# $c interpoler=FAUX #
# $c $formatI | #
# $c $xci/somme_02$X #
# $c A1=$xiim/COLL.$Ngeo.%04d$BLEUE #
# $c standard=FAUX #
# $c R=$xiim/COLL.$Ngeo.%04d$BLEUE #
# $c $formatI\n" #
# $c ,N0-1,n-1,n #
# $c ); #
# $c } #
# #
# $c printf("set Rnom=$xiim/COLL.$Ngeo.%04d$ROUGE\n" #
# $c ,N #
# $c ); #
# $c printf("set Rminmax=`$xci/extrema$X A=$Rnom standard=FAUX $formatI |& $CA`\n"); #
# $c printf("set Rmin=`$xcg/MIN2.01$X n1=$Rminmax[1] n2=$Rminmax[2]`\n"); #
# $c printf("set Rmax=`$xcg/MAX2.01$X n1=$Rminmax[1] n2=$Rminmax[2]`\n"); #
# #
# $c printf("set Vnom=$xiim/COLL.$Ngeo.%04d$VERTE\n" #
# $c ,N #
# $c ); #
# $c printf("set Vminmax=`$xci/extrema$X A=$Vnom standard=FAUX $formatI |& $CA`\n"); #
# $c printf("set Vmin=`$xcg/MIN2.01$X n1=$Vminmax[1] n2=$Vminmax[2]`\n"); #
# $c printf("set Vmax=`$xcg/MAX2.01$X n1=$Vminmax[1] n2=$Vminmax[2]`\n"); #
# #
# $c printf("set Bnom=$xiim/COLL.$Ngeo.%04d$BLEUE\n" #
# $c ,N #
# $c ); #
# $c printf("set Bminmax=`$xci/extrema$X A=$Bnom standard=FAUX $formatI |& $CA`\n"); #
# $c printf("set Bmin=`$xcg/MIN2.01$X n1=$Bminmax[1] n2=$Bminmax[2]`\n"); #
# $c printf("set Bmax=`$xcg/MAX2.01$X n1=$Bminmax[1] n2=$Bminmax[2]`\n"); #
# #
# $c printf("set RVBmin=`$xcg/MIN2.01$X n1=$Rmin n2=$Vmin`\n"); #
# $c printf("set RVBmin=`$xcg/MIN2.01$X n1=$RVBmin n2=$Bmin`\n"); #
# #
# $c printf("set RVBmax=`$xcg/MAX2.01$X n1=$Rmax n2=$Vmax`\n"); #
# $c printf("set RVBmax=`$xcg/MAX2.01$X n1=$RVBmax n2=$Bmax`\n"); #
# #
# $c for (n=(N0-1) ; n<=N ; n++) #
# $c { #
# $c printf("$xci/acces$X #
# $c A=$xiim/COLL.$Ngeo.%04d$ROUGE #
# $c standard=FAUX #
# $c zero=FAUX #
# $c extrema=FAUX #
# $c minimum=$RVBmin maximum=$RVBmax #
# $c $formatI | #
# $c $xci/substitue$X #
# $c substitution=L_SUBSTITUTION_ROUGE #
# $c p=$PContraste #
# $c $formatI | #
# $c $xci/cache$X #
# $c M=$xiim/STRU.$Ngeo.%04d$ROUGE #
# $c R=$xw1/xxxx.pmc/COLL.$Ngeo.%04d$ROUGE #
# $c $formatI\n" #
# $c ,n,N0-1,n #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xiim/COLL.$Ngeo.%04d$ROUGE #
# $c standard=FAUX #
# $c detruire=VRAI #
# $c $formatI\n" #
# $c ,n #
# $c ); #
# #
# $c printf("$xci/acces$X #
# $c A=$xiim/COLL.$Ngeo.%04d$VERTE #
# $c standard=FAUX #
# $c zero=FAUX #
# $c extrema=FAUX #
# $c minimum=$RVBmin maximum=$RVBmax #
# $c $formatI | #
# $c $xci/substitue$X #
# $c substitution=L_SUBSTITUTION_ROUGE #
# $c p=$PContraste #
# $c $formatI | #
# $c $xci/cache$X #
# $c M=$xiim/STRU.$Ngeo.%04d$VERTE #
# $c R=$xw1/xxxx.pmc/COLL.$Ngeo.%04d$VERTE #
# $c $formatI\n" #
# $c ,n,N0-1,n #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xiim/COLL.$Ngeo.%04d$VERTE #
# $c standard=FAUX #
# $c detruire=VRAI #
# $c $formatI\n" #
# $c ,n #
# $c ); #
# #
# $c printf("$xci/acces$X #
# $c A=$xiim/COLL.$Ngeo.%04d$BLEUE #
# $c standard=FAUX #
# $c zero=FAUX #
# $c extrema=FAUX #
# $c minimum=$RVBmin maximum=$RVBmax #
# $c $formatI | #
# $c $xci/substitue$X #
# $c substitution=L_SUBSTITUTION_ROUGE #
# $c p=$PContraste #
# $c $formatI | #
# $c $xci/cache$X #
# $c M=$xiim/STRU.$Ngeo.%04d$BLEUE #
# $c R=$xw1/xxxx.pmc/COLL.$Ngeo.%04d$BLEUE #
# $c $formatI\n" #
# $c ,n,N0-1,n #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xiim/COLL.$Ngeo.%04d$BLEUE #
# $c standard=FAUX #
# $c detruire=VRAI #
# $c $formatI\n" #
# $c ,n #
# $c ); #
# $c } #
# #
# $c printf("$CP $xw1/xxxx.pmc/COLL.$Ngeo.%04d$ROUGE #
# $c $xiird/CO.4.$Ngeo.%04d$ROUGE\n" #
# $c ,N,N-1 #
# $c ); #
# $c printf("$CP $xw1/xxxx.pmc/COLL.$Ngeo.%04d$VERTE #
# $c $xiird/CO.4.$Ngeo.%04d$VERTE\n" #
# $c ,N,N-1 #
# $c ); #
# $c printf("$CP $xw1/xxxx.pmc/COLL.$Ngeo.%04d$BLEUE #
# $c $xiird/CO.4.$Ngeo.%04d$BLEUE\n" #
# $c ,N,N-1 #
# $c ); #
# #
# $c printf("ro $xiird/CO.4.$Ngeo.%04d$ROUGE\n" #
# $c ,N-1 #
# $c ); #
# $c printf("ro $xiird/CO.4.$Ngeo.%04d$VERTE\n" #
# $c ,N-1 #
# $c ); #
# $c printf("ro $xiird/CO.4.$Ngeo.%04d$BLEUE\n" #
# $c ,N-1 #
# $c ); #
# #
# $c printf("$xcg/unite$Z $xiird/CO.4.$Ngeo.%04d$ROUGE\n" #
# $c ,N-1 #
# $c ); #
# $c printf("$xcg/unite$Z $xiird/CO.4.$Ngeo.%04d$VERTE\n" #
# $c ,N-1 #
# $c ); #
# $c printf("$xcg/unite$Z $xiird/CO.4.$Ngeo.%04d$BLEUE\n" #
# $c ,N-1 #
# $c ); #
# $c } #
# #
# $Z end #
# #
# $Z $DELETE $xTV/geometry.1$k #
# $Z $DELETE $xTV/geometry.2$k #
# $Z $DELETE $xTV/geometry #
# $Z $DELETE $xTV/struc2d$COORD_X #
# $Z $DELETE $xTV/struc2d$COORD_Y #
# $Z $DELETE $xTV/struc2d$COORD_Z #
# $Z $DELETE $xTV/tra.d #
# $Z $DELETE $xTV/Long.1 #
# $Z $DELETE $xTV/Long.2 #
# $Z $DELETE $xTV/Long.3 #
# $Z $DELETE $xTV/Long.4 #
# $Z $DELETE $xTV/Refl.1 #
# $Z $DELETE $xTV/Liste$ROUGE #
# $Z $DELETE $xTV/Liste$VERTE #
# $Z $DELETE $xTV/Liste$BLEUE #
# $Z $DELETE $xTV/Liste$ROUGE #
# $Z $DELETE $xTV/Liste$VERTE #
# $Z $DELETE $xTV/Liste$BLEUE #
# $Z $DELETE $xTV/collis #
# $Z $DELETE $xTV/collision #
# $Z $DELETE $xTV/collision$COORD_X #
# $Z $DELETE $xTV/collision$COORD_Y #
# #
# #
# Pal #
# #
# $xci/disk_video_P$Z $xw1/xxxx.pmc/COLL.0. 0001 0128 RVB \ #
# 4 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# $xci/disk_video_P$Z $xw1/xxxx.pmc/COLL.1. 0001 0128 RVB \ #
# 4 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# $xci/disk_video_P$Z $xw1/xxxx.pmc/COLL.2. 0001 0128 RVB \ #
# 4 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# $xci/disk_video_P$Z $xw1/xxxx.pmc/COLL.3. 0001 0128 RVB \ #
# 4 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
# #
# xivPdf 3 2 #
# #
# record.01$Z $xiird/CO.4.0.0127 RVB rien #
# record.01$Z $xiird/CO.4.1.0127 RVB rien #
# record.01$Z $xiird/CO.4.2.0127 RVB rien #
# record.01$Z $xiird/CO.4.3.0127 RVB rien #
# #
sequence 024124_024223
# Sequence generee par le programme '$xu/M.Plapp/abv3col.12$c' sur '$LACT29' qui est #
# identique a la sequence : #
# #
# xivPdf 4 2 / 013757_013856 #
# #
# a la permutation de '$ROUGE' et de '$BLEUE' pres. Les parametres de la simulation donnes #
# par '$xu/M.Plapp/abv3col.in' sont : #
# #
# Input(abv.c) #
# A-concentration: #
# 0.37338276 #
# B-concentration: #
# 0.560074 #
# Same-in-the-"vapor"-phase #
# 0.04507 #
# 0.0301861 #
# Noise #
# 1e-2 #
# Configuration(1=hom,2=drop,3=slab) #
# 3 #
# epsAA #
# 1 #
# epsAB #
# 0.5 #
# epsBB #
# 1 #
# Temperature #
# 0.75 #
# Quench-temperature #
# 0.75 #
# Iterations #
# 500000 #
# Waitingtime #
# 0 #
# gyes/no #
# 0 #
# gstep #
# 400 #
# fyes/no #
# 1 #
# basis-filename #
# slab #
# t3flag #
# 0 #
# imnum(hom)/iterationoffset(slab) #
# 0 #
# t^3-multiplier(hom)/outstep(slab) #
# 5000 #
# infostep #
# 1000 #
# tstepmax #
# 0.16666666 #
# randseed #
# 1 #
# #
# #
# On notera que la sequence : #
# #
# xivPdf 4 2 / 020329_020428 #
# #
# elle, n'a pas a etre recalculee car, en effet, elle correspond au cas symetrique (ou #
# les concentrations des corps 'A' et 'B' sont egales) ; donc les deux corps peuvent #
# etre permutes... #
# #
# #
# $Z Pal #
# #
# $Z $DELETE $xTV/boite$COORD_X #
# $Z $DELETE $xTV/boite$COORD_Y #
# $Z $DELETE $xTV/boite$COORD_Z #
# $Z $DELETE $xTV/boite$ROUGE #
# $Z $DELETE $xTV/boite$VERTE #
# $Z $DELETE $xTV/boite$BLEUE #
# $Z $DELETE $xTV/boite$RAYON #
# #
# $Z set points0=0 #
# $Z set pointsN=39 #
# $Z @ NBpoints = $pointsN - $points0 #
# $Z @ NBpoints = $NBpoints + 1 #
# $Z @ NBpoints = $NBpoints * 12 #
# $Z set Rpoints=$GRIS #
# $Z set Vpoints=$GRIS #
# $Z set Bpoints=$GRIS #
# $Z set rpoints=200 #
# #
# $Z alias genere 'set vD=\!:1 ; set vA=\!:2 ; set FiLe=\!:3 ; \\ #
# $Z $xci/valeurs_inte$X \\ #
# $Z premiere=$points0 derniere=$pointsN \\ #
# $Z vD=$vD vA=$vA \\ #
# $Z cubique=FAUX \\ #
# $Z >>! $FiLe ; \\ #
# $Z unset vD vA FiLe' #
# #
# $Z genere +0.25 +0.75 $xTV/boite$COORD_X #
# $Z genere +0.25 +0.25 $xTV/boite$COORD_Y #
# $Z genere -0.50 -0.50 $xTV/boite$COORD_Z #
# $Z genere $Rpoints $Rpoints $xTV/boite$ROUGE #
# $Z genere $Rpoints $Rpoints $xTV/boite$VERTE #
# $Z genere $Rpoints $Rpoints $xTV/boite$BLEUE #
# $Z genere $rpoints $rpoints $xTV/boite$RAYON #
# #
# $Z genere +0.75 +0.75 $xTV/boite$COORD_X #
# $Z genere +0.25 +0.75 $xTV/boite$COORD_Y #
# $Z genere -0.50 -0.50 $xTV/boite$COORD_Z #
# $Z genere $Rpoints $Rpoints $xTV/boite$ROUGE #
# $Z genere $Rpoints $Rpoints $xTV/boite$VERTE #
# $Z genere $Rpoints $Rpoints $xTV/boite$BLEUE #
# $Z genere $rpoints $rpoints $xTV/boite$RAYON #
# #
# $Z genere +0.75 +0.25 $xTV/boite$COORD_X #
# $Z genere +0.75 +0.75 $xTV/boite$COORD_Y #
# $Z genere -0.50 -0.50 $xTV/boite$COORD_Z #
# $Z genere $Rpoints $Rpoints $xTV/boite$ROUGE #
# $Z genere $Rpoints $Rpoints $xTV/boite$VERTE #
# $Z genere $Rpoints $Rpoints $xTV/boite$BLEUE #
# $Z genere $rpoints $rpoints $xTV/boite$RAYON #
# #
# $Z genere +0.25 +0.25 $xTV/boite$COORD_X #
# $Z genere +0.75 +0.25 $xTV/boite$COORD_Y #
# $Z genere -0.50 -0.50 $xTV/boite$COORD_Z #
# $Z genere $Rpoints $Rpoints $xTV/boite$ROUGE #
# $Z genere $Rpoints $Rpoints $xTV/boite$VERTE #
# $Z genere $Rpoints $Rpoints $xTV/boite$BLEUE #
# $Z genere $rpoints $rpoints $xTV/boite$RAYON #
# #
# $Z genere +0.25 +0.75 $xTV/boite$COORD_X #
# $Z genere +0.25 +0.25 $xTV/boite$COORD_Y #
# $Z genere +0.50 +0.50 $xTV/boite$COORD_Z #
# $Z genere $Rpoints $Rpoints $xTV/boite$ROUGE #
# $Z genere $Rpoints $Rpoints $xTV/boite$VERTE #
# $Z genere $Rpoints $Rpoints $xTV/boite$BLEUE #
# $Z genere $rpoints $rpoints $xTV/boite$RAYON #
# #
# $Z genere +0.75 +0.75 $xTV/boite$COORD_X #
# $Z genere +0.25 +0.75 $xTV/boite$COORD_Y #
# $Z genere +0.50 +0.50 $xTV/boite$COORD_Z #
# $Z genere $Rpoints $Rpoints $xTV/boite$ROUGE #
# $Z genere $Rpoints $Rpoints $xTV/boite$VERTE #
# $Z genere $Rpoints $Rpoints $xTV/boite$BLEUE #
# $Z genere $rpoints $rpoints $xTV/boite$RAYON #
# #
# $Z genere +0.75 +0.25 $xTV/boite$COORD_X #
# $Z genere +0.75 +0.75 $xTV/boite$COORD_Y #
# $Z genere +0.50 +0.50 $xTV/boite$COORD_Z #
# $Z genere $Rpoints $Rpoints $xTV/boite$ROUGE #
# $Z genere $Rpoints $Rpoints $xTV/boite$VERTE #
# $Z genere $Rpoints $Rpoints $xTV/boite$BLEUE #
# $Z genere $rpoints $rpoints $xTV/boite$RAYON #
# #
# $Z genere +0.25 +0.25 $xTV/boite$COORD_X #
# $Z genere +0.75 +0.25 $xTV/boite$COORD_Y #
# $Z genere +0.50 +0.50 $xTV/boite$COORD_Z #
# $Z genere $Rpoints $Rpoints $xTV/boite$ROUGE #
# $Z genere $Rpoints $Rpoints $xTV/boite$VERTE #
# $Z genere $Rpoints $Rpoints $xTV/boite$BLEUE #
# $Z genere $rpoints $rpoints $xTV/boite$RAYON #
# #
# $Z genere +0.25 +0.25 $xTV/boite$COORD_X #
# $Z genere +0.25 +0.25 $xTV/boite$COORD_Y #
# $Z genere -0.50 +0.50 $xTV/boite$COORD_Z #
# $Z genere $Rpoints $Rpoints $xTV/boite$ROUGE #
# $Z genere $Rpoints $Rpoints $xTV/boite$VERTE #
# $Z genere $Rpoints $Rpoints $xTV/boite$BLEUE #
# $Z genere $rpoints $rpoints $xTV/boite$RAYON #
# #
# $Z genere +0.75 +0.75 $xTV/boite$COORD_X #
# $Z genere +0.25 +0.25 $xTV/boite$COORD_Y #
# $Z genere -0.50 +0.50 $xTV/boite$COORD_Z #
# $Z genere $Rpoints $Rpoints $xTV/boite$ROUGE #
# $Z genere $Rpoints $Rpoints $xTV/boite$VERTE #
# $Z genere $Rpoints $Rpoints $xTV/boite$BLEUE #
# $Z genere $rpoints $rpoints $xTV/boite$RAYON #
# #
# $Z genere +0.75 +0.75 $xTV/boite$COORD_X #
# $Z genere +0.75 +0.75 $xTV/boite$COORD_Y #
# $Z genere -0.50 +0.50 $xTV/boite$COORD_Z #
# $Z genere $Rpoints $Rpoints $xTV/boite$ROUGE #
# $Z genere $Rpoints $Rpoints $xTV/boite$VERTE #
# $Z genere $Rpoints $Rpoints $xTV/boite$BLEUE #
# $Z genere $rpoints $rpoints $xTV/boite$RAYON #
# #
# $Z genere +0.25 +0.25 $xTV/boite$COORD_X #
# $Z genere +0.75 +0.75 $xTV/boite$COORD_Y #
# $Z genere -0.50 +0.50 $xTV/boite$COORD_Z #
# $Z genere $Rpoints $Rpoints $xTV/boite$ROUGE #
# $Z genere $Rpoints $Rpoints $xTV/boite$VERTE #
# $Z genere $Rpoints $Rpoints $xTV/boite$BLEUE #
# $Z genere $rpoints $rpoints $xTV/boite$RAYON #
# #
# $Z $DELETE $xTV/slab_boite$COORD_X #
# $Z $DELETE $xTV/slab_boite$COORD_Y #
# $Z $DELETE $xTV/slab_boite$COORD_Z #
# $Z $DELETE $xTV/slab_boite$ROUGE #
# $Z $DELETE $xTV/slab_boite$VERTE #
# $Z $DELETE $xTV/slab_boite$BLEUE #
# $Z $DELETE $xTV/slab_boite$RAYON #
# #
# $Z $DELETE $xTV/slab$COORD_X #
# $Z $DELETE $xTV/slab$COORD_Y #
# $Z $DELETE $xTV/slab$COORD_Z #
# $Z $DELETE $xTV/slab$ROUGE #
# $Z $DELETE $xTV/slab$VERTE #
# $Z $DELETE $xTV/slab$BLEUE #
# $Z $DELETE $xTV/slab$RAYON #
# #
# $Z SET Premiere=1 #
# $Z SET Derniere=100 #
# #
# $Z @ Nimages = $Derniere - $Premiere #
# $Z @ Nimages = $Nimages + 1 #
# #
# $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS #
# #
# $Z $CA $xiim/slab.XYZ \ #
# $Z | $AW ' { print $1 } ' \ #
# $Z > $xTV/slab$COORD_X #
# $Z $CA $xiim/slab.XYZ \ #
# $Z | $AW ' { print $2 } ' \ #
# $Z > $xTV/slab$COORD_Y #
# $Z $CA $xiim/slab.XYZ \ #
# $Z | $AW ' { print $3 } ' \ #
# $Z > $xTV/slab$COORD_Z #
# #
# $Z $CA $xTV/boite$COORD_X \ #
# $Z $xTV/slab$COORD_X \ #
# $Z > $xTV/slab_boite$COORD_X #
# $Z $CA $xTV/boite$COORD_Y \ #
# $Z $xTV/slab$COORD_Y \ #
# $Z > $xTV/slab_boite$COORD_Y #
# $Z $CA $xTV/boite$COORD_Z \ #
# $Z $xTV/slab$COORD_Z \ #
# $Z > $xTV/slab_boite$COORD_Z #
# #
# $c #define N0 Premiere #
# $c #define N Derniere #
# #
# $c int main() #
# $c { #
# $c int n; #
# #
# $c for (n=N0 ; n<=N ; n++) #
# $c { #
# $c printf("set NSpoints=`$WC $xiim/slab.XYZ`\n"); #
# $c printf("set NSpoints=$NSpoints[$WC1]\n"); #
# #
# $c printf("@ Npoints = $NBpoints + $NSpoints\n"); #
# #
# $c printf("$DELETE $xTV/slab$ROUGE\n"); #
# $c printf("$DELETE $xTV/slab$VERTE\n"); #
# $c printf("$DELETE $xTV/slab$BLEUE\n"); #
# $c printf("$DELETE $xTV/slab$RAYON\n"); #
# #
# $c printf("$CA $xiim/slab.%04d #
# $c | $AW ' { print $2 } ' #
# $c > $xTV/slab$ROUGE\n" #
# $c ,n #
# $c ); #
# $c printf("$xci/valeurs_inte$X #
# $c premiere=1 derniere=$NSpoints #
# $c vD=$NOIR vA=$NOIR #
# $c cubique=FAUX #
# $c > $xTV/slab$VERTE\n" #
# $c ,n #
# $c ); #
# $c printf("$CA $xiim/slab.%04d #
# $c | $AW ' { print $1 } ' #
# $c > $xTV/slab$BLEUE\n" #
# $c ,n #
# $c ); #
# $c printf("$CA $xiim/slab.%04d #
# $c | $AW ' { print $3 } ' #
# $c > $xTV/slab$RAYON\n" #
# $c ,n #
# $c ); #
# #
# $c printf("$DELETE $xTV/slab_boite$ROUGE\n"); #
# $c printf("$DELETE $xTV/slab_boite$VERTE\n"); #
# $c printf("$DELETE $xTV/slab_boite$BLEUE\n"); #
# $c printf("$DELETE $xTV/slab_boite$RAYON\n"); #
# #
# $c printf("$CA $xTV/boite$ROUGE #
# $c $xTV/slab$ROUGE #
# $c > $xTV/slab_boite$ROUGE\n" #
# $c ); #
# $c printf("$CA $xTV/boite$VERTE #
# $c $xTV/slab$VERTE #
# $c > $xTV/slab_boite$VERTE\n" #
# $c ); #
# $c printf("$CA $xTV/boite$BLEUE #
# $c $xTV/slab$BLEUE #
# $c > $xTV/slab_boite$BLEUE\n" #
# $c ); #
# $c printf("$CA $xTV/boite$RAYON #
# $c $xTV/slab$RAYON #
# $c > $xTV/slab_boite$RAYON\n" #
# $c ); #
# #
# $c printf("$xrv/particule.10$X #
# $c np=1 #
# $c iterations=$Npoints #
# $c N2=FAUX #
# $c BZ=0.5 #
# $c LISTE_X=$xTV/slab_boite$COORD_X #
# $c LISTE_Y=$xTV/slab_boite$COORD_Y #
# $c LISTE_Z=$xTV/slab_boite$COORD_Z #
# $c ARVB=0.5 BRVB=0.5 #
# $c LISTE_ROUGE=$xTV/slab_boite$ROUGE #
# $c LISTE_VERTE=$xTV/slab_boite$VERTE #
# $c LISTE_BLEUE=$xTV/slab_boite$BLEUE #
# $c Ar=0.00010 #
# $c LISTE_RAYON=$xTV/slab_boite$RAYON #
# $c Lz=1000 #
# $c ZOOM=0.8 #
# $c ROTATION_OX=-1.2 #
# $c ROTATION_OZ=+0.4 #
# $c R=$xTV/slab. #
# $c $formatI\n" #
# $c ); #
# #
# $c printf("$MV #
# $c $xTV/slab.0001$ROUGE #
# $c $xw1/xxxx.pmc/slab.3.%04d$ROUGE\n" #
# $c ,n #
# $c ); #
# $c printf("$MV #
# $c $xTV/slab.0001$VERTE #
# $c $xw1/xxxx.pmc/slab.3.%04d$VERTE\n" #
# $c ,n #
# $c ); #
# $c printf("$MV #
# $c $xTV/slab.0001$BLEUE #
# $c $xw1/xxxx.pmc/slab.3.%04d$BLEUE\n" #
# $c ,n #
# $c ); #
# $c } #
# $c } #
# #
# $Z $DELETE $xTV/slab$COORD_X #
# $Z $DELETE $xTV/slab$COORD_Y #
# $Z $DELETE $xTV/slab$COORD_Z #
# $Z $DELETE $xTV/slab$ROUGE #
# $Z $DELETE $xTV/slab$VERTE #
# $Z $DELETE $xTV/slab$BLEUE #
# $Z $DELETE $xTV/slab$RAYON #
# #
# $Z $DELETE $xTV/boite$COORD_X #
# $Z $DELETE $xTV/boite$COORD_Y #
# $Z $DELETE $xTV/boite$COORD_Z #
# $Z $DELETE $xTV/boite$ROUGE #
# $Z $DELETE $xTV/boite$VERTE #
# $Z $DELETE $xTV/boite$BLEUE #
# $Z $DELETE $xTV/boite$RAYON #
# #
# $Z $DELETE $xTV/slab_boite$COORD_X #
# $Z $DELETE $xTV/slab_boite$COORD_Y #
# $Z $DELETE $xTV/slab_boite$COORD_Z #
# $Z $DELETE $xTV/slab_boite$ROUGE #
# $Z $DELETE $xTV/slab_boite$VERTE #
# $Z $DELETE $xTV/slab_boite$BLEUE #
# $Z $DELETE $xTV/slab_boite$RAYON #
# #
# #
# Pal #
# #
# $xci/disk_video_P$Z $xw1/xxxx.pmc/slab.3. 001 100 RVB \ #
# 4 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
sequence 024224_024351
sequence 024352_024479
sequence 024480_024607
sequence 024608_024735
sequence 024736_024863
sequence 024864_024986
sequence 024987_025114
# Sequence generee via '$xu/SB.Santra/collision.21$f' par : #
# #
# #
# $Z Pal #
# #
# $Z SET Premiere=1 #
# $Z SET Derniere=127 #
# #
# $Z set FConnexion=2 #
# $Z set CRstruc2d=$GRIS_8 #
# $Z set CVstruc2d=$GRIS_6 #
# $Z set CBstruc2d=$GRIS_2 #
# $Z set Rstruc2d=0.0075 #
# $Z set Zstruc2d=0.0 #
# $Z set Rcollis=0.0075 #
# $Z set Zcollis=0.0 #
# $Z set Rzoom=1.2 #
# #
# #
# $Z set Numerotage=4 #
# #
# #
# $Z $DELETE $xTV/geometry.1$k #
# $Z $DELETE $xTV/geometry.2$k #
# #
# $Z echo 'BEGIN {' >>! $xTV/geometry.1$k #
# $Z echo ' numero = 0;' >>! $xTV/geometry.1$k #
# $Z echo ' }' >>! $xTV/geometry.1$k #
# $Z echo '{' >>! $xTV/geometry.1$k #
# $Z echo 'numero++;' >>! $xTV/geometry.1$k #
# $Z echo 'ligne[numero] = $0;' >>! $xTV/geometry.1$k #
# $Z echo '}' >>! $xTV/geometry.1$k #
# $Z echo 'END {' >>! $xTV/geometry.1$k #
# $Z echo ' for (n=1 ; n<=numero ; n++)' >>! $xTV/geometry.1$k #
# $Z echo ' {' >>! $xTV/geometry.1$k #
# $Z echo ' printf("%s",ligne[n]);' >>! $xTV/geometry.1$k #
# $Z echo ' if ((n%2) == 0)' >>! $xTV/geometry.1$k #
# $Z echo ' {' >>! $xTV/geometry.1$k #
# $Z echo ' printf("\\n");' >>! $xTV/geometry.1$k #
# $Z echo ' }' >>! $xTV/geometry.1$k #
# $Z echo ' else' >>! $xTV/geometry.1$k #
# $Z echo ' {' >>! $xTV/geometry.1$k #
# $Z echo ' printf(" ");' >>! $xTV/geometry.1$k #
# $Z echo ' }' >>! $xTV/geometry.1$k #
# $Z echo ' }' >>! $xTV/geometry.1$k #
# $Z echo ' }' >>! $xTV/geometry.1$k #
# #
# $Z echo 'BEGIN {' >>! $xTV/geometry.2$k #
# $Z echo ' numero = 0;' >>! $xTV/geometry.2$k #
# $Z echo ' }' >>! $xTV/geometry.2$k #
# $Z echo '{' >>! $xTV/geometry.2$k #
# $Z echo 'numero++;' >>! $xTV/geometry.2$k #
# $Z echo 'ligne[numero] = $0;' >>! $xTV/geometry.2$k #
# $Z echo '}' >>! $xTV/geometry.2$k #
# $Z echo 'END {' >>! $xTV/geometry.2$k #
# $Z echo ' for (n=1 ; n<=numero ; n++)' >>! $xTV/geometry.2$k #
# $Z echo ' {' >>! $xTV/geometry.2$k #
# $Z echo ' printf("%s\\n",ligne[n]);' >>! $xTV/geometry.2$k #
# $Z echo ' if ((n > 1) && (n<numero))' >>! $xTV/geometry.2$k #
# $Z echo ' {' >>! $xTV/geometry.2$k #
# $Z echo ' printf("%s\\n",ligne[n]);' >>! $xTV/geometry.2$k #
# $Z echo ' }' >>! $xTV/geometry.2$k #
# $Z echo ' else' >>! $xTV/geometry.2$k #
# $Z echo ' {' >>! $xTV/geometry.2$k #
# $Z echo ' }' >>! $xTV/geometry.2$k #
# $Z echo ' }' >>! $xTV/geometry.2$k #
# $Z echo ' }' >>! $xTV/geometry.2$k #
# #
# $Z set Ra_prioriB=$GRIS_0 #
# $Z set Ra_prioriG=$GRIS_8 #
# $Z set Va_prioriB=$GRIS_0 #
# $Z set Va_prioriG=$GRIS_8 #
# $Z set Ba_prioriB=$GRIS_0 #
# $Z set Ba_prioriG=$GRIS_8 #
# #
# $Z set Lgeometry={0,1,2,3} #
# #
# $Z foreach Ngeo ($Lgeometry) #
# #
# $Z setenv Fgeometry $xu/SB.Santra/pore$Ngeo.d #
# #
# $Z $DELETE $xTV/geometry #
# #
# $Z $CA $Fgeometry \ #
# $Z | $TAI +2 \ #
# $Z | $AW -f $xTV/geometry.1$k \ #
# $Z | $AW -f $xTV/geometry.2$k \ #
# $Z | $R "$K_BLANC" "$K_NL" \ #
# $Z > $xTV/geometry #
# #
# $Z set Lstruc2d=`$WC $xTV/geometry` #
# $Z set Lstruc2d=$Lstruc2d[$WC1] #
# $Z @ Lstruc2d = $Lstruc2d / 2 #
# #
# $Z $DELETE $xTV/struc2d$COORD_X #
# $Z $DELETE $xTV/struc2d$COORD_Y #
# $Z $DELETE $xTV/struc2d$COORD_Z #
# #
# $Z $CA $xTV/geometry \ #
# $Z | $NL -nrz -w$Numerotage \ #
# $Z | $R "$K_TAB" "$K_BLANC" \ #
# $Z | $GRE "[13579] " \ #
# $Z | $AW ' { print $2 } ' \ #
# $Z > $xTV/struc2d$COORD_X #
# $Z $CA $xTV/geometry \ #
# $Z | $NL -nrz -w$Numerotage \ #
# $Z | $R "$K_TAB" "$K_BLANC" \ #
# $Z | $GRE "[02468] " \ #
# $Z | $AW ' { print $2 } ' \ #
# $Z > $xTV/struc2d$COORD_Y #
# $Z $xci/valeurs_inte$X p=1 d=$Lstruc2d vD=$Zstruc2d vA=$Zstruc2d \ #
# $Z > $xTV/struc2d$COORD_Z #
# #
# $Z set FichierX="fichier=$xTV/struc2d$COORD_X" #
# $Z set FichierY="fichier=$xTV/struc2d$COORD_Y" #
# $Z set FichierXY="CAL1=FAUX ne=$Lstruc2d" #
# #
# $Z set ScaleX=`$xrv/extrema.01$X $FichierXY $FichierX` #
# $Z set HomoX=`echo "$ScaleX" | $SE -e "s/.*facteur d'homothetie=\([^ ][^ ]*\).*/\1/"` #
# #
# $Z set ScaleY=`$xrv/extrema.01$X $FichierXY $FichierY` #
# $Z set HomoY=`echo "$ScaleY" | $SE -e "s/.*facteur d'homothetie=\([^ ][^ ]*\).*/\1/"` #
# #
# $Z set HomoXYZ=`$xcg/MIN2.01$X n1=$HomoX n2=$HomoY` #
# $Z set Minimum=0 #
# $Z set Maximum=1 #
# $Z set Milieu=`$xcg/SOUS.01$X n1=$Maximum n2=$Minimum` #
# $Z set Milieu=`$xcg/MOIT.01$X n=$Milieu` #
# $Z set Milieu=`echo $Milieu | $SE -e "s/^.//"` #
# #
# $Z if ("$HomoX" != "$HomoXYZ") then #
# $Z set HomoX1=`$xcg/DIVZ.01$X n1=$HomoXYZ n2=$HomoX` #
# $Z set MinimumX=`$xcg/AXPB.01$X a=-$Milieu x=$HomoX1 b=$Milieu` #
# $Z set MaximumX=`$xcg/AXPB.01$X a=+$Milieu x=$HomoX1 b=$Milieu` #
# #
# $Z set MinimumY=$Minimum #
# $Z set MaximumY=$Maximum #
# $Z else #
# $Z set MinimumX=$Minimum #
# $Z set MaximumX=$Maximum #
# #
# $Z set HomoY1=`$xcg/DIVZ.01$X n1=$HomoXYZ n2=$HomoY` #
# $Z set MinimumY=`$xcg/AXPB.01$X a=-$Milieu x=$HomoY1 b=$Milieu` #
# $Z set MaximumY=`$xcg/AXPB.01$X a=+$Milieu x=$HomoY1 b=$Milieu` #
# $Z endif #
# #
# $Z set ScaleX=`$xrv/extrema.01$X $FichierXY $FichierX m=$MinimumX M=$MaximumX` #
# $Z set HomoX=`echo "$ScaleX" | $SE -e "s/.*facteur d'homothetie=\([^ ][^ ]*\).*/\1/"` #
# $Z set TranX=`echo "$ScaleX" | $SE -e "s/.*translation.*=\([^ ][^ ]*\).*/\1/"` #
# #
# $Z set ScaleY=`$xrv/extrema.01$X $FichierXY $FichierY m=$MinimumY M=$MaximumY` #
# $Z set HomoY=`echo "$ScaleY" | $SE -e "s/.*facteur d'homothetie=\([^ ][^ ]*\).*/\1/"` #
# $Z set TranY=`echo "$ScaleY" | $SE -e "s/.*translation.*=\([^ ][^ ]*\).*/\1/"` #
# #
# $Z $xrv/particule.10$X \ #
# $Z ATTENTION=FAUX \ #
# $Z np=1 iterations=$Lstruc2d \ #
# $Z LISTE_X=$xTV/struc2d$COORD_X \ #
# $Z LISTE_Y=$xTV/struc2d$COORD_Y \ #
# $Z LISTE_Z=$xTV/struc2d$COORD_Z \ #
# $Z LISTE_ROUGE=$CRstruc2d \ #
# $Z LISTE_VERTE=$CVstruc2d \ #
# $Z LISTE_BLEUE=$CBstruc2d \ #
# $Z isoles=FAUX Pajuster=VRAI \ #
# $Z AX=$HomoX BX=$TranX \ #
# $Z AY=$HomoY BY=$TranY \ #
# $Z rayon_de_visualisation=$Rstruc2d \ #
# $Z nombreR=$FConnexion \ #
# $Z ZOOM=$Rzoom \ #
# $Z tri=VRAI N_au_carre=FAUX \ #
# $Z Lz=1000 \ #
# $Z R=$xiim/STRU.$Ngeo. \ #
# $Z $formatI #
# #
# $Z PushdC $xu/SB.Santra #
# $Z $DELETE $xTV/tra.d #
# $Z $xu/SB.Santra/$aPout #
# $Z PopdC #
# #
# $Z $DELETE $xTV/Liste$ROUGE #
# $Z $DELETE $xTV/Liste$VERTE #
# $Z $DELETE $xTV/Liste$BLEUE #
# #
# $Z set Angle=`$xcg/MUL2.01$X n1=1.0 n2=$dpi` #
# $Z $xci/valeurs_trig$X premiere=$Premiere derniere=$Derniere \ #
# $Z aD=0 aA=$Angle \ #
# $Z alpha=0 beta=$Ra_prioriB gamma=$Ra_prioriG \ #
# $Z entiers=VRAI \ #
# $Z > $xTV/Liste$ROUGE #
# $Z set Angle=`$xcg/MUL2.01$X n1=2.0 n2=$dpi` #
# $Z $xci/valeurs_trig$X premiere=$Premiere derniere=$Derniere \ #
# $Z aD=0 aA=$Angle \ #
# $Z alpha=0 beta=$Va_prioriB gamma=$Va_prioriG \ #
# $Z entiers=VRAI \ #
# $Z > $xTV/Liste$VERTE #
# $Z set Angle=`$xcg/MUL2.01$X n1=3.0 n2=$dpi` #
# $Z $xci/valeurs_trig$X premiere=$Premiere derniere=$Derniere \ #
# $Z aD=0 aA=$Angle \ #
# $Z alpha=0 beta=$Ba_prioriB gamma=$Ba_prioriG \ #
# $Z entiers=VRAI \ #
# $Z > $xTV/Liste$BLEUE #
# #
# $Z set Message="x=0.1 y=0.1 T=3 anti_aliasing=VRAI" #
# #
# $Z set ListeR=`$CA $xTV/Liste$ROUGE` #
# $Z set ListeV=`$CA $xTV/Liste$VERTE` #
# $Z set ListeB=`$CA $xTV/Liste$BLEUE` #
# #
# $Z $CP $xiim/STRU.$Ngeo.0001$ROUGE $xw1/xxxx.pmc/COLL.$Ngeo.0001$ROUGE #
# $Z $CP $xiim/STRU.$Ngeo.0001$VERTE $xw1/xxxx.pmc/COLL.$Ngeo.0001$VERTE #
# $Z $CP $xiim/STRU.$Ngeo.0001$BLEUE $xw1/xxxx.pmc/COLL.$Ngeo.0001$BLEUE #
# #
# $c #define N0 (Premiere+1) #
# $c #define N (Derniere+1) #
# #
# $c int main() #
# $c { #
# $c int n; #
# #
# $c for (n=N0 ; n<=N ; n++) #
# $c { #
# $c printf("$DELETE $xTV/collis\n"); #
# $c printf("$DELETE $xTV/collision\n"); #
# $c printf("$DELETE $xTV/collision$COORD_X\n"); #
# $c printf("$DELETE $xTV/collision$COORD_Y\n"); #
# #
# $c printf("$CA $xTV/tra.d | #
# $c $SE -e 's/^ *//' -e 's/ */ /g' | #
# $c $AW '/traj %d=/,/traj %d=/' | #
# $c $SE -e '/^traj *[0-9][0-9]*=$/d' | #
# $c $SE -e '/^long *[^=][^=]*=$/d' | #
# $c $SE -e 's/^\\(refl\\) */\\1=/' | #
# $c $R %c$K_BLANC%c %c$K_NL%c #
# $c > $xTV/collis\n" #
# $c ,n-1,n,'"','"','"','"' #
# $c ); #
# #
# $c printf("set Nre=`$GRE '^refl=' $xTV/collis | $SE -e 's/^refl=//' -e 's/=$//'`\n"); #
# $c printf("set Nre=`echo '0000'$Nre | $SE -e 's/^0*\\(....\\)$/\\1/'`\n"); #
# #
# $c printf("$CA $xTV/collis | #
# $c $SE -e '/^refl=[0-9][0-9]*=$/d' | #
# $c $SE -e '/^long=[^=][^=]*=$/d' | #
# $c $NL -nrz -w$Numerotage | #
# $c $R %c$K_TAB%c %c$K_BLANC%c #
# $c > $xTV/collision\n" #
# $c ,'"','"','"','"' #
# $c ); #
# #
# $c printf("$CA $xTV/collision | #
# $c $GRE '[13579] ' | #
# $c $AW ' { print $2 } ' #
# $c > $xTV/collision$COORD_X\n" #
# $c ); #
# $c printf("$CA $xTV/collision | #
# $c $GRE '[02468] ' | #
# $c $AW ' { print $2 } ' #
# $c > $xTV/collision$COORD_Y\n" #
# $c ); #
# #
# $c printf("set Lcol=`$WC $xTV/collision`\n"); #
# $c printf("set Lcol=$Lcol[$WC1]\n"); #
# $c printf("@ Lcol = $Lcol / 2\n"); #
# $c printf("$xrv/particule.10$X #
# $c ATTENTION=FAUX #
# $c np=1 iterations=$Lcol #
# $c LISTE_X=$xTV/collision$COORD_X #
# $c LISTE_Y=$xTV/collision$COORD_Y #
# $c LISTE_Z=$Zcollis #
# $c LISTE_ROUGE=$ListeR[%d] #
# $c LISTE_VERTE=$ListeV[%d] #
# $c LISTE_BLEUE=$ListeB[%d] #
# $c isoles=FAUX #
# $c Pajuster=VRAI #
# $c AX=$HomoX BX=$TranX #
# $c AY=$HomoY BY=$TranY #
# $c rayon_de_visualisation=$Rcollis #
# $c nombreR=$FConnexion #
# $c ZOOM=$Rzoom #
# $c tri=VRAI N_au_carre=FAUX #
# $c fond=VRAI dynamique=FAUX #
# $c F=$xiim/STRU.$Ngeo.%04d #
# $c Lz=1000 #
# $c R=$xiim/COLL. #
# $c $formatI\n" #
# $c ,n-1,n-1,n-1,N0-1 #
# $c ); #
# #
# $c printf("$xci/message$X #
# $c A=$xiim/COLL.%04d$ROUGE #
# $c message=$Nre #
# $c $Message #
# $c R=$xw1/xxxx.pmc/COLL.$Ngeo.%04d$ROUGE #
# $c $formatI\n" #
# $c ,N0-1,n #
# $c ); #
# $c printf("$xci/message$X #
# $c A=$xiim/COLL.%04d$VERTE #
# $c message=$Nre #
# $c $Message #
# $c R=$xw1/xxxx.pmc/COLL.$Ngeo.%04d$VERTE #
# $c $formatI\n" #
# $c ,N0-1,n #
# $c ); #
# $c printf("$xci/message$X #
# $c A=$xiim/COLL.%04d$BLEUE #
# $c message=$Nre #
# $c $Message #
# $c R=$xw1/xxxx.pmc/COLL.$Ngeo.%04d$BLEUE #
# $c $formatI\n" #
# $c ,N0-1,n #
# $c ); #
# $c } #
# $c } #
# #
# $Z end #
# $Z $DELETE $xTV/geometry.1$k #
# $Z $DELETE $xTV/geometry.2$k #
# $Z $DELETE $xTV/geometry #
# $Z $DELETE $xTV/struc2d$COORD_X #
# $Z $DELETE $xTV/struc2d$COORD_Y #
# $Z $DELETE $xTV/struc2d$COORD_Z #
# $Z $DELETE $xTV/tra.d #
# $Z $DELETE $xTV/Liste$ROUGE #
# $Z $DELETE $xTV/Liste$VERTE #
# $Z $DELETE $xTV/Liste$BLEUE #
# $Z $DELETE $xTV/collis #
# $Z $DELETE $xTV/collision #
# $Z $DELETE $xTV/collision$COORD_X #
# $Z $DELETE $xTV/collision$COORD_Y #
# #
# #
# Pal #
# #
# $xci/disk_video_P$Z $xw1/xxxx.pmc/COLL.0. 0001 0128 RVB \ #
# 4 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# $xci/disk_video_P$Z $xw1/xxxx.pmc/COLL.1. 0001 0128 RVB \ #
# 4 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# $xci/disk_video_P$Z $xw1/xxxx.pmc/COLL.2. 0001 0128 RVB \ #
# 4 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# $xci/disk_video_P$Z $xw1/xxxx.pmc/COLL.3. 0001 0128 RVB \ #
# 4 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
# ATTENTION, l'enregistrement a ete interrompu apres celui de '$xw1/xxxx.pmc/COLL.0.' et #
# de '$xw1/xxxx.pmc/COLL.1.'. En effet, j'ai alors decouvert le 19971126170000 que les #
# programmes '$xu/SB.Santra/collision.01$f' et '$xu/SB.Santra/collision.1?$f' ne donnaient #
# pas le dernier segment (celui de la sortie de la boite) de chaque trajectoire. J'ai reussi #
# a corriger cela a partir du programme '$xu/SB.Santra/collision.12$f'. D'ou ceci... #
# #
# ATTENTION, l'enregistrement de '$xw1/xxxx.pmc/COLL.3.' a du etre recommence a cause d'un #
# probleme d'enregistrement... #
sequence 025115_025243
sequence 025244_025370
sequence 025371_025597
# Sequence generee via '$xu/SB.Santra/collision.31$f' par : #
# #
# #
# $Z Pal #
# #
# $Z SET Premiere=1 #
# $Z SET Derniere=127 #
# #
# $Z set FConnexion=2 #
# $Z set CRstruc2d=$GRIS_8 #
# $Z set CVstruc2d=$GRIS_6 #
# $Z set CBstruc2d=$GRIS_2 #
# $Z set Rstruc2d=0.0150 #
# $Z set Zstruc2d=0.0 #
# $Z set Rcollis=0.0150 #
# $Z set Zcollis=0.0 #
# $Z set Rzoom=1.2 #
# #
# #
# $Z set Numerotage=4 #
# #
# #
# $Z $DELETE $xTV/geometry.1$k #
# $Z $DELETE $xTV/geometry.2$k #
# #
# $Z echo 'BEGIN {' >>! $xTV/geometry.1$k #
# $Z echo ' numero = 0;' >>! $xTV/geometry.1$k #
# $Z echo ' }' >>! $xTV/geometry.1$k #
# $Z echo '{' >>! $xTV/geometry.1$k #
# $Z echo 'numero++;' >>! $xTV/geometry.1$k #
# $Z echo 'ligne[numero] = $0;' >>! $xTV/geometry.1$k #
# $Z echo '}' >>! $xTV/geometry.1$k #
# $Z echo 'END {' >>! $xTV/geometry.1$k #
# $Z echo ' for (n=1 ; n<=numero ; n++)' >>! $xTV/geometry.1$k #
# $Z echo ' {' >>! $xTV/geometry.1$k #
# $Z echo ' printf("%s",ligne[n]);' >>! $xTV/geometry.1$k #
# $Z echo ' if ((n%2) == 0)' >>! $xTV/geometry.1$k #
# $Z echo ' {' >>! $xTV/geometry.1$k #
# $Z echo ' printf("\\n");' >>! $xTV/geometry.1$k #
# $Z echo ' }' >>! $xTV/geometry.1$k #
# $Z echo ' else' >>! $xTV/geometry.1$k #
# $Z echo ' {' >>! $xTV/geometry.1$k #
# $Z echo ' printf(" ");' >>! $xTV/geometry.1$k #
# $Z echo ' }' >>! $xTV/geometry.1$k #
# $Z echo ' }' >>! $xTV/geometry.1$k #
# $Z echo ' }' >>! $xTV/geometry.1$k #
# #
# $Z echo 'BEGIN {' >>! $xTV/geometry.2$k #
# $Z echo ' numero = 0;' >>! $xTV/geometry.2$k #
# $Z echo ' }' >>! $xTV/geometry.2$k #
# $Z echo '{' >>! $xTV/geometry.2$k #
# $Z echo 'numero++;' >>! $xTV/geometry.2$k #
# $Z echo 'ligne[numero] = $0;' >>! $xTV/geometry.2$k #
# $Z echo '}' >>! $xTV/geometry.2$k #
# $Z echo 'END {' >>! $xTV/geometry.2$k #
# $Z echo ' for (n=1 ; n<=numero ; n++)' >>! $xTV/geometry.2$k #
# $Z echo ' {' >>! $xTV/geometry.2$k #
# $Z echo ' printf("%s\\n",ligne[n]);' >>! $xTV/geometry.2$k #
# $Z echo ' if ((n > 1) && (n<numero))' >>! $xTV/geometry.2$k #
# $Z echo ' {' >>! $xTV/geometry.2$k #
# $Z echo ' printf("%s\\n",ligne[n]);' >>! $xTV/geometry.2$k #
# $Z echo ' }' >>! $xTV/geometry.2$k #
# $Z echo ' else' >>! $xTV/geometry.2$k #
# $Z echo ' {' >>! $xTV/geometry.2$k #
# $Z echo ' }' >>! $xTV/geometry.2$k #
# $Z echo ' }' >>! $xTV/geometry.2$k #
# $Z echo ' }' >>! $xTV/geometry.2$k #
# #
# $Z set CRa_priori=$GRIS_8 #
# $Z set CVa_priori=$GRIS_8 #
# $Z set CBa_priori=$GRIS_8 #
# #
# $Z set Lgeometry={0,1,2,3} #
# #
# $Z foreach Ngeo ($Lgeometry) #
# #
# $Z setenv Fgeometry $xu/SB.Santra/pore$Ngeo.d #
# #
# $Z $DELETE $xTV/geometry #
# #
# $Z $CA $Fgeometry \ #
# $Z | $TAI +2 \ #
# $Z | $AW -f $xTV/geometry.1$k \ #
# $Z | $AW -f $xTV/geometry.2$k \ #
# $Z | $R "$K_BLANC" "$K_NL" \ #
# $Z > $xTV/geometry #
# #
# $Z set Lstruc2d=`$WC $xTV/geometry` #
# $Z set Lstruc2d=$Lstruc2d[$WC1] #
# $Z @ Lstruc2d = $Lstruc2d / 2 #
# #
# $Z $DELETE $xTV/struc2d$COORD_X #
# $Z $DELETE $xTV/struc2d$COORD_Y #
# $Z $DELETE $xTV/struc2d$COORD_Z #
# #
# $Z $CA $xTV/geometry \ #
# $Z | $NL -nrz -w$Numerotage \ #
# $Z | $R "$K_TAB" "$K_BLANC" \ #
# $Z | $GRE "[13579] " \ #
# $Z | $AW ' { print $2 } ' \ #
# $Z > $xTV/struc2d$COORD_X #
# $Z $CA $xTV/geometry \ #
# $Z | $NL -nrz -w$Numerotage \ #
# $Z | $R "$K_TAB" "$K_BLANC" \ #
# $Z | $GRE "[02468] " \ #
# $Z | $AW ' { print $2 } ' \ #
# $Z > $xTV/struc2d$COORD_Y #
# $Z $xci/valeurs_inte$X p=1 d=$Lstruc2d vD=$Zstruc2d vA=$Zstruc2d \ #
# $Z > $xTV/struc2d$COORD_Z #
# #
# $Z set FichierX="fichier=$xTV/struc2d$COORD_X" #
# $Z set FichierY="fichier=$xTV/struc2d$COORD_Y" #
# $Z set FichierXY="CAL1=FAUX ne=$Lstruc2d" #
# #
# $Z set ScaleX=`$xrv/extrema.01$X $FichierXY $FichierX` #
# $Z set HomoX=`echo "$ScaleX" | $SE -e "s/.*facteur d'homothetie=\([^ ][^ ]*\).*/\1/"` #
# #
# $Z set ScaleY=`$xrv/extrema.01$X $FichierXY $FichierY` #
# $Z set HomoY=`echo "$ScaleY" | $SE -e "s/.*facteur d'homothetie=\([^ ][^ ]*\).*/\1/"` #
# #
# $Z set HomoXYZ=`$xcg/MIN2.01$X n1=$HomoX n2=$HomoY` #
# $Z set Minimum=0 #
# $Z set Maximum=1 #
# $Z set Milieu=`$xcg/SOUS.01$X n1=$Maximum n2=$Minimum` #
# $Z set Milieu=`$xcg/MOIT.01$X n=$Milieu` #
# $Z set Milieu=`echo $Milieu | $SE -e "s/^.//"` #
# #
# $Z if ("$HomoX" != "$HomoXYZ") then #
# $Z set HomoX1=`$xcg/DIVZ.01$X n1=$HomoXYZ n2=$HomoX` #
# $Z set MinimumX=`$xcg/AXPB.01$X a=-$Milieu x=$HomoX1 b=$Milieu` #
# $Z set MaximumX=`$xcg/AXPB.01$X a=+$Milieu x=$HomoX1 b=$Milieu` #
# #
# $Z set MinimumY=$Minimum #
# $Z set MaximumY=$Maximum #
# $Z else #
# $Z set MinimumX=$Minimum #
# $Z set MaximumX=$Maximum #
# #
# $Z set HomoY1=`$xcg/DIVZ.01$X n1=$HomoXYZ n2=$HomoY` #
# $Z set MinimumY=`$xcg/AXPB.01$X a=-$Milieu x=$HomoY1 b=$Milieu` #
# $Z set MaximumY=`$xcg/AXPB.01$X a=+$Milieu x=$HomoY1 b=$Milieu` #
# $Z endif #
# #
# $Z set ScaleX=`$xrv/extrema.01$X $FichierXY $FichierX m=$MinimumX M=$MaximumX` #
# $Z set HomoX=`echo "$ScaleX" | $SE -e "s/.*facteur d'homothetie=\([^ ][^ ]*\).*/\1/"` #
# $Z set TranX=`echo "$ScaleX" | $SE -e "s/.*translation.*=\([^ ][^ ]*\).*/\1/"` #
# #
# $Z set ScaleY=`$xrv/extrema.01$X $FichierXY $FichierY m=$MinimumY M=$MaximumY` #
# $Z set HomoY=`echo "$ScaleY" | $SE -e "s/.*facteur d'homothetie=\([^ ][^ ]*\).*/\1/"` #
# $Z set TranY=`echo "$ScaleY" | $SE -e "s/.*translation.*=\([^ ][^ ]*\).*/\1/"` #
# #
# $Z $xrv/particule.10$X \ #
# $Z ATTENTION=FAUX \ #
# $Z np=1 iterations=$Lstruc2d \ #
# $Z LISTE_X=$xTV/struc2d$COORD_X \ #
# $Z LISTE_Y=$xTV/struc2d$COORD_Y \ #
# $Z LISTE_Z=$xTV/struc2d$COORD_Z \ #
# $Z LISTE_ROUGE=$CRstruc2d \ #
# $Z LISTE_VERTE=$CVstruc2d \ #
# $Z LISTE_BLEUE=$CBstruc2d \ #
# $Z isoles=FAUX Pajuster=VRAI \ #
# $Z AX=$HomoX BX=$TranX \ #
# $Z AY=$HomoY BY=$TranY \ #
# $Z rayon_de_visualisation=$Rstruc2d \ #
# $Z nombreR=$FConnexion \ #
# $Z ZOOM=$Rzoom \ #
# $Z tri=VRAI N_au_carre=FAUX \ #
# $Z Lz=1000 \ #
# $Z R=$xiim/STRU.$Ngeo. \ #
# $Z $formatI #
# #
# $Z set Nreduc=`$xci/nombres$X p=$Ngeo d=$Ngeo A="$K_VIDE"` #
# #
# $Z $CP $xiim/STRU.$Ngeo.0001$ROUGE $xiim/REDU.$Nreduc$ROUGE #
# $Z $CP $xiim/STRU.$Ngeo.0001$VERTE $xiim/REDU.$Nreduc$VERTE #
# $Z $CP $xiim/STRU.$Ngeo.0001$BLEUE $xiim/REDU.$Nreduc$BLEUE #
# #
# #
# $Z PushdC $xu/SB.Santra #
# #
# $Z $DELETE $xTV/Traject.$Ngeo #
# $Z $xu/SB.Santra/$aPout \ #
# $Z > $xTV/Traject.$Ngeo #
# $Z PopdC #
# #
# $Z end #
# #
# $Z set NPaquet0=0 #
# $Z set Npoint=`$xci/nombres$X p=$NPaquet0 d=$NPaquet0 A="$K_VIDE"` #
# #
# $Z $xci/reduction_04$Z $xiim/REDU. \ #
# $Z $xw1/xxxx.pmc/COLL.$Npoint \ #
# $Z $Lgeometry[1] \ #
# $Z $Lgeometry[$#Lgeometry] #
# $Z $MV $xw1/xxxx.pmc/COLL.$Npoint$R04$ROUGE $xw1/xxxx.pmc/COLL.$Npoint$ROUGE #
# $Z $MV $xw1/xxxx.pmc/COLL.$Npoint$R04$VERTE $xw1/xxxx.pmc/COLL.$Npoint$VERTE #
# $Z $MV $xw1/xxxx.pmc/COLL.$Npoint$R04$BLEUE $xw1/xxxx.pmc/COLL.$Npoint$BLEUE #
# #
# #
# $Z $DELETE $xTV/geometry.1$k #
# $Z $DELETE $xTV/geometry.2$k #
# $Z $DELETE $xTV/geometry #
# $Z $DELETE $xTV/struc2d$COORD_X #
# $Z $DELETE $xTV/struc2d$COORD_Y #
# $Z $DELETE $xTV/struc2d$COORD_Z #
# #
# $Z set LmFichier=() #
# $Z set LMFichier=() #
# #
# $Z set MinMaxTop=`$xcp/Konstantes$X | grep " F_INFINI "` #
# $Z set MinMaxTop=`echo $MinMaxTop | $SE -e 's/^.* \([-+e0-9][-+e0-9]*\) .*$/\1/'` #
# #
# $Z foreach Ngeo ($Lgeometry) #
# $Z $DELETE $xTV/Top.$Ngeo #
# #
# $Z $CA $xTV/Traject.$Ngeo \ #
# $Z | $GRE ' fin$' \ #
# $Z | $SE -e "s/^.* top=//" \ #
# $Z -e 's/ .*$//' \ #
# $Z > $xTV/Top.$Ngeo #
# #
# $Z set Fichier="fichier=$xTV/Top.$Ngeo" #
# $Z set SFichier=`$WC $xTV/Top.$Ngeo` #
# $Z set SFichier=$SFichier[$WC1] #
# $Z set AFichier="CAL1=FAUX ne=$SFichier" #
# #
# $Z set MmFichier=`$xrv/extrema.01$X $AFichier $Fichier` #
# $Z set mFichier=`echo "$MmFichier" | $SE -e "s/.*minimum=\([^ ][^ ]*\).*/\1/"` #
# $Z set MFichier=`echo "$MmFichier" | $SE -e "s/.*maximum=\([^ ][^ ]*\).*/\1/"` #
# #
# $Z set LmFichier=($LmFichier $mFichier) #
# $Z set LMFichier=($LMFichier $MFichier) #
# #
# $Z set MinMaxTop=`$xcg/MIN2.01$X n1=$MFichier n2=$MinMaxTop` #
# #
# $Z $DELETE $xTV/Top.$Ngeo #
# #
# $Z end #
# #
# $Z set Paquet=10 #
# $Z set NPaquets=`$xcg/DIVZ.01$X n1=$MinMaxTop n2=$Paquet` #
# $Z set NPaquets=`echo $NPaquets | $SE -e 's/\..*$//'` #
# $Z set Chiffres=8 #
# $Z set Chiffres=`$xcg/SOUS.01$X n1=$Chiffres n2=1` #
# $Z set LPaquets=`$xci/nombres$X p=$NPaquet0 d=$NPaquets A="$K_VIDE" nombre=$Chiffres` #
# #
# $Z foreach Npoints ($LPaquets) #
# $Z foreach Ngeo ($Lgeometry) #
# $Z $DELETE $xTV/C.$Ngeo.$Npoints #
# #
# $Z $CA $xTV/Traject.$Ngeo \ #
# $Z | $EGRE -e ' origine$| intermediaire$| extremite$' \ #
# $Z | $GRE " top=+$Npoints" \ #
# $Z > $xTV/C.$Ngeo.$Npoints #
# #
# $Z $DELETE $xTV/C.$Ngeo.$Npoints$COORD_X #
# $Z $DELETE $xTV/C.$Ngeo.$Npoints$COORD_Y #
# #
# $Z $CA $xTV/C.$Ngeo.$Npoints \ #
# $Z | $SE -e 's/^.* x=\([-+.e0-9][-+.e0-9]*\) .*$/\1/' \ #
# $Z > $xTV/C.$Ngeo.$Npoints$COORD_X #
# $Z $CA $xTV/C.$Ngeo.$Npoints \ #
# $Z | $SE -e 's/^.* y=\([-+.e0-9][-+.e0-9]*\) .*$/\1/' \ #
# $Z > $xTV/C.$Ngeo.$Npoints$COORD_Y #
# #
# $Z set Lcol=`$WC $xTV/C.$Ngeo.$Npoints` #
# $Z set Lcol=$Lcol[$WC1] #
# $Z $xrv/particule.10$X \ #
# $Z ATTENTION=FAUX \ #
# $Z np=1 iterations=$Lcol \ #
# $Z LISTE_X=$xTV/C.$Ngeo.$Npoints$COORD_X \ #
# $Z LISTE_Y=$xTV/C.$Ngeo.$Npoints$COORD_Y \ #
# $Z LISTE_Z=$Zcollis \ #
# $Z LISTE_ROUGE=$CRa_priori \ #
# $Z LISTE_VERTE=$CVa_priori \ #
# $Z LISTE_BLEUE=$CBa_priori \ #
# $Z isoles=VRAI \ #
# $Z Pajuster=VRAI \ #
# $Z AX=$HomoX BX=$TranX \ #
# $Z AY=$HomoY BY=$TranY \ #
# $Z rayon_de_visualisation=$Rcollis \ #
# $Z nombreR=$FConnexion \ #
# $Z ZOOM=$Rzoom \ #
# $Z tri=VRAI N_au_carre=FAUX \ #
# $Z fond=VRAI dynamique=FAUX \ #
# $Z F=$xiim/STRU.$Ngeo.0001 \ #
# $Z Lz=1000 \ #
# $Z R=$xiim/COLL.$Ngeo. \ #
# $Z $formatI #
# #
# $Z set Nreduc=`$xci/nombres$X p=$Ngeo d=$Ngeo A="$K_VIDE"` #
# #
# $Z $CP $xiim/COLL.$Ngeo.0001$ROUGE $xiim/REDU.$Nreduc$ROUGE #
# $Z $CP $xiim/COLL.$Ngeo.0001$VERTE $xiim/REDU.$Nreduc$VERTE #
# $Z $CP $xiim/COLL.$Ngeo.0001$BLEUE $xiim/REDU.$Nreduc$BLEUE #
# #
# $Z $DELETE $xTV/C.$Ngeo.$Npoints$COORD_X #
# $Z $DELETE $xTV/C.$Ngeo.$Npoints$COORD_Y #
# #
# $Z $DELETE $xTV/C.$Ngeo.$Npoints #
# $Z end #
# #
# $Z set Npoint=`$xcg/ADD2.01$X n1=$Npoints n2=1` #
# $Z set Npoint=`$xci/nombres$X p=$Npoint d=$Npoint A="$K_VIDE"` #
# #
# $Z $xci/reduction_04$Z $xiim/REDU. \ #
# $Z $xw1/xxxx.pmc/COLL.$Npoint \ #
# $Z $Lgeometry[1] \ #
# $Z $Lgeometry[$#Lgeometry] #
# $Z $MV $xw1/xxxx.pmc/COLL.$Npoint$R04$ROUGE $xw1/xxxx.pmc/COLL.$Npoint$ROUGE #
# $Z $MV $xw1/xxxx.pmc/COLL.$Npoint$R04$VERTE $xw1/xxxx.pmc/COLL.$Npoint$VERTE #
# $Z $MV $xw1/xxxx.pmc/COLL.$Npoint$R04$BLEUE $xw1/xxxx.pmc/COLL.$Npoint$BLEUE #
# $Z end #
# #
# #
# Pal #
# #
# $xci/disk_video_P$Z $xw1/xxxx.pmc/COLL. 0001 0256 RVB \ #
# 4 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# $xci/disk_video_P$Z $xw1/xxxx.pmc/COLL. 0257 0483 RVB \ #
# 4 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
# ATTENTION, la premiere partie {0001,0256} a ete enregistre en deux fois a cause d'un #
# probleme bien traditionnel... #
sequence 025598_025598
sequence 025599_025880
# Sequence generee par a partir du programme : #
# #
# $xu/SB.Santra/glass.12$f #
# #
# avec les parametres : #
# #
# parameter (lx=2**8) #
# parameter (cs1=0.16,cs2=0.08) #
# #
# #
# $Z S #
# $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS #
# #
# $Z Pal #
# #
# $Z $xci/init$X niveau=$NOIR \ #
# $Z R=$xTV/FOND \ #
# $Z $formatI #
# #
# $Z $xci/message$X A=$xTV/FOND \ #
# $Z message="THREE PARTICLES," \ #
# $Z Y=0.8 anti_aliasing=VRAI centrer=VRAI \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z message="DISSOLUTION DEPENDS ON" \ #
# $Z Y=0.7 anti_aliasing=VRAI centrer=VRAI \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z message="THE NEAREST NEIGHBORS," \ #
# $Z Y=0.6 anti_aliasing=VRAI centrer=VRAI \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z message="NO REDEPOSITION" \ #
# $Z Y=0.5 anti_aliasing=VRAI centrer=VRAI \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z message="Concentration of Weak Particles=16%" \ #
# $Z Y=0.2 anti_aliasing=VRAI centrer=VRAI \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z message="Concentration of Strong Particles=08%" \ #
# $Z Y=0.1 anti_aliasing=VRAI centrer=VRAI \ #
# $Z $formatI | \ #
# $Z $xci/dilate.01$X \ #
# $Z R=$xw1/xxxx.pmc/TITR.2.G8.0001 \ #
# $Z $formatI #
# #
# $Z Sud #
# #
# $Z SET Premiere=0 #
# $Z SET Derniere=281 #
# #
# $Z @ Taille = $taille_Sud * 4 #
# #
# $X $xci/genere$X premiere=$Premiere derniere=$Derniere pas=1 \ #
# $X C='$CA \ #
# $X $xiim/GLAS.%04d | \ #
# $X $xcg/extract$X \ #
# $X eliminer=4 \ #
# $X conserver=$Taille | \ #
# $X $xcg/float_Float$X \ #
# $X $formatI | \ #
# $X $xci/acces$X \ #
# $X standard=FAUX \ #
# $X zero=VRAI \ #
# $X $formatI | \ #
# $X $xci/format.01$X \ #
# $X $formatI \ #
# $X mode=0 \ #
# $X $formatR_Std | \ #
# $X $xci/vraies_C$X \ #
# $X p=$xiP/pmc.73 \ #
# $X RVB=VRAI \ #
# $X R=$xw1/xxxx.pmc/GLAS.2.G8.%04d \ #
# $X $format_Std' #
# #
# $Z xiim #
# $Z $DELETE GLAS.* #
# #
# #
# Pal #
# #
# $xci/disk_video_P$Z $xw1/xxxx.pmc/TITR.2.G8. 0001 0001 $xiP/gris.01 \ #
# 4 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz FAUX VRAI FAUX #
# #
# Std #
# #
# $xci/disk_video_P$Z $xw1/xxxx.pmc/GLAS.2.G8. 0000 0127 RVB \ #
# 4 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz FAUX VRAI FAUX #
# $xci/disk_video_P$Z $xw1/xxxx.pmc/GLAS.2.G8. 0128 0281 RVB \ #
# 4 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz FAUX VRAI FAUX #
# #
sequence 025881_025889
# Sequence generee par : #
# #
# #
# $Z S #
# $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS #
# #
# $Z Pal #
# #
# $Z $xci/init$X niveau=$NOIR \ #
# $Z R=$xTV/FOND \ #
# $Z $formatI #
# #
# $Z $xci/message$X A=$xTV/FOND \ #
# $Z message="SELF-STABILIZED ETCHING" \ #
# $Z Y=0.8 anti_aliasing=VRAI centrer=VRAI \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z message="OF RANDOM SOLIDS" \ #
# $Z Y=0.7 anti_aliasing=VRAI centrer=VRAI \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z message="S.B. Santra" \ #
# $Z Y=0.2 anti_aliasing=VRAI centrer=VRAI \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z message="B. Sapoval" \ #
# $Z Y=0.1 anti_aliasing=VRAI centrer=VRAI \ #
# $Z $formatI | \ #
# $Z $xci/dilate.01$X \ #
# $Z $formatI | \ #
# $Z $xci/vraies_C$X \ #
# $Z p=$xiP/gris.01 \ #
# $Z RVB=VRAI \ #
# $Z R=$xw1/xxxx.pmc/TITR.2.0001 \ #
# $Z $formatI #
# #
# $Z $xci/message$X A=$xTV/FOND \ #
# $Z message="TERNARY GLASS DISSOLUTION" \ #
# $Z Y=0.8 anti_aliasing=VRAI centrer=VRAI \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z message="IN WATER" \ #
# $Z Y=0.7 anti_aliasing=VRAI centrer=VRAI \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z message="A Monte-Carlo Simulation" \ #
# $Z Y=0.6 anti_aliasing=VRAI centrer=VRAI \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z message="Ph. Barboux" \ #
# $Z Y=0.3 anti_aliasing=VRAI centrer=VRAI \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z message="S.B. Santra" \ #
# $Z Y=0.2 anti_aliasing=VRAI centrer=VRAI \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z message="B. Sapoval" \ #
# $Z Y=0.1 anti_aliasing=VRAI centrer=VRAI \ #
# $Z $formatI | \ #
# $Z $xci/dilate.01$X \ #
# $Z $formatI | \ #
# $Z $xci/vraies_C$X \ #
# $Z p=$xiP/gris.01 \ #
# $Z RVB=VRAI \ #
# $Z R=$xw1/xxxx.pmc/TITR.2.0002 \ #
# $Z $formatI #
# #
# $Z $xci/message$X A=$xTV/FOND \ #
# $Z message="Particles solubility in water (blue)" \ #
# $Z Y=0.90 anti_aliasing=VRAI centrer=VRAI \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z message="Large for Na2O or B2O3 (red)" \ #
# $Z Y=0.80 anti_aliasing=VRAI centrer=VRAI \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z message="Medium for SiO2 (green)" \ #
# $Z Y=0.70 anti_aliasing=VRAI centrer=VRAI \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z message="Null for ZrO2 (bright)" \ #
# $Z Y=0.60 anti_aliasing=VRAI centrer=VRAI \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z message="Dissolution of SiO2 depends on" \ #
# $Z Y=0.40 anti_aliasing=VRAI centrer=VRAI \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z message="the local environment" \ #
# $Z Y=0.35 anti_aliasing=VRAI centrer=VRAI \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z message="Weak Strong" \ #
# $Z Y=0.25 anti_aliasing=VRAI centrer=VRAI \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z message="Redeposition depends on" \ #
# $Z Y=0.10 anti_aliasing=VRAI centrer=VRAI \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z message="the concentration of SiO2 in water" \ #
# $Z Y=0.05 anti_aliasing=VRAI centrer=VRAI \ #
# $Z $formatI | \ #
# $Z $xci/dilate.01$X \ #
# $Z $formatI | \ #
# $Z $xci/vraies_C$X \ #
# $Z p=$xiP/gris.01 \ #
# $Z RVB=VRAI \ #
# $Z R=$xw1/xxxx.pmc/TITR.2.0003 \ #
# $Z $formatI #
# #
# $Z $xci/message$X A=$xTV/FOND \ #
# $Z message="POROSIFICATION" \ #
# $Z Y=0.6 anti_aliasing=VRAI centrer=VRAI \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z message="AND COARSE-GRAINING" \ #
# $Z Y=0.5 anti_aliasing=VRAI centrer=VRAI \ #
# $Z $formatI | \ #
# $Z $xci/dilate.01$X \ #
# $Z $formatI | \ #
# $Z $xci/vraies_C$X \ #
# $Z p=$xiP/gris.01 \ #
# $Z RVB=VRAI \ #
# $Z R=$xw1/xxxx.pmc/TITR.2.0004 \ #
# $Z $formatI #
# #
# $Z $xci/message$X A=$xTV/FOND \ #
# $Z message="THREE PARTICLES," \ #
# $Z Y=0.8 anti_aliasing=VRAI centrer=VRAI \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z message="DISSOLUTION DEPENDS ON" \ #
# $Z Y=0.7 anti_aliasing=VRAI centrer=VRAI \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z message="THE NEAREST NEIGHBORS," \ #
# $Z Y=0.6 anti_aliasing=VRAI centrer=VRAI \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z message="NO REDEPOSITION" \ #
# $Z Y=0.5 anti_aliasing=VRAI centrer=VRAI \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z message="Concentration of Weak Particles=16%" \ #
# $Z Y=0.2 anti_aliasing=VRAI centrer=VRAI \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z message="Concentration of Strong Particles=08%" \ #
# $Z Y=0.1 anti_aliasing=VRAI centrer=VRAI \ #
# $Z $formatI | \ #
# $Z $xci/dilate.01$X \ #
# $Z $formatI | \ #
# $Z $xci/vraies_C$X \ #
# $Z p=$xiP/gris.01 \ #
# $Z RVB=VRAI \ #
# $Z R=$xw1/xxxx.pmc/TITR.2.0005 \ #
# $Z $formatI #
# #
# $Z $xci/message$X A=$xTV/FOND \ #
# $Z message="THREE PARTICLES," \ #
# $Z Y=0.8 anti_aliasing=VRAI centrer=VRAI \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z message="DISSOLUTION DEPENDS ON" \ #
# $Z Y=0.7 anti_aliasing=VRAI centrer=VRAI \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z message="THE NEAREST NEIGHBORS," \ #
# $Z Y=0.6 anti_aliasing=VRAI centrer=VRAI \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z message="WITH REDEPOSITION" \ #
# $Z Y=0.5 anti_aliasing=VRAI centrer=VRAI \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z message="Concentration of Weak Particles=16%" \ #
# $Z Y=0.2 anti_aliasing=VRAI centrer=VRAI \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z message="Concentration of Strong Particles=08%" \ #
# $Z Y=0.1 anti_aliasing=VRAI centrer=VRAI \ #
# $Z $formatI | \ #
# $Z $xci/dilate.01$X \ #
# $Z $formatI | \ #
# $Z $xci/vraies_C$X \ #
# $Z p=$xiP/gris.01 \ #
# $Z RVB=VRAI \ #
# $Z R=$xw1/xxxx.pmc/TITR.2.0006 \ #
# $Z $formatI #
# #
# $Z $xci/message$X A=$xTV/FOND \ #
# $Z message="THREE PARTICLES," \ #
# $Z Y=0.8 anti_aliasing=VRAI centrer=VRAI \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z message="SPEED OF DISSOLUTION DEPENDS ON" \ #
# $Z Y=0.7 anti_aliasing=VRAI centrer=VRAI \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z message="THE COMPOSITION OF THE SOLID" \ #
# $Z Y=0.6 anti_aliasing=VRAI centrer=VRAI \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z message="Concentration of Weak Particles=16%" \ #
# $Z Y=0.2 anti_aliasing=VRAI centrer=VRAI \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z message="Concentration of Strong Particles=08%" \ #
# $Z Y=0.1 anti_aliasing=VRAI centrer=VRAI \ #
# $Z $formatI | \ #
# $Z $xci/dilate.01$X \ #
# $Z $formatI | \ #
# $Z $xci/vraies_C$X \ #
# $Z p=$xiP/gris.01 \ #
# $Z RVB=VRAI \ #
# $Z R=$xw1/xxxx.pmc/TITR.2.0007 \ #
# $Z $formatI #
# #
# $Z $xci/message$X A=$xTV/FOND \ #
# $Z message="THREE PARTICLES," \ #
# $Z Y=0.8 anti_aliasing=VRAI centrer=VRAI \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z message="SPEED OF DISSOLUTION DEPENDS ON" \ #
# $Z Y=0.7 anti_aliasing=VRAI centrer=VRAI \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z message="THE COMPOSITION OF THE SOLID" \ #
# $Z Y=0.6 anti_aliasing=VRAI centrer=VRAI \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z message="Concentration of Weak Particles=32%" \ #
# $Z Y=0.2 anti_aliasing=VRAI centrer=VRAI \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z message="Concentration of Strong Particles=08%" \ #
# $Z Y=0.1 anti_aliasing=VRAI centrer=VRAI \ #
# $Z $formatI | \ #
# $Z $xci/dilate.01$X \ #
# $Z $formatI | \ #
# $Z $xci/vraies_C$X \ #
# $Z p=$xiP/gris.01 \ #
# $Z RVB=VRAI \ #
# $Z R=$xw1/xxxx.pmc/TITR.2.0008 \ #
# $Z $formatI #
# #
# $Z $xci/message$X A=$xTV/FOND \ #
# $Z message="THREE PARTICLES," \ #
# $Z Y=0.8 anti_aliasing=VRAI centrer=VRAI \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z message="SPEED OF DISSOLUTION DEPENDS ON" \ #
# $Z Y=0.7 anti_aliasing=VRAI centrer=VRAI \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z message="THE COMPOSITION OF THE SOLID" \ #
# $Z Y=0.6 anti_aliasing=VRAI centrer=VRAI \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z message="Concentration of Weak Particles=32%" \ #
# $Z Y=0.2 anti_aliasing=VRAI centrer=VRAI \ #
# $Z $formatI | \ #
# $Z $xci/message$X \ #
# $Z message="Concentration of Strong Particles=32%" \ #
# $Z Y=0.1 anti_aliasing=VRAI centrer=VRAI \ #
# $Z $formatI | \ #
# $Z $xci/dilate.01$X \ #
# $Z $formatI | \ #
# $Z $xci/vraies_C$X \ #
# $Z p=$xiP/gris.01 \ #
# $Z RVB=VRAI \ #
# $Z R=$xw1/xxxx.pmc/TITR.2.0009 \ #
# $Z $formatI #
# #
# $Z $DELETE $xTV/TITR.2$ROUGE #
# $Z $DELETE $xTV/TITR.2$VERTE #
# $Z $DELETE $xTV/TITR.2$BLEUE #
# #
# $Z $DELETE $xTV/PART.2$COORD_X #
# $Z $DELETE $xTV/PART.2$COORD_Y #
# $Z $DELETE $xTV/PART.2$ROUGE #
# $Z $DELETE $xTV/PART.2$VERTE #
# $Z $DELETE $xTV/PART.2$BLEUE #
# $Z $DELETE $xTV/PART.2.r #
# #
# $Z $CP $xw1/xxxx.pmc/TITR.2.0003$ROUGE $xTV/TITR.2$ROUGE #
# $Z $CP $xw1/xxxx.pmc/TITR.2.0003$VERTE $xTV/TITR.2$VERTE #
# $Z $CP $xw1/xxxx.pmc/TITR.2.0003$BLEUE $xTV/TITR.2$BLEUE #
# #
# $Z set ListeX=1 #
# $Z @ ListeY = $ListeX + 1 #
# $Z @ Lister = $ListeY + 1 #
# $Z @ ListeR = $Lister + 1 #
# $Z @ ListeV = $ListeR + 1 #
# $Z @ ListeB = $ListeV + 1 #
# #
# $Z alias Gen 'set Liste=(\!*) ; \\ #
# $Z echo $Liste[$ListeX] >>! $xTV/PART.2$COORD_X ; \\ #
# $Z echo $Liste[$ListeY] >>! $xTV/PART.2$COORD_Y ; \\ #
# $Z echo $Liste[$Lister] >>! $xTV/PART.2.r ; \\ #
# $Z echo $Liste[$ListeR] >>! $xTV/PART.2$ROUGE ; \\ #
# $Z echo $Liste[$ListeV] >>! $xTV/PART.2$VERTE ; \\ #
# $Z echo $Liste[$ListeB] >>! $xTV/PART.2$BLEUE ; \\ #
# $Z @ Nparticules = $Nparticules + 1 ; \\ #
# $Z unset Liste' #
# #
# $Z set Nparticules=0 #
# #
# #
# $Z Gen 1.050 0.910 0.030 $GRIS_0 $GRIS_6 $GRIS_8 #
# $Z Gen 1.050 0.910 0.030 $GRIS_0 $GRIS_6 $GRIS_8 #
# #
# $Z Gen 1.050 0.810 0.020 $GRIS_8 $GRIS_0 $GRIS_0 #
# $Z Gen 1.050 0.810 0.020 $GRIS_8 $GRIS_0 $GRIS_0 #
# #
# $Z Gen 1.050 0.710 0.020 $GRIS_0 $GRIS_8 $GRIS_0 #
# $Z Gen 1.050 0.710 0.020 $GRIS_0 $GRIS_8 $GRIS_0 #
# #
# $Z Gen 1.050 0.610 0.020 $GRIS_8 $GRIS_8 $GRIS_0 #
# $Z Gen 1.050 0.610 0.020 $GRIS_8 $GRIS_8 $GRIS_0 #
# #
# #
# $Z Gen 0.300 0.225 0.010 $GRIS_0 $GRIS_8 $GRIS_6 #
# $Z Gen 0.300 0.275 0.010 $GRIS_8 $GRIS_8 $GRIS_0 #
# #
# $Z Gen 0.250 0.275 0.010 $GRIS_8 $GRIS_8 $GRIS_0 #
# $Z Gen 0.250 0.275 0.010 $GRIS_8 $GRIS_8 $GRIS_0 #
# #
# $Z Gen 0.350 0.275 0.010 $GRIS_8 $GRIS_8 $GRIS_0 #
# $Z Gen 0.350 0.275 0.010 $GRIS_8 $GRIS_8 $GRIS_0 #
# #
# #
# $Z Gen 0.700 0.225 0.010 $GRIS_0 $GRIS_8 $GRIS_0 #
# $Z Gen 0.700 0.275 0.010 $GRIS_8 $GRIS_8 $GRIS_6 #
# #
# $Z Gen 0.650 0.275 0.010 $GRIS_8 $GRIS_8 $GRIS_0 #
# $Z Gen 0.650 0.275 0.010 $GRIS_8 $GRIS_8 $GRIS_0 #
# #
# $Z Gen 0.750 0.275 0.010 $GRIS_8 $GRIS_8 $GRIS_0 #
# $Z Gen 0.750 0.275 0.010 $GRIS_8 $GRIS_8 $GRIS_0 #
# #
# $Z Gen 0.700 0.225 0.010 $GRIS_0 $GRIS_8 $GRIS_0 #
# $Z Gen 0.650 0.225 0.010 $GRIS_8 $GRIS_8 $GRIS_0 #
# #
# $Z Gen 0.700 0.225 0.010 $GRIS_0 $GRIS_8 $GRIS_0 #
# $Z Gen 0.750 0.225 0.010 $GRIS_8 $GRIS_8 $GRIS_0 #
# #
# $Z $xrv/particule.10$X \ #
# $Z ATTENTION=FAUX \ #
# $Z np=1 iterations=$Nparticules \ #
# $Z isoles=FAUX grossissement=2 Pajuster=VRAI Rpoints=2 \ #
# $Z LISTE_X=$xTV/PART.2$COORD_X \ #
# $Z LISTE_Y=$xTV/PART.2$COORD_Y \ #
# $Z LISTE_Z=0 \ #
# $Z LISTE_ROUGE=$xTV/PART.2$ROUGE \ #
# $Z LISTE_VERTE=$xTV/PART.2$VERTE \ #
# $Z LISTE_BLEUE=$xTV/PART.2$BLEUE \ #
# $Z LISTE_RAYON=$xTV/PART.2.r \ #
# $Z Lz=100 \ #
# $Z fond=VRAI fond_dynamique=FAUX \ #
# $Z F=$xTV/TITR.2 \ #
# $Z R=$xTV/TITR.2. \ #
# $Z $formatI #
# #
# $Z $DELETE $xw1/xxxx.pmc/TITR.2.0003$ROUGE #
# $Z $DELETE $xw1/xxxx.pmc/TITR.2.0003$VERTE #
# $Z $DELETE $xw1/xxxx.pmc/TITR.2.0003$BLEUE #
# #
# $Z $CP $xTV/TITR.2.0001$ROUGE $xw1/xxxx.pmc/TITR.2.0003$ROUGE #
# $Z $CP $xTV/TITR.2.0001$VERTE $xw1/xxxx.pmc/TITR.2.0003$VERTE #
# $Z $CP $xTV/TITR.2.0001$BLEUE $xw1/xxxx.pmc/TITR.2.0003$BLEUE #
# #
# $Z $DELETE $xTV/TITR.2$ROUGE #
# $Z $DELETE $xTV/TITR.2$VERTE #
# $Z $DELETE $xTV/TITR.2$BLEUE #
# #
# $Z $DELETE $xTV/PART.2$COORD_X #
# $Z $DELETE $xTV/PART.2$COORD_Y #
# $Z $DELETE $xTV/PART.2$ROUGE #
# $Z $DELETE $xTV/PART.2$VERTE #
# $Z $DELETE $xTV/PART.2$BLEUE #
# $Z $DELETE $xTV/PART.2.r #
# #
# #
# Pal #
# #
# $xci/disk_video_P$Z $xw1/xxxx.pmc/TITR.2. 001 009 RVB \ #
# 4 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
sequence 025890_026145
sequence 026146_026399
# Sequence generee via '$xu/SB.Santra/kollision.31$f' par : #
# #
# #
# $Z Pal #
# #
# $Z set FConnexion=2 #
# $Z set CRstruc2d=$GRIS_8 #
# $Z set CVstruc2d=$GRIS_6 #
# $Z set CBstruc2d=$GRIS_2 #
# $Z set Rstruc2d=0.0100 #
# $Z set Zstruc2d=0.0 #
# $Z set Rcollis=0.0100 #
# $Z set Zcollis=0.0 #
# $Z set Rzoom=1.2 #
# #
# #
# $Z set Numerotage=4 #
# #
# #
# $Z $DELETE $xTV/geometry.1$k #
# $Z $DELETE $xTV/geometry.2$k #
# #
# $Z echo 'BEGIN {' >>! $xTV/geometry.1$k #
# $Z echo ' numero = 0;' >>! $xTV/geometry.1$k #
# $Z echo ' }' >>! $xTV/geometry.1$k #
# $Z echo '{' >>! $xTV/geometry.1$k #
# $Z echo 'numero++;' >>! $xTV/geometry.1$k #
# $Z echo 'ligne[numero] = $0;' >>! $xTV/geometry.1$k #
# $Z echo '}' >>! $xTV/geometry.1$k #
# $Z echo 'END {' >>! $xTV/geometry.1$k #
# $Z echo ' for (n=1 ; n<=numero ; n++)' >>! $xTV/geometry.1$k #
# $Z echo ' {' >>! $xTV/geometry.1$k #
# $Z echo ' printf("%s",ligne[n]);' >>! $xTV/geometry.1$k #
# $Z echo ' if ((n%2) == 0)' >>! $xTV/geometry.1$k #
# $Z echo ' {' >>! $xTV/geometry.1$k #
# $Z echo ' printf("\\n");' >>! $xTV/geometry.1$k #
# $Z echo ' }' >>! $xTV/geometry.1$k #
# $Z echo ' else' >>! $xTV/geometry.1$k #
# $Z echo ' {' >>! $xTV/geometry.1$k #
# $Z echo ' printf(" ");' >>! $xTV/geometry.1$k #
# $Z echo ' }' >>! $xTV/geometry.1$k #
# $Z echo ' }' >>! $xTV/geometry.1$k #
# $Z echo ' }' >>! $xTV/geometry.1$k #
# #
# $Z echo 'BEGIN {' >>! $xTV/geometry.2$k #
# $Z echo ' numero = 0;' >>! $xTV/geometry.2$k #
# $Z echo ' }' >>! $xTV/geometry.2$k #
# $Z echo '{' >>! $xTV/geometry.2$k #
# $Z echo 'numero++;' >>! $xTV/geometry.2$k #
# $Z echo 'ligne[numero] = $0;' >>! $xTV/geometry.2$k #
# $Z echo '}' >>! $xTV/geometry.2$k #
# $Z echo 'END {' >>! $xTV/geometry.2$k #
# $Z echo ' for (n=1 ; n<=numero ; n++)' >>! $xTV/geometry.2$k #
# $Z echo ' {' >>! $xTV/geometry.2$k #
# $Z echo ' printf("%s\\n",ligne[n]);' >>! $xTV/geometry.2$k #
# $Z echo ' if ((n > 1) && (n<numero))' >>! $xTV/geometry.2$k #
# $Z echo ' {' >>! $xTV/geometry.2$k #
# $Z echo ' printf("%s\\n",ligne[n]);' >>! $xTV/geometry.2$k #
# $Z echo ' }' >>! $xTV/geometry.2$k #
# $Z echo ' else' >>! $xTV/geometry.2$k #
# $Z echo ' {' >>! $xTV/geometry.2$k #
# $Z echo ' }' >>! $xTV/geometry.2$k #
# $Z echo ' }' >>! $xTV/geometry.2$k #
# $Z echo ' }' >>! $xTV/geometry.2$k #
# #
# $Z set Lgeometry={0,1,2,3} #
# #
# $Z foreach Ngeo ($Lgeometry) #
# #
# $Z setenv Fgeometry $xu/SB.Santra/npore$Ngeo.d #
# #
# $Z $DELETE $xTV/geometry #
# #
# $Z $CA $Fgeometry \ #
# $Z | $TAI +2 \ #
# $Z | $AW -f $xTV/geometry.1$k \ #
# $Z | $AW -f $xTV/geometry.2$k \ #
# $Z | $R "$K_BLANC" "$K_NL" \ #
# $Z > $xTV/geometry #
# #
# $Z set Lstruc2d=`$WC $xTV/geometry` #
# $Z set Lstruc2d=$Lstruc2d[$WC1] #
# $Z @ Lstruc2d = $Lstruc2d / 2 #
# #
# $Z $DELETE $xTV/struc2d$COORD_X #
# $Z $DELETE $xTV/struc2d$COORD_Y #
# $Z $DELETE $xTV/struc2d$COORD_Z #
# #
# $Z $CA $xTV/geometry \ #
# $Z | $NL -nrz -w$Numerotage \ #
# $Z | $R "$K_TAB" "$K_BLANC" \ #
# $Z | $GRE "[13579] " \ #
# $Z | $AW ' { print $2 } ' \ #
# $Z > $xTV/struc2d$COORD_X #
# $Z $CA $xTV/geometry \ #
# $Z | $NL -nrz -w$Numerotage \ #
# $Z | $R "$K_TAB" "$K_BLANC" \ #
# $Z | $GRE "[02468] " \ #
# $Z | $AW ' { print $2 } ' \ #
# $Z > $xTV/struc2d$COORD_Y #
# $Z $xci/valeurs_inte$X p=1 d=$Lstruc2d vD=$Zstruc2d vA=$Zstruc2d \ #
# $Z > $xTV/struc2d$COORD_Z #
# #
# $Z set FichierX="fichier=$xTV/struc2d$COORD_X" #
# $Z set FichierY="fichier=$xTV/struc2d$COORD_Y" #
# $Z set FichierXY="CAL1=FAUX ne=$Lstruc2d" #
# #
# $Z set ScaleX=`$xrv/extrema.01$X $FichierXY $FichierX` #
# $Z set HomoX=`echo "$ScaleX" | $SE -e "s/.*facteur d'homothetie=\([^ ][^ ]*\).*/\1/"` #
# #
# $Z set ScaleY=`$xrv/extrema.01$X $FichierXY $FichierY` #
# $Z set HomoY=`echo "$ScaleY" | $SE -e "s/.*facteur d'homothetie=\([^ ][^ ]*\).*/\1/"` #
# #
# $Z set HomoXYZ=`$xcg/MIN2.01$X n1=$HomoX n2=$HomoY` #
# $Z set Minimum=0 #
# $Z set Maximum=1 #
# $Z set Milieu=`$xcg/SOUS.01$X n1=$Maximum n2=$Minimum` #
# $Z set Milieu=`$xcg/MOIT.01$X n=$Milieu` #
# $Z set Milieu=`echo $Milieu | $SE -e "s/^.//"` #
# #
# $Z if ("$HomoX" != "$HomoXYZ") then #
# $Z set HomoX1=`$xcg/DIVZ.01$X n1=$HomoXYZ n2=$HomoX` #
# $Z set MinimumX=`$xcg/AXPB.01$X a=-$Milieu x=$HomoX1 b=$Milieu` #
# $Z set MaximumX=`$xcg/AXPB.01$X a=+$Milieu x=$HomoX1 b=$Milieu` #
# #
# $Z set MinimumY=$Minimum #
# $Z set MaximumY=$Maximum #
# $Z else #
# $Z set MinimumX=$Minimum #
# $Z set MaximumX=$Maximum #
# #
# $Z set HomoY1=`$xcg/DIVZ.01$X n1=$HomoXYZ n2=$HomoY` #
# $Z set MinimumY=`$xcg/AXPB.01$X a=-$Milieu x=$HomoY1 b=$Milieu` #
# $Z set MaximumY=`$xcg/AXPB.01$X a=+$Milieu x=$HomoY1 b=$Milieu` #
# $Z endif #
# #
# $Z set ScaleX=`$xrv/extrema.01$X $FichierXY $FichierX m=$MinimumX M=$MaximumX` #
# $Z set HomoX=`echo "$ScaleX" | $SE -e "s/.*facteur d'homothetie=\([^ ][^ ]*\).*/\1/"` #
# $Z set TranX=`echo "$ScaleX" | $SE -e "s/.*translation.*=\([^ ][^ ]*\).*/\1/"` #
# #
# $Z set ScaleY=`$xrv/extrema.01$X $FichierXY $FichierY m=$MinimumY M=$MaximumY` #
# $Z set HomoY=`echo "$ScaleY" | $SE -e "s/.*facteur d'homothetie=\([^ ][^ ]*\).*/\1/"` #
# $Z set TranY=`echo "$ScaleY" | $SE -e "s/.*translation.*=\([^ ][^ ]*\).*/\1/"` #
# #
# $Z $xrv/particule.10$X \ #
# $Z ATTENTION=FAUX \ #
# $Z np=1 iterations=$Lstruc2d \ #
# $Z LISTE_X=$xTV/struc2d$COORD_X \ #
# $Z LISTE_Y=$xTV/struc2d$COORD_Y \ #
# $Z LISTE_Z=$xTV/struc2d$COORD_Z \ #
# $Z LISTE_ROUGE=$CRstruc2d \ #
# $Z LISTE_VERTE=$CVstruc2d \ #
# $Z LISTE_BLEUE=$CBstruc2d \ #
# $Z isoles=FAUX Pajuster=VRAI \ #
# $Z AX=$HomoX BX=$TranX \ #
# $Z AY=$HomoY BY=$TranY \ #
# $Z rayon_de_visualisation=$Rstruc2d \ #
# $Z nombreR=$FConnexion \ #
# $Z ZOOM=$Rzoom \ #
# $Z tri=VRAI N_au_carre=FAUX \ #
# $Z Lz=1000 \ #
# $Z R=$xiim/STRU.$Ngeo. \ #
# $Z $formatI #
# #
# $Z set Nreduc=`$xci/nombres$X p=$Ngeo d=$Ngeo A="$K_VIDE"` #
# #
# $Z $CP $xiim/STRU.$Ngeo.0001$ROUGE $xiim/REDU.$Nreduc$ROUGE #
# $Z $CP $xiim/STRU.$Ngeo.0001$VERTE $xiim/REDU.$Nreduc$VERTE #
# $Z $CP $xiim/STRU.$Ngeo.0001$BLEUE $xiim/REDU.$Nreduc$BLEUE #
# #
# #
# $Z PushdC $xu/SB.Santra #
# #
# $Z $DELETE $xTV/Traject.$Ngeo #
# $Z $xu/SB.Santra/$aPout \ #
# $Z > $xTV/Traject.$Ngeo #
# $Z PopdC #
# #
# $Z end #
# #
# $Z set CRa_priori=$GRIS_8 #
# $Z set CVa_priori=$GRIS_8 #
# $Z set CBa_priori=$GRIS_8 #
# #
# $Z set NPaquet0=0 #
# $Z set Npoint=`$xci/nombres$X p=$NPaquet0 d=$NPaquet0 A="$K_VIDE"` #
# #
# $Z $xci/reduction_04$Z $xiim/REDU. \ #
# $Z $xw1/xxxx.pmc/COLL.$Npoint \ #
# $Z $Lgeometry[1] \ #
# $Z $Lgeometry[$#Lgeometry] #
# $Z $MV $xw1/xxxx.pmc/COLL.$Npoint$R04$ROUGE $xw1/xxxx.pmc/COLL.1.$Npoint$ROUGE #
# $Z $MV $xw1/xxxx.pmc/COLL.$Npoint$R04$VERTE $xw1/xxxx.pmc/COLL.1.$Npoint$VERTE #
# $Z $MV $xw1/xxxx.pmc/COLL.$Npoint$R04$BLEUE $xw1/xxxx.pmc/COLL.1.$Npoint$BLEUE #
# #
# #
# $Z $DELETE $xTV/geometry.1$k #
# $Z $DELETE $xTV/geometry.2$k #
# $Z $DELETE $xTV/geometry #
# $Z $DELETE $xTV/struc2d$COORD_X #
# $Z $DELETE $xTV/struc2d$COORD_Y #
# $Z $DELETE $xTV/struc2d$COORD_Z #
# #
# $Z set LmFichier=() #
# $Z set LMFichier=() #
# #
# $Z set MinMaxTop=`$xcp/Konstantes$X | grep " F_INFINI "` #
# $Z set MinMaxTop=`echo $MinMaxTop | $SE -e 's/^.* \([-+e0-9][-+e0-9]*\) .*$/\1/'` #
# #
# $Z foreach Ngeo ($Lgeometry) #
# $Z $DELETE $xTV/Top.$Ngeo #
# #
# $Z $CA $xTV/Traject.$Ngeo \ #
# $Z | $GRE ' fin$' \ #
# $Z | $SE -e "s/^.* top=//" \ #
# $Z -e 's/ .*$//' \ #
# $Z > $xTV/Top.$Ngeo #
# #
# $Z set Fichier="fichier=$xTV/Top.$Ngeo" #
# $Z set SFichier=`$WC $xTV/Top.$Ngeo` #
# $Z set SFichier=$SFichier[$WC1] #
# $Z set AFichier="CAL1=FAUX ne=$SFichier" #
# #
# $Z set MmFichier=`$xrv/extrema.01$X $AFichier $Fichier` #
# $Z set mFichier=`echo "$MmFichier" | $SE -e "s/.*minimum=\([^ ][^ ]*\).*/\1/"` #
# $Z set MFichier=`echo "$MmFichier" | $SE -e "s/.*maximum=\([^ ][^ ]*\).*/\1/"` #
# #
# $Z set LmFichier=($LmFichier $mFichier) #
# $Z set LMFichier=($LMFichier $MFichier) #
# #
# $Z set MinMaxTop=`$xcg/MIN2.01$X n1=$MFichier n2=$MinMaxTop` #
# #
# $Z $DELETE $xTV/Top.$Ngeo #
# #
# $Z end #
# #
# $Z set Paquet=10 #
# $Z set NPaquets=`$xcg/DIVZ.01$X signe="$K_VIDE" n1=$MinMaxTop n2=$Paquet` #
# $Z set NPaquets=`echo $NPaquets | $SE -e 's/\..*$//'` #
# $Z set Chiffres=8 #
# $Z set Chiffres=`$xcg/SOUS.01$X n1=$Chiffres n2=1` #
# $Z set Decalage=1 #
# $Z @ NPaquet0 = $NPaquet0 + $Decalage #
# $Z @ NPaquets = $NPaquets + $Decalage #
# $Z set LPaquets=`$xci/nombres$X p=$NPaquet0 d=$NPaquets A="$K_VIDE" nombre=$Chiffres` #
# #
# $Z @ NImages = $NPaquets + $Decalage #
# $Z echo "nombre d'images calculees=$NImages" #
# #
# $Z foreach Npoints ($LPaquets) #
# $Z @ Ntop = $Npoints - $Decalage #
# $Z set Ntop=`$xci/nombres$X p=$Ntop d=$Ntop A="$K_VIDE" nombre=$Chiffres` #
# $Z foreach Ngeo ($Lgeometry) #
# $Z $DELETE $xTV/C.$Ngeo.$Npoints #
# #
# $Z $CA $xTV/Traject.$Ngeo \ #
# $Z | $EGRE -e ' origine$| intermediaire$| extremite$' \ #
# $Z | $GRE " top=+$Ntop" \ #
# $Z > $xTV/C.$Ngeo.$Npoints #
# #
# $Z $DELETE $xTV/C.$Ngeo.$Npoints$COORD_X #
# $Z $DELETE $xTV/C.$Ngeo.$Npoints$COORD_Y #
# #
# $Z $CA $xTV/C.$Ngeo.$Npoints \ #
# $Z | $SE -e 's/^.* x=\([-+.e0-9][-+.e0-9]*\) .*$/\1/' \ #
# $Z > $xTV/C.$Ngeo.$Npoints$COORD_X #
# $Z $CA $xTV/C.$Ngeo.$Npoints \ #
# $Z | $SE -e 's/^.* y=\([-+.e0-9][-+.e0-9]*\) .*$/\1/' \ #
# $Z > $xTV/C.$Ngeo.$Npoints$COORD_Y #
# #
# $Z set Lcol=`$WC $xTV/C.$Ngeo.$Npoints` #
# $Z set Lcol=$Lcol[$WC1] #
# $Z $xrv/particule.10$X \ #
# $Z ATTENTION=FAUX \ #
# $Z np=1 iterations=$Lcol \ #
# $Z LISTE_X=$xTV/C.$Ngeo.$Npoints$COORD_X \ #
# $Z LISTE_Y=$xTV/C.$Ngeo.$Npoints$COORD_Y \ #
# $Z LISTE_Z=$Zcollis \ #
# $Z LISTE_ROUGE=$CRa_priori \ #
# $Z LISTE_VERTE=$CVa_priori \ #
# $Z LISTE_BLEUE=$CBa_priori \ #
# $Z isoles=VRAI \ #
# $Z Pajuster=VRAI \ #
# $Z AX=$HomoX BX=$TranX \ #
# $Z AY=$HomoY BY=$TranY \ #
# $Z rayon_de_visualisation=$Rcollis \ #
# $Z nombreR=$FConnexion \ #
# $Z ZOOM=$Rzoom \ #
# $Z tri=VRAI N_au_carre=FAUX \ #
# $Z fond=VRAI dynamique=FAUX \ #
# $Z F=$xiim/STRU.$Ngeo.0001 \ #
# $Z Lz=1000 \ #
# $Z R=$xiim/COLL.$Ngeo. \ #
# $Z $formatI #
# #
# $Z set Nreduc=`$xci/nombres$X p=$Ngeo d=$Ngeo A="$K_VIDE"` #
# #
# $Z $CP $xiim/COLL.$Ngeo.0001$ROUGE $xiim/REDU.$Nreduc$ROUGE #
# $Z $CP $xiim/COLL.$Ngeo.0001$VERTE $xiim/REDU.$Nreduc$VERTE #
# $Z $CP $xiim/COLL.$Ngeo.0001$BLEUE $xiim/REDU.$Nreduc$BLEUE #
# #
# $Z $DELETE $xTV/C.$Ngeo.$Npoints$COORD_X #
# $Z $DELETE $xTV/C.$Ngeo.$Npoints$COORD_Y #
# #
# $Z $DELETE $xTV/C.$Ngeo.$Npoints #
# $Z end #
# #
# $Z set Npoint=`$xci/nombres$X p=$Npoints d=$Npoints A="$K_VIDE"` #
# #
# $Z $xci/reduction_04$Z $xiim/REDU. \ #
# $Z $xw1/xxxx.pmc/COLL.$Npoint \ #
# $Z $Lgeometry[1] \ #
# $Z $Lgeometry[$#Lgeometry] #
# $Z $MV $xw1/xxxx.pmc/COLL.$Npoint$R04$ROUGE $xw1/xxxx.pmc/COLL.1.$Npoint$ROUGE #
# $Z $MV $xw1/xxxx.pmc/COLL.$Npoint$R04$VERTE $xw1/xxxx.pmc/COLL.1.$Npoint$VERTE #
# $Z $MV $xw1/xxxx.pmc/COLL.$Npoint$R04$BLEUE $xw1/xxxx.pmc/COLL.1.$Npoint$BLEUE #
# #
# $Z end #
# #
# $Z $DELETE $xTV/Traject.* #
# #
# $Z $DELETE $xiim/COLL.* #
# $Z $DELETE $xiim/REDU.* #
# $Z $DELETE $xiim/STRU.* #
# #
# #
# Pal #
# #
# $xci/disk_video_P$Z $xw1/xxxx.pmc/COLL.1. 0000 0255 RVB \ #
# 4 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# $xci/disk_video_P$Z $xw1/xxxx.pmc/COLL.1. 0256 0509 RVB \ #
# 4 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
sequence 026400_026512
# Sequence generee via '$xu/SB.Santra/kollision.32$f' par : #
# #
# #
# $Z Pal #
# #
# $Z set FConnexion=2 #
# $Z set CRstruc2d=$GRIS_8 #
# $Z set CVstruc2d=$GRIS_6 #
# $Z set CBstruc2d=$GRIS_2 #
# $Z set Rstruc2d=0.0100 #
# $Z set Zstruc2d=0.0 #
# $Z set Rcollis=0.0100 #
# $Z set Zcollis=0.0 #
# $Z set Rzoom=1.2 #
# #
# #
# $Z set Numerotage=4 #
# #
# #
# $Z $DELETE $xTV/geometry.1$k #
# $Z $DELETE $xTV/geometry.2$k #
# #
# $Z echo 'BEGIN {' >>! $xTV/geometry.1$k #
# $Z echo ' numero = 0;' >>! $xTV/geometry.1$k #
# $Z echo ' }' >>! $xTV/geometry.1$k #
# $Z echo '{' >>! $xTV/geometry.1$k #
# $Z echo 'numero++;' >>! $xTV/geometry.1$k #
# $Z echo 'ligne[numero] = $0;' >>! $xTV/geometry.1$k #
# $Z echo '}' >>! $xTV/geometry.1$k #
# $Z echo 'END {' >>! $xTV/geometry.1$k #
# $Z echo ' for (n=1 ; n<=numero ; n++)' >>! $xTV/geometry.1$k #
# $Z echo ' {' >>! $xTV/geometry.1$k #
# $Z echo ' printf("%s",ligne[n]);' >>! $xTV/geometry.1$k #
# $Z echo ' if ((n%2) == 0)' >>! $xTV/geometry.1$k #
# $Z echo ' {' >>! $xTV/geometry.1$k #
# $Z echo ' printf("\\n");' >>! $xTV/geometry.1$k #
# $Z echo ' }' >>! $xTV/geometry.1$k #
# $Z echo ' else' >>! $xTV/geometry.1$k #
# $Z echo ' {' >>! $xTV/geometry.1$k #
# $Z echo ' printf(" ");' >>! $xTV/geometry.1$k #
# $Z echo ' }' >>! $xTV/geometry.1$k #
# $Z echo ' }' >>! $xTV/geometry.1$k #
# $Z echo ' }' >>! $xTV/geometry.1$k #
# #
# $Z echo 'BEGIN {' >>! $xTV/geometry.2$k #
# $Z echo ' numero = 0;' >>! $xTV/geometry.2$k #
# $Z echo ' }' >>! $xTV/geometry.2$k #
# $Z echo '{' >>! $xTV/geometry.2$k #
# $Z echo 'numero++;' >>! $xTV/geometry.2$k #
# $Z echo 'ligne[numero] = $0;' >>! $xTV/geometry.2$k #
# $Z echo '}' >>! $xTV/geometry.2$k #
# $Z echo 'END {' >>! $xTV/geometry.2$k #
# $Z echo ' for (n=1 ; n<=numero ; n++)' >>! $xTV/geometry.2$k #
# $Z echo ' {' >>! $xTV/geometry.2$k #
# $Z echo ' printf("%s\\n",ligne[n]);' >>! $xTV/geometry.2$k #
# $Z echo ' if ((n > 1) && (n<numero))' >>! $xTV/geometry.2$k #
# $Z echo ' {' >>! $xTV/geometry.2$k #
# $Z echo ' printf("%s\\n",ligne[n]);' >>! $xTV/geometry.2$k #
# $Z echo ' }' >>! $xTV/geometry.2$k #
# $Z echo ' else' >>! $xTV/geometry.2$k #
# $Z echo ' {' >>! $xTV/geometry.2$k #
# $Z echo ' }' >>! $xTV/geometry.2$k #
# $Z echo ' }' >>! $xTV/geometry.2$k #
# $Z echo ' }' >>! $xTV/geometry.2$k #
# #
# $Z set Lgeometry={0,1,2,3} #
# #
# $Z foreach Ngeo ($Lgeometry) #
# #
# $Z setenv Fgeometry $xu/SB.Santra/npore$Ngeo.d #
# #
# $Z $DELETE $xTV/geometry #
# #
# $Z $CA $Fgeometry \ #
# $Z | $TAI +2 \ #
# $Z | $AW -f $xTV/geometry.1$k \ #
# $Z | $AW -f $xTV/geometry.2$k \ #
# $Z | $R "$K_BLANC" "$K_NL" \ #
# $Z > $xTV/geometry #
# #
# $Z set Lstruc2d=`$WC $xTV/geometry` #
# $Z set Lstruc2d=$Lstruc2d[$WC1] #
# $Z @ Lstruc2d = $Lstruc2d / 2 #
# #
# $Z $DELETE $xTV/struc2d$COORD_X #
# $Z $DELETE $xTV/struc2d$COORD_Y #
# $Z $DELETE $xTV/struc2d$COORD_Z #
# #
# $Z $CA $xTV/geometry \ #
# $Z | $NL -nrz -w$Numerotage \ #
# $Z | $R "$K_TAB" "$K_BLANC" \ #
# $Z | $GRE "[13579] " \ #
# $Z | $AW ' { print $2 } ' \ #
# $Z > $xTV/struc2d$COORD_X #
# $Z $CA $xTV/geometry \ #
# $Z | $NL -nrz -w$Numerotage \ #
# $Z | $R "$K_TAB" "$K_BLANC" \ #
# $Z | $GRE "[02468] " \ #
# $Z | $AW ' { print $2 } ' \ #
# $Z > $xTV/struc2d$COORD_Y #
# $Z $xci/valeurs_inte$X p=1 d=$Lstruc2d vD=$Zstruc2d vA=$Zstruc2d \ #
# $Z > $xTV/struc2d$COORD_Z #
# #
# $Z set FichierX="fichier=$xTV/struc2d$COORD_X" #
# $Z set FichierY="fichier=$xTV/struc2d$COORD_Y" #
# $Z set FichierXY="CAL1=FAUX ne=$Lstruc2d" #
# #
# $Z set ScaleX=`$xrv/extrema.01$X $FichierXY $FichierX` #
# $Z set HomoX=`echo "$ScaleX" | $SE -e "s/.*facteur d'homothetie=\([^ ][^ ]*\).*/\1/"` #
# #
# $Z set ScaleY=`$xrv/extrema.01$X $FichierXY $FichierY` #
# $Z set HomoY=`echo "$ScaleY" | $SE -e "s/.*facteur d'homothetie=\([^ ][^ ]*\).*/\1/"` #
# #
# $Z set HomoXYZ=`$xcg/MIN2.01$X n1=$HomoX n2=$HomoY` #
# $Z set Minimum=0 #
# $Z set Maximum=1 #
# $Z set Milieu=`$xcg/SOUS.01$X n1=$Maximum n2=$Minimum` #
# $Z set Milieu=`$xcg/MOIT.01$X n=$Milieu` #
# $Z set Milieu=`echo $Milieu | $SE -e "s/^.//"` #
# #
# $Z if ("$HomoX" != "$HomoXYZ") then #
# $Z set HomoX1=`$xcg/DIVZ.01$X n1=$HomoXYZ n2=$HomoX` #
# $Z set MinimumX=`$xcg/AXPB.01$X a=-$Milieu x=$HomoX1 b=$Milieu` #
# $Z set MaximumX=`$xcg/AXPB.01$X a=+$Milieu x=$HomoX1 b=$Milieu` #
# #
# $Z set MinimumY=$Minimum #
# $Z set MaximumY=$Maximum #
# $Z else #
# $Z set MinimumX=$Minimum #
# $Z set MaximumX=$Maximum #
# #
# $Z set HomoY1=`$xcg/DIVZ.01$X n1=$HomoXYZ n2=$HomoY` #
# $Z set MinimumY=`$xcg/AXPB.01$X a=-$Milieu x=$HomoY1 b=$Milieu` #
# $Z set MaximumY=`$xcg/AXPB.01$X a=+$Milieu x=$HomoY1 b=$Milieu` #
# $Z endif #
# #
# $Z set ScaleX=`$xrv/extrema.01$X $FichierXY $FichierX m=$MinimumX M=$MaximumX` #
# $Z set HomoX=`echo "$ScaleX" | $SE -e "s/.*facteur d'homothetie=\([^ ][^ ]*\).*/\1/"` #
# $Z set TranX=`echo "$ScaleX" | $SE -e "s/.*translation.*=\([^ ][^ ]*\).*/\1/"` #
# #
# $Z set ScaleY=`$xrv/extrema.01$X $FichierXY $FichierY m=$MinimumY M=$MaximumY` #
# $Z set HomoY=`echo "$ScaleY" | $SE -e "s/.*facteur d'homothetie=\([^ ][^ ]*\).*/\1/"` #
# $Z set TranY=`echo "$ScaleY" | $SE -e "s/.*translation.*=\([^ ][^ ]*\).*/\1/"` #
# #
# $Z $xrv/particule.10$X \ #
# $Z ATTENTION=FAUX \ #
# $Z np=1 iterations=$Lstruc2d \ #
# $Z LISTE_X=$xTV/struc2d$COORD_X \ #
# $Z LISTE_Y=$xTV/struc2d$COORD_Y \ #
# $Z LISTE_Z=$xTV/struc2d$COORD_Z \ #
# $Z LISTE_ROUGE=$CRstruc2d \ #
# $Z LISTE_VERTE=$CVstruc2d \ #
# $Z LISTE_BLEUE=$CBstruc2d \ #
# $Z isoles=FAUX Pajuster=VRAI \ #
# $Z AX=$HomoX BX=$TranX \ #
# $Z AY=$HomoY BY=$TranY \ #
# $Z rayon_de_visualisation=$Rstruc2d \ #
# $Z nombreR=$FConnexion \ #
# $Z ZOOM=$Rzoom \ #
# $Z tri=VRAI N_au_carre=FAUX \ #
# $Z Lz=1000 \ #
# $Z R=$xiim/STRU.$Ngeo. \ #
# $Z $formatI #
# #
# $Z set Nreduc=`$xci/nombres$X p=$Ngeo d=$Ngeo A="$K_VIDE"` #
# #
# $Z $CP $xiim/STRU.$Ngeo.0001$ROUGE $xiim/REDU.$Nreduc$ROUGE #
# $Z $CP $xiim/STRU.$Ngeo.0001$VERTE $xiim/REDU.$Nreduc$VERTE #
# $Z $CP $xiim/STRU.$Ngeo.0001$BLEUE $xiim/REDU.$Nreduc$BLEUE #
# #
# #
# $Z PushdC $xu/SB.Santra #
# #
# $Z $DELETE $xTV/Traject.$Ngeo #
# $Z $xu/SB.Santra/$aPout \ #
# $Z > $xTV/Traject.$Ngeo #
# $Z PopdC #
# #
# $Z end #
# #
# $Z set CRa_priori=$GRIS_8 #
# $Z set CVa_priori=$GRIS_8 #
# $Z set CBa_priori=$GRIS_8 #
# #
# $Z set NPaquet0=0 #
# $Z set Npoint=`$xci/nombres$X p=$NPaquet0 d=$NPaquet0 A="$K_VIDE"` #
# #
# $Z $xci/reduction_04$Z $xiim/REDU. \ #
# $Z $xw1/xxxx.pmc/COLL.$Npoint \ #
# $Z $Lgeometry[1] \ #
# $Z $Lgeometry[$#Lgeometry] #
# $Z $MV $xw1/xxxx.pmc/COLL.$Npoint$R04$ROUGE $xw1/xxxx.pmc/COLL.2.$Npoint$ROUGE #
# $Z $MV $xw1/xxxx.pmc/COLL.$Npoint$R04$VERTE $xw1/xxxx.pmc/COLL.2.$Npoint$VERTE #
# $Z $MV $xw1/xxxx.pmc/COLL.$Npoint$R04$BLEUE $xw1/xxxx.pmc/COLL.2.$Npoint$BLEUE #
# #
# #
# $Z $DELETE $xTV/geometry.1$k #
# $Z $DELETE $xTV/geometry.2$k #
# $Z $DELETE $xTV/geometry #
# $Z $DELETE $xTV/struc2d$COORD_X #
# $Z $DELETE $xTV/struc2d$COORD_Y #
# $Z $DELETE $xTV/struc2d$COORD_Z #
# #
# $Z set LmFichier=() #
# $Z set LMFichier=() #
# #
# $Z set MinMaxTop=`$xcp/Konstantes$X | grep " F_INFINI "` #
# $Z set MinMaxTop=`echo $MinMaxTop | $SE -e 's/^.* \([-+e0-9][-+e0-9]*\) .*$/\1/'` #
# #
# $Z foreach Ngeo ($Lgeometry) #
# $Z $DELETE $xTV/Top.$Ngeo #
# #
# $Z $CA $xTV/Traject.$Ngeo \ #
# $Z | $GRE ' fin$' \ #
# $Z | $SE -e "s/^.* top=//" \ #
# $Z -e 's/ .*$//' \ #
# $Z > $xTV/Top.$Ngeo #
# #
# $Z set Fichier="fichier=$xTV/Top.$Ngeo" #
# $Z set SFichier=`$WC $xTV/Top.$Ngeo` #
# $Z set SFichier=$SFichier[$WC1] #
# $Z set AFichier="CAL1=FAUX ne=$SFichier" #
# #
# $Z set MmFichier=`$xrv/extrema.01$X $AFichier $Fichier` #
# $Z set mFichier=`echo "$MmFichier" | $SE -e "s/.*minimum=\([^ ][^ ]*\).*/\1/"` #
# $Z set MFichier=`echo "$MmFichier" | $SE -e "s/.*maximum=\([^ ][^ ]*\).*/\1/"` #
# #
# $Z set LmFichier=($LmFichier $mFichier) #
# $Z set LMFichier=($LMFichier $MFichier) #
# #
# $Z set MinMaxTop=`$xcg/MIN2.01$X n1=$MFichier n2=$MinMaxTop` #
# #
# $Z $DELETE $xTV/Top.$Ngeo #
# #
# $Z end #
# #
# $Z set Paquet=10 #
# $Z set NPaquets=`$xcg/DIVZ.01$X signe="$K_VIDE" n1=$MinMaxTop n2=$Paquet` #
# $Z set NPaquets=`echo $NPaquets | $SE -e 's/\..*$//'` #
# $Z set Chiffres=8 #
# $Z set Chiffres=`$xcg/SOUS.01$X n1=$Chiffres n2=1` #
# $Z set Decalage=1 #
# $Z @ NPaquet0 = $NPaquet0 + $Decalage #
# $Z @ NPaquets = $NPaquets + $Decalage #
# $Z set LPaquets=`$xci/nombres$X p=$NPaquet0 d=$NPaquets A="$K_VIDE" nombre=$Chiffres` #
# #
# $Z @ NImages = $NPaquets + $Decalage #
# $Z echo "nombre d'images calculees=$NImages" #
# #
# $Z foreach Npoints ($LPaquets) #
# $Z @ Ntop = $Npoints - $Decalage #
# $Z set Ntop=`$xci/nombres$X p=$Ntop d=$Ntop A="$K_VIDE" nombre=$Chiffres` #
# $Z foreach Ngeo ($Lgeometry) #
# $Z $DELETE $xTV/C.$Ngeo.$Npoints #
# #
# $Z $CA $xTV/Traject.$Ngeo \ #
# $Z | $EGRE -e ' origine$| intermediaire$| extremite$' \ #
# $Z | $GRE " top=+$Ntop" \ #
# $Z > $xTV/C.$Ngeo.$Npoints #
# #
# $Z $DELETE $xTV/C.$Ngeo.$Npoints$COORD_X #
# $Z $DELETE $xTV/C.$Ngeo.$Npoints$COORD_Y #
# #
# $Z $CA $xTV/C.$Ngeo.$Npoints \ #
# $Z | $SE -e 's/^.* x=\([-+.e0-9][-+.e0-9]*\) .*$/\1/' \ #
# $Z > $xTV/C.$Ngeo.$Npoints$COORD_X #
# $Z $CA $xTV/C.$Ngeo.$Npoints \ #
# $Z | $SE -e 's/^.* y=\([-+.e0-9][-+.e0-9]*\) .*$/\1/' \ #
# $Z > $xTV/C.$Ngeo.$Npoints$COORD_Y #
# #
# $Z set Lcol=`$WC $xTV/C.$Ngeo.$Npoints` #
# $Z set Lcol=$Lcol[$WC1] #
# $Z $xrv/particule.10$X \ #
# $Z ATTENTION=FAUX \ #
# $Z np=1 iterations=$Lcol \ #
# $Z LISTE_X=$xTV/C.$Ngeo.$Npoints$COORD_X \ #
# $Z LISTE_Y=$xTV/C.$Ngeo.$Npoints$COORD_Y \ #
# $Z LISTE_Z=$Zcollis \ #
# $Z LISTE_ROUGE=$CRa_priori \ #
# $Z LISTE_VERTE=$CVa_priori \ #
# $Z LISTE_BLEUE=$CBa_priori \ #
# $Z isoles=VRAI \ #
# $Z Pajuster=VRAI \ #
# $Z AX=$HomoX BX=$TranX \ #
# $Z AY=$HomoY BY=$TranY \ #
# $Z rayon_de_visualisation=$Rcollis \ #
# $Z nombreR=$FConnexion \ #
# $Z ZOOM=$Rzoom \ #
# $Z tri=VRAI N_au_carre=FAUX \ #
# $Z fond=VRAI dynamique=FAUX \ #
# $Z F=$xiim/STRU.$Ngeo.0001 \ #
# $Z Lz=1000 \ #
# $Z R=$xiim/COLL.$Ngeo. \ #
# $Z $formatI #
# #
# $Z set Nreduc=`$xci/nombres$X p=$Ngeo d=$Ngeo A="$K_VIDE"` #
# #
# $Z $CP $xiim/COLL.$Ngeo.0001$ROUGE $xiim/REDU.$Nreduc$ROUGE #
# $Z $CP $xiim/COLL.$Ngeo.0001$VERTE $xiim/REDU.$Nreduc$VERTE #
# $Z $CP $xiim/COLL.$Ngeo.0001$BLEUE $xiim/REDU.$Nreduc$BLEUE #
# #
# $Z $DELETE $xTV/C.$Ngeo.$Npoints$COORD_X #
# $Z $DELETE $xTV/C.$Ngeo.$Npoints$COORD_Y #
# #
# $Z $DELETE $xTV/C.$Ngeo.$Npoints #
# $Z end #
# #
# $Z set Npoint=`$xci/nombres$X p=$Npoints d=$Npoints A="$K_VIDE"` #
# #
# $Z $xci/reduction_04$Z $xiim/REDU. \ #
# $Z $xw1/xxxx.pmc/COLL.$Npoint \ #
# $Z $Lgeometry[1] \ #
# $Z $Lgeometry[$#Lgeometry] #
# $Z $MV $xw1/xxxx.pmc/COLL.$Npoint$R04$ROUGE $xw1/xxxx.pmc/COLL.2.$Npoint$ROUGE #
# $Z $MV $xw1/xxxx.pmc/COLL.$Npoint$R04$VERTE $xw1/xxxx.pmc/COLL.2.$Npoint$VERTE #
# $Z $MV $xw1/xxxx.pmc/COLL.$Npoint$R04$BLEUE $xw1/xxxx.pmc/COLL.2.$Npoint$BLEUE #
# #
# $Z end #
# #
# $Z $DELETE $xTV/Traject.* #
# #
# $Z $DELETE $xiim/COLL.* #
# $Z $DELETE $xiim/REDU.* #
# $Z $DELETE $xiim/STRU.* #
# #
# #
# Pal #
# #
# $xci/disk_video_P$Z $xw1/xxxx.pmc/COLL.2. 0000 0112 RVB \ #
# 4 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
sequence 026513_026612
# Sequence generee via '$xu/SB.Santra/kollision.32$f' par : cette sequence est identique #
# a la sequence : #
# #
# xivPdf 4 2 / 026400_026512 #
# #
# en remplacant '$MFichier' par '$mFichier' dans le calcul de '$MinMaxTop' afin de ne plus #
# avoir le phenomene d'evaporation des trajectoires vu precedemment. Ainsi, on garantit que #
# toutes les trajectroires ont la meme duree (le minimum '$mFichier'). #
# #
# #
# $Z Pal #
# #
# $Z set FConnexion=2 #
# $Z set CRstruc2d=$GRIS_8 #
# $Z set CVstruc2d=$GRIS_6 #
# $Z set CBstruc2d=$GRIS_2 #
# $Z set Rstruc2d=0.0100 #
# $Z set Zstruc2d=0.0 #
# $Z set Rcollis=0.0100 #
# $Z set Zcollis=0.0 #
# $Z set Rzoom=1.2 #
# #
# #
# $Z set Numerotage=4 #
# #
# #
# $Z $DELETE $xTV/geometry.1$k #
# $Z $DELETE $xTV/geometry.2$k #
# #
# $Z echo 'BEGIN {' >>! $xTV/geometry.1$k #
# $Z echo ' numero = 0;' >>! $xTV/geometry.1$k #
# $Z echo ' }' >>! $xTV/geometry.1$k #
# $Z echo '{' >>! $xTV/geometry.1$k #
# $Z echo 'numero++;' >>! $xTV/geometry.1$k #
# $Z echo 'ligne[numero] = $0;' >>! $xTV/geometry.1$k #
# $Z echo '}' >>! $xTV/geometry.1$k #
# $Z echo 'END {' >>! $xTV/geometry.1$k #
# $Z echo ' for (n=1 ; n<=numero ; n++)' >>! $xTV/geometry.1$k #
# $Z echo ' {' >>! $xTV/geometry.1$k #
# $Z echo ' printf("%s",ligne[n]);' >>! $xTV/geometry.1$k #
# $Z echo ' if ((n%2) == 0)' >>! $xTV/geometry.1$k #
# $Z echo ' {' >>! $xTV/geometry.1$k #
# $Z echo ' printf("\\n");' >>! $xTV/geometry.1$k #
# $Z echo ' }' >>! $xTV/geometry.1$k #
# $Z echo ' else' >>! $xTV/geometry.1$k #
# $Z echo ' {' >>! $xTV/geometry.1$k #
# $Z echo ' printf(" ");' >>! $xTV/geometry.1$k #
# $Z echo ' }' >>! $xTV/geometry.1$k #
# $Z echo ' }' >>! $xTV/geometry.1$k #
# $Z echo ' }' >>! $xTV/geometry.1$k #
# #
# $Z echo 'BEGIN {' >>! $xTV/geometry.2$k #
# $Z echo ' numero = 0;' >>! $xTV/geometry.2$k #
# $Z echo ' }' >>! $xTV/geometry.2$k #
# $Z echo '{' >>! $xTV/geometry.2$k #
# $Z echo 'numero++;' >>! $xTV/geometry.2$k #
# $Z echo 'ligne[numero] = $0;' >>! $xTV/geometry.2$k #
# $Z echo '}' >>! $xTV/geometry.2$k #
# $Z echo 'END {' >>! $xTV/geometry.2$k #
# $Z echo ' for (n=1 ; n<=numero ; n++)' >>! $xTV/geometry.2$k #
# $Z echo ' {' >>! $xTV/geometry.2$k #
# $Z echo ' printf("%s\\n",ligne[n]);' >>! $xTV/geometry.2$k #
# $Z echo ' if ((n > 1) && (n<numero))' >>! $xTV/geometry.2$k #
# $Z echo ' {' >>! $xTV/geometry.2$k #
# $Z echo ' printf("%s\\n",ligne[n]);' >>! $xTV/geometry.2$k #
# $Z echo ' }' >>! $xTV/geometry.2$k #
# $Z echo ' else' >>! $xTV/geometry.2$k #
# $Z echo ' {' >>! $xTV/geometry.2$k #
# $Z echo ' }' >>! $xTV/geometry.2$k #
# $Z echo ' }' >>! $xTV/geometry.2$k #
# $Z echo ' }' >>! $xTV/geometry.2$k #
# #
# $Z set Lgeometry={0,1,2,3} #
# #
# $Z foreach Ngeo ($Lgeometry) #
# #
# $Z setenv Fgeometry $xu/SB.Santra/npore$Ngeo.d #
# #
# $Z $DELETE $xTV/geometry #
# #
# $Z $CA $Fgeometry \ #
# $Z | $TAI +2 \ #
# $Z | $AW -f $xTV/geometry.1$k \ #
# $Z | $AW -f $xTV/geometry.2$k \ #
# $Z | $R "$K_BLANC" "$K_NL" \ #
# $Z > $xTV/geometry #
# #
# $Z set Lstruc2d=`$WC $xTV/geometry` #
# $Z set Lstruc2d=$Lstruc2d[$WC1] #
# $Z @ Lstruc2d = $Lstruc2d / 2 #
# #
# $Z $DELETE $xTV/struc2d$COORD_X #
# $Z $DELETE $xTV/struc2d$COORD_Y #
# $Z $DELETE $xTV/struc2d$COORD_Z #
# #
# $Z $CA $xTV/geometry \ #
# $Z | $NL -nrz -w$Numerotage \ #
# $Z | $R "$K_TAB" "$K_BLANC" \ #
# $Z | $GRE "[13579] " \ #
# $Z | $AW ' { print $2 } ' \ #
# $Z > $xTV/struc2d$COORD_X #
# $Z $CA $xTV/geometry \ #
# $Z | $NL -nrz -w$Numerotage \ #
# $Z | $R "$K_TAB" "$K_BLANC" \ #
# $Z | $GRE "[02468] " \ #
# $Z | $AW ' { print $2 } ' \ #
# $Z > $xTV/struc2d$COORD_Y #
# $Z $xci/valeurs_inte$X p=1 d=$Lstruc2d vD=$Zstruc2d vA=$Zstruc2d \ #
# $Z > $xTV/struc2d$COORD_Z #
# #
# $Z set FichierX="fichier=$xTV/struc2d$COORD_X" #
# $Z set FichierY="fichier=$xTV/struc2d$COORD_Y" #
# $Z set FichierXY="CAL1=FAUX ne=$Lstruc2d" #
# #
# $Z set ScaleX=`$xrv/extrema.01$X $FichierXY $FichierX` #
# $Z set HomoX=`echo "$ScaleX" | $SE -e "s/.*facteur d'homothetie=\([^ ][^ ]*\).*/\1/"` #
# #
# $Z set ScaleY=`$xrv/extrema.01$X $FichierXY $FichierY` #
# $Z set HomoY=`echo "$ScaleY" | $SE -e "s/.*facteur d'homothetie=\([^ ][^ ]*\).*/\1/"` #
# #
# $Z set HomoXYZ=`$xcg/MIN2.01$X n1=$HomoX n2=$HomoY` #
# $Z set Minimum=0 #
# $Z set Maximum=1 #
# $Z set Milieu=`$xcg/SOUS.01$X n1=$Maximum n2=$Minimum` #
# $Z set Milieu=`$xcg/MOIT.01$X n=$Milieu` #
# $Z set Milieu=`echo $Milieu | $SE -e "s/^.//"` #
# #
# $Z if ("$HomoX" != "$HomoXYZ") then #
# $Z set HomoX1=`$xcg/DIVZ.01$X n1=$HomoXYZ n2=$HomoX` #
# $Z set MinimumX=`$xcg/AXPB.01$X a=-$Milieu x=$HomoX1 b=$Milieu` #
# $Z set MaximumX=`$xcg/AXPB.01$X a=+$Milieu x=$HomoX1 b=$Milieu` #
# #
# $Z set MinimumY=$Minimum #
# $Z set MaximumY=$Maximum #
# $Z else #
# $Z set MinimumX=$Minimum #
# $Z set MaximumX=$Maximum #
# #
# $Z set HomoY1=`$xcg/DIVZ.01$X n1=$HomoXYZ n2=$HomoY` #
# $Z set MinimumY=`$xcg/AXPB.01$X a=-$Milieu x=$HomoY1 b=$Milieu` #
# $Z set MaximumY=`$xcg/AXPB.01$X a=+$Milieu x=$HomoY1 b=$Milieu` #
# $Z endif #
# #
# $Z set ScaleX=`$xrv/extrema.01$X $FichierXY $FichierX m=$MinimumX M=$MaximumX` #
# $Z set HomoX=`echo "$ScaleX" | $SE -e "s/.*facteur d'homothetie=\([^ ][^ ]*\).*/\1/"` #
# $Z set TranX=`echo "$ScaleX" | $SE -e "s/.*translation.*=\([^ ][^ ]*\).*/\1/"` #
# #
# $Z set ScaleY=`$xrv/extrema.01$X $FichierXY $FichierY m=$MinimumY M=$MaximumY` #
# $Z set HomoY=`echo "$ScaleY" | $SE -e "s/.*facteur d'homothetie=\([^ ][^ ]*\).*/\1/"` #
# $Z set TranY=`echo "$ScaleY" | $SE -e "s/.*translation.*=\([^ ][^ ]*\).*/\1/"` #
# #
# $Z $xrv/particule.10$X \ #
# $Z ATTENTION=FAUX \ #
# $Z np=1 iterations=$Lstruc2d \ #
# $Z LISTE_X=$xTV/struc2d$COORD_X \ #
# $Z LISTE_Y=$xTV/struc2d$COORD_Y \ #
# $Z LISTE_Z=$xTV/struc2d$COORD_Z \ #
# $Z LISTE_ROUGE=$CRstruc2d \ #
# $Z LISTE_VERTE=$CVstruc2d \ #
# $Z LISTE_BLEUE=$CBstruc2d \ #
# $Z isoles=FAUX Pajuster=VRAI \ #
# $Z AX=$HomoX BX=$TranX \ #
# $Z AY=$HomoY BY=$TranY \ #
# $Z rayon_de_visualisation=$Rstruc2d \ #
# $Z nombreR=$FConnexion \ #
# $Z ZOOM=$Rzoom \ #
# $Z tri=VRAI N_au_carre=FAUX \ #
# $Z Lz=1000 \ #
# $Z R=$xiim/STRU.$Ngeo. \ #
# $Z $formatI #
# #
# $Z set Nreduc=`$xci/nombres$X p=$Ngeo d=$Ngeo A="$K_VIDE"` #
# #
# $Z $CP $xiim/STRU.$Ngeo.0001$ROUGE $xiim/REDU.$Nreduc$ROUGE #
# $Z $CP $xiim/STRU.$Ngeo.0001$VERTE $xiim/REDU.$Nreduc$VERTE #
# $Z $CP $xiim/STRU.$Ngeo.0001$BLEUE $xiim/REDU.$Nreduc$BLEUE #
# #
# #
# $Z PushdC $xu/SB.Santra #
# #
# $Z $DELETE $xTV/Traject.$Ngeo #
# $Z $xu/SB.Santra/$aPout \ #
# $Z > $xTV/Traject.$Ngeo #
# $Z PopdC #
# #
# $Z end #
# #
# $Z set CRa_priori=$GRIS_8 #
# $Z set CVa_priori=$GRIS_8 #
# $Z set CBa_priori=$GRIS_8 #
# #
# $Z set NPaquet0=0 #
# $Z set Npoint=`$xci/nombres$X p=$NPaquet0 d=$NPaquet0 A="$K_VIDE"` #
# #
# $Z $xci/reduction_04$Z $xiim/REDU. \ #
# $Z $xw1/xxxx.pmc/COLL.$Npoint \ #
# $Z $Lgeometry[1] \ #
# $Z $Lgeometry[$#Lgeometry] #
# $Z $MV $xw1/xxxx.pmc/COLL.$Npoint$R04$ROUGE $xw1/xxxx.pmc/COLL.3.$Npoint$ROUGE #
# $Z $MV $xw1/xxxx.pmc/COLL.$Npoint$R04$VERTE $xw1/xxxx.pmc/COLL.3.$Npoint$VERTE #
# $Z $MV $xw1/xxxx.pmc/COLL.$Npoint$R04$BLEUE $xw1/xxxx.pmc/COLL.3.$Npoint$BLEUE #
# #
# #
# $Z $DELETE $xTV/geometry.1$k #
# $Z $DELETE $xTV/geometry.2$k #
# $Z $DELETE $xTV/geometry #
# $Z $DELETE $xTV/struc2d$COORD_X #
# $Z $DELETE $xTV/struc2d$COORD_Y #
# $Z $DELETE $xTV/struc2d$COORD_Z #
# #
# $Z set LmFichier=() #
# $Z set LMFichier=() #
# #
# $Z set MinMaxTop=`$xcp/Konstantes$X | grep " F_INFINI "` #
# $Z set MinMaxTop=`echo $MinMaxTop | $SE -e 's/^.* \([-+e0-9][-+e0-9]*\) .*$/\1/'` #
# #
# $Z foreach Ngeo ($Lgeometry) #
# $Z $DELETE $xTV/Top.$Ngeo #
# #
# $Z $CA $xTV/Traject.$Ngeo \ #
# $Z | $GRE ' fin$' \ #
# $Z | $SE -e "s/^.* top=//" \ #
# $Z -e 's/ .*$//' \ #
# $Z > $xTV/Top.$Ngeo #
# #
# $Z set Fichier="fichier=$xTV/Top.$Ngeo" #
# $Z set SFichier=`$WC $xTV/Top.$Ngeo` #
# $Z set SFichier=$SFichier[$WC1] #
# $Z set AFichier="CAL1=FAUX ne=$SFichier" #
# #
# $Z set MmFichier=`$xrv/extrema.01$X $AFichier $Fichier` #
# $Z set mFichier=`echo "$MmFichier" | $SE -e "s/.*minimum=\([^ ][^ ]*\).*/\1/"` #
# $Z set MFichier=`echo "$MmFichier" | $SE -e "s/.*maximum=\([^ ][^ ]*\).*/\1/"` #
# #
# $Z set LmFichier=($LmFichier $mFichier) #
# $Z set LMFichier=($LMFichier $MFichier) #
# #
# $Z set MinMaxTop=`$xcg/MIN2.01$X n1=$mFichier n2=$MinMaxTop` #
# #
# $Z $DELETE $xTV/Top.$Ngeo #
# #
# $Z end #
# #
# $Z set Paquet=10 #
# $Z set NPaquets=`$xcg/DIVZ.01$X signe="$K_VIDE" n1=$MinMaxTop n2=$Paquet` #
# $Z set NPaquets=`echo $NPaquets | $SE -e 's/\..*$//'` #
# $Z set Chiffres=8 #
# $Z set Chiffres=`$xcg/SOUS.01$X n1=$Chiffres n2=1` #
# $Z set Decalage=1 #
# $Z @ NPaquet0 = $NPaquet0 + $Decalage #
# $Z @ NPaquets = $NPaquets + $Decalage #
# $Z set LPaquets=`$xci/nombres$X p=$NPaquet0 d=$NPaquets A="$K_VIDE" nombre=$Chiffres` #
# #
# $Z @ NImages = $NPaquets + $Decalage #
# $Z echo "nombre d'images calculees=$NImages" #
# #
# $Z foreach Npoints ($LPaquets) #
# $Z @ Ntop = $Npoints - $Decalage #
# $Z set Ntop=`$xci/nombres$X p=$Ntop d=$Ntop A="$K_VIDE" nombre=$Chiffres` #
# $Z foreach Ngeo ($Lgeometry) #
# $Z $DELETE $xTV/C.$Ngeo.$Npoints #
# #
# $Z $CA $xTV/Traject.$Ngeo \ #
# $Z | $EGRE -e ' origine$| intermediaire$| extremite$' \ #
# $Z | $GRE " top=+$Ntop" \ #
# $Z > $xTV/C.$Ngeo.$Npoints #
# #
# $Z $DELETE $xTV/C.$Ngeo.$Npoints$COORD_X #
# $Z $DELETE $xTV/C.$Ngeo.$Npoints$COORD_Y #
# #
# $Z $CA $xTV/C.$Ngeo.$Npoints \ #
# $Z | $SE -e 's/^.* x=\([-+.e0-9][-+.e0-9]*\) .*$/\1/' \ #
# $Z > $xTV/C.$Ngeo.$Npoints$COORD_X #
# $Z $CA $xTV/C.$Ngeo.$Npoints \ #
# $Z | $SE -e 's/^.* y=\([-+.e0-9][-+.e0-9]*\) .*$/\1/' \ #
# $Z > $xTV/C.$Ngeo.$Npoints$COORD_Y #
# #
# $Z set Lcol=`$WC $xTV/C.$Ngeo.$Npoints` #
# $Z set Lcol=$Lcol[$WC1] #
# $Z $xrv/particule.10$X \ #
# $Z ATTENTION=FAUX \ #
# $Z np=1 iterations=$Lcol \ #
# $Z LISTE_X=$xTV/C.$Ngeo.$Npoints$COORD_X \ #
# $Z LISTE_Y=$xTV/C.$Ngeo.$Npoints$COORD_Y \ #
# $Z LISTE_Z=$Zcollis \ #
# $Z LISTE_ROUGE=$CRa_priori \ #
# $Z LISTE_VERTE=$CVa_priori \ #
# $Z LISTE_BLEUE=$CBa_priori \ #
# $Z isoles=VRAI \ #
# $Z Pajuster=VRAI \ #
# $Z AX=$HomoX BX=$TranX \ #
# $Z AY=$HomoY BY=$TranY \ #
# $Z rayon_de_visualisation=$Rcollis \ #
# $Z nombreR=$FConnexion \ #
# $Z ZOOM=$Rzoom \ #
# $Z tri=VRAI N_au_carre=FAUX \ #
# $Z fond=VRAI dynamique=FAUX \ #
# $Z F=$xiim/STRU.$Ngeo.0001 \ #
# $Z Lz=1000 \ #
# $Z R=$xiim/COLL.$Ngeo. \ #
# $Z $formatI #
# #
# $Z set Nreduc=`$xci/nombres$X p=$Ngeo d=$Ngeo A="$K_VIDE"` #
# #
# $Z $CP $xiim/COLL.$Ngeo.0001$ROUGE $xiim/REDU.$Nreduc$ROUGE #
# $Z $CP $xiim/COLL.$Ngeo.0001$VERTE $xiim/REDU.$Nreduc$VERTE #
# $Z $CP $xiim/COLL.$Ngeo.0001$BLEUE $xiim/REDU.$Nreduc$BLEUE #
# #
# $Z $DELETE $xTV/C.$Ngeo.$Npoints$COORD_X #
# $Z $DELETE $xTV/C.$Ngeo.$Npoints$COORD_Y #
# #
# $Z $DELETE $xTV/C.$Ngeo.$Npoints #
# $Z end #
# #
# $Z set Npoint=`$xci/nombres$X p=$Npoints d=$Npoints A="$K_VIDE"` #
# #
# $Z $xci/reduction_04$Z $xiim/REDU. \ #
# $Z $xw1/xxxx.pmc/COLL.$Npoint \ #
# $Z $Lgeometry[1] \ #
# $Z $Lgeometry[$#Lgeometry] #
# $Z $MV $xw1/xxxx.pmc/COLL.$Npoint$R04$ROUGE $xw1/xxxx.pmc/COLL.3.$Npoint$ROUGE #
# $Z $MV $xw1/xxxx.pmc/COLL.$Npoint$R04$VERTE $xw1/xxxx.pmc/COLL.3.$Npoint$VERTE #
# $Z $MV $xw1/xxxx.pmc/COLL.$Npoint$R04$BLEUE $xw1/xxxx.pmc/COLL.3.$Npoint$BLEUE #
# #
# $Z end #
# #
# $Z $DELETE $xTV/Traject.* #
# #
# $Z $DELETE $xiim/COLL.* #
# $Z $DELETE $xiim/REDU.* #
# $Z $DELETE $xiim/STRU.* #
# #
# #
# Pal #
# #
# $xci/disk_video_P$Z $xw1/xxxx.pmc/COLL.3. 0000 0099 RVB \ #
# 4 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
sequence 026613_026693
# Sequence generee par a partir du programme : #
# #
# $xu/SB.Santra/glass.12$f #
# #
# avec les parametres : #
# #
# parameter (lx=2**6) #
# parameter (cs1=0.16,cs2=0.08) #
# #
# #
# $Z S #
# $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS #
# #
# #
# $Z Suh #
# #
# $Z SET Premiere=0 #
# $Z SET Derniere=62 #
# #
# $Z @ Taille = $taille_Suh * 4 #
# #
# $X $xci/genere$X premiere=$Premiere derniere=$Derniere pas=1 \ #
# $X C='$CA \ #
# $X $xiim/GLAS.%04d | \ #
# $X $xcg/extract$X \ #
# $X eliminer=4 \ #
# $X conserver=$Taille | \ #
# $X $xcg/float_Float$X \ #
# $X $formatI | \ #
# $X $xci/acces$X \ #
# $X standard=FAUX \ #
# $X zero=VRAI \ #
# $X $formatI | \ #
# $X $xci/format.01$X \ #
# $X $formatI \ #
# $X mode=0 \ #
# $X $formatR_Std | \ #
# $X $xci/vraies_C$X \ #
# $X p=$xiP/pmc.73 \ #
# $X RVB=VRAI \ #
# $X R=$xw1/xxxx.pmc/GLAS.2.G8.%04d \ #
# $X $format_Std' #
# #
# $Z xiim #
# $Z $DELETE GLAS.* #
# #
# #
# Std #
# #
# $xci/disk_video_P$Z $xw1/xxxx.pmc/GLAS.2.G8. 0000 0080 RVB \ #
# 4 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz FAUX VRAI FAUX #
# #
# ATTENTION, en fait les images vont de '0000' a '0062' (Derniere=62), mais malheureusement #
# des "residus" d'une execution en mode 'Sud' avaient crees des images '0000' a '0281' qui #
# n'ayant pas ete detruites se sont vues conservees au bout ('0063' a '0281') de la bonne #
# sequence. Je m'en suis appercu en cours de route, d'ou un arret de l'enregistrement sur #
# l'image '0080' (qui est evidemment mauvaise...). #
sequence 026694_026795
# Sequence generee par a partir du programme : #
# #
# $xu/SB.Santra/dissol3.12$f #
# #
# avec les parametres : #
# #
# parameter (lx=2**6) #
# parameter (cs1=0.32,cs2=0.32) #
# #
# #
# $Z S #
# $Z setenv LONGUEUR_NOMS $xLONGUEUR_NOMS #
# #
# #
# $Z Suh #
# #
# $Z SET Premiere=0 #
# $Z SET Derniere=101 #
# #
# $Z @ Taille = $taille_Suh * 4 #
# #
# $X $xci/genere$X premiere=$Premiere derniere=$Derniere pas=1 \ #
# $X C='$CA \ #
# $X $xiim/DISS.%04d | \ #
# $X $xcg/extract$X \ #
# $X eliminer=4 \ #
# $X conserver=$Taille | \ #
# $X $xcg/float_Float$X \ #
# $X $formatI | \ #
# $X $xci/acces$X \ #
# $X standard=FAUX \ #
# $X zero=VRAI \ #
# $X $formatI | \ #
# $X $xci/format.01$X \ #
# $X $formatI \ #
# $X mode=0 \ #
# $X $formatR_Std | \ #
# $X $xci/vraies_C$X \ #
# $X p=$xiP/pmc.73 \ #
# $X RVB=VRAI \ #
# $X R=$xw1/xxxx.pmc/DIS3.2.WW.%04d \ #
# $X $format_Std' #
# #
# $Z xiim #
# $Z $DELETE DISS.* #
# #
# #
# Std #
# #
# $xci/disk_video_P$Z $xw1/xxxx.pmc/DIS3.2.WW. 0000 0101 RVB \ #
# 4 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz FAUX VRAI FAUX #
# #
sequence 026796_026816
# Sequence generee par : #
# #
# XYmaxNe 769 569 #
# #
# $xci/disk_video_P$Z $xw1/xxxx.pmc/TITRE. 1 21 RVB \ #
# 4 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
sequence 026817_026820
# Sequence generee par : #
# #
# Pal #
# #
# $xci/disk_video_P$Z $xw1/xxxx.pmc/MOVIE. 1 4 RVB \ #
# 4 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
sequence 026821_026842
# Sequence generee par : #
# #
# XYmaxNe 769 569 #
# #
# $xci/disk_video_P$Z $xw1/xxxx.pmc/TITRE.1. 1 22 RVB \ #
# 4 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
sequence 026843_026846
# Sequence generee par : #
# #
# Pal #
# #
# $xci/disk_video_P$Z $xw1/xxxx.pmc/MOVIE.2. 1 4 RVB \ #
# 4 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
sequence 026847_026850
# Sequence generee par : #
# #
# Pal #
# #
# $xci/disk_video_P$Z $xw1/xxxx.pmc/MOVIE.3. 1 4 RVB \ #
# 4 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
sequence 026851_026986
# Sequence generee par a partir du programme : #
# #
# $xu/SB.Santra/etching.11$f #
# #
# avec les parametres : #
# #
# parameter (lx=2**6,ly=lx,ltot=lx*ly,pmax=0.7,volm=2**13) #
# parameter (nimages=1024,npas=1) #
# #
# #
# $Z Suh #
# #
# $Z SET Premiere=0 #
# $Z SET Derniere=135 #
# #
# $Z @ Taille = $taille_Suh * 4 #
# #
# $X $xci/genere$X premiere=$Premiere derniere=$Derniere pas=1 \ #
# $X C='$CA \ #
# $X $xiim/ETCH.%04d | \ #
# $X $xcg/extract$X \ #
# $X eliminer=4 \ #
# $X conserver=$Taille | \ #
# $X $xcg/float_Float$X \ #
# $X $formatI | \ #
# $X $xci/acces$X \ #
# $X standard=FAUX \ #
# $X zero=VRAI \ #
# $X $formatI | \ #
# $X $xci/format.01$X \ #
# $X $formatI \ #
# $X mode=0 \ #
# $X $formatR_Std | \ #
# $X $xci/vraies_C$X \ #
# $X p=$xiP/pmc.54 \ #
# $X RVB=VRAI \ #
# $X R=$xw1/xxxx.pmc/ETCH.2.%04d \ #
# $X $format_Std' #
# #
# #
# Std #
# #
# $xci/disk_video_P$Z $xw1/xxxx.pmc/ETCH.2. 000 135 RVB \ #
# 4 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz FAUX FAUX VRAI #
# #
sequence 026987_027036
# Sequence generee par : #
# #
# XYmaxNe 767 154 #
# #
# $xci/disk_video_P$Z $xiim_LACT27/CBRI.1. 0001 0050 RVB \ #
# 4 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
sequence 027037_027069
# Sequence generee par : #
# #
# XYmaxNe 511 173 #
# #
# $xci/disk_video_P$Z $xiim_LACT27/CBRI.2. 0101 0133 RVB \ #
# 4 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
sequence 027070_027071
sequence 027072_027321
# Sequence generee par : #
# #
# XYmaxNe 719 575 #
# #
# $xci/disk_video_P$Z $xw1/FRAC.1. 0001 0250 RVB \ #
# 4 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
# #
# L'enregistrement a ete repris car je n'avais pas active l'anti-aliasing sur les titres #
# et il a donc fallu regener toutes les images... #
sequence 027322_027596
# Sequence generee par : #
# #
# XYmaxNe 719 575 #
# #
# $xci/disk_video_P$Z $xiim_LACT27/MFIL.2. 0001 0275 RVB \ #
# 4 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
# #
# L'image '$xiim_LACT27/MFIL.2.0275' est identique a l'image '$xiim_LACT27/MFIL.2.0274' #
# car en effet, l'image '0275' avait une mauvaise taille ; j'ai donc duplique... #
sequence 027597_028048
# Sequence generee par : #
# #
# XYmaxNe 719 575 #
# #
# $xci/disk_video_P$Z $xiim_LACT27/MFIL.3. 0001 0452 RVB \ #
# 4 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
sequence 028049_028267
# Sequence generee par : #
# #
# XYmaxNe 719 575 #
# #
# $xci/disk_video_P$Z $xiim_LACT27/MFIL.4. 0001 0219 RVB \ #
# 4 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
sequence 028268_028618
# Sequence generee par : #
# #
# XYmaxNe 719 575 #
# #
# $xci/disk_video_P$Z $xiim_LACT27/MFIL.5. 0001 0351 RVB \ #
# 4 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
sequence 028619_028633
# Generee (sur '$LACT14') par : #
# #
# #
# :Debut_listG_ACIN_1: #
# #
# $Z Pal #
# #
# $Z eval `$xci/genere$X \\\ #
# $Z commande='($xu/Felici.M/GenImages.01$Z \\\ #
# $Z $xiim/ACIN.1.%04d \\\ #
# $Z 6 6 6 \\\ #
# $Z 0 0 0 \\\ #
# $Z $xiP/trou_noir.84 \\\ #
# $Z 1234 \\\ #
# $Z 1 %04d)' \\\ #
# $Z premiere=1 derniere=15 \\\ #
# $Z en_tete=FAUX RVB=FAUX separateur=VRAI` #
# #
# :Fin_listG_ACIN_1: #
# #
# #
# Pal #
# xiim_lact14 #
# #
# #
# $xci/disk_video_P$Z $xiim_LACT14/ACIN.1. 001 015 RVB \ #
# 4 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
sequence 028634_028649
# Generee (sur '$LACT14') par : #
# #
# #
# :Debut_listG_ACIN_2: #
# #
# $Z Pal #
# #
# $Z eval `$xci/genere$X \\\ #
# $Z commande='($xu/Felici.M/GenImages.01$Z \\\ #
# $Z $xiim/ACIN.2.%04d \\\ #
# $Z 6 6 6 \\\ #
# $Z 0 0 0 \\\ #
# $Z $xiP/trou_noir.84 \\\ #
# $Z 1234 \\\ #
# $Z 0 %d)' \\\ #
# $Z premiere=0 derniere=15 \\\ #
# $Z en_tete=FAUX RVB=FAUX separateur=VRAI` #
# #
# $Z $xci/reduction_16$Z $xiim/ACIN.2. $xiad/ACIN.21 0 15 VRAI VRAI VRAI #
# #
# :Fin_listG_ACIN_2: #
# #
# #
# Pal #
# xiim_lact14 #
# #
# #
# $xci/disk_video_P$Z $xiim_LACT14/ACIN.2. 000 015 RVB \ #
# 4 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
# #
# xivPdf 3 2 #
# #
# record.01$Z $xiad/ACIN.21$R16 RVB rien #
# #
sequence 028650_029161
# Generee (sur '$LACT14') par : #
# #
# #
# :Debut_listG_ACIN_3: #
# #
# $Z set _____images=$xiim/ACIN.3 #
# $Z set _____animation=$xiad/ACIN.31 #
# $m4 _____include(_____xiird/.ACIN.3.11._____U) #
# $m4 _____include(_____xivPdf_09_2/.REFL.f.14._____U) #
# #
# :Fin_listG_ACIN_3: #
# #
# #
# Pal #
# xiim_lact14 #
# #
# #
# $xci/disk_video_P$Z $xiim_LACT14/ACIN.3. 001 512 RVB \ #
# 4 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
# #
# xivPdf 3 2 #
# #
# record.01$Z $xiad/ACIN.31$R16 RVB Initialisation #
# record.01$Z $xiad/ACIN.31$R64 RVB rien #
# #
#######################################################################################################################################
# #
# C H A N G E M E N T L E 20010626104408 D U " T I M I N G " D E L A V I D E O P R O D U I T E #
# P A R L A C A R T E ' Galileo ' D E ' LACT12 ' A F I N D E C E N T R E R #
# L A V I D E O P A R P A S S A G E D E L A P H A S E H O R I Z O N T A L E D E ' -42 ' A ' -58 ' : #
# #
#######################################################################################################################################
sequence 029162_029177
# Generee (sur '$LACT14') par : #
# #
# #
# :Debut_listG_ACIN_4: #
# #
# $Z Pal #
# #
# $Z setenv Acinus_Gros 1 #
# $Z setenv Acinus_RPoints 4 #
# $Z eval `$xci/genere$X \\\ #
# $Z commande='($xu/Felici.M/GenImages.01$Z \\\ #
# $Z $xiim/ACIN.4.%04d \\\ #
# $Z 6 6 6 \\\ #
# $Z 0 0 0 \\\ #
# $Z $xiP/trou_noir.84 \\\ #
# $Z 1234 \\\ #
# $Z 0 %d)' \\\ #
# $Z premiere=0 derniere=15 \\\ #
# $Z en_tete=FAUX RVB=FAUX separateur=VRAI` #
# #
# $Z $xci/reduction_16$Z $xiim/ACIN.4. $xiad/ACIN.22 0 15 VRAI VRAI VRAI #
# #
# :Fin_listG_ACIN_4: #
# #
# #
# Pal #
# xiim_lact14 #
# #
# #
# $xci/disk_video_P$Z $xiim_LACT14/ACIN.4. 000 015 RVB \ #
# 4 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
# #
# xivPdf 3 2 #
# #
# record.01$Z $xiad/ACIN.22$R16 RVB Initialisation #
# #
sequence 029178_029689
# Generee (sur '$LACT14') par : #
# #
# #
# :Debut_listG_ACIN_5: #
# #
# $Z set _____images=$xiim/ACIN.5 #
# $Z set _____animation=$xiad/ACIN.32 #
# $Z setenv Acinus_Gros 1 #
# $Z setenv Acinus_RPoints 4 #
# $m4 _____include(_____xiird/.ACIN.3.11._____U) #
# $m4 _____include(_____xivPdf_09_2/.REFL.f.14._____U) #
# #
# :Fin_listG_ACIN_5: #
# #
# #
# Pal #
# xiim_lact14 #
# #
# #
# $xci/disk_video_P$Z $xiim_LACT14/ACIN.5. 001 512 RVB \ #
# 4 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
# #
# xivPdf 3 2 #
# #
# record.01$Z $xiad/ACIN.32$R16 RVB Initialisation #
# record.01$Z $xiad/ACIN.32$R64 RVB rien #
# #
sequence 029690_030201
# Generee (sur '$LACT14') par : #
# #
# #
# :Debut_listG_ACIN_6: #
# #
# $Z set _____images=$xiim/ACIN.6 #
# $Z set _____animation=$xiad/ACIN.33 #
# $Z setenv Acinus_Select "h" #
# $Z setenv Acinus_Gros 1 #
# $Z setenv Acinus_RPoints 4 #
# $m4 _____include(_____xiird/.ACIN.3.11._____U) #
# $m4 _____include(_____xivPdf_09_2/.REFL.f.14._____U) #
# #
# :Fin_listG_ACIN_6: #
# #
# #
# Pal #
# xiim_lact14 #
# #
# #
# $xci/disk_video_P$Z $xiim_LACT14/ACIN.6. 001 512 RVB \ #
# 4 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
# #
# xivPdf 3 2 #
# #
# record.01$Z $xiad/ACIN.33$R16 RVB Initialisation #
# record.01$Z $xiad/ACIN.33$R64 RVB rien #
# #
sequence 030202_030217
# Generee (sur '$LACT14') par : #
# #
# #
# :Debut_listG_ACIN_7: #
# #
# $Z Pal #
# #
# $Z setenv Acinus_Select "h" #
# $Z setenv Acinus_Gros 1 #
# $Z setenv Acinus_RPoints 4 #
# $Z eval `$xci/genere$X \\\ #
# $Z commande='($xu/Felici.M/GenImages.01$Z \\\ #
# $Z $xiim/ACIN.7.%04d \\\ #
# $Z 9 9 9 \\\ #
# $Z 0 0 0 \\\ #
# $Z $xiP/trou_noir.84 \\\ #
# $Z 11 \\\ #
# $Z 0 %d)' \\\ #
# $Z premiere=0 derniere=15 \\\ #
# $Z en_tete=FAUX RVB=FAUX separateur=VRAI` #
# #
# $Z $xci/reduction_16$Z $xiim/ACIN.7. $xiad/ACIN.43 0 15 VRAI VRAI VRAI #
# #
# :Fin_listG_ACIN_7: #
# #
# #
# Pal #
# xiim_lact14 #
# #
# #
# $xci/disk_video_P$Z $xiim_LACT14/ACIN.7. 000 015 RVB \ #
# 4 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
# #
# xivPdf 3 2 #
# #
# record.01$Z $xiad/ACIN.43$R16 RVB Initialisation #
# #
# #
# On notera la graine speciale ('11') qui permet de generer exactement 15 (=4x4-1) images, #
# ce qui permet de produire une image de type '$R16'. #
sequence 030218_030233
# Generee (sur '$LACT14') par : #
# #
# #
# :Debut_listG_ACIN_8: #
# #
# $Z Pal #
# #
# $Z setenv Acinus_Select "h" #
# $Z setenv Acinus_Gros 1 #
# $Z setenv Acinus_RPoints 4 #
# #
# $X $xci/genere$X \ #
# $X commande='($xu/Felici.M/GenImages.01$Z \ #
# $X $xiim/ACIN.8.%04d \ #
# $X 9 9 9 \ #
# $X 0 0 0 \ #
# $X $xiP/trou_noir.84 \ #
# $X 11 \ #
# $X `eval expr %d - 1` %d)' \ #
# $X premiere=0 derniere=15 \ #
# $X RVB=FAUX #
# #
# $Z $xci/reduction_16$Z $xiim/ACIN.8. $xiad/ACIN.44 0 15 VRAI VRAI VRAI #
# #
# :Fin_listG_ACIN_8: #
# #
# #
# Pal #
# xiim_lact14 #
# #
# #
# $xci/disk_video_P$Z $xiim_LACT14/ACIN.8. 000 015 RVB \ #
# 4 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
# #
# xivPdf 3 2 #
# #
# record.01$Z $xiad/ACIN.44$R16 RVB Initialisation #
# #
# #
# On notera la graine speciale ('11') qui permet de generer exactement 15 (=4x4-1) images, #
# ce qui permet de produire une image de type '$R16'. #
sequence 030234_030258
# Generee (sur '$LACT14') par : #
# #
# #
# :Debut_listG_ACIN_9: #
# #
# $Z Pal #
# #
# $Z setenv Acinus_Gros 1 #
# $Z setenv Acinus_RPoints 4 #
# $Z eval `$xci/genere$X \\\ #
# $Z commande='($xu/Felici.M/GenImages.01$Z \\\ #
# $Z $xiim/ACIN.9.%04d \\\ #
# $Z 9 9 9 \\\ #
# $Z 0 0 0 \\\ #
# $Z $xiP/trou_noir.84 \\\ #
# $Z 11 \\\ #
# $Z 0 %d)' \\\ #
# $Z premiere=0 derniere=24 \\\ #
# $Z en_tete=FAUX RVB=FAUX separateur=VRAI` #
# #
# :Fin_listG_ACIN_9: #
# #
# #
# Pal #
# xiim_lact14 #
# #
# #
# $xci/disk_video_P$Z $xiim_LACT14/ACIN.9. 000 024 RVB \ #
# 4 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
sequence 030259_030498
# Generee (sur '$LACT14') par : #
# #
# #
# :Debut_listG_ACIN_A: #
# #
# $Z set _____images=$xiim/ACIN.A #
# $Z set _____animation=$xiad/ACIN.51 #
# $m4 _____include(_____xiird/.ACIN.A.11._____U) #
# $m4 _____include(_____xivPdf_09_2/.REFL.f.14._____U) #
# #
# :Fin_listG_ACIN_A: #
# #
# #
# Pal #
# xiim_lact14 #
# #
# #
# $xci/disk_video_P$Z $xiim_LACT14/ACIN.A. 001 240 RVB \ #
# 4 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
# #
# xivPdf 3 2 #
# #
# record.01$Z $xiad/ACIN.51$R16 RVB Initialisation #
# record.01$Z $xiad/ACIN.51$R64 RVB rien #
# #
sequence 030499_030738
# Generee (sur '$LACT14') par : #
# #
# #
# :Debut_listG_ACIN_B: #
# #
# $Z SET _____Ltrainees=20 #
# $Z SET Premiere=1 #
# $Z SET Derniere=240 #
# $Z set _____imagesA=$xiim/ACIN.A #
# $Z set _____images=$xiim/ACIN.B #
# $Z set _____animation=$xiad/ACIN.52 #
# $m4 _____include(_____xivPdf_09_2/.REFL.g3.11._____U) #
# $m4 _____include(_____xivPdf_09_2/.REFL.f.14._____U) #
# #
# :Fin_listG_ACIN_B: #
# #
# #
# Pal #
# xiim_lact14 #
# #
# #
# $xci/disk_video_P$Z $xiim_LACT14/ACIN.B. 001 240 RVB \ #
# 4 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
# #
# xivPdf 3 2 #
# #
# record.01$Z $xiad/ACIN.52$R16 RVB Initialisation #
# record.01$Z $xiad/ACIN.52$R64 RVB rien #
# #
sequence 030739_030978
# Generee (sur '$LACT14') par : #
# #
# #
# :Debut_listG_ACIN_C: #
# #
# $Z SET _____Ltrainees=80 #
# $Z SET Premiere=1 #
# $Z SET Derniere=240 #
# $Z set _____imagesA=$xiim/ACIN.A #
# $Z set _____images=$xiim/ACIN.C #
# $Z set _____animation=$xiad/ACIN.53 #
# $m4 _____include(_____xivPdf_09_2/.REFL.g3.11._____U) #
# $m4 _____include(_____xivPdf_09_2/.REFL.f.14._____U) #
# #
# :Fin_listG_ACIN_C: #
# #
# #
# Pal #
# xiim_lact14 #
# #
# #
# $xci/disk_video_P$Z $xiim_LACT14/ACIN.C. 001 240 RVB \ #
# 4 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
# #
# xivPdf 3 2 #
# #
# record.01$Z $xiad/ACIN.53$R16 RVB Initialisation #
# record.01$Z $xiad/ACIN.53$R64 RVB rien #
# #
sequence 030979_031218
# Generee (sur '$LACT14') par : #
# #
# #
# :Debut_listG_ACIN_D: #
# #
# $Z setenv Acinus_Rmin 0.04 #
# $Z setenv Acinus_Rmax 0.04 #
# $Z set _____Palette=$xiP/blanc.21 #
# $Z set _____images=$xiim/ACIN.D #
# $Z set _____animation=$xiad/ACIN.61 #
# $m4 _____include(_____xiird/.ACIN.A.11._____U) #
# $m4 _____include(_____xivPdf_09_2/.REFL.f.14._____U) #
# #
# :Fin_listG_ACIN_D: #
# #
# #
# Pal #
# xiim_lact14 #
# #
# #
# $xci/disk_video_P$Z $xiim_LACT14/ACIN.D. 001 240 RVB \ #
# 4 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
# #
# xivPdf 3 2 #
# #
# record.01$Z $xiad/ACIN.61$R16 RVB Initialisation #
# record.01$Z $xiad/ACIN.61$R64 RVB rien #
# #
sequence 031219_031458
sequence 031699_031938
# Generee (sur '$LACT14') par : #
# #
# #
# :Debut_listG_ACIN_E: #
# #
# $Z SET _____Ltrainees=20 #
# $Z SET Premiere=1 #
# $Z SET Derniere=240 #
# $Z set _____imagesA=$xiim/ACIN.D #
# $Z set _____images=$xiim/ACIN.E #
# $Z set _____animation=$xiad/ACIN.62 #
# $m4 _____include(_____xivPdf_09_2/.REFL.g3.11._____U) #
# $m4 _____include(_____xivPdf_09_2/.REFL.f.14._____U) #
# #
# :Fin_listG_ACIN_E: #
# #
# #
# Pal #
# xiim_lact14 #
# #
# #
# $xci/disk_video_P$Z $xiim_LACT14/ACIN.E. 001 240 RVB \ #
# 4 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
# #
# xivPdf 3 2 #
# #
# record.01$Z $xiad/ACIN.62$R16 RVB Initialisation #
# record.01$Z $xiad/ACIN.62$R64 RVB rien #
# #
# #
# ATTENTION : cette sequence a du etre recalculee et reenregistree car, en effet, #
# '$_____imagesA' etait definie avec '$xiim/ACIN.A' et non pas '$xiim/ACIN.D'... #
sequence 031459_031698
sequence 031939_032178
# Generee (sur '$LACT14') par : #
# #
# #
# :Debut_listG_ACIN_F: #
# #
# $Z SET _____Ltrainees=80 #
# $Z SET Premiere=1 #
# $Z SET Derniere=240 #
# $Z set _____imagesA=$xiim/ACIN.D #
# $Z set _____images=$xiim/ACIN.F #
# $Z set _____animation=$xiad/ACIN.63 #
# $m4 _____include(_____xivPdf_09_2/.REFL.g3.11._____U) #
# $m4 _____include(_____xivPdf_09_2/.REFL.f.14._____U) #
# #
# :Fin_listG_ACIN_F: #
# #
# #
# Pal #
# xiim_lact14 #
# #
# #
# $xci/disk_video_P$Z $xiim_LACT14/ACIN.F. 001 240 RVB \ #
# 4 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
# #
# xivPdf 3 2 #
# #
# record.01$Z $xiad/ACIN.63$R16 RVB Initialisation #
# record.01$Z $xiad/ACIN.63$R64 RVB rien #
# #
# #
# ATTENTION : cette sequence a du etre recalculee et reenregistree car, en effet, #
# '$_____imagesA' etait definie avec '$xiim/ACIN.A' et non pas '$xiim/ACIN.D'... #
sequence 032179_032306
# Generee (sur '$LACT14') par : #
# #
# #
# :Debut_listG_ACIN_G: #
# #
# $Z set _____images=$xiim/ACIN.G #
# $Z set _____animation=$xiad/ACIN.71 #
# $m4 _____include(_____xiird/.ACIN.G.11._____U) #
# $m4 _____include(_____xivPdf_09_2/.LYAP.1.12._____U) #
# #
# :Fin_listG_ACIN_G: #
# #
# #
# Pal #
# xiim_lact14 #
# #
# #
# $xci/disk_video_P$Z $xiim_LACT14/ACIN.G. 001 128 $xiP/cercle.35 \ #
# 4 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
# #
# xivPdf 3 2 #
# #
# record.01$Z $xiad/ACIN.71$R16 $xiP/cercle.35 Initialisation #
# record.01$Z $xiad/ACIN.71$R64 $xiP/cercle.35 rien #
# #
sequence 032307_032818
# Generee (sur '$LACT14') par : #
# #
# #
# :Debut_listG_ACIN_H: #
# #
# $Z set _____MailleCarree=$EXIST #
# $Z set _____DistanceX=40 #
# $Z set _____DistanceY=40 #
# $Z set _____DistanceZ=6 #
# $Z set _____RayonsP=0.040 #
# $Z set _____FacteurPsI=0.95 #
# $Z set _____Finter=1 #
# $Z set _____MilieuChiff=4 #
# $Z set _____RotationOY0=$pi #
# $Z set _____RotationOY=$pi #
# $Z set _____FCarteDensite=$xie/labyrinth_5x5x5.04_2_032179_032306.ACIN.G.densite$GZIP #
# $Z set _____imagesM=$xTV/ACIN.G #
# $m4 _____include(_____xiird/.ACIN.G.21._____U) #
# $m4 _____include(_____xiird/.ACIN.H.11._____U) #
# $m4 _____include(_____xivPdf_09_2/.REFL.c.11.1._____U) #
# $m4 _____include(_____xivPdf_09_2/.REFL.c.11.2._____U) #
# $m4 _____include(_____xivPdf_09_2/.REFL.c.31._____U) #
# $m4 _____include(_____xivPdf_09_2/.REFL.c.21._____U) #
# $m4 _____include(_____xivPdf_09_2/.REFL.c.41._____U) #
# $m4 _____include(_____xiird/.ACIN.H.12._____U) #
# $m4 _____include(_____xivPdf_09_2/.REFL.c.71._____U) #
# $m4 _____include(_____xivPdf_09_2/.REFL.m.53.1._____U) #
# $m4 _____include(_____xivPdf_09_2/.REFL.m.53.2._____U) #
# $m4 _____include(_____xivPdf_09_2/.REFL.c.61._____U) #
# $m4 _____include(_____xivPdf_09_2/.REFL.c.62._____U) #
# $m4 _____include(_____xivPdf_09_2/.REFL.c.72._____U) #
# $m4 _____include(_____xivPdf_09_2/.REFL.z.11._____U) #
# #
# $Z set _____Milieu=VRAI #
# $Z set _____Mtolerance=1.0 #
# $Z set _____Periodiser=FAUX #
# $Z set _____DepthCueing=0.3 #
# $Z set _____Couronne=2 #
# $Z set _____Attenuation=0.25 #
# $Z set _____Dct=0.01 #
# $Z set _____Nombre=50 #
# $Z set _____images=$xiim/ACIN.H #
# $Z set _____animation=$xiad/ACIN.72 #
# $m4 _____include(_____xivPdf_09_2/.REFL.c.12._____U) #
# $m4 _____include(_____xivPdf_09_2/.REFL.m.82._____U) #
# $m4 _____include(_____xivPdf_09_2/.REFL.f.14._____U) #
# #
# $m4 _____include(_____xivPdf_09_2/.REFL.c.13._____U) #
# $m4 _____include(_____xivPdf_09_2/.REFL.c.83._____U) #
# #
# :Fin_listG_ACIN_H: #
# #
# #
# Pal #
# xiim_lact14 #
# #
# #
# $xci/disk_video_P$Z $xiim_LACT14/ACIN.H. 001 512 RVB \ #
# 4 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
# #
# xivPdf 3 2 #
# #
# record.01$Z $xiad/ACIN.72$R16 RVB Initialisation #
# record.01$Z $xiad/ACIN.72$R64 RVB rien #
# #
# #
# ATTENTION : une erreur de programmation dans 'v $xiird/.ACIN.H.12.$U BOITE.2' a provoque #
# un decalage des images '$xTV/BOITE.2.????' numerotees {1,128} alors qu'en fait il fallait #
# utiliser {0,127} ; cela avait pour effet de decaler la coordonnee 'Z' denormalisee (elle #
# valait 'n-1') et le numero de la couche (il valait 'n') ce qui avait pour effet de placer #
# certaines particules en dehors du milieu. Cette animation a donc ete regeneree en : #
# #
# xivPdf 4 2 / 032819_033330 #
# #
# Au passage, le nombre de particules a ete reduit et leur taille diminuee afin de faciliter #
# leur diffusion et l'option '$_____Mtolerance' a ete ajoutee (avec la valeur 1.0). Malgre #
# tout, elle a ete recalculee (apres correction) avec les anciens parametres sur '$LACT29', #
# afin de valider ces memes corrections... #
sequence 032819_033091
sequence 033092_033330
# Generee (sur '$LACT14') par : #
# #
# #
# :Debut_listG_ACIN_I: #
# #
# $Z set _____MailleCarree=$EXIST #
# $Z set _____DistanceX=50 #
# $Z set _____DistanceY=50 #
# $Z set _____DistanceZ=6 #
# $Z set _____RayonsP=0.030 #
# $Z set _____FacteurPsI=0.95 #
# $Z set _____Finter=1 #
# $Z set _____MilieuChiff=4 #
# $Z set _____RotationOY0=$pi #
# $Z set _____RotationOY=$pi #
# $Z set _____FCarteDensite=$xie/labyrinth_5x5x5.04_2_032179_032306.ACIN.G.densite$GZIP #
# $Z set _____imagesM=$xTV/ACIN.G #
# $m4 _____include(_____xiird/.ACIN.G.21._____U) #
# $m4 _____include(_____xiird/.ACIN.H.11._____U) #
# $m4 _____include(_____xivPdf_09_2/.REFL.c.11.1._____U) #
# $m4 _____include(_____xivPdf_09_2/.REFL.c.11.2._____U) #
# $m4 _____include(_____xivPdf_09_2/.REFL.c.31._____U) #
# $m4 _____include(_____xivPdf_09_2/.REFL.c.21._____U) #
# $m4 _____include(_____xivPdf_09_2/.REFL.c.41._____U) #
# $m4 _____include(_____xiird/.ACIN.H.12._____U) #
# $m4 _____include(_____xivPdf_09_2/.REFL.c.71._____U) #
# $m4 _____include(_____xivPdf_09_2/.REFL.m.53.1._____U) #
# $m4 _____include(_____xivPdf_09_2/.REFL.m.53.2._____U) #
# $m4 _____include(_____xivPdf_09_2/.REFL.c.61._____U) #
# $m4 _____include(_____xivPdf_09_2/.REFL.c.62._____U) #
# $m4 _____include(_____xivPdf_09_2/.REFL.c.72._____U) #
# $m4 _____include(_____xivPdf_09_2/.REFL.z.11._____U) #
# #
# $Z set _____Milieu=VRAI #
# $Z set _____Mtolerance=1.0 #
# $Z set _____Periodiser=FAUX #
# $Z set _____DepthCueing=0.3 #
# $Z set _____Couronne=2 #
# $Z set _____Attenuation=0.25 #
# $Z set _____Dct=0.01 #
# $Z set _____Nombre=100 #
# $Z set _____images=$xiim/ACIN.I #
# $Z set _____imageG=$xiird/ACIN.73 #
# $Z set _____animation=$xiad/ACIN.73 #
# $m4 _____include(_____xivPdf_09_2/.REFL.K.11._____U) #
# $m4 _____include(_____xivPdf_09_2/.REFL.c.12._____U) #
# $m4 _____include(_____xivPdf_09_2/.REFL.m.82._____U) #
# $m4 _____include(_____xivPdf_09_2/.REFL.f.14._____U) #
# #
# $m4 _____include(_____xivPdf_09_2/.REFL.c.13._____U) #
# $m4 _____include(_____xivPdf_09_2/.REFL.c.83._____U) #
# #
# :Fin_listG_ACIN_I: #
# #
# #
# Pal #
# xiim_lact14 #
# #
# #
# $xci/disk_video_P$Z $xiim_LACT14/ACIN.I. 001 512 RVB \ #
# 4 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
# #
# xivPdf 3 2 #
# #
# record.01$Z $xiad/ACIN.73$R16 RVB Initialisation #
# record.01$Z $xiad/ACIN.73$R64 RVB rien #
# record.01$Z $xiad/ACIN.73 $xiP/gris.01 rien #
# #
# #
# ATTENTION, l'enregistrement a eu lieu en deux fois a cause du message : #
# #
# WARNING: Frame transfer aborted: analog video input not locked #
# #
# tres classique... #
sequence 033331_033842
# Generee (sur '$LACT14') par : #
# #
# #
# :Debut_listG_ACIN_J: #
# #
# $Z SET _____Ltrainees=80 #
# $Z SET Premiere=1 #
# $Z SET Derniere=512 #
# $Z set _____imagesA=$xiim/ACIN.I #
# $Z set _____images=$xiim/ACIN.J #
# $Z set _____animation=$xiad/ACIN.74 #
# $m4 _____include(_____xivPdf_09_2/.REFL.I.12._____U) #
# $m4 _____include(_____xivPdf_09_2/.REFL.g3.11._____U) #
# $m4 _____include(_____xivPdf_09_2/.REFL.f.14._____U) #
# #
# :Fin_listG_ACIN_J: #
# #
# #
# Pal #
# xiim_lact14 #
# #
# #
# $xci/disk_video_P$Z $xiim_LACT14/ACIN.J. 001 512 RVB \ #
# 4 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
# #
# xivPdf 3 2 #
# #
# record.01$Z $xiad/ACIN.74$R16 RVB Initialisation #
# record.01$Z $xiad/ACIN.74$R64 RVB rien #
# #
sequence 033843_034354
# Generee (sur '$LACT14') par : #
# #
# #
# :Debut_listG_ACIN_K: #
# #
# $Z set _____MailleCarree=$EXIST #
# $Z set _____DistanceX=20 #
# $Z set _____DistanceY=20 #
# $Z set _____DistanceZ=3 #
# $Z set _____RayonsP=0.020 #
# $Z set _____FacteurPsI=0.95 #
# $Z set _____Finter=1 #
# $Z set _____MilieuChiff=4 #
# $Z set _____RotationOY0=$pi #
# $Z set _____RotationOY=$pi #
# $Z set _____FCarteDensite=$xie/labyrinth_5x5x5.04_2_032179_032306.ACIN.G.densite$GZIP #
# $Z set _____imagesM=$xTV/ACIN.G #
# $m4 _____include(_____xiird/.ACIN.G.21._____U) #
# $m4 _____include(_____xiird/.ACIN.H.11._____U) #
# $m4 _____include(_____xivPdf_09_2/.REFL.c.11.1._____U) #
# $m4 _____include(_____xivPdf_09_2/.REFL.c.11.2._____U) #
# $m4 _____include(_____xivPdf_09_2/.REFL.c.31._____U) #
# $m4 _____include(_____xivPdf_09_2/.REFL.c.21._____U) #
# $m4 _____include(_____xivPdf_09_2/.REFL.c.41._____U) #
# $m4 _____include(_____xiird/.ACIN.H.12._____U) #
# $m4 _____include(_____xivPdf_09_2/.REFL.c.71._____U) #
# $m4 _____include(_____xivPdf_09_2/.REFL.m.53.1._____U) #
# $m4 _____include(_____xivPdf_09_2/.REFL.m.53.2._____U) #
# $m4 _____include(_____xivPdf_09_2/.REFL.c.61._____U) #
# $m4 _____include(_____xivPdf_09_2/.REFL.c.62._____U) #
# $m4 _____include(_____xivPdf_09_2/.REFL.c.72._____U) #
# $m4 _____include(_____xivPdf_09_2/.REFL.z.11._____U) #
# #
# $Z set _____Milieu=VRAI #
# $Z set _____Mtolerance=1.0 #
# $Z set _____Periodiser=FAUX #
# $Z set _____DepthCueing=0.3 #
# $Z set _____Couronne=2 #
# $Z set _____Attenuation=0.25 #
# $Z set _____Dct=0.05 #
# $Z set _____Nombre=20 #
# $Z set _____RVB=FAUX #
# $Z set _____images=$xiim/ACIN.K #
# $Z set _____imageG=$xiird/ACIN.91 #
# $Z set _____animation=$xiad/ACIN.91 #
# $m4 _____include(_____xivPdf_09_2/.REFL.K.11._____U) #
# $m4 _____include(_____xivPdf_09_2/.REFL.c.12._____U) #
# $m4 _____include(_____xivPdf_09_2/.REFL.m.82._____U) #
# $m4 _____include(_____xivPdf_09_2/.REFL.f.14._____U) #
# #
# $m4 _____include(_____xivPdf_09_2/.REFL.c.13._____U) #
# $m4 _____include(_____xivPdf_09_2/.REFL.c.83._____U) #
# #
# :Fin_listG_ACIN_K: #
# #
# #
# Pal #
# xiim_lact14 #
# #
# #
# $xci/disk_video_P$Z $xiim_LACT14/ACIN.K. 001 512 RVB \ #
# 4 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
# #
# xivPdf 3 2 #
# #
# record.01$Z $xiad/ACIN.91$R16 RVB Initialisation #
# record.01$Z $xiad/ACIN.91$R64 RVB rien #
# record.01$Z $xiird/ACIN.91 $xiP/gris.01 rien #
# #
sequence 034355_034866
# Generee (sur '$LACT14') par : #
# #
# #
# :Debut_listG_ACIN_L: #
# #
# $Z set _____imagesA=$xiim/ACIN.I #
# $Z set _____imagesS=$xiird/ACIN.91.1 #
# $Z set _____images=$xiim/ACIN.L #
# $Z set _____animation=$xiad/ACIN.A3 #
# $Z set _____last=$xiird/ACIN.A3 #
# $m4 _____include(_____xiird/.ACIN.L.21._____U) #
# $m4 _____include(_____xiird/.ACIN.L.31._____U) #
# $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) #
# $m4 _____include(_____xivPdf_09_2/.REFL.y.12._____U) #
# #
# :Fin_listG_ACIN_L: #
# #
# #
# Pal #
# xiim_lact14 #
# #
# #
# $xci/disk_video_P$Z $xiim_LACT14/ACIN.L. 001 512 RVB \ #
# 4 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
# #
# xivPdf 3 2 #
# #
# record.01$Z $xiad/ACIN.A3$R16 RVB Initialisation #
# record.01$Z $xiad/ACIN.A3$R64 RVB rien #
# record.01$Z $xiird/ACIN.A3.0512 RVB rien #
# #
sequence 034867_035378
# Generee (sur '$LACT14') par : #
# #
# #
# :Debut_listG_ACIN_M: #
# #
# $Z set _____imagesA=$xiim/ACIN.J #
# $Z set _____imagesS=$xiird/ACIN.91.1 #
# $Z set _____images=$xiim/ACIN.M #
# $Z set _____animation=$xiad/ACIN.A4 #
# $Z set _____last=$xiird/ACIN.A4 #
# $m4 _____include(_____xiird/.ACIN.L.21._____U) #
# $m4 _____include(_____xiird/.ACIN.L.31._____U) #
# $m4 _____include(_____xivPdf_09_2/.REFL.c.14._____U) #
# $m4 _____include(_____xivPdf_09_2/.REFL.y.12._____U) #
# #
# :Fin_listG_ACIN_M: #
# #
# #
# Pal #
# xiim_lact14 #
# #
# #
# $xci/disk_video_P$Z $xiim_LACT14/ACIN.M. 001 512 RVB \ #
# 4 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
# #
# xivPdf 3 2 #
# #
# record.01$Z $xiad/ACIN.A4$R16 RVB Initialisation #
# record.01$Z $xiad/ACIN.A4$R64 RVB rien #
# record.01$Z $xiird/ACIN.A4.0512 RVB rien #
# #
sequence 035379_035890
# Generee (sur '$LACT14') par : #
# #
# #
# :Debut_listG_ACIN_N: #
# #
# $Z set _____MailleCarree=$EXIST #
# $Z set _____DistanceX=10 #
# $Z set _____DistanceY=10 #
# $Z set _____DistanceZ=2 #
# $Z set _____DistanceO=0.2 #
# $Z set _____RayonsP=0.030 #
# $Z set _____FacteurPsI=0.95 #
# $Z set _____Finter=1 #
# $Z set _____MilieuChiff=4 #
# $Z set _____RotationOY0=$pi #
# $Z set _____RotationOY=$pi #
# $Z set _____FCarteDensite=$xie/labyrinth_5x5x5.04_2_032179_032306.ACIN.G.densite$GZIP #
# $Z set _____imagesM=$xTV/ACIN.G #
# $m4 _____include(_____xiird/.ACIN.G.21._____U) #
# $m4 _____include(_____xiird/.ACIN.H.11._____U) #
# $m4 _____include(_____xivPdf_09_2/.REFL.c.11.1._____U) #
# $m4 _____include(_____xivPdf_09_2/.REFL.c.11.2._____U) #
# $m4 _____include(_____xivPdf_09_2/.REFL.c.31._____U) #
# $m4 _____include(_____xivPdf_09_2/.REFL.c.21._____U) #
# $m4 _____include(_____xivPdf_09_2/.REFL.c.41._____U) #
# $m4 _____include(_____xiird/.ACIN.H.12._____U) #
# $m4 _____include(_____xiird/.ACIN.H.13._____U) #
# $m4 _____include(_____xivPdf_09_2/.REFL.c.71._____U) #
# $m4 _____include(_____xivPdf_09_2/.REFL.m.53.1._____U) #
# $m4 _____include(_____xivPdf_09_2/.REFL.m.53.2._____U) #
# $m4 _____include(_____xivPdf_09_2/.REFL.c.61._____U) #
# $m4 _____include(_____xivPdf_09_2/.REFL.c.62._____U) #
# $m4 _____include(_____xivPdf_09_2/.REFL.c.72._____U) #
# $m4 _____include(_____xivPdf_09_2/.REFL.z.11._____U) #
# #
# $Z set _____Milieu=VRAI #
# $Z set _____Mtolerance=1.0 #
# $Z set _____Periodiser=FAUX #
# $Z set _____DepthCueing=0.3 #
# $Z set _____Couronne=2 #
# $Z set _____Attenuation=0.25 #
# $Z set _____Dct=0.01 #
# $Z set _____Nombre=100 #
# $Z set _____images=$xiim/ACIN.N #
# $Z set _____animation=$xiad/ACIN.B1 #
# $m4 _____include(_____xivPdf_09_2/.REFL.c.12._____U) #
# $m4 _____include(_____xivPdf_09_2/.REFL.m.82._____U) #
# $m4 _____include(_____xivPdf_09_2/.REFL.f.14._____U) #
# #
# $m4 _____include(_____xivPdf_09_2/.REFL.c.13._____U) #
# $m4 _____include(_____xivPdf_09_2/.REFL.c.83._____U) #
# #
# :Fin_listG_ACIN_N: #
# #
# #
# Pal #
# xiim_lact14 #
# #
# #
# $xci/disk_video_P$Z $xiim_LACT14/ACIN.N. 001 512 RVB \ #
# 4 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
# #
# xivPdf 3 2 #
# #
# record.01$Z $xiad/ACIN.B1$R16 RVB Initialisation #
# record.01$Z $xiad/ACIN.B1$R64 RVB rien #
# #
#######################################################################################################################################
# #
# S E Q U E N C E S L E S P L U S P E R T I N E N T E S ( D E B U T ) : #
# #
#######################################################################################################################################
marqueur bestS : ...
marqueur -----------
sequence 002318_002359 ralenti=2
sequence 002318_002359 ralenti=8
sequence 002360_002403 ralenti=2
sequence 002360_002403 ralenti=8
sequence 002404_002421 ralenti=2
sequence 002404_002421 ralenti=8
sequence 002422_002464 ralenti=2
sequence 002422_002464 ralenti=8
sequence 002465_002516 ralenti=2
sequence 002465_002516 ralenti=8
# Sequence Claire Brissot (X=46 66). #
r 002517_002517 ; sleep 2
r 002518_002518 ; sleep 2
r 002519_002519 ; sleep 2
sequence 002520_002562 ralenti=2
sequence 002520_002562 ralenti=4
r 002563_002563 ; sleep 2
r 002564_002564 ; sleep 2
sequence 002565_002591 ralenti=2
sequence 002565_002591 ralenti=2
sequence 002565_002591 ralenti=4
# Sequence Claire Brissot (X=46 66). #
r 0
r 026987_027036 ; sleep 2
sequence 026987_027036 ralenti=2
sequence 026987_027036 ralenti=2
sequence 026987_027036 ralenti=2
r 0
r 027037_027069 ; sleep 2
sequence 027037_027069 ralenti=2
sequence 027037_027069 ralenti=4
sequence 027037_027069 ralenti=4
r 0
# Sequence Claire Brissot (X=46 66) du 19980710101948. #
sequence 002845_002970
sequence 002971_003096
sequence 003097_003222
sequence 003223_003348
sequence 003375_004373
sequence 004374_005372
sequence 005373_006371
sequence 006372_007370
sequence 007371_008369
sequence 008370_009368
sequence 009369_010367
sequence 010368_011366
sequence 011367_011867 ralenti=2
sequence 012169_012669 ralenti=2
sequence 011868_012168 ralenti=2
sequence 007371_008369
sequence 009369_010367
sequence 011367_011867 ralenti=2
sequence 020429_020929
sequence 020930_021230
sequence 021231_021731
sequence 024124_024223
sequence 024124_024223
# Sequence Mathis Plapp (X=39 59). #
r 0
sleep 10
r 021732_021732 ; sleep 5
sequence 007371_008369
sequence 007371_007869 ralenti=2
sleep 2
sequence 008370_009368
r 009369_010367 ; sleep 5
sequence 009369_009869
r 010368_011366 ; sleep 5
sequence 010368_011366
r 021733_021733 ; sleep 5
r 020429_020929 ; sleep 5
sequence 020429_020929 ralenti=2
r 021231_021731 ; sleep 5
sequence 021231_021731 ralenti=2
r 021734_021734 ; sleep 5
r 020930_021230 ; sleep 5
sequence 020930_021230 ralenti=4
r 021736_021736 ; sleep 5
r 020329_020428 ; sleep 5
sequence 020329_020428 ralenti=2
sequence 020329_020428 ralenti=4
r 021735_021735 ; sleep 5
r 024124_024223 ; sleep 5
sequence 024124_024223 ralenti=2
sequence 024124_024223 ralenti=4
sleep 5
r 0
# Sequence Mathis Plapp (X=39 59), version anterieure au 19980122142353. #
r 0
sleep 10
r 026817_026817 ; sleep 5
r 026818_026818 ; sleep 5
r 026819_026819 ; sleep 10
r 026820_026820 ; sleep 20
r 021732_021732 ; sleep 10
sequence 007371_008369
sequence 007371_007869 ralenti=2
sleep 2
sequence 008370_009368
r 009369_010367 ; sleep 5
sequence 009369_009869
r 010368_011366 ; sleep 5
sequence 010368_011366
r 021733_021733 ; sleep 10
r 020429_020929 ; sleep 5
sequence 020429_020929 ralenti=2
r 021231_021731 ; sleep 5
sequence 021231_021731 ralenti=2
r 021734_021734 ; sleep 10
r 020930_021230 ; sleep 5
sequence 020930_021230 ralenti=4
r 021736_021736 ; sleep 10
r 020329_020428 ; sleep 5
sequence 020329_020428 ralenti=2
sequence 020329_020428 ralenti=4
r 021735_021735 ; sleep 10
r 024124_024223 ; sleep 5
sequence 024124_024223 ralenti=2
sequence 024124_024223 ralenti=4
sleep 5
r 0
# Sequence Jean-Francois Gouyet (X=46 57) et Mathis Plapp (X=39 59), version 19980122142353, #
# incompatible 'NTSC' en ce qui concerne les quatre premiers titres. #
r 0
sleep 10
r 026843_026843 ; sleep 5
r 026844_026844 ; sleep 5
r 026845_026845 ; sleep 10
r 026846_026846 ; sleep 20
r 021732_021732 ; sleep 10
sequence 007371_008369
sequence 007371_007869 ralenti=2
sleep 2
sequence 008370_009368
r 009369_010367 ; sleep 5
sequence 009369_009869
r 010368_011366 ; sleep 5
sequence 010368_011366
r 021733_021733 ; sleep 10
r 020429_020929 ; sleep 5
sequence 020429_020929 ralenti=2
r 021231_021731 ; sleep 5
sequence 021231_021731 ralenti=2
r 021734_021734 ; sleep 10
r 020930_021230 ; sleep 5
sequence 020930_021230 ralenti=4
r 021736_021736 ; sleep 10
r 020329_020428 ; sleep 5
sequence 020329_020428 ralenti=2
sequence 020329_020428 ralenti=4
r 021735_021735 ; sleep 10
r 024124_024223 ; sleep 5
sequence 024124_024223 ralenti=2
sequence 024124_024223 ralenti=4
sleep 5
r 0
# Sequence Jean-Francois Gouyet (X=46 57) et Mathis Plapp (X=39 59), version 19980129131119, #
# compatible 'NTSC' en ce qui concerne les quatre premiers titres. #
r 0
sleep 10
r 026847_026847 ; sleep 5
r 026848_026848 ; sleep 5
r 026849_026849 ; sleep 10
r 026850_026850 ; sleep 20
r 021732_021732 ; sleep 10
sequence 007371_008369
sequence 007371_007869 ralenti=2
sleep 2
sequence 008370_009368
r 009369_010367 ; sleep 5
sequence 009369_009869
r 010368_011366 ; sleep 5
sequence 010368_011366
r 021733_021733 ; sleep 10
r 020429_020929 ; sleep 5
sequence 020429_020929 ralenti=2
r 021231_021731 ; sleep 5
sequence 021231_021731 ralenti=2
r 021734_021734 ; sleep 10
r 020930_021230 ; sleep 5
sequence 020930_021230 ralenti=4
r 021736_021736 ; sleep 10
r 020329_020428 ; sleep 5
sequence 020329_020428 ralenti=2
sequence 020329_020428 ralenti=4
r 021735_021735 ; sleep 10
r 024124_024223 ; sleep 5
sequence 024124_024223 ralenti=2
sequence 024124_024223 ralenti=4
sleep 5
r 0
# Sequence Jean-Francois Gouyet (X=46 57) et Mathis Plapp (X=39 59), version 19980202085948. #
sequence 012670_012733
# Sequence Marcel Filoche (X=46 52). #
sequence 012734_013548
r 0
sleep 10
r 021739_021739 ; sleep 5
sequence 014372_014627
r 021741_021741 ; sleep 5
sequence 014886_015141
r 021743_021743 ; sleep 5
sequence 015656_016167
r 021744_021744 ; sleep 5
sequence 016169_016680
r 021745_021745 ; sleep 5
sequence 016682_017193
r 021746_021746 ; sleep 5
sequence 017195_017706
r 021748_021748 ; sleep 5
sequence 018221_018732
r 021749_021749 ; sleep 5
sequence 018734_018888
r 021750_021750 ; sleep 5
sequence 018890_019046
r 021751_021751 ; sleep 5
sequence 019048_019200
r 021752_021752 ; sleep 5
sequence 019202_019713
r 021753_021753 ; sleep 5
sequence 019715_019876
r 021754_021754 ; sleep 5
sequence 019878_020061
r 021755_021755 ; sleep 5
sequence 020063_020328
sleep 10
r 0
# Sequence Sitangshu Bikas Santra (X=42 87). #
r 0
sleep 10
r 025881_025881 ; sleep 5
sequence 012734_013548
sequence 012734_013548
r 025882_025882 ; sleep 5
r 025883_025883 ; sleep 10
r 025884_025884 ; sleep 5
r 025885_025885 ; sleep 5
sequence 025599_025880
sequence 025599_025880
r 025886_025886 ; sleep 5
sequence 019202_019713
sequence 019202_019713
r 025887_025887 ; sleep 5
sequence 019202_019713
sequence 019202_019713
r 025888_025888 ; sleep 5
sequence 019715_019876
sequence 019715_019876
r 025889_025889 ; sleep 5
sequence 020063_020328
sequence 020063_020328
sleep 10
r 0
# Film Sitangshu Bikas Santra et Bernard Sapoval. #
r 021752_021752
sequence 019202_019713
r 025598_025598
sequence 026613_026675
sequence 025599_025880
r 025888_025888
sequence 019715_019876
r 025889_025889
sequence 026694_026795
sequence 020063_020328
# Film "WATER DISSOLUTION OF TERNARY GLASSES", Sitangshu Bikas Santra et Bernard Sapoval #
# (version du 19980106153931). #
r 0
sleep 10
r 026821_026821 ; sleep 4
r 026822_026822 ; sleep 4
r 026823_026823 ; sleep 4
r 026824_026824 ; sleep 4
r 026825_026825 ; sleep 4
r 026826_026826 ; sleep 5
r 026827_026827 ; sleep 4
r 026828_026828 ; sleep 5
r 026829_026829 ; sleep 5
r 026830_026830 ; sleep 5
r 026831_026831 ; sleep 4
sequence 026613_026675 ralenti=4
sleep 1
r 026832_026832 ; sleep 4
sequence 025599_025880
sleep 1
r 026833_026833 ; sleep 4
r 026834_026834 ; sleep 4
sequence 026694_026795 ralenti=4
sleep 1
r 026835_026835 ; sleep 4
sequence 019202_019713
sleep 1
r 026836_026836 ; sleep 4
r 026837_026837 ; sleep 4
sequence 019202_019713
sleep 1
r 026838_026838 ; sleep 4
r 026839_026839 ; sleep 4
sequence 019715_019876
sleep 1
r 026840_026840 ; sleep 4
sequence 020063_020328
sleep 1
r 026841_026841 ; sleep 4
sequence 020063_020328
sleep 1
r 026842_026842 ; sleep 4
r 0
sleep 10
# Film "WATER DISSOLUTION OF TERNARY GLASSES", Sitangshu Bikas Santra et Bernard Sapoval #
# (version du 19980127164319, 19980129110554). #
sequence 024480_024607
sequence 024608_024735
sequence 024736_024863
sequence 024987_025114
# Reflexions dans une boite fractale avec comptage des reflexions. #
sequence 022588_022651
sequence 022652_022715
sequence 022716_022779
sequence 022780_022843
# Reflexions dans une boite fractale avec integration des trajectoires visualisees toutes #
# de facon uniforme en '$BLANC'. #
sequence 023100_023227
sequence 023228_023355
sequence 023356_023483
sequence 023484_023611
# Reflexions dans une boite fractale avec integration des trajectoires visualisees avec une #
# luminance inversement proportionnelle a leurs longueurs (plus elles sont longues et moins #
# elles sont lumineuses...). #
sequence 023612_023739
sequence 023740_023867
sequence 023868_023995
sequence 023996_024123
# Reflexions dans une boite fractale avec integration des trajectoires visualisees avec une #
# luminance proportionnelle au rapport du nombre de reflexions a leurs longueurs. #
sequence 026513_026612
# Reflexions dans quatre boites fractales. #
sequence 027070_027319
sequence 027322_027595
sequence 027597_028048
sequence 028049_028267
sequence 028268_028618
# Sequences Marcel Filoche (X=46 52). #
sequence 028634_028649 ralenti=25
Sequence 029162_029177 ralenti=25
# Construction d'un labyrinthe 6x6x6 en visualisant la distance a l'entree du labyrinthe. #
Sequence 030234_030258 ralenti=25
Sequence 030202_030217 ralenti=25
Sequence 030218_030233 ralenti=25
# Construction d'un labyrinthe 9x9x9 en visualisant d'abord la distance a l'entree du #
# labyrinthe, puis le nombre de bifurcations depuis l'entree du labyrinthe et enfin en #
# ne visualisant a chaque etape 'N' que les "etages" {N-1,N} de l'arbre... #
sequence 028650_029161
Sequence 029178_029689
Sequence 029690_030201
# Rotation {OX,OY} autour d'un labyrinthe 6x6x6 en visualisant d'abord la distance a l'entree #
# du labyrinthe, puis le nombre de bifurcations depuis l'entree du labyrinthe. #
sequence 030979_031218
sequence 031699_031938
Sequence 031939_032178
# Flot des particules dans le labyrinthe 9x9x9 depuis l'entree du labyrinthe, sans, puis avec #
# trainees courtes, puis longues. #
Sequence 033843_034354
# Deplacement d'un grand nombre (2547) de particules dans le milieu forme par la carte de #
# densite d'un labyrinthe 5x5x5, version Noir et Blanc definissant le "fantome" utilise #
# ci-apres ('v _____xivPdf_04_2/034355_034866' et 'v _____xivPdf_04_2/034867_035378'). #
Sequence 032179_032306
# Carte des densites d'un labyrinthe 5x5x5 donnant naissance au milieu defini par le #
# fichier '$xie/labyrinth_5x5x5.04_2_032179_032306.ACIN.G.densite$GZIP'. #
sequence 032819_033330
Sequence 034355_034866
sequence 033331_033842
Sequence 034867_035378
# Deplacement de 214 particules dans le milieu forme par un un labyrinthe 5x5x5 sans #
# puis avec trainees, et sans puis avec le "fantome"... #
Sequence 035379_035890
# Deplacement de 90 particules issues de l'entree d'un labyrinthe 5x5x5 sans trainees (la #
# version avec trainees est a voir en 'v _____xivPdf_14_1/000001_000512'). #
#######################################################################################################################################
# #
# S E Q U E N C E S L E S P L U S P E R T I N E N T E S ( F I N ) : #
# #
#######################################################################################################################################