#!/bin/csh
#######################################################################################################################################
# #
# N O T A : #
# #
# #
# Author of '$xivP/disk.000000011/face.2/$Fnota' : #
# #
# Jean-Francois COLONNA (LACTAMME, AAAAMMJJhhmmss). #
# #
#######################################################################################################################################
#######################################################################################################################################
# #
# F A C E R E S E R V E E A U X F R A C T A L E S D E T E R M I N I S T E S E T A U C H A O S #
# F A C E ' xivPdf 11 2 ' #
# F A C E S U I T E D E L A F A C E ' xivPdf 11 1 ' #
# F A C E A S U I V R E S U R L A F A C E ' xivPdf 09 2 ' : #
# #
#######################################################################################################################################
#######################################################################################################################################
# #
# 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 ' : #
# #
#######################################################################################################################################
#######################################################################################################################################
# #
# 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 ' : #
# #
#######################################################################################################################################
#######################################################################################################################################
# #
# 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 000001_000065
sequence 000066_000512
# Generee (sur '$LACT29') par : #
# #
# Pal #
# #
# #
# $xci/disk_video_P$Z $xiim_LACT29/RDNW.4. 001 512 RVB \ #
# 11 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz FAUX FAUX VRAI #
# #
# #
# ATTENTION, cette sequence correspond au reenregistrement de la sequence : #
# #
# xivPdf 11 1 / 035867_036250 #
# #
# qui avait ete enregistree incompletement. Par malheur, ce nouvel enregistrement a ete #
# "coupe" en deux par un malheureux 'eject' fait dans une session parallele... #
sequence 000513_001024
# Generee (sur '$LACT29') par : #
# #
# $Z SET Premiere=1 #
# $Z SET Derniere=512 #
# $Z @ Nimages = $Derniere - $Premiere #
# $Z @ Nimages = $Nimages + 1 #
# #
# $Z set Part0=1 #
# $Z set PartN=4 #
# $Z @ Npart = $PartN - $Part0 #
# $Z @ Npart = $Npart + 1 #
# #
# $Z alias Gen 'set Fi=\!:1 ; set vD=\!:2 ; set vA=\!:3 ; set ArG=(\!:4*) ; \\ #
# $Z $DELETE $Fi ; \\ #
# $Z $xci/valeurs_inte$X p=$Part0 d=$PartN vD=$vD vA=$vA $ArG > $Fi ; \\ #
# $Z unset Fi vD vA ArG' #
# #
# $Z alias GenR 'set Fi=\!:1 ; set In=\!:2 ; set Su=\!:3 ; set ArG=(\!:4*) ; \\ #
# $Z $DELETE $Fi ; \\ #
# $Z $xci/valeurs_alea$X p=$Part0 d=$PartN signe="$KV" inf=$In sup=$Su $ArG > $Fi ; \\ #
# $Z unset Fi In Su ArG' #
# #
# $Z Gen $xTV/COORDONNEES$COORD_X 0.0 0.0 #
# $Z Gen $xTV/COORDONNEES$COORD_Y 0.0 0.0 #
# $Z Gen $xTV/COORDONNEES$COORD_Z 0.0 0.0 #
# #
# $Z GenR $xTV/VITESSES 1 5 entiers=VRAI g=21 #
# #
# $Z $DELETE $xTV/VITESSES$COORD_X #
# $Z $CA $xTV/VITESSES \ #
# $Z | $SE -e 's/^1$/+0.02/' -e 's/^2$/0/' -e 's/^3$/-0.02/' -e 's/^4$/0/' \ #
# $Z > $xTV/VITESSES$COORD_X #
# $Z $DELETE $xTV/VITESSES$COORD_Y #
# $Z $CA $xTV/VITESSES \ #
# $Z | $SE -e 's/^1$/0/' -e 's/^2$/+0.02/' -e 's/^3$/0/' -e 's/^4$/-0.02/' \ #
# $Z > $xTV/VITESSES$COORD_Y #
# $Z $DELETE $xTV/VITESSES$COORD_Z #
# $Z $CA $xTV/VITESSES \ #
# $Z | $SE -e 's/^1$/0/' -e 's/^2$/0/' -e 's/^3$/0/' -e 's/^4$/0/' \ #
# $Z > $xTV/VITESSES$COORD_Z #
# #
# $Z Gen $xTV/mdRHO 0.0 0.0 #
# $Z Gen $xTV/MdRHO 0.0 0.0 #
# $Z Gen $xTV/mnPHI -2 -2 #
# $Z Gen $xTV/MnPHI +2 +2 #
# $Z Gen $xTV/dPHI $pis2 $pis2 #
# $Z Gen $xTV/mnTHETA 0 0 #
# $Z Gen $xTV/MnTHETA 0 0 #
# $Z Gen $xTV/dTHETA $pis2 $pis2 #
# $Z Gen $xTV/DISTANCE 1000000 1000000 #
# $Z Gen $xTV/STABILITE 4 4 #
# $Z Gen $xTV/RAYONS 0.014 0.014 #
# #
# $Z $DELETE $xTV/COULEURS$TEINT #
# $Z $DELETE $xTV/COULEURS$LUMIN #
# $Z $DELETE $xTV/COULEURS$SATUR #
# $Z $DELETE $xTV/COULEURS$Y #
# $Z $DELETE $xTV/COULEURS #
# $Z $DELETE $xTV/COULEURS$ROUGE #
# $Z $DELETE $xTV/COULEURS$VERTE #
# $Z $DELETE $xTV/COULEURS$BLEUE #
# #
# $Z @ TeinteMagenta = $GRIS_7 #
# $Z @ TeinteCyan = $GRIS_4 + $GRIS_8 #
# #
# $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartN \ #
# $Z vD=$TeinteMagenta vA=$TeinteCyan \ #
# $Z cubique=FAUX \ #
# $Z entiers=VRAI \ #
# $Z > $xTV/COULEURS$TEINT #
# $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartN \ #
# $Z vD=$GRIS_4 vA=$GRIS_4 \ #
# $Z cubique=FAUX \ #
# $Z entiers=VRAI \ #
# $Z > $xTV/COULEURS$LUMIN #
# $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartN \ #
# $Z vD=$GRIS_8 vA=$GRIS_8 \ #
# $Z cubique=FAUX \ #
# $Z entiers=VRAI \ #
# $Z > $xTV/COULEURS$SATUR #
# #
# $Z $PAST \ #
# $Z $xTV/COULEURS$TEINT \ #
# $Z $xTV/COULEURS$LUMIN \ #
# $Z $xTV/COULEURS$SATUR \ #
# $Z | $R "$K_TAB" "$K_BLANC" \ #
# $Z | $AW ' { print "H=" $1 " L=" $2 " S=" $3 } ' \ #
# $Z | $SE -e 's+^+$xcg/RVB_HLS$X RVB_HLS=FAUX +' \ #
# $Z | $SE -e 's/$/ eR=VRAI eV=VRAI eB=VRAI/' \ #
# $Z | $SE -e 's/$/ eH=FAUX eL=FAUX eS=FAUX/' \ #
# $Z > $xTV/COULEURS$Y #
# #
# $Z (source $xTV/COULEURS$Y) \ #
# $Z > $xTV/COULEURS #
# #
# $Z $GRE "^R=" $xTV/COULEURS \ #
# $Z | $SE -e "s/^R=//" \ #
# $Z > $xTV/COULEURS$ROUGE #
# $Z $GRE "^V=" $xTV/COULEURS \ #
# $Z | $SE -e "s/^V=//" \ #
# $Z > $xTV/COULEURS$VERTE #
# $Z $GRE "^B=" $xTV/COULEURS \ #
# $Z | $SE -e "s/^B=//" \ #
# $Z > $xTV/COULEURS$BLEUE #
# #
# #
# $Z Pal #
# #
# $Z $xrk/rdn_walk.41$X corps=$Npart \ #
# $Z np=$Nimages \ #
# $Z LISTE_X=$xTV/COORDONNEES$COORD_X \ #
# $Z LISTE_Y=$xTV/COORDONNEES$COORD_Y \ #
# $Z LISTE_Z=$xTV/COORDONNEES$COORD_Z \ #
# $Z LISTE_VX=$xTV/VITESSES$COORD_X \ #
# $Z LISTE_VY=$xTV/VITESSES$COORD_Y \ #
# $Z LISTE_VZ=$xTV/VITESSES$COORD_Z \ #
# $Z LISTE_MINIMUM_DELTA_RHO=$xTV/mdRHO \ #
# $Z LISTE_MAXIMUM_DELTA_RHO=$xTV/MdRHO \ #
# $Z LISTE_MINIMUM_N_PHI=$xTV/mnPHI \ #
# $Z LISTE_MAXIMUM_N_PHI=$xTV/MnPHI \ #
# $Z LISTE_DELTA_PHI=$xTV/dPHI \ #
# $Z LISTE_MINIMUM_N_THETA=$xTV/mnTHETA \ #
# $Z LISTE_MAXIMUM_N_THETA=$xTV/MnTHETA \ #
# $Z LISTE_DELTA_THETA=$xTV/dTHETA \ #
# $Z LISTE_DISTANCE_MAXIMALE=$xTV/DISTANCE \ #
# $Z LISTE_STABILITE=$xTV/STABILITE \ #
# $Z LISTE_RAYON=$xTV/RAYONS \ #
# $Z LISTE_ROUGE=$xTV/COULEURS$ROUGE \ #
# $Z LISTE_VERTE=$xTV/COULEURS$VERTE \ #
# $Z LISTE_BLEUE=$xTV/COULEURS$BLEUE \ #
# $Z centrer=VRAI \ #
# $Z dct=0.5 \ #
# $Z nombre=1 \ #
# $Z trainees=VRAI mode=1 \ #
# $Z attenuation_des_images=0.6 \ #
# $Z attenuation_des_trainees=1.00 \ #
# $Z renormaliser=FAUX \ #
# $Z Lz=100 \ #
# $Z zoom_automatique=VRAI \ #
# $Z centre_de_gravite=FAUX \ #
# $Z fond=FAUX \ #
# $Z R=$xiim/RDNW.W. \ #
# $Z $formatI #
# #
# $Z Gen $xTV/RAYONS 0.028 0.028 #
# #
# $Z $DELETE $xTV/GRAVITE #
# $Z $xrk/rdn_walk.41$X corps=$Npart \ #
# $Z np=$Nimages \ #
# $Z LISTE_X=$xTV/COORDONNEES$COORD_X \ #
# $Z LISTE_Y=$xTV/COORDONNEES$COORD_Y \ #
# $Z LISTE_Z=$xTV/COORDONNEES$COORD_Z \ #
# $Z LISTE_VX=$xTV/VITESSES$COORD_X \ #
# $Z LISTE_VY=$xTV/VITESSES$COORD_Y \ #
# $Z LISTE_VZ=$xTV/VITESSES$COORD_Z \ #
# $Z LISTE_MINIMUM_DELTA_RHO=$xTV/mdRHO \ #
# $Z LISTE_MAXIMUM_DELTA_RHO=$xTV/MdRHO \ #
# $Z LISTE_MINIMUM_N_PHI=$xTV/mnPHI \ #
# $Z LISTE_MAXIMUM_N_PHI=$xTV/MnPHI \ #
# $Z LISTE_DELTA_PHI=$xTV/dPHI \ #
# $Z LISTE_MINIMUM_N_THETA=$xTV/mnTHETA \ #
# $Z LISTE_MAXIMUM_N_THETA=$xTV/MnTHETA \ #
# $Z LISTE_DELTA_THETA=$xTV/dTHETA \ #
# $Z LISTE_DISTANCE_MAXIMALE=$xTV/DISTANCE \ #
# $Z LISTE_STABILITE=$xTV/STABILITE \ #
# $Z LISTE_RAYON=$xTV/RAYONS \ #
# $Z LISTE_ROUGE=$xTV/COULEURS$ROUGE \ #
# $Z LISTE_VERTE=$xTV/COULEURS$VERTE \ #
# $Z LISTE_BLEUE=$xTV/COULEURS$BLEUE \ #
# $Z centrer=VRAI \ #
# $Z dct=0.5 \ #
# $Z nombre=1 \ #
# $Z trainees=VRAI mode=1 \ #
# $Z attenuation_des_images=1.0 \ #
# $Z attenuation_des_trainees=0.80 \ #
# $Z renormaliser=FAUX \ #
# $Z Lz=100 \ #
# $Z zoom_automatique=VRAI \ #
# $Z centre_de_gravite=VRAI \ #
# $Z fond=VRAI \ #
# $Z dynamique=VRAI \ #
# $Z F=$xiim/RDNW.W. \ #
# $Z R=$xiim/RDNW.W. \ #
# $Z $formatI \ #
# $Z > $xTV/GRAVITE #
# #
# $Z $DELETE $xTV/COORDONNEES$COORD_X #
# $Z $DELETE $xTV/COORDONNEES$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_Z #
# $Z $DELETE $xTV/VITESSES #
# $Z $DELETE $xTV/VITESSES$COORD_X #
# $Z $DELETE $xTV/VITESSES$COORD_Y #
# $Z $DELETE $xTV/VITESSES$COORD_Z #
# $Z $DELETE $xTV/mdRHO #
# $Z $DELETE $xTV/MdRHO #
# $Z $DELETE $xTV/mnPHI #
# $Z $DELETE $xTV/MnPHI #
# $Z $DELETE $xTV/dPHI #
# $Z $DELETE $xTV/mnTHETA #
# $Z $DELETE $xTV/MnTHETA #
# $Z $DELETE $xTV/dTHETA #
# $Z $DELETE $xTV/DISTANCE #
# $Z $DELETE $xTV/STABILITE #
# $Z $DELETE $xTV/RAYONS #
# $Z $DELETE $xTV/COULEURS$TEINT #
# $Z $DELETE $xTV/COULEURS$LUMIN #
# $Z $DELETE $xTV/COULEURS$SATUR #
# $Z $DELETE $xTV/COULEURS$Y #
# $Z $DELETE $xTV/COULEURS #
# $Z $DELETE $xTV/COULEURS$ROUGE #
# $Z $DELETE $xTV/COULEURS$VERTE #
# $Z $DELETE $xTV/COULEURS$BLEUE #
# #
# $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("$DELETE $xTV/COORDONNEES\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_X\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_Y\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_Z\n"); #
# #
# $c printf("$DELETE $xTV/COULEURS$ROUGE\n"); #
# $c printf("$DELETE $xTV/COULEURS$VERTE\n"); #
# $c printf("$DELETE $xTV/COULEURS$BLEUE\n"); #
# #
# $c printf("listMN $xTV/GRAVITE #
# $c %d %d #
# $c > $xTV/COORDONNEES\n" #
# $c ,N0,n #
# $c ); #
# #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*XG=//%c #
# $c -e %cs/ .*//%c #
# $c > $xTV/COORDONNEES$COORD_X\n" #
# $c ,'"','"','"','"' #
# $c ); #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*YG=//%c #
# $c -e %cs/ .*//%c #
# $c > $xTV/COORDONNEES$COORD_Y\n" #
# $c ,'"','"','"','"' #
# $c ); #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*ZG=//%c #
# $c > $xTV/COORDONNEES$COORD_Z\n" #
# $c ,'"','"','"','"' #
# $c ); #
# #
# $c printf("$xci/valeurs_inte$X #
# $c premiere=%d derniere=%d #
# $c vD=$GRIS_4 vA=$GRIS_4 #
# $c cubique=FAUX #
# $c entiers=VRAI #
# $c utiliser_la_valeur_de_depart=FAUX #
# $c > $xTV/COULEURS$ROUGE\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/valeurs_inte$X #
# $c premiere=%d derniere=%d #
# $c vD=$GRIS_4 vA=$GRIS_4 #
# $c cubique=FAUX #
# $c entiers=VRAI #
# $c utiliser_la_valeur_de_depart=FAUX #
# $c > $xTV/COULEURS$VERTE\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/valeurs_inte$X #
# $c premiere=%d derniere=%d #
# $c vD=$GRIS_4 vA=$GRIS_4 #
# $c cubique=FAUX #
# $c entiers=VRAI #
# $c utiliser_la_valeur_de_depart=FAUX #
# $c > $xTV/COULEURS$BLEUE\n" #
# $c ,N0,n #
# $c ); #
# #
# $c printf("$xrv/particule.10$X #
# $c np=1 #
# $c iterations=%d #
# $c LISTE_X=$xTV/COORDONNEES$COORD_X #
# $c LISTE_Y=$xTV/COORDONNEES$COORD_Y #
# $c LISTE_Z=$xTV/COORDONNEES$COORD_Z #
# $c LISTE_ROUGE=$xTV/COULEURS$ROUGE #
# $c LISTE_VERTE=$xTV/COULEURS$VERTE #
# $c LISTE_BLEUE=$xTV/COULEURS$BLEUE #
# $c LISTE_RAYON=0.005 #
# $c zoom_automatique=FAUX ZOOM=1.0 #
# $c coordonnees_dans_0_1=FAUX #
# $c AXYZ=1 BXYZ=0 #
# $c fond=VRAI #
# $c fond_dynamique=FAUX #
# $c F=$xiim/RDNW.W.%04d #
# $c R=$xTV/RDNW.A. #
# $c $formatI\n" #
# $c ,(n-N0)+1,n #
# $c ); #
# #
# $c printf("$xci/acces$X #
# $c A=$xTV/RDNW.A.%04d$ROUGE #
# $c R=$xiim/RDNW.W.%04d$ROUGE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xTV/RDNW.A.%04d$VERTE #
# $c R=$xiim/RDNW.W.%04d$VERTE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xTV/RDNW.A.%04d$BLEUE #
# $c R=$xiim/RDNW.W.%04d$BLEUE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# #
# $c printf("$DELETE $xTV/COORDONNEES\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_X\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_Y\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_Z\n"); #
# #
# $c printf("$DELETE $xTV/COULEURS$ROUGE\n"); #
# $c printf("$DELETE $xTV/COULEURS$VERTE\n"); #
# $c printf("$DELETE $xTV/COULEURS$BLEUE\n"); #
# #
# $c printf("listMN $xTV/GRAVITE #
# $c %d %d #
# $c > $xTV/COORDONNEES\n" #
# $c ,n,n #
# $c ); #
# #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*XG=//%c #
# $c -e %cs/ .*//%c #
# $c > $xTV/COORDONNEES$COORD_X\n" #
# $c ,'"','"','"','"' #
# $c ); #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*YG=//%c #
# $c -e %cs/ .*//%c #
# $c > $xTV/COORDONNEES$COORD_Y\n" #
# $c ,'"','"','"','"' #
# $c ); #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*ZG=//%c #
# $c > $xTV/COORDONNEES$COORD_Z\n" #
# $c ,'"','"','"','"' #
# $c ); #
# #
# $c printf("$xci/valeurs_inte$X #
# $c premiere=%d derniere=%d #
# $c vD=$GRIS_8 vA=$GRIS_8 #
# $c cubique=FAUX #
# $c entiers=VRAI #
# $c utiliser_la_valeur_de_depart=FAUX #
# $c > $xTV/COULEURS$ROUGE\n" #
# $c ,n,n #
# $c ); #
# $c printf("$xci/valeurs_inte$X #
# $c premiere=%d derniere=%d #
# $c vD=$GRIS_8 vA=$GRIS_8 #
# $c cubique=FAUX #
# $c entiers=VRAI #
# $c utiliser_la_valeur_de_depart=FAUX #
# $c > $xTV/COULEURS$VERTE\n" #
# $c ,n,n #
# $c ); #
# $c printf("$xci/valeurs_inte$X #
# $c premiere=%d derniere=%d #
# $c vD=$GRIS_8 vA=$GRIS_8 #
# $c cubique=FAUX #
# $c entiers=VRAI #
# $c utiliser_la_valeur_de_depart=FAUX #
# $c > $xTV/COULEURS$BLEUE\n" #
# $c ,n,n #
# $c ); #
# #
# $c printf("$xrv/particule.10$X #
# $c np=1 #
# $c iterations=%d #
# $c LISTE_X=$xTV/COORDONNEES$COORD_X #
# $c LISTE_Y=$xTV/COORDONNEES$COORD_Y #
# $c LISTE_Z=$xTV/COORDONNEES$COORD_Z #
# $c LISTE_ROUGE=$xTV/COULEURS$ROUGE #
# $c LISTE_VERTE=$xTV/COULEURS$VERTE #
# $c LISTE_BLEUE=$xTV/COULEURS$BLEUE #
# $c LISTE_RAYON=0.010 #
# $c zoom_automatique=FAUX ZOOM=1.0 #
# $c coordonnees_dans_0_1=FAUX #
# $c AXYZ=1 BXYZ=0 #
# $c fond=VRAI #
# $c fond_dynamique=FAUX #
# $c F=$xiim/RDNW.W.%04d #
# $c R=$xTV/RDNW.B. #
# $c $formatI\n" #
# $c ,(n-n)+1,n #
# $c ); #
# #
# $c printf("$xci/acces$X #
# $c A=$xTV/RDNW.B.%04d$ROUGE #
# $c R=$xiim/RDNW.1.%04d$ROUGE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xTV/RDNW.B.%04d$VERTE #
# $c R=$xiim/RDNW.1.%04d$VERTE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xTV/RDNW.B.%04d$BLEUE #
# $c R=$xiim/RDNW.1.%04d$BLEUE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# $c } #
# $c } #
# #
# #
# $Z $DELETE $xTV/COORDONNEES #
# $Z $DELETE $xTV/COORDONNEES$COORD_X #
# $Z $DELETE $xTV/COORDONNEES$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_Z #
# $Z $DELETE $xTV/COULEURS$ROUGE #
# $Z $DELETE $xTV/COULEURS$VERTE #
# $Z $DELETE $xTV/COULEURS$BLEUE #
# #
# #
# $Z Pal #
# #
# $Z $xci/reduction_16$Z $xiim/RDNW.1. $xiak/RDNW.A2 $Premiere $Derniere #
# $Z $xci/reduction_64$Z $xiim/RDNW.1. $xiak/RDNW.A2 $Premiere $Derniere #
# #
# $X $xci/genere$X c='ro $xiak/RDNW.A2$R16%s' RVB=VRAI #
# $X $xci/genere$X c='ro $xiak/RDNW.A2$R64%s' RVB=VRAI #
# #
# $X $xci/genere$X c='$xcg/unite$Z $xiak/RDNW.A2$R16%s' RVB=VRAI #
# $X $xci/genere$X c='$xcg/unite$Z $xiak/RDNW.A2$R64%s' RVB=VRAI #
# #
# $X $xci/genere$X c='$CP $xiim/RDNW.1.0512%s $xiirk/RDNW.A2.0512%s' RVB=VRAI #
# #
# $X $xci/genere$X c='ro $xiirk/RDNW.A2.0512%s' RVB=VRAI #
# #
# $X $xci/genere$X c='$xcg/unite$Z $xiirk/RDNW.A2.0512%s' RVB=VRAI #
# #
# #
# Pal #
# #
# #
# $xci/disk_video_P$Z $xiim_LACT29/RDNW.1. 001 512 RVB \ #
# 11 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
# #
# xivPdf 3 2 #
# #
# record.01$Z $xiak/RDNW.A2$R16 RVB Initialisation #
# record.01$Z $xiak/RDNW.A2$R64 RVB rien #
# record.01$Z $xiirk/RDNW.A2.0512 RVB rien #
# #
sequence 001025_001536
# Generee (sur '$LACT29') par : #
# #
# $Z SET Premiere=1 #
# $Z SET Derniere=512 #
# $Z @ Nimages = $Derniere - $Premiere #
# $Z @ Nimages = $Nimages + 1 #
# #
# $Z set Part0=1 #
# $Z set PartN=16 #
# $Z @ Npart = $PartN - $Part0 #
# $Z @ Npart = $Npart + 1 #
# #
# $Z alias Gen 'set Fi=\!:1 ; set vD=\!:2 ; set vA=\!:3 ; set ArG=(\!:4*) ; \\ #
# $Z $DELETE $Fi ; \\ #
# $Z $xci/valeurs_inte$X p=$Part0 d=$PartN vD=$vD vA=$vA $ArG > $Fi ; \\ #
# $Z unset Fi vD vA ArG' #
# #
# $Z alias GenR 'set Fi=\!:1 ; set In=\!:2 ; set Su=\!:3 ; set ArG=(\!:4*) ; \\ #
# $Z $DELETE $Fi ; \\ #
# $Z $xci/valeurs_alea$X p=$Part0 d=$PartN signe="$KV" inf=$In sup=$Su $ArG > $Fi ; \\ #
# $Z unset Fi In Su ArG' #
# #
# $Z Gen $xTV/COORDONNEES$COORD_X 0.0 0.0 #
# $Z Gen $xTV/COORDONNEES$COORD_Y 0.0 0.0 #
# $Z Gen $xTV/COORDONNEES$COORD_Z 0.0 0.0 #
# #
# $Z GenR $xTV/VITESSES 1 5 entiers=VRAI g=21 #
# #
# $Z $DELETE $xTV/VITESSES$COORD_X #
# $Z $CA $xTV/VITESSES \ #
# $Z | $SE -e 's/^1$/+0.02/' -e 's/^2$/0/' -e 's/^3$/-0.02/' -e 's/^4$/0/' \ #
# $Z > $xTV/VITESSES$COORD_X #
# $Z $DELETE $xTV/VITESSES$COORD_Y #
# $Z $CA $xTV/VITESSES \ #
# $Z | $SE -e 's/^1$/0/' -e 's/^2$/+0.02/' -e 's/^3$/0/' -e 's/^4$/-0.02/' \ #
# $Z > $xTV/VITESSES$COORD_Y #
# $Z $DELETE $xTV/VITESSES$COORD_Z #
# $Z $CA $xTV/VITESSES \ #
# $Z | $SE -e 's/^1$/0/' -e 's/^2$/0/' -e 's/^3$/0/' -e 's/^4$/0/' \ #
# $Z > $xTV/VITESSES$COORD_Z #
# #
# $Z Gen $xTV/mdRHO 0.0 0.0 #
# $Z Gen $xTV/MdRHO 0.0 0.0 #
# $Z Gen $xTV/mnPHI -2 -2 #
# $Z Gen $xTV/MnPHI +2 +2 #
# $Z Gen $xTV/dPHI $pis2 $pis2 #
# $Z Gen $xTV/mnTHETA 0 0 #
# $Z Gen $xTV/MnTHETA 0 0 #
# $Z Gen $xTV/dTHETA $pis2 $pis2 #
# $Z Gen $xTV/DISTANCE 1000000 1000000 #
# $Z Gen $xTV/STABILITE 4 4 #
# $Z Gen $xTV/RAYONS 0.014 0.014 #
# #
# $Z $DELETE $xTV/COULEURS$TEINT #
# $Z $DELETE $xTV/COULEURS$LUMIN #
# $Z $DELETE $xTV/COULEURS$SATUR #
# $Z $DELETE $xTV/COULEURS$Y #
# $Z $DELETE $xTV/COULEURS #
# $Z $DELETE $xTV/COULEURS$ROUGE #
# $Z $DELETE $xTV/COULEURS$VERTE #
# $Z $DELETE $xTV/COULEURS$BLEUE #
# #
# $Z @ TeinteMagenta = $GRIS_7 #
# $Z @ TeinteCyan = $GRIS_4 + $GRIS_8 #
# #
# $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartN \ #
# $Z vD=$TeinteMagenta vA=$TeinteCyan \ #
# $Z cubique=FAUX \ #
# $Z entiers=VRAI \ #
# $Z > $xTV/COULEURS$TEINT #
# $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartN \ #
# $Z vD=$GRIS_4 vA=$GRIS_4 \ #
# $Z cubique=FAUX \ #
# $Z entiers=VRAI \ #
# $Z > $xTV/COULEURS$LUMIN #
# $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartN \ #
# $Z vD=$GRIS_8 vA=$GRIS_8 \ #
# $Z cubique=FAUX \ #
# $Z entiers=VRAI \ #
# $Z > $xTV/COULEURS$SATUR #
# #
# $Z $PAST \ #
# $Z $xTV/COULEURS$TEINT \ #
# $Z $xTV/COULEURS$LUMIN \ #
# $Z $xTV/COULEURS$SATUR \ #
# $Z | $R "$K_TAB" "$K_BLANC" \ #
# $Z | $AW ' { print "H=" $1 " L=" $2 " S=" $3 } ' \ #
# $Z | $SE -e 's+^+$xcg/RVB_HLS$X RVB_HLS=FAUX +' \ #
# $Z | $SE -e 's/$/ eR=VRAI eV=VRAI eB=VRAI/' \ #
# $Z | $SE -e 's/$/ eH=FAUX eL=FAUX eS=FAUX/' \ #
# $Z > $xTV/COULEURS$Y #
# #
# $Z (source $xTV/COULEURS$Y) \ #
# $Z > $xTV/COULEURS #
# #
# $Z $GRE "^R=" $xTV/COULEURS \ #
# $Z | $SE -e "s/^R=//" \ #
# $Z > $xTV/COULEURS$ROUGE #
# $Z $GRE "^V=" $xTV/COULEURS \ #
# $Z | $SE -e "s/^V=//" \ #
# $Z > $xTV/COULEURS$VERTE #
# $Z $GRE "^B=" $xTV/COULEURS \ #
# $Z | $SE -e "s/^B=//" \ #
# $Z > $xTV/COULEURS$BLEUE #
# #
# #
# $Z Pal #
# #
# $Z $xrk/rdn_walk.41$X corps=$Npart \ #
# $Z np=$Nimages \ #
# $Z LISTE_X=$xTV/COORDONNEES$COORD_X \ #
# $Z LISTE_Y=$xTV/COORDONNEES$COORD_Y \ #
# $Z LISTE_Z=$xTV/COORDONNEES$COORD_Z \ #
# $Z LISTE_VX=$xTV/VITESSES$COORD_X \ #
# $Z LISTE_VY=$xTV/VITESSES$COORD_Y \ #
# $Z LISTE_VZ=$xTV/VITESSES$COORD_Z \ #
# $Z LISTE_MINIMUM_DELTA_RHO=$xTV/mdRHO \ #
# $Z LISTE_MAXIMUM_DELTA_RHO=$xTV/MdRHO \ #
# $Z LISTE_MINIMUM_N_PHI=$xTV/mnPHI \ #
# $Z LISTE_MAXIMUM_N_PHI=$xTV/MnPHI \ #
# $Z LISTE_DELTA_PHI=$xTV/dPHI \ #
# $Z LISTE_MINIMUM_N_THETA=$xTV/mnTHETA \ #
# $Z LISTE_MAXIMUM_N_THETA=$xTV/MnTHETA \ #
# $Z LISTE_DELTA_THETA=$xTV/dTHETA \ #
# $Z LISTE_DISTANCE_MAXIMALE=$xTV/DISTANCE \ #
# $Z LISTE_STABILITE=$xTV/STABILITE \ #
# $Z LISTE_RAYON=$xTV/RAYONS \ #
# $Z LISTE_ROUGE=$xTV/COULEURS$ROUGE \ #
# $Z LISTE_VERTE=$xTV/COULEURS$VERTE \ #
# $Z LISTE_BLEUE=$xTV/COULEURS$BLEUE \ #
# $Z centrer=VRAI \ #
# $Z dct=0.5 \ #
# $Z nombre=1 \ #
# $Z trainees=VRAI mode=1 \ #
# $Z attenuation_des_images=0.6 \ #
# $Z attenuation_des_trainees=1.00 \ #
# $Z renormaliser=FAUX \ #
# $Z Lz=100 \ #
# $Z zoom_automatique=VRAI \ #
# $Z centre_de_gravite=FAUX \ #
# $Z fond=FAUX \ #
# $Z R=$xiim/RDNW.W. \ #
# $Z $formatI #
# #
# $Z Gen $xTV/RAYONS 0.028 0.028 #
# #
# $Z $DELETE $xTV/GRAVITE #
# $Z $xrk/rdn_walk.41$X corps=$Npart \ #
# $Z np=$Nimages \ #
# $Z LISTE_X=$xTV/COORDONNEES$COORD_X \ #
# $Z LISTE_Y=$xTV/COORDONNEES$COORD_Y \ #
# $Z LISTE_Z=$xTV/COORDONNEES$COORD_Z \ #
# $Z LISTE_VX=$xTV/VITESSES$COORD_X \ #
# $Z LISTE_VY=$xTV/VITESSES$COORD_Y \ #
# $Z LISTE_VZ=$xTV/VITESSES$COORD_Z \ #
# $Z LISTE_MINIMUM_DELTA_RHO=$xTV/mdRHO \ #
# $Z LISTE_MAXIMUM_DELTA_RHO=$xTV/MdRHO \ #
# $Z LISTE_MINIMUM_N_PHI=$xTV/mnPHI \ #
# $Z LISTE_MAXIMUM_N_PHI=$xTV/MnPHI \ #
# $Z LISTE_DELTA_PHI=$xTV/dPHI \ #
# $Z LISTE_MINIMUM_N_THETA=$xTV/mnTHETA \ #
# $Z LISTE_MAXIMUM_N_THETA=$xTV/MnTHETA \ #
# $Z LISTE_DELTA_THETA=$xTV/dTHETA \ #
# $Z LISTE_DISTANCE_MAXIMALE=$xTV/DISTANCE \ #
# $Z LISTE_STABILITE=$xTV/STABILITE \ #
# $Z LISTE_RAYON=$xTV/RAYONS \ #
# $Z LISTE_ROUGE=$xTV/COULEURS$ROUGE \ #
# $Z LISTE_VERTE=$xTV/COULEURS$VERTE \ #
# $Z LISTE_BLEUE=$xTV/COULEURS$BLEUE \ #
# $Z centrer=VRAI \ #
# $Z dct=0.5 \ #
# $Z nombre=1 \ #
# $Z trainees=VRAI mode=1 \ #
# $Z attenuation_des_images=1.0 \ #
# $Z attenuation_des_trainees=0.80 \ #
# $Z renormaliser=FAUX \ #
# $Z Lz=100 \ #
# $Z zoom_automatique=VRAI \ #
# $Z centre_de_gravite=VRAI \ #
# $Z fond=VRAI \ #
# $Z dynamique=VRAI \ #
# $Z F=$xiim/RDNW.W. \ #
# $Z R=$xiim/RDNW.W. \ #
# $Z $formatI \ #
# $Z > $xTV/GRAVITE #
# #
# $Z $DELETE $xTV/COORDONNEES$COORD_X #
# $Z $DELETE $xTV/COORDONNEES$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_Z #
# $Z $DELETE $xTV/VITESSES #
# $Z $DELETE $xTV/VITESSES$COORD_X #
# $Z $DELETE $xTV/VITESSES$COORD_Y #
# $Z $DELETE $xTV/VITESSES$COORD_Z #
# $Z $DELETE $xTV/mdRHO #
# $Z $DELETE $xTV/MdRHO #
# $Z $DELETE $xTV/mnPHI #
# $Z $DELETE $xTV/MnPHI #
# $Z $DELETE $xTV/dPHI #
# $Z $DELETE $xTV/mnTHETA #
# $Z $DELETE $xTV/MnTHETA #
# $Z $DELETE $xTV/dTHETA #
# $Z $DELETE $xTV/DISTANCE #
# $Z $DELETE $xTV/STABILITE #
# $Z $DELETE $xTV/RAYONS #
# $Z $DELETE $xTV/COULEURS$TEINT #
# $Z $DELETE $xTV/COULEURS$LUMIN #
# $Z $DELETE $xTV/COULEURS$SATUR #
# $Z $DELETE $xTV/COULEURS$Y #
# $Z $DELETE $xTV/COULEURS #
# $Z $DELETE $xTV/COULEURS$ROUGE #
# $Z $DELETE $xTV/COULEURS$VERTE #
# $Z $DELETE $xTV/COULEURS$BLEUE #
# #
# $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("$DELETE $xTV/COORDONNEES\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_X\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_Y\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_Z\n"); #
# #
# $c printf("$DELETE $xTV/COULEURS$ROUGE\n"); #
# $c printf("$DELETE $xTV/COULEURS$VERTE\n"); #
# $c printf("$DELETE $xTV/COULEURS$BLEUE\n"); #
# #
# $c printf("listMN $xTV/GRAVITE #
# $c %d %d #
# $c > $xTV/COORDONNEES\n" #
# $c ,N0,n #
# $c ); #
# #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*XG=//%c #
# $c -e %cs/ .*//%c #
# $c > $xTV/COORDONNEES$COORD_X\n" #
# $c ,'"','"','"','"' #
# $c ); #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*YG=//%c #
# $c -e %cs/ .*//%c #
# $c > $xTV/COORDONNEES$COORD_Y\n" #
# $c ,'"','"','"','"' #
# $c ); #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*ZG=//%c #
# $c > $xTV/COORDONNEES$COORD_Z\n" #
# $c ,'"','"','"','"' #
# $c ); #
# #
# $c printf("$xci/valeurs_inte$X #
# $c premiere=%d derniere=%d #
# $c vD=$GRIS_4 vA=$GRIS_4 #
# $c cubique=FAUX #
# $c entiers=VRAI #
# $c utiliser_la_valeur_de_depart=FAUX #
# $c > $xTV/COULEURS$ROUGE\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/valeurs_inte$X #
# $c premiere=%d derniere=%d #
# $c vD=$GRIS_4 vA=$GRIS_4 #
# $c cubique=FAUX #
# $c entiers=VRAI #
# $c utiliser_la_valeur_de_depart=FAUX #
# $c > $xTV/COULEURS$VERTE\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/valeurs_inte$X #
# $c premiere=%d derniere=%d #
# $c vD=$GRIS_4 vA=$GRIS_4 #
# $c cubique=FAUX #
# $c entiers=VRAI #
# $c utiliser_la_valeur_de_depart=FAUX #
# $c > $xTV/COULEURS$BLEUE\n" #
# $c ,N0,n #
# $c ); #
# #
# $c printf("$xrv/particule.10$X #
# $c np=1 #
# $c iterations=%d #
# $c LISTE_X=$xTV/COORDONNEES$COORD_X #
# $c LISTE_Y=$xTV/COORDONNEES$COORD_Y #
# $c LISTE_Z=$xTV/COORDONNEES$COORD_Z #
# $c LISTE_ROUGE=$xTV/COULEURS$ROUGE #
# $c LISTE_VERTE=$xTV/COULEURS$VERTE #
# $c LISTE_BLEUE=$xTV/COULEURS$BLEUE #
# $c LISTE_RAYON=0.005 #
# $c zoom_automatique=FAUX ZOOM=1.0 #
# $c coordonnees_dans_0_1=FAUX #
# $c AXYZ=1 BXYZ=0 #
# $c fond=VRAI #
# $c fond_dynamique=FAUX #
# $c F=$xiim/RDNW.W.%04d #
# $c R=$xTV/RDNW.A. #
# $c $formatI\n" #
# $c ,(n-N0)+1,n #
# $c ); #
# #
# $c printf("$xci/acces$X #
# $c A=$xTV/RDNW.A.%04d$ROUGE #
# $c R=$xiim/RDNW.W.%04d$ROUGE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xTV/RDNW.A.%04d$VERTE #
# $c R=$xiim/RDNW.W.%04d$VERTE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xTV/RDNW.A.%04d$BLEUE #
# $c R=$xiim/RDNW.W.%04d$BLEUE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# #
# $c printf("$DELETE $xTV/COORDONNEES\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_X\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_Y\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_Z\n"); #
# #
# $c printf("$DELETE $xTV/COULEURS$ROUGE\n"); #
# $c printf("$DELETE $xTV/COULEURS$VERTE\n"); #
# $c printf("$DELETE $xTV/COULEURS$BLEUE\n"); #
# #
# $c printf("listMN $xTV/GRAVITE #
# $c %d %d #
# $c > $xTV/COORDONNEES\n" #
# $c ,n,n #
# $c ); #
# #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*XG=//%c #
# $c -e %cs/ .*//%c #
# $c > $xTV/COORDONNEES$COORD_X\n" #
# $c ,'"','"','"','"' #
# $c ); #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*YG=//%c #
# $c -e %cs/ .*//%c #
# $c > $xTV/COORDONNEES$COORD_Y\n" #
# $c ,'"','"','"','"' #
# $c ); #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*ZG=//%c #
# $c > $xTV/COORDONNEES$COORD_Z\n" #
# $c ,'"','"','"','"' #
# $c ); #
# #
# $c printf("$xci/valeurs_inte$X #
# $c premiere=%d derniere=%d #
# $c vD=$GRIS_8 vA=$GRIS_8 #
# $c cubique=FAUX #
# $c entiers=VRAI #
# $c utiliser_la_valeur_de_depart=FAUX #
# $c > $xTV/COULEURS$ROUGE\n" #
# $c ,n,n #
# $c ); #
# $c printf("$xci/valeurs_inte$X #
# $c premiere=%d derniere=%d #
# $c vD=$GRIS_8 vA=$GRIS_8 #
# $c cubique=FAUX #
# $c entiers=VRAI #
# $c utiliser_la_valeur_de_depart=FAUX #
# $c > $xTV/COULEURS$VERTE\n" #
# $c ,n,n #
# $c ); #
# $c printf("$xci/valeurs_inte$X #
# $c premiere=%d derniere=%d #
# $c vD=$GRIS_8 vA=$GRIS_8 #
# $c cubique=FAUX #
# $c entiers=VRAI #
# $c utiliser_la_valeur_de_depart=FAUX #
# $c > $xTV/COULEURS$BLEUE\n" #
# $c ,n,n #
# $c ); #
# #
# $c printf("$xrv/particule.10$X #
# $c np=1 #
# $c iterations=%d #
# $c LISTE_X=$xTV/COORDONNEES$COORD_X #
# $c LISTE_Y=$xTV/COORDONNEES$COORD_Y #
# $c LISTE_Z=$xTV/COORDONNEES$COORD_Z #
# $c LISTE_ROUGE=$xTV/COULEURS$ROUGE #
# $c LISTE_VERTE=$xTV/COULEURS$VERTE #
# $c LISTE_BLEUE=$xTV/COULEURS$BLEUE #
# $c LISTE_RAYON=0.010 #
# $c zoom_automatique=FAUX ZOOM=1.0 #
# $c coordonnees_dans_0_1=FAUX #
# $c AXYZ=1 BXYZ=0 #
# $c fond=VRAI #
# $c fond_dynamique=FAUX #
# $c F=$xiim/RDNW.W.%04d #
# $c R=$xTV/RDNW.B. #
# $c $formatI\n" #
# $c ,(n-n)+1,n #
# $c ); #
# #
# $c printf("$xci/acces$X #
# $c A=$xTV/RDNW.B.%04d$ROUGE #
# $c R=$xiim/RDNW.2.%04d$ROUGE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xTV/RDNW.B.%04d$VERTE #
# $c R=$xiim/RDNW.2.%04d$VERTE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xTV/RDNW.B.%04d$BLEUE #
# $c R=$xiim/RDNW.2.%04d$BLEUE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# $c } #
# $c } #
# #
# #
# $Z $DELETE $xTV/COORDONNEES #
# $Z $DELETE $xTV/COORDONNEES$COORD_X #
# $Z $DELETE $xTV/COORDONNEES$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_Z #
# $Z $DELETE $xTV/COULEURS$ROUGE #
# $Z $DELETE $xTV/COULEURS$VERTE #
# $Z $DELETE $xTV/COULEURS$BLEUE #
# #
# #
# $Z Pal #
# #
# $Z $xci/reduction_16$Z $xiim/RDNW.2. $xiak/RDNW.A4 $Premiere $Derniere #
# $Z $xci/reduction_64$Z $xiim/RDNW.2. $xiak/RDNW.A4 $Premiere $Derniere #
# #
# $X $xci/genere$X c='ro $xiak/RDNW.A4$R16%s' RVB=VRAI #
# $X $xci/genere$X c='ro $xiak/RDNW.A4$R64%s' RVB=VRAI #
# #
# $X $xci/genere$X c='$xcg/unite$Z $xiak/RDNW.A4$R16%s' RVB=VRAI #
# $X $xci/genere$X c='$xcg/unite$Z $xiak/RDNW.A4$R64%s' RVB=VRAI #
# #
# $X $xci/genere$X c='$CP $xiim/RDNW.2.0512%s $xiirk/RDNW.A4.0512%s' RVB=VRAI #
# #
# $X $xci/genere$X c='ro $xiirk/RDNW.A4.0512%s' RVB=VRAI #
# #
# $X $xci/genere$X c='$xcg/unite$Z $xiirk/RDNW.A4.0512%s' RVB=VRAI #
# #
# #
# Pal #
# #
# #
# $xci/disk_video_P$Z $xiim_LACT29/RDNW.2. 001 512 RVB \ #
# 11 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
# #
# xivPdf 3 2 #
# #
# record.01$Z $xiak/RDNW.A4$R16 RVB Initialisation #
# record.01$Z $xiak/RDNW.A4$R64 RVB rien #
# record.01$Z $xiirk/RDNW.A4.0512 RVB rien #
# #
sequence 001537_002048
# Generee (sur '$LACT29') par : #
# #
# $Z SET Premiere=1 #
# $Z SET Derniere=512 #
# $Z @ Nimages = $Derniere - $Premiere #
# $Z @ Nimages = $Nimages + 1 #
# #
# $Z set Part0=1 #
# $Z set PartN=64 #
# $Z @ Npart = $PartN - $Part0 #
# $Z @ Npart = $Npart + 1 #
# #
# $Z alias Gen 'set Fi=\!:1 ; set vD=\!:2 ; set vA=\!:3 ; set ArG=(\!:4*) ; \\ #
# $Z $DELETE $Fi ; \\ #
# $Z $xci/valeurs_inte$X p=$Part0 d=$PartN vD=$vD vA=$vA $ArG > $Fi ; \\ #
# $Z unset Fi vD vA ArG' #
# #
# $Z alias GenR 'set Fi=\!:1 ; set In=\!:2 ; set Su=\!:3 ; set ArG=(\!:4*) ; \\ #
# $Z $DELETE $Fi ; \\ #
# $Z $xci/valeurs_alea$X p=$Part0 d=$PartN signe="$KV" inf=$In sup=$Su $ArG > $Fi ; \\ #
# $Z unset Fi In Su ArG' #
# #
# $Z Gen $xTV/COORDONNEES$COORD_X 0.0 0.0 #
# $Z Gen $xTV/COORDONNEES$COORD_Y 0.0 0.0 #
# $Z Gen $xTV/COORDONNEES$COORD_Z 0.0 0.0 #
# #
# $Z GenR $xTV/VITESSES 1 5 entiers=VRAI g=21 #
# #
# $Z $DELETE $xTV/VITESSES$COORD_X #
# $Z $CA $xTV/VITESSES \ #
# $Z | $SE -e 's/^1$/+0.02/' -e 's/^2$/0/' -e 's/^3$/-0.02/' -e 's/^4$/0/' \ #
# $Z > $xTV/VITESSES$COORD_X #
# $Z $DELETE $xTV/VITESSES$COORD_Y #
# $Z $CA $xTV/VITESSES \ #
# $Z | $SE -e 's/^1$/0/' -e 's/^2$/+0.02/' -e 's/^3$/0/' -e 's/^4$/-0.02/' \ #
# $Z > $xTV/VITESSES$COORD_Y #
# $Z $DELETE $xTV/VITESSES$COORD_Z #
# $Z $CA $xTV/VITESSES \ #
# $Z | $SE -e 's/^1$/0/' -e 's/^2$/0/' -e 's/^3$/0/' -e 's/^4$/0/' \ #
# $Z > $xTV/VITESSES$COORD_Z #
# #
# $Z Gen $xTV/mdRHO 0.0 0.0 #
# $Z Gen $xTV/MdRHO 0.0 0.0 #
# $Z Gen $xTV/mnPHI -2 -2 #
# $Z Gen $xTV/MnPHI +2 +2 #
# $Z Gen $xTV/dPHI $pis2 $pis2 #
# $Z Gen $xTV/mnTHETA 0 0 #
# $Z Gen $xTV/MnTHETA 0 0 #
# $Z Gen $xTV/dTHETA $pis2 $pis2 #
# $Z Gen $xTV/DISTANCE 1000000 1000000 #
# $Z Gen $xTV/STABILITE 4 4 #
# $Z Gen $xTV/RAYONS 0.014 0.014 #
# #
# $Z $DELETE $xTV/COULEURS$TEINT #
# $Z $DELETE $xTV/COULEURS$LUMIN #
# $Z $DELETE $xTV/COULEURS$SATUR #
# $Z $DELETE $xTV/COULEURS$Y #
# $Z $DELETE $xTV/COULEURS #
# $Z $DELETE $xTV/COULEURS$ROUGE #
# $Z $DELETE $xTV/COULEURS$VERTE #
# $Z $DELETE $xTV/COULEURS$BLEUE #
# #
# $Z @ TeinteMagenta = $GRIS_7 #
# $Z @ TeinteCyan = $GRIS_4 + $GRIS_8 #
# #
# $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartN \ #
# $Z vD=$TeinteMagenta vA=$TeinteCyan \ #
# $Z cubique=FAUX \ #
# $Z entiers=VRAI \ #
# $Z > $xTV/COULEURS$TEINT #
# $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartN \ #
# $Z vD=$GRIS_4 vA=$GRIS_4 \ #
# $Z cubique=FAUX \ #
# $Z entiers=VRAI \ #
# $Z > $xTV/COULEURS$LUMIN #
# $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartN \ #
# $Z vD=$GRIS_8 vA=$GRIS_8 \ #
# $Z cubique=FAUX \ #
# $Z entiers=VRAI \ #
# $Z > $xTV/COULEURS$SATUR #
# #
# $Z $PAST \ #
# $Z $xTV/COULEURS$TEINT \ #
# $Z $xTV/COULEURS$LUMIN \ #
# $Z $xTV/COULEURS$SATUR \ #
# $Z | $R "$K_TAB" "$K_BLANC" \ #
# $Z | $AW ' { print "H=" $1 " L=" $2 " S=" $3 } ' \ #
# $Z | $SE -e 's+^+$xcg/RVB_HLS$X RVB_HLS=FAUX +' \ #
# $Z | $SE -e 's/$/ eR=VRAI eV=VRAI eB=VRAI/' \ #
# $Z | $SE -e 's/$/ eH=FAUX eL=FAUX eS=FAUX/' \ #
# $Z > $xTV/COULEURS$Y #
# #
# $Z (source $xTV/COULEURS$Y) \ #
# $Z > $xTV/COULEURS #
# #
# $Z $GRE "^R=" $xTV/COULEURS \ #
# $Z | $SE -e "s/^R=//" \ #
# $Z > $xTV/COULEURS$ROUGE #
# $Z $GRE "^V=" $xTV/COULEURS \ #
# $Z | $SE -e "s/^V=//" \ #
# $Z > $xTV/COULEURS$VERTE #
# $Z $GRE "^B=" $xTV/COULEURS \ #
# $Z | $SE -e "s/^B=//" \ #
# $Z > $xTV/COULEURS$BLEUE #
# #
# #
# $Z Pal #
# #
# $Z $xrk/rdn_walk.41$X corps=$Npart \ #
# $Z np=$Nimages \ #
# $Z LISTE_X=$xTV/COORDONNEES$COORD_X \ #
# $Z LISTE_Y=$xTV/COORDONNEES$COORD_Y \ #
# $Z LISTE_Z=$xTV/COORDONNEES$COORD_Z \ #
# $Z LISTE_VX=$xTV/VITESSES$COORD_X \ #
# $Z LISTE_VY=$xTV/VITESSES$COORD_Y \ #
# $Z LISTE_VZ=$xTV/VITESSES$COORD_Z \ #
# $Z LISTE_MINIMUM_DELTA_RHO=$xTV/mdRHO \ #
# $Z LISTE_MAXIMUM_DELTA_RHO=$xTV/MdRHO \ #
# $Z LISTE_MINIMUM_N_PHI=$xTV/mnPHI \ #
# $Z LISTE_MAXIMUM_N_PHI=$xTV/MnPHI \ #
# $Z LISTE_DELTA_PHI=$xTV/dPHI \ #
# $Z LISTE_MINIMUM_N_THETA=$xTV/mnTHETA \ #
# $Z LISTE_MAXIMUM_N_THETA=$xTV/MnTHETA \ #
# $Z LISTE_DELTA_THETA=$xTV/dTHETA \ #
# $Z LISTE_DISTANCE_MAXIMALE=$xTV/DISTANCE \ #
# $Z LISTE_STABILITE=$xTV/STABILITE \ #
# $Z LISTE_RAYON=$xTV/RAYONS \ #
# $Z LISTE_ROUGE=$xTV/COULEURS$ROUGE \ #
# $Z LISTE_VERTE=$xTV/COULEURS$VERTE \ #
# $Z LISTE_BLEUE=$xTV/COULEURS$BLEUE \ #
# $Z centrer=VRAI \ #
# $Z dct=0.5 \ #
# $Z nombre=1 \ #
# $Z trainees=VRAI mode=1 \ #
# $Z attenuation_des_images=0.6 \ #
# $Z attenuation_des_trainees=1.00 \ #
# $Z renormaliser=FAUX \ #
# $Z Lz=100 \ #
# $Z zoom_automatique=VRAI \ #
# $Z centre_de_gravite=FAUX \ #
# $Z fond=FAUX \ #
# $Z R=$xiim/RDNW.W. \ #
# $Z $formatI #
# #
# $Z Gen $xTV/RAYONS 0.028 0.028 #
# #
# $Z $DELETE $xTV/GRAVITE #
# $Z $xrk/rdn_walk.41$X corps=$Npart \ #
# $Z np=$Nimages \ #
# $Z LISTE_X=$xTV/COORDONNEES$COORD_X \ #
# $Z LISTE_Y=$xTV/COORDONNEES$COORD_Y \ #
# $Z LISTE_Z=$xTV/COORDONNEES$COORD_Z \ #
# $Z LISTE_VX=$xTV/VITESSES$COORD_X \ #
# $Z LISTE_VY=$xTV/VITESSES$COORD_Y \ #
# $Z LISTE_VZ=$xTV/VITESSES$COORD_Z \ #
# $Z LISTE_MINIMUM_DELTA_RHO=$xTV/mdRHO \ #
# $Z LISTE_MAXIMUM_DELTA_RHO=$xTV/MdRHO \ #
# $Z LISTE_MINIMUM_N_PHI=$xTV/mnPHI \ #
# $Z LISTE_MAXIMUM_N_PHI=$xTV/MnPHI \ #
# $Z LISTE_DELTA_PHI=$xTV/dPHI \ #
# $Z LISTE_MINIMUM_N_THETA=$xTV/mnTHETA \ #
# $Z LISTE_MAXIMUM_N_THETA=$xTV/MnTHETA \ #
# $Z LISTE_DELTA_THETA=$xTV/dTHETA \ #
# $Z LISTE_DISTANCE_MAXIMALE=$xTV/DISTANCE \ #
# $Z LISTE_STABILITE=$xTV/STABILITE \ #
# $Z LISTE_RAYON=$xTV/RAYONS \ #
# $Z LISTE_ROUGE=$xTV/COULEURS$ROUGE \ #
# $Z LISTE_VERTE=$xTV/COULEURS$VERTE \ #
# $Z LISTE_BLEUE=$xTV/COULEURS$BLEUE \ #
# $Z centrer=VRAI \ #
# $Z dct=0.5 \ #
# $Z nombre=1 \ #
# $Z trainees=VRAI mode=1 \ #
# $Z attenuation_des_images=1.0 \ #
# $Z attenuation_des_trainees=0.80 \ #
# $Z renormaliser=FAUX \ #
# $Z Lz=100 \ #
# $Z zoom_automatique=VRAI \ #
# $Z centre_de_gravite=VRAI \ #
# $Z fond=VRAI \ #
# $Z dynamique=VRAI \ #
# $Z F=$xiim/RDNW.W. \ #
# $Z R=$xiim/RDNW.W. \ #
# $Z $formatI \ #
# $Z > $xTV/GRAVITE #
# #
# $Z $DELETE $xTV/COORDONNEES$COORD_X #
# $Z $DELETE $xTV/COORDONNEES$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_Z #
# $Z $DELETE $xTV/VITESSES #
# $Z $DELETE $xTV/VITESSES$COORD_X #
# $Z $DELETE $xTV/VITESSES$COORD_Y #
# $Z $DELETE $xTV/VITESSES$COORD_Z #
# $Z $DELETE $xTV/mdRHO #
# $Z $DELETE $xTV/MdRHO #
# $Z $DELETE $xTV/mnPHI #
# $Z $DELETE $xTV/MnPHI #
# $Z $DELETE $xTV/dPHI #
# $Z $DELETE $xTV/mnTHETA #
# $Z $DELETE $xTV/MnTHETA #
# $Z $DELETE $xTV/dTHETA #
# $Z $DELETE $xTV/DISTANCE #
# $Z $DELETE $xTV/STABILITE #
# $Z $DELETE $xTV/RAYONS #
# $Z $DELETE $xTV/COULEURS$TEINT #
# $Z $DELETE $xTV/COULEURS$LUMIN #
# $Z $DELETE $xTV/COULEURS$SATUR #
# $Z $DELETE $xTV/COULEURS$Y #
# $Z $DELETE $xTV/COULEURS #
# $Z $DELETE $xTV/COULEURS$ROUGE #
# $Z $DELETE $xTV/COULEURS$VERTE #
# $Z $DELETE $xTV/COULEURS$BLEUE #
# #
# $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("$DELETE $xTV/COORDONNEES\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_X\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_Y\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_Z\n"); #
# #
# $c printf("$DELETE $xTV/COULEURS$ROUGE\n"); #
# $c printf("$DELETE $xTV/COULEURS$VERTE\n"); #
# $c printf("$DELETE $xTV/COULEURS$BLEUE\n"); #
# #
# $c printf("listMN $xTV/GRAVITE #
# $c %d %d #
# $c > $xTV/COORDONNEES\n" #
# $c ,N0,n #
# $c ); #
# #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*XG=//%c #
# $c -e %cs/ .*//%c #
# $c > $xTV/COORDONNEES$COORD_X\n" #
# $c ,'"','"','"','"' #
# $c ); #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*YG=//%c #
# $c -e %cs/ .*//%c #
# $c > $xTV/COORDONNEES$COORD_Y\n" #
# $c ,'"','"','"','"' #
# $c ); #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*ZG=//%c #
# $c > $xTV/COORDONNEES$COORD_Z\n" #
# $c ,'"','"','"','"' #
# $c ); #
# #
# $c printf("$xci/valeurs_inte$X #
# $c premiere=%d derniere=%d #
# $c vD=$GRIS_4 vA=$GRIS_4 #
# $c cubique=FAUX #
# $c entiers=VRAI #
# $c utiliser_la_valeur_de_depart=FAUX #
# $c > $xTV/COULEURS$ROUGE\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/valeurs_inte$X #
# $c premiere=%d derniere=%d #
# $c vD=$GRIS_4 vA=$GRIS_4 #
# $c cubique=FAUX #
# $c entiers=VRAI #
# $c utiliser_la_valeur_de_depart=FAUX #
# $c > $xTV/COULEURS$VERTE\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/valeurs_inte$X #
# $c premiere=%d derniere=%d #
# $c vD=$GRIS_4 vA=$GRIS_4 #
# $c cubique=FAUX #
# $c entiers=VRAI #
# $c utiliser_la_valeur_de_depart=FAUX #
# $c > $xTV/COULEURS$BLEUE\n" #
# $c ,N0,n #
# $c ); #
# #
# $c printf("$xrv/particule.10$X #
# $c np=1 #
# $c iterations=%d #
# $c LISTE_X=$xTV/COORDONNEES$COORD_X #
# $c LISTE_Y=$xTV/COORDONNEES$COORD_Y #
# $c LISTE_Z=$xTV/COORDONNEES$COORD_Z #
# $c LISTE_ROUGE=$xTV/COULEURS$ROUGE #
# $c LISTE_VERTE=$xTV/COULEURS$VERTE #
# $c LISTE_BLEUE=$xTV/COULEURS$BLEUE #
# $c LISTE_RAYON=0.005 #
# $c zoom_automatique=FAUX ZOOM=1.0 #
# $c coordonnees_dans_0_1=FAUX #
# $c AXYZ=1 BXYZ=0 #
# $c fond=VRAI #
# $c fond_dynamique=FAUX #
# $c F=$xiim/RDNW.W.%04d #
# $c R=$xTV/RDNW.A. #
# $c $formatI\n" #
# $c ,(n-N0)+1,n #
# $c ); #
# #
# $c printf("$xci/acces$X #
# $c A=$xTV/RDNW.A.%04d$ROUGE #
# $c R=$xiim/RDNW.W.%04d$ROUGE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xTV/RDNW.A.%04d$VERTE #
# $c R=$xiim/RDNW.W.%04d$VERTE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xTV/RDNW.A.%04d$BLEUE #
# $c R=$xiim/RDNW.W.%04d$BLEUE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# #
# $c printf("$DELETE $xTV/COORDONNEES\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_X\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_Y\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_Z\n"); #
# #
# $c printf("$DELETE $xTV/COULEURS$ROUGE\n"); #
# $c printf("$DELETE $xTV/COULEURS$VERTE\n"); #
# $c printf("$DELETE $xTV/COULEURS$BLEUE\n"); #
# #
# $c printf("listMN $xTV/GRAVITE #
# $c %d %d #
# $c > $xTV/COORDONNEES\n" #
# $c ,n,n #
# $c ); #
# #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*XG=//%c #
# $c -e %cs/ .*//%c #
# $c > $xTV/COORDONNEES$COORD_X\n" #
# $c ,'"','"','"','"' #
# $c ); #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*YG=//%c #
# $c -e %cs/ .*//%c #
# $c > $xTV/COORDONNEES$COORD_Y\n" #
# $c ,'"','"','"','"' #
# $c ); #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*ZG=//%c #
# $c > $xTV/COORDONNEES$COORD_Z\n" #
# $c ,'"','"','"','"' #
# $c ); #
# #
# $c printf("$xci/valeurs_inte$X #
# $c premiere=%d derniere=%d #
# $c vD=$GRIS_8 vA=$GRIS_8 #
# $c cubique=FAUX #
# $c entiers=VRAI #
# $c utiliser_la_valeur_de_depart=FAUX #
# $c > $xTV/COULEURS$ROUGE\n" #
# $c ,n,n #
# $c ); #
# $c printf("$xci/valeurs_inte$X #
# $c premiere=%d derniere=%d #
# $c vD=$GRIS_8 vA=$GRIS_8 #
# $c cubique=FAUX #
# $c entiers=VRAI #
# $c utiliser_la_valeur_de_depart=FAUX #
# $c > $xTV/COULEURS$VERTE\n" #
# $c ,n,n #
# $c ); #
# $c printf("$xci/valeurs_inte$X #
# $c premiere=%d derniere=%d #
# $c vD=$GRIS_8 vA=$GRIS_8 #
# $c cubique=FAUX #
# $c entiers=VRAI #
# $c utiliser_la_valeur_de_depart=FAUX #
# $c > $xTV/COULEURS$BLEUE\n" #
# $c ,n,n #
# $c ); #
# #
# $c printf("$xrv/particule.10$X #
# $c np=1 #
# $c iterations=%d #
# $c LISTE_X=$xTV/COORDONNEES$COORD_X #
# $c LISTE_Y=$xTV/COORDONNEES$COORD_Y #
# $c LISTE_Z=$xTV/COORDONNEES$COORD_Z #
# $c LISTE_ROUGE=$xTV/COULEURS$ROUGE #
# $c LISTE_VERTE=$xTV/COULEURS$VERTE #
# $c LISTE_BLEUE=$xTV/COULEURS$BLEUE #
# $c LISTE_RAYON=0.010 #
# $c zoom_automatique=FAUX ZOOM=1.0 #
# $c coordonnees_dans_0_1=FAUX #
# $c AXYZ=1 BXYZ=0 #
# $c fond=VRAI #
# $c fond_dynamique=FAUX #
# $c F=$xiim/RDNW.W.%04d #
# $c R=$xTV/RDNW.B. #
# $c $formatI\n" #
# $c ,(n-n)+1,n #
# $c ); #
# #
# $c printf("$xci/acces$X #
# $c A=$xTV/RDNW.B.%04d$ROUGE #
# $c R=$xiim/RDNW.3.%04d$ROUGE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xTV/RDNW.B.%04d$VERTE #
# $c R=$xiim/RDNW.3.%04d$VERTE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xTV/RDNW.B.%04d$BLEUE #
# $c R=$xiim/RDNW.3.%04d$BLEUE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# $c } #
# $c } #
# #
# #
# $Z $DELETE $xTV/COORDONNEES #
# $Z $DELETE $xTV/COORDONNEES$COORD_X #
# $Z $DELETE $xTV/COORDONNEES$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_Z #
# $Z $DELETE $xTV/COULEURS$ROUGE #
# $Z $DELETE $xTV/COULEURS$VERTE #
# $Z $DELETE $xTV/COULEURS$BLEUE #
# #
# #
# $Z Pal #
# #
# $Z $xci/reduction_16$Z $xiim/RDNW.3. $xiak/RDNW.A6 $Premiere $Derniere #
# $Z $xci/reduction_64$Z $xiim/RDNW.3. $xiak/RDNW.A6 $Premiere $Derniere #
# #
# $X $xci/genere$X c='ro $xiak/RDNW.A6$R16%s' RVB=VRAI #
# $X $xci/genere$X c='ro $xiak/RDNW.A6$R64%s' RVB=VRAI #
# #
# $X $xci/genere$X c='$xcg/unite$Z $xiak/RDNW.A6$R16%s' RVB=VRAI #
# $X $xci/genere$X c='$xcg/unite$Z $xiak/RDNW.A6$R64%s' RVB=VRAI #
# #
# $X $xci/genere$X c='$CP $xiim/RDNW.3.0512%s $xiirk/RDNW.A6.0512%s' RVB=VRAI #
# #
# $X $xci/genere$X c='ro $xiirk/RDNW.A6.0512%s' RVB=VRAI #
# #
# $X $xci/genere$X c='$xcg/unite$Z $xiirk/RDNW.A6.0512%s' RVB=VRAI #
# #
# #
# Pal #
# #
# #
# $xci/disk_video_P$Z $xiim_LACT29/RDNW.3. 001 512 RVB \ #
# 11 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
# #
# xivPdf 3 2 #
# #
# record.01$Z $xiak/RDNW.A6$R16 RVB Initialisation #
# record.01$Z $xiak/RDNW.A6$R64 RVB rien #
# record.01$Z $xiirk/RDNW.A6.0512 RVB rien #
# #
sequence 002049_002560
# Generee (sur '$LACT29') par : #
# #
# $Z SET Premiere=1 #
# $Z SET Derniere=512 #
# $Z @ Nimages = $Derniere - $Premiere #
# $Z @ Nimages = $Nimages + 1 #
# #
# $Z set Part0=1 #
# $Z set PartN=256 #
# $Z @ Npart = $PartN - $Part0 #
# $Z @ Npart = $Npart + 1 #
# #
# $Z alias Gen 'set Fi=\!:1 ; set vD=\!:2 ; set vA=\!:3 ; set ArG=(\!:4*) ; \\ #
# $Z $DELETE $Fi ; \\ #
# $Z $xci/valeurs_inte$X p=$Part0 d=$PartN vD=$vD vA=$vA $ArG > $Fi ; \\ #
# $Z unset Fi vD vA ArG' #
# #
# $Z alias GenR 'set Fi=\!:1 ; set In=\!:2 ; set Su=\!:3 ; set ArG=(\!:4*) ; \\ #
# $Z $DELETE $Fi ; \\ #
# $Z $xci/valeurs_alea$X p=$Part0 d=$PartN signe="$KV" inf=$In sup=$Su $ArG > $Fi ; \\ #
# $Z unset Fi In Su ArG' #
# #
# $Z Gen $xTV/COORDONNEES$COORD_X 0.0 0.0 #
# $Z Gen $xTV/COORDONNEES$COORD_Y 0.0 0.0 #
# $Z Gen $xTV/COORDONNEES$COORD_Z 0.0 0.0 #
# #
# $Z GenR $xTV/VITESSES 1 5 entiers=VRAI g=21 #
# #
# $Z $DELETE $xTV/VITESSES$COORD_X #
# $Z $CA $xTV/VITESSES \ #
# $Z | $SE -e 's/^1$/+0.02/' -e 's/^2$/0/' -e 's/^3$/-0.02/' -e 's/^4$/0/' \ #
# $Z > $xTV/VITESSES$COORD_X #
# $Z $DELETE $xTV/VITESSES$COORD_Y #
# $Z $CA $xTV/VITESSES \ #
# $Z | $SE -e 's/^1$/0/' -e 's/^2$/+0.02/' -e 's/^3$/0/' -e 's/^4$/-0.02/' \ #
# $Z > $xTV/VITESSES$COORD_Y #
# $Z $DELETE $xTV/VITESSES$COORD_Z #
# $Z $CA $xTV/VITESSES \ #
# $Z | $SE -e 's/^1$/0/' -e 's/^2$/0/' -e 's/^3$/0/' -e 's/^4$/0/' \ #
# $Z > $xTV/VITESSES$COORD_Z #
# #
# $Z Gen $xTV/mdRHO 0.0 0.0 #
# $Z Gen $xTV/MdRHO 0.0 0.0 #
# $Z Gen $xTV/mnPHI -2 -2 #
# $Z Gen $xTV/MnPHI +2 +2 #
# $Z Gen $xTV/dPHI $pis2 $pis2 #
# $Z Gen $xTV/mnTHETA 0 0 #
# $Z Gen $xTV/MnTHETA 0 0 #
# $Z Gen $xTV/dTHETA $pis2 $pis2 #
# $Z Gen $xTV/DISTANCE 1000000 1000000 #
# $Z Gen $xTV/STABILITE 4 4 #
# $Z Gen $xTV/RAYONS 0.014 0.014 #
# #
# $Z $DELETE $xTV/COULEURS$TEINT #
# $Z $DELETE $xTV/COULEURS$LUMIN #
# $Z $DELETE $xTV/COULEURS$SATUR #
# $Z $DELETE $xTV/COULEURS$Y #
# $Z $DELETE $xTV/COULEURS #
# $Z $DELETE $xTV/COULEURS$ROUGE #
# $Z $DELETE $xTV/COULEURS$VERTE #
# $Z $DELETE $xTV/COULEURS$BLEUE #
# #
# $Z @ TeinteMagenta = $GRIS_7 #
# $Z @ TeinteCyan = $GRIS_4 + $GRIS_8 #
# #
# $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartN \ #
# $Z vD=$TeinteMagenta vA=$TeinteCyan \ #
# $Z cubique=FAUX \ #
# $Z entiers=VRAI \ #
# $Z > $xTV/COULEURS$TEINT #
# $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartN \ #
# $Z vD=$GRIS_4 vA=$GRIS_4 \ #
# $Z cubique=FAUX \ #
# $Z entiers=VRAI \ #
# $Z > $xTV/COULEURS$LUMIN #
# $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartN \ #
# $Z vD=$GRIS_8 vA=$GRIS_8 \ #
# $Z cubique=FAUX \ #
# $Z entiers=VRAI \ #
# $Z > $xTV/COULEURS$SATUR #
# #
# $Z $PAST \ #
# $Z $xTV/COULEURS$TEINT \ #
# $Z $xTV/COULEURS$LUMIN \ #
# $Z $xTV/COULEURS$SATUR \ #
# $Z | $R "$K_TAB" "$K_BLANC" \ #
# $Z | $AW ' { print "H=" $1 " L=" $2 " S=" $3 } ' \ #
# $Z | $SE -e 's+^+$xcg/RVB_HLS$X RVB_HLS=FAUX +' \ #
# $Z | $SE -e 's/$/ eR=VRAI eV=VRAI eB=VRAI/' \ #
# $Z | $SE -e 's/$/ eH=FAUX eL=FAUX eS=FAUX/' \ #
# $Z > $xTV/COULEURS$Y #
# #
# $Z (source $xTV/COULEURS$Y) \ #
# $Z > $xTV/COULEURS #
# #
# $Z $GRE "^R=" $xTV/COULEURS \ #
# $Z | $SE -e "s/^R=//" \ #
# $Z > $xTV/COULEURS$ROUGE #
# $Z $GRE "^V=" $xTV/COULEURS \ #
# $Z | $SE -e "s/^V=//" \ #
# $Z > $xTV/COULEURS$VERTE #
# $Z $GRE "^B=" $xTV/COULEURS \ #
# $Z | $SE -e "s/^B=//" \ #
# $Z > $xTV/COULEURS$BLEUE #
# #
# #
# $Z Pal #
# #
# $Z $xrk/rdn_walk.41$X corps=$Npart \ #
# $Z np=$Nimages \ #
# $Z LISTE_X=$xTV/COORDONNEES$COORD_X \ #
# $Z LISTE_Y=$xTV/COORDONNEES$COORD_Y \ #
# $Z LISTE_Z=$xTV/COORDONNEES$COORD_Z \ #
# $Z LISTE_VX=$xTV/VITESSES$COORD_X \ #
# $Z LISTE_VY=$xTV/VITESSES$COORD_Y \ #
# $Z LISTE_VZ=$xTV/VITESSES$COORD_Z \ #
# $Z LISTE_MINIMUM_DELTA_RHO=$xTV/mdRHO \ #
# $Z LISTE_MAXIMUM_DELTA_RHO=$xTV/MdRHO \ #
# $Z LISTE_MINIMUM_N_PHI=$xTV/mnPHI \ #
# $Z LISTE_MAXIMUM_N_PHI=$xTV/MnPHI \ #
# $Z LISTE_DELTA_PHI=$xTV/dPHI \ #
# $Z LISTE_MINIMUM_N_THETA=$xTV/mnTHETA \ #
# $Z LISTE_MAXIMUM_N_THETA=$xTV/MnTHETA \ #
# $Z LISTE_DELTA_THETA=$xTV/dTHETA \ #
# $Z LISTE_DISTANCE_MAXIMALE=$xTV/DISTANCE \ #
# $Z LISTE_STABILITE=$xTV/STABILITE \ #
# $Z LISTE_RAYON=$xTV/RAYONS \ #
# $Z LISTE_ROUGE=$xTV/COULEURS$ROUGE \ #
# $Z LISTE_VERTE=$xTV/COULEURS$VERTE \ #
# $Z LISTE_BLEUE=$xTV/COULEURS$BLEUE \ #
# $Z centrer=VRAI \ #
# $Z dct=0.5 \ #
# $Z nombre=1 \ #
# $Z trainees=VRAI mode=1 \ #
# $Z attenuation_des_images=0.6 \ #
# $Z attenuation_des_trainees=1.00 \ #
# $Z renormaliser=FAUX \ #
# $Z Lz=100 \ #
# $Z zoom_automatique=VRAI \ #
# $Z centre_de_gravite=FAUX \ #
# $Z fond=FAUX \ #
# $Z R=$xiim/RDNW.W. \ #
# $Z $formatI #
# #
# $Z Gen $xTV/RAYONS 0.028 0.028 #
# #
# $Z $DELETE $xTV/GRAVITE #
# $Z $xrk/rdn_walk.41$X corps=$Npart \ #
# $Z np=$Nimages \ #
# $Z LISTE_X=$xTV/COORDONNEES$COORD_X \ #
# $Z LISTE_Y=$xTV/COORDONNEES$COORD_Y \ #
# $Z LISTE_Z=$xTV/COORDONNEES$COORD_Z \ #
# $Z LISTE_VX=$xTV/VITESSES$COORD_X \ #
# $Z LISTE_VY=$xTV/VITESSES$COORD_Y \ #
# $Z LISTE_VZ=$xTV/VITESSES$COORD_Z \ #
# $Z LISTE_MINIMUM_DELTA_RHO=$xTV/mdRHO \ #
# $Z LISTE_MAXIMUM_DELTA_RHO=$xTV/MdRHO \ #
# $Z LISTE_MINIMUM_N_PHI=$xTV/mnPHI \ #
# $Z LISTE_MAXIMUM_N_PHI=$xTV/MnPHI \ #
# $Z LISTE_DELTA_PHI=$xTV/dPHI \ #
# $Z LISTE_MINIMUM_N_THETA=$xTV/mnTHETA \ #
# $Z LISTE_MAXIMUM_N_THETA=$xTV/MnTHETA \ #
# $Z LISTE_DELTA_THETA=$xTV/dTHETA \ #
# $Z LISTE_DISTANCE_MAXIMALE=$xTV/DISTANCE \ #
# $Z LISTE_STABILITE=$xTV/STABILITE \ #
# $Z LISTE_RAYON=$xTV/RAYONS \ #
# $Z LISTE_ROUGE=$xTV/COULEURS$ROUGE \ #
# $Z LISTE_VERTE=$xTV/COULEURS$VERTE \ #
# $Z LISTE_BLEUE=$xTV/COULEURS$BLEUE \ #
# $Z centrer=VRAI \ #
# $Z dct=0.5 \ #
# $Z nombre=1 \ #
# $Z trainees=VRAI mode=1 \ #
# $Z attenuation_des_images=1.0 \ #
# $Z attenuation_des_trainees=0.80 \ #
# $Z renormaliser=FAUX \ #
# $Z Lz=100 \ #
# $Z zoom_automatique=VRAI \ #
# $Z centre_de_gravite=VRAI \ #
# $Z fond=VRAI \ #
# $Z dynamique=VRAI \ #
# $Z F=$xiim/RDNW.W. \ #
# $Z R=$xiim/RDNW.W. \ #
# $Z $formatI \ #
# $Z > $xTV/GRAVITE #
# #
# $Z $DELETE $xTV/COORDONNEES$COORD_X #
# $Z $DELETE $xTV/COORDONNEES$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_Z #
# $Z $DELETE $xTV/VITESSES #
# $Z $DELETE $xTV/VITESSES$COORD_X #
# $Z $DELETE $xTV/VITESSES$COORD_Y #
# $Z $DELETE $xTV/VITESSES$COORD_Z #
# $Z $DELETE $xTV/mdRHO #
# $Z $DELETE $xTV/MdRHO #
# $Z $DELETE $xTV/mnPHI #
# $Z $DELETE $xTV/MnPHI #
# $Z $DELETE $xTV/dPHI #
# $Z $DELETE $xTV/mnTHETA #
# $Z $DELETE $xTV/MnTHETA #
# $Z $DELETE $xTV/dTHETA #
# $Z $DELETE $xTV/DISTANCE #
# $Z $DELETE $xTV/STABILITE #
# $Z $DELETE $xTV/RAYONS #
# $Z $DELETE $xTV/COULEURS$TEINT #
# $Z $DELETE $xTV/COULEURS$LUMIN #
# $Z $DELETE $xTV/COULEURS$SATUR #
# $Z $DELETE $xTV/COULEURS$Y #
# $Z $DELETE $xTV/COULEURS #
# $Z $DELETE $xTV/COULEURS$ROUGE #
# $Z $DELETE $xTV/COULEURS$VERTE #
# $Z $DELETE $xTV/COULEURS$BLEUE #
# #
# $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("$DELETE $xTV/COORDONNEES\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_X\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_Y\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_Z\n"); #
# #
# $c printf("$DELETE $xTV/COULEURS$ROUGE\n"); #
# $c printf("$DELETE $xTV/COULEURS$VERTE\n"); #
# $c printf("$DELETE $xTV/COULEURS$BLEUE\n"); #
# #
# $c printf("listMN $xTV/GRAVITE #
# $c %d %d #
# $c > $xTV/COORDONNEES\n" #
# $c ,N0,n #
# $c ); #
# #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*XG=//%c #
# $c -e %cs/ .*//%c #
# $c > $xTV/COORDONNEES$COORD_X\n" #
# $c ,'"','"','"','"' #
# $c ); #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*YG=//%c #
# $c -e %cs/ .*//%c #
# $c > $xTV/COORDONNEES$COORD_Y\n" #
# $c ,'"','"','"','"' #
# $c ); #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*ZG=//%c #
# $c > $xTV/COORDONNEES$COORD_Z\n" #
# $c ,'"','"','"','"' #
# $c ); #
# #
# $c printf("$xci/valeurs_inte$X #
# $c premiere=%d derniere=%d #
# $c vD=$GRIS_4 vA=$GRIS_4 #
# $c cubique=FAUX #
# $c entiers=VRAI #
# $c utiliser_la_valeur_de_depart=FAUX #
# $c > $xTV/COULEURS$ROUGE\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/valeurs_inte$X #
# $c premiere=%d derniere=%d #
# $c vD=$GRIS_4 vA=$GRIS_4 #
# $c cubique=FAUX #
# $c entiers=VRAI #
# $c utiliser_la_valeur_de_depart=FAUX #
# $c > $xTV/COULEURS$VERTE\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/valeurs_inte$X #
# $c premiere=%d derniere=%d #
# $c vD=$GRIS_4 vA=$GRIS_4 #
# $c cubique=FAUX #
# $c entiers=VRAI #
# $c utiliser_la_valeur_de_depart=FAUX #
# $c > $xTV/COULEURS$BLEUE\n" #
# $c ,N0,n #
# $c ); #
# #
# $c printf("$xrv/particule.10$X #
# $c np=1 #
# $c iterations=%d #
# $c LISTE_X=$xTV/COORDONNEES$COORD_X #
# $c LISTE_Y=$xTV/COORDONNEES$COORD_Y #
# $c LISTE_Z=$xTV/COORDONNEES$COORD_Z #
# $c LISTE_ROUGE=$xTV/COULEURS$ROUGE #
# $c LISTE_VERTE=$xTV/COULEURS$VERTE #
# $c LISTE_BLEUE=$xTV/COULEURS$BLEUE #
# $c LISTE_RAYON=0.005 #
# $c zoom_automatique=FAUX ZOOM=1.0 #
# $c coordonnees_dans_0_1=FAUX #
# $c AXYZ=1 BXYZ=0 #
# $c fond=VRAI #
# $c fond_dynamique=FAUX #
# $c F=$xiim/RDNW.W.%04d #
# $c R=$xTV/RDNW.A. #
# $c $formatI\n" #
# $c ,(n-N0)+1,n #
# $c ); #
# #
# $c printf("$xci/acces$X #
# $c A=$xTV/RDNW.A.%04d$ROUGE #
# $c R=$xiim/RDNW.W.%04d$ROUGE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xTV/RDNW.A.%04d$VERTE #
# $c R=$xiim/RDNW.W.%04d$VERTE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xTV/RDNW.A.%04d$BLEUE #
# $c R=$xiim/RDNW.W.%04d$BLEUE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# #
# $c printf("$DELETE $xTV/COORDONNEES\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_X\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_Y\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_Z\n"); #
# #
# $c printf("$DELETE $xTV/COULEURS$ROUGE\n"); #
# $c printf("$DELETE $xTV/COULEURS$VERTE\n"); #
# $c printf("$DELETE $xTV/COULEURS$BLEUE\n"); #
# #
# $c printf("listMN $xTV/GRAVITE #
# $c %d %d #
# $c > $xTV/COORDONNEES\n" #
# $c ,n,n #
# $c ); #
# #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*XG=//%c #
# $c -e %cs/ .*//%c #
# $c > $xTV/COORDONNEES$COORD_X\n" #
# $c ,'"','"','"','"' #
# $c ); #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*YG=//%c #
# $c -e %cs/ .*//%c #
# $c > $xTV/COORDONNEES$COORD_Y\n" #
# $c ,'"','"','"','"' #
# $c ); #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*ZG=//%c #
# $c > $xTV/COORDONNEES$COORD_Z\n" #
# $c ,'"','"','"','"' #
# $c ); #
# #
# $c printf("$xci/valeurs_inte$X #
# $c premiere=%d derniere=%d #
# $c vD=$GRIS_8 vA=$GRIS_8 #
# $c cubique=FAUX #
# $c entiers=VRAI #
# $c utiliser_la_valeur_de_depart=FAUX #
# $c > $xTV/COULEURS$ROUGE\n" #
# $c ,n,n #
# $c ); #
# $c printf("$xci/valeurs_inte$X #
# $c premiere=%d derniere=%d #
# $c vD=$GRIS_8 vA=$GRIS_8 #
# $c cubique=FAUX #
# $c entiers=VRAI #
# $c utiliser_la_valeur_de_depart=FAUX #
# $c > $xTV/COULEURS$VERTE\n" #
# $c ,n,n #
# $c ); #
# $c printf("$xci/valeurs_inte$X #
# $c premiere=%d derniere=%d #
# $c vD=$GRIS_8 vA=$GRIS_8 #
# $c cubique=FAUX #
# $c entiers=VRAI #
# $c utiliser_la_valeur_de_depart=FAUX #
# $c > $xTV/COULEURS$BLEUE\n" #
# $c ,n,n #
# $c ); #
# #
# $c printf("$xrv/particule.10$X #
# $c np=1 #
# $c iterations=%d #
# $c LISTE_X=$xTV/COORDONNEES$COORD_X #
# $c LISTE_Y=$xTV/COORDONNEES$COORD_Y #
# $c LISTE_Z=$xTV/COORDONNEES$COORD_Z #
# $c LISTE_ROUGE=$xTV/COULEURS$ROUGE #
# $c LISTE_VERTE=$xTV/COULEURS$VERTE #
# $c LISTE_BLEUE=$xTV/COULEURS$BLEUE #
# $c LISTE_RAYON=0.010 #
# $c zoom_automatique=FAUX ZOOM=1.0 #
# $c coordonnees_dans_0_1=FAUX #
# $c AXYZ=1 BXYZ=0 #
# $c fond=VRAI #
# $c fond_dynamique=FAUX #
# $c F=$xiim/RDNW.W.%04d #
# $c R=$xTV/RDNW.B. #
# $c $formatI\n" #
# $c ,(n-n)+1,n #
# $c ); #
# #
# $c printf("$xci/acces$X #
# $c A=$xTV/RDNW.B.%04d$ROUGE #
# $c R=$xiim/RDNW.4.%04d$ROUGE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xTV/RDNW.B.%04d$VERTE #
# $c R=$xiim/RDNW.4.%04d$VERTE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xTV/RDNW.B.%04d$BLEUE #
# $c R=$xiim/RDNW.4.%04d$BLEUE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# $c } #
# $c } #
# #
# #
# $Z $DELETE $xTV/COORDONNEES #
# $Z $DELETE $xTV/COORDONNEES$COORD_X #
# $Z $DELETE $xTV/COORDONNEES$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_Z #
# $Z $DELETE $xTV/COULEURS$ROUGE #
# $Z $DELETE $xTV/COULEURS$VERTE #
# $Z $DELETE $xTV/COULEURS$BLEUE #
# #
# #
# $Z Pal #
# #
# $Z $xci/reduction_16$Z $xiim/RDNW.4. $xiak/RDNW.A8 $Premiere $Derniere #
# $Z $xci/reduction_64$Z $xiim/RDNW.4. $xiak/RDNW.A8 $Premiere $Derniere #
# #
# $X $xci/genere$X c='ro $xiak/RDNW.A8$R16%s' RVB=VRAI #
# $X $xci/genere$X c='ro $xiak/RDNW.A8$R64%s' RVB=VRAI #
# #
# $X $xci/genere$X c='$xcg/unite$Z $xiak/RDNW.A8$R16%s' RVB=VRAI #
# $X $xci/genere$X c='$xcg/unite$Z $xiak/RDNW.A8$R64%s' RVB=VRAI #
# #
# $X $xci/genere$X c='$CP $xiim/RDNW.4.0512%s $xiirk/RDNW.A8.0512%s' RVB=VRAI #
# #
# $X $xci/genere$X c='ro $xiirk/RDNW.A8.0512%s' RVB=VRAI #
# #
# $X $xci/genere$X c='$xcg/unite$Z $xiirk/RDNW.A8.0512%s' RVB=VRAI #
# #
# #
# Pal #
# #
# #
# $xci/disk_video_P$Z $xiim_LACT29/RDNW.4. 001 512 RVB \ #
# 11 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
# #
# xivPdf 3 2 #
# #
# record.01$Z $xiak/RDNW.A8$R16 RVB Initialisation #
# record.01$Z $xiak/RDNW.A8$R64 RVB rien #
# record.01$Z $xiirk/RDNW.A8.0512 RVB rien #
# #
sequence 002561_003072
sequence 003073_003584
# Generee (sur '$LACT29') par : #
# #
# $Z SET Premiere=1 #
# $Z SET Derniere=512 #
# $Z @ Nimages = $Derniere - $Premiere #
# $Z @ Nimages = $Nimages + 1 #
# #
# $Z set Part0=1 #
# $Z set PartN=4 #
# $Z @ Npart = $PartN - $Part0 #
# $Z @ Npart = $Npart + 1 #
# #
# $Z $DELETE $xTV/MODULE #
# $Z $DELETE $xTV/THETA #
# $Z $DELETE $xTV/XY_RT.1 #
# $Z $DELETE $xTV/XY_RT.2 #
# $Z $DELETE $xTV/COORDONNEES$COORD_X #
# $Z $DELETE $xTV/COORDONNEES$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_Z #
# $Z $DELETE $xTV/VITESSES #
# $Z $DELETE $xTV/VITESSES$COORD_X #
# $Z $DELETE $xTV/VITESSES$COORD_Y #
# $Z $DELETE $xTV/VITESSES$COORD_Z #
# $Z $DELETE $xTV/mdRHO #
# $Z $DELETE $xTV/MdRHO #
# $Z $DELETE $xTV/mnPHI #
# $Z $DELETE $xTV/MnPHI #
# $Z $DELETE $xTV/dPHI #
# $Z $DELETE $xTV/mnTHETA #
# $Z $DELETE $xTV/MnTHETA #
# $Z $DELETE $xTV/dTHETA #
# $Z $DELETE $xTV/supOUVE #
# $Z $DELETE $xTV/DISTANCE #
# $Z $DELETE $xTV/STABILITE #
# $Z $DELETE $xTV/RAYONS #
# $Z $DELETE $xTV/INTERACTIONS #
# #
# #
# $Z alias Gen 'set Fi=\!:1 ; set vD=\!:2 ; set vA=\!:3 ; set ArG=(\!:4*) ; \\ #
# $Z $DELETE $Fi ; \\ #
# $Z $xci/valeurs_inte$X p=$Part0 d=$PartN vD=$vD vA=$vA $ArG > $Fi ; \\ #
# $Z unset Fi vD vA ArG' #
# #
# $Z alias GenR 'set Fi=\!:1 ; set In=\!:2 ; set Su=\!:3 ; set ArG=(\!:4*) ; \\ #
# $Z $DELETE $Fi ; \\ #
# $Z $xci/valeurs_alea$X p=$Part0 d=$PartN signe="$KV" inf=$In sup=$Su $ArG > $Fi ; \\ #
# $Z unset Fi In Su ArG' #
# #
# $Z set MaxXY=0.85 #
# $Z set SeuilBOITE=`$xcg/SOUS.01$X a=1 b=$MaxXY` #
# $Z set SeuilBOITE=`$xcg/MUL2.01$X a=$SeuilBOITE b=$GRIS_8` #
# $Z set SeuilBOITE=`$xci/valeurs_inte$X p=1 d=1 vD=$SeuilBOITE entiers=VRAI` #
# $Z set SeuilBOITE=`$xcg/MIN2.01$X a=$SeuilBOITE b=$GRIS_1` #
# #
# $Z GenR $xTV/COORDONNEES$COORD_X -$MaxXY +$MaxXY g=1111 #
# $Z GenR $xTV/COORDONNEES$COORD_Y -$MaxXY +$MaxXY g=2222 #
# #
# $Z Gen $xTV/COORDONNEES$COORD_Z 0.0 0.0 #
# #
# #
# $Z Gen $xTV/MODULE 0.02 0.02 #
# $Z GenR $xTV/THETA 0.0 $dpi g=3333 #
# #
# $Z $CA $xcs/csh$Y \ #
# $Z > $xTV/XY_RT.1 #
# $Z $PAST $xTV/MODULE $xTV/THETA \ #
# $Z | $R "$K_TAB" "$K_BLANC" \ #
# $Z | $AW ' { print "$xcg/XY_RT$X r=" $1 " t=" $2 " cartesien=FAUX" } ' \ #
# $Z >>! $xTV/XY_RT.1 #
# #
# $Z (source $xTV/XY_RT.1) \ #
# $Z > $xTV/XY_RT.2 #
# #
# $Z $CA $xTV/XY_RT.2 \ #
# $Z | $GRE "^x=" \ #
# $Z | $SE -e "s/^x=//" \ #
# $Z > $xTV/VITESSES$COORD_X #
# $Z $CA $xTV/XY_RT.2 \ #
# $Z | $GRE "^y=" \ #
# $Z | $SE -e "s/^y=//" \ #
# $Z > $xTV/VITESSES$COORD_Y #
# #
# $Z Gen $xTV/VITESSES$COORD_Z 0.0 0.0 #
# #
# $Z Gen $xTV/mdRHO 0.0 0.0 #
# $Z Gen $xTV/MdRHO 0.0 0.0 #
# $Z Gen $xTV/mnPHI 0.0 0.0 #
# $Z Gen $xTV/MnPHI 0.0 0.0 #
# $Z Gen $xTV/dPHI 0.0 0.0 #
# $Z Gen $xTV/mnTHETA 0.0 0.0 #
# $Z Gen $xTV/MnTHETA 0.0 0.0 #
# $Z Gen $xTV/dTHETA 0.0 0.0 #
# $Z Gen $xTV/DISTANCE 1000000 1000000 #
# $Z Gen $xTV/STABILITE 1000000 1000000 #
# #
# $Z set RayonsT=0.014 #
# $Z set RayonsP=`$xcg/MUL2.01$X a=2 b=$RayonsT` #
# $Z set DistanceI=`$xcg/MUL2.01$X a=4 b=$RayonsP` #
# $Z Gen $xTV/RAYONS $RayonsT $RayonsT #
# $Z Gen $xTV/INTERACTIONS $RayonsP $RayonsP #
# #
# $Z $DELETE $xTV/COULEURS$TEINT #
# $Z $DELETE $xTV/COULEURS$LUMIN #
# $Z $DELETE $xTV/COULEURS$SATUR #
# $Z $DELETE $xTV/COULEURS$Y #
# $Z $DELETE $xTV/COULEURS #
# $Z $DELETE $xTV/COULEURS$ROUGE #
# $Z $DELETE $xTV/COULEURS$VERTE #
# $Z $DELETE $xTV/COULEURS$BLEUE #
# #
# $Z @ TeinteMagenta = $GRIS_7 #
# $Z @ TeinteCyan = $GRIS_4 + $GRIS_8 #
# #
# $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartN \ #
# $Z vD=$TeinteMagenta vA=$TeinteCyan \ #
# $Z cubique=FAUX \ #
# $Z entiers=VRAI \ #
# $Z > $xTV/COULEURS$TEINT #
# $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartN \ #
# $Z vD=$GRIS_4 vA=$GRIS_4 \ #
# $Z cubique=FAUX \ #
# $Z entiers=VRAI \ #
# $Z > $xTV/COULEURS$LUMIN #
# $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartN \ #
# $Z vD=$GRIS_8 vA=$GRIS_8 \ #
# $Z cubique=FAUX \ #
# $Z entiers=VRAI \ #
# $Z > $xTV/COULEURS$SATUR #
# #
# $Z $PAST \ #
# $Z $xTV/COULEURS$TEINT \ #
# $Z $xTV/COULEURS$LUMIN \ #
# $Z $xTV/COULEURS$SATUR \ #
# $Z | $R "$K_TAB" "$K_BLANC" \ #
# $Z | $AW ' { print "H=" $1 " L=" $2 " S=" $3 } ' \ #
# $Z | $SE -e 's+^+$xcg/RVB_HLS$X RVB_HLS=FAUX +' \ #
# $Z | $SE -e 's/$/ eR=VRAI eV=VRAI eB=VRAI/' \ #
# $Z | $SE -e 's/$/ eH=FAUX eL=FAUX eS=FAUX/' \ #
# $Z > $xTV/COULEURS$Y #
# #
# $Z (source $xTV/COULEURS$Y) \ #
# $Z > $xTV/COULEURS #
# #
# $Z $GRE "^R=" $xTV/COULEURS \ #
# $Z | $SE -e "s/^R=//" \ #
# $Z > $xTV/COULEURS$ROUGE #
# $Z $GRE "^V=" $xTV/COULEURS \ #
# $Z | $SE -e "s/^V=//" \ #
# $Z > $xTV/COULEURS$VERTE #
# $Z $GRE "^B=" $xTV/COULEURS \ #
# $Z | $SE -e "s/^B=//" \ #
# $Z > $xTV/COULEURS$BLEUE #
# #
# $Z $DELETE $xTV/BOITE.1 #
# $Z $DELETE $xTV/BOITE.2 #
# $Z $DELETE $xTV/BOITE.3 #
# $Z $DELETE $xTV/BOITE.3$ROUGE #
# $Z $DELETE $xTV/BOITE.3$VERTE #
# $Z $DELETE $xTV/BOITE.3$BLEUE #
# #
# $Z Std #
# #
# $Z S #
# #
# $Z $xci/complement$X \ #
# $Z A=$xiio/SPIRALE \ #
# $Z $formatI | \ #
# $Z $xci/seuil$X \ #
# $Z seuil=$SeuilBOITE \ #
# $Z $formatI | \ #
# $Z $xci/format.01$X mode=0 \ #
# $Z $formatI \ #
# $Z R=$xTV/BOITE.1 \ #
# $Z $formatR_Pal #
# #
# $Z Pal #
# #
# #
# $Z $xci/scale$X \ #
# $Z A=$xTV/BOITE.1 \ #
# $Z a=1.00 \ #
# $Z R=$xTV/BOITE.2 \ #
# $Z $formatI #
# #
# #
# $Z Pal #
# #
# $Z $xrk/rdn_walk.41$X corps=$Npart \ #
# $Z np=$Nimages \ #
# $Z collisions=VRAI DLA=FAUX interaction=$DistanceI \ #
# $Z LISTE_X=$xTV/COORDONNEES$COORD_X \ #
# $Z LISTE_Y=$xTV/COORDONNEES$COORD_Y \ #
# $Z LISTE_Z=$xTV/COORDONNEES$COORD_Z \ #
# $Z LISTE_VX=$xTV/VITESSES$COORD_X \ #
# $Z LISTE_VY=$xTV/VITESSES$COORD_Y \ #
# $Z LISTE_VZ=$xTV/VITESSES$COORD_Z \ #
# $Z LISTE_MINIMUM_DELTA_RHO=$xTV/mdRHO \ #
# $Z LISTE_MAXIMUM_DELTA_RHO=$xTV/MdRHO \ #
# $Z LISTE_MINIMUM_N_PHI=$xTV/mnPHI \ #
# $Z LISTE_MAXIMUM_N_PHI=$xTV/MnPHI \ #
# $Z LISTE_DELTA_PHI=$xTV/dPHI \ #
# $Z LISTE_MINIMUM_N_THETA=$xTV/mnTHETA \ #
# $Z LISTE_MAXIMUM_N_THETA=$xTV/MnTHETA \ #
# $Z LISTE_DELTA_THETA=$xTV/dTHETA \ #
# $Z LISTE_DISTANCE_MAXIMALE=$xTV/DISTANCE \ #
# $Z LISTE_STABILITE=$xTV/STABILITE \ #
# $Z LISTE_RAYON=$xTV/RAYONS \ #
# $Z LISTE_RAYON_D_INTERACTION=$xTV/INTERACTIONS \ #
# $Z LISTE_ROUGE=$xTV/COULEURS$ROUGE \ #
# $Z LISTE_VERTE=$xTV/COULEURS$VERTE \ #
# $Z LISTE_BLEUE=$xTV/COULEURS$BLEUE \ #
# $Z milieu=VRAI \ #
# $Z reflexion=VRAI refraction=FAUX \ #
# $Z Mhors=$BLANC \ #
# $Z MNpasX=1 Mprolonger_X=VRAI \ #
# $Z MNpasY=1 Mprolonger_Y=VRAI \ #
# $Z MNpasZ=1 Mprolonger_Z=VRAI \ #
# $Z adapter_M_nPAS=VRAI \ #
# $Z Msimplifier=FAUX affiner_M_maillage=FAUX \ #
# $Z MC=$xTV/BOITE.2 \ #
# $Z MChiffres=0 \ #
# $Z Zmin=0 Zmax=15 \ #
# $Z centrer=VRAI \ #
# $Z dct=0.05 nombre=10 \ #
# $Z trainees=VRAI mode=1 \ #
# $Z attenuation_des_images=0.6 \ #
# $Z attenuation_des_trainees=1.00 \ #
# $Z renormaliser=FAUX \ #
# $Z Lz=100 \ #
# $Z zoom_automatique=VRAI \ #
# $Z centre_de_gravite=FAUX \ #
# $Z fond=FAUX \ #
# $Z R=$xiim/REFL.W. \ #
# $Z $formatI #
# #
# $Z $DELETE $xTV/RAYONS #
# $Z $CP $xTV/INTERACTIONS $xTV/RAYONS #
# #
# $Z $DELETE $xTV/GRAVITE #
# $Z $xrk/rdn_walk.41$X corps=$Npart \ #
# $Z np=$Nimages \ #
# $Z collisions=VRAI DLA=FAUX interaction=$DistanceI \ #
# $Z LISTE_X=$xTV/COORDONNEES$COORD_X \ #
# $Z LISTE_Y=$xTV/COORDONNEES$COORD_Y \ #
# $Z LISTE_Z=$xTV/COORDONNEES$COORD_Z \ #
# $Z LISTE_VX=$xTV/VITESSES$COORD_X \ #
# $Z LISTE_VY=$xTV/VITESSES$COORD_Y \ #
# $Z LISTE_VZ=$xTV/VITESSES$COORD_Z \ #
# $Z LISTE_MINIMUM_DELTA_RHO=$xTV/mdRHO \ #
# $Z LISTE_MAXIMUM_DELTA_RHO=$xTV/MdRHO \ #
# $Z LISTE_MINIMUM_N_PHI=$xTV/mnPHI \ #
# $Z LISTE_MAXIMUM_N_PHI=$xTV/MnPHI \ #
# $Z LISTE_DELTA_PHI=$xTV/dPHI \ #
# $Z LISTE_MINIMUM_N_THETA=$xTV/mnTHETA \ #
# $Z LISTE_MAXIMUM_N_THETA=$xTV/MnTHETA \ #
# $Z LISTE_DELTA_THETA=$xTV/dTHETA \ #
# $Z LISTE_DISTANCE_MAXIMALE=$xTV/DISTANCE \ #
# $Z LISTE_STABILITE=$xTV/STABILITE \ #
# $Z LISTE_RAYON=$xTV/RAYONS \ #
# $Z LISTE_RAYON_D_INTERACTION=$xTV/INTERACTIONS \ #
# $Z LISTE_ROUGE=$xTV/COULEURS$ROUGE \ #
# $Z LISTE_VERTE=$xTV/COULEURS$VERTE \ #
# $Z LISTE_BLEUE=$xTV/COULEURS$BLEUE \ #
# $Z milieu=VRAI \ #
# $Z reflexion=VRAI refraction=FAUX \ #
# $Z Mhors=$BLANC \ #
# $Z MNpasX=1 Mprolonger_X=VRAI \ #
# $Z MNpasY=1 Mprolonger_Y=VRAI \ #
# $Z MNpasZ=1 Mprolonger_Z=VRAI \ #
# $Z adapter_M_nPAS=VRAI \ #
# $Z Msimplifier=FAUX affiner_M_maillage=FAUX \ #
# $Z MC=$xTV/BOITE.2 \ #
# $Z MChiffres=0 \ #
# $Z Zmin=0 Zmax=15 \ #
# $Z centrer=VRAI \ #
# $Z dct=0.05 nombre=10 \ #
# $Z trainees=VRAI mode=1 \ #
# $Z attenuation_des_images=1.0 \ #
# $Z attenuation_des_trainees=0.80 \ #
# $Z renormaliser=FAUX \ #
# $Z Lz=100 \ #
# $Z zoom_automatique=VRAI \ #
# $Z centre_de_gravite=VRAI \ #
# $Z fond=VRAI \ #
# $Z dynamique=VRAI \ #
# $Z F=$xiim/REFL.W. \ #
# $Z R=$xiim/REFL.W. \ #
# $Z $formatI \ #
# $Z > $xTV/GRAVITE #
# #
# $Z $DELETE $xTV/COORDONNEES$COORD_X #
# $Z $DELETE $xTV/COORDONNEES$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_Z #
# $Z $DELETE $xTV/VITESSES #
# $Z $DELETE $xTV/VITESSES$COORD_X #
# $Z $DELETE $xTV/VITESSES$COORD_Y #
# $Z $DELETE $xTV/VITESSES$COORD_Z #
# $Z $DELETE $xTV/mdRHO #
# $Z $DELETE $xTV/MdRHO #
# $Z $DELETE $xTV/mnPHI #
# $Z $DELETE $xTV/MnPHI #
# $Z $DELETE $xTV/dPHI #
# $Z $DELETE $xTV/mnTHETA #
# $Z $DELETE $xTV/MnTHETA #
# $Z $DELETE $xTV/dTHETA #
# $Z $DELETE $xTV/DISTANCE #
# $Z $DELETE $xTV/STABILITE #
# $Z $DELETE $xTV/RAYONS #
# $Z $DELETE $xTV/INTERACTIONS #
# $Z $DELETE $xTV/COULEURS$TEINT #
# $Z $DELETE $xTV/COULEURS$LUMIN #
# $Z $DELETE $xTV/COULEURS$SATUR #
# $Z $DELETE $xTV/COULEURS$Y #
# $Z $DELETE $xTV/COULEURS #
# $Z $DELETE $xTV/COULEURS$ROUGE #
# $Z $DELETE $xTV/COULEURS$VERTE #
# $Z $DELETE $xTV/COULEURS$BLEUE #
# #
# $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("$DELETE $xTV/COORDONNEES\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_X\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_Y\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_Z\n"); #
# #
# $c printf("$DELETE $xTV/COULEURS$ROUGE\n"); #
# $c printf("$DELETE $xTV/COULEURS$VERTE\n"); #
# $c printf("$DELETE $xTV/COULEURS$BLEUE\n"); #
# #
# $c printf("listMN $xTV/GRAVITE #
# $c %d %d #
# $c > $xTV/COORDONNEES\n" #
# $c ,N0,n #
# $c ); #
# #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*XG=//%c #
# $c -e %cs/ .*//%c #
# $c > $xTV/COORDONNEES$COORD_X\n" #
# $c ,'"','"','"','"' #
# $c ); #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*YG=//%c #
# $c -e %cs/ .*//%c #
# $c > $xTV/COORDONNEES$COORD_Y\n" #
# $c ,'"','"','"','"' #
# $c ); #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*ZG=//%c #
# $c > $xTV/COORDONNEES$COORD_Z\n" #
# $c ,'"','"','"','"' #
# $c ); #
# #
# $c printf("$xci/valeurs_inte$X #
# $c premiere=%d derniere=%d #
# $c vD=$GRIS_4 vA=$GRIS_4 #
# $c cubique=FAUX #
# $c entiers=VRAI #
# $c utiliser_la_valeur_de_depart=FAUX #
# $c > $xTV/COULEURS$ROUGE\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/valeurs_inte$X #
# $c premiere=%d derniere=%d #
# $c vD=$GRIS_4 vA=$GRIS_4 #
# $c cubique=FAUX #
# $c entiers=VRAI #
# $c utiliser_la_valeur_de_depart=FAUX #
# $c > $xTV/COULEURS$VERTE\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/valeurs_inte$X #
# $c premiere=%d derniere=%d #
# $c vD=$GRIS_4 vA=$GRIS_4 #
# $c cubique=FAUX #
# $c entiers=VRAI #
# $c utiliser_la_valeur_de_depart=FAUX #
# $c > $xTV/COULEURS$BLEUE\n" #
# $c ,N0,n #
# $c ); #
# #
# $c printf("$xrv/particule.10$X #
# $c np=1 #
# $c iterations=%d #
# $c LISTE_X=$xTV/COORDONNEES$COORD_X #
# $c LISTE_Y=$xTV/COORDONNEES$COORD_Y #
# $c LISTE_Z=$xTV/COORDONNEES$COORD_Z #
# $c LISTE_ROUGE=$xTV/COULEURS$ROUGE #
# $c LISTE_VERTE=$xTV/COULEURS$VERTE #
# $c LISTE_BLEUE=$xTV/COULEURS$BLEUE #
# $c LISTE_RAYON=0.005 #
# $c zoom_automatique=FAUX ZOOM=1.0 #
# $c coordonnees_dans_0_1=FAUX #
# $c AXYZ=1 BXYZ=0 #
# $c fond=VRAI #
# $c fond_dynamique=FAUX #
# $c F=$xiim/REFL.W.%04d #
# $c R=$xTV/REFL.A. #
# $c $formatI\n" #
# $c ,(n-N0)+1,n #
# $c ); #
# #
# $c printf("$xci/acces$X #
# $c A=$xTV/REFL.A.%04d$ROUGE #
# $c R=$xiim/REFL.W.%04d$ROUGE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xTV/REFL.A.%04d$VERTE #
# $c R=$xiim/REFL.W.%04d$VERTE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xTV/REFL.A.%04d$BLEUE #
# $c R=$xiim/REFL.W.%04d$BLEUE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# #
# $c printf("$DELETE $xTV/COORDONNEES\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_X\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_Y\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_Z\n"); #
# #
# $c printf("$DELETE $xTV/COULEURS$ROUGE\n"); #
# $c printf("$DELETE $xTV/COULEURS$VERTE\n"); #
# $c printf("$DELETE $xTV/COULEURS$BLEUE\n"); #
# #
# $c printf("listMN $xTV/GRAVITE #
# $c %d %d #
# $c > $xTV/COORDONNEES\n" #
# $c ,n,n #
# $c ); #
# #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*XG=//%c #
# $c -e %cs/ .*//%c #
# $c > $xTV/COORDONNEES$COORD_X\n" #
# $c ,'"','"','"','"' #
# $c ); #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*YG=//%c #
# $c -e %cs/ .*//%c #
# $c > $xTV/COORDONNEES$COORD_Y\n" #
# $c ,'"','"','"','"' #
# $c ); #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*ZG=//%c #
# $c > $xTV/COORDONNEES$COORD_Z\n" #
# $c ,'"','"','"','"' #
# $c ); #
# #
# $c printf("$xci/valeurs_inte$X #
# $c premiere=%d derniere=%d #
# $c vD=$GRIS_8 vA=$GRIS_8 #
# $c cubique=FAUX #
# $c entiers=VRAI #
# $c utiliser_la_valeur_de_depart=FAUX #
# $c > $xTV/COULEURS$ROUGE\n" #
# $c ,n,n #
# $c ); #
# $c printf("$xci/valeurs_inte$X #
# $c premiere=%d derniere=%d #
# $c vD=$GRIS_8 vA=$GRIS_8 #
# $c cubique=FAUX #
# $c entiers=VRAI #
# $c utiliser_la_valeur_de_depart=FAUX #
# $c > $xTV/COULEURS$VERTE\n" #
# $c ,n,n #
# $c ); #
# $c printf("$xci/valeurs_inte$X #
# $c premiere=%d derniere=%d #
# $c vD=$GRIS_8 vA=$GRIS_8 #
# $c cubique=FAUX #
# $c entiers=VRAI #
# $c utiliser_la_valeur_de_depart=FAUX #
# $c > $xTV/COULEURS$BLEUE\n" #
# $c ,n,n #
# $c ); #
# #
# $c printf("$xrv/particule.10$X #
# $c np=1 #
# $c iterations=%d #
# $c LISTE_X=$xTV/COORDONNEES$COORD_X #
# $c LISTE_Y=$xTV/COORDONNEES$COORD_Y #
# $c LISTE_Z=$xTV/COORDONNEES$COORD_Z #
# $c LISTE_ROUGE=$xTV/COULEURS$ROUGE #
# $c LISTE_VERTE=$xTV/COULEURS$VERTE #
# $c LISTE_BLEUE=$xTV/COULEURS$BLEUE #
# $c LISTE_RAYON=0.010 #
# $c zoom_automatique=FAUX ZOOM=1.0 #
# $c coordonnees_dans_0_1=FAUX #
# $c AXYZ=1 BXYZ=0 #
# $c fond=VRAI #
# $c fond_dynamique=FAUX #
# $c F=$xiim/REFL.W.%04d #
# $c R=$xTV/REFL.B. #
# $c $formatI\n" #
# $c ,(n-n)+1,n #
# $c ); #
# #
# $c printf("$xci/acces$X #
# $c A=$xTV/REFL.B.%04d$ROUGE #
# $c R=$xiim/REFL.W.%04d$ROUGE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xTV/REFL.B.%04d$VERTE #
# $c R=$xiim/REFL.W.%04d$VERTE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xTV/REFL.B.%04d$BLEUE #
# $c R=$xiim/REFL.W.%04d$BLEUE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# $c } #
# $c } #
# #
# #
# $Z $DELETE $xTV/COORDONNEES #
# $Z $DELETE $xTV/COORDONNEES$COORD_X #
# $Z $DELETE $xTV/COORDONNEES$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_Z #
# $Z $DELETE $xTV/COULEURS$ROUGE #
# $Z $DELETE $xTV/COULEURS$VERTE #
# $Z $DELETE $xTV/COULEURS$BLEUE #
# #
# #
# #
# $Z $xci/complement$X A=$xTV/BOITE.1 \ #
# $Z R=$xTV/BOITE.3 \ #
# $Z $formatI #
# #
# $Z eval `$xci/genere$X \\\ #
# $Z commande='($xci/scale$X \\\ #
# $Z A=$xTV/BOITE.3 \\\ #
# $Z a=0.50 \\\ #
# $Z R=$xTV/BOITE.3%s \\\ #
# $Z $formatI)' \\\ #
# $Z en_tete=FAUX RVB=VRAI separateur=VRAI` #
# #
# #
# $X $xci/genere$X premiere=$Premiere derniere=$Derniere pas=1 \ #
# $X C='$xci/cache.11$Z \ #
# $X $xiim/REFL.W.%04d \ #
# $X $xTV/BOITE.3 \ #
# $X $xiim/REFL.1.%04d' #
# #
# $Z $DELETE $xTV/BOITE.1 #
# $Z $DELETE $xTV/BOITE.2 #
# $Z $DELETE $xTV/BOITE.3 #
# $Z $DELETE $xTV/BOITE.3$ROUGE #
# $Z $DELETE $xTV/BOITE.3$VERTE #
# $Z $DELETE $xTV/BOITE.3$BLEUE #
# #
# $Z Pal #
# #
# $Z $xci/reduction_16$Z $xiim/REFL.1. $xiak/REFL.A2 $Premiere $Derniere #
# $Z $xci/reduction_64$Z $xiim/REFL.1. $xiak/REFL.A2 $Premiere $Derniere #
# #
# $X $xci/genere$X c='ro $xiak/REFL.A2$R16%s' RVB=VRAI #
# $X $xci/genere$X c='ro $xiak/REFL.A2$R64%s' RVB=VRAI #
# #
# $X $xci/genere$X c='$xcg/unite$Z $xiak/REFL.A2$R16%s' RVB=VRAI #
# $X $xci/genere$X c='$xcg/unite$Z $xiak/REFL.A2$R64%s' RVB=VRAI #
# #
# $X $xci/genere$X c='$CP $xiim/REFL.1.0512%s $xiirk/REFL.A2.0512%s' RVB=VRAI #
# #
# $X $xci/genere$X c='ro $xiirk/REFL.A2.0512%s' RVB=VRAI #
# #
# $X $xci/genere$X c='$xcg/unite$Z $xiirk/REFL.A2.0512%s' RVB=VRAI #
# #
# #
# Pal #
# #
# #
# $xci/disk_video_P$Z $xiim_LACT29/REFL.1. 001 512 RVB \ #
# 11 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
# #
# xivPdf 3 2 #
# #
# record.01$Z $xiak/REFL.A2$R16 RVB Initialisation #
# record.01$Z $xiak/REFL.A2$R64 RVB rien #
# record.01$Z $xiirk/REFL.A2.0512 RVB rien #
# #
# #
# ATTENTION, cette sequence a ete reenregistree car elle a ete recalculee. En effet, la #
# premiere fois, les parametres des deux appels a '$xrk/rdn_walk.41$X' etaient incoherents. #
sequence 003585_004096
# Generee (sur '$LACT29') par : #
# #
# $Z SET Premiere=1 #
# $Z SET Derniere=512 #
# $Z @ Nimages = $Derniere - $Premiere #
# $Z @ Nimages = $Nimages + 1 #
# #
# $Z set Part0=1 #
# $Z set PartN=16 #
# $Z @ Npart = $PartN - $Part0 #
# $Z @ Npart = $Npart + 1 #
# #
# $Z $DELETE $xTV/MODULE #
# $Z $DELETE $xTV/THETA #
# $Z $DELETE $xTV/XY_RT.1 #
# $Z $DELETE $xTV/XY_RT.2 #
# $Z $DELETE $xTV/COORDONNEES$COORD_X #
# $Z $DELETE $xTV/COORDONNEES$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_Z #
# $Z $DELETE $xTV/VITESSES #
# $Z $DELETE $xTV/VITESSES$COORD_X #
# $Z $DELETE $xTV/VITESSES$COORD_Y #
# $Z $DELETE $xTV/VITESSES$COORD_Z #
# $Z $DELETE $xTV/mdRHO #
# $Z $DELETE $xTV/MdRHO #
# $Z $DELETE $xTV/mnPHI #
# $Z $DELETE $xTV/MnPHI #
# $Z $DELETE $xTV/dPHI #
# $Z $DELETE $xTV/mnTHETA #
# $Z $DELETE $xTV/MnTHETA #
# $Z $DELETE $xTV/dTHETA #
# $Z $DELETE $xTV/supOUVE #
# $Z $DELETE $xTV/DISTANCE #
# $Z $DELETE $xTV/STABILITE #
# $Z $DELETE $xTV/RAYONS #
# $Z $DELETE $xTV/INTERACTIONS #
# #
# #
# $Z alias Gen 'set Fi=\!:1 ; set vD=\!:2 ; set vA=\!:3 ; set ArG=(\!:4*) ; \\ #
# $Z $DELETE $Fi ; \\ #
# $Z $xci/valeurs_inte$X p=$Part0 d=$PartN vD=$vD vA=$vA $ArG > $Fi ; \\ #
# $Z unset Fi vD vA ArG' #
# #
# $Z alias GenR 'set Fi=\!:1 ; set In=\!:2 ; set Su=\!:3 ; set ArG=(\!:4*) ; \\ #
# $Z $DELETE $Fi ; \\ #
# $Z $xci/valeurs_alea$X p=$Part0 d=$PartN signe="$KV" inf=$In sup=$Su $ArG > $Fi ; \\ #
# $Z unset Fi In Su ArG' #
# #
# $Z set MaxXY=0.85 #
# $Z set SeuilBOITE=`$xcg/SOUS.01$X a=1 b=$MaxXY` #
# $Z set SeuilBOITE=`$xcg/MUL2.01$X a=$SeuilBOITE b=$GRIS_8` #
# $Z set SeuilBOITE=`$xci/valeurs_inte$X p=1 d=1 vD=$SeuilBOITE entiers=VRAI` #
# $Z set SeuilBOITE=`$xcg/MIN2.01$X a=$SeuilBOITE b=$GRIS_1` #
# #
# $Z GenR $xTV/COORDONNEES$COORD_X -$MaxXY +$MaxXY g=1111 #
# $Z GenR $xTV/COORDONNEES$COORD_Y -$MaxXY +$MaxXY g=2222 #
# #
# $Z Gen $xTV/COORDONNEES$COORD_Z 0.0 0.0 #
# #
# #
# $Z Gen $xTV/MODULE 0.02 0.02 #
# $Z GenR $xTV/THETA 0.0 $dpi g=3333 #
# #
# $Z $CA $xcs/csh$Y \ #
# $Z > $xTV/XY_RT.1 #
# $Z $PAST $xTV/MODULE $xTV/THETA \ #
# $Z | $R "$K_TAB" "$K_BLANC" \ #
# $Z | $AW ' { print "$xcg/XY_RT$X r=" $1 " t=" $2 " cartesien=FAUX" } ' \ #
# $Z >>! $xTV/XY_RT.1 #
# #
# $Z (source $xTV/XY_RT.1) \ #
# $Z > $xTV/XY_RT.2 #
# #
# $Z $CA $xTV/XY_RT.2 \ #
# $Z | $GRE "^x=" \ #
# $Z | $SE -e "s/^x=//" \ #
# $Z > $xTV/VITESSES$COORD_X #
# $Z $CA $xTV/XY_RT.2 \ #
# $Z | $GRE "^y=" \ #
# $Z | $SE -e "s/^y=//" \ #
# $Z > $xTV/VITESSES$COORD_Y #
# #
# $Z Gen $xTV/VITESSES$COORD_Z 0.0 0.0 #
# #
# $Z Gen $xTV/mdRHO 0.0 0.0 #
# $Z Gen $xTV/MdRHO 0.0 0.0 #
# $Z Gen $xTV/mnPHI 0.0 0.0 #
# $Z Gen $xTV/MnPHI 0.0 0.0 #
# $Z Gen $xTV/dPHI 0.0 0.0 #
# $Z Gen $xTV/mnTHETA 0.0 0.0 #
# $Z Gen $xTV/MnTHETA 0.0 0.0 #
# $Z Gen $xTV/dTHETA 0.0 0.0 #
# $Z Gen $xTV/DISTANCE 1000000 1000000 #
# $Z Gen $xTV/STABILITE 1000000 1000000 #
# #
# $Z set RayonsT=0.014 #
# $Z set RayonsP=`$xcg/MUL2.01$X a=2 b=$RayonsT` #
# $Z set DistanceI=`$xcg/MUL2.01$X a=4 b=$RayonsP` #
# $Z Gen $xTV/RAYONS $RayonsT $RayonsT #
# $Z Gen $xTV/INTERACTIONS $RayonsP $RayonsP #
# #
# $Z $DELETE $xTV/COULEURS$TEINT #
# $Z $DELETE $xTV/COULEURS$LUMIN #
# $Z $DELETE $xTV/COULEURS$SATUR #
# $Z $DELETE $xTV/COULEURS$Y #
# $Z $DELETE $xTV/COULEURS #
# $Z $DELETE $xTV/COULEURS$ROUGE #
# $Z $DELETE $xTV/COULEURS$VERTE #
# $Z $DELETE $xTV/COULEURS$BLEUE #
# #
# $Z @ TeinteMagenta = $GRIS_7 #
# $Z @ TeinteCyan = $GRIS_4 + $GRIS_8 #
# #
# $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartN \ #
# $Z vD=$TeinteMagenta vA=$TeinteCyan \ #
# $Z cubique=FAUX \ #
# $Z entiers=VRAI \ #
# $Z > $xTV/COULEURS$TEINT #
# $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartN \ #
# $Z vD=$GRIS_4 vA=$GRIS_4 \ #
# $Z cubique=FAUX \ #
# $Z entiers=VRAI \ #
# $Z > $xTV/COULEURS$LUMIN #
# $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartN \ #
# $Z vD=$GRIS_8 vA=$GRIS_8 \ #
# $Z cubique=FAUX \ #
# $Z entiers=VRAI \ #
# $Z > $xTV/COULEURS$SATUR #
# #
# $Z $PAST \ #
# $Z $xTV/COULEURS$TEINT \ #
# $Z $xTV/COULEURS$LUMIN \ #
# $Z $xTV/COULEURS$SATUR \ #
# $Z | $R "$K_TAB" "$K_BLANC" \ #
# $Z | $AW ' { print "H=" $1 " L=" $2 " S=" $3 } ' \ #
# $Z | $SE -e 's+^+$xcg/RVB_HLS$X RVB_HLS=FAUX +' \ #
# $Z | $SE -e 's/$/ eR=VRAI eV=VRAI eB=VRAI/' \ #
# $Z | $SE -e 's/$/ eH=FAUX eL=FAUX eS=FAUX/' \ #
# $Z > $xTV/COULEURS$Y #
# #
# $Z (source $xTV/COULEURS$Y) \ #
# $Z > $xTV/COULEURS #
# #
# $Z $GRE "^R=" $xTV/COULEURS \ #
# $Z | $SE -e "s/^R=//" \ #
# $Z > $xTV/COULEURS$ROUGE #
# $Z $GRE "^V=" $xTV/COULEURS \ #
# $Z | $SE -e "s/^V=//" \ #
# $Z > $xTV/COULEURS$VERTE #
# $Z $GRE "^B=" $xTV/COULEURS \ #
# $Z | $SE -e "s/^B=//" \ #
# $Z > $xTV/COULEURS$BLEUE #
# #
# $Z $DELETE $xTV/BOITE.1 #
# $Z $DELETE $xTV/BOITE.2 #
# $Z $DELETE $xTV/BOITE.3 #
# $Z $DELETE $xTV/BOITE.3$ROUGE #
# $Z $DELETE $xTV/BOITE.3$VERTE #
# $Z $DELETE $xTV/BOITE.3$BLEUE #
# #
# $Z Std #
# #
# $Z S #
# #
# $Z $xci/complement$X \ #
# $Z A=$xiio/SPIRALE \ #
# $Z $formatI | \ #
# $Z $xci/seuil$X \ #
# $Z seuil=$SeuilBOITE \ #
# $Z $formatI | \ #
# $Z $xci/format.01$X mode=0 \ #
# $Z $formatI \ #
# $Z R=$xTV/BOITE.1 \ #
# $Z $formatR_Pal #
# #
# $Z Pal #
# #
# #
# $Z $xci/scale$X \ #
# $Z A=$xTV/BOITE.1 \ #
# $Z a=1.00 \ #
# $Z R=$xTV/BOITE.2 \ #
# $Z $formatI #
# #
# #
# $Z Pal #
# #
# $Z $xrk/rdn_walk.41$X corps=$Npart \ #
# $Z np=$Nimages \ #
# $Z collisions=VRAI DLA=FAUX interaction=$DistanceI \ #
# $Z LISTE_X=$xTV/COORDONNEES$COORD_X \ #
# $Z LISTE_Y=$xTV/COORDONNEES$COORD_Y \ #
# $Z LISTE_Z=$xTV/COORDONNEES$COORD_Z \ #
# $Z LISTE_VX=$xTV/VITESSES$COORD_X \ #
# $Z LISTE_VY=$xTV/VITESSES$COORD_Y \ #
# $Z LISTE_VZ=$xTV/VITESSES$COORD_Z \ #
# $Z LISTE_MINIMUM_DELTA_RHO=$xTV/mdRHO \ #
# $Z LISTE_MAXIMUM_DELTA_RHO=$xTV/MdRHO \ #
# $Z LISTE_MINIMUM_N_PHI=$xTV/mnPHI \ #
# $Z LISTE_MAXIMUM_N_PHI=$xTV/MnPHI \ #
# $Z LISTE_DELTA_PHI=$xTV/dPHI \ #
# $Z LISTE_MINIMUM_N_THETA=$xTV/mnTHETA \ #
# $Z LISTE_MAXIMUM_N_THETA=$xTV/MnTHETA \ #
# $Z LISTE_DELTA_THETA=$xTV/dTHETA \ #
# $Z LISTE_DISTANCE_MAXIMALE=$xTV/DISTANCE \ #
# $Z LISTE_STABILITE=$xTV/STABILITE \ #
# $Z LISTE_RAYON=$xTV/RAYONS \ #
# $Z LISTE_RAYON_D_INTERACTION=$xTV/INTERACTIONS \ #
# $Z LISTE_ROUGE=$xTV/COULEURS$ROUGE \ #
# $Z LISTE_VERTE=$xTV/COULEURS$VERTE \ #
# $Z LISTE_BLEUE=$xTV/COULEURS$BLEUE \ #
# $Z milieu=VRAI \ #
# $Z reflexion=VRAI refraction=FAUX \ #
# $Z Mhors=$BLANC \ #
# $Z MNpasX=1 Mprolonger_X=VRAI \ #
# $Z MNpasY=1 Mprolonger_Y=VRAI \ #
# $Z MNpasZ=1 Mprolonger_Z=VRAI \ #
# $Z adapter_M_nPAS=VRAI \ #
# $Z Msimplifier=FAUX affiner_M_maillage=FAUX \ #
# $Z MC=$xTV/BOITE.2 \ #
# $Z MChiffres=0 \ #
# $Z Zmin=0 Zmax=15 \ #
# $Z centrer=VRAI \ #
# $Z dct=0.05 nombre=10 \ #
# $Z trainees=VRAI mode=1 \ #
# $Z attenuation_des_images=0.6 \ #
# $Z attenuation_des_trainees=1.00 \ #
# $Z renormaliser=FAUX \ #
# $Z Lz=100 \ #
# $Z zoom_automatique=VRAI \ #
# $Z centre_de_gravite=FAUX \ #
# $Z fond=FAUX \ #
# $Z R=$xiim/REFL.W. \ #
# $Z $formatI #
# #
# $Z $DELETE $xTV/RAYONS #
# $Z $CP $xTV/INTERACTIONS $xTV/RAYONS #
# #
# $Z $DELETE $xTV/GRAVITE #
# $Z $xrk/rdn_walk.41$X corps=$Npart \ #
# $Z np=$Nimages \ #
# $Z collisions=VRAI DLA=FAUX interaction=$DistanceI \ #
# $Z LISTE_X=$xTV/COORDONNEES$COORD_X \ #
# $Z LISTE_Y=$xTV/COORDONNEES$COORD_Y \ #
# $Z LISTE_Z=$xTV/COORDONNEES$COORD_Z \ #
# $Z LISTE_VX=$xTV/VITESSES$COORD_X \ #
# $Z LISTE_VY=$xTV/VITESSES$COORD_Y \ #
# $Z LISTE_VZ=$xTV/VITESSES$COORD_Z \ #
# $Z LISTE_MINIMUM_DELTA_RHO=$xTV/mdRHO \ #
# $Z LISTE_MAXIMUM_DELTA_RHO=$xTV/MdRHO \ #
# $Z LISTE_MINIMUM_N_PHI=$xTV/mnPHI \ #
# $Z LISTE_MAXIMUM_N_PHI=$xTV/MnPHI \ #
# $Z LISTE_DELTA_PHI=$xTV/dPHI \ #
# $Z LISTE_MINIMUM_N_THETA=$xTV/mnTHETA \ #
# $Z LISTE_MAXIMUM_N_THETA=$xTV/MnTHETA \ #
# $Z LISTE_DELTA_THETA=$xTV/dTHETA \ #
# $Z LISTE_DISTANCE_MAXIMALE=$xTV/DISTANCE \ #
# $Z LISTE_STABILITE=$xTV/STABILITE \ #
# $Z LISTE_RAYON=$xTV/RAYONS \ #
# $Z LISTE_RAYON_D_INTERACTION=$xTV/INTERACTIONS \ #
# $Z LISTE_ROUGE=$xTV/COULEURS$ROUGE \ #
# $Z LISTE_VERTE=$xTV/COULEURS$VERTE \ #
# $Z LISTE_BLEUE=$xTV/COULEURS$BLEUE \ #
# $Z milieu=VRAI \ #
# $Z reflexion=VRAI refraction=FAUX \ #
# $Z Mhors=$BLANC \ #
# $Z MNpasX=1 Mprolonger_X=VRAI \ #
# $Z MNpasY=1 Mprolonger_Y=VRAI \ #
# $Z MNpasZ=1 Mprolonger_Z=VRAI \ #
# $Z adapter_M_nPAS=VRAI \ #
# $Z Msimplifier=FAUX affiner_M_maillage=FAUX \ #
# $Z MC=$xTV/BOITE.2 \ #
# $Z MChiffres=0 \ #
# $Z Zmin=0 Zmax=15 \ #
# $Z centrer=VRAI \ #
# $Z dct=0.05 nombre=10 \ #
# $Z trainees=VRAI mode=1 \ #
# $Z attenuation_des_images=1.0 \ #
# $Z attenuation_des_trainees=0.80 \ #
# $Z renormaliser=FAUX \ #
# $Z Lz=100 \ #
# $Z zoom_automatique=VRAI \ #
# $Z centre_de_gravite=VRAI \ #
# $Z fond=VRAI \ #
# $Z dynamique=VRAI \ #
# $Z F=$xiim/REFL.W. \ #
# $Z R=$xiim/REFL.W. \ #
# $Z $formatI \ #
# $Z > $xTV/GRAVITE #
# #
# $Z $DELETE $xTV/COORDONNEES$COORD_X #
# $Z $DELETE $xTV/COORDONNEES$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_Z #
# $Z $DELETE $xTV/VITESSES #
# $Z $DELETE $xTV/VITESSES$COORD_X #
# $Z $DELETE $xTV/VITESSES$COORD_Y #
# $Z $DELETE $xTV/VITESSES$COORD_Z #
# $Z $DELETE $xTV/mdRHO #
# $Z $DELETE $xTV/MdRHO #
# $Z $DELETE $xTV/mnPHI #
# $Z $DELETE $xTV/MnPHI #
# $Z $DELETE $xTV/dPHI #
# $Z $DELETE $xTV/mnTHETA #
# $Z $DELETE $xTV/MnTHETA #
# $Z $DELETE $xTV/dTHETA #
# $Z $DELETE $xTV/DISTANCE #
# $Z $DELETE $xTV/STABILITE #
# $Z $DELETE $xTV/RAYONS #
# $Z $DELETE $xTV/INTERACTIONS #
# $Z $DELETE $xTV/COULEURS$TEINT #
# $Z $DELETE $xTV/COULEURS$LUMIN #
# $Z $DELETE $xTV/COULEURS$SATUR #
# $Z $DELETE $xTV/COULEURS$Y #
# $Z $DELETE $xTV/COULEURS #
# $Z $DELETE $xTV/COULEURS$ROUGE #
# $Z $DELETE $xTV/COULEURS$VERTE #
# $Z $DELETE $xTV/COULEURS$BLEUE #
# #
# $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("$DELETE $xTV/COORDONNEES\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_X\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_Y\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_Z\n"); #
# #
# $c printf("$DELETE $xTV/COULEURS$ROUGE\n"); #
# $c printf("$DELETE $xTV/COULEURS$VERTE\n"); #
# $c printf("$DELETE $xTV/COULEURS$BLEUE\n"); #
# #
# $c printf("listMN $xTV/GRAVITE #
# $c %d %d #
# $c > $xTV/COORDONNEES\n" #
# $c ,N0,n #
# $c ); #
# #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*XG=//%c #
# $c -e %cs/ .*//%c #
# $c > $xTV/COORDONNEES$COORD_X\n" #
# $c ,'"','"','"','"' #
# $c ); #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*YG=//%c #
# $c -e %cs/ .*//%c #
# $c > $xTV/COORDONNEES$COORD_Y\n" #
# $c ,'"','"','"','"' #
# $c ); #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*ZG=//%c #
# $c > $xTV/COORDONNEES$COORD_Z\n" #
# $c ,'"','"','"','"' #
# $c ); #
# #
# $c printf("$xci/valeurs_inte$X #
# $c premiere=%d derniere=%d #
# $c vD=$GRIS_4 vA=$GRIS_4 #
# $c cubique=FAUX #
# $c entiers=VRAI #
# $c utiliser_la_valeur_de_depart=FAUX #
# $c > $xTV/COULEURS$ROUGE\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/valeurs_inte$X #
# $c premiere=%d derniere=%d #
# $c vD=$GRIS_4 vA=$GRIS_4 #
# $c cubique=FAUX #
# $c entiers=VRAI #
# $c utiliser_la_valeur_de_depart=FAUX #
# $c > $xTV/COULEURS$VERTE\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/valeurs_inte$X #
# $c premiere=%d derniere=%d #
# $c vD=$GRIS_4 vA=$GRIS_4 #
# $c cubique=FAUX #
# $c entiers=VRAI #
# $c utiliser_la_valeur_de_depart=FAUX #
# $c > $xTV/COULEURS$BLEUE\n" #
# $c ,N0,n #
# $c ); #
# #
# $c printf("$xrv/particule.10$X #
# $c np=1 #
# $c iterations=%d #
# $c LISTE_X=$xTV/COORDONNEES$COORD_X #
# $c LISTE_Y=$xTV/COORDONNEES$COORD_Y #
# $c LISTE_Z=$xTV/COORDONNEES$COORD_Z #
# $c LISTE_ROUGE=$xTV/COULEURS$ROUGE #
# $c LISTE_VERTE=$xTV/COULEURS$VERTE #
# $c LISTE_BLEUE=$xTV/COULEURS$BLEUE #
# $c LISTE_RAYON=0.005 #
# $c zoom_automatique=FAUX ZOOM=1.0 #
# $c coordonnees_dans_0_1=FAUX #
# $c AXYZ=1 BXYZ=0 #
# $c fond=VRAI #
# $c fond_dynamique=FAUX #
# $c F=$xiim/REFL.W.%04d #
# $c R=$xTV/REFL.A. #
# $c $formatI\n" #
# $c ,(n-N0)+1,n #
# $c ); #
# #
# $c printf("$xci/acces$X #
# $c A=$xTV/REFL.A.%04d$ROUGE #
# $c R=$xiim/REFL.W.%04d$ROUGE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xTV/REFL.A.%04d$VERTE #
# $c R=$xiim/REFL.W.%04d$VERTE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xTV/REFL.A.%04d$BLEUE #
# $c R=$xiim/REFL.W.%04d$BLEUE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# #
# $c printf("$DELETE $xTV/COORDONNEES\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_X\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_Y\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_Z\n"); #
# #
# $c printf("$DELETE $xTV/COULEURS$ROUGE\n"); #
# $c printf("$DELETE $xTV/COULEURS$VERTE\n"); #
# $c printf("$DELETE $xTV/COULEURS$BLEUE\n"); #
# #
# $c printf("listMN $xTV/GRAVITE #
# $c %d %d #
# $c > $xTV/COORDONNEES\n" #
# $c ,n,n #
# $c ); #
# #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*XG=//%c #
# $c -e %cs/ .*//%c #
# $c > $xTV/COORDONNEES$COORD_X\n" #
# $c ,'"','"','"','"' #
# $c ); #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*YG=//%c #
# $c -e %cs/ .*//%c #
# $c > $xTV/COORDONNEES$COORD_Y\n" #
# $c ,'"','"','"','"' #
# $c ); #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*ZG=//%c #
# $c > $xTV/COORDONNEES$COORD_Z\n" #
# $c ,'"','"','"','"' #
# $c ); #
# #
# $c printf("$xci/valeurs_inte$X #
# $c premiere=%d derniere=%d #
# $c vD=$GRIS_8 vA=$GRIS_8 #
# $c cubique=FAUX #
# $c entiers=VRAI #
# $c utiliser_la_valeur_de_depart=FAUX #
# $c > $xTV/COULEURS$ROUGE\n" #
# $c ,n,n #
# $c ); #
# $c printf("$xci/valeurs_inte$X #
# $c premiere=%d derniere=%d #
# $c vD=$GRIS_8 vA=$GRIS_8 #
# $c cubique=FAUX #
# $c entiers=VRAI #
# $c utiliser_la_valeur_de_depart=FAUX #
# $c > $xTV/COULEURS$VERTE\n" #
# $c ,n,n #
# $c ); #
# $c printf("$xci/valeurs_inte$X #
# $c premiere=%d derniere=%d #
# $c vD=$GRIS_8 vA=$GRIS_8 #
# $c cubique=FAUX #
# $c entiers=VRAI #
# $c utiliser_la_valeur_de_depart=FAUX #
# $c > $xTV/COULEURS$BLEUE\n" #
# $c ,n,n #
# $c ); #
# #
# $c printf("$xrv/particule.10$X #
# $c np=1 #
# $c iterations=%d #
# $c LISTE_X=$xTV/COORDONNEES$COORD_X #
# $c LISTE_Y=$xTV/COORDONNEES$COORD_Y #
# $c LISTE_Z=$xTV/COORDONNEES$COORD_Z #
# $c LISTE_ROUGE=$xTV/COULEURS$ROUGE #
# $c LISTE_VERTE=$xTV/COULEURS$VERTE #
# $c LISTE_BLEUE=$xTV/COULEURS$BLEUE #
# $c LISTE_RAYON=0.010 #
# $c zoom_automatique=FAUX ZOOM=1.0 #
# $c coordonnees_dans_0_1=FAUX #
# $c AXYZ=1 BXYZ=0 #
# $c fond=VRAI #
# $c fond_dynamique=FAUX #
# $c F=$xiim/REFL.W.%04d #
# $c R=$xTV/REFL.B. #
# $c $formatI\n" #
# $c ,(n-n)+1,n #
# $c ); #
# #
# $c printf("$xci/acces$X #
# $c A=$xTV/REFL.B.%04d$ROUGE #
# $c R=$xiim/REFL.W.%04d$ROUGE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xTV/REFL.B.%04d$VERTE #
# $c R=$xiim/REFL.W.%04d$VERTE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xTV/REFL.B.%04d$BLEUE #
# $c R=$xiim/REFL.W.%04d$BLEUE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# $c } #
# $c } #
# #
# #
# $Z $DELETE $xTV/COORDONNEES #
# $Z $DELETE $xTV/COORDONNEES$COORD_X #
# $Z $DELETE $xTV/COORDONNEES$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_Z #
# $Z $DELETE $xTV/COULEURS$ROUGE #
# $Z $DELETE $xTV/COULEURS$VERTE #
# $Z $DELETE $xTV/COULEURS$BLEUE #
# #
# #
# #
# $Z $xci/complement$X A=$xTV/BOITE.1 \ #
# $Z R=$xTV/BOITE.3 \ #
# $Z $formatI #
# #
# $Z eval `$xci/genere$X \\\ #
# $Z commande='($xci/scale$X \\\ #
# $Z A=$xTV/BOITE.3 \\\ #
# $Z a=0.50 \\\ #
# $Z R=$xTV/BOITE.3%s \\\ #
# $Z $formatI)' \\\ #
# $Z en_tete=FAUX RVB=VRAI separateur=VRAI` #
# #
# #
# $X $xci/genere$X premiere=$Premiere derniere=$Derniere pas=1 \ #
# $X C='$xci/cache.11$Z \ #
# $X $xiim/REFL.W.%04d \ #
# $X $xTV/BOITE.3 \ #
# $X $xiim/REFL.2.%04d' #
# #
# $Z $DELETE $xTV/BOITE.1 #
# $Z $DELETE $xTV/BOITE.2 #
# $Z $DELETE $xTV/BOITE.3 #
# $Z $DELETE $xTV/BOITE.3$ROUGE #
# $Z $DELETE $xTV/BOITE.3$VERTE #
# $Z $DELETE $xTV/BOITE.3$BLEUE #
# #
# $Z Pal #
# #
# $Z $xci/reduction_16$Z $xiim/REFL.2. $xiak/REFL.A4 $Premiere $Derniere #
# $Z $xci/reduction_64$Z $xiim/REFL.2. $xiak/REFL.A4 $Premiere $Derniere #
# #
# $X $xci/genere$X c='ro $xiak/REFL.A4$R16%s' RVB=VRAI #
# $X $xci/genere$X c='ro $xiak/REFL.A4$R64%s' RVB=VRAI #
# #
# $X $xci/genere$X c='$xcg/unite$Z $xiak/REFL.A4$R16%s' RVB=VRAI #
# $X $xci/genere$X c='$xcg/unite$Z $xiak/REFL.A4$R64%s' RVB=VRAI #
# #
# $X $xci/genere$X c='$CP $xiim/REFL.2.0512%s $xiirk/REFL.A4.0512%s' RVB=VRAI #
# #
# $X $xci/genere$X c='ro $xiirk/REFL.A4.0512%s' RVB=VRAI #
# #
# $X $xci/genere$X c='$xcg/unite$Z $xiirk/REFL.A4.0512%s' RVB=VRAI #
# #
# #
# Pal #
# #
# #
# $xci/disk_video_P$Z $xiim_LACT29/REFL.2. 001 512 RVB \ #
# 11 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
# #
# xivPdf 3 2 #
# #
# record.01$Z $xiak/REFL.A4$R16 RVB Initialisation #
# record.01$Z $xiak/REFL.A4$R64 RVB rien #
# record.01$Z $xiirk/REFL.A4.0512 RVB rien #
# #
# #
# ATTENTION, cette sequence a du etre reenregistree en : #
# #
# xivPdf 11 2 / 004609_005120 #
# #
# car, en effet, pour des raisons mysterieuses, l'image '003671' est NOIR. Les messages #
# recuperes etaient du type : #
# #
# il y a soit un probleme de synchronisation en sortie #
# ou bien une absence de signal video en entree #
# le mode 'genlock' etait demande #
# #
# et : #
# #
# WARNING: Frame transfer aborted: analog video input not locked #
# #
# dans '$Ferreurs'... #
sequence 004097_004608
# Generee (sur '$LACT29') par : #
# #
# $Z SET Premiere=1 #
# $Z SET Derniere=512 #
# $Z @ Nimages = $Derniere - $Premiere #
# $Z @ Nimages = $Nimages + 1 #
# #
# $Z set Part0=1 #
# $Z set PartN=64 #
# $Z @ Npart = $PartN - $Part0 #
# $Z @ Npart = $Npart + 1 #
# #
# $Z $DELETE $xTV/MODULE #
# $Z $DELETE $xTV/THETA #
# $Z $DELETE $xTV/XY_RT.1 #
# $Z $DELETE $xTV/XY_RT.2 #
# $Z $DELETE $xTV/COORDONNEES$COORD_X #
# $Z $DELETE $xTV/COORDONNEES$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_Z #
# $Z $DELETE $xTV/VITESSES #
# $Z $DELETE $xTV/VITESSES$COORD_X #
# $Z $DELETE $xTV/VITESSES$COORD_Y #
# $Z $DELETE $xTV/VITESSES$COORD_Z #
# $Z $DELETE $xTV/mdRHO #
# $Z $DELETE $xTV/MdRHO #
# $Z $DELETE $xTV/mnPHI #
# $Z $DELETE $xTV/MnPHI #
# $Z $DELETE $xTV/dPHI #
# $Z $DELETE $xTV/mnTHETA #
# $Z $DELETE $xTV/MnTHETA #
# $Z $DELETE $xTV/dTHETA #
# $Z $DELETE $xTV/supOUVE #
# $Z $DELETE $xTV/DISTANCE #
# $Z $DELETE $xTV/STABILITE #
# $Z $DELETE $xTV/RAYONS #
# $Z $DELETE $xTV/INTERACTIONS #
# #
# #
# $Z alias Gen 'set Fi=\!:1 ; set vD=\!:2 ; set vA=\!:3 ; set ArG=(\!:4*) ; \\ #
# $Z $DELETE $Fi ; \\ #
# $Z $xci/valeurs_inte$X p=$Part0 d=$PartN vD=$vD vA=$vA $ArG > $Fi ; \\ #
# $Z unset Fi vD vA ArG' #
# #
# $Z alias GenR 'set Fi=\!:1 ; set In=\!:2 ; set Su=\!:3 ; set ArG=(\!:4*) ; \\ #
# $Z $DELETE $Fi ; \\ #
# $Z $xci/valeurs_alea$X p=$Part0 d=$PartN signe="$KV" inf=$In sup=$Su $ArG > $Fi ; \\ #
# $Z unset Fi In Su ArG' #
# #
# $Z set MaxXY=0.85 #
# $Z set SeuilBOITE=`$xcg/SOUS.01$X a=1 b=$MaxXY` #
# $Z set SeuilBOITE=`$xcg/MUL2.01$X a=$SeuilBOITE b=$GRIS_8` #
# $Z set SeuilBOITE=`$xci/valeurs_inte$X p=1 d=1 vD=$SeuilBOITE entiers=VRAI` #
# $Z set SeuilBOITE=`$xcg/MIN2.01$X a=$SeuilBOITE b=$GRIS_1` #
# #
# $Z GenR $xTV/COORDONNEES$COORD_X -$MaxXY +$MaxXY g=1111 #
# $Z GenR $xTV/COORDONNEES$COORD_Y -$MaxXY +$MaxXY g=2222 #
# #
# $Z Gen $xTV/COORDONNEES$COORD_Z 0.0 0.0 #
# #
# #
# $Z Gen $xTV/MODULE 0.02 0.02 #
# $Z GenR $xTV/THETA 0.0 $dpi g=3333 #
# #
# $Z $CA $xcs/csh$Y \ #
# $Z > $xTV/XY_RT.1 #
# $Z $PAST $xTV/MODULE $xTV/THETA \ #
# $Z | $R "$K_TAB" "$K_BLANC" \ #
# $Z | $AW ' { print "$xcg/XY_RT$X r=" $1 " t=" $2 " cartesien=FAUX" } ' \ #
# $Z >>! $xTV/XY_RT.1 #
# #
# $Z (source $xTV/XY_RT.1) \ #
# $Z > $xTV/XY_RT.2 #
# #
# $Z $CA $xTV/XY_RT.2 \ #
# $Z | $GRE "^x=" \ #
# $Z | $SE -e "s/^x=//" \ #
# $Z > $xTV/VITESSES$COORD_X #
# $Z $CA $xTV/XY_RT.2 \ #
# $Z | $GRE "^y=" \ #
# $Z | $SE -e "s/^y=//" \ #
# $Z > $xTV/VITESSES$COORD_Y #
# #
# $Z Gen $xTV/VITESSES$COORD_Z 0.0 0.0 #
# #
# $Z Gen $xTV/mdRHO 0.0 0.0 #
# $Z Gen $xTV/MdRHO 0.0 0.0 #
# $Z Gen $xTV/mnPHI 0.0 0.0 #
# $Z Gen $xTV/MnPHI 0.0 0.0 #
# $Z Gen $xTV/dPHI 0.0 0.0 #
# $Z Gen $xTV/mnTHETA 0.0 0.0 #
# $Z Gen $xTV/MnTHETA 0.0 0.0 #
# $Z Gen $xTV/dTHETA 0.0 0.0 #
# $Z Gen $xTV/DISTANCE 1000000 1000000 #
# $Z Gen $xTV/STABILITE 1000000 1000000 #
# #
# $Z set RayonsT=0.014 #
# $Z set RayonsP=`$xcg/MUL2.01$X a=2 b=$RayonsT` #
# $Z set DistanceI=`$xcg/MUL2.01$X a=4 b=$RayonsP` #
# $Z Gen $xTV/RAYONS $RayonsT $RayonsT #
# $Z Gen $xTV/INTERACTIONS $RayonsP $RayonsP #
# #
# $Z $DELETE $xTV/COULEURS$TEINT #
# $Z $DELETE $xTV/COULEURS$LUMIN #
# $Z $DELETE $xTV/COULEURS$SATUR #
# $Z $DELETE $xTV/COULEURS$Y #
# $Z $DELETE $xTV/COULEURS #
# $Z $DELETE $xTV/COULEURS$ROUGE #
# $Z $DELETE $xTV/COULEURS$VERTE #
# $Z $DELETE $xTV/COULEURS$BLEUE #
# #
# $Z @ TeinteMagenta = $GRIS_7 #
# $Z @ TeinteCyan = $GRIS_4 + $GRIS_8 #
# #
# $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartN \ #
# $Z vD=$TeinteMagenta vA=$TeinteCyan \ #
# $Z cubique=FAUX \ #
# $Z entiers=VRAI \ #
# $Z > $xTV/COULEURS$TEINT #
# $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartN \ #
# $Z vD=$GRIS_4 vA=$GRIS_4 \ #
# $Z cubique=FAUX \ #
# $Z entiers=VRAI \ #
# $Z > $xTV/COULEURS$LUMIN #
# $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartN \ #
# $Z vD=$GRIS_8 vA=$GRIS_8 \ #
# $Z cubique=FAUX \ #
# $Z entiers=VRAI \ #
# $Z > $xTV/COULEURS$SATUR #
# #
# $Z $PAST \ #
# $Z $xTV/COULEURS$TEINT \ #
# $Z $xTV/COULEURS$LUMIN \ #
# $Z $xTV/COULEURS$SATUR \ #
# $Z | $R "$K_TAB" "$K_BLANC" \ #
# $Z | $AW ' { print "H=" $1 " L=" $2 " S=" $3 } ' \ #
# $Z | $SE -e 's+^+$xcg/RVB_HLS$X RVB_HLS=FAUX +' \ #
# $Z | $SE -e 's/$/ eR=VRAI eV=VRAI eB=VRAI/' \ #
# $Z | $SE -e 's/$/ eH=FAUX eL=FAUX eS=FAUX/' \ #
# $Z > $xTV/COULEURS$Y #
# #
# $Z (source $xTV/COULEURS$Y) \ #
# $Z > $xTV/COULEURS #
# #
# $Z $GRE "^R=" $xTV/COULEURS \ #
# $Z | $SE -e "s/^R=//" \ #
# $Z > $xTV/COULEURS$ROUGE #
# $Z $GRE "^V=" $xTV/COULEURS \ #
# $Z | $SE -e "s/^V=//" \ #
# $Z > $xTV/COULEURS$VERTE #
# $Z $GRE "^B=" $xTV/COULEURS \ #
# $Z | $SE -e "s/^B=//" \ #
# $Z > $xTV/COULEURS$BLEUE #
# #
# $Z $DELETE $xTV/BOITE.1 #
# $Z $DELETE $xTV/BOITE.2 #
# $Z $DELETE $xTV/BOITE.3 #
# $Z $DELETE $xTV/BOITE.3$ROUGE #
# $Z $DELETE $xTV/BOITE.3$VERTE #
# $Z $DELETE $xTV/BOITE.3$BLEUE #
# #
# $Z Std #
# #
# $Z S #
# #
# $Z $xci/complement$X \ #
# $Z A=$xiio/SPIRALE \ #
# $Z $formatI | \ #
# $Z $xci/seuil$X \ #
# $Z seuil=$SeuilBOITE \ #
# $Z $formatI | \ #
# $Z $xci/format.01$X mode=0 \ #
# $Z $formatI \ #
# $Z R=$xTV/BOITE.1 \ #
# $Z $formatR_Pal #
# #
# $Z Pal #
# #
# #
# $Z $xci/scale$X \ #
# $Z A=$xTV/BOITE.1 \ #
# $Z a=1.00 \ #
# $Z R=$xTV/BOITE.2 \ #
# $Z $formatI #
# #
# #
# $Z Pal #
# #
# $Z $xrk/rdn_walk.41$X corps=$Npart \ #
# $Z np=$Nimages \ #
# $Z collisions=VRAI DLA=FAUX interaction=$DistanceI \ #
# $Z LISTE_X=$xTV/COORDONNEES$COORD_X \ #
# $Z LISTE_Y=$xTV/COORDONNEES$COORD_Y \ #
# $Z LISTE_Z=$xTV/COORDONNEES$COORD_Z \ #
# $Z LISTE_VX=$xTV/VITESSES$COORD_X \ #
# $Z LISTE_VY=$xTV/VITESSES$COORD_Y \ #
# $Z LISTE_VZ=$xTV/VITESSES$COORD_Z \ #
# $Z LISTE_MINIMUM_DELTA_RHO=$xTV/mdRHO \ #
# $Z LISTE_MAXIMUM_DELTA_RHO=$xTV/MdRHO \ #
# $Z LISTE_MINIMUM_N_PHI=$xTV/mnPHI \ #
# $Z LISTE_MAXIMUM_N_PHI=$xTV/MnPHI \ #
# $Z LISTE_DELTA_PHI=$xTV/dPHI \ #
# $Z LISTE_MINIMUM_N_THETA=$xTV/mnTHETA \ #
# $Z LISTE_MAXIMUM_N_THETA=$xTV/MnTHETA \ #
# $Z LISTE_DELTA_THETA=$xTV/dTHETA \ #
# $Z LISTE_DISTANCE_MAXIMALE=$xTV/DISTANCE \ #
# $Z LISTE_STABILITE=$xTV/STABILITE \ #
# $Z LISTE_RAYON=$xTV/RAYONS \ #
# $Z LISTE_RAYON_D_INTERACTION=$xTV/INTERACTIONS \ #
# $Z LISTE_ROUGE=$xTV/COULEURS$ROUGE \ #
# $Z LISTE_VERTE=$xTV/COULEURS$VERTE \ #
# $Z LISTE_BLEUE=$xTV/COULEURS$BLEUE \ #
# $Z milieu=VRAI \ #
# $Z reflexion=VRAI refraction=FAUX \ #
# $Z Mhors=$BLANC \ #
# $Z MNpasX=1 Mprolonger_X=VRAI \ #
# $Z MNpasY=1 Mprolonger_Y=VRAI \ #
# $Z MNpasZ=1 Mprolonger_Z=VRAI \ #
# $Z adapter_M_nPAS=VRAI \ #
# $Z Msimplifier=FAUX affiner_M_maillage=FAUX \ #
# $Z MC=$xTV/BOITE.2 \ #
# $Z MChiffres=0 \ #
# $Z Zmin=0 Zmax=15 \ #
# $Z centrer=VRAI \ #
# $Z dct=0.05 nombre=10 \ #
# $Z trainees=VRAI mode=1 \ #
# $Z attenuation_des_images=0.6 \ #
# $Z attenuation_des_trainees=1.00 \ #
# $Z renormaliser=FAUX \ #
# $Z Lz=100 \ #
# $Z zoom_automatique=VRAI \ #
# $Z centre_de_gravite=FAUX \ #
# $Z fond=FAUX \ #
# $Z R=$xiim/REFL.W. \ #
# $Z $formatI #
# #
# $Z $DELETE $xTV/RAYONS #
# $Z $CP $xTV/INTERACTIONS $xTV/RAYONS #
# #
# $Z $DELETE $xTV/GRAVITE #
# $Z $xrk/rdn_walk.41$X corps=$Npart \ #
# $Z np=$Nimages \ #
# $Z collisions=VRAI DLA=FAUX interaction=$DistanceI \ #
# $Z LISTE_X=$xTV/COORDONNEES$COORD_X \ #
# $Z LISTE_Y=$xTV/COORDONNEES$COORD_Y \ #
# $Z LISTE_Z=$xTV/COORDONNEES$COORD_Z \ #
# $Z LISTE_VX=$xTV/VITESSES$COORD_X \ #
# $Z LISTE_VY=$xTV/VITESSES$COORD_Y \ #
# $Z LISTE_VZ=$xTV/VITESSES$COORD_Z \ #
# $Z LISTE_MINIMUM_DELTA_RHO=$xTV/mdRHO \ #
# $Z LISTE_MAXIMUM_DELTA_RHO=$xTV/MdRHO \ #
# $Z LISTE_MINIMUM_N_PHI=$xTV/mnPHI \ #
# $Z LISTE_MAXIMUM_N_PHI=$xTV/MnPHI \ #
# $Z LISTE_DELTA_PHI=$xTV/dPHI \ #
# $Z LISTE_MINIMUM_N_THETA=$xTV/mnTHETA \ #
# $Z LISTE_MAXIMUM_N_THETA=$xTV/MnTHETA \ #
# $Z LISTE_DELTA_THETA=$xTV/dTHETA \ #
# $Z LISTE_DISTANCE_MAXIMALE=$xTV/DISTANCE \ #
# $Z LISTE_STABILITE=$xTV/STABILITE \ #
# $Z LISTE_RAYON=$xTV/RAYONS \ #
# $Z LISTE_RAYON_D_INTERACTION=$xTV/INTERACTIONS \ #
# $Z LISTE_ROUGE=$xTV/COULEURS$ROUGE \ #
# $Z LISTE_VERTE=$xTV/COULEURS$VERTE \ #
# $Z LISTE_BLEUE=$xTV/COULEURS$BLEUE \ #
# $Z milieu=VRAI \ #
# $Z reflexion=VRAI refraction=FAUX \ #
# $Z Mhors=$BLANC \ #
# $Z MNpasX=1 Mprolonger_X=VRAI \ #
# $Z MNpasY=1 Mprolonger_Y=VRAI \ #
# $Z MNpasZ=1 Mprolonger_Z=VRAI \ #
# $Z adapter_M_nPAS=VRAI \ #
# $Z Msimplifier=FAUX affiner_M_maillage=FAUX \ #
# $Z MC=$xTV/BOITE.2 \ #
# $Z MChiffres=0 \ #
# $Z Zmin=0 Zmax=15 \ #
# $Z centrer=VRAI \ #
# $Z dct=0.05 nombre=10 \ #
# $Z trainees=VRAI mode=1 \ #
# $Z attenuation_des_images=1.0 \ #
# $Z attenuation_des_trainees=0.80 \ #
# $Z renormaliser=FAUX \ #
# $Z Lz=100 \ #
# $Z zoom_automatique=VRAI \ #
# $Z centre_de_gravite=VRAI \ #
# $Z fond=VRAI \ #
# $Z dynamique=VRAI \ #
# $Z F=$xiim/REFL.W. \ #
# $Z R=$xiim/REFL.W. \ #
# $Z $formatI \ #
# $Z > $xTV/GRAVITE #
# #
# $Z $DELETE $xTV/COORDONNEES$COORD_X #
# $Z $DELETE $xTV/COORDONNEES$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_Z #
# $Z $DELETE $xTV/VITESSES #
# $Z $DELETE $xTV/VITESSES$COORD_X #
# $Z $DELETE $xTV/VITESSES$COORD_Y #
# $Z $DELETE $xTV/VITESSES$COORD_Z #
# $Z $DELETE $xTV/mdRHO #
# $Z $DELETE $xTV/MdRHO #
# $Z $DELETE $xTV/mnPHI #
# $Z $DELETE $xTV/MnPHI #
# $Z $DELETE $xTV/dPHI #
# $Z $DELETE $xTV/mnTHETA #
# $Z $DELETE $xTV/MnTHETA #
# $Z $DELETE $xTV/dTHETA #
# $Z $DELETE $xTV/DISTANCE #
# $Z $DELETE $xTV/STABILITE #
# $Z $DELETE $xTV/RAYONS #
# $Z $DELETE $xTV/INTERACTIONS #
# $Z $DELETE $xTV/COULEURS$TEINT #
# $Z $DELETE $xTV/COULEURS$LUMIN #
# $Z $DELETE $xTV/COULEURS$SATUR #
# $Z $DELETE $xTV/COULEURS$Y #
# $Z $DELETE $xTV/COULEURS #
# $Z $DELETE $xTV/COULEURS$ROUGE #
# $Z $DELETE $xTV/COULEURS$VERTE #
# $Z $DELETE $xTV/COULEURS$BLEUE #
# #
# $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("$DELETE $xTV/COORDONNEES\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_X\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_Y\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_Z\n"); #
# #
# $c printf("$DELETE $xTV/COULEURS$ROUGE\n"); #
# $c printf("$DELETE $xTV/COULEURS$VERTE\n"); #
# $c printf("$DELETE $xTV/COULEURS$BLEUE\n"); #
# #
# $c printf("listMN $xTV/GRAVITE #
# $c %d %d #
# $c > $xTV/COORDONNEES\n" #
# $c ,N0,n #
# $c ); #
# #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*XG=//%c #
# $c -e %cs/ .*//%c #
# $c > $xTV/COORDONNEES$COORD_X\n" #
# $c ,'"','"','"','"' #
# $c ); #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*YG=//%c #
# $c -e %cs/ .*//%c #
# $c > $xTV/COORDONNEES$COORD_Y\n" #
# $c ,'"','"','"','"' #
# $c ); #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*ZG=//%c #
# $c > $xTV/COORDONNEES$COORD_Z\n" #
# $c ,'"','"','"','"' #
# $c ); #
# #
# $c printf("$xci/valeurs_inte$X #
# $c premiere=%d derniere=%d #
# $c vD=$GRIS_4 vA=$GRIS_4 #
# $c cubique=FAUX #
# $c entiers=VRAI #
# $c utiliser_la_valeur_de_depart=FAUX #
# $c > $xTV/COULEURS$ROUGE\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/valeurs_inte$X #
# $c premiere=%d derniere=%d #
# $c vD=$GRIS_4 vA=$GRIS_4 #
# $c cubique=FAUX #
# $c entiers=VRAI #
# $c utiliser_la_valeur_de_depart=FAUX #
# $c > $xTV/COULEURS$VERTE\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/valeurs_inte$X #
# $c premiere=%d derniere=%d #
# $c vD=$GRIS_4 vA=$GRIS_4 #
# $c cubique=FAUX #
# $c entiers=VRAI #
# $c utiliser_la_valeur_de_depart=FAUX #
# $c > $xTV/COULEURS$BLEUE\n" #
# $c ,N0,n #
# $c ); #
# #
# $c printf("$xrv/particule.10$X #
# $c np=1 #
# $c iterations=%d #
# $c LISTE_X=$xTV/COORDONNEES$COORD_X #
# $c LISTE_Y=$xTV/COORDONNEES$COORD_Y #
# $c LISTE_Z=$xTV/COORDONNEES$COORD_Z #
# $c LISTE_ROUGE=$xTV/COULEURS$ROUGE #
# $c LISTE_VERTE=$xTV/COULEURS$VERTE #
# $c LISTE_BLEUE=$xTV/COULEURS$BLEUE #
# $c LISTE_RAYON=0.005 #
# $c zoom_automatique=FAUX ZOOM=1.0 #
# $c coordonnees_dans_0_1=FAUX #
# $c AXYZ=1 BXYZ=0 #
# $c fond=VRAI #
# $c fond_dynamique=FAUX #
# $c F=$xiim/REFL.W.%04d #
# $c R=$xTV/REFL.A. #
# $c $formatI\n" #
# $c ,(n-N0)+1,n #
# $c ); #
# #
# $c printf("$xci/acces$X #
# $c A=$xTV/REFL.A.%04d$ROUGE #
# $c R=$xiim/REFL.W.%04d$ROUGE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xTV/REFL.A.%04d$VERTE #
# $c R=$xiim/REFL.W.%04d$VERTE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xTV/REFL.A.%04d$BLEUE #
# $c R=$xiim/REFL.W.%04d$BLEUE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# #
# $c printf("$DELETE $xTV/COORDONNEES\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_X\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_Y\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_Z\n"); #
# #
# $c printf("$DELETE $xTV/COULEURS$ROUGE\n"); #
# $c printf("$DELETE $xTV/COULEURS$VERTE\n"); #
# $c printf("$DELETE $xTV/COULEURS$BLEUE\n"); #
# #
# $c printf("listMN $xTV/GRAVITE #
# $c %d %d #
# $c > $xTV/COORDONNEES\n" #
# $c ,n,n #
# $c ); #
# #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*XG=//%c #
# $c -e %cs/ .*//%c #
# $c > $xTV/COORDONNEES$COORD_X\n" #
# $c ,'"','"','"','"' #
# $c ); #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*YG=//%c #
# $c -e %cs/ .*//%c #
# $c > $xTV/COORDONNEES$COORD_Y\n" #
# $c ,'"','"','"','"' #
# $c ); #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*ZG=//%c #
# $c > $xTV/COORDONNEES$COORD_Z\n" #
# $c ,'"','"','"','"' #
# $c ); #
# #
# $c printf("$xci/valeurs_inte$X #
# $c premiere=%d derniere=%d #
# $c vD=$GRIS_8 vA=$GRIS_8 #
# $c cubique=FAUX #
# $c entiers=VRAI #
# $c utiliser_la_valeur_de_depart=FAUX #
# $c > $xTV/COULEURS$ROUGE\n" #
# $c ,n,n #
# $c ); #
# $c printf("$xci/valeurs_inte$X #
# $c premiere=%d derniere=%d #
# $c vD=$GRIS_8 vA=$GRIS_8 #
# $c cubique=FAUX #
# $c entiers=VRAI #
# $c utiliser_la_valeur_de_depart=FAUX #
# $c > $xTV/COULEURS$VERTE\n" #
# $c ,n,n #
# $c ); #
# $c printf("$xci/valeurs_inte$X #
# $c premiere=%d derniere=%d #
# $c vD=$GRIS_8 vA=$GRIS_8 #
# $c cubique=FAUX #
# $c entiers=VRAI #
# $c utiliser_la_valeur_de_depart=FAUX #
# $c > $xTV/COULEURS$BLEUE\n" #
# $c ,n,n #
# $c ); #
# #
# $c printf("$xrv/particule.10$X #
# $c np=1 #
# $c iterations=%d #
# $c LISTE_X=$xTV/COORDONNEES$COORD_X #
# $c LISTE_Y=$xTV/COORDONNEES$COORD_Y #
# $c LISTE_Z=$xTV/COORDONNEES$COORD_Z #
# $c LISTE_ROUGE=$xTV/COULEURS$ROUGE #
# $c LISTE_VERTE=$xTV/COULEURS$VERTE #
# $c LISTE_BLEUE=$xTV/COULEURS$BLEUE #
# $c LISTE_RAYON=0.010 #
# $c zoom_automatique=FAUX ZOOM=1.0 #
# $c coordonnees_dans_0_1=FAUX #
# $c AXYZ=1 BXYZ=0 #
# $c fond=VRAI #
# $c fond_dynamique=FAUX #
# $c F=$xiim/REFL.W.%04d #
# $c R=$xTV/REFL.B. #
# $c $formatI\n" #
# $c ,(n-n)+1,n #
# $c ); #
# #
# $c printf("$xci/acces$X #
# $c A=$xTV/REFL.B.%04d$ROUGE #
# $c R=$xiim/REFL.W.%04d$ROUGE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xTV/REFL.B.%04d$VERTE #
# $c R=$xiim/REFL.W.%04d$VERTE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xTV/REFL.B.%04d$BLEUE #
# $c R=$xiim/REFL.W.%04d$BLEUE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# $c } #
# $c } #
# #
# #
# $Z $DELETE $xTV/COORDONNEES #
# $Z $DELETE $xTV/COORDONNEES$COORD_X #
# $Z $DELETE $xTV/COORDONNEES$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_Z #
# $Z $DELETE $xTV/COULEURS$ROUGE #
# $Z $DELETE $xTV/COULEURS$VERTE #
# $Z $DELETE $xTV/COULEURS$BLEUE #
# #
# #
# #
# $Z $xci/complement$X A=$xTV/BOITE.1 \ #
# $Z R=$xTV/BOITE.3 \ #
# $Z $formatI #
# #
# $Z eval `$xci/genere$X \\\ #
# $Z commande='($xci/scale$X \\\ #
# $Z A=$xTV/BOITE.3 \\\ #
# $Z a=0.50 \\\ #
# $Z R=$xTV/BOITE.3%s \\\ #
# $Z $formatI)' \\\ #
# $Z en_tete=FAUX RVB=VRAI separateur=VRAI` #
# #
# #
# $X $xci/genere$X premiere=$Premiere derniere=$Derniere pas=1 \ #
# $X C='$xci/cache.11$Z \ #
# $X $xiim/REFL.W.%04d \ #
# $X $xTV/BOITE.3 \ #
# $X $xiim/REFL.3.%04d' #
# #
# $Z $DELETE $xTV/BOITE.1 #
# $Z $DELETE $xTV/BOITE.2 #
# $Z $DELETE $xTV/BOITE.3 #
# $Z $DELETE $xTV/BOITE.3$ROUGE #
# $Z $DELETE $xTV/BOITE.3$VERTE #
# $Z $DELETE $xTV/BOITE.3$BLEUE #
# #
# $Z Pal #
# #
# $Z $xci/reduction_16$Z $xiim/REFL.3. $xiak/REFL.A6 $Premiere $Derniere #
# $Z $xci/reduction_64$Z $xiim/REFL.3. $xiak/REFL.A6 $Premiere $Derniere #
# #
# $X $xci/genere$X c='ro $xiak/REFL.A6$R16%s' RVB=VRAI #
# $X $xci/genere$X c='ro $xiak/REFL.A6$R64%s' RVB=VRAI #
# #
# $X $xci/genere$X c='$xcg/unite$Z $xiak/REFL.A6$R16%s' RVB=VRAI #
# $X $xci/genere$X c='$xcg/unite$Z $xiak/REFL.A6$R64%s' RVB=VRAI #
# #
# $X $xci/genere$X c='$CP $xiim/REFL.3.0512%s $xiirk/REFL.A6.0512%s' RVB=VRAI #
# #
# $X $xci/genere$X c='ro $xiirk/REFL.A6.0512%s' RVB=VRAI #
# #
# $X $xci/genere$X c='$xcg/unite$Z $xiirk/REFL.A6.0512%s' RVB=VRAI #
# #
# #
# Pal #
# #
# #
# $xci/disk_video_P$Z $xiim_LACT29/REFL.3. 001 512 RVB \ #
# 11 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
# #
# xivPdf 3 2 #
# #
# record.01$Z $xiak/REFL.A6$R16 RVB Initialisation #
# record.01$Z $xiak/REFL.A6$R64 RVB rien #
# record.01$Z $xiirk/REFL.A6.0512 RVB rien #
# #
sequence 004609_005120
# Generee (sur '$LACT29') par : #
# #
# Pal #
# #
# #
# $xci/disk_video_P$Z $xiim_LACT29/REFL.2. 001 512 RVB \ #
# 11 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
# Cette sequence correspond au reenregistrement de la sequence : #
# #
# xivPdf 11 2 / 003585_004096 #
# #
# car, en effet, pour des raisons mysterieuses, l'image '003671' etait NOIR... #
sequence 005121_005632
# Generee (sur '$LACT29') par : #
# #
# $Z SET Premiere=1 #
# $Z SET Derniere=512 #
# $Z @ Nimages = $Derniere - $Premiere #
# $Z @ Nimages = $Nimages + 1 #
# #
# $Z set Part0=1 #
# $Z set PartN=256 #
# $Z @ Npart = $PartN - $Part0 #
# $Z @ Npart = $Npart + 1 #
# #
# $Z $DELETE $xTV/MODULE #
# $Z $DELETE $xTV/THETA #
# $Z $DELETE $xTV/XY_RT.1 #
# $Z $DELETE $xTV/XY_RT.2 #
# $Z $DELETE $xTV/COORDONNEES$COORD_X #
# $Z $DELETE $xTV/COORDONNEES$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_Z #
# $Z $DELETE $xTV/VITESSES #
# $Z $DELETE $xTV/VITESSES$COORD_X #
# $Z $DELETE $xTV/VITESSES$COORD_Y #
# $Z $DELETE $xTV/VITESSES$COORD_Z #
# $Z $DELETE $xTV/mdRHO #
# $Z $DELETE $xTV/MdRHO #
# $Z $DELETE $xTV/mnPHI #
# $Z $DELETE $xTV/MnPHI #
# $Z $DELETE $xTV/dPHI #
# $Z $DELETE $xTV/mnTHETA #
# $Z $DELETE $xTV/MnTHETA #
# $Z $DELETE $xTV/dTHETA #
# $Z $DELETE $xTV/supOUVE #
# $Z $DELETE $xTV/DISTANCE #
# $Z $DELETE $xTV/STABILITE #
# $Z $DELETE $xTV/RAYONS #
# $Z $DELETE $xTV/INTERACTIONS #
# #
# #
# $Z alias Gen 'set Fi=\!:1 ; set vD=\!:2 ; set vA=\!:3 ; set ArG=(\!:4*) ; \\ #
# $Z $DELETE $Fi ; \\ #
# $Z $xci/valeurs_inte$X p=$Part0 d=$PartN vD=$vD vA=$vA $ArG > $Fi ; \\ #
# $Z unset Fi vD vA ArG' #
# #
# $Z alias GenR 'set Fi=\!:1 ; set In=\!:2 ; set Su=\!:3 ; set ArG=(\!:4*) ; \\ #
# $Z $DELETE $Fi ; \\ #
# $Z $xci/valeurs_alea$X p=$Part0 d=$PartN signe="$KV" inf=$In sup=$Su $ArG > $Fi ; \\ #
# $Z unset Fi In Su ArG' #
# #
# $Z set MaxXY=0.85 #
# $Z set SeuilBOITE=`$xcg/SOUS.01$X a=1 b=$MaxXY` #
# $Z set SeuilBOITE=`$xcg/MUL2.01$X a=$SeuilBOITE b=$GRIS_8` #
# $Z set SeuilBOITE=`$xci/valeurs_inte$X p=1 d=1 vD=$SeuilBOITE entiers=VRAI` #
# $Z set SeuilBOITE=`$xcg/MIN2.01$X a=$SeuilBOITE b=$GRIS_1` #
# #
# $Z GenR $xTV/COORDONNEES$COORD_X -$MaxXY +$MaxXY g=1111 #
# $Z GenR $xTV/COORDONNEES$COORD_Y -$MaxXY +$MaxXY g=2222 #
# #
# $Z Gen $xTV/COORDONNEES$COORD_Z 0.0 0.0 #
# #
# #
# $Z Gen $xTV/MODULE 0.02 0.02 #
# $Z GenR $xTV/THETA 0.0 $dpi g=3333 #
# #
# $Z $CA $xcs/csh$Y \ #
# $Z > $xTV/XY_RT.1 #
# $Z $PAST $xTV/MODULE $xTV/THETA \ #
# $Z | $R "$K_TAB" "$K_BLANC" \ #
# $Z | $AW ' { print "$xcg/XY_RT$X r=" $1 " t=" $2 " cartesien=FAUX" } ' \ #
# $Z >>! $xTV/XY_RT.1 #
# #
# $Z (source $xTV/XY_RT.1) \ #
# $Z > $xTV/XY_RT.2 #
# #
# $Z $CA $xTV/XY_RT.2 \ #
# $Z | $GRE "^x=" \ #
# $Z | $SE -e "s/^x=//" \ #
# $Z > $xTV/VITESSES$COORD_X #
# $Z $CA $xTV/XY_RT.2 \ #
# $Z | $GRE "^y=" \ #
# $Z | $SE -e "s/^y=//" \ #
# $Z > $xTV/VITESSES$COORD_Y #
# #
# $Z Gen $xTV/VITESSES$COORD_Z 0.0 0.0 #
# #
# $Z Gen $xTV/mdRHO 0.0 0.0 #
# $Z Gen $xTV/MdRHO 0.0 0.0 #
# $Z Gen $xTV/mnPHI 0.0 0.0 #
# $Z Gen $xTV/MnPHI 0.0 0.0 #
# $Z Gen $xTV/dPHI 0.0 0.0 #
# $Z Gen $xTV/mnTHETA 0.0 0.0 #
# $Z Gen $xTV/MnTHETA 0.0 0.0 #
# $Z Gen $xTV/dTHETA 0.0 0.0 #
# $Z Gen $xTV/DISTANCE 1000000 1000000 #
# $Z Gen $xTV/STABILITE 1000000 1000000 #
# #
# $Z set RayonsT=0.014 #
# $Z set RayonsP=`$xcg/MUL2.01$X a=2 b=$RayonsT` #
# $Z set DistanceI=`$xcg/MUL2.01$X a=4 b=$RayonsP` #
# $Z Gen $xTV/RAYONS $RayonsT $RayonsT #
# $Z Gen $xTV/INTERACTIONS $RayonsP $RayonsP #
# #
# $Z $DELETE $xTV/COULEURS$TEINT #
# $Z $DELETE $xTV/COULEURS$LUMIN #
# $Z $DELETE $xTV/COULEURS$SATUR #
# $Z $DELETE $xTV/COULEURS$Y #
# $Z $DELETE $xTV/COULEURS #
# $Z $DELETE $xTV/COULEURS$ROUGE #
# $Z $DELETE $xTV/COULEURS$VERTE #
# $Z $DELETE $xTV/COULEURS$BLEUE #
# #
# $Z @ TeinteMagenta = $GRIS_7 #
# $Z @ TeinteCyan = $GRIS_4 + $GRIS_8 #
# #
# $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartN \ #
# $Z vD=$TeinteMagenta vA=$TeinteCyan \ #
# $Z cubique=FAUX \ #
# $Z entiers=VRAI \ #
# $Z > $xTV/COULEURS$TEINT #
# $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartN \ #
# $Z vD=$GRIS_4 vA=$GRIS_4 \ #
# $Z cubique=FAUX \ #
# $Z entiers=VRAI \ #
# $Z > $xTV/COULEURS$LUMIN #
# $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartN \ #
# $Z vD=$GRIS_8 vA=$GRIS_8 \ #
# $Z cubique=FAUX \ #
# $Z entiers=VRAI \ #
# $Z > $xTV/COULEURS$SATUR #
# #
# $Z $PAST \ #
# $Z $xTV/COULEURS$TEINT \ #
# $Z $xTV/COULEURS$LUMIN \ #
# $Z $xTV/COULEURS$SATUR \ #
# $Z | $R "$K_TAB" "$K_BLANC" \ #
# $Z | $AW ' { print "H=" $1 " L=" $2 " S=" $3 } ' \ #
# $Z | $SE -e 's+^+$xcg/RVB_HLS$X RVB_HLS=FAUX +' \ #
# $Z | $SE -e 's/$/ eR=VRAI eV=VRAI eB=VRAI/' \ #
# $Z | $SE -e 's/$/ eH=FAUX eL=FAUX eS=FAUX/' \ #
# $Z > $xTV/COULEURS$Y #
# #
# $Z (source $xTV/COULEURS$Y) \ #
# $Z > $xTV/COULEURS #
# #
# $Z $GRE "^R=" $xTV/COULEURS \ #
# $Z | $SE -e "s/^R=//" \ #
# $Z > $xTV/COULEURS$ROUGE #
# $Z $GRE "^V=" $xTV/COULEURS \ #
# $Z | $SE -e "s/^V=//" \ #
# $Z > $xTV/COULEURS$VERTE #
# $Z $GRE "^B=" $xTV/COULEURS \ #
# $Z | $SE -e "s/^B=//" \ #
# $Z > $xTV/COULEURS$BLEUE #
# #
# $Z $DELETE $xTV/BOITE.1 #
# $Z $DELETE $xTV/BOITE.2 #
# $Z $DELETE $xTV/BOITE.3 #
# $Z $DELETE $xTV/BOITE.3$ROUGE #
# $Z $DELETE $xTV/BOITE.3$VERTE #
# $Z $DELETE $xTV/BOITE.3$BLEUE #
# #
# $Z Std #
# #
# $Z S #
# #
# $Z $xci/complement$X \ #
# $Z A=$xiio/SPIRALE \ #
# $Z $formatI | \ #
# $Z $xci/seuil$X \ #
# $Z seuil=$SeuilBOITE \ #
# $Z $formatI | \ #
# $Z $xci/format.01$X mode=0 \ #
# $Z $formatI \ #
# $Z R=$xTV/BOITE.1 \ #
# $Z $formatR_Pal #
# #
# $Z Pal #
# #
# #
# $Z $xci/scale$X \ #
# $Z A=$xTV/BOITE.1 \ #
# $Z a=1.00 \ #
# $Z R=$xTV/BOITE.2 \ #
# $Z $formatI #
# #
# #
# $Z Pal #
# #
# $Z $xrk/rdn_walk.41$X corps=$Npart \ #
# $Z np=$Nimages \ #
# $Z collisions=VRAI DLA=FAUX interaction=$DistanceI \ #
# $Z LISTE_X=$xTV/COORDONNEES$COORD_X \ #
# $Z LISTE_Y=$xTV/COORDONNEES$COORD_Y \ #
# $Z LISTE_Z=$xTV/COORDONNEES$COORD_Z \ #
# $Z LISTE_VX=$xTV/VITESSES$COORD_X \ #
# $Z LISTE_VY=$xTV/VITESSES$COORD_Y \ #
# $Z LISTE_VZ=$xTV/VITESSES$COORD_Z \ #
# $Z LISTE_MINIMUM_DELTA_RHO=$xTV/mdRHO \ #
# $Z LISTE_MAXIMUM_DELTA_RHO=$xTV/MdRHO \ #
# $Z LISTE_MINIMUM_N_PHI=$xTV/mnPHI \ #
# $Z LISTE_MAXIMUM_N_PHI=$xTV/MnPHI \ #
# $Z LISTE_DELTA_PHI=$xTV/dPHI \ #
# $Z LISTE_MINIMUM_N_THETA=$xTV/mnTHETA \ #
# $Z LISTE_MAXIMUM_N_THETA=$xTV/MnTHETA \ #
# $Z LISTE_DELTA_THETA=$xTV/dTHETA \ #
# $Z LISTE_DISTANCE_MAXIMALE=$xTV/DISTANCE \ #
# $Z LISTE_STABILITE=$xTV/STABILITE \ #
# $Z LISTE_RAYON=$xTV/RAYONS \ #
# $Z LISTE_RAYON_D_INTERACTION=$xTV/INTERACTIONS \ #
# $Z LISTE_ROUGE=$xTV/COULEURS$ROUGE \ #
# $Z LISTE_VERTE=$xTV/COULEURS$VERTE \ #
# $Z LISTE_BLEUE=$xTV/COULEURS$BLEUE \ #
# $Z milieu=VRAI \ #
# $Z reflexion=VRAI refraction=FAUX \ #
# $Z Mhors=$BLANC \ #
# $Z MNpasX=1 Mprolonger_X=VRAI \ #
# $Z MNpasY=1 Mprolonger_Y=VRAI \ #
# $Z MNpasZ=1 Mprolonger_Z=VRAI \ #
# $Z adapter_M_nPAS=VRAI \ #
# $Z Msimplifier=FAUX affiner_M_maillage=FAUX \ #
# $Z MC=$xTV/BOITE.2 \ #
# $Z MChiffres=0 \ #
# $Z Zmin=0 Zmax=15 \ #
# $Z centrer=VRAI \ #
# $Z dct=0.05 nombre=10 \ #
# $Z trainees=VRAI mode=1 \ #
# $Z attenuation_des_images=0.6 \ #
# $Z attenuation_des_trainees=1.00 \ #
# $Z renormaliser=FAUX \ #
# $Z Lz=100 \ #
# $Z zoom_automatique=VRAI \ #
# $Z centre_de_gravite=FAUX \ #
# $Z fond=FAUX \ #
# $Z R=$xiim/REFL.W. \ #
# $Z $formatI #
# #
# $Z $DELETE $xTV/RAYONS #
# $Z $CP $xTV/INTERACTIONS $xTV/RAYONS #
# #
# $Z $DELETE $xTV/GRAVITE #
# $Z $xrk/rdn_walk.41$X corps=$Npart \ #
# $Z np=$Nimages \ #
# $Z collisions=VRAI DLA=FAUX interaction=$DistanceI \ #
# $Z LISTE_X=$xTV/COORDONNEES$COORD_X \ #
# $Z LISTE_Y=$xTV/COORDONNEES$COORD_Y \ #
# $Z LISTE_Z=$xTV/COORDONNEES$COORD_Z \ #
# $Z LISTE_VX=$xTV/VITESSES$COORD_X \ #
# $Z LISTE_VY=$xTV/VITESSES$COORD_Y \ #
# $Z LISTE_VZ=$xTV/VITESSES$COORD_Z \ #
# $Z LISTE_MINIMUM_DELTA_RHO=$xTV/mdRHO \ #
# $Z LISTE_MAXIMUM_DELTA_RHO=$xTV/MdRHO \ #
# $Z LISTE_MINIMUM_N_PHI=$xTV/mnPHI \ #
# $Z LISTE_MAXIMUM_N_PHI=$xTV/MnPHI \ #
# $Z LISTE_DELTA_PHI=$xTV/dPHI \ #
# $Z LISTE_MINIMUM_N_THETA=$xTV/mnTHETA \ #
# $Z LISTE_MAXIMUM_N_THETA=$xTV/MnTHETA \ #
# $Z LISTE_DELTA_THETA=$xTV/dTHETA \ #
# $Z LISTE_DISTANCE_MAXIMALE=$xTV/DISTANCE \ #
# $Z LISTE_STABILITE=$xTV/STABILITE \ #
# $Z LISTE_RAYON=$xTV/RAYONS \ #
# $Z LISTE_RAYON_D_INTERACTION=$xTV/INTERACTIONS \ #
# $Z LISTE_ROUGE=$xTV/COULEURS$ROUGE \ #
# $Z LISTE_VERTE=$xTV/COULEURS$VERTE \ #
# $Z LISTE_BLEUE=$xTV/COULEURS$BLEUE \ #
# $Z milieu=VRAI \ #
# $Z reflexion=VRAI refraction=FAUX \ #
# $Z Mhors=$BLANC \ #
# $Z MNpasX=1 Mprolonger_X=VRAI \ #
# $Z MNpasY=1 Mprolonger_Y=VRAI \ #
# $Z MNpasZ=1 Mprolonger_Z=VRAI \ #
# $Z adapter_M_nPAS=VRAI \ #
# $Z Msimplifier=FAUX affiner_M_maillage=FAUX \ #
# $Z MC=$xTV/BOITE.2 \ #
# $Z MChiffres=0 \ #
# $Z Zmin=0 Zmax=15 \ #
# $Z centrer=VRAI \ #
# $Z dct=0.05 nombre=10 \ #
# $Z trainees=VRAI mode=1 \ #
# $Z attenuation_des_images=1.0 \ #
# $Z attenuation_des_trainees=0.80 \ #
# $Z renormaliser=FAUX \ #
# $Z Lz=100 \ #
# $Z zoom_automatique=VRAI \ #
# $Z centre_de_gravite=VRAI \ #
# $Z fond=VRAI \ #
# $Z dynamique=VRAI \ #
# $Z F=$xiim/REFL.W. \ #
# $Z R=$xiim/REFL.W. \ #
# $Z $formatI \ #
# $Z > $xTV/GRAVITE #
# #
# $Z $DELETE $xTV/COORDONNEES$COORD_X #
# $Z $DELETE $xTV/COORDONNEES$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_Z #
# $Z $DELETE $xTV/VITESSES #
# $Z $DELETE $xTV/VITESSES$COORD_X #
# $Z $DELETE $xTV/VITESSES$COORD_Y #
# $Z $DELETE $xTV/VITESSES$COORD_Z #
# $Z $DELETE $xTV/mdRHO #
# $Z $DELETE $xTV/MdRHO #
# $Z $DELETE $xTV/mnPHI #
# $Z $DELETE $xTV/MnPHI #
# $Z $DELETE $xTV/dPHI #
# $Z $DELETE $xTV/mnTHETA #
# $Z $DELETE $xTV/MnTHETA #
# $Z $DELETE $xTV/dTHETA #
# $Z $DELETE $xTV/DISTANCE #
# $Z $DELETE $xTV/STABILITE #
# $Z $DELETE $xTV/RAYONS #
# $Z $DELETE $xTV/INTERACTIONS #
# $Z $DELETE $xTV/COULEURS$TEINT #
# $Z $DELETE $xTV/COULEURS$LUMIN #
# $Z $DELETE $xTV/COULEURS$SATUR #
# $Z $DELETE $xTV/COULEURS$Y #
# $Z $DELETE $xTV/COULEURS #
# $Z $DELETE $xTV/COULEURS$ROUGE #
# $Z $DELETE $xTV/COULEURS$VERTE #
# $Z $DELETE $xTV/COULEURS$BLEUE #
# #
# $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("$DELETE $xTV/COORDONNEES\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_X\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_Y\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_Z\n"); #
# #
# $c printf("$DELETE $xTV/COULEURS$ROUGE\n"); #
# $c printf("$DELETE $xTV/COULEURS$VERTE\n"); #
# $c printf("$DELETE $xTV/COULEURS$BLEUE\n"); #
# #
# $c printf("listMN $xTV/GRAVITE #
# $c %d %d #
# $c > $xTV/COORDONNEES\n" #
# $c ,N0,n #
# $c ); #
# #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*XG=//%c #
# $c -e %cs/ .*//%c #
# $c > $xTV/COORDONNEES$COORD_X\n" #
# $c ,'"','"','"','"' #
# $c ); #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*YG=//%c #
# $c -e %cs/ .*//%c #
# $c > $xTV/COORDONNEES$COORD_Y\n" #
# $c ,'"','"','"','"' #
# $c ); #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*ZG=//%c #
# $c > $xTV/COORDONNEES$COORD_Z\n" #
# $c ,'"','"','"','"' #
# $c ); #
# #
# $c printf("$xci/valeurs_inte$X #
# $c premiere=%d derniere=%d #
# $c vD=$GRIS_4 vA=$GRIS_4 #
# $c cubique=FAUX #
# $c entiers=VRAI #
# $c utiliser_la_valeur_de_depart=FAUX #
# $c > $xTV/COULEURS$ROUGE\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/valeurs_inte$X #
# $c premiere=%d derniere=%d #
# $c vD=$GRIS_4 vA=$GRIS_4 #
# $c cubique=FAUX #
# $c entiers=VRAI #
# $c utiliser_la_valeur_de_depart=FAUX #
# $c > $xTV/COULEURS$VERTE\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/valeurs_inte$X #
# $c premiere=%d derniere=%d #
# $c vD=$GRIS_4 vA=$GRIS_4 #
# $c cubique=FAUX #
# $c entiers=VRAI #
# $c utiliser_la_valeur_de_depart=FAUX #
# $c > $xTV/COULEURS$BLEUE\n" #
# $c ,N0,n #
# $c ); #
# #
# $c printf("$xrv/particule.10$X #
# $c np=1 #
# $c iterations=%d #
# $c LISTE_X=$xTV/COORDONNEES$COORD_X #
# $c LISTE_Y=$xTV/COORDONNEES$COORD_Y #
# $c LISTE_Z=$xTV/COORDONNEES$COORD_Z #
# $c LISTE_ROUGE=$xTV/COULEURS$ROUGE #
# $c LISTE_VERTE=$xTV/COULEURS$VERTE #
# $c LISTE_BLEUE=$xTV/COULEURS$BLEUE #
# $c LISTE_RAYON=0.005 #
# $c zoom_automatique=FAUX ZOOM=1.0 #
# $c coordonnees_dans_0_1=FAUX #
# $c AXYZ=1 BXYZ=0 #
# $c fond=VRAI #
# $c fond_dynamique=FAUX #
# $c F=$xiim/REFL.W.%04d #
# $c R=$xTV/REFL.A. #
# $c $formatI\n" #
# $c ,(n-N0)+1,n #
# $c ); #
# #
# $c printf("$xci/acces$X #
# $c A=$xTV/REFL.A.%04d$ROUGE #
# $c R=$xiim/REFL.W.%04d$ROUGE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xTV/REFL.A.%04d$VERTE #
# $c R=$xiim/REFL.W.%04d$VERTE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xTV/REFL.A.%04d$BLEUE #
# $c R=$xiim/REFL.W.%04d$BLEUE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# #
# $c printf("$DELETE $xTV/COORDONNEES\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_X\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_Y\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_Z\n"); #
# #
# $c printf("$DELETE $xTV/COULEURS$ROUGE\n"); #
# $c printf("$DELETE $xTV/COULEURS$VERTE\n"); #
# $c printf("$DELETE $xTV/COULEURS$BLEUE\n"); #
# #
# $c printf("listMN $xTV/GRAVITE #
# $c %d %d #
# $c > $xTV/COORDONNEES\n" #
# $c ,n,n #
# $c ); #
# #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*XG=//%c #
# $c -e %cs/ .*//%c #
# $c > $xTV/COORDONNEES$COORD_X\n" #
# $c ,'"','"','"','"' #
# $c ); #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*YG=//%c #
# $c -e %cs/ .*//%c #
# $c > $xTV/COORDONNEES$COORD_Y\n" #
# $c ,'"','"','"','"' #
# $c ); #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*ZG=//%c #
# $c > $xTV/COORDONNEES$COORD_Z\n" #
# $c ,'"','"','"','"' #
# $c ); #
# #
# $c printf("$xci/valeurs_inte$X #
# $c premiere=%d derniere=%d #
# $c vD=$GRIS_8 vA=$GRIS_8 #
# $c cubique=FAUX #
# $c entiers=VRAI #
# $c utiliser_la_valeur_de_depart=FAUX #
# $c > $xTV/COULEURS$ROUGE\n" #
# $c ,n,n #
# $c ); #
# $c printf("$xci/valeurs_inte$X #
# $c premiere=%d derniere=%d #
# $c vD=$GRIS_8 vA=$GRIS_8 #
# $c cubique=FAUX #
# $c entiers=VRAI #
# $c utiliser_la_valeur_de_depart=FAUX #
# $c > $xTV/COULEURS$VERTE\n" #
# $c ,n,n #
# $c ); #
# $c printf("$xci/valeurs_inte$X #
# $c premiere=%d derniere=%d #
# $c vD=$GRIS_8 vA=$GRIS_8 #
# $c cubique=FAUX #
# $c entiers=VRAI #
# $c utiliser_la_valeur_de_depart=FAUX #
# $c > $xTV/COULEURS$BLEUE\n" #
# $c ,n,n #
# $c ); #
# #
# $c printf("$xrv/particule.10$X #
# $c np=1 #
# $c iterations=%d #
# $c LISTE_X=$xTV/COORDONNEES$COORD_X #
# $c LISTE_Y=$xTV/COORDONNEES$COORD_Y #
# $c LISTE_Z=$xTV/COORDONNEES$COORD_Z #
# $c LISTE_ROUGE=$xTV/COULEURS$ROUGE #
# $c LISTE_VERTE=$xTV/COULEURS$VERTE #
# $c LISTE_BLEUE=$xTV/COULEURS$BLEUE #
# $c LISTE_RAYON=0.010 #
# $c zoom_automatique=FAUX ZOOM=1.0 #
# $c coordonnees_dans_0_1=FAUX #
# $c AXYZ=1 BXYZ=0 #
# $c fond=VRAI #
# $c fond_dynamique=FAUX #
# $c F=$xiim/REFL.W.%04d #
# $c R=$xTV/REFL.B. #
# $c $formatI\n" #
# $c ,(n-n)+1,n #
# $c ); #
# #
# $c printf("$xci/acces$X #
# $c A=$xTV/REFL.B.%04d$ROUGE #
# $c R=$xiim/REFL.W.%04d$ROUGE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xTV/REFL.B.%04d$VERTE #
# $c R=$xiim/REFL.W.%04d$VERTE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xTV/REFL.B.%04d$BLEUE #
# $c R=$xiim/REFL.W.%04d$BLEUE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# $c } #
# $c } #
# #
# #
# $Z $DELETE $xTV/COORDONNEES #
# $Z $DELETE $xTV/COORDONNEES$COORD_X #
# $Z $DELETE $xTV/COORDONNEES$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_Z #
# $Z $DELETE $xTV/COULEURS$ROUGE #
# $Z $DELETE $xTV/COULEURS$VERTE #
# $Z $DELETE $xTV/COULEURS$BLEUE #
# #
# #
# #
# $Z $xci/complement$X A=$xTV/BOITE.1 \ #
# $Z R=$xTV/BOITE.3 \ #
# $Z $formatI #
# #
# $Z eval `$xci/genere$X \\\ #
# $Z commande='($xci/scale$X \\\ #
# $Z A=$xTV/BOITE.3 \\\ #
# $Z a=0.50 \\\ #
# $Z R=$xTV/BOITE.3%s \\\ #
# $Z $formatI)' \\\ #
# $Z en_tete=FAUX RVB=VRAI separateur=VRAI` #
# #
# #
# $X $xci/genere$X premiere=$Premiere derniere=$Derniere pas=1 \ #
# $X C='$xci/cache.11$Z \ #
# $X $xiim/REFL.W.%04d \ #
# $X $xTV/BOITE.3 \ #
# $X $xiim/REFL.4.%04d' #
# #
# $Z $DELETE $xTV/BOITE.1 #
# $Z $DELETE $xTV/BOITE.2 #
# $Z $DELETE $xTV/BOITE.3 #
# $Z $DELETE $xTV/BOITE.3$ROUGE #
# $Z $DELETE $xTV/BOITE.3$VERTE #
# $Z $DELETE $xTV/BOITE.3$BLEUE #
# #
# $Z Pal #
# #
# $Z $xci/reduction_16$Z $xiim/REFL.4. $xiak/REFL.A8 $Premiere $Derniere #
# $Z $xci/reduction_64$Z $xiim/REFL.4. $xiak/REFL.A8 $Premiere $Derniere #
# #
# $X $xci/genere$X c='ro $xiak/REFL.A8$R16%s' RVB=VRAI #
# $X $xci/genere$X c='ro $xiak/REFL.A8$R64%s' RVB=VRAI #
# #
# $X $xci/genere$X c='$xcg/unite$Z $xiak/REFL.A8$R16%s' RVB=VRAI #
# $X $xci/genere$X c='$xcg/unite$Z $xiak/REFL.A8$R64%s' RVB=VRAI #
# #
# $X $xci/genere$X c='$CP $xiim/REFL.4.0512%s $xiirk/REFL.A8.0512%s' RVB=VRAI #
# #
# $X $xci/genere$X c='ro $xiirk/REFL.A8.0512%s' RVB=VRAI #
# #
# $X $xci/genere$X c='$xcg/unite$Z $xiirk/REFL.A8.0512%s' RVB=VRAI #
# #
# #
# Pal #
# #
# #
# $xci/disk_video_P$Z $xiim_LACT29/REFL.4. 001 512 RVB \ #
# 11 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
# #
# xivPdf 3 2 #
# #
# record.01$Z $xiak/REFL.A8$R16 RVB Initialisation #
# record.01$Z $xiak/REFL.A8$R64 RVB rien #
# record.01$Z $xiirk/REFL.A8.0512 RVB rien #
# #
sequence 005633_006144
# Generee (sur '$LACT29') par : #
# #
# $Z SET Premiere=1 #
# $Z SET Derniere=512 #
# $Z @ Nimages = $Derniere - $Premiere #
# $Z @ Nimages = $Nimages + 1 #
# #
# $Z set Part0=1 #
# $Z set PartN=4 #
# $Z @ Npart = $PartN - $Part0 #
# $Z @ Npart = $Npart + 1 #
# #
# $Z $DELETE $xTV/MODULE #
# $Z $DELETE $xTV/THETA #
# $Z $DELETE $xTV/XY_RT.1 #
# $Z $DELETE $xTV/XY_RT.2 #
# $Z $DELETE $xTV/COORDONNEES$COORD_X #
# $Z $DELETE $xTV/COORDONNEES$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_Z #
# $Z $DELETE $xTV/VITESSES #
# $Z $DELETE $xTV/VITESSES$COORD_X #
# $Z $DELETE $xTV/VITESSES$COORD_Y #
# $Z $DELETE $xTV/VITESSES$COORD_Z #
# $Z $DELETE $xTV/mdRHO #
# $Z $DELETE $xTV/MdRHO #
# $Z $DELETE $xTV/mnPHI #
# $Z $DELETE $xTV/MnPHI #
# $Z $DELETE $xTV/dPHI #
# $Z $DELETE $xTV/mnTHETA #
# $Z $DELETE $xTV/MnTHETA #
# $Z $DELETE $xTV/dTHETA #
# $Z $DELETE $xTV/supOUVE #
# $Z $DELETE $xTV/DISTANCE #
# $Z $DELETE $xTV/STABILITE #
# $Z $DELETE $xTV/RAYONS #
# $Z $DELETE $xTV/INTERACTIONS #
# #
# #
# $Z alias Gen 'set Fi=\!:1 ; set vD=\!:2 ; set vA=\!:3 ; set ArG=(\!:4*) ; \\ #
# $Z $DELETE $Fi ; \\ #
# $Z $xci/valeurs_inte$X p=$Part0 d=$PartN vD=$vD vA=$vA $ArG > $Fi ; \\ #
# $Z unset Fi vD vA ArG' #
# #
# $Z alias GenR 'set Fi=\!:1 ; set In=\!:2 ; set Su=\!:3 ; set ArG=(\!:4*) ; \\ #
# $Z $DELETE $Fi ; \\ #
# $Z $xci/valeurs_alea$X p=$Part0 d=$PartN signe="$KV" inf=$In sup=$Su $ArG > $Fi ; \\ #
# $Z unset Fi In Su ArG' #
# #
# $Z set FacXY=0.85 #
# $Z set SeuilBOITE=`$xcg/SOUS.01$X a=1 b=$FacXY` #
# $Z set SeuilBOITE=`$xcg/MUL2.01$X a=$SeuilBOITE b=$GRIS_8` #
# $Z set SeuilBOITE=`$xci/valeurs_inte$X p=1 d=1 vD=$SeuilBOITE entiers=VRAI` #
# $Z set SeuilBOITE=`$xcg/MIN2.01$X a=$SeuilBOITE b=$GRIS_1` #
# #
# $Z Pal #
# $Z set PUnivers="np=0 CAL1=FAUX editer_l_univers_physique=VRAI" #
# $Z set Univers=`$xrk/rdn_walk.41$X $PUnivers $formatI` #
# #
# $Z set MinX=`echo $Univers | $SE -e "s/^.*[(,]XUI=//" -e "s/[,)].*//"` #
# $Z set MaxX=`echo $Univers | $SE -e "s/^.*[(,]XUS=//" -e "s/[,)].*//"` #
# $Z set MinY=`echo $Univers | $SE -e "s/^.*[(,]YUI=//" -e "s/[,)].*//"` #
# $Z set MaxY=`echo $Univers | $SE -e "s/^.*[(,]YUS=//" -e "s/[,)].*//"` #
# #
# $Z set MinX=`$xcg/ABSO.01$X x=$MinX` #
# $Z set MaxX=`$xcg/ABSO.01$X x=$MaxX` #
# $Z set MinY=`$xcg/ABSO.01$X x=$MinY` #
# $Z set MaxY=`$xcg/ABSO.01$X x=$MaxY` #
# #
# $Z set MaxX=`$xcg/MAX2.01$X n1=$MinX n2=$MaxX` #
# $Z set MaxY=`$xcg/MAX2.01$X n1=$MinY n2=$MaxY` #
# #
# $Z set MaxX=`$xcg/MUL2.01$X n1=$FacXY n2=$MaxX signe="$K_VIDE"` #
# $Z set MaxY=`$xcg/MUL2.01$X n1=$FacXY n2=$MaxY signe="$K_VIDE"` #
# #
# $Z GenR $xTV/COORDONNEES$COORD_X -$MaxX +$MaxX g=1111 #
# $Z GenR $xTV/COORDONNEES$COORD_Y -$MaxY +$MaxY g=2222 #
# #
# $Z Gen $xTV/COORDONNEES$COORD_Z 0.0 0.0 #
# #
# #
# $Z Gen $xTV/MODULE 0.02 0.02 #
# $Z GenR $xTV/THETA 0.0 $dpi g=3333 #
# #
# $Z $CA $xcs/csh$Y \ #
# $Z > $xTV/XY_RT.1 #
# $Z $PAST $xTV/MODULE $xTV/THETA \ #
# $Z | $R "$K_TAB" "$K_BLANC" \ #
# $Z | $AW ' { print "$xcg/XY_RT$X r=" $1 " t=" $2 " cartesien=FAUX" } ' \ #
# $Z >>! $xTV/XY_RT.1 #
# #
# $Z (source $xTV/XY_RT.1) \ #
# $Z > $xTV/XY_RT.2 #
# #
# $Z $CA $xTV/XY_RT.2 \ #
# $Z | $GRE "^x=" \ #
# $Z | $SE -e "s/^x=//" \ #
# $Z > $xTV/VITESSES$COORD_X #
# $Z $CA $xTV/XY_RT.2 \ #
# $Z | $GRE "^y=" \ #
# $Z | $SE -e "s/^y=//" \ #
# $Z > $xTV/VITESSES$COORD_Y #
# #
# $Z Gen $xTV/VITESSES$COORD_Z 0.0 0.0 #
# #
# $Z Gen $xTV/mdRHO 0.0 0.0 #
# $Z Gen $xTV/MdRHO 0.0 0.0 #
# $Z Gen $xTV/mnPHI 0.0 0.0 #
# $Z Gen $xTV/MnPHI 0.0 0.0 #
# $Z Gen $xTV/dPHI 0.0 0.0 #
# $Z Gen $xTV/mnTHETA 0.0 0.0 #
# $Z Gen $xTV/MnTHETA 0.0 0.0 #
# $Z Gen $xTV/dTHETA 0.0 0.0 #
# $Z Gen $xTV/DISTANCE 1000000 1000000 #
# $Z Gen $xTV/STABILITE 1000000 1000000 #
# #
# $Z set RayonsT=0.014 #
# $Z set RayonsP=`$xcg/MUL2.01$X a=2 b=$RayonsT` #
# $Z set DistanceI=`$xcg/MUL2.01$X a=4 b=$RayonsP` #
# $Z Gen $xTV/RAYONS $RayonsT $RayonsT #
# $Z Gen $xTV/INTERACTIONS $RayonsP $RayonsP #
# #
# $Z $DELETE $xTV/COULEURS$TEINT #
# $Z $DELETE $xTV/COULEURS$LUMIN #
# $Z $DELETE $xTV/COULEURS$SATUR #
# $Z $DELETE $xTV/COULEURS$Y #
# $Z $DELETE $xTV/COULEURS #
# $Z $DELETE $xTV/COULEURS$ROUGE #
# $Z $DELETE $xTV/COULEURS$VERTE #
# $Z $DELETE $xTV/COULEURS$BLEUE #
# #
# $Z @ TeinteMagenta = $GRIS_7 #
# $Z @ TeinteCyan = $GRIS_4 + $GRIS_8 #
# #
# $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartN \ #
# $Z vD=$TeinteMagenta vA=$TeinteCyan \ #
# $Z cubique=FAUX \ #
# $Z entiers=VRAI \ #
# $Z > $xTV/COULEURS$TEINT #
# $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartN \ #
# $Z vD=$GRIS_4 vA=$GRIS_4 \ #
# $Z cubique=FAUX \ #
# $Z entiers=VRAI \ #
# $Z > $xTV/COULEURS$LUMIN #
# $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartN \ #
# $Z vD=$GRIS_8 vA=$GRIS_8 \ #
# $Z cubique=FAUX \ #
# $Z entiers=VRAI \ #
# $Z > $xTV/COULEURS$SATUR #
# #
# $Z $PAST \ #
# $Z $xTV/COULEURS$TEINT \ #
# $Z $xTV/COULEURS$LUMIN \ #
# $Z $xTV/COULEURS$SATUR \ #
# $Z | $R "$K_TAB" "$K_BLANC" \ #
# $Z | $AW ' { print "H=" $1 " L=" $2 " S=" $3 } ' \ #
# $Z | $SE -e 's+^+$xcg/RVB_HLS$X RVB_HLS=FAUX +' \ #
# $Z | $SE -e 's/$/ eR=VRAI eV=VRAI eB=VRAI/' \ #
# $Z | $SE -e 's/$/ eH=FAUX eL=FAUX eS=FAUX/' \ #
# $Z > $xTV/COULEURS$Y #
# #
# $Z (source $xTV/COULEURS$Y) \ #
# $Z > $xTV/COULEURS #
# #
# $Z $GRE "^R=" $xTV/COULEURS \ #
# $Z | $SE -e "s/^R=//" \ #
# $Z > $xTV/COULEURS$ROUGE #
# $Z $GRE "^V=" $xTV/COULEURS \ #
# $Z | $SE -e "s/^V=//" \ #
# $Z > $xTV/COULEURS$VERTE #
# $Z $GRE "^B=" $xTV/COULEURS \ #
# $Z | $SE -e "s/^B=//" \ #
# $Z > $xTV/COULEURS$BLEUE #
# #
# $Z $DELETE $xTV/BOITE.1 #
# $Z $DELETE $xTV/BOITE.2 #
# $Z $DELETE $xTV/BOITE.3 #
# $Z $DELETE $xTV/BOITE.3$ROUGE #
# $Z $DELETE $xTV/BOITE.3$VERTE #
# $Z $DELETE $xTV/BOITE.3$BLEUE #
# #
# $Z Std #
# #
# $Z S #
# #
# $Z $xci/complement$X \ #
# $Z A=$xiio/SPIRALE \ #
# $Z $formatI | \ #
# $Z $xci/seuil$X \ #
# $Z seuil=$SeuilBOITE \ #
# $Z $formatI | \ #
# $Z $xci/format.01$X mode=0 \ #
# $Z $formatI \ #
# $Z R=$xTV/BOITE.1 \ #
# $Z $formatR_Pal #
# #
# $Z Pal #
# #
# #
# $Z $xci/scale$X \ #
# $Z A=$xTV/BOITE.1 \ #
# $Z a=1.00 \ #
# $Z R=$xTV/BOITE.2 \ #
# $Z $formatI #
# #
# #
# $Z Pal #
# #
# $Z $xrk/rdn_walk.41$X corps=$Npart \ #
# $Z np=$Nimages \ #
# $Z collisions=VRAI DLA=FAUX interaction=$DistanceI \ #
# $Z LISTE_X=$xTV/COORDONNEES$COORD_X \ #
# $Z LISTE_Y=$xTV/COORDONNEES$COORD_Y \ #
# $Z LISTE_Z=$xTV/COORDONNEES$COORD_Z \ #
# $Z LISTE_VX=$xTV/VITESSES$COORD_X \ #
# $Z LISTE_VY=$xTV/VITESSES$COORD_Y \ #
# $Z LISTE_VZ=$xTV/VITESSES$COORD_Z \ #
# $Z LISTE_MINIMUM_DELTA_RHO=$xTV/mdRHO \ #
# $Z LISTE_MAXIMUM_DELTA_RHO=$xTV/MdRHO \ #
# $Z LISTE_MINIMUM_N_PHI=$xTV/mnPHI \ #
# $Z LISTE_MAXIMUM_N_PHI=$xTV/MnPHI \ #
# $Z LISTE_DELTA_PHI=$xTV/dPHI \ #
# $Z LISTE_MINIMUM_N_THETA=$xTV/mnTHETA \ #
# $Z LISTE_MAXIMUM_N_THETA=$xTV/MnTHETA \ #
# $Z LISTE_DELTA_THETA=$xTV/dTHETA \ #
# $Z LISTE_DISTANCE_MAXIMALE=$xTV/DISTANCE \ #
# $Z LISTE_STABILITE=$xTV/STABILITE \ #
# $Z LISTE_RAYON=$xTV/RAYONS \ #
# $Z LISTE_RAYON_D_INTERACTION=$xTV/INTERACTIONS \ #
# $Z LISTE_ROUGE=$xTV/COULEURS$ROUGE \ #
# $Z LISTE_VERTE=$xTV/COULEURS$VERTE \ #
# $Z LISTE_BLEUE=$xTV/COULEURS$BLEUE \ #
# $Z milieu=VRAI \ #
# $Z reflexion=VRAI refraction=FAUX \ #
# $Z Mhors=$BLANC \ #
# $Z MNpasX=1 Mprolonger_X=VRAI \ #
# $Z MNpasY=1 Mprolonger_Y=VRAI \ #
# $Z MNpasZ=1 Mprolonger_Z=VRAI \ #
# $Z adapter_M_nPAS=VRAI \ #
# $Z Msimplifier=FAUX affiner_M_maillage=FAUX \ #
# $Z MC=$xTV/BOITE.2 \ #
# $Z MChiffres=0 \ #
# $Z Zmin=0 Zmax=15 \ #
# $Z centrer=VRAI \ #
# $Z dct=0.05 nombre=10 \ #
# $Z trainees=VRAI mode=1 \ #
# $Z attenuation_des_images=0.6 \ #
# $Z attenuation_des_trainees=1.00 \ #
# $Z renormaliser=FAUX \ #
# $Z Lz=100 \ #
# $Z zoom_automatique=VRAI \ #
# $Z centre_de_gravite=FAUX \ #
# $Z fond=FAUX \ #
# $Z R=$xiim/REFL.W. \ #
# $Z $formatI #
# #
# $Z $DELETE $xTV/RAYONS #
# $Z $CP $xTV/INTERACTIONS $xTV/RAYONS #
# #
# $Z $DELETE $xTV/GRAVITE #
# $Z $xrk/rdn_walk.41$X corps=$Npart \ #
# $Z np=$Nimages \ #
# $Z collisions=VRAI DLA=FAUX interaction=$DistanceI \ #
# $Z LISTE_X=$xTV/COORDONNEES$COORD_X \ #
# $Z LISTE_Y=$xTV/COORDONNEES$COORD_Y \ #
# $Z LISTE_Z=$xTV/COORDONNEES$COORD_Z \ #
# $Z LISTE_VX=$xTV/VITESSES$COORD_X \ #
# $Z LISTE_VY=$xTV/VITESSES$COORD_Y \ #
# $Z LISTE_VZ=$xTV/VITESSES$COORD_Z \ #
# $Z LISTE_MINIMUM_DELTA_RHO=$xTV/mdRHO \ #
# $Z LISTE_MAXIMUM_DELTA_RHO=$xTV/MdRHO \ #
# $Z LISTE_MINIMUM_N_PHI=$xTV/mnPHI \ #
# $Z LISTE_MAXIMUM_N_PHI=$xTV/MnPHI \ #
# $Z LISTE_DELTA_PHI=$xTV/dPHI \ #
# $Z LISTE_MINIMUM_N_THETA=$xTV/mnTHETA \ #
# $Z LISTE_MAXIMUM_N_THETA=$xTV/MnTHETA \ #
# $Z LISTE_DELTA_THETA=$xTV/dTHETA \ #
# $Z LISTE_DISTANCE_MAXIMALE=$xTV/DISTANCE \ #
# $Z LISTE_STABILITE=$xTV/STABILITE \ #
# $Z LISTE_RAYON=$xTV/RAYONS \ #
# $Z LISTE_RAYON_D_INTERACTION=$xTV/INTERACTIONS \ #
# $Z LISTE_ROUGE=$xTV/COULEURS$ROUGE \ #
# $Z LISTE_VERTE=$xTV/COULEURS$VERTE \ #
# $Z LISTE_BLEUE=$xTV/COULEURS$BLEUE \ #
# $Z milieu=VRAI \ #
# $Z reflexion=VRAI refraction=FAUX \ #
# $Z Mhors=$BLANC \ #
# $Z MNpasX=1 Mprolonger_X=VRAI \ #
# $Z MNpasY=1 Mprolonger_Y=VRAI \ #
# $Z MNpasZ=1 Mprolonger_Z=VRAI \ #
# $Z adapter_M_nPAS=VRAI \ #
# $Z Msimplifier=FAUX affiner_M_maillage=FAUX \ #
# $Z MC=$xTV/BOITE.2 \ #
# $Z MChiffres=0 \ #
# $Z Zmin=0 Zmax=15 \ #
# $Z centrer=VRAI \ #
# $Z dct=0.05 nombre=10 \ #
# $Z trainees=VRAI mode=1 \ #
# $Z attenuation_des_images=1.0 \ #
# $Z attenuation_des_trainees=0.80 \ #
# $Z renormaliser=FAUX \ #
# $Z Lz=100 \ #
# $Z zoom_automatique=VRAI \ #
# $Z centre_de_gravite=VRAI \ #
# $Z fond=VRAI \ #
# $Z dynamique=VRAI \ #
# $Z F=$xiim/REFL.W. \ #
# $Z R=$xiim/REFL.W. \ #
# $Z $formatI | \ #
# $Z $GRE " CENTRE_DE_GRAVITE=" \ #
# $Z > $xTV/GRAVITE #
# #
# $Z $DELETE $xTV/COORDONNEES$COORD_X #
# $Z $DELETE $xTV/COORDONNEES$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_Z #
# $Z $DELETE $xTV/VITESSES #
# $Z $DELETE $xTV/VITESSES$COORD_X #
# $Z $DELETE $xTV/VITESSES$COORD_Y #
# $Z $DELETE $xTV/VITESSES$COORD_Z #
# $Z $DELETE $xTV/mdRHO #
# $Z $DELETE $xTV/MdRHO #
# $Z $DELETE $xTV/mnPHI #
# $Z $DELETE $xTV/MnPHI #
# $Z $DELETE $xTV/dPHI #
# $Z $DELETE $xTV/mnTHETA #
# $Z $DELETE $xTV/MnTHETA #
# $Z $DELETE $xTV/dTHETA #
# $Z $DELETE $xTV/DISTANCE #
# $Z $DELETE $xTV/STABILITE #
# $Z $DELETE $xTV/RAYONS #
# $Z $DELETE $xTV/INTERACTIONS #
# $Z $DELETE $xTV/COULEURS$TEINT #
# $Z $DELETE $xTV/COULEURS$LUMIN #
# $Z $DELETE $xTV/COULEURS$SATUR #
# $Z $DELETE $xTV/COULEURS$Y #
# $Z $DELETE $xTV/COULEURS #
# $Z $DELETE $xTV/COULEURS$ROUGE #
# $Z $DELETE $xTV/COULEURS$VERTE #
# $Z $DELETE $xTV/COULEURS$BLEUE #
# #
# $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("$DELETE $xTV/COORDONNEES\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_X\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_Y\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_Z\n"); #
# #
# $c printf("$DELETE $xTV/COULEURS$ROUGE\n"); #
# $c printf("$DELETE $xTV/COULEURS$VERTE\n"); #
# $c printf("$DELETE $xTV/COULEURS$BLEUE\n"); #
# #
# $c printf("listMN $xTV/GRAVITE #
# $c %d %d #
# $c > $xTV/COORDONNEES\n" #
# $c ,N0,n #
# $c ); #
# #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*[(,]XG=//%c #
# $c -e %cs/[,)].*//%c #
# $c > $xTV/COORDONNEES$COORD_X\n" #
# $c ,'"','"','"','"' #
# $c ); #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*[(,]YG=//%c #
# $c -e %cs/[,)].*//%c #
# $c > $xTV/COORDONNEES$COORD_Y\n" #
# $c ,'"','"','"','"' #
# $c ); #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*[(,]ZG=//%c #
# $c -e %cs/[,)].*//%c #
# $c > $xTV/COORDONNEES$COORD_Z\n" #
# $c ,'"','"','"','"' #
# $c ); #
# #
# $c printf("$xci/valeurs_inte$X #
# $c premiere=%d derniere=%d #
# $c vD=$GRIS_5 vA=$GRIS_5 #
# $c cubique=FAUX #
# $c entiers=VRAI #
# $c utiliser_la_valeur_de_depart=FAUX #
# $c > $xTV/COULEURS$ROUGE\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/valeurs_inte$X #
# $c premiere=%d derniere=%d #
# $c vD=$GRIS_5 vA=$GRIS_5 #
# $c cubique=FAUX #
# $c entiers=VRAI #
# $c utiliser_la_valeur_de_depart=FAUX #
# $c > $xTV/COULEURS$VERTE\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/valeurs_inte$X #
# $c premiere=%d derniere=%d #
# $c vD=$GRIS_5 vA=$GRIS_5 #
# $c cubique=FAUX #
# $c entiers=VRAI #
# $c utiliser_la_valeur_de_depart=FAUX #
# $c > $xTV/COULEURS$BLEUE\n" #
# $c ,N0,n #
# $c ); #
# #
# $c printf("$xrv/particule.10$X #
# $c np=1 #
# $c iterations=%d #
# $c LISTE_X=$xTV/COORDONNEES$COORD_X #
# $c LISTE_Y=$xTV/COORDONNEES$COORD_Y #
# $c LISTE_Z=$xTV/COORDONNEES$COORD_Z #
# $c LISTE_ROUGE=$xTV/COULEURS$ROUGE #
# $c LISTE_VERTE=$xTV/COULEURS$VERTE #
# $c LISTE_BLEUE=$xTV/COULEURS$BLEUE #
# $c LISTE_RAYON=0.006 #
# $c zoom_automatique=FAUX ZOOM=1.0 #
# $c coordonnees_dans_0_1=FAUX #
# $c AXYZ=1 BXYZ=0 #
# $c fond=VRAI #
# $c fond_dynamique=FAUX #
# $c F=$xiim/REFL.W.%04d #
# $c R=$xTV/REFL.A. #
# $c $formatI\n" #
# $c ,(n-N0)+1,n #
# $c ); #
# #
# $c printf("$xci/acces$X #
# $c A=$xTV/REFL.A.%04d$ROUGE #
# $c R=$xiim/REFL.W.%04d$ROUGE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xTV/REFL.A.%04d$VERTE #
# $c R=$xiim/REFL.W.%04d$VERTE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xTV/REFL.A.%04d$BLEUE #
# $c R=$xiim/REFL.W.%04d$BLEUE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# #
# $c printf("$DELETE $xTV/COORDONNEES\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_X\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_Y\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_Z\n"); #
# #
# $c printf("$DELETE $xTV/COULEURS$ROUGE\n"); #
# $c printf("$DELETE $xTV/COULEURS$VERTE\n"); #
# $c printf("$DELETE $xTV/COULEURS$BLEUE\n"); #
# #
# $c printf("listMN $xTV/GRAVITE #
# $c %d %d #
# $c > $xTV/COORDONNEES\n" #
# $c ,n,n #
# $c ); #
# #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*[(,]XG=//%c #
# $c -e %cs/[,)].*//%c #
# $c > $xTV/COORDONNEES$COORD_X\n" #
# $c ,'"','"','"','"' #
# $c ); #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*[(,]YG=//%c #
# $c -e %cs/[,)].*//%c #
# $c > $xTV/COORDONNEES$COORD_Y\n" #
# $c ,'"','"','"','"' #
# $c ); #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*[(,]ZG=//%c #
# $c -e %cs/[,)].*//%c #
# $c > $xTV/COORDONNEES$COORD_Z\n" #
# $c ,'"','"','"','"' #
# $c ); #
# #
# $c printf("$xci/valeurs_inte$X #
# $c premiere=%d derniere=%d #
# $c vD=$GRIS_8 vA=$GRIS_8 #
# $c cubique=FAUX #
# $c entiers=VRAI #
# $c utiliser_la_valeur_de_depart=FAUX #
# $c > $xTV/COULEURS$ROUGE\n" #
# $c ,n,n #
# $c ); #
# $c printf("$xci/valeurs_inte$X #
# $c premiere=%d derniere=%d #
# $c vD=$GRIS_8 vA=$GRIS_8 #
# $c cubique=FAUX #
# $c entiers=VRAI #
# $c utiliser_la_valeur_de_depart=FAUX #
# $c > $xTV/COULEURS$VERTE\n" #
# $c ,n,n #
# $c ); #
# $c printf("$xci/valeurs_inte$X #
# $c premiere=%d derniere=%d #
# $c vD=$GRIS_8 vA=$GRIS_8 #
# $c cubique=FAUX #
# $c entiers=VRAI #
# $c utiliser_la_valeur_de_depart=FAUX #
# $c > $xTV/COULEURS$BLEUE\n" #
# $c ,n,n #
# $c ); #
# #
# $c printf("$xrv/particule.10$X #
# $c np=1 #
# $c iterations=%d #
# $c LISTE_X=$xTV/COORDONNEES$COORD_X #
# $c LISTE_Y=$xTV/COORDONNEES$COORD_Y #
# $c LISTE_Z=$xTV/COORDONNEES$COORD_Z #
# $c LISTE_ROUGE=$xTV/COULEURS$ROUGE #
# $c LISTE_VERTE=$xTV/COULEURS$VERTE #
# $c LISTE_BLEUE=$xTV/COULEURS$BLEUE #
# $c LISTE_RAYON=0.012 #
# $c zoom_automatique=FAUX ZOOM=1.0 #
# $c coordonnees_dans_0_1=FAUX #
# $c AXYZ=1 BXYZ=0 #
# $c fond=VRAI #
# $c fond_dynamique=FAUX #
# $c F=$xiim/REFL.W.%04d #
# $c R=$xTV/REFL.B. #
# $c $formatI\n" #
# $c ,(n-n)+1,n #
# $c ); #
# #
# $c printf("$xci/acces$X #
# $c A=$xTV/REFL.B.%04d$ROUGE #
# $c R=$xiim/REFL.W.%04d$ROUGE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xTV/REFL.B.%04d$VERTE #
# $c R=$xiim/REFL.W.%04d$VERTE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xTV/REFL.B.%04d$BLEUE #
# $c R=$xiim/REFL.W.%04d$BLEUE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# $c } #
# $c } #
# #
# #
# $Z $DELETE $xTV/COORDONNEES #
# $Z $DELETE $xTV/COORDONNEES$COORD_X #
# $Z $DELETE $xTV/COORDONNEES$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_Z #
# $Z $DELETE $xTV/COULEURS$ROUGE #
# $Z $DELETE $xTV/COULEURS$VERTE #
# $Z $DELETE $xTV/COULEURS$BLEUE #
# #
# #
# #
# $Z $xci/complement$X A=$xTV/BOITE.1 \ #
# $Z R=$xTV/BOITE.3 \ #
# $Z $formatI #
# #
# $Z eval `$xci/genere$X \\\ #
# $Z commande='($xci/scale$X \\\ #
# $Z A=$xTV/BOITE.3 \\\ #
# $Z a=0.50 \\\ #
# $Z R=$xTV/BOITE.3%s \\\ #
# $Z $formatI)' \\\ #
# $Z en_tete=FAUX RVB=VRAI separateur=VRAI` #
# #
# #
# $X $xci/genere$X premiere=$Premiere derniere=$Derniere pas=1 \ #
# $X C='$xci/cache.11$Z \ #
# $X $xiim/REFL.W.%04d \ #
# $X $xTV/BOITE.3 \ #
# $X $xiim/REFL.1.%04d' #
# #
# $Z $DELETE $xTV/BOITE.1 #
# $Z $DELETE $xTV/BOITE.2 #
# $Z $DELETE $xTV/BOITE.3 #
# $Z $DELETE $xTV/BOITE.3$ROUGE #
# $Z $DELETE $xTV/BOITE.3$VERTE #
# $Z $DELETE $xTV/BOITE.3$BLEUE #
# #
# $Z Pal #
# #
# $Z $xci/reduction_16$Z $xiim/REFL.1. $xiak/REFL.A2 $Premiere $Derniere #
# $Z $xci/reduction_64$Z $xiim/REFL.1. $xiak/REFL.A2 $Premiere $Derniere #
# #
# $X $xci/genere$X c='ro $xiak/REFL.A2$R16%s' RVB=VRAI #
# $X $xci/genere$X c='ro $xiak/REFL.A2$R64%s' RVB=VRAI #
# #
# $X $xci/genere$X c='$xcg/unite$Z $xiak/REFL.A2$R16%s' RVB=VRAI #
# $X $xci/genere$X c='$xcg/unite$Z $xiak/REFL.A2$R64%s' RVB=VRAI #
# #
# $X $xci/genere$X c='$CP $xiim/REFL.1.0512%s $xiirk/REFL.A2.0512%s' RVB=VRAI #
# #
# $X $xci/genere$X c='ro $xiirk/REFL.A2.0512%s' RVB=VRAI #
# #
# $X $xci/genere$X c='$xcg/unite$Z $xiirk/REFL.A2.0512%s' RVB=VRAI #
# #
# #
# Pal #
# #
# #
# $xci/disk_video_P$Z $xiim_LACT29/REFL.1. 001 512 RVB \ #
# 11 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
# #
# xivPdf 3 2 #
# #
# record.01$Z $xiak/REFL.A2$R16 RVB Initialisation #
# record.01$Z $xiak/REFL.A2$R64 RVB rien #
# record.01$Z $xiirk/REFL.A2.0512 RVB rien #
# #
# #
# ATTENTION, cette sequence a ete recalculee et reenregistree en : #
# #
# xivPdf 11 2 / 019634_020145 #
# #
# afin d'utiliser les memes choix initiaux que pour la sequence : #
# #
# xivPdf 11 2 / 008705_009216 #
# #
# en ce qui concerne la couleur des particules... #
sequence 006145_006656
# Generee (sur '$LACT29') par : #
# #
# $Z SET Premiere=1 #
# $Z SET Derniere=512 #
# $Z @ Nimages = $Derniere - $Premiere #
# $Z @ Nimages = $Nimages + 1 #
# #
# $Z set Part0=1 #
# $Z set PartN=16 #
# $Z @ Npart = $PartN - $Part0 #
# $Z @ Npart = $Npart + 1 #
# #
# $Z $DELETE $xTV/MODULE #
# $Z $DELETE $xTV/THETA #
# $Z $DELETE $xTV/XY_RT.1 #
# $Z $DELETE $xTV/XY_RT.2 #
# $Z $DELETE $xTV/COORDONNEES$COORD_X #
# $Z $DELETE $xTV/COORDONNEES$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_Z #
# $Z $DELETE $xTV/VITESSES #
# $Z $DELETE $xTV/VITESSES$COORD_X #
# $Z $DELETE $xTV/VITESSES$COORD_Y #
# $Z $DELETE $xTV/VITESSES$COORD_Z #
# $Z $DELETE $xTV/mdRHO #
# $Z $DELETE $xTV/MdRHO #
# $Z $DELETE $xTV/mnPHI #
# $Z $DELETE $xTV/MnPHI #
# $Z $DELETE $xTV/dPHI #
# $Z $DELETE $xTV/mnTHETA #
# $Z $DELETE $xTV/MnTHETA #
# $Z $DELETE $xTV/dTHETA #
# $Z $DELETE $xTV/supOUVE #
# $Z $DELETE $xTV/DISTANCE #
# $Z $DELETE $xTV/STABILITE #
# $Z $DELETE $xTV/RAYONS #
# $Z $DELETE $xTV/INTERACTIONS #
# #
# #
# $Z alias Gen 'set Fi=\!:1 ; set vD=\!:2 ; set vA=\!:3 ; set ArG=(\!:4*) ; \\ #
# $Z $DELETE $Fi ; \\ #
# $Z $xci/valeurs_inte$X p=$Part0 d=$PartN vD=$vD vA=$vA $ArG > $Fi ; \\ #
# $Z unset Fi vD vA ArG' #
# #
# $Z alias GenR 'set Fi=\!:1 ; set In=\!:2 ; set Su=\!:3 ; set ArG=(\!:4*) ; \\ #
# $Z $DELETE $Fi ; \\ #
# $Z $xci/valeurs_alea$X p=$Part0 d=$PartN signe="$KV" inf=$In sup=$Su $ArG > $Fi ; \\ #
# $Z unset Fi In Su ArG' #
# #
# $Z set FacXY=0.85 #
# $Z set SeuilBOITE=`$xcg/SOUS.01$X a=1 b=$FacXY` #
# $Z set SeuilBOITE=`$xcg/MUL2.01$X a=$SeuilBOITE b=$GRIS_8` #
# $Z set SeuilBOITE=`$xci/valeurs_inte$X p=1 d=1 vD=$SeuilBOITE entiers=VRAI` #
# $Z set SeuilBOITE=`$xcg/MIN2.01$X a=$SeuilBOITE b=$GRIS_1` #
# #
# $Z Pal #
# $Z set PUnivers="np=0 CAL1=FAUX editer_l_univers_physique=VRAI" #
# $Z set Univers=`$xrk/rdn_walk.41$X $PUnivers $formatI` #
# #
# $Z set MinX=`echo $Univers | $SE -e "s/^.*[(,]XUI=//" -e "s/[,)].*//"` #
# $Z set MaxX=`echo $Univers | $SE -e "s/^.*[(,]XUS=//" -e "s/[,)].*//"` #
# $Z set MinY=`echo $Univers | $SE -e "s/^.*[(,]YUI=//" -e "s/[,)].*//"` #
# $Z set MaxY=`echo $Univers | $SE -e "s/^.*[(,]YUS=//" -e "s/[,)].*//"` #
# #
# $Z set MinX=`$xcg/ABSO.01$X x=$MinX` #
# $Z set MaxX=`$xcg/ABSO.01$X x=$MaxX` #
# $Z set MinY=`$xcg/ABSO.01$X x=$MinY` #
# $Z set MaxY=`$xcg/ABSO.01$X x=$MaxY` #
# #
# $Z set MaxX=`$xcg/MAX2.01$X n1=$MinX n2=$MaxX` #
# $Z set MaxY=`$xcg/MAX2.01$X n1=$MinY n2=$MaxY` #
# #
# $Z set MaxX=`$xcg/MUL2.01$X n1=$FacXY n2=$MaxX signe="$K_VIDE"` #
# $Z set MaxY=`$xcg/MUL2.01$X n1=$FacXY n2=$MaxY signe="$K_VIDE"` #
# #
# $Z GenR $xTV/COORDONNEES$COORD_X -$MaxX +$MaxX g=1111 #
# $Z GenR $xTV/COORDONNEES$COORD_Y -$MaxY +$MaxY g=2222 #
# #
# $Z Gen $xTV/COORDONNEES$COORD_Z 0.0 0.0 #
# #
# #
# $Z Gen $xTV/MODULE 0.02 0.02 #
# $Z GenR $xTV/THETA 0.0 $dpi g=3333 #
# #
# $Z $CA $xcs/csh$Y \ #
# $Z > $xTV/XY_RT.1 #
# $Z $PAST $xTV/MODULE $xTV/THETA \ #
# $Z | $R "$K_TAB" "$K_BLANC" \ #
# $Z | $AW ' { print "$xcg/XY_RT$X r=" $1 " t=" $2 " cartesien=FAUX" } ' \ #
# $Z >>! $xTV/XY_RT.1 #
# #
# $Z (source $xTV/XY_RT.1) \ #
# $Z > $xTV/XY_RT.2 #
# #
# $Z $CA $xTV/XY_RT.2 \ #
# $Z | $GRE "^x=" \ #
# $Z | $SE -e "s/^x=//" \ #
# $Z > $xTV/VITESSES$COORD_X #
# $Z $CA $xTV/XY_RT.2 \ #
# $Z | $GRE "^y=" \ #
# $Z | $SE -e "s/^y=//" \ #
# $Z > $xTV/VITESSES$COORD_Y #
# #
# $Z Gen $xTV/VITESSES$COORD_Z 0.0 0.0 #
# #
# $Z Gen $xTV/mdRHO 0.0 0.0 #
# $Z Gen $xTV/MdRHO 0.0 0.0 #
# $Z Gen $xTV/mnPHI 0.0 0.0 #
# $Z Gen $xTV/MnPHI 0.0 0.0 #
# $Z Gen $xTV/dPHI 0.0 0.0 #
# $Z Gen $xTV/mnTHETA 0.0 0.0 #
# $Z Gen $xTV/MnTHETA 0.0 0.0 #
# $Z Gen $xTV/dTHETA 0.0 0.0 #
# $Z Gen $xTV/DISTANCE 1000000 1000000 #
# $Z Gen $xTV/STABILITE 1000000 1000000 #
# #
# $Z set RayonsT=0.014 #
# $Z set RayonsP=`$xcg/MUL2.01$X a=2 b=$RayonsT` #
# $Z set DistanceI=`$xcg/MUL2.01$X a=4 b=$RayonsP` #
# $Z Gen $xTV/RAYONS $RayonsT $RayonsT #
# $Z Gen $xTV/INTERACTIONS $RayonsP $RayonsP #
# #
# $Z $DELETE $xTV/COULEURS$TEINT #
# $Z $DELETE $xTV/COULEURS$LUMIN #
# $Z $DELETE $xTV/COULEURS$SATUR #
# $Z $DELETE $xTV/COULEURS$Y #
# $Z $DELETE $xTV/COULEURS #
# $Z $DELETE $xTV/COULEURS$ROUGE #
# $Z $DELETE $xTV/COULEURS$VERTE #
# $Z $DELETE $xTV/COULEURS$BLEUE #
# #
# $Z @ TeinteMagenta = $GRIS_7 #
# $Z @ TeinteCyan = $GRIS_4 + $GRIS_8 #
# #
# $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartN \ #
# $Z vD=$TeinteMagenta vA=$TeinteCyan \ #
# $Z cubique=FAUX \ #
# $Z entiers=VRAI \ #
# $Z > $xTV/COULEURS$TEINT #
# $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartN \ #
# $Z vD=$GRIS_4 vA=$GRIS_4 \ #
# $Z cubique=FAUX \ #
# $Z entiers=VRAI \ #
# $Z > $xTV/COULEURS$LUMIN #
# $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartN \ #
# $Z vD=$GRIS_8 vA=$GRIS_8 \ #
# $Z cubique=FAUX \ #
# $Z entiers=VRAI \ #
# $Z > $xTV/COULEURS$SATUR #
# #
# $Z $PAST \ #
# $Z $xTV/COULEURS$TEINT \ #
# $Z $xTV/COULEURS$LUMIN \ #
# $Z $xTV/COULEURS$SATUR \ #
# $Z | $R "$K_TAB" "$K_BLANC" \ #
# $Z | $AW ' { print "H=" $1 " L=" $2 " S=" $3 } ' \ #
# $Z | $SE -e 's+^+$xcg/RVB_HLS$X RVB_HLS=FAUX +' \ #
# $Z | $SE -e 's/$/ eR=VRAI eV=VRAI eB=VRAI/' \ #
# $Z | $SE -e 's/$/ eH=FAUX eL=FAUX eS=FAUX/' \ #
# $Z > $xTV/COULEURS$Y #
# #
# $Z (source $xTV/COULEURS$Y) \ #
# $Z > $xTV/COULEURS #
# #
# $Z $GRE "^R=" $xTV/COULEURS \ #
# $Z | $SE -e "s/^R=//" \ #
# $Z > $xTV/COULEURS$ROUGE #
# $Z $GRE "^V=" $xTV/COULEURS \ #
# $Z | $SE -e "s/^V=//" \ #
# $Z > $xTV/COULEURS$VERTE #
# $Z $GRE "^B=" $xTV/COULEURS \ #
# $Z | $SE -e "s/^B=//" \ #
# $Z > $xTV/COULEURS$BLEUE #
# #
# $Z $DELETE $xTV/BOITE.1 #
# $Z $DELETE $xTV/BOITE.2 #
# $Z $DELETE $xTV/BOITE.3 #
# $Z $DELETE $xTV/BOITE.3$ROUGE #
# $Z $DELETE $xTV/BOITE.3$VERTE #
# $Z $DELETE $xTV/BOITE.3$BLEUE #
# #
# $Z Std #
# #
# $Z S #
# #
# $Z $xci/complement$X \ #
# $Z A=$xiio/SPIRALE \ #
# $Z $formatI | \ #
# $Z $xci/seuil$X \ #
# $Z seuil=$SeuilBOITE \ #
# $Z $formatI | \ #
# $Z $xci/format.01$X mode=0 \ #
# $Z $formatI \ #
# $Z R=$xTV/BOITE.1 \ #
# $Z $formatR_Pal #
# #
# $Z Pal #
# #
# #
# $Z $xci/scale$X \ #
# $Z A=$xTV/BOITE.1 \ #
# $Z a=1.00 \ #
# $Z R=$xTV/BOITE.2 \ #
# $Z $formatI #
# #
# #
# $Z Pal #
# #
# $Z $xrk/rdn_walk.41$X corps=$Npart \ #
# $Z np=$Nimages \ #
# $Z collisions=VRAI DLA=FAUX interaction=$DistanceI \ #
# $Z LISTE_X=$xTV/COORDONNEES$COORD_X \ #
# $Z LISTE_Y=$xTV/COORDONNEES$COORD_Y \ #
# $Z LISTE_Z=$xTV/COORDONNEES$COORD_Z \ #
# $Z LISTE_VX=$xTV/VITESSES$COORD_X \ #
# $Z LISTE_VY=$xTV/VITESSES$COORD_Y \ #
# $Z LISTE_VZ=$xTV/VITESSES$COORD_Z \ #
# $Z LISTE_MINIMUM_DELTA_RHO=$xTV/mdRHO \ #
# $Z LISTE_MAXIMUM_DELTA_RHO=$xTV/MdRHO \ #
# $Z LISTE_MINIMUM_N_PHI=$xTV/mnPHI \ #
# $Z LISTE_MAXIMUM_N_PHI=$xTV/MnPHI \ #
# $Z LISTE_DELTA_PHI=$xTV/dPHI \ #
# $Z LISTE_MINIMUM_N_THETA=$xTV/mnTHETA \ #
# $Z LISTE_MAXIMUM_N_THETA=$xTV/MnTHETA \ #
# $Z LISTE_DELTA_THETA=$xTV/dTHETA \ #
# $Z LISTE_DISTANCE_MAXIMALE=$xTV/DISTANCE \ #
# $Z LISTE_STABILITE=$xTV/STABILITE \ #
# $Z LISTE_RAYON=$xTV/RAYONS \ #
# $Z LISTE_RAYON_D_INTERACTION=$xTV/INTERACTIONS \ #
# $Z LISTE_ROUGE=$xTV/COULEURS$ROUGE \ #
# $Z LISTE_VERTE=$xTV/COULEURS$VERTE \ #
# $Z LISTE_BLEUE=$xTV/COULEURS$BLEUE \ #
# $Z milieu=VRAI \ #
# $Z reflexion=VRAI refraction=FAUX \ #
# $Z Mhors=$BLANC \ #
# $Z MNpasX=1 Mprolonger_X=VRAI \ #
# $Z MNpasY=1 Mprolonger_Y=VRAI \ #
# $Z MNpasZ=1 Mprolonger_Z=VRAI \ #
# $Z adapter_M_nPAS=VRAI \ #
# $Z Msimplifier=FAUX affiner_M_maillage=FAUX \ #
# $Z MC=$xTV/BOITE.2 \ #
# $Z MChiffres=0 \ #
# $Z Zmin=0 Zmax=15 \ #
# $Z centrer=VRAI \ #
# $Z dct=0.05 nombre=10 \ #
# $Z trainees=VRAI mode=1 \ #
# $Z attenuation_des_images=0.6 \ #
# $Z attenuation_des_trainees=1.00 \ #
# $Z renormaliser=FAUX \ #
# $Z Lz=100 \ #
# $Z zoom_automatique=VRAI \ #
# $Z centre_de_gravite=FAUX \ #
# $Z fond=FAUX \ #
# $Z R=$xiim/REFL.W. \ #
# $Z $formatI #
# #
# $Z $DELETE $xTV/RAYONS #
# $Z $CP $xTV/INTERACTIONS $xTV/RAYONS #
# #
# $Z $DELETE $xTV/GRAVITE #
# $Z $xrk/rdn_walk.41$X corps=$Npart \ #
# $Z np=$Nimages \ #
# $Z collisions=VRAI DLA=FAUX interaction=$DistanceI \ #
# $Z LISTE_X=$xTV/COORDONNEES$COORD_X \ #
# $Z LISTE_Y=$xTV/COORDONNEES$COORD_Y \ #
# $Z LISTE_Z=$xTV/COORDONNEES$COORD_Z \ #
# $Z LISTE_VX=$xTV/VITESSES$COORD_X \ #
# $Z LISTE_VY=$xTV/VITESSES$COORD_Y \ #
# $Z LISTE_VZ=$xTV/VITESSES$COORD_Z \ #
# $Z LISTE_MINIMUM_DELTA_RHO=$xTV/mdRHO \ #
# $Z LISTE_MAXIMUM_DELTA_RHO=$xTV/MdRHO \ #
# $Z LISTE_MINIMUM_N_PHI=$xTV/mnPHI \ #
# $Z LISTE_MAXIMUM_N_PHI=$xTV/MnPHI \ #
# $Z LISTE_DELTA_PHI=$xTV/dPHI \ #
# $Z LISTE_MINIMUM_N_THETA=$xTV/mnTHETA \ #
# $Z LISTE_MAXIMUM_N_THETA=$xTV/MnTHETA \ #
# $Z LISTE_DELTA_THETA=$xTV/dTHETA \ #
# $Z LISTE_DISTANCE_MAXIMALE=$xTV/DISTANCE \ #
# $Z LISTE_STABILITE=$xTV/STABILITE \ #
# $Z LISTE_RAYON=$xTV/RAYONS \ #
# $Z LISTE_RAYON_D_INTERACTION=$xTV/INTERACTIONS \ #
# $Z LISTE_ROUGE=$xTV/COULEURS$ROUGE \ #
# $Z LISTE_VERTE=$xTV/COULEURS$VERTE \ #
# $Z LISTE_BLEUE=$xTV/COULEURS$BLEUE \ #
# $Z milieu=VRAI \ #
# $Z reflexion=VRAI refraction=FAUX \ #
# $Z Mhors=$BLANC \ #
# $Z MNpasX=1 Mprolonger_X=VRAI \ #
# $Z MNpasY=1 Mprolonger_Y=VRAI \ #
# $Z MNpasZ=1 Mprolonger_Z=VRAI \ #
# $Z adapter_M_nPAS=VRAI \ #
# $Z Msimplifier=FAUX affiner_M_maillage=FAUX \ #
# $Z MC=$xTV/BOITE.2 \ #
# $Z MChiffres=0 \ #
# $Z Zmin=0 Zmax=15 \ #
# $Z centrer=VRAI \ #
# $Z dct=0.05 nombre=10 \ #
# $Z trainees=VRAI mode=1 \ #
# $Z attenuation_des_images=1.0 \ #
# $Z attenuation_des_trainees=0.80 \ #
# $Z renormaliser=FAUX \ #
# $Z Lz=100 \ #
# $Z zoom_automatique=VRAI \ #
# $Z centre_de_gravite=VRAI \ #
# $Z fond=VRAI \ #
# $Z dynamique=VRAI \ #
# $Z F=$xiim/REFL.W. \ #
# $Z R=$xiim/REFL.W. \ #
# $Z $formatI | \ #
# $Z $GRE " CENTRE_DE_GRAVITE=" \ #
# $Z > $xTV/GRAVITE #
# #
# $Z $DELETE $xTV/COORDONNEES$COORD_X #
# $Z $DELETE $xTV/COORDONNEES$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_Z #
# $Z $DELETE $xTV/VITESSES #
# $Z $DELETE $xTV/VITESSES$COORD_X #
# $Z $DELETE $xTV/VITESSES$COORD_Y #
# $Z $DELETE $xTV/VITESSES$COORD_Z #
# $Z $DELETE $xTV/mdRHO #
# $Z $DELETE $xTV/MdRHO #
# $Z $DELETE $xTV/mnPHI #
# $Z $DELETE $xTV/MnPHI #
# $Z $DELETE $xTV/dPHI #
# $Z $DELETE $xTV/mnTHETA #
# $Z $DELETE $xTV/MnTHETA #
# $Z $DELETE $xTV/dTHETA #
# $Z $DELETE $xTV/DISTANCE #
# $Z $DELETE $xTV/STABILITE #
# $Z $DELETE $xTV/RAYONS #
# $Z $DELETE $xTV/INTERACTIONS #
# $Z $DELETE $xTV/COULEURS$TEINT #
# $Z $DELETE $xTV/COULEURS$LUMIN #
# $Z $DELETE $xTV/COULEURS$SATUR #
# $Z $DELETE $xTV/COULEURS$Y #
# $Z $DELETE $xTV/COULEURS #
# $Z $DELETE $xTV/COULEURS$ROUGE #
# $Z $DELETE $xTV/COULEURS$VERTE #
# $Z $DELETE $xTV/COULEURS$BLEUE #
# #
# $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("$DELETE $xTV/COORDONNEES\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_X\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_Y\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_Z\n"); #
# #
# $c printf("$DELETE $xTV/COULEURS$ROUGE\n"); #
# $c printf("$DELETE $xTV/COULEURS$VERTE\n"); #
# $c printf("$DELETE $xTV/COULEURS$BLEUE\n"); #
# #
# $c printf("listMN $xTV/GRAVITE #
# $c %d %d #
# $c > $xTV/COORDONNEES\n" #
# $c ,N0,n #
# $c ); #
# #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*[(,]XG=//%c #
# $c -e %cs/[,)].*//%c #
# $c > $xTV/COORDONNEES$COORD_X\n" #
# $c ,'"','"','"','"' #
# $c ); #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*[(,]YG=//%c #
# $c -e %cs/[,)].*//%c #
# $c > $xTV/COORDONNEES$COORD_Y\n" #
# $c ,'"','"','"','"' #
# $c ); #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*[(,]ZG=//%c #
# $c -e %cs/[,)].*//%c #
# $c > $xTV/COORDONNEES$COORD_Z\n" #
# $c ,'"','"','"','"' #
# $c ); #
# #
# $c printf("$xci/valeurs_inte$X #
# $c premiere=%d derniere=%d #
# $c vD=$GRIS_5 vA=$GRIS_5 #
# $c cubique=FAUX #
# $c entiers=VRAI #
# $c utiliser_la_valeur_de_depart=FAUX #
# $c > $xTV/COULEURS$ROUGE\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/valeurs_inte$X #
# $c premiere=%d derniere=%d #
# $c vD=$GRIS_5 vA=$GRIS_5 #
# $c cubique=FAUX #
# $c entiers=VRAI #
# $c utiliser_la_valeur_de_depart=FAUX #
# $c > $xTV/COULEURS$VERTE\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/valeurs_inte$X #
# $c premiere=%d derniere=%d #
# $c vD=$GRIS_5 vA=$GRIS_5 #
# $c cubique=FAUX #
# $c entiers=VRAI #
# $c utiliser_la_valeur_de_depart=FAUX #
# $c > $xTV/COULEURS$BLEUE\n" #
# $c ,N0,n #
# $c ); #
# #
# $c printf("$xrv/particule.10$X #
# $c np=1 #
# $c iterations=%d #
# $c LISTE_X=$xTV/COORDONNEES$COORD_X #
# $c LISTE_Y=$xTV/COORDONNEES$COORD_Y #
# $c LISTE_Z=$xTV/COORDONNEES$COORD_Z #
# $c LISTE_ROUGE=$xTV/COULEURS$ROUGE #
# $c LISTE_VERTE=$xTV/COULEURS$VERTE #
# $c LISTE_BLEUE=$xTV/COULEURS$BLEUE #
# $c LISTE_RAYON=0.006 #
# $c zoom_automatique=FAUX ZOOM=1.0 #
# $c coordonnees_dans_0_1=FAUX #
# $c AXYZ=1 BXYZ=0 #
# $c fond=VRAI #
# $c fond_dynamique=FAUX #
# $c F=$xiim/REFL.W.%04d #
# $c R=$xTV/REFL.A. #
# $c $formatI\n" #
# $c ,(n-N0)+1,n #
# $c ); #
# #
# $c printf("$xci/acces$X #
# $c A=$xTV/REFL.A.%04d$ROUGE #
# $c R=$xiim/REFL.W.%04d$ROUGE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xTV/REFL.A.%04d$VERTE #
# $c R=$xiim/REFL.W.%04d$VERTE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xTV/REFL.A.%04d$BLEUE #
# $c R=$xiim/REFL.W.%04d$BLEUE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# #
# $c printf("$DELETE $xTV/COORDONNEES\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_X\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_Y\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_Z\n"); #
# #
# $c printf("$DELETE $xTV/COULEURS$ROUGE\n"); #
# $c printf("$DELETE $xTV/COULEURS$VERTE\n"); #
# $c printf("$DELETE $xTV/COULEURS$BLEUE\n"); #
# #
# $c printf("listMN $xTV/GRAVITE #
# $c %d %d #
# $c > $xTV/COORDONNEES\n" #
# $c ,n,n #
# $c ); #
# #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*[(,]XG=//%c #
# $c -e %cs/[,)].*//%c #
# $c > $xTV/COORDONNEES$COORD_X\n" #
# $c ,'"','"','"','"' #
# $c ); #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*[(,]YG=//%c #
# $c -e %cs/[,)].*//%c #
# $c > $xTV/COORDONNEES$COORD_Y\n" #
# $c ,'"','"','"','"' #
# $c ); #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*[(,]ZG=//%c #
# $c -e %cs/[,)].*//%c #
# $c > $xTV/COORDONNEES$COORD_Z\n" #
# $c ,'"','"','"','"' #
# $c ); #
# #
# $c printf("$xci/valeurs_inte$X #
# $c premiere=%d derniere=%d #
# $c vD=$GRIS_8 vA=$GRIS_8 #
# $c cubique=FAUX #
# $c entiers=VRAI #
# $c utiliser_la_valeur_de_depart=FAUX #
# $c > $xTV/COULEURS$ROUGE\n" #
# $c ,n,n #
# $c ); #
# $c printf("$xci/valeurs_inte$X #
# $c premiere=%d derniere=%d #
# $c vD=$GRIS_8 vA=$GRIS_8 #
# $c cubique=FAUX #
# $c entiers=VRAI #
# $c utiliser_la_valeur_de_depart=FAUX #
# $c > $xTV/COULEURS$VERTE\n" #
# $c ,n,n #
# $c ); #
# $c printf("$xci/valeurs_inte$X #
# $c premiere=%d derniere=%d #
# $c vD=$GRIS_8 vA=$GRIS_8 #
# $c cubique=FAUX #
# $c entiers=VRAI #
# $c utiliser_la_valeur_de_depart=FAUX #
# $c > $xTV/COULEURS$BLEUE\n" #
# $c ,n,n #
# $c ); #
# #
# $c printf("$xrv/particule.10$X #
# $c np=1 #
# $c iterations=%d #
# $c LISTE_X=$xTV/COORDONNEES$COORD_X #
# $c LISTE_Y=$xTV/COORDONNEES$COORD_Y #
# $c LISTE_Z=$xTV/COORDONNEES$COORD_Z #
# $c LISTE_ROUGE=$xTV/COULEURS$ROUGE #
# $c LISTE_VERTE=$xTV/COULEURS$VERTE #
# $c LISTE_BLEUE=$xTV/COULEURS$BLEUE #
# $c LISTE_RAYON=0.012 #
# $c zoom_automatique=FAUX ZOOM=1.0 #
# $c coordonnees_dans_0_1=FAUX #
# $c AXYZ=1 BXYZ=0 #
# $c fond=VRAI #
# $c fond_dynamique=FAUX #
# $c F=$xiim/REFL.W.%04d #
# $c R=$xTV/REFL.B. #
# $c $formatI\n" #
# $c ,(n-n)+1,n #
# $c ); #
# #
# $c printf("$xci/acces$X #
# $c A=$xTV/REFL.B.%04d$ROUGE #
# $c R=$xiim/REFL.W.%04d$ROUGE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xTV/REFL.B.%04d$VERTE #
# $c R=$xiim/REFL.W.%04d$VERTE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xTV/REFL.B.%04d$BLEUE #
# $c R=$xiim/REFL.W.%04d$BLEUE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# $c } #
# $c } #
# #
# #
# $Z $DELETE $xTV/COORDONNEES #
# $Z $DELETE $xTV/COORDONNEES$COORD_X #
# $Z $DELETE $xTV/COORDONNEES$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_Z #
# $Z $DELETE $xTV/COULEURS$ROUGE #
# $Z $DELETE $xTV/COULEURS$VERTE #
# $Z $DELETE $xTV/COULEURS$BLEUE #
# #
# #
# #
# $Z $xci/complement$X A=$xTV/BOITE.1 \ #
# $Z R=$xTV/BOITE.3 \ #
# $Z $formatI #
# #
# $Z eval `$xci/genere$X \\\ #
# $Z commande='($xci/scale$X \\\ #
# $Z A=$xTV/BOITE.3 \\\ #
# $Z a=0.50 \\\ #
# $Z R=$xTV/BOITE.3%s \\\ #
# $Z $formatI)' \\\ #
# $Z en_tete=FAUX RVB=VRAI separateur=VRAI` #
# #
# #
# $X $xci/genere$X premiere=$Premiere derniere=$Derniere pas=1 \ #
# $X C='$xci/cache.11$Z \ #
# $X $xiim/REFL.W.%04d \ #
# $X $xTV/BOITE.3 \ #
# $X $xiim/REFL.2.%04d' #
# #
# $Z $DELETE $xTV/BOITE.1 #
# $Z $DELETE $xTV/BOITE.2 #
# $Z $DELETE $xTV/BOITE.3 #
# $Z $DELETE $xTV/BOITE.3$ROUGE #
# $Z $DELETE $xTV/BOITE.3$VERTE #
# $Z $DELETE $xTV/BOITE.3$BLEUE #
# #
# $Z Pal #
# #
# $Z $xci/reduction_16$Z $xiim/REFL.2. $xiak/REFL.A4 $Premiere $Derniere #
# $Z $xci/reduction_64$Z $xiim/REFL.2. $xiak/REFL.A4 $Premiere $Derniere #
# #
# $X $xci/genere$X c='ro $xiak/REFL.A4$R16%s' RVB=VRAI #
# $X $xci/genere$X c='ro $xiak/REFL.A4$R64%s' RVB=VRAI #
# #
# $X $xci/genere$X c='$xcg/unite$Z $xiak/REFL.A4$R16%s' RVB=VRAI #
# $X $xci/genere$X c='$xcg/unite$Z $xiak/REFL.A4$R64%s' RVB=VRAI #
# #
# $X $xci/genere$X c='$CP $xiim/REFL.2.0512%s $xiirk/REFL.A4.0512%s' RVB=VRAI #
# #
# $X $xci/genere$X c='ro $xiirk/REFL.A4.0512%s' RVB=VRAI #
# #
# $X $xci/genere$X c='$xcg/unite$Z $xiirk/REFL.A4.0512%s' RVB=VRAI #
# #
# #
# Pal #
# #
# #
# $xci/disk_video_P$Z $xiim_LACT29/REFL.2. 001 512 RVB \ #
# 11 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
# #
# xivPdf 3 2 #
# #
# record.01$Z $xiak/REFL.A4$R16 RVB Initialisation #
# record.01$Z $xiak/REFL.A4$R64 RVB rien #
# record.01$Z $xiirk/REFL.A4.0512 RVB rien #
# #
# #
# ATTENTION, cette sequence a ete recalculee et reenregistree en : #
# #
# xivPdf 11 2 / 020146_020657 #
# #
# afin d'utiliser les memes choix initiaux que pour la sequence : #
# #
# xivPdf 11 2 / 009217_009728 #
# #
# en ce qui concerne la couleur des particules... #
sequence 006657_007168
# Generee (sur '$LACT29') par : #
# #
# $Z SET Premiere=1 #
# $Z SET Derniere=512 #
# $Z @ Nimages = $Derniere - $Premiere #
# $Z @ Nimages = $Nimages + 1 #
# #
# $Z set Part0=1 #
# $Z set PartN=64 #
# $Z @ Npart = $PartN - $Part0 #
# $Z @ Npart = $Npart + 1 #
# #
# $Z $DELETE $xTV/MODULE #
# $Z $DELETE $xTV/THETA #
# $Z $DELETE $xTV/XY_RT.1 #
# $Z $DELETE $xTV/XY_RT.2 #
# $Z $DELETE $xTV/COORDONNEES$COORD_X #
# $Z $DELETE $xTV/COORDONNEES$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_Z #
# $Z $DELETE $xTV/VITESSES #
# $Z $DELETE $xTV/VITESSES$COORD_X #
# $Z $DELETE $xTV/VITESSES$COORD_Y #
# $Z $DELETE $xTV/VITESSES$COORD_Z #
# $Z $DELETE $xTV/mdRHO #
# $Z $DELETE $xTV/MdRHO #
# $Z $DELETE $xTV/mnPHI #
# $Z $DELETE $xTV/MnPHI #
# $Z $DELETE $xTV/dPHI #
# $Z $DELETE $xTV/mnTHETA #
# $Z $DELETE $xTV/MnTHETA #
# $Z $DELETE $xTV/dTHETA #
# $Z $DELETE $xTV/supOUVE #
# $Z $DELETE $xTV/DISTANCE #
# $Z $DELETE $xTV/STABILITE #
# $Z $DELETE $xTV/RAYONS #
# $Z $DELETE $xTV/INTERACTIONS #
# #
# #
# $Z alias Gen 'set Fi=\!:1 ; set vD=\!:2 ; set vA=\!:3 ; set ArG=(\!:4*) ; \\ #
# $Z $DELETE $Fi ; \\ #
# $Z $xci/valeurs_inte$X p=$Part0 d=$PartN vD=$vD vA=$vA $ArG > $Fi ; \\ #
# $Z unset Fi vD vA ArG' #
# #
# $Z alias GenR 'set Fi=\!:1 ; set In=\!:2 ; set Su=\!:3 ; set ArG=(\!:4*) ; \\ #
# $Z $DELETE $Fi ; \\ #
# $Z $xci/valeurs_alea$X p=$Part0 d=$PartN signe="$KV" inf=$In sup=$Su $ArG > $Fi ; \\ #
# $Z unset Fi In Su ArG' #
# #
# $Z set FacXY=0.85 #
# $Z set SeuilBOITE=`$xcg/SOUS.01$X a=1 b=$FacXY` #
# $Z set SeuilBOITE=`$xcg/MUL2.01$X a=$SeuilBOITE b=$GRIS_8` #
# $Z set SeuilBOITE=`$xci/valeurs_inte$X p=1 d=1 vD=$SeuilBOITE entiers=VRAI` #
# $Z set SeuilBOITE=`$xcg/MIN2.01$X a=$SeuilBOITE b=$GRIS_1` #
# #
# $Z Pal #
# $Z set PUnivers="np=0 CAL1=FAUX editer_l_univers_physique=VRAI" #
# $Z set Univers=`$xrk/rdn_walk.41$X $PUnivers $formatI` #
# #
# $Z set MinX=`echo $Univers | $SE -e "s/^.*[(,]XUI=//" -e "s/[,)].*//"` #
# $Z set MaxX=`echo $Univers | $SE -e "s/^.*[(,]XUS=//" -e "s/[,)].*//"` #
# $Z set MinY=`echo $Univers | $SE -e "s/^.*[(,]YUI=//" -e "s/[,)].*//"` #
# $Z set MaxY=`echo $Univers | $SE -e "s/^.*[(,]YUS=//" -e "s/[,)].*//"` #
# #
# $Z set MinX=`$xcg/ABSO.01$X x=$MinX` #
# $Z set MaxX=`$xcg/ABSO.01$X x=$MaxX` #
# $Z set MinY=`$xcg/ABSO.01$X x=$MinY` #
# $Z set MaxY=`$xcg/ABSO.01$X x=$MaxY` #
# #
# $Z set MaxX=`$xcg/MAX2.01$X n1=$MinX n2=$MaxX` #
# $Z set MaxY=`$xcg/MAX2.01$X n1=$MinY n2=$MaxY` #
# #
# $Z set MaxX=`$xcg/MUL2.01$X n1=$FacXY n2=$MaxX signe="$K_VIDE"` #
# $Z set MaxY=`$xcg/MUL2.01$X n1=$FacXY n2=$MaxY signe="$K_VIDE"` #
# #
# $Z GenR $xTV/COORDONNEES$COORD_X -$MaxX +$MaxX g=1111 #
# $Z GenR $xTV/COORDONNEES$COORD_Y -$MaxY +$MaxY g=2222 #
# #
# $Z Gen $xTV/COORDONNEES$COORD_Z 0.0 0.0 #
# #
# #
# $Z Gen $xTV/MODULE 0.02 0.02 #
# $Z GenR $xTV/THETA 0.0 $dpi g=3333 #
# #
# $Z $CA $xcs/csh$Y \ #
# $Z > $xTV/XY_RT.1 #
# $Z $PAST $xTV/MODULE $xTV/THETA \ #
# $Z | $R "$K_TAB" "$K_BLANC" \ #
# $Z | $AW ' { print "$xcg/XY_RT$X r=" $1 " t=" $2 " cartesien=FAUX" } ' \ #
# $Z >>! $xTV/XY_RT.1 #
# #
# $Z (source $xTV/XY_RT.1) \ #
# $Z > $xTV/XY_RT.2 #
# #
# $Z $CA $xTV/XY_RT.2 \ #
# $Z | $GRE "^x=" \ #
# $Z | $SE -e "s/^x=//" \ #
# $Z > $xTV/VITESSES$COORD_X #
# $Z $CA $xTV/XY_RT.2 \ #
# $Z | $GRE "^y=" \ #
# $Z | $SE -e "s/^y=//" \ #
# $Z > $xTV/VITESSES$COORD_Y #
# #
# $Z Gen $xTV/VITESSES$COORD_Z 0.0 0.0 #
# #
# $Z Gen $xTV/mdRHO 0.0 0.0 #
# $Z Gen $xTV/MdRHO 0.0 0.0 #
# $Z Gen $xTV/mnPHI 0.0 0.0 #
# $Z Gen $xTV/MnPHI 0.0 0.0 #
# $Z Gen $xTV/dPHI 0.0 0.0 #
# $Z Gen $xTV/mnTHETA 0.0 0.0 #
# $Z Gen $xTV/MnTHETA 0.0 0.0 #
# $Z Gen $xTV/dTHETA 0.0 0.0 #
# $Z Gen $xTV/DISTANCE 1000000 1000000 #
# $Z Gen $xTV/STABILITE 1000000 1000000 #
# #
# $Z set RayonsT=0.014 #
# $Z set RayonsP=`$xcg/MUL2.01$X a=2 b=$RayonsT` #
# $Z set DistanceI=`$xcg/MUL2.01$X a=4 b=$RayonsP` #
# $Z Gen $xTV/RAYONS $RayonsT $RayonsT #
# $Z Gen $xTV/INTERACTIONS $RayonsP $RayonsP #
# #
# $Z $DELETE $xTV/COULEURS$TEINT #
# $Z $DELETE $xTV/COULEURS$LUMIN #
# $Z $DELETE $xTV/COULEURS$SATUR #
# $Z $DELETE $xTV/COULEURS$Y #
# $Z $DELETE $xTV/COULEURS #
# $Z $DELETE $xTV/COULEURS$ROUGE #
# $Z $DELETE $xTV/COULEURS$VERTE #
# $Z $DELETE $xTV/COULEURS$BLEUE #
# #
# $Z @ TeinteMagenta = $GRIS_7 #
# $Z @ TeinteCyan = $GRIS_4 + $GRIS_8 #
# #
# $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartN \ #
# $Z vD=$TeinteMagenta vA=$TeinteCyan \ #
# $Z cubique=FAUX \ #
# $Z entiers=VRAI \ #
# $Z > $xTV/COULEURS$TEINT #
# $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartN \ #
# $Z vD=$GRIS_4 vA=$GRIS_4 \ #
# $Z cubique=FAUX \ #
# $Z entiers=VRAI \ #
# $Z > $xTV/COULEURS$LUMIN #
# $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartN \ #
# $Z vD=$GRIS_8 vA=$GRIS_8 \ #
# $Z cubique=FAUX \ #
# $Z entiers=VRAI \ #
# $Z > $xTV/COULEURS$SATUR #
# #
# $Z $PAST \ #
# $Z $xTV/COULEURS$TEINT \ #
# $Z $xTV/COULEURS$LUMIN \ #
# $Z $xTV/COULEURS$SATUR \ #
# $Z | $R "$K_TAB" "$K_BLANC" \ #
# $Z | $AW ' { print "H=" $1 " L=" $2 " S=" $3 } ' \ #
# $Z | $SE -e 's+^+$xcg/RVB_HLS$X RVB_HLS=FAUX +' \ #
# $Z | $SE -e 's/$/ eR=VRAI eV=VRAI eB=VRAI/' \ #
# $Z | $SE -e 's/$/ eH=FAUX eL=FAUX eS=FAUX/' \ #
# $Z > $xTV/COULEURS$Y #
# #
# $Z (source $xTV/COULEURS$Y) \ #
# $Z > $xTV/COULEURS #
# #
# $Z $GRE "^R=" $xTV/COULEURS \ #
# $Z | $SE -e "s/^R=//" \ #
# $Z > $xTV/COULEURS$ROUGE #
# $Z $GRE "^V=" $xTV/COULEURS \ #
# $Z | $SE -e "s/^V=//" \ #
# $Z > $xTV/COULEURS$VERTE #
# $Z $GRE "^B=" $xTV/COULEURS \ #
# $Z | $SE -e "s/^B=//" \ #
# $Z > $xTV/COULEURS$BLEUE #
# #
# $Z $DELETE $xTV/BOITE.1 #
# $Z $DELETE $xTV/BOITE.2 #
# $Z $DELETE $xTV/BOITE.3 #
# $Z $DELETE $xTV/BOITE.3$ROUGE #
# $Z $DELETE $xTV/BOITE.3$VERTE #
# $Z $DELETE $xTV/BOITE.3$BLEUE #
# #
# $Z Std #
# #
# $Z S #
# #
# $Z $xci/complement$X \ #
# $Z A=$xiio/SPIRALE \ #
# $Z $formatI | \ #
# $Z $xci/seuil$X \ #
# $Z seuil=$SeuilBOITE \ #
# $Z $formatI | \ #
# $Z $xci/format.01$X mode=0 \ #
# $Z $formatI \ #
# $Z R=$xTV/BOITE.1 \ #
# $Z $formatR_Pal #
# #
# $Z Pal #
# #
# #
# $Z $xci/scale$X \ #
# $Z A=$xTV/BOITE.1 \ #
# $Z a=1.00 \ #
# $Z R=$xTV/BOITE.2 \ #
# $Z $formatI #
# #
# #
# $Z Pal #
# #
# $Z $xrk/rdn_walk.41$X corps=$Npart \ #
# $Z np=$Nimages \ #
# $Z collisions=VRAI DLA=FAUX interaction=$DistanceI \ #
# $Z LISTE_X=$xTV/COORDONNEES$COORD_X \ #
# $Z LISTE_Y=$xTV/COORDONNEES$COORD_Y \ #
# $Z LISTE_Z=$xTV/COORDONNEES$COORD_Z \ #
# $Z LISTE_VX=$xTV/VITESSES$COORD_X \ #
# $Z LISTE_VY=$xTV/VITESSES$COORD_Y \ #
# $Z LISTE_VZ=$xTV/VITESSES$COORD_Z \ #
# $Z LISTE_MINIMUM_DELTA_RHO=$xTV/mdRHO \ #
# $Z LISTE_MAXIMUM_DELTA_RHO=$xTV/MdRHO \ #
# $Z LISTE_MINIMUM_N_PHI=$xTV/mnPHI \ #
# $Z LISTE_MAXIMUM_N_PHI=$xTV/MnPHI \ #
# $Z LISTE_DELTA_PHI=$xTV/dPHI \ #
# $Z LISTE_MINIMUM_N_THETA=$xTV/mnTHETA \ #
# $Z LISTE_MAXIMUM_N_THETA=$xTV/MnTHETA \ #
# $Z LISTE_DELTA_THETA=$xTV/dTHETA \ #
# $Z LISTE_DISTANCE_MAXIMALE=$xTV/DISTANCE \ #
# $Z LISTE_STABILITE=$xTV/STABILITE \ #
# $Z LISTE_RAYON=$xTV/RAYONS \ #
# $Z LISTE_RAYON_D_INTERACTION=$xTV/INTERACTIONS \ #
# $Z LISTE_ROUGE=$xTV/COULEURS$ROUGE \ #
# $Z LISTE_VERTE=$xTV/COULEURS$VERTE \ #
# $Z LISTE_BLEUE=$xTV/COULEURS$BLEUE \ #
# $Z milieu=VRAI \ #
# $Z reflexion=VRAI refraction=FAUX \ #
# $Z Mhors=$BLANC \ #
# $Z MNpasX=1 Mprolonger_X=VRAI \ #
# $Z MNpasY=1 Mprolonger_Y=VRAI \ #
# $Z MNpasZ=1 Mprolonger_Z=VRAI \ #
# $Z adapter_M_nPAS=VRAI \ #
# $Z Msimplifier=FAUX affiner_M_maillage=FAUX \ #
# $Z MC=$xTV/BOITE.2 \ #
# $Z MChiffres=0 \ #
# $Z Zmin=0 Zmax=15 \ #
# $Z centrer=VRAI \ #
# $Z dct=0.05 nombre=10 \ #
# $Z trainees=VRAI mode=1 \ #
# $Z attenuation_des_images=0.6 \ #
# $Z attenuation_des_trainees=1.00 \ #
# $Z renormaliser=FAUX \ #
# $Z Lz=100 \ #
# $Z zoom_automatique=VRAI \ #
# $Z centre_de_gravite=FAUX \ #
# $Z fond=FAUX \ #
# $Z R=$xiim/REFL.W. \ #
# $Z $formatI #
# #
# $Z $DELETE $xTV/RAYONS #
# $Z $CP $xTV/INTERACTIONS $xTV/RAYONS #
# #
# $Z $DELETE $xTV/GRAVITE #
# $Z $xrk/rdn_walk.41$X corps=$Npart \ #
# $Z np=$Nimages \ #
# $Z collisions=VRAI DLA=FAUX interaction=$DistanceI \ #
# $Z LISTE_X=$xTV/COORDONNEES$COORD_X \ #
# $Z LISTE_Y=$xTV/COORDONNEES$COORD_Y \ #
# $Z LISTE_Z=$xTV/COORDONNEES$COORD_Z \ #
# $Z LISTE_VX=$xTV/VITESSES$COORD_X \ #
# $Z LISTE_VY=$xTV/VITESSES$COORD_Y \ #
# $Z LISTE_VZ=$xTV/VITESSES$COORD_Z \ #
# $Z LISTE_MINIMUM_DELTA_RHO=$xTV/mdRHO \ #
# $Z LISTE_MAXIMUM_DELTA_RHO=$xTV/MdRHO \ #
# $Z LISTE_MINIMUM_N_PHI=$xTV/mnPHI \ #
# $Z LISTE_MAXIMUM_N_PHI=$xTV/MnPHI \ #
# $Z LISTE_DELTA_PHI=$xTV/dPHI \ #
# $Z LISTE_MINIMUM_N_THETA=$xTV/mnTHETA \ #
# $Z LISTE_MAXIMUM_N_THETA=$xTV/MnTHETA \ #
# $Z LISTE_DELTA_THETA=$xTV/dTHETA \ #
# $Z LISTE_DISTANCE_MAXIMALE=$xTV/DISTANCE \ #
# $Z LISTE_STABILITE=$xTV/STABILITE \ #
# $Z LISTE_RAYON=$xTV/RAYONS \ #
# $Z LISTE_RAYON_D_INTERACTION=$xTV/INTERACTIONS \ #
# $Z LISTE_ROUGE=$xTV/COULEURS$ROUGE \ #
# $Z LISTE_VERTE=$xTV/COULEURS$VERTE \ #
# $Z LISTE_BLEUE=$xTV/COULEURS$BLEUE \ #
# $Z milieu=VRAI \ #
# $Z reflexion=VRAI refraction=FAUX \ #
# $Z Mhors=$BLANC \ #
# $Z MNpasX=1 Mprolonger_X=VRAI \ #
# $Z MNpasY=1 Mprolonger_Y=VRAI \ #
# $Z MNpasZ=1 Mprolonger_Z=VRAI \ #
# $Z adapter_M_nPAS=VRAI \ #
# $Z Msimplifier=FAUX affiner_M_maillage=FAUX \ #
# $Z MC=$xTV/BOITE.2 \ #
# $Z MChiffres=0 \ #
# $Z Zmin=0 Zmax=15 \ #
# $Z centrer=VRAI \ #
# $Z dct=0.05 nombre=10 \ #
# $Z trainees=VRAI mode=1 \ #
# $Z attenuation_des_images=1.0 \ #
# $Z attenuation_des_trainees=0.80 \ #
# $Z renormaliser=FAUX \ #
# $Z Lz=100 \ #
# $Z zoom_automatique=VRAI \ #
# $Z centre_de_gravite=VRAI \ #
# $Z fond=VRAI \ #
# $Z dynamique=VRAI \ #
# $Z F=$xiim/REFL.W. \ #
# $Z R=$xiim/REFL.W. \ #
# $Z $formatI | \ #
# $Z $GRE " CENTRE_DE_GRAVITE=" \ #
# $Z > $xTV/GRAVITE #
# #
# $Z $DELETE $xTV/COORDONNEES$COORD_X #
# $Z $DELETE $xTV/COORDONNEES$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_Z #
# $Z $DELETE $xTV/VITESSES #
# $Z $DELETE $xTV/VITESSES$COORD_X #
# $Z $DELETE $xTV/VITESSES$COORD_Y #
# $Z $DELETE $xTV/VITESSES$COORD_Z #
# $Z $DELETE $xTV/mdRHO #
# $Z $DELETE $xTV/MdRHO #
# $Z $DELETE $xTV/mnPHI #
# $Z $DELETE $xTV/MnPHI #
# $Z $DELETE $xTV/dPHI #
# $Z $DELETE $xTV/mnTHETA #
# $Z $DELETE $xTV/MnTHETA #
# $Z $DELETE $xTV/dTHETA #
# $Z $DELETE $xTV/DISTANCE #
# $Z $DELETE $xTV/STABILITE #
# $Z $DELETE $xTV/RAYONS #
# $Z $DELETE $xTV/INTERACTIONS #
# $Z $DELETE $xTV/COULEURS$TEINT #
# $Z $DELETE $xTV/COULEURS$LUMIN #
# $Z $DELETE $xTV/COULEURS$SATUR #
# $Z $DELETE $xTV/COULEURS$Y #
# $Z $DELETE $xTV/COULEURS #
# $Z $DELETE $xTV/COULEURS$ROUGE #
# $Z $DELETE $xTV/COULEURS$VERTE #
# $Z $DELETE $xTV/COULEURS$BLEUE #
# #
# $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("$DELETE $xTV/COORDONNEES\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_X\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_Y\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_Z\n"); #
# #
# $c printf("$DELETE $xTV/COULEURS$ROUGE\n"); #
# $c printf("$DELETE $xTV/COULEURS$VERTE\n"); #
# $c printf("$DELETE $xTV/COULEURS$BLEUE\n"); #
# #
# $c printf("listMN $xTV/GRAVITE #
# $c %d %d #
# $c > $xTV/COORDONNEES\n" #
# $c ,N0,n #
# $c ); #
# #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*[(,]XG=//%c #
# $c -e %cs/[,)].*//%c #
# $c > $xTV/COORDONNEES$COORD_X\n" #
# $c ,'"','"','"','"' #
# $c ); #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*[(,]YG=//%c #
# $c -e %cs/[,)].*//%c #
# $c > $xTV/COORDONNEES$COORD_Y\n" #
# $c ,'"','"','"','"' #
# $c ); #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*[(,]ZG=//%c #
# $c -e %cs/[,)].*//%c #
# $c > $xTV/COORDONNEES$COORD_Z\n" #
# $c ,'"','"','"','"' #
# $c ); #
# #
# $c printf("$xci/valeurs_inte$X #
# $c premiere=%d derniere=%d #
# $c vD=$GRIS_5 vA=$GRIS_5 #
# $c cubique=FAUX #
# $c entiers=VRAI #
# $c utiliser_la_valeur_de_depart=FAUX #
# $c > $xTV/COULEURS$ROUGE\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/valeurs_inte$X #
# $c premiere=%d derniere=%d #
# $c vD=$GRIS_5 vA=$GRIS_5 #
# $c cubique=FAUX #
# $c entiers=VRAI #
# $c utiliser_la_valeur_de_depart=FAUX #
# $c > $xTV/COULEURS$VERTE\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/valeurs_inte$X #
# $c premiere=%d derniere=%d #
# $c vD=$GRIS_5 vA=$GRIS_5 #
# $c cubique=FAUX #
# $c entiers=VRAI #
# $c utiliser_la_valeur_de_depart=FAUX #
# $c > $xTV/COULEURS$BLEUE\n" #
# $c ,N0,n #
# $c ); #
# #
# $c printf("$xrv/particule.10$X #
# $c np=1 #
# $c iterations=%d #
# $c LISTE_X=$xTV/COORDONNEES$COORD_X #
# $c LISTE_Y=$xTV/COORDONNEES$COORD_Y #
# $c LISTE_Z=$xTV/COORDONNEES$COORD_Z #
# $c LISTE_ROUGE=$xTV/COULEURS$ROUGE #
# $c LISTE_VERTE=$xTV/COULEURS$VERTE #
# $c LISTE_BLEUE=$xTV/COULEURS$BLEUE #
# $c LISTE_RAYON=0.006 #
# $c zoom_automatique=FAUX ZOOM=1.0 #
# $c coordonnees_dans_0_1=FAUX #
# $c AXYZ=1 BXYZ=0 #
# $c fond=VRAI #
# $c fond_dynamique=FAUX #
# $c F=$xiim/REFL.W.%04d #
# $c R=$xTV/REFL.A. #
# $c $formatI\n" #
# $c ,(n-N0)+1,n #
# $c ); #
# #
# $c printf("$xci/acces$X #
# $c A=$xTV/REFL.A.%04d$ROUGE #
# $c R=$xiim/REFL.W.%04d$ROUGE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xTV/REFL.A.%04d$VERTE #
# $c R=$xiim/REFL.W.%04d$VERTE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xTV/REFL.A.%04d$BLEUE #
# $c R=$xiim/REFL.W.%04d$BLEUE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# #
# $c printf("$DELETE $xTV/COORDONNEES\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_X\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_Y\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_Z\n"); #
# #
# $c printf("$DELETE $xTV/COULEURS$ROUGE\n"); #
# $c printf("$DELETE $xTV/COULEURS$VERTE\n"); #
# $c printf("$DELETE $xTV/COULEURS$BLEUE\n"); #
# #
# $c printf("listMN $xTV/GRAVITE #
# $c %d %d #
# $c > $xTV/COORDONNEES\n" #
# $c ,n,n #
# $c ); #
# #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*[(,]XG=//%c #
# $c -e %cs/[,)].*//%c #
# $c > $xTV/COORDONNEES$COORD_X\n" #
# $c ,'"','"','"','"' #
# $c ); #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*[(,]YG=//%c #
# $c -e %cs/[,)].*//%c #
# $c > $xTV/COORDONNEES$COORD_Y\n" #
# $c ,'"','"','"','"' #
# $c ); #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*[(,]ZG=//%c #
# $c -e %cs/[,)].*//%c #
# $c > $xTV/COORDONNEES$COORD_Z\n" #
# $c ,'"','"','"','"' #
# $c ); #
# #
# $c printf("$xci/valeurs_inte$X #
# $c premiere=%d derniere=%d #
# $c vD=$GRIS_8 vA=$GRIS_8 #
# $c cubique=FAUX #
# $c entiers=VRAI #
# $c utiliser_la_valeur_de_depart=FAUX #
# $c > $xTV/COULEURS$ROUGE\n" #
# $c ,n,n #
# $c ); #
# $c printf("$xci/valeurs_inte$X #
# $c premiere=%d derniere=%d #
# $c vD=$GRIS_8 vA=$GRIS_8 #
# $c cubique=FAUX #
# $c entiers=VRAI #
# $c utiliser_la_valeur_de_depart=FAUX #
# $c > $xTV/COULEURS$VERTE\n" #
# $c ,n,n #
# $c ); #
# $c printf("$xci/valeurs_inte$X #
# $c premiere=%d derniere=%d #
# $c vD=$GRIS_8 vA=$GRIS_8 #
# $c cubique=FAUX #
# $c entiers=VRAI #
# $c utiliser_la_valeur_de_depart=FAUX #
# $c > $xTV/COULEURS$BLEUE\n" #
# $c ,n,n #
# $c ); #
# #
# $c printf("$xrv/particule.10$X #
# $c np=1 #
# $c iterations=%d #
# $c LISTE_X=$xTV/COORDONNEES$COORD_X #
# $c LISTE_Y=$xTV/COORDONNEES$COORD_Y #
# $c LISTE_Z=$xTV/COORDONNEES$COORD_Z #
# $c LISTE_ROUGE=$xTV/COULEURS$ROUGE #
# $c LISTE_VERTE=$xTV/COULEURS$VERTE #
# $c LISTE_BLEUE=$xTV/COULEURS$BLEUE #
# $c LISTE_RAYON=0.012 #
# $c zoom_automatique=FAUX ZOOM=1.0 #
# $c coordonnees_dans_0_1=FAUX #
# $c AXYZ=1 BXYZ=0 #
# $c fond=VRAI #
# $c fond_dynamique=FAUX #
# $c F=$xiim/REFL.W.%04d #
# $c R=$xTV/REFL.B. #
# $c $formatI\n" #
# $c ,(n-n)+1,n #
# $c ); #
# #
# $c printf("$xci/acces$X #
# $c A=$xTV/REFL.B.%04d$ROUGE #
# $c R=$xiim/REFL.W.%04d$ROUGE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xTV/REFL.B.%04d$VERTE #
# $c R=$xiim/REFL.W.%04d$VERTE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xTV/REFL.B.%04d$BLEUE #
# $c R=$xiim/REFL.W.%04d$BLEUE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# $c } #
# $c } #
# #
# #
# $Z $DELETE $xTV/COORDONNEES #
# $Z $DELETE $xTV/COORDONNEES$COORD_X #
# $Z $DELETE $xTV/COORDONNEES$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_Z #
# $Z $DELETE $xTV/COULEURS$ROUGE #
# $Z $DELETE $xTV/COULEURS$VERTE #
# $Z $DELETE $xTV/COULEURS$BLEUE #
# #
# #
# #
# $Z $xci/complement$X A=$xTV/BOITE.1 \ #
# $Z R=$xTV/BOITE.3 \ #
# $Z $formatI #
# #
# $Z eval `$xci/genere$X \\\ #
# $Z commande='($xci/scale$X \\\ #
# $Z A=$xTV/BOITE.3 \\\ #
# $Z a=0.50 \\\ #
# $Z R=$xTV/BOITE.3%s \\\ #
# $Z $formatI)' \\\ #
# $Z en_tete=FAUX RVB=VRAI separateur=VRAI` #
# #
# #
# $X $xci/genere$X premiere=$Premiere derniere=$Derniere pas=1 \ #
# $X C='$xci/cache.11$Z \ #
# $X $xiim/REFL.W.%04d \ #
# $X $xTV/BOITE.3 \ #
# $X $xiim/REFL.3.%04d' #
# #
# $Z $DELETE $xTV/BOITE.1 #
# $Z $DELETE $xTV/BOITE.2 #
# $Z $DELETE $xTV/BOITE.3 #
# $Z $DELETE $xTV/BOITE.3$ROUGE #
# $Z $DELETE $xTV/BOITE.3$VERTE #
# $Z $DELETE $xTV/BOITE.3$BLEUE #
# #
# $Z Pal #
# #
# $Z $xci/reduction_16$Z $xiim/REFL.3. $xiak/REFL.A6 $Premiere $Derniere #
# $Z $xci/reduction_64$Z $xiim/REFL.3. $xiak/REFL.A6 $Premiere $Derniere #
# #
# $X $xci/genere$X c='ro $xiak/REFL.A6$R16%s' RVB=VRAI #
# $X $xci/genere$X c='ro $xiak/REFL.A6$R64%s' RVB=VRAI #
# #
# $X $xci/genere$X c='$xcg/unite$Z $xiak/REFL.A6$R16%s' RVB=VRAI #
# $X $xci/genere$X c='$xcg/unite$Z $xiak/REFL.A6$R64%s' RVB=VRAI #
# #
# $X $xci/genere$X c='$CP $xiim/REFL.3.0512%s $xiirk/REFL.A6.0512%s' RVB=VRAI #
# #
# $X $xci/genere$X c='ro $xiirk/REFL.A6.0512%s' RVB=VRAI #
# #
# $X $xci/genere$X c='$xcg/unite$Z $xiirk/REFL.A6.0512%s' RVB=VRAI #
# #
# #
# Pal #
# #
# #
# $xci/disk_video_P$Z $xiim_LACT29/REFL.3. 001 512 RVB \ #
# 11 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
# #
# xivPdf 3 2 #
# #
# record.01$Z $xiak/REFL.A6$R16 RVB Initialisation #
# record.01$Z $xiak/REFL.A6$R64 RVB rien #
# record.01$Z $xiirk/REFL.A6.0512 RVB rien #
# #
# #
# ATTENTION, cette sequence a ete recalculee et reenregistree en : #
# #
# xivPdf 11 2 / 020658_021169 #
# #
# afin d'utiliser les memes choix initiaux que pour la sequence : #
# #
# xivPdf 11 2 / 009729_010240 #
# #
# en ce qui concerne la couleur des particules... #
sequence 007169_007680
# Generee (sur '$LACT29') par : #
# #
# $Z SET Premiere=1 #
# $Z SET Derniere=512 #
# $Z @ Nimages = $Derniere - $Premiere #
# $Z @ Nimages = $Nimages + 1 #
# #
# $Z set Part0=1 #
# $Z set PartN=256 #
# $Z @ Npart = $PartN - $Part0 #
# $Z @ Npart = $Npart + 1 #
# #
# $Z $DELETE $xTV/MODULE #
# $Z $DELETE $xTV/THETA #
# $Z $DELETE $xTV/XY_RT.1 #
# $Z $DELETE $xTV/XY_RT.2 #
# $Z $DELETE $xTV/COORDONNEES$COORD_X #
# $Z $DELETE $xTV/COORDONNEES$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_Z #
# $Z $DELETE $xTV/VITESSES #
# $Z $DELETE $xTV/VITESSES$COORD_X #
# $Z $DELETE $xTV/VITESSES$COORD_Y #
# $Z $DELETE $xTV/VITESSES$COORD_Z #
# $Z $DELETE $xTV/mdRHO #
# $Z $DELETE $xTV/MdRHO #
# $Z $DELETE $xTV/mnPHI #
# $Z $DELETE $xTV/MnPHI #
# $Z $DELETE $xTV/dPHI #
# $Z $DELETE $xTV/mnTHETA #
# $Z $DELETE $xTV/MnTHETA #
# $Z $DELETE $xTV/dTHETA #
# $Z $DELETE $xTV/supOUVE #
# $Z $DELETE $xTV/DISTANCE #
# $Z $DELETE $xTV/STABILITE #
# $Z $DELETE $xTV/RAYONS #
# $Z $DELETE $xTV/INTERACTIONS #
# #
# #
# $Z alias Gen 'set Fi=\!:1 ; set vD=\!:2 ; set vA=\!:3 ; set ArG=(\!:4*) ; \\ #
# $Z $DELETE $Fi ; \\ #
# $Z $xci/valeurs_inte$X p=$Part0 d=$PartN vD=$vD vA=$vA $ArG > $Fi ; \\ #
# $Z unset Fi vD vA ArG' #
# #
# $Z alias GenR 'set Fi=\!:1 ; set In=\!:2 ; set Su=\!:3 ; set ArG=(\!:4*) ; \\ #
# $Z $DELETE $Fi ; \\ #
# $Z $xci/valeurs_alea$X p=$Part0 d=$PartN signe="$KV" inf=$In sup=$Su $ArG > $Fi ; \\ #
# $Z unset Fi In Su ArG' #
# #
# $Z set FacXY=0.85 #
# $Z set SeuilBOITE=`$xcg/SOUS.01$X a=1 b=$FacXY` #
# $Z set SeuilBOITE=`$xcg/MUL2.01$X a=$SeuilBOITE b=$GRIS_8` #
# $Z set SeuilBOITE=`$xci/valeurs_inte$X p=1 d=1 vD=$SeuilBOITE entiers=VRAI` #
# $Z set SeuilBOITE=`$xcg/MIN2.01$X a=$SeuilBOITE b=$GRIS_1` #
# #
# $Z Pal #
# $Z set PUnivers="np=0 CAL1=FAUX editer_l_univers_physique=VRAI" #
# $Z set Univers=`$xrk/rdn_walk.41$X $PUnivers $formatI` #
# #
# $Z set MinX=`echo $Univers | $SE -e "s/^.*[(,]XUI=//" -e "s/[,)].*//"` #
# $Z set MaxX=`echo $Univers | $SE -e "s/^.*[(,]XUS=//" -e "s/[,)].*//"` #
# $Z set MinY=`echo $Univers | $SE -e "s/^.*[(,]YUI=//" -e "s/[,)].*//"` #
# $Z set MaxY=`echo $Univers | $SE -e "s/^.*[(,]YUS=//" -e "s/[,)].*//"` #
# #
# $Z set MinX=`$xcg/ABSO.01$X x=$MinX` #
# $Z set MaxX=`$xcg/ABSO.01$X x=$MaxX` #
# $Z set MinY=`$xcg/ABSO.01$X x=$MinY` #
# $Z set MaxY=`$xcg/ABSO.01$X x=$MaxY` #
# #
# $Z set MaxX=`$xcg/MAX2.01$X n1=$MinX n2=$MaxX` #
# $Z set MaxY=`$xcg/MAX2.01$X n1=$MinY n2=$MaxY` #
# #
# $Z set MaxX=`$xcg/MUL2.01$X n1=$FacXY n2=$MaxX signe="$K_VIDE"` #
# $Z set MaxY=`$xcg/MUL2.01$X n1=$FacXY n2=$MaxY signe="$K_VIDE"` #
# #
# $Z GenR $xTV/COORDONNEES$COORD_X -$MaxX +$MaxX g=1111 #
# $Z GenR $xTV/COORDONNEES$COORD_Y -$MaxY +$MaxY g=2222 #
# #
# $Z Gen $xTV/COORDONNEES$COORD_Z 0.0 0.0 #
# #
# #
# $Z Gen $xTV/MODULE 0.02 0.02 #
# $Z GenR $xTV/THETA 0.0 $dpi g=3333 #
# #
# $Z $CA $xcs/csh$Y \ #
# $Z > $xTV/XY_RT.1 #
# $Z $PAST $xTV/MODULE $xTV/THETA \ #
# $Z | $R "$K_TAB" "$K_BLANC" \ #
# $Z | $AW ' { print "$xcg/XY_RT$X r=" $1 " t=" $2 " cartesien=FAUX" } ' \ #
# $Z >>! $xTV/XY_RT.1 #
# #
# $Z (source $xTV/XY_RT.1) \ #
# $Z > $xTV/XY_RT.2 #
# #
# $Z $CA $xTV/XY_RT.2 \ #
# $Z | $GRE "^x=" \ #
# $Z | $SE -e "s/^x=//" \ #
# $Z > $xTV/VITESSES$COORD_X #
# $Z $CA $xTV/XY_RT.2 \ #
# $Z | $GRE "^y=" \ #
# $Z | $SE -e "s/^y=//" \ #
# $Z > $xTV/VITESSES$COORD_Y #
# #
# $Z Gen $xTV/VITESSES$COORD_Z 0.0 0.0 #
# #
# $Z Gen $xTV/mdRHO 0.0 0.0 #
# $Z Gen $xTV/MdRHO 0.0 0.0 #
# $Z Gen $xTV/mnPHI 0.0 0.0 #
# $Z Gen $xTV/MnPHI 0.0 0.0 #
# $Z Gen $xTV/dPHI 0.0 0.0 #
# $Z Gen $xTV/mnTHETA 0.0 0.0 #
# $Z Gen $xTV/MnTHETA 0.0 0.0 #
# $Z Gen $xTV/dTHETA 0.0 0.0 #
# $Z Gen $xTV/DISTANCE 1000000 1000000 #
# $Z Gen $xTV/STABILITE 1000000 1000000 #
# #
# $Z set RayonsT=0.014 #
# $Z set RayonsP=`$xcg/MUL2.01$X a=2 b=$RayonsT` #
# $Z set DistanceI=`$xcg/MUL2.01$X a=4 b=$RayonsP` #
# $Z Gen $xTV/RAYONS $RayonsT $RayonsT #
# $Z Gen $xTV/INTERACTIONS $RayonsP $RayonsP #
# #
# $Z $DELETE $xTV/COULEURS$TEINT #
# $Z $DELETE $xTV/COULEURS$LUMIN #
# $Z $DELETE $xTV/COULEURS$SATUR #
# $Z $DELETE $xTV/COULEURS$Y #
# $Z $DELETE $xTV/COULEURS #
# $Z $DELETE $xTV/COULEURS$ROUGE #
# $Z $DELETE $xTV/COULEURS$VERTE #
# $Z $DELETE $xTV/COULEURS$BLEUE #
# #
# $Z @ TeinteMagenta = $GRIS_7 #
# $Z @ TeinteCyan = $GRIS_4 + $GRIS_8 #
# #
# $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartN \ #
# $Z vD=$TeinteMagenta vA=$TeinteCyan \ #
# $Z cubique=FAUX \ #
# $Z entiers=VRAI \ #
# $Z > $xTV/COULEURS$TEINT #
# $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartN \ #
# $Z vD=$GRIS_4 vA=$GRIS_4 \ #
# $Z cubique=FAUX \ #
# $Z entiers=VRAI \ #
# $Z > $xTV/COULEURS$LUMIN #
# $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartN \ #
# $Z vD=$GRIS_8 vA=$GRIS_8 \ #
# $Z cubique=FAUX \ #
# $Z entiers=VRAI \ #
# $Z > $xTV/COULEURS$SATUR #
# #
# $Z $PAST \ #
# $Z $xTV/COULEURS$TEINT \ #
# $Z $xTV/COULEURS$LUMIN \ #
# $Z $xTV/COULEURS$SATUR \ #
# $Z | $R "$K_TAB" "$K_BLANC" \ #
# $Z | $AW ' { print "H=" $1 " L=" $2 " S=" $3 } ' \ #
# $Z | $SE -e 's+^+$xcg/RVB_HLS$X RVB_HLS=FAUX +' \ #
# $Z | $SE -e 's/$/ eR=VRAI eV=VRAI eB=VRAI/' \ #
# $Z | $SE -e 's/$/ eH=FAUX eL=FAUX eS=FAUX/' \ #
# $Z > $xTV/COULEURS$Y #
# #
# $Z (source $xTV/COULEURS$Y) \ #
# $Z > $xTV/COULEURS #
# #
# $Z $GRE "^R=" $xTV/COULEURS \ #
# $Z | $SE -e "s/^R=//" \ #
# $Z > $xTV/COULEURS$ROUGE #
# $Z $GRE "^V=" $xTV/COULEURS \ #
# $Z | $SE -e "s/^V=//" \ #
# $Z > $xTV/COULEURS$VERTE #
# $Z $GRE "^B=" $xTV/COULEURS \ #
# $Z | $SE -e "s/^B=//" \ #
# $Z > $xTV/COULEURS$BLEUE #
# #
# $Z $DELETE $xTV/BOITE.1 #
# $Z $DELETE $xTV/BOITE.2 #
# $Z $DELETE $xTV/BOITE.3 #
# $Z $DELETE $xTV/BOITE.3$ROUGE #
# $Z $DELETE $xTV/BOITE.3$VERTE #
# $Z $DELETE $xTV/BOITE.3$BLEUE #
# #
# $Z Std #
# #
# $Z S #
# #
# $Z $xci/complement$X \ #
# $Z A=$xiio/SPIRALE \ #
# $Z $formatI | \ #
# $Z $xci/seuil$X \ #
# $Z seuil=$SeuilBOITE \ #
# $Z $formatI | \ #
# $Z $xci/format.01$X mode=0 \ #
# $Z $formatI \ #
# $Z R=$xTV/BOITE.1 \ #
# $Z $formatR_Pal #
# #
# $Z Pal #
# #
# #
# $Z $xci/scale$X \ #
# $Z A=$xTV/BOITE.1 \ #
# $Z a=1.00 \ #
# $Z R=$xTV/BOITE.2 \ #
# $Z $formatI #
# #
# #
# $Z Pal #
# #
# $Z $xrk/rdn_walk.41$X corps=$Npart \ #
# $Z np=$Nimages \ #
# $Z collisions=VRAI DLA=FAUX interaction=$DistanceI \ #
# $Z LISTE_X=$xTV/COORDONNEES$COORD_X \ #
# $Z LISTE_Y=$xTV/COORDONNEES$COORD_Y \ #
# $Z LISTE_Z=$xTV/COORDONNEES$COORD_Z \ #
# $Z LISTE_VX=$xTV/VITESSES$COORD_X \ #
# $Z LISTE_VY=$xTV/VITESSES$COORD_Y \ #
# $Z LISTE_VZ=$xTV/VITESSES$COORD_Z \ #
# $Z LISTE_MINIMUM_DELTA_RHO=$xTV/mdRHO \ #
# $Z LISTE_MAXIMUM_DELTA_RHO=$xTV/MdRHO \ #
# $Z LISTE_MINIMUM_N_PHI=$xTV/mnPHI \ #
# $Z LISTE_MAXIMUM_N_PHI=$xTV/MnPHI \ #
# $Z LISTE_DELTA_PHI=$xTV/dPHI \ #
# $Z LISTE_MINIMUM_N_THETA=$xTV/mnTHETA \ #
# $Z LISTE_MAXIMUM_N_THETA=$xTV/MnTHETA \ #
# $Z LISTE_DELTA_THETA=$xTV/dTHETA \ #
# $Z LISTE_DISTANCE_MAXIMALE=$xTV/DISTANCE \ #
# $Z LISTE_STABILITE=$xTV/STABILITE \ #
# $Z LISTE_RAYON=$xTV/RAYONS \ #
# $Z LISTE_RAYON_D_INTERACTION=$xTV/INTERACTIONS \ #
# $Z LISTE_ROUGE=$xTV/COULEURS$ROUGE \ #
# $Z LISTE_VERTE=$xTV/COULEURS$VERTE \ #
# $Z LISTE_BLEUE=$xTV/COULEURS$BLEUE \ #
# $Z milieu=VRAI \ #
# $Z reflexion=VRAI refraction=FAUX \ #
# $Z Mhors=$BLANC \ #
# $Z MNpasX=1 Mprolonger_X=VRAI \ #
# $Z MNpasY=1 Mprolonger_Y=VRAI \ #
# $Z MNpasZ=1 Mprolonger_Z=VRAI \ #
# $Z adapter_M_nPAS=VRAI \ #
# $Z Msimplifier=FAUX affiner_M_maillage=FAUX \ #
# $Z MC=$xTV/BOITE.2 \ #
# $Z MChiffres=0 \ #
# $Z Zmin=0 Zmax=15 \ #
# $Z centrer=VRAI \ #
# $Z dct=0.05 nombre=10 \ #
# $Z trainees=VRAI mode=1 \ #
# $Z attenuation_des_images=0.6 \ #
# $Z attenuation_des_trainees=1.00 \ #
# $Z renormaliser=FAUX \ #
# $Z Lz=100 \ #
# $Z zoom_automatique=VRAI \ #
# $Z centre_de_gravite=FAUX \ #
# $Z fond=FAUX \ #
# $Z R=$xiim/REFL.W. \ #
# $Z $formatI #
# #
# $Z $DELETE $xTV/RAYONS #
# $Z $CP $xTV/INTERACTIONS $xTV/RAYONS #
# #
# $Z $DELETE $xTV/GRAVITE #
# $Z $xrk/rdn_walk.41$X corps=$Npart \ #
# $Z np=$Nimages \ #
# $Z collisions=VRAI DLA=FAUX interaction=$DistanceI \ #
# $Z LISTE_X=$xTV/COORDONNEES$COORD_X \ #
# $Z LISTE_Y=$xTV/COORDONNEES$COORD_Y \ #
# $Z LISTE_Z=$xTV/COORDONNEES$COORD_Z \ #
# $Z LISTE_VX=$xTV/VITESSES$COORD_X \ #
# $Z LISTE_VY=$xTV/VITESSES$COORD_Y \ #
# $Z LISTE_VZ=$xTV/VITESSES$COORD_Z \ #
# $Z LISTE_MINIMUM_DELTA_RHO=$xTV/mdRHO \ #
# $Z LISTE_MAXIMUM_DELTA_RHO=$xTV/MdRHO \ #
# $Z LISTE_MINIMUM_N_PHI=$xTV/mnPHI \ #
# $Z LISTE_MAXIMUM_N_PHI=$xTV/MnPHI \ #
# $Z LISTE_DELTA_PHI=$xTV/dPHI \ #
# $Z LISTE_MINIMUM_N_THETA=$xTV/mnTHETA \ #
# $Z LISTE_MAXIMUM_N_THETA=$xTV/MnTHETA \ #
# $Z LISTE_DELTA_THETA=$xTV/dTHETA \ #
# $Z LISTE_DISTANCE_MAXIMALE=$xTV/DISTANCE \ #
# $Z LISTE_STABILITE=$xTV/STABILITE \ #
# $Z LISTE_RAYON=$xTV/RAYONS \ #
# $Z LISTE_RAYON_D_INTERACTION=$xTV/INTERACTIONS \ #
# $Z LISTE_ROUGE=$xTV/COULEURS$ROUGE \ #
# $Z LISTE_VERTE=$xTV/COULEURS$VERTE \ #
# $Z LISTE_BLEUE=$xTV/COULEURS$BLEUE \ #
# $Z milieu=VRAI \ #
# $Z reflexion=VRAI refraction=FAUX \ #
# $Z Mhors=$BLANC \ #
# $Z MNpasX=1 Mprolonger_X=VRAI \ #
# $Z MNpasY=1 Mprolonger_Y=VRAI \ #
# $Z MNpasZ=1 Mprolonger_Z=VRAI \ #
# $Z adapter_M_nPAS=VRAI \ #
# $Z Msimplifier=FAUX affiner_M_maillage=FAUX \ #
# $Z MC=$xTV/BOITE.2 \ #
# $Z MChiffres=0 \ #
# $Z Zmin=0 Zmax=15 \ #
# $Z centrer=VRAI \ #
# $Z dct=0.05 nombre=10 \ #
# $Z trainees=VRAI mode=1 \ #
# $Z attenuation_des_images=1.0 \ #
# $Z attenuation_des_trainees=0.80 \ #
# $Z renormaliser=FAUX \ #
# $Z Lz=100 \ #
# $Z zoom_automatique=VRAI \ #
# $Z centre_de_gravite=VRAI \ #
# $Z fond=VRAI \ #
# $Z dynamique=VRAI \ #
# $Z F=$xiim/REFL.W. \ #
# $Z R=$xiim/REFL.W. \ #
# $Z $formatI | \ #
# $Z $GRE " CENTRE_DE_GRAVITE=" \ #
# $Z > $xTV/GRAVITE #
# #
# $Z $DELETE $xTV/COORDONNEES$COORD_X #
# $Z $DELETE $xTV/COORDONNEES$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_Z #
# $Z $DELETE $xTV/VITESSES #
# $Z $DELETE $xTV/VITESSES$COORD_X #
# $Z $DELETE $xTV/VITESSES$COORD_Y #
# $Z $DELETE $xTV/VITESSES$COORD_Z #
# $Z $DELETE $xTV/mdRHO #
# $Z $DELETE $xTV/MdRHO #
# $Z $DELETE $xTV/mnPHI #
# $Z $DELETE $xTV/MnPHI #
# $Z $DELETE $xTV/dPHI #
# $Z $DELETE $xTV/mnTHETA #
# $Z $DELETE $xTV/MnTHETA #
# $Z $DELETE $xTV/dTHETA #
# $Z $DELETE $xTV/DISTANCE #
# $Z $DELETE $xTV/STABILITE #
# $Z $DELETE $xTV/RAYONS #
# $Z $DELETE $xTV/INTERACTIONS #
# $Z $DELETE $xTV/COULEURS$TEINT #
# $Z $DELETE $xTV/COULEURS$LUMIN #
# $Z $DELETE $xTV/COULEURS$SATUR #
# $Z $DELETE $xTV/COULEURS$Y #
# $Z $DELETE $xTV/COULEURS #
# $Z $DELETE $xTV/COULEURS$ROUGE #
# $Z $DELETE $xTV/COULEURS$VERTE #
# $Z $DELETE $xTV/COULEURS$BLEUE #
# #
# $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("$DELETE $xTV/COORDONNEES\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_X\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_Y\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_Z\n"); #
# #
# $c printf("$DELETE $xTV/COULEURS$ROUGE\n"); #
# $c printf("$DELETE $xTV/COULEURS$VERTE\n"); #
# $c printf("$DELETE $xTV/COULEURS$BLEUE\n"); #
# #
# $c printf("listMN $xTV/GRAVITE #
# $c %d %d #
# $c > $xTV/COORDONNEES\n" #
# $c ,N0,n #
# $c ); #
# #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*[(,]XG=//%c #
# $c -e %cs/[,)].*//%c #
# $c > $xTV/COORDONNEES$COORD_X\n" #
# $c ,'"','"','"','"' #
# $c ); #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*[(,]YG=//%c #
# $c -e %cs/[,)].*//%c #
# $c > $xTV/COORDONNEES$COORD_Y\n" #
# $c ,'"','"','"','"' #
# $c ); #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*[(,]ZG=//%c #
# $c -e %cs/[,)].*//%c #
# $c > $xTV/COORDONNEES$COORD_Z\n" #
# $c ,'"','"','"','"' #
# $c ); #
# #
# $c printf("$xci/valeurs_inte$X #
# $c premiere=%d derniere=%d #
# $c vD=$GRIS_5 vA=$GRIS_5 #
# $c cubique=FAUX #
# $c entiers=VRAI #
# $c utiliser_la_valeur_de_depart=FAUX #
# $c > $xTV/COULEURS$ROUGE\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/valeurs_inte$X #
# $c premiere=%d derniere=%d #
# $c vD=$GRIS_5 vA=$GRIS_5 #
# $c cubique=FAUX #
# $c entiers=VRAI #
# $c utiliser_la_valeur_de_depart=FAUX #
# $c > $xTV/COULEURS$VERTE\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/valeurs_inte$X #
# $c premiere=%d derniere=%d #
# $c vD=$GRIS_5 vA=$GRIS_5 #
# $c cubique=FAUX #
# $c entiers=VRAI #
# $c utiliser_la_valeur_de_depart=FAUX #
# $c > $xTV/COULEURS$BLEUE\n" #
# $c ,N0,n #
# $c ); #
# #
# $c printf("$xrv/particule.10$X #
# $c np=1 #
# $c iterations=%d #
# $c LISTE_X=$xTV/COORDONNEES$COORD_X #
# $c LISTE_Y=$xTV/COORDONNEES$COORD_Y #
# $c LISTE_Z=$xTV/COORDONNEES$COORD_Z #
# $c LISTE_ROUGE=$xTV/COULEURS$ROUGE #
# $c LISTE_VERTE=$xTV/COULEURS$VERTE #
# $c LISTE_BLEUE=$xTV/COULEURS$BLEUE #
# $c LISTE_RAYON=0.006 #
# $c zoom_automatique=FAUX ZOOM=1.0 #
# $c coordonnees_dans_0_1=FAUX #
# $c AXYZ=1 BXYZ=0 #
# $c fond=VRAI #
# $c fond_dynamique=FAUX #
# $c F=$xiim/REFL.W.%04d #
# $c R=$xTV/REFL.A. #
# $c $formatI\n" #
# $c ,(n-N0)+1,n #
# $c ); #
# #
# $c printf("$xci/acces$X #
# $c A=$xTV/REFL.A.%04d$ROUGE #
# $c R=$xiim/REFL.W.%04d$ROUGE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xTV/REFL.A.%04d$VERTE #
# $c R=$xiim/REFL.W.%04d$VERTE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xTV/REFL.A.%04d$BLEUE #
# $c R=$xiim/REFL.W.%04d$BLEUE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# #
# $c printf("$DELETE $xTV/COORDONNEES\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_X\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_Y\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_Z\n"); #
# #
# $c printf("$DELETE $xTV/COULEURS$ROUGE\n"); #
# $c printf("$DELETE $xTV/COULEURS$VERTE\n"); #
# $c printf("$DELETE $xTV/COULEURS$BLEUE\n"); #
# #
# $c printf("listMN $xTV/GRAVITE #
# $c %d %d #
# $c > $xTV/COORDONNEES\n" #
# $c ,n,n #
# $c ); #
# #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*[(,]XG=//%c #
# $c -e %cs/[,)].*//%c #
# $c > $xTV/COORDONNEES$COORD_X\n" #
# $c ,'"','"','"','"' #
# $c ); #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*[(,]YG=//%c #
# $c -e %cs/[,)].*//%c #
# $c > $xTV/COORDONNEES$COORD_Y\n" #
# $c ,'"','"','"','"' #
# $c ); #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*[(,]ZG=//%c #
# $c -e %cs/[,)].*//%c #
# $c > $xTV/COORDONNEES$COORD_Z\n" #
# $c ,'"','"','"','"' #
# $c ); #
# #
# $c printf("$xci/valeurs_inte$X #
# $c premiere=%d derniere=%d #
# $c vD=$GRIS_8 vA=$GRIS_8 #
# $c cubique=FAUX #
# $c entiers=VRAI #
# $c utiliser_la_valeur_de_depart=FAUX #
# $c > $xTV/COULEURS$ROUGE\n" #
# $c ,n,n #
# $c ); #
# $c printf("$xci/valeurs_inte$X #
# $c premiere=%d derniere=%d #
# $c vD=$GRIS_8 vA=$GRIS_8 #
# $c cubique=FAUX #
# $c entiers=VRAI #
# $c utiliser_la_valeur_de_depart=FAUX #
# $c > $xTV/COULEURS$VERTE\n" #
# $c ,n,n #
# $c ); #
# $c printf("$xci/valeurs_inte$X #
# $c premiere=%d derniere=%d #
# $c vD=$GRIS_8 vA=$GRIS_8 #
# $c cubique=FAUX #
# $c entiers=VRAI #
# $c utiliser_la_valeur_de_depart=FAUX #
# $c > $xTV/COULEURS$BLEUE\n" #
# $c ,n,n #
# $c ); #
# #
# $c printf("$xrv/particule.10$X #
# $c np=1 #
# $c iterations=%d #
# $c LISTE_X=$xTV/COORDONNEES$COORD_X #
# $c LISTE_Y=$xTV/COORDONNEES$COORD_Y #
# $c LISTE_Z=$xTV/COORDONNEES$COORD_Z #
# $c LISTE_ROUGE=$xTV/COULEURS$ROUGE #
# $c LISTE_VERTE=$xTV/COULEURS$VERTE #
# $c LISTE_BLEUE=$xTV/COULEURS$BLEUE #
# $c LISTE_RAYON=0.012 #
# $c zoom_automatique=FAUX ZOOM=1.0 #
# $c coordonnees_dans_0_1=FAUX #
# $c AXYZ=1 BXYZ=0 #
# $c fond=VRAI #
# $c fond_dynamique=FAUX #
# $c F=$xiim/REFL.W.%04d #
# $c R=$xTV/REFL.B. #
# $c $formatI\n" #
# $c ,(n-n)+1,n #
# $c ); #
# #
# $c printf("$xci/acces$X #
# $c A=$xTV/REFL.B.%04d$ROUGE #
# $c R=$xiim/REFL.W.%04d$ROUGE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xTV/REFL.B.%04d$VERTE #
# $c R=$xiim/REFL.W.%04d$VERTE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xTV/REFL.B.%04d$BLEUE #
# $c R=$xiim/REFL.W.%04d$BLEUE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# $c } #
# $c } #
# #
# #
# $Z $DELETE $xTV/COORDONNEES #
# $Z $DELETE $xTV/COORDONNEES$COORD_X #
# $Z $DELETE $xTV/COORDONNEES$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_Z #
# $Z $DELETE $xTV/COULEURS$ROUGE #
# $Z $DELETE $xTV/COULEURS$VERTE #
# $Z $DELETE $xTV/COULEURS$BLEUE #
# #
# #
# #
# $Z $xci/complement$X A=$xTV/BOITE.1 \ #
# $Z R=$xTV/BOITE.3 \ #
# $Z $formatI #
# #
# $Z eval `$xci/genere$X \\\ #
# $Z commande='($xci/scale$X \\\ #
# $Z A=$xTV/BOITE.3 \\\ #
# $Z a=0.50 \\\ #
# $Z R=$xTV/BOITE.3%s \\\ #
# $Z $formatI)' \\\ #
# $Z en_tete=FAUX RVB=VRAI separateur=VRAI` #
# #
# #
# $X $xci/genere$X premiere=$Premiere derniere=$Derniere pas=1 \ #
# $X C='$xci/cache.11$Z \ #
# $X $xiim/REFL.W.%04d \ #
# $X $xTV/BOITE.3 \ #
# $X $xiim/REFL.4.%04d' #
# #
# $Z $DELETE $xTV/BOITE.1 #
# $Z $DELETE $xTV/BOITE.2 #
# $Z $DELETE $xTV/BOITE.3 #
# $Z $DELETE $xTV/BOITE.3$ROUGE #
# $Z $DELETE $xTV/BOITE.3$VERTE #
# $Z $DELETE $xTV/BOITE.3$BLEUE #
# #
# $Z Pal #
# #
# $Z $xci/reduction_16$Z $xiim/REFL.4. $xiak/REFL.A8 $Premiere $Derniere #
# $Z $xci/reduction_64$Z $xiim/REFL.4. $xiak/REFL.A8 $Premiere $Derniere #
# #
# $X $xci/genere$X c='ro $xiak/REFL.A8$R16%s' RVB=VRAI #
# $X $xci/genere$X c='ro $xiak/REFL.A8$R64%s' RVB=VRAI #
# #
# $X $xci/genere$X c='$xcg/unite$Z $xiak/REFL.A8$R16%s' RVB=VRAI #
# $X $xci/genere$X c='$xcg/unite$Z $xiak/REFL.A8$R64%s' RVB=VRAI #
# #
# $X $xci/genere$X c='$CP $xiim/REFL.4.0512%s $xiirk/REFL.A8.0512%s' RVB=VRAI #
# #
# $X $xci/genere$X c='ro $xiirk/REFL.A8.0512%s' RVB=VRAI #
# #
# $X $xci/genere$X c='$xcg/unite$Z $xiirk/REFL.A8.0512%s' RVB=VRAI #
# #
# #
# Pal #
# #
# #
# $xci/disk_video_P$Z $xiim_LACT29/REFL.4. 001 512 RVB \ #
# 11 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
# #
# xivPdf 3 2 #
# #
# record.01$Z $xiak/REFL.A8$R16 RVB Initialisation #
# record.01$Z $xiak/REFL.A8$R64 RVB rien #
# record.01$Z $xiirk/REFL.A8.0512 RVB rien #
# #
# #
# ATTENTION, cette sequence a ete recalculee et reenregistree en : #
# #
# xivPdf 11 2 / 021170_021681 #
# #
# afin d'utiliser les memes choix initiaux que pour la sequence : #
# #
# xivPdf 11 2 / 010241_010752 #
# #
# en ce qui concerne la couleur des particules... #
sequence 007681_008192
# Generee (sur '$LACT29') par : #
# #
# $Z SET Premiere=1 #
# $Z SET Derniere=512 #
# $Z @ Nimages = $Derniere - $Premiere #
# $Z @ Nimages = $Nimages + 1 #
# #
# $Z set Part0=1 #
# $Z set PartN=16 #
# $Z @ Npart = $PartN - $Part0 #
# $Z @ Npart = $Npart + 1 #
# #
# $Z $DELETE $xTV/COORDONNEES$COORD_X #
# $Z $DELETE $xTV/COORDONNEES$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_Z #
# $Z $DELETE $xTV/VITESSES #
# $Z $DELETE $xTV/VITESSES$COORD_X #
# $Z $DELETE $xTV/VITESSES$COORD_Y #
# $Z $DELETE $xTV/VITESSES$COORD_Z #
# $Z $DELETE $xTV/mdRHO #
# $Z $DELETE $xTV/MdRHO #
# $Z $DELETE $xTV/mnPHI #
# $Z $DELETE $xTV/MnPHI #
# $Z $DELETE $xTV/dPHI #
# $Z $DELETE $xTV/mnTHETA #
# $Z $DELETE $xTV/MnTHETA #
# $Z $DELETE $xTV/dTHETA #
# $Z $DELETE $xTV/supOUVE #
# $Z $DELETE $xTV/DISTANCE #
# $Z $DELETE $xTV/STABILITE #
# $Z $DELETE $xTV/RAYONS #
# $Z $DELETE $xTV/INTERACTIONS #
# #
# #
# $Z alias Gen 'set Fi=\!:1 ; set vD=\!:2 ; set vA=\!:3 ; set ArG=(\!:4*) ; \\ #
# $Z $DELETE $Fi ; \\ #
# $Z $xci/valeurs_inte$X p=$Part0 d=$PartN vD=$vD vA=$vA $ArG > $Fi ; \\ #
# $Z unset Fi vD vA ArG' #
# #
# $Z alias GenR 'set Fi=\!:1 ; set In=\!:2 ; set Su=\!:3 ; set ArG=(\!:4*) ; \\ #
# $Z $DELETE $Fi ; \\ #
# $Z $xci/valeurs_alea$X p=$Part0 d=$PartN signe="$KV" inf=$In sup=$Su $ArG > $Fi ; \\ #
# $Z unset Fi In Su ArG' #
# #
# $Z Gen $xTV/COORDONNEES$COORD_X -1.00 0.00 cubique=FAUX #
# $Z Gen $xTV/COORDONNEES$COORD_Y -0.5 -0.5 cubique=FAUX #
# #
# $Z Gen $xTV/COORDONNEES$COORD_Z 0.0 0.0 #
# #
# #
# $Z Gen $xTV/VITESSES$COORD_X 0.0 0.0 #
# $Z Gen $xTV/VITESSES$COORD_Y 0.02 0.02 #
# $Z Gen $xTV/VITESSES$COORD_Z 0.0 0.0 #
# #
# $Z Gen $xTV/mdRHO 0.0 0.0 #
# $Z Gen $xTV/MdRHO 0.0 0.0 #
# $Z Gen $xTV/mnPHI 0.0 0.0 #
# $Z Gen $xTV/MnPHI 0.0 0.0 #
# $Z Gen $xTV/dPHI 0.0 0.0 #
# $Z Gen $xTV/mnTHETA 0.0 0.0 #
# $Z Gen $xTV/MnTHETA 0.0 0.0 #
# $Z Gen $xTV/dTHETA 0.0 0.0 #
# $Z Gen $xTV/DISTANCE 1000000 1000000 #
# $Z Gen $xTV/STABILITE 1000000 1000000 #
# #
# $Z set RayonsT=0.014 #
# $Z set RayonsP=`$xcg/MUL2.01$X a=2 b=$RayonsT` #
# $Z set DistanceI=`$xcg/MUL2.01$X a=4 b=$RayonsP` #
# $Z Gen $xTV/RAYONS $RayonsT $RayonsT #
# $Z Gen $xTV/INTERACTIONS $RayonsP $RayonsP #
# #
# $Z $DELETE $xTV/COULEURS$TEINT #
# $Z $DELETE $xTV/COULEURS$LUMIN #
# $Z $DELETE $xTV/COULEURS$SATUR #
# $Z $DELETE $xTV/COULEURS$Y #
# $Z $DELETE $xTV/COULEURS #
# $Z $DELETE $xTV/COULEURS$ROUGE #
# $Z $DELETE $xTV/COULEURS$VERTE #
# $Z $DELETE $xTV/COULEURS$BLEUE #
# #
# $Z @ TeinteMagenta = $GRIS_7 #
# $Z @ TeinteCyan = $GRIS_4 + $GRIS_8 #
# #
# $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartN \ #
# $Z vD=$TeinteMagenta vA=$TeinteCyan \ #
# $Z cubique=FAUX \ #
# $Z entiers=VRAI \ #
# $Z > $xTV/COULEURS$TEINT #
# $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartN \ #
# $Z vD=$GRIS_4 vA=$GRIS_4 \ #
# $Z cubique=FAUX \ #
# $Z entiers=VRAI \ #
# $Z > $xTV/COULEURS$LUMIN #
# $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartN \ #
# $Z vD=$GRIS_8 vA=$GRIS_8 \ #
# $Z cubique=FAUX \ #
# $Z entiers=VRAI \ #
# $Z > $xTV/COULEURS$SATUR #
# #
# $Z $PAST \ #
# $Z $xTV/COULEURS$TEINT \ #
# $Z $xTV/COULEURS$LUMIN \ #
# $Z $xTV/COULEURS$SATUR \ #
# $Z | $R "$K_TAB" "$K_BLANC" \ #
# $Z | $AW ' { print "H=" $1 " L=" $2 " S=" $3 } ' \ #
# $Z | $SE -e 's+^+$xcg/RVB_HLS$X RVB_HLS=FAUX +' \ #
# $Z | $SE -e 's/$/ eR=VRAI eV=VRAI eB=VRAI/' \ #
# $Z | $SE -e 's/$/ eH=FAUX eL=FAUX eS=FAUX/' \ #
# $Z > $xTV/COULEURS$Y #
# #
# $Z (source $xTV/COULEURS$Y) \ #
# $Z > $xTV/COULEURS #
# #
# $Z $GRE "^R=" $xTV/COULEURS \ #
# $Z | $SE -e "s/^R=//" \ #
# $Z > $xTV/COULEURS$ROUGE #
# $Z $GRE "^V=" $xTV/COULEURS \ #
# $Z | $SE -e "s/^V=//" \ #
# $Z > $xTV/COULEURS$VERTE #
# $Z $GRE "^B=" $xTV/COULEURS \ #
# $Z | $SE -e "s/^B=//" \ #
# $Z > $xTV/COULEURS$BLEUE #
# #
# $Z $DELETE $xTV/BOITE.1 #
# $Z $DELETE $xTV/BOITE.2 #
# $Z $DELETE $xTV/BOITE.3 #
# $Z $DELETE $xTV/BOITE.3$ROUGE #
# $Z $DELETE $xTV/BOITE.3$VERTE #
# $Z $DELETE $xTV/BOITE.3$BLEUE #
# #
# $Z Sdu #
# #
# $Z S #
# #
# $Z set pis6=`$xcg/DIVZ.01$X n1=$pi n2=6 signe="$K_VIDE"` #
# #
# $Z $xci/init$X \ #
# $Z niveau=$BLANC \ #
# $Z $formatI | \ #
# $Z $xci/move$X \ #
# $Z yR=-0.56 \ #
# $Z $formatI | \ #
# $Z $xci/rotate$X \ #
# $Z angle=-$pis6 \ #
# $Z $formatI | \ #
# $Z $xci/format.01$X \ #
# $Z $formatI \ #
# $Z mode=7 \ #
# $Z $formatR_Pal | \ #
# $Z $xci/move$X \ #
# $Z xR=-0.10 \ #
# $Z $format_Pal | \ #
# $Z $xci/move$X \ #
# $Z xR=+0.06 \ #
# $Z $format_Pal | \ #
# $Z $xci/move$X \ #
# $Z yR=+0.15 \ #
# $Z $format_Pal | \ #
# $Z $xci/seuil$X \ #
# $Z seuil=$NOIR \ #
# $Z R=$xTV/BOITE.1 \ #
# $Z $format_Pal #
# #
# $Z Pal #
# #
# #
# $Z $xci/scale$X \ #
# $Z A=$xTV/BOITE.1 \ #
# $Z a=1.00 \ #
# $Z R=$xTV/BOITE.2 \ #
# $Z $formatI #
# #
# #
# $Z Pal #
# #
# $Z $xrk/rdn_walk.41$X corps=$Npart \ #
# $Z np=$Nimages \ #
# $Z collisions=FAUX DLA=FAUX interaction=$DistanceI \ #
# $Z LISTE_X=$xTV/COORDONNEES$COORD_X \ #
# $Z LISTE_Y=$xTV/COORDONNEES$COORD_Y \ #
# $Z LISTE_Z=$xTV/COORDONNEES$COORD_Z \ #
# $Z LISTE_VX=$xTV/VITESSES$COORD_X \ #
# $Z LISTE_VY=$xTV/VITESSES$COORD_Y \ #
# $Z LISTE_VZ=$xTV/VITESSES$COORD_Z \ #
# $Z LISTE_MINIMUM_DELTA_RHO=$xTV/mdRHO \ #
# $Z LISTE_MAXIMUM_DELTA_RHO=$xTV/MdRHO \ #
# $Z LISTE_MINIMUM_N_PHI=$xTV/mnPHI \ #
# $Z LISTE_MAXIMUM_N_PHI=$xTV/MnPHI \ #
# $Z LISTE_DELTA_PHI=$xTV/dPHI \ #
# $Z LISTE_MINIMUM_N_THETA=$xTV/mnTHETA \ #
# $Z LISTE_MAXIMUM_N_THETA=$xTV/MnTHETA \ #
# $Z LISTE_DELTA_THETA=$xTV/dTHETA \ #
# $Z LISTE_DISTANCE_MAXIMALE=$xTV/DISTANCE \ #
# $Z LISTE_STABILITE=$xTV/STABILITE \ #
# $Z LISTE_RAYON=$xTV/RAYONS \ #
# $Z LISTE_RAYON_D_INTERACTION=$xTV/INTERACTIONS \ #
# $Z LISTE_ROUGE=$xTV/COULEURS$ROUGE \ #
# $Z LISTE_VERTE=$xTV/COULEURS$VERTE \ #
# $Z LISTE_BLEUE=$xTV/COULEURS$BLEUE \ #
# $Z milieu=VRAI \ #
# $Z reflexion=VRAI refraction=FAUX \ #
# $Z Mhors=$BLANC \ #
# $Z MNpasX=8 Mprolonger_X=VRAI \ #
# $Z MNpasY=8 Mprolonger_Y=VRAI \ #
# $Z MNpasZ=8 Mprolonger_Z=VRAI \ #
# $Z adapter_M_nPAS=VRAI \ #
# $Z Msimplifier=FAUX affiner_M_maillage=FAUX \ #
# $Z Mspherique=VRAI \ #
# $Z Mfiltrer=VRAI Mtolerance=0.75 \ #
# $Z MC=$xTV/BOITE.2 \ #
# $Z MChiffres=0 \ #
# $Z Zmin=0 Zmax=15 \ #
# $Z centrer=VRAI \ #
# $Z dct=0.05 nombre=10 \ #
# $Z trainees=VRAI mode=1 \ #
# $Z attenuation_des_images=0.6 \ #
# $Z attenuation_des_trainees=1.00 \ #
# $Z renormaliser=FAUX \ #
# $Z Lz=100 \ #
# $Z zoom_automatique=VRAI \ #
# $Z centre_de_gravite=FAUX \ #
# $Z fond=FAUX \ #
# $Z R=$xiim/REFL.W. \ #
# $Z $formatI #
# #
# $Z $DELETE $xTV/RAYONS #
# $Z $CP $xTV/INTERACTIONS $xTV/RAYONS #
# #
# $Z $xrk/rdn_walk.41$X corps=$Npart \ #
# $Z np=$Nimages \ #
# $Z collisions=FAUX DLA=FAUX interaction=$DistanceI \ #
# $Z LISTE_X=$xTV/COORDONNEES$COORD_X \ #
# $Z LISTE_Y=$xTV/COORDONNEES$COORD_Y \ #
# $Z LISTE_Z=$xTV/COORDONNEES$COORD_Z \ #
# $Z LISTE_VX=$xTV/VITESSES$COORD_X \ #
# $Z LISTE_VY=$xTV/VITESSES$COORD_Y \ #
# $Z LISTE_VZ=$xTV/VITESSES$COORD_Z \ #
# $Z LISTE_MINIMUM_DELTA_RHO=$xTV/mdRHO \ #
# $Z LISTE_MAXIMUM_DELTA_RHO=$xTV/MdRHO \ #
# $Z LISTE_MINIMUM_N_PHI=$xTV/mnPHI \ #
# $Z LISTE_MAXIMUM_N_PHI=$xTV/MnPHI \ #
# $Z LISTE_DELTA_PHI=$xTV/dPHI \ #
# $Z LISTE_MINIMUM_N_THETA=$xTV/mnTHETA \ #
# $Z LISTE_MAXIMUM_N_THETA=$xTV/MnTHETA \ #
# $Z LISTE_DELTA_THETA=$xTV/dTHETA \ #
# $Z LISTE_DISTANCE_MAXIMALE=$xTV/DISTANCE \ #
# $Z LISTE_STABILITE=$xTV/STABILITE \ #
# $Z LISTE_RAYON=$xTV/RAYONS \ #
# $Z LISTE_RAYON_D_INTERACTION=$xTV/INTERACTIONS \ #
# $Z LISTE_ROUGE=$xTV/COULEURS$ROUGE \ #
# $Z LISTE_VERTE=$xTV/COULEURS$VERTE \ #
# $Z LISTE_BLEUE=$xTV/COULEURS$BLEUE \ #
# $Z milieu=VRAI \ #
# $Z reflexion=VRAI refraction=FAUX \ #
# $Z Mhors=$BLANC \ #
# $Z MNpasX=8 Mprolonger_X=VRAI \ #
# $Z MNpasY=8 Mprolonger_Y=VRAI \ #
# $Z MNpasZ=8 Mprolonger_Z=VRAI \ #
# $Z adapter_M_nPAS=VRAI \ #
# $Z Msimplifier=FAUX affiner_M_maillage=FAUX \ #
# $Z Mspherique=VRAI \ #
# $Z Mfiltrer=VRAI Mtolerance=0.75 \ #
# $Z MC=$xTV/BOITE.2 \ #
# $Z MChiffres=0 \ #
# $Z Zmin=0 Zmax=15 \ #
# $Z centrer=VRAI \ #
# $Z dct=0.05 nombre=10 \ #
# $Z trainees=VRAI mode=1 \ #
# $Z attenuation_des_images=1.0 \ #
# $Z attenuation_des_trainees=0.80 \ #
# $Z renormaliser=FAUX \ #
# $Z Lz=100 \ #
# $Z zoom_automatique=VRAI \ #
# $Z centre_de_gravite=FAUX \ #
# $Z fond=VRAI \ #
# $Z dynamique=VRAI \ #
# $Z F=$xiim/REFL.W. \ #
# $Z R=$xiim/REFL.W. \ #
# $Z $formatI #
# #
# $Z $DELETE $xTV/COORDONNEES$COORD_X #
# $Z $DELETE $xTV/COORDONNEES$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_Z #
# $Z $DELETE $xTV/VITESSES #
# $Z $DELETE $xTV/VITESSES$COORD_X #
# $Z $DELETE $xTV/VITESSES$COORD_Y #
# $Z $DELETE $xTV/VITESSES$COORD_Z #
# $Z $DELETE $xTV/mdRHO #
# $Z $DELETE $xTV/MdRHO #
# $Z $DELETE $xTV/mnPHI #
# $Z $DELETE $xTV/MnPHI #
# $Z $DELETE $xTV/dPHI #
# $Z $DELETE $xTV/mnTHETA #
# $Z $DELETE $xTV/MnTHETA #
# $Z $DELETE $xTV/dTHETA #
# $Z $DELETE $xTV/DISTANCE #
# $Z $DELETE $xTV/STABILITE #
# $Z $DELETE $xTV/RAYONS #
# $Z $DELETE $xTV/INTERACTIONS #
# $Z $DELETE $xTV/COULEURS$TEINT #
# $Z $DELETE $xTV/COULEURS$LUMIN #
# $Z $DELETE $xTV/COULEURS$SATUR #
# $Z $DELETE $xTV/COULEURS$Y #
# $Z $DELETE $xTV/COULEURS #
# $Z $DELETE $xTV/COULEURS$ROUGE #
# $Z $DELETE $xTV/COULEURS$VERTE #
# $Z $DELETE $xTV/COULEURS$BLEUE #
# #
# #
# $Z $xci/complement$X A=$xTV/BOITE.1 \ #
# $Z R=$xTV/BOITE.3 \ #
# $Z $formatI #
# #
# $Z eval `$xci/genere$X \\\ #
# $Z commande='($xci/scale$X \\\ #
# $Z A=$xTV/BOITE.3 \\\ #
# $Z a=0.50 \\\ #
# $Z R=$xTV/BOITE.3%s \\\ #
# $Z $formatI)' \\\ #
# $Z en_tete=FAUX RVB=VRAI separateur=VRAI` #
# #
# #
# $X $xci/genere$X premiere=$Premiere derniere=$Derniere pas=1 \ #
# $X C='$xci/cache.11$Z \ #
# $X $xiim/REFL.W.%04d \ #
# $X $xTV/BOITE.3 \ #
# $X $xiim/REFL.5.%04d' #
# #
# $Z $DELETE $xTV/BOITE.1 #
# $Z $DELETE $xTV/BOITE.2 #
# $Z $DELETE $xTV/BOITE.3 #
# $Z $DELETE $xTV/BOITE.3$ROUGE #
# $Z $DELETE $xTV/BOITE.3$VERTE #
# $Z $DELETE $xTV/BOITE.3$BLEUE #
# #
# $Z Pal #
# #
# $Z $xci/reduction_16$Z $xiim/REFL.5. $xiak/REFL.B1 $Premiere $Derniere #
# $Z $xci/reduction_64$Z $xiim/REFL.5. $xiak/REFL.B1 $Premiere $Derniere #
# #
# $X $xci/genere$X c='ro $xiak/REFL.B1$R16%s' RVB=VRAI #
# $X $xci/genere$X c='ro $xiak/REFL.B1$R64%s' RVB=VRAI #
# #
# $X $xci/genere$X c='$xcg/unite$Z $xiak/REFL.B1$R16%s' RVB=VRAI #
# $X $xci/genere$X c='$xcg/unite$Z $xiak/REFL.B1$R64%s' RVB=VRAI #
# #
# $X $xci/genere$X c='$CP $xiim/REFL.5.0512%s $xiirk/REFL.B1.0512%s' RVB=VRAI #
# #
# $X $xci/genere$X c='ro $xiirk/REFL.B1.0512%s' RVB=VRAI #
# #
# $X $xci/genere$X c='$xcg/unite$Z $xiirk/REFL.B1.0512%s' RVB=VRAI #
# #
# #
# Pal #
# #
# #
# $xci/disk_video_P$Z $xiim_LACT29/REFL.5. 001 512 RVB \ #
# 11 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
# #
# xivPdf 3 2 #
# #
# record.01$Z $xiak/REFL.B1$R16 RVB Initialisation #
# record.01$Z $xiak/REFL.B1$R64 RVB rien #
# record.01$Z $xiirk/REFL.B1.0512 RVB rien #
# #
sequence 008193_008704
# Generee (sur '$LACT29') par : #
# #
# $Z SET Premiere=1 #
# $Z SET Derniere=512 #
# $Z @ Nimages = $Derniere - $Premiere #
# $Z @ Nimages = $Nimages + 1 #
# #
# $Z set Part0=1 #
# $Z set PartN=1 #
# $Z @ Npart = $PartN - $Part0 #
# $Z @ Npart = $Npart + 1 #
# #
# $Z $DELETE $xTV/COORDONNEES$COORD_X #
# $Z $DELETE $xTV/COORDONNEES$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_Z #
# $Z $DELETE $xTV/VITESSES #
# $Z $DELETE $xTV/VITESSES$COORD_X #
# $Z $DELETE $xTV/VITESSES$COORD_Y #
# $Z $DELETE $xTV/VITESSES$COORD_Z #
# $Z $DELETE $xTV/mdRHO #
# $Z $DELETE $xTV/MdRHO #
# $Z $DELETE $xTV/mnPHI #
# $Z $DELETE $xTV/MnPHI #
# $Z $DELETE $xTV/dPHI #
# $Z $DELETE $xTV/mnTHETA #
# $Z $DELETE $xTV/MnTHETA #
# $Z $DELETE $xTV/dTHETA #
# $Z $DELETE $xTV/supOUVE #
# $Z $DELETE $xTV/DISTANCE #
# $Z $DELETE $xTV/STABILITE #
# $Z $DELETE $xTV/RAYONS #
# $Z $DELETE $xTV/INTERACTIONS #
# #
# #
# $Z alias Gen 'set Fi=\!:1 ; set vD=\!:2 ; set vA=\!:3 ; set ArG=(\!:4*) ; \\ #
# $Z $DELETE $Fi ; \\ #
# $Z $xci/valeurs_inte$X p=$Part0 d=$PartN vD=$vD vA=$vA $ArG > $Fi ; \\ #
# $Z unset Fi vD vA ArG' #
# #
# $Z alias GenR 'set Fi=\!:1 ; set In=\!:2 ; set Su=\!:3 ; set ArG=(\!:4*) ; \\ #
# $Z $DELETE $Fi ; \\ #
# $Z $xci/valeurs_alea$X p=$Part0 d=$PartN signe="$KV" inf=$In sup=$Su $ArG > $Fi ; \\ #
# $Z unset Fi In Su ArG' #
# #
# $Z Gen $xTV/COORDONNEES$COORD_X 0.00 0.00 cubique=FAUX #
# $Z Gen $xTV/COORDONNEES$COORD_Y -0.5 -0.5 cubique=FAUX #
# #
# $Z Gen $xTV/COORDONNEES$COORD_Z 0.0 0.0 #
# #
# #
# $Z Gen $xTV/VITESSES$COORD_X 0.02 0.02 #
# $Z Gen $xTV/VITESSES$COORD_Y 0.02 0.02 #
# $Z Gen $xTV/VITESSES$COORD_Z 0.0 0.0 #
# #
# $Z Gen $xTV/mdRHO 0.0 0.0 #
# $Z Gen $xTV/MdRHO 0.0 0.0 #
# $Z Gen $xTV/mnPHI 0.0 0.0 #
# $Z Gen $xTV/MnPHI 0.0 0.0 #
# $Z Gen $xTV/dPHI 0.0 0.0 #
# $Z Gen $xTV/mnTHETA 0.0 0.0 #
# $Z Gen $xTV/MnTHETA 0.0 0.0 #
# $Z Gen $xTV/dTHETA 0.0 0.0 #
# $Z Gen $xTV/DISTANCE 1000000 1000000 #
# $Z Gen $xTV/STABILITE 1000000 1000000 #
# #
# $Z set RayonsT=0.014 #
# $Z set RayonsP=`$xcg/MUL2.01$X a=2 b=$RayonsT` #
# $Z set DistanceI=`$xcg/MUL2.01$X a=4 b=$RayonsP` #
# $Z Gen $xTV/RAYONS $RayonsT $RayonsT #
# $Z Gen $xTV/INTERACTIONS $RayonsP $RayonsP #
# #
# $Z $DELETE $xTV/COULEURS$TEINT #
# $Z $DELETE $xTV/COULEURS$LUMIN #
# $Z $DELETE $xTV/COULEURS$SATUR #
# $Z $DELETE $xTV/COULEURS$Y #
# $Z $DELETE $xTV/COULEURS #
# $Z $DELETE $xTV/COULEURS$ROUGE #
# $Z $DELETE $xTV/COULEURS$VERTE #
# $Z $DELETE $xTV/COULEURS$BLEUE #
# #
# $Z @ TeinteMagenta = $GRIS_7 #
# $Z @ TeinteCyan = $GRIS_4 + $GRIS_8 #
# #
# $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartN \ #
# $Z vD=$TeinteMagenta vA=$TeinteCyan \ #
# $Z cubique=FAUX \ #
# $Z entiers=VRAI \ #
# $Z > $xTV/COULEURS$TEINT #
# $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartN \ #
# $Z vD=$GRIS_4 vA=$GRIS_4 \ #
# $Z cubique=FAUX \ #
# $Z entiers=VRAI \ #
# $Z > $xTV/COULEURS$LUMIN #
# $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartN \ #
# $Z vD=$GRIS_8 vA=$GRIS_8 \ #
# $Z cubique=FAUX \ #
# $Z entiers=VRAI \ #
# $Z > $xTV/COULEURS$SATUR #
# #
# $Z $PAST \ #
# $Z $xTV/COULEURS$TEINT \ #
# $Z $xTV/COULEURS$LUMIN \ #
# $Z $xTV/COULEURS$SATUR \ #
# $Z | $R "$K_TAB" "$K_BLANC" \ #
# $Z | $AW ' { print "H=" $1 " L=" $2 " S=" $3 } ' \ #
# $Z | $SE -e 's+^+$xcg/RVB_HLS$X RVB_HLS=FAUX +' \ #
# $Z | $SE -e 's/$/ eR=VRAI eV=VRAI eB=VRAI/' \ #
# $Z | $SE -e 's/$/ eH=FAUX eL=FAUX eS=FAUX/' \ #
# $Z > $xTV/COULEURS$Y #
# #
# $Z (source $xTV/COULEURS$Y) \ #
# $Z > $xTV/COULEURS #
# #
# $Z $GRE "^R=" $xTV/COULEURS \ #
# $Z | $SE -e "s/^R=//" \ #
# $Z > $xTV/COULEURS$ROUGE #
# $Z $GRE "^V=" $xTV/COULEURS \ #
# $Z | $SE -e "s/^V=//" \ #
# $Z > $xTV/COULEURS$VERTE #
# $Z $GRE "^B=" $xTV/COULEURS \ #
# $Z | $SE -e "s/^B=//" \ #
# $Z > $xTV/COULEURS$BLEUE #
# #
# $Z $DELETE $xTV/BOITE.1 #
# $Z $DELETE $xTV/BOITE.2 #
# $Z $DELETE $xTV/BOITE.3 #
# $Z $DELETE $xTV/BOITE.3$ROUGE #
# $Z $DELETE $xTV/BOITE.3$VERTE #
# $Z $DELETE $xTV/BOITE.3$BLEUE #
# #
# $Z Std #
# #
# $Z S #
# #
# $Z set SeuilBOITE=$GRIS_2 #
# #
# $Z $xci/complement$X \ #
# $Z A=$xiio/SPIRALE \ #
# $Z $formatI | \ #
# $Z $xci/seuil$X \ #
# $Z seuil=$SeuilBOITE \ #
# $Z $formatI | \ #
# $Z $xci/format.01$X mode=7 \ #
# $Z $formatI \ #
# $Z R=$xTV/BOITE.1 \ #
# $Z $formatR_Pal #
# #
# $Z Pal #
# #
# #
# $Z $xci/scale$X \ #
# $Z A=$xTV/BOITE.1 \ #
# $Z a=1.00 \ #
# $Z R=$xTV/BOITE.2 \ #
# $Z $formatI #
# #
# #
# $Z Pal #
# #
# $Z $xrk/rdn_walk.41$X corps=$Npart \ #
# $Z np=$Nimages \ #
# $Z collisions=FAUX DLA=FAUX interaction=$DistanceI \ #
# $Z LISTE_X=$xTV/COORDONNEES$COORD_X \ #
# $Z LISTE_Y=$xTV/COORDONNEES$COORD_Y \ #
# $Z LISTE_Z=$xTV/COORDONNEES$COORD_Z \ #
# $Z LISTE_VX=$xTV/VITESSES$COORD_X \ #
# $Z LISTE_VY=$xTV/VITESSES$COORD_Y \ #
# $Z LISTE_VZ=$xTV/VITESSES$COORD_Z \ #
# $Z LISTE_MINIMUM_DELTA_RHO=$xTV/mdRHO \ #
# $Z LISTE_MAXIMUM_DELTA_RHO=$xTV/MdRHO \ #
# $Z LISTE_MINIMUM_N_PHI=$xTV/mnPHI \ #
# $Z LISTE_MAXIMUM_N_PHI=$xTV/MnPHI \ #
# $Z LISTE_DELTA_PHI=$xTV/dPHI \ #
# $Z LISTE_MINIMUM_N_THETA=$xTV/mnTHETA \ #
# $Z LISTE_MAXIMUM_N_THETA=$xTV/MnTHETA \ #
# $Z LISTE_DELTA_THETA=$xTV/dTHETA \ #
# $Z LISTE_DISTANCE_MAXIMALE=$xTV/DISTANCE \ #
# $Z LISTE_STABILITE=$xTV/STABILITE \ #
# $Z LISTE_RAYON=$xTV/RAYONS \ #
# $Z LISTE_RAYON_D_INTERACTION=$xTV/INTERACTIONS \ #
# $Z LISTE_ROUGE=$xTV/COULEURS$ROUGE \ #
# $Z LISTE_VERTE=$xTV/COULEURS$VERTE \ #
# $Z LISTE_BLEUE=$xTV/COULEURS$BLEUE \ #
# $Z milieu=VRAI \ #
# $Z reflexion=VRAI refraction=FAUX \ #
# $Z Mhors=$BLANC \ #
# $Z MNpasX=8 Mprolonger_X=VRAI \ #
# $Z MNpasY=8 Mprolonger_Y=VRAI \ #
# $Z MNpasZ=8 Mprolonger_Z=VRAI \ #
# $Z adapter_M_nPAS=VRAI \ #
# $Z Msimplifier=FAUX affiner_M_maillage=FAUX \ #
# $Z Mspherique=VRAI \ #
# $Z Mfiltrer=VRAI Mtolerance=0.75 \ #
# $Z MC=$xTV/BOITE.2 \ #
# $Z MChiffres=0 \ #
# $Z Zmin=0 Zmax=15 \ #
# $Z centrer=VRAI \ #
# $Z dct=0.05 nombre=10 \ #
# $Z trainees=VRAI mode=1 \ #
# $Z attenuation_des_images=0.6 \ #
# $Z attenuation_des_trainees=1.00 \ #
# $Z renormaliser=FAUX \ #
# $Z Lz=100 \ #
# $Z zoom_automatique=VRAI \ #
# $Z centre_de_gravite=FAUX \ #
# $Z fond=FAUX \ #
# $Z R=$xiim/REFL.W. \ #
# $Z $formatI #
# #
# $Z $DELETE $xTV/RAYONS #
# $Z $CP $xTV/INTERACTIONS $xTV/RAYONS #
# #
# $Z $xrk/rdn_walk.41$X corps=$Npart \ #
# $Z np=$Nimages \ #
# $Z collisions=FAUX DLA=FAUX interaction=$DistanceI \ #
# $Z LISTE_X=$xTV/COORDONNEES$COORD_X \ #
# $Z LISTE_Y=$xTV/COORDONNEES$COORD_Y \ #
# $Z LISTE_Z=$xTV/COORDONNEES$COORD_Z \ #
# $Z LISTE_VX=$xTV/VITESSES$COORD_X \ #
# $Z LISTE_VY=$xTV/VITESSES$COORD_Y \ #
# $Z LISTE_VZ=$xTV/VITESSES$COORD_Z \ #
# $Z LISTE_MINIMUM_DELTA_RHO=$xTV/mdRHO \ #
# $Z LISTE_MAXIMUM_DELTA_RHO=$xTV/MdRHO \ #
# $Z LISTE_MINIMUM_N_PHI=$xTV/mnPHI \ #
# $Z LISTE_MAXIMUM_N_PHI=$xTV/MnPHI \ #
# $Z LISTE_DELTA_PHI=$xTV/dPHI \ #
# $Z LISTE_MINIMUM_N_THETA=$xTV/mnTHETA \ #
# $Z LISTE_MAXIMUM_N_THETA=$xTV/MnTHETA \ #
# $Z LISTE_DELTA_THETA=$xTV/dTHETA \ #
# $Z LISTE_DISTANCE_MAXIMALE=$xTV/DISTANCE \ #
# $Z LISTE_STABILITE=$xTV/STABILITE \ #
# $Z LISTE_RAYON=$xTV/RAYONS \ #
# $Z LISTE_RAYON_D_INTERACTION=$xTV/INTERACTIONS \ #
# $Z LISTE_ROUGE=$xTV/COULEURS$ROUGE \ #
# $Z LISTE_VERTE=$xTV/COULEURS$VERTE \ #
# $Z LISTE_BLEUE=$xTV/COULEURS$BLEUE \ #
# $Z milieu=VRAI \ #
# $Z reflexion=VRAI refraction=FAUX \ #
# $Z Mhors=$BLANC \ #
# $Z MNpasX=8 Mprolonger_X=VRAI \ #
# $Z MNpasY=8 Mprolonger_Y=VRAI \ #
# $Z MNpasZ=8 Mprolonger_Z=VRAI \ #
# $Z adapter_M_nPAS=VRAI \ #
# $Z Msimplifier=FAUX affiner_M_maillage=FAUX \ #
# $Z Mspherique=VRAI \ #
# $Z Mfiltrer=VRAI Mtolerance=0.75 \ #
# $Z MC=$xTV/BOITE.2 \ #
# $Z MChiffres=0 \ #
# $Z Zmin=0 Zmax=15 \ #
# $Z centrer=VRAI \ #
# $Z dct=0.05 nombre=10 \ #
# $Z trainees=VRAI mode=1 \ #
# $Z attenuation_des_images=1.0 \ #
# $Z attenuation_des_trainees=0.80 \ #
# $Z renormaliser=FAUX \ #
# $Z Lz=100 \ #
# $Z zoom_automatique=VRAI \ #
# $Z centre_de_gravite=FAUX \ #
# $Z fond=VRAI \ #
# $Z dynamique=VRAI \ #
# $Z F=$xiim/REFL.W. \ #
# $Z R=$xiim/REFL.W. \ #
# $Z $formatI #
# #
# $Z $DELETE $xTV/COORDONNEES$COORD_X #
# $Z $DELETE $xTV/COORDONNEES$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_Z #
# $Z $DELETE $xTV/VITESSES #
# $Z $DELETE $xTV/VITESSES$COORD_X #
# $Z $DELETE $xTV/VITESSES$COORD_Y #
# $Z $DELETE $xTV/VITESSES$COORD_Z #
# $Z $DELETE $xTV/mdRHO #
# $Z $DELETE $xTV/MdRHO #
# $Z $DELETE $xTV/mnPHI #
# $Z $DELETE $xTV/MnPHI #
# $Z $DELETE $xTV/dPHI #
# $Z $DELETE $xTV/mnTHETA #
# $Z $DELETE $xTV/MnTHETA #
# $Z $DELETE $xTV/dTHETA #
# $Z $DELETE $xTV/DISTANCE #
# $Z $DELETE $xTV/STABILITE #
# $Z $DELETE $xTV/RAYONS #
# $Z $DELETE $xTV/INTERACTIONS #
# $Z $DELETE $xTV/COULEURS$TEINT #
# $Z $DELETE $xTV/COULEURS$LUMIN #
# $Z $DELETE $xTV/COULEURS$SATUR #
# $Z $DELETE $xTV/COULEURS$Y #
# $Z $DELETE $xTV/COULEURS #
# $Z $DELETE $xTV/COULEURS$ROUGE #
# $Z $DELETE $xTV/COULEURS$VERTE #
# $Z $DELETE $xTV/COULEURS$BLEUE #
# #
# #
# $Z $xci/complement$X A=$xTV/BOITE.1 \ #
# $Z R=$xTV/BOITE.3 \ #
# $Z $formatI #
# #
# $Z eval `$xci/genere$X \\\ #
# $Z commande='($xci/scale$X \\\ #
# $Z A=$xTV/BOITE.3 \\\ #
# $Z a=0.50 \\\ #
# $Z R=$xTV/BOITE.3%s \\\ #
# $Z $formatI)' \\\ #
# $Z en_tete=FAUX RVB=VRAI separateur=VRAI` #
# #
# #
# $X $xci/genere$X premiere=$Premiere derniere=$Derniere pas=1 \ #
# $X C='$xci/cache.11$Z \ #
# $X $xiim/REFL.W.%04d \ #
# $X $xTV/BOITE.3 \ #
# $X $xiim/REFL.6.%04d' #
# #
# $Z $DELETE $xTV/BOITE.1 #
# $Z $DELETE $xTV/BOITE.2 #
# $Z $DELETE $xTV/BOITE.3 #
# $Z $DELETE $xTV/BOITE.3$ROUGE #
# $Z $DELETE $xTV/BOITE.3$VERTE #
# $Z $DELETE $xTV/BOITE.3$BLEUE #
# #
# $Z Pal #
# #
# $Z $xci/reduction_16$Z $xiim/REFL.6. $xiak/REFL.C1 $Premiere $Derniere #
# $Z $xci/reduction_64$Z $xiim/REFL.6. $xiak/REFL.C1 $Premiere $Derniere #
# #
# $X $xci/genere$X c='ro $xiak/REFL.C1$R16%s' RVB=VRAI #
# $X $xci/genere$X c='ro $xiak/REFL.C1$R64%s' RVB=VRAI #
# #
# $X $xci/genere$X c='$xcg/unite$Z $xiak/REFL.C1$R16%s' RVB=VRAI #
# $X $xci/genere$X c='$xcg/unite$Z $xiak/REFL.C1$R64%s' RVB=VRAI #
# #
# $X $xci/genere$X c='$CP $xiim/REFL.6.0512%s $xiirk/REFL.C1.0512%s' RVB=VRAI #
# #
# $X $xci/genere$X c='ro $xiirk/REFL.C1.0512%s' RVB=VRAI #
# #
# $X $xci/genere$X c='$xcg/unite$Z $xiirk/REFL.C1.0512%s' RVB=VRAI #
# #
# #
# Pal #
# #
# #
# $xci/disk_video_P$Z $xiim_LACT29/REFL.6. 001 512 RVB \ #
# 11 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
# #
# xivPdf 3 2 #
# #
# record.01$Z $xiak/REFL.C1$R16 RVB Initialisation #
# record.01$Z $xiak/REFL.C1$R64 RVB rien #
# record.01$Z $xiirk/REFL.C1.0512 RVB rien #
# #
sequence 008705_009216
# Generee (sur '$LACT29') par : #
# #
# $Z SET Premiere=1 #
# $Z SET Derniere=512 #
# $Z @ Nimages = $Derniere - $Premiere #
# $Z @ Nimages = $Nimages + 1 #
# #
# #
# $Z Pal #
# #
# $Z set PUnivers="np=0 CAL1=FAUX editer_l_univers_physique=VRAI" #
# $Z set Univers=`$xrk/rdn_walk.41$X $PUnivers $formatI` #
# #
# $Z set MinX=`echo $Univers | $SE -e "s/^.*[(,]XUI=//" -e "s/[,)].*//"` #
# $Z set MaxX=`echo $Univers | $SE -e "s/^.*[(,]XUS=//" -e "s/[,)].*//"` #
# $Z set MinY=`echo $Univers | $SE -e "s/^.*[(,]YUI=//" -e "s/[,)].*//"` #
# $Z set MaxY=`echo $Univers | $SE -e "s/^.*[(,]YUS=//" -e "s/[,)].*//"` #
# #
# $Z set MinX=`$xcg/ABSO.01$X x=$MinX` #
# $Z set MaxX=`$xcg/ABSO.01$X x=$MaxX` #
# $Z set MinY=`$xcg/ABSO.01$X x=$MinY` #
# $Z set MaxY=`$xcg/ABSO.01$X x=$MaxY` #
# #
# $Z set MaxX=`$xcg/MAX2.01$X n1=$MinX n2=$MaxX` #
# $Z set MaxY=`$xcg/MAX2.01$X n1=$MinY n2=$MaxY` #
# #
# $Z set SeuilPartN=0.000050 #
# $Z set GrainePartN=2 #
# #
# $Z $DELETE $xTV/BOITE.1 #
# $Z $DELETE $xTV/BOITE.2 #
# $Z $DELETE $xTV/BOITE.3 #
# $Z $DELETE $xTV/BOITE.3$ROUGE #
# $Z $DELETE $xTV/BOITE.3$VERTE #
# $Z $DELETE $xTV/BOITE.3$BLEUE #
# $Z $DELETE $xTV/BOITE.4 #
# $Z $DELETE $xTV/BOITE.5 #
# $Z $DELETE $xTV/BOITE.6 #
# $Z $DELETE $xTV/BOITE.7 #
# $Z $DELETE $xTV/BOITE.8 #
# $Z $DELETE $xTV/BOITE.9 #
# $Z $DELETE $xTV/BOITE.A #
# $Z $DELETE $xTV/BOITE.B #
# #
# #
# $Z Std #
# #
# $Z $xci/complement$X \ #
# $Z A=$xiio/SPIRALE \ #
# $Z R=$xTV/BOITE.4 \ #
# $Z $formatI #
# $Z $xci/seuil$X \ #
# $Z A=$xTV/BOITE.4 \ #
# $Z seuil=$GRIS_6 \ #
# $Z R=$xTV/BOITE.9 \ #
# $Z $formatI #
# #
# $Z $xci/reduction_04$X \ #
# $Z A=$xTV/BOITE.4 \ #
# $Z chiffres=0 \ #
# $Z moyenne=FAUX \ #
# $Z $formatI | \ #
# $Z $xci/or_02$X \ #
# $Z A2=$xTV/BOITE.9 \ #
# $Z $formatI | \ #
# $Z $xci/seuil$X \ #
# $Z seuil=$GRIS_1 \ #
# $Z R=$xTV/BOITE.5 \ #
# $Z $formatI #
# #
# $Z $xci/reduction_04$X \ #
# $Z A=$xTV/BOITE.5 \ #
# $Z chiffres=0 \ #
# $Z moyenne=FAUX \ #
# $Z $formatI | \ #
# $Z $xci/or_02$X \ #
# $Z A2=$xTV/BOITE.9 \ #
# $Z R=$xTV/BOITE.6 \ #
# $Z $formatI #
# #
# $Z S #
# #
# $Z $xci/format.01$X mode=0 \ #
# $Z A=$xTV/BOITE.6 \ #
# $Z $formatI \ #
# $Z R=$xTV/BOITE.1 \ #
# $Z $formatR_Pal #
# #
# $Z $xci/dilate.01$X \ #
# $Z A=$xTV/BOITE.6 \ #
# $Z points=225 \ #
# $Z dilater=FAUX \ #
# $Z R=$xTV/BOITE.A \ #
# $Z $formatI #
# #
# $Z $xci/random.02$X \ #
# $Z seuil=$SeuilPartN \ #
# $Z graine=$GrainePartN \ #
# $Z $formatI | \ #
# $Z $xci/and$X \ #
# $Z A2=$xTV/BOITE.A \ #
# $Z R=$xTV/BOITE.B \ #
# $Z $formatI #
# #
# $Z $DELETE $xTV/COORDONNEES #
# $Z $DELETE $xTV/COORDONNEES_01$COORD_X #
# $Z $DELETE $xTV/COORDONNEES_01$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_X #
# $Z $DELETE $xTV/COORDONNEES$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_Z #
# #
# $Z $xci/liste_points$X \ #
# $Z A=$xTV/BOITE.B \ #
# $Z $formatI \ #
# $Z > $xTV/COORDONNEES #
# #
# $Z $DELETE $xTV/BOITE.4 #
# $Z $DELETE $xTV/BOITE.5 #
# $Z $DELETE $xTV/BOITE.6 #
# $Z $DELETE $xTV/BOITE.7 #
# $Z $DELETE $xTV/BOITE.8 #
# $Z $DELETE $xTV/BOITE.9 #
# $Z $DELETE $xTV/BOITE.A #
# $Z $DELETE $xTV/BOITE.B #
# #
# $Z set PartN=`$TAI -1 $xTV/COORDONNEES | $SE -e "s/^.*=//"` #
# #
# $Z $CA $xTV/COORDONNEES \ #
# $Z | $GRE "^[Xx]=" \ #
# $Z | $SE -e "s/^[Xx]=//" \ #
# $Z > $xTV/COORDONNEES_01$COORD_X #
# $Z $CA $xTV/COORDONNEES \ #
# $Z | $GRE "^[Yy]=" \ #
# $Z | $SE -e "s/^[Yy]=//" \ #
# $Z > $xTV/COORDONNEES_01$COORD_Y #
# #
# $Z set EchelleX=`$xcg/MUL2.01$X n1=2 n2=$MaxX` #
# $Z set TranslationX=`$xcg/MUL2.01$X n1=-1 n2=$MaxX` #
# $Z set EchelleY=`$xcg/MUL2.01$X n1=2 n2=$MaxY` #
# $Z set TranslationY=`$xcg/MUL2.01$X n1=-1 n2=$MaxY` #
# #
# $Z $xrv/AXPB.01$X \ #
# $Z CAL1=FAUX \ #
# $Z ne=$PartN \ #
# $Z fichier=$xTV/COORDONNEES_01$COORD_X \ #
# $Z homothetie=$EchelleX translation=$TranslationX \ #
# $Z > $xTV/COORDONNEES$COORD_X #
# $Z $xrv/AXPB.01$X \ #
# $Z CAL1=FAUX \ #
# $Z ne=$PartN \ #
# $Z fichier=$xTV/COORDONNEES_01$COORD_Y \ #
# $Z homothetie=$EchelleY translation=$TranslationY \ #
# $Z > $xTV/COORDONNEES$COORD_Y #
# #
# $Z $DELETE $xTV/COORDONNEES_01$COORD_X #
# $Z $DELETE $xTV/COORDONNEES_01$COORD_Y #
# #
# $Z set Part0=1 #
# $Z @ Npart = $PartN - $Part0 #
# $Z @ Npart = $Npart + 1 #
# #
# $Z $DELETE $xTV/MODULE #
# $Z $DELETE $xTV/THETA #
# $Z $DELETE $xTV/XY_RT.1 #
# $Z $DELETE $xTV/XY_RT.2 #
# $Z $DELETE $xTV/VITESSES #
# $Z $DELETE $xTV/VITESSES$COORD_X #
# $Z $DELETE $xTV/VITESSES$COORD_Y #
# $Z $DELETE $xTV/VITESSES$COORD_Z #
# $Z $DELETE $xTV/mdRHO #
# $Z $DELETE $xTV/MdRHO #
# $Z $DELETE $xTV/mnPHI #
# $Z $DELETE $xTV/MnPHI #
# $Z $DELETE $xTV/dPHI #
# $Z $DELETE $xTV/mnTHETA #
# $Z $DELETE $xTV/MnTHETA #
# $Z $DELETE $xTV/dTHETA #
# $Z $DELETE $xTV/supOUVE #
# $Z $DELETE $xTV/DISTANCE #
# $Z $DELETE $xTV/STABILITE #
# $Z $DELETE $xTV/RAYONS #
# $Z $DELETE $xTV/INTERACTIONS #
# #
# #
# $Z alias Gen 'set Fi=\!:1 ; set vD=\!:2 ; set vA=\!:3 ; set ArG=(\!:4*) ; \\ #
# $Z $DELETE $Fi ; \\ #
# $Z $xci/valeurs_inte$X p=$Part0 d=$PartN vD=$vD vA=$vA $ArG > $Fi ; \\ #
# $Z unset Fi vD vA ArG' #
# #
# $Z alias GenR 'set Fi=\!:1 ; set In=\!:2 ; set Su=\!:3 ; set ArG=(\!:4*) ; \\ #
# $Z $DELETE $Fi ; \\ #
# $Z $xci/valeurs_alea$X p=$Part0 d=$PartN signe="$KV" inf=$In sup=$Su $ArG > $Fi ; \\ #
# $Z unset Fi In Su ArG' #
# #
# $Z Gen $xTV/COORDONNEES$COORD_Z 0.0 0.0 #
# #
# #
# $Z Gen $xTV/MODULE 0.02 0.02 #
# $Z GenR $xTV/THETA 0.0 $dpi g=3333 #
# #
# $Z $CA $xcs/csh$Y \ #
# $Z > $xTV/XY_RT.1 #
# $Z $PAST $xTV/MODULE $xTV/THETA \ #
# $Z | $R "$K_TAB" "$K_BLANC" \ #
# $Z | $AW ' { print "$xcg/XY_RT$X r=" $1 " t=" $2 " cartesien=FAUX" } ' \ #
# $Z >>! $xTV/XY_RT.1 #
# #
# $Z (source $xTV/XY_RT.1) \ #
# $Z > $xTV/XY_RT.2 #
# #
# $Z $CA $xTV/XY_RT.2 \ #
# $Z | $GRE "^x=" \ #
# $Z | $SE -e "s/^x=//" \ #
# $Z > $xTV/VITESSES$COORD_X #
# $Z $CA $xTV/XY_RT.2 \ #
# $Z | $GRE "^y=" \ #
# $Z | $SE -e "s/^y=//" \ #
# $Z > $xTV/VITESSES$COORD_Y #
# #
# $Z Gen $xTV/VITESSES$COORD_Z 0.0 0.0 #
# #
# $Z Gen $xTV/mdRHO 0.0 0.0 #
# $Z Gen $xTV/MdRHO 0.0 0.0 #
# $Z Gen $xTV/mnPHI 0.0 0.0 #
# $Z Gen $xTV/MnPHI 0.0 0.0 #
# $Z Gen $xTV/dPHI 0.0 0.0 #
# $Z Gen $xTV/mnTHETA 0.0 0.0 #
# $Z Gen $xTV/MnTHETA 0.0 0.0 #
# $Z Gen $xTV/dTHETA 0.0 0.0 #
# $Z Gen $xTV/DISTANCE 1000000 1000000 #
# $Z Gen $xTV/STABILITE 1000000 1000000 #
# #
# $Z set RayonsT=0.014 #
# $Z set RayonsP=`$xcg/MUL2.01$X a=2 b=$RayonsT` #
# $Z set DistanceI=`$xcg/MUL2.01$X a=4 b=$RayonsP` #
# $Z Gen $xTV/RAYONS $RayonsT $RayonsT #
# $Z Gen $xTV/INTERACTIONS $RayonsP $RayonsP #
# #
# $Z $DELETE $xTV/COULEURS$TEINT #
# $Z $DELETE $xTV/COULEURS$LUMIN #
# $Z $DELETE $xTV/COULEURS$SATUR #
# $Z $DELETE $xTV/COULEURS$Y #
# $Z $DELETE $xTV/COULEURS #
# $Z $DELETE $xTV/COULEURS$ROUGE #
# $Z $DELETE $xTV/COULEURS$VERTE #
# $Z $DELETE $xTV/COULEURS$BLEUE #
# #
# $Z @ TeinteMagenta = $GRIS_7 #
# $Z @ TeinteCyan = $GRIS_4 + $GRIS_8 #
# #
# $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartN \ #
# $Z vD=$TeinteMagenta vA=$TeinteCyan \ #
# $Z cubique=FAUX \ #
# $Z entiers=VRAI \ #
# $Z > $xTV/COULEURS$TEINT #
# $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartN \ #
# $Z vD=$GRIS_4 vA=$GRIS_4 \ #
# $Z cubique=FAUX \ #
# $Z entiers=VRAI \ #
# $Z > $xTV/COULEURS$LUMIN #
# $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartN \ #
# $Z vD=$GRIS_8 vA=$GRIS_8 \ #
# $Z cubique=FAUX \ #
# $Z entiers=VRAI \ #
# $Z > $xTV/COULEURS$SATUR #
# #
# $Z $PAST \ #
# $Z $xTV/COULEURS$TEINT \ #
# $Z $xTV/COULEURS$LUMIN \ #
# $Z $xTV/COULEURS$SATUR \ #
# $Z | $R "$K_TAB" "$K_BLANC" \ #
# $Z | $AW ' { print "H=" $1 " L=" $2 " S=" $3 } ' \ #
# $Z | $SE -e 's+^+$xcg/RVB_HLS$X RVB_HLS=FAUX +' \ #
# $Z | $SE -e 's/$/ eR=VRAI eV=VRAI eB=VRAI/' \ #
# $Z | $SE -e 's/$/ eH=FAUX eL=FAUX eS=FAUX/' \ #
# $Z > $xTV/COULEURS$Y #
# #
# $Z (source $xTV/COULEURS$Y) \ #
# $Z > $xTV/COULEURS #
# #
# $Z $GRE "^R=" $xTV/COULEURS \ #
# $Z | $SE -e "s/^R=//" \ #
# $Z > $xTV/COULEURS$ROUGE #
# $Z $GRE "^V=" $xTV/COULEURS \ #
# $Z | $SE -e "s/^V=//" \ #
# $Z > $xTV/COULEURS$VERTE #
# $Z $GRE "^B=" $xTV/COULEURS \ #
# $Z | $SE -e "s/^B=//" \ #
# $Z > $xTV/COULEURS$BLEUE #
# #
# $Z Pal #
# #
# #
# $Z $xci/scale$X \ #
# $Z A=$xTV/BOITE.1 \ #
# $Z a=1.00 \ #
# $Z R=$xTV/BOITE.2 \ #
# $Z $formatI #
# #
# $Z $xrk/rdn_walk.41$X corps=$Npart \ #
# $Z np=$Nimages \ #
# $Z collisions=VRAI DLA=FAUX interaction=$DistanceI \ #
# $Z LISTE_X=$xTV/COORDONNEES$COORD_X \ #
# $Z LISTE_Y=$xTV/COORDONNEES$COORD_Y \ #
# $Z LISTE_Z=$xTV/COORDONNEES$COORD_Z \ #
# $Z LISTE_VX=$xTV/VITESSES$COORD_X \ #
# $Z LISTE_VY=$xTV/VITESSES$COORD_Y \ #
# $Z LISTE_VZ=$xTV/VITESSES$COORD_Z \ #
# $Z LISTE_MINIMUM_DELTA_RHO=$xTV/mdRHO \ #
# $Z LISTE_MAXIMUM_DELTA_RHO=$xTV/MdRHO \ #
# $Z LISTE_MINIMUM_N_PHI=$xTV/mnPHI \ #
# $Z LISTE_MAXIMUM_N_PHI=$xTV/MnPHI \ #
# $Z LISTE_DELTA_PHI=$xTV/dPHI \ #
# $Z LISTE_MINIMUM_N_THETA=$xTV/mnTHETA \ #
# $Z LISTE_MAXIMUM_N_THETA=$xTV/MnTHETA \ #
# $Z LISTE_DELTA_THETA=$xTV/dTHETA \ #
# $Z LISTE_DISTANCE_MAXIMALE=$xTV/DISTANCE \ #
# $Z LISTE_STABILITE=$xTV/STABILITE \ #
# $Z LISTE_RAYON=$xTV/RAYONS \ #
# $Z LISTE_RAYON_D_INTERACTION=$xTV/INTERACTIONS \ #
# $Z LISTE_ROUGE=$xTV/COULEURS$ROUGE \ #
# $Z LISTE_VERTE=$xTV/COULEURS$VERTE \ #
# $Z LISTE_BLEUE=$xTV/COULEURS$BLEUE \ #
# $Z milieu=VRAI \ #
# $Z reflexion=VRAI refraction=FAUX \ #
# $Z Mhors=$BLANC \ #
# $Z MNpasX=1 Mprolonger_X=VRAI \ #
# $Z MNpasY=1 Mprolonger_Y=VRAI \ #
# $Z MNpasZ=1 Mprolonger_Z=VRAI \ #
# $Z adapter_M_nPAS=VRAI \ #
# $Z Msimplifier=FAUX affiner_M_maillage=FAUX \ #
# $Z MC=$xTV/BOITE.2 \ #
# $Z MChiffres=0 \ #
# $Z Zmin=0 Zmax=15 \ #
# $Z centrer=VRAI \ #
# $Z dct=0.05 nombre=10 \ #
# $Z trainees=VRAI mode=1 \ #
# $Z attenuation_des_images=0.6 \ #
# $Z attenuation_des_trainees=1.00 \ #
# $Z renormaliser=FAUX \ #
# $Z Lz=100 \ #
# $Z zoom_automatique=VRAI \ #
# $Z centre_de_gravite=FAUX \ #
# $Z fond=FAUX \ #
# $Z R=$xiim/REFL.W. \ #
# $Z $formatI #
# #
# $Z $DELETE $xTV/RAYONS #
# $Z $CP $xTV/INTERACTIONS $xTV/RAYONS #
# #
# $Z $DELETE $xTV/GRAVITE #
# $Z $xrk/rdn_walk.41$X corps=$Npart \ #
# $Z np=$Nimages \ #
# $Z collisions=VRAI DLA=FAUX interaction=$DistanceI \ #
# $Z LISTE_X=$xTV/COORDONNEES$COORD_X \ #
# $Z LISTE_Y=$xTV/COORDONNEES$COORD_Y \ #
# $Z LISTE_Z=$xTV/COORDONNEES$COORD_Z \ #
# $Z LISTE_VX=$xTV/VITESSES$COORD_X \ #
# $Z LISTE_VY=$xTV/VITESSES$COORD_Y \ #
# $Z LISTE_VZ=$xTV/VITESSES$COORD_Z \ #
# $Z LISTE_MINIMUM_DELTA_RHO=$xTV/mdRHO \ #
# $Z LISTE_MAXIMUM_DELTA_RHO=$xTV/MdRHO \ #
# $Z LISTE_MINIMUM_N_PHI=$xTV/mnPHI \ #
# $Z LISTE_MAXIMUM_N_PHI=$xTV/MnPHI \ #
# $Z LISTE_DELTA_PHI=$xTV/dPHI \ #
# $Z LISTE_MINIMUM_N_THETA=$xTV/mnTHETA \ #
# $Z LISTE_MAXIMUM_N_THETA=$xTV/MnTHETA \ #
# $Z LISTE_DELTA_THETA=$xTV/dTHETA \ #
# $Z LISTE_DISTANCE_MAXIMALE=$xTV/DISTANCE \ #
# $Z LISTE_STABILITE=$xTV/STABILITE \ #
# $Z LISTE_RAYON=$xTV/RAYONS \ #
# $Z LISTE_RAYON_D_INTERACTION=$xTV/INTERACTIONS \ #
# $Z LISTE_ROUGE=$xTV/COULEURS$ROUGE \ #
# $Z LISTE_VERTE=$xTV/COULEURS$VERTE \ #
# $Z LISTE_BLEUE=$xTV/COULEURS$BLEUE \ #
# $Z milieu=VRAI \ #
# $Z reflexion=VRAI refraction=FAUX \ #
# $Z Mhors=$BLANC \ #
# $Z MNpasX=1 Mprolonger_X=VRAI \ #
# $Z MNpasY=1 Mprolonger_Y=VRAI \ #
# $Z MNpasZ=1 Mprolonger_Z=VRAI \ #
# $Z adapter_M_nPAS=VRAI \ #
# $Z Msimplifier=FAUX affiner_M_maillage=FAUX \ #
# $Z MC=$xTV/BOITE.2 \ #
# $Z MChiffres=0 \ #
# $Z Zmin=0 Zmax=15 \ #
# $Z centrer=VRAI \ #
# $Z dct=0.05 nombre=10 \ #
# $Z trainees=VRAI mode=1 \ #
# $Z attenuation_des_images=1.0 \ #
# $Z attenuation_des_trainees=0.80 \ #
# $Z renormaliser=FAUX \ #
# $Z Lz=100 \ #
# $Z zoom_automatique=VRAI \ #
# $Z centre_de_gravite=VRAI \ #
# $Z fond=VRAI \ #
# $Z dynamique=VRAI \ #
# $Z F=$xiim/REFL.W. \ #
# $Z R=$xiim/REFL.W. \ #
# $Z $formatI | \ #
# $Z $GRE " CENTRE_DE_GRAVITE=" \ #
# $Z > $xTV/GRAVITE #
# #
# $Z $DELETE $xTV/COORDONNEES #
# $Z $DELETE $xTV/COORDONNEES$COORD_X #
# $Z $DELETE $xTV/COORDONNEES$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_Z #
# $Z $DELETE $xTV/VITESSES #
# $Z $DELETE $xTV/VITESSES$COORD_X #
# $Z $DELETE $xTV/VITESSES$COORD_Y #
# $Z $DELETE $xTV/VITESSES$COORD_Z #
# $Z $DELETE $xTV/mdRHO #
# $Z $DELETE $xTV/MdRHO #
# $Z $DELETE $xTV/mnPHI #
# $Z $DELETE $xTV/MnPHI #
# $Z $DELETE $xTV/dPHI #
# $Z $DELETE $xTV/mnTHETA #
# $Z $DELETE $xTV/MnTHETA #
# $Z $DELETE $xTV/dTHETA #
# $Z $DELETE $xTV/DISTANCE #
# $Z $DELETE $xTV/STABILITE #
# $Z $DELETE $xTV/RAYONS #
# $Z $DELETE $xTV/INTERACTIONS #
# $Z $DELETE $xTV/COULEURS$TEINT #
# $Z $DELETE $xTV/COULEURS$LUMIN #
# $Z $DELETE $xTV/COULEURS$SATUR #
# $Z $DELETE $xTV/COULEURS$Y #
# $Z $DELETE $xTV/COULEURS #
# $Z $DELETE $xTV/COULEURS$ROUGE #
# $Z $DELETE $xTV/COULEURS$VERTE #
# $Z $DELETE $xTV/COULEURS$BLEUE #
# #
# $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("$DELETE $xTV/COORDONNEES\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_X\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_Y\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_Z\n"); #
# #
# $c printf("$DELETE $xTV/COULEURS$ROUGE\n"); #
# $c printf("$DELETE $xTV/COULEURS$VERTE\n"); #
# $c printf("$DELETE $xTV/COULEURS$BLEUE\n"); #
# #
# $c printf("listMN $xTV/GRAVITE #
# $c %d %d #
# $c > $xTV/COORDONNEES\n" #
# $c ,N0,n #
# $c ); #
# #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*[(,]XG=//%c #
# $c -e %cs/[,)].*//%c #
# $c > $xTV/COORDONNEES$COORD_X\n" #
# $c ,'"','"','"','"' #
# $c ); #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*[(,]YG=//%c #
# $c -e %cs/[,)].*//%c #
# $c > $xTV/COORDONNEES$COORD_Y\n" #
# $c ,'"','"','"','"' #
# $c ); #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*[(,]ZG=//%c #
# $c -e %cs/[,)].*//%c #
# $c > $xTV/COORDONNEES$COORD_Z\n" #
# $c ,'"','"','"','"' #
# $c ); #
# #
# $c printf("$xci/valeurs_inte$X #
# $c premiere=%d derniere=%d #
# $c vD=$GRIS_5 vA=$GRIS_5 #
# $c cubique=FAUX #
# $c entiers=VRAI #
# $c utiliser_la_valeur_de_depart=FAUX #
# $c > $xTV/COULEURS$ROUGE\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/valeurs_inte$X #
# $c premiere=%d derniere=%d #
# $c vD=$GRIS_5 vA=$GRIS_5 #
# $c cubique=FAUX #
# $c entiers=VRAI #
# $c utiliser_la_valeur_de_depart=FAUX #
# $c > $xTV/COULEURS$VERTE\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/valeurs_inte$X #
# $c premiere=%d derniere=%d #
# $c vD=$GRIS_5 vA=$GRIS_5 #
# $c cubique=FAUX #
# $c entiers=VRAI #
# $c utiliser_la_valeur_de_depart=FAUX #
# $c > $xTV/COULEURS$BLEUE\n" #
# $c ,N0,n #
# $c ); #
# #
# $c printf("$xrv/particule.10$X #
# $c np=1 #
# $c iterations=%d #
# $c LISTE_X=$xTV/COORDONNEES$COORD_X #
# $c LISTE_Y=$xTV/COORDONNEES$COORD_Y #
# $c LISTE_Z=$xTV/COORDONNEES$COORD_Z #
# $c LISTE_ROUGE=$xTV/COULEURS$ROUGE #
# $c LISTE_VERTE=$xTV/COULEURS$VERTE #
# $c LISTE_BLEUE=$xTV/COULEURS$BLEUE #
# $c LISTE_RAYON=0.006 #
# $c zoom_automatique=FAUX ZOOM=1.0 #
# $c coordonnees_dans_0_1=FAUX #
# $c AXYZ=1 BXYZ=0 #
# $c fond=VRAI #
# $c fond_dynamique=FAUX #
# $c F=$xiim/REFL.W.%04d #
# $c R=$xTV/REFL.A. #
# $c $formatI\n" #
# $c ,(n-N0)+1,n #
# $c ); #
# #
# $c printf("$xci/acces$X #
# $c A=$xTV/REFL.A.%04d$ROUGE #
# $c R=$xiim/REFL.W.%04d$ROUGE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xTV/REFL.A.%04d$VERTE #
# $c R=$xiim/REFL.W.%04d$VERTE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xTV/REFL.A.%04d$BLEUE #
# $c R=$xiim/REFL.W.%04d$BLEUE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# #
# $c printf("$DELETE $xTV/COORDONNEES\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_X\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_Y\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_Z\n"); #
# #
# $c printf("$DELETE $xTV/COULEURS$ROUGE\n"); #
# $c printf("$DELETE $xTV/COULEURS$VERTE\n"); #
# $c printf("$DELETE $xTV/COULEURS$BLEUE\n"); #
# #
# $c printf("listMN $xTV/GRAVITE #
# $c %d %d #
# $c > $xTV/COORDONNEES\n" #
# $c ,n,n #
# $c ); #
# #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*[(,]XG=//%c #
# $c -e %cs/[,)].*//%c #
# $c > $xTV/COORDONNEES$COORD_X\n" #
# $c ,'"','"','"','"' #
# $c ); #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*[(,]YG=//%c #
# $c -e %cs/[,)].*//%c #
# $c > $xTV/COORDONNEES$COORD_Y\n" #
# $c ,'"','"','"','"' #
# $c ); #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*[(,]ZG=//%c #
# $c -e %cs/[,)].*//%c #
# $c > $xTV/COORDONNEES$COORD_Z\n" #
# $c ,'"','"','"','"' #
# $c ); #
# #
# $c printf("$xci/valeurs_inte$X #
# $c premiere=%d derniere=%d #
# $c vD=$GRIS_8 vA=$GRIS_8 #
# $c cubique=FAUX #
# $c entiers=VRAI #
# $c utiliser_la_valeur_de_depart=FAUX #
# $c > $xTV/COULEURS$ROUGE\n" #
# $c ,n,n #
# $c ); #
# $c printf("$xci/valeurs_inte$X #
# $c premiere=%d derniere=%d #
# $c vD=$GRIS_8 vA=$GRIS_8 #
# $c cubique=FAUX #
# $c entiers=VRAI #
# $c utiliser_la_valeur_de_depart=FAUX #
# $c > $xTV/COULEURS$VERTE\n" #
# $c ,n,n #
# $c ); #
# $c printf("$xci/valeurs_inte$X #
# $c premiere=%d derniere=%d #
# $c vD=$GRIS_8 vA=$GRIS_8 #
# $c cubique=FAUX #
# $c entiers=VRAI #
# $c utiliser_la_valeur_de_depart=FAUX #
# $c > $xTV/COULEURS$BLEUE\n" #
# $c ,n,n #
# $c ); #
# #
# $c printf("$xrv/particule.10$X #
# $c np=1 #
# $c iterations=%d #
# $c LISTE_X=$xTV/COORDONNEES$COORD_X #
# $c LISTE_Y=$xTV/COORDONNEES$COORD_Y #
# $c LISTE_Z=$xTV/COORDONNEES$COORD_Z #
# $c LISTE_ROUGE=$xTV/COULEURS$ROUGE #
# $c LISTE_VERTE=$xTV/COULEURS$VERTE #
# $c LISTE_BLEUE=$xTV/COULEURS$BLEUE #
# $c LISTE_RAYON=0.012 #
# $c zoom_automatique=FAUX ZOOM=1.0 #
# $c coordonnees_dans_0_1=FAUX #
# $c AXYZ=1 BXYZ=0 #
# $c fond=VRAI #
# $c fond_dynamique=FAUX #
# $c F=$xiim/REFL.W.%04d #
# $c R=$xTV/REFL.B. #
# $c $formatI\n" #
# $c ,(n-n)+1,n #
# $c ); #
# #
# $c printf("$xci/acces$X #
# $c A=$xTV/REFL.B.%04d$ROUGE #
# $c R=$xiim/REFL.W.%04d$ROUGE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xTV/REFL.B.%04d$VERTE #
# $c R=$xiim/REFL.W.%04d$VERTE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xTV/REFL.B.%04d$BLEUE #
# $c R=$xiim/REFL.W.%04d$BLEUE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# $c } #
# $c } #
# #
# #
# $Z $DELETE $xTV/COORDONNEES #
# $Z $DELETE $xTV/COORDONNEES$COORD_X #
# $Z $DELETE $xTV/COORDONNEES$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_Z #
# $Z $DELETE $xTV/COULEURS$ROUGE #
# $Z $DELETE $xTV/COULEURS$VERTE #
# $Z $DELETE $xTV/COULEURS$BLEUE #
# #
# #
# #
# $Z $xci/complement$X A=$xTV/BOITE.1 \ #
# $Z R=$xTV/BOITE.3 \ #
# $Z $formatI #
# #
# $Z eval `$xci/genere$X \\\ #
# $Z commande='($xci/scale$X \\\ #
# $Z A=$xTV/BOITE.3 \\\ #
# $Z a=0.50 \\\ #
# $Z R=$xTV/BOITE.3%s \\\ #
# $Z $formatI)' \\\ #
# $Z en_tete=FAUX RVB=VRAI separateur=VRAI` #
# #
# #
# $X $xci/genere$X premiere=$Premiere derniere=$Derniere pas=1 \ #
# $X C='$xci/cache.11$Z \ #
# $X $xiim/REFL.W.%04d \ #
# $X $xTV/BOITE.3 \ #
# $X $xiim/REFL.7.%04d' #
# #
# $Z $DELETE $xTV/BOITE.1 #
# $Z $DELETE $xTV/BOITE.2 #
# $Z $DELETE $xTV/BOITE.3 #
# $Z $DELETE $xTV/BOITE.3$ROUGE #
# $Z $DELETE $xTV/BOITE.3$VERTE #
# $Z $DELETE $xTV/BOITE.3$BLEUE #
# #
# $Z Pal #
# #
# $Z $xci/reduction_16$Z $xiim/REFL.7. $xiak/REFL.D2 $Premiere $Derniere #
# $Z $xci/reduction_64$Z $xiim/REFL.7. $xiak/REFL.D2 $Premiere $Derniere #
# #
# $X $xci/genere$X c='ro $xiak/REFL.D2$R16%s' RVB=VRAI #
# $X $xci/genere$X c='ro $xiak/REFL.D2$R64%s' RVB=VRAI #
# #
# $X $xci/genere$X c='$xcg/unite$Z $xiak/REFL.D2$R16%s' RVB=VRAI #
# $X $xci/genere$X c='$xcg/unite$Z $xiak/REFL.D2$R64%s' RVB=VRAI #
# #
# $X $xci/genere$X c='$CP $xiim/REFL.7.0512%s $xiirk/REFL.D2.0512%s' RVB=VRAI #
# #
# $X $xci/genere$X c='ro $xiirk/REFL.D2.0512%s' RVB=VRAI #
# #
# $X $xci/genere$X c='$xcg/unite$Z $xiirk/REFL.D2.0512%s' RVB=VRAI #
# #
# #
# Pal #
# #
# #
# $xci/disk_video_P$Z $xiim_LACT29/REFL.7. 001 512 RVB \ #
# 11 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
# #
# xivPdf 3 2 #
# #
# record.01$Z $xiak/REFL.D2$R16 RVB Initialisation #
# record.01$Z $xiak/REFL.D2$R64 RVB rien #
# record.01$Z $xiirk/REFL.D2.0512 RVB rien #
# #
sequence 009217_009728
# Generee (sur '$LACT29') par : #
# #
# $Z SET Premiere=1 #
# $Z SET Derniere=512 #
# $Z @ Nimages = $Derniere - $Premiere #
# $Z @ Nimages = $Nimages + 1 #
# #
# #
# $Z Pal #
# #
# $Z set PUnivers="np=0 CAL1=FAUX editer_l_univers_physique=VRAI" #
# $Z set Univers=`$xrk/rdn_walk.41$X $PUnivers $formatI` #
# #
# $Z set MinX=`echo $Univers | $SE -e "s/^.*[(,]XUI=//" -e "s/[,)].*//"` #
# $Z set MaxX=`echo $Univers | $SE -e "s/^.*[(,]XUS=//" -e "s/[,)].*//"` #
# $Z set MinY=`echo $Univers | $SE -e "s/^.*[(,]YUI=//" -e "s/[,)].*//"` #
# $Z set MaxY=`echo $Univers | $SE -e "s/^.*[(,]YUS=//" -e "s/[,)].*//"` #
# #
# $Z set MinX=`$xcg/ABSO.01$X x=$MinX` #
# $Z set MaxX=`$xcg/ABSO.01$X x=$MaxX` #
# $Z set MinY=`$xcg/ABSO.01$X x=$MinY` #
# $Z set MaxY=`$xcg/ABSO.01$X x=$MaxY` #
# #
# $Z set MaxX=`$xcg/MAX2.01$X n1=$MinX n2=$MaxX` #
# $Z set MaxY=`$xcg/MAX2.01$X n1=$MinY n2=$MaxY` #
# #
# $Z set SeuilPartN=0.000135 #
# $Z set GrainePartN=2 #
# #
# $Z $DELETE $xTV/BOITE.1 #
# $Z $DELETE $xTV/BOITE.2 #
# $Z $DELETE $xTV/BOITE.3 #
# $Z $DELETE $xTV/BOITE.3$ROUGE #
# $Z $DELETE $xTV/BOITE.3$VERTE #
# $Z $DELETE $xTV/BOITE.3$BLEUE #
# $Z $DELETE $xTV/BOITE.4 #
# $Z $DELETE $xTV/BOITE.5 #
# $Z $DELETE $xTV/BOITE.6 #
# $Z $DELETE $xTV/BOITE.7 #
# $Z $DELETE $xTV/BOITE.8 #
# $Z $DELETE $xTV/BOITE.9 #
# $Z $DELETE $xTV/BOITE.A #
# $Z $DELETE $xTV/BOITE.B #
# #
# #
# $Z Std #
# #
# $Z $xci/complement$X \ #
# $Z A=$xiio/SPIRALE \ #
# $Z R=$xTV/BOITE.4 \ #
# $Z $formatI #
# $Z $xci/seuil$X \ #
# $Z A=$xTV/BOITE.4 \ #
# $Z seuil=$GRIS_6 \ #
# $Z R=$xTV/BOITE.9 \ #
# $Z $formatI #
# #
# $Z $xci/reduction_04$X \ #
# $Z A=$xTV/BOITE.4 \ #
# $Z chiffres=0 \ #
# $Z moyenne=FAUX \ #
# $Z $formatI | \ #
# $Z $xci/or_02$X \ #
# $Z A2=$xTV/BOITE.9 \ #
# $Z $formatI | \ #
# $Z $xci/seuil$X \ #
# $Z seuil=$GRIS_1 \ #
# $Z R=$xTV/BOITE.5 \ #
# $Z $formatI #
# #
# $Z $xci/reduction_04$X \ #
# $Z A=$xTV/BOITE.5 \ #
# $Z chiffres=0 \ #
# $Z moyenne=FAUX \ #
# $Z $formatI | \ #
# $Z $xci/or_02$X \ #
# $Z A2=$xTV/BOITE.9 \ #
# $Z R=$xTV/BOITE.6 \ #
# $Z $formatI #
# #
# $Z S #
# #
# $Z $xci/format.01$X mode=0 \ #
# $Z A=$xTV/BOITE.6 \ #
# $Z $formatI \ #
# $Z R=$xTV/BOITE.1 \ #
# $Z $formatR_Pal #
# #
# $Z $xci/dilate.01$X \ #
# $Z A=$xTV/BOITE.6 \ #
# $Z points=225 \ #
# $Z dilater=FAUX \ #
# $Z R=$xTV/BOITE.A \ #
# $Z $formatI #
# #
# $Z $xci/random.02$X \ #
# $Z seuil=$SeuilPartN \ #
# $Z graine=$GrainePartN \ #
# $Z $formatI | \ #
# $Z $xci/and$X \ #
# $Z A2=$xTV/BOITE.A \ #
# $Z R=$xTV/BOITE.B \ #
# $Z $formatI #
# #
# $Z $DELETE $xTV/COORDONNEES #
# $Z $DELETE $xTV/COORDONNEES_01$COORD_X #
# $Z $DELETE $xTV/COORDONNEES_01$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_X #
# $Z $DELETE $xTV/COORDONNEES$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_Z #
# #
# $Z $xci/liste_points$X \ #
# $Z A=$xTV/BOITE.B \ #
# $Z $formatI \ #
# $Z > $xTV/COORDONNEES #
# #
# $Z $DELETE $xTV/BOITE.4 #
# $Z $DELETE $xTV/BOITE.5 #
# $Z $DELETE $xTV/BOITE.6 #
# $Z $DELETE $xTV/BOITE.7 #
# $Z $DELETE $xTV/BOITE.8 #
# $Z $DELETE $xTV/BOITE.9 #
# $Z $DELETE $xTV/BOITE.A #
# $Z $DELETE $xTV/BOITE.B #
# #
# $Z set PartN=`$TAI -1 $xTV/COORDONNEES | $SE -e "s/^.*=//"` #
# #
# $Z $CA $xTV/COORDONNEES \ #
# $Z | $GRE "^[Xx]=" \ #
# $Z | $SE -e "s/^[Xx]=//" \ #
# $Z > $xTV/COORDONNEES_01$COORD_X #
# $Z $CA $xTV/COORDONNEES \ #
# $Z | $GRE "^[Yy]=" \ #
# $Z | $SE -e "s/^[Yy]=//" \ #
# $Z > $xTV/COORDONNEES_01$COORD_Y #
# #
# $Z set EchelleX=`$xcg/MUL2.01$X n1=2 n2=$MaxX` #
# $Z set TranslationX=`$xcg/MUL2.01$X n1=-1 n2=$MaxX` #
# $Z set EchelleY=`$xcg/MUL2.01$X n1=2 n2=$MaxY` #
# $Z set TranslationY=`$xcg/MUL2.01$X n1=-1 n2=$MaxY` #
# #
# $Z $xrv/AXPB.01$X \ #
# $Z CAL1=FAUX \ #
# $Z ne=$PartN \ #
# $Z fichier=$xTV/COORDONNEES_01$COORD_X \ #
# $Z homothetie=$EchelleX translation=$TranslationX \ #
# $Z > $xTV/COORDONNEES$COORD_X #
# $Z $xrv/AXPB.01$X \ #
# $Z CAL1=FAUX \ #
# $Z ne=$PartN \ #
# $Z fichier=$xTV/COORDONNEES_01$COORD_Y \ #
# $Z homothetie=$EchelleY translation=$TranslationY \ #
# $Z > $xTV/COORDONNEES$COORD_Y #
# #
# $Z $DELETE $xTV/COORDONNEES_01$COORD_X #
# $Z $DELETE $xTV/COORDONNEES_01$COORD_Y #
# #
# $Z set Part0=1 #
# $Z @ Npart = $PartN - $Part0 #
# $Z @ Npart = $Npart + 1 #
# #
# $Z $DELETE $xTV/MODULE #
# $Z $DELETE $xTV/THETA #
# $Z $DELETE $xTV/XY_RT.1 #
# $Z $DELETE $xTV/XY_RT.2 #
# $Z $DELETE $xTV/VITESSES #
# $Z $DELETE $xTV/VITESSES$COORD_X #
# $Z $DELETE $xTV/VITESSES$COORD_Y #
# $Z $DELETE $xTV/VITESSES$COORD_Z #
# $Z $DELETE $xTV/mdRHO #
# $Z $DELETE $xTV/MdRHO #
# $Z $DELETE $xTV/mnPHI #
# $Z $DELETE $xTV/MnPHI #
# $Z $DELETE $xTV/dPHI #
# $Z $DELETE $xTV/mnTHETA #
# $Z $DELETE $xTV/MnTHETA #
# $Z $DELETE $xTV/dTHETA #
# $Z $DELETE $xTV/supOUVE #
# $Z $DELETE $xTV/DISTANCE #
# $Z $DELETE $xTV/STABILITE #
# $Z $DELETE $xTV/RAYONS #
# $Z $DELETE $xTV/INTERACTIONS #
# #
# #
# $Z alias Gen 'set Fi=\!:1 ; set vD=\!:2 ; set vA=\!:3 ; set ArG=(\!:4*) ; \\ #
# $Z $DELETE $Fi ; \\ #
# $Z $xci/valeurs_inte$X p=$Part0 d=$PartN vD=$vD vA=$vA $ArG > $Fi ; \\ #
# $Z unset Fi vD vA ArG' #
# #
# $Z alias GenR 'set Fi=\!:1 ; set In=\!:2 ; set Su=\!:3 ; set ArG=(\!:4*) ; \\ #
# $Z $DELETE $Fi ; \\ #
# $Z $xci/valeurs_alea$X p=$Part0 d=$PartN signe="$KV" inf=$In sup=$Su $ArG > $Fi ; \\ #
# $Z unset Fi In Su ArG' #
# #
# $Z Gen $xTV/COORDONNEES$COORD_Z 0.0 0.0 #
# #
# #
# $Z Gen $xTV/MODULE 0.02 0.02 #
# $Z GenR $xTV/THETA 0.0 $dpi g=3333 #
# #
# $Z $CA $xcs/csh$Y \ #
# $Z > $xTV/XY_RT.1 #
# $Z $PAST $xTV/MODULE $xTV/THETA \ #
# $Z | $R "$K_TAB" "$K_BLANC" \ #
# $Z | $AW ' { print "$xcg/XY_RT$X r=" $1 " t=" $2 " cartesien=FAUX" } ' \ #
# $Z >>! $xTV/XY_RT.1 #
# #
# $Z (source $xTV/XY_RT.1) \ #
# $Z > $xTV/XY_RT.2 #
# #
# $Z $CA $xTV/XY_RT.2 \ #
# $Z | $GRE "^x=" \ #
# $Z | $SE -e "s/^x=//" \ #
# $Z > $xTV/VITESSES$COORD_X #
# $Z $CA $xTV/XY_RT.2 \ #
# $Z | $GRE "^y=" \ #
# $Z | $SE -e "s/^y=//" \ #
# $Z > $xTV/VITESSES$COORD_Y #
# #
# $Z Gen $xTV/VITESSES$COORD_Z 0.0 0.0 #
# #
# $Z Gen $xTV/mdRHO 0.0 0.0 #
# $Z Gen $xTV/MdRHO 0.0 0.0 #
# $Z Gen $xTV/mnPHI 0.0 0.0 #
# $Z Gen $xTV/MnPHI 0.0 0.0 #
# $Z Gen $xTV/dPHI 0.0 0.0 #
# $Z Gen $xTV/mnTHETA 0.0 0.0 #
# $Z Gen $xTV/MnTHETA 0.0 0.0 #
# $Z Gen $xTV/dTHETA 0.0 0.0 #
# $Z Gen $xTV/DISTANCE 1000000 1000000 #
# $Z Gen $xTV/STABILITE 1000000 1000000 #
# #
# $Z set RayonsT=0.014 #
# $Z set RayonsP=`$xcg/MUL2.01$X a=2 b=$RayonsT` #
# $Z set DistanceI=`$xcg/MUL2.01$X a=4 b=$RayonsP` #
# $Z Gen $xTV/RAYONS $RayonsT $RayonsT #
# $Z Gen $xTV/INTERACTIONS $RayonsP $RayonsP #
# #
# $Z $DELETE $xTV/COULEURS$TEINT #
# $Z $DELETE $xTV/COULEURS$LUMIN #
# $Z $DELETE $xTV/COULEURS$SATUR #
# $Z $DELETE $xTV/COULEURS$Y #
# $Z $DELETE $xTV/COULEURS #
# $Z $DELETE $xTV/COULEURS$ROUGE #
# $Z $DELETE $xTV/COULEURS$VERTE #
# $Z $DELETE $xTV/COULEURS$BLEUE #
# #
# $Z @ TeinteMagenta = $GRIS_7 #
# $Z @ TeinteCyan = $GRIS_4 + $GRIS_8 #
# #
# $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartN \ #
# $Z vD=$TeinteMagenta vA=$TeinteCyan \ #
# $Z cubique=FAUX \ #
# $Z entiers=VRAI \ #
# $Z > $xTV/COULEURS$TEINT #
# $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartN \ #
# $Z vD=$GRIS_4 vA=$GRIS_4 \ #
# $Z cubique=FAUX \ #
# $Z entiers=VRAI \ #
# $Z > $xTV/COULEURS$LUMIN #
# $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartN \ #
# $Z vD=$GRIS_8 vA=$GRIS_8 \ #
# $Z cubique=FAUX \ #
# $Z entiers=VRAI \ #
# $Z > $xTV/COULEURS$SATUR #
# #
# $Z $PAST \ #
# $Z $xTV/COULEURS$TEINT \ #
# $Z $xTV/COULEURS$LUMIN \ #
# $Z $xTV/COULEURS$SATUR \ #
# $Z | $R "$K_TAB" "$K_BLANC" \ #
# $Z | $AW ' { print "H=" $1 " L=" $2 " S=" $3 } ' \ #
# $Z | $SE -e 's+^+$xcg/RVB_HLS$X RVB_HLS=FAUX +' \ #
# $Z | $SE -e 's/$/ eR=VRAI eV=VRAI eB=VRAI/' \ #
# $Z | $SE -e 's/$/ eH=FAUX eL=FAUX eS=FAUX/' \ #
# $Z > $xTV/COULEURS$Y #
# #
# $Z (source $xTV/COULEURS$Y) \ #
# $Z > $xTV/COULEURS #
# #
# $Z $GRE "^R=" $xTV/COULEURS \ #
# $Z | $SE -e "s/^R=//" \ #
# $Z > $xTV/COULEURS$ROUGE #
# $Z $GRE "^V=" $xTV/COULEURS \ #
# $Z | $SE -e "s/^V=//" \ #
# $Z > $xTV/COULEURS$VERTE #
# $Z $GRE "^B=" $xTV/COULEURS \ #
# $Z | $SE -e "s/^B=//" \ #
# $Z > $xTV/COULEURS$BLEUE #
# #
# $Z Pal #
# #
# #
# $Z $xci/scale$X \ #
# $Z A=$xTV/BOITE.1 \ #
# $Z a=1.00 \ #
# $Z R=$xTV/BOITE.2 \ #
# $Z $formatI #
# #
# $Z $xrk/rdn_walk.41$X corps=$Npart \ #
# $Z np=$Nimages \ #
# $Z collisions=VRAI DLA=FAUX interaction=$DistanceI \ #
# $Z LISTE_X=$xTV/COORDONNEES$COORD_X \ #
# $Z LISTE_Y=$xTV/COORDONNEES$COORD_Y \ #
# $Z LISTE_Z=$xTV/COORDONNEES$COORD_Z \ #
# $Z LISTE_VX=$xTV/VITESSES$COORD_X \ #
# $Z LISTE_VY=$xTV/VITESSES$COORD_Y \ #
# $Z LISTE_VZ=$xTV/VITESSES$COORD_Z \ #
# $Z LISTE_MINIMUM_DELTA_RHO=$xTV/mdRHO \ #
# $Z LISTE_MAXIMUM_DELTA_RHO=$xTV/MdRHO \ #
# $Z LISTE_MINIMUM_N_PHI=$xTV/mnPHI \ #
# $Z LISTE_MAXIMUM_N_PHI=$xTV/MnPHI \ #
# $Z LISTE_DELTA_PHI=$xTV/dPHI \ #
# $Z LISTE_MINIMUM_N_THETA=$xTV/mnTHETA \ #
# $Z LISTE_MAXIMUM_N_THETA=$xTV/MnTHETA \ #
# $Z LISTE_DELTA_THETA=$xTV/dTHETA \ #
# $Z LISTE_DISTANCE_MAXIMALE=$xTV/DISTANCE \ #
# $Z LISTE_STABILITE=$xTV/STABILITE \ #
# $Z LISTE_RAYON=$xTV/RAYONS \ #
# $Z LISTE_RAYON_D_INTERACTION=$xTV/INTERACTIONS \ #
# $Z LISTE_ROUGE=$xTV/COULEURS$ROUGE \ #
# $Z LISTE_VERTE=$xTV/COULEURS$VERTE \ #
# $Z LISTE_BLEUE=$xTV/COULEURS$BLEUE \ #
# $Z milieu=VRAI \ #
# $Z reflexion=VRAI refraction=FAUX \ #
# $Z Mhors=$BLANC \ #
# $Z MNpasX=1 Mprolonger_X=VRAI \ #
# $Z MNpasY=1 Mprolonger_Y=VRAI \ #
# $Z MNpasZ=1 Mprolonger_Z=VRAI \ #
# $Z adapter_M_nPAS=VRAI \ #
# $Z Msimplifier=FAUX affiner_M_maillage=FAUX \ #
# $Z MC=$xTV/BOITE.2 \ #
# $Z MChiffres=0 \ #
# $Z Zmin=0 Zmax=15 \ #
# $Z centrer=VRAI \ #
# $Z dct=0.05 nombre=10 \ #
# $Z trainees=VRAI mode=1 \ #
# $Z attenuation_des_images=0.6 \ #
# $Z attenuation_des_trainees=1.00 \ #
# $Z renormaliser=FAUX \ #
# $Z Lz=100 \ #
# $Z zoom_automatique=VRAI \ #
# $Z centre_de_gravite=FAUX \ #
# $Z fond=FAUX \ #
# $Z R=$xiim/REFL.W. \ #
# $Z $formatI #
# #
# $Z $DELETE $xTV/RAYONS #
# $Z $CP $xTV/INTERACTIONS $xTV/RAYONS #
# #
# $Z $DELETE $xTV/GRAVITE #
# $Z $xrk/rdn_walk.41$X corps=$Npart \ #
# $Z np=$Nimages \ #
# $Z collisions=VRAI DLA=FAUX interaction=$DistanceI \ #
# $Z LISTE_X=$xTV/COORDONNEES$COORD_X \ #
# $Z LISTE_Y=$xTV/COORDONNEES$COORD_Y \ #
# $Z LISTE_Z=$xTV/COORDONNEES$COORD_Z \ #
# $Z LISTE_VX=$xTV/VITESSES$COORD_X \ #
# $Z LISTE_VY=$xTV/VITESSES$COORD_Y \ #
# $Z LISTE_VZ=$xTV/VITESSES$COORD_Z \ #
# $Z LISTE_MINIMUM_DELTA_RHO=$xTV/mdRHO \ #
# $Z LISTE_MAXIMUM_DELTA_RHO=$xTV/MdRHO \ #
# $Z LISTE_MINIMUM_N_PHI=$xTV/mnPHI \ #
# $Z LISTE_MAXIMUM_N_PHI=$xTV/MnPHI \ #
# $Z LISTE_DELTA_PHI=$xTV/dPHI \ #
# $Z LISTE_MINIMUM_N_THETA=$xTV/mnTHETA \ #
# $Z LISTE_MAXIMUM_N_THETA=$xTV/MnTHETA \ #
# $Z LISTE_DELTA_THETA=$xTV/dTHETA \ #
# $Z LISTE_DISTANCE_MAXIMALE=$xTV/DISTANCE \ #
# $Z LISTE_STABILITE=$xTV/STABILITE \ #
# $Z LISTE_RAYON=$xTV/RAYONS \ #
# $Z LISTE_RAYON_D_INTERACTION=$xTV/INTERACTIONS \ #
# $Z LISTE_ROUGE=$xTV/COULEURS$ROUGE \ #
# $Z LISTE_VERTE=$xTV/COULEURS$VERTE \ #
# $Z LISTE_BLEUE=$xTV/COULEURS$BLEUE \ #
# $Z milieu=VRAI \ #
# $Z reflexion=VRAI refraction=FAUX \ #
# $Z Mhors=$BLANC \ #
# $Z MNpasX=1 Mprolonger_X=VRAI \ #
# $Z MNpasY=1 Mprolonger_Y=VRAI \ #
# $Z MNpasZ=1 Mprolonger_Z=VRAI \ #
# $Z adapter_M_nPAS=VRAI \ #
# $Z Msimplifier=FAUX affiner_M_maillage=FAUX \ #
# $Z MC=$xTV/BOITE.2 \ #
# $Z MChiffres=0 \ #
# $Z Zmin=0 Zmax=15 \ #
# $Z centrer=VRAI \ #
# $Z dct=0.05 nombre=10 \ #
# $Z trainees=VRAI mode=1 \ #
# $Z attenuation_des_images=1.0 \ #
# $Z attenuation_des_trainees=0.80 \ #
# $Z renormaliser=FAUX \ #
# $Z Lz=100 \ #
# $Z zoom_automatique=VRAI \ #
# $Z centre_de_gravite=VRAI \ #
# $Z fond=VRAI \ #
# $Z dynamique=VRAI \ #
# $Z F=$xiim/REFL.W. \ #
# $Z R=$xiim/REFL.W. \ #
# $Z $formatI | \ #
# $Z $GRE " CENTRE_DE_GRAVITE=" \ #
# $Z > $xTV/GRAVITE #
# #
# $Z $DELETE $xTV/COORDONNEES #
# $Z $DELETE $xTV/COORDONNEES$COORD_X #
# $Z $DELETE $xTV/COORDONNEES$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_Z #
# $Z $DELETE $xTV/VITESSES #
# $Z $DELETE $xTV/VITESSES$COORD_X #
# $Z $DELETE $xTV/VITESSES$COORD_Y #
# $Z $DELETE $xTV/VITESSES$COORD_Z #
# $Z $DELETE $xTV/mdRHO #
# $Z $DELETE $xTV/MdRHO #
# $Z $DELETE $xTV/mnPHI #
# $Z $DELETE $xTV/MnPHI #
# $Z $DELETE $xTV/dPHI #
# $Z $DELETE $xTV/mnTHETA #
# $Z $DELETE $xTV/MnTHETA #
# $Z $DELETE $xTV/dTHETA #
# $Z $DELETE $xTV/DISTANCE #
# $Z $DELETE $xTV/STABILITE #
# $Z $DELETE $xTV/RAYONS #
# $Z $DELETE $xTV/INTERACTIONS #
# $Z $DELETE $xTV/COULEURS$TEINT #
# $Z $DELETE $xTV/COULEURS$LUMIN #
# $Z $DELETE $xTV/COULEURS$SATUR #
# $Z $DELETE $xTV/COULEURS$Y #
# $Z $DELETE $xTV/COULEURS #
# $Z $DELETE $xTV/COULEURS$ROUGE #
# $Z $DELETE $xTV/COULEURS$VERTE #
# $Z $DELETE $xTV/COULEURS$BLEUE #
# #
# $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("$DELETE $xTV/COORDONNEES\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_X\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_Y\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_Z\n"); #
# #
# $c printf("$DELETE $xTV/COULEURS$ROUGE\n"); #
# $c printf("$DELETE $xTV/COULEURS$VERTE\n"); #
# $c printf("$DELETE $xTV/COULEURS$BLEUE\n"); #
# #
# $c printf("listMN $xTV/GRAVITE #
# $c %d %d #
# $c > $xTV/COORDONNEES\n" #
# $c ,N0,n #
# $c ); #
# #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*[(,]XG=//%c #
# $c -e %cs/[,)].*//%c #
# $c > $xTV/COORDONNEES$COORD_X\n" #
# $c ,'"','"','"','"' #
# $c ); #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*[(,]YG=//%c #
# $c -e %cs/[,)].*//%c #
# $c > $xTV/COORDONNEES$COORD_Y\n" #
# $c ,'"','"','"','"' #
# $c ); #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*[(,]ZG=//%c #
# $c -e %cs/[,)].*//%c #
# $c > $xTV/COORDONNEES$COORD_Z\n" #
# $c ,'"','"','"','"' #
# $c ); #
# #
# $c printf("$xci/valeurs_inte$X #
# $c premiere=%d derniere=%d #
# $c vD=$GRIS_5 vA=$GRIS_5 #
# $c cubique=FAUX #
# $c entiers=VRAI #
# $c utiliser_la_valeur_de_depart=FAUX #
# $c > $xTV/COULEURS$ROUGE\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/valeurs_inte$X #
# $c premiere=%d derniere=%d #
# $c vD=$GRIS_5 vA=$GRIS_5 #
# $c cubique=FAUX #
# $c entiers=VRAI #
# $c utiliser_la_valeur_de_depart=FAUX #
# $c > $xTV/COULEURS$VERTE\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/valeurs_inte$X #
# $c premiere=%d derniere=%d #
# $c vD=$GRIS_5 vA=$GRIS_5 #
# $c cubique=FAUX #
# $c entiers=VRAI #
# $c utiliser_la_valeur_de_depart=FAUX #
# $c > $xTV/COULEURS$BLEUE\n" #
# $c ,N0,n #
# $c ); #
# #
# $c printf("$xrv/particule.10$X #
# $c np=1 #
# $c iterations=%d #
# $c LISTE_X=$xTV/COORDONNEES$COORD_X #
# $c LISTE_Y=$xTV/COORDONNEES$COORD_Y #
# $c LISTE_Z=$xTV/COORDONNEES$COORD_Z #
# $c LISTE_ROUGE=$xTV/COULEURS$ROUGE #
# $c LISTE_VERTE=$xTV/COULEURS$VERTE #
# $c LISTE_BLEUE=$xTV/COULEURS$BLEUE #
# $c LISTE_RAYON=0.006 #
# $c zoom_automatique=FAUX ZOOM=1.0 #
# $c coordonnees_dans_0_1=FAUX #
# $c AXYZ=1 BXYZ=0 #
# $c fond=VRAI #
# $c fond_dynamique=FAUX #
# $c F=$xiim/REFL.W.%04d #
# $c R=$xTV/REFL.A. #
# $c $formatI\n" #
# $c ,(n-N0)+1,n #
# $c ); #
# #
# $c printf("$xci/acces$X #
# $c A=$xTV/REFL.A.%04d$ROUGE #
# $c R=$xiim/REFL.W.%04d$ROUGE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xTV/REFL.A.%04d$VERTE #
# $c R=$xiim/REFL.W.%04d$VERTE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xTV/REFL.A.%04d$BLEUE #
# $c R=$xiim/REFL.W.%04d$BLEUE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# #
# $c printf("$DELETE $xTV/COORDONNEES\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_X\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_Y\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_Z\n"); #
# #
# $c printf("$DELETE $xTV/COULEURS$ROUGE\n"); #
# $c printf("$DELETE $xTV/COULEURS$VERTE\n"); #
# $c printf("$DELETE $xTV/COULEURS$BLEUE\n"); #
# #
# $c printf("listMN $xTV/GRAVITE #
# $c %d %d #
# $c > $xTV/COORDONNEES\n" #
# $c ,n,n #
# $c ); #
# #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*[(,]XG=//%c #
# $c -e %cs/[,)].*//%c #
# $c > $xTV/COORDONNEES$COORD_X\n" #
# $c ,'"','"','"','"' #
# $c ); #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*[(,]YG=//%c #
# $c -e %cs/[,)].*//%c #
# $c > $xTV/COORDONNEES$COORD_Y\n" #
# $c ,'"','"','"','"' #
# $c ); #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*[(,]ZG=//%c #
# $c -e %cs/[,)].*//%c #
# $c > $xTV/COORDONNEES$COORD_Z\n" #
# $c ,'"','"','"','"' #
# $c ); #
# #
# $c printf("$xci/valeurs_inte$X #
# $c premiere=%d derniere=%d #
# $c vD=$GRIS_8 vA=$GRIS_8 #
# $c cubique=FAUX #
# $c entiers=VRAI #
# $c utiliser_la_valeur_de_depart=FAUX #
# $c > $xTV/COULEURS$ROUGE\n" #
# $c ,n,n #
# $c ); #
# $c printf("$xci/valeurs_inte$X #
# $c premiere=%d derniere=%d #
# $c vD=$GRIS_8 vA=$GRIS_8 #
# $c cubique=FAUX #
# $c entiers=VRAI #
# $c utiliser_la_valeur_de_depart=FAUX #
# $c > $xTV/COULEURS$VERTE\n" #
# $c ,n,n #
# $c ); #
# $c printf("$xci/valeurs_inte$X #
# $c premiere=%d derniere=%d #
# $c vD=$GRIS_8 vA=$GRIS_8 #
# $c cubique=FAUX #
# $c entiers=VRAI #
# $c utiliser_la_valeur_de_depart=FAUX #
# $c > $xTV/COULEURS$BLEUE\n" #
# $c ,n,n #
# $c ); #
# #
# $c printf("$xrv/particule.10$X #
# $c np=1 #
# $c iterations=%d #
# $c LISTE_X=$xTV/COORDONNEES$COORD_X #
# $c LISTE_Y=$xTV/COORDONNEES$COORD_Y #
# $c LISTE_Z=$xTV/COORDONNEES$COORD_Z #
# $c LISTE_ROUGE=$xTV/COULEURS$ROUGE #
# $c LISTE_VERTE=$xTV/COULEURS$VERTE #
# $c LISTE_BLEUE=$xTV/COULEURS$BLEUE #
# $c LISTE_RAYON=0.012 #
# $c zoom_automatique=FAUX ZOOM=1.0 #
# $c coordonnees_dans_0_1=FAUX #
# $c AXYZ=1 BXYZ=0 #
# $c fond=VRAI #
# $c fond_dynamique=FAUX #
# $c F=$xiim/REFL.W.%04d #
# $c R=$xTV/REFL.B. #
# $c $formatI\n" #
# $c ,(n-n)+1,n #
# $c ); #
# #
# $c printf("$xci/acces$X #
# $c A=$xTV/REFL.B.%04d$ROUGE #
# $c R=$xiim/REFL.W.%04d$ROUGE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xTV/REFL.B.%04d$VERTE #
# $c R=$xiim/REFL.W.%04d$VERTE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xTV/REFL.B.%04d$BLEUE #
# $c R=$xiim/REFL.W.%04d$BLEUE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# $c } #
# $c } #
# #
# #
# $Z $DELETE $xTV/COORDONNEES #
# $Z $DELETE $xTV/COORDONNEES$COORD_X #
# $Z $DELETE $xTV/COORDONNEES$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_Z #
# $Z $DELETE $xTV/COULEURS$ROUGE #
# $Z $DELETE $xTV/COULEURS$VERTE #
# $Z $DELETE $xTV/COULEURS$BLEUE #
# #
# #
# #
# $Z $xci/complement$X A=$xTV/BOITE.1 \ #
# $Z R=$xTV/BOITE.3 \ #
# $Z $formatI #
# #
# $Z eval `$xci/genere$X \\\ #
# $Z commande='($xci/scale$X \\\ #
# $Z A=$xTV/BOITE.3 \\\ #
# $Z a=0.50 \\\ #
# $Z R=$xTV/BOITE.3%s \\\ #
# $Z $formatI)' \\\ #
# $Z en_tete=FAUX RVB=VRAI separateur=VRAI` #
# #
# #
# $X $xci/genere$X premiere=$Premiere derniere=$Derniere pas=1 \ #
# $X C='$xci/cache.11$Z \ #
# $X $xiim/REFL.W.%04d \ #
# $X $xTV/BOITE.3 \ #
# $X $xiim/REFL.8.%04d' #
# #
# $Z $DELETE $xTV/BOITE.1 #
# $Z $DELETE $xTV/BOITE.2 #
# $Z $DELETE $xTV/BOITE.3 #
# $Z $DELETE $xTV/BOITE.3$ROUGE #
# $Z $DELETE $xTV/BOITE.3$VERTE #
# $Z $DELETE $xTV/BOITE.3$BLEUE #
# #
# $Z Pal #
# #
# $Z $xci/reduction_16$Z $xiim/REFL.8. $xiak/REFL.D4 $Premiere $Derniere #
# $Z $xci/reduction_64$Z $xiim/REFL.8. $xiak/REFL.D4 $Premiere $Derniere #
# #
# $X $xci/genere$X c='ro $xiak/REFL.D4$R16%s' RVB=VRAI #
# $X $xci/genere$X c='ro $xiak/REFL.D4$R64%s' RVB=VRAI #
# #
# $X $xci/genere$X c='$xcg/unite$Z $xiak/REFL.D4$R16%s' RVB=VRAI #
# $X $xci/genere$X c='$xcg/unite$Z $xiak/REFL.D4$R64%s' RVB=VRAI #
# #
# $X $xci/genere$X c='$CP $xiim/REFL.8.0512%s $xiirk/REFL.D4.0512%s' RVB=VRAI #
# #
# $X $xci/genere$X c='ro $xiirk/REFL.D4.0512%s' RVB=VRAI #
# #
# $X $xci/genere$X c='$xcg/unite$Z $xiirk/REFL.D4.0512%s' RVB=VRAI #
# #
# #
# Pal #
# #
# #
# $xci/disk_video_P$Z $xiim_LACT29/REFL.8. 001 512 RVB \ #
# 11 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
# #
# xivPdf 3 2 #
# #
# record.01$Z $xiak/REFL.D4$R16 RVB Initialisation #
# record.01$Z $xiak/REFL.D4$R64 RVB rien #
# record.01$Z $xiirk/REFL.D4.0512 RVB rien #
# #
sequence 009729_010240
# Generee (sur '$LACT29') par : #
# #
# $Z SET Premiere=1 #
# $Z SET Derniere=512 #
# $Z @ Nimages = $Derniere - $Premiere #
# $Z @ Nimages = $Nimages + 1 #
# #
# #
# $Z Pal #
# #
# $Z set PUnivers="np=0 CAL1=FAUX editer_l_univers_physique=VRAI" #
# $Z set Univers=`$xrk/rdn_walk.41$X $PUnivers $formatI` #
# #
# $Z set MinX=`echo $Univers | $SE -e "s/^.*[(,]XUI=//" -e "s/[,)].*//"` #
# $Z set MaxX=`echo $Univers | $SE -e "s/^.*[(,]XUS=//" -e "s/[,)].*//"` #
# $Z set MinY=`echo $Univers | $SE -e "s/^.*[(,]YUI=//" -e "s/[,)].*//"` #
# $Z set MaxY=`echo $Univers | $SE -e "s/^.*[(,]YUS=//" -e "s/[,)].*//"` #
# #
# $Z set MinX=`$xcg/ABSO.01$X x=$MinX` #
# $Z set MaxX=`$xcg/ABSO.01$X x=$MaxX` #
# $Z set MinY=`$xcg/ABSO.01$X x=$MinY` #
# $Z set MaxY=`$xcg/ABSO.01$X x=$MaxY` #
# #
# $Z set MaxX=`$xcg/MAX2.01$X n1=$MinX n2=$MaxX` #
# $Z set MaxY=`$xcg/MAX2.01$X n1=$MinY n2=$MaxY` #
# #
# $Z set SeuilPartN=0.000502 #
# $Z set GrainePartN=2 #
# #
# $Z $DELETE $xTV/BOITE.1 #
# $Z $DELETE $xTV/BOITE.2 #
# $Z $DELETE $xTV/BOITE.3 #
# $Z $DELETE $xTV/BOITE.3$ROUGE #
# $Z $DELETE $xTV/BOITE.3$VERTE #
# $Z $DELETE $xTV/BOITE.3$BLEUE #
# $Z $DELETE $xTV/BOITE.4 #
# $Z $DELETE $xTV/BOITE.5 #
# $Z $DELETE $xTV/BOITE.6 #
# $Z $DELETE $xTV/BOITE.7 #
# $Z $DELETE $xTV/BOITE.8 #
# $Z $DELETE $xTV/BOITE.9 #
# $Z $DELETE $xTV/BOITE.A #
# $Z $DELETE $xTV/BOITE.B #
# #
# #
# $Z Std #
# #
# $Z $xci/complement$X \ #
# $Z A=$xiio/SPIRALE \ #
# $Z R=$xTV/BOITE.4 \ #
# $Z $formatI #
# $Z $xci/seuil$X \ #
# $Z A=$xTV/BOITE.4 \ #
# $Z seuil=$GRIS_6 \ #
# $Z R=$xTV/BOITE.9 \ #
# $Z $formatI #
# #
# $Z $xci/reduction_04$X \ #
# $Z A=$xTV/BOITE.4 \ #
# $Z chiffres=0 \ #
# $Z moyenne=FAUX \ #
# $Z $formatI | \ #
# $Z $xci/or_02$X \ #
# $Z A2=$xTV/BOITE.9 \ #
# $Z $formatI | \ #
# $Z $xci/seuil$X \ #
# $Z seuil=$GRIS_1 \ #
# $Z R=$xTV/BOITE.5 \ #
# $Z $formatI #
# #
# $Z $xci/reduction_04$X \ #
# $Z A=$xTV/BOITE.5 \ #
# $Z chiffres=0 \ #
# $Z moyenne=FAUX \ #
# $Z $formatI | \ #
# $Z $xci/or_02$X \ #
# $Z A2=$xTV/BOITE.9 \ #
# $Z R=$xTV/BOITE.6 \ #
# $Z $formatI #
# #
# $Z S #
# #
# $Z $xci/format.01$X mode=0 \ #
# $Z A=$xTV/BOITE.6 \ #
# $Z $formatI \ #
# $Z R=$xTV/BOITE.1 \ #
# $Z $formatR_Pal #
# #
# $Z $xci/dilate.01$X \ #
# $Z A=$xTV/BOITE.6 \ #
# $Z points=225 \ #
# $Z dilater=FAUX \ #
# $Z R=$xTV/BOITE.A \ #
# $Z $formatI #
# #
# $Z $xci/random.02$X \ #
# $Z seuil=$SeuilPartN \ #
# $Z graine=$GrainePartN \ #
# $Z $formatI | \ #
# $Z $xci/and$X \ #
# $Z A2=$xTV/BOITE.A \ #
# $Z R=$xTV/BOITE.B \ #
# $Z $formatI #
# #
# $Z $DELETE $xTV/COORDONNEES #
# $Z $DELETE $xTV/COORDONNEES_01$COORD_X #
# $Z $DELETE $xTV/COORDONNEES_01$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_X #
# $Z $DELETE $xTV/COORDONNEES$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_Z #
# #
# $Z $xci/liste_points$X \ #
# $Z A=$xTV/BOITE.B \ #
# $Z $formatI \ #
# $Z > $xTV/COORDONNEES #
# #
# $Z $DELETE $xTV/BOITE.4 #
# $Z $DELETE $xTV/BOITE.5 #
# $Z $DELETE $xTV/BOITE.6 #
# $Z $DELETE $xTV/BOITE.7 #
# $Z $DELETE $xTV/BOITE.8 #
# $Z $DELETE $xTV/BOITE.9 #
# $Z $DELETE $xTV/BOITE.A #
# $Z $DELETE $xTV/BOITE.B #
# #
# $Z set PartN=`$TAI -1 $xTV/COORDONNEES | $SE -e "s/^.*=//"` #
# #
# $Z $CA $xTV/COORDONNEES \ #
# $Z | $GRE "^[Xx]=" \ #
# $Z | $SE -e "s/^[Xx]=//" \ #
# $Z > $xTV/COORDONNEES_01$COORD_X #
# $Z $CA $xTV/COORDONNEES \ #
# $Z | $GRE "^[Yy]=" \ #
# $Z | $SE -e "s/^[Yy]=//" \ #
# $Z > $xTV/COORDONNEES_01$COORD_Y #
# #
# $Z set EchelleX=`$xcg/MUL2.01$X n1=2 n2=$MaxX` #
# $Z set TranslationX=`$xcg/MUL2.01$X n1=-1 n2=$MaxX` #
# $Z set EchelleY=`$xcg/MUL2.01$X n1=2 n2=$MaxY` #
# $Z set TranslationY=`$xcg/MUL2.01$X n1=-1 n2=$MaxY` #
# #
# $Z $xrv/AXPB.01$X \ #
# $Z CAL1=FAUX \ #
# $Z ne=$PartN \ #
# $Z fichier=$xTV/COORDONNEES_01$COORD_X \ #
# $Z homothetie=$EchelleX translation=$TranslationX \ #
# $Z > $xTV/COORDONNEES$COORD_X #
# $Z $xrv/AXPB.01$X \ #
# $Z CAL1=FAUX \ #
# $Z ne=$PartN \ #
# $Z fichier=$xTV/COORDONNEES_01$COORD_Y \ #
# $Z homothetie=$EchelleY translation=$TranslationY \ #
# $Z > $xTV/COORDONNEES$COORD_Y #
# #
# $Z $DELETE $xTV/COORDONNEES_01$COORD_X #
# $Z $DELETE $xTV/COORDONNEES_01$COORD_Y #
# #
# $Z set Part0=1 #
# $Z @ Npart = $PartN - $Part0 #
# $Z @ Npart = $Npart + 1 #
# #
# $Z $DELETE $xTV/MODULE #
# $Z $DELETE $xTV/THETA #
# $Z $DELETE $xTV/XY_RT.1 #
# $Z $DELETE $xTV/XY_RT.2 #
# $Z $DELETE $xTV/VITESSES #
# $Z $DELETE $xTV/VITESSES$COORD_X #
# $Z $DELETE $xTV/VITESSES$COORD_Y #
# $Z $DELETE $xTV/VITESSES$COORD_Z #
# $Z $DELETE $xTV/mdRHO #
# $Z $DELETE $xTV/MdRHO #
# $Z $DELETE $xTV/mnPHI #
# $Z $DELETE $xTV/MnPHI #
# $Z $DELETE $xTV/dPHI #
# $Z $DELETE $xTV/mnTHETA #
# $Z $DELETE $xTV/MnTHETA #
# $Z $DELETE $xTV/dTHETA #
# $Z $DELETE $xTV/supOUVE #
# $Z $DELETE $xTV/DISTANCE #
# $Z $DELETE $xTV/STABILITE #
# $Z $DELETE $xTV/RAYONS #
# $Z $DELETE $xTV/INTERACTIONS #
# #
# #
# $Z alias Gen 'set Fi=\!:1 ; set vD=\!:2 ; set vA=\!:3 ; set ArG=(\!:4*) ; \\ #
# $Z $DELETE $Fi ; \\ #
# $Z $xci/valeurs_inte$X p=$Part0 d=$PartN vD=$vD vA=$vA $ArG > $Fi ; \\ #
# $Z unset Fi vD vA ArG' #
# #
# $Z alias GenR 'set Fi=\!:1 ; set In=\!:2 ; set Su=\!:3 ; set ArG=(\!:4*) ; \\ #
# $Z $DELETE $Fi ; \\ #
# $Z $xci/valeurs_alea$X p=$Part0 d=$PartN signe="$KV" inf=$In sup=$Su $ArG > $Fi ; \\ #
# $Z unset Fi In Su ArG' #
# #
# $Z Gen $xTV/COORDONNEES$COORD_Z 0.0 0.0 #
# #
# #
# $Z Gen $xTV/MODULE 0.02 0.02 #
# $Z GenR $xTV/THETA 0.0 $dpi g=3333 #
# #
# $Z $CA $xcs/csh$Y \ #
# $Z > $xTV/XY_RT.1 #
# $Z $PAST $xTV/MODULE $xTV/THETA \ #
# $Z | $R "$K_TAB" "$K_BLANC" \ #
# $Z | $AW ' { print "$xcg/XY_RT$X r=" $1 " t=" $2 " cartesien=FAUX" } ' \ #
# $Z >>! $xTV/XY_RT.1 #
# #
# $Z (source $xTV/XY_RT.1) \ #
# $Z > $xTV/XY_RT.2 #
# #
# $Z $CA $xTV/XY_RT.2 \ #
# $Z | $GRE "^x=" \ #
# $Z | $SE -e "s/^x=//" \ #
# $Z > $xTV/VITESSES$COORD_X #
# $Z $CA $xTV/XY_RT.2 \ #
# $Z | $GRE "^y=" \ #
# $Z | $SE -e "s/^y=//" \ #
# $Z > $xTV/VITESSES$COORD_Y #
# #
# $Z Gen $xTV/VITESSES$COORD_Z 0.0 0.0 #
# #
# $Z Gen $xTV/mdRHO 0.0 0.0 #
# $Z Gen $xTV/MdRHO 0.0 0.0 #
# $Z Gen $xTV/mnPHI 0.0 0.0 #
# $Z Gen $xTV/MnPHI 0.0 0.0 #
# $Z Gen $xTV/dPHI 0.0 0.0 #
# $Z Gen $xTV/mnTHETA 0.0 0.0 #
# $Z Gen $xTV/MnTHETA 0.0 0.0 #
# $Z Gen $xTV/dTHETA 0.0 0.0 #
# $Z Gen $xTV/DISTANCE 1000000 1000000 #
# $Z Gen $xTV/STABILITE 1000000 1000000 #
# #
# $Z set RayonsT=0.014 #
# $Z set RayonsP=`$xcg/MUL2.01$X a=2 b=$RayonsT` #
# $Z set DistanceI=`$xcg/MUL2.01$X a=4 b=$RayonsP` #
# $Z Gen $xTV/RAYONS $RayonsT $RayonsT #
# $Z Gen $xTV/INTERACTIONS $RayonsP $RayonsP #
# #
# $Z $DELETE $xTV/COULEURS$TEINT #
# $Z $DELETE $xTV/COULEURS$LUMIN #
# $Z $DELETE $xTV/COULEURS$SATUR #
# $Z $DELETE $xTV/COULEURS$Y #
# $Z $DELETE $xTV/COULEURS #
# $Z $DELETE $xTV/COULEURS$ROUGE #
# $Z $DELETE $xTV/COULEURS$VERTE #
# $Z $DELETE $xTV/COULEURS$BLEUE #
# #
# $Z @ TeinteMagenta = $GRIS_7 #
# $Z @ TeinteCyan = $GRIS_4 + $GRIS_8 #
# #
# $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartN \ #
# $Z vD=$TeinteMagenta vA=$TeinteCyan \ #
# $Z cubique=FAUX \ #
# $Z entiers=VRAI \ #
# $Z > $xTV/COULEURS$TEINT #
# $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartN \ #
# $Z vD=$GRIS_4 vA=$GRIS_4 \ #
# $Z cubique=FAUX \ #
# $Z entiers=VRAI \ #
# $Z > $xTV/COULEURS$LUMIN #
# $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartN \ #
# $Z vD=$GRIS_8 vA=$GRIS_8 \ #
# $Z cubique=FAUX \ #
# $Z entiers=VRAI \ #
# $Z > $xTV/COULEURS$SATUR #
# #
# $Z $PAST \ #
# $Z $xTV/COULEURS$TEINT \ #
# $Z $xTV/COULEURS$LUMIN \ #
# $Z $xTV/COULEURS$SATUR \ #
# $Z | $R "$K_TAB" "$K_BLANC" \ #
# $Z | $AW ' { print "H=" $1 " L=" $2 " S=" $3 } ' \ #
# $Z | $SE -e 's+^+$xcg/RVB_HLS$X RVB_HLS=FAUX +' \ #
# $Z | $SE -e 's/$/ eR=VRAI eV=VRAI eB=VRAI/' \ #
# $Z | $SE -e 's/$/ eH=FAUX eL=FAUX eS=FAUX/' \ #
# $Z > $xTV/COULEURS$Y #
# #
# $Z (source $xTV/COULEURS$Y) \ #
# $Z > $xTV/COULEURS #
# #
# $Z $GRE "^R=" $xTV/COULEURS \ #
# $Z | $SE -e "s/^R=//" \ #
# $Z > $xTV/COULEURS$ROUGE #
# $Z $GRE "^V=" $xTV/COULEURS \ #
# $Z | $SE -e "s/^V=//" \ #
# $Z > $xTV/COULEURS$VERTE #
# $Z $GRE "^B=" $xTV/COULEURS \ #
# $Z | $SE -e "s/^B=//" \ #
# $Z > $xTV/COULEURS$BLEUE #
# #
# $Z Pal #
# #
# #
# $Z $xci/scale$X \ #
# $Z A=$xTV/BOITE.1 \ #
# $Z a=1.00 \ #
# $Z R=$xTV/BOITE.2 \ #
# $Z $formatI #
# #
# $Z $xrk/rdn_walk.41$X corps=$Npart \ #
# $Z np=$Nimages \ #
# $Z collisions=VRAI DLA=FAUX interaction=$DistanceI \ #
# $Z LISTE_X=$xTV/COORDONNEES$COORD_X \ #
# $Z LISTE_Y=$xTV/COORDONNEES$COORD_Y \ #
# $Z LISTE_Z=$xTV/COORDONNEES$COORD_Z \ #
# $Z LISTE_VX=$xTV/VITESSES$COORD_X \ #
# $Z LISTE_VY=$xTV/VITESSES$COORD_Y \ #
# $Z LISTE_VZ=$xTV/VITESSES$COORD_Z \ #
# $Z LISTE_MINIMUM_DELTA_RHO=$xTV/mdRHO \ #
# $Z LISTE_MAXIMUM_DELTA_RHO=$xTV/MdRHO \ #
# $Z LISTE_MINIMUM_N_PHI=$xTV/mnPHI \ #
# $Z LISTE_MAXIMUM_N_PHI=$xTV/MnPHI \ #
# $Z LISTE_DELTA_PHI=$xTV/dPHI \ #
# $Z LISTE_MINIMUM_N_THETA=$xTV/mnTHETA \ #
# $Z LISTE_MAXIMUM_N_THETA=$xTV/MnTHETA \ #
# $Z LISTE_DELTA_THETA=$xTV/dTHETA \ #
# $Z LISTE_DISTANCE_MAXIMALE=$xTV/DISTANCE \ #
# $Z LISTE_STABILITE=$xTV/STABILITE \ #
# $Z LISTE_RAYON=$xTV/RAYONS \ #
# $Z LISTE_RAYON_D_INTERACTION=$xTV/INTERACTIONS \ #
# $Z LISTE_ROUGE=$xTV/COULEURS$ROUGE \ #
# $Z LISTE_VERTE=$xTV/COULEURS$VERTE \ #
# $Z LISTE_BLEUE=$xTV/COULEURS$BLEUE \ #
# $Z milieu=VRAI \ #
# $Z reflexion=VRAI refraction=FAUX \ #
# $Z Mhors=$BLANC \ #
# $Z MNpasX=1 Mprolonger_X=VRAI \ #
# $Z MNpasY=1 Mprolonger_Y=VRAI \ #
# $Z MNpasZ=1 Mprolonger_Z=VRAI \ #
# $Z adapter_M_nPAS=VRAI \ #
# $Z Msimplifier=FAUX affiner_M_maillage=FAUX \ #
# $Z MC=$xTV/BOITE.2 \ #
# $Z MChiffres=0 \ #
# $Z Zmin=0 Zmax=15 \ #
# $Z centrer=VRAI \ #
# $Z dct=0.05 nombre=10 \ #
# $Z trainees=VRAI mode=1 \ #
# $Z attenuation_des_images=0.6 \ #
# $Z attenuation_des_trainees=1.00 \ #
# $Z renormaliser=FAUX \ #
# $Z Lz=100 \ #
# $Z zoom_automatique=VRAI \ #
# $Z centre_de_gravite=FAUX \ #
# $Z fond=FAUX \ #
# $Z R=$xiim/REFL.W. \ #
# $Z $formatI #
# #
# $Z $DELETE $xTV/RAYONS #
# $Z $CP $xTV/INTERACTIONS $xTV/RAYONS #
# #
# $Z $DELETE $xTV/GRAVITE #
# $Z $xrk/rdn_walk.41$X corps=$Npart \ #
# $Z np=$Nimages \ #
# $Z collisions=VRAI DLA=FAUX interaction=$DistanceI \ #
# $Z LISTE_X=$xTV/COORDONNEES$COORD_X \ #
# $Z LISTE_Y=$xTV/COORDONNEES$COORD_Y \ #
# $Z LISTE_Z=$xTV/COORDONNEES$COORD_Z \ #
# $Z LISTE_VX=$xTV/VITESSES$COORD_X \ #
# $Z LISTE_VY=$xTV/VITESSES$COORD_Y \ #
# $Z LISTE_VZ=$xTV/VITESSES$COORD_Z \ #
# $Z LISTE_MINIMUM_DELTA_RHO=$xTV/mdRHO \ #
# $Z LISTE_MAXIMUM_DELTA_RHO=$xTV/MdRHO \ #
# $Z LISTE_MINIMUM_N_PHI=$xTV/mnPHI \ #
# $Z LISTE_MAXIMUM_N_PHI=$xTV/MnPHI \ #
# $Z LISTE_DELTA_PHI=$xTV/dPHI \ #
# $Z LISTE_MINIMUM_N_THETA=$xTV/mnTHETA \ #
# $Z LISTE_MAXIMUM_N_THETA=$xTV/MnTHETA \ #
# $Z LISTE_DELTA_THETA=$xTV/dTHETA \ #
# $Z LISTE_DISTANCE_MAXIMALE=$xTV/DISTANCE \ #
# $Z LISTE_STABILITE=$xTV/STABILITE \ #
# $Z LISTE_RAYON=$xTV/RAYONS \ #
# $Z LISTE_RAYON_D_INTERACTION=$xTV/INTERACTIONS \ #
# $Z LISTE_ROUGE=$xTV/COULEURS$ROUGE \ #
# $Z LISTE_VERTE=$xTV/COULEURS$VERTE \ #
# $Z LISTE_BLEUE=$xTV/COULEURS$BLEUE \ #
# $Z milieu=VRAI \ #
# $Z reflexion=VRAI refraction=FAUX \ #
# $Z Mhors=$BLANC \ #
# $Z MNpasX=1 Mprolonger_X=VRAI \ #
# $Z MNpasY=1 Mprolonger_Y=VRAI \ #
# $Z MNpasZ=1 Mprolonger_Z=VRAI \ #
# $Z adapter_M_nPAS=VRAI \ #
# $Z Msimplifier=FAUX affiner_M_maillage=FAUX \ #
# $Z MC=$xTV/BOITE.2 \ #
# $Z MChiffres=0 \ #
# $Z Zmin=0 Zmax=15 \ #
# $Z centrer=VRAI \ #
# $Z dct=0.05 nombre=10 \ #
# $Z trainees=VRAI mode=1 \ #
# $Z attenuation_des_images=1.0 \ #
# $Z attenuation_des_trainees=0.80 \ #
# $Z renormaliser=FAUX \ #
# $Z Lz=100 \ #
# $Z zoom_automatique=VRAI \ #
# $Z centre_de_gravite=VRAI \ #
# $Z fond=VRAI \ #
# $Z dynamique=VRAI \ #
# $Z F=$xiim/REFL.W. \ #
# $Z R=$xiim/REFL.W. \ #
# $Z $formatI | \ #
# $Z $GRE " CENTRE_DE_GRAVITE=" \ #
# $Z > $xTV/GRAVITE #
# #
# $Z $DELETE $xTV/COORDONNEES #
# $Z $DELETE $xTV/COORDONNEES$COORD_X #
# $Z $DELETE $xTV/COORDONNEES$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_Z #
# $Z $DELETE $xTV/VITESSES #
# $Z $DELETE $xTV/VITESSES$COORD_X #
# $Z $DELETE $xTV/VITESSES$COORD_Y #
# $Z $DELETE $xTV/VITESSES$COORD_Z #
# $Z $DELETE $xTV/mdRHO #
# $Z $DELETE $xTV/MdRHO #
# $Z $DELETE $xTV/mnPHI #
# $Z $DELETE $xTV/MnPHI #
# $Z $DELETE $xTV/dPHI #
# $Z $DELETE $xTV/mnTHETA #
# $Z $DELETE $xTV/MnTHETA #
# $Z $DELETE $xTV/dTHETA #
# $Z $DELETE $xTV/DISTANCE #
# $Z $DELETE $xTV/STABILITE #
# $Z $DELETE $xTV/RAYONS #
# $Z $DELETE $xTV/INTERACTIONS #
# $Z $DELETE $xTV/COULEURS$TEINT #
# $Z $DELETE $xTV/COULEURS$LUMIN #
# $Z $DELETE $xTV/COULEURS$SATUR #
# $Z $DELETE $xTV/COULEURS$Y #
# $Z $DELETE $xTV/COULEURS #
# $Z $DELETE $xTV/COULEURS$ROUGE #
# $Z $DELETE $xTV/COULEURS$VERTE #
# $Z $DELETE $xTV/COULEURS$BLEUE #
# #
# $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("$DELETE $xTV/COORDONNEES\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_X\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_Y\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_Z\n"); #
# #
# $c printf("$DELETE $xTV/COULEURS$ROUGE\n"); #
# $c printf("$DELETE $xTV/COULEURS$VERTE\n"); #
# $c printf("$DELETE $xTV/COULEURS$BLEUE\n"); #
# #
# $c printf("listMN $xTV/GRAVITE #
# $c %d %d #
# $c > $xTV/COORDONNEES\n" #
# $c ,N0,n #
# $c ); #
# #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*[(,]XG=//%c #
# $c -e %cs/[,)].*//%c #
# $c > $xTV/COORDONNEES$COORD_X\n" #
# $c ,'"','"','"','"' #
# $c ); #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*[(,]YG=//%c #
# $c -e %cs/[,)].*//%c #
# $c > $xTV/COORDONNEES$COORD_Y\n" #
# $c ,'"','"','"','"' #
# $c ); #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*[(,]ZG=//%c #
# $c -e %cs/[,)].*//%c #
# $c > $xTV/COORDONNEES$COORD_Z\n" #
# $c ,'"','"','"','"' #
# $c ); #
# #
# $c printf("$xci/valeurs_inte$X #
# $c premiere=%d derniere=%d #
# $c vD=$GRIS_5 vA=$GRIS_5 #
# $c cubique=FAUX #
# $c entiers=VRAI #
# $c utiliser_la_valeur_de_depart=FAUX #
# $c > $xTV/COULEURS$ROUGE\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/valeurs_inte$X #
# $c premiere=%d derniere=%d #
# $c vD=$GRIS_5 vA=$GRIS_5 #
# $c cubique=FAUX #
# $c entiers=VRAI #
# $c utiliser_la_valeur_de_depart=FAUX #
# $c > $xTV/COULEURS$VERTE\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/valeurs_inte$X #
# $c premiere=%d derniere=%d #
# $c vD=$GRIS_5 vA=$GRIS_5 #
# $c cubique=FAUX #
# $c entiers=VRAI #
# $c utiliser_la_valeur_de_depart=FAUX #
# $c > $xTV/COULEURS$BLEUE\n" #
# $c ,N0,n #
# $c ); #
# #
# $c printf("$xrv/particule.10$X #
# $c np=1 #
# $c iterations=%d #
# $c LISTE_X=$xTV/COORDONNEES$COORD_X #
# $c LISTE_Y=$xTV/COORDONNEES$COORD_Y #
# $c LISTE_Z=$xTV/COORDONNEES$COORD_Z #
# $c LISTE_ROUGE=$xTV/COULEURS$ROUGE #
# $c LISTE_VERTE=$xTV/COULEURS$VERTE #
# $c LISTE_BLEUE=$xTV/COULEURS$BLEUE #
# $c LISTE_RAYON=0.006 #
# $c zoom_automatique=FAUX ZOOM=1.0 #
# $c coordonnees_dans_0_1=FAUX #
# $c AXYZ=1 BXYZ=0 #
# $c fond=VRAI #
# $c fond_dynamique=FAUX #
# $c F=$xiim/REFL.W.%04d #
# $c R=$xTV/REFL.A. #
# $c $formatI\n" #
# $c ,(n-N0)+1,n #
# $c ); #
# #
# $c printf("$xci/acces$X #
# $c A=$xTV/REFL.A.%04d$ROUGE #
# $c R=$xiim/REFL.W.%04d$ROUGE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xTV/REFL.A.%04d$VERTE #
# $c R=$xiim/REFL.W.%04d$VERTE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xTV/REFL.A.%04d$BLEUE #
# $c R=$xiim/REFL.W.%04d$BLEUE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# #
# $c printf("$DELETE $xTV/COORDONNEES\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_X\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_Y\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_Z\n"); #
# #
# $c printf("$DELETE $xTV/COULEURS$ROUGE\n"); #
# $c printf("$DELETE $xTV/COULEURS$VERTE\n"); #
# $c printf("$DELETE $xTV/COULEURS$BLEUE\n"); #
# #
# $c printf("listMN $xTV/GRAVITE #
# $c %d %d #
# $c > $xTV/COORDONNEES\n" #
# $c ,n,n #
# $c ); #
# #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*[(,]XG=//%c #
# $c -e %cs/[,)].*//%c #
# $c > $xTV/COORDONNEES$COORD_X\n" #
# $c ,'"','"','"','"' #
# $c ); #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*[(,]YG=//%c #
# $c -e %cs/[,)].*//%c #
# $c > $xTV/COORDONNEES$COORD_Y\n" #
# $c ,'"','"','"','"' #
# $c ); #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*[(,]ZG=//%c #
# $c -e %cs/[,)].*//%c #
# $c > $xTV/COORDONNEES$COORD_Z\n" #
# $c ,'"','"','"','"' #
# $c ); #
# #
# $c printf("$xci/valeurs_inte$X #
# $c premiere=%d derniere=%d #
# $c vD=$GRIS_8 vA=$GRIS_8 #
# $c cubique=FAUX #
# $c entiers=VRAI #
# $c utiliser_la_valeur_de_depart=FAUX #
# $c > $xTV/COULEURS$ROUGE\n" #
# $c ,n,n #
# $c ); #
# $c printf("$xci/valeurs_inte$X #
# $c premiere=%d derniere=%d #
# $c vD=$GRIS_8 vA=$GRIS_8 #
# $c cubique=FAUX #
# $c entiers=VRAI #
# $c utiliser_la_valeur_de_depart=FAUX #
# $c > $xTV/COULEURS$VERTE\n" #
# $c ,n,n #
# $c ); #
# $c printf("$xci/valeurs_inte$X #
# $c premiere=%d derniere=%d #
# $c vD=$GRIS_8 vA=$GRIS_8 #
# $c cubique=FAUX #
# $c entiers=VRAI #
# $c utiliser_la_valeur_de_depart=FAUX #
# $c > $xTV/COULEURS$BLEUE\n" #
# $c ,n,n #
# $c ); #
# #
# $c printf("$xrv/particule.10$X #
# $c np=1 #
# $c iterations=%d #
# $c LISTE_X=$xTV/COORDONNEES$COORD_X #
# $c LISTE_Y=$xTV/COORDONNEES$COORD_Y #
# $c LISTE_Z=$xTV/COORDONNEES$COORD_Z #
# $c LISTE_ROUGE=$xTV/COULEURS$ROUGE #
# $c LISTE_VERTE=$xTV/COULEURS$VERTE #
# $c LISTE_BLEUE=$xTV/COULEURS$BLEUE #
# $c LISTE_RAYON=0.012 #
# $c zoom_automatique=FAUX ZOOM=1.0 #
# $c coordonnees_dans_0_1=FAUX #
# $c AXYZ=1 BXYZ=0 #
# $c fond=VRAI #
# $c fond_dynamique=FAUX #
# $c F=$xiim/REFL.W.%04d #
# $c R=$xTV/REFL.B. #
# $c $formatI\n" #
# $c ,(n-n)+1,n #
# $c ); #
# #
# $c printf("$xci/acces$X #
# $c A=$xTV/REFL.B.%04d$ROUGE #
# $c R=$xiim/REFL.W.%04d$ROUGE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xTV/REFL.B.%04d$VERTE #
# $c R=$xiim/REFL.W.%04d$VERTE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xTV/REFL.B.%04d$BLEUE #
# $c R=$xiim/REFL.W.%04d$BLEUE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# $c } #
# $c } #
# #
# #
# $Z $DELETE $xTV/COORDONNEES #
# $Z $DELETE $xTV/COORDONNEES$COORD_X #
# $Z $DELETE $xTV/COORDONNEES$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_Z #
# $Z $DELETE $xTV/COULEURS$ROUGE #
# $Z $DELETE $xTV/COULEURS$VERTE #
# $Z $DELETE $xTV/COULEURS$BLEUE #
# #
# #
# #
# $Z $xci/complement$X A=$xTV/BOITE.1 \ #
# $Z R=$xTV/BOITE.3 \ #
# $Z $formatI #
# #
# $Z eval `$xci/genere$X \\\ #
# $Z commande='($xci/scale$X \\\ #
# $Z A=$xTV/BOITE.3 \\\ #
# $Z a=0.50 \\\ #
# $Z R=$xTV/BOITE.3%s \\\ #
# $Z $formatI)' \\\ #
# $Z en_tete=FAUX RVB=VRAI separateur=VRAI` #
# #
# #
# $X $xci/genere$X premiere=$Premiere derniere=$Derniere pas=1 \ #
# $X C='$xci/cache.11$Z \ #
# $X $xiim/REFL.W.%04d \ #
# $X $xTV/BOITE.3 \ #
# $X $xiim/REFL.9.%04d' #
# #
# $Z $DELETE $xTV/BOITE.1 #
# $Z $DELETE $xTV/BOITE.2 #
# $Z $DELETE $xTV/BOITE.3 #
# $Z $DELETE $xTV/BOITE.3$ROUGE #
# $Z $DELETE $xTV/BOITE.3$VERTE #
# $Z $DELETE $xTV/BOITE.3$BLEUE #
# #
# $Z Pal #
# #
# $Z $xci/reduction_16$Z $xiim/REFL.9. $xiak/REFL.D6 $Premiere $Derniere #
# $Z $xci/reduction_64$Z $xiim/REFL.9. $xiak/REFL.D6 $Premiere $Derniere #
# #
# $X $xci/genere$X c='ro $xiak/REFL.D6$R16%s' RVB=VRAI #
# $X $xci/genere$X c='ro $xiak/REFL.D6$R64%s' RVB=VRAI #
# #
# $X $xci/genere$X c='$xcg/unite$Z $xiak/REFL.D6$R16%s' RVB=VRAI #
# $X $xci/genere$X c='$xcg/unite$Z $xiak/REFL.D6$R64%s' RVB=VRAI #
# #
# $X $xci/genere$X c='$CP $xiim/REFL.9.0512%s $xiirk/REFL.D6.0512%s' RVB=VRAI #
# #
# $X $xci/genere$X c='ro $xiirk/REFL.D6.0512%s' RVB=VRAI #
# #
# $X $xci/genere$X c='$xcg/unite$Z $xiirk/REFL.D6.0512%s' RVB=VRAI #
# #
# #
# Pal #
# #
# #
# $xci/disk_video_P$Z $xiim_LACT29/REFL.9. 001 512 RVB \ #
# 11 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
# #
# xivPdf 3 2 #
# #
# record.01$Z $xiak/REFL.D6$R16 RVB Initialisation #
# record.01$Z $xiak/REFL.D6$R64 RVB rien #
# record.01$Z $xiirk/REFL.D6.0512 RVB rien #
# #
sequence 010241_010752
# Generee (sur '$LACT29') par : #
# #
# $Z SET Premiere=1 #
# $Z SET Derniere=512 #
# $Z @ Nimages = $Derniere - $Premiere #
# $Z @ Nimages = $Nimages + 1 #
# #
# #
# $Z Pal #
# #
# $Z set PUnivers="np=0 CAL1=FAUX editer_l_univers_physique=VRAI" #
# $Z set Univers=`$xrk/rdn_walk.41$X $PUnivers $formatI` #
# #
# $Z set MinX=`echo $Univers | $SE -e "s/^.*[(,]XUI=//" -e "s/[,)].*//"` #
# $Z set MaxX=`echo $Univers | $SE -e "s/^.*[(,]XUS=//" -e "s/[,)].*//"` #
# $Z set MinY=`echo $Univers | $SE -e "s/^.*[(,]YUI=//" -e "s/[,)].*//"` #
# $Z set MaxY=`echo $Univers | $SE -e "s/^.*[(,]YUS=//" -e "s/[,)].*//"` #
# #
# $Z set MinX=`$xcg/ABSO.01$X x=$MinX` #
# $Z set MaxX=`$xcg/ABSO.01$X x=$MaxX` #
# $Z set MinY=`$xcg/ABSO.01$X x=$MinY` #
# $Z set MaxY=`$xcg/ABSO.01$X x=$MaxY` #
# #
# $Z set MaxX=`$xcg/MAX2.01$X n1=$MinX n2=$MaxX` #
# $Z set MaxY=`$xcg/MAX2.01$X n1=$MinY n2=$MaxY` #
# #
# $Z set SeuilPartN=0.001620 #
# $Z set GrainePartN=2 #
# #
# $Z $DELETE $xTV/BOITE.1 #
# $Z $DELETE $xTV/BOITE.2 #
# $Z $DELETE $xTV/BOITE.3 #
# $Z $DELETE $xTV/BOITE.3$ROUGE #
# $Z $DELETE $xTV/BOITE.3$VERTE #
# $Z $DELETE $xTV/BOITE.3$BLEUE #
# $Z $DELETE $xTV/BOITE.4 #
# $Z $DELETE $xTV/BOITE.5 #
# $Z $DELETE $xTV/BOITE.6 #
# $Z $DELETE $xTV/BOITE.7 #
# $Z $DELETE $xTV/BOITE.8 #
# $Z $DELETE $xTV/BOITE.9 #
# $Z $DELETE $xTV/BOITE.A #
# $Z $DELETE $xTV/BOITE.B #
# #
# #
# $Z Std #
# #
# $Z $xci/complement$X \ #
# $Z A=$xiio/SPIRALE \ #
# $Z R=$xTV/BOITE.4 \ #
# $Z $formatI #
# $Z $xci/seuil$X \ #
# $Z A=$xTV/BOITE.4 \ #
# $Z seuil=$GRIS_6 \ #
# $Z R=$xTV/BOITE.9 \ #
# $Z $formatI #
# #
# $Z $xci/reduction_04$X \ #
# $Z A=$xTV/BOITE.4 \ #
# $Z chiffres=0 \ #
# $Z moyenne=FAUX \ #
# $Z $formatI | \ #
# $Z $xci/or_02$X \ #
# $Z A2=$xTV/BOITE.9 \ #
# $Z $formatI | \ #
# $Z $xci/seuil$X \ #
# $Z seuil=$GRIS_1 \ #
# $Z R=$xTV/BOITE.5 \ #
# $Z $formatI #
# #
# $Z $xci/reduction_04$X \ #
# $Z A=$xTV/BOITE.5 \ #
# $Z chiffres=0 \ #
# $Z moyenne=FAUX \ #
# $Z $formatI | \ #
# $Z $xci/or_02$X \ #
# $Z A2=$xTV/BOITE.9 \ #
# $Z R=$xTV/BOITE.6 \ #
# $Z $formatI #
# #
# $Z S #
# #
# $Z $xci/format.01$X mode=0 \ #
# $Z A=$xTV/BOITE.6 \ #
# $Z $formatI \ #
# $Z R=$xTV/BOITE.1 \ #
# $Z $formatR_Pal #
# #
# $Z $xci/dilate.01$X \ #
# $Z A=$xTV/BOITE.6 \ #
# $Z points=225 \ #
# $Z dilater=FAUX \ #
# $Z R=$xTV/BOITE.A \ #
# $Z $formatI #
# #
# $Z $xci/random.02$X \ #
# $Z seuil=$SeuilPartN \ #
# $Z graine=$GrainePartN \ #
# $Z $formatI | \ #
# $Z $xci/and$X \ #
# $Z A2=$xTV/BOITE.A \ #
# $Z R=$xTV/BOITE.B \ #
# $Z $formatI #
# #
# $Z $DELETE $xTV/COORDONNEES #
# $Z $DELETE $xTV/COORDONNEES_01$COORD_X #
# $Z $DELETE $xTV/COORDONNEES_01$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_X #
# $Z $DELETE $xTV/COORDONNEES$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_Z #
# #
# $Z $xci/liste_points$X \ #
# $Z A=$xTV/BOITE.B \ #
# $Z $formatI \ #
# $Z > $xTV/COORDONNEES #
# #
# $Z $DELETE $xTV/BOITE.4 #
# $Z $DELETE $xTV/BOITE.5 #
# $Z $DELETE $xTV/BOITE.6 #
# $Z $DELETE $xTV/BOITE.7 #
# $Z $DELETE $xTV/BOITE.8 #
# $Z $DELETE $xTV/BOITE.9 #
# $Z $DELETE $xTV/BOITE.A #
# $Z $DELETE $xTV/BOITE.B #
# #
# $Z set PartN=`$TAI -1 $xTV/COORDONNEES | $SE -e "s/^.*=//"` #
# #
# $Z $CA $xTV/COORDONNEES \ #
# $Z | $GRE "^[Xx]=" \ #
# $Z | $SE -e "s/^[Xx]=//" \ #
# $Z > $xTV/COORDONNEES_01$COORD_X #
# $Z $CA $xTV/COORDONNEES \ #
# $Z | $GRE "^[Yy]=" \ #
# $Z | $SE -e "s/^[Yy]=//" \ #
# $Z > $xTV/COORDONNEES_01$COORD_Y #
# #
# $Z set EchelleX=`$xcg/MUL2.01$X n1=2 n2=$MaxX` #
# $Z set TranslationX=`$xcg/MUL2.01$X n1=-1 n2=$MaxX` #
# $Z set EchelleY=`$xcg/MUL2.01$X n1=2 n2=$MaxY` #
# $Z set TranslationY=`$xcg/MUL2.01$X n1=-1 n2=$MaxY` #
# #
# $Z $xrv/AXPB.01$X \ #
# $Z CAL1=FAUX \ #
# $Z ne=$PartN \ #
# $Z fichier=$xTV/COORDONNEES_01$COORD_X \ #
# $Z homothetie=$EchelleX translation=$TranslationX \ #
# $Z > $xTV/COORDONNEES$COORD_X #
# $Z $xrv/AXPB.01$X \ #
# $Z CAL1=FAUX \ #
# $Z ne=$PartN \ #
# $Z fichier=$xTV/COORDONNEES_01$COORD_Y \ #
# $Z homothetie=$EchelleY translation=$TranslationY \ #
# $Z > $xTV/COORDONNEES$COORD_Y #
# #
# $Z $DELETE $xTV/COORDONNEES_01$COORD_X #
# $Z $DELETE $xTV/COORDONNEES_01$COORD_Y #
# #
# $Z set Part0=1 #
# $Z @ Npart = $PartN - $Part0 #
# $Z @ Npart = $Npart + 1 #
# #
# $Z $DELETE $xTV/MODULE #
# $Z $DELETE $xTV/THETA #
# $Z $DELETE $xTV/XY_RT.1 #
# $Z $DELETE $xTV/XY_RT.2 #
# $Z $DELETE $xTV/VITESSES #
# $Z $DELETE $xTV/VITESSES$COORD_X #
# $Z $DELETE $xTV/VITESSES$COORD_Y #
# $Z $DELETE $xTV/VITESSES$COORD_Z #
# $Z $DELETE $xTV/mdRHO #
# $Z $DELETE $xTV/MdRHO #
# $Z $DELETE $xTV/mnPHI #
# $Z $DELETE $xTV/MnPHI #
# $Z $DELETE $xTV/dPHI #
# $Z $DELETE $xTV/mnTHETA #
# $Z $DELETE $xTV/MnTHETA #
# $Z $DELETE $xTV/dTHETA #
# $Z $DELETE $xTV/supOUVE #
# $Z $DELETE $xTV/DISTANCE #
# $Z $DELETE $xTV/STABILITE #
# $Z $DELETE $xTV/RAYONS #
# $Z $DELETE $xTV/INTERACTIONS #
# #
# #
# $Z alias Gen 'set Fi=\!:1 ; set vD=\!:2 ; set vA=\!:3 ; set ArG=(\!:4*) ; \\ #
# $Z $DELETE $Fi ; \\ #
# $Z $xci/valeurs_inte$X p=$Part0 d=$PartN vD=$vD vA=$vA $ArG > $Fi ; \\ #
# $Z unset Fi vD vA ArG' #
# #
# $Z alias GenR 'set Fi=\!:1 ; set In=\!:2 ; set Su=\!:3 ; set ArG=(\!:4*) ; \\ #
# $Z $DELETE $Fi ; \\ #
# $Z $xci/valeurs_alea$X p=$Part0 d=$PartN signe="$KV" inf=$In sup=$Su $ArG > $Fi ; \\ #
# $Z unset Fi In Su ArG' #
# #
# $Z Gen $xTV/COORDONNEES$COORD_Z 0.0 0.0 #
# #
# #
# $Z Gen $xTV/MODULE 0.02 0.02 #
# $Z GenR $xTV/THETA 0.0 $dpi g=3333 #
# #
# $Z $CA $xcs/csh$Y \ #
# $Z > $xTV/XY_RT.1 #
# $Z $PAST $xTV/MODULE $xTV/THETA \ #
# $Z | $R "$K_TAB" "$K_BLANC" \ #
# $Z | $AW ' { print "$xcg/XY_RT$X r=" $1 " t=" $2 " cartesien=FAUX" } ' \ #
# $Z >>! $xTV/XY_RT.1 #
# #
# $Z (source $xTV/XY_RT.1) \ #
# $Z > $xTV/XY_RT.2 #
# #
# $Z $CA $xTV/XY_RT.2 \ #
# $Z | $GRE "^x=" \ #
# $Z | $SE -e "s/^x=//" \ #
# $Z > $xTV/VITESSES$COORD_X #
# $Z $CA $xTV/XY_RT.2 \ #
# $Z | $GRE "^y=" \ #
# $Z | $SE -e "s/^y=//" \ #
# $Z > $xTV/VITESSES$COORD_Y #
# #
# $Z Gen $xTV/VITESSES$COORD_Z 0.0 0.0 #
# #
# $Z Gen $xTV/mdRHO 0.0 0.0 #
# $Z Gen $xTV/MdRHO 0.0 0.0 #
# $Z Gen $xTV/mnPHI 0.0 0.0 #
# $Z Gen $xTV/MnPHI 0.0 0.0 #
# $Z Gen $xTV/dPHI 0.0 0.0 #
# $Z Gen $xTV/mnTHETA 0.0 0.0 #
# $Z Gen $xTV/MnTHETA 0.0 0.0 #
# $Z Gen $xTV/dTHETA 0.0 0.0 #
# $Z Gen $xTV/DISTANCE 1000000 1000000 #
# $Z Gen $xTV/STABILITE 1000000 1000000 #
# #
# $Z set RayonsT=0.014 #
# $Z set RayonsP=`$xcg/MUL2.01$X a=2 b=$RayonsT` #
# $Z set DistanceI=`$xcg/MUL2.01$X a=4 b=$RayonsP` #
# $Z Gen $xTV/RAYONS $RayonsT $RayonsT #
# $Z Gen $xTV/INTERACTIONS $RayonsP $RayonsP #
# #
# $Z $DELETE $xTV/COULEURS$TEINT #
# $Z $DELETE $xTV/COULEURS$LUMIN #
# $Z $DELETE $xTV/COULEURS$SATUR #
# $Z $DELETE $xTV/COULEURS$Y #
# $Z $DELETE $xTV/COULEURS #
# $Z $DELETE $xTV/COULEURS$ROUGE #
# $Z $DELETE $xTV/COULEURS$VERTE #
# $Z $DELETE $xTV/COULEURS$BLEUE #
# #
# $Z @ TeinteMagenta = $GRIS_7 #
# $Z @ TeinteCyan = $GRIS_4 + $GRIS_8 #
# #
# $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartN \ #
# $Z vD=$TeinteMagenta vA=$TeinteCyan \ #
# $Z cubique=FAUX \ #
# $Z entiers=VRAI \ #
# $Z > $xTV/COULEURS$TEINT #
# $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartN \ #
# $Z vD=$GRIS_4 vA=$GRIS_4 \ #
# $Z cubique=FAUX \ #
# $Z entiers=VRAI \ #
# $Z > $xTV/COULEURS$LUMIN #
# $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartN \ #
# $Z vD=$GRIS_8 vA=$GRIS_8 \ #
# $Z cubique=FAUX \ #
# $Z entiers=VRAI \ #
# $Z > $xTV/COULEURS$SATUR #
# #
# $Z $PAST \ #
# $Z $xTV/COULEURS$TEINT \ #
# $Z $xTV/COULEURS$LUMIN \ #
# $Z $xTV/COULEURS$SATUR \ #
# $Z | $R "$K_TAB" "$K_BLANC" \ #
# $Z | $AW ' { print "H=" $1 " L=" $2 " S=" $3 } ' \ #
# $Z | $SE -e 's+^+$xcg/RVB_HLS$X RVB_HLS=FAUX +' \ #
# $Z | $SE -e 's/$/ eR=VRAI eV=VRAI eB=VRAI/' \ #
# $Z | $SE -e 's/$/ eH=FAUX eL=FAUX eS=FAUX/' \ #
# $Z > $xTV/COULEURS$Y #
# #
# $Z (source $xTV/COULEURS$Y) \ #
# $Z > $xTV/COULEURS #
# #
# $Z $GRE "^R=" $xTV/COULEURS \ #
# $Z | $SE -e "s/^R=//" \ #
# $Z > $xTV/COULEURS$ROUGE #
# $Z $GRE "^V=" $xTV/COULEURS \ #
# $Z | $SE -e "s/^V=//" \ #
# $Z > $xTV/COULEURS$VERTE #
# $Z $GRE "^B=" $xTV/COULEURS \ #
# $Z | $SE -e "s/^B=//" \ #
# $Z > $xTV/COULEURS$BLEUE #
# #
# $Z Pal #
# #
# #
# $Z $xci/scale$X \ #
# $Z A=$xTV/BOITE.1 \ #
# $Z a=1.00 \ #
# $Z R=$xTV/BOITE.2 \ #
# $Z $formatI #
# #
# $Z $xrk/rdn_walk.41$X corps=$Npart \ #
# $Z np=$Nimages \ #
# $Z collisions=VRAI DLA=FAUX interaction=$DistanceI \ #
# $Z LISTE_X=$xTV/COORDONNEES$COORD_X \ #
# $Z LISTE_Y=$xTV/COORDONNEES$COORD_Y \ #
# $Z LISTE_Z=$xTV/COORDONNEES$COORD_Z \ #
# $Z LISTE_VX=$xTV/VITESSES$COORD_X \ #
# $Z LISTE_VY=$xTV/VITESSES$COORD_Y \ #
# $Z LISTE_VZ=$xTV/VITESSES$COORD_Z \ #
# $Z LISTE_MINIMUM_DELTA_RHO=$xTV/mdRHO \ #
# $Z LISTE_MAXIMUM_DELTA_RHO=$xTV/MdRHO \ #
# $Z LISTE_MINIMUM_N_PHI=$xTV/mnPHI \ #
# $Z LISTE_MAXIMUM_N_PHI=$xTV/MnPHI \ #
# $Z LISTE_DELTA_PHI=$xTV/dPHI \ #
# $Z LISTE_MINIMUM_N_THETA=$xTV/mnTHETA \ #
# $Z LISTE_MAXIMUM_N_THETA=$xTV/MnTHETA \ #
# $Z LISTE_DELTA_THETA=$xTV/dTHETA \ #
# $Z LISTE_DISTANCE_MAXIMALE=$xTV/DISTANCE \ #
# $Z LISTE_STABILITE=$xTV/STABILITE \ #
# $Z LISTE_RAYON=$xTV/RAYONS \ #
# $Z LISTE_RAYON_D_INTERACTION=$xTV/INTERACTIONS \ #
# $Z LISTE_ROUGE=$xTV/COULEURS$ROUGE \ #
# $Z LISTE_VERTE=$xTV/COULEURS$VERTE \ #
# $Z LISTE_BLEUE=$xTV/COULEURS$BLEUE \ #
# $Z milieu=VRAI \ #
# $Z reflexion=VRAI refraction=FAUX \ #
# $Z Mhors=$BLANC \ #
# $Z MNpasX=1 Mprolonger_X=VRAI \ #
# $Z MNpasY=1 Mprolonger_Y=VRAI \ #
# $Z MNpasZ=1 Mprolonger_Z=VRAI \ #
# $Z adapter_M_nPAS=VRAI \ #
# $Z Msimplifier=FAUX affiner_M_maillage=FAUX \ #
# $Z MC=$xTV/BOITE.2 \ #
# $Z MChiffres=0 \ #
# $Z Zmin=0 Zmax=15 \ #
# $Z centrer=VRAI \ #
# $Z dct=0.05 nombre=10 \ #
# $Z trainees=VRAI mode=1 \ #
# $Z attenuation_des_images=0.6 \ #
# $Z attenuation_des_trainees=1.00 \ #
# $Z renormaliser=FAUX \ #
# $Z Lz=100 \ #
# $Z zoom_automatique=VRAI \ #
# $Z centre_de_gravite=FAUX \ #
# $Z fond=FAUX \ #
# $Z R=$xiim/REFL.W. \ #
# $Z $formatI #
# #
# $Z $DELETE $xTV/RAYONS #
# $Z $CP $xTV/INTERACTIONS $xTV/RAYONS #
# #
# $Z $DELETE $xTV/GRAVITE #
# $Z $xrk/rdn_walk.41$X corps=$Npart \ #
# $Z np=$Nimages \ #
# $Z collisions=VRAI DLA=FAUX interaction=$DistanceI \ #
# $Z LISTE_X=$xTV/COORDONNEES$COORD_X \ #
# $Z LISTE_Y=$xTV/COORDONNEES$COORD_Y \ #
# $Z LISTE_Z=$xTV/COORDONNEES$COORD_Z \ #
# $Z LISTE_VX=$xTV/VITESSES$COORD_X \ #
# $Z LISTE_VY=$xTV/VITESSES$COORD_Y \ #
# $Z LISTE_VZ=$xTV/VITESSES$COORD_Z \ #
# $Z LISTE_MINIMUM_DELTA_RHO=$xTV/mdRHO \ #
# $Z LISTE_MAXIMUM_DELTA_RHO=$xTV/MdRHO \ #
# $Z LISTE_MINIMUM_N_PHI=$xTV/mnPHI \ #
# $Z LISTE_MAXIMUM_N_PHI=$xTV/MnPHI \ #
# $Z LISTE_DELTA_PHI=$xTV/dPHI \ #
# $Z LISTE_MINIMUM_N_THETA=$xTV/mnTHETA \ #
# $Z LISTE_MAXIMUM_N_THETA=$xTV/MnTHETA \ #
# $Z LISTE_DELTA_THETA=$xTV/dTHETA \ #
# $Z LISTE_DISTANCE_MAXIMALE=$xTV/DISTANCE \ #
# $Z LISTE_STABILITE=$xTV/STABILITE \ #
# $Z LISTE_RAYON=$xTV/RAYONS \ #
# $Z LISTE_RAYON_D_INTERACTION=$xTV/INTERACTIONS \ #
# $Z LISTE_ROUGE=$xTV/COULEURS$ROUGE \ #
# $Z LISTE_VERTE=$xTV/COULEURS$VERTE \ #
# $Z LISTE_BLEUE=$xTV/COULEURS$BLEUE \ #
# $Z milieu=VRAI \ #
# $Z reflexion=VRAI refraction=FAUX \ #
# $Z Mhors=$BLANC \ #
# $Z MNpasX=1 Mprolonger_X=VRAI \ #
# $Z MNpasY=1 Mprolonger_Y=VRAI \ #
# $Z MNpasZ=1 Mprolonger_Z=VRAI \ #
# $Z adapter_M_nPAS=VRAI \ #
# $Z Msimplifier=FAUX affiner_M_maillage=FAUX \ #
# $Z MC=$xTV/BOITE.2 \ #
# $Z MChiffres=0 \ #
# $Z Zmin=0 Zmax=15 \ #
# $Z centrer=VRAI \ #
# $Z dct=0.05 nombre=10 \ #
# $Z trainees=VRAI mode=1 \ #
# $Z attenuation_des_images=1.0 \ #
# $Z attenuation_des_trainees=0.80 \ #
# $Z renormaliser=FAUX \ #
# $Z Lz=100 \ #
# $Z zoom_automatique=VRAI \ #
# $Z centre_de_gravite=VRAI \ #
# $Z fond=VRAI \ #
# $Z dynamique=VRAI \ #
# $Z F=$xiim/REFL.W. \ #
# $Z R=$xiim/REFL.W. \ #
# $Z $formatI | \ #
# $Z $GRE " CENTRE_DE_GRAVITE=" \ #
# $Z > $xTV/GRAVITE #
# #
# $Z $DELETE $xTV/COORDONNEES #
# $Z $DELETE $xTV/COORDONNEES$COORD_X #
# $Z $DELETE $xTV/COORDONNEES$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_Z #
# $Z $DELETE $xTV/VITESSES #
# $Z $DELETE $xTV/VITESSES$COORD_X #
# $Z $DELETE $xTV/VITESSES$COORD_Y #
# $Z $DELETE $xTV/VITESSES$COORD_Z #
# $Z $DELETE $xTV/mdRHO #
# $Z $DELETE $xTV/MdRHO #
# $Z $DELETE $xTV/mnPHI #
# $Z $DELETE $xTV/MnPHI #
# $Z $DELETE $xTV/dPHI #
# $Z $DELETE $xTV/mnTHETA #
# $Z $DELETE $xTV/MnTHETA #
# $Z $DELETE $xTV/dTHETA #
# $Z $DELETE $xTV/DISTANCE #
# $Z $DELETE $xTV/STABILITE #
# $Z $DELETE $xTV/RAYONS #
# $Z $DELETE $xTV/INTERACTIONS #
# $Z $DELETE $xTV/COULEURS$TEINT #
# $Z $DELETE $xTV/COULEURS$LUMIN #
# $Z $DELETE $xTV/COULEURS$SATUR #
# $Z $DELETE $xTV/COULEURS$Y #
# $Z $DELETE $xTV/COULEURS #
# $Z $DELETE $xTV/COULEURS$ROUGE #
# $Z $DELETE $xTV/COULEURS$VERTE #
# $Z $DELETE $xTV/COULEURS$BLEUE #
# #
# $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("$DELETE $xTV/COORDONNEES\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_X\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_Y\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_Z\n"); #
# #
# $c printf("$DELETE $xTV/COULEURS$ROUGE\n"); #
# $c printf("$DELETE $xTV/COULEURS$VERTE\n"); #
# $c printf("$DELETE $xTV/COULEURS$BLEUE\n"); #
# #
# $c printf("listMN $xTV/GRAVITE #
# $c %d %d #
# $c > $xTV/COORDONNEES\n" #
# $c ,N0,n #
# $c ); #
# #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*[(,]XG=//%c #
# $c -e %cs/[,)].*//%c #
# $c > $xTV/COORDONNEES$COORD_X\n" #
# $c ,'"','"','"','"' #
# $c ); #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*[(,]YG=//%c #
# $c -e %cs/[,)].*//%c #
# $c > $xTV/COORDONNEES$COORD_Y\n" #
# $c ,'"','"','"','"' #
# $c ); #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*[(,]ZG=//%c #
# $c -e %cs/[,)].*//%c #
# $c > $xTV/COORDONNEES$COORD_Z\n" #
# $c ,'"','"','"','"' #
# $c ); #
# #
# $c printf("$xci/valeurs_inte$X #
# $c premiere=%d derniere=%d #
# $c vD=$GRIS_5 vA=$GRIS_5 #
# $c cubique=FAUX #
# $c entiers=VRAI #
# $c utiliser_la_valeur_de_depart=FAUX #
# $c > $xTV/COULEURS$ROUGE\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/valeurs_inte$X #
# $c premiere=%d derniere=%d #
# $c vD=$GRIS_5 vA=$GRIS_5 #
# $c cubique=FAUX #
# $c entiers=VRAI #
# $c utiliser_la_valeur_de_depart=FAUX #
# $c > $xTV/COULEURS$VERTE\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/valeurs_inte$X #
# $c premiere=%d derniere=%d #
# $c vD=$GRIS_5 vA=$GRIS_5 #
# $c cubique=FAUX #
# $c entiers=VRAI #
# $c utiliser_la_valeur_de_depart=FAUX #
# $c > $xTV/COULEURS$BLEUE\n" #
# $c ,N0,n #
# $c ); #
# #
# $c printf("$xrv/particule.10$X #
# $c np=1 #
# $c iterations=%d #
# $c LISTE_X=$xTV/COORDONNEES$COORD_X #
# $c LISTE_Y=$xTV/COORDONNEES$COORD_Y #
# $c LISTE_Z=$xTV/COORDONNEES$COORD_Z #
# $c LISTE_ROUGE=$xTV/COULEURS$ROUGE #
# $c LISTE_VERTE=$xTV/COULEURS$VERTE #
# $c LISTE_BLEUE=$xTV/COULEURS$BLEUE #
# $c LISTE_RAYON=0.006 #
# $c zoom_automatique=FAUX ZOOM=1.0 #
# $c coordonnees_dans_0_1=FAUX #
# $c AXYZ=1 BXYZ=0 #
# $c fond=VRAI #
# $c fond_dynamique=FAUX #
# $c F=$xiim/REFL.W.%04d #
# $c R=$xTV/REFL.A. #
# $c $formatI\n" #
# $c ,(n-N0)+1,n #
# $c ); #
# #
# $c printf("$xci/acces$X #
# $c A=$xTV/REFL.A.%04d$ROUGE #
# $c R=$xiim/REFL.W.%04d$ROUGE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xTV/REFL.A.%04d$VERTE #
# $c R=$xiim/REFL.W.%04d$VERTE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xTV/REFL.A.%04d$BLEUE #
# $c R=$xiim/REFL.W.%04d$BLEUE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# #
# $c printf("$DELETE $xTV/COORDONNEES\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_X\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_Y\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_Z\n"); #
# #
# $c printf("$DELETE $xTV/COULEURS$ROUGE\n"); #
# $c printf("$DELETE $xTV/COULEURS$VERTE\n"); #
# $c printf("$DELETE $xTV/COULEURS$BLEUE\n"); #
# #
# $c printf("listMN $xTV/GRAVITE #
# $c %d %d #
# $c > $xTV/COORDONNEES\n" #
# $c ,n,n #
# $c ); #
# #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*[(,]XG=//%c #
# $c -e %cs/[,)].*//%c #
# $c > $xTV/COORDONNEES$COORD_X\n" #
# $c ,'"','"','"','"' #
# $c ); #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*[(,]YG=//%c #
# $c -e %cs/[,)].*//%c #
# $c > $xTV/COORDONNEES$COORD_Y\n" #
# $c ,'"','"','"','"' #
# $c ); #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*[(,]ZG=//%c #
# $c -e %cs/[,)].*//%c #
# $c > $xTV/COORDONNEES$COORD_Z\n" #
# $c ,'"','"','"','"' #
# $c ); #
# #
# $c printf("$xci/valeurs_inte$X #
# $c premiere=%d derniere=%d #
# $c vD=$GRIS_8 vA=$GRIS_8 #
# $c cubique=FAUX #
# $c entiers=VRAI #
# $c utiliser_la_valeur_de_depart=FAUX #
# $c > $xTV/COULEURS$ROUGE\n" #
# $c ,n,n #
# $c ); #
# $c printf("$xci/valeurs_inte$X #
# $c premiere=%d derniere=%d #
# $c vD=$GRIS_8 vA=$GRIS_8 #
# $c cubique=FAUX #
# $c entiers=VRAI #
# $c utiliser_la_valeur_de_depart=FAUX #
# $c > $xTV/COULEURS$VERTE\n" #
# $c ,n,n #
# $c ); #
# $c printf("$xci/valeurs_inte$X #
# $c premiere=%d derniere=%d #
# $c vD=$GRIS_8 vA=$GRIS_8 #
# $c cubique=FAUX #
# $c entiers=VRAI #
# $c utiliser_la_valeur_de_depart=FAUX #
# $c > $xTV/COULEURS$BLEUE\n" #
# $c ,n,n #
# $c ); #
# #
# $c printf("$xrv/particule.10$X #
# $c np=1 #
# $c iterations=%d #
# $c LISTE_X=$xTV/COORDONNEES$COORD_X #
# $c LISTE_Y=$xTV/COORDONNEES$COORD_Y #
# $c LISTE_Z=$xTV/COORDONNEES$COORD_Z #
# $c LISTE_ROUGE=$xTV/COULEURS$ROUGE #
# $c LISTE_VERTE=$xTV/COULEURS$VERTE #
# $c LISTE_BLEUE=$xTV/COULEURS$BLEUE #
# $c LISTE_RAYON=0.012 #
# $c zoom_automatique=FAUX ZOOM=1.0 #
# $c coordonnees_dans_0_1=FAUX #
# $c AXYZ=1 BXYZ=0 #
# $c fond=VRAI #
# $c fond_dynamique=FAUX #
# $c F=$xiim/REFL.W.%04d #
# $c R=$xTV/REFL.B. #
# $c $formatI\n" #
# $c ,(n-n)+1,n #
# $c ); #
# #
# $c printf("$xci/acces$X #
# $c A=$xTV/REFL.B.%04d$ROUGE #
# $c R=$xiim/REFL.W.%04d$ROUGE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xTV/REFL.B.%04d$VERTE #
# $c R=$xiim/REFL.W.%04d$VERTE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xTV/REFL.B.%04d$BLEUE #
# $c R=$xiim/REFL.W.%04d$BLEUE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# $c } #
# $c } #
# #
# #
# $Z $DELETE $xTV/COORDONNEES #
# $Z $DELETE $xTV/COORDONNEES$COORD_X #
# $Z $DELETE $xTV/COORDONNEES$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_Z #
# $Z $DELETE $xTV/COULEURS$ROUGE #
# $Z $DELETE $xTV/COULEURS$VERTE #
# $Z $DELETE $xTV/COULEURS$BLEUE #
# #
# #
# #
# $Z $xci/complement$X A=$xTV/BOITE.1 \ #
# $Z R=$xTV/BOITE.3 \ #
# $Z $formatI #
# #
# $Z eval `$xci/genere$X \\\ #
# $Z commande='($xci/scale$X \\\ #
# $Z A=$xTV/BOITE.3 \\\ #
# $Z a=0.50 \\\ #
# $Z R=$xTV/BOITE.3%s \\\ #
# $Z $formatI)' \\\ #
# $Z en_tete=FAUX RVB=VRAI separateur=VRAI` #
# #
# #
# $X $xci/genere$X premiere=$Premiere derniere=$Derniere pas=1 \ #
# $X C='$xci/cache.11$Z \ #
# $X $xiim/REFL.W.%04d \ #
# $X $xTV/BOITE.3 \ #
# $X $xiim/REFL.A.%04d' #
# #
# $Z $DELETE $xTV/BOITE.1 #
# $Z $DELETE $xTV/BOITE.2 #
# $Z $DELETE $xTV/BOITE.3 #
# $Z $DELETE $xTV/BOITE.3$ROUGE #
# $Z $DELETE $xTV/BOITE.3$VERTE #
# $Z $DELETE $xTV/BOITE.3$BLEUE #
# #
# $Z Pal #
# #
# $Z $xci/reduction_16$Z $xiim/REFL.A. $xiak/REFL.D8 $Premiere $Derniere #
# $Z $xci/reduction_64$Z $xiim/REFL.A. $xiak/REFL.D8 $Premiere $Derniere #
# #
# $X $xci/genere$X c='ro $xiak/REFL.D8$R16%s' RVB=VRAI #
# $X $xci/genere$X c='ro $xiak/REFL.D8$R64%s' RVB=VRAI #
# #
# $X $xci/genere$X c='$xcg/unite$Z $xiak/REFL.D8$R16%s' RVB=VRAI #
# $X $xci/genere$X c='$xcg/unite$Z $xiak/REFL.D8$R64%s' RVB=VRAI #
# #
# $X $xci/genere$X c='$CP $xiim/REFL.A.0512%s $xiirk/REFL.D8.0512%s' RVB=VRAI #
# #
# $X $xci/genere$X c='ro $xiirk/REFL.D8.0512%s' RVB=VRAI #
# #
# $X $xci/genere$X c='$xcg/unite$Z $xiirk/REFL.D8.0512%s' RVB=VRAI #
# #
# #
# Pal #
# #
# #
# $xci/disk_video_P$Z $xiim_LACT29/REFL.A. 001 512 RVB \ #
# 11 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
# #
# xivPdf 3 2 #
# #
# record.01$Z $xiak/REFL.D8$R16 RVB Initialisation #
# record.01$Z $xiak/REFL.D8$R64 RVB rien #
# record.01$Z $xiirk/REFL.D8.0512 RVB rien #
# #
sequence 010753_011264
# Generee (sur '$LACT29') par : #
# #
# $Z SET Premiere=1 #
# $Z SET Derniere=512 #
# $Z @ Nimages = $Derniere - $Premiere #
# $Z @ Nimages = $Nimages + 1 #
# #
# $Z set Part0=1 #
# $Z set PartN=64 #
# $Z @ Npart = $PartN - $Part0 #
# $Z @ Npart = $Npart + 1 #
# #
# $Z $DELETE $xTV/MODULE #
# $Z $DELETE $xTV/THETA #
# $Z $DELETE $xTV/XY_RT.1 #
# $Z $DELETE $xTV/XY_RT.2 #
# $Z $DELETE $xTV/COORDONNEES$COORD_X #
# $Z $DELETE $xTV/COORDONNEES$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_Z #
# $Z $DELETE $xTV/VITESSES #
# $Z $DELETE $xTV/VITESSES$COORD_X #
# $Z $DELETE $xTV/VITESSES$COORD_Y #
# $Z $DELETE $xTV/VITESSES$COORD_Z #
# $Z $DELETE $xTV/mdRHO #
# $Z $DELETE $xTV/MdRHO #
# $Z $DELETE $xTV/mnPHI #
# $Z $DELETE $xTV/MnPHI #
# $Z $DELETE $xTV/dPHI #
# $Z $DELETE $xTV/mnTHETA #
# $Z $DELETE $xTV/MnTHETA #
# $Z $DELETE $xTV/dTHETA #
# $Z $DELETE $xTV/supOUVE #
# $Z $DELETE $xTV/DISTANCE #
# $Z $DELETE $xTV/STABILITE #
# $Z $DELETE $xTV/RAYONS #
# $Z $DELETE $xTV/INTERACTIONS #
# #
# #
# $Z alias Gen 'set Fi=\!:1 ; set vD=\!:2 ; set vA=\!:3 ; set ArG=(\!:4*) ; \\ #
# $Z $DELETE $Fi ; \\ #
# $Z $xci/valeurs_inte$X p=$Part0 d=$PartN vD=$vD vA=$vA $ArG > $Fi ; \\ #
# $Z unset Fi vD vA ArG' #
# #
# $Z alias GenR 'set Fi=\!:1 ; set In=\!:2 ; set Su=\!:3 ; set ArG=(\!:4*) ; \\ #
# $Z $DELETE $Fi ; \\ #
# $Z $xci/valeurs_alea$X p=$Part0 d=$PartN signe="$KV" inf=$In sup=$Su $ArG > $Fi ; \\ #
# $Z unset Fi In Su ArG' #
# #
# $Z set FacXY=0.85 #
# $Z set SeuilBOITE=`$xcg/SOUS.01$X a=1 b=$FacXY` #
# $Z set SeuilBOITE=`$xcg/MUL2.01$X a=$SeuilBOITE b=$GRIS_8` #
# $Z set SeuilBOITE=`$xci/valeurs_inte$X p=1 d=1 vD=$SeuilBOITE entiers=VRAI` #
# $Z set SeuilBOITE=`$xcg/MIN2.01$X a=$SeuilBOITE b=$GRIS_1` #
# #
# $Z Std #
# #
# $Z set PUnivers="np=0 CAL1=FAUX editer_l_univers_physique=VRAI" #
# $Z set Univers=`$xrk/rdn_walk.41$X $PUnivers $formatI` #
# #
# $Z set MinX=`echo $Univers | $SE -e "s/^.*[(,]XUI=//" -e "s/[,)].*//"` #
# $Z set MaxX=`echo $Univers | $SE -e "s/^.*[(,]XUS=//" -e "s/[,)].*//"` #
# $Z set MinY=`echo $Univers | $SE -e "s/^.*[(,]YUI=//" -e "s/[,)].*//"` #
# $Z set MaxY=`echo $Univers | $SE -e "s/^.*[(,]YUS=//" -e "s/[,)].*//"` #
# #
# $Z set MinX=`$xcg/ABSO.01$X x=$MinX` #
# $Z set MaxX=`$xcg/ABSO.01$X x=$MaxX` #
# $Z set MinY=`$xcg/ABSO.01$X x=$MinY` #
# $Z set MaxY=`$xcg/ABSO.01$X x=$MaxY` #
# #
# $Z set MaxX=`$xcg/MAX2.01$X n1=$MinX n2=$MaxX` #
# $Z set MaxY=`$xcg/MAX2.01$X n1=$MinY n2=$MaxY` #
# #
# $Z set MaxX=`$xcg/MUL2.01$X n1=$FacXY n2=$MaxX signe="$K_VIDE"` #
# $Z set MaxY=`$xcg/MUL2.01$X n1=$FacXY n2=$MaxY signe="$K_VIDE"` #
# #
# $Z GenR $xTV/COORDONNEES$COORD_X -$MaxX +$MaxX g=1111 #
# $Z GenR $xTV/COORDONNEES$COORD_Y -$MaxY +$MaxY g=2222 #
# #
# $Z Gen $xTV/COORDONNEES$COORD_Z 0.0 0.0 #
# #
# #
# $Z Gen $xTV/MODULE 0.02 0.02 #
# $Z GenR $xTV/THETA 0.0 $dpi g=3333 #
# #
# $Z $CA $xcs/csh$Y \ #
# $Z > $xTV/XY_RT.1 #
# $Z $PAST $xTV/MODULE $xTV/THETA \ #
# $Z | $R "$K_TAB" "$K_BLANC" \ #
# $Z | $AW ' { print "$xcg/XY_RT$X r=" $1 " t=" $2 " cartesien=FAUX" } ' \ #
# $Z >>! $xTV/XY_RT.1 #
# #
# $Z (source $xTV/XY_RT.1) \ #
# $Z > $xTV/XY_RT.2 #
# #
# $Z $CA $xTV/XY_RT.2 \ #
# $Z | $GRE "^x=" \ #
# $Z | $SE -e "s/^x=//" \ #
# $Z > $xTV/VITESSES$COORD_X #
# $Z $CA $xTV/XY_RT.2 \ #
# $Z | $GRE "^y=" \ #
# $Z | $SE -e "s/^y=//" \ #
# $Z > $xTV/VITESSES$COORD_Y #
# #
# $Z Gen $xTV/VITESSES$COORD_Z 0.0 0.0 #
# #
# $Z Gen $xTV/mdRHO 0.0 0.0 #
# $Z Gen $xTV/MdRHO 0.0 0.0 #
# $Z Gen $xTV/mnPHI 0.0 0.0 #
# $Z Gen $xTV/MnPHI 0.0 0.0 #
# $Z Gen $xTV/dPHI 0.0 0.0 #
# $Z Gen $xTV/mnTHETA 0.0 0.0 #
# $Z Gen $xTV/MnTHETA 0.0 0.0 #
# $Z Gen $xTV/dTHETA 0.0 0.0 #
# $Z Gen $xTV/DISTANCE 1000000 1000000 #
# $Z Gen $xTV/STABILITE 1000000 1000000 #
# #
# $Z set RayonsT=0.014 #
# $Z set RayonsP=`$xcg/MUL2.01$X a=2 b=$RayonsT` #
# $Z set DistanceI=`$xcg/MUL2.01$X a=4 b=$RayonsP` #
# $Z Gen $xTV/RAYONS $RayonsT $RayonsT #
# $Z Gen $xTV/INTERACTIONS $RayonsP $RayonsP #
# #
# $Z $DELETE $xTV/COULEURS$TEINT #
# $Z $DELETE $xTV/COULEURS$LUMIN #
# $Z $DELETE $xTV/COULEURS$SATUR #
# $Z $DELETE $xTV/COULEURS$Y #
# $Z $DELETE $xTV/COULEURS #
# $Z $DELETE $xTV/COULEURS$ROUGE #
# $Z $DELETE $xTV/COULEURS$VERTE #
# $Z $DELETE $xTV/COULEURS$BLEUE #
# #
# $Z @ TeinteMagenta = $GRIS_7 #
# $Z @ TeinteCyan = $GRIS_4 + $GRIS_8 #
# #
# $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartN \ #
# $Z vD=$TeinteMagenta vA=$TeinteCyan \ #
# $Z cubique=FAUX \ #
# $Z entiers=VRAI \ #
# $Z > $xTV/COULEURS$TEINT #
# $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartN \ #
# $Z vD=$GRIS_4 vA=$GRIS_4 \ #
# $Z cubique=FAUX \ #
# $Z entiers=VRAI \ #
# $Z > $xTV/COULEURS$LUMIN #
# $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartN \ #
# $Z vD=$GRIS_8 vA=$GRIS_8 \ #
# $Z cubique=FAUX \ #
# $Z entiers=VRAI \ #
# $Z > $xTV/COULEURS$SATUR #
# #
# $Z $PAST \ #
# $Z $xTV/COULEURS$TEINT \ #
# $Z $xTV/COULEURS$LUMIN \ #
# $Z $xTV/COULEURS$SATUR \ #
# $Z | $R "$K_TAB" "$K_BLANC" \ #
# $Z | $AW ' { print "H=" $1 " L=" $2 " S=" $3 } ' \ #
# $Z | $SE -e 's+^+$xcg/RVB_HLS$X RVB_HLS=FAUX +' \ #
# $Z | $SE -e 's/$/ eR=VRAI eV=VRAI eB=VRAI/' \ #
# $Z | $SE -e 's/$/ eH=FAUX eL=FAUX eS=FAUX/' \ #
# $Z > $xTV/COULEURS$Y #
# #
# $Z (source $xTV/COULEURS$Y) \ #
# $Z > $xTV/COULEURS #
# #
# $Z $GRE "^R=" $xTV/COULEURS \ #
# $Z | $SE -e "s/^R=//" \ #
# $Z > $xTV/COULEURS$ROUGE #
# $Z $GRE "^V=" $xTV/COULEURS \ #
# $Z | $SE -e "s/^V=//" \ #
# $Z > $xTV/COULEURS$VERTE #
# $Z $GRE "^B=" $xTV/COULEURS \ #
# $Z | $SE -e "s/^B=//" \ #
# $Z > $xTV/COULEURS$BLEUE #
# #
# $Z $DELETE $xTV/BOITE.1 #
# $Z $DELETE $xTV/BOITE.2 #
# $Z $DELETE $xTV/BOITE.3 #
# $Z $DELETE $xTV/BOITE.3$ROUGE #
# $Z $DELETE $xTV/BOITE.3$VERTE #
# $Z $DELETE $xTV/BOITE.3$BLEUE #
# #
# $Z Std #
# #
# $Z S #
# #
# $Z $xci/complement$X \ #
# $Z A=$xiio/SPIRALE \ #
# $Z $formatI | \ #
# $Z $xci/seuil$X \ #
# $Z seuil=$SeuilBOITE \ #
# $Z $formatI | \ #
# $Z $xci/acces$X \ #
# $Z R=$xTV/BOITE.1 \ #
# $Z $formatI #
# #
# $Z Std #
# #
# #
# $Z $xci/scale$X \ #
# $Z A=$xTV/BOITE.1 \ #
# $Z a=1.00 \ #
# $Z R=$xTV/BOITE.2 \ #
# $Z $formatI #
# #
# #
# $Z Std #
# #
# $Z $xrk/rdn_walk.41$X corps=$Npart \ #
# $Z np=$Nimages \ #
# $Z collisions=VRAI DLA=FAUX interaction=$DistanceI \ #
# $Z LISTE_X=$xTV/COORDONNEES$COORD_X \ #
# $Z LISTE_Y=$xTV/COORDONNEES$COORD_Y \ #
# $Z LISTE_Z=$xTV/COORDONNEES$COORD_Z \ #
# $Z LISTE_VX=$xTV/VITESSES$COORD_X \ #
# $Z LISTE_VY=$xTV/VITESSES$COORD_Y \ #
# $Z LISTE_VZ=$xTV/VITESSES$COORD_Z \ #
# $Z LISTE_MINIMUM_DELTA_RHO=$xTV/mdRHO \ #
# $Z LISTE_MAXIMUM_DELTA_RHO=$xTV/MdRHO \ #
# $Z LISTE_MINIMUM_N_PHI=$xTV/mnPHI \ #
# $Z LISTE_MAXIMUM_N_PHI=$xTV/MnPHI \ #
# $Z LISTE_DELTA_PHI=$xTV/dPHI \ #
# $Z LISTE_MINIMUM_N_THETA=$xTV/mnTHETA \ #
# $Z LISTE_MAXIMUM_N_THETA=$xTV/MnTHETA \ #
# $Z LISTE_DELTA_THETA=$xTV/dTHETA \ #
# $Z LISTE_DISTANCE_MAXIMALE=$xTV/DISTANCE \ #
# $Z LISTE_STABILITE=$xTV/STABILITE \ #
# $Z LISTE_RAYON=$xTV/RAYONS \ #
# $Z LISTE_RAYON_D_INTERACTION=$xTV/INTERACTIONS \ #
# $Z LISTE_ROUGE=$xTV/COULEURS$ROUGE \ #
# $Z LISTE_VERTE=$xTV/COULEURS$VERTE \ #
# $Z LISTE_BLEUE=$xTV/COULEURS$BLEUE \ #
# $Z milieu=VRAI \ #
# $Z reflexion=VRAI refraction=FAUX \ #
# $Z Mhors=$BLANC \ #
# $Z MNpasX=1 Mprolonger_X=VRAI \ #
# $Z MNpasY=1 Mprolonger_Y=VRAI \ #
# $Z MNpasZ=1 Mprolonger_Z=VRAI \ #
# $Z adapter_M_nPAS=VRAI \ #
# $Z Msimplifier=FAUX affiner_M_maillage=FAUX \ #
# $Z MC=$xTV/BOITE.2 \ #
# $Z MChiffres=0 \ #
# $Z Zmin=0 Zmax=15 \ #
# $Z centrer=VRAI \ #
# $Z dct=0.05 nombre=10 \ #
# $Z trainees=VRAI mode=1 \ #
# $Z attenuation_des_images=0.6 \ #
# $Z attenuation_des_trainees=1.00 \ #
# $Z renormaliser=FAUX \ #
# $Z Lz=100 \ #
# $Z zoom_automatique=VRAI \ #
# $Z centre_de_gravite=FAUX \ #
# $Z fond=FAUX \ #
# $Z R=$xiim/REFL.W. \ #
# $Z $formatI #
# #
# $Z $DELETE $xTV/RAYONS #
# $Z $CP $xTV/INTERACTIONS $xTV/RAYONS #
# #
# $Z $DELETE $xTV/GRAVITE #
# $Z $xrk/rdn_walk.41$X corps=$Npart \ #
# $Z np=$Nimages \ #
# $Z collisions=VRAI DLA=FAUX interaction=$DistanceI \ #
# $Z LISTE_X=$xTV/COORDONNEES$COORD_X \ #
# $Z LISTE_Y=$xTV/COORDONNEES$COORD_Y \ #
# $Z LISTE_Z=$xTV/COORDONNEES$COORD_Z \ #
# $Z LISTE_VX=$xTV/VITESSES$COORD_X \ #
# $Z LISTE_VY=$xTV/VITESSES$COORD_Y \ #
# $Z LISTE_VZ=$xTV/VITESSES$COORD_Z \ #
# $Z LISTE_MINIMUM_DELTA_RHO=$xTV/mdRHO \ #
# $Z LISTE_MAXIMUM_DELTA_RHO=$xTV/MdRHO \ #
# $Z LISTE_MINIMUM_N_PHI=$xTV/mnPHI \ #
# $Z LISTE_MAXIMUM_N_PHI=$xTV/MnPHI \ #
# $Z LISTE_DELTA_PHI=$xTV/dPHI \ #
# $Z LISTE_MINIMUM_N_THETA=$xTV/mnTHETA \ #
# $Z LISTE_MAXIMUM_N_THETA=$xTV/MnTHETA \ #
# $Z LISTE_DELTA_THETA=$xTV/dTHETA \ #
# $Z LISTE_DISTANCE_MAXIMALE=$xTV/DISTANCE \ #
# $Z LISTE_STABILITE=$xTV/STABILITE \ #
# $Z LISTE_RAYON=$xTV/RAYONS \ #
# $Z LISTE_RAYON_D_INTERACTION=$xTV/INTERACTIONS \ #
# $Z LISTE_ROUGE=$xTV/COULEURS$ROUGE \ #
# $Z LISTE_VERTE=$xTV/COULEURS$VERTE \ #
# $Z LISTE_BLEUE=$xTV/COULEURS$BLEUE \ #
# $Z milieu=VRAI \ #
# $Z reflexion=VRAI refraction=FAUX \ #
# $Z Mhors=$BLANC \ #
# $Z MNpasX=1 Mprolonger_X=VRAI \ #
# $Z MNpasY=1 Mprolonger_Y=VRAI \ #
# $Z MNpasZ=1 Mprolonger_Z=VRAI \ #
# $Z adapter_M_nPAS=VRAI \ #
# $Z Msimplifier=FAUX affiner_M_maillage=FAUX \ #
# $Z MC=$xTV/BOITE.2 \ #
# $Z MChiffres=0 \ #
# $Z Zmin=0 Zmax=15 \ #
# $Z centrer=VRAI \ #
# $Z dct=0.05 nombre=10 \ #
# $Z trainees=VRAI mode=1 \ #
# $Z attenuation_des_images=1.0 \ #
# $Z attenuation_des_trainees=0.80 \ #
# $Z renormaliser=FAUX \ #
# $Z Lz=100 \ #
# $Z zoom_automatique=VRAI \ #
# $Z centre_de_gravite=VRAI \ #
# $Z fond=VRAI \ #
# $Z dynamique=VRAI \ #
# $Z F=$xiim/REFL.W. \ #
# $Z R=$xiim/REFL.W. \ #
# $Z $formatI | \ #
# $Z $GRE " CENTRE_DE_GRAVITE=" \ #
# $Z > $xTV/GRAVITE #
# #
# $Z $DELETE $xTV/COORDONNEES$COORD_X #
# $Z $DELETE $xTV/COORDONNEES$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_Z #
# $Z $DELETE $xTV/VITESSES #
# $Z $DELETE $xTV/VITESSES$COORD_X #
# $Z $DELETE $xTV/VITESSES$COORD_Y #
# $Z $DELETE $xTV/VITESSES$COORD_Z #
# $Z $DELETE $xTV/mdRHO #
# $Z $DELETE $xTV/MdRHO #
# $Z $DELETE $xTV/mnPHI #
# $Z $DELETE $xTV/MnPHI #
# $Z $DELETE $xTV/dPHI #
# $Z $DELETE $xTV/mnTHETA #
# $Z $DELETE $xTV/MnTHETA #
# $Z $DELETE $xTV/dTHETA #
# $Z $DELETE $xTV/DISTANCE #
# $Z $DELETE $xTV/STABILITE #
# $Z $DELETE $xTV/RAYONS #
# $Z $DELETE $xTV/INTERACTIONS #
# $Z $DELETE $xTV/COULEURS$TEINT #
# $Z $DELETE $xTV/COULEURS$LUMIN #
# $Z $DELETE $xTV/COULEURS$SATUR #
# $Z $DELETE $xTV/COULEURS$Y #
# $Z $DELETE $xTV/COULEURS #
# $Z $DELETE $xTV/COULEURS$ROUGE #
# $Z $DELETE $xTV/COULEURS$VERTE #
# $Z $DELETE $xTV/COULEURS$BLEUE #
# #
# $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("$DELETE $xTV/COORDONNEES\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_X\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_Y\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_Z\n"); #
# #
# $c printf("$DELETE $xTV/COULEURS$ROUGE\n"); #
# $c printf("$DELETE $xTV/COULEURS$VERTE\n"); #
# $c printf("$DELETE $xTV/COULEURS$BLEUE\n"); #
# #
# $c printf("listMN $xTV/GRAVITE #
# $c %d %d #
# $c > $xTV/COORDONNEES\n" #
# $c ,N0,n #
# $c ); #
# #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*[(,]XG=//%c #
# $c -e %cs/[,)].*//%c #
# $c > $xTV/COORDONNEES$COORD_X\n" #
# $c ,'"','"','"','"' #
# $c ); #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*[(,]YG=//%c #
# $c -e %cs/[,)].*//%c #
# $c > $xTV/COORDONNEES$COORD_Y\n" #
# $c ,'"','"','"','"' #
# $c ); #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*[(,]ZG=//%c #
# $c -e %cs/[,)].*//%c #
# $c > $xTV/COORDONNEES$COORD_Z\n" #
# $c ,'"','"','"','"' #
# $c ); #
# #
# $c printf("$xci/valeurs_inte$X #
# $c premiere=%d derniere=%d #
# $c vD=$GRIS_5 vA=$GRIS_5 #
# $c cubique=FAUX #
# $c entiers=VRAI #
# $c utiliser_la_valeur_de_depart=FAUX #
# $c > $xTV/COULEURS$ROUGE\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/valeurs_inte$X #
# $c premiere=%d derniere=%d #
# $c vD=$GRIS_5 vA=$GRIS_5 #
# $c cubique=FAUX #
# $c entiers=VRAI #
# $c utiliser_la_valeur_de_depart=FAUX #
# $c > $xTV/COULEURS$VERTE\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/valeurs_inte$X #
# $c premiere=%d derniere=%d #
# $c vD=$GRIS_5 vA=$GRIS_5 #
# $c cubique=FAUX #
# $c entiers=VRAI #
# $c utiliser_la_valeur_de_depart=FAUX #
# $c > $xTV/COULEURS$BLEUE\n" #
# $c ,N0,n #
# $c ); #
# #
# $c printf("$xrv/particule.10$X #
# $c np=1 #
# $c iterations=%d #
# $c LISTE_X=$xTV/COORDONNEES$COORD_X #
# $c LISTE_Y=$xTV/COORDONNEES$COORD_Y #
# $c LISTE_Z=$xTV/COORDONNEES$COORD_Z #
# $c LISTE_ROUGE=$xTV/COULEURS$ROUGE #
# $c LISTE_VERTE=$xTV/COULEURS$VERTE #
# $c LISTE_BLEUE=$xTV/COULEURS$BLEUE #
# $c LISTE_RAYON=0.009 #
# $c zoom_automatique=FAUX ZOOM=1.0 #
# $c coordonnees_dans_0_1=FAUX #
# $c AXYZ=1 BXYZ=0 #
# $c fond=VRAI #
# $c fond_dynamique=FAUX #
# $c F=$xiim/REFL.W.%04d #
# $c R=$xTV/REFL.A. #
# $c $formatI\n" #
# $c ,(n-N0)+1,n #
# $c ); #
# #
# $c printf("$xci/acces$X #
# $c A=$xTV/REFL.A.%04d$ROUGE #
# $c R=$xiim/REFL.W.%04d$ROUGE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xTV/REFL.A.%04d$VERTE #
# $c R=$xiim/REFL.W.%04d$VERTE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xTV/REFL.A.%04d$BLEUE #
# $c R=$xiim/REFL.W.%04d$BLEUE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# #
# $c printf("$DELETE $xTV/COORDONNEES\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_X\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_Y\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_Z\n"); #
# #
# $c printf("$DELETE $xTV/COULEURS$ROUGE\n"); #
# $c printf("$DELETE $xTV/COULEURS$VERTE\n"); #
# $c printf("$DELETE $xTV/COULEURS$BLEUE\n"); #
# #
# $c printf("listMN $xTV/GRAVITE #
# $c %d %d #
# $c > $xTV/COORDONNEES\n" #
# $c ,n,n #
# $c ); #
# #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*[(,]XG=//%c #
# $c -e %cs/[,)].*//%c #
# $c > $xTV/COORDONNEES$COORD_X\n" #
# $c ,'"','"','"','"' #
# $c ); #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*[(,]YG=//%c #
# $c -e %cs/[,)].*//%c #
# $c > $xTV/COORDONNEES$COORD_Y\n" #
# $c ,'"','"','"','"' #
# $c ); #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*[(,]ZG=//%c #
# $c -e %cs/[,)].*//%c #
# $c > $xTV/COORDONNEES$COORD_Z\n" #
# $c ,'"','"','"','"' #
# $c ); #
# #
# $c printf("$xci/valeurs_inte$X #
# $c premiere=%d derniere=%d #
# $c vD=$GRIS_8 vA=$GRIS_8 #
# $c cubique=FAUX #
# $c entiers=VRAI #
# $c utiliser_la_valeur_de_depart=FAUX #
# $c > $xTV/COULEURS$ROUGE\n" #
# $c ,n,n #
# $c ); #
# $c printf("$xci/valeurs_inte$X #
# $c premiere=%d derniere=%d #
# $c vD=$GRIS_8 vA=$GRIS_8 #
# $c cubique=FAUX #
# $c entiers=VRAI #
# $c utiliser_la_valeur_de_depart=FAUX #
# $c > $xTV/COULEURS$VERTE\n" #
# $c ,n,n #
# $c ); #
# $c printf("$xci/valeurs_inte$X #
# $c premiere=%d derniere=%d #
# $c vD=$GRIS_8 vA=$GRIS_8 #
# $c cubique=FAUX #
# $c entiers=VRAI #
# $c utiliser_la_valeur_de_depart=FAUX #
# $c > $xTV/COULEURS$BLEUE\n" #
# $c ,n,n #
# $c ); #
# #
# $c printf("$xrv/particule.10$X #
# $c np=1 #
# $c iterations=%d #
# $c LISTE_X=$xTV/COORDONNEES$COORD_X #
# $c LISTE_Y=$xTV/COORDONNEES$COORD_Y #
# $c LISTE_Z=$xTV/COORDONNEES$COORD_Z #
# $c LISTE_ROUGE=$xTV/COULEURS$ROUGE #
# $c LISTE_VERTE=$xTV/COULEURS$VERTE #
# $c LISTE_BLEUE=$xTV/COULEURS$BLEUE #
# $c LISTE_RAYON=0.012 #
# $c zoom_automatique=FAUX ZOOM=1.0 #
# $c coordonnees_dans_0_1=FAUX #
# $c AXYZ=1 BXYZ=0 #
# $c fond=VRAI #
# $c fond_dynamique=FAUX #
# $c F=$xiim/REFL.W.%04d #
# $c R=$xTV/REFL.B. #
# $c $formatI\n" #
# $c ,(n-n)+1,n #
# $c ); #
# #
# $c printf("$xci/acces$X #
# $c A=$xTV/REFL.B.%04d$ROUGE #
# $c R=$xiim/REFL.W.%04d$ROUGE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xTV/REFL.B.%04d$VERTE #
# $c R=$xiim/REFL.W.%04d$VERTE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xTV/REFL.B.%04d$BLEUE #
# $c R=$xiim/REFL.W.%04d$BLEUE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# $c } #
# $c } #
# #
# #
# $Z $DELETE $xTV/COORDONNEES #
# $Z $DELETE $xTV/COORDONNEES$COORD_X #
# $Z $DELETE $xTV/COORDONNEES$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_Z #
# $Z $DELETE $xTV/COULEURS$ROUGE #
# $Z $DELETE $xTV/COULEURS$VERTE #
# $Z $DELETE $xTV/COULEURS$BLEUE #
# #
# #
# #
# $Z $xci/complement$X A=$xTV/BOITE.1 \ #
# $Z R=$xTV/BOITE.3 \ #
# $Z $formatI #
# #
# $Z eval `$xci/genere$X \\\ #
# $Z commande='($xci/scale$X \\\ #
# $Z A=$xTV/BOITE.3 \\\ #
# $Z a=0.50 \\\ #
# $Z R=$xTV/BOITE.3%s \\\ #
# $Z $formatI)' \\\ #
# $Z en_tete=FAUX RVB=VRAI separateur=VRAI` #
# #
# #
# $Z $xci/gauss$X \ #
# $Z R=$xTV/GAUSS \ #
# $Z $formatI #
# #
# $c #define N0 Premiere #
# $c #define N Derniere #
# #
# $c int main() #
# $c { #
# $c int n; #
# #
# $c for (n=N0 ; n<=N ; n++) #
# $c { #
# $c int seuil=252; #
# #
# $c printf("$xci/filtre.01$X #
# $c A=$xiim/REFL.W.%04d$ROUGE #
# $c N=$xTV/GAUSS #
# $c renormaliser=FAUX #
# $c tronquer=VRAI #
# $c standard=FAUX #
# $c seuil=%d #
# $c R=$xTV/FILTREE$ROUGE #
# $c $formatI\n" #
# $c ,n,seuil #
# $c ); #
# $c printf("$xci/filtre.01$X #
# $c A=$xiim/REFL.W.%04d$VERTE #
# $c N=$xTV/GAUSS #
# $c renormaliser=FAUX #
# $c tronquer=VRAI #
# $c standard=FAUX #
# $c seuil=%d #
# $c R=$xTV/FILTREE$VERTE #
# $c $formatI\n" #
# $c ,n,seuil #
# $c ); #
# $c printf("$xci/filtre.01$X #
# $c A=$xiim/REFL.W.%04d$BLEUE #
# $c N=$xTV/GAUSS #
# $c renormaliser=FAUX #
# $c tronquer=VRAI #
# $c standard=FAUX #
# $c seuil=%d #
# $c R=$xTV/FILTREE$BLEUE #
# $c $formatI\n" #
# $c ,n,seuil #
# $c ); #
# #
# $c printf("$xci/acces$X #
# $c A=$xTV/FILTREE$ROUGE #
# $c standard=FAUX #
# $c extrema=FAUX #
# $c tronquer=VRAI #
# $c zero=FAUX #
# $c $formatI | #
# $c $xci/substitue$X #
# $c substitution=L_SUBSTITUTION_02 #
# $c R=$xTV/TEXTURE$ROUGE #
# $c $formatI\n" #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xTV/FILTREE$VERTE #
# $c standard=FAUX #
# $c extrema=FAUX #
# $c tronquer=VRAI #
# $c zero=FAUX #
# $c $formatI | #
# $c $xci/substitue$X #
# $c substitution=L_SUBSTITUTION_02 #
# $c R=$xTV/TEXTURE$VERTE #
# $c $formatI\n" #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xTV/FILTREE$BLEUE #
# $c standard=FAUX #
# $c extrema=FAUX #
# $c tronquer=VRAI #
# $c zero=FAUX #
# $c $formatI | #
# $c $xci/substitue$X #
# $c substitution=L_SUBSTITUTION_02 #
# $c R=$xTV/TEXTURE$BLEUE #
# $c $formatI\n" #
# $c ); #
# #
# $c printf("$xci/somme_02$X #
# $c A1=$xTV/FILTREE$ROUGE #
# $c A2=$xTV/FILTREE$VERTE #
# $c standard=FAUX #
# $c R=$xTV/SURFACE #
# $c $formatI\n" #
# $c ); #
# $c printf("$xci/somme_02$X #
# $c A1=$xTV/SURFACE #
# $c A2=$xTV/FILTREE$BLEUE #
# $c standard=FAUX #
# $c R=$xTV/SURFACE #
# $c $formatI\n" #
# $c ); #
# #
# $c printf("$xci/montagne.01$X #
# $c A=$xTV/SURFACE #
# $c standard=FAUX #
# $c extrema=VRAI #
# $c zero=FAUX #
# $c T=$xTV/TEXTURE$ROUGE #
# $c avion=VRAI #
# $c $formatI | #
# $c $xci/format.01$X #
# $c $formatI #
# $c mode=2 #
# $c R=$xiim/RE$m.B.%04d$ROUGE #
# $c $formatR_Pal\n" #
# $c ,n #
# $c ); #
# $c printf("$xci/montagne.01$X #
# $c A=$xTV/SURFACE #
# $c standard=FAUX #
# $c extrema=VRAI #
# $c zero=FAUX #
# $c T=$xTV/TEXTURE$VERTE #
# $c avion=VRAI #
# $c $formatI | #
# $c $xci/format.01$X #
# $c $formatI #
# $c mode=2 #
# $c R=$xiim/RE$m.B.%04d$VERTE #
# $c $formatR_Pal\n" #
# $c ,n #
# $c ); #
# $c printf("$xci/montagne.01$X #
# $c A=$xTV/SURFACE #
# $c standard=FAUX #
# $c extrema=VRAI #
# $c zero=FAUX #
# $c T=$xTV/TEXTURE$BLEUE #
# $c avion=VRAI #
# $c $formatI | #
# $c $xci/format.01$X #
# $c $formatI #
# $c mode=2 #
# $c R=$xiim/RE$m.B.%04d$BLEUE #
# $c $formatR_Pal\n" #
# $c ,n #
# $c ); #
# $c } #
# $c } #
# #
# $Z $DELETE $xTV/BOITE.1 #
# $Z $DELETE $xTV/BOITE.2 #
# $Z $DELETE $xTV/BOITE.3 #
# $Z $DELETE $xTV/BOITE.3$ROUGE #
# $Z $DELETE $xTV/BOITE.3$VERTE #
# $Z $DELETE $xTV/BOITE.3$BLEUE #
# #
# $Z Pal #
# #
# $Z $xci/reduction_16$Z $xiim/RE$m.B. $xiak/RE.E6$m $Premiere $Derniere #
# $Z $xci/reduction_64$Z $xiim/RE$m.B. $xiak/RE.E6$m $Premiere $Derniere #
# #
# $X $xci/genere$X c='ro $xiak/RE.E6$m$R16%s' RVB=VRAI #
# $X $xci/genere$X c='ro $xiak/RE.E6$m$R64%s' RVB=VRAI #
# #
# $X $xci/genere$X c='$xcg/unite$Z $xiak/RE.E6$m$R16%s' RVB=VRAI #
# $X $xci/genere$X c='$xcg/unite$Z $xiak/RE.E6$m$R64%s' RVB=VRAI #
# #
# $X $xci/genere$X c='$CP $xiim/RE$m.B.0512%s $xiirk/RE.E6$m.0512%s' RVB=VRAI #
# #
# $X $xci/genere$X c='ro $xiirk/RE.E6$m.0512%s' RVB=VRAI #
# #
# $X $xci/genere$X c='$xcg/unite$Z $xiirk/RE.E6$m.0512%s' RVB=VRAI #
# #
# #
# Pal #
# #
# #
# $xci/disk_video_P$Z $xiim_LACT29/RE$m.B. 001 512 RVB \ #
# 11 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
# #
# xivPdf 3 2 #
# #
# record.01$Z $xiak/RE.E6$m$R16 RVB Initialisation #
# record.01$Z $xiak/RE.E6$m$R64 RVB rien #
# record.01$Z $xiirk/RE.E6$m.0512 RVB rien #
# #
sequence 011265_011776
sequence 011777_012288
# Generee (sur '$LACT29') par : #
# #
# $Z SET Premiere=1 #
# $Z SET Derniere=512 #
# $Z @ Nimages = $Derniere - $Premiere #
# $Z @ Nimages = $Nimages + 1 #
# #
# #
# $Z Std #
# #
# $Z set PUnivers="np=0 CAL1=FAUX editer_l_univers_physique=VRAI" #
# $Z set Univers=`$xrk/rdn_walk.41$X $PUnivers $formatI` #
# #
# $Z set MinX=`echo $Univers | $SE -e "s/^.*[(,]XUI=//" -e "s/[,)].*//"` #
# $Z set MaxX=`echo $Univers | $SE -e "s/^.*[(,]XUS=//" -e "s/[,)].*//"` #
# $Z set MinY=`echo $Univers | $SE -e "s/^.*[(,]YUI=//" -e "s/[,)].*//"` #
# $Z set MaxY=`echo $Univers | $SE -e "s/^.*[(,]YUS=//" -e "s/[,)].*//"` #
# #
# $Z set MinX=`$xcg/ABSO.01$X x=$MinX` #
# $Z set MaxX=`$xcg/ABSO.01$X x=$MaxX` #
# $Z set MinY=`$xcg/ABSO.01$X x=$MinY` #
# $Z set MaxY=`$xcg/ABSO.01$X x=$MaxY` #
# #
# $Z set MaxX=`$xcg/MAX2.01$X n1=$MinX n2=$MaxX` #
# $Z set MaxY=`$xcg/MAX2.01$X n1=$MinY n2=$MaxY` #
# #
# $Z set SeuilPartN=0.000502 #
# $Z set GrainePartN=2 #
# #
# $Z $DELETE $xTV/BOITE.1 #
# $Z $DELETE $xTV/BOITE.2 #
# $Z $DELETE $xTV/BOITE.3 #
# $Z $DELETE $xTV/BOITE.3$ROUGE #
# $Z $DELETE $xTV/BOITE.3$VERTE #
# $Z $DELETE $xTV/BOITE.3$BLEUE #
# $Z $DELETE $xTV/BOITE.4 #
# $Z $DELETE $xTV/BOITE.5 #
# $Z $DELETE $xTV/BOITE.6 #
# $Z $DELETE $xTV/BOITE.7 #
# $Z $DELETE $xTV/BOITE.8 #
# $Z $DELETE $xTV/BOITE.9 #
# $Z $DELETE $xTV/BOITE.A #
# $Z $DELETE $xTV/BOITE.B #
# #
# #
# $Z Std #
# #
# $Z $xci/complement$X \ #
# $Z A=$xiio/SPIRALE \ #
# $Z R=$xTV/BOITE.4 \ #
# $Z $formatI #
# $Z $xci/seuil$X \ #
# $Z A=$xTV/BOITE.4 \ #
# $Z seuil=$GRIS_6 \ #
# $Z R=$xTV/BOITE.9 \ #
# $Z $formatI #
# #
# $Z $xci/reduction_04$X \ #
# $Z A=$xTV/BOITE.4 \ #
# $Z chiffres=0 \ #
# $Z moyenne=FAUX \ #
# $Z $formatI | \ #
# $Z $xci/or_02$X \ #
# $Z A2=$xTV/BOITE.9 \ #
# $Z $formatI | \ #
# $Z $xci/seuil$X \ #
# $Z seuil=$GRIS_1 \ #
# $Z R=$xTV/BOITE.5 \ #
# $Z $formatI #
# #
# $Z $xci/reduction_04$X \ #
# $Z A=$xTV/BOITE.5 \ #
# $Z chiffres=0 \ #
# $Z moyenne=FAUX \ #
# $Z $formatI | \ #
# $Z $xci/or_02$X \ #
# $Z A2=$xTV/BOITE.9 \ #
# $Z R=$xTV/BOITE.6 \ #
# $Z $formatI #
# #
# $Z S #
# #
# $Z $xci/acces$X \ #
# $Z A=$xTV/BOITE.6 \ #
# $Z R=$xTV/BOITE.1 \ #
# $Z $formatI #
# #
# $Z $xci/dilate.01$X \ #
# $Z A=$xTV/BOITE.6 \ #
# $Z points=225 \ #
# $Z dilater=FAUX \ #
# $Z R=$xTV/BOITE.A \ #
# $Z $formatI #
# #
# $Z $xci/random.02$X \ #
# $Z seuil=$SeuilPartN \ #
# $Z graine=$GrainePartN \ #
# $Z $formatI | \ #
# $Z $xci/and$X \ #
# $Z A2=$xTV/BOITE.A \ #
# $Z R=$xTV/BOITE.B \ #
# $Z $formatI #
# #
# $Z $DELETE $xTV/COORDONNEES #
# $Z $DELETE $xTV/COORDONNEES_01$COORD_X #
# $Z $DELETE $xTV/COORDONNEES_01$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_X #
# $Z $DELETE $xTV/COORDONNEES$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_Z #
# #
# $Z $xci/liste_points$X \ #
# $Z A=$xTV/BOITE.B \ #
# $Z $formatI \ #
# $Z > $xTV/COORDONNEES #
# #
# $Z $DELETE $xTV/BOITE.4 #
# $Z $DELETE $xTV/BOITE.5 #
# $Z $DELETE $xTV/BOITE.6 #
# $Z $DELETE $xTV/BOITE.7 #
# $Z $DELETE $xTV/BOITE.8 #
# $Z $DELETE $xTV/BOITE.9 #
# $Z $DELETE $xTV/BOITE.A #
# $Z $DELETE $xTV/BOITE.B #
# #
# $Z set PartN=`$TAI -1 $xTV/COORDONNEES | $SE -e "s/^.*=//"` #
# #
# $Z $CA $xTV/COORDONNEES \ #
# $Z | $GRE "^[Xx]=" \ #
# $Z | $SE -e "s/^[Xx]=//" \ #
# $Z > $xTV/COORDONNEES_01$COORD_X #
# $Z $CA $xTV/COORDONNEES \ #
# $Z | $GRE "^[Yy]=" \ #
# $Z | $SE -e "s/^[Yy]=//" \ #
# $Z > $xTV/COORDONNEES_01$COORD_Y #
# #
# $Z set EchelleX=`$xcg/MUL2.01$X n1=2 n2=$MaxX` #
# $Z set TranslationX=`$xcg/MUL2.01$X n1=-1 n2=$MaxX` #
# $Z set EchelleY=`$xcg/MUL2.01$X n1=2 n2=$MaxY` #
# $Z set TranslationY=`$xcg/MUL2.01$X n1=-1 n2=$MaxY` #
# #
# $Z $xrv/AXPB.01$X \ #
# $Z CAL1=FAUX \ #
# $Z ne=$PartN \ #
# $Z fichier=$xTV/COORDONNEES_01$COORD_X \ #
# $Z homothetie=$EchelleX translation=$TranslationX \ #
# $Z > $xTV/COORDONNEES$COORD_X #
# $Z $xrv/AXPB.01$X \ #
# $Z CAL1=FAUX \ #
# $Z ne=$PartN \ #
# $Z fichier=$xTV/COORDONNEES_01$COORD_Y \ #
# $Z homothetie=$EchelleY translation=$TranslationY \ #
# $Z > $xTV/COORDONNEES$COORD_Y #
# #
# $Z $DELETE $xTV/COORDONNEES_01$COORD_X #
# $Z $DELETE $xTV/COORDONNEES_01$COORD_Y #
# #
# $Z set Part0=1 #
# $Z @ Npart = $PartN - $Part0 #
# $Z @ Npart = $Npart + 1 #
# #
# $Z $DELETE $xTV/MODULE #
# $Z $DELETE $xTV/THETA #
# $Z $DELETE $xTV/XY_RT.1 #
# $Z $DELETE $xTV/XY_RT.2 #
# $Z $DELETE $xTV/VITESSES #
# $Z $DELETE $xTV/VITESSES$COORD_X #
# $Z $DELETE $xTV/VITESSES$COORD_Y #
# $Z $DELETE $xTV/VITESSES$COORD_Z #
# $Z $DELETE $xTV/mdRHO #
# $Z $DELETE $xTV/MdRHO #
# $Z $DELETE $xTV/mnPHI #
# $Z $DELETE $xTV/MnPHI #
# $Z $DELETE $xTV/dPHI #
# $Z $DELETE $xTV/mnTHETA #
# $Z $DELETE $xTV/MnTHETA #
# $Z $DELETE $xTV/dTHETA #
# $Z $DELETE $xTV/supOUVE #
# $Z $DELETE $xTV/DISTANCE #
# $Z $DELETE $xTV/STABILITE #
# $Z $DELETE $xTV/RAYONS #
# $Z $DELETE $xTV/INTERACTIONS #
# #
# #
# $Z alias Gen 'set Fi=\!:1 ; set vD=\!:2 ; set vA=\!:3 ; set ArG=(\!:4*) ; \\ #
# $Z $DELETE $Fi ; \\ #
# $Z $xci/valeurs_inte$X p=$Part0 d=$PartN vD=$vD vA=$vA $ArG > $Fi ; \\ #
# $Z unset Fi vD vA ArG' #
# #
# $Z alias GenR 'set Fi=\!:1 ; set In=\!:2 ; set Su=\!:3 ; set ArG=(\!:4*) ; \\ #
# $Z $DELETE $Fi ; \\ #
# $Z $xci/valeurs_alea$X p=$Part0 d=$PartN signe="$KV" inf=$In sup=$Su $ArG > $Fi ; \\ #
# $Z unset Fi In Su ArG' #
# #
# $Z Gen $xTV/COORDONNEES$COORD_Z 0.0 0.0 #
# #
# #
# $Z Gen $xTV/MODULE 0.02 0.02 #
# $Z GenR $xTV/THETA 0.0 $dpi g=3333 #
# #
# $Z $CA $xcs/csh$Y \ #
# $Z > $xTV/XY_RT.1 #
# $Z $PAST $xTV/MODULE $xTV/THETA \ #
# $Z | $R "$K_TAB" "$K_BLANC" \ #
# $Z | $AW ' { print "$xcg/XY_RT$X r=" $1 " t=" $2 " cartesien=FAUX" } ' \ #
# $Z >>! $xTV/XY_RT.1 #
# #
# $Z (source $xTV/XY_RT.1) \ #
# $Z > $xTV/XY_RT.2 #
# #
# $Z $CA $xTV/XY_RT.2 \ #
# $Z | $GRE "^x=" \ #
# $Z | $SE -e "s/^x=//" \ #
# $Z > $xTV/VITESSES$COORD_X #
# $Z $CA $xTV/XY_RT.2 \ #
# $Z | $GRE "^y=" \ #
# $Z | $SE -e "s/^y=//" \ #
# $Z > $xTV/VITESSES$COORD_Y #
# #
# $Z Gen $xTV/VITESSES$COORD_Z 0.0 0.0 #
# #
# $Z Gen $xTV/mdRHO 0.0 0.0 #
# $Z Gen $xTV/MdRHO 0.0 0.0 #
# $Z Gen $xTV/mnPHI 0.0 0.0 #
# $Z Gen $xTV/MnPHI 0.0 0.0 #
# $Z Gen $xTV/dPHI 0.0 0.0 #
# $Z Gen $xTV/mnTHETA 0.0 0.0 #
# $Z Gen $xTV/MnTHETA 0.0 0.0 #
# $Z Gen $xTV/dTHETA 0.0 0.0 #
# $Z Gen $xTV/DISTANCE 1000000 1000000 #
# $Z Gen $xTV/STABILITE 1000000 1000000 #
# #
# $Z set RayonsT=0.014 #
# $Z set RayonsP=`$xcg/MUL2.01$X a=2 b=$RayonsT` #
# $Z set DistanceI=`$xcg/MUL2.01$X a=4 b=$RayonsP` #
# $Z Gen $xTV/RAYONS $RayonsT $RayonsT #
# $Z Gen $xTV/INTERACTIONS $RayonsP $RayonsP #
# #
# $Z $DELETE $xTV/COULEURS$TEINT #
# $Z $DELETE $xTV/COULEURS$LUMIN #
# $Z $DELETE $xTV/COULEURS$SATUR #
# $Z $DELETE $xTV/COULEURS$Y #
# $Z $DELETE $xTV/COULEURS #
# $Z $DELETE $xTV/COULEURS$ROUGE #
# $Z $DELETE $xTV/COULEURS$VERTE #
# $Z $DELETE $xTV/COULEURS$BLEUE #
# #
# $Z @ TeinteMagenta = $GRIS_7 #
# $Z @ TeinteCyan = $GRIS_4 + $GRIS_8 #
# #
# $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartN \ #
# $Z vD=$TeinteMagenta vA=$TeinteCyan \ #
# $Z cubique=FAUX \ #
# $Z entiers=VRAI \ #
# $Z > $xTV/COULEURS$TEINT #
# $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartN \ #
# $Z vD=$GRIS_4 vA=$GRIS_4 \ #
# $Z cubique=FAUX \ #
# $Z entiers=VRAI \ #
# $Z > $xTV/COULEURS$LUMIN #
# $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartN \ #
# $Z vD=$GRIS_8 vA=$GRIS_8 \ #
# $Z cubique=FAUX \ #
# $Z entiers=VRAI \ #
# $Z > $xTV/COULEURS$SATUR #
# #
# $Z $PAST \ #
# $Z $xTV/COULEURS$TEINT \ #
# $Z $xTV/COULEURS$LUMIN \ #
# $Z $xTV/COULEURS$SATUR \ #
# $Z | $R "$K_TAB" "$K_BLANC" \ #
# $Z | $AW ' { print "H=" $1 " L=" $2 " S=" $3 } ' \ #
# $Z | $SE -e 's+^+$xcg/RVB_HLS$X RVB_HLS=FAUX +' \ #
# $Z | $SE -e 's/$/ eR=VRAI eV=VRAI eB=VRAI/' \ #
# $Z | $SE -e 's/$/ eH=FAUX eL=FAUX eS=FAUX/' \ #
# $Z > $xTV/COULEURS$Y #
# #
# $Z (source $xTV/COULEURS$Y) \ #
# $Z > $xTV/COULEURS #
# #
# $Z $GRE "^R=" $xTV/COULEURS \ #
# $Z | $SE -e "s/^R=//" \ #
# $Z > $xTV/COULEURS$ROUGE #
# $Z $GRE "^V=" $xTV/COULEURS \ #
# $Z | $SE -e "s/^V=//" \ #
# $Z > $xTV/COULEURS$VERTE #
# $Z $GRE "^B=" $xTV/COULEURS \ #
# $Z | $SE -e "s/^B=//" \ #
# $Z > $xTV/COULEURS$BLEUE #
# #
# $Z Std #
# #
# #
# $Z $xci/scale$X \ #
# $Z A=$xTV/BOITE.1 \ #
# $Z a=1.00 \ #
# $Z R=$xTV/BOITE.2 \ #
# $Z $formatI #
# #
# $Z $xrk/rdn_walk.41$X corps=$Npart \ #
# $Z np=$Nimages \ #
# $Z collisions=VRAI DLA=FAUX interaction=$DistanceI \ #
# $Z LISTE_X=$xTV/COORDONNEES$COORD_X \ #
# $Z LISTE_Y=$xTV/COORDONNEES$COORD_Y \ #
# $Z LISTE_Z=$xTV/COORDONNEES$COORD_Z \ #
# $Z LISTE_VX=$xTV/VITESSES$COORD_X \ #
# $Z LISTE_VY=$xTV/VITESSES$COORD_Y \ #
# $Z LISTE_VZ=$xTV/VITESSES$COORD_Z \ #
# $Z LISTE_MINIMUM_DELTA_RHO=$xTV/mdRHO \ #
# $Z LISTE_MAXIMUM_DELTA_RHO=$xTV/MdRHO \ #
# $Z LISTE_MINIMUM_N_PHI=$xTV/mnPHI \ #
# $Z LISTE_MAXIMUM_N_PHI=$xTV/MnPHI \ #
# $Z LISTE_DELTA_PHI=$xTV/dPHI \ #
# $Z LISTE_MINIMUM_N_THETA=$xTV/mnTHETA \ #
# $Z LISTE_MAXIMUM_N_THETA=$xTV/MnTHETA \ #
# $Z LISTE_DELTA_THETA=$xTV/dTHETA \ #
# $Z LISTE_DISTANCE_MAXIMALE=$xTV/DISTANCE \ #
# $Z LISTE_STABILITE=$xTV/STABILITE \ #
# $Z LISTE_RAYON=$xTV/RAYONS \ #
# $Z LISTE_RAYON_D_INTERACTION=$xTV/INTERACTIONS \ #
# $Z LISTE_ROUGE=$xTV/COULEURS$ROUGE \ #
# $Z LISTE_VERTE=$xTV/COULEURS$VERTE \ #
# $Z LISTE_BLEUE=$xTV/COULEURS$BLEUE \ #
# $Z milieu=VRAI \ #
# $Z reflexion=VRAI refraction=FAUX \ #
# $Z Mhors=$BLANC \ #
# $Z MNpasX=1 Mprolonger_X=VRAI \ #
# $Z MNpasY=1 Mprolonger_Y=VRAI \ #
# $Z MNpasZ=1 Mprolonger_Z=VRAI \ #
# $Z adapter_M_nPAS=VRAI \ #
# $Z Msimplifier=FAUX affiner_M_maillage=FAUX \ #
# $Z MC=$xTV/BOITE.2 \ #
# $Z MChiffres=0 \ #
# $Z Zmin=0 Zmax=15 \ #
# $Z centrer=VRAI \ #
# $Z dct=0.05 nombre=10 \ #
# $Z trainees=VRAI mode=1 \ #
# $Z attenuation_des_images=0.6 \ #
# $Z attenuation_des_trainees=1.00 \ #
# $Z renormaliser=FAUX \ #
# $Z Lz=100 \ #
# $Z zoom_automatique=VRAI \ #
# $Z centre_de_gravite=FAUX \ #
# $Z fond=FAUX \ #
# $Z R=$xiim/REFL.W. \ #
# $Z $formatI #
# #
# $Z $DELETE $xTV/RAYONS #
# $Z $CP $xTV/INTERACTIONS $xTV/RAYONS #
# #
# $Z $DELETE $xTV/GRAVITE #
# $Z $xrk/rdn_walk.41$X corps=$Npart \ #
# $Z np=$Nimages \ #
# $Z collisions=VRAI DLA=FAUX interaction=$DistanceI \ #
# $Z LISTE_X=$xTV/COORDONNEES$COORD_X \ #
# $Z LISTE_Y=$xTV/COORDONNEES$COORD_Y \ #
# $Z LISTE_Z=$xTV/COORDONNEES$COORD_Z \ #
# $Z LISTE_VX=$xTV/VITESSES$COORD_X \ #
# $Z LISTE_VY=$xTV/VITESSES$COORD_Y \ #
# $Z LISTE_VZ=$xTV/VITESSES$COORD_Z \ #
# $Z LISTE_MINIMUM_DELTA_RHO=$xTV/mdRHO \ #
# $Z LISTE_MAXIMUM_DELTA_RHO=$xTV/MdRHO \ #
# $Z LISTE_MINIMUM_N_PHI=$xTV/mnPHI \ #
# $Z LISTE_MAXIMUM_N_PHI=$xTV/MnPHI \ #
# $Z LISTE_DELTA_PHI=$xTV/dPHI \ #
# $Z LISTE_MINIMUM_N_THETA=$xTV/mnTHETA \ #
# $Z LISTE_MAXIMUM_N_THETA=$xTV/MnTHETA \ #
# $Z LISTE_DELTA_THETA=$xTV/dTHETA \ #
# $Z LISTE_DISTANCE_MAXIMALE=$xTV/DISTANCE \ #
# $Z LISTE_STABILITE=$xTV/STABILITE \ #
# $Z LISTE_RAYON=$xTV/RAYONS \ #
# $Z LISTE_RAYON_D_INTERACTION=$xTV/INTERACTIONS \ #
# $Z LISTE_ROUGE=$xTV/COULEURS$ROUGE \ #
# $Z LISTE_VERTE=$xTV/COULEURS$VERTE \ #
# $Z LISTE_BLEUE=$xTV/COULEURS$BLEUE \ #
# $Z milieu=VRAI \ #
# $Z reflexion=VRAI refraction=FAUX \ #
# $Z Mhors=$BLANC \ #
# $Z MNpasX=1 Mprolonger_X=VRAI \ #
# $Z MNpasY=1 Mprolonger_Y=VRAI \ #
# $Z MNpasZ=1 Mprolonger_Z=VRAI \ #
# $Z adapter_M_nPAS=VRAI \ #
# $Z Msimplifier=FAUX affiner_M_maillage=FAUX \ #
# $Z MC=$xTV/BOITE.2 \ #
# $Z MChiffres=0 \ #
# $Z Zmin=0 Zmax=15 \ #
# $Z centrer=VRAI \ #
# $Z dct=0.05 nombre=10 \ #
# $Z trainees=VRAI mode=1 \ #
# $Z attenuation_des_images=1.0 \ #
# $Z attenuation_des_trainees=0.80 \ #
# $Z renormaliser=FAUX \ #
# $Z Lz=100 \ #
# $Z zoom_automatique=VRAI \ #
# $Z centre_de_gravite=VRAI \ #
# $Z fond=VRAI \ #
# $Z dynamique=VRAI \ #
# $Z F=$xiim/REFL.W. \ #
# $Z R=$xiim/REFL.W. \ #
# $Z $formatI | \ #
# $Z $GRE " CENTRE_DE_GRAVITE=" \ #
# $Z > $xTV/GRAVITE #
# #
# $Z $DELETE $xTV/COORDONNEES #
# $Z $DELETE $xTV/COORDONNEES$COORD_X #
# $Z $DELETE $xTV/COORDONNEES$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_Z #
# $Z $DELETE $xTV/VITESSES #
# $Z $DELETE $xTV/VITESSES$COORD_X #
# $Z $DELETE $xTV/VITESSES$COORD_Y #
# $Z $DELETE $xTV/VITESSES$COORD_Z #
# $Z $DELETE $xTV/mdRHO #
# $Z $DELETE $xTV/MdRHO #
# $Z $DELETE $xTV/mnPHI #
# $Z $DELETE $xTV/MnPHI #
# $Z $DELETE $xTV/dPHI #
# $Z $DELETE $xTV/mnTHETA #
# $Z $DELETE $xTV/MnTHETA #
# $Z $DELETE $xTV/dTHETA #
# $Z $DELETE $xTV/DISTANCE #
# $Z $DELETE $xTV/STABILITE #
# $Z $DELETE $xTV/RAYONS #
# $Z $DELETE $xTV/INTERACTIONS #
# $Z $DELETE $xTV/COULEURS$TEINT #
# $Z $DELETE $xTV/COULEURS$LUMIN #
# $Z $DELETE $xTV/COULEURS$SATUR #
# $Z $DELETE $xTV/COULEURS$Y #
# $Z $DELETE $xTV/COULEURS #
# $Z $DELETE $xTV/COULEURS$ROUGE #
# $Z $DELETE $xTV/COULEURS$VERTE #
# $Z $DELETE $xTV/COULEURS$BLEUE #
# #
# $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("$DELETE $xTV/COORDONNEES\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_X\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_Y\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_Z\n"); #
# #
# $c printf("$DELETE $xTV/COULEURS$ROUGE\n"); #
# $c printf("$DELETE $xTV/COULEURS$VERTE\n"); #
# $c printf("$DELETE $xTV/COULEURS$BLEUE\n"); #
# #
# $c printf("listMN $xTV/GRAVITE #
# $c %d %d #
# $c > $xTV/COORDONNEES\n" #
# $c ,N0,n #
# $c ); #
# #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*[(,]XG=//%c #
# $c -e %cs/[,)].*//%c #
# $c > $xTV/COORDONNEES$COORD_X\n" #
# $c ,'"','"','"','"' #
# $c ); #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*[(,]YG=//%c #
# $c -e %cs/[,)].*//%c #
# $c > $xTV/COORDONNEES$COORD_Y\n" #
# $c ,'"','"','"','"' #
# $c ); #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*[(,]ZG=//%c #
# $c -e %cs/[,)].*//%c #
# $c > $xTV/COORDONNEES$COORD_Z\n" #
# $c ,'"','"','"','"' #
# $c ); #
# #
# $c printf("$xci/valeurs_inte$X #
# $c premiere=%d derniere=%d #
# $c vD=$GRIS_5 vA=$GRIS_5 #
# $c cubique=FAUX #
# $c entiers=VRAI #
# $c utiliser_la_valeur_de_depart=FAUX #
# $c > $xTV/COULEURS$ROUGE\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/valeurs_inte$X #
# $c premiere=%d derniere=%d #
# $c vD=$GRIS_5 vA=$GRIS_5 #
# $c cubique=FAUX #
# $c entiers=VRAI #
# $c utiliser_la_valeur_de_depart=FAUX #
# $c > $xTV/COULEURS$VERTE\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/valeurs_inte$X #
# $c premiere=%d derniere=%d #
# $c vD=$GRIS_5 vA=$GRIS_5 #
# $c cubique=FAUX #
# $c entiers=VRAI #
# $c utiliser_la_valeur_de_depart=FAUX #
# $c > $xTV/COULEURS$BLEUE\n" #
# $c ,N0,n #
# $c ); #
# #
# $c printf("$xrv/particule.10$X #
# $c np=1 #
# $c iterations=%d #
# $c LISTE_X=$xTV/COORDONNEES$COORD_X #
# $c LISTE_Y=$xTV/COORDONNEES$COORD_Y #
# $c LISTE_Z=$xTV/COORDONNEES$COORD_Z #
# $c LISTE_ROUGE=$xTV/COULEURS$ROUGE #
# $c LISTE_VERTE=$xTV/COULEURS$VERTE #
# $c LISTE_BLEUE=$xTV/COULEURS$BLEUE #
# $c LISTE_RAYON=0.009 #
# $c zoom_automatique=FAUX ZOOM=1.0 #
# $c coordonnees_dans_0_1=FAUX #
# $c AXYZ=1 BXYZ=0 #
# $c fond=VRAI #
# $c fond_dynamique=FAUX #
# $c F=$xiim/REFL.W.%04d #
# $c R=$xTV/REFL.A. #
# $c $formatI\n" #
# $c ,(n-N0)+1,n #
# $c ); #
# #
# $c printf("$xci/acces$X #
# $c A=$xTV/REFL.A.%04d$ROUGE #
# $c R=$xiim/REFL.W.%04d$ROUGE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xTV/REFL.A.%04d$VERTE #
# $c R=$xiim/REFL.W.%04d$VERTE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xTV/REFL.A.%04d$BLEUE #
# $c R=$xiim/REFL.W.%04d$BLEUE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# #
# $c printf("$DELETE $xTV/COORDONNEES\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_X\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_Y\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_Z\n"); #
# #
# $c printf("$DELETE $xTV/COULEURS$ROUGE\n"); #
# $c printf("$DELETE $xTV/COULEURS$VERTE\n"); #
# $c printf("$DELETE $xTV/COULEURS$BLEUE\n"); #
# #
# $c printf("listMN $xTV/GRAVITE #
# $c %d %d #
# $c > $xTV/COORDONNEES\n" #
# $c ,n,n #
# $c ); #
# #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*[(,]XG=//%c #
# $c -e %cs/[,)].*//%c #
# $c > $xTV/COORDONNEES$COORD_X\n" #
# $c ,'"','"','"','"' #
# $c ); #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*[(,]YG=//%c #
# $c -e %cs/[,)].*//%c #
# $c > $xTV/COORDONNEES$COORD_Y\n" #
# $c ,'"','"','"','"' #
# $c ); #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*[(,]ZG=//%c #
# $c -e %cs/[,)].*//%c #
# $c > $xTV/COORDONNEES$COORD_Z\n" #
# $c ,'"','"','"','"' #
# $c ); #
# #
# $c printf("$xci/valeurs_inte$X #
# $c premiere=%d derniere=%d #
# $c vD=$GRIS_8 vA=$GRIS_8 #
# $c cubique=FAUX #
# $c entiers=VRAI #
# $c utiliser_la_valeur_de_depart=FAUX #
# $c > $xTV/COULEURS$ROUGE\n" #
# $c ,n,n #
# $c ); #
# $c printf("$xci/valeurs_inte$X #
# $c premiere=%d derniere=%d #
# $c vD=$GRIS_8 vA=$GRIS_8 #
# $c cubique=FAUX #
# $c entiers=VRAI #
# $c utiliser_la_valeur_de_depart=FAUX #
# $c > $xTV/COULEURS$VERTE\n" #
# $c ,n,n #
# $c ); #
# $c printf("$xci/valeurs_inte$X #
# $c premiere=%d derniere=%d #
# $c vD=$GRIS_8 vA=$GRIS_8 #
# $c cubique=FAUX #
# $c entiers=VRAI #
# $c utiliser_la_valeur_de_depart=FAUX #
# $c > $xTV/COULEURS$BLEUE\n" #
# $c ,n,n #
# $c ); #
# #
# $c printf("$xrv/particule.10$X #
# $c np=1 #
# $c iterations=%d #
# $c LISTE_X=$xTV/COORDONNEES$COORD_X #
# $c LISTE_Y=$xTV/COORDONNEES$COORD_Y #
# $c LISTE_Z=$xTV/COORDONNEES$COORD_Z #
# $c LISTE_ROUGE=$xTV/COULEURS$ROUGE #
# $c LISTE_VERTE=$xTV/COULEURS$VERTE #
# $c LISTE_BLEUE=$xTV/COULEURS$BLEUE #
# $c LISTE_RAYON=0.012 #
# $c zoom_automatique=FAUX ZOOM=1.0 #
# $c coordonnees_dans_0_1=FAUX #
# $c AXYZ=1 BXYZ=0 #
# $c fond=VRAI #
# $c fond_dynamique=FAUX #
# $c F=$xiim/REFL.W.%04d #
# $c R=$xTV/REFL.B. #
# $c $formatI\n" #
# $c ,(n-n)+1,n #
# $c ); #
# #
# $c printf("$xci/acces$X #
# $c A=$xTV/REFL.B.%04d$ROUGE #
# $c R=$xiim/REFL.W.%04d$ROUGE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xTV/REFL.B.%04d$VERTE #
# $c R=$xiim/REFL.W.%04d$VERTE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xTV/REFL.B.%04d$BLEUE #
# $c R=$xiim/REFL.W.%04d$BLEUE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# $c } #
# $c } #
# #
# #
# $Z $DELETE $xTV/COORDONNEES #
# $Z $DELETE $xTV/COORDONNEES$COORD_X #
# $Z $DELETE $xTV/COORDONNEES$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_Z #
# $Z $DELETE $xTV/COULEURS$ROUGE #
# $Z $DELETE $xTV/COULEURS$VERTE #
# $Z $DELETE $xTV/COULEURS$BLEUE #
# #
# #
# #
# $Z $xci/complement$X A=$xTV/BOITE.1 \ #
# $Z R=$xTV/BOITE.3 \ #
# $Z $formatI #
# #
# $Z eval `$xci/genere$X \\\ #
# $Z commande='($xci/scale$X \\\ #
# $Z A=$xTV/BOITE.3 \\\ #
# $Z a=0.50 \\\ #
# $Z R=$xTV/BOITE.3%s \\\ #
# $Z $formatI)' \\\ #
# $Z en_tete=FAUX RVB=VRAI separateur=VRAI` #
# #
# #
# $Z $xci/gauss$X \ #
# $Z R=$xTV/GAUSS \ #
# $Z $formatI #
# #
# $c #define N0 Premiere #
# $c #define N Derniere #
# #
# $c int main() #
# $c { #
# $c int n; #
# #
# $c for (n=N0 ; n<=N ; n++) #
# $c { #
# $c int seuil=252; #
# #
# $c printf("$xci/filtre.01$X #
# $c A=$xiim/REFL.W.%04d$ROUGE #
# $c N=$xTV/GAUSS #
# $c renormaliser=FAUX #
# $c tronquer=VRAI #
# $c standard=FAUX #
# $c seuil=%d #
# $c R=$xTV/FILTREE$ROUGE #
# $c $formatI\n" #
# $c ,n,seuil #
# $c ); #
# $c printf("$xci/filtre.01$X #
# $c A=$xiim/REFL.W.%04d$VERTE #
# $c N=$xTV/GAUSS #
# $c renormaliser=FAUX #
# $c tronquer=VRAI #
# $c standard=FAUX #
# $c seuil=%d #
# $c R=$xTV/FILTREE$VERTE #
# $c $formatI\n" #
# $c ,n,seuil #
# $c ); #
# $c printf("$xci/filtre.01$X #
# $c A=$xiim/REFL.W.%04d$BLEUE #
# $c N=$xTV/GAUSS #
# $c renormaliser=FAUX #
# $c tronquer=VRAI #
# $c standard=FAUX #
# $c seuil=%d #
# $c R=$xTV/FILTREE$BLEUE #
# $c $formatI\n" #
# $c ,n,seuil #
# $c ); #
# #
# $c printf("$xci/acces$X #
# $c A=$xTV/FILTREE$ROUGE #
# $c standard=FAUX #
# $c extrema=FAUX #
# $c tronquer=VRAI #
# $c zero=FAUX #
# $c $formatI | #
# $c $xci/substitue$X #
# $c substitution=L_SUBSTITUTION_02 #
# $c R=$xTV/TEXTURE$ROUGE #
# $c $formatI\n" #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xTV/FILTREE$VERTE #
# $c standard=FAUX #
# $c extrema=FAUX #
# $c tronquer=VRAI #
# $c zero=FAUX #
# $c $formatI | #
# $c $xci/substitue$X #
# $c substitution=L_SUBSTITUTION_02 #
# $c R=$xTV/TEXTURE$VERTE #
# $c $formatI\n" #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xTV/FILTREE$BLEUE #
# $c standard=FAUX #
# $c extrema=FAUX #
# $c tronquer=VRAI #
# $c zero=FAUX #
# $c $formatI | #
# $c $xci/substitue$X #
# $c substitution=L_SUBSTITUTION_02 #
# $c R=$xTV/TEXTURE$BLEUE #
# $c $formatI\n" #
# $c ); #
# #
# $c printf("$xci/somme_02$X #
# $c A1=$xTV/FILTREE$ROUGE #
# $c A2=$xTV/FILTREE$VERTE #
# $c standard=FAUX #
# $c R=$xTV/SURFACE #
# $c $formatI\n" #
# $c ); #
# $c printf("$xci/somme_02$X #
# $c A1=$xTV/SURFACE #
# $c A2=$xTV/FILTREE$BLEUE #
# $c standard=FAUX #
# $c R=$xTV/SURFACE #
# $c $formatI\n" #
# $c ); #
# #
# $c printf("$xci/montagne.01$X #
# $c A=$xTV/SURFACE #
# $c standard=FAUX #
# $c extrema=VRAI #
# $c zero=FAUX #
# $c T=$xTV/TEXTURE$ROUGE #
# $c avion=VRAI #
# $c $formatI | #
# $c $xci/format.01$X #
# $c $formatI #
# $c mode=2 #
# $c R=$xiim/RE$m.C.%04d$ROUGE #
# $c $formatR_Pal\n" #
# $c ,n #
# $c ); #
# $c printf("$xci/montagne.01$X #
# $c A=$xTV/SURFACE #
# $c standard=FAUX #
# $c extrema=VRAI #
# $c zero=FAUX #
# $c T=$xTV/TEXTURE$VERTE #
# $c avion=VRAI #
# $c $formatI | #
# $c $xci/format.01$X #
# $c $formatI #
# $c mode=2 #
# $c R=$xiim/RE$m.C.%04d$VERTE #
# $c $formatR_Pal\n" #
# $c ,n #
# $c ); #
# $c printf("$xci/montagne.01$X #
# $c A=$xTV/SURFACE #
# $c standard=FAUX #
# $c extrema=VRAI #
# $c zero=FAUX #
# $c T=$xTV/TEXTURE$BLEUE #
# $c avion=VRAI #
# $c $formatI | #
# $c $xci/format.01$X #
# $c $formatI #
# $c mode=2 #
# $c R=$xiim/RE$m.C.%04d$BLEUE #
# $c $formatR_Pal\n" #
# $c ,n #
# $c ); #
# $c } #
# $c } #
# #
# $Z $DELETE $xTV/BOITE.1 #
# $Z $DELETE $xTV/BOITE.2 #
# $Z $DELETE $xTV/BOITE.3 #
# $Z $DELETE $xTV/BOITE.3$ROUGE #
# $Z $DELETE $xTV/BOITE.3$VERTE #
# $Z $DELETE $xTV/BOITE.3$BLEUE #
# #
# $Z Pal #
# #
# $Z $xci/reduction_16$Z $xiim/RE$m.C. $xiak/RE.F6$m $Premiere $Derniere #
# $Z $xci/reduction_64$Z $xiim/RE$m.C. $xiak/RE.F6$m $Premiere $Derniere #
# #
# $X $xci/genere$X c='ro $xiak/RE.F6$m$R16%s' RVB=VRAI #
# $X $xci/genere$X c='ro $xiak/RE.F6$m$R64%s' RVB=VRAI #
# #
# $X $xci/genere$X c='$xcg/unite$Z $xiak/RE.F6$m$R16%s' RVB=VRAI #
# $X $xci/genere$X c='$xcg/unite$Z $xiak/RE.F6$m$R64%s' RVB=VRAI #
# #
# $X $xci/genere$X c='$CP $xiim/RE$m.C.0512%s $xiirk/RE.F6$m.0512%s' RVB=VRAI #
# #
# $X $xci/genere$X c='ro $xiirk/RE.F6$m.0512%s' RVB=VRAI #
# #
# $X $xci/genere$X c='$xcg/unite$Z $xiirk/RE.F6$m.0512%s' RVB=VRAI #
# #
# #
# Pal #
# #
# #
# $xci/disk_video_P$Z $xiim_LACT29/RE$m.C. 001 512 RVB \ #
# 11 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
# #
# xivPdf 3 2 #
# #
# record.01$Z $xiak/RE.F6$m$R16 RVB Initialisation #
# record.01$Z $xiak/RE.F6$m$R64 RVB rien #
# record.01$Z $xiirk/RE.F6$m.0512 RVB rien #
# #
# #
# ATTENTION, cette sequence a du etre reenregistree en : #
# #
# xivPdf 11 2 / 011777_012288 #
# #
# car, en effet, pour des raisons mysterieuses, l'image '011474' est NOIR. Les messages #
# recuperes etaient du type : #
# #
# il y a soit un probleme de synchronisation en sortie #
# ou bien une absence de signal video en entree #
# le mode 'genlock' etait demande #
# #
# et : #
# #
# WARNING: Frame transfer aborted: analog video input not locked #
# #
# dans '$Ferreurs'... #
sequence 012289_012800
sequence 012801_013312
# Generee (sur '$LACT29') par : #
# #
# $Z SET Premiere=1 #
# $Z SET Derniere=512 #
# $Z @ Nimages = $Derniere - $Premiere #
# $Z @ Nimages = $Nimages + 1 #
# #
# $Z set Part0=1 #
# $Z set PartN=64 #
# $Z @ Npart = $PartN - $Part0 #
# $Z @ Npart = $Npart + 1 #
# #
# $Z $DELETE $xTV/MODULE #
# $Z $DELETE $xTV/THETA #
# $Z $DELETE $xTV/XY_RT.1 #
# $Z $DELETE $xTV/XY_RT.2 #
# $Z $DELETE $xTV/COORDONNEES$COORD_X #
# $Z $DELETE $xTV/COORDONNEES$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_Z #
# $Z $DELETE $xTV/VITESSES #
# $Z $DELETE $xTV/VITESSES$COORD_X #
# $Z $DELETE $xTV/VITESSES$COORD_Y #
# $Z $DELETE $xTV/VITESSES$COORD_Z #
# $Z $DELETE $xTV/mdRHO #
# $Z $DELETE $xTV/MdRHO #
# $Z $DELETE $xTV/mnPHI #
# $Z $DELETE $xTV/MnPHI #
# $Z $DELETE $xTV/dPHI #
# $Z $DELETE $xTV/mnTHETA #
# $Z $DELETE $xTV/MnTHETA #
# $Z $DELETE $xTV/dTHETA #
# $Z $DELETE $xTV/supOUVE #
# $Z $DELETE $xTV/DISTANCE #
# $Z $DELETE $xTV/STABILITE #
# $Z $DELETE $xTV/RAYONS #
# $Z $DELETE $xTV/INTERACTIONS #
# #
# #
# $Z alias Gen 'set Fi=\!:1 ; set vD=\!:2 ; set vA=\!:3 ; set ArG=(\!:4*) ; \\ #
# $Z $DELETE $Fi ; \\ #
# $Z $xci/valeurs_inte$X p=$Part0 d=$PartN vD=$vD vA=$vA $ArG > $Fi ; \\ #
# $Z unset Fi vD vA ArG' #
# #
# $Z alias GenR 'set Fi=\!:1 ; set In=\!:2 ; set Su=\!:3 ; set ArG=(\!:4*) ; \\ #
# $Z $DELETE $Fi ; \\ #
# $Z $xci/valeurs_alea$X p=$Part0 d=$PartN signe="$KV" inf=$In sup=$Su $ArG > $Fi ; \\ #
# $Z unset Fi In Su ArG' #
# #
# $Z set FacXY=0.85 #
# $Z set SeuilBOITE=`$xcg/SOUS.01$X a=1 b=$FacXY` #
# $Z set SeuilBOITE=`$xcg/MUL2.01$X a=$SeuilBOITE b=$GRIS_8` #
# $Z set SeuilBOITE=`$xci/valeurs_inte$X p=1 d=1 vD=$SeuilBOITE entiers=VRAI` #
# $Z set SeuilBOITE=`$xcg/MIN2.01$X a=$SeuilBOITE b=$GRIS_1` #
# #
# $Z Std #
# #
# $Z set PUnivers="np=0 CAL1=FAUX editer_l_univers_physique=VRAI" #
# $Z set Univers=`$xrk/rdn_walk.41$X $PUnivers $formatI` #
# #
# $Z set MinX=`echo $Univers | $SE -e "s/^.*[(,]XUI=//" -e "s/[,)].*//"` #
# $Z set MaxX=`echo $Univers | $SE -e "s/^.*[(,]XUS=//" -e "s/[,)].*//"` #
# $Z set MinY=`echo $Univers | $SE -e "s/^.*[(,]YUI=//" -e "s/[,)].*//"` #
# $Z set MaxY=`echo $Univers | $SE -e "s/^.*[(,]YUS=//" -e "s/[,)].*//"` #
# #
# $Z set MinX=`$xcg/ABSO.01$X x=$MinX` #
# $Z set MaxX=`$xcg/ABSO.01$X x=$MaxX` #
# $Z set MinY=`$xcg/ABSO.01$X x=$MinY` #
# $Z set MaxY=`$xcg/ABSO.01$X x=$MaxY` #
# #
# $Z set MaxX=`$xcg/MAX2.01$X n1=$MinX n2=$MaxX` #
# $Z set MaxY=`$xcg/MAX2.01$X n1=$MinY n2=$MaxY` #
# #
# $Z set MaxX=`$xcg/MUL2.01$X n1=$FacXY n2=$MaxX signe="$K_VIDE"` #
# $Z set MaxY=`$xcg/MUL2.01$X n1=$FacXY n2=$MaxY signe="$K_VIDE"` #
# #
# $Z GenR $xTV/COORDONNEES$COORD_X -$MaxX +$MaxX g=1111 #
# $Z GenR $xTV/COORDONNEES$COORD_Y -$MaxY +$MaxY g=2222 #
# #
# $Z Gen $xTV/COORDONNEES$COORD_Z 0.0 0.0 #
# #
# #
# $Z Gen $xTV/MODULE 0.02 0.02 #
# $Z GenR $xTV/THETA 0.0 $dpi g=3333 #
# #
# $Z $CA $xcs/csh$Y \ #
# $Z > $xTV/XY_RT.1 #
# $Z $PAST $xTV/MODULE $xTV/THETA \ #
# $Z | $R "$K_TAB" "$K_BLANC" \ #
# $Z | $AW ' { print "$xcg/XY_RT$X r=" $1 " t=" $2 " cartesien=FAUX" } ' \ #
# $Z >>! $xTV/XY_RT.1 #
# #
# $Z (source $xTV/XY_RT.1) \ #
# $Z > $xTV/XY_RT.2 #
# #
# $Z $CA $xTV/XY_RT.2 \ #
# $Z | $GRE "^x=" \ #
# $Z | $SE -e "s/^x=//" \ #
# $Z > $xTV/VITESSES$COORD_X #
# $Z $CA $xTV/XY_RT.2 \ #
# $Z | $GRE "^y=" \ #
# $Z | $SE -e "s/^y=//" \ #
# $Z > $xTV/VITESSES$COORD_Y #
# #
# $Z Gen $xTV/VITESSES$COORD_Z 0.0 0.0 #
# #
# $Z Gen $xTV/mdRHO 0.0 0.0 #
# $Z Gen $xTV/MdRHO 0.0 0.0 #
# $Z Gen $xTV/mnPHI 0.0 0.0 #
# $Z Gen $xTV/MnPHI 0.0 0.0 #
# $Z Gen $xTV/dPHI 0.0 0.0 #
# $Z Gen $xTV/mnTHETA 0.0 0.0 #
# $Z Gen $xTV/MnTHETA 0.0 0.0 #
# $Z Gen $xTV/dTHETA 0.0 0.0 #
# $Z Gen $xTV/DISTANCE 1000000 1000000 #
# $Z Gen $xTV/STABILITE 1000000 1000000 #
# #
# $Z set RayonsT=0.014 #
# $Z set RayonsP=`$xcg/MUL2.01$X a=2 b=$RayonsT` #
# $Z set DistanceI=`$xcg/MUL2.01$X a=4 b=$RayonsP` #
# $Z Gen $xTV/RAYONS $RayonsT $RayonsT #
# $Z Gen $xTV/INTERACTIONS $RayonsP $RayonsP #
# #
# $Z $DELETE $xTV/COULEURS$TEINT #
# $Z $DELETE $xTV/COULEURS$LUMIN #
# $Z $DELETE $xTV/COULEURS$SATUR #
# $Z $DELETE $xTV/COULEURS$Y #
# $Z $DELETE $xTV/COULEURS #
# $Z $DELETE $xTV/COULEURS$ROUGE #
# $Z $DELETE $xTV/COULEURS$VERTE #
# $Z $DELETE $xTV/COULEURS$BLEUE #
# #
# $Z @ TeinteMagenta = $GRIS_7 #
# $Z @ TeinteCyan = $GRIS_4 + $GRIS_8 #
# #
# $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartN \ #
# $Z vD=$TeinteMagenta vA=$TeinteCyan \ #
# $Z cubique=FAUX \ #
# $Z entiers=VRAI \ #
# $Z > $xTV/COULEURS$TEINT #
# $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartN \ #
# $Z vD=$GRIS_4 vA=$GRIS_4 \ #
# $Z cubique=FAUX \ #
# $Z entiers=VRAI \ #
# $Z > $xTV/COULEURS$LUMIN #
# $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartN \ #
# $Z vD=$GRIS_8 vA=$GRIS_8 \ #
# $Z cubique=FAUX \ #
# $Z entiers=VRAI \ #
# $Z > $xTV/COULEURS$SATUR #
# #
# $Z $PAST \ #
# $Z $xTV/COULEURS$TEINT \ #
# $Z $xTV/COULEURS$LUMIN \ #
# $Z $xTV/COULEURS$SATUR \ #
# $Z | $R "$K_TAB" "$K_BLANC" \ #
# $Z | $AW ' { print "H=" $1 " L=" $2 " S=" $3 } ' \ #
# $Z | $SE -e 's+^+$xcg/RVB_HLS$X RVB_HLS=FAUX +' \ #
# $Z | $SE -e 's/$/ eR=VRAI eV=VRAI eB=VRAI/' \ #
# $Z | $SE -e 's/$/ eH=FAUX eL=FAUX eS=FAUX/' \ #
# $Z > $xTV/COULEURS$Y #
# #
# $Z (source $xTV/COULEURS$Y) \ #
# $Z > $xTV/COULEURS #
# #
# $Z $GRE "^R=" $xTV/COULEURS \ #
# $Z | $SE -e "s/^R=//" \ #
# $Z > $xTV/COULEURS$ROUGE #
# $Z $GRE "^V=" $xTV/COULEURS \ #
# $Z | $SE -e "s/^V=//" \ #
# $Z > $xTV/COULEURS$VERTE #
# $Z $GRE "^B=" $xTV/COULEURS \ #
# $Z | $SE -e "s/^B=//" \ #
# $Z > $xTV/COULEURS$BLEUE #
# #
# $Z $DELETE $xTV/BOITE.1 #
# $Z $DELETE $xTV/BOITE.2 #
# $Z $DELETE $xTV/BOITE.3 #
# $Z $DELETE $xTV/BOITE.3$ROUGE #
# $Z $DELETE $xTV/BOITE.3$VERTE #
# $Z $DELETE $xTV/BOITE.3$BLEUE #
# #
# $Z Std #
# #
# $Z S #
# #
# $Z $xci/complement$X \ #
# $Z A=$xiio/SPIRALE \ #
# $Z $formatI | \ #
# $Z $xci/seuil$X \ #
# $Z seuil=$SeuilBOITE \ #
# $Z $formatI | \ #
# $Z $xci/acces$X \ #
# $Z R=$xTV/BOITE.1 \ #
# $Z $formatI #
# #
# $Z Std #
# #
# #
# $Z $xci/scale$X \ #
# $Z A=$xTV/BOITE.1 \ #
# $Z a=1.00 \ #
# $Z R=$xTV/BOITE.2 \ #
# $Z $formatI #
# #
# #
# $Z Std #
# #
# $Z $xrk/rdn_walk.41$X corps=$Npart \ #
# $Z np=$Nimages \ #
# $Z collisions=VRAI DLA=FAUX interaction=$DistanceI \ #
# $Z LISTE_X=$xTV/COORDONNEES$COORD_X \ #
# $Z LISTE_Y=$xTV/COORDONNEES$COORD_Y \ #
# $Z LISTE_Z=$xTV/COORDONNEES$COORD_Z \ #
# $Z LISTE_VX=$xTV/VITESSES$COORD_X \ #
# $Z LISTE_VY=$xTV/VITESSES$COORD_Y \ #
# $Z LISTE_VZ=$xTV/VITESSES$COORD_Z \ #
# $Z LISTE_MINIMUM_DELTA_RHO=$xTV/mdRHO \ #
# $Z LISTE_MAXIMUM_DELTA_RHO=$xTV/MdRHO \ #
# $Z LISTE_MINIMUM_N_PHI=$xTV/mnPHI \ #
# $Z LISTE_MAXIMUM_N_PHI=$xTV/MnPHI \ #
# $Z LISTE_DELTA_PHI=$xTV/dPHI \ #
# $Z LISTE_MINIMUM_N_THETA=$xTV/mnTHETA \ #
# $Z LISTE_MAXIMUM_N_THETA=$xTV/MnTHETA \ #
# $Z LISTE_DELTA_THETA=$xTV/dTHETA \ #
# $Z LISTE_DISTANCE_MAXIMALE=$xTV/DISTANCE \ #
# $Z LISTE_STABILITE=$xTV/STABILITE \ #
# $Z LISTE_RAYON=$xTV/RAYONS \ #
# $Z LISTE_RAYON_D_INTERACTION=$xTV/INTERACTIONS \ #
# $Z LISTE_ROUGE=$xTV/COULEURS$ROUGE \ #
# $Z LISTE_VERTE=$xTV/COULEURS$VERTE \ #
# $Z LISTE_BLEUE=$xTV/COULEURS$BLEUE \ #
# $Z milieu=VRAI \ #
# $Z reflexion=VRAI refraction=FAUX \ #
# $Z Mhors=$BLANC \ #
# $Z MNpasX=1 Mprolonger_X=VRAI \ #
# $Z MNpasY=1 Mprolonger_Y=VRAI \ #
# $Z MNpasZ=1 Mprolonger_Z=VRAI \ #
# $Z adapter_M_nPAS=VRAI \ #
# $Z Msimplifier=FAUX affiner_M_maillage=FAUX \ #
# $Z MC=$xTV/BOITE.2 \ #
# $Z MChiffres=0 \ #
# $Z Zmin=0 Zmax=15 \ #
# $Z centrer=VRAI \ #
# $Z dct=0.05 nombre=10 \ #
# $Z trainees=VRAI mode=1 \ #
# $Z attenuation_des_images=0.6 \ #
# $Z attenuation_des_trainees=1.00 \ #
# $Z renormaliser=FAUX \ #
# $Z Lz=100 \ #
# $Z zoom_automatique=VRAI \ #
# $Z centre_de_gravite=FAUX \ #
# $Z fond=FAUX \ #
# $Z R=$xiim/REFL.W. \ #
# $Z $formatI #
# #
# $Z $DELETE $xTV/RAYONS #
# $Z $CP $xTV/INTERACTIONS $xTV/RAYONS #
# #
# $Z $DELETE $xTV/GRAVITE #
# $Z $xrk/rdn_walk.41$X corps=$Npart \ #
# $Z np=$Nimages \ #
# $Z collisions=VRAI DLA=FAUX interaction=$DistanceI \ #
# $Z LISTE_X=$xTV/COORDONNEES$COORD_X \ #
# $Z LISTE_Y=$xTV/COORDONNEES$COORD_Y \ #
# $Z LISTE_Z=$xTV/COORDONNEES$COORD_Z \ #
# $Z LISTE_VX=$xTV/VITESSES$COORD_X \ #
# $Z LISTE_VY=$xTV/VITESSES$COORD_Y \ #
# $Z LISTE_VZ=$xTV/VITESSES$COORD_Z \ #
# $Z LISTE_MINIMUM_DELTA_RHO=$xTV/mdRHO \ #
# $Z LISTE_MAXIMUM_DELTA_RHO=$xTV/MdRHO \ #
# $Z LISTE_MINIMUM_N_PHI=$xTV/mnPHI \ #
# $Z LISTE_MAXIMUM_N_PHI=$xTV/MnPHI \ #
# $Z LISTE_DELTA_PHI=$xTV/dPHI \ #
# $Z LISTE_MINIMUM_N_THETA=$xTV/mnTHETA \ #
# $Z LISTE_MAXIMUM_N_THETA=$xTV/MnTHETA \ #
# $Z LISTE_DELTA_THETA=$xTV/dTHETA \ #
# $Z LISTE_DISTANCE_MAXIMALE=$xTV/DISTANCE \ #
# $Z LISTE_STABILITE=$xTV/STABILITE \ #
# $Z LISTE_RAYON=$xTV/RAYONS \ #
# $Z LISTE_RAYON_D_INTERACTION=$xTV/INTERACTIONS \ #
# $Z LISTE_ROUGE=$xTV/COULEURS$ROUGE \ #
# $Z LISTE_VERTE=$xTV/COULEURS$VERTE \ #
# $Z LISTE_BLEUE=$xTV/COULEURS$BLEUE \ #
# $Z milieu=VRAI \ #
# $Z reflexion=VRAI refraction=FAUX \ #
# $Z Mhors=$BLANC \ #
# $Z MNpasX=1 Mprolonger_X=VRAI \ #
# $Z MNpasY=1 Mprolonger_Y=VRAI \ #
# $Z MNpasZ=1 Mprolonger_Z=VRAI \ #
# $Z adapter_M_nPAS=VRAI \ #
# $Z Msimplifier=FAUX affiner_M_maillage=FAUX \ #
# $Z MC=$xTV/BOITE.2 \ #
# $Z MChiffres=0 \ #
# $Z Zmin=0 Zmax=15 \ #
# $Z centrer=VRAI \ #
# $Z dct=0.05 nombre=10 \ #
# $Z trainees=VRAI mode=1 \ #
# $Z attenuation_des_images=1.0 \ #
# $Z attenuation_des_trainees=0.80 \ #
# $Z renormaliser=FAUX \ #
# $Z Lz=100 \ #
# $Z zoom_automatique=VRAI \ #
# $Z centre_de_gravite=VRAI \ #
# $Z fond=VRAI \ #
# $Z dynamique=VRAI \ #
# $Z F=$xiim/REFL.W. \ #
# $Z R=$xiim/REFL.W. \ #
# $Z $formatI | \ #
# $Z $GRE " CENTRE_DE_GRAVITE=" \ #
# $Z > $xTV/GRAVITE #
# #
# $Z $DELETE $xTV/COORDONNEES$COORD_X #
# $Z $DELETE $xTV/COORDONNEES$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_Z #
# $Z $DELETE $xTV/VITESSES #
# $Z $DELETE $xTV/VITESSES$COORD_X #
# $Z $DELETE $xTV/VITESSES$COORD_Y #
# $Z $DELETE $xTV/VITESSES$COORD_Z #
# $Z $DELETE $xTV/mdRHO #
# $Z $DELETE $xTV/MdRHO #
# $Z $DELETE $xTV/mnPHI #
# $Z $DELETE $xTV/MnPHI #
# $Z $DELETE $xTV/dPHI #
# $Z $DELETE $xTV/mnTHETA #
# $Z $DELETE $xTV/MnTHETA #
# $Z $DELETE $xTV/dTHETA #
# $Z $DELETE $xTV/DISTANCE #
# $Z $DELETE $xTV/STABILITE #
# $Z $DELETE $xTV/RAYONS #
# $Z $DELETE $xTV/INTERACTIONS #
# $Z $DELETE $xTV/COULEURS$TEINT #
# $Z $DELETE $xTV/COULEURS$LUMIN #
# $Z $DELETE $xTV/COULEURS$SATUR #
# $Z $DELETE $xTV/COULEURS$Y #
# $Z $DELETE $xTV/COULEURS #
# $Z $DELETE $xTV/COULEURS$ROUGE #
# $Z $DELETE $xTV/COULEURS$VERTE #
# $Z $DELETE $xTV/COULEURS$BLEUE #
# #
# $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("$DELETE $xTV/COORDONNEES\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_X\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_Y\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_Z\n"); #
# #
# $c printf("$DELETE $xTV/COULEURS$ROUGE\n"); #
# $c printf("$DELETE $xTV/COULEURS$VERTE\n"); #
# $c printf("$DELETE $xTV/COULEURS$BLEUE\n"); #
# #
# $c printf("listMN $xTV/GRAVITE #
# $c %d %d #
# $c > $xTV/COORDONNEES\n" #
# $c ,N0,n #
# $c ); #
# #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*[(,]XG=//%c #
# $c -e %cs/[,)].*//%c #
# $c > $xTV/COORDONNEES$COORD_X\n" #
# $c ,'"','"','"','"' #
# $c ); #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*[(,]YG=//%c #
# $c -e %cs/[,)].*//%c #
# $c > $xTV/COORDONNEES$COORD_Y\n" #
# $c ,'"','"','"','"' #
# $c ); #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*[(,]ZG=//%c #
# $c -e %cs/[,)].*//%c #
# $c > $xTV/COORDONNEES$COORD_Z\n" #
# $c ,'"','"','"','"' #
# $c ); #
# #
# $c printf("$xci/valeurs_inte$X #
# $c premiere=%d derniere=%d #
# $c vD=$GRIS_5 vA=$GRIS_5 #
# $c cubique=FAUX #
# $c entiers=VRAI #
# $c utiliser_la_valeur_de_depart=FAUX #
# $c > $xTV/COULEURS$ROUGE\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/valeurs_inte$X #
# $c premiere=%d derniere=%d #
# $c vD=$GRIS_5 vA=$GRIS_5 #
# $c cubique=FAUX #
# $c entiers=VRAI #
# $c utiliser_la_valeur_de_depart=FAUX #
# $c > $xTV/COULEURS$VERTE\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/valeurs_inte$X #
# $c premiere=%d derniere=%d #
# $c vD=$GRIS_5 vA=$GRIS_5 #
# $c cubique=FAUX #
# $c entiers=VRAI #
# $c utiliser_la_valeur_de_depart=FAUX #
# $c > $xTV/COULEURS$BLEUE\n" #
# $c ,N0,n #
# $c ); #
# #
# $c printf("$xrv/particule.10$X #
# $c np=1 #
# $c iterations=%d #
# $c LISTE_X=$xTV/COORDONNEES$COORD_X #
# $c LISTE_Y=$xTV/COORDONNEES$COORD_Y #
# $c LISTE_Z=$xTV/COORDONNEES$COORD_Z #
# $c LISTE_ROUGE=$xTV/COULEURS$ROUGE #
# $c LISTE_VERTE=$xTV/COULEURS$VERTE #
# $c LISTE_BLEUE=$xTV/COULEURS$BLEUE #
# $c LISTE_RAYON=0.009 #
# $c zoom_automatique=FAUX ZOOM=1.0 #
# $c coordonnees_dans_0_1=FAUX #
# $c AXYZ=1 BXYZ=0 #
# $c fond=VRAI #
# $c fond_dynamique=FAUX #
# $c F=$xiim/REFL.W.%04d #
# $c R=$xTV/REFL.A. #
# $c $formatI\n" #
# $c ,(n-N0)+1,n #
# $c ); #
# #
# $c printf("$xci/acces$X #
# $c A=$xTV/REFL.A.%04d$ROUGE #
# $c R=$xiim/REFL.W.%04d$ROUGE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xTV/REFL.A.%04d$VERTE #
# $c R=$xiim/REFL.W.%04d$VERTE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xTV/REFL.A.%04d$BLEUE #
# $c R=$xiim/REFL.W.%04d$BLEUE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# #
# $c printf("$DELETE $xTV/COORDONNEES\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_X\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_Y\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_Z\n"); #
# #
# $c printf("$DELETE $xTV/COULEURS$ROUGE\n"); #
# $c printf("$DELETE $xTV/COULEURS$VERTE\n"); #
# $c printf("$DELETE $xTV/COULEURS$BLEUE\n"); #
# #
# $c printf("listMN $xTV/GRAVITE #
# $c %d %d #
# $c > $xTV/COORDONNEES\n" #
# $c ,n,n #
# $c ); #
# #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*[(,]XG=//%c #
# $c -e %cs/[,)].*//%c #
# $c > $xTV/COORDONNEES$COORD_X\n" #
# $c ,'"','"','"','"' #
# $c ); #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*[(,]YG=//%c #
# $c -e %cs/[,)].*//%c #
# $c > $xTV/COORDONNEES$COORD_Y\n" #
# $c ,'"','"','"','"' #
# $c ); #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*[(,]ZG=//%c #
# $c -e %cs/[,)].*//%c #
# $c > $xTV/COORDONNEES$COORD_Z\n" #
# $c ,'"','"','"','"' #
# $c ); #
# #
# $c printf("$xci/valeurs_inte$X #
# $c premiere=%d derniere=%d #
# $c vD=$GRIS_8 vA=$GRIS_8 #
# $c cubique=FAUX #
# $c entiers=VRAI #
# $c utiliser_la_valeur_de_depart=FAUX #
# $c > $xTV/COULEURS$ROUGE\n" #
# $c ,n,n #
# $c ); #
# $c printf("$xci/valeurs_inte$X #
# $c premiere=%d derniere=%d #
# $c vD=$GRIS_8 vA=$GRIS_8 #
# $c cubique=FAUX #
# $c entiers=VRAI #
# $c utiliser_la_valeur_de_depart=FAUX #
# $c > $xTV/COULEURS$VERTE\n" #
# $c ,n,n #
# $c ); #
# $c printf("$xci/valeurs_inte$X #
# $c premiere=%d derniere=%d #
# $c vD=$GRIS_8 vA=$GRIS_8 #
# $c cubique=FAUX #
# $c entiers=VRAI #
# $c utiliser_la_valeur_de_depart=FAUX #
# $c > $xTV/COULEURS$BLEUE\n" #
# $c ,n,n #
# $c ); #
# #
# $c printf("$xrv/particule.10$X #
# $c np=1 #
# $c iterations=%d #
# $c LISTE_X=$xTV/COORDONNEES$COORD_X #
# $c LISTE_Y=$xTV/COORDONNEES$COORD_Y #
# $c LISTE_Z=$xTV/COORDONNEES$COORD_Z #
# $c LISTE_ROUGE=$xTV/COULEURS$ROUGE #
# $c LISTE_VERTE=$xTV/COULEURS$VERTE #
# $c LISTE_BLEUE=$xTV/COULEURS$BLEUE #
# $c LISTE_RAYON=0.012 #
# $c zoom_automatique=FAUX ZOOM=1.0 #
# $c coordonnees_dans_0_1=FAUX #
# $c AXYZ=1 BXYZ=0 #
# $c fond=VRAI #
# $c fond_dynamique=FAUX #
# $c F=$xiim/REFL.W.%04d #
# $c R=$xTV/REFL.B. #
# $c $formatI\n" #
# $c ,(n-n)+1,n #
# $c ); #
# #
# $c printf("$xci/acces$X #
# $c A=$xTV/REFL.B.%04d$ROUGE #
# $c R=$xiim/REFL.W.%04d$ROUGE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xTV/REFL.B.%04d$VERTE #
# $c R=$xiim/REFL.W.%04d$VERTE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xTV/REFL.B.%04d$BLEUE #
# $c R=$xiim/REFL.W.%04d$BLEUE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# $c } #
# $c } #
# #
# #
# $Z $DELETE $xTV/COORDONNEES #
# $Z $DELETE $xTV/COORDONNEES$COORD_X #
# $Z $DELETE $xTV/COORDONNEES$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_Z #
# $Z $DELETE $xTV/COULEURS$ROUGE #
# $Z $DELETE $xTV/COULEURS$VERTE #
# $Z $DELETE $xTV/COULEURS$BLEUE #
# #
# #
# #
# $Z $xci/complement$X A=$xTV/BOITE.1 \ #
# $Z R=$xTV/BOITE.3 \ #
# $Z $formatI #
# #
# $Z eval `$xci/genere$X \\\ #
# $Z commande='($xci/scale$X \\\ #
# $Z A=$xTV/BOITE.3 \\\ #
# $Z a=0.50 \\\ #
# $Z R=$xTV/BOITE.3%s \\\ #
# $Z $formatI)' \\\ #
# $Z en_tete=FAUX RVB=VRAI separateur=VRAI` #
# #
# #
# $Z $xci/gauss$X \ #
# $Z R=$xTV/GAUSS \ #
# $Z $formatI #
# #
# $c #define N0 Premiere #
# $c #define N Derniere #
# #
# $c int main() #
# $c { #
# $c int n; #
# #
# $c for (n=N0 ; n<=N ; n++) #
# $c { #
# $c int seuil=252; #
# #
# $c printf("$xci/filtre.01$X #
# $c A=$xiim/REFL.W.%04d$ROUGE #
# $c N=$xTV/GAUSS #
# $c renormaliser=FAUX #
# $c tronquer=VRAI #
# $c standard=FAUX #
# $c seuil=%d #
# $c R=$xTV/FILTREE$ROUGE #
# $c $formatI\n" #
# $c ,n,seuil,n #
# $c ); #
# $c printf("$xci/filtre.01$X #
# $c A=$xiim/REFL.W.%04d$VERTE #
# $c N=$xTV/GAUSS #
# $c renormaliser=FAUX #
# $c tronquer=VRAI #
# $c standard=FAUX #
# $c seuil=%d #
# $c R=$xTV/FILTREE$VERTE #
# $c $formatI\n" #
# $c ,n,seuil,n #
# $c ); #
# $c printf("$xci/filtre.01$X #
# $c A=$xiim/REFL.W.%04d$BLEUE #
# $c N=$xTV/GAUSS #
# $c renormaliser=FAUX #
# $c tronquer=VRAI #
# $c standard=FAUX #
# $c seuil=%d #
# $c R=$xTV/FILTREE$BLEUE #
# $c $formatI\n" #
# $c ,n,seuil,n #
# $c ); #
# #
# $c printf("$xci/acces$X #
# $c A=$xTV/FILTREE$ROUGE #
# $c standard=FAUX #
# $c zero=FAUX #
# $c R=$xTV/TEXTURE$ROUGE #
# $c $formatI\n" #
# $c ,n #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xTV/FILTREE$VERTE #
# $c standard=FAUX #
# $c zero=FAUX #
# $c R=$xTV/TEXTURE$VERTE #
# $c $formatI\n" #
# $c ,n #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xTV/FILTREE$BLEUE #
# $c standard=FAUX #
# $c zero=FAUX #
# $c R=$xTV/TEXTURE$BLEUE #
# $c $formatI\n" #
# $c ,n #
# $c ); #
# #
# $c printf("$xci/somme_02$X #
# $c A1=$xTV/FILTREE$ROUGE #
# $c A2=$xTV/FILTREE$VERTE #
# $c standard=FAUX #
# $c R=$xTV/SURFACE #
# $c $formatI\n" #
# $c ,n,n #
# $c ); #
# $c printf("$xci/somme_02$X #
# $c A1=$xTV/SURFACE #
# $c A2=$xTV/FILTREE$BLEUE #
# $c standard=FAUX #
# $c R=$xTV/SURFACE #
# $c $formatI\n" #
# $c ,n,n #
# $c ); #
# #
# $c printf("$xci/montagne.01$X #
# $c A=$xTV/SURFACE #
# $c standard=FAUX #
# $c extrema=FAUX #
# $c zero=VRAI #
# $c T=$xTV/TEXTURE$ROUGE #
# $c perspective=0.2 #
# $c Ty=0.7 #
# $c avion=FAUX #
# $c $formatI | #
# $c $xci/format.01$X #
# $c $formatI #
# $c mode=2 #
# $c R=$xiim/RE$M.D.%04d$ROUGE #
# $c $formatR_Pal\n" #
# $c ,n #
# $c ); #
# $c printf("$xci/montagne.01$X #
# $c A=$xTV/SURFACE #
# $c standard=FAUX #
# $c extrema=FAUX #
# $c zero=VRAI #
# $c T=$xTV/TEXTURE$VERTE #
# $c perspective=0.2 #
# $c Ty=0.7 #
# $c avion=FAUX #
# $c $formatI | #
# $c $xci/format.01$X #
# $c $formatI #
# $c mode=2 #
# $c R=$xiim/RE$M.D.%04d$VERTE #
# $c $formatR_Pal\n" #
# $c ,n #
# $c ); #
# $c printf("$xci/montagne.01$X #
# $c A=$xTV/SURFACE #
# $c standard=FAUX #
# $c extrema=FAUX #
# $c zero=VRAI #
# $c T=$xTV/TEXTURE$BLEUE #
# $c perspective=0.2 #
# $c Ty=0.7 #
# $c avion=FAUX #
# $c $formatI | #
# $c $xci/format.01$X #
# $c $formatI #
# $c mode=2 #
# $c R=$xiim/RE$M.D.%04d$BLEUE #
# $c $formatR_Pal\n" #
# $c ,n #
# $c ); #
# #
# $c printf("$xci/montagne.01$X #
# $c A=$xTV/SURFACE #
# $c standard=FAUX #
# $c extrema=FAUX #
# $c zero=VRAI #
# $c T=$xTV/TEXTURE$ROUGE #
# $c avion=VRAI #
# $c $formatI | #
# $c $xci/format.01$X #
# $c $formatI #
# $c mode=2 #
# $c R=$xiim/RE$m.D.%04d$ROUGE #
# $c $formatR_Pal\n" #
# $c ,n #
# $c ); #
# $c printf("$xci/montagne.01$X #
# $c A=$xTV/SURFACE #
# $c standard=FAUX #
# $c extrema=FAUX #
# $c zero=VRAI #
# $c T=$xTV/TEXTURE$VERTE #
# $c avion=VRAI #
# $c $formatI | #
# $c $xci/format.01$X #
# $c $formatI #
# $c mode=2 #
# $c R=$xiim/RE$m.D.%04d$VERTE #
# $c $formatR_Pal\n" #
# $c ,n #
# $c ); #
# $c printf("$xci/montagne.01$X #
# $c A=$xTV/SURFACE #
# $c standard=FAUX #
# $c extrema=FAUX #
# $c zero=VRAI #
# $c T=$xTV/TEXTURE$BLEUE #
# $c avion=VRAI #
# $c $formatI | #
# $c $xci/format.01$X #
# $c $formatI #
# $c mode=2 #
# $c R=$xiim/RE$m.D.%04d$BLEUE #
# $c $formatR_Pal\n" #
# $c ,n #
# $c ); #
# $c } #
# $c } #
# #
# $Z $DELETE $xTV/BOITE.1 #
# $Z $DELETE $xTV/BOITE.2 #
# $Z $DELETE $xTV/BOITE.3 #
# $Z $DELETE $xTV/BOITE.3$ROUGE #
# $Z $DELETE $xTV/BOITE.3$VERTE #
# $Z $DELETE $xTV/BOITE.3$BLEUE #
# #
# $Z Pal #
# #
# $Z $xci/reduction_16$Z $xiim/RE$M.D. $xiak/RE.G6$M $Premiere $Derniere #
# $Z $xci/reduction_64$Z $xiim/RE$M.D. $xiak/RE.G6$M $Premiere $Derniere #
# #
# $X $xci/genere$X c='ro $xiak/RE.G6$M$R16%s' RVB=VRAI #
# $X $xci/genere$X c='ro $xiak/RE.G6$M$R64%s' RVB=VRAI #
# #
# $X $xci/genere$X c='$xcg/unite$Z $xiak/RE.G6$M$R16%s' RVB=VRAI #
# $X $xci/genere$X c='$xcg/unite$Z $xiak/RE.G6$M$R64%s' RVB=VRAI #
# #
# $X $xci/genere$X c='$CP $xiim/RE$M.D.0512%s $xiirk/RE.G6$M.0512%s' RVB=VRAI #
# #
# $X $xci/genere$X c='ro $xiirk/RE.G6$M.0512%s' RVB=VRAI #
# #
# $X $xci/genere$X c='$xcg/unite$Z $xiirk/RE.G6$M.0512%s' RVB=VRAI #
# #
# $Z $xci/reduction_16$Z $xiim/RE$m.D. $xiak/RE.G6$m $Premiere $Derniere #
# $Z $xci/reduction_64$Z $xiim/RE$m.D. $xiak/RE.G6$m $Premiere $Derniere #
# #
# $X $xci/genere$X c='ro $xiak/RE.G6$m$R16%s' RVB=VRAI #
# $X $xci/genere$X c='ro $xiak/RE.G6$m$R64%s' RVB=VRAI #
# #
# $X $xci/genere$X c='$xcg/unite$Z $xiak/RE.G6$m$R16%s' RVB=VRAI #
# $X $xci/genere$X c='$xcg/unite$Z $xiak/RE.G6$m$R64%s' RVB=VRAI #
# #
# $X $xci/genere$X c='$CP $xiim/RE$m.D.0512%s $xiirk/RE.G6$m.0512%s' RVB=VRAI #
# #
# $X $xci/genere$X c='ro $xiirk/RE.G6$m.0512%s' RVB=VRAI #
# #
# $X $xci/genere$X c='$xcg/unite$Z $xiirk/RE.G6$m.0512%s' RVB=VRAI #
# #
# #
# Pal #
# #
# #
# $xci/disk_video_P$Z $xiim_LACT29/RE$M.D. 001 512 RVB \ #
# 11 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# $xci/disk_video_P$Z $xiim_LACT29/RE$m.D. 001 512 RVB \ #
# 11 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
# #
# xivPdf 3 2 #
# #
# record.01$Z $xiak/RE.G6$M$R16 RVB Initialisation #
# record.01$Z $xiak/RE.G6$M$R64 RVB rien #
# record.01$Z $xiirk/RE.G6$M.0512 RVB rien #
# record.01$Z $xiak/RE.G6$m$R16 RVB rien #
# record.01$Z $xiak/RE.G6$m$R64 RVB rien #
# record.01$Z $xiirk/RE.G6$m.0512 RVB rien #
# #
sequence 013313_013824
# Generee (sur '$LACT27') par : #
# #
# $Z SET Premiere=1 #
# $Z SET Derniere=512 #
# $Z @ Nimages = $Derniere - $Premiere #
# $Z @ Nimages = $Nimages + 1 #
# #
# $Z set Part0=1 #
# $Z set PartN=1 #
# $Z @ Npart = $PartN - $Part0 #
# $Z @ Npart = $Npart + 1 #
# #
# $Z $DELETE $xTV/COORDONNEES$COORD_X #
# $Z $DELETE $xTV/COORDONNEES$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_Z #
# $Z $DELETE $xTV/VITESSES #
# $Z $DELETE $xTV/VITESSES$COORD_X #
# $Z $DELETE $xTV/VITESSES$COORD_Y #
# $Z $DELETE $xTV/VITESSES$COORD_Z #
# $Z $DELETE $xTV/mdRHO #
# $Z $DELETE $xTV/MdRHO #
# $Z $DELETE $xTV/mnPHI #
# $Z $DELETE $xTV/MnPHI #
# $Z $DELETE $xTV/dPHI #
# $Z $DELETE $xTV/mnTHETA #
# $Z $DELETE $xTV/MnTHETA #
# $Z $DELETE $xTV/dTHETA #
# $Z $DELETE $xTV/supOUVE #
# $Z $DELETE $xTV/DISTANCE #
# $Z $DELETE $xTV/STABILITE #
# $Z $DELETE $xTV/RAYONS #
# $Z $DELETE $xTV/INTERACTIONS #
# #
# #
# $Z alias Gen 'set Fi=\!:1 ; set vD=\!:2 ; set vA=\!:3 ; set ArG=(\!:4*) ; \\ #
# $Z $DELETE $Fi ; \\ #
# $Z $xci/valeurs_inte$X p=$Part0 d=$PartN vD=$vD vA=$vA $ArG > $Fi ; \\ #
# $Z unset Fi vD vA ArG' #
# #
# $Z alias GenR 'set Fi=\!:1 ; set In=\!:2 ; set Su=\!:3 ; set ArG=(\!:4*) ; \\ #
# $Z $DELETE $Fi ; \\ #
# $Z $xci/valeurs_alea$X p=$Part0 d=$PartN signe="$KV" inf=$In sup=$Su $ArG > $Fi ; \\ #
# $Z unset Fi In Su ArG' #
# #
# $Z Gen $xTV/COORDONNEES$COORD_X 0.00 0.00 cubique=FAUX #
# $Z Gen $xTV/COORDONNEES$COORD_Y -0.5 -0.5 cubique=FAUX #
# #
# $Z Gen $xTV/COORDONNEES$COORD_Z 0.0 0.0 #
# #
# #
# $Z Gen $xTV/VITESSES$COORD_X 0.02 0.02 #
# $Z Gen $xTV/VITESSES$COORD_Y 0.02 0.02 #
# $Z Gen $xTV/VITESSES$COORD_Z 0.0 0.0 #
# #
# $Z Gen $xTV/mdRHO 0.0 0.0 #
# $Z Gen $xTV/MdRHO 0.0 0.0 #
# $Z Gen $xTV/mnPHI 0.0 0.0 #
# $Z Gen $xTV/MnPHI 0.0 0.0 #
# $Z Gen $xTV/dPHI 0.0 0.0 #
# $Z Gen $xTV/mnTHETA 0.0 0.0 #
# $Z Gen $xTV/MnTHETA 0.0 0.0 #
# $Z Gen $xTV/dTHETA 0.0 0.0 #
# $Z Gen $xTV/DISTANCE 1000000 1000000 #
# $Z Gen $xTV/STABILITE 1000000 1000000 #
# #
# $Z set RayonsT=0.014 #
# $Z set RayonsP=`$xcg/MUL2.01$X a=2 b=$RayonsT` #
# $Z set DistanceI=`$xcg/MUL2.01$X a=4 b=$RayonsP` #
# $Z Gen $xTV/RAYONS $RayonsT $RayonsT #
# $Z Gen $xTV/INTERACTIONS $RayonsP $RayonsP #
# #
# $Z $DELETE $xTV/COULEURS$TEINT #
# $Z $DELETE $xTV/COULEURS$LUMIN #
# $Z $DELETE $xTV/COULEURS$SATUR #
# $Z $DELETE $xTV/COULEURS$Y #
# $Z $DELETE $xTV/COULEURS #
# $Z $DELETE $xTV/COULEURS$ROUGE #
# $Z $DELETE $xTV/COULEURS$VERTE #
# $Z $DELETE $xTV/COULEURS$BLEUE #
# #
# $Z @ TeinteMagenta = $GRIS_7 #
# $Z @ TeinteCyan = $GRIS_4 + $GRIS_8 #
# #
# $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartN \ #
# $Z vD=$TeinteMagenta vA=$TeinteCyan \ #
# $Z cubique=FAUX \ #
# $Z entiers=VRAI \ #
# $Z > $xTV/COULEURS$TEINT #
# $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartN \ #
# $Z vD=$GRIS_4 vA=$GRIS_4 \ #
# $Z cubique=FAUX \ #
# $Z entiers=VRAI \ #
# $Z > $xTV/COULEURS$LUMIN #
# $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartN \ #
# $Z vD=$GRIS_8 vA=$GRIS_8 \ #
# $Z cubique=FAUX \ #
# $Z entiers=VRAI \ #
# $Z > $xTV/COULEURS$SATUR #
# #
# $Z $PAST \ #
# $Z $xTV/COULEURS$TEINT \ #
# $Z $xTV/COULEURS$LUMIN \ #
# $Z $xTV/COULEURS$SATUR \ #
# $Z | $R "$K_TAB" "$K_BLANC" \ #
# $Z | $AW ' { print "H=" $1 " L=" $2 " S=" $3 } ' \ #
# $Z | $SE -e 's+^+$xcg/RVB_HLS$X RVB_HLS=FAUX +' \ #
# $Z | $SE -e 's/$/ eR=VRAI eV=VRAI eB=VRAI/' \ #
# $Z | $SE -e 's/$/ eH=FAUX eL=FAUX eS=FAUX/' \ #
# $Z > $xTV/COULEURS$Y #
# #
# $Z (source $xTV/COULEURS$Y) \ #
# $Z > $xTV/COULEURS #
# #
# $Z $GRE "^R=" $xTV/COULEURS \ #
# $Z | $SE -e "s/^R=//" \ #
# $Z > $xTV/COULEURS$ROUGE #
# $Z $GRE "^V=" $xTV/COULEURS \ #
# $Z | $SE -e "s/^V=//" \ #
# $Z > $xTV/COULEURS$VERTE #
# $Z $GRE "^B=" $xTV/COULEURS \ #
# $Z | $SE -e "s/^B=//" \ #
# $Z > $xTV/COULEURS$BLEUE #
# #
# $Z $DELETE $xTV/BOITE.1 #
# $Z $DELETE $xTV/BOITE.2 #
# $Z $DELETE $xTV/BOITE.3 #
# $Z $DELETE $xTV/BOITE.3$ROUGE #
# $Z $DELETE $xTV/BOITE.3$VERTE #
# $Z $DELETE $xTV/BOITE.3$BLEUE #
# #
# $Z Std #
# #
# $Z S #
# #
# $Z set SeuilBOITE=$GRIS_2 #
# #
# $Z $xci/complement$X \ #
# $Z A=$xiio/SPIRALE \ #
# $Z $formatI | \ #
# $Z $xci/seuil$X \ #
# $Z seuil=$SeuilBOITE \ #
# $Z $formatI | \ #
# $Z $xci/format.01$X mode=7 \ #
# $Z $formatI \ #
# $Z R=$xTV/BOITE.1 \ #
# $Z $formatR_Pal #
# #
# $Z Pal #
# #
# #
# $Z $xci/scale$X \ #
# $Z A=$xTV/BOITE.1 \ #
# $Z a=1.00 \ #
# $Z R=$xTV/BOITE.2 \ #
# $Z $formatI #
# #
# #
# $Z Pal #
# #
# $Z $xrk/rdn_walk.41$X corps=$Npart \ #
# $Z np=$Nimages \ #
# $Z collisions=FAUX DLA=FAUX interaction=$DistanceI \ #
# $Z LISTE_X=$xTV/COORDONNEES$COORD_X \ #
# $Z LISTE_Y=$xTV/COORDONNEES$COORD_Y \ #
# $Z LISTE_Z=$xTV/COORDONNEES$COORD_Z \ #
# $Z LISTE_VX=$xTV/VITESSES$COORD_X \ #
# $Z LISTE_VY=$xTV/VITESSES$COORD_Y \ #
# $Z LISTE_VZ=$xTV/VITESSES$COORD_Z \ #
# $Z LISTE_MINIMUM_DELTA_RHO=$xTV/mdRHO \ #
# $Z LISTE_MAXIMUM_DELTA_RHO=$xTV/MdRHO \ #
# $Z LISTE_MINIMUM_N_PHI=$xTV/mnPHI \ #
# $Z LISTE_MAXIMUM_N_PHI=$xTV/MnPHI \ #
# $Z LISTE_DELTA_PHI=$xTV/dPHI \ #
# $Z LISTE_MINIMUM_N_THETA=$xTV/mnTHETA \ #
# $Z LISTE_MAXIMUM_N_THETA=$xTV/MnTHETA \ #
# $Z LISTE_DELTA_THETA=$xTV/dTHETA \ #
# $Z LISTE_DISTANCE_MAXIMALE=$xTV/DISTANCE \ #
# $Z LISTE_STABILITE=$xTV/STABILITE \ #
# $Z LISTE_RAYON=$xTV/RAYONS \ #
# $Z LISTE_RAYON_D_INTERACTION=$xTV/INTERACTIONS \ #
# $Z LISTE_ROUGE=$xTV/COULEURS$ROUGE \ #
# $Z LISTE_VERTE=$xTV/COULEURS$VERTE \ #
# $Z LISTE_BLEUE=$xTV/COULEURS$BLEUE \ #
# $Z milieu=VRAI \ #
# $Z reflexion=VRAI refraction=FAUX \ #
# $Z Mhors=$BLANC \ #
# $Z MNpasX=8 Mprolonger_X=VRAI \ #
# $Z MNpasY=8 Mprolonger_Y=VRAI \ #
# $Z MNpasZ=8 Mprolonger_Z=VRAI \ #
# $Z adapter_M_nPAS=VRAI \ #
# $Z Msimplifier=FAUX affiner_M_maillage=FAUX \ #
# $Z Mspherique=VRAI \ #
# $Z Mfiltrer=VRAI Mtolerance=0.75 \ #
# $Z MC=$xTV/BOITE.2 \ #
# $Z MChiffres=0 \ #
# $Z Zmin=0 Zmax=15 \ #
# $Z centrer=VRAI \ #
# $Z dct=0.05 nombre=1000 \ #
# $Z trainees=VRAI mode=1 \ #
# $Z attenuation_des_images=0.6 \ #
# $Z attenuation_des_trainees=1.00 \ #
# $Z renormaliser=FAUX \ #
# $Z Lz=100 \ #
# $Z zoom_automatique=VRAI \ #
# $Z centre_de_gravite=FAUX \ #
# $Z fond=FAUX \ #
# $Z R=$xiim/REFL.W. \ #
# $Z $formatI #
# #
# $Z $DELETE $xTV/RAYONS #
# $Z $CP $xTV/INTERACTIONS $xTV/RAYONS #
# #
# $Z $xrk/rdn_walk.41$X corps=$Npart \ #
# $Z np=$Nimages \ #
# $Z collisions=FAUX DLA=FAUX interaction=$DistanceI \ #
# $Z LISTE_X=$xTV/COORDONNEES$COORD_X \ #
# $Z LISTE_Y=$xTV/COORDONNEES$COORD_Y \ #
# $Z LISTE_Z=$xTV/COORDONNEES$COORD_Z \ #
# $Z LISTE_VX=$xTV/VITESSES$COORD_X \ #
# $Z LISTE_VY=$xTV/VITESSES$COORD_Y \ #
# $Z LISTE_VZ=$xTV/VITESSES$COORD_Z \ #
# $Z LISTE_MINIMUM_DELTA_RHO=$xTV/mdRHO \ #
# $Z LISTE_MAXIMUM_DELTA_RHO=$xTV/MdRHO \ #
# $Z LISTE_MINIMUM_N_PHI=$xTV/mnPHI \ #
# $Z LISTE_MAXIMUM_N_PHI=$xTV/MnPHI \ #
# $Z LISTE_DELTA_PHI=$xTV/dPHI \ #
# $Z LISTE_MINIMUM_N_THETA=$xTV/mnTHETA \ #
# $Z LISTE_MAXIMUM_N_THETA=$xTV/MnTHETA \ #
# $Z LISTE_DELTA_THETA=$xTV/dTHETA \ #
# $Z LISTE_DISTANCE_MAXIMALE=$xTV/DISTANCE \ #
# $Z LISTE_STABILITE=$xTV/STABILITE \ #
# $Z LISTE_RAYON=$xTV/RAYONS \ #
# $Z LISTE_RAYON_D_INTERACTION=$xTV/INTERACTIONS \ #
# $Z LISTE_ROUGE=$xTV/COULEURS$ROUGE \ #
# $Z LISTE_VERTE=$xTV/COULEURS$VERTE \ #
# $Z LISTE_BLEUE=$xTV/COULEURS$BLEUE \ #
# $Z milieu=VRAI \ #
# $Z reflexion=VRAI refraction=FAUX \ #
# $Z Mhors=$BLANC \ #
# $Z MNpasX=8 Mprolonger_X=VRAI \ #
# $Z MNpasY=8 Mprolonger_Y=VRAI \ #
# $Z MNpasZ=8 Mprolonger_Z=VRAI \ #
# $Z adapter_M_nPAS=VRAI \ #
# $Z Msimplifier=FAUX affiner_M_maillage=FAUX \ #
# $Z Mspherique=VRAI \ #
# $Z Mfiltrer=VRAI Mtolerance=0.75 \ #
# $Z MC=$xTV/BOITE.2 \ #
# $Z MChiffres=0 \ #
# $Z Zmin=0 Zmax=15 \ #
# $Z centrer=VRAI \ #
# $Z dct=0.05 nombre=1000 \ #
# $Z trainees=VRAI mode=1 \ #
# $Z attenuation_des_images=1.0 \ #
# $Z attenuation_des_trainees=0.80 \ #
# $Z renormaliser=FAUX \ #
# $Z Lz=100 \ #
# $Z zoom_automatique=VRAI \ #
# $Z centre_de_gravite=FAUX \ #
# $Z fond=VRAI \ #
# $Z dynamique=VRAI \ #
# $Z F=$xiim/REFL.W. \ #
# $Z R=$xiim/REFL.W. \ #
# $Z $formatI #
# #
# $Z $DELETE $xTV/COORDONNEES$COORD_X #
# $Z $DELETE $xTV/COORDONNEES$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_Z #
# $Z $DELETE $xTV/VITESSES #
# $Z $DELETE $xTV/VITESSES$COORD_X #
# $Z $DELETE $xTV/VITESSES$COORD_Y #
# $Z $DELETE $xTV/VITESSES$COORD_Z #
# $Z $DELETE $xTV/mdRHO #
# $Z $DELETE $xTV/MdRHO #
# $Z $DELETE $xTV/mnPHI #
# $Z $DELETE $xTV/MnPHI #
# $Z $DELETE $xTV/dPHI #
# $Z $DELETE $xTV/mnTHETA #
# $Z $DELETE $xTV/MnTHETA #
# $Z $DELETE $xTV/dTHETA #
# $Z $DELETE $xTV/DISTANCE #
# $Z $DELETE $xTV/STABILITE #
# $Z $DELETE $xTV/RAYONS #
# $Z $DELETE $xTV/INTERACTIONS #
# $Z $DELETE $xTV/COULEURS$TEINT #
# $Z $DELETE $xTV/COULEURS$LUMIN #
# $Z $DELETE $xTV/COULEURS$SATUR #
# $Z $DELETE $xTV/COULEURS$Y #
# $Z $DELETE $xTV/COULEURS #
# $Z $DELETE $xTV/COULEURS$ROUGE #
# $Z $DELETE $xTV/COULEURS$VERTE #
# $Z $DELETE $xTV/COULEURS$BLEUE #
# #
# #
# $Z $xci/complement$X A=$xTV/BOITE.1 \ #
# $Z R=$xTV/BOITE.3 \ #
# $Z $formatI #
# #
# $Z eval `$xci/genere$X \\\ #
# $Z commande='($xci/scale$X \\\ #
# $Z A=$xTV/BOITE.3 \\\ #
# $Z a=0.50 \\\ #
# $Z R=$xTV/BOITE.3%s \\\ #
# $Z $formatI)' \\\ #
# $Z en_tete=FAUX RVB=VRAI separateur=VRAI` #
# #
# #
# $X $xci/genere$X premiere=$Premiere derniere=$Derniere pas=1 \ #
# $X C='$xci/cache.11$Z \ #
# $X $xiim/REFL.W.%04d \ #
# $X $xTV/BOITE.3 \ #
# $X $xiim/REFL.F.%04d' #
# #
# $Z $DELETE $xTV/BOITE.1 #
# $Z $DELETE $xTV/BOITE.2 #
# $Z $DELETE $xTV/BOITE.3 #
# $Z $DELETE $xTV/BOITE.3$ROUGE #
# $Z $DELETE $xTV/BOITE.3$VERTE #
# $Z $DELETE $xTV/BOITE.3$BLEUE #
# #
# $Z Pal #
# #
# $Z $xci/reduction_16$Z $xiim/REFL.F. $xiak/REFL.C3 $Premiere $Derniere #
# $Z $xci/reduction_64$Z $xiim/REFL.F. $xiak/REFL.C3 $Premiere $Derniere #
# #
# $X $xci/genere$X c='ro $xiak/REFL.C3$R16%s' RVB=VRAI #
# $X $xci/genere$X c='ro $xiak/REFL.C3$R64%s' RVB=VRAI #
# #
# $X $xci/genere$X c='$xcg/unite$Z $xiak/REFL.C3$R16%s' RVB=VRAI #
# $X $xci/genere$X c='$xcg/unite$Z $xiak/REFL.C3$R64%s' RVB=VRAI #
# #
# $X $xci/genere$X c='$CP $xiim/REFL.F.0512%s $xiirk/REFL.C3.0512%s' RVB=VRAI #
# #
# $X $xci/genere$X c='ro $xiirk/REFL.C3.0512%s' RVB=VRAI #
# #
# $X $xci/genere$X c='$xcg/unite$Z $xiirk/REFL.C3.0512%s' RVB=VRAI #
# #
# #
# Pal #
# #
# #
# $xci/disk_video_P$Z $xiim_LACT27/REFL.F. 001 512 RVB \ #
# 11 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
# #
# xivPdf 3 2 #
# #
# record.01$Z $xiak/REFL.C3$R16 RVB Initialisation #
# record.01$Z $xiak/REFL.C3$R64 RVB rien #
# record.01$Z $xiirk/REFL.C3.0512 RVB rien #
# #
sequence 013825_014336
sequence 014337_014848
# Generee (sur '$LACT29') par : #
# #
# $Z SET Premiere=1 #
# $Z SET Derniere=512 #
# $Z @ Nimages = $Derniere - $Premiere #
# $Z @ Nimages = $Nimages + 1 #
# #
# #
# $Z Std #
# #
# $Z set PUnivers="np=0 CAL1=FAUX editer_l_univers_physique=VRAI" #
# $Z set Univers=`$xrk/rdn_walk.41$X $PUnivers $formatI` #
# #
# $Z set MinX=`echo $Univers | $SE -e "s/^.*[(,]XUI=//" -e "s/[,)].*//"` #
# $Z set MaxX=`echo $Univers | $SE -e "s/^.*[(,]XUS=//" -e "s/[,)].*//"` #
# $Z set MinY=`echo $Univers | $SE -e "s/^.*[(,]YUI=//" -e "s/[,)].*//"` #
# $Z set MaxY=`echo $Univers | $SE -e "s/^.*[(,]YUS=//" -e "s/[,)].*//"` #
# #
# $Z set MinX=`$xcg/ABSO.01$X x=$MinX` #
# $Z set MaxX=`$xcg/ABSO.01$X x=$MaxX` #
# $Z set MinY=`$xcg/ABSO.01$X x=$MinY` #
# $Z set MaxY=`$xcg/ABSO.01$X x=$MaxY` #
# #
# $Z set MaxX=`$xcg/MAX2.01$X n1=$MinX n2=$MaxX` #
# $Z set MaxY=`$xcg/MAX2.01$X n1=$MinY n2=$MaxY` #
# #
# $Z set SeuilPartN=0.000502 #
# $Z set GrainePartN=2 #
# #
# $Z $DELETE $xTV/BOITE.1 #
# $Z $DELETE $xTV/BOITE.2 #
# $Z $DELETE $xTV/BOITE.3 #
# $Z $DELETE $xTV/BOITE.3$ROUGE #
# $Z $DELETE $xTV/BOITE.3$VERTE #
# $Z $DELETE $xTV/BOITE.3$BLEUE #
# $Z $DELETE $xTV/BOITE.4 #
# $Z $DELETE $xTV/BOITE.5 #
# $Z $DELETE $xTV/BOITE.6 #
# $Z $DELETE $xTV/BOITE.7 #
# $Z $DELETE $xTV/BOITE.8 #
# $Z $DELETE $xTV/BOITE.9 #
# $Z $DELETE $xTV/BOITE.A #
# $Z $DELETE $xTV/BOITE.B #
# #
# #
# $Z Std #
# #
# $Z $xci/complement$X \ #
# $Z A=$xiio/SPIRALE \ #
# $Z R=$xTV/BOITE.4 \ #
# $Z $formatI #
# $Z $xci/seuil$X \ #
# $Z A=$xTV/BOITE.4 \ #
# $Z seuil=$GRIS_6 \ #
# $Z R=$xTV/BOITE.9 \ #
# $Z $formatI #
# #
# $Z $xci/reduction_04$X \ #
# $Z A=$xTV/BOITE.4 \ #
# $Z chiffres=0 \ #
# $Z moyenne=FAUX \ #
# $Z $formatI | \ #
# $Z $xci/or_02$X \ #
# $Z A2=$xTV/BOITE.9 \ #
# $Z $formatI | \ #
# $Z $xci/seuil$X \ #
# $Z seuil=$GRIS_1 \ #
# $Z R=$xTV/BOITE.5 \ #
# $Z $formatI #
# #
# $Z $xci/reduction_04$X \ #
# $Z A=$xTV/BOITE.5 \ #
# $Z chiffres=0 \ #
# $Z moyenne=FAUX \ #
# $Z $formatI | \ #
# $Z $xci/or_02$X \ #
# $Z A2=$xTV/BOITE.9 \ #
# $Z R=$xTV/BOITE.6 \ #
# $Z $formatI #
# #
# $Z S #
# #
# $Z $xci/acces$X \ #
# $Z A=$xTV/BOITE.6 \ #
# $Z R=$xTV/BOITE.1 \ #
# $Z $formatI #
# #
# $Z $xci/dilate.01$X \ #
# $Z A=$xTV/BOITE.6 \ #
# $Z points=225 \ #
# $Z dilater=FAUX \ #
# $Z R=$xTV/BOITE.A \ #
# $Z $formatI #
# #
# $Z $xci/random.02$X \ #
# $Z seuil=$SeuilPartN \ #
# $Z graine=$GrainePartN \ #
# $Z $formatI | \ #
# $Z $xci/and$X \ #
# $Z A2=$xTV/BOITE.A \ #
# $Z R=$xTV/BOITE.B \ #
# $Z $formatI #
# #
# $Z $DELETE $xTV/COORDONNEES #
# $Z $DELETE $xTV/COORDONNEES_01$COORD_X #
# $Z $DELETE $xTV/COORDONNEES_01$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_X #
# $Z $DELETE $xTV/COORDONNEES$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_Z #
# #
# $Z $xci/liste_points$X \ #
# $Z A=$xTV/BOITE.B \ #
# $Z $formatI \ #
# $Z > $xTV/COORDONNEES #
# #
# $Z $DELETE $xTV/BOITE.4 #
# $Z $DELETE $xTV/BOITE.5 #
# $Z $DELETE $xTV/BOITE.6 #
# $Z $DELETE $xTV/BOITE.7 #
# $Z $DELETE $xTV/BOITE.8 #
# $Z $DELETE $xTV/BOITE.9 #
# $Z $DELETE $xTV/BOITE.A #
# $Z $DELETE $xTV/BOITE.B #
# #
# $Z set PartN=`$TAI -1 $xTV/COORDONNEES | $SE -e "s/^.*=//"` #
# #
# $Z $CA $xTV/COORDONNEES \ #
# $Z | $GRE "^[Xx]=" \ #
# $Z | $SE -e "s/^[Xx]=//" \ #
# $Z > $xTV/COORDONNEES_01$COORD_X #
# $Z $CA $xTV/COORDONNEES \ #
# $Z | $GRE "^[Yy]=" \ #
# $Z | $SE -e "s/^[Yy]=//" \ #
# $Z > $xTV/COORDONNEES_01$COORD_Y #
# #
# $Z set EchelleX=`$xcg/MUL2.01$X n1=2 n2=$MaxX` #
# $Z set TranslationX=`$xcg/MUL2.01$X n1=-1 n2=$MaxX` #
# $Z set EchelleY=`$xcg/MUL2.01$X n1=2 n2=$MaxY` #
# $Z set TranslationY=`$xcg/MUL2.01$X n1=-1 n2=$MaxY` #
# #
# $Z $xrv/AXPB.01$X \ #
# $Z CAL1=FAUX \ #
# $Z ne=$PartN \ #
# $Z fichier=$xTV/COORDONNEES_01$COORD_X \ #
# $Z homothetie=$EchelleX translation=$TranslationX \ #
# $Z > $xTV/COORDONNEES$COORD_X #
# $Z $xrv/AXPB.01$X \ #
# $Z CAL1=FAUX \ #
# $Z ne=$PartN \ #
# $Z fichier=$xTV/COORDONNEES_01$COORD_Y \ #
# $Z homothetie=$EchelleY translation=$TranslationY \ #
# $Z > $xTV/COORDONNEES$COORD_Y #
# #
# $Z $DELETE $xTV/COORDONNEES_01$COORD_X #
# $Z $DELETE $xTV/COORDONNEES_01$COORD_Y #
# #
# $Z set Part0=1 #
# $Z @ Npart = $PartN - $Part0 #
# $Z @ Npart = $Npart + 1 #
# #
# $Z $DELETE $xTV/MODULE #
# $Z $DELETE $xTV/THETA #
# $Z $DELETE $xTV/XY_RT.1 #
# $Z $DELETE $xTV/XY_RT.2 #
# $Z $DELETE $xTV/VITESSES #
# $Z $DELETE $xTV/VITESSES$COORD_X #
# $Z $DELETE $xTV/VITESSES$COORD_Y #
# $Z $DELETE $xTV/VITESSES$COORD_Z #
# $Z $DELETE $xTV/mdRHO #
# $Z $DELETE $xTV/MdRHO #
# $Z $DELETE $xTV/mnPHI #
# $Z $DELETE $xTV/MnPHI #
# $Z $DELETE $xTV/dPHI #
# $Z $DELETE $xTV/mnTHETA #
# $Z $DELETE $xTV/MnTHETA #
# $Z $DELETE $xTV/dTHETA #
# $Z $DELETE $xTV/supOUVE #
# $Z $DELETE $xTV/DISTANCE #
# $Z $DELETE $xTV/STABILITE #
# $Z $DELETE $xTV/RAYONS #
# $Z $DELETE $xTV/INTERACTIONS #
# #
# #
# $Z alias Gen 'set Fi=\!:1 ; set vD=\!:2 ; set vA=\!:3 ; set ArG=(\!:4*) ; \\ #
# $Z $DELETE $Fi ; \\ #
# $Z $xci/valeurs_inte$X p=$Part0 d=$PartN vD=$vD vA=$vA $ArG > $Fi ; \\ #
# $Z unset Fi vD vA ArG' #
# #
# $Z alias GenR 'set Fi=\!:1 ; set In=\!:2 ; set Su=\!:3 ; set ArG=(\!:4*) ; \\ #
# $Z $DELETE $Fi ; \\ #
# $Z $xci/valeurs_alea$X p=$Part0 d=$PartN signe="$KV" inf=$In sup=$Su $ArG > $Fi ; \\ #
# $Z unset Fi In Su ArG' #
# #
# $Z Gen $xTV/COORDONNEES$COORD_Z 0.0 0.0 #
# #
# #
# $Z Gen $xTV/MODULE 0.02 0.02 #
# $Z GenR $xTV/THETA 0.0 $dpi g=3333 #
# #
# $Z $CA $xcs/csh$Y \ #
# $Z > $xTV/XY_RT.1 #
# $Z $PAST $xTV/MODULE $xTV/THETA \ #
# $Z | $R "$K_TAB" "$K_BLANC" \ #
# $Z | $AW ' { print "$xcg/XY_RT$X r=" $1 " t=" $2 " cartesien=FAUX" } ' \ #
# $Z >>! $xTV/XY_RT.1 #
# #
# $Z (source $xTV/XY_RT.1) \ #
# $Z > $xTV/XY_RT.2 #
# #
# $Z $CA $xTV/XY_RT.2 \ #
# $Z | $GRE "^x=" \ #
# $Z | $SE -e "s/^x=//" \ #
# $Z > $xTV/VITESSES$COORD_X #
# $Z $CA $xTV/XY_RT.2 \ #
# $Z | $GRE "^y=" \ #
# $Z | $SE -e "s/^y=//" \ #
# $Z > $xTV/VITESSES$COORD_Y #
# #
# $Z Gen $xTV/VITESSES$COORD_Z 0.0 0.0 #
# #
# $Z Gen $xTV/mdRHO 0.0 0.0 #
# $Z Gen $xTV/MdRHO 0.0 0.0 #
# $Z Gen $xTV/mnPHI 0.0 0.0 #
# $Z Gen $xTV/MnPHI 0.0 0.0 #
# $Z Gen $xTV/dPHI 0.0 0.0 #
# $Z Gen $xTV/mnTHETA 0.0 0.0 #
# $Z Gen $xTV/MnTHETA 0.0 0.0 #
# $Z Gen $xTV/dTHETA 0.0 0.0 #
# $Z Gen $xTV/DISTANCE 1000000 1000000 #
# $Z Gen $xTV/STABILITE 1000000 1000000 #
# #
# $Z set RayonsT=0.014 #
# $Z set RayonsP=`$xcg/MUL2.01$X a=2 b=$RayonsT` #
# $Z set DistanceI=`$xcg/MUL2.01$X a=4 b=$RayonsP` #
# $Z Gen $xTV/RAYONS $RayonsT $RayonsT #
# $Z Gen $xTV/INTERACTIONS $RayonsP $RayonsP #
# #
# $Z $DELETE $xTV/COULEURS$TEINT #
# $Z $DELETE $xTV/COULEURS$LUMIN #
# $Z $DELETE $xTV/COULEURS$SATUR #
# $Z $DELETE $xTV/COULEURS$Y #
# $Z $DELETE $xTV/COULEURS #
# $Z $DELETE $xTV/COULEURS$ROUGE #
# $Z $DELETE $xTV/COULEURS$VERTE #
# $Z $DELETE $xTV/COULEURS$BLEUE #
# #
# $Z @ TeinteMagenta = $GRIS_7 #
# $Z @ TeinteCyan = $GRIS_4 + $GRIS_8 #
# #
# $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartN \ #
# $Z vD=$TeinteMagenta vA=$TeinteCyan \ #
# $Z cubique=FAUX \ #
# $Z entiers=VRAI \ #
# $Z > $xTV/COULEURS$TEINT #
# $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartN \ #
# $Z vD=$GRIS_4 vA=$GRIS_4 \ #
# $Z cubique=FAUX \ #
# $Z entiers=VRAI \ #
# $Z > $xTV/COULEURS$LUMIN #
# $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartN \ #
# $Z vD=$GRIS_8 vA=$GRIS_8 \ #
# $Z cubique=FAUX \ #
# $Z entiers=VRAI \ #
# $Z > $xTV/COULEURS$SATUR #
# #
# $Z $PAST \ #
# $Z $xTV/COULEURS$TEINT \ #
# $Z $xTV/COULEURS$LUMIN \ #
# $Z $xTV/COULEURS$SATUR \ #
# $Z | $R "$K_TAB" "$K_BLANC" \ #
# $Z | $AW ' { print "H=" $1 " L=" $2 " S=" $3 } ' \ #
# $Z | $SE -e 's+^+$xcg/RVB_HLS$X RVB_HLS=FAUX +' \ #
# $Z | $SE -e 's/$/ eR=VRAI eV=VRAI eB=VRAI/' \ #
# $Z | $SE -e 's/$/ eH=FAUX eL=FAUX eS=FAUX/' \ #
# $Z > $xTV/COULEURS$Y #
# #
# $Z (source $xTV/COULEURS$Y) \ #
# $Z > $xTV/COULEURS #
# #
# $Z $GRE "^R=" $xTV/COULEURS \ #
# $Z | $SE -e "s/^R=//" \ #
# $Z > $xTV/COULEURS$ROUGE #
# $Z $GRE "^V=" $xTV/COULEURS \ #
# $Z | $SE -e "s/^V=//" \ #
# $Z > $xTV/COULEURS$VERTE #
# $Z $GRE "^B=" $xTV/COULEURS \ #
# $Z | $SE -e "s/^B=//" \ #
# $Z > $xTV/COULEURS$BLEUE #
# #
# $Z Std #
# #
# #
# $Z $xci/scale$X \ #
# $Z A=$xTV/BOITE.1 \ #
# $Z a=1.00 \ #
# $Z R=$xTV/BOITE.2 \ #
# $Z $formatI #
# #
# $Z $xrk/rdn_walk.41$X corps=$Npart \ #
# $Z np=$Nimages \ #
# $Z collisions=VRAI DLA=FAUX interaction=$DistanceI \ #
# $Z LISTE_X=$xTV/COORDONNEES$COORD_X \ #
# $Z LISTE_Y=$xTV/COORDONNEES$COORD_Y \ #
# $Z LISTE_Z=$xTV/COORDONNEES$COORD_Z \ #
# $Z LISTE_VX=$xTV/VITESSES$COORD_X \ #
# $Z LISTE_VY=$xTV/VITESSES$COORD_Y \ #
# $Z LISTE_VZ=$xTV/VITESSES$COORD_Z \ #
# $Z LISTE_MINIMUM_DELTA_RHO=$xTV/mdRHO \ #
# $Z LISTE_MAXIMUM_DELTA_RHO=$xTV/MdRHO \ #
# $Z LISTE_MINIMUM_N_PHI=$xTV/mnPHI \ #
# $Z LISTE_MAXIMUM_N_PHI=$xTV/MnPHI \ #
# $Z LISTE_DELTA_PHI=$xTV/dPHI \ #
# $Z LISTE_MINIMUM_N_THETA=$xTV/mnTHETA \ #
# $Z LISTE_MAXIMUM_N_THETA=$xTV/MnTHETA \ #
# $Z LISTE_DELTA_THETA=$xTV/dTHETA \ #
# $Z LISTE_DISTANCE_MAXIMALE=$xTV/DISTANCE \ #
# $Z LISTE_STABILITE=$xTV/STABILITE \ #
# $Z LISTE_RAYON=$xTV/RAYONS \ #
# $Z LISTE_RAYON_D_INTERACTION=$xTV/INTERACTIONS \ #
# $Z LISTE_ROUGE=$xTV/COULEURS$ROUGE \ #
# $Z LISTE_VERTE=$xTV/COULEURS$VERTE \ #
# $Z LISTE_BLEUE=$xTV/COULEURS$BLEUE \ #
# $Z milieu=VRAI \ #
# $Z reflexion=VRAI refraction=FAUX \ #
# $Z Mhors=$BLANC \ #
# $Z MNpasX=1 Mprolonger_X=VRAI \ #
# $Z MNpasY=1 Mprolonger_Y=VRAI \ #
# $Z MNpasZ=1 Mprolonger_Z=VRAI \ #
# $Z adapter_M_nPAS=VRAI \ #
# $Z Msimplifier=FAUX affiner_M_maillage=FAUX \ #
# $Z MC=$xTV/BOITE.2 \ #
# $Z MChiffres=0 \ #
# $Z Zmin=0 Zmax=15 \ #
# $Z centrer=VRAI \ #
# $Z dct=0.05 nombre=10 \ #
# $Z trainees=VRAI mode=1 \ #
# $Z attenuation_des_images=0.6 \ #
# $Z attenuation_des_trainees=1.00 \ #
# $Z renormaliser=FAUX \ #
# $Z Lz=100 \ #
# $Z zoom_automatique=VRAI \ #
# $Z centre_de_gravite=FAUX \ #
# $Z fond=FAUX \ #
# $Z R=$xiim/REFL.W. \ #
# $Z $formatI #
# #
# $Z $DELETE $xTV/RAYONS #
# $Z $CP $xTV/INTERACTIONS $xTV/RAYONS #
# #
# $Z $DELETE $xTV/GRAVITE #
# $Z $xrk/rdn_walk.41$X corps=$Npart \ #
# $Z np=$Nimages \ #
# $Z collisions=VRAI DLA=FAUX interaction=$DistanceI \ #
# $Z LISTE_X=$xTV/COORDONNEES$COORD_X \ #
# $Z LISTE_Y=$xTV/COORDONNEES$COORD_Y \ #
# $Z LISTE_Z=$xTV/COORDONNEES$COORD_Z \ #
# $Z LISTE_VX=$xTV/VITESSES$COORD_X \ #
# $Z LISTE_VY=$xTV/VITESSES$COORD_Y \ #
# $Z LISTE_VZ=$xTV/VITESSES$COORD_Z \ #
# $Z LISTE_MINIMUM_DELTA_RHO=$xTV/mdRHO \ #
# $Z LISTE_MAXIMUM_DELTA_RHO=$xTV/MdRHO \ #
# $Z LISTE_MINIMUM_N_PHI=$xTV/mnPHI \ #
# $Z LISTE_MAXIMUM_N_PHI=$xTV/MnPHI \ #
# $Z LISTE_DELTA_PHI=$xTV/dPHI \ #
# $Z LISTE_MINIMUM_N_THETA=$xTV/mnTHETA \ #
# $Z LISTE_MAXIMUM_N_THETA=$xTV/MnTHETA \ #
# $Z LISTE_DELTA_THETA=$xTV/dTHETA \ #
# $Z LISTE_DISTANCE_MAXIMALE=$xTV/DISTANCE \ #
# $Z LISTE_STABILITE=$xTV/STABILITE \ #
# $Z LISTE_RAYON=$xTV/RAYONS \ #
# $Z LISTE_RAYON_D_INTERACTION=$xTV/INTERACTIONS \ #
# $Z LISTE_ROUGE=$xTV/COULEURS$ROUGE \ #
# $Z LISTE_VERTE=$xTV/COULEURS$VERTE \ #
# $Z LISTE_BLEUE=$xTV/COULEURS$BLEUE \ #
# $Z milieu=VRAI \ #
# $Z reflexion=VRAI refraction=FAUX \ #
# $Z Mhors=$BLANC \ #
# $Z MNpasX=1 Mprolonger_X=VRAI \ #
# $Z MNpasY=1 Mprolonger_Y=VRAI \ #
# $Z MNpasZ=1 Mprolonger_Z=VRAI \ #
# $Z adapter_M_nPAS=VRAI \ #
# $Z Msimplifier=FAUX affiner_M_maillage=FAUX \ #
# $Z MC=$xTV/BOITE.2 \ #
# $Z MChiffres=0 \ #
# $Z Zmin=0 Zmax=15 \ #
# $Z centrer=VRAI \ #
# $Z dct=0.05 nombre=10 \ #
# $Z trainees=VRAI mode=1 \ #
# $Z attenuation_des_images=1.0 \ #
# $Z attenuation_des_trainees=0.80 \ #
# $Z renormaliser=FAUX \ #
# $Z Lz=100 \ #
# $Z zoom_automatique=VRAI \ #
# $Z centre_de_gravite=VRAI \ #
# $Z fond=VRAI \ #
# $Z dynamique=VRAI \ #
# $Z F=$xiim/REFL.W. \ #
# $Z R=$xiim/REFL.W. \ #
# $Z $formatI | \ #
# $Z $GRE " CENTRE_DE_GRAVITE=" \ #
# $Z > $xTV/GRAVITE #
# #
# $Z $DELETE $xTV/COORDONNEES #
# $Z $DELETE $xTV/COORDONNEES$COORD_X #
# $Z $DELETE $xTV/COORDONNEES$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_Z #
# $Z $DELETE $xTV/VITESSES #
# $Z $DELETE $xTV/VITESSES$COORD_X #
# $Z $DELETE $xTV/VITESSES$COORD_Y #
# $Z $DELETE $xTV/VITESSES$COORD_Z #
# $Z $DELETE $xTV/mdRHO #
# $Z $DELETE $xTV/MdRHO #
# $Z $DELETE $xTV/mnPHI #
# $Z $DELETE $xTV/MnPHI #
# $Z $DELETE $xTV/dPHI #
# $Z $DELETE $xTV/mnTHETA #
# $Z $DELETE $xTV/MnTHETA #
# $Z $DELETE $xTV/dTHETA #
# $Z $DELETE $xTV/DISTANCE #
# $Z $DELETE $xTV/STABILITE #
# $Z $DELETE $xTV/RAYONS #
# $Z $DELETE $xTV/INTERACTIONS #
# $Z $DELETE $xTV/COULEURS$TEINT #
# $Z $DELETE $xTV/COULEURS$LUMIN #
# $Z $DELETE $xTV/COULEURS$SATUR #
# $Z $DELETE $xTV/COULEURS$Y #
# $Z $DELETE $xTV/COULEURS #
# $Z $DELETE $xTV/COULEURS$ROUGE #
# $Z $DELETE $xTV/COULEURS$VERTE #
# $Z $DELETE $xTV/COULEURS$BLEUE #
# #
# $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("$DELETE $xTV/COORDONNEES\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_X\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_Y\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_Z\n"); #
# #
# $c printf("$DELETE $xTV/COULEURS$ROUGE\n"); #
# $c printf("$DELETE $xTV/COULEURS$VERTE\n"); #
# $c printf("$DELETE $xTV/COULEURS$BLEUE\n"); #
# #
# $c printf("listMN $xTV/GRAVITE #
# $c %d %d #
# $c > $xTV/COORDONNEES\n" #
# $c ,N0,n #
# $c ); #
# #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*[(,]XG=//%c #
# $c -e %cs/[,)].*//%c #
# $c > $xTV/COORDONNEES$COORD_X\n" #
# $c ,'"','"','"','"' #
# $c ); #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*[(,]YG=//%c #
# $c -e %cs/[,)].*//%c #
# $c > $xTV/COORDONNEES$COORD_Y\n" #
# $c ,'"','"','"','"' #
# $c ); #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*[(,]ZG=//%c #
# $c -e %cs/[,)].*//%c #
# $c > $xTV/COORDONNEES$COORD_Z\n" #
# $c ,'"','"','"','"' #
# $c ); #
# #
# $c printf("$xci/valeurs_inte$X #
# $c premiere=%d derniere=%d #
# $c vD=$GRIS_5 vA=$GRIS_5 #
# $c cubique=FAUX #
# $c entiers=VRAI #
# $c utiliser_la_valeur_de_depart=FAUX #
# $c > $xTV/COULEURS$ROUGE\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/valeurs_inte$X #
# $c premiere=%d derniere=%d #
# $c vD=$GRIS_5 vA=$GRIS_5 #
# $c cubique=FAUX #
# $c entiers=VRAI #
# $c utiliser_la_valeur_de_depart=FAUX #
# $c > $xTV/COULEURS$VERTE\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/valeurs_inte$X #
# $c premiere=%d derniere=%d #
# $c vD=$GRIS_5 vA=$GRIS_5 #
# $c cubique=FAUX #
# $c entiers=VRAI #
# $c utiliser_la_valeur_de_depart=FAUX #
# $c > $xTV/COULEURS$BLEUE\n" #
# $c ,N0,n #
# $c ); #
# #
# $c printf("$xrv/particule.10$X #
# $c np=1 #
# $c iterations=%d #
# $c LISTE_X=$xTV/COORDONNEES$COORD_X #
# $c LISTE_Y=$xTV/COORDONNEES$COORD_Y #
# $c LISTE_Z=$xTV/COORDONNEES$COORD_Z #
# $c LISTE_ROUGE=$xTV/COULEURS$ROUGE #
# $c LISTE_VERTE=$xTV/COULEURS$VERTE #
# $c LISTE_BLEUE=$xTV/COULEURS$BLEUE #
# $c LISTE_RAYON=0.009 #
# $c zoom_automatique=FAUX ZOOM=1.0 #
# $c coordonnees_dans_0_1=FAUX #
# $c AXYZ=1 BXYZ=0 #
# $c fond=VRAI #
# $c fond_dynamique=FAUX #
# $c F=$xiim/REFL.W.%04d #
# $c R=$xTV/REFL.A. #
# $c $formatI\n" #
# $c ,(n-N0)+1,n #
# $c ); #
# #
# $c printf("$xci/acces$X #
# $c A=$xTV/REFL.A.%04d$ROUGE #
# $c R=$xiim/REFL.W.%04d$ROUGE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xTV/REFL.A.%04d$VERTE #
# $c R=$xiim/REFL.W.%04d$VERTE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xTV/REFL.A.%04d$BLEUE #
# $c R=$xiim/REFL.W.%04d$BLEUE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# #
# $c printf("$DELETE $xTV/COORDONNEES\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_X\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_Y\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_Z\n"); #
# #
# $c printf("$DELETE $xTV/COULEURS$ROUGE\n"); #
# $c printf("$DELETE $xTV/COULEURS$VERTE\n"); #
# $c printf("$DELETE $xTV/COULEURS$BLEUE\n"); #
# #
# $c printf("listMN $xTV/GRAVITE #
# $c %d %d #
# $c > $xTV/COORDONNEES\n" #
# $c ,n,n #
# $c ); #
# #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*[(,]XG=//%c #
# $c -e %cs/[,)].*//%c #
# $c > $xTV/COORDONNEES$COORD_X\n" #
# $c ,'"','"','"','"' #
# $c ); #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*[(,]YG=//%c #
# $c -e %cs/[,)].*//%c #
# $c > $xTV/COORDONNEES$COORD_Y\n" #
# $c ,'"','"','"','"' #
# $c ); #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*[(,]ZG=//%c #
# $c -e %cs/[,)].*//%c #
# $c > $xTV/COORDONNEES$COORD_Z\n" #
# $c ,'"','"','"','"' #
# $c ); #
# #
# $c printf("$xci/valeurs_inte$X #
# $c premiere=%d derniere=%d #
# $c vD=$GRIS_8 vA=$GRIS_8 #
# $c cubique=FAUX #
# $c entiers=VRAI #
# $c utiliser_la_valeur_de_depart=FAUX #
# $c > $xTV/COULEURS$ROUGE\n" #
# $c ,n,n #
# $c ); #
# $c printf("$xci/valeurs_inte$X #
# $c premiere=%d derniere=%d #
# $c vD=$GRIS_8 vA=$GRIS_8 #
# $c cubique=FAUX #
# $c entiers=VRAI #
# $c utiliser_la_valeur_de_depart=FAUX #
# $c > $xTV/COULEURS$VERTE\n" #
# $c ,n,n #
# $c ); #
# $c printf("$xci/valeurs_inte$X #
# $c premiere=%d derniere=%d #
# $c vD=$GRIS_8 vA=$GRIS_8 #
# $c cubique=FAUX #
# $c entiers=VRAI #
# $c utiliser_la_valeur_de_depart=FAUX #
# $c > $xTV/COULEURS$BLEUE\n" #
# $c ,n,n #
# $c ); #
# #
# $c printf("$xrv/particule.10$X #
# $c np=1 #
# $c iterations=%d #
# $c LISTE_X=$xTV/COORDONNEES$COORD_X #
# $c LISTE_Y=$xTV/COORDONNEES$COORD_Y #
# $c LISTE_Z=$xTV/COORDONNEES$COORD_Z #
# $c LISTE_ROUGE=$xTV/COULEURS$ROUGE #
# $c LISTE_VERTE=$xTV/COULEURS$VERTE #
# $c LISTE_BLEUE=$xTV/COULEURS$BLEUE #
# $c LISTE_RAYON=0.012 #
# $c zoom_automatique=FAUX ZOOM=1.0 #
# $c coordonnees_dans_0_1=FAUX #
# $c AXYZ=1 BXYZ=0 #
# $c fond=VRAI #
# $c fond_dynamique=FAUX #
# $c F=$xiim/REFL.W.%04d #
# $c R=$xTV/REFL.B. #
# $c $formatI\n" #
# $c ,(n-n)+1,n #
# $c ); #
# #
# $c printf("$xci/acces$X #
# $c A=$xTV/REFL.B.%04d$ROUGE #
# $c R=$xiim/REFL.W.%04d$ROUGE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xTV/REFL.B.%04d$VERTE #
# $c R=$xiim/REFL.W.%04d$VERTE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xTV/REFL.B.%04d$BLEUE #
# $c R=$xiim/REFL.W.%04d$BLEUE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# $c } #
# $c } #
# #
# #
# $Z $DELETE $xTV/COORDONNEES #
# $Z $DELETE $xTV/COORDONNEES$COORD_X #
# $Z $DELETE $xTV/COORDONNEES$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_Z #
# $Z $DELETE $xTV/COULEURS$ROUGE #
# $Z $DELETE $xTV/COULEURS$VERTE #
# $Z $DELETE $xTV/COULEURS$BLEUE #
# #
# #
# #
# $Z $xci/complement$X A=$xTV/BOITE.1 \ #
# $Z R=$xTV/BOITE.3 \ #
# $Z $formatI #
# #
# $Z eval `$xci/genere$X \\\ #
# $Z commande='($xci/scale$X \\\ #
# $Z A=$xTV/BOITE.3 \\\ #
# $Z a=0.50 \\\ #
# $Z R=$xTV/BOITE.3%s \\\ #
# $Z $formatI)' \\\ #
# $Z en_tete=FAUX RVB=VRAI separateur=VRAI` #
# #
# #
# $Z $xci/gauss$X \ #
# $Z R=$xTV/GAUSS \ #
# $Z $formatI #
# #
# $c #define N0 Premiere #
# $c #define N Derniere #
# #
# $c int main() #
# $c { #
# $c int n; #
# #
# $c for (n=N0 ; n<=N ; n++) #
# $c { #
# $c int seuil=252; #
# #
# $c printf("$xci/filtre.01$X #
# $c A=$xiim/REFL.W.%04d$ROUGE #
# $c N=$xTV/GAUSS #
# $c renormaliser=FAUX #
# $c tronquer=VRAI #
# $c standard=FAUX #
# $c seuil=%d #
# $c R=$xTV/FILTREE$ROUGE #
# $c $formatI\n" #
# $c ,n,seuil,n #
# $c ); #
# $c printf("$xci/filtre.01$X #
# $c A=$xiim/REFL.W.%04d$VERTE #
# $c N=$xTV/GAUSS #
# $c renormaliser=FAUX #
# $c tronquer=VRAI #
# $c standard=FAUX #
# $c seuil=%d #
# $c R=$xTV/FILTREE$VERTE #
# $c $formatI\n" #
# $c ,n,seuil,n #
# $c ); #
# $c printf("$xci/filtre.01$X #
# $c A=$xiim/REFL.W.%04d$BLEUE #
# $c N=$xTV/GAUSS #
# $c renormaliser=FAUX #
# $c tronquer=VRAI #
# $c standard=FAUX #
# $c seuil=%d #
# $c R=$xTV/FILTREE$BLEUE #
# $c $formatI\n" #
# $c ,n,seuil,n #
# $c ); #
# #
# $c printf("$xci/acces$X #
# $c A=$xTV/FILTREE$ROUGE #
# $c standard=FAUX #
# $c zero=FAUX #
# $c R=$xTV/TEXTURE$ROUGE #
# $c $formatI\n" #
# $c ,n #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xTV/FILTREE$VERTE #
# $c standard=FAUX #
# $c zero=FAUX #
# $c R=$xTV/TEXTURE$VERTE #
# $c $formatI\n" #
# $c ,n #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xTV/FILTREE$BLEUE #
# $c standard=FAUX #
# $c zero=FAUX #
# $c R=$xTV/TEXTURE$BLEUE #
# $c $formatI\n" #
# $c ,n #
# $c ); #
# #
# $c printf("$xci/somme_02$X #
# $c A1=$xTV/FILTREE$ROUGE #
# $c A2=$xTV/FILTREE$VERTE #
# $c standard=FAUX #
# $c R=$xTV/SURFACE #
# $c $formatI\n" #
# $c ,n,n #
# $c ); #
# $c printf("$xci/somme_02$X #
# $c A1=$xTV/SURFACE #
# $c A2=$xTV/FILTREE$BLEUE #
# $c standard=FAUX #
# $c R=$xTV/SURFACE #
# $c $formatI\n" #
# $c ,n,n #
# $c ); #
# #
# $c printf("$xci/montagne.01$X #
# $c A=$xTV/SURFACE #
# $c standard=FAUX #
# $c extrema=FAUX #
# $c zero=VRAI #
# $c T=$xTV/TEXTURE$ROUGE #
# $c perspective=0.2 #
# $c Ty=0.7 #
# $c avion=FAUX #
# $c $formatI | #
# $c $xci/format.01$X #
# $c $formatI #
# $c mode=2 #
# $c R=$xiim/RE$M.E.%04d$ROUGE #
# $c $formatR_Pal\n" #
# $c ,n #
# $c ); #
# $c printf("$xci/montagne.01$X #
# $c A=$xTV/SURFACE #
# $c standard=FAUX #
# $c extrema=FAUX #
# $c zero=VRAI #
# $c T=$xTV/TEXTURE$VERTE #
# $c perspective=0.2 #
# $c Ty=0.7 #
# $c avion=FAUX #
# $c $formatI | #
# $c $xci/format.01$X #
# $c $formatI #
# $c mode=2 #
# $c R=$xiim/RE$M.E.%04d$VERTE #
# $c $formatR_Pal\n" #
# $c ,n #
# $c ); #
# $c printf("$xci/montagne.01$X #
# $c A=$xTV/SURFACE #
# $c standard=FAUX #
# $c extrema=FAUX #
# $c zero=VRAI #
# $c T=$xTV/TEXTURE$BLEUE #
# $c perspective=0.2 #
# $c Ty=0.7 #
# $c avion=FAUX #
# $c $formatI | #
# $c $xci/format.01$X #
# $c $formatI #
# $c mode=2 #
# $c R=$xiim/RE$M.E.%04d$BLEUE #
# $c $formatR_Pal\n" #
# $c ,n #
# $c ); #
# #
# $c printf("$xci/montagne.01$X #
# $c A=$xTV/SURFACE #
# $c standard=FAUX #
# $c extrema=FAUX #
# $c zero=VRAI #
# $c T=$xTV/TEXTURE$ROUGE #
# $c avion=VRAI #
# $c $formatI | #
# $c $xci/format.01$X #
# $c $formatI #
# $c mode=2 #
# $c R=$xiim/RE$m.E.%04d$ROUGE #
# $c $formatR_Pal\n" #
# $c ,n #
# $c ); #
# $c printf("$xci/montagne.01$X #
# $c A=$xTV/SURFACE #
# $c standard=FAUX #
# $c extrema=FAUX #
# $c zero=VRAI #
# $c T=$xTV/TEXTURE$VERTE #
# $c avion=VRAI #
# $c $formatI | #
# $c $xci/format.01$X #
# $c $formatI #
# $c mode=2 #
# $c R=$xiim/RE$m.E.%04d$VERTE #
# $c $formatR_Pal\n" #
# $c ,n #
# $c ); #
# $c printf("$xci/montagne.01$X #
# $c A=$xTV/SURFACE #
# $c standard=FAUX #
# $c extrema=FAUX #
# $c zero=VRAI #
# $c T=$xTV/TEXTURE$BLEUE #
# $c avion=VRAI #
# $c $formatI | #
# $c $xci/format.01$X #
# $c $formatI #
# $c mode=2 #
# $c R=$xiim/RE$m.E.%04d$BLEUE #
# $c $formatR_Pal\n" #
# $c ,n #
# $c ); #
# $c } #
# $c } #
# #
# $Z $DELETE $xTV/BOITE.1 #
# $Z $DELETE $xTV/BOITE.2 #
# $Z $DELETE $xTV/BOITE.3 #
# $Z $DELETE $xTV/BOITE.3$ROUGE #
# $Z $DELETE $xTV/BOITE.3$VERTE #
# $Z $DELETE $xTV/BOITE.3$BLEUE #
# #
# $Z Pal #
# #
# $Z $xci/reduction_16$Z $xiim/RE$M.E. $xiak/RE.H6$M $Premiere $Derniere #
# $Z $xci/reduction_64$Z $xiim/RE$M.E. $xiak/RE.H6$M $Premiere $Derniere #
# #
# $X $xci/genere$X c='ro $xiak/RE.H6$M$R16%s' RVB=VRAI #
# $X $xci/genere$X c='ro $xiak/RE.H6$M$R64%s' RVB=VRAI #
# #
# $X $xci/genere$X c='$xcg/unite$Z $xiak/RE.H6$M$R16%s' RVB=VRAI #
# $X $xci/genere$X c='$xcg/unite$Z $xiak/RE.H6$M$R64%s' RVB=VRAI #
# #
# $X $xci/genere$X c='$CP $xiim/RE$M.E.0512%s $xiirk/RE.H6$M.0512%s' RVB=VRAI #
# #
# $X $xci/genere$X c='ro $xiirk/RE.H6$M.0512%s' RVB=VRAI #
# #
# $X $xci/genere$X c='$xcg/unite$Z $xiirk/RE.H6$M.0512%s' RVB=VRAI #
# #
# $Z $xci/reduction_16$Z $xiim/RE$m.E. $xiak/RE.H6$m $Premiere $Derniere #
# $Z $xci/reduction_64$Z $xiim/RE$m.E. $xiak/RE.H6$m $Premiere $Derniere #
# #
# $X $xci/genere$X c='ro $xiak/RE.H6$m$R16%s' RVB=VRAI #
# $X $xci/genere$X c='ro $xiak/RE.H6$m$R64%s' RVB=VRAI #
# #
# $X $xci/genere$X c='$xcg/unite$Z $xiak/RE.H6$m$R16%s' RVB=VRAI #
# $X $xci/genere$X c='$xcg/unite$Z $xiak/RE.H6$m$R64%s' RVB=VRAI #
# #
# $X $xci/genere$X c='$CP $xiim/RE$m.E.0512%s $xiirk/RE.H6$m.0512%s' RVB=VRAI #
# #
# $X $xci/genere$X c='ro $xiirk/RE.H6$m.0512%s' RVB=VRAI #
# #
# $X $xci/genere$X c='$xcg/unite$Z $xiirk/RE.H6$m.0512%s' RVB=VRAI #
# #
# #
# Pal #
# #
# #
# $xci/disk_video_P$Z $xiim_LACT29/RE$M.E. 001 512 RVB \ #
# 11 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# $xci/disk_video_P$Z $xiim_LACT29/RE$m.E. 001 512 RVB \ #
# 11 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
# #
# xivPdf 3 2 #
# #
# record.01$Z $xiak/RE.H6$M$R16 RVB Initialisation #
# record.01$Z $xiak/RE.H6$M$R64 RVB rien #
# record.01$Z $xiirk/RE.H6$M.0512 RVB rien #
# record.01$Z $xiak/RE.H6$m$R16 RVB rien #
# record.01$Z $xiak/RE.H6$m$R64 RVB rien #
# record.01$Z $xiirk/RE.H6$m.0512 RVB rien #
# #
sequence 014849_015360
# Generee (sur '$LACT29') par : #
# #
# $Z SET Premiere=1 #
# $Z SET Derniere=512 #
# $Z @ Nimages = $Derniere - $Premiere #
# $Z @ Nimages = $Nimages + 1 #
# #
# $Z set Part0=1 #
# $Z set PartN=1 #
# $Z @ Npart = $PartN - $Part0 #
# $Z @ Npart = $Npart + 1 #
# #
# $Z $DELETE $xTV/COORDONNEES$COORD_X #
# $Z $DELETE $xTV/COORDONNEES$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_Z #
# $Z $DELETE $xTV/VITESSES #
# $Z $DELETE $xTV/VITESSES$COORD_X #
# $Z $DELETE $xTV/VITESSES$COORD_Y #
# $Z $DELETE $xTV/VITESSES$COORD_Z #
# $Z $DELETE $xTV/mdRHO #
# $Z $DELETE $xTV/MdRHO #
# $Z $DELETE $xTV/mnPHI #
# $Z $DELETE $xTV/MnPHI #
# $Z $DELETE $xTV/dPHI #
# $Z $DELETE $xTV/mnTHETA #
# $Z $DELETE $xTV/MnTHETA #
# $Z $DELETE $xTV/dTHETA #
# $Z $DELETE $xTV/supOUVE #
# $Z $DELETE $xTV/DISTANCE #
# $Z $DELETE $xTV/STABILITE #
# $Z $DELETE $xTV/RAYONS #
# $Z $DELETE $xTV/INTERACTIONS #
# #
# #
# $Z alias Gen 'set Fi=\!:1 ; set vD=\!:2 ; set vA=\!:3 ; set ArG=(\!:4*) ; \\ #
# $Z $DELETE $Fi ; \\ #
# $Z $xci/valeurs_inte$X p=$Part0 d=$PartN vD=$vD vA=$vA $ArG > $Fi ; \\ #
# $Z unset Fi vD vA ArG' #
# #
# $Z alias GenR 'set Fi=\!:1 ; set In=\!:2 ; set Su=\!:3 ; set ArG=(\!:4*) ; \\ #
# $Z $DELETE $Fi ; \\ #
# $Z $xci/valeurs_alea$X p=$Part0 d=$PartN signe="$KV" inf=$In sup=$Su $ArG > $Fi ; \\ #
# $Z unset Fi In Su ArG' #
# #
# $Z Gen $xTV/COORDONNEES$COORD_X 0.00 0.00 cubique=FAUX #
# $Z Gen $xTV/COORDONNEES$COORD_Y -0.5 -0.5 cubique=FAUX #
# #
# $Z Gen $xTV/COORDONNEES$COORD_Z 0.0 0.0 #
# #
# #
# $Z Gen $xTV/VITESSES$COORD_X 0.02 0.02 #
# $Z Gen $xTV/VITESSES$COORD_Y 0.02 0.02 #
# $Z Gen $xTV/VITESSES$COORD_Z 0.0 0.0 #
# #
# $Z Gen $xTV/mdRHO 0.0 0.0 #
# $Z Gen $xTV/MdRHO 0.0 0.0 #
# $Z Gen $xTV/mnPHI 0.0 0.0 #
# $Z Gen $xTV/MnPHI 0.0 0.0 #
# $Z Gen $xTV/dPHI 0.0 0.0 #
# $Z Gen $xTV/mnTHETA 0.0 0.0 #
# $Z Gen $xTV/MnTHETA 0.0 0.0 #
# $Z Gen $xTV/dTHETA 0.0 0.0 #
# $Z Gen $xTV/DISTANCE 1000000 1000000 #
# $Z Gen $xTV/STABILITE 1000000 1000000 #
# #
# $Z set RayonsT=0.014 #
# $Z set RayonsP=`$xcg/MUL2.01$X a=2 b=$RayonsT` #
# $Z set DistanceI=`$xcg/MUL2.01$X a=4 b=$RayonsP` #
# $Z Gen $xTV/RAYONS $RayonsT $RayonsT #
# $Z Gen $xTV/INTERACTIONS $RayonsP $RayonsP #
# #
# $Z $DELETE $xTV/COULEURS$TEINT #
# $Z $DELETE $xTV/COULEURS$LUMIN #
# $Z $DELETE $xTV/COULEURS$SATUR #
# $Z $DELETE $xTV/COULEURS$Y #
# $Z $DELETE $xTV/COULEURS #
# $Z $DELETE $xTV/COULEURS$ROUGE #
# $Z $DELETE $xTV/COULEURS$VERTE #
# $Z $DELETE $xTV/COULEURS$BLEUE #
# #
# $Z @ TeinteMagenta = $GRIS_7 #
# $Z @ TeinteCyan = $GRIS_4 + $GRIS_8 #
# #
# $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartN \ #
# $Z vD=$TeinteMagenta vA=$TeinteCyan \ #
# $Z cubique=FAUX \ #
# $Z entiers=VRAI \ #
# $Z > $xTV/COULEURS$TEINT #
# $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartN \ #
# $Z vD=$GRIS_4 vA=$GRIS_4 \ #
# $Z cubique=FAUX \ #
# $Z entiers=VRAI \ #
# $Z > $xTV/COULEURS$LUMIN #
# $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartN \ #
# $Z vD=$GRIS_8 vA=$GRIS_8 \ #
# $Z cubique=FAUX \ #
# $Z entiers=VRAI \ #
# $Z > $xTV/COULEURS$SATUR #
# #
# $Z $PAST \ #
# $Z $xTV/COULEURS$TEINT \ #
# $Z $xTV/COULEURS$LUMIN \ #
# $Z $xTV/COULEURS$SATUR \ #
# $Z | $R "$K_TAB" "$K_BLANC" \ #
# $Z | $AW ' { print "H=" $1 " L=" $2 " S=" $3 } ' \ #
# $Z | $SE -e 's+^+$xcg/RVB_HLS$X RVB_HLS=FAUX +' \ #
# $Z | $SE -e 's/$/ eR=VRAI eV=VRAI eB=VRAI/' \ #
# $Z | $SE -e 's/$/ eH=FAUX eL=FAUX eS=FAUX/' \ #
# $Z > $xTV/COULEURS$Y #
# #
# $Z (source $xTV/COULEURS$Y) \ #
# $Z > $xTV/COULEURS #
# #
# $Z $GRE "^R=" $xTV/COULEURS \ #
# $Z | $SE -e "s/^R=//" \ #
# $Z > $xTV/COULEURS$ROUGE #
# $Z $GRE "^V=" $xTV/COULEURS \ #
# $Z | $SE -e "s/^V=//" \ #
# $Z > $xTV/COULEURS$VERTE #
# $Z $GRE "^B=" $xTV/COULEURS \ #
# $Z | $SE -e "s/^B=//" \ #
# $Z > $xTV/COULEURS$BLEUE #
# #
# $Z $DELETE $xTV/BOITE.1 #
# $Z $DELETE $xTV/BOITE.2 #
# $Z $DELETE $xTV/BOITE.3 #
# $Z $DELETE $xTV/BOITE.3$ROUGE #
# $Z $DELETE $xTV/BOITE.3$VERTE #
# $Z $DELETE $xTV/BOITE.3$BLEUE #
# #
# $Z Std #
# #
# $Z S #
# #
# $Z set SeuilBOITE=$GRIS_2 #
# #
# $Z $xci/complement$X \ #
# $Z A=$xiio/SPIRALE \ #
# $Z $formatI | \ #
# $Z $xci/seuil$X \ #
# $Z seuil=$SeuilBOITE \ #
# $Z $formatI | \ #
# $Z $xci/format.01$X mode=7 \ #
# $Z $formatI \ #
# $Z R=$xTV/BOITE.1 \ #
# $Z $formatR_Pal #
# #
# $Z Pal #
# #
# #
# $Z $xci/scale$X \ #
# $Z A=$xTV/BOITE.1 \ #
# $Z a=1.00 \ #
# $Z R=$xTV/BOITE.2 \ #
# $Z $formatI #
# #
# #
# $Z Pal #
# #
# $Z $xrk/rdn_walk.41$X corps=$Npart \ #
# $Z np=$Nimages \ #
# $Z collisions=FAUX DLA=FAUX interaction=$DistanceI \ #
# $Z LISTE_X=$xTV/COORDONNEES$COORD_X \ #
# $Z LISTE_Y=$xTV/COORDONNEES$COORD_Y \ #
# $Z LISTE_Z=$xTV/COORDONNEES$COORD_Z \ #
# $Z LISTE_VX=$xTV/VITESSES$COORD_X \ #
# $Z LISTE_VY=$xTV/VITESSES$COORD_Y \ #
# $Z LISTE_VZ=$xTV/VITESSES$COORD_Z \ #
# $Z LISTE_MINIMUM_DELTA_RHO=$xTV/mdRHO \ #
# $Z LISTE_MAXIMUM_DELTA_RHO=$xTV/MdRHO \ #
# $Z LISTE_MINIMUM_N_PHI=$xTV/mnPHI \ #
# $Z LISTE_MAXIMUM_N_PHI=$xTV/MnPHI \ #
# $Z LISTE_DELTA_PHI=$xTV/dPHI \ #
# $Z LISTE_MINIMUM_N_THETA=$xTV/mnTHETA \ #
# $Z LISTE_MAXIMUM_N_THETA=$xTV/MnTHETA \ #
# $Z LISTE_DELTA_THETA=$xTV/dTHETA \ #
# $Z LISTE_DISTANCE_MAXIMALE=$xTV/DISTANCE \ #
# $Z LISTE_STABILITE=$xTV/STABILITE \ #
# $Z LISTE_RAYON=$xTV/RAYONS \ #
# $Z LISTE_RAYON_D_INTERACTION=$xTV/INTERACTIONS \ #
# $Z LISTE_ROUGE=$xTV/COULEURS$ROUGE \ #
# $Z LISTE_VERTE=$xTV/COULEURS$VERTE \ #
# $Z LISTE_BLEUE=$xTV/COULEURS$BLEUE \ #
# $Z milieu=VRAI \ #
# $Z reflexion=VRAI refraction=FAUX \ #
# $Z Mhors=$BLANC \ #
# $Z MNpasX=8 Mprolonger_X=VRAI \ #
# $Z MNpasY=8 Mprolonger_Y=VRAI \ #
# $Z MNpasZ=8 Mprolonger_Z=VRAI \ #
# $Z adapter_M_nPAS=VRAI \ #
# $Z Msimplifier=FAUX affiner_M_maillage=FAUX \ #
# $Z Mspherique=VRAI \ #
# $Z Mfiltrer=VRAI Mtolerance=0.75 \ #
# $Z MC=$xTV/BOITE.2 \ #
# $Z MChiffres=0 \ #
# $Z Zmin=0 Zmax=15 \ #
# $Z centrer=VRAI \ #
# $Z dct=0.05 nombre=100 \ #
# $Z trainees=VRAI mode=1 \ #
# $Z attenuation_des_images=0.6 \ #
# $Z attenuation_des_trainees=1.00 \ #
# $Z renormaliser=FAUX \ #
# $Z Lz=100 \ #
# $Z zoom_automatique=VRAI \ #
# $Z centre_de_gravite=FAUX \ #
# $Z fond=FAUX \ #
# $Z R=$xiim/REFL.W. \ #
# $Z $formatI #
# #
# $Z $DELETE $xTV/RAYONS #
# $Z $CP $xTV/INTERACTIONS $xTV/RAYONS #
# #
# $Z $xrk/rdn_walk.41$X corps=$Npart \ #
# $Z np=$Nimages \ #
# $Z collisions=FAUX DLA=FAUX interaction=$DistanceI \ #
# $Z LISTE_X=$xTV/COORDONNEES$COORD_X \ #
# $Z LISTE_Y=$xTV/COORDONNEES$COORD_Y \ #
# $Z LISTE_Z=$xTV/COORDONNEES$COORD_Z \ #
# $Z LISTE_VX=$xTV/VITESSES$COORD_X \ #
# $Z LISTE_VY=$xTV/VITESSES$COORD_Y \ #
# $Z LISTE_VZ=$xTV/VITESSES$COORD_Z \ #
# $Z LISTE_MINIMUM_DELTA_RHO=$xTV/mdRHO \ #
# $Z LISTE_MAXIMUM_DELTA_RHO=$xTV/MdRHO \ #
# $Z LISTE_MINIMUM_N_PHI=$xTV/mnPHI \ #
# $Z LISTE_MAXIMUM_N_PHI=$xTV/MnPHI \ #
# $Z LISTE_DELTA_PHI=$xTV/dPHI \ #
# $Z LISTE_MINIMUM_N_THETA=$xTV/mnTHETA \ #
# $Z LISTE_MAXIMUM_N_THETA=$xTV/MnTHETA \ #
# $Z LISTE_DELTA_THETA=$xTV/dTHETA \ #
# $Z LISTE_DISTANCE_MAXIMALE=$xTV/DISTANCE \ #
# $Z LISTE_STABILITE=$xTV/STABILITE \ #
# $Z LISTE_RAYON=$xTV/RAYONS \ #
# $Z LISTE_RAYON_D_INTERACTION=$xTV/INTERACTIONS \ #
# $Z LISTE_ROUGE=$xTV/COULEURS$ROUGE \ #
# $Z LISTE_VERTE=$xTV/COULEURS$VERTE \ #
# $Z LISTE_BLEUE=$xTV/COULEURS$BLEUE \ #
# $Z milieu=VRAI \ #
# $Z reflexion=VRAI refraction=FAUX \ #
# $Z Mhors=$BLANC \ #
# $Z MNpasX=8 Mprolonger_X=VRAI \ #
# $Z MNpasY=8 Mprolonger_Y=VRAI \ #
# $Z MNpasZ=8 Mprolonger_Z=VRAI \ #
# $Z adapter_M_nPAS=VRAI \ #
# $Z Msimplifier=FAUX affiner_M_maillage=FAUX \ #
# $Z Mspherique=VRAI \ #
# $Z Mfiltrer=VRAI Mtolerance=0.75 \ #
# $Z MC=$xTV/BOITE.2 \ #
# $Z MChiffres=0 \ #
# $Z Zmin=0 Zmax=15 \ #
# $Z centrer=VRAI \ #
# $Z dct=0.05 nombre=100 \ #
# $Z trainees=VRAI mode=1 \ #
# $Z attenuation_des_images=1.0 \ #
# $Z attenuation_des_trainees=0.80 \ #
# $Z renormaliser=FAUX \ #
# $Z Lz=100 \ #
# $Z zoom_automatique=VRAI \ #
# $Z centre_de_gravite=FAUX \ #
# $Z fond=VRAI \ #
# $Z dynamique=VRAI \ #
# $Z F=$xiim/REFL.W. \ #
# $Z R=$xiim/REFL.W. \ #
# $Z $formatI #
# #
# $Z $DELETE $xTV/COORDONNEES$COORD_X #
# $Z $DELETE $xTV/COORDONNEES$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_Z #
# $Z $DELETE $xTV/VITESSES #
# $Z $DELETE $xTV/VITESSES$COORD_X #
# $Z $DELETE $xTV/VITESSES$COORD_Y #
# $Z $DELETE $xTV/VITESSES$COORD_Z #
# $Z $DELETE $xTV/mdRHO #
# $Z $DELETE $xTV/MdRHO #
# $Z $DELETE $xTV/mnPHI #
# $Z $DELETE $xTV/MnPHI #
# $Z $DELETE $xTV/dPHI #
# $Z $DELETE $xTV/mnTHETA #
# $Z $DELETE $xTV/MnTHETA #
# $Z $DELETE $xTV/dTHETA #
# $Z $DELETE $xTV/DISTANCE #
# $Z $DELETE $xTV/STABILITE #
# $Z $DELETE $xTV/RAYONS #
# $Z $DELETE $xTV/INTERACTIONS #
# $Z $DELETE $xTV/COULEURS$TEINT #
# $Z $DELETE $xTV/COULEURS$LUMIN #
# $Z $DELETE $xTV/COULEURS$SATUR #
# $Z $DELETE $xTV/COULEURS$Y #
# $Z $DELETE $xTV/COULEURS #
# $Z $DELETE $xTV/COULEURS$ROUGE #
# $Z $DELETE $xTV/COULEURS$VERTE #
# $Z $DELETE $xTV/COULEURS$BLEUE #
# #
# #
# $Z $xci/complement$X A=$xTV/BOITE.1 \ #
# $Z R=$xTV/BOITE.3 \ #
# $Z $formatI #
# #
# $Z eval `$xci/genere$X \\\ #
# $Z commande='($xci/scale$X \\\ #
# $Z A=$xTV/BOITE.3 \\\ #
# $Z a=0.50 \\\ #
# $Z R=$xTV/BOITE.3%s \\\ #
# $Z $formatI)' \\\ #
# $Z en_tete=FAUX RVB=VRAI separateur=VRAI` #
# #
# #
# $X $xci/genere$X premiere=$Premiere derniere=$Derniere pas=1 \ #
# $X C='$xci/cache.11$Z \ #
# $X $xiim/REFL.W.%04d \ #
# $X $xTV/BOITE.3 \ #
# $X $xiim/REFL.G.%04d' #
# #
# $Z $DELETE $xTV/BOITE.1 #
# $Z $DELETE $xTV/BOITE.2 #
# $Z $DELETE $xTV/BOITE.3 #
# $Z $DELETE $xTV/BOITE.3$ROUGE #
# $Z $DELETE $xTV/BOITE.3$VERTE #
# $Z $DELETE $xTV/BOITE.3$BLEUE #
# #
# $Z Pal #
# #
# $Z $xci/reduction_16$Z $xiim/REFL.G. $xiak/REFL.C2 $Premiere $Derniere #
# $Z $xci/reduction_64$Z $xiim/REFL.G. $xiak/REFL.C2 $Premiere $Derniere #
# #
# $X $xci/genere$X c='ro $xiak/REFL.C2$R16%s' RVB=VRAI #
# $X $xci/genere$X c='ro $xiak/REFL.C2$R64%s' RVB=VRAI #
# #
# $X $xci/genere$X c='$xcg/unite$Z $xiak/REFL.C2$R16%s' RVB=VRAI #
# $X $xci/genere$X c='$xcg/unite$Z $xiak/REFL.C2$R64%s' RVB=VRAI #
# #
# $X $xci/genere$X c='$CP $xiim/REFL.G.0512%s $xiirk/REFL.C2.0512%s' RVB=VRAI #
# #
# $X $xci/genere$X c='ro $xiirk/REFL.C2.0512%s' RVB=VRAI #
# #
# $X $xci/genere$X c='$xcg/unite$Z $xiirk/REFL.C2.0512%s' RVB=VRAI #
# #
# #
# Pal #
# #
# #
# $xci/disk_video_P$Z $xiim_LACT29/REFL.G. 001 512 RVB \ #
# 11 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
# #
# xivPdf 3 2 #
# #
# record.01$Z $xiak/REFL.C2$R16 RVB Initialisation #
# record.01$Z $xiak/REFL.C2$R64 RVB rien #
# record.01$Z $xiirk/REFL.C2.0512 RVB rien #
# #
sequence 015361_015872
# Generee (sur '$LACT29') par : #
# #
# $Z SET Premiere=1 #
# $Z SET Derniere=512 #
# $Z @ Nimages = $Derniere - $Premiere #
# $Z @ Nimages = $Nimages + 1 #
# #
# $Z set Corps0=1 #
# $Z set NcorpsE=3 #
# $Z set NcorpsP=9 #
# #
# $Z @ Creference = $NcorpsP - $Corps0 #
# $Z @ Creference = $Creference + 1 #
# $Z @ Creference = $Creference + $Corps0 #
# #
# $Z @ NcorpsS = $NcorpsE + $NcorpsP #
# $Z @ Ncorps = $NcorpsS - 1 #
# #
# #
# $Z $DELETE $xT/ROTATION$COORD_X #
# $Z $xci/valeurs_inte$X p=1 d=$Nimages vD=1.50 vA=1.50 cubique=VRAI \ #
# $Z > $xT/ROTATION$COORD_X #
# #
# $Z alias genereP 'set Fl=\!:1 ; set Li=(\!:2*) ; \\ #
# $Z $DELETE $Fl ; \\ #
# $Z echo "$Li" | $SE -e "s/$K_BLANC$K_BLANC*/ /g" | $R "$K_BLANC" "$K_NL" > $Fl ; \\ #
# $Z unset Fl Li' #
# #
# #
# $Z genereP $xT/COORDONNEES$COORD_X \ #
# $Z +514e+8 +213e+8 -203e+8 \ #
# $Z -204e+9 +501e+9 -134e+10 -150e+9 -436e+10 -392e+10 #
# $Z genereP $xT/COORDONNEES$COORD_Y \ #
# $Z +682e+7 +967e+8 +133e+9 \ #
# $Z +126e+9 -519e+9 +341e+9 +259e+10 -115e+10 +307e+10 #
# $Z genereP $xT/COORDONNEES$COORD_Z \ #
# $Z -163e+7 +422e+8 +579e+8 \ #
# $Z +634e+8 -235e+9 +199e+9 +113e+10 -363e+9 +216e+10 #
# $Z genereP $xT/VITESSES$COORD_X \ #
# $Z -1.46e+4 -3.44e+4 -2.99e+4 \ #
# $Z -1.27e+4 +9.67e+3 -3.21e+3 -6.84e+3 +1.42e+3 -2.27e+3 #
# $Z genereP $xT/VITESSES$COORD_Y \ #
# $Z +4.43e+4 +5.39e+3 -3.88e+3 \ #
# $Z -1.64e+4 +8.59e+3 -8.62e+3 -6.50e+2 -4.79e+3 -4.53e+3 #
# $Z genereP $xT/VITESSES$COORD_Z \ #
# $Z +2.52e+4 +4.60e+3 -1.68e+3 \ #
# $Z -7.18e+3 +3.44e+3 -3.42e+3 -1.88e+2 -2.00e+3 -7.39e+2 #
# $Z genereP $xT/MASSES \ #
# $Z +3.3e23 +48.7e23 +60.5e23 \ #
# $Z +6.4e23 +189.9e25 +56.8e25 +8.6e25 +10.3e25 +6.6e21 #
# $Z genereP $xT/RAYONS \ #
# $Z +20e10 +20e10 +20e10 \ #
# $Z +20e10 +30e10 +30e10 +25e10 +25e10 +20e10 #
# $Z genereP $xT/COULEURS$ROUGE \ #
# $Z $GRIS_8 $GRIS_8 $GRIS_0 \ #
# $Z $GRIS_8 $GRIS_8 $GRIS_8 $GRIS_4 $GRIS_0 $GRIS_7 #
# $Z genereP $xT/COULEURS$VERTE \ #
# $Z $GRIS_6 $GRIS_4 $GRIS_6 \ #
# $Z $GRIS_4 $GRIS_6 $GRIS_7 $GRIS_8 $GRIS_7 $GRIS_7 #
# $Z genereP $xT/COULEURS$BLEUE \ #
# $Z $GRIS_2 $GRIS_0 $GRIS_8 \ #
# $Z $GRIS_2 $GRIS_0 $GRIS_0 $GRIS_8 $GRIS_8 $GRIS_8 #
# $Z genereP $xT/MOBILITE \ #
# $Z $EXIST $EXIST $EXIST \ #
# $Z $EXIST $EXIST $EXIST $EXIST $EXIST $EXIST #
# $Z genereP $xT/SOURCE \ #
# $Z $NEXIST $NEXIST $NEXIST \ #
# $Z $NEXIST $NEXIST $NEXIST $NEXIST $NEXIST $NEXIST #
# #
# #
# $Z alias genereE 'set Fl=\!:1 ; set Li=\!:2 ; \\ #
# $Z $xci/valeurs_inte$X p=1 d=$NcorpsE vD=$Li vA=$Li cubique=FAUX >>! $Fl ; \\ #
# $Z unset Fl Li' #
# #
# #
# $Z set RayonTE=+2e8 #
# $Z @ NcorpsEi = $NcorpsE + 1 #
# #
# $Z $xci/valeurs_trig$X p=$Corps0 d=$NcorpsEi \ #
# $Z rD=$RayonTE rA=$RayonTE \ #
# $Z aD=0 aA=$dpi \ #
# $Z alpha=1 beta=0 gamma=0 translation=0 \ #
# $Z cubique=FAUX | \ #
# $Z $HEA -$NcorpsE \ #
# $Z >>! $xT/COORDONNEES$COORD_X #
# $Z $xci/valeurs_trig$X p=$Corps0 d=$NcorpsEi \ #
# $Z rD=$RayonTE rA=$RayonTE \ #
# $Z aD=0 aA=$dpi \ #
# $Z alpha=0 beta=1 gamma=0 translation=0 \ #
# $Z cubique=FAUX | \ #
# $Z $HEA -$NcorpsE \ #
# $Z >>! $xT/COORDONNEES$COORD_Z #
# #
# $Z genereE $xT/COORDONNEES$COORD_Y +1e3 #
# $Z genereE $xT/VITESSES$COORD_X 0 #
# $Z genereE $xT/VITESSES$COORD_Y 0 #
# $Z genereE $xT/VITESSES$COORD_Z 0 #
# $Z genereE $xT/MASSES +2.0e30 #
# $Z genereE $xT/RAYONS +20e10 #
# $Z genereE $xT/COULEURS$ROUGE $GRIS_8 #
# $Z genereE $xT/COULEURS$VERTE $GRIS_8 #
# $Z genereE $xT/COULEURS$BLEUE $GRIS_0 #
# $Z genereE $xT/MOBILITE $NEXIST #
# $Z genereE $xT/SOURCE $EXIST #
# #
# #
# $Z Pal #
# #
# $Z $xrr/N_corps.11$X corps=$NcorpsS \ #
# $Z np=$Nimages \ #
# $Z LISTE_X=$xT/COORDONNEES$COORD_X \ #
# $Z LISTE_Y=$xT/COORDONNEES$COORD_Y \ #
# $Z LISTE_Z=$xT/COORDONNEES$COORD_Z \ #
# $Z LISTE_VX=$xT/VITESSES$COORD_X \ #
# $Z LISTE_VY=$xT/VITESSES$COORD_Y \ #
# $Z LISTE_VZ=$xT/VITESSES$COORD_Z \ #
# $Z LISTE_MASSE=$xT/MASSES \ #
# $Z LISTE_RAYON=$xT/RAYONS \ #
# $Z LISTE_ROUGE=$xT/COULEURS$ROUGE \ #
# $Z LISTE_VERTE=$xT/COULEURS$VERTE \ #
# $Z LISTE_BLEUE=$xT/COULEURS$BLEUE \ #
# $Z LISTE_MOBILITE=$xT/MOBILITE \ #
# $Z LISTE_SOURCE=$xT/SOURCE \ #
# $Z centrer=FAUX reference=$Creference \ #
# $Z extension=5 \ #
# $Z dct=15000 \ #
# $Z 2_a_2=VRAI \ #
# $Z nombre=250 \ #
# $Z ensemble=VRAI \ #
# $Z acceptable=0.5 \ #
# $Z Ranterieurs=0.5 \ #
# $Z Canterieurs=0.8 \ #
# $Z trainees=FAUX \ #
# $Z attenuation_des_images=1.0 \ #
# $Z attenuation_des_trainees=0.997 \ #
# $Z mode_des_trainees=1 \ #
# $Z renormaliser=FAUX \ #
# $Z lineaire=FAUX exposant=0.4 \ #
# $Z Lz=1.0e13 \ #
# $Z TRANSLATION_OX=0 \ #
# $Z TRANSLATION_OY=0 \ #
# $Z ZOOM=0.90 \ #
# $Z ROTATION_OX=$xT/ROTATION$COORD_X \ #
# $Z fond=FAUX \ #
# $Z R=$xiim/NCOR.1. \ #
# $Z $formatI #
# #
# $Z $DELETE $xT/COORDONNEES$COORD_X #
# $Z $DELETE $xT/COORDONNEES$COORD_Y #
# $Z $DELETE $xT/COORDONNEES$COORD_Z #
# $Z $DELETE $xT/VITESSES$COORD_X #
# $Z $DELETE $xT/VITESSES$COORD_Y #
# $Z $DELETE $xT/VITESSES$COORD_Z #
# $Z $DELETE $xT/MASSES #
# $Z $DELETE $xT/RAYONS #
# $Z $DELETE $xT/COULEURS$ROUGE #
# $Z $DELETE $xT/COULEURS$VERTE #
# $Z $DELETE $xT/COULEURS$BLEUE #
# $Z $DELETE $xT/MOBILITE #
# $Z $DELETE $xT/SOURCE #
# #
# $Z $DELETE $xT/ROTATION$COORD_X #
# #
# #
# $Z Pal #
# #
# $Z $xci/reduction_16$Z $xiim/NCOR.1. $xiak/NCOR.c1 $Premiere $Derniere #
# $Z $xci/reduction_64$Z $xiim/NCOR.1. $xiak/NCOR.c1 $Premiere $Derniere #
# #
# $X $xci/genere$X c='ro $xiak/NCOR.c1$R16%s' RVB=VRAI #
# $X $xci/genere$X c='ro $xiak/NCOR.c1$R64%s' RVB=VRAI #
# #
# $X $xci/genere$X c='$xcg/unite$Z $xiak/NCOR.c1$R16%s' RVB=VRAI #
# $X $xci/genere$X c='$xcg/unite$Z $xiak/NCOR.c1$R64%s' RVB=VRAI #
# #
# $X $xci/genere$X c='$CP $xiim/NCOR.1.0512%s $xiirk/NCOR.c1.0512%s' RVB=VRAI #
# #
# $X $xci/genere$X c='ro $xiirk/NCOR.c1.0512%s' RVB=VRAI #
# #
# $X $xci/genere$X c='$xcg/unite$Z $xiirk/NCOR.c1.0512%s' RVB=VRAI #
# #
# #
# Pal #
# #
# $xci/disk_video_P$Z $xiim_LACT29/NCOR.1. 0001 0512 RVB \ #
# 11 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
# #
# xivPdf 3 2 #
# #
# record.01$Z $xiak/NCOR.c1$R16 RVB Initialisation #
# record.01$Z $xiak/NCOR.c1$R64 RVB rien #
# #
# record.01$Z $xiirk/NCOR.c1.0512 RVB rien #
# #
sequence 015873_016384
# Generee (sur '$LACT29') par : #
# #
# $Z SET Premiere=1 #
# $Z SET Derniere=512 #
# $Z @ Nimages = $Derniere - $Premiere #
# $Z @ Nimages = $Nimages + 1 #
# #
# #
# $Z Pal #
# #
# $Z set PUnivers="np=0 CAL1=FAUX editer_l_univers_physique=VRAI" #
# $Z set Univers=`$xrk/rdn_walk.41$X $PUnivers $formatI` #
# #
# $Z set MinX=`echo $Univers | $SE -e "s/^.*[(,]XUI=//" -e "s/[,)].*//"` #
# $Z set MaxX=`echo $Univers | $SE -e "s/^.*[(,]XUS=//" -e "s/[,)].*//"` #
# $Z set MinY=`echo $Univers | $SE -e "s/^.*[(,]YUI=//" -e "s/[,)].*//"` #
# $Z set MaxY=`echo $Univers | $SE -e "s/^.*[(,]YUS=//" -e "s/[,)].*//"` #
# #
# $Z set MinX=`$xcg/ABSO.01$X x=$MinX` #
# $Z set MaxX=`$xcg/ABSO.01$X x=$MaxX` #
# $Z set MinY=`$xcg/ABSO.01$X x=$MinY` #
# $Z set MaxY=`$xcg/ABSO.01$X x=$MaxY` #
# #
# $Z set MaxX=`$xcg/MAX2.01$X n1=$MinX n2=$MaxX` #
# $Z set MaxY=`$xcg/MAX2.01$X n1=$MinY n2=$MaxY` #
# #
# $Z set SeuilPartN=0.000090 #
# $Z set GrainePartN=2 #
# #
# $Z $DELETE $xTV/BOITE.1 #
# $Z $DELETE $xTV/BOITE.2 #
# $Z $DELETE $xTV/BOITE.3 #
# $Z $DELETE $xTV/BOITE.3$ROUGE #
# $Z $DELETE $xTV/BOITE.3$VERTE #
# $Z $DELETE $xTV/BOITE.3$BLEUE #
# $Z $DELETE $xTV/BOITE.4 #
# $Z $DELETE $xTV/BOITE.5 #
# $Z $DELETE $xTV/BOITE.6 #
# $Z $DELETE $xTV/BOITE.7 #
# $Z $DELETE $xTV/BOITE.8 #
# $Z $DELETE $xTV/BOITE.9 #
# $Z $DELETE $xTV/BOITE.A #
# $Z $DELETE $xTV/BOITE.B #
# #
# #
# $Z Std #
# #
# $Z set FacXY=0.90 #
# $Z set SeuilBOITE=`$xcg/SOUS.01$X a=1 b=$FacXY` #
# $Z set SeuilBOITE=`$xcg/MUL2.01$X a=$SeuilBOITE b=$GRIS_8` #
# $Z set SeuilBOITE=`$xci/valeurs_inte$X p=1 d=1 vD=$SeuilBOITE entiers=VRAI` #
# $Z set SeuilBOITE=`$xcg/MIN2.01$X a=$SeuilBOITE b=$GRIS_1` #
# #
# $Z set GTransX=`$xcg/SOUS.01$X a=1 b=$FacXY` #
# $Z set GTransX=`$xcg/MOIT.01$X a=$GTransX signe="$K_VIDE"` #
# $Z set DTransX=`$xcg/MOIT.01$X a=1` #
# $Z set DTransX=`$xcg/ADD2.01$X a=$DTransX b=$GTransX signe="$K_VIDE"` #
# #
# #
# $Z set LBande=10 #
# $Z set BandeS=`$xcg/ADD2.01$X a=$GRIS_4 b=$LBande` #
# $Z set BandeI=`$xcg/SOUS.01$X a=$GRIS_4 b=$LBande` #
# #
# $Z $xci/complement$X \ #
# $Z A=$xiio/SPIRALE \ #
# $Z $formatI | \ #
# $Z $xci/seuil$X \ #
# $Z seuil=$SeuilBOITE \ #
# $Z R=$xTV/BOITE.4 \ #
# $Z $formatI #
# #
# $Z $xci/move$X \ #
# $Z A=$xTV/BOITE.4 \ #
# $Z xR=+$DTransX \ #
# $Z $formatI | \ #
# $Z $xci/move$X \ #
# $Z xR=-$GTransX \ #
# $Z $formatI | \ #
# $Z $xci/dilate.01$X \ #
# $Z points=9 \ #
# $Z dilater=VRAI \ #
# $Z R=$xTV/BOITE.5 \ #
# $Z $formatI #
# $Z $xci/Sy$X \ #
# $Z A=$xTV/BOITE.5 \ #
# $Z R=$xTV/BOITE.6 \ #
# $Z $formatI #
# #
# $Z $xci/passe_bande$X \ #
# $Z A=$xiio/MIRE \ #
# $Z inf=$BandeI \ #
# $Z sup=$BandeS \ #
# $Z $formatI | \ #
# $Z $xci/seuil$X \ #
# $Z $formatI | \ #
# $Z $xci/transpose$X \ #
# $Z $formatI | \ #
# $Z $xci/and$X \ #
# $Z A1=$xTV/BOITE.4 \ #
# $Z R=$xTV/BOITE.7 \ #
# $Z $formatI #
# #
# $Z $xci/or_02$X \ #
# $Z A1=$xTV/BOITE.5 \ #
# $Z A2=$xTV/BOITE.6 \ #
# $Z $formatI | \ #
# $Z $xci/or_02$X \ #
# $Z A2=$xTV/BOITE.7 \ #
# $Z R=$xTV/BOITE.8 \ #
# $Z $formatI #
# #
# $Z S #
# #
# $Z $xci/format.01$X mode=0 \ #
# $Z A=$xTV/BOITE.8 \ #
# $Z $formatI \ #
# $Z R=$xTV/BOITE.1 \ #
# $Z $formatR_Pal #
# #
# $Z $xci/dilate.01$X \ #
# $Z A=$xTV/BOITE.5 \ #
# $Z points=225 \ #
# $Z dilater=FAUX \ #
# $Z R=$xTV/BOITE.A \ #
# $Z $formatI #
# #
# $Z $xci/random.02$X \ #
# $Z seuil=$SeuilPartN \ #
# $Z graine=$GrainePartN \ #
# $Z $formatI | \ #
# $Z $xci/and$X \ #
# $Z A2=$xTV/BOITE.A \ #
# $Z R=$xTV/BOITE.B \ #
# $Z $formatI #
# #
# $Z $DELETE $xTV/COORDONNEES #
# $Z $DELETE $xTV/COORDONNEES_01$COORD_X #
# $Z $DELETE $xTV/COORDONNEES_01$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_X #
# $Z $DELETE $xTV/COORDONNEES$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_Z #
# #
# $Z $xci/liste_points$X \ #
# $Z A=$xTV/BOITE.B \ #
# $Z $formatI \ #
# $Z > $xTV/COORDONNEES #
# #
# $Z $DELETE $xTV/BOITE.4 #
# $Z $DELETE $xTV/BOITE.5 #
# $Z $DELETE $xTV/BOITE.6 #
# $Z $DELETE $xTV/BOITE.7 #
# $Z $DELETE $xTV/BOITE.8 #
# $Z $DELETE $xTV/BOITE.9 #
# $Z $DELETE $xTV/BOITE.A #
# $Z $DELETE $xTV/BOITE.B #
# #
# $Z set PartN=`$TAI -1 $xTV/COORDONNEES | $SE -e "s/^.*=//"` #
# #
# $Z $CA $xTV/COORDONNEES \ #
# $Z | $GRE "^[Xx]=" \ #
# $Z | $SE -e "s/^[Xx]=//" \ #
# $Z > $xTV/COORDONNEES_01$COORD_X #
# $Z $CA $xTV/COORDONNEES \ #
# $Z | $GRE "^[Yy]=" \ #
# $Z | $SE -e "s/^[Yy]=//" \ #
# $Z > $xTV/COORDONNEES_01$COORD_Y #
# #
# $Z set EchelleX=`$xcg/MUL2.01$X n1=2 n2=$MaxX` #
# $Z set TranslationX=`$xcg/MUL2.01$X n1=-1 n2=$MaxX` #
# $Z set EchelleY=`$xcg/MUL2.01$X n1=2 n2=$MaxY` #
# $Z set TranslationY=`$xcg/MUL2.01$X n1=-1 n2=$MaxY` #
# #
# $Z $xrv/AXPB.01$X \ #
# $Z CAL1=FAUX \ #
# $Z ne=$PartN \ #
# $Z fichier=$xTV/COORDONNEES_01$COORD_X \ #
# $Z homothetie=$EchelleX translation=$TranslationX \ #
# $Z > $xTV/COORDONNEES$COORD_X #
# $Z $xrv/AXPB.01$X \ #
# $Z CAL1=FAUX \ #
# $Z ne=$PartN \ #
# $Z fichier=$xTV/COORDONNEES_01$COORD_Y \ #
# $Z homothetie=$EchelleY translation=$TranslationY \ #
# $Z > $xTV/COORDONNEES$COORD_Y #
# #
# $Z $DELETE $xTV/COORDONNEES_01$COORD_X #
# $Z $DELETE $xTV/COORDONNEES_01$COORD_Y #
# #
# $Z set Part0=1 #
# $Z @ Npart = $PartN - $Part0 #
# $Z @ Npart = $Npart + 1 #
# #
# $Z $DELETE $xTV/MODULE #
# $Z $DELETE $xTV/THETA #
# $Z $DELETE $xTV/XY_RT.1 #
# $Z $DELETE $xTV/XY_RT.2 #
# $Z $DELETE $xTV/VITESSES #
# $Z $DELETE $xTV/VITESSES$COORD_X #
# $Z $DELETE $xTV/VITESSES$COORD_Y #
# $Z $DELETE $xTV/VITESSES$COORD_Z #
# $Z $DELETE $xTV/mdRHO #
# $Z $DELETE $xTV/MdRHO #
# $Z $DELETE $xTV/mnPHI #
# $Z $DELETE $xTV/MnPHI #
# $Z $DELETE $xTV/dPHI #
# $Z $DELETE $xTV/mnTHETA #
# $Z $DELETE $xTV/MnTHETA #
# $Z $DELETE $xTV/dTHETA #
# $Z $DELETE $xTV/supOUVE #
# $Z $DELETE $xTV/DISTANCE #
# $Z $DELETE $xTV/STABILITE #
# $Z $DELETE $xTV/RAYONS #
# $Z $DELETE $xTV/INTERACTIONS #
# #
# #
# $Z alias Gen 'set Fi=\!:1 ; set vD=\!:2 ; set vA=\!:3 ; set ArG=(\!:4*) ; \\ #
# $Z $DELETE $Fi ; \\ #
# $Z $xci/valeurs_inte$X p=$Part0 d=$PartN vD=$vD vA=$vA $ArG > $Fi ; \\ #
# $Z unset Fi vD vA ArG' #
# #
# $Z alias GenR 'set Fi=\!:1 ; set In=\!:2 ; set Su=\!:3 ; set ArG=(\!:4*) ; \\ #
# $Z $DELETE $Fi ; \\ #
# $Z $xci/valeurs_alea$X p=$Part0 d=$PartN signe="$KV" inf=$In sup=$Su $ArG > $Fi ; \\ #
# $Z unset Fi In Su ArG' #
# #
# $Z Gen $xTV/COORDONNEES$COORD_Z 0.0 0.0 #
# #
# #
# $Z Gen $xTV/MODULE 0.02 0.02 #
# $Z GenR $xTV/THETA 0.0 $dpi g=3333 #
# #
# $Z $CA $xcs/csh$Y \ #
# $Z > $xTV/XY_RT.1 #
# $Z $PAST $xTV/MODULE $xTV/THETA \ #
# $Z | $R "$K_TAB" "$K_BLANC" \ #
# $Z | $AW ' { print "$xcg/XY_RT$X r=" $1 " t=" $2 " cartesien=FAUX" } ' \ #
# $Z >>! $xTV/XY_RT.1 #
# #
# $Z (source $xTV/XY_RT.1) \ #
# $Z > $xTV/XY_RT.2 #
# #
# $Z $CA $xTV/XY_RT.2 \ #
# $Z | $GRE "^x=" \ #
# $Z | $SE -e "s/^x=//" \ #
# $Z > $xTV/VITESSES$COORD_X #
# $Z $CA $xTV/XY_RT.2 \ #
# $Z | $GRE "^y=" \ #
# $Z | $SE -e "s/^y=//" \ #
# $Z > $xTV/VITESSES$COORD_Y #
# #
# $Z Gen $xTV/VITESSES$COORD_Z 0.0 0.0 #
# #
# $Z Gen $xTV/mdRHO 0.0 0.0 #
# $Z Gen $xTV/MdRHO 0.0 0.0 #
# $Z Gen $xTV/mnPHI 0.0 0.0 #
# $Z Gen $xTV/MnPHI 0.0 0.0 #
# $Z Gen $xTV/dPHI 0.0 0.0 #
# $Z Gen $xTV/mnTHETA 0.0 0.0 #
# $Z Gen $xTV/MnTHETA 0.0 0.0 #
# $Z Gen $xTV/dTHETA 0.0 0.0 #
# $Z Gen $xTV/DISTANCE 1000000 1000000 #
# $Z Gen $xTV/STABILITE 1000000 1000000 #
# #
# $Z set RayonsT=0.014 #
# $Z set RayonsP=`$xcg/MUL2.01$X a=2 b=$RayonsT` #
# $Z set DistanceI=`$xcg/MUL2.01$X a=4 b=$RayonsP` #
# $Z Gen $xTV/RAYONS $RayonsT $RayonsT #
# $Z Gen $xTV/INTERACTIONS $RayonsP $RayonsP #
# #
# $Z $DELETE $xTV/COULEURS$TEINT #
# $Z $DELETE $xTV/COULEURS$LUMIN #
# $Z $DELETE $xTV/COULEURS$SATUR #
# $Z $DELETE $xTV/COULEURS$Y #
# $Z $DELETE $xTV/COULEURS #
# $Z $DELETE $xTV/COULEURS$ROUGE #
# $Z $DELETE $xTV/COULEURS$VERTE #
# $Z $DELETE $xTV/COULEURS$BLEUE #
# #
# $Z @ TeinteMagenta = $GRIS_7 #
# $Z @ TeinteCyan = $GRIS_4 + $GRIS_8 #
# #
# $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartN \ #
# $Z vD=$TeinteMagenta vA=$TeinteCyan \ #
# $Z cubique=FAUX \ #
# $Z entiers=VRAI \ #
# $Z > $xTV/COULEURS$TEINT #
# $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartN \ #
# $Z vD=$GRIS_4 vA=$GRIS_4 \ #
# $Z cubique=FAUX \ #
# $Z entiers=VRAI \ #
# $Z > $xTV/COULEURS$LUMIN #
# $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartN \ #
# $Z vD=$GRIS_8 vA=$GRIS_8 \ #
# $Z cubique=FAUX \ #
# $Z entiers=VRAI \ #
# $Z > $xTV/COULEURS$SATUR #
# #
# $Z $PAST \ #
# $Z $xTV/COULEURS$TEINT \ #
# $Z $xTV/COULEURS$LUMIN \ #
# $Z $xTV/COULEURS$SATUR \ #
# $Z | $R "$K_TAB" "$K_BLANC" \ #
# $Z | $AW ' { print "H=" $1 " L=" $2 " S=" $3 } ' \ #
# $Z | $SE -e 's+^+$xcg/RVB_HLS$X RVB_HLS=FAUX +' \ #
# $Z | $SE -e 's/$/ eR=VRAI eV=VRAI eB=VRAI/' \ #
# $Z | $SE -e 's/$/ eH=FAUX eL=FAUX eS=FAUX/' \ #
# $Z > $xTV/COULEURS$Y #
# #
# $Z (source $xTV/COULEURS$Y) \ #
# $Z > $xTV/COULEURS #
# #
# $Z $GRE "^R=" $xTV/COULEURS \ #
# $Z | $SE -e "s/^R=//" \ #
# $Z > $xTV/COULEURS$ROUGE #
# $Z $GRE "^V=" $xTV/COULEURS \ #
# $Z | $SE -e "s/^V=//" \ #
# $Z > $xTV/COULEURS$VERTE #
# $Z $GRE "^B=" $xTV/COULEURS \ #
# $Z | $SE -e "s/^B=//" \ #
# $Z > $xTV/COULEURS$BLEUE #
# #
# $Z Pal #
# #
# #
# $Z $xci/scale$X \ #
# $Z A=$xTV/BOITE.1 \ #
# $Z a=1.00 \ #
# $Z R=$xTV/BOITE.2 \ #
# $Z $formatI #
# #
# $Z $xrk/rdn_walk.41$X corps=$Npart \ #
# $Z np=$Nimages \ #
# $Z collisions=VRAI DLA=FAUX interaction=$DistanceI \ #
# $Z LISTE_X=$xTV/COORDONNEES$COORD_X \ #
# $Z LISTE_Y=$xTV/COORDONNEES$COORD_Y \ #
# $Z LISTE_Z=$xTV/COORDONNEES$COORD_Z \ #
# $Z LISTE_VX=$xTV/VITESSES$COORD_X \ #
# $Z LISTE_VY=$xTV/VITESSES$COORD_Y \ #
# $Z LISTE_VZ=$xTV/VITESSES$COORD_Z \ #
# $Z LISTE_MINIMUM_DELTA_RHO=$xTV/mdRHO \ #
# $Z LISTE_MAXIMUM_DELTA_RHO=$xTV/MdRHO \ #
# $Z LISTE_MINIMUM_N_PHI=$xTV/mnPHI \ #
# $Z LISTE_MAXIMUM_N_PHI=$xTV/MnPHI \ #
# $Z LISTE_DELTA_PHI=$xTV/dPHI \ #
# $Z LISTE_MINIMUM_N_THETA=$xTV/mnTHETA \ #
# $Z LISTE_MAXIMUM_N_THETA=$xTV/MnTHETA \ #
# $Z LISTE_DELTA_THETA=$xTV/dTHETA \ #
# $Z LISTE_DISTANCE_MAXIMALE=$xTV/DISTANCE \ #
# $Z LISTE_STABILITE=$xTV/STABILITE \ #
# $Z LISTE_RAYON=$xTV/RAYONS \ #
# $Z LISTE_RAYON_D_INTERACTION=$xTV/INTERACTIONS \ #
# $Z LISTE_ROUGE=$xTV/COULEURS$ROUGE \ #
# $Z LISTE_VERTE=$xTV/COULEURS$VERTE \ #
# $Z LISTE_BLEUE=$xTV/COULEURS$BLEUE \ #
# $Z milieu=VRAI \ #
# $Z reflexion=VRAI refraction=FAUX \ #
# $Z Mhors=$BLANC \ #
# $Z MNpasX=1 Mprolonger_X=VRAI \ #
# $Z MNpasY=1 Mprolonger_Y=VRAI \ #
# $Z MNpasZ=1 Mprolonger_Z=VRAI \ #
# $Z adapter_M_nPAS=VRAI \ #
# $Z Msimplifier=FAUX affiner_M_maillage=FAUX \ #
# $Z MC=$xTV/BOITE.2 \ #
# $Z MChiffres=0 \ #
# $Z Zmin=0 Zmax=15 \ #
# $Z centrer=VRAI \ #
# $Z dct=0.05 nombre=10 \ #
# $Z trainees=VRAI mode=1 \ #
# $Z attenuation_des_images=0.6 \ #
# $Z attenuation_des_trainees=1.00 \ #
# $Z renormaliser=FAUX \ #
# $Z Lz=100 \ #
# $Z zoom_automatique=VRAI \ #
# $Z centre_de_gravite=FAUX \ #
# $Z fond=FAUX \ #
# $Z R=$xiim/REFL.W. \ #
# $Z $formatI #
# #
# $Z $DELETE $xTV/RAYONS #
# $Z $CP $xTV/INTERACTIONS $xTV/RAYONS #
# #
# $Z $DELETE $xTV/GRAVITE #
# $Z $xrk/rdn_walk.41$X corps=$Npart \ #
# $Z np=$Nimages \ #
# $Z collisions=VRAI DLA=FAUX interaction=$DistanceI \ #
# $Z LISTE_X=$xTV/COORDONNEES$COORD_X \ #
# $Z LISTE_Y=$xTV/COORDONNEES$COORD_Y \ #
# $Z LISTE_Z=$xTV/COORDONNEES$COORD_Z \ #
# $Z LISTE_VX=$xTV/VITESSES$COORD_X \ #
# $Z LISTE_VY=$xTV/VITESSES$COORD_Y \ #
# $Z LISTE_VZ=$xTV/VITESSES$COORD_Z \ #
# $Z LISTE_MINIMUM_DELTA_RHO=$xTV/mdRHO \ #
# $Z LISTE_MAXIMUM_DELTA_RHO=$xTV/MdRHO \ #
# $Z LISTE_MINIMUM_N_PHI=$xTV/mnPHI \ #
# $Z LISTE_MAXIMUM_N_PHI=$xTV/MnPHI \ #
# $Z LISTE_DELTA_PHI=$xTV/dPHI \ #
# $Z LISTE_MINIMUM_N_THETA=$xTV/mnTHETA \ #
# $Z LISTE_MAXIMUM_N_THETA=$xTV/MnTHETA \ #
# $Z LISTE_DELTA_THETA=$xTV/dTHETA \ #
# $Z LISTE_DISTANCE_MAXIMALE=$xTV/DISTANCE \ #
# $Z LISTE_STABILITE=$xTV/STABILITE \ #
# $Z LISTE_RAYON=$xTV/RAYONS \ #
# $Z LISTE_RAYON_D_INTERACTION=$xTV/INTERACTIONS \ #
# $Z LISTE_ROUGE=$xTV/COULEURS$ROUGE \ #
# $Z LISTE_VERTE=$xTV/COULEURS$VERTE \ #
# $Z LISTE_BLEUE=$xTV/COULEURS$BLEUE \ #
# $Z milieu=VRAI \ #
# $Z reflexion=VRAI refraction=FAUX \ #
# $Z Mhors=$BLANC \ #
# $Z MNpasX=1 Mprolonger_X=VRAI \ #
# $Z MNpasY=1 Mprolonger_Y=VRAI \ #
# $Z MNpasZ=1 Mprolonger_Z=VRAI \ #
# $Z adapter_M_nPAS=VRAI \ #
# $Z Msimplifier=FAUX affiner_M_maillage=FAUX \ #
# $Z MC=$xTV/BOITE.2 \ #
# $Z MChiffres=0 \ #
# $Z Zmin=0 Zmax=15 \ #
# $Z centrer=VRAI \ #
# $Z dct=0.05 nombre=10 \ #
# $Z trainees=VRAI mode=1 \ #
# $Z attenuation_des_images=1.0 \ #
# $Z attenuation_des_trainees=0.80 \ #
# $Z renormaliser=FAUX \ #
# $Z Lz=100 \ #
# $Z zoom_automatique=VRAI \ #
# $Z centre_de_gravite=VRAI \ #
# $Z fond=VRAI \ #
# $Z dynamique=VRAI \ #
# $Z F=$xiim/REFL.W. \ #
# $Z R=$xiim/REFL.W. \ #
# $Z $formatI | \ #
# $Z $GRE " CENTRE_DE_GRAVITE=" \ #
# $Z > $xTV/GRAVITE #
# #
# $Z $DELETE $xTV/COORDONNEES #
# $Z $DELETE $xTV/COORDONNEES$COORD_X #
# $Z $DELETE $xTV/COORDONNEES$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_Z #
# $Z $DELETE $xTV/VITESSES #
# $Z $DELETE $xTV/VITESSES$COORD_X #
# $Z $DELETE $xTV/VITESSES$COORD_Y #
# $Z $DELETE $xTV/VITESSES$COORD_Z #
# $Z $DELETE $xTV/mdRHO #
# $Z $DELETE $xTV/MdRHO #
# $Z $DELETE $xTV/mnPHI #
# $Z $DELETE $xTV/MnPHI #
# $Z $DELETE $xTV/dPHI #
# $Z $DELETE $xTV/mnTHETA #
# $Z $DELETE $xTV/MnTHETA #
# $Z $DELETE $xTV/dTHETA #
# $Z $DELETE $xTV/DISTANCE #
# $Z $DELETE $xTV/STABILITE #
# $Z $DELETE $xTV/RAYONS #
# $Z $DELETE $xTV/INTERACTIONS #
# $Z $DELETE $xTV/COULEURS$TEINT #
# $Z $DELETE $xTV/COULEURS$LUMIN #
# $Z $DELETE $xTV/COULEURS$SATUR #
# $Z $DELETE $xTV/COULEURS$Y #
# $Z $DELETE $xTV/COULEURS #
# $Z $DELETE $xTV/COULEURS$ROUGE #
# $Z $DELETE $xTV/COULEURS$VERTE #
# $Z $DELETE $xTV/COULEURS$BLEUE #
# #
# $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("$DELETE $xTV/COORDONNEES\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_X\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_Y\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_Z\n"); #
# #
# $c printf("$DELETE $xTV/COULEURS$ROUGE\n"); #
# $c printf("$DELETE $xTV/COULEURS$VERTE\n"); #
# $c printf("$DELETE $xTV/COULEURS$BLEUE\n"); #
# #
# $c printf("listMN $xTV/GRAVITE #
# $c %d %d #
# $c > $xTV/COORDONNEES\n" #
# $c ,N0,n #
# $c ); #
# #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*[(,]XG=//%c #
# $c -e %cs/[,)].*//%c #
# $c > $xTV/COORDONNEES$COORD_X\n" #
# $c ,'"','"','"','"' #
# $c ); #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*[(,]YG=//%c #
# $c -e %cs/[,)].*//%c #
# $c > $xTV/COORDONNEES$COORD_Y\n" #
# $c ,'"','"','"','"' #
# $c ); #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*[(,]ZG=//%c #
# $c -e %cs/[,)].*//%c #
# $c > $xTV/COORDONNEES$COORD_Z\n" #
# $c ,'"','"','"','"' #
# $c ); #
# #
# $c printf("$xci/valeurs_inte$X #
# $c premiere=%d derniere=%d #
# $c vD=$GRIS_5 vA=$GRIS_5 #
# $c cubique=FAUX #
# $c entiers=VRAI #
# $c utiliser_la_valeur_de_depart=FAUX #
# $c > $xTV/COULEURS$ROUGE\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/valeurs_inte$X #
# $c premiere=%d derniere=%d #
# $c vD=$GRIS_5 vA=$GRIS_5 #
# $c cubique=FAUX #
# $c entiers=VRAI #
# $c utiliser_la_valeur_de_depart=FAUX #
# $c > $xTV/COULEURS$VERTE\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/valeurs_inte$X #
# $c premiere=%d derniere=%d #
# $c vD=$GRIS_5 vA=$GRIS_5 #
# $c cubique=FAUX #
# $c entiers=VRAI #
# $c utiliser_la_valeur_de_depart=FAUX #
# $c > $xTV/COULEURS$BLEUE\n" #
# $c ,N0,n #
# $c ); #
# #
# $c printf("$xrv/particule.10$X #
# $c np=1 #
# $c iterations=%d #
# $c LISTE_X=$xTV/COORDONNEES$COORD_X #
# $c LISTE_Y=$xTV/COORDONNEES$COORD_Y #
# $c LISTE_Z=$xTV/COORDONNEES$COORD_Z #
# $c LISTE_ROUGE=$xTV/COULEURS$ROUGE #
# $c LISTE_VERTE=$xTV/COULEURS$VERTE #
# $c LISTE_BLEUE=$xTV/COULEURS$BLEUE #
# $c LISTE_RAYON=0.006 #
# $c zoom_automatique=FAUX ZOOM=1.0 #
# $c coordonnees_dans_0_1=FAUX #
# $c AXYZ=1 BXYZ=0 #
# $c fond=VRAI #
# $c fond_dynamique=FAUX #
# $c F=$xiim/REFL.W.%04d #
# $c R=$xTV/REFL.A. #
# $c $formatI\n" #
# $c ,(n-N0)+1,n #
# $c ); #
# #
# $c printf("$xci/acces$X #
# $c A=$xTV/REFL.A.%04d$ROUGE #
# $c R=$xiim/REFL.W.%04d$ROUGE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xTV/REFL.A.%04d$VERTE #
# $c R=$xiim/REFL.W.%04d$VERTE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xTV/REFL.A.%04d$BLEUE #
# $c R=$xiim/REFL.W.%04d$BLEUE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# #
# $c printf("$DELETE $xTV/COORDONNEES\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_X\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_Y\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_Z\n"); #
# #
# $c printf("$DELETE $xTV/COULEURS$ROUGE\n"); #
# $c printf("$DELETE $xTV/COULEURS$VERTE\n"); #
# $c printf("$DELETE $xTV/COULEURS$BLEUE\n"); #
# #
# $c printf("listMN $xTV/GRAVITE #
# $c %d %d #
# $c > $xTV/COORDONNEES\n" #
# $c ,n,n #
# $c ); #
# #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*[(,]XG=//%c #
# $c -e %cs/[,)].*//%c #
# $c > $xTV/COORDONNEES$COORD_X\n" #
# $c ,'"','"','"','"' #
# $c ); #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*[(,]YG=//%c #
# $c -e %cs/[,)].*//%c #
# $c > $xTV/COORDONNEES$COORD_Y\n" #
# $c ,'"','"','"','"' #
# $c ); #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*[(,]ZG=//%c #
# $c -e %cs/[,)].*//%c #
# $c > $xTV/COORDONNEES$COORD_Z\n" #
# $c ,'"','"','"','"' #
# $c ); #
# #
# $c printf("$xci/valeurs_inte$X #
# $c premiere=%d derniere=%d #
# $c vD=$GRIS_8 vA=$GRIS_8 #
# $c cubique=FAUX #
# $c entiers=VRAI #
# $c utiliser_la_valeur_de_depart=FAUX #
# $c > $xTV/COULEURS$ROUGE\n" #
# $c ,n,n #
# $c ); #
# $c printf("$xci/valeurs_inte$X #
# $c premiere=%d derniere=%d #
# $c vD=$GRIS_8 vA=$GRIS_8 #
# $c cubique=FAUX #
# $c entiers=VRAI #
# $c utiliser_la_valeur_de_depart=FAUX #
# $c > $xTV/COULEURS$VERTE\n" #
# $c ,n,n #
# $c ); #
# $c printf("$xci/valeurs_inte$X #
# $c premiere=%d derniere=%d #
# $c vD=$GRIS_8 vA=$GRIS_8 #
# $c cubique=FAUX #
# $c entiers=VRAI #
# $c utiliser_la_valeur_de_depart=FAUX #
# $c > $xTV/COULEURS$BLEUE\n" #
# $c ,n,n #
# $c ); #
# #
# $c printf("$xrv/particule.10$X #
# $c np=1 #
# $c iterations=%d #
# $c LISTE_X=$xTV/COORDONNEES$COORD_X #
# $c LISTE_Y=$xTV/COORDONNEES$COORD_Y #
# $c LISTE_Z=$xTV/COORDONNEES$COORD_Z #
# $c LISTE_ROUGE=$xTV/COULEURS$ROUGE #
# $c LISTE_VERTE=$xTV/COULEURS$VERTE #
# $c LISTE_BLEUE=$xTV/COULEURS$BLEUE #
# $c LISTE_RAYON=0.012 #
# $c zoom_automatique=FAUX ZOOM=1.0 #
# $c coordonnees_dans_0_1=FAUX #
# $c AXYZ=1 BXYZ=0 #
# $c fond=VRAI #
# $c fond_dynamique=FAUX #
# $c F=$xiim/REFL.W.%04d #
# $c R=$xTV/REFL.B. #
# $c $formatI\n" #
# $c ,(n-n)+1,n #
# $c ); #
# #
# $c printf("$xci/acces$X #
# $c A=$xTV/REFL.B.%04d$ROUGE #
# $c R=$xiim/REFL.W.%04d$ROUGE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xTV/REFL.B.%04d$VERTE #
# $c R=$xiim/REFL.W.%04d$VERTE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xTV/REFL.B.%04d$BLEUE #
# $c R=$xiim/REFL.W.%04d$BLEUE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# $c } #
# $c } #
# #
# #
# $Z $DELETE $xTV/COORDONNEES #
# $Z $DELETE $xTV/COORDONNEES$COORD_X #
# $Z $DELETE $xTV/COORDONNEES$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_Z #
# $Z $DELETE $xTV/COULEURS$ROUGE #
# $Z $DELETE $xTV/COULEURS$VERTE #
# $Z $DELETE $xTV/COULEURS$BLEUE #
# #
# #
# #
# $Z $xci/complement$X A=$xTV/BOITE.1 \ #
# $Z R=$xTV/BOITE.3 \ #
# $Z $formatI #
# #
# $Z eval `$xci/genere$X \\\ #
# $Z commande='($xci/scale$X \\\ #
# $Z A=$xTV/BOITE.3 \\\ #
# $Z a=0.50 \\\ #
# $Z R=$xTV/BOITE.3%s \\\ #
# $Z $formatI)' \\\ #
# $Z en_tete=FAUX RVB=VRAI separateur=VRAI` #
# #
# #
# $X $xci/genere$X premiere=$Premiere derniere=$Derniere pas=1 \ #
# $X C='$xci/cache.11$Z \ #
# $X $xiim/REFL.W.%04d \ #
# $X $xTV/BOITE.3 \ #
# $X $xiim/REFL.H.%04d' #
# #
# $Z $DELETE $xTV/BOITE.1 #
# $Z $DELETE $xTV/BOITE.2 #
# $Z $DELETE $xTV/BOITE.3 #
# $Z $DELETE $xTV/BOITE.3$ROUGE #
# $Z $DELETE $xTV/BOITE.3$VERTE #
# $Z $DELETE $xTV/BOITE.3$BLEUE #
# #
# $Z Pal #
# #
# $Z $xci/reduction_16$Z $xiim/REFL.H. $xiak/REFL.I2 $Premiere $Derniere #
# $Z $xci/reduction_64$Z $xiim/REFL.H. $xiak/REFL.I2 $Premiere $Derniere #
# #
# $X $xci/genere$X c='ro $xiak/REFL.I2$R16%s' RVB=VRAI #
# $X $xci/genere$X c='ro $xiak/REFL.I2$R64%s' RVB=VRAI #
# #
# $X $xci/genere$X c='$xcg/unite$Z $xiak/REFL.I2$R16%s' RVB=VRAI #
# $X $xci/genere$X c='$xcg/unite$Z $xiak/REFL.I2$R64%s' RVB=VRAI #
# #
# $X $xci/genere$X c='$CP $xiim/REFL.H.0512%s $xiirk/REFL.I2.0512%s' RVB=VRAI #
# #
# $X $xci/genere$X c='ro $xiirk/REFL.I2.0512%s' RVB=VRAI #
# #
# $X $xci/genere$X c='$xcg/unite$Z $xiirk/REFL.I2.0512%s' RVB=VRAI #
# #
# #
# Pal #
# #
# #
# $xci/disk_video_P$Z $xiim_LACT29/REFL.H. 001 512 RVB \ #
# 11 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
# #
# xivPdf 3 2 #
# #
# record.01$Z $xiak/REFL.I2$R16 RVB Initialisation #
# record.01$Z $xiak/REFL.I2$R64 RVB rien #
# record.01$Z $xiirk/REFL.I2.0512 RVB rien #
# #
sequence 016385_016896
# Generee (sur '$LACT29') par : #
# #
# $Z SET Premiere=1 #
# $Z SET Derniere=512 #
# $Z @ Nimages = $Derniere - $Premiere #
# $Z @ Nimages = $Nimages + 1 #
# #
# #
# $Z Pal #
# #
# $Z set PUnivers="np=0 CAL1=FAUX editer_l_univers_physique=VRAI" #
# $Z set Univers=`$xrk/rdn_walk.41$X $PUnivers $formatI` #
# #
# $Z set MinX=`echo $Univers | $SE -e "s/^.*[(,]XUI=//" -e "s/[,)].*//"` #
# $Z set MaxX=`echo $Univers | $SE -e "s/^.*[(,]XUS=//" -e "s/[,)].*//"` #
# $Z set MinY=`echo $Univers | $SE -e "s/^.*[(,]YUI=//" -e "s/[,)].*//"` #
# $Z set MaxY=`echo $Univers | $SE -e "s/^.*[(,]YUS=//" -e "s/[,)].*//"` #
# #
# $Z set MinX=`$xcg/ABSO.01$X x=$MinX` #
# $Z set MaxX=`$xcg/ABSO.01$X x=$MaxX` #
# $Z set MinY=`$xcg/ABSO.01$X x=$MinY` #
# $Z set MaxY=`$xcg/ABSO.01$X x=$MaxY` #
# #
# $Z set MaxX=`$xcg/MAX2.01$X n1=$MinX n2=$MaxX` #
# $Z set MaxY=`$xcg/MAX2.01$X n1=$MinY n2=$MaxY` #
# #
# $Z set SeuilPartN=0.000210 #
# $Z set GrainePartN=2 #
# #
# $Z $DELETE $xTV/BOITE.1 #
# $Z $DELETE $xTV/BOITE.2 #
# $Z $DELETE $xTV/BOITE.3 #
# $Z $DELETE $xTV/BOITE.3$ROUGE #
# $Z $DELETE $xTV/BOITE.3$VERTE #
# $Z $DELETE $xTV/BOITE.3$BLEUE #
# $Z $DELETE $xTV/BOITE.4 #
# $Z $DELETE $xTV/BOITE.5 #
# $Z $DELETE $xTV/BOITE.6 #
# $Z $DELETE $xTV/BOITE.7 #
# $Z $DELETE $xTV/BOITE.8 #
# $Z $DELETE $xTV/BOITE.9 #
# $Z $DELETE $xTV/BOITE.A #
# $Z $DELETE $xTV/BOITE.B #
# #
# #
# $Z Std #
# #
# $Z set FacXY=0.90 #
# $Z set SeuilBOITE=`$xcg/SOUS.01$X a=1 b=$FacXY` #
# $Z set SeuilBOITE=`$xcg/MUL2.01$X a=$SeuilBOITE b=$GRIS_8` #
# $Z set SeuilBOITE=`$xci/valeurs_inte$X p=1 d=1 vD=$SeuilBOITE entiers=VRAI` #
# $Z set SeuilBOITE=`$xcg/MIN2.01$X a=$SeuilBOITE b=$GRIS_1` #
# #
# $Z set GTransX=`$xcg/SOUS.01$X a=1 b=$FacXY` #
# $Z set GTransX=`$xcg/MOIT.01$X a=$GTransX signe="$K_VIDE"` #
# $Z set DTransX=`$xcg/MOIT.01$X a=1` #
# $Z set DTransX=`$xcg/ADD2.01$X a=$DTransX b=$GTransX signe="$K_VIDE"` #
# #
# #
# $Z set LBande=10 #
# $Z set BandeS=`$xcg/ADD2.01$X a=$GRIS_4 b=$LBande` #
# $Z set BandeI=`$xcg/SOUS.01$X a=$GRIS_4 b=$LBande` #
# #
# $Z $xci/complement$X \ #
# $Z A=$xiio/SPIRALE \ #
# $Z $formatI | \ #
# $Z $xci/seuil$X \ #
# $Z seuil=$SeuilBOITE \ #
# $Z R=$xTV/BOITE.4 \ #
# $Z $formatI #
# #
# $Z $xci/move$X \ #
# $Z A=$xTV/BOITE.4 \ #
# $Z xR=+$DTransX \ #
# $Z $formatI | \ #
# $Z $xci/move$X \ #
# $Z xR=-$GTransX \ #
# $Z $formatI | \ #
# $Z $xci/dilate.01$X \ #
# $Z points=9 \ #
# $Z dilater=VRAI \ #
# $Z R=$xTV/BOITE.5 \ #
# $Z $formatI #
# $Z $xci/Sy$X \ #
# $Z A=$xTV/BOITE.5 \ #
# $Z R=$xTV/BOITE.6 \ #
# $Z $formatI #
# #
# $Z $xci/passe_bande$X \ #
# $Z A=$xiio/MIRE \ #
# $Z inf=$BandeI \ #
# $Z sup=$BandeS \ #
# $Z $formatI | \ #
# $Z $xci/seuil$X \ #
# $Z $formatI | \ #
# $Z $xci/transpose$X \ #
# $Z $formatI | \ #
# $Z $xci/and$X \ #
# $Z A1=$xTV/BOITE.4 \ #
# $Z R=$xTV/BOITE.7 \ #
# $Z $formatI #
# #
# $Z $xci/or_02$X \ #
# $Z A1=$xTV/BOITE.5 \ #
# $Z A2=$xTV/BOITE.6 \ #
# $Z $formatI | \ #
# $Z $xci/or_02$X \ #
# $Z A2=$xTV/BOITE.7 \ #
# $Z R=$xTV/BOITE.8 \ #
# $Z $formatI #
# #
# $Z S #
# #
# $Z $xci/format.01$X mode=0 \ #
# $Z A=$xTV/BOITE.8 \ #
# $Z $formatI \ #
# $Z R=$xTV/BOITE.1 \ #
# $Z $formatR_Pal #
# #
# $Z $xci/dilate.01$X \ #
# $Z A=$xTV/BOITE.5 \ #
# $Z points=225 \ #
# $Z dilater=FAUX \ #
# $Z R=$xTV/BOITE.A \ #
# $Z $formatI #
# #
# $Z $xci/random.02$X \ #
# $Z seuil=$SeuilPartN \ #
# $Z graine=$GrainePartN \ #
# $Z $formatI | \ #
# $Z $xci/and$X \ #
# $Z A2=$xTV/BOITE.A \ #
# $Z R=$xTV/BOITE.B \ #
# $Z $formatI #
# #
# $Z $DELETE $xTV/COORDONNEES #
# $Z $DELETE $xTV/COORDONNEES_01$COORD_X #
# $Z $DELETE $xTV/COORDONNEES_01$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_X #
# $Z $DELETE $xTV/COORDONNEES$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_Z #
# #
# $Z $xci/liste_points$X \ #
# $Z A=$xTV/BOITE.B \ #
# $Z $formatI \ #
# $Z > $xTV/COORDONNEES #
# #
# $Z $DELETE $xTV/BOITE.4 #
# $Z $DELETE $xTV/BOITE.5 #
# $Z $DELETE $xTV/BOITE.6 #
# $Z $DELETE $xTV/BOITE.7 #
# $Z $DELETE $xTV/BOITE.8 #
# $Z $DELETE $xTV/BOITE.9 #
# $Z $DELETE $xTV/BOITE.A #
# $Z $DELETE $xTV/BOITE.B #
# #
# $Z set PartN=`$TAI -1 $xTV/COORDONNEES | $SE -e "s/^.*=//"` #
# #
# $Z $CA $xTV/COORDONNEES \ #
# $Z | $GRE "^[Xx]=" \ #
# $Z | $SE -e "s/^[Xx]=//" \ #
# $Z > $xTV/COORDONNEES_01$COORD_X #
# $Z $CA $xTV/COORDONNEES \ #
# $Z | $GRE "^[Yy]=" \ #
# $Z | $SE -e "s/^[Yy]=//" \ #
# $Z > $xTV/COORDONNEES_01$COORD_Y #
# #
# $Z set EchelleX=`$xcg/MUL2.01$X n1=2 n2=$MaxX` #
# $Z set TranslationX=`$xcg/MUL2.01$X n1=-1 n2=$MaxX` #
# $Z set EchelleY=`$xcg/MUL2.01$X n1=2 n2=$MaxY` #
# $Z set TranslationY=`$xcg/MUL2.01$X n1=-1 n2=$MaxY` #
# #
# $Z $xrv/AXPB.01$X \ #
# $Z CAL1=FAUX \ #
# $Z ne=$PartN \ #
# $Z fichier=$xTV/COORDONNEES_01$COORD_X \ #
# $Z homothetie=$EchelleX translation=$TranslationX \ #
# $Z > $xTV/COORDONNEES$COORD_X #
# $Z $xrv/AXPB.01$X \ #
# $Z CAL1=FAUX \ #
# $Z ne=$PartN \ #
# $Z fichier=$xTV/COORDONNEES_01$COORD_Y \ #
# $Z homothetie=$EchelleY translation=$TranslationY \ #
# $Z > $xTV/COORDONNEES$COORD_Y #
# #
# $Z $DELETE $xTV/COORDONNEES_01$COORD_X #
# $Z $DELETE $xTV/COORDONNEES_01$COORD_Y #
# #
# $Z set Part0=1 #
# $Z @ Npart = $PartN - $Part0 #
# $Z @ Npart = $Npart + 1 #
# #
# $Z $DELETE $xTV/MODULE #
# $Z $DELETE $xTV/THETA #
# $Z $DELETE $xTV/XY_RT.1 #
# $Z $DELETE $xTV/XY_RT.2 #
# $Z $DELETE $xTV/VITESSES #
# $Z $DELETE $xTV/VITESSES$COORD_X #
# $Z $DELETE $xTV/VITESSES$COORD_Y #
# $Z $DELETE $xTV/VITESSES$COORD_Z #
# $Z $DELETE $xTV/mdRHO #
# $Z $DELETE $xTV/MdRHO #
# $Z $DELETE $xTV/mnPHI #
# $Z $DELETE $xTV/MnPHI #
# $Z $DELETE $xTV/dPHI #
# $Z $DELETE $xTV/mnTHETA #
# $Z $DELETE $xTV/MnTHETA #
# $Z $DELETE $xTV/dTHETA #
# $Z $DELETE $xTV/supOUVE #
# $Z $DELETE $xTV/DISTANCE #
# $Z $DELETE $xTV/STABILITE #
# $Z $DELETE $xTV/RAYONS #
# $Z $DELETE $xTV/INTERACTIONS #
# #
# #
# $Z alias Gen 'set Fi=\!:1 ; set vD=\!:2 ; set vA=\!:3 ; set ArG=(\!:4*) ; \\ #
# $Z $DELETE $Fi ; \\ #
# $Z $xci/valeurs_inte$X p=$Part0 d=$PartN vD=$vD vA=$vA $ArG > $Fi ; \\ #
# $Z unset Fi vD vA ArG' #
# #
# $Z alias GenR 'set Fi=\!:1 ; set In=\!:2 ; set Su=\!:3 ; set ArG=(\!:4*) ; \\ #
# $Z $DELETE $Fi ; \\ #
# $Z $xci/valeurs_alea$X p=$Part0 d=$PartN signe="$KV" inf=$In sup=$Su $ArG > $Fi ; \\ #
# $Z unset Fi In Su ArG' #
# #
# $Z Gen $xTV/COORDONNEES$COORD_Z 0.0 0.0 #
# #
# #
# $Z Gen $xTV/MODULE 0.02 0.02 #
# $Z GenR $xTV/THETA 0.0 $dpi g=3333 #
# #
# $Z $CA $xcs/csh$Y \ #
# $Z > $xTV/XY_RT.1 #
# $Z $PAST $xTV/MODULE $xTV/THETA \ #
# $Z | $R "$K_TAB" "$K_BLANC" \ #
# $Z | $AW ' { print "$xcg/XY_RT$X r=" $1 " t=" $2 " cartesien=FAUX" } ' \ #
# $Z >>! $xTV/XY_RT.1 #
# #
# $Z (source $xTV/XY_RT.1) \ #
# $Z > $xTV/XY_RT.2 #
# #
# $Z $CA $xTV/XY_RT.2 \ #
# $Z | $GRE "^x=" \ #
# $Z | $SE -e "s/^x=//" \ #
# $Z > $xTV/VITESSES$COORD_X #
# $Z $CA $xTV/XY_RT.2 \ #
# $Z | $GRE "^y=" \ #
# $Z | $SE -e "s/^y=//" \ #
# $Z > $xTV/VITESSES$COORD_Y #
# #
# $Z Gen $xTV/VITESSES$COORD_Z 0.0 0.0 #
# #
# $Z Gen $xTV/mdRHO 0.0 0.0 #
# $Z Gen $xTV/MdRHO 0.0 0.0 #
# $Z Gen $xTV/mnPHI 0.0 0.0 #
# $Z Gen $xTV/MnPHI 0.0 0.0 #
# $Z Gen $xTV/dPHI 0.0 0.0 #
# $Z Gen $xTV/mnTHETA 0.0 0.0 #
# $Z Gen $xTV/MnTHETA 0.0 0.0 #
# $Z Gen $xTV/dTHETA 0.0 0.0 #
# $Z Gen $xTV/DISTANCE 1000000 1000000 #
# $Z Gen $xTV/STABILITE 1000000 1000000 #
# #
# $Z set RayonsT=0.014 #
# $Z set RayonsP=`$xcg/MUL2.01$X a=2 b=$RayonsT` #
# $Z set DistanceI=`$xcg/MUL2.01$X a=4 b=$RayonsP` #
# $Z Gen $xTV/RAYONS $RayonsT $RayonsT #
# $Z Gen $xTV/INTERACTIONS $RayonsP $RayonsP #
# #
# $Z $DELETE $xTV/COULEURS$TEINT #
# $Z $DELETE $xTV/COULEURS$LUMIN #
# $Z $DELETE $xTV/COULEURS$SATUR #
# $Z $DELETE $xTV/COULEURS$Y #
# $Z $DELETE $xTV/COULEURS #
# $Z $DELETE $xTV/COULEURS$ROUGE #
# $Z $DELETE $xTV/COULEURS$VERTE #
# $Z $DELETE $xTV/COULEURS$BLEUE #
# #
# $Z @ TeinteMagenta = $GRIS_7 #
# $Z @ TeinteCyan = $GRIS_4 + $GRIS_8 #
# #
# $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartN \ #
# $Z vD=$TeinteMagenta vA=$TeinteCyan \ #
# $Z cubique=FAUX \ #
# $Z entiers=VRAI \ #
# $Z > $xTV/COULEURS$TEINT #
# $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartN \ #
# $Z vD=$GRIS_4 vA=$GRIS_4 \ #
# $Z cubique=FAUX \ #
# $Z entiers=VRAI \ #
# $Z > $xTV/COULEURS$LUMIN #
# $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartN \ #
# $Z vD=$GRIS_8 vA=$GRIS_8 \ #
# $Z cubique=FAUX \ #
# $Z entiers=VRAI \ #
# $Z > $xTV/COULEURS$SATUR #
# #
# $Z $PAST \ #
# $Z $xTV/COULEURS$TEINT \ #
# $Z $xTV/COULEURS$LUMIN \ #
# $Z $xTV/COULEURS$SATUR \ #
# $Z | $R "$K_TAB" "$K_BLANC" \ #
# $Z | $AW ' { print "H=" $1 " L=" $2 " S=" $3 } ' \ #
# $Z | $SE -e 's+^+$xcg/RVB_HLS$X RVB_HLS=FAUX +' \ #
# $Z | $SE -e 's/$/ eR=VRAI eV=VRAI eB=VRAI/' \ #
# $Z | $SE -e 's/$/ eH=FAUX eL=FAUX eS=FAUX/' \ #
# $Z > $xTV/COULEURS$Y #
# #
# $Z (source $xTV/COULEURS$Y) \ #
# $Z > $xTV/COULEURS #
# #
# $Z $GRE "^R=" $xTV/COULEURS \ #
# $Z | $SE -e "s/^R=//" \ #
# $Z > $xTV/COULEURS$ROUGE #
# $Z $GRE "^V=" $xTV/COULEURS \ #
# $Z | $SE -e "s/^V=//" \ #
# $Z > $xTV/COULEURS$VERTE #
# $Z $GRE "^B=" $xTV/COULEURS \ #
# $Z | $SE -e "s/^B=//" \ #
# $Z > $xTV/COULEURS$BLEUE #
# #
# $Z Pal #
# #
# #
# $Z $xci/scale$X \ #
# $Z A=$xTV/BOITE.1 \ #
# $Z a=1.00 \ #
# $Z R=$xTV/BOITE.2 \ #
# $Z $formatI #
# #
# $Z $xrk/rdn_walk.41$X corps=$Npart \ #
# $Z np=$Nimages \ #
# $Z collisions=VRAI DLA=FAUX interaction=$DistanceI \ #
# $Z LISTE_X=$xTV/COORDONNEES$COORD_X \ #
# $Z LISTE_Y=$xTV/COORDONNEES$COORD_Y \ #
# $Z LISTE_Z=$xTV/COORDONNEES$COORD_Z \ #
# $Z LISTE_VX=$xTV/VITESSES$COORD_X \ #
# $Z LISTE_VY=$xTV/VITESSES$COORD_Y \ #
# $Z LISTE_VZ=$xTV/VITESSES$COORD_Z \ #
# $Z LISTE_MINIMUM_DELTA_RHO=$xTV/mdRHO \ #
# $Z LISTE_MAXIMUM_DELTA_RHO=$xTV/MdRHO \ #
# $Z LISTE_MINIMUM_N_PHI=$xTV/mnPHI \ #
# $Z LISTE_MAXIMUM_N_PHI=$xTV/MnPHI \ #
# $Z LISTE_DELTA_PHI=$xTV/dPHI \ #
# $Z LISTE_MINIMUM_N_THETA=$xTV/mnTHETA \ #
# $Z LISTE_MAXIMUM_N_THETA=$xTV/MnTHETA \ #
# $Z LISTE_DELTA_THETA=$xTV/dTHETA \ #
# $Z LISTE_DISTANCE_MAXIMALE=$xTV/DISTANCE \ #
# $Z LISTE_STABILITE=$xTV/STABILITE \ #
# $Z LISTE_RAYON=$xTV/RAYONS \ #
# $Z LISTE_RAYON_D_INTERACTION=$xTV/INTERACTIONS \ #
# $Z LISTE_ROUGE=$xTV/COULEURS$ROUGE \ #
# $Z LISTE_VERTE=$xTV/COULEURS$VERTE \ #
# $Z LISTE_BLEUE=$xTV/COULEURS$BLEUE \ #
# $Z milieu=VRAI \ #
# $Z reflexion=VRAI refraction=FAUX \ #
# $Z Mhors=$BLANC \ #
# $Z MNpasX=1 Mprolonger_X=VRAI \ #
# $Z MNpasY=1 Mprolonger_Y=VRAI \ #
# $Z MNpasZ=1 Mprolonger_Z=VRAI \ #
# $Z adapter_M_nPAS=VRAI \ #
# $Z Msimplifier=FAUX affiner_M_maillage=FAUX \ #
# $Z MC=$xTV/BOITE.2 \ #
# $Z MChiffres=0 \ #
# $Z Zmin=0 Zmax=15 \ #
# $Z centrer=VRAI \ #
# $Z dct=0.05 nombre=10 \ #
# $Z trainees=VRAI mode=1 \ #
# $Z attenuation_des_images=0.6 \ #
# $Z attenuation_des_trainees=1.00 \ #
# $Z renormaliser=FAUX \ #
# $Z Lz=100 \ #
# $Z zoom_automatique=VRAI \ #
# $Z centre_de_gravite=FAUX \ #
# $Z fond=FAUX \ #
# $Z R=$xiim/REFL.W. \ #
# $Z $formatI #
# #
# $Z $DELETE $xTV/RAYONS #
# $Z $CP $xTV/INTERACTIONS $xTV/RAYONS #
# #
# $Z $DELETE $xTV/GRAVITE #
# $Z $xrk/rdn_walk.41$X corps=$Npart \ #
# $Z np=$Nimages \ #
# $Z collisions=VRAI DLA=FAUX interaction=$DistanceI \ #
# $Z LISTE_X=$xTV/COORDONNEES$COORD_X \ #
# $Z LISTE_Y=$xTV/COORDONNEES$COORD_Y \ #
# $Z LISTE_Z=$xTV/COORDONNEES$COORD_Z \ #
# $Z LISTE_VX=$xTV/VITESSES$COORD_X \ #
# $Z LISTE_VY=$xTV/VITESSES$COORD_Y \ #
# $Z LISTE_VZ=$xTV/VITESSES$COORD_Z \ #
# $Z LISTE_MINIMUM_DELTA_RHO=$xTV/mdRHO \ #
# $Z LISTE_MAXIMUM_DELTA_RHO=$xTV/MdRHO \ #
# $Z LISTE_MINIMUM_N_PHI=$xTV/mnPHI \ #
# $Z LISTE_MAXIMUM_N_PHI=$xTV/MnPHI \ #
# $Z LISTE_DELTA_PHI=$xTV/dPHI \ #
# $Z LISTE_MINIMUM_N_THETA=$xTV/mnTHETA \ #
# $Z LISTE_MAXIMUM_N_THETA=$xTV/MnTHETA \ #
# $Z LISTE_DELTA_THETA=$xTV/dTHETA \ #
# $Z LISTE_DISTANCE_MAXIMALE=$xTV/DISTANCE \ #
# $Z LISTE_STABILITE=$xTV/STABILITE \ #
# $Z LISTE_RAYON=$xTV/RAYONS \ #
# $Z LISTE_RAYON_D_INTERACTION=$xTV/INTERACTIONS \ #
# $Z LISTE_ROUGE=$xTV/COULEURS$ROUGE \ #
# $Z LISTE_VERTE=$xTV/COULEURS$VERTE \ #
# $Z LISTE_BLEUE=$xTV/COULEURS$BLEUE \ #
# $Z milieu=VRAI \ #
# $Z reflexion=VRAI refraction=FAUX \ #
# $Z Mhors=$BLANC \ #
# $Z MNpasX=1 Mprolonger_X=VRAI \ #
# $Z MNpasY=1 Mprolonger_Y=VRAI \ #
# $Z MNpasZ=1 Mprolonger_Z=VRAI \ #
# $Z adapter_M_nPAS=VRAI \ #
# $Z Msimplifier=FAUX affiner_M_maillage=FAUX \ #
# $Z MC=$xTV/BOITE.2 \ #
# $Z MChiffres=0 \ #
# $Z Zmin=0 Zmax=15 \ #
# $Z centrer=VRAI \ #
# $Z dct=0.05 nombre=10 \ #
# $Z trainees=VRAI mode=1 \ #
# $Z attenuation_des_images=1.0 \ #
# $Z attenuation_des_trainees=0.80 \ #
# $Z renormaliser=FAUX \ #
# $Z Lz=100 \ #
# $Z zoom_automatique=VRAI \ #
# $Z centre_de_gravite=VRAI \ #
# $Z fond=VRAI \ #
# $Z dynamique=VRAI \ #
# $Z F=$xiim/REFL.W. \ #
# $Z R=$xiim/REFL.W. \ #
# $Z $formatI | \ #
# $Z $GRE " CENTRE_DE_GRAVITE=" \ #
# $Z > $xTV/GRAVITE #
# #
# $Z $DELETE $xTV/COORDONNEES #
# $Z $DELETE $xTV/COORDONNEES$COORD_X #
# $Z $DELETE $xTV/COORDONNEES$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_Z #
# $Z $DELETE $xTV/VITESSES #
# $Z $DELETE $xTV/VITESSES$COORD_X #
# $Z $DELETE $xTV/VITESSES$COORD_Y #
# $Z $DELETE $xTV/VITESSES$COORD_Z #
# $Z $DELETE $xTV/mdRHO #
# $Z $DELETE $xTV/MdRHO #
# $Z $DELETE $xTV/mnPHI #
# $Z $DELETE $xTV/MnPHI #
# $Z $DELETE $xTV/dPHI #
# $Z $DELETE $xTV/mnTHETA #
# $Z $DELETE $xTV/MnTHETA #
# $Z $DELETE $xTV/dTHETA #
# $Z $DELETE $xTV/DISTANCE #
# $Z $DELETE $xTV/STABILITE #
# $Z $DELETE $xTV/RAYONS #
# $Z $DELETE $xTV/INTERACTIONS #
# $Z $DELETE $xTV/COULEURS$TEINT #
# $Z $DELETE $xTV/COULEURS$LUMIN #
# $Z $DELETE $xTV/COULEURS$SATUR #
# $Z $DELETE $xTV/COULEURS$Y #
# $Z $DELETE $xTV/COULEURS #
# $Z $DELETE $xTV/COULEURS$ROUGE #
# $Z $DELETE $xTV/COULEURS$VERTE #
# $Z $DELETE $xTV/COULEURS$BLEUE #
# #
# $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("$DELETE $xTV/COORDONNEES\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_X\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_Y\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_Z\n"); #
# #
# $c printf("$DELETE $xTV/COULEURS$ROUGE\n"); #
# $c printf("$DELETE $xTV/COULEURS$VERTE\n"); #
# $c printf("$DELETE $xTV/COULEURS$BLEUE\n"); #
# #
# $c printf("listMN $xTV/GRAVITE #
# $c %d %d #
# $c > $xTV/COORDONNEES\n" #
# $c ,N0,n #
# $c ); #
# #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*[(,]XG=//%c #
# $c -e %cs/[,)].*//%c #
# $c > $xTV/COORDONNEES$COORD_X\n" #
# $c ,'"','"','"','"' #
# $c ); #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*[(,]YG=//%c #
# $c -e %cs/[,)].*//%c #
# $c > $xTV/COORDONNEES$COORD_Y\n" #
# $c ,'"','"','"','"' #
# $c ); #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*[(,]ZG=//%c #
# $c -e %cs/[,)].*//%c #
# $c > $xTV/COORDONNEES$COORD_Z\n" #
# $c ,'"','"','"','"' #
# $c ); #
# #
# $c printf("$xci/valeurs_inte$X #
# $c premiere=%d derniere=%d #
# $c vD=$GRIS_5 vA=$GRIS_5 #
# $c cubique=FAUX #
# $c entiers=VRAI #
# $c utiliser_la_valeur_de_depart=FAUX #
# $c > $xTV/COULEURS$ROUGE\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/valeurs_inte$X #
# $c premiere=%d derniere=%d #
# $c vD=$GRIS_5 vA=$GRIS_5 #
# $c cubique=FAUX #
# $c entiers=VRAI #
# $c utiliser_la_valeur_de_depart=FAUX #
# $c > $xTV/COULEURS$VERTE\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/valeurs_inte$X #
# $c premiere=%d derniere=%d #
# $c vD=$GRIS_5 vA=$GRIS_5 #
# $c cubique=FAUX #
# $c entiers=VRAI #
# $c utiliser_la_valeur_de_depart=FAUX #
# $c > $xTV/COULEURS$BLEUE\n" #
# $c ,N0,n #
# $c ); #
# #
# $c printf("$xrv/particule.10$X #
# $c np=1 #
# $c iterations=%d #
# $c LISTE_X=$xTV/COORDONNEES$COORD_X #
# $c LISTE_Y=$xTV/COORDONNEES$COORD_Y #
# $c LISTE_Z=$xTV/COORDONNEES$COORD_Z #
# $c LISTE_ROUGE=$xTV/COULEURS$ROUGE #
# $c LISTE_VERTE=$xTV/COULEURS$VERTE #
# $c LISTE_BLEUE=$xTV/COULEURS$BLEUE #
# $c LISTE_RAYON=0.006 #
# $c zoom_automatique=FAUX ZOOM=1.0 #
# $c coordonnees_dans_0_1=FAUX #
# $c AXYZ=1 BXYZ=0 #
# $c fond=VRAI #
# $c fond_dynamique=FAUX #
# $c F=$xiim/REFL.W.%04d #
# $c R=$xTV/REFL.A. #
# $c $formatI\n" #
# $c ,(n-N0)+1,n #
# $c ); #
# #
# $c printf("$xci/acces$X #
# $c A=$xTV/REFL.A.%04d$ROUGE #
# $c R=$xiim/REFL.W.%04d$ROUGE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xTV/REFL.A.%04d$VERTE #
# $c R=$xiim/REFL.W.%04d$VERTE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xTV/REFL.A.%04d$BLEUE #
# $c R=$xiim/REFL.W.%04d$BLEUE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# #
# $c printf("$DELETE $xTV/COORDONNEES\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_X\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_Y\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_Z\n"); #
# #
# $c printf("$DELETE $xTV/COULEURS$ROUGE\n"); #
# $c printf("$DELETE $xTV/COULEURS$VERTE\n"); #
# $c printf("$DELETE $xTV/COULEURS$BLEUE\n"); #
# #
# $c printf("listMN $xTV/GRAVITE #
# $c %d %d #
# $c > $xTV/COORDONNEES\n" #
# $c ,n,n #
# $c ); #
# #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*[(,]XG=//%c #
# $c -e %cs/[,)].*//%c #
# $c > $xTV/COORDONNEES$COORD_X\n" #
# $c ,'"','"','"','"' #
# $c ); #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*[(,]YG=//%c #
# $c -e %cs/[,)].*//%c #
# $c > $xTV/COORDONNEES$COORD_Y\n" #
# $c ,'"','"','"','"' #
# $c ); #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*[(,]ZG=//%c #
# $c -e %cs/[,)].*//%c #
# $c > $xTV/COORDONNEES$COORD_Z\n" #
# $c ,'"','"','"','"' #
# $c ); #
# #
# $c printf("$xci/valeurs_inte$X #
# $c premiere=%d derniere=%d #
# $c vD=$GRIS_8 vA=$GRIS_8 #
# $c cubique=FAUX #
# $c entiers=VRAI #
# $c utiliser_la_valeur_de_depart=FAUX #
# $c > $xTV/COULEURS$ROUGE\n" #
# $c ,n,n #
# $c ); #
# $c printf("$xci/valeurs_inte$X #
# $c premiere=%d derniere=%d #
# $c vD=$GRIS_8 vA=$GRIS_8 #
# $c cubique=FAUX #
# $c entiers=VRAI #
# $c utiliser_la_valeur_de_depart=FAUX #
# $c > $xTV/COULEURS$VERTE\n" #
# $c ,n,n #
# $c ); #
# $c printf("$xci/valeurs_inte$X #
# $c premiere=%d derniere=%d #
# $c vD=$GRIS_8 vA=$GRIS_8 #
# $c cubique=FAUX #
# $c entiers=VRAI #
# $c utiliser_la_valeur_de_depart=FAUX #
# $c > $xTV/COULEURS$BLEUE\n" #
# $c ,n,n #
# $c ); #
# #
# $c printf("$xrv/particule.10$X #
# $c np=1 #
# $c iterations=%d #
# $c LISTE_X=$xTV/COORDONNEES$COORD_X #
# $c LISTE_Y=$xTV/COORDONNEES$COORD_Y #
# $c LISTE_Z=$xTV/COORDONNEES$COORD_Z #
# $c LISTE_ROUGE=$xTV/COULEURS$ROUGE #
# $c LISTE_VERTE=$xTV/COULEURS$VERTE #
# $c LISTE_BLEUE=$xTV/COULEURS$BLEUE #
# $c LISTE_RAYON=0.012 #
# $c zoom_automatique=FAUX ZOOM=1.0 #
# $c coordonnees_dans_0_1=FAUX #
# $c AXYZ=1 BXYZ=0 #
# $c fond=VRAI #
# $c fond_dynamique=FAUX #
# $c F=$xiim/REFL.W.%04d #
# $c R=$xTV/REFL.B. #
# $c $formatI\n" #
# $c ,(n-n)+1,n #
# $c ); #
# #
# $c printf("$xci/acces$X #
# $c A=$xTV/REFL.B.%04d$ROUGE #
# $c R=$xiim/REFL.W.%04d$ROUGE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xTV/REFL.B.%04d$VERTE #
# $c R=$xiim/REFL.W.%04d$VERTE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xTV/REFL.B.%04d$BLEUE #
# $c R=$xiim/REFL.W.%04d$BLEUE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# $c } #
# $c } #
# #
# #
# $Z $DELETE $xTV/COORDONNEES #
# $Z $DELETE $xTV/COORDONNEES$COORD_X #
# $Z $DELETE $xTV/COORDONNEES$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_Z #
# $Z $DELETE $xTV/COULEURS$ROUGE #
# $Z $DELETE $xTV/COULEURS$VERTE #
# $Z $DELETE $xTV/COULEURS$BLEUE #
# #
# #
# #
# $Z $xci/complement$X A=$xTV/BOITE.1 \ #
# $Z R=$xTV/BOITE.3 \ #
# $Z $formatI #
# #
# $Z eval `$xci/genere$X \\\ #
# $Z commande='($xci/scale$X \\\ #
# $Z A=$xTV/BOITE.3 \\\ #
# $Z a=0.50 \\\ #
# $Z R=$xTV/BOITE.3%s \\\ #
# $Z $formatI)' \\\ #
# $Z en_tete=FAUX RVB=VRAI separateur=VRAI` #
# #
# #
# $X $xci/genere$X premiere=$Premiere derniere=$Derniere pas=1 \ #
# $X C='$xci/cache.11$Z \ #
# $X $xiim/REFL.W.%04d \ #
# $X $xTV/BOITE.3 \ #
# $X $xiim/REFL.I.%04d' #
# #
# $Z $DELETE $xTV/BOITE.1 #
# $Z $DELETE $xTV/BOITE.2 #
# $Z $DELETE $xTV/BOITE.3 #
# $Z $DELETE $xTV/BOITE.3$ROUGE #
# $Z $DELETE $xTV/BOITE.3$VERTE #
# $Z $DELETE $xTV/BOITE.3$BLEUE #
# #
# $Z Pal #
# #
# $Z $xci/reduction_16$Z $xiim/REFL.I. $xiak/REFL.I4 $Premiere $Derniere #
# $Z $xci/reduction_64$Z $xiim/REFL.I. $xiak/REFL.I4 $Premiere $Derniere #
# #
# $X $xci/genere$X c='ro $xiak/REFL.I4$R16%s' RVB=VRAI #
# $X $xci/genere$X c='ro $xiak/REFL.I4$R64%s' RVB=VRAI #
# #
# $X $xci/genere$X c='$xcg/unite$Z $xiak/REFL.I4$R16%s' RVB=VRAI #
# $X $xci/genere$X c='$xcg/unite$Z $xiak/REFL.I4$R64%s' RVB=VRAI #
# #
# $X $xci/genere$X c='$CP $xiim/REFL.I.0512%s $xiirk/REFL.I4.0512%s' RVB=VRAI #
# #
# $X $xci/genere$X c='ro $xiirk/REFL.I4.0512%s' RVB=VRAI #
# #
# $X $xci/genere$X c='$xcg/unite$Z $xiirk/REFL.I4.0512%s' RVB=VRAI #
# #
# #
# Pal #
# #
# #
# $xci/disk_video_P$Z $xiim_LACT29/REFL.I. 001 512 RVB \ #
# 11 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
# #
# xivPdf 3 2 #
# #
# record.01$Z $xiak/REFL.I4$R16 RVB Initialisation #
# record.01$Z $xiak/REFL.I4$R64 RVB rien #
# record.01$Z $xiirk/REFL.I4.0512 RVB rien #
# #
sequence 016897_017408
# Generee (sur '$LACT29') par : #
# #
# $Z SET Premiere=1 #
# $Z SET Derniere=512 #
# $Z @ Nimages = $Derniere - $Premiere #
# $Z @ Nimages = $Nimages + 1 #
# #
# #
# $Z Pal #
# #
# $Z set PUnivers="np=0 CAL1=FAUX editer_l_univers_physique=VRAI" #
# $Z set Univers=`$xrk/rdn_walk.41$X $PUnivers $formatI` #
# #
# $Z set MinX=`echo $Univers | $SE -e "s/^.*[(,]XUI=//" -e "s/[,)].*//"` #
# $Z set MaxX=`echo $Univers | $SE -e "s/^.*[(,]XUS=//" -e "s/[,)].*//"` #
# $Z set MinY=`echo $Univers | $SE -e "s/^.*[(,]YUI=//" -e "s/[,)].*//"` #
# $Z set MaxY=`echo $Univers | $SE -e "s/^.*[(,]YUS=//" -e "s/[,)].*//"` #
# #
# $Z set MinX=`$xcg/ABSO.01$X x=$MinX` #
# $Z set MaxX=`$xcg/ABSO.01$X x=$MaxX` #
# $Z set MinY=`$xcg/ABSO.01$X x=$MinY` #
# $Z set MaxY=`$xcg/ABSO.01$X x=$MaxY` #
# #
# $Z set MaxX=`$xcg/MAX2.01$X n1=$MinX n2=$MaxX` #
# $Z set MaxY=`$xcg/MAX2.01$X n1=$MinY n2=$MaxY` #
# #
# $Z set SeuilPartN=0.000809 #
# $Z set GrainePartN=2 #
# #
# $Z $DELETE $xTV/BOITE.1 #
# $Z $DELETE $xTV/BOITE.2 #
# $Z $DELETE $xTV/BOITE.3 #
# $Z $DELETE $xTV/BOITE.3$ROUGE #
# $Z $DELETE $xTV/BOITE.3$VERTE #
# $Z $DELETE $xTV/BOITE.3$BLEUE #
# $Z $DELETE $xTV/BOITE.4 #
# $Z $DELETE $xTV/BOITE.5 #
# $Z $DELETE $xTV/BOITE.6 #
# $Z $DELETE $xTV/BOITE.7 #
# $Z $DELETE $xTV/BOITE.8 #
# $Z $DELETE $xTV/BOITE.9 #
# $Z $DELETE $xTV/BOITE.A #
# $Z $DELETE $xTV/BOITE.B #
# #
# #
# $Z Std #
# #
# $Z set FacXY=0.90 #
# $Z set SeuilBOITE=`$xcg/SOUS.01$X a=1 b=$FacXY` #
# $Z set SeuilBOITE=`$xcg/MUL2.01$X a=$SeuilBOITE b=$GRIS_8` #
# $Z set SeuilBOITE=`$xci/valeurs_inte$X p=1 d=1 vD=$SeuilBOITE entiers=VRAI` #
# $Z set SeuilBOITE=`$xcg/MIN2.01$X a=$SeuilBOITE b=$GRIS_1` #
# #
# $Z set GTransX=`$xcg/SOUS.01$X a=1 b=$FacXY` #
# $Z set GTransX=`$xcg/MOIT.01$X a=$GTransX signe="$K_VIDE"` #
# $Z set DTransX=`$xcg/MOIT.01$X a=1` #
# $Z set DTransX=`$xcg/ADD2.01$X a=$DTransX b=$GTransX signe="$K_VIDE"` #
# #
# #
# $Z set LBande=10 #
# $Z set BandeS=`$xcg/ADD2.01$X a=$GRIS_4 b=$LBande` #
# $Z set BandeI=`$xcg/SOUS.01$X a=$GRIS_4 b=$LBande` #
# #
# $Z $xci/complement$X \ #
# $Z A=$xiio/SPIRALE \ #
# $Z $formatI | \ #
# $Z $xci/seuil$X \ #
# $Z seuil=$SeuilBOITE \ #
# $Z R=$xTV/BOITE.4 \ #
# $Z $formatI #
# #
# $Z $xci/move$X \ #
# $Z A=$xTV/BOITE.4 \ #
# $Z xR=+$DTransX \ #
# $Z $formatI | \ #
# $Z $xci/move$X \ #
# $Z xR=-$GTransX \ #
# $Z $formatI | \ #
# $Z $xci/dilate.01$X \ #
# $Z points=9 \ #
# $Z dilater=VRAI \ #
# $Z R=$xTV/BOITE.5 \ #
# $Z $formatI #
# $Z $xci/Sy$X \ #
# $Z A=$xTV/BOITE.5 \ #
# $Z R=$xTV/BOITE.6 \ #
# $Z $formatI #
# #
# $Z $xci/passe_bande$X \ #
# $Z A=$xiio/MIRE \ #
# $Z inf=$BandeI \ #
# $Z sup=$BandeS \ #
# $Z $formatI | \ #
# $Z $xci/seuil$X \ #
# $Z $formatI | \ #
# $Z $xci/transpose$X \ #
# $Z $formatI | \ #
# $Z $xci/and$X \ #
# $Z A1=$xTV/BOITE.4 \ #
# $Z R=$xTV/BOITE.7 \ #
# $Z $formatI #
# #
# $Z $xci/or_02$X \ #
# $Z A1=$xTV/BOITE.5 \ #
# $Z A2=$xTV/BOITE.6 \ #
# $Z $formatI | \ #
# $Z $xci/or_02$X \ #
# $Z A2=$xTV/BOITE.7 \ #
# $Z R=$xTV/BOITE.8 \ #
# $Z $formatI #
# #
# $Z S #
# #
# $Z $xci/format.01$X mode=0 \ #
# $Z A=$xTV/BOITE.8 \ #
# $Z $formatI \ #
# $Z R=$xTV/BOITE.1 \ #
# $Z $formatR_Pal #
# #
# $Z $xci/dilate.01$X \ #
# $Z A=$xTV/BOITE.5 \ #
# $Z points=225 \ #
# $Z dilater=FAUX \ #
# $Z R=$xTV/BOITE.A \ #
# $Z $formatI #
# #
# $Z $xci/random.02$X \ #
# $Z seuil=$SeuilPartN \ #
# $Z graine=$GrainePartN \ #
# $Z $formatI | \ #
# $Z $xci/and$X \ #
# $Z A2=$xTV/BOITE.A \ #
# $Z R=$xTV/BOITE.B \ #
# $Z $formatI #
# #
# $Z $DELETE $xTV/COORDONNEES #
# $Z $DELETE $xTV/COORDONNEES_01$COORD_X #
# $Z $DELETE $xTV/COORDONNEES_01$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_X #
# $Z $DELETE $xTV/COORDONNEES$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_Z #
# #
# $Z $xci/liste_points$X \ #
# $Z A=$xTV/BOITE.B \ #
# $Z $formatI \ #
# $Z > $xTV/COORDONNEES #
# #
# $Z $DELETE $xTV/BOITE.4 #
# $Z $DELETE $xTV/BOITE.5 #
# $Z $DELETE $xTV/BOITE.6 #
# $Z $DELETE $xTV/BOITE.7 #
# $Z $DELETE $xTV/BOITE.8 #
# $Z $DELETE $xTV/BOITE.9 #
# $Z $DELETE $xTV/BOITE.A #
# $Z $DELETE $xTV/BOITE.B #
# #
# $Z set PartN=`$TAI -1 $xTV/COORDONNEES | $SE -e "s/^.*=//"` #
# #
# $Z $CA $xTV/COORDONNEES \ #
# $Z | $GRE "^[Xx]=" \ #
# $Z | $SE -e "s/^[Xx]=//" \ #
# $Z > $xTV/COORDONNEES_01$COORD_X #
# $Z $CA $xTV/COORDONNEES \ #
# $Z | $GRE "^[Yy]=" \ #
# $Z | $SE -e "s/^[Yy]=//" \ #
# $Z > $xTV/COORDONNEES_01$COORD_Y #
# #
# $Z set EchelleX=`$xcg/MUL2.01$X n1=2 n2=$MaxX` #
# $Z set TranslationX=`$xcg/MUL2.01$X n1=-1 n2=$MaxX` #
# $Z set EchelleY=`$xcg/MUL2.01$X n1=2 n2=$MaxY` #
# $Z set TranslationY=`$xcg/MUL2.01$X n1=-1 n2=$MaxY` #
# #
# $Z $xrv/AXPB.01$X \ #
# $Z CAL1=FAUX \ #
# $Z ne=$PartN \ #
# $Z fichier=$xTV/COORDONNEES_01$COORD_X \ #
# $Z homothetie=$EchelleX translation=$TranslationX \ #
# $Z > $xTV/COORDONNEES$COORD_X #
# $Z $xrv/AXPB.01$X \ #
# $Z CAL1=FAUX \ #
# $Z ne=$PartN \ #
# $Z fichier=$xTV/COORDONNEES_01$COORD_Y \ #
# $Z homothetie=$EchelleY translation=$TranslationY \ #
# $Z > $xTV/COORDONNEES$COORD_Y #
# #
# $Z $DELETE $xTV/COORDONNEES_01$COORD_X #
# $Z $DELETE $xTV/COORDONNEES_01$COORD_Y #
# #
# $Z set Part0=1 #
# $Z @ Npart = $PartN - $Part0 #
# $Z @ Npart = $Npart + 1 #
# #
# $Z $DELETE $xTV/MODULE #
# $Z $DELETE $xTV/THETA #
# $Z $DELETE $xTV/XY_RT.1 #
# $Z $DELETE $xTV/XY_RT.2 #
# $Z $DELETE $xTV/VITESSES #
# $Z $DELETE $xTV/VITESSES$COORD_X #
# $Z $DELETE $xTV/VITESSES$COORD_Y #
# $Z $DELETE $xTV/VITESSES$COORD_Z #
# $Z $DELETE $xTV/mdRHO #
# $Z $DELETE $xTV/MdRHO #
# $Z $DELETE $xTV/mnPHI #
# $Z $DELETE $xTV/MnPHI #
# $Z $DELETE $xTV/dPHI #
# $Z $DELETE $xTV/mnTHETA #
# $Z $DELETE $xTV/MnTHETA #
# $Z $DELETE $xTV/dTHETA #
# $Z $DELETE $xTV/supOUVE #
# $Z $DELETE $xTV/DISTANCE #
# $Z $DELETE $xTV/STABILITE #
# $Z $DELETE $xTV/RAYONS #
# $Z $DELETE $xTV/INTERACTIONS #
# #
# #
# $Z alias Gen 'set Fi=\!:1 ; set vD=\!:2 ; set vA=\!:3 ; set ArG=(\!:4*) ; \\ #
# $Z $DELETE $Fi ; \\ #
# $Z $xci/valeurs_inte$X p=$Part0 d=$PartN vD=$vD vA=$vA $ArG > $Fi ; \\ #
# $Z unset Fi vD vA ArG' #
# #
# $Z alias GenR 'set Fi=\!:1 ; set In=\!:2 ; set Su=\!:3 ; set ArG=(\!:4*) ; \\ #
# $Z $DELETE $Fi ; \\ #
# $Z $xci/valeurs_alea$X p=$Part0 d=$PartN signe="$KV" inf=$In sup=$Su $ArG > $Fi ; \\ #
# $Z unset Fi In Su ArG' #
# #
# $Z Gen $xTV/COORDONNEES$COORD_Z 0.0 0.0 #
# #
# #
# $Z Gen $xTV/MODULE 0.02 0.02 #
# $Z GenR $xTV/THETA 0.0 $dpi g=3333 #
# #
# $Z $CA $xcs/csh$Y \ #
# $Z > $xTV/XY_RT.1 #
# $Z $PAST $xTV/MODULE $xTV/THETA \ #
# $Z | $R "$K_TAB" "$K_BLANC" \ #
# $Z | $AW ' { print "$xcg/XY_RT$X r=" $1 " t=" $2 " cartesien=FAUX" } ' \ #
# $Z >>! $xTV/XY_RT.1 #
# #
# $Z (source $xTV/XY_RT.1) \ #
# $Z > $xTV/XY_RT.2 #
# #
# $Z $CA $xTV/XY_RT.2 \ #
# $Z | $GRE "^x=" \ #
# $Z | $SE -e "s/^x=//" \ #
# $Z > $xTV/VITESSES$COORD_X #
# $Z $CA $xTV/XY_RT.2 \ #
# $Z | $GRE "^y=" \ #
# $Z | $SE -e "s/^y=//" \ #
# $Z > $xTV/VITESSES$COORD_Y #
# #
# $Z Gen $xTV/VITESSES$COORD_Z 0.0 0.0 #
# #
# $Z Gen $xTV/mdRHO 0.0 0.0 #
# $Z Gen $xTV/MdRHO 0.0 0.0 #
# $Z Gen $xTV/mnPHI 0.0 0.0 #
# $Z Gen $xTV/MnPHI 0.0 0.0 #
# $Z Gen $xTV/dPHI 0.0 0.0 #
# $Z Gen $xTV/mnTHETA 0.0 0.0 #
# $Z Gen $xTV/MnTHETA 0.0 0.0 #
# $Z Gen $xTV/dTHETA 0.0 0.0 #
# $Z Gen $xTV/DISTANCE 1000000 1000000 #
# $Z Gen $xTV/STABILITE 1000000 1000000 #
# #
# $Z set RayonsT=0.014 #
# $Z set RayonsP=`$xcg/MUL2.01$X a=2 b=$RayonsT` #
# $Z set DistanceI=`$xcg/MUL2.01$X a=4 b=$RayonsP` #
# $Z Gen $xTV/RAYONS $RayonsT $RayonsT #
# $Z Gen $xTV/INTERACTIONS $RayonsP $RayonsP #
# #
# $Z $DELETE $xTV/COULEURS$TEINT #
# $Z $DELETE $xTV/COULEURS$LUMIN #
# $Z $DELETE $xTV/COULEURS$SATUR #
# $Z $DELETE $xTV/COULEURS$Y #
# $Z $DELETE $xTV/COULEURS #
# $Z $DELETE $xTV/COULEURS$ROUGE #
# $Z $DELETE $xTV/COULEURS$VERTE #
# $Z $DELETE $xTV/COULEURS$BLEUE #
# #
# $Z @ TeinteMagenta = $GRIS_7 #
# $Z @ TeinteCyan = $GRIS_4 + $GRIS_8 #
# #
# $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartN \ #
# $Z vD=$TeinteMagenta vA=$TeinteCyan \ #
# $Z cubique=FAUX \ #
# $Z entiers=VRAI \ #
# $Z > $xTV/COULEURS$TEINT #
# $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartN \ #
# $Z vD=$GRIS_4 vA=$GRIS_4 \ #
# $Z cubique=FAUX \ #
# $Z entiers=VRAI \ #
# $Z > $xTV/COULEURS$LUMIN #
# $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartN \ #
# $Z vD=$GRIS_8 vA=$GRIS_8 \ #
# $Z cubique=FAUX \ #
# $Z entiers=VRAI \ #
# $Z > $xTV/COULEURS$SATUR #
# #
# $Z $PAST \ #
# $Z $xTV/COULEURS$TEINT \ #
# $Z $xTV/COULEURS$LUMIN \ #
# $Z $xTV/COULEURS$SATUR \ #
# $Z | $R "$K_TAB" "$K_BLANC" \ #
# $Z | $AW ' { print "H=" $1 " L=" $2 " S=" $3 } ' \ #
# $Z | $SE -e 's+^+$xcg/RVB_HLS$X RVB_HLS=FAUX +' \ #
# $Z | $SE -e 's/$/ eR=VRAI eV=VRAI eB=VRAI/' \ #
# $Z | $SE -e 's/$/ eH=FAUX eL=FAUX eS=FAUX/' \ #
# $Z > $xTV/COULEURS$Y #
# #
# $Z (source $xTV/COULEURS$Y) \ #
# $Z > $xTV/COULEURS #
# #
# $Z $GRE "^R=" $xTV/COULEURS \ #
# $Z | $SE -e "s/^R=//" \ #
# $Z > $xTV/COULEURS$ROUGE #
# $Z $GRE "^V=" $xTV/COULEURS \ #
# $Z | $SE -e "s/^V=//" \ #
# $Z > $xTV/COULEURS$VERTE #
# $Z $GRE "^B=" $xTV/COULEURS \ #
# $Z | $SE -e "s/^B=//" \ #
# $Z > $xTV/COULEURS$BLEUE #
# #
# $Z Pal #
# #
# #
# $Z $xci/scale$X \ #
# $Z A=$xTV/BOITE.1 \ #
# $Z a=1.00 \ #
# $Z R=$xTV/BOITE.2 \ #
# $Z $formatI #
# #
# $Z $xrk/rdn_walk.41$X corps=$Npart \ #
# $Z np=$Nimages \ #
# $Z collisions=VRAI DLA=FAUX interaction=$DistanceI \ #
# $Z LISTE_X=$xTV/COORDONNEES$COORD_X \ #
# $Z LISTE_Y=$xTV/COORDONNEES$COORD_Y \ #
# $Z LISTE_Z=$xTV/COORDONNEES$COORD_Z \ #
# $Z LISTE_VX=$xTV/VITESSES$COORD_X \ #
# $Z LISTE_VY=$xTV/VITESSES$COORD_Y \ #
# $Z LISTE_VZ=$xTV/VITESSES$COORD_Z \ #
# $Z LISTE_MINIMUM_DELTA_RHO=$xTV/mdRHO \ #
# $Z LISTE_MAXIMUM_DELTA_RHO=$xTV/MdRHO \ #
# $Z LISTE_MINIMUM_N_PHI=$xTV/mnPHI \ #
# $Z LISTE_MAXIMUM_N_PHI=$xTV/MnPHI \ #
# $Z LISTE_DELTA_PHI=$xTV/dPHI \ #
# $Z LISTE_MINIMUM_N_THETA=$xTV/mnTHETA \ #
# $Z LISTE_MAXIMUM_N_THETA=$xTV/MnTHETA \ #
# $Z LISTE_DELTA_THETA=$xTV/dTHETA \ #
# $Z LISTE_DISTANCE_MAXIMALE=$xTV/DISTANCE \ #
# $Z LISTE_STABILITE=$xTV/STABILITE \ #
# $Z LISTE_RAYON=$xTV/RAYONS \ #
# $Z LISTE_RAYON_D_INTERACTION=$xTV/INTERACTIONS \ #
# $Z LISTE_ROUGE=$xTV/COULEURS$ROUGE \ #
# $Z LISTE_VERTE=$xTV/COULEURS$VERTE \ #
# $Z LISTE_BLEUE=$xTV/COULEURS$BLEUE \ #
# $Z milieu=VRAI \ #
# $Z reflexion=VRAI refraction=FAUX \ #
# $Z Mhors=$BLANC \ #
# $Z MNpasX=1 Mprolonger_X=VRAI \ #
# $Z MNpasY=1 Mprolonger_Y=VRAI \ #
# $Z MNpasZ=1 Mprolonger_Z=VRAI \ #
# $Z adapter_M_nPAS=VRAI \ #
# $Z Msimplifier=FAUX affiner_M_maillage=FAUX \ #
# $Z MC=$xTV/BOITE.2 \ #
# $Z MChiffres=0 \ #
# $Z Zmin=0 Zmax=15 \ #
# $Z centrer=VRAI \ #
# $Z dct=0.05 nombre=10 \ #
# $Z trainees=VRAI mode=1 \ #
# $Z attenuation_des_images=0.6 \ #
# $Z attenuation_des_trainees=1.00 \ #
# $Z renormaliser=FAUX \ #
# $Z Lz=100 \ #
# $Z zoom_automatique=VRAI \ #
# $Z centre_de_gravite=FAUX \ #
# $Z fond=FAUX \ #
# $Z R=$xiim/REFL.W. \ #
# $Z $formatI #
# #
# $Z $DELETE $xTV/RAYONS #
# $Z $CP $xTV/INTERACTIONS $xTV/RAYONS #
# #
# $Z $DELETE $xTV/GRAVITE #
# $Z $xrk/rdn_walk.41$X corps=$Npart \ #
# $Z np=$Nimages \ #
# $Z collisions=VRAI DLA=FAUX interaction=$DistanceI \ #
# $Z LISTE_X=$xTV/COORDONNEES$COORD_X \ #
# $Z LISTE_Y=$xTV/COORDONNEES$COORD_Y \ #
# $Z LISTE_Z=$xTV/COORDONNEES$COORD_Z \ #
# $Z LISTE_VX=$xTV/VITESSES$COORD_X \ #
# $Z LISTE_VY=$xTV/VITESSES$COORD_Y \ #
# $Z LISTE_VZ=$xTV/VITESSES$COORD_Z \ #
# $Z LISTE_MINIMUM_DELTA_RHO=$xTV/mdRHO \ #
# $Z LISTE_MAXIMUM_DELTA_RHO=$xTV/MdRHO \ #
# $Z LISTE_MINIMUM_N_PHI=$xTV/mnPHI \ #
# $Z LISTE_MAXIMUM_N_PHI=$xTV/MnPHI \ #
# $Z LISTE_DELTA_PHI=$xTV/dPHI \ #
# $Z LISTE_MINIMUM_N_THETA=$xTV/mnTHETA \ #
# $Z LISTE_MAXIMUM_N_THETA=$xTV/MnTHETA \ #
# $Z LISTE_DELTA_THETA=$xTV/dTHETA \ #
# $Z LISTE_DISTANCE_MAXIMALE=$xTV/DISTANCE \ #
# $Z LISTE_STABILITE=$xTV/STABILITE \ #
# $Z LISTE_RAYON=$xTV/RAYONS \ #
# $Z LISTE_RAYON_D_INTERACTION=$xTV/INTERACTIONS \ #
# $Z LISTE_ROUGE=$xTV/COULEURS$ROUGE \ #
# $Z LISTE_VERTE=$xTV/COULEURS$VERTE \ #
# $Z LISTE_BLEUE=$xTV/COULEURS$BLEUE \ #
# $Z milieu=VRAI \ #
# $Z reflexion=VRAI refraction=FAUX \ #
# $Z Mhors=$BLANC \ #
# $Z MNpasX=1 Mprolonger_X=VRAI \ #
# $Z MNpasY=1 Mprolonger_Y=VRAI \ #
# $Z MNpasZ=1 Mprolonger_Z=VRAI \ #
# $Z adapter_M_nPAS=VRAI \ #
# $Z Msimplifier=FAUX affiner_M_maillage=FAUX \ #
# $Z MC=$xTV/BOITE.2 \ #
# $Z MChiffres=0 \ #
# $Z Zmin=0 Zmax=15 \ #
# $Z centrer=VRAI \ #
# $Z dct=0.05 nombre=10 \ #
# $Z trainees=VRAI mode=1 \ #
# $Z attenuation_des_images=1.0 \ #
# $Z attenuation_des_trainees=0.80 \ #
# $Z renormaliser=FAUX \ #
# $Z Lz=100 \ #
# $Z zoom_automatique=VRAI \ #
# $Z centre_de_gravite=VRAI \ #
# $Z fond=VRAI \ #
# $Z dynamique=VRAI \ #
# $Z F=$xiim/REFL.W. \ #
# $Z R=$xiim/REFL.W. \ #
# $Z $formatI | \ #
# $Z $GRE " CENTRE_DE_GRAVITE=" \ #
# $Z > $xTV/GRAVITE #
# #
# $Z $DELETE $xTV/COORDONNEES #
# $Z $DELETE $xTV/COORDONNEES$COORD_X #
# $Z $DELETE $xTV/COORDONNEES$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_Z #
# $Z $DELETE $xTV/VITESSES #
# $Z $DELETE $xTV/VITESSES$COORD_X #
# $Z $DELETE $xTV/VITESSES$COORD_Y #
# $Z $DELETE $xTV/VITESSES$COORD_Z #
# $Z $DELETE $xTV/mdRHO #
# $Z $DELETE $xTV/MdRHO #
# $Z $DELETE $xTV/mnPHI #
# $Z $DELETE $xTV/MnPHI #
# $Z $DELETE $xTV/dPHI #
# $Z $DELETE $xTV/mnTHETA #
# $Z $DELETE $xTV/MnTHETA #
# $Z $DELETE $xTV/dTHETA #
# $Z $DELETE $xTV/DISTANCE #
# $Z $DELETE $xTV/STABILITE #
# $Z $DELETE $xTV/RAYONS #
# $Z $DELETE $xTV/INTERACTIONS #
# $Z $DELETE $xTV/COULEURS$TEINT #
# $Z $DELETE $xTV/COULEURS$LUMIN #
# $Z $DELETE $xTV/COULEURS$SATUR #
# $Z $DELETE $xTV/COULEURS$Y #
# $Z $DELETE $xTV/COULEURS #
# $Z $DELETE $xTV/COULEURS$ROUGE #
# $Z $DELETE $xTV/COULEURS$VERTE #
# $Z $DELETE $xTV/COULEURS$BLEUE #
# #
# $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("$DELETE $xTV/COORDONNEES\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_X\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_Y\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_Z\n"); #
# #
# $c printf("$DELETE $xTV/COULEURS$ROUGE\n"); #
# $c printf("$DELETE $xTV/COULEURS$VERTE\n"); #
# $c printf("$DELETE $xTV/COULEURS$BLEUE\n"); #
# #
# $c printf("listMN $xTV/GRAVITE #
# $c %d %d #
# $c > $xTV/COORDONNEES\n" #
# $c ,N0,n #
# $c ); #
# #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*[(,]XG=//%c #
# $c -e %cs/[,)].*//%c #
# $c > $xTV/COORDONNEES$COORD_X\n" #
# $c ,'"','"','"','"' #
# $c ); #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*[(,]YG=//%c #
# $c -e %cs/[,)].*//%c #
# $c > $xTV/COORDONNEES$COORD_Y\n" #
# $c ,'"','"','"','"' #
# $c ); #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*[(,]ZG=//%c #
# $c -e %cs/[,)].*//%c #
# $c > $xTV/COORDONNEES$COORD_Z\n" #
# $c ,'"','"','"','"' #
# $c ); #
# #
# $c printf("$xci/valeurs_inte$X #
# $c premiere=%d derniere=%d #
# $c vD=$GRIS_5 vA=$GRIS_5 #
# $c cubique=FAUX #
# $c entiers=VRAI #
# $c utiliser_la_valeur_de_depart=FAUX #
# $c > $xTV/COULEURS$ROUGE\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/valeurs_inte$X #
# $c premiere=%d derniere=%d #
# $c vD=$GRIS_5 vA=$GRIS_5 #
# $c cubique=FAUX #
# $c entiers=VRAI #
# $c utiliser_la_valeur_de_depart=FAUX #
# $c > $xTV/COULEURS$VERTE\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/valeurs_inte$X #
# $c premiere=%d derniere=%d #
# $c vD=$GRIS_5 vA=$GRIS_5 #
# $c cubique=FAUX #
# $c entiers=VRAI #
# $c utiliser_la_valeur_de_depart=FAUX #
# $c > $xTV/COULEURS$BLEUE\n" #
# $c ,N0,n #
# $c ); #
# #
# $c printf("$xrv/particule.10$X #
# $c np=1 #
# $c iterations=%d #
# $c LISTE_X=$xTV/COORDONNEES$COORD_X #
# $c LISTE_Y=$xTV/COORDONNEES$COORD_Y #
# $c LISTE_Z=$xTV/COORDONNEES$COORD_Z #
# $c LISTE_ROUGE=$xTV/COULEURS$ROUGE #
# $c LISTE_VERTE=$xTV/COULEURS$VERTE #
# $c LISTE_BLEUE=$xTV/COULEURS$BLEUE #
# $c LISTE_RAYON=0.006 #
# $c zoom_automatique=FAUX ZOOM=1.0 #
# $c coordonnees_dans_0_1=FAUX #
# $c AXYZ=1 BXYZ=0 #
# $c fond=VRAI #
# $c fond_dynamique=FAUX #
# $c F=$xiim/REFL.W.%04d #
# $c R=$xTV/REFL.A. #
# $c $formatI\n" #
# $c ,(n-N0)+1,n #
# $c ); #
# #
# $c printf("$xci/acces$X #
# $c A=$xTV/REFL.A.%04d$ROUGE #
# $c R=$xiim/REFL.W.%04d$ROUGE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xTV/REFL.A.%04d$VERTE #
# $c R=$xiim/REFL.W.%04d$VERTE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xTV/REFL.A.%04d$BLEUE #
# $c R=$xiim/REFL.W.%04d$BLEUE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# #
# $c printf("$DELETE $xTV/COORDONNEES\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_X\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_Y\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_Z\n"); #
# #
# $c printf("$DELETE $xTV/COULEURS$ROUGE\n"); #
# $c printf("$DELETE $xTV/COULEURS$VERTE\n"); #
# $c printf("$DELETE $xTV/COULEURS$BLEUE\n"); #
# #
# $c printf("listMN $xTV/GRAVITE #
# $c %d %d #
# $c > $xTV/COORDONNEES\n" #
# $c ,n,n #
# $c ); #
# #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*[(,]XG=//%c #
# $c -e %cs/[,)].*//%c #
# $c > $xTV/COORDONNEES$COORD_X\n" #
# $c ,'"','"','"','"' #
# $c ); #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*[(,]YG=//%c #
# $c -e %cs/[,)].*//%c #
# $c > $xTV/COORDONNEES$COORD_Y\n" #
# $c ,'"','"','"','"' #
# $c ); #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*[(,]ZG=//%c #
# $c -e %cs/[,)].*//%c #
# $c > $xTV/COORDONNEES$COORD_Z\n" #
# $c ,'"','"','"','"' #
# $c ); #
# #
# $c printf("$xci/valeurs_inte$X #
# $c premiere=%d derniere=%d #
# $c vD=$GRIS_8 vA=$GRIS_8 #
# $c cubique=FAUX #
# $c entiers=VRAI #
# $c utiliser_la_valeur_de_depart=FAUX #
# $c > $xTV/COULEURS$ROUGE\n" #
# $c ,n,n #
# $c ); #
# $c printf("$xci/valeurs_inte$X #
# $c premiere=%d derniere=%d #
# $c vD=$GRIS_8 vA=$GRIS_8 #
# $c cubique=FAUX #
# $c entiers=VRAI #
# $c utiliser_la_valeur_de_depart=FAUX #
# $c > $xTV/COULEURS$VERTE\n" #
# $c ,n,n #
# $c ); #
# $c printf("$xci/valeurs_inte$X #
# $c premiere=%d derniere=%d #
# $c vD=$GRIS_8 vA=$GRIS_8 #
# $c cubique=FAUX #
# $c entiers=VRAI #
# $c utiliser_la_valeur_de_depart=FAUX #
# $c > $xTV/COULEURS$BLEUE\n" #
# $c ,n,n #
# $c ); #
# #
# $c printf("$xrv/particule.10$X #
# $c np=1 #
# $c iterations=%d #
# $c LISTE_X=$xTV/COORDONNEES$COORD_X #
# $c LISTE_Y=$xTV/COORDONNEES$COORD_Y #
# $c LISTE_Z=$xTV/COORDONNEES$COORD_Z #
# $c LISTE_ROUGE=$xTV/COULEURS$ROUGE #
# $c LISTE_VERTE=$xTV/COULEURS$VERTE #
# $c LISTE_BLEUE=$xTV/COULEURS$BLEUE #
# $c LISTE_RAYON=0.012 #
# $c zoom_automatique=FAUX ZOOM=1.0 #
# $c coordonnees_dans_0_1=FAUX #
# $c AXYZ=1 BXYZ=0 #
# $c fond=VRAI #
# $c fond_dynamique=FAUX #
# $c F=$xiim/REFL.W.%04d #
# $c R=$xTV/REFL.B. #
# $c $formatI\n" #
# $c ,(n-n)+1,n #
# $c ); #
# #
# $c printf("$xci/acces$X #
# $c A=$xTV/REFL.B.%04d$ROUGE #
# $c R=$xiim/REFL.W.%04d$ROUGE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xTV/REFL.B.%04d$VERTE #
# $c R=$xiim/REFL.W.%04d$VERTE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xTV/REFL.B.%04d$BLEUE #
# $c R=$xiim/REFL.W.%04d$BLEUE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# $c } #
# $c } #
# #
# #
# $Z $DELETE $xTV/COORDONNEES #
# $Z $DELETE $xTV/COORDONNEES$COORD_X #
# $Z $DELETE $xTV/COORDONNEES$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_Z #
# $Z $DELETE $xTV/COULEURS$ROUGE #
# $Z $DELETE $xTV/COULEURS$VERTE #
# $Z $DELETE $xTV/COULEURS$BLEUE #
# #
# #
# #
# $Z $xci/complement$X A=$xTV/BOITE.1 \ #
# $Z R=$xTV/BOITE.3 \ #
# $Z $formatI #
# #
# $Z eval `$xci/genere$X \\\ #
# $Z commande='($xci/scale$X \\\ #
# $Z A=$xTV/BOITE.3 \\\ #
# $Z a=0.50 \\\ #
# $Z R=$xTV/BOITE.3%s \\\ #
# $Z $formatI)' \\\ #
# $Z en_tete=FAUX RVB=VRAI separateur=VRAI` #
# #
# #
# $X $xci/genere$X premiere=$Premiere derniere=$Derniere pas=1 \ #
# $X C='$xci/cache.11$Z \ #
# $X $xiim/REFL.W.%04d \ #
# $X $xTV/BOITE.3 \ #
# $X $xiim/REFL.J.%04d' #
# #
# $Z $DELETE $xTV/BOITE.1 #
# $Z $DELETE $xTV/BOITE.2 #
# $Z $DELETE $xTV/BOITE.3 #
# $Z $DELETE $xTV/BOITE.3$ROUGE #
# $Z $DELETE $xTV/BOITE.3$VERTE #
# $Z $DELETE $xTV/BOITE.3$BLEUE #
# #
# $Z Pal #
# #
# $Z $xci/reduction_16$Z $xiim/REFL.J. $xiak/REFL.I6 $Premiere $Derniere #
# $Z $xci/reduction_64$Z $xiim/REFL.J. $xiak/REFL.I6 $Premiere $Derniere #
# #
# $X $xci/genere$X c='ro $xiak/REFL.I6$R16%s' RVB=VRAI #
# $X $xci/genere$X c='ro $xiak/REFL.I6$R64%s' RVB=VRAI #
# #
# $X $xci/genere$X c='$xcg/unite$Z $xiak/REFL.I6$R16%s' RVB=VRAI #
# $X $xci/genere$X c='$xcg/unite$Z $xiak/REFL.I6$R64%s' RVB=VRAI #
# #
# $X $xci/genere$X c='$CP $xiim/REFL.J.0512%s $xiirk/REFL.I6.0512%s' RVB=VRAI #
# #
# $X $xci/genere$X c='ro $xiirk/REFL.I6.0512%s' RVB=VRAI #
# #
# $X $xci/genere$X c='$xcg/unite$Z $xiirk/REFL.I6.0512%s' RVB=VRAI #
# #
# #
# Pal #
# #
# #
# $xci/disk_video_P$Z $xiim_LACT29/REFL.J. 001 512 RVB \ #
# 11 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
# #
# xivPdf 3 2 #
# #
# record.01$Z $xiak/REFL.I6$R16 RVB Initialisation #
# record.01$Z $xiak/REFL.I6$R64 RVB rien #
# record.01$Z $xiirk/REFL.I6.0512 RVB rien #
# #
sequence 017409_017920
# Generee (sur '$LACT29') par : #
# #
# $Z SET Premiere=1 #
# $Z SET Derniere=512 #
# $Z @ Nimages = $Derniere - $Premiere #
# $Z @ Nimages = $Nimages + 1 #
# #
# #
# $Z Pal #
# #
# $Z set PUnivers="np=0 CAL1=FAUX editer_l_univers_physique=VRAI" #
# $Z set Univers=`$xrk/rdn_walk.41$X $PUnivers $formatI` #
# #
# $Z set MinX=`echo $Univers | $SE -e "s/^.*[(,]XUI=//" -e "s/[,)].*//"` #
# $Z set MaxX=`echo $Univers | $SE -e "s/^.*[(,]XUS=//" -e "s/[,)].*//"` #
# $Z set MinY=`echo $Univers | $SE -e "s/^.*[(,]YUI=//" -e "s/[,)].*//"` #
# $Z set MaxY=`echo $Univers | $SE -e "s/^.*[(,]YUS=//" -e "s/[,)].*//"` #
# #
# $Z set MinX=`$xcg/ABSO.01$X x=$MinX` #
# $Z set MaxX=`$xcg/ABSO.01$X x=$MaxX` #
# $Z set MinY=`$xcg/ABSO.01$X x=$MinY` #
# $Z set MaxY=`$xcg/ABSO.01$X x=$MaxY` #
# #
# $Z set MaxX=`$xcg/MAX2.01$X n1=$MinX n2=$MaxX` #
# $Z set MaxY=`$xcg/MAX2.01$X n1=$MinY n2=$MaxY` #
# #
# $Z set SeuilPartN=0.003026 #
# $Z set GrainePartN=2 #
# #
# $Z $DELETE $xTV/BOITE.1 #
# $Z $DELETE $xTV/BOITE.2 #
# $Z $DELETE $xTV/BOITE.3 #
# $Z $DELETE $xTV/BOITE.3$ROUGE #
# $Z $DELETE $xTV/BOITE.3$VERTE #
# $Z $DELETE $xTV/BOITE.3$BLEUE #
# $Z $DELETE $xTV/BOITE.4 #
# $Z $DELETE $xTV/BOITE.5 #
# $Z $DELETE $xTV/BOITE.6 #
# $Z $DELETE $xTV/BOITE.7 #
# $Z $DELETE $xTV/BOITE.8 #
# $Z $DELETE $xTV/BOITE.9 #
# $Z $DELETE $xTV/BOITE.A #
# $Z $DELETE $xTV/BOITE.B #
# #
# #
# $Z Std #
# #
# $Z set compatibilite_20000202=$EXIST #
# #
# $Z set FacXY=0.90 #
# $Z set SeuilBOITE=`$xcg/SOUS.01$X a=1 b=$FacXY` #
# $Z set SeuilBOITE=`$xcg/MUL2.01$X a=$SeuilBOITE b=$GRIS_8` #
# $Z set SeuilBOITE=`$xci/valeurs_inte$X p=1 d=1 vD=$SeuilBOITE entiers=VRAI` #
# $Z set SeuilBOITE=`$xcg/MIN2.01$X a=$SeuilBOITE b=$GRIS_1` #
# #
# $Z set GTransX=`$xcg/SOUS.01$X a=1 b=$FacXY` #
# $Z set GTransX=`$xcg/MOIT.01$X a=$GTransX signe="$K_VIDE"` #
# $Z set DTransX=`$xcg/MOIT.01$X a=1` #
# $Z set DTransX=`$xcg/ADD2.01$X a=$DTransX b=$GTransX signe="$K_VIDE"` #
# #
# #
# $Z set LBande=10 #
# $Z set BandeS=`$xcg/ADD2.01$X a=$GRIS_4 b=$LBande` #
# $Z set BandeI=`$xcg/SOUS.01$X a=$GRIS_4 b=$LBande` #
# #
# $Z $xci/complement$X \ #
# $Z A=$xiio/SPIRALE \ #
# $Z $formatI | \ #
# $Z $xci/seuil$X \ #
# $Z seuil=$SeuilBOITE \ #
# $Z R=$xTV/BOITE.4 \ #
# $Z $formatI #
# #
# $Z $xci/move$X \ #
# $Z A=$xTV/BOITE.4 \ #
# $Z xR=+$DTransX \ #
# $Z $formatI | \ #
# $Z $xci/move$X \ #
# $Z xR=-$GTransX \ #
# $Z $formatI | \ #
# $Z $xci/dilate.01$X \ #
# $Z points=9 \ #
# $Z dilater=VRAI \ #
# $Z R=$xTV/BOITE.5 \ #
# $Z $formatI #
# $Z $xci/Sy$X \ #
# $Z A=$xTV/BOITE.5 \ #
# $Z R=$xTV/BOITE.6 \ #
# $Z $formatI #
# #
# $Z $xci/passe_bande$X \ #
# $Z A=$xiio/MIRE \ #
# $Z inf=$BandeI \ #
# $Z sup=$BandeS \ #
# $Z $formatI | \ #
# $Z $xci/seuil$X \ #
# $Z $formatI | \ #
# $Z $xci/transpose$X \ #
# $Z $formatI | \ #
# $Z $xci/and$X \ #
# $Z A1=$xTV/BOITE.4 \ #
# $Z R=$xTV/BOITE.7 \ #
# $Z $formatI #
# #
# $Z $xci/or_02$X \ #
# $Z A1=$xTV/BOITE.5 \ #
# $Z A2=$xTV/BOITE.6 \ #
# $Z $formatI | \ #
# $Z $xci/or_02$X \ #
# $Z A2=$xTV/BOITE.7 \ #
# $Z R=$xTV/BOITE.8 \ #
# $Z $formatI #
# #
# $Z S #
# #
# $Z $xci/format.01$X mode=0 \ #
# $Z A=$xTV/BOITE.8 \ #
# $Z $formatI \ #
# $Z R=$xTV/BOITE.1 \ #
# $Z $formatR_Pal #
# #
# $Z $xci/dilate.01$X \ #
# $Z A=$xTV/BOITE.5 \ #
# $Z points=225 \ #
# $Z dilater=FAUX \ #
# $Z R=$xTV/BOITE.A \ #
# $Z $formatI #
# #
# $Z $xci/random.02$X \ #
# $Z seuil=$SeuilPartN \ #
# $Z graine=$GrainePartN \ #
# $Z $formatI | \ #
# $Z $xci/and$X \ #
# $Z A2=$xTV/BOITE.A \ #
# $Z R=$xTV/BOITE.B \ #
# $Z $formatI #
# #
# $Z $DELETE $xTV/COORDONNEES #
# $Z $DELETE $xTV/COORDONNEES_01$COORD_X #
# $Z $DELETE $xTV/COORDONNEES_01$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_X #
# $Z $DELETE $xTV/COORDONNEES$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_Z #
# #
# $Z $xci/liste_points$X \ #
# $Z A=$xTV/BOITE.B \ #
# $Z $formatI \ #
# $Z > $xTV/COORDONNEES #
# #
# $Z $DELETE $xTV/BOITE.4 #
# $Z $DELETE $xTV/BOITE.5 #
# $Z $DELETE $xTV/BOITE.6 #
# $Z $DELETE $xTV/BOITE.7 #
# $Z $DELETE $xTV/BOITE.8 #
# $Z $DELETE $xTV/BOITE.9 #
# $Z $DELETE $xTV/BOITE.A #
# $Z $DELETE $xTV/BOITE.B #
# #
# $Z set PartN=`$TAI -1 $xTV/COORDONNEES | $SE -e "s/^.*=//"` #
# #
# $Z $CA $xTV/COORDONNEES \ #
# $Z | $GRE "^[Xx]=" \ #
# $Z | $SE -e "s/^[Xx]=//" \ #
# $Z > $xTV/COORDONNEES_01$COORD_X #
# $Z $CA $xTV/COORDONNEES \ #
# $Z | $GRE "^[Yy]=" \ #
# $Z | $SE -e "s/^[Yy]=//" \ #
# $Z > $xTV/COORDONNEES_01$COORD_Y #
# #
# $Z set EchelleX=`$xcg/MUL2.01$X n1=2 n2=$MaxX` #
# $Z set TranslationX=`$xcg/MUL2.01$X n1=-1 n2=$MaxX` #
# $Z set EchelleY=`$xcg/MUL2.01$X n1=2 n2=$MaxY` #
# $Z set TranslationY=`$xcg/MUL2.01$X n1=-1 n2=$MaxY` #
# #
# $Z $xrv/AXPB.01$X \ #
# $Z CAL1=FAUX \ #
# $Z ne=$PartN \ #
# $Z fichier=$xTV/COORDONNEES_01$COORD_X \ #
# $Z homothetie=$EchelleX translation=$TranslationX \ #
# $Z > $xTV/COORDONNEES$COORD_X #
# $Z $xrv/AXPB.01$X \ #
# $Z CAL1=FAUX \ #
# $Z ne=$PartN \ #
# $Z fichier=$xTV/COORDONNEES_01$COORD_Y \ #
# $Z homothetie=$EchelleY translation=$TranslationY \ #
# $Z > $xTV/COORDONNEES$COORD_Y #
# #
# $Z $DELETE $xTV/COORDONNEES_01$COORD_X #
# $Z $DELETE $xTV/COORDONNEES_01$COORD_Y #
# #
# $Z set Part0=1 #
# $Z @ Npart = $PartN - $Part0 #
# $Z @ Npart = $Npart + 1 #
# #
# $Z $DELETE $xTV/MODULE #
# $Z $DELETE $xTV/THETA #
# $Z $DELETE $xTV/XY_RT.1 #
# $Z $DELETE $xTV/XY_RT.2 #
# $Z $DELETE $xTV/VITESSES #
# $Z $DELETE $xTV/VITESSES$COORD_X #
# $Z $DELETE $xTV/VITESSES$COORD_Y #
# $Z $DELETE $xTV/VITESSES$COORD_Z #
# $Z $DELETE $xTV/mdRHO #
# $Z $DELETE $xTV/MdRHO #
# $Z $DELETE $xTV/mnPHI #
# $Z $DELETE $xTV/MnPHI #
# $Z $DELETE $xTV/dPHI #
# $Z $DELETE $xTV/mnTHETA #
# $Z $DELETE $xTV/MnTHETA #
# $Z $DELETE $xTV/dTHETA #
# $Z $DELETE $xTV/supOUVE #
# $Z $DELETE $xTV/DISTANCE #
# $Z $DELETE $xTV/STABILITE #
# $Z $DELETE $xTV/RAYONS #
# $Z $DELETE $xTV/INTERACTIONS #
# #
# #
# $Z alias Gen 'set Fi=\!:1 ; set vD=\!:2 ; set vA=\!:3 ; set ArG=(\!:4*) ; \\ #
# $Z $DELETE $Fi ; \\ #
# $Z $xci/valeurs_inte$X p=$Part0 d=$PartN vD=$vD vA=$vA $ArG > $Fi ; \\ #
# $Z unset Fi vD vA ArG' #
# #
# $Z alias GenR 'set Fi=\!:1 ; set In=\!:2 ; set Su=\!:3 ; set ArG=(\!:4*) ; \\ #
# $Z $DELETE $Fi ; \\ #
# $Z $xci/valeurs_alea$X p=$Part0 d=$PartN signe="$KV" inf=$In sup=$Su $ArG > $Fi ; \\ #
# $Z unset Fi In Su ArG' #
# #
# $Z Gen $xTV/COORDONNEES$COORD_Z 0.0 0.0 #
# #
# #
# $Z Gen $xTV/MODULE 0.02 0.02 #
# $Z GenR $xTV/THETA 0.0 $dpi g=3333 #
# #
# $Z $CA $xcs/csh$Y \ #
# $Z > $xTV/XY_RT.1 #
# $Z $PAST $xTV/MODULE $xTV/THETA \ #
# $Z | $R "$K_TAB" "$K_BLANC" \ #
# $Z | $AW ' { print "$xcg/XY_RT$X r=" $1 " t=" $2 " cartesien=FAUX" } ' \ #
# $Z >>! $xTV/XY_RT.1 #
# #
# $Z (source $xTV/XY_RT.1) \ #
# $Z > $xTV/XY_RT.2 #
# #
# $Z $CA $xTV/XY_RT.2 \ #
# $Z | $GRE "^x=" \ #
# $Z | $SE -e "s/^x=//" \ #
# $Z > $xTV/VITESSES$COORD_X #
# $Z $CA $xTV/XY_RT.2 \ #
# $Z | $GRE "^y=" \ #
# $Z | $SE -e "s/^y=//" \ #
# $Z > $xTV/VITESSES$COORD_Y #
# #
# $Z Gen $xTV/VITESSES$COORD_Z 0.0 0.0 #
# #
# $Z Gen $xTV/mdRHO 0.0 0.0 #
# $Z Gen $xTV/MdRHO 0.0 0.0 #
# $Z Gen $xTV/mnPHI 0.0 0.0 #
# $Z Gen $xTV/MnPHI 0.0 0.0 #
# $Z Gen $xTV/dPHI 0.0 0.0 #
# $Z Gen $xTV/mnTHETA 0.0 0.0 #
# $Z Gen $xTV/MnTHETA 0.0 0.0 #
# $Z Gen $xTV/dTHETA 0.0 0.0 #
# $Z Gen $xTV/DISTANCE 1000000 1000000 #
# $Z Gen $xTV/STABILITE 1000000 1000000 #
# #
# $Z set RayonsT=0.014 #
# $Z set RayonsP=`$xcg/MUL2.01$X a=2 b=$RayonsT` #
# $Z set DistanceI=`$xcg/MUL2.01$X a=4 b=$RayonsP` #
# $Z Gen $xTV/RAYONS $RayonsT $RayonsT #
# $Z Gen $xTV/INTERACTIONS $RayonsP $RayonsP #
# #
# $Z $DELETE $xTV/COULEURS$TEINT #
# $Z $DELETE $xTV/COULEURS$LUMIN #
# $Z $DELETE $xTV/COULEURS$SATUR #
# $Z $DELETE $xTV/COULEURS$Y #
# $Z $DELETE $xTV/COULEURS #
# $Z $DELETE $xTV/COULEURS$ROUGE #
# $Z $DELETE $xTV/COULEURS$VERTE #
# $Z $DELETE $xTV/COULEURS$BLEUE #
# #
# $Z @ TeinteMagenta = $GRIS_7 #
# $Z @ TeinteCyan = $GRIS_4 + $GRIS_8 #
# #
# $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartN \ #
# $Z vD=$TeinteMagenta vA=$TeinteCyan \ #
# $Z cubique=FAUX \ #
# $Z entiers=VRAI \ #
# $Z > $xTV/COULEURS$TEINT #
# $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartN \ #
# $Z vD=$GRIS_4 vA=$GRIS_4 \ #
# $Z cubique=FAUX \ #
# $Z entiers=VRAI \ #
# $Z > $xTV/COULEURS$LUMIN #
# $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartN \ #
# $Z vD=$GRIS_8 vA=$GRIS_8 \ #
# $Z cubique=FAUX \ #
# $Z entiers=VRAI \ #
# $Z > $xTV/COULEURS$SATUR #
# #
# $Z $PAST \ #
# $Z $xTV/COULEURS$TEINT \ #
# $Z $xTV/COULEURS$LUMIN \ #
# $Z $xTV/COULEURS$SATUR \ #
# $Z | $R "$K_TAB" "$K_BLANC" \ #
# $Z | $AW ' { print "H=" $1 " L=" $2 " S=" $3 } ' \ #
# $Z | $SE -e 's+^+$xcg/RVB_HLS$X RVB_HLS=FAUX +' \ #
# $Z | $SE -e 's/$/ eR=VRAI eV=VRAI eB=VRAI/' \ #
# $Z | $SE -e 's/$/ eH=FAUX eL=FAUX eS=FAUX/' \ #
# $Z > $xTV/COULEURS$Y #
# #
# $Z (source $xTV/COULEURS$Y) \ #
# $Z > $xTV/COULEURS #
# #
# $Z $GRE "^R=" $xTV/COULEURS \ #
# $Z | $SE -e "s/^R=//" \ #
# $Z > $xTV/COULEURS$ROUGE #
# $Z $GRE "^V=" $xTV/COULEURS \ #
# $Z | $SE -e "s/^V=//" \ #
# $Z > $xTV/COULEURS$VERTE #
# $Z $GRE "^B=" $xTV/COULEURS \ #
# $Z | $SE -e "s/^B=//" \ #
# $Z > $xTV/COULEURS$BLEUE #
# #
# $Z Pal #
# #
# #
# $Z $xci/scale$X \ #
# $Z A=$xTV/BOITE.1 \ #
# $Z a=1.00 \ #
# $Z R=$xTV/BOITE.2 \ #
# $Z $formatI #
# #
# $Z $xrk/rdn_walk.41$X corps=$Npart \ #
# $Z np=$Nimages \ #
# $Z collisions=VRAI DLA=FAUX interaction=$DistanceI \ #
# $Z LISTE_X=$xTV/COORDONNEES$COORD_X \ #
# $Z LISTE_Y=$xTV/COORDONNEES$COORD_Y \ #
# $Z LISTE_Z=$xTV/COORDONNEES$COORD_Z \ #
# $Z LISTE_VX=$xTV/VITESSES$COORD_X \ #
# $Z LISTE_VY=$xTV/VITESSES$COORD_Y \ #
# $Z LISTE_VZ=$xTV/VITESSES$COORD_Z \ #
# $Z LISTE_MINIMUM_DELTA_RHO=$xTV/mdRHO \ #
# $Z LISTE_MAXIMUM_DELTA_RHO=$xTV/MdRHO \ #
# $Z LISTE_MINIMUM_N_PHI=$xTV/mnPHI \ #
# $Z LISTE_MAXIMUM_N_PHI=$xTV/MnPHI \ #
# $Z LISTE_DELTA_PHI=$xTV/dPHI \ #
# $Z LISTE_MINIMUM_N_THETA=$xTV/mnTHETA \ #
# $Z LISTE_MAXIMUM_N_THETA=$xTV/MnTHETA \ #
# $Z LISTE_DELTA_THETA=$xTV/dTHETA \ #
# $Z LISTE_DISTANCE_MAXIMALE=$xTV/DISTANCE \ #
# $Z LISTE_STABILITE=$xTV/STABILITE \ #
# $Z LISTE_RAYON=$xTV/RAYONS \ #
# $Z LISTE_RAYON_D_INTERACTION=$xTV/INTERACTIONS \ #
# $Z LISTE_ROUGE=$xTV/COULEURS$ROUGE \ #
# $Z LISTE_VERTE=$xTV/COULEURS$VERTE \ #
# $Z LISTE_BLEUE=$xTV/COULEURS$BLEUE \ #
# $Z milieu=VRAI \ #
# $Z reflexion=VRAI refraction=FAUX \ #
# $Z Mhors=$BLANC \ #
# $Z MNpasX=1 Mprolonger_X=VRAI \ #
# $Z MNpasY=1 Mprolonger_Y=VRAI \ #
# $Z MNpasZ=1 Mprolonger_Z=VRAI \ #
# $Z adapter_M_nPAS=VRAI \ #
# $Z Msimplifier=FAUX affiner_M_maillage=FAUX \ #
# $Z MC=$xTV/BOITE.2 \ #
# $Z MChiffres=0 \ #
# $Z Zmin=0 Zmax=15 \ #
# $Z centrer=VRAI \ #
# $Z dct=0.05 nombre=10 \ #
# $Z trainees=VRAI mode=1 \ #
# $Z attenuation_des_images=0.6 \ #
# $Z attenuation_des_trainees=1.00 \ #
# $Z renormaliser=FAUX \ #
# $Z Lz=100 \ #
# $Z zoom_automatique=VRAI \ #
# $Z centre_de_gravite=FAUX \ #
# $Z fond=FAUX \ #
# $Z R=$xiim/REFL.W. \ #
# $Z $formatI #
# #
# $Z $DELETE $xTV/RAYONS #
# $Z $CP $xTV/INTERACTIONS $xTV/RAYONS #
# #
# $Z $DELETE $xTV/GRAVITE #
# $Z $xrk/rdn_walk.41$X corps=$Npart \ #
# $Z np=$Nimages \ #
# $Z collisions=VRAI DLA=FAUX interaction=$DistanceI \ #
# $Z LISTE_X=$xTV/COORDONNEES$COORD_X \ #
# $Z LISTE_Y=$xTV/COORDONNEES$COORD_Y \ #
# $Z LISTE_Z=$xTV/COORDONNEES$COORD_Z \ #
# $Z LISTE_VX=$xTV/VITESSES$COORD_X \ #
# $Z LISTE_VY=$xTV/VITESSES$COORD_Y \ #
# $Z LISTE_VZ=$xTV/VITESSES$COORD_Z \ #
# $Z LISTE_MINIMUM_DELTA_RHO=$xTV/mdRHO \ #
# $Z LISTE_MAXIMUM_DELTA_RHO=$xTV/MdRHO \ #
# $Z LISTE_MINIMUM_N_PHI=$xTV/mnPHI \ #
# $Z LISTE_MAXIMUM_N_PHI=$xTV/MnPHI \ #
# $Z LISTE_DELTA_PHI=$xTV/dPHI \ #
# $Z LISTE_MINIMUM_N_THETA=$xTV/mnTHETA \ #
# $Z LISTE_MAXIMUM_N_THETA=$xTV/MnTHETA \ #
# $Z LISTE_DELTA_THETA=$xTV/dTHETA \ #
# $Z LISTE_DISTANCE_MAXIMALE=$xTV/DISTANCE \ #
# $Z LISTE_STABILITE=$xTV/STABILITE \ #
# $Z LISTE_RAYON=$xTV/RAYONS \ #
# $Z LISTE_RAYON_D_INTERACTION=$xTV/INTERACTIONS \ #
# $Z LISTE_ROUGE=$xTV/COULEURS$ROUGE \ #
# $Z LISTE_VERTE=$xTV/COULEURS$VERTE \ #
# $Z LISTE_BLEUE=$xTV/COULEURS$BLEUE \ #
# $Z milieu=VRAI \ #
# $Z reflexion=VRAI refraction=FAUX \ #
# $Z Mhors=$BLANC \ #
# $Z MNpasX=1 Mprolonger_X=VRAI \ #
# $Z MNpasY=1 Mprolonger_Y=VRAI \ #
# $Z MNpasZ=1 Mprolonger_Z=VRAI \ #
# $Z adapter_M_nPAS=VRAI \ #
# $Z Msimplifier=FAUX affiner_M_maillage=FAUX \ #
# $Z MC=$xTV/BOITE.2 \ #
# $Z MChiffres=0 \ #
# $Z Zmin=0 Zmax=15 \ #
# $Z centrer=VRAI \ #
# $Z dct=0.05 nombre=10 \ #
# $Z trainees=VRAI mode=1 \ #
# $Z attenuation_des_images=1.0 \ #
# $Z attenuation_des_trainees=0.80 \ #
# $Z renormaliser=FAUX \ #
# $Z Lz=100 \ #
# $Z zoom_automatique=VRAI \ #
# $Z centre_de_gravite=VRAI \ #
# $Z fond=VRAI \ #
# $Z dynamique=VRAI \ #
# $Z F=$xiim/REFL.W. \ #
# $Z R=$xiim/REFL.W. \ #
# $Z $formatI | \ #
# $Z $GRE " CENTRE_DE_GRAVITE=" \ #
# $Z > $xTV/GRAVITE #
# #
# $Z $DELETE $xTV/COORDONNEES #
# $Z $DELETE $xTV/COORDONNEES$COORD_X #
# $Z $DELETE $xTV/COORDONNEES$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_Z #
# $Z $DELETE $xTV/VITESSES #
# $Z $DELETE $xTV/VITESSES$COORD_X #
# $Z $DELETE $xTV/VITESSES$COORD_Y #
# $Z $DELETE $xTV/VITESSES$COORD_Z #
# $Z $DELETE $xTV/mdRHO #
# $Z $DELETE $xTV/MdRHO #
# $Z $DELETE $xTV/mnPHI #
# $Z $DELETE $xTV/MnPHI #
# $Z $DELETE $xTV/dPHI #
# $Z $DELETE $xTV/mnTHETA #
# $Z $DELETE $xTV/MnTHETA #
# $Z $DELETE $xTV/dTHETA #
# $Z $DELETE $xTV/DISTANCE #
# $Z $DELETE $xTV/STABILITE #
# $Z $DELETE $xTV/RAYONS #
# $Z $DELETE $xTV/INTERACTIONS #
# $Z $DELETE $xTV/COULEURS$TEINT #
# $Z $DELETE $xTV/COULEURS$LUMIN #
# $Z $DELETE $xTV/COULEURS$SATUR #
# $Z $DELETE $xTV/COULEURS$Y #
# $Z $DELETE $xTV/COULEURS #
# $Z $DELETE $xTV/COULEURS$ROUGE #
# $Z $DELETE $xTV/COULEURS$VERTE #
# $Z $DELETE $xTV/COULEURS$BLEUE #
# #
# $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("$DELETE $xTV/COORDONNEES\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_X\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_Y\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_Z\n"); #
# #
# $c printf("$DELETE $xTV/COULEURS$ROUGE\n"); #
# $c printf("$DELETE $xTV/COULEURS$VERTE\n"); #
# $c printf("$DELETE $xTV/COULEURS$BLEUE\n"); #
# #
# $c printf("listMN $xTV/GRAVITE #
# $c %d %d #
# $c > $xTV/COORDONNEES\n" #
# $c ,N0,n #
# $c ); #
# #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*[(,]XG=//%c #
# $c -e %cs/[,)].*//%c #
# $c > $xTV/COORDONNEES$COORD_X\n" #
# $c ,'"','"','"','"' #
# $c ); #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*[(,]YG=//%c #
# $c -e %cs/[,)].*//%c #
# $c > $xTV/COORDONNEES$COORD_Y\n" #
# $c ,'"','"','"','"' #
# $c ); #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*[(,]ZG=//%c #
# $c -e %cs/[,)].*//%c #
# $c > $xTV/COORDONNEES$COORD_Z\n" #
# $c ,'"','"','"','"' #
# $c ); #
# #
# $c printf("$xci/valeurs_inte$X #
# $c premiere=%d derniere=%d #
# $c vD=$GRIS_5 vA=$GRIS_5 #
# $c cubique=FAUX #
# $c entiers=VRAI #
# $c utiliser_la_valeur_de_depart=FAUX #
# $c > $xTV/COULEURS$ROUGE\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/valeurs_inte$X #
# $c premiere=%d derniere=%d #
# $c vD=$GRIS_5 vA=$GRIS_5 #
# $c cubique=FAUX #
# $c entiers=VRAI #
# $c utiliser_la_valeur_de_depart=FAUX #
# $c > $xTV/COULEURS$VERTE\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/valeurs_inte$X #
# $c premiere=%d derniere=%d #
# $c vD=$GRIS_5 vA=$GRIS_5 #
# $c cubique=FAUX #
# $c entiers=VRAI #
# $c utiliser_la_valeur_de_depart=FAUX #
# $c > $xTV/COULEURS$BLEUE\n" #
# $c ,N0,n #
# $c ); #
# #
# $c printf("$xrv/particule.10$X #
# $c np=1 #
# $c iterations=%d #
# $c LISTE_X=$xTV/COORDONNEES$COORD_X #
# $c LISTE_Y=$xTV/COORDONNEES$COORD_Y #
# $c LISTE_Z=$xTV/COORDONNEES$COORD_Z #
# $c LISTE_ROUGE=$xTV/COULEURS$ROUGE #
# $c LISTE_VERTE=$xTV/COULEURS$VERTE #
# $c LISTE_BLEUE=$xTV/COULEURS$BLEUE #
# $c LISTE_RAYON=0.006 #
# $c zoom_automatique=FAUX ZOOM=1.0 #
# $c coordonnees_dans_0_1=FAUX #
# $c AXYZ=1 BXYZ=0 #
# $c fond=VRAI #
# $c fond_dynamique=FAUX #
# $c F=$xiim/REFL.W.%04d #
# $c R=$xTV/REFL.A. #
# $c $formatI\n" #
# $c ,(n-N0)+1,n #
# $c ); #
# #
# $c printf("$xci/acces$X #
# $c A=$xTV/REFL.A.%04d$ROUGE #
# $c R=$xiim/REFL.W.%04d$ROUGE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xTV/REFL.A.%04d$VERTE #
# $c R=$xiim/REFL.W.%04d$VERTE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xTV/REFL.A.%04d$BLEUE #
# $c R=$xiim/REFL.W.%04d$BLEUE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# #
# $c printf("$DELETE $xTV/COORDONNEES\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_X\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_Y\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_Z\n"); #
# #
# $c printf("$DELETE $xTV/COULEURS$ROUGE\n"); #
# $c printf("$DELETE $xTV/COULEURS$VERTE\n"); #
# $c printf("$DELETE $xTV/COULEURS$BLEUE\n"); #
# #
# $c printf("listMN $xTV/GRAVITE #
# $c %d %d #
# $c > $xTV/COORDONNEES\n" #
# $c ,n,n #
# $c ); #
# #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*[(,]XG=//%c #
# $c -e %cs/[,)].*//%c #
# $c > $xTV/COORDONNEES$COORD_X\n" #
# $c ,'"','"','"','"' #
# $c ); #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*[(,]YG=//%c #
# $c -e %cs/[,)].*//%c #
# $c > $xTV/COORDONNEES$COORD_Y\n" #
# $c ,'"','"','"','"' #
# $c ); #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*[(,]ZG=//%c #
# $c -e %cs/[,)].*//%c #
# $c > $xTV/COORDONNEES$COORD_Z\n" #
# $c ,'"','"','"','"' #
# $c ); #
# #
# $c printf("$xci/valeurs_inte$X #
# $c premiere=%d derniere=%d #
# $c vD=$GRIS_8 vA=$GRIS_8 #
# $c cubique=FAUX #
# $c entiers=VRAI #
# $c utiliser_la_valeur_de_depart=FAUX #
# $c > $xTV/COULEURS$ROUGE\n" #
# $c ,n,n #
# $c ); #
# $c printf("$xci/valeurs_inte$X #
# $c premiere=%d derniere=%d #
# $c vD=$GRIS_8 vA=$GRIS_8 #
# $c cubique=FAUX #
# $c entiers=VRAI #
# $c utiliser_la_valeur_de_depart=FAUX #
# $c > $xTV/COULEURS$VERTE\n" #
# $c ,n,n #
# $c ); #
# $c printf("$xci/valeurs_inte$X #
# $c premiere=%d derniere=%d #
# $c vD=$GRIS_8 vA=$GRIS_8 #
# $c cubique=FAUX #
# $c entiers=VRAI #
# $c utiliser_la_valeur_de_depart=FAUX #
# $c > $xTV/COULEURS$BLEUE\n" #
# $c ,n,n #
# $c ); #
# #
# $c printf("$xrv/particule.10$X #
# $c np=1 #
# $c iterations=%d #
# $c LISTE_X=$xTV/COORDONNEES$COORD_X #
# $c LISTE_Y=$xTV/COORDONNEES$COORD_Y #
# $c LISTE_Z=$xTV/COORDONNEES$COORD_Z #
# $c LISTE_ROUGE=$xTV/COULEURS$ROUGE #
# $c LISTE_VERTE=$xTV/COULEURS$VERTE #
# $c LISTE_BLEUE=$xTV/COULEURS$BLEUE #
# $c LISTE_RAYON=0.012 #
# $c zoom_automatique=FAUX ZOOM=1.0 #
# $c coordonnees_dans_0_1=FAUX #
# $c AXYZ=1 BXYZ=0 #
# $c fond=VRAI #
# $c fond_dynamique=FAUX #
# $c F=$xiim/REFL.W.%04d #
# $c R=$xTV/REFL.B. #
# $c $formatI\n" #
# $c ,(n-n)+1,n #
# $c ); #
# #
# $c printf("$xci/acces$X #
# $c A=$xTV/REFL.B.%04d$ROUGE #
# $c R=$xiim/REFL.W.%04d$ROUGE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xTV/REFL.B.%04d$VERTE #
# $c R=$xiim/REFL.W.%04d$VERTE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xTV/REFL.B.%04d$BLEUE #
# $c R=$xiim/REFL.W.%04d$BLEUE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# $c } #
# $c } #
# #
# #
# $Z $DELETE $xTV/COORDONNEES #
# $Z $DELETE $xTV/COORDONNEES$COORD_X #
# $Z $DELETE $xTV/COORDONNEES$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_Z #
# $Z $DELETE $xTV/COULEURS$ROUGE #
# $Z $DELETE $xTV/COULEURS$VERTE #
# $Z $DELETE $xTV/COULEURS$BLEUE #
# #
# #
# #
# $Z $xci/complement$X A=$xTV/BOITE.1 \ #
# $Z R=$xTV/BOITE.3 \ #
# $Z $formatI #
# #
# $Z eval `$xci/genere$X \\\ #
# $Z commande='($xci/scale$X \\\ #
# $Z A=$xTV/BOITE.3 \\\ #
# $Z a=0.50 \\\ #
# $Z R=$xTV/BOITE.3%s \\\ #
# $Z $formatI)' \\\ #
# $Z en_tete=FAUX RVB=VRAI separateur=VRAI` #
# #
# #
# $X $xci/genere$X premiere=$Premiere derniere=$Derniere pas=1 \ #
# $X C='$xci/cache.11$Z \ #
# $X $xiim/REFL.W.%04d \ #
# $X $xTV/BOITE.3 \ #
# $X $xiim/REFL.K.%04d' #
# #
# $Z $DELETE $xTV/BOITE.1 #
# $Z $DELETE $xTV/BOITE.2 #
# $Z $DELETE $xTV/BOITE.3 #
# $Z $DELETE $xTV/BOITE.3$ROUGE #
# $Z $DELETE $xTV/BOITE.3$VERTE #
# $Z $DELETE $xTV/BOITE.3$BLEUE #
# #
# $Z Pal #
# #
# $Z $xci/reduction_16$Z $xiim/REFL.K. $xiak/REFL.I8 $Premiere $Derniere #
# $Z $xci/reduction_64$Z $xiim/REFL.K. $xiak/REFL.I8 $Premiere $Derniere #
# #
# $X $xci/genere$X c='ro $xiak/REFL.I8$R16%s' RVB=VRAI #
# $X $xci/genere$X c='ro $xiak/REFL.I8$R64%s' RVB=VRAI #
# #
# $X $xci/genere$X c='$xcg/unite$Z $xiak/REFL.I8$R16%s' RVB=VRAI #
# $X $xci/genere$X c='$xcg/unite$Z $xiak/REFL.I8$R64%s' RVB=VRAI #
# #
# $X $xci/genere$X c='$CP $xiim/REFL.K.0512%s $xiirk/REFL.I8.0512%s' RVB=VRAI #
# #
# $X $xci/genere$X c='ro $xiirk/REFL.I8.0512%s' RVB=VRAI #
# #
# $X $xci/genere$X c='$xcg/unite$Z $xiirk/REFL.I8.0512%s' RVB=VRAI #
# #
# #
# Pal #
# #
# #
# $xci/disk_video_P$Z $xiim_LACT29/REFL.K. 001 512 RVB \ #
# 11 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
# #
# xivPdf 3 2 #
# #
# record.01$Z $xiak/REFL.I8$R16 RVB Initialisation #
# record.01$Z $xiak/REFL.I8$R64 RVB rien #
# record.01$Z $xiirk/REFL.I8.0512 RVB rien #
# #
sequence 017921_018097
sequence 018098_018609
# Generee (sur '$LACT29') par : #
# #
# $Z SET tPremiereA=1 #
# $Z SET tDerniereA=256 #
# $Z SET tDupliquee=1 #
# $Z SET tPremiereB=$tPremiereA #
# $Z SET tDerniereB=`expr $tDerniereA + $tDupliquee` #
# $Z SET tDerniereB=$tDerniereB #
# $Z set Premiere=$tPremiereA #
# $Z @ NimagesA = $tDerniereA - $tPremiereA #
# $Z @ NimagesA = $NimagesA + 1 #
# $Z @ NimagesB = $tDerniereB - $tPremiereB #
# $Z @ NimagesB = $NimagesB + 1 #
# $Z @ Nimages = $NimagesA + $NimagesB #
# $Z @ Nimages = $Nimages - 1 #
# $Z @ Derniere = $Premiere + $Nimages #
# $Z @ Derniere = $Derniere - 1 #
# #
# $Z SETENV PremiereA $tPremiereA #
# $Z SETENV DerniereA $tDerniereA #
# $Z SETENV Dupliquee $tDupliquee #
# $Z SETENV PremiereB $tPremiereB #
# $Z SETENV DerniereB $tDerniereB #
# #
# #
# $Z Pal #
# #
# $Z set PUnivers="np=0 CAL1=FAUX editer_l_univers_physique=VRAI" #
# $Z set Univers=`$xrk/rdn_walk.41$X $PUnivers $formatI` #
# #
# $Z set MinX=`echo $Univers | $SE -e "s/^.*[(,]XUI=//" -e "s/[,)].*//"` #
# $Z set MaxX=`echo $Univers | $SE -e "s/^.*[(,]XUS=//" -e "s/[,)].*//"` #
# $Z set MinY=`echo $Univers | $SE -e "s/^.*[(,]YUI=//" -e "s/[,)].*//"` #
# $Z set MaxY=`echo $Univers | $SE -e "s/^.*[(,]YUS=//" -e "s/[,)].*//"` #
# #
# $Z set MinX=`$xcg/ABSO.01$X x=$MinX` #
# $Z set MaxX=`$xcg/ABSO.01$X x=$MaxX` #
# $Z set MinY=`$xcg/ABSO.01$X x=$MinY` #
# $Z set MaxY=`$xcg/ABSO.01$X x=$MaxY` #
# #
# $Z set MaxX=`$xcg/MAX2.01$X n1=$MinX n2=$MaxX` #
# $Z set MaxY=`$xcg/MAX2.01$X n1=$MinY n2=$MaxY` #
# #
# $Z set SeuilPartN=0.003026 #
# $Z set GrainePartN=2 #
# #
# $Z $DELETE $xTV/BOITE.1 #
# $Z $DELETE $xTV/BOITE.2 #
# $Z $DELETE $xTV/BOITE.3 #
# $Z $DELETE $xTV/BOITE.3$ROUGE #
# $Z $DELETE $xTV/BOITE.3$VERTE #
# $Z $DELETE $xTV/BOITE.3$BLEUE #
# $Z $DELETE $xTV/BOITE.4 #
# $Z $DELETE $xTV/BOITE.5 #
# $Z $DELETE $xTV/BOITE.6 #
# $Z $DELETE $xTV/BOITE.7 #
# $Z $DELETE $xTV/BOITE.8 #
# $Z $DELETE $xTV/BOITE.A #
# $Z $DELETE $xTV/BOITE.B #
# #
# #
# $Z Std #
# #
# $Z set compatibilite_20000202=$EXIST #
# #
# $Z set FacXY=0.90 #
# $Z set SeuilBOITE=`$xcg/SOUS.01$X a=1 b=$FacXY` #
# $Z set SeuilBOITE=`$xcg/MUL2.01$X a=$SeuilBOITE b=$GRIS_8` #
# $Z set SeuilBOITE=`$xci/valeurs_inte$X p=1 d=1 vD=$SeuilBOITE entiers=VRAI` #
# $Z set SeuilBOITE=`$xcg/MIN2.01$X a=$SeuilBOITE b=$GRIS_1` #
# #
# $Z set GTransX=`$xcg/SOUS.01$X a=1 b=$FacXY` #
# $Z set GTransX=`$xcg/MOIT.01$X a=$GTransX signe="$K_VIDE"` #
# $Z set DTransX=`$xcg/MOIT.01$X a=1` #
# $Z set DTransX=`$xcg/ADD2.01$X a=$DTransX b=$GTransX signe="$K_VIDE"` #
# #
# #
# $Z set LBande=10 #
# $Z set BandeS=`$xcg/ADD2.01$X a=$GRIS_4 b=$LBande` #
# $Z set BandeI=`$xcg/SOUS.01$X a=$GRIS_4 b=$LBande` #
# #
# $Z $xci/complement$X \ #
# $Z A=$xiio/SPIRALE \ #
# $Z $formatI | \ #
# $Z $xci/seuil$X \ #
# $Z seuil=$SeuilBOITE \ #
# $Z R=$xTV/BOITE.4 \ #
# $Z $formatI #
# #
# $Z $xci/move$X \ #
# $Z A=$xTV/BOITE.4 \ #
# $Z xR=+$DTransX \ #
# $Z $formatI | \ #
# $Z $xci/move$X \ #
# $Z xR=-$GTransX \ #
# $Z $formatI | \ #
# $Z $xci/dilate.01$X \ #
# $Z points=9 \ #
# $Z dilater=VRAI \ #
# $Z R=$xTV/BOITE.5 \ #
# $Z $formatI #
# $Z $xci/Sy$X \ #
# $Z A=$xTV/BOITE.5 \ #
# $Z R=$xTV/BOITE.6 \ #
# $Z $formatI #
# #
# $Z $xci/passe_bande$X \ #
# $Z A=$xiio/MIRE \ #
# $Z inf=$BandeI \ #
# $Z sup=$BandeS \ #
# $Z $formatI | \ #
# $Z $xci/seuil$X \ #
# $Z $formatI | \ #
# $Z $xci/transpose$X \ #
# $Z $formatI | \ #
# $Z $xci/and$X \ #
# $Z A1=$xTV/BOITE.4 \ #
# $Z R=$xTV/BOITE.7 \ #
# $Z $formatI #
# #
# $Z $xci/or_02$X \ #
# $Z A1=$xTV/BOITE.5 \ #
# $Z A2=$xTV/BOITE.6 \ #
# $Z $formatI | \ #
# $Z $xci/or_02$X \ #
# $Z A2=$xTV/BOITE.7 \ #
# $Z R=$xTV/BOITE.8 \ #
# $Z $formatI #
# #
# $Z S #
# #
# $Z $xci/format.01$X mode=0 \ #
# $Z A=$xTV/BOITE.8 \ #
# $Z $formatI \ #
# $Z R=$xTV/BOITE.1 \ #
# $Z $formatR_Pal #
# #
# $Z $xci/dilate.01$X \ #
# $Z A=$xTV/BOITE.5 \ #
# $Z points=225 \ #
# $Z dilater=FAUX \ #
# $Z R=$xTV/BOITE.A \ #
# $Z $formatI #
# #
# $Z $xci/random.02$X \ #
# $Z seuil=$SeuilPartN \ #
# $Z graine=$GrainePartN \ #
# $Z $formatI | \ #
# $Z $xci/and$X \ #
# $Z A2=$xTV/BOITE.A \ #
# $Z R=$xTV/BOITE.B \ #
# $Z $formatI #
# #
# $Z $DELETE $xTV/COORDONNEES #
# $Z $DELETE $xTV/COORDONNEES_01$COORD_X #
# $Z $DELETE $xTV/COORDONNEES_01$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_X #
# $Z $DELETE $xTV/COORDONNEES$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_Z #
# #
# $Z $xci/liste_points$X \ #
# $Z A=$xTV/BOITE.B \ #
# $Z $formatI \ #
# $Z > $xTV/COORDONNEES #
# #
# $Z $DELETE $xTV/BOITE.4 #
# $Z $DELETE $xTV/BOITE.5 #
# $Z $DELETE $xTV/BOITE.6 #
# $Z $DELETE $xTV/BOITE.7 #
# $Z $DELETE $xTV/BOITE.8 #
# $Z $DELETE $xTV/BOITE.A #
# $Z $DELETE $xTV/BOITE.B #
# #
# $Z set PartN=`$TAI -1 $xTV/COORDONNEES | $SE -e "s/^.*=//"` #
# #
# $Z $CA $xTV/COORDONNEES \ #
# $Z | $GRE "^[Xx]=" \ #
# $Z | $SE -e "s/^[Xx]=//" \ #
# $Z > $xTV/COORDONNEES_01$COORD_X #
# $Z $CA $xTV/COORDONNEES \ #
# $Z | $GRE "^[Yy]=" \ #
# $Z | $SE -e "s/^[Yy]=//" \ #
# $Z > $xTV/COORDONNEES_01$COORD_Y #
# #
# $Z set EchelleX=`$xcg/MUL2.01$X n1=2 n2=$MaxX` #
# $Z set TranslationX=`$xcg/MUL2.01$X n1=-1 n2=$MaxX` #
# $Z set EchelleY=`$xcg/MUL2.01$X n1=2 n2=$MaxY` #
# $Z set TranslationY=`$xcg/MUL2.01$X n1=-1 n2=$MaxY` #
# #
# $Z $xrv/AXPB.01$X \ #
# $Z CAL1=FAUX \ #
# $Z ne=$PartN \ #
# $Z fichier=$xTV/COORDONNEES_01$COORD_X \ #
# $Z homothetie=$EchelleX translation=$TranslationX \ #
# $Z > $xTV/COORDONNEES$COORD_X #
# $Z $xrv/AXPB.01$X \ #
# $Z CAL1=FAUX \ #
# $Z ne=$PartN \ #
# $Z fichier=$xTV/COORDONNEES_01$COORD_Y \ #
# $Z homothetie=$EchelleY translation=$TranslationY \ #
# $Z > $xTV/COORDONNEES$COORD_Y #
# #
# $Z $DELETE $xTV/COORDONNEES_01$COORD_X #
# $Z $DELETE $xTV/COORDONNEES_01$COORD_Y #
# #
# $Z set Part0=1 #
# $Z @ Npart = $PartN - $Part0 #
# $Z @ Npart = $Npart + 1 #
# #
# $Z $DELETE $xTV/MODULE #
# $Z $DELETE $xTV/THETA #
# $Z $DELETE $xTV/XY_RT.1 #
# $Z $DELETE $xTV/XY_RT.2 #
# $Z $DELETE $xTV/VITESSES #
# $Z $DELETE $xTV/VITESSES$COORD_X #
# $Z $DELETE $xTV/VITESSES$COORD_Y #
# $Z $DELETE $xTV/VITESSES$COORD_Z #
# $Z $DELETE $xTV/mdRHO #
# $Z $DELETE $xTV/MdRHO #
# $Z $DELETE $xTV/mnPHI #
# $Z $DELETE $xTV/MnPHI #
# $Z $DELETE $xTV/dPHI #
# $Z $DELETE $xTV/mnTHETA #
# $Z $DELETE $xTV/MnTHETA #
# $Z $DELETE $xTV/dTHETA #
# $Z $DELETE $xTV/supOUVE #
# $Z $DELETE $xTV/DISTANCE #
# $Z $DELETE $xTV/STABILITE #
# $Z $DELETE $xTV/RAYONS #
# $Z $DELETE $xTV/INTERACTIONS #
# #
# #
# $Z alias Gen 'set Fi=\!:1 ; set vD=\!:2 ; set vA=\!:3 ; set ArG=(\!:4*) ; \\ #
# $Z $DELETE $Fi ; \\ #
# $Z $xci/valeurs_inte$X p=$Part0 d=$PartN vD=$vD vA=$vA $ArG > $Fi ; \\ #
# $Z unset Fi vD vA ArG' #
# #
# $Z alias GenR 'set Fi=\!:1 ; set In=\!:2 ; set Su=\!:3 ; set ArG=(\!:4*) ; \\ #
# $Z $DELETE $Fi ; \\ #
# $Z $xci/valeurs_alea$X p=$Part0 d=$PartN signe="$KV" inf=$In sup=$Su $ArG > $Fi ; \\ #
# $Z unset Fi In Su ArG' #
# #
# $Z Gen $xTV/COORDONNEES$COORD_Z 0.0 0.0 #
# #
# #
# $Z Gen $xTV/MODULE 0.02 0.02 #
# $Z GenR $xTV/THETA 0.0 $dpi g=3333 #
# #
# $Z $CA $xcs/csh$Y \ #
# $Z > $xTV/XY_RT.1 #
# $Z $PAST $xTV/MODULE $xTV/THETA \ #
# $Z | $R "$K_TAB" "$K_BLANC" \ #
# $Z | $AW ' { print "$xcg/XY_RT$X r=" $1 " t=" $2 " cartesien=FAUX" } ' \ #
# $Z >>! $xTV/XY_RT.1 #
# #
# $Z (source $xTV/XY_RT.1) \ #
# $Z > $xTV/XY_RT.2 #
# #
# $Z $CA $xTV/XY_RT.2 \ #
# $Z | $GRE "^x=" \ #
# $Z | $SE -e "s/^x=//" \ #
# $Z > $xTV/VITESSES$COORD_X #
# $Z $CA $xTV/XY_RT.2 \ #
# $Z | $GRE "^y=" \ #
# $Z | $SE -e "s/^y=//" \ #
# $Z > $xTV/VITESSES$COORD_Y #
# #
# $Z Gen $xTV/VITESSES$COORD_Z 0.0 0.0 #
# #
# $Z Gen $xTV/mdRHO 0.0 0.0 #
# $Z Gen $xTV/MdRHO 0.0 0.0 #
# $Z Gen $xTV/mnPHI 0.0 0.0 #
# $Z Gen $xTV/MnPHI 0.0 0.0 #
# $Z Gen $xTV/dPHI 0.0 0.0 #
# $Z Gen $xTV/mnTHETA 0.0 0.0 #
# $Z Gen $xTV/MnTHETA 0.0 0.0 #
# $Z Gen $xTV/dTHETA 0.0 0.0 #
# $Z Gen $xTV/DISTANCE 1000000 1000000 #
# $Z Gen $xTV/STABILITE 1000000 1000000 #
# #
# $Z set RayonsT=0.014 #
# $Z set RayonsP=`$xcg/MUL2.01$X a=2 b=$RayonsT` #
# $Z set DistanceI=`$xcg/MUL2.01$X a=4 b=$RayonsP` #
# $Z Gen $xTV/RAYONS $RayonsT $RayonsT #
# $Z Gen $xTV/INTERACTIONS $RayonsP $RayonsP #
# #
# $Z $DELETE $xTV/COULEURS$TEINT #
# $Z $DELETE $xTV/COULEURS$LUMIN #
# $Z $DELETE $xTV/COULEURS$SATUR #
# $Z $DELETE $xTV/COULEURS$Y #
# $Z $DELETE $xTV/COULEURS #
# $Z $DELETE $xTV/COULEURS$ROUGE #
# $Z $DELETE $xTV/COULEURS$VERTE #
# $Z $DELETE $xTV/COULEURS$BLEUE #
# #
# $Z @ TeinteMagenta = $GRIS_7 #
# $Z @ TeinteCyan = $GRIS_4 + $GRIS_8 #
# #
# $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartN \ #
# $Z vD=$TeinteMagenta vA=$TeinteCyan \ #
# $Z cubique=FAUX \ #
# $Z entiers=VRAI \ #
# $Z > $xTV/COULEURS$TEINT #
# $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartN \ #
# $Z vD=$GRIS_4 vA=$GRIS_4 \ #
# $Z cubique=FAUX \ #
# $Z entiers=VRAI \ #
# $Z > $xTV/COULEURS$LUMIN #
# $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartN \ #
# $Z vD=$GRIS_8 vA=$GRIS_8 \ #
# $Z cubique=FAUX \ #
# $Z entiers=VRAI \ #
# $Z > $xTV/COULEURS$SATUR #
# #
# $Z $PAST \ #
# $Z $xTV/COULEURS$TEINT \ #
# $Z $xTV/COULEURS$LUMIN \ #
# $Z $xTV/COULEURS$SATUR \ #
# $Z | $R "$K_TAB" "$K_BLANC" \ #
# $Z | $AW ' { print "H=" $1 " L=" $2 " S=" $3 } ' \ #
# $Z | $SE -e 's+^+$xcg/RVB_HLS$X RVB_HLS=FAUX +' \ #
# $Z | $SE -e 's/$/ eR=VRAI eV=VRAI eB=VRAI/' \ #
# $Z | $SE -e 's/$/ eH=FAUX eL=FAUX eS=FAUX/' \ #
# $Z > $xTV/COULEURS$Y #
# #
# $Z (source $xTV/COULEURS$Y) \ #
# $Z > $xTV/COULEURS #
# #
# $Z $GRE "^R=" $xTV/COULEURS \ #
# $Z | $SE -e "s/^R=//" \ #
# $Z > $xTV/COULEURS$ROUGE #
# $Z $GRE "^V=" $xTV/COULEURS \ #
# $Z | $SE -e "s/^V=//" \ #
# $Z > $xTV/COULEURS$VERTE #
# $Z $GRE "^B=" $xTV/COULEURS \ #
# $Z | $SE -e "s/^B=//" \ #
# $Z > $xTV/COULEURS$BLEUE #
# #
# $Z Pal #
# #
# #
# $Z $xci/scale$X \ #
# $Z A=$xTV/BOITE.1 \ #
# $Z a=1.00 \ #
# $Z R=$xTV/BOITE.2 \ #
# $Z $formatI #
# #
# $Z $xrk/rdn_walk.41$X corps=$Npart \ #
# $Z np=$NimagesA \ #
# $Z collisions=VRAI DLA=FAUX interaction=$DistanceI \ #
# $Z LISTE_X=$xTV/COORDONNEES$COORD_X \ #
# $Z LISTE_Y=$xTV/COORDONNEES$COORD_Y \ #
# $Z LISTE_Z=$xTV/COORDONNEES$COORD_Z \ #
# $Z LISTE_VX=$xTV/VITESSES$COORD_X \ #
# $Z LISTE_VY=$xTV/VITESSES$COORD_Y \ #
# $Z LISTE_VZ=$xTV/VITESSES$COORD_Z \ #
# $Z LISTE_MINIMUM_DELTA_RHO=$xTV/mdRHO \ #
# $Z LISTE_MAXIMUM_DELTA_RHO=$xTV/MdRHO \ #
# $Z LISTE_MINIMUM_N_PHI=$xTV/mnPHI \ #
# $Z LISTE_MAXIMUM_N_PHI=$xTV/MnPHI \ #
# $Z LISTE_DELTA_PHI=$xTV/dPHI \ #
# $Z LISTE_MINIMUM_N_THETA=$xTV/mnTHETA \ #
# $Z LISTE_MAXIMUM_N_THETA=$xTV/MnTHETA \ #
# $Z LISTE_DELTA_THETA=$xTV/dTHETA \ #
# $Z LISTE_DISTANCE_MAXIMALE=$xTV/DISTANCE \ #
# $Z LISTE_STABILITE=$xTV/STABILITE \ #
# $Z LISTE_RAYON=$xTV/RAYONS \ #
# $Z LISTE_RAYON_D_INTERACTION=$xTV/INTERACTIONS \ #
# $Z LISTE_ROUGE=$xTV/COULEURS$ROUGE \ #
# $Z LISTE_VERTE=$xTV/COULEURS$VERTE \ #
# $Z LISTE_BLEUE=$xTV/COULEURS$BLEUE \ #
# $Z milieu=VRAI \ #
# $Z reflexion=VRAI refraction=FAUX \ #
# $Z Mhors=$BLANC \ #
# $Z MNpasX=1 Mprolonger_X=VRAI \ #
# $Z MNpasY=1 Mprolonger_Y=VRAI \ #
# $Z MNpasZ=1 Mprolonger_Z=VRAI \ #
# $Z adapter_M_nPAS=VRAI \ #
# $Z Msimplifier=FAUX affiner_M_maillage=FAUX \ #
# $Z MC=$xTV/BOITE.2 \ #
# $Z MChiffres=0 \ #
# $Z Zmin=0 Zmax=15 \ #
# $Z centrer=VRAI \ #
# $Z dct=0.05 nombre=10 \ #
# $Z trainees=VRAI mode=1 \ #
# $Z attenuation_des_images=1.0 \ #
# $Z attenuation_des_trainees=1.00 \ #
# $Z facteur_ROUGE=0.6 \ #
# $Z facteur_VERTE=0.6 \ #
# $Z facteur_BLEUE=0.6 \ #
# $Z renormaliser=FAUX \ #
# $Z Lz=100 \ #
# $Z zoom_automatique=VRAI \ #
# $Z centre_de_gravite=FAUX \ #
# $Z fond=FAUX \ #
# $Z R=$xiim/REFL.WA. \ #
# $Z $formatI #
# #
# $Z $DELETE $xTV/LISTE_POINTS #
# $Z $xrk/rdn_walk.41$X corps=$Npart \ #
# $Z np=$NimagesA \ #
# $Z collisions=VRAI DLA=FAUX interaction=$DistanceI \ #
# $Z LISTE_X=$xTV/COORDONNEES$COORD_X \ #
# $Z LISTE_Y=$xTV/COORDONNEES$COORD_Y \ #
# $Z LISTE_Z=$xTV/COORDONNEES$COORD_Z \ #
# $Z LISTE_VX=$xTV/VITESSES$COORD_X \ #
# $Z LISTE_VY=$xTV/VITESSES$COORD_Y \ #
# $Z LISTE_VZ=$xTV/VITESSES$COORD_Z \ #
# $Z LISTE_MINIMUM_DELTA_RHO=$xTV/mdRHO \ #
# $Z LISTE_MAXIMUM_DELTA_RHO=$xTV/MdRHO \ #
# $Z LISTE_MINIMUM_N_PHI=$xTV/mnPHI \ #
# $Z LISTE_MAXIMUM_N_PHI=$xTV/MnPHI \ #
# $Z LISTE_DELTA_PHI=$xTV/dPHI \ #
# $Z LISTE_MINIMUM_N_THETA=$xTV/mnTHETA \ #
# $Z LISTE_MAXIMUM_N_THETA=$xTV/MnTHETA \ #
# $Z LISTE_DELTA_THETA=$xTV/dTHETA \ #
# $Z LISTE_DISTANCE_MAXIMALE=$xTV/DISTANCE \ #
# $Z LISTE_STABILITE=$xTV/STABILITE \ #
# $Z LISTE_RAYON=$xTV/INTERACTIONS \ #
# $Z LISTE_RAYON_D_INTERACTION=$xTV/INTERACTIONS \ #
# $Z LISTE_ROUGE=$xTV/COULEURS$ROUGE \ #
# $Z LISTE_VERTE=$xTV/COULEURS$VERTE \ #
# $Z LISTE_BLEUE=$xTV/COULEURS$BLEUE \ #
# $Z milieu=VRAI \ #
# $Z reflexion=VRAI refraction=FAUX \ #
# $Z Mhors=$BLANC \ #
# $Z MNpasX=1 Mprolonger_X=VRAI \ #
# $Z MNpasY=1 Mprolonger_Y=VRAI \ #
# $Z MNpasZ=1 Mprolonger_Z=VRAI \ #
# $Z adapter_M_nPAS=VRAI \ #
# $Z Msimplifier=FAUX affiner_M_maillage=FAUX \ #
# $Z MC=$xTV/BOITE.2 \ #
# $Z MChiffres=0 \ #
# $Z Zmin=0 Zmax=15 \ #
# $Z centrer=VRAI \ #
# $Z dct=0.05 nombre=10 \ #
# $Z trainees=FAUX \ #
# $Z facteur_ROUGE=1.0 \ #
# $Z facteur_VERTE=1.0 \ #
# $Z facteur_BLEUE=1.0 \ #
# $Z renormaliser=FAUX \ #
# $Z Lz=100 \ #
# $Z zoom_automatique=VRAI \ #
# $Z centre_de_gravite=FAUX \ #
# $Z fond=VRAI \ #
# $Z dynamique=VRAI \ #
# $Z F=$xiim/REFL.WA. \ #
# $Z lister_les_points=VRAI \ #
# $Z lister_les_points_apres=FAUX \ #
# $Z R=$xiim/REFL.Wa. \ #
# $Z $formatI | \ #
# $Z $GRE "^periode=$DerniereA " \ #
# $Z > $xTV/LISTE_POINTS #
# #
# #
# #
# $Z $xci/complement$X A=$xTV/BOITE.1 \ #
# $Z R=$xTV/BOITE.3 \ #
# $Z $formatI #
# #
# $Z eval `$xci/genere$X \\\ #
# $Z commande='($xci/scale$X \\\ #
# $Z A=$xTV/BOITE.3 \\\ #
# $Z a=0.50 \\\ #
# $Z R=$xTV/BOITE.3%s \\\ #
# $Z $formatI)' \\\ #
# $Z en_tete=FAUX RVB=VRAI separateur=VRAI` #
# #
# #
# $X $xci/genere$X premiere=$PremiereA derniere=$DerniereA pas=1 \ #
# $X C='$xci/cache.11$Z \ #
# $X $xiim/REFL.Wa.%04d \ #
# $X $xTV/BOITE.3 \ #
# $X $xiim/REFL.L.%04d' #
# #
# #
# $Z $DELETE $xTV/COORDONNEES #
# $Z $DELETE $xTV/COORDONNEES$COORD_X #
# $Z $DELETE $xTV/COORDONNEES$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_Z #
# $Z $DELETE $xTV/VITESSES #
# $Z $DELETE $xTV/VITESSES$COORD_X #
# $Z $DELETE $xTV/VITESSES$COORD_Y #
# $Z $DELETE $xTV/VITESSES$COORD_Z #
# #
# #
# $Z $GRE " X=" $xTV/LISTE_POINTS \ #
# $Z | $SE -e 's/^.* X=\([^ ][^ ]*\) .*$/\1/' \ #
# $Z > $xTV/COORDONNEES$COORD_X #
# $Z $GRE " Y=" $xTV/LISTE_POINTS \ #
# $Z | $SE -e 's/^.* Y=\([^ ][^ ]*\) .*$/\1/' \ #
# $Z > $xTV/COORDONNEES$COORD_Y #
# $Z $GRE " Z=" $xTV/LISTE_POINTS \ #
# $Z | $SE -e 's/^.* Z=\([^ ][^ ]*\) .*$/\1/' \ #
# $Z > $xTV/COORDONNEES$COORD_Z #
# #
# $Z $GRE " VX=" $xTV/LISTE_POINTS \ #
# $Z | $SE -e 's/^.* VX=\([^ ][^ ]*\) .*$/\1/' \ #
# $Z > $xTV/VITESSES$COORD_X #
# $Z $GRE " VY=" $xTV/LISTE_POINTS \ #
# $Z | $SE -e 's/^.* VY=\([^ ][^ ]*\) .*$/\1/' \ #
# $Z > $xTV/VITESSES$COORD_Y #
# $Z $GRE " VZ=" $xTV/LISTE_POINTS \ #
# $Z | $SE -e 's/^.* VZ=\([^ ][^ ]*\) .*$/\1/' \ #
# $Z > $xTV/VITESSES$COORD_Z #
# #
# $Z $DELETE $xTV/LISTE_POINTS #
# #
# #
# $Z Std #
# #
# $Z set LBande=100 #
# $Z set BandeS=`$xcg/ADD2.01$X a=$GRIS_4 b=$LBande` #
# $Z set BandeI=`$xcg/SOUS.01$X a=$GRIS_4 b=$LBande` #
# #
# $Z $xci/complement$X \ #
# $Z A=$xiio/SPIRALE \ #
# $Z $formatI | \ #
# $Z $xci/seuil$X \ #
# $Z seuil=$SeuilBOITE \ #
# $Z R=$xTV/BOITE.4 \ #
# $Z $formatI #
# #
# $Z $xci/move$X \ #
# $Z A=$xTV/BOITE.4 \ #
# $Z xR=+$DTransX \ #
# $Z $formatI | \ #
# $Z $xci/move$X \ #
# $Z xR=-$GTransX \ #
# $Z $formatI | \ #
# $Z $xci/dilate.01$X \ #
# $Z points=9 \ #
# $Z dilater=VRAI \ #
# $Z R=$xTV/BOITE.5 \ #
# $Z $formatI #
# $Z $xci/Sy$X \ #
# $Z A=$xTV/BOITE.5 \ #
# $Z R=$xTV/BOITE.6 \ #
# $Z $formatI #
# #
# $Z $xci/passe_bande$X \ #
# $Z A=$xiio/MIRE \ #
# $Z inf=$BandeI \ #
# $Z sup=$BandeS \ #
# $Z $formatI | \ #
# $Z $xci/seuil$X \ #
# $Z $formatI | \ #
# $Z $xci/transpose$X \ #
# $Z $formatI | \ #
# $Z $xci/and$X \ #
# $Z A1=$xTV/BOITE.4 \ #
# $Z R=$xTV/BOITE.7 \ #
# $Z $formatI #
# #
# $Z $xci/or_02$X \ #
# $Z A1=$xTV/BOITE.5 \ #
# $Z A2=$xTV/BOITE.6 \ #
# $Z $formatI | \ #
# $Z $xci/or_02$X \ #
# $Z A2=$xTV/BOITE.7 \ #
# $Z R=$xTV/BOITE.8 \ #
# $Z $formatI #
# #
# $Z S #
# #
# $Z $xci/format.01$X mode=0 \ #
# $Z A=$xTV/BOITE.8 \ #
# $Z $formatI \ #
# $Z R=$xTV/BOITE.1 \ #
# $Z $formatR_Pal #
# #
# $Z $DELETE $xTV/BOITE.4 #
# $Z $DELETE $xTV/BOITE.5 #
# $Z $DELETE $xTV/BOITE.6 #
# $Z $DELETE $xTV/BOITE.7 #
# $Z $DELETE $xTV/BOITE.8 #
# #
# $Z Pal #
# #
# #
# $Z $xci/scale$X \ #
# $Z A=$xTV/BOITE.1 \ #
# $Z a=1.00 \ #
# $Z R=$xTV/BOITE.2 \ #
# $Z $formatI #
# #
# $Z set NDerniereA=`$xci/nombres$X A="$K_VIDE" p=$DerniereA d=$DerniereA` #
# #
# $Z $xrk/rdn_walk.41$X corps=$Npart \ #
# $Z np=$NimagesB \ #
# $Z collisions=VRAI DLA=FAUX interaction=$DistanceI \ #
# $Z LISTE_X=$xTV/COORDONNEES$COORD_X \ #
# $Z LISTE_Y=$xTV/COORDONNEES$COORD_Y \ #
# $Z LISTE_Z=$xTV/COORDONNEES$COORD_Z \ #
# $Z LISTE_VX=$xTV/VITESSES$COORD_X \ #
# $Z LISTE_VY=$xTV/VITESSES$COORD_Y \ #
# $Z LISTE_VZ=$xTV/VITESSES$COORD_Z \ #
# $Z LISTE_MINIMUM_DELTA_RHO=$xTV/mdRHO \ #
# $Z LISTE_MAXIMUM_DELTA_RHO=$xTV/MdRHO \ #
# $Z LISTE_MINIMUM_N_PHI=$xTV/mnPHI \ #
# $Z LISTE_MAXIMUM_N_PHI=$xTV/MnPHI \ #
# $Z LISTE_DELTA_PHI=$xTV/dPHI \ #
# $Z LISTE_MINIMUM_N_THETA=$xTV/mnTHETA \ #
# $Z LISTE_MAXIMUM_N_THETA=$xTV/MnTHETA \ #
# $Z LISTE_DELTA_THETA=$xTV/dTHETA \ #
# $Z LISTE_DISTANCE_MAXIMALE=$xTV/DISTANCE \ #
# $Z LISTE_STABILITE=$xTV/STABILITE \ #
# $Z LISTE_RAYON=$xTV/RAYONS \ #
# $Z LISTE_RAYON_D_INTERACTION=$xTV/INTERACTIONS \ #
# $Z LISTE_ROUGE=$xTV/COULEURS$ROUGE \ #
# $Z LISTE_VERTE=$xTV/COULEURS$VERTE \ #
# $Z LISTE_BLEUE=$xTV/COULEURS$BLEUE \ #
# $Z milieu=VRAI \ #
# $Z reflexion=VRAI refraction=FAUX \ #
# $Z Mhors=$BLANC \ #
# $Z MNpasX=1 Mprolonger_X=VRAI \ #
# $Z MNpasY=1 Mprolonger_Y=VRAI \ #
# $Z MNpasZ=1 Mprolonger_Z=VRAI \ #
# $Z adapter_M_nPAS=VRAI \ #
# $Z Msimplifier=FAUX affiner_M_maillage=FAUX \ #
# $Z MC=$xTV/BOITE.2 \ #
# $Z MChiffres=0 \ #
# $Z Zmin=0 Zmax=15 \ #
# $Z centrer=VRAI \ #
# $Z dct=0.05 nombre=10 \ #
# $Z trainees=VRAI mode=1 \ #
# $Z attenuation_des_images=1.0 \ #
# $Z attenuation_des_trainees=1.00 \ #
# $Z facteur_ROUGE=0.6 \ #
# $Z facteur_VERTE=0.6 \ #
# $Z facteur_BLEUE=0.6 \ #
# $Z renormaliser=FAUX \ #
# $Z Lz=100 \ #
# $Z zoom_automatique=VRAI \ #
# $Z centre_de_gravite=FAUX \ #
# $Z fond=VRAI \ #
# $Z dynamique=FAUX \ #
# $Z F=$xiim/REFL.WA.$NDerniereA \ #
# $Z R=$xiim/REFL.WB. \ #
# $Z $formatI #
# #
# $Z $xrk/rdn_walk.41$X corps=$Npart \ #
# $Z np=$NimagesB \ #
# $Z collisions=VRAI DLA=FAUX interaction=$DistanceI \ #
# $Z LISTE_X=$xTV/COORDONNEES$COORD_X \ #
# $Z LISTE_Y=$xTV/COORDONNEES$COORD_Y \ #
# $Z LISTE_Z=$xTV/COORDONNEES$COORD_Z \ #
# $Z LISTE_VX=$xTV/VITESSES$COORD_X \ #
# $Z LISTE_VY=$xTV/VITESSES$COORD_Y \ #
# $Z LISTE_VZ=$xTV/VITESSES$COORD_Z \ #
# $Z LISTE_MINIMUM_DELTA_RHO=$xTV/mdRHO \ #
# $Z LISTE_MAXIMUM_DELTA_RHO=$xTV/MdRHO \ #
# $Z LISTE_MINIMUM_N_PHI=$xTV/mnPHI \ #
# $Z LISTE_MAXIMUM_N_PHI=$xTV/MnPHI \ #
# $Z LISTE_DELTA_PHI=$xTV/dPHI \ #
# $Z LISTE_MINIMUM_N_THETA=$xTV/mnTHETA \ #
# $Z LISTE_MAXIMUM_N_THETA=$xTV/MnTHETA \ #
# $Z LISTE_DELTA_THETA=$xTV/dTHETA \ #
# $Z LISTE_DISTANCE_MAXIMALE=$xTV/DISTANCE \ #
# $Z LISTE_STABILITE=$xTV/STABILITE \ #
# $Z LISTE_RAYON=$xTV/INTERACTIONS \ #
# $Z LISTE_RAYON_D_INTERACTION=$xTV/INTERACTIONS \ #
# $Z LISTE_ROUGE=$xTV/COULEURS$ROUGE \ #
# $Z LISTE_VERTE=$xTV/COULEURS$VERTE \ #
# $Z LISTE_BLEUE=$xTV/COULEURS$BLEUE \ #
# $Z milieu=VRAI \ #
# $Z reflexion=VRAI refraction=FAUX \ #
# $Z Mhors=$BLANC \ #
# $Z MNpasX=1 Mprolonger_X=VRAI \ #
# $Z MNpasY=1 Mprolonger_Y=VRAI \ #
# $Z MNpasZ=1 Mprolonger_Z=VRAI \ #
# $Z adapter_M_nPAS=VRAI \ #
# $Z Msimplifier=FAUX affiner_M_maillage=FAUX \ #
# $Z MC=$xTV/BOITE.2 \ #
# $Z MChiffres=0 \ #
# $Z Zmin=0 Zmax=15 \ #
# $Z centrer=VRAI \ #
# $Z dct=0.05 nombre=10 \ #
# $Z trainees=FAUX \ #
# $Z facteur_ROUGE=1.0 \ #
# $Z facteur_VERTE=1.0 \ #
# $Z facteur_BLEUE=1.0 \ #
# $Z renormaliser=FAUX \ #
# $Z Lz=100 \ #
# $Z zoom_automatique=VRAI \ #
# $Z centre_de_gravite=FAUX \ #
# $Z fond=VRAI \ #
# $Z dynamique=VRAI \ #
# $Z F=$xiim/REFL.WB. \ #
# $Z R=$xiim/REFL.WB. \ #
# $Z $formatI #
# #
# $Z $DELETE $xTV/COORDONNEES$COORD_X #
# $Z $DELETE $xTV/COORDONNEES$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_Z #
# $Z $DELETE $xTV/VITESSES$COORD_X #
# $Z $DELETE $xTV/VITESSES$COORD_Y #
# $Z $DELETE $xTV/VITESSES$COORD_Z #
# $Z $DELETE $xTV/mdRHO #
# $Z $DELETE $xTV/MdRHO #
# $Z $DELETE $xTV/mnPHI #
# $Z $DELETE $xTV/MnPHI #
# $Z $DELETE $xTV/dPHI #
# $Z $DELETE $xTV/mnTHETA #
# $Z $DELETE $xTV/MnTHETA #
# $Z $DELETE $xTV/dTHETA #
# $Z $DELETE $xTV/DISTANCE #
# $Z $DELETE $xTV/STABILITE #
# $Z $DELETE $xTV/RAYONS #
# $Z $DELETE $xTV/INTERACTIONS #
# $Z $DELETE $xTV/COULEURS$TEINT #
# $Z $DELETE $xTV/COULEURS$LUMIN #
# $Z $DELETE $xTV/COULEURS$SATUR #
# $Z $DELETE $xTV/COULEURS$Y #
# $Z $DELETE $xTV/COULEURS #
# $Z $DELETE $xTV/COULEURS$ROUGE #
# $Z $DELETE $xTV/COULEURS$VERTE #
# $Z $DELETE $xTV/COULEURS$BLEUE #
# #
# #
# #
# #
# $Z $xci/complement$X A=$xTV/BOITE.1 \ #
# $Z R=$xTV/BOITE.3 \ #
# $Z $formatI #
# #
# $Z eval `$xci/genere$X \\\ #
# $Z commande='($xci/scale$X \\\ #
# $Z A=$xTV/BOITE.3 \\\ #
# $Z a=0.50 \\\ #
# $Z R=$xTV/BOITE.3%s \\\ #
# $Z $formatI)' \\\ #
# $Z en_tete=FAUX RVB=VRAI separateur=VRAI` #
# #
# #
# $X $xci/genere$X premiere=$PremiereB derniere=$DerniereB pas=1 \ #
# $X C='$xci/cache.11$Z \ #
# $X $xiim/REFL.WB.%04d \ #
# $X $xTV/BOITE.3 \ #
# $X $xiim/REFL.WB.%04d' #
# #
# $c extern int atoi(); #
# $c extern int *getenv(); #
# #
# $c #define NA0 (atoi(getenv("PremiereA"))) #
# $c #define NA (atoi(getenv("DerniereA"))) #
# $c #define NB0 (atoi(getenv("PremiereB"))+atoi(getenv("Dupliquee"))) #
# $c #define NB (atoi(getenv("DerniereB"))) #
# #
# $c int main() #
# $c { #
# $c int n1; #
# $c int n2=(NA+1); #
# #
# $c for (n1=NB0 ; n1<=NB ; n1++) #
# $c { #
# $c printf("$MV $xiim/REFL.WB.%04d$ROUGE #
# $c $xiim/REFL.L.%04d$ROUGE\n" #
# $c ,n1,n2 #
# $c ); #
# $c printf("$MV $xiim/REFL.WB.%04d$VERTE #
# $c $xiim/REFL.L.%04d$VERTE\n" #
# $c ,n1,n2 #
# $c ); #
# $c printf("$MV $xiim/REFL.WB.%04d$BLEUE #
# $c $xiim/REFL.L.%04d$BLEUE\n" #
# $c ,n1,n2 #
# $c ); #
# #
# $c n2++; #
# $c } #
# $c } #
# #
# $Z $DELETE $xTV/BOITE.1 #
# $Z $DELETE $xTV/BOITE.2 #
# $Z $DELETE $xTV/BOITE.3 #
# $Z $DELETE $xTV/BOITE.3$ROUGE #
# $Z $DELETE $xTV/BOITE.3$VERTE #
# $Z $DELETE $xTV/BOITE.3$BLEUE #
# #
# $Z Pal #
# #
# $Z $xci/reduction_16$Z $xiim/REFL.L. $xiak/REFL.J8 $Premiere $Derniere #
# $Z $xci/reduction_64$Z $xiim/REFL.L. $xiak/REFL.J8 $Premiere $Derniere #
# #
# $X $xci/genere$X c='ro $xiak/REFL.J8$R16%s' RVB=VRAI #
# $X $xci/genere$X c='ro $xiak/REFL.J8$R64%s' RVB=VRAI #
# #
# $X $xci/genere$X c='$xcg/unite$Z $xiak/REFL.J8$R16%s' RVB=VRAI #
# $X $xci/genere$X c='$xcg/unite$Z $xiak/REFL.J8$R64%s' RVB=VRAI #
# #
# $X $xci/genere$X c='$CP $xiim/REFL.L.0512%s $xiirk/REFL.J8.0512%s' RVB=VRAI #
# #
# $X $xci/genere$X c='ro $xiirk/REFL.J8.0512%s' RVB=VRAI #
# #
# $X $xci/genere$X c='$xcg/unite$Z $xiirk/REFL.J8.0512%s' RVB=VRAI #
# #
# #
# Pal #
# #
# #
# $xci/disk_video_P$Z $xiim_LACT29/REFL.L. 001 512 RVB \ #
# 11 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
# #
# xivPdf 3 2 #
# #
# record.01$Z $xiak/REFL.J8$R16 RVB Initialisation #
# record.01$Z $xiak/REFL.J8$R64 RVB rien #
# record.01$Z $xiirk/REFL.J8.0512 RVB rien #
# #
# #
# ATTENTION, cette sequence a du etre reenregistree en : #
# #
# xivPdf 11 2 / 018098_018609 #
# #
# car, en effet, pour des raisons mysterieuses, l'image '018097' est NOIR. Les messages #
# recuperes etaient du type : #
# #
# WARNING: Frame transfer aborted: analog video input not locked #
# #
# dans '$Ferreurs'... #
# #
# #
# ATTENTION, un petit defaut qui apparait des l'image 'v $xiim_LACT29/REFL.L.0257' qui #
# n'est visible qu'a partir de 'v $xiim_LACT29/REFL.L.0259' et qui se manifeste par une #
# sphere differente des autres sur chauqe trainee (elle est un peu plus visible). Ce #
# phenomene correspond au fait que la deuxieme serie des appels a '$xrk/rdn_walk.41$X' #
# utilise le fond '$xiim/REFL.WA.$NDerniereA' pour recuperer les trainees de la premiere #
# serie des appels a $xrk/rdn_walk.41$X'. Or les trainees sont generees ici en "mode=1" #
# (c'est-a-dire avec un 'MAX2(...)'), alors que le fond lui est utilise lors du marquage #
# des points en procedant a des interpolations entre les niveaux anterieurs (le fond par #
# exemple) et les niveaux a marquer. Il est donc evident que l'apparence ne peut qu'etre #
# differente et je ne sais pas comment faire pour raccorder mieux les deux series (peut-etre #
# que le "mode=0" (avec donc un 'ADD2(...)') serait plus astucieux... #
sequence 018610_019121
# Generee (sur '$LACT29') par : #
# #
# $Z SET tPremiereA=1 #
# $Z SET tDerniereA=256 #
# $Z SET tDupliquee=1 #
# $Z SET tPremiereB=$tPremiereA #
# $Z SET tDerniereB=`expr $tDerniereA + $tDupliquee` #
# $Z SET tDerniereB=$tDerniereB #
# $Z set Premiere=$tPremiereA #
# $Z @ NimagesA = $tDerniereA - $tPremiereA #
# $Z @ NimagesA = $NimagesA + 1 #
# $Z @ NimagesB = $tDerniereB - $tPremiereB #
# $Z @ NimagesB = $NimagesB + 1 #
# $Z @ Nimages = $NimagesA + $NimagesB #
# $Z @ Nimages = $Nimages - 1 #
# $Z @ Derniere = $Premiere + $Nimages #
# $Z @ Derniere = $Derniere - 1 #
# #
# $Z SETENV PremiereA $tPremiereA #
# $Z SETENV DerniereA $tDerniereA #
# $Z SETENV Dupliquee $tDupliquee #
# $Z SETENV PremiereB $tPremiereB #
# $Z SETENV DerniereB $tDerniereB #
# #
# #
# $Z Pal #
# #
# $Z set PUnivers="np=0 CAL1=FAUX editer_l_univers_physique=VRAI" #
# $Z set Univers=`$xrk/rdn_walk.41$X $PUnivers $formatI` #
# #
# $Z set MinX=`echo $Univers | $SE -e "s/^.*[(,]XUI=//" -e "s/[,)].*//"` #
# $Z set MaxX=`echo $Univers | $SE -e "s/^.*[(,]XUS=//" -e "s/[,)].*//"` #
# $Z set MinY=`echo $Univers | $SE -e "s/^.*[(,]YUI=//" -e "s/[,)].*//"` #
# $Z set MaxY=`echo $Univers | $SE -e "s/^.*[(,]YUS=//" -e "s/[,)].*//"` #
# #
# $Z set MinX=`$xcg/ABSO.01$X x=$MinX` #
# $Z set MaxX=`$xcg/ABSO.01$X x=$MaxX` #
# $Z set MinY=`$xcg/ABSO.01$X x=$MinY` #
# $Z set MaxY=`$xcg/ABSO.01$X x=$MaxY` #
# #
# $Z set MaxX=`$xcg/MAX2.01$X n1=$MinX n2=$MaxX` #
# $Z set MaxY=`$xcg/MAX2.01$X n1=$MinY n2=$MaxY` #
# #
# $Z set SeuilPartN=0.003026 #
# $Z set GrainePartN=2 #
# #
# $Z $DELETE $xTV/BOITE.1 #
# $Z $DELETE $xTV/BOITE.2 #
# $Z $DELETE $xTV/BOITE.3 #
# $Z $DELETE $xTV/BOITE.3$ROUGE #
# $Z $DELETE $xTV/BOITE.3$VERTE #
# $Z $DELETE $xTV/BOITE.3$BLEUE #
# $Z $DELETE $xTV/BOITE.4 #
# $Z $DELETE $xTV/BOITE.5 #
# $Z $DELETE $xTV/BOITE.6 #
# $Z $DELETE $xTV/BOITE.7 #
# $Z $DELETE $xTV/BOITE.8 #
# $Z $DELETE $xTV/BOITE.A #
# $Z $DELETE $xTV/BOITE.B #
# #
# #
# $Z Std #
# #
# $Z set FacXY=0.90 #
# $Z set SeuilBOITE=`$xcg/SOUS.01$X a=1 b=$FacXY` #
# $Z set SeuilBOITE=`$xcg/MUL2.01$X a=$SeuilBOITE b=$GRIS_8` #
# $Z set SeuilBOITE=`$xci/valeurs_inte$X p=1 d=1 vD=$SeuilBOITE entiers=VRAI` #
# $Z set SeuilBOITE=`$xcg/MIN2.01$X a=$SeuilBOITE b=$GRIS_1` #
# #
# $Z set GTransX=`$xcg/SOUS.01$X a=1 b=$FacXY` #
# $Z set GTransX=`$xcg/MOIT.01$X a=$GTransX signe="$K_VIDE"` #
# $Z set DTransX=`$xcg/MOIT.01$X a=1` #
# $Z set DTransX=`$xcg/ADD2.01$X a=$DTransX b=$GTransX signe="$K_VIDE"` #
# #
# #
# $Z set LBande=10 #
# $Z set BandeS=`$xcg/ADD2.01$X a=$GRIS_4 b=$LBande` #
# $Z set BandeI=`$xcg/SOUS.01$X a=$GRIS_4 b=$LBande` #
# #
# $Z $xci/complement$X \ #
# $Z A=$xiio/SPIRALE \ #
# $Z $formatI | \ #
# $Z $xci/seuil$X \ #
# $Z seuil=$SeuilBOITE \ #
# $Z R=$xTV/BOITE.4 \ #
# $Z $formatI #
# #
# $Z $xci/move$X \ #
# $Z A=$xTV/BOITE.4 \ #
# $Z xR=+$DTransX \ #
# $Z $formatI | \ #
# $Z $xci/move$X \ #
# $Z xR=-$GTransX \ #
# $Z $formatI | \ #
# $Z $xci/dilate.01$X \ #
# $Z points=9 \ #
# $Z dilater=VRAI \ #
# $Z R=$xTV/BOITE.5 \ #
# $Z $formatI #
# $Z $xci/Sy$X \ #
# $Z A=$xTV/BOITE.5 \ #
# $Z R=$xTV/BOITE.6 \ #
# $Z $formatI #
# #
# $Z $xci/passe_bande$X \ #
# $Z A=$xiio/MIRE \ #
# $Z inf=$BandeI \ #
# $Z sup=$BandeS \ #
# $Z $formatI | \ #
# $Z $xci/seuil$X \ #
# $Z $formatI | \ #
# $Z $xci/transpose$X \ #
# $Z $formatI | \ #
# $Z $xci/and$X \ #
# $Z A1=$xTV/BOITE.4 \ #
# $Z R=$xTV/BOITE.7 \ #
# $Z $formatI #
# #
# $Z $xci/or_02$X \ #
# $Z A1=$xTV/BOITE.5 \ #
# $Z A2=$xTV/BOITE.6 \ #
# $Z $formatI | \ #
# $Z $xci/or_02$X \ #
# $Z A2=$xTV/BOITE.7 \ #
# $Z R=$xTV/BOITE.8 \ #
# $Z $formatI #
# #
# $Z S #
# #
# $Z $xci/format.01$X mode=0 \ #
# $Z A=$xTV/BOITE.8 \ #
# $Z $formatI \ #
# $Z R=$xTV/BOITE.1 \ #
# $Z $formatR_Pal #
# #
# $Z $xci/dilate.01$X \ #
# $Z A=$xTV/BOITE.5 \ #
# $Z points=225 \ #
# $Z dilater=FAUX \ #
# $Z R=$xTV/BOITE.A \ #
# $Z $formatI #
# #
# $Z $xci/random.02$X \ #
# $Z seuil=$SeuilPartN \ #
# $Z graine=$GrainePartN \ #
# $Z $formatI | \ #
# $Z $xci/and$X \ #
# $Z A2=$xTV/BOITE.A \ #
# $Z R=$xTV/BOITE.B \ #
# $Z $formatI #
# #
# $Z $DELETE $xTV/COORDONNEES #
# $Z $DELETE $xTV/COORDONNEES_01$COORD_X #
# $Z $DELETE $xTV/COORDONNEES_01$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_X #
# $Z $DELETE $xTV/COORDONNEES$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_Z #
# #
# $Z $xci/liste_points$X \ #
# $Z A=$xTV/BOITE.B \ #
# $Z $formatI \ #
# $Z > $xTV/COORDONNEES #
# #
# $Z $DELETE $xTV/BOITE.4 #
# $Z $DELETE $xTV/BOITE.5 #
# $Z $DELETE $xTV/BOITE.6 #
# $Z $DELETE $xTV/BOITE.7 #
# $Z $DELETE $xTV/BOITE.8 #
# $Z $DELETE $xTV/BOITE.A #
# $Z $DELETE $xTV/BOITE.B #
# #
# $Z set PartN=`$TAI -1 $xTV/COORDONNEES | $SE -e "s/^.*=//"` #
# #
# $Z $CA $xTV/COORDONNEES \ #
# $Z | $GRE "^[Xx]=" \ #
# $Z | $SE -e "s/^[Xx]=//" \ #
# $Z > $xTV/COORDONNEES_01$COORD_X #
# $Z $CA $xTV/COORDONNEES \ #
# $Z | $GRE "^[Yy]=" \ #
# $Z | $SE -e "s/^[Yy]=//" \ #
# $Z > $xTV/COORDONNEES_01$COORD_Y #
# #
# $Z set EchelleX=`$xcg/MUL2.01$X n1=2 n2=$MaxX` #
# $Z set TranslationX=`$xcg/MUL2.01$X n1=-1 n2=$MaxX` #
# $Z set EchelleY=`$xcg/MUL2.01$X n1=2 n2=$MaxY` #
# $Z set TranslationY=`$xcg/MUL2.01$X n1=-1 n2=$MaxY` #
# #
# $Z $xrv/AXPB.01$X \ #
# $Z CAL1=FAUX \ #
# $Z ne=$PartN \ #
# $Z fichier=$xTV/COORDONNEES_01$COORD_X \ #
# $Z homothetie=$EchelleX translation=$TranslationX \ #
# $Z > $xTV/COORDONNEES$COORD_X #
# $Z $xrv/AXPB.01$X \ #
# $Z CAL1=FAUX \ #
# $Z ne=$PartN \ #
# $Z fichier=$xTV/COORDONNEES_01$COORD_Y \ #
# $Z homothetie=$EchelleY translation=$TranslationY \ #
# $Z > $xTV/COORDONNEES$COORD_Y #
# #
# $Z $DELETE $xTV/COORDONNEES_01$COORD_X #
# $Z $DELETE $xTV/COORDONNEES_01$COORD_Y #
# #
# $Z set Part0=1 #
# $Z @ Npart = $PartN - $Part0 #
# $Z @ Npart = $Npart + 1 #
# #
# $Z $DELETE $xTV/MODULE #
# $Z $DELETE $xTV/THETA #
# $Z $DELETE $xTV/XY_RT.1 #
# $Z $DELETE $xTV/XY_RT.2 #
# $Z $DELETE $xTV/VITESSES #
# $Z $DELETE $xTV/VITESSES$COORD_X #
# $Z $DELETE $xTV/VITESSES$COORD_Y #
# $Z $DELETE $xTV/VITESSES$COORD_Z #
# $Z $DELETE $xTV/mdRHO #
# $Z $DELETE $xTV/MdRHO #
# $Z $DELETE $xTV/mnPHI #
# $Z $DELETE $xTV/MnPHI #
# $Z $DELETE $xTV/dPHI #
# $Z $DELETE $xTV/mnTHETA #
# $Z $DELETE $xTV/MnTHETA #
# $Z $DELETE $xTV/dTHETA #
# $Z $DELETE $xTV/supOUVE #
# $Z $DELETE $xTV/DISTANCE #
# $Z $DELETE $xTV/STABILITE #
# $Z $DELETE $xTV/RAYONS #
# $Z $DELETE $xTV/INTERACTIONS #
# #
# #
# $Z alias Gen 'set Fi=\!:1 ; set vD=\!:2 ; set vA=\!:3 ; set ArG=(\!:4*) ; \\ #
# $Z $DELETE $Fi ; \\ #
# $Z $xci/valeurs_inte$X p=$Part0 d=$PartN vD=$vD vA=$vA $ArG > $Fi ; \\ #
# $Z unset Fi vD vA ArG' #
# #
# $Z alias GenR 'set Fi=\!:1 ; set In=\!:2 ; set Su=\!:3 ; set ArG=(\!:4*) ; \\ #
# $Z $DELETE $Fi ; \\ #
# $Z $xci/valeurs_alea$X p=$Part0 d=$PartN signe="$KV" inf=$In sup=$Su $ArG > $Fi ; \\ #
# $Z unset Fi In Su ArG' #
# #
# $Z Gen $xTV/COORDONNEES$COORD_Z 0.0 0.0 #
# #
# #
# $Z Gen $xTV/MODULE 0.02 0.02 #
# $Z GenR $xTV/THETA 0.0 $dpi g=3333 #
# #
# $Z $CA $xcs/csh$Y \ #
# $Z > $xTV/XY_RT.1 #
# $Z $PAST $xTV/MODULE $xTV/THETA \ #
# $Z | $R "$K_TAB" "$K_BLANC" \ #
# $Z | $AW ' { print "$xcg/XY_RT$X r=" $1 " t=" $2 " cartesien=FAUX" } ' \ #
# $Z >>! $xTV/XY_RT.1 #
# #
# $Z (source $xTV/XY_RT.1) \ #
# $Z > $xTV/XY_RT.2 #
# #
# $Z $CA $xTV/XY_RT.2 \ #
# $Z | $GRE "^x=" \ #
# $Z | $SE -e "s/^x=//" \ #
# $Z > $xTV/VITESSES$COORD_X #
# $Z $CA $xTV/XY_RT.2 \ #
# $Z | $GRE "^y=" \ #
# $Z | $SE -e "s/^y=//" \ #
# $Z > $xTV/VITESSES$COORD_Y #
# #
# $Z Gen $xTV/VITESSES$COORD_Z 0.0 0.0 #
# #
# $Z Gen $xTV/mdRHO 0.0 0.0 #
# $Z Gen $xTV/MdRHO 0.0 0.0 #
# $Z Gen $xTV/mnPHI 0.0 0.0 #
# $Z Gen $xTV/MnPHI 0.0 0.0 #
# $Z Gen $xTV/dPHI 0.0 0.0 #
# $Z Gen $xTV/mnTHETA 0.0 0.0 #
# $Z Gen $xTV/MnTHETA 0.0 0.0 #
# $Z Gen $xTV/dTHETA 0.0 0.0 #
# $Z Gen $xTV/DISTANCE 1000000 1000000 #
# $Z Gen $xTV/STABILITE 1000000 1000000 #
# #
# $Z set RayonsT=0.014 #
# $Z set RayonsP=`$xcg/MUL2.01$X a=2 b=$RayonsT` #
# $Z set DistanceI=`$xcg/MUL2.01$X a=4 b=$RayonsP` #
# $Z Gen $xTV/RAYONS $RayonsT $RayonsT #
# $Z Gen $xTV/INTERACTIONS $RayonsP $RayonsP #
# #
# $Z $DELETE $xTV/COULEURS$TEINT #
# $Z $DELETE $xTV/COULEURS$LUMIN #
# $Z $DELETE $xTV/COULEURS$SATUR #
# $Z $DELETE $xTV/COULEURS$Y #
# $Z $DELETE $xTV/COULEURS #
# $Z $DELETE $xTV/COULEURS$ROUGE #
# $Z $DELETE $xTV/COULEURS$VERTE #
# $Z $DELETE $xTV/COULEURS$BLEUE #
# #
# $Z @ TeinteMagenta = $GRIS_7 #
# $Z @ TeinteCyan = $GRIS_4 + $GRIS_8 #
# #
# $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartN \ #
# $Z vD=$TeinteMagenta vA=$TeinteCyan \ #
# $Z cubique=FAUX \ #
# $Z entiers=VRAI \ #
# $Z > $xTV/COULEURS$TEINT #
# $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartN \ #
# $Z vD=$GRIS_4 vA=$GRIS_4 \ #
# $Z cubique=FAUX \ #
# $Z entiers=VRAI \ #
# $Z > $xTV/COULEURS$LUMIN #
# $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartN \ #
# $Z vD=$GRIS_8 vA=$GRIS_8 \ #
# $Z cubique=FAUX \ #
# $Z entiers=VRAI \ #
# $Z > $xTV/COULEURS$SATUR #
# #
# $Z $PAST \ #
# $Z $xTV/COULEURS$TEINT \ #
# $Z $xTV/COULEURS$LUMIN \ #
# $Z $xTV/COULEURS$SATUR \ #
# $Z | $R "$K_TAB" "$K_BLANC" \ #
# $Z | $AW ' { print "H=" $1 " L=" $2 " S=" $3 } ' \ #
# $Z | $SE -e 's+^+$xcg/RVB_HLS$X RVB_HLS=FAUX +' \ #
# $Z | $SE -e 's/$/ eR=VRAI eV=VRAI eB=VRAI/' \ #
# $Z | $SE -e 's/$/ eH=FAUX eL=FAUX eS=FAUX/' \ #
# $Z > $xTV/COULEURS$Y #
# #
# $Z (source $xTV/COULEURS$Y) \ #
# $Z > $xTV/COULEURS #
# #
# $Z $GRE "^R=" $xTV/COULEURS \ #
# $Z | $SE -e "s/^R=//" \ #
# $Z > $xTV/COULEURS$ROUGE #
# $Z $GRE "^V=" $xTV/COULEURS \ #
# $Z | $SE -e "s/^V=//" \ #
# $Z > $xTV/COULEURS$VERTE #
# $Z $GRE "^B=" $xTV/COULEURS \ #
# $Z | $SE -e "s/^B=//" \ #
# $Z > $xTV/COULEURS$BLEUE #
# #
# $Z Pal #
# #
# #
# $Z $xci/scale$X \ #
# $Z A=$xTV/BOITE.1 \ #
# $Z a=1.00 \ #
# $Z R=$xTV/BOITE.2 \ #
# $Z $formatI #
# #
# $Z $DELETE $xTV/LISTE_POINTS #
# $Z $xrk/rdn_walk.41$X corps=$Npart \ #
# $Z np=$NimagesA \ #
# $Z collisions=VRAI DLA=FAUX interaction=$DistanceI \ #
# $Z LISTE_X=$xTV/COORDONNEES$COORD_X \ #
# $Z LISTE_Y=$xTV/COORDONNEES$COORD_Y \ #
# $Z LISTE_Z=$xTV/COORDONNEES$COORD_Z \ #
# $Z LISTE_VX=$xTV/VITESSES$COORD_X \ #
# $Z LISTE_VY=$xTV/VITESSES$COORD_Y \ #
# $Z LISTE_VZ=$xTV/VITESSES$COORD_Z \ #
# $Z LISTE_MINIMUM_DELTA_RHO=$xTV/mdRHO \ #
# $Z LISTE_MAXIMUM_DELTA_RHO=$xTV/MdRHO \ #
# $Z LISTE_MINIMUM_N_PHI=$xTV/mnPHI \ #
# $Z LISTE_MAXIMUM_N_PHI=$xTV/MnPHI \ #
# $Z LISTE_DELTA_PHI=$xTV/dPHI \ #
# $Z LISTE_MINIMUM_N_THETA=$xTV/mnTHETA \ #
# $Z LISTE_MAXIMUM_N_THETA=$xTV/MnTHETA \ #
# $Z LISTE_DELTA_THETA=$xTV/dTHETA \ #
# $Z LISTE_DISTANCE_MAXIMALE=$xTV/DISTANCE \ #
# $Z LISTE_STABILITE=$xTV/STABILITE \ #
# $Z LISTE_RAYON=$xTV/INTERACTIONS \ #
# $Z LISTE_RAYON_D_INTERACTION=$xTV/INTERACTIONS \ #
# $Z LISTE_ROUGE=$xTV/COULEURS$ROUGE \ #
# $Z LISTE_VERTE=$xTV/COULEURS$VERTE \ #
# $Z LISTE_BLEUE=$xTV/COULEURS$BLEUE \ #
# $Z milieu=VRAI \ #
# $Z reflexion=VRAI refraction=FAUX \ #
# $Z Mhors=$BLANC \ #
# $Z MNpasX=1 Mprolonger_X=VRAI \ #
# $Z MNpasY=1 Mprolonger_Y=VRAI \ #
# $Z MNpasZ=1 Mprolonger_Z=VRAI \ #
# $Z adapter_M_nPAS=VRAI \ #
# $Z Msimplifier=FAUX affiner_M_maillage=FAUX \ #
# $Z MC=$xTV/BOITE.2 \ #
# $Z MChiffres=0 \ #
# $Z Zmin=0 Zmax=15 \ #
# $Z centrer=VRAI \ #
# $Z dct=0.05 nombre=10 \ #
# $Z trainees=FAUX \ #
# $Z facteur_ROUGE=1.0 \ #
# $Z facteur_VERTE=1.0 \ #
# $Z facteur_BLEUE=1.0 \ #
# $Z renormaliser=FAUX \ #
# $Z Lz=100 \ #
# $Z zoom_automatique=VRAI \ #
# $Z centre_de_gravite=FAUX \ #
# $Z fond=FAUX \ #
# $Z lister_les_points=VRAI \ #
# $Z lister_les_points_apres=FAUX \ #
# $Z R=$xiim/REFL.Wa. \ #
# $Z $formatI | \ #
# $Z $GRE "^periode=$DerniereA " \ #
# $Z > $xTV/LISTE_POINTS #
# #
# #
# #
# $Z $xci/complement$X A=$xTV/BOITE.1 \ #
# $Z R=$xTV/BOITE.3 \ #
# $Z $formatI #
# #
# $Z eval `$xci/genere$X \\\ #
# $Z commande='($xci/scale$X \\\ #
# $Z A=$xTV/BOITE.3 \\\ #
# $Z a=0.50 \\\ #
# $Z R=$xTV/BOITE.3%s \\\ #
# $Z $formatI)' \\\ #
# $Z en_tete=FAUX RVB=VRAI separateur=VRAI` #
# #
# #
# $X $xci/genere$X premiere=$PremiereA derniere=$DerniereA pas=1 \ #
# $X C='$xci/cache.11$Z \ #
# $X $xiim/REFL.Wa.%04d \ #
# $X $xTV/BOITE.3 \ #
# $X $xiim/REFL.M.%04d' #
# #
# #
# $Z $DELETE $xTV/COORDONNEES #
# $Z $DELETE $xTV/COORDONNEES$COORD_X #
# $Z $DELETE $xTV/COORDONNEES$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_Z #
# $Z $DELETE $xTV/VITESSES #
# $Z $DELETE $xTV/VITESSES$COORD_X #
# $Z $DELETE $xTV/VITESSES$COORD_Y #
# $Z $DELETE $xTV/VITESSES$COORD_Z #
# #
# #
# $Z $GRE " X=" $xTV/LISTE_POINTS \ #
# $Z | $SE -e 's/^.* X=\([^ ][^ ]*\) .*$/\1/' \ #
# $Z > $xTV/COORDONNEES$COORD_X #
# $Z $GRE " Y=" $xTV/LISTE_POINTS \ #
# $Z | $SE -e 's/^.* Y=\([^ ][^ ]*\) .*$/\1/' \ #
# $Z > $xTV/COORDONNEES$COORD_Y #
# $Z $GRE " Z=" $xTV/LISTE_POINTS \ #
# $Z | $SE -e 's/^.* Z=\([^ ][^ ]*\) .*$/\1/' \ #
# $Z > $xTV/COORDONNEES$COORD_Z #
# #
# $Z $GRE " VX=" $xTV/LISTE_POINTS \ #
# $Z | $SE -e 's/^.* VX=\([^ ][^ ]*\) .*$/\1/' \ #
# $Z > $xTV/VITESSES$COORD_X #
# $Z $GRE " VY=" $xTV/LISTE_POINTS \ #
# $Z | $SE -e 's/^.* VY=\([^ ][^ ]*\) .*$/\1/' \ #
# $Z > $xTV/VITESSES$COORD_Y #
# $Z $GRE " VZ=" $xTV/LISTE_POINTS \ #
# $Z | $SE -e 's/^.* VZ=\([^ ][^ ]*\) .*$/\1/' \ #
# $Z > $xTV/VITESSES$COORD_Z #
# #
# $Z $DELETE $xTV/LISTE_POINTS #
# #
# #
# $Z Std #
# #
# $Z set LBande=100 #
# $Z set BandeS=`$xcg/ADD2.01$X a=$GRIS_4 b=$LBande` #
# $Z set BandeI=`$xcg/SOUS.01$X a=$GRIS_4 b=$LBande` #
# #
# $Z $xci/complement$X \ #
# $Z A=$xiio/SPIRALE \ #
# $Z $formatI | \ #
# $Z $xci/seuil$X \ #
# $Z seuil=$SeuilBOITE \ #
# $Z R=$xTV/BOITE.4 \ #
# $Z $formatI #
# #
# $Z $xci/move$X \ #
# $Z A=$xTV/BOITE.4 \ #
# $Z xR=+$DTransX \ #
# $Z $formatI | \ #
# $Z $xci/move$X \ #
# $Z xR=-$GTransX \ #
# $Z $formatI | \ #
# $Z $xci/dilate.01$X \ #
# $Z points=9 \ #
# $Z dilater=VRAI \ #
# $Z R=$xTV/BOITE.5 \ #
# $Z $formatI #
# $Z $xci/Sy$X \ #
# $Z A=$xTV/BOITE.5 \ #
# $Z R=$xTV/BOITE.6 \ #
# $Z $formatI #
# #
# $Z $xci/passe_bande$X \ #
# $Z A=$xiio/MIRE \ #
# $Z inf=$BandeI \ #
# $Z sup=$BandeS \ #
# $Z $formatI | \ #
# $Z $xci/seuil$X \ #
# $Z $formatI | \ #
# $Z $xci/transpose$X \ #
# $Z $formatI | \ #
# $Z $xci/and$X \ #
# $Z A1=$xTV/BOITE.4 \ #
# $Z R=$xTV/BOITE.7 \ #
# $Z $formatI #
# #
# $Z $xci/or_02$X \ #
# $Z A1=$xTV/BOITE.5 \ #
# $Z A2=$xTV/BOITE.6 \ #
# $Z $formatI | \ #
# $Z $xci/or_02$X \ #
# $Z A2=$xTV/BOITE.7 \ #
# $Z R=$xTV/BOITE.8 \ #
# $Z $formatI #
# #
# $Z $xci/format.01$X mode=0 \ #
# $Z A=$xTV/BOITE.8 \ #
# $Z $formatI \ #
# $Z R=$xTV/BOITE.1 \ #
# $Z $formatR_Pal #
# #
# $Z $DELETE $xTV/BOITE.4 #
# $Z $DELETE $xTV/BOITE.5 #
# $Z $DELETE $xTV/BOITE.6 #
# $Z $DELETE $xTV/BOITE.7 #
# $Z $DELETE $xTV/BOITE.8 #
# #
# $Z Pal #
# #
# #
# $Z $xci/scale$X \ #
# $Z A=$xTV/BOITE.1 \ #
# $Z a=1.00 \ #
# $Z R=$xTV/BOITE.2 \ #
# $Z $formatI #
# #
# $Z $xrk/rdn_walk.41$X corps=$Npart \ #
# $Z np=$NimagesB \ #
# $Z collisions=VRAI DLA=FAUX interaction=$DistanceI \ #
# $Z LISTE_X=$xTV/COORDONNEES$COORD_X \ #
# $Z LISTE_Y=$xTV/COORDONNEES$COORD_Y \ #
# $Z LISTE_Z=$xTV/COORDONNEES$COORD_Z \ #
# $Z LISTE_VX=$xTV/VITESSES$COORD_X \ #
# $Z LISTE_VY=$xTV/VITESSES$COORD_Y \ #
# $Z LISTE_VZ=$xTV/VITESSES$COORD_Z \ #
# $Z LISTE_MINIMUM_DELTA_RHO=$xTV/mdRHO \ #
# $Z LISTE_MAXIMUM_DELTA_RHO=$xTV/MdRHO \ #
# $Z LISTE_MINIMUM_N_PHI=$xTV/mnPHI \ #
# $Z LISTE_MAXIMUM_N_PHI=$xTV/MnPHI \ #
# $Z LISTE_DELTA_PHI=$xTV/dPHI \ #
# $Z LISTE_MINIMUM_N_THETA=$xTV/mnTHETA \ #
# $Z LISTE_MAXIMUM_N_THETA=$xTV/MnTHETA \ #
# $Z LISTE_DELTA_THETA=$xTV/dTHETA \ #
# $Z LISTE_DISTANCE_MAXIMALE=$xTV/DISTANCE \ #
# $Z LISTE_STABILITE=$xTV/STABILITE \ #
# $Z LISTE_RAYON=$xTV/INTERACTIONS \ #
# $Z LISTE_RAYON_D_INTERACTION=$xTV/INTERACTIONS \ #
# $Z LISTE_ROUGE=$xTV/COULEURS$ROUGE \ #
# $Z LISTE_VERTE=$xTV/COULEURS$VERTE \ #
# $Z LISTE_BLEUE=$xTV/COULEURS$BLEUE \ #
# $Z milieu=VRAI \ #
# $Z reflexion=VRAI refraction=FAUX \ #
# $Z Mhors=$BLANC \ #
# $Z MNpasX=1 Mprolonger_X=VRAI \ #
# $Z MNpasY=1 Mprolonger_Y=VRAI \ #
# $Z MNpasZ=1 Mprolonger_Z=VRAI \ #
# $Z adapter_M_nPAS=VRAI \ #
# $Z Msimplifier=FAUX affiner_M_maillage=FAUX \ #
# $Z MC=$xTV/BOITE.2 \ #
# $Z MChiffres=0 \ #
# $Z Zmin=0 Zmax=15 \ #
# $Z centrer=VRAI \ #
# $Z dct=0.05 nombre=10 \ #
# $Z trainees=FAUX \ #
# $Z facteur_ROUGE=1.0 \ #
# $Z facteur_VERTE=1.0 \ #
# $Z facteur_BLEUE=1.0 \ #
# $Z renormaliser=FAUX \ #
# $Z Lz=100 \ #
# $Z zoom_automatique=VRAI \ #
# $Z centre_de_gravite=FAUX \ #
# $Z fond=FAUX \ #
# $Z R=$xiim/REFL.WB. \ #
# $Z $formatI #
# #
# $Z $DELETE $xTV/COORDONNEES$COORD_X #
# $Z $DELETE $xTV/COORDONNEES$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_Z #
# $Z $DELETE $xTV/VITESSES$COORD_X #
# $Z $DELETE $xTV/VITESSES$COORD_Y #
# $Z $DELETE $xTV/VITESSES$COORD_Z #
# $Z $DELETE $xTV/mdRHO #
# $Z $DELETE $xTV/MdRHO #
# $Z $DELETE $xTV/mnPHI #
# $Z $DELETE $xTV/MnPHI #
# $Z $DELETE $xTV/dPHI #
# $Z $DELETE $xTV/mnTHETA #
# $Z $DELETE $xTV/MnTHETA #
# $Z $DELETE $xTV/dTHETA #
# $Z $DELETE $xTV/DISTANCE #
# $Z $DELETE $xTV/STABILITE #
# $Z $DELETE $xTV/RAYONS #
# $Z $DELETE $xTV/INTERACTIONS #
# $Z $DELETE $xTV/COULEURS$TEINT #
# $Z $DELETE $xTV/COULEURS$LUMIN #
# $Z $DELETE $xTV/COULEURS$SATUR #
# $Z $DELETE $xTV/COULEURS$Y #
# $Z $DELETE $xTV/COULEURS #
# $Z $DELETE $xTV/COULEURS$ROUGE #
# $Z $DELETE $xTV/COULEURS$VERTE #
# $Z $DELETE $xTV/COULEURS$BLEUE #
# #
# #
# #
# #
# $Z $xci/complement$X A=$xTV/BOITE.1 \ #
# $Z R=$xTV/BOITE.3 \ #
# $Z $formatI #
# #
# $Z eval `$xci/genere$X \\\ #
# $Z commande='($xci/scale$X \\\ #
# $Z A=$xTV/BOITE.3 \\\ #
# $Z a=0.50 \\\ #
# $Z R=$xTV/BOITE.3%s \\\ #
# $Z $formatI)' \\\ #
# $Z en_tete=FAUX RVB=VRAI separateur=VRAI` #
# #
# #
# $X $xci/genere$X premiere=$PremiereB derniere=$DerniereB pas=1 \ #
# $X C='$xci/cache.11$Z \ #
# $X $xiim/REFL.WB.%04d \ #
# $X $xTV/BOITE.3 \ #
# $X $xiim/REFL.WB.%04d' #
# #
# $c extern int atoi(); #
# $c extern int *getenv(); #
# #
# $c #define NA0 (atoi(getenv("PremiereA"))) #
# $c #define NA (atoi(getenv("DerniereA"))) #
# $c #define NB0 (atoi(getenv("PremiereB"))+atoi(getenv("Dupliquee"))) #
# $c #define NB (atoi(getenv("DerniereB"))) #
# #
# $c int main() #
# $c { #
# $c int n1; #
# $c int n2=(NA+1); #
# #
# $c for (n1=NB0 ; n1<=NB ; n1++) #
# $c { #
# $c printf("$MV $xiim/REFL.WB.%04d$ROUGE #
# $c $xiim/REFL.M.%04d$ROUGE\n" #
# $c ,n1,n2 #
# $c ); #
# $c printf("$MV $xiim/REFL.WB.%04d$VERTE #
# $c $xiim/REFL.M.%04d$VERTE\n" #
# $c ,n1,n2 #
# $c ); #
# $c printf("$MV $xiim/REFL.WB.%04d$BLEUE #
# $c $xiim/REFL.M.%04d$BLEUE\n" #
# $c ,n1,n2 #
# $c ); #
# #
# $c n2++; #
# $c } #
# $c } #
# #
# $Z $DELETE $xTV/BOITE.1 #
# $Z $DELETE $xTV/BOITE.2 #
# $Z $DELETE $xTV/BOITE.3 #
# $Z $DELETE $xTV/BOITE.3$ROUGE #
# $Z $DELETE $xTV/BOITE.3$VERTE #
# $Z $DELETE $xTV/BOITE.3$BLEUE #
# #
# $Z Pal #
# #
# $Z $xci/reduction_16$Z $xiim/REFL.M. $xiak/REFL.K8 $Premiere $Derniere #
# $Z $xci/reduction_64$Z $xiim/REFL.M. $xiak/REFL.K8 $Premiere $Derniere #
# #
# $X $xci/genere$X c='ro $xiak/REFL.K8$R16%s' RVB=VRAI #
# $X $xci/genere$X c='ro $xiak/REFL.K8$R64%s' RVB=VRAI #
# #
# $X $xci/genere$X c='$xcg/unite$Z $xiak/REFL.K8$R16%s' RVB=VRAI #
# $X $xci/genere$X c='$xcg/unite$Z $xiak/REFL.K8$R64%s' RVB=VRAI #
# #
# $X $xci/genere$X c='$CP $xiim/REFL.M.0256%s $xiirk/REFL.K8.0256%s' RVB=VRAI #
# $X $xci/genere$X c='ro $xiirk/REFL.K8.0256%s' RVB=VRAI #
# $X $xci/genere$X c='$xcg/unite$Z $xiirk/REFL.K8.0256%s' RVB=VRAI #
# #
# $X $xci/genere$X c='$CP $xiim/REFL.M.0512%s $xiirk/REFL.K8.0512%s' RVB=VRAI #
# $X $xci/genere$X c='ro $xiirk/REFL.K8.0512%s' RVB=VRAI #
# $X $xci/genere$X c='$xcg/unite$Z $xiirk/REFL.K8.0512%s' RVB=VRAI #
# #
# #
# Pal #
# #
# #
# $xci/disk_video_P$Z $xiim_LACT29/REFL.M. 001 512 RVB \ #
# 11 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
# #
# xivPdf 3 2 #
# #
# record.01$Z $xiak/REFL.K8$R16 RVB Initialisation #
# record.01$Z $xiak/REFL.K8$R64 RVB rien #
# record.01$Z $xiirk/REFL.K8.0256 RVB rien #
# record.01$Z $xiirk/REFL.K8.0512 RVB rien #
# #
# #
sequence 019122_019633
# Generee (sur '$LACT29') par : #
# #
# #
# $Z SET Premiere=1 #
# $Z SET Derniere=512 #
# #
# $Z @ Nimages = $Derniere - $Premiere #
# $Z @ Nimages = $Nimages + 1 #
# #
# #
# $Z Pal #
# #
# #
# $c #define N0 Premiere #
# $c #define N Derniere #
# $c #define NOMBRE 60 #
# #
# $c int main() #
# $c { #
# $c int n; #
# #
# $c for (n=N0 ; n<=N ; n++) #
# $c { #
# $c int premiere=n-NOMBRE+1; #
# $c int derniere=n; #
# #
# $c premiere=((premiere>=N0) ? premiere : N0); #
# #
# $c printf("$xci/accumule.01$X #
# $c A=$xiim/REFL.M. #
# $c postfixe=$ROUGE #
# $c premiere=%d #
# $c derniere=%d #
# $c maximum=VRAI #
# $c attenuation=0 #
# $c R=$xiim/REFL.N.%04d$ROUGE #
# $c $formatI\n" #
# $c ,premiere,derniere,n #
# $c ); #
# $c printf("$xci/accumule.01$X #
# $c A=$xiim/REFL.M. #
# $c postfixe=$VERTE #
# $c premiere=%d #
# $c derniere=%d #
# $c maximum=VRAI #
# $c attenuation=0 #
# $c R=$xiim/REFL.N.%04d$VERTE #
# $c $formatI\n" #
# $c ,premiere,derniere,n #
# $c ); #
# $c printf("$xci/accumule.01$X #
# $c A=$xiim/REFL.M. #
# $c postfixe=$BLEUE #
# $c premiere=%d #
# $c derniere=%d #
# $c maximum=VRAI #
# $c attenuation=0 #
# $c R=$xiim/REFL.N.%04d$BLEUE #
# $c $formatI\n" #
# $c ,premiere,derniere,n #
# $c ); #
# $c } #
# $c } #
# #
# #
# $Z Pal #
# #
# $Z $xci/reduction_16$Z $xiim/REFL.N. $xiak/REFL.L8 $Premiere $Derniere #
# $Z $xci/reduction_64$Z $xiim/REFL.N. $xiak/REFL.L8 $Premiere $Derniere #
# #
# $X $xci/genere$X c='ro $xiak/REFL.L8$R16%s' RVB=VRAI #
# $X $xci/genere$X c='ro $xiak/REFL.L8$R64%s' RVB=VRAI #
# #
# $X $xci/genere$X c='$xcg/unite$Z $xiak/REFL.L8$R16%s' RVB=VRAI #
# $X $xci/genere$X c='$xcg/unite$Z $xiak/REFL.L8$R64%s' RVB=VRAI #
# #
# $X $xci/genere$X c='$CP $xiim/REFL.N.0256%s $xiirk/REFL.L8.0256%s' RVB=VRAI #
# $X $xci/genere$X c='ro $xiirk/REFL.L8.0256%s' RVB=VRAI #
# $X $xci/genere$X c='$xcg/unite$Z $xiirk/REFL.L8.0256%s' RVB=VRAI #
# #
# $X $xci/genere$X c='$CP $xiim/REFL.N.0512%s $xiirk/REFL.L8.0512%s' RVB=VRAI #
# $X $xci/genere$X c='ro $xiirk/REFL.L8.0512%s' RVB=VRAI #
# $X $xci/genere$X c='$xcg/unite$Z $xiirk/REFL.L8.0512%s' RVB=VRAI #
# #
# #
# Pal #
# #
# #
# $xci/disk_video_P$Z $xiim_LACT29/REFL.N. 001 512 RVB \ #
# 11 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
# #
# xivPdf 3 2 #
# #
# record.01$Z $xiak/REFL.L8$R16 RVB Initialisation #
# record.01$Z $xiak/REFL.L8$R64 RVB rien #
# record.01$Z $xiirk/REFL.L8.0256 RVB rien #
# record.01$Z $xiirk/REFL.L8.0512 RVB rien #
# #
# #
sequence 019634_020145
# Generee (sur '$LACT29') par : #
# #
# $Z SET Premiere=1 #
# $Z SET Derniere=512 #
# $Z @ Nimages = $Derniere - $Premiere #
# $Z @ Nimages = $Nimages + 1 #
# #
# #
# $Z Pal #
# #
# $Z set PUnivers="np=0 CAL1=FAUX editer_l_univers_physique=VRAI" #
# $Z set Univers=`$xrk/rdn_walk.41$X $PUnivers $formatI` #
# #
# $Z set MinX=`echo $Univers | $SE -e "s/^.*[(,]XUI=//" -e "s/[,)].*//"` #
# $Z set MaxX=`echo $Univers | $SE -e "s/^.*[(,]XUS=//" -e "s/[,)].*//"` #
# $Z set MinY=`echo $Univers | $SE -e "s/^.*[(,]YUI=//" -e "s/[,)].*//"` #
# $Z set MaxY=`echo $Univers | $SE -e "s/^.*[(,]YUS=//" -e "s/[,)].*//"` #
# #
# $Z set MinX=`$xcg/ABSO.01$X x=$MinX` #
# $Z set MaxX=`$xcg/ABSO.01$X x=$MaxX` #
# $Z set MinY=`$xcg/ABSO.01$X x=$MinY` #
# $Z set MaxY=`$xcg/ABSO.01$X x=$MaxY` #
# #
# $Z set MaxX=`$xcg/MAX2.01$X n1=$MinX n2=$MaxX` #
# $Z set MaxY=`$xcg/MAX2.01$X n1=$MinY n2=$MaxY` #
# #
# $Z set SeuilPartN=0.000062 #
# $Z set GrainePartN=2 #
# #
# $Z $DELETE $xTV/BOITE.1 #
# $Z $DELETE $xTV/BOITE.2 #
# $Z $DELETE $xTV/BOITE.3 #
# $Z $DELETE $xTV/BOITE.3$ROUGE #
# $Z $DELETE $xTV/BOITE.3$VERTE #
# $Z $DELETE $xTV/BOITE.3$BLEUE #
# $Z $DELETE $xTV/BOITE.6 #
# $Z $DELETE $xTV/BOITE.A #
# $Z $DELETE $xTV/BOITE.B #
# #
# #
# $Z Std #
# #
# $Z set FacXY=0.85 #
# $Z set SeuilBOITE=`$xcg/SOUS.01$X a=1 b=$FacXY` #
# $Z set SeuilBOITE=`$xcg/MUL2.01$X a=$SeuilBOITE b=$GRIS_8` #
# $Z set SeuilBOITE=`$xci/valeurs_inte$X p=1 d=1 vD=$SeuilBOITE entiers=VRAI` #
# $Z set SeuilBOITE=`$xcg/MIN2.01$X a=$SeuilBOITE b=$GRIS_1` #
# #
# $Z $xci/complement$X \ #
# $Z A=$xiio/SPIRALE \ #
# $Z $formatI | \ #
# $Z $xci/seuil$X \ #
# $Z seuil=$SeuilBOITE \ #
# $Z R=$xTV/BOITE.6 \ #
# $Z $formatI #
# #
# $Z S #
# #
# $Z $xci/format.01$X mode=0 \ #
# $Z A=$xTV/BOITE.6 \ #
# $Z $formatI \ #
# $Z R=$xTV/BOITE.1 \ #
# $Z $formatR_Pal #
# #
# $Z $xci/dilate.01$X \ #
# $Z A=$xTV/BOITE.6 \ #
# $Z points=225 \ #
# $Z dilater=FAUX \ #
# $Z R=$xTV/BOITE.A \ #
# $Z $formatI #
# #
# $Z $xci/random.02$X \ #
# $Z seuil=$SeuilPartN \ #
# $Z graine=$GrainePartN \ #
# $Z $formatI | \ #
# $Z $xci/and$X \ #
# $Z A2=$xTV/BOITE.A \ #
# $Z R=$xTV/BOITE.B \ #
# $Z $formatI #
# #
# $Z $DELETE $xTV/COORDONNEES #
# $Z $DELETE $xTV/COORDONNEES_01$COORD_X #
# $Z $DELETE $xTV/COORDONNEES_01$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_X #
# $Z $DELETE $xTV/COORDONNEES$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_Z #
# #
# $Z $xci/liste_points$X \ #
# $Z A=$xTV/BOITE.B \ #
# $Z $formatI \ #
# $Z > $xTV/COORDONNEES #
# #
# $Z $DELETE $xTV/BOITE.6 #
# $Z $DELETE $xTV/BOITE.A #
# $Z $DELETE $xTV/BOITE.B #
# #
# $Z set PartN=`$TAI -1 $xTV/COORDONNEES | $SE -e "s/^.*=//"` #
# #
# $Z $CA $xTV/COORDONNEES \ #
# $Z | $GRE "^[Xx]=" \ #
# $Z | $SE -e "s/^[Xx]=//" \ #
# $Z > $xTV/COORDONNEES_01$COORD_X #
# $Z $CA $xTV/COORDONNEES \ #
# $Z | $GRE "^[Yy]=" \ #
# $Z | $SE -e "s/^[Yy]=//" \ #
# $Z > $xTV/COORDONNEES_01$COORD_Y #
# #
# $Z set EchelleX=`$xcg/MUL2.01$X n1=2 n2=$MaxX` #
# $Z set TranslationX=`$xcg/MUL2.01$X n1=-1 n2=$MaxX` #
# $Z set EchelleY=`$xcg/MUL2.01$X n1=2 n2=$MaxY` #
# $Z set TranslationY=`$xcg/MUL2.01$X n1=-1 n2=$MaxY` #
# #
# $Z $xrv/AXPB.01$X \ #
# $Z CAL1=FAUX \ #
# $Z ne=$PartN \ #
# $Z fichier=$xTV/COORDONNEES_01$COORD_X \ #
# $Z homothetie=$EchelleX translation=$TranslationX \ #
# $Z > $xTV/COORDONNEES$COORD_X #
# $Z $xrv/AXPB.01$X \ #
# $Z CAL1=FAUX \ #
# $Z ne=$PartN \ #
# $Z fichier=$xTV/COORDONNEES_01$COORD_Y \ #
# $Z homothetie=$EchelleY translation=$TranslationY \ #
# $Z > $xTV/COORDONNEES$COORD_Y #
# #
# $Z $DELETE $xTV/COORDONNEES_01$COORD_X #
# $Z $DELETE $xTV/COORDONNEES_01$COORD_Y #
# #
# $Z set Part0=1 #
# $Z @ Npart = $PartN - $Part0 #
# $Z @ Npart = $Npart + 1 #
# #
# $Z $DELETE $xTV/MODULE #
# $Z $DELETE $xTV/THETA #
# $Z $DELETE $xTV/XY_RT.1 #
# $Z $DELETE $xTV/XY_RT.2 #
# $Z $DELETE $xTV/VITESSES #
# $Z $DELETE $xTV/VITESSES$COORD_X #
# $Z $DELETE $xTV/VITESSES$COORD_Y #
# $Z $DELETE $xTV/VITESSES$COORD_Z #
# $Z $DELETE $xTV/mdRHO #
# $Z $DELETE $xTV/MdRHO #
# $Z $DELETE $xTV/mnPHI #
# $Z $DELETE $xTV/MnPHI #
# $Z $DELETE $xTV/dPHI #
# $Z $DELETE $xTV/mnTHETA #
# $Z $DELETE $xTV/MnTHETA #
# $Z $DELETE $xTV/dTHETA #
# $Z $DELETE $xTV/supOUVE #
# $Z $DELETE $xTV/DISTANCE #
# $Z $DELETE $xTV/STABILITE #
# $Z $DELETE $xTV/RAYONS #
# $Z $DELETE $xTV/INTERACTIONS #
# #
# #
# $Z alias Gen 'set Fi=\!:1 ; set vD=\!:2 ; set vA=\!:3 ; set ArG=(\!:4*) ; \\ #
# $Z $DELETE $Fi ; \\ #
# $Z $xci/valeurs_inte$X p=$Part0 d=$PartN vD=$vD vA=$vA $ArG > $Fi ; \\ #
# $Z unset Fi vD vA ArG' #
# #
# $Z alias GenR 'set Fi=\!:1 ; set In=\!:2 ; set Su=\!:3 ; set ArG=(\!:4*) ; \\ #
# $Z $DELETE $Fi ; \\ #
# $Z $xci/valeurs_alea$X p=$Part0 d=$PartN signe="$KV" inf=$In sup=$Su $ArG > $Fi ; \\ #
# $Z unset Fi In Su ArG' #
# #
# $Z Gen $xTV/COORDONNEES$COORD_Z 0.0 0.0 #
# #
# #
# $Z Gen $xTV/MODULE 0.02 0.02 #
# $Z GenR $xTV/THETA 0.0 $dpi g=3333 #
# #
# $Z $CA $xcs/csh$Y \ #
# $Z > $xTV/XY_RT.1 #
# $Z $PAST $xTV/MODULE $xTV/THETA \ #
# $Z | $R "$K_TAB" "$K_BLANC" \ #
# $Z | $AW ' { print "$xcg/XY_RT$X r=" $1 " t=" $2 " cartesien=FAUX" } ' \ #
# $Z >>! $xTV/XY_RT.1 #
# #
# $Z (source $xTV/XY_RT.1) \ #
# $Z > $xTV/XY_RT.2 #
# #
# $Z $CA $xTV/XY_RT.2 \ #
# $Z | $GRE "^x=" \ #
# $Z | $SE -e "s/^x=//" \ #
# $Z > $xTV/VITESSES$COORD_X #
# $Z $CA $xTV/XY_RT.2 \ #
# $Z | $GRE "^y=" \ #
# $Z | $SE -e "s/^y=//" \ #
# $Z > $xTV/VITESSES$COORD_Y #
# #
# $Z Gen $xTV/VITESSES$COORD_Z 0.0 0.0 #
# #
# $Z Gen $xTV/mdRHO 0.0 0.0 #
# $Z Gen $xTV/MdRHO 0.0 0.0 #
# $Z Gen $xTV/mnPHI 0.0 0.0 #
# $Z Gen $xTV/MnPHI 0.0 0.0 #
# $Z Gen $xTV/dPHI 0.0 0.0 #
# $Z Gen $xTV/mnTHETA 0.0 0.0 #
# $Z Gen $xTV/MnTHETA 0.0 0.0 #
# $Z Gen $xTV/dTHETA 0.0 0.0 #
# $Z Gen $xTV/DISTANCE 1000000 1000000 #
# $Z Gen $xTV/STABILITE 1000000 1000000 #
# #
# $Z set RayonsT=0.014 #
# $Z set RayonsP=`$xcg/MUL2.01$X a=2 b=$RayonsT` #
# $Z set DistanceI=`$xcg/MUL2.01$X a=4 b=$RayonsP` #
# $Z Gen $xTV/RAYONS $RayonsT $RayonsT #
# $Z Gen $xTV/INTERACTIONS $RayonsP $RayonsP #
# #
# $Z $DELETE $xTV/COULEURS$TEINT #
# $Z $DELETE $xTV/COULEURS$LUMIN #
# $Z $DELETE $xTV/COULEURS$SATUR #
# $Z $DELETE $xTV/COULEURS$Y #
# $Z $DELETE $xTV/COULEURS #
# $Z $DELETE $xTV/COULEURS$ROUGE #
# $Z $DELETE $xTV/COULEURS$VERTE #
# $Z $DELETE $xTV/COULEURS$BLEUE #
# #
# $Z @ TeinteMagenta = $GRIS_7 #
# $Z @ TeinteCyan = $GRIS_4 + $GRIS_8 #
# #
# $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartN \ #
# $Z vD=$TeinteMagenta vA=$TeinteCyan \ #
# $Z cubique=FAUX \ #
# $Z entiers=VRAI \ #
# $Z > $xTV/COULEURS$TEINT #
# $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartN \ #
# $Z vD=$GRIS_4 vA=$GRIS_4 \ #
# $Z cubique=FAUX \ #
# $Z entiers=VRAI \ #
# $Z > $xTV/COULEURS$LUMIN #
# $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartN \ #
# $Z vD=$GRIS_8 vA=$GRIS_8 \ #
# $Z cubique=FAUX \ #
# $Z entiers=VRAI \ #
# $Z > $xTV/COULEURS$SATUR #
# #
# $Z $PAST \ #
# $Z $xTV/COULEURS$TEINT \ #
# $Z $xTV/COULEURS$LUMIN \ #
# $Z $xTV/COULEURS$SATUR \ #
# $Z | $R "$K_TAB" "$K_BLANC" \ #
# $Z | $AW ' { print "H=" $1 " L=" $2 " S=" $3 } ' \ #
# $Z | $SE -e 's+^+$xcg/RVB_HLS$X RVB_HLS=FAUX +' \ #
# $Z | $SE -e 's/$/ eR=VRAI eV=VRAI eB=VRAI/' \ #
# $Z | $SE -e 's/$/ eH=FAUX eL=FAUX eS=FAUX/' \ #
# $Z > $xTV/COULEURS$Y #
# #
# $Z (source $xTV/COULEURS$Y) \ #
# $Z > $xTV/COULEURS #
# #
# $Z $GRE "^R=" $xTV/COULEURS \ #
# $Z | $SE -e "s/^R=//" \ #
# $Z > $xTV/COULEURS$ROUGE #
# $Z $GRE "^V=" $xTV/COULEURS \ #
# $Z | $SE -e "s/^V=//" \ #
# $Z > $xTV/COULEURS$VERTE #
# $Z $GRE "^B=" $xTV/COULEURS \ #
# $Z | $SE -e "s/^B=//" \ #
# $Z > $xTV/COULEURS$BLEUE #
# #
# $Z Pal #
# #
# #
# $Z $xci/scale$X \ #
# $Z A=$xTV/BOITE.1 \ #
# $Z a=1.00 \ #
# $Z R=$xTV/BOITE.2 \ #
# $Z $formatI #
# #
# $Z $xrk/rdn_walk.41$X corps=$Npart \ #
# $Z np=$Nimages \ #
# $Z collisions=VRAI DLA=FAUX interaction=$DistanceI \ #
# $Z LISTE_X=$xTV/COORDONNEES$COORD_X \ #
# $Z LISTE_Y=$xTV/COORDONNEES$COORD_Y \ #
# $Z LISTE_Z=$xTV/COORDONNEES$COORD_Z \ #
# $Z LISTE_VX=$xTV/VITESSES$COORD_X \ #
# $Z LISTE_VY=$xTV/VITESSES$COORD_Y \ #
# $Z LISTE_VZ=$xTV/VITESSES$COORD_Z \ #
# $Z LISTE_MINIMUM_DELTA_RHO=$xTV/mdRHO \ #
# $Z LISTE_MAXIMUM_DELTA_RHO=$xTV/MdRHO \ #
# $Z LISTE_MINIMUM_N_PHI=$xTV/mnPHI \ #
# $Z LISTE_MAXIMUM_N_PHI=$xTV/MnPHI \ #
# $Z LISTE_DELTA_PHI=$xTV/dPHI \ #
# $Z LISTE_MINIMUM_N_THETA=$xTV/mnTHETA \ #
# $Z LISTE_MAXIMUM_N_THETA=$xTV/MnTHETA \ #
# $Z LISTE_DELTA_THETA=$xTV/dTHETA \ #
# $Z LISTE_DISTANCE_MAXIMALE=$xTV/DISTANCE \ #
# $Z LISTE_STABILITE=$xTV/STABILITE \ #
# $Z LISTE_RAYON=$xTV/RAYONS \ #
# $Z LISTE_RAYON_D_INTERACTION=$xTV/INTERACTIONS \ #
# $Z LISTE_ROUGE=$xTV/COULEURS$ROUGE \ #
# $Z LISTE_VERTE=$xTV/COULEURS$VERTE \ #
# $Z LISTE_BLEUE=$xTV/COULEURS$BLEUE \ #
# $Z milieu=VRAI \ #
# $Z reflexion=VRAI refraction=FAUX \ #
# $Z Mhors=$BLANC \ #
# $Z MNpasX=1 Mprolonger_X=VRAI \ #
# $Z MNpasY=1 Mprolonger_Y=VRAI \ #
# $Z MNpasZ=1 Mprolonger_Z=VRAI \ #
# $Z adapter_M_nPAS=VRAI \ #
# $Z Msimplifier=FAUX affiner_M_maillage=FAUX \ #
# $Z MC=$xTV/BOITE.2 \ #
# $Z MChiffres=0 \ #
# $Z Zmin=0 Zmax=15 \ #
# $Z centrer=VRAI \ #
# $Z dct=0.05 nombre=10 \ #
# $Z trainees=VRAI mode=1 \ #
# $Z attenuation_des_images=0.6 \ #
# $Z attenuation_des_trainees=1.00 \ #
# $Z renormaliser=FAUX \ #
# $Z Lz=100 \ #
# $Z zoom_automatique=VRAI \ #
# $Z centre_de_gravite=FAUX \ #
# $Z fond=FAUX \ #
# $Z R=$xiim/REFL.W. \ #
# $Z $formatI #
# #
# $Z $DELETE $xTV/RAYONS #
# $Z $CP $xTV/INTERACTIONS $xTV/RAYONS #
# #
# $Z $DELETE $xTV/GRAVITE #
# $Z $xrk/rdn_walk.41$X corps=$Npart \ #
# $Z np=$Nimages \ #
# $Z collisions=VRAI DLA=FAUX interaction=$DistanceI \ #
# $Z LISTE_X=$xTV/COORDONNEES$COORD_X \ #
# $Z LISTE_Y=$xTV/COORDONNEES$COORD_Y \ #
# $Z LISTE_Z=$xTV/COORDONNEES$COORD_Z \ #
# $Z LISTE_VX=$xTV/VITESSES$COORD_X \ #
# $Z LISTE_VY=$xTV/VITESSES$COORD_Y \ #
# $Z LISTE_VZ=$xTV/VITESSES$COORD_Z \ #
# $Z LISTE_MINIMUM_DELTA_RHO=$xTV/mdRHO \ #
# $Z LISTE_MAXIMUM_DELTA_RHO=$xTV/MdRHO \ #
# $Z LISTE_MINIMUM_N_PHI=$xTV/mnPHI \ #
# $Z LISTE_MAXIMUM_N_PHI=$xTV/MnPHI \ #
# $Z LISTE_DELTA_PHI=$xTV/dPHI \ #
# $Z LISTE_MINIMUM_N_THETA=$xTV/mnTHETA \ #
# $Z LISTE_MAXIMUM_N_THETA=$xTV/MnTHETA \ #
# $Z LISTE_DELTA_THETA=$xTV/dTHETA \ #
# $Z LISTE_DISTANCE_MAXIMALE=$xTV/DISTANCE \ #
# $Z LISTE_STABILITE=$xTV/STABILITE \ #
# $Z LISTE_RAYON=$xTV/RAYONS \ #
# $Z LISTE_RAYON_D_INTERACTION=$xTV/INTERACTIONS \ #
# $Z LISTE_ROUGE=$xTV/COULEURS$ROUGE \ #
# $Z LISTE_VERTE=$xTV/COULEURS$VERTE \ #
# $Z LISTE_BLEUE=$xTV/COULEURS$BLEUE \ #
# $Z milieu=VRAI \ #
# $Z reflexion=VRAI refraction=FAUX \ #
# $Z Mhors=$BLANC \ #
# $Z MNpasX=1 Mprolonger_X=VRAI \ #
# $Z MNpasY=1 Mprolonger_Y=VRAI \ #
# $Z MNpasZ=1 Mprolonger_Z=VRAI \ #
# $Z adapter_M_nPAS=VRAI \ #
# $Z Msimplifier=FAUX affiner_M_maillage=FAUX \ #
# $Z MC=$xTV/BOITE.2 \ #
# $Z MChiffres=0 \ #
# $Z Zmin=0 Zmax=15 \ #
# $Z centrer=VRAI \ #
# $Z dct=0.05 nombre=10 \ #
# $Z trainees=VRAI mode=1 \ #
# $Z attenuation_des_images=1.0 \ #
# $Z attenuation_des_trainees=0.80 \ #
# $Z renormaliser=FAUX \ #
# $Z Lz=100 \ #
# $Z zoom_automatique=VRAI \ #
# $Z centre_de_gravite=VRAI \ #
# $Z fond=VRAI \ #
# $Z dynamique=VRAI \ #
# $Z F=$xiim/REFL.W. \ #
# $Z R=$xiim/REFL.W. \ #
# $Z $formatI | \ #
# $Z $GRE " CENTRE_DE_GRAVITE=" \ #
# $Z > $xTV/GRAVITE #
# #
# $Z $DELETE $xTV/COORDONNEES #
# $Z $DELETE $xTV/COORDONNEES$COORD_X #
# $Z $DELETE $xTV/COORDONNEES$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_Z #
# $Z $DELETE $xTV/VITESSES #
# $Z $DELETE $xTV/VITESSES$COORD_X #
# $Z $DELETE $xTV/VITESSES$COORD_Y #
# $Z $DELETE $xTV/VITESSES$COORD_Z #
# $Z $DELETE $xTV/mdRHO #
# $Z $DELETE $xTV/MdRHO #
# $Z $DELETE $xTV/mnPHI #
# $Z $DELETE $xTV/MnPHI #
# $Z $DELETE $xTV/dPHI #
# $Z $DELETE $xTV/mnTHETA #
# $Z $DELETE $xTV/MnTHETA #
# $Z $DELETE $xTV/dTHETA #
# $Z $DELETE $xTV/DISTANCE #
# $Z $DELETE $xTV/STABILITE #
# $Z $DELETE $xTV/RAYONS #
# $Z $DELETE $xTV/INTERACTIONS #
# $Z $DELETE $xTV/COULEURS$TEINT #
# $Z $DELETE $xTV/COULEURS$LUMIN #
# $Z $DELETE $xTV/COULEURS$SATUR #
# $Z $DELETE $xTV/COULEURS$Y #
# $Z $DELETE $xTV/COULEURS #
# $Z $DELETE $xTV/COULEURS$ROUGE #
# $Z $DELETE $xTV/COULEURS$VERTE #
# $Z $DELETE $xTV/COULEURS$BLEUE #
# #
# $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("$DELETE $xTV/COORDONNEES\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_X\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_Y\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_Z\n"); #
# #
# $c printf("$DELETE $xTV/COULEURS$ROUGE\n"); #
# $c printf("$DELETE $xTV/COULEURS$VERTE\n"); #
# $c printf("$DELETE $xTV/COULEURS$BLEUE\n"); #
# #
# $c printf("listMN $xTV/GRAVITE #
# $c %d %d #
# $c > $xTV/COORDONNEES\n" #
# $c ,N0,n #
# $c ); #
# #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*[(,]XG=//%c #
# $c -e %cs/[,)].*//%c #
# $c > $xTV/COORDONNEES$COORD_X\n" #
# $c ,'"','"','"','"' #
# $c ); #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*[(,]YG=//%c #
# $c -e %cs/[,)].*//%c #
# $c > $xTV/COORDONNEES$COORD_Y\n" #
# $c ,'"','"','"','"' #
# $c ); #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*[(,]ZG=//%c #
# $c -e %cs/[,)].*//%c #
# $c > $xTV/COORDONNEES$COORD_Z\n" #
# $c ,'"','"','"','"' #
# $c ); #
# #
# $c printf("$xci/valeurs_inte$X #
# $c premiere=%d derniere=%d #
# $c vD=$GRIS_5 vA=$GRIS_5 #
# $c cubique=FAUX #
# $c entiers=VRAI #
# $c utiliser_la_valeur_de_depart=FAUX #
# $c > $xTV/COULEURS$ROUGE\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/valeurs_inte$X #
# $c premiere=%d derniere=%d #
# $c vD=$GRIS_5 vA=$GRIS_5 #
# $c cubique=FAUX #
# $c entiers=VRAI #
# $c utiliser_la_valeur_de_depart=FAUX #
# $c > $xTV/COULEURS$VERTE\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/valeurs_inte$X #
# $c premiere=%d derniere=%d #
# $c vD=$GRIS_5 vA=$GRIS_5 #
# $c cubique=FAUX #
# $c entiers=VRAI #
# $c utiliser_la_valeur_de_depart=FAUX #
# $c > $xTV/COULEURS$BLEUE\n" #
# $c ,N0,n #
# $c ); #
# #
# $c printf("$xrv/particule.10$X #
# $c np=1 #
# $c iterations=%d #
# $c LISTE_X=$xTV/COORDONNEES$COORD_X #
# $c LISTE_Y=$xTV/COORDONNEES$COORD_Y #
# $c LISTE_Z=$xTV/COORDONNEES$COORD_Z #
# $c LISTE_ROUGE=$xTV/COULEURS$ROUGE #
# $c LISTE_VERTE=$xTV/COULEURS$VERTE #
# $c LISTE_BLEUE=$xTV/COULEURS$BLEUE #
# $c LISTE_RAYON=0.006 #
# $c zoom_automatique=FAUX ZOOM=1.0 #
# $c coordonnees_dans_0_1=FAUX #
# $c AXYZ=1 BXYZ=0 #
# $c fond=VRAI #
# $c fond_dynamique=FAUX #
# $c F=$xiim/REFL.W.%04d #
# $c R=$xTV/REFL.A. #
# $c $formatI\n" #
# $c ,(n-N0)+1,n #
# $c ); #
# #
# $c printf("$xci/acces$X #
# $c A=$xTV/REFL.A.%04d$ROUGE #
# $c R=$xiim/REFL.W.%04d$ROUGE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xTV/REFL.A.%04d$VERTE #
# $c R=$xiim/REFL.W.%04d$VERTE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xTV/REFL.A.%04d$BLEUE #
# $c R=$xiim/REFL.W.%04d$BLEUE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# #
# $c printf("$DELETE $xTV/COORDONNEES\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_X\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_Y\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_Z\n"); #
# #
# $c printf("$DELETE $xTV/COULEURS$ROUGE\n"); #
# $c printf("$DELETE $xTV/COULEURS$VERTE\n"); #
# $c printf("$DELETE $xTV/COULEURS$BLEUE\n"); #
# #
# $c printf("listMN $xTV/GRAVITE #
# $c %d %d #
# $c > $xTV/COORDONNEES\n" #
# $c ,n,n #
# $c ); #
# #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*[(,]XG=//%c #
# $c -e %cs/[,)].*//%c #
# $c > $xTV/COORDONNEES$COORD_X\n" #
# $c ,'"','"','"','"' #
# $c ); #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*[(,]YG=//%c #
# $c -e %cs/[,)].*//%c #
# $c > $xTV/COORDONNEES$COORD_Y\n" #
# $c ,'"','"','"','"' #
# $c ); #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*[(,]ZG=//%c #
# $c -e %cs/[,)].*//%c #
# $c > $xTV/COORDONNEES$COORD_Z\n" #
# $c ,'"','"','"','"' #
# $c ); #
# #
# $c printf("$xci/valeurs_inte$X #
# $c premiere=%d derniere=%d #
# $c vD=$GRIS_8 vA=$GRIS_8 #
# $c cubique=FAUX #
# $c entiers=VRAI #
# $c utiliser_la_valeur_de_depart=FAUX #
# $c > $xTV/COULEURS$ROUGE\n" #
# $c ,n,n #
# $c ); #
# $c printf("$xci/valeurs_inte$X #
# $c premiere=%d derniere=%d #
# $c vD=$GRIS_8 vA=$GRIS_8 #
# $c cubique=FAUX #
# $c entiers=VRAI #
# $c utiliser_la_valeur_de_depart=FAUX #
# $c > $xTV/COULEURS$VERTE\n" #
# $c ,n,n #
# $c ); #
# $c printf("$xci/valeurs_inte$X #
# $c premiere=%d derniere=%d #
# $c vD=$GRIS_8 vA=$GRIS_8 #
# $c cubique=FAUX #
# $c entiers=VRAI #
# $c utiliser_la_valeur_de_depart=FAUX #
# $c > $xTV/COULEURS$BLEUE\n" #
# $c ,n,n #
# $c ); #
# #
# $c printf("$xrv/particule.10$X #
# $c np=1 #
# $c iterations=%d #
# $c LISTE_X=$xTV/COORDONNEES$COORD_X #
# $c LISTE_Y=$xTV/COORDONNEES$COORD_Y #
# $c LISTE_Z=$xTV/COORDONNEES$COORD_Z #
# $c LISTE_ROUGE=$xTV/COULEURS$ROUGE #
# $c LISTE_VERTE=$xTV/COULEURS$VERTE #
# $c LISTE_BLEUE=$xTV/COULEURS$BLEUE #
# $c LISTE_RAYON=0.012 #
# $c zoom_automatique=FAUX ZOOM=1.0 #
# $c coordonnees_dans_0_1=FAUX #
# $c AXYZ=1 BXYZ=0 #
# $c fond=VRAI #
# $c fond_dynamique=FAUX #
# $c F=$xiim/REFL.W.%04d #
# $c R=$xTV/REFL.B. #
# $c $formatI\n" #
# $c ,(n-n)+1,n #
# $c ); #
# #
# $c printf("$xci/acces$X #
# $c A=$xTV/REFL.B.%04d$ROUGE #
# $c R=$xiim/REFL.W.%04d$ROUGE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xTV/REFL.B.%04d$VERTE #
# $c R=$xiim/REFL.W.%04d$VERTE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xTV/REFL.B.%04d$BLEUE #
# $c R=$xiim/REFL.W.%04d$BLEUE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# $c } #
# $c } #
# #
# #
# $Z $DELETE $xTV/COORDONNEES #
# $Z $DELETE $xTV/COORDONNEES$COORD_X #
# $Z $DELETE $xTV/COORDONNEES$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_Z #
# $Z $DELETE $xTV/COULEURS$ROUGE #
# $Z $DELETE $xTV/COULEURS$VERTE #
# $Z $DELETE $xTV/COULEURS$BLEUE #
# #
# #
# #
# $Z $xci/complement$X A=$xTV/BOITE.1 \ #
# $Z R=$xTV/BOITE.3 \ #
# $Z $formatI #
# #
# $Z eval `$xci/genere$X \\\ #
# $Z commande='($xci/scale$X \\\ #
# $Z A=$xTV/BOITE.3 \\\ #
# $Z a=0.50 \\\ #
# $Z R=$xTV/BOITE.3%s \\\ #
# $Z $formatI)' \\\ #
# $Z en_tete=FAUX RVB=VRAI separateur=VRAI` #
# #
# #
# $X $xci/genere$X premiere=$Premiere derniere=$Derniere pas=1 \ #
# $X C='$xci/cache.11$Z \ #
# $X $xiim/REFL.W.%04d \ #
# $X $xTV/BOITE.3 \ #
# $X $xiim/REFL.O.%04d' #
# #
# $Z $DELETE $xTV/BOITE.1 #
# $Z $DELETE $xTV/BOITE.2 #
# $Z $DELETE $xTV/BOITE.3 #
# $Z $DELETE $xTV/BOITE.3$ROUGE #
# $Z $DELETE $xTV/BOITE.3$VERTE #
# $Z $DELETE $xTV/BOITE.3$BLEUE #
# #
# $Z Pal #
# #
# $Z $xci/reduction_16$Z $xiim/REFL.O. $xiak/REFL.M2 $Premiere $Derniere #
# $Z $xci/reduction_64$Z $xiim/REFL.O. $xiak/REFL.M2 $Premiere $Derniere #
# #
# $X $xci/genere$X c='ro $xiak/REFL.M2$R16%s' RVB=VRAI #
# $X $xci/genere$X c='ro $xiak/REFL.M2$R64%s' RVB=VRAI #
# #
# $X $xci/genere$X c='$xcg/unite$Z $xiak/REFL.M2$R16%s' RVB=VRAI #
# $X $xci/genere$X c='$xcg/unite$Z $xiak/REFL.M2$R64%s' RVB=VRAI #
# #
# $X $xci/genere$X c='$CP $xiim/REFL.O.0512%s $xiirk/REFL.M2.0512%s' RVB=VRAI #
# #
# $X $xci/genere$X c='ro $xiirk/REFL.M2.0512%s' RVB=VRAI #
# #
# $X $xci/genere$X c='$xcg/unite$Z $xiirk/REFL.M2.0512%s' RVB=VRAI #
# #
# #
# Pal #
# #
# #
# $xci/disk_video_P$Z $xiim_LACT29/REFL.O. 001 512 RVB \ #
# 11 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
# #
# xivPdf 3 2 #
# #
# record.01$Z $xiak/REFL.M2$R16 RVB Initialisation #
# record.01$Z $xiak/REFL.M2$R64 RVB rien #
# record.01$Z $xiirk/REFL.M2.0512 RVB rien #
# #
# #
# ATTENTION, cette sequence est la nouvelle version de la sequence : #
# #
# xivPdf 11 2 / 005633_006144 #
# #
# qui utilise les memes choix initiaux que pour la sequence : #
# #
# xivPdf 11 2 / 008705_009216 #
# #
# en ce qui concerne la couleur des particules... #
sequence 020146_020657
# Generee (sur '$LACT29') par : #
# #
# $Z SET Premiere=1 #
# $Z SET Derniere=512 #
# $Z @ Nimages = $Derniere - $Premiere #
# $Z @ Nimages = $Nimages + 1 #
# #
# #
# $Z Pal #
# #
# $Z set PUnivers="np=0 CAL1=FAUX editer_l_univers_physique=VRAI" #
# $Z set Univers=`$xrk/rdn_walk.41$X $PUnivers $formatI` #
# #
# $Z set MinX=`echo $Univers | $SE -e "s/^.*[(,]XUI=//" -e "s/[,)].*//"` #
# $Z set MaxX=`echo $Univers | $SE -e "s/^.*[(,]XUS=//" -e "s/[,)].*//"` #
# $Z set MinY=`echo $Univers | $SE -e "s/^.*[(,]YUI=//" -e "s/[,)].*//"` #
# $Z set MaxY=`echo $Univers | $SE -e "s/^.*[(,]YUS=//" -e "s/[,)].*//"` #
# #
# $Z set MinX=`$xcg/ABSO.01$X x=$MinX` #
# $Z set MaxX=`$xcg/ABSO.01$X x=$MaxX` #
# $Z set MinY=`$xcg/ABSO.01$X x=$MinY` #
# $Z set MaxY=`$xcg/ABSO.01$X x=$MaxY` #
# #
# $Z set MaxX=`$xcg/MAX2.01$X n1=$MinX n2=$MaxX` #
# $Z set MaxY=`$xcg/MAX2.01$X n1=$MinY n2=$MaxY` #
# #
# $Z set SeuilPartN=0.000126 #
# $Z set GrainePartN=2 #
# #
# $Z $DELETE $xTV/BOITE.1 #
# $Z $DELETE $xTV/BOITE.2 #
# $Z $DELETE $xTV/BOITE.3 #
# $Z $DELETE $xTV/BOITE.3$ROUGE #
# $Z $DELETE $xTV/BOITE.3$VERTE #
# $Z $DELETE $xTV/BOITE.3$BLEUE #
# $Z $DELETE $xTV/BOITE.6 #
# $Z $DELETE $xTV/BOITE.A #
# $Z $DELETE $xTV/BOITE.B #
# #
# #
# $Z Std #
# #
# $Z set FacXY=0.85 #
# $Z set SeuilBOITE=`$xcg/SOUS.01$X a=1 b=$FacXY` #
# $Z set SeuilBOITE=`$xcg/MUL2.01$X a=$SeuilBOITE b=$GRIS_8` #
# $Z set SeuilBOITE=`$xci/valeurs_inte$X p=1 d=1 vD=$SeuilBOITE entiers=VRAI` #
# $Z set SeuilBOITE=`$xcg/MIN2.01$X a=$SeuilBOITE b=$GRIS_1` #
# #
# $Z $xci/complement$X \ #
# $Z A=$xiio/SPIRALE \ #
# $Z $formatI | \ #
# $Z $xci/seuil$X \ #
# $Z seuil=$SeuilBOITE \ #
# $Z R=$xTV/BOITE.6 \ #
# $Z $formatI #
# #
# $Z S #
# #
# $Z $xci/format.01$X mode=0 \ #
# $Z A=$xTV/BOITE.6 \ #
# $Z $formatI \ #
# $Z R=$xTV/BOITE.1 \ #
# $Z $formatR_Pal #
# #
# $Z $xci/dilate.01$X \ #
# $Z A=$xTV/BOITE.6 \ #
# $Z points=225 \ #
# $Z dilater=FAUX \ #
# $Z R=$xTV/BOITE.A \ #
# $Z $formatI #
# #
# $Z $xci/random.02$X \ #
# $Z seuil=$SeuilPartN \ #
# $Z graine=$GrainePartN \ #
# $Z $formatI | \ #
# $Z $xci/and$X \ #
# $Z A2=$xTV/BOITE.A \ #
# $Z R=$xTV/BOITE.B \ #
# $Z $formatI #
# #
# $Z $DELETE $xTV/COORDONNEES #
# $Z $DELETE $xTV/COORDONNEES_01$COORD_X #
# $Z $DELETE $xTV/COORDONNEES_01$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_X #
# $Z $DELETE $xTV/COORDONNEES$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_Z #
# #
# $Z $xci/liste_points$X \ #
# $Z A=$xTV/BOITE.B \ #
# $Z $formatI \ #
# $Z > $xTV/COORDONNEES #
# #
# $Z $DELETE $xTV/BOITE.6 #
# $Z $DELETE $xTV/BOITE.A #
# $Z $DELETE $xTV/BOITE.B #
# #
# $Z set PartN=`$TAI -1 $xTV/COORDONNEES | $SE -e "s/^.*=//"` #
# #
# $Z $CA $xTV/COORDONNEES \ #
# $Z | $GRE "^[Xx]=" \ #
# $Z | $SE -e "s/^[Xx]=//" \ #
# $Z > $xTV/COORDONNEES_01$COORD_X #
# $Z $CA $xTV/COORDONNEES \ #
# $Z | $GRE "^[Yy]=" \ #
# $Z | $SE -e "s/^[Yy]=//" \ #
# $Z > $xTV/COORDONNEES_01$COORD_Y #
# #
# $Z set EchelleX=`$xcg/MUL2.01$X n1=2 n2=$MaxX` #
# $Z set TranslationX=`$xcg/MUL2.01$X n1=-1 n2=$MaxX` #
# $Z set EchelleY=`$xcg/MUL2.01$X n1=2 n2=$MaxY` #
# $Z set TranslationY=`$xcg/MUL2.01$X n1=-1 n2=$MaxY` #
# #
# $Z $xrv/AXPB.01$X \ #
# $Z CAL1=FAUX \ #
# $Z ne=$PartN \ #
# $Z fichier=$xTV/COORDONNEES_01$COORD_X \ #
# $Z homothetie=$EchelleX translation=$TranslationX \ #
# $Z > $xTV/COORDONNEES$COORD_X #
# $Z $xrv/AXPB.01$X \ #
# $Z CAL1=FAUX \ #
# $Z ne=$PartN \ #
# $Z fichier=$xTV/COORDONNEES_01$COORD_Y \ #
# $Z homothetie=$EchelleY translation=$TranslationY \ #
# $Z > $xTV/COORDONNEES$COORD_Y #
# #
# $Z $DELETE $xTV/COORDONNEES_01$COORD_X #
# $Z $DELETE $xTV/COORDONNEES_01$COORD_Y #
# #
# $Z set Part0=1 #
# $Z @ Npart = $PartN - $Part0 #
# $Z @ Npart = $Npart + 1 #
# #
# $Z $DELETE $xTV/MODULE #
# $Z $DELETE $xTV/THETA #
# $Z $DELETE $xTV/XY_RT.1 #
# $Z $DELETE $xTV/XY_RT.2 #
# $Z $DELETE $xTV/VITESSES #
# $Z $DELETE $xTV/VITESSES$COORD_X #
# $Z $DELETE $xTV/VITESSES$COORD_Y #
# $Z $DELETE $xTV/VITESSES$COORD_Z #
# $Z $DELETE $xTV/mdRHO #
# $Z $DELETE $xTV/MdRHO #
# $Z $DELETE $xTV/mnPHI #
# $Z $DELETE $xTV/MnPHI #
# $Z $DELETE $xTV/dPHI #
# $Z $DELETE $xTV/mnTHETA #
# $Z $DELETE $xTV/MnTHETA #
# $Z $DELETE $xTV/dTHETA #
# $Z $DELETE $xTV/supOUVE #
# $Z $DELETE $xTV/DISTANCE #
# $Z $DELETE $xTV/STABILITE #
# $Z $DELETE $xTV/RAYONS #
# $Z $DELETE $xTV/INTERACTIONS #
# #
# #
# $Z alias Gen 'set Fi=\!:1 ; set vD=\!:2 ; set vA=\!:3 ; set ArG=(\!:4*) ; \\ #
# $Z $DELETE $Fi ; \\ #
# $Z $xci/valeurs_inte$X p=$Part0 d=$PartN vD=$vD vA=$vA $ArG > $Fi ; \\ #
# $Z unset Fi vD vA ArG' #
# #
# $Z alias GenR 'set Fi=\!:1 ; set In=\!:2 ; set Su=\!:3 ; set ArG=(\!:4*) ; \\ #
# $Z $DELETE $Fi ; \\ #
# $Z $xci/valeurs_alea$X p=$Part0 d=$PartN signe="$KV" inf=$In sup=$Su $ArG > $Fi ; \\ #
# $Z unset Fi In Su ArG' #
# #
# $Z Gen $xTV/COORDONNEES$COORD_Z 0.0 0.0 #
# #
# #
# $Z Gen $xTV/MODULE 0.02 0.02 #
# $Z GenR $xTV/THETA 0.0 $dpi g=3333 #
# #
# $Z $CA $xcs/csh$Y \ #
# $Z > $xTV/XY_RT.1 #
# $Z $PAST $xTV/MODULE $xTV/THETA \ #
# $Z | $R "$K_TAB" "$K_BLANC" \ #
# $Z | $AW ' { print "$xcg/XY_RT$X r=" $1 " t=" $2 " cartesien=FAUX" } ' \ #
# $Z >>! $xTV/XY_RT.1 #
# #
# $Z (source $xTV/XY_RT.1) \ #
# $Z > $xTV/XY_RT.2 #
# #
# $Z $CA $xTV/XY_RT.2 \ #
# $Z | $GRE "^x=" \ #
# $Z | $SE -e "s/^x=//" \ #
# $Z > $xTV/VITESSES$COORD_X #
# $Z $CA $xTV/XY_RT.2 \ #
# $Z | $GRE "^y=" \ #
# $Z | $SE -e "s/^y=//" \ #
# $Z > $xTV/VITESSES$COORD_Y #
# #
# $Z Gen $xTV/VITESSES$COORD_Z 0.0 0.0 #
# #
# $Z Gen $xTV/mdRHO 0.0 0.0 #
# $Z Gen $xTV/MdRHO 0.0 0.0 #
# $Z Gen $xTV/mnPHI 0.0 0.0 #
# $Z Gen $xTV/MnPHI 0.0 0.0 #
# $Z Gen $xTV/dPHI 0.0 0.0 #
# $Z Gen $xTV/mnTHETA 0.0 0.0 #
# $Z Gen $xTV/MnTHETA 0.0 0.0 #
# $Z Gen $xTV/dTHETA 0.0 0.0 #
# $Z Gen $xTV/DISTANCE 1000000 1000000 #
# $Z Gen $xTV/STABILITE 1000000 1000000 #
# #
# $Z set RayonsT=0.014 #
# $Z set RayonsP=`$xcg/MUL2.01$X a=2 b=$RayonsT` #
# $Z set DistanceI=`$xcg/MUL2.01$X a=4 b=$RayonsP` #
# $Z Gen $xTV/RAYONS $RayonsT $RayonsT #
# $Z Gen $xTV/INTERACTIONS $RayonsP $RayonsP #
# #
# $Z $DELETE $xTV/COULEURS$TEINT #
# $Z $DELETE $xTV/COULEURS$LUMIN #
# $Z $DELETE $xTV/COULEURS$SATUR #
# $Z $DELETE $xTV/COULEURS$Y #
# $Z $DELETE $xTV/COULEURS #
# $Z $DELETE $xTV/COULEURS$ROUGE #
# $Z $DELETE $xTV/COULEURS$VERTE #
# $Z $DELETE $xTV/COULEURS$BLEUE #
# #
# $Z @ TeinteMagenta = $GRIS_7 #
# $Z @ TeinteCyan = $GRIS_4 + $GRIS_8 #
# #
# $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartN \ #
# $Z vD=$TeinteMagenta vA=$TeinteCyan \ #
# $Z cubique=FAUX \ #
# $Z entiers=VRAI \ #
# $Z > $xTV/COULEURS$TEINT #
# $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartN \ #
# $Z vD=$GRIS_4 vA=$GRIS_4 \ #
# $Z cubique=FAUX \ #
# $Z entiers=VRAI \ #
# $Z > $xTV/COULEURS$LUMIN #
# $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartN \ #
# $Z vD=$GRIS_8 vA=$GRIS_8 \ #
# $Z cubique=FAUX \ #
# $Z entiers=VRAI \ #
# $Z > $xTV/COULEURS$SATUR #
# #
# $Z $PAST \ #
# $Z $xTV/COULEURS$TEINT \ #
# $Z $xTV/COULEURS$LUMIN \ #
# $Z $xTV/COULEURS$SATUR \ #
# $Z | $R "$K_TAB" "$K_BLANC" \ #
# $Z | $AW ' { print "H=" $1 " L=" $2 " S=" $3 } ' \ #
# $Z | $SE -e 's+^+$xcg/RVB_HLS$X RVB_HLS=FAUX +' \ #
# $Z | $SE -e 's/$/ eR=VRAI eV=VRAI eB=VRAI/' \ #
# $Z | $SE -e 's/$/ eH=FAUX eL=FAUX eS=FAUX/' \ #
# $Z > $xTV/COULEURS$Y #
# #
# $Z (source $xTV/COULEURS$Y) \ #
# $Z > $xTV/COULEURS #
# #
# $Z $GRE "^R=" $xTV/COULEURS \ #
# $Z | $SE -e "s/^R=//" \ #
# $Z > $xTV/COULEURS$ROUGE #
# $Z $GRE "^V=" $xTV/COULEURS \ #
# $Z | $SE -e "s/^V=//" \ #
# $Z > $xTV/COULEURS$VERTE #
# $Z $GRE "^B=" $xTV/COULEURS \ #
# $Z | $SE -e "s/^B=//" \ #
# $Z > $xTV/COULEURS$BLEUE #
# #
# $Z Pal #
# #
# #
# $Z $xci/scale$X \ #
# $Z A=$xTV/BOITE.1 \ #
# $Z a=1.00 \ #
# $Z R=$xTV/BOITE.2 \ #
# $Z $formatI #
# #
# $Z $xrk/rdn_walk.41$X corps=$Npart \ #
# $Z np=$Nimages \ #
# $Z collisions=VRAI DLA=FAUX interaction=$DistanceI \ #
# $Z LISTE_X=$xTV/COORDONNEES$COORD_X \ #
# $Z LISTE_Y=$xTV/COORDONNEES$COORD_Y \ #
# $Z LISTE_Z=$xTV/COORDONNEES$COORD_Z \ #
# $Z LISTE_VX=$xTV/VITESSES$COORD_X \ #
# $Z LISTE_VY=$xTV/VITESSES$COORD_Y \ #
# $Z LISTE_VZ=$xTV/VITESSES$COORD_Z \ #
# $Z LISTE_MINIMUM_DELTA_RHO=$xTV/mdRHO \ #
# $Z LISTE_MAXIMUM_DELTA_RHO=$xTV/MdRHO \ #
# $Z LISTE_MINIMUM_N_PHI=$xTV/mnPHI \ #
# $Z LISTE_MAXIMUM_N_PHI=$xTV/MnPHI \ #
# $Z LISTE_DELTA_PHI=$xTV/dPHI \ #
# $Z LISTE_MINIMUM_N_THETA=$xTV/mnTHETA \ #
# $Z LISTE_MAXIMUM_N_THETA=$xTV/MnTHETA \ #
# $Z LISTE_DELTA_THETA=$xTV/dTHETA \ #
# $Z LISTE_DISTANCE_MAXIMALE=$xTV/DISTANCE \ #
# $Z LISTE_STABILITE=$xTV/STABILITE \ #
# $Z LISTE_RAYON=$xTV/RAYONS \ #
# $Z LISTE_RAYON_D_INTERACTION=$xTV/INTERACTIONS \ #
# $Z LISTE_ROUGE=$xTV/COULEURS$ROUGE \ #
# $Z LISTE_VERTE=$xTV/COULEURS$VERTE \ #
# $Z LISTE_BLEUE=$xTV/COULEURS$BLEUE \ #
# $Z milieu=VRAI \ #
# $Z reflexion=VRAI refraction=FAUX \ #
# $Z Mhors=$BLANC \ #
# $Z MNpasX=1 Mprolonger_X=VRAI \ #
# $Z MNpasY=1 Mprolonger_Y=VRAI \ #
# $Z MNpasZ=1 Mprolonger_Z=VRAI \ #
# $Z adapter_M_nPAS=VRAI \ #
# $Z Msimplifier=FAUX affiner_M_maillage=FAUX \ #
# $Z MC=$xTV/BOITE.2 \ #
# $Z MChiffres=0 \ #
# $Z Zmin=0 Zmax=15 \ #
# $Z centrer=VRAI \ #
# $Z dct=0.05 nombre=10 \ #
# $Z trainees=VRAI mode=1 \ #
# $Z attenuation_des_images=0.6 \ #
# $Z attenuation_des_trainees=1.00 \ #
# $Z renormaliser=FAUX \ #
# $Z Lz=100 \ #
# $Z zoom_automatique=VRAI \ #
# $Z centre_de_gravite=FAUX \ #
# $Z fond=FAUX \ #
# $Z R=$xiim/REFL.W. \ #
# $Z $formatI #
# #
# $Z $DELETE $xTV/RAYONS #
# $Z $CP $xTV/INTERACTIONS $xTV/RAYONS #
# #
# $Z $DELETE $xTV/GRAVITE #
# $Z $xrk/rdn_walk.41$X corps=$Npart \ #
# $Z np=$Nimages \ #
# $Z collisions=VRAI DLA=FAUX interaction=$DistanceI \ #
# $Z LISTE_X=$xTV/COORDONNEES$COORD_X \ #
# $Z LISTE_Y=$xTV/COORDONNEES$COORD_Y \ #
# $Z LISTE_Z=$xTV/COORDONNEES$COORD_Z \ #
# $Z LISTE_VX=$xTV/VITESSES$COORD_X \ #
# $Z LISTE_VY=$xTV/VITESSES$COORD_Y \ #
# $Z LISTE_VZ=$xTV/VITESSES$COORD_Z \ #
# $Z LISTE_MINIMUM_DELTA_RHO=$xTV/mdRHO \ #
# $Z LISTE_MAXIMUM_DELTA_RHO=$xTV/MdRHO \ #
# $Z LISTE_MINIMUM_N_PHI=$xTV/mnPHI \ #
# $Z LISTE_MAXIMUM_N_PHI=$xTV/MnPHI \ #
# $Z LISTE_DELTA_PHI=$xTV/dPHI \ #
# $Z LISTE_MINIMUM_N_THETA=$xTV/mnTHETA \ #
# $Z LISTE_MAXIMUM_N_THETA=$xTV/MnTHETA \ #
# $Z LISTE_DELTA_THETA=$xTV/dTHETA \ #
# $Z LISTE_DISTANCE_MAXIMALE=$xTV/DISTANCE \ #
# $Z LISTE_STABILITE=$xTV/STABILITE \ #
# $Z LISTE_RAYON=$xTV/RAYONS \ #
# $Z LISTE_RAYON_D_INTERACTION=$xTV/INTERACTIONS \ #
# $Z LISTE_ROUGE=$xTV/COULEURS$ROUGE \ #
# $Z LISTE_VERTE=$xTV/COULEURS$VERTE \ #
# $Z LISTE_BLEUE=$xTV/COULEURS$BLEUE \ #
# $Z milieu=VRAI \ #
# $Z reflexion=VRAI refraction=FAUX \ #
# $Z Mhors=$BLANC \ #
# $Z MNpasX=1 Mprolonger_X=VRAI \ #
# $Z MNpasY=1 Mprolonger_Y=VRAI \ #
# $Z MNpasZ=1 Mprolonger_Z=VRAI \ #
# $Z adapter_M_nPAS=VRAI \ #
# $Z Msimplifier=FAUX affiner_M_maillage=FAUX \ #
# $Z MC=$xTV/BOITE.2 \ #
# $Z MChiffres=0 \ #
# $Z Zmin=0 Zmax=15 \ #
# $Z centrer=VRAI \ #
# $Z dct=0.05 nombre=10 \ #
# $Z trainees=VRAI mode=1 \ #
# $Z attenuation_des_images=1.0 \ #
# $Z attenuation_des_trainees=0.80 \ #
# $Z renormaliser=FAUX \ #
# $Z Lz=100 \ #
# $Z zoom_automatique=VRAI \ #
# $Z centre_de_gravite=VRAI \ #
# $Z fond=VRAI \ #
# $Z dynamique=VRAI \ #
# $Z F=$xiim/REFL.W. \ #
# $Z R=$xiim/REFL.W. \ #
# $Z $formatI | \ #
# $Z $GRE " CENTRE_DE_GRAVITE=" \ #
# $Z > $xTV/GRAVITE #
# #
# $Z $DELETE $xTV/COORDONNEES #
# $Z $DELETE $xTV/COORDONNEES$COORD_X #
# $Z $DELETE $xTV/COORDONNEES$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_Z #
# $Z $DELETE $xTV/VITESSES #
# $Z $DELETE $xTV/VITESSES$COORD_X #
# $Z $DELETE $xTV/VITESSES$COORD_Y #
# $Z $DELETE $xTV/VITESSES$COORD_Z #
# $Z $DELETE $xTV/mdRHO #
# $Z $DELETE $xTV/MdRHO #
# $Z $DELETE $xTV/mnPHI #
# $Z $DELETE $xTV/MnPHI #
# $Z $DELETE $xTV/dPHI #
# $Z $DELETE $xTV/mnTHETA #
# $Z $DELETE $xTV/MnTHETA #
# $Z $DELETE $xTV/dTHETA #
# $Z $DELETE $xTV/DISTANCE #
# $Z $DELETE $xTV/STABILITE #
# $Z $DELETE $xTV/RAYONS #
# $Z $DELETE $xTV/INTERACTIONS #
# $Z $DELETE $xTV/COULEURS$TEINT #
# $Z $DELETE $xTV/COULEURS$LUMIN #
# $Z $DELETE $xTV/COULEURS$SATUR #
# $Z $DELETE $xTV/COULEURS$Y #
# $Z $DELETE $xTV/COULEURS #
# $Z $DELETE $xTV/COULEURS$ROUGE #
# $Z $DELETE $xTV/COULEURS$VERTE #
# $Z $DELETE $xTV/COULEURS$BLEUE #
# #
# $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("$DELETE $xTV/COORDONNEES\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_X\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_Y\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_Z\n"); #
# #
# $c printf("$DELETE $xTV/COULEURS$ROUGE\n"); #
# $c printf("$DELETE $xTV/COULEURS$VERTE\n"); #
# $c printf("$DELETE $xTV/COULEURS$BLEUE\n"); #
# #
# $c printf("listMN $xTV/GRAVITE #
# $c %d %d #
# $c > $xTV/COORDONNEES\n" #
# $c ,N0,n #
# $c ); #
# #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*[(,]XG=//%c #
# $c -e %cs/[,)].*//%c #
# $c > $xTV/COORDONNEES$COORD_X\n" #
# $c ,'"','"','"','"' #
# $c ); #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*[(,]YG=//%c #
# $c -e %cs/[,)].*//%c #
# $c > $xTV/COORDONNEES$COORD_Y\n" #
# $c ,'"','"','"','"' #
# $c ); #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*[(,]ZG=//%c #
# $c -e %cs/[,)].*//%c #
# $c > $xTV/COORDONNEES$COORD_Z\n" #
# $c ,'"','"','"','"' #
# $c ); #
# #
# $c printf("$xci/valeurs_inte$X #
# $c premiere=%d derniere=%d #
# $c vD=$GRIS_5 vA=$GRIS_5 #
# $c cubique=FAUX #
# $c entiers=VRAI #
# $c utiliser_la_valeur_de_depart=FAUX #
# $c > $xTV/COULEURS$ROUGE\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/valeurs_inte$X #
# $c premiere=%d derniere=%d #
# $c vD=$GRIS_5 vA=$GRIS_5 #
# $c cubique=FAUX #
# $c entiers=VRAI #
# $c utiliser_la_valeur_de_depart=FAUX #
# $c > $xTV/COULEURS$VERTE\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/valeurs_inte$X #
# $c premiere=%d derniere=%d #
# $c vD=$GRIS_5 vA=$GRIS_5 #
# $c cubique=FAUX #
# $c entiers=VRAI #
# $c utiliser_la_valeur_de_depart=FAUX #
# $c > $xTV/COULEURS$BLEUE\n" #
# $c ,N0,n #
# $c ); #
# #
# $c printf("$xrv/particule.10$X #
# $c np=1 #
# $c iterations=%d #
# $c LISTE_X=$xTV/COORDONNEES$COORD_X #
# $c LISTE_Y=$xTV/COORDONNEES$COORD_Y #
# $c LISTE_Z=$xTV/COORDONNEES$COORD_Z #
# $c LISTE_ROUGE=$xTV/COULEURS$ROUGE #
# $c LISTE_VERTE=$xTV/COULEURS$VERTE #
# $c LISTE_BLEUE=$xTV/COULEURS$BLEUE #
# $c LISTE_RAYON=0.006 #
# $c zoom_automatique=FAUX ZOOM=1.0 #
# $c coordonnees_dans_0_1=FAUX #
# $c AXYZ=1 BXYZ=0 #
# $c fond=VRAI #
# $c fond_dynamique=FAUX #
# $c F=$xiim/REFL.W.%04d #
# $c R=$xTV/REFL.A. #
# $c $formatI\n" #
# $c ,(n-N0)+1,n #
# $c ); #
# #
# $c printf("$xci/acces$X #
# $c A=$xTV/REFL.A.%04d$ROUGE #
# $c R=$xiim/REFL.W.%04d$ROUGE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xTV/REFL.A.%04d$VERTE #
# $c R=$xiim/REFL.W.%04d$VERTE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xTV/REFL.A.%04d$BLEUE #
# $c R=$xiim/REFL.W.%04d$BLEUE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# #
# $c printf("$DELETE $xTV/COORDONNEES\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_X\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_Y\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_Z\n"); #
# #
# $c printf("$DELETE $xTV/COULEURS$ROUGE\n"); #
# $c printf("$DELETE $xTV/COULEURS$VERTE\n"); #
# $c printf("$DELETE $xTV/COULEURS$BLEUE\n"); #
# #
# $c printf("listMN $xTV/GRAVITE #
# $c %d %d #
# $c > $xTV/COORDONNEES\n" #
# $c ,n,n #
# $c ); #
# #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*[(,]XG=//%c #
# $c -e %cs/[,)].*//%c #
# $c > $xTV/COORDONNEES$COORD_X\n" #
# $c ,'"','"','"','"' #
# $c ); #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*[(,]YG=//%c #
# $c -e %cs/[,)].*//%c #
# $c > $xTV/COORDONNEES$COORD_Y\n" #
# $c ,'"','"','"','"' #
# $c ); #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*[(,]ZG=//%c #
# $c -e %cs/[,)].*//%c #
# $c > $xTV/COORDONNEES$COORD_Z\n" #
# $c ,'"','"','"','"' #
# $c ); #
# #
# $c printf("$xci/valeurs_inte$X #
# $c premiere=%d derniere=%d #
# $c vD=$GRIS_8 vA=$GRIS_8 #
# $c cubique=FAUX #
# $c entiers=VRAI #
# $c utiliser_la_valeur_de_depart=FAUX #
# $c > $xTV/COULEURS$ROUGE\n" #
# $c ,n,n #
# $c ); #
# $c printf("$xci/valeurs_inte$X #
# $c premiere=%d derniere=%d #
# $c vD=$GRIS_8 vA=$GRIS_8 #
# $c cubique=FAUX #
# $c entiers=VRAI #
# $c utiliser_la_valeur_de_depart=FAUX #
# $c > $xTV/COULEURS$VERTE\n" #
# $c ,n,n #
# $c ); #
# $c printf("$xci/valeurs_inte$X #
# $c premiere=%d derniere=%d #
# $c vD=$GRIS_8 vA=$GRIS_8 #
# $c cubique=FAUX #
# $c entiers=VRAI #
# $c utiliser_la_valeur_de_depart=FAUX #
# $c > $xTV/COULEURS$BLEUE\n" #
# $c ,n,n #
# $c ); #
# #
# $c printf("$xrv/particule.10$X #
# $c np=1 #
# $c iterations=%d #
# $c LISTE_X=$xTV/COORDONNEES$COORD_X #
# $c LISTE_Y=$xTV/COORDONNEES$COORD_Y #
# $c LISTE_Z=$xTV/COORDONNEES$COORD_Z #
# $c LISTE_ROUGE=$xTV/COULEURS$ROUGE #
# $c LISTE_VERTE=$xTV/COULEURS$VERTE #
# $c LISTE_BLEUE=$xTV/COULEURS$BLEUE #
# $c LISTE_RAYON=0.012 #
# $c zoom_automatique=FAUX ZOOM=1.0 #
# $c coordonnees_dans_0_1=FAUX #
# $c AXYZ=1 BXYZ=0 #
# $c fond=VRAI #
# $c fond_dynamique=FAUX #
# $c F=$xiim/REFL.W.%04d #
# $c R=$xTV/REFL.B. #
# $c $formatI\n" #
# $c ,(n-n)+1,n #
# $c ); #
# #
# $c printf("$xci/acces$X #
# $c A=$xTV/REFL.B.%04d$ROUGE #
# $c R=$xiim/REFL.W.%04d$ROUGE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xTV/REFL.B.%04d$VERTE #
# $c R=$xiim/REFL.W.%04d$VERTE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xTV/REFL.B.%04d$BLEUE #
# $c R=$xiim/REFL.W.%04d$BLEUE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# $c } #
# $c } #
# #
# #
# $Z $DELETE $xTV/COORDONNEES #
# $Z $DELETE $xTV/COORDONNEES$COORD_X #
# $Z $DELETE $xTV/COORDONNEES$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_Z #
# $Z $DELETE $xTV/COULEURS$ROUGE #
# $Z $DELETE $xTV/COULEURS$VERTE #
# $Z $DELETE $xTV/COULEURS$BLEUE #
# #
# #
# #
# $Z $xci/complement$X A=$xTV/BOITE.1 \ #
# $Z R=$xTV/BOITE.3 \ #
# $Z $formatI #
# #
# $Z eval `$xci/genere$X \\\ #
# $Z commande='($xci/scale$X \\\ #
# $Z A=$xTV/BOITE.3 \\\ #
# $Z a=0.50 \\\ #
# $Z R=$xTV/BOITE.3%s \\\ #
# $Z $formatI)' \\\ #
# $Z en_tete=FAUX RVB=VRAI separateur=VRAI` #
# #
# #
# $X $xci/genere$X premiere=$Premiere derniere=$Derniere pas=1 \ #
# $X C='$xci/cache.11$Z \ #
# $X $xiim/REFL.W.%04d \ #
# $X $xTV/BOITE.3 \ #
# $X $xiim/REFL.P.%04d' #
# #
# $Z $DELETE $xTV/BOITE.1 #
# $Z $DELETE $xTV/BOITE.2 #
# $Z $DELETE $xTV/BOITE.3 #
# $Z $DELETE $xTV/BOITE.3$ROUGE #
# $Z $DELETE $xTV/BOITE.3$VERTE #
# $Z $DELETE $xTV/BOITE.3$BLEUE #
# #
# $Z Pal #
# #
# $Z $xci/reduction_16$Z $xiim/REFL.P. $xiak/REFL.M4 $Premiere $Derniere #
# $Z $xci/reduction_64$Z $xiim/REFL.P. $xiak/REFL.M4 $Premiere $Derniere #
# #
# $X $xci/genere$X c='ro $xiak/REFL.M4$R16%s' RVB=VRAI #
# $X $xci/genere$X c='ro $xiak/REFL.M4$R64%s' RVB=VRAI #
# #
# $X $xci/genere$X c='$xcg/unite$Z $xiak/REFL.M4$R16%s' RVB=VRAI #
# $X $xci/genere$X c='$xcg/unite$Z $xiak/REFL.M4$R64%s' RVB=VRAI #
# #
# $X $xci/genere$X c='$CP $xiim/REFL.P.0512%s $xiirk/REFL.M4.0512%s' RVB=VRAI #
# #
# $X $xci/genere$X c='ro $xiirk/REFL.M4.0512%s' RVB=VRAI #
# #
# $X $xci/genere$X c='$xcg/unite$Z $xiirk/REFL.M4.0512%s' RVB=VRAI #
# #
# #
# Pal #
# #
# #
# $xci/disk_video_P$Z $xiim_LACT29/REFL.P. 001 512 RVB \ #
# 11 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
# #
# xivPdf 3 2 #
# #
# record.01$Z $xiak/REFL.M4$R16 RVB Initialisation #
# record.01$Z $xiak/REFL.M4$R64 RVB rien #
# record.01$Z $xiirk/REFL.M4.0512 RVB rien #
# #
# #
# ATTENTION, cette sequence est la nouvelle version de la sequence : #
# #
# xivPdf 11 2 / 006145_006656 #
# #
# qui utilise les memes choix initiaux que pour la sequence : #
# #
# xivPdf 11 2 / 009217_009728 #
# #
# en ce qui concerne la couleur des particules... #
sequence 020658_021166
sequence 021167_021169
# Generee (sur '$LACT29') par : #
# #
# $Z SET Premiere=1 #
# $Z SET Derniere=512 #
# $Z @ Nimages = $Derniere - $Premiere #
# $Z @ Nimages = $Nimages + 1 #
# #
# #
# $Z Pal #
# #
# $Z set PUnivers="np=0 CAL1=FAUX editer_l_univers_physique=VRAI" #
# $Z set Univers=`$xrk/rdn_walk.41$X $PUnivers $formatI` #
# #
# $Z set MinX=`echo $Univers | $SE -e "s/^.*[(,]XUI=//" -e "s/[,)].*//"` #
# $Z set MaxX=`echo $Univers | $SE -e "s/^.*[(,]XUS=//" -e "s/[,)].*//"` #
# $Z set MinY=`echo $Univers | $SE -e "s/^.*[(,]YUI=//" -e "s/[,)].*//"` #
# $Z set MaxY=`echo $Univers | $SE -e "s/^.*[(,]YUS=//" -e "s/[,)].*//"` #
# #
# $Z set MinX=`$xcg/ABSO.01$X x=$MinX` #
# $Z set MaxX=`$xcg/ABSO.01$X x=$MaxX` #
# $Z set MinY=`$xcg/ABSO.01$X x=$MinY` #
# $Z set MaxY=`$xcg/ABSO.01$X x=$MaxY` #
# #
# $Z set MaxX=`$xcg/MAX2.01$X n1=$MinX n2=$MaxX` #
# $Z set MaxY=`$xcg/MAX2.01$X n1=$MinY n2=$MaxY` #
# #
# $Z set SeuilPartN=0.000410 #
# $Z set GrainePartN=2 #
# #
# $Z $DELETE $xTV/BOITE.1 #
# $Z $DELETE $xTV/BOITE.2 #
# $Z $DELETE $xTV/BOITE.3 #
# $Z $DELETE $xTV/BOITE.3$ROUGE #
# $Z $DELETE $xTV/BOITE.3$VERTE #
# $Z $DELETE $xTV/BOITE.3$BLEUE #
# $Z $DELETE $xTV/BOITE.6 #
# $Z $DELETE $xTV/BOITE.A #
# $Z $DELETE $xTV/BOITE.B #
# #
# #
# $Z Std #
# #
# $Z set FacXY=0.85 #
# $Z set SeuilBOITE=`$xcg/SOUS.01$X a=1 b=$FacXY` #
# $Z set SeuilBOITE=`$xcg/MUL2.01$X a=$SeuilBOITE b=$GRIS_8` #
# $Z set SeuilBOITE=`$xci/valeurs_inte$X p=1 d=1 vD=$SeuilBOITE entiers=VRAI` #
# $Z set SeuilBOITE=`$xcg/MIN2.01$X a=$SeuilBOITE b=$GRIS_1` #
# #
# $Z $xci/complement$X \ #
# $Z A=$xiio/SPIRALE \ #
# $Z $formatI | \ #
# $Z $xci/seuil$X \ #
# $Z seuil=$SeuilBOITE \ #
# $Z R=$xTV/BOITE.6 \ #
# $Z $formatI #
# #
# $Z S #
# #
# $Z $xci/format.01$X mode=0 \ #
# $Z A=$xTV/BOITE.6 \ #
# $Z $formatI \ #
# $Z R=$xTV/BOITE.1 \ #
# $Z $formatR_Pal #
# #
# $Z $xci/dilate.01$X \ #
# $Z A=$xTV/BOITE.6 \ #
# $Z points=225 \ #
# $Z dilater=FAUX \ #
# $Z R=$xTV/BOITE.A \ #
# $Z $formatI #
# #
# $Z $xci/random.02$X \ #
# $Z seuil=$SeuilPartN \ #
# $Z graine=$GrainePartN \ #
# $Z $formatI | \ #
# $Z $xci/and$X \ #
# $Z A2=$xTV/BOITE.A \ #
# $Z R=$xTV/BOITE.B \ #
# $Z $formatI #
# #
# $Z $DELETE $xTV/COORDONNEES #
# $Z $DELETE $xTV/COORDONNEES_01$COORD_X #
# $Z $DELETE $xTV/COORDONNEES_01$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_X #
# $Z $DELETE $xTV/COORDONNEES$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_Z #
# #
# $Z $xci/liste_points$X \ #
# $Z A=$xTV/BOITE.B \ #
# $Z $formatI \ #
# $Z > $xTV/COORDONNEES #
# #
# $Z $DELETE $xTV/BOITE.6 #
# $Z $DELETE $xTV/BOITE.A #
# $Z $DELETE $xTV/BOITE.B #
# #
# $Z set PartN=`$TAI -1 $xTV/COORDONNEES | $SE -e "s/^.*=//"` #
# #
# $Z $CA $xTV/COORDONNEES \ #
# $Z | $GRE "^[Xx]=" \ #
# $Z | $SE -e "s/^[Xx]=//" \ #
# $Z > $xTV/COORDONNEES_01$COORD_X #
# $Z $CA $xTV/COORDONNEES \ #
# $Z | $GRE "^[Yy]=" \ #
# $Z | $SE -e "s/^[Yy]=//" \ #
# $Z > $xTV/COORDONNEES_01$COORD_Y #
# #
# $Z set EchelleX=`$xcg/MUL2.01$X n1=2 n2=$MaxX` #
# $Z set TranslationX=`$xcg/MUL2.01$X n1=-1 n2=$MaxX` #
# $Z set EchelleY=`$xcg/MUL2.01$X n1=2 n2=$MaxY` #
# $Z set TranslationY=`$xcg/MUL2.01$X n1=-1 n2=$MaxY` #
# #
# $Z $xrv/AXPB.01$X \ #
# $Z CAL1=FAUX \ #
# $Z ne=$PartN \ #
# $Z fichier=$xTV/COORDONNEES_01$COORD_X \ #
# $Z homothetie=$EchelleX translation=$TranslationX \ #
# $Z > $xTV/COORDONNEES$COORD_X #
# $Z $xrv/AXPB.01$X \ #
# $Z CAL1=FAUX \ #
# $Z ne=$PartN \ #
# $Z fichier=$xTV/COORDONNEES_01$COORD_Y \ #
# $Z homothetie=$EchelleY translation=$TranslationY \ #
# $Z > $xTV/COORDONNEES$COORD_Y #
# #
# $Z $DELETE $xTV/COORDONNEES_01$COORD_X #
# $Z $DELETE $xTV/COORDONNEES_01$COORD_Y #
# #
# $Z set Part0=1 #
# $Z @ Npart = $PartN - $Part0 #
# $Z @ Npart = $Npart + 1 #
# #
# $Z $DELETE $xTV/MODULE #
# $Z $DELETE $xTV/THETA #
# $Z $DELETE $xTV/XY_RT.1 #
# $Z $DELETE $xTV/XY_RT.2 #
# $Z $DELETE $xTV/VITESSES #
# $Z $DELETE $xTV/VITESSES$COORD_X #
# $Z $DELETE $xTV/VITESSES$COORD_Y #
# $Z $DELETE $xTV/VITESSES$COORD_Z #
# $Z $DELETE $xTV/mdRHO #
# $Z $DELETE $xTV/MdRHO #
# $Z $DELETE $xTV/mnPHI #
# $Z $DELETE $xTV/MnPHI #
# $Z $DELETE $xTV/dPHI #
# $Z $DELETE $xTV/mnTHETA #
# $Z $DELETE $xTV/MnTHETA #
# $Z $DELETE $xTV/dTHETA #
# $Z $DELETE $xTV/supOUVE #
# $Z $DELETE $xTV/DISTANCE #
# $Z $DELETE $xTV/STABILITE #
# $Z $DELETE $xTV/RAYONS #
# $Z $DELETE $xTV/INTERACTIONS #
# #
# #
# $Z alias Gen 'set Fi=\!:1 ; set vD=\!:2 ; set vA=\!:3 ; set ArG=(\!:4*) ; \\ #
# $Z $DELETE $Fi ; \\ #
# $Z $xci/valeurs_inte$X p=$Part0 d=$PartN vD=$vD vA=$vA $ArG > $Fi ; \\ #
# $Z unset Fi vD vA ArG' #
# #
# $Z alias GenR 'set Fi=\!:1 ; set In=\!:2 ; set Su=\!:3 ; set ArG=(\!:4*) ; \\ #
# $Z $DELETE $Fi ; \\ #
# $Z $xci/valeurs_alea$X p=$Part0 d=$PartN signe="$KV" inf=$In sup=$Su $ArG > $Fi ; \\ #
# $Z unset Fi In Su ArG' #
# #
# $Z Gen $xTV/COORDONNEES$COORD_Z 0.0 0.0 #
# #
# #
# $Z Gen $xTV/MODULE 0.02 0.02 #
# $Z GenR $xTV/THETA 0.0 $dpi g=3333 #
# #
# $Z $CA $xcs/csh$Y \ #
# $Z > $xTV/XY_RT.1 #
# $Z $PAST $xTV/MODULE $xTV/THETA \ #
# $Z | $R "$K_TAB" "$K_BLANC" \ #
# $Z | $AW ' { print "$xcg/XY_RT$X r=" $1 " t=" $2 " cartesien=FAUX" } ' \ #
# $Z >>! $xTV/XY_RT.1 #
# #
# $Z (source $xTV/XY_RT.1) \ #
# $Z > $xTV/XY_RT.2 #
# #
# $Z $CA $xTV/XY_RT.2 \ #
# $Z | $GRE "^x=" \ #
# $Z | $SE -e "s/^x=//" \ #
# $Z > $xTV/VITESSES$COORD_X #
# $Z $CA $xTV/XY_RT.2 \ #
# $Z | $GRE "^y=" \ #
# $Z | $SE -e "s/^y=//" \ #
# $Z > $xTV/VITESSES$COORD_Y #
# #
# $Z Gen $xTV/VITESSES$COORD_Z 0.0 0.0 #
# #
# $Z Gen $xTV/mdRHO 0.0 0.0 #
# $Z Gen $xTV/MdRHO 0.0 0.0 #
# $Z Gen $xTV/mnPHI 0.0 0.0 #
# $Z Gen $xTV/MnPHI 0.0 0.0 #
# $Z Gen $xTV/dPHI 0.0 0.0 #
# $Z Gen $xTV/mnTHETA 0.0 0.0 #
# $Z Gen $xTV/MnTHETA 0.0 0.0 #
# $Z Gen $xTV/dTHETA 0.0 0.0 #
# $Z Gen $xTV/DISTANCE 1000000 1000000 #
# $Z Gen $xTV/STABILITE 1000000 1000000 #
# #
# $Z set RayonsT=0.014 #
# $Z set RayonsP=`$xcg/MUL2.01$X a=2 b=$RayonsT` #
# $Z set DistanceI=`$xcg/MUL2.01$X a=4 b=$RayonsP` #
# $Z Gen $xTV/RAYONS $RayonsT $RayonsT #
# $Z Gen $xTV/INTERACTIONS $RayonsP $RayonsP #
# #
# $Z $DELETE $xTV/COULEURS$TEINT #
# $Z $DELETE $xTV/COULEURS$LUMIN #
# $Z $DELETE $xTV/COULEURS$SATUR #
# $Z $DELETE $xTV/COULEURS$Y #
# $Z $DELETE $xTV/COULEURS #
# $Z $DELETE $xTV/COULEURS$ROUGE #
# $Z $DELETE $xTV/COULEURS$VERTE #
# $Z $DELETE $xTV/COULEURS$BLEUE #
# #
# $Z @ TeinteMagenta = $GRIS_7 #
# $Z @ TeinteCyan = $GRIS_4 + $GRIS_8 #
# #
# $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartN \ #
# $Z vD=$TeinteMagenta vA=$TeinteCyan \ #
# $Z cubique=FAUX \ #
# $Z entiers=VRAI \ #
# $Z > $xTV/COULEURS$TEINT #
# $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartN \ #
# $Z vD=$GRIS_4 vA=$GRIS_4 \ #
# $Z cubique=FAUX \ #
# $Z entiers=VRAI \ #
# $Z > $xTV/COULEURS$LUMIN #
# $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartN \ #
# $Z vD=$GRIS_8 vA=$GRIS_8 \ #
# $Z cubique=FAUX \ #
# $Z entiers=VRAI \ #
# $Z > $xTV/COULEURS$SATUR #
# #
# $Z $PAST \ #
# $Z $xTV/COULEURS$TEINT \ #
# $Z $xTV/COULEURS$LUMIN \ #
# $Z $xTV/COULEURS$SATUR \ #
# $Z | $R "$K_TAB" "$K_BLANC" \ #
# $Z | $AW ' { print "H=" $1 " L=" $2 " S=" $3 } ' \ #
# $Z | $SE -e 's+^+$xcg/RVB_HLS$X RVB_HLS=FAUX +' \ #
# $Z | $SE -e 's/$/ eR=VRAI eV=VRAI eB=VRAI/' \ #
# $Z | $SE -e 's/$/ eH=FAUX eL=FAUX eS=FAUX/' \ #
# $Z > $xTV/COULEURS$Y #
# #
# $Z (source $xTV/COULEURS$Y) \ #
# $Z > $xTV/COULEURS #
# #
# $Z $GRE "^R=" $xTV/COULEURS \ #
# $Z | $SE -e "s/^R=//" \ #
# $Z > $xTV/COULEURS$ROUGE #
# $Z $GRE "^V=" $xTV/COULEURS \ #
# $Z | $SE -e "s/^V=//" \ #
# $Z > $xTV/COULEURS$VERTE #
# $Z $GRE "^B=" $xTV/COULEURS \ #
# $Z | $SE -e "s/^B=//" \ #
# $Z > $xTV/COULEURS$BLEUE #
# #
# $Z Pal #
# #
# #
# $Z $xci/scale$X \ #
# $Z A=$xTV/BOITE.1 \ #
# $Z a=1.00 \ #
# $Z R=$xTV/BOITE.2 \ #
# $Z $formatI #
# #
# $Z $xrk/rdn_walk.41$X corps=$Npart \ #
# $Z np=$Nimages \ #
# $Z collisions=VRAI DLA=FAUX interaction=$DistanceI \ #
# $Z LISTE_X=$xTV/COORDONNEES$COORD_X \ #
# $Z LISTE_Y=$xTV/COORDONNEES$COORD_Y \ #
# $Z LISTE_Z=$xTV/COORDONNEES$COORD_Z \ #
# $Z LISTE_VX=$xTV/VITESSES$COORD_X \ #
# $Z LISTE_VY=$xTV/VITESSES$COORD_Y \ #
# $Z LISTE_VZ=$xTV/VITESSES$COORD_Z \ #
# $Z LISTE_MINIMUM_DELTA_RHO=$xTV/mdRHO \ #
# $Z LISTE_MAXIMUM_DELTA_RHO=$xTV/MdRHO \ #
# $Z LISTE_MINIMUM_N_PHI=$xTV/mnPHI \ #
# $Z LISTE_MAXIMUM_N_PHI=$xTV/MnPHI \ #
# $Z LISTE_DELTA_PHI=$xTV/dPHI \ #
# $Z LISTE_MINIMUM_N_THETA=$xTV/mnTHETA \ #
# $Z LISTE_MAXIMUM_N_THETA=$xTV/MnTHETA \ #
# $Z LISTE_DELTA_THETA=$xTV/dTHETA \ #
# $Z LISTE_DISTANCE_MAXIMALE=$xTV/DISTANCE \ #
# $Z LISTE_STABILITE=$xTV/STABILITE \ #
# $Z LISTE_RAYON=$xTV/RAYONS \ #
# $Z LISTE_RAYON_D_INTERACTION=$xTV/INTERACTIONS \ #
# $Z LISTE_ROUGE=$xTV/COULEURS$ROUGE \ #
# $Z LISTE_VERTE=$xTV/COULEURS$VERTE \ #
# $Z LISTE_BLEUE=$xTV/COULEURS$BLEUE \ #
# $Z milieu=VRAI \ #
# $Z reflexion=VRAI refraction=FAUX \ #
# $Z Mhors=$BLANC \ #
# $Z MNpasX=1 Mprolonger_X=VRAI \ #
# $Z MNpasY=1 Mprolonger_Y=VRAI \ #
# $Z MNpasZ=1 Mprolonger_Z=VRAI \ #
# $Z adapter_M_nPAS=VRAI \ #
# $Z Msimplifier=FAUX affiner_M_maillage=FAUX \ #
# $Z MC=$xTV/BOITE.2 \ #
# $Z MChiffres=0 \ #
# $Z Zmin=0 Zmax=15 \ #
# $Z centrer=VRAI \ #
# $Z dct=0.05 nombre=10 \ #
# $Z trainees=VRAI mode=1 \ #
# $Z attenuation_des_images=0.6 \ #
# $Z attenuation_des_trainees=1.00 \ #
# $Z renormaliser=FAUX \ #
# $Z Lz=100 \ #
# $Z zoom_automatique=VRAI \ #
# $Z centre_de_gravite=FAUX \ #
# $Z fond=FAUX \ #
# $Z R=$xiim/REFL.W. \ #
# $Z $formatI #
# #
# $Z $DELETE $xTV/RAYONS #
# $Z $CP $xTV/INTERACTIONS $xTV/RAYONS #
# #
# $Z $DELETE $xTV/GRAVITE #
# $Z $xrk/rdn_walk.41$X corps=$Npart \ #
# $Z np=$Nimages \ #
# $Z collisions=VRAI DLA=FAUX interaction=$DistanceI \ #
# $Z LISTE_X=$xTV/COORDONNEES$COORD_X \ #
# $Z LISTE_Y=$xTV/COORDONNEES$COORD_Y \ #
# $Z LISTE_Z=$xTV/COORDONNEES$COORD_Z \ #
# $Z LISTE_VX=$xTV/VITESSES$COORD_X \ #
# $Z LISTE_VY=$xTV/VITESSES$COORD_Y \ #
# $Z LISTE_VZ=$xTV/VITESSES$COORD_Z \ #
# $Z LISTE_MINIMUM_DELTA_RHO=$xTV/mdRHO \ #
# $Z LISTE_MAXIMUM_DELTA_RHO=$xTV/MdRHO \ #
# $Z LISTE_MINIMUM_N_PHI=$xTV/mnPHI \ #
# $Z LISTE_MAXIMUM_N_PHI=$xTV/MnPHI \ #
# $Z LISTE_DELTA_PHI=$xTV/dPHI \ #
# $Z LISTE_MINIMUM_N_THETA=$xTV/mnTHETA \ #
# $Z LISTE_MAXIMUM_N_THETA=$xTV/MnTHETA \ #
# $Z LISTE_DELTA_THETA=$xTV/dTHETA \ #
# $Z LISTE_DISTANCE_MAXIMALE=$xTV/DISTANCE \ #
# $Z LISTE_STABILITE=$xTV/STABILITE \ #
# $Z LISTE_RAYON=$xTV/RAYONS \ #
# $Z LISTE_RAYON_D_INTERACTION=$xTV/INTERACTIONS \ #
# $Z LISTE_ROUGE=$xTV/COULEURS$ROUGE \ #
# $Z LISTE_VERTE=$xTV/COULEURS$VERTE \ #
# $Z LISTE_BLEUE=$xTV/COULEURS$BLEUE \ #
# $Z milieu=VRAI \ #
# $Z reflexion=VRAI refraction=FAUX \ #
# $Z Mhors=$BLANC \ #
# $Z MNpasX=1 Mprolonger_X=VRAI \ #
# $Z MNpasY=1 Mprolonger_Y=VRAI \ #
# $Z MNpasZ=1 Mprolonger_Z=VRAI \ #
# $Z adapter_M_nPAS=VRAI \ #
# $Z Msimplifier=FAUX affiner_M_maillage=FAUX \ #
# $Z MC=$xTV/BOITE.2 \ #
# $Z MChiffres=0 \ #
# $Z Zmin=0 Zmax=15 \ #
# $Z centrer=VRAI \ #
# $Z dct=0.05 nombre=10 \ #
# $Z trainees=VRAI mode=1 \ #
# $Z attenuation_des_images=1.0 \ #
# $Z attenuation_des_trainees=0.80 \ #
# $Z renormaliser=FAUX \ #
# $Z Lz=100 \ #
# $Z zoom_automatique=VRAI \ #
# $Z centre_de_gravite=VRAI \ #
# $Z fond=VRAI \ #
# $Z dynamique=VRAI \ #
# $Z F=$xiim/REFL.W. \ #
# $Z R=$xiim/REFL.W. \ #
# $Z $formatI | \ #
# $Z $GRE " CENTRE_DE_GRAVITE=" \ #
# $Z > $xTV/GRAVITE #
# #
# $Z $DELETE $xTV/COORDONNEES #
# $Z $DELETE $xTV/COORDONNEES$COORD_X #
# $Z $DELETE $xTV/COORDONNEES$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_Z #
# $Z $DELETE $xTV/VITESSES #
# $Z $DELETE $xTV/VITESSES$COORD_X #
# $Z $DELETE $xTV/VITESSES$COORD_Y #
# $Z $DELETE $xTV/VITESSES$COORD_Z #
# $Z $DELETE $xTV/mdRHO #
# $Z $DELETE $xTV/MdRHO #
# $Z $DELETE $xTV/mnPHI #
# $Z $DELETE $xTV/MnPHI #
# $Z $DELETE $xTV/dPHI #
# $Z $DELETE $xTV/mnTHETA #
# $Z $DELETE $xTV/MnTHETA #
# $Z $DELETE $xTV/dTHETA #
# $Z $DELETE $xTV/DISTANCE #
# $Z $DELETE $xTV/STABILITE #
# $Z $DELETE $xTV/RAYONS #
# $Z $DELETE $xTV/INTERACTIONS #
# $Z $DELETE $xTV/COULEURS$TEINT #
# $Z $DELETE $xTV/COULEURS$LUMIN #
# $Z $DELETE $xTV/COULEURS$SATUR #
# $Z $DELETE $xTV/COULEURS$Y #
# $Z $DELETE $xTV/COULEURS #
# $Z $DELETE $xTV/COULEURS$ROUGE #
# $Z $DELETE $xTV/COULEURS$VERTE #
# $Z $DELETE $xTV/COULEURS$BLEUE #
# #
# $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("$DELETE $xTV/COORDONNEES\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_X\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_Y\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_Z\n"); #
# #
# $c printf("$DELETE $xTV/COULEURS$ROUGE\n"); #
# $c printf("$DELETE $xTV/COULEURS$VERTE\n"); #
# $c printf("$DELETE $xTV/COULEURS$BLEUE\n"); #
# #
# $c printf("listMN $xTV/GRAVITE #
# $c %d %d #
# $c > $xTV/COORDONNEES\n" #
# $c ,N0,n #
# $c ); #
# #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*[(,]XG=//%c #
# $c -e %cs/[,)].*//%c #
# $c > $xTV/COORDONNEES$COORD_X\n" #
# $c ,'"','"','"','"' #
# $c ); #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*[(,]YG=//%c #
# $c -e %cs/[,)].*//%c #
# $c > $xTV/COORDONNEES$COORD_Y\n" #
# $c ,'"','"','"','"' #
# $c ); #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*[(,]ZG=//%c #
# $c -e %cs/[,)].*//%c #
# $c > $xTV/COORDONNEES$COORD_Z\n" #
# $c ,'"','"','"','"' #
# $c ); #
# #
# $c printf("$xci/valeurs_inte$X #
# $c premiere=%d derniere=%d #
# $c vD=$GRIS_5 vA=$GRIS_5 #
# $c cubique=FAUX #
# $c entiers=VRAI #
# $c utiliser_la_valeur_de_depart=FAUX #
# $c > $xTV/COULEURS$ROUGE\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/valeurs_inte$X #
# $c premiere=%d derniere=%d #
# $c vD=$GRIS_5 vA=$GRIS_5 #
# $c cubique=FAUX #
# $c entiers=VRAI #
# $c utiliser_la_valeur_de_depart=FAUX #
# $c > $xTV/COULEURS$VERTE\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/valeurs_inte$X #
# $c premiere=%d derniere=%d #
# $c vD=$GRIS_5 vA=$GRIS_5 #
# $c cubique=FAUX #
# $c entiers=VRAI #
# $c utiliser_la_valeur_de_depart=FAUX #
# $c > $xTV/COULEURS$BLEUE\n" #
# $c ,N0,n #
# $c ); #
# #
# $c printf("$xrv/particule.10$X #
# $c np=1 #
# $c iterations=%d #
# $c LISTE_X=$xTV/COORDONNEES$COORD_X #
# $c LISTE_Y=$xTV/COORDONNEES$COORD_Y #
# $c LISTE_Z=$xTV/COORDONNEES$COORD_Z #
# $c LISTE_ROUGE=$xTV/COULEURS$ROUGE #
# $c LISTE_VERTE=$xTV/COULEURS$VERTE #
# $c LISTE_BLEUE=$xTV/COULEURS$BLEUE #
# $c LISTE_RAYON=0.006 #
# $c zoom_automatique=FAUX ZOOM=1.0 #
# $c coordonnees_dans_0_1=FAUX #
# $c AXYZ=1 BXYZ=0 #
# $c fond=VRAI #
# $c fond_dynamique=FAUX #
# $c F=$xiim/REFL.W.%04d #
# $c R=$xTV/REFL.A. #
# $c $formatI\n" #
# $c ,(n-N0)+1,n #
# $c ); #
# #
# $c printf("$xci/acces$X #
# $c A=$xTV/REFL.A.%04d$ROUGE #
# $c R=$xiim/REFL.W.%04d$ROUGE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xTV/REFL.A.%04d$VERTE #
# $c R=$xiim/REFL.W.%04d$VERTE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xTV/REFL.A.%04d$BLEUE #
# $c R=$xiim/REFL.W.%04d$BLEUE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# #
# $c printf("$DELETE $xTV/COORDONNEES\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_X\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_Y\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_Z\n"); #
# #
# $c printf("$DELETE $xTV/COULEURS$ROUGE\n"); #
# $c printf("$DELETE $xTV/COULEURS$VERTE\n"); #
# $c printf("$DELETE $xTV/COULEURS$BLEUE\n"); #
# #
# $c printf("listMN $xTV/GRAVITE #
# $c %d %d #
# $c > $xTV/COORDONNEES\n" #
# $c ,n,n #
# $c ); #
# #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*[(,]XG=//%c #
# $c -e %cs/[,)].*//%c #
# $c > $xTV/COORDONNEES$COORD_X\n" #
# $c ,'"','"','"','"' #
# $c ); #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*[(,]YG=//%c #
# $c -e %cs/[,)].*//%c #
# $c > $xTV/COORDONNEES$COORD_Y\n" #
# $c ,'"','"','"','"' #
# $c ); #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*[(,]ZG=//%c #
# $c -e %cs/[,)].*//%c #
# $c > $xTV/COORDONNEES$COORD_Z\n" #
# $c ,'"','"','"','"' #
# $c ); #
# #
# $c printf("$xci/valeurs_inte$X #
# $c premiere=%d derniere=%d #
# $c vD=$GRIS_8 vA=$GRIS_8 #
# $c cubique=FAUX #
# $c entiers=VRAI #
# $c utiliser_la_valeur_de_depart=FAUX #
# $c > $xTV/COULEURS$ROUGE\n" #
# $c ,n,n #
# $c ); #
# $c printf("$xci/valeurs_inte$X #
# $c premiere=%d derniere=%d #
# $c vD=$GRIS_8 vA=$GRIS_8 #
# $c cubique=FAUX #
# $c entiers=VRAI #
# $c utiliser_la_valeur_de_depart=FAUX #
# $c > $xTV/COULEURS$VERTE\n" #
# $c ,n,n #
# $c ); #
# $c printf("$xci/valeurs_inte$X #
# $c premiere=%d derniere=%d #
# $c vD=$GRIS_8 vA=$GRIS_8 #
# $c cubique=FAUX #
# $c entiers=VRAI #
# $c utiliser_la_valeur_de_depart=FAUX #
# $c > $xTV/COULEURS$BLEUE\n" #
# $c ,n,n #
# $c ); #
# #
# $c printf("$xrv/particule.10$X #
# $c np=1 #
# $c iterations=%d #
# $c LISTE_X=$xTV/COORDONNEES$COORD_X #
# $c LISTE_Y=$xTV/COORDONNEES$COORD_Y #
# $c LISTE_Z=$xTV/COORDONNEES$COORD_Z #
# $c LISTE_ROUGE=$xTV/COULEURS$ROUGE #
# $c LISTE_VERTE=$xTV/COULEURS$VERTE #
# $c LISTE_BLEUE=$xTV/COULEURS$BLEUE #
# $c LISTE_RAYON=0.012 #
# $c zoom_automatique=FAUX ZOOM=1.0 #
# $c coordonnees_dans_0_1=FAUX #
# $c AXYZ=1 BXYZ=0 #
# $c fond=VRAI #
# $c fond_dynamique=FAUX #
# $c F=$xiim/REFL.W.%04d #
# $c R=$xTV/REFL.B. #
# $c $formatI\n" #
# $c ,(n-n)+1,n #
# $c ); #
# #
# $c printf("$xci/acces$X #
# $c A=$xTV/REFL.B.%04d$ROUGE #
# $c R=$xiim/REFL.W.%04d$ROUGE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xTV/REFL.B.%04d$VERTE #
# $c R=$xiim/REFL.W.%04d$VERTE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xTV/REFL.B.%04d$BLEUE #
# $c R=$xiim/REFL.W.%04d$BLEUE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# $c } #
# $c } #
# #
# #
# $Z $DELETE $xTV/COORDONNEES #
# $Z $DELETE $xTV/COORDONNEES$COORD_X #
# $Z $DELETE $xTV/COORDONNEES$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_Z #
# $Z $DELETE $xTV/COULEURS$ROUGE #
# $Z $DELETE $xTV/COULEURS$VERTE #
# $Z $DELETE $xTV/COULEURS$BLEUE #
# #
# #
# #
# $Z $xci/complement$X A=$xTV/BOITE.1 \ #
# $Z R=$xTV/BOITE.3 \ #
# $Z $formatI #
# #
# $Z eval `$xci/genere$X \\\ #
# $Z commande='($xci/scale$X \\\ #
# $Z A=$xTV/BOITE.3 \\\ #
# $Z a=0.50 \\\ #
# $Z R=$xTV/BOITE.3%s \\\ #
# $Z $formatI)' \\\ #
# $Z en_tete=FAUX RVB=VRAI separateur=VRAI` #
# #
# #
# $X $xci/genere$X premiere=$Premiere derniere=$Derniere pas=1 \ #
# $X C='$xci/cache.11$Z \ #
# $X $xiim/REFL.W.%04d \ #
# $X $xTV/BOITE.3 \ #
# $X $xiim/REFL.Q.%04d' #
# #
# $Z $DELETE $xTV/BOITE.1 #
# $Z $DELETE $xTV/BOITE.2 #
# $Z $DELETE $xTV/BOITE.3 #
# $Z $DELETE $xTV/BOITE.3$ROUGE #
# $Z $DELETE $xTV/BOITE.3$VERTE #
# $Z $DELETE $xTV/BOITE.3$BLEUE #
# #
# $Z Pal #
# #
# $Z $xci/reduction_16$Z $xiim/REFL.Q. $xiak/REFL.M6 $Premiere $Derniere #
# $Z $xci/reduction_64$Z $xiim/REFL.Q. $xiak/REFL.M6 $Premiere $Derniere #
# #
# $X $xci/genere$X c='ro $xiak/REFL.M6$R16%s' RVB=VRAI #
# $X $xci/genere$X c='ro $xiak/REFL.M6$R64%s' RVB=VRAI #
# #
# $X $xci/genere$X c='$xcg/unite$Z $xiak/REFL.M6$R16%s' RVB=VRAI #
# $X $xci/genere$X c='$xcg/unite$Z $xiak/REFL.M6$R64%s' RVB=VRAI #
# #
# $X $xci/genere$X c='$CP $xiim/REFL.Q.0512%s $xiirk/REFL.M6.0512%s' RVB=VRAI #
# #
# $X $xci/genere$X c='ro $xiirk/REFL.M6.0512%s' RVB=VRAI #
# #
# $X $xci/genere$X c='$xcg/unite$Z $xiirk/REFL.M6.0512%s' RVB=VRAI #
# #
# #
# Pal #
# #
# #
# $xci/disk_video_P$Z $xiim_LACT29/REFL.Q. 001 512 RVB \ #
# 11 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
# #
# xivPdf 3 2 #
# #
# record.01$Z $xiak/REFL.M6$R16 RVB Initialisation #
# record.01$Z $xiak/REFL.M6$R64 RVB rien #
# record.01$Z $xiirk/REFL.M6.0512 RVB rien #
# #
# #
# ATTENTION, cette sequence est la nouvelle version de la sequence : #
# #
# xivPdf 11 2 / 006657_007168 #
# #
# qui utilise les memes choix initiaux que pour la sequence : #
# #
# xivPdf 11 2 / 009729_010240 #
# #
# en ce qui concerne la couleur des particules... #
# #
# #
# 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 021170_021491
sequence 021492_021681
# Generee (sur '$LACT29') par : #
# #
# $Z SET Premiere=1 #
# $Z SET Derniere=512 #
# $Z @ Nimages = $Derniere - $Premiere #
# $Z @ Nimages = $Nimages + 1 #
# #
# #
# $Z Pal #
# #
# $Z set PUnivers="np=0 CAL1=FAUX editer_l_univers_physique=VRAI" #
# $Z set Univers=`$xrk/rdn_walk.41$X $PUnivers $formatI` #
# #
# $Z set MinX=`echo $Univers | $SE -e "s/^.*[(,]XUI=//" -e "s/[,)].*//"` #
# $Z set MaxX=`echo $Univers | $SE -e "s/^.*[(,]XUS=//" -e "s/[,)].*//"` #
# $Z set MinY=`echo $Univers | $SE -e "s/^.*[(,]YUI=//" -e "s/[,)].*//"` #
# $Z set MaxY=`echo $Univers | $SE -e "s/^.*[(,]YUS=//" -e "s/[,)].*//"` #
# #
# $Z set MinX=`$xcg/ABSO.01$X x=$MinX` #
# $Z set MaxX=`$xcg/ABSO.01$X x=$MaxX` #
# $Z set MinY=`$xcg/ABSO.01$X x=$MinY` #
# $Z set MaxY=`$xcg/ABSO.01$X x=$MaxY` #
# #
# $Z set MaxX=`$xcg/MAX2.01$X n1=$MinX n2=$MaxX` #
# $Z set MaxY=`$xcg/MAX2.01$X n1=$MinY n2=$MaxY` #
# #
# $Z set SeuilPartN=0.001520 #
# $Z set GrainePartN=2 #
# #
# $Z $DELETE $xTV/BOITE.1 #
# $Z $DELETE $xTV/BOITE.2 #
# $Z $DELETE $xTV/BOITE.3 #
# $Z $DELETE $xTV/BOITE.3$ROUGE #
# $Z $DELETE $xTV/BOITE.3$VERTE #
# $Z $DELETE $xTV/BOITE.3$BLEUE #
# $Z $DELETE $xTV/BOITE.6 #
# $Z $DELETE $xTV/BOITE.A #
# $Z $DELETE $xTV/BOITE.B #
# #
# #
# $Z Std #
# #
# $Z set FacXY=0.85 #
# $Z set SeuilBOITE=`$xcg/SOUS.01$X a=1 b=$FacXY` #
# $Z set SeuilBOITE=`$xcg/MUL2.01$X a=$SeuilBOITE b=$GRIS_8` #
# $Z set SeuilBOITE=`$xci/valeurs_inte$X p=1 d=1 vD=$SeuilBOITE entiers=VRAI` #
# $Z set SeuilBOITE=`$xcg/MIN2.01$X a=$SeuilBOITE b=$GRIS_1` #
# #
# $Z $xci/complement$X \ #
# $Z A=$xiio/SPIRALE \ #
# $Z $formatI | \ #
# $Z $xci/seuil$X \ #
# $Z seuil=$SeuilBOITE \ #
# $Z R=$xTV/BOITE.6 \ #
# $Z $formatI #
# #
# $Z S #
# #
# $Z $xci/format.01$X mode=0 \ #
# $Z A=$xTV/BOITE.6 \ #
# $Z $formatI \ #
# $Z R=$xTV/BOITE.1 \ #
# $Z $formatR_Pal #
# #
# $Z $xci/dilate.01$X \ #
# $Z A=$xTV/BOITE.6 \ #
# $Z points=225 \ #
# $Z dilater=FAUX \ #
# $Z R=$xTV/BOITE.A \ #
# $Z $formatI #
# #
# $Z $xci/random.02$X \ #
# $Z seuil=$SeuilPartN \ #
# $Z graine=$GrainePartN \ #
# $Z $formatI | \ #
# $Z $xci/and$X \ #
# $Z A2=$xTV/BOITE.A \ #
# $Z R=$xTV/BOITE.B \ #
# $Z $formatI #
# #
# $Z $DELETE $xTV/COORDONNEES #
# $Z $DELETE $xTV/COORDONNEES_01$COORD_X #
# $Z $DELETE $xTV/COORDONNEES_01$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_X #
# $Z $DELETE $xTV/COORDONNEES$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_Z #
# #
# $Z $xci/liste_points$X \ #
# $Z A=$xTV/BOITE.B \ #
# $Z $formatI \ #
# $Z > $xTV/COORDONNEES #
# #
# $Z $DELETE $xTV/BOITE.6 #
# $Z $DELETE $xTV/BOITE.A #
# $Z $DELETE $xTV/BOITE.B #
# #
# $Z set PartN=`$TAI -1 $xTV/COORDONNEES | $SE -e "s/^.*=//"` #
# #
# $Z $CA $xTV/COORDONNEES \ #
# $Z | $GRE "^[Xx]=" \ #
# $Z | $SE -e "s/^[Xx]=//" \ #
# $Z > $xTV/COORDONNEES_01$COORD_X #
# $Z $CA $xTV/COORDONNEES \ #
# $Z | $GRE "^[Yy]=" \ #
# $Z | $SE -e "s/^[Yy]=//" \ #
# $Z > $xTV/COORDONNEES_01$COORD_Y #
# #
# $Z set EchelleX=`$xcg/MUL2.01$X n1=2 n2=$MaxX` #
# $Z set TranslationX=`$xcg/MUL2.01$X n1=-1 n2=$MaxX` #
# $Z set EchelleY=`$xcg/MUL2.01$X n1=2 n2=$MaxY` #
# $Z set TranslationY=`$xcg/MUL2.01$X n1=-1 n2=$MaxY` #
# #
# $Z $xrv/AXPB.01$X \ #
# $Z CAL1=FAUX \ #
# $Z ne=$PartN \ #
# $Z fichier=$xTV/COORDONNEES_01$COORD_X \ #
# $Z homothetie=$EchelleX translation=$TranslationX \ #
# $Z > $xTV/COORDONNEES$COORD_X #
# $Z $xrv/AXPB.01$X \ #
# $Z CAL1=FAUX \ #
# $Z ne=$PartN \ #
# $Z fichier=$xTV/COORDONNEES_01$COORD_Y \ #
# $Z homothetie=$EchelleY translation=$TranslationY \ #
# $Z > $xTV/COORDONNEES$COORD_Y #
# #
# $Z $DELETE $xTV/COORDONNEES_01$COORD_X #
# $Z $DELETE $xTV/COORDONNEES_01$COORD_Y #
# #
# $Z set Part0=1 #
# $Z @ Npart = $PartN - $Part0 #
# $Z @ Npart = $Npart + 1 #
# #
# $Z $DELETE $xTV/MODULE #
# $Z $DELETE $xTV/THETA #
# $Z $DELETE $xTV/XY_RT.1 #
# $Z $DELETE $xTV/XY_RT.2 #
# $Z $DELETE $xTV/VITESSES #
# $Z $DELETE $xTV/VITESSES$COORD_X #
# $Z $DELETE $xTV/VITESSES$COORD_Y #
# $Z $DELETE $xTV/VITESSES$COORD_Z #
# $Z $DELETE $xTV/mdRHO #
# $Z $DELETE $xTV/MdRHO #
# $Z $DELETE $xTV/mnPHI #
# $Z $DELETE $xTV/MnPHI #
# $Z $DELETE $xTV/dPHI #
# $Z $DELETE $xTV/mnTHETA #
# $Z $DELETE $xTV/MnTHETA #
# $Z $DELETE $xTV/dTHETA #
# $Z $DELETE $xTV/supOUVE #
# $Z $DELETE $xTV/DISTANCE #
# $Z $DELETE $xTV/STABILITE #
# $Z $DELETE $xTV/RAYONS #
# $Z $DELETE $xTV/INTERACTIONS #
# #
# #
# $Z alias Gen 'set Fi=\!:1 ; set vD=\!:2 ; set vA=\!:3 ; set ArG=(\!:4*) ; \\ #
# $Z $DELETE $Fi ; \\ #
# $Z $xci/valeurs_inte$X p=$Part0 d=$PartN vD=$vD vA=$vA $ArG > $Fi ; \\ #
# $Z unset Fi vD vA ArG' #
# #
# $Z alias GenR 'set Fi=\!:1 ; set In=\!:2 ; set Su=\!:3 ; set ArG=(\!:4*) ; \\ #
# $Z $DELETE $Fi ; \\ #
# $Z $xci/valeurs_alea$X p=$Part0 d=$PartN signe="$KV" inf=$In sup=$Su $ArG > $Fi ; \\ #
# $Z unset Fi In Su ArG' #
# #
# $Z Gen $xTV/COORDONNEES$COORD_Z 0.0 0.0 #
# #
# #
# $Z Gen $xTV/MODULE 0.02 0.02 #
# $Z GenR $xTV/THETA 0.0 $dpi g=3333 #
# #
# $Z $CA $xcs/csh$Y \ #
# $Z > $xTV/XY_RT.1 #
# $Z $PAST $xTV/MODULE $xTV/THETA \ #
# $Z | $R "$K_TAB" "$K_BLANC" \ #
# $Z | $AW ' { print "$xcg/XY_RT$X r=" $1 " t=" $2 " cartesien=FAUX" } ' \ #
# $Z >>! $xTV/XY_RT.1 #
# #
# $Z (source $xTV/XY_RT.1) \ #
# $Z > $xTV/XY_RT.2 #
# #
# $Z $CA $xTV/XY_RT.2 \ #
# $Z | $GRE "^x=" \ #
# $Z | $SE -e "s/^x=//" \ #
# $Z > $xTV/VITESSES$COORD_X #
# $Z $CA $xTV/XY_RT.2 \ #
# $Z | $GRE "^y=" \ #
# $Z | $SE -e "s/^y=//" \ #
# $Z > $xTV/VITESSES$COORD_Y #
# #
# $Z Gen $xTV/VITESSES$COORD_Z 0.0 0.0 #
# #
# $Z Gen $xTV/mdRHO 0.0 0.0 #
# $Z Gen $xTV/MdRHO 0.0 0.0 #
# $Z Gen $xTV/mnPHI 0.0 0.0 #
# $Z Gen $xTV/MnPHI 0.0 0.0 #
# $Z Gen $xTV/dPHI 0.0 0.0 #
# $Z Gen $xTV/mnTHETA 0.0 0.0 #
# $Z Gen $xTV/MnTHETA 0.0 0.0 #
# $Z Gen $xTV/dTHETA 0.0 0.0 #
# $Z Gen $xTV/DISTANCE 1000000 1000000 #
# $Z Gen $xTV/STABILITE 1000000 1000000 #
# #
# $Z set RayonsT=0.014 #
# $Z set RayonsP=`$xcg/MUL2.01$X a=2 b=$RayonsT` #
# $Z set DistanceI=`$xcg/MUL2.01$X a=4 b=$RayonsP` #
# $Z Gen $xTV/RAYONS $RayonsT $RayonsT #
# $Z Gen $xTV/INTERACTIONS $RayonsP $RayonsP #
# #
# $Z $DELETE $xTV/COULEURS$TEINT #
# $Z $DELETE $xTV/COULEURS$LUMIN #
# $Z $DELETE $xTV/COULEURS$SATUR #
# $Z $DELETE $xTV/COULEURS$Y #
# $Z $DELETE $xTV/COULEURS #
# $Z $DELETE $xTV/COULEURS$ROUGE #
# $Z $DELETE $xTV/COULEURS$VERTE #
# $Z $DELETE $xTV/COULEURS$BLEUE #
# #
# $Z @ TeinteMagenta = $GRIS_7 #
# $Z @ TeinteCyan = $GRIS_4 + $GRIS_8 #
# #
# $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartN \ #
# $Z vD=$TeinteMagenta vA=$TeinteCyan \ #
# $Z cubique=FAUX \ #
# $Z entiers=VRAI \ #
# $Z > $xTV/COULEURS$TEINT #
# $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartN \ #
# $Z vD=$GRIS_4 vA=$GRIS_4 \ #
# $Z cubique=FAUX \ #
# $Z entiers=VRAI \ #
# $Z > $xTV/COULEURS$LUMIN #
# $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartN \ #
# $Z vD=$GRIS_8 vA=$GRIS_8 \ #
# $Z cubique=FAUX \ #
# $Z entiers=VRAI \ #
# $Z > $xTV/COULEURS$SATUR #
# #
# $Z $PAST \ #
# $Z $xTV/COULEURS$TEINT \ #
# $Z $xTV/COULEURS$LUMIN \ #
# $Z $xTV/COULEURS$SATUR \ #
# $Z | $R "$K_TAB" "$K_BLANC" \ #
# $Z | $AW ' { print "H=" $1 " L=" $2 " S=" $3 } ' \ #
# $Z | $SE -e 's+^+$xcg/RVB_HLS$X RVB_HLS=FAUX +' \ #
# $Z | $SE -e 's/$/ eR=VRAI eV=VRAI eB=VRAI/' \ #
# $Z | $SE -e 's/$/ eH=FAUX eL=FAUX eS=FAUX/' \ #
# $Z > $xTV/COULEURS$Y #
# #
# $Z (source $xTV/COULEURS$Y) \ #
# $Z > $xTV/COULEURS #
# #
# $Z $GRE "^R=" $xTV/COULEURS \ #
# $Z | $SE -e "s/^R=//" \ #
# $Z > $xTV/COULEURS$ROUGE #
# $Z $GRE "^V=" $xTV/COULEURS \ #
# $Z | $SE -e "s/^V=//" \ #
# $Z > $xTV/COULEURS$VERTE #
# $Z $GRE "^B=" $xTV/COULEURS \ #
# $Z | $SE -e "s/^B=//" \ #
# $Z > $xTV/COULEURS$BLEUE #
# #
# $Z Pal #
# #
# #
# $Z $xci/scale$X \ #
# $Z A=$xTV/BOITE.1 \ #
# $Z a=1.00 \ #
# $Z R=$xTV/BOITE.2 \ #
# $Z $formatI #
# #
# $Z $xrk/rdn_walk.41$X corps=$Npart \ #
# $Z np=$Nimages \ #
# $Z collisions=VRAI DLA=FAUX interaction=$DistanceI \ #
# $Z LISTE_X=$xTV/COORDONNEES$COORD_X \ #
# $Z LISTE_Y=$xTV/COORDONNEES$COORD_Y \ #
# $Z LISTE_Z=$xTV/COORDONNEES$COORD_Z \ #
# $Z LISTE_VX=$xTV/VITESSES$COORD_X \ #
# $Z LISTE_VY=$xTV/VITESSES$COORD_Y \ #
# $Z LISTE_VZ=$xTV/VITESSES$COORD_Z \ #
# $Z LISTE_MINIMUM_DELTA_RHO=$xTV/mdRHO \ #
# $Z LISTE_MAXIMUM_DELTA_RHO=$xTV/MdRHO \ #
# $Z LISTE_MINIMUM_N_PHI=$xTV/mnPHI \ #
# $Z LISTE_MAXIMUM_N_PHI=$xTV/MnPHI \ #
# $Z LISTE_DELTA_PHI=$xTV/dPHI \ #
# $Z LISTE_MINIMUM_N_THETA=$xTV/mnTHETA \ #
# $Z LISTE_MAXIMUM_N_THETA=$xTV/MnTHETA \ #
# $Z LISTE_DELTA_THETA=$xTV/dTHETA \ #
# $Z LISTE_DISTANCE_MAXIMALE=$xTV/DISTANCE \ #
# $Z LISTE_STABILITE=$xTV/STABILITE \ #
# $Z LISTE_RAYON=$xTV/RAYONS \ #
# $Z LISTE_RAYON_D_INTERACTION=$xTV/INTERACTIONS \ #
# $Z LISTE_ROUGE=$xTV/COULEURS$ROUGE \ #
# $Z LISTE_VERTE=$xTV/COULEURS$VERTE \ #
# $Z LISTE_BLEUE=$xTV/COULEURS$BLEUE \ #
# $Z milieu=VRAI \ #
# $Z reflexion=VRAI refraction=FAUX \ #
# $Z Mhors=$BLANC \ #
# $Z MNpasX=1 Mprolonger_X=VRAI \ #
# $Z MNpasY=1 Mprolonger_Y=VRAI \ #
# $Z MNpasZ=1 Mprolonger_Z=VRAI \ #
# $Z adapter_M_nPAS=VRAI \ #
# $Z Msimplifier=FAUX affiner_M_maillage=FAUX \ #
# $Z MC=$xTV/BOITE.2 \ #
# $Z MChiffres=0 \ #
# $Z Zmin=0 Zmax=15 \ #
# $Z centrer=VRAI \ #
# $Z dct=0.05 nombre=10 \ #
# $Z trainees=VRAI mode=1 \ #
# $Z attenuation_des_images=0.6 \ #
# $Z attenuation_des_trainees=1.00 \ #
# $Z renormaliser=FAUX \ #
# $Z Lz=100 \ #
# $Z zoom_automatique=VRAI \ #
# $Z centre_de_gravite=FAUX \ #
# $Z fond=FAUX \ #
# $Z R=$xiim/REFL.W. \ #
# $Z $formatI #
# #
# $Z $DELETE $xTV/RAYONS #
# $Z $CP $xTV/INTERACTIONS $xTV/RAYONS #
# #
# $Z $DELETE $xTV/GRAVITE #
# $Z $xrk/rdn_walk.41$X corps=$Npart \ #
# $Z np=$Nimages \ #
# $Z collisions=VRAI DLA=FAUX interaction=$DistanceI \ #
# $Z LISTE_X=$xTV/COORDONNEES$COORD_X \ #
# $Z LISTE_Y=$xTV/COORDONNEES$COORD_Y \ #
# $Z LISTE_Z=$xTV/COORDONNEES$COORD_Z \ #
# $Z LISTE_VX=$xTV/VITESSES$COORD_X \ #
# $Z LISTE_VY=$xTV/VITESSES$COORD_Y \ #
# $Z LISTE_VZ=$xTV/VITESSES$COORD_Z \ #
# $Z LISTE_MINIMUM_DELTA_RHO=$xTV/mdRHO \ #
# $Z LISTE_MAXIMUM_DELTA_RHO=$xTV/MdRHO \ #
# $Z LISTE_MINIMUM_N_PHI=$xTV/mnPHI \ #
# $Z LISTE_MAXIMUM_N_PHI=$xTV/MnPHI \ #
# $Z LISTE_DELTA_PHI=$xTV/dPHI \ #
# $Z LISTE_MINIMUM_N_THETA=$xTV/mnTHETA \ #
# $Z LISTE_MAXIMUM_N_THETA=$xTV/MnTHETA \ #
# $Z LISTE_DELTA_THETA=$xTV/dTHETA \ #
# $Z LISTE_DISTANCE_MAXIMALE=$xTV/DISTANCE \ #
# $Z LISTE_STABILITE=$xTV/STABILITE \ #
# $Z LISTE_RAYON=$xTV/RAYONS \ #
# $Z LISTE_RAYON_D_INTERACTION=$xTV/INTERACTIONS \ #
# $Z LISTE_ROUGE=$xTV/COULEURS$ROUGE \ #
# $Z LISTE_VERTE=$xTV/COULEURS$VERTE \ #
# $Z LISTE_BLEUE=$xTV/COULEURS$BLEUE \ #
# $Z milieu=VRAI \ #
# $Z reflexion=VRAI refraction=FAUX \ #
# $Z Mhors=$BLANC \ #
# $Z MNpasX=1 Mprolonger_X=VRAI \ #
# $Z MNpasY=1 Mprolonger_Y=VRAI \ #
# $Z MNpasZ=1 Mprolonger_Z=VRAI \ #
# $Z adapter_M_nPAS=VRAI \ #
# $Z Msimplifier=FAUX affiner_M_maillage=FAUX \ #
# $Z MC=$xTV/BOITE.2 \ #
# $Z MChiffres=0 \ #
# $Z Zmin=0 Zmax=15 \ #
# $Z centrer=VRAI \ #
# $Z dct=0.05 nombre=10 \ #
# $Z trainees=VRAI mode=1 \ #
# $Z attenuation_des_images=1.0 \ #
# $Z attenuation_des_trainees=0.80 \ #
# $Z renormaliser=FAUX \ #
# $Z Lz=100 \ #
# $Z zoom_automatique=VRAI \ #
# $Z centre_de_gravite=VRAI \ #
# $Z fond=VRAI \ #
# $Z dynamique=VRAI \ #
# $Z F=$xiim/REFL.W. \ #
# $Z R=$xiim/REFL.W. \ #
# $Z $formatI | \ #
# $Z $GRE " CENTRE_DE_GRAVITE=" \ #
# $Z > $xTV/GRAVITE #
# #
# $Z $DELETE $xTV/COORDONNEES #
# $Z $DELETE $xTV/COORDONNEES$COORD_X #
# $Z $DELETE $xTV/COORDONNEES$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_Z #
# $Z $DELETE $xTV/VITESSES #
# $Z $DELETE $xTV/VITESSES$COORD_X #
# $Z $DELETE $xTV/VITESSES$COORD_Y #
# $Z $DELETE $xTV/VITESSES$COORD_Z #
# $Z $DELETE $xTV/mdRHO #
# $Z $DELETE $xTV/MdRHO #
# $Z $DELETE $xTV/mnPHI #
# $Z $DELETE $xTV/MnPHI #
# $Z $DELETE $xTV/dPHI #
# $Z $DELETE $xTV/mnTHETA #
# $Z $DELETE $xTV/MnTHETA #
# $Z $DELETE $xTV/dTHETA #
# $Z $DELETE $xTV/DISTANCE #
# $Z $DELETE $xTV/STABILITE #
# $Z $DELETE $xTV/RAYONS #
# $Z $DELETE $xTV/INTERACTIONS #
# $Z $DELETE $xTV/COULEURS$TEINT #
# $Z $DELETE $xTV/COULEURS$LUMIN #
# $Z $DELETE $xTV/COULEURS$SATUR #
# $Z $DELETE $xTV/COULEURS$Y #
# $Z $DELETE $xTV/COULEURS #
# $Z $DELETE $xTV/COULEURS$ROUGE #
# $Z $DELETE $xTV/COULEURS$VERTE #
# $Z $DELETE $xTV/COULEURS$BLEUE #
# #
# $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("$DELETE $xTV/COORDONNEES\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_X\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_Y\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_Z\n"); #
# #
# $c printf("$DELETE $xTV/COULEURS$ROUGE\n"); #
# $c printf("$DELETE $xTV/COULEURS$VERTE\n"); #
# $c printf("$DELETE $xTV/COULEURS$BLEUE\n"); #
# #
# $c printf("listMN $xTV/GRAVITE #
# $c %d %d #
# $c > $xTV/COORDONNEES\n" #
# $c ,N0,n #
# $c ); #
# #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*[(,]XG=//%c #
# $c -e %cs/[,)].*//%c #
# $c > $xTV/COORDONNEES$COORD_X\n" #
# $c ,'"','"','"','"' #
# $c ); #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*[(,]YG=//%c #
# $c -e %cs/[,)].*//%c #
# $c > $xTV/COORDONNEES$COORD_Y\n" #
# $c ,'"','"','"','"' #
# $c ); #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*[(,]ZG=//%c #
# $c -e %cs/[,)].*//%c #
# $c > $xTV/COORDONNEES$COORD_Z\n" #
# $c ,'"','"','"','"' #
# $c ); #
# #
# $c printf("$xci/valeurs_inte$X #
# $c premiere=%d derniere=%d #
# $c vD=$GRIS_5 vA=$GRIS_5 #
# $c cubique=FAUX #
# $c entiers=VRAI #
# $c utiliser_la_valeur_de_depart=FAUX #
# $c > $xTV/COULEURS$ROUGE\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/valeurs_inte$X #
# $c premiere=%d derniere=%d #
# $c vD=$GRIS_5 vA=$GRIS_5 #
# $c cubique=FAUX #
# $c entiers=VRAI #
# $c utiliser_la_valeur_de_depart=FAUX #
# $c > $xTV/COULEURS$VERTE\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/valeurs_inte$X #
# $c premiere=%d derniere=%d #
# $c vD=$GRIS_5 vA=$GRIS_5 #
# $c cubique=FAUX #
# $c entiers=VRAI #
# $c utiliser_la_valeur_de_depart=FAUX #
# $c > $xTV/COULEURS$BLEUE\n" #
# $c ,N0,n #
# $c ); #
# #
# $c printf("$xrv/particule.10$X #
# $c np=1 #
# $c iterations=%d #
# $c LISTE_X=$xTV/COORDONNEES$COORD_X #
# $c LISTE_Y=$xTV/COORDONNEES$COORD_Y #
# $c LISTE_Z=$xTV/COORDONNEES$COORD_Z #
# $c LISTE_ROUGE=$xTV/COULEURS$ROUGE #
# $c LISTE_VERTE=$xTV/COULEURS$VERTE #
# $c LISTE_BLEUE=$xTV/COULEURS$BLEUE #
# $c LISTE_RAYON=0.006 #
# $c zoom_automatique=FAUX ZOOM=1.0 #
# $c coordonnees_dans_0_1=FAUX #
# $c AXYZ=1 BXYZ=0 #
# $c fond=VRAI #
# $c fond_dynamique=FAUX #
# $c F=$xiim/REFL.W.%04d #
# $c R=$xTV/REFL.A. #
# $c $formatI\n" #
# $c ,(n-N0)+1,n #
# $c ); #
# #
# $c printf("$xci/acces$X #
# $c A=$xTV/REFL.A.%04d$ROUGE #
# $c R=$xiim/REFL.W.%04d$ROUGE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xTV/REFL.A.%04d$VERTE #
# $c R=$xiim/REFL.W.%04d$VERTE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xTV/REFL.A.%04d$BLEUE #
# $c R=$xiim/REFL.W.%04d$BLEUE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# #
# $c printf("$DELETE $xTV/COORDONNEES\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_X\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_Y\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_Z\n"); #
# #
# $c printf("$DELETE $xTV/COULEURS$ROUGE\n"); #
# $c printf("$DELETE $xTV/COULEURS$VERTE\n"); #
# $c printf("$DELETE $xTV/COULEURS$BLEUE\n"); #
# #
# $c printf("listMN $xTV/GRAVITE #
# $c %d %d #
# $c > $xTV/COORDONNEES\n" #
# $c ,n,n #
# $c ); #
# #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*[(,]XG=//%c #
# $c -e %cs/[,)].*//%c #
# $c > $xTV/COORDONNEES$COORD_X\n" #
# $c ,'"','"','"','"' #
# $c ); #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*[(,]YG=//%c #
# $c -e %cs/[,)].*//%c #
# $c > $xTV/COORDONNEES$COORD_Y\n" #
# $c ,'"','"','"','"' #
# $c ); #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*[(,]ZG=//%c #
# $c -e %cs/[,)].*//%c #
# $c > $xTV/COORDONNEES$COORD_Z\n" #
# $c ,'"','"','"','"' #
# $c ); #
# #
# $c printf("$xci/valeurs_inte$X #
# $c premiere=%d derniere=%d #
# $c vD=$GRIS_8 vA=$GRIS_8 #
# $c cubique=FAUX #
# $c entiers=VRAI #
# $c utiliser_la_valeur_de_depart=FAUX #
# $c > $xTV/COULEURS$ROUGE\n" #
# $c ,n,n #
# $c ); #
# $c printf("$xci/valeurs_inte$X #
# $c premiere=%d derniere=%d #
# $c vD=$GRIS_8 vA=$GRIS_8 #
# $c cubique=FAUX #
# $c entiers=VRAI #
# $c utiliser_la_valeur_de_depart=FAUX #
# $c > $xTV/COULEURS$VERTE\n" #
# $c ,n,n #
# $c ); #
# $c printf("$xci/valeurs_inte$X #
# $c premiere=%d derniere=%d #
# $c vD=$GRIS_8 vA=$GRIS_8 #
# $c cubique=FAUX #
# $c entiers=VRAI #
# $c utiliser_la_valeur_de_depart=FAUX #
# $c > $xTV/COULEURS$BLEUE\n" #
# $c ,n,n #
# $c ); #
# #
# $c printf("$xrv/particule.10$X #
# $c np=1 #
# $c iterations=%d #
# $c LISTE_X=$xTV/COORDONNEES$COORD_X #
# $c LISTE_Y=$xTV/COORDONNEES$COORD_Y #
# $c LISTE_Z=$xTV/COORDONNEES$COORD_Z #
# $c LISTE_ROUGE=$xTV/COULEURS$ROUGE #
# $c LISTE_VERTE=$xTV/COULEURS$VERTE #
# $c LISTE_BLEUE=$xTV/COULEURS$BLEUE #
# $c LISTE_RAYON=0.012 #
# $c zoom_automatique=FAUX ZOOM=1.0 #
# $c coordonnees_dans_0_1=FAUX #
# $c AXYZ=1 BXYZ=0 #
# $c fond=VRAI #
# $c fond_dynamique=FAUX #
# $c F=$xiim/REFL.W.%04d #
# $c R=$xTV/REFL.B. #
# $c $formatI\n" #
# $c ,(n-n)+1,n #
# $c ); #
# #
# $c printf("$xci/acces$X #
# $c A=$xTV/REFL.B.%04d$ROUGE #
# $c R=$xiim/REFL.W.%04d$ROUGE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xTV/REFL.B.%04d$VERTE #
# $c R=$xiim/REFL.W.%04d$VERTE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xTV/REFL.B.%04d$BLEUE #
# $c R=$xiim/REFL.W.%04d$BLEUE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# $c } #
# $c } #
# #
# #
# $Z $DELETE $xTV/COORDONNEES #
# $Z $DELETE $xTV/COORDONNEES$COORD_X #
# $Z $DELETE $xTV/COORDONNEES$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_Z #
# $Z $DELETE $xTV/COULEURS$ROUGE #
# $Z $DELETE $xTV/COULEURS$VERTE #
# $Z $DELETE $xTV/COULEURS$BLEUE #
# #
# #
# #
# $Z $xci/complement$X A=$xTV/BOITE.1 \ #
# $Z R=$xTV/BOITE.3 \ #
# $Z $formatI #
# #
# $Z eval `$xci/genere$X \\\ #
# $Z commande='($xci/scale$X \\\ #
# $Z A=$xTV/BOITE.3 \\\ #
# $Z a=0.50 \\\ #
# $Z R=$xTV/BOITE.3%s \\\ #
# $Z $formatI)' \\\ #
# $Z en_tete=FAUX RVB=VRAI separateur=VRAI` #
# #
# #
# $X $xci/genere$X premiere=$Premiere derniere=$Derniere pas=1 \ #
# $X C='$xci/cache.11$Z \ #
# $X $xiim/REFL.W.%04d \ #
# $X $xTV/BOITE.3 \ #
# $X $xiim/REFL.R.%04d' #
# #
# $Z $DELETE $xTV/BOITE.1 #
# $Z $DELETE $xTV/BOITE.2 #
# $Z $DELETE $xTV/BOITE.3 #
# $Z $DELETE $xTV/BOITE.3$ROUGE #
# $Z $DELETE $xTV/BOITE.3$VERTE #
# $Z $DELETE $xTV/BOITE.3$BLEUE #
# #
# $Z Pal #
# #
# $Z $xci/reduction_16$Z $xiim/REFL.R. $xiak/REFL.M8 $Premiere $Derniere #
# $Z $xci/reduction_64$Z $xiim/REFL.R. $xiak/REFL.M8 $Premiere $Derniere #
# #
# $X $xci/genere$X c='ro $xiak/REFL.M8$R16%s' RVB=VRAI #
# $X $xci/genere$X c='ro $xiak/REFL.M8$R64%s' RVB=VRAI #
# #
# $X $xci/genere$X c='$xcg/unite$Z $xiak/REFL.M8$R16%s' RVB=VRAI #
# $X $xci/genere$X c='$xcg/unite$Z $xiak/REFL.M8$R64%s' RVB=VRAI #
# #
# $X $xci/genere$X c='$CP $xiim/REFL.R.0512%s $xiirk/REFL.M8.0512%s' RVB=VRAI #
# #
# $X $xci/genere$X c='ro $xiirk/REFL.M8.0512%s' RVB=VRAI #
# #
# $X $xci/genere$X c='$xcg/unite$Z $xiirk/REFL.M8.0512%s' RVB=VRAI #
# #
# #
# Pal #
# #
# #
# $xci/disk_video_P$Z $xiim_LACT29/REFL.R. 001 512 RVB \ #
# 11 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
# #
# xivPdf 3 2 #
# #
# record.01$Z $xiak/REFL.M8$R16 RVB Initialisation #
# record.01$Z $xiak/REFL.M8$R64 RVB rien #
# record.01$Z $xiirk/REFL.M8.0512 RVB rien #
# #
# #
# ATTENTION, cette sequence est la nouvelle version de la sequence : #
# #
# xivPdf 11 2 / 007169_007680 #
# #
# qui utilise les memes choix initiaux que pour la sequence : #
# #
# xivPdf 11 2 / 010241_010752 #
# #
# en ce qui concerne la couleur des particules... #
# #
# #
# 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 021682_021809
# Generee (sur '$LACT29') par : #
# #
# $Z SET Premiere=1 #
# $Z SET Derniere=128 #
# $Z @ Nimages = $Derniere - $Premiere #
# $Z @ Nimages = $Nimages + 1 #
# $Z @ Moitie = $Nimages / 2 #
# #
# #
# $Z Pal #
# #
# #
# $Z $DELETE $xTV/COORDONNEES_01$COORD_X #
# $Z $DELETE $xTV/COORDONNEES_01$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_X #
# $Z $DELETE $xTV/COORDONNEES$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_Z #
# #
# $Z alias GenL 'set Fi=\!:1 ; set LiStE=(\!:2*) ; \\ #
# $Z $DELETE $Fi ; \\ #
# $Z echo "$LiStE" | $R "$K_BLANC" "$K_NL" > $Fi ; \\ #
# $Z unset Fi LiStE' #
# #
# #
# $Z set Echelle=2.0 #
# $Z set Translation=-1 #
# $Z set EchelleX=$Echelle #
# $Z set TranslationX=$Translation #
# $Z set EchelleY=$Echelle #
# $Z set TranslationY=$Translation #
# #
# $Z set PasDeTemps=0.05 #
# $Z set NPasDeTemps=10 #
# $Z set ModuleVitesse=0.014 #
# #
# $Z set RayonsT=`$xcg/MUL2.01$X n1=$NPasDeTemps n2=$PasDeTemps` #
# $Z set RayonsT=`$xcg/MUL2.01$X n1=$ModuleVitesse n2=$RayonsT` #
# $Z set RayonsT=`$xcg/MUL2.01$X n1=12 n2=$RayonsT` #
# $Z set RayonsV=`$xcg/MUL2.01$X n1=1.15 n2=$RayonsT` #
# $Z set RayonsP=`$xcg/MUL2.01$X n1=2 n2=$RayonsT` #
# $Z set DistanceI=`$xcg/MUL2.01$X n1=4 n2=$RayonsP` #
# #
# $Z set Distance=`$xcg/MUL2.01$X n1=$NPasDeTemps n2=$PasDeTemps` #
# $Z set Distance=`$xcg/MUL2.01$X n1=$ModuleVitesse n2=$Distance` #
# $Z set Distance=`$xcg/MUL2.01$X n1=$Moitie n2=$Distance` #
# $Z set RayonsD=`$xcg/DIVZ.01$X n1=$RayonsT n2=$Echelle` #
# $Z set Distance=`$xcg/ADD2.01$X n1=$Distance n2=$RayonsD` #
# $Z set Distance=`$xcg/ADD2.01$X n1=$Distance n2=$RayonsD` #
# #
# $Z set ModuleVitesse=`$xcg/MUL2.01$X n1=$Echelle n2=$ModuleVitesse` #
# #
# $Z set Centre=0.5 #
# $Z set Gauche=`$xcg/SOUS.01$X n1=$Centre n2=$Distance` #
# $Z set Droite=`$xcg/ADD2.01$X n1=$Centre n2=0` #
# #
# $Z GenL $xTV/COORDONNEES_01$COORD_X $Gauche $Droite #
# $Z GenL $xTV/COORDONNEES_01$COORD_Y $Centre $Centre #
# #
# $Z set PartNX=`$WC $xTV/COORDONNEES_01$COORD_X` #
# $Z set PartNX=$PartNX[$WC1] #
# $Z set PartNY=`$WC $xTV/COORDONNEES_01$COORD_Y` #
# $Z set PartNY=$PartNY[$WC1] #
# $Z set PartN=`$xcg/MIN2.01$X n1=$PartNX n2=$PartNY signe="$K_VIDE"` #
# #
# $Z $xrv/AXPB.01$X \ #
# $Z CAL1=FAUX \ #
# $Z ne=$PartN \ #
# $Z fichier=$xTV/COORDONNEES_01$COORD_X \ #
# $Z homothetie=$EchelleX translation=$TranslationX \ #
# $Z > $xTV/COORDONNEES$COORD_X #
# $Z $xrv/AXPB.01$X \ #
# $Z CAL1=FAUX \ #
# $Z ne=$PartN \ #
# $Z fichier=$xTV/COORDONNEES_01$COORD_Y \ #
# $Z homothetie=$EchelleY translation=$TranslationY \ #
# $Z > $xTV/COORDONNEES$COORD_Y #
# #
# $Z $DELETE $xTV/COORDONNEES_01$COORD_X #
# $Z $DELETE $xTV/COORDONNEES_01$COORD_Y #
# #
# #
# $Z set Part0=1 #
# $Z @ Npart = $PartN - $Part0 #
# $Z @ Npart = $Npart + 1 #
# #
# $Z $DELETE $xTV/MODULE #
# $Z $DELETE $xTV/THETA #
# $Z $DELETE $xTV/XY_RT.1 #
# $Z $DELETE $xTV/XY_RT.2 #
# $Z $DELETE $xTV/VITESSES #
# $Z $DELETE $xTV/VITESSES$COORD_X #
# $Z $DELETE $xTV/VITESSES$COORD_Y #
# $Z $DELETE $xTV/VITESSES$COORD_Z #
# $Z $DELETE $xTV/mdRHO #
# $Z $DELETE $xTV/MdRHO #
# $Z $DELETE $xTV/mnPHI #
# $Z $DELETE $xTV/MnPHI #
# $Z $DELETE $xTV/dPHI #
# $Z $DELETE $xTV/mnTHETA #
# $Z $DELETE $xTV/MnTHETA #
# $Z $DELETE $xTV/dTHETA #
# $Z $DELETE $xTV/supOUVE #
# $Z $DELETE $xTV/DISTANCE #
# $Z $DELETE $xTV/STABILITE #
# $Z $DELETE $xTV/RAYONS #
# $Z $DELETE $xTV/INTERACTIONS #
# #
# #
# $Z alias Gen 'set Fi=\!:1 ; set vD=\!:2 ; set vA=\!:3 ; set ArG=(\!:4*) ; \\ #
# $Z $DELETE $Fi ; \\ #
# $Z $xci/valeurs_inte$X p=$Part0 d=$PartN vD=$vD vA=$vA $ArG > $Fi ; \\ #
# $Z unset Fi vD vA ArG' #
# #
# $Z alias GenR 'set Fi=\!:1 ; set In=\!:2 ; set Su=\!:3 ; set ArG=(\!:4*) ; \\ #
# $Z $DELETE $Fi ; \\ #
# $Z $xci/valeurs_alea$X p=$Part0 d=$PartN signe="$KV" inf=$In sup=$Su $ArG > $Fi ; \\ #
# $Z unset Fi In Su ArG' #
# #
# $Z Gen $xTV/COORDONNEES$COORD_Z 0.0 0.0 #
# #
# #
# $Z GenL $xTV/MODULE $ModuleVitesse 0.00 #
# $Z GenL $xTV/THETA 0.00 0.00 #
# #
# $Z $CA $xcs/csh$Y \ #
# $Z > $xTV/XY_RT.1 #
# $Z $PAST $xTV/MODULE $xTV/THETA \ #
# $Z | $R "$K_TAB" "$K_BLANC" \ #
# $Z | $AW ' { print "$xcg/XY_RT$X r=" $1 " t=" $2 " cartesien=FAUX" } ' \ #
# $Z >>! $xTV/XY_RT.1 #
# #
# $Z (source $xTV/XY_RT.1) \ #
# $Z > $xTV/XY_RT.2 #
# #
# $Z $CA $xTV/XY_RT.2 \ #
# $Z | $GRE "^x=" \ #
# $Z | $SE -e "s/^x=//" \ #
# $Z > $xTV/VITESSES$COORD_X #
# $Z $CA $xTV/XY_RT.2 \ #
# $Z | $GRE "^y=" \ #
# $Z | $SE -e "s/^y=//" \ #
# $Z > $xTV/VITESSES$COORD_Y #
# #
# $Z Gen $xTV/VITESSES$COORD_Z 0.0 0.0 #
# #
# $Z Gen $xTV/mdRHO 0.0 0.0 #
# $Z Gen $xTV/MdRHO 0.0 0.0 #
# $Z Gen $xTV/mnPHI 0.0 0.0 #
# $Z Gen $xTV/MnPHI 0.0 0.0 #
# $Z Gen $xTV/dPHI 0.0 0.0 #
# $Z Gen $xTV/mnTHETA 0.0 0.0 #
# $Z Gen $xTV/MnTHETA 0.0 0.0 #
# $Z Gen $xTV/dTHETA 0.0 0.0 #
# $Z Gen $xTV/DISTANCE 1000000 1000000 #
# $Z Gen $xTV/STABILITE 1000000 1000000 #
# #
# $Z Gen $xTV/RAYONS $RayonsV $RayonsV #
# $Z Gen $xTV/INTERACTIONS $RayonsP $RayonsP #
# #
# $Z $DELETE $xTV/COULEURS$ROUGE #
# $Z $DELETE $xTV/COULEURS$VERTE #
# $Z $DELETE $xTV/COULEURS$BLEUE #
# #
# $Z Gen $xTV/COULEURS$ROUGE $GRIS_8 $GRIS_0 #
# $Z Gen $xTV/COULEURS$VERTE $GRIS_7 $GRIS_7 #
# $Z Gen $xTV/COULEURS$BLEUE $GRIS_0 $GRIS_8 #
# #
# $Z Pal #
# #
# $Z $DELETE $xTV/LISTE_POINTS #
# $Z $xrk/rdn_walk.41$X corps=$Npart \ #
# $Z np=$Nimages \ #
# $Z collisions=VRAI DLA=FAUX interaction=$DistanceI \ #
# $Z LISTE_X=$xTV/COORDONNEES$COORD_X \ #
# $Z LISTE_Y=$xTV/COORDONNEES$COORD_Y \ #
# $Z LISTE_Z=$xTV/COORDONNEES$COORD_Z \ #
# $Z LISTE_VX=$xTV/VITESSES$COORD_X \ #
# $Z LISTE_VY=$xTV/VITESSES$COORD_Y \ #
# $Z LISTE_VZ=$xTV/VITESSES$COORD_Z \ #
# $Z LISTE_MINIMUM_DELTA_RHO=$xTV/mdRHO \ #
# $Z LISTE_MAXIMUM_DELTA_RHO=$xTV/MdRHO \ #
# $Z LISTE_MINIMUM_N_PHI=$xTV/mnPHI \ #
# $Z LISTE_MAXIMUM_N_PHI=$xTV/MnPHI \ #
# $Z LISTE_DELTA_PHI=$xTV/dPHI \ #
# $Z LISTE_MINIMUM_N_THETA=$xTV/mnTHETA \ #
# $Z LISTE_MAXIMUM_N_THETA=$xTV/MnTHETA \ #
# $Z LISTE_DELTA_THETA=$xTV/dTHETA \ #
# $Z LISTE_DISTANCE_MAXIMALE=$xTV/DISTANCE \ #
# $Z LISTE_STABILITE=$xTV/STABILITE \ #
# $Z LISTE_RAYON=$xTV/RAYONS \ #
# $Z LISTE_RAYON_D_INTERACTION=$xTV/INTERACTIONS \ #
# $Z LISTE_ROUGE=$xTV/COULEURS$ROUGE \ #
# $Z LISTE_VERTE=$xTV/COULEURS$VERTE \ #
# $Z LISTE_BLEUE=$xTV/COULEURS$BLEUE \ #
# $Z milieu=FAUX \ #
# $Z Zmin=0 Zmax=15 \ #
# $Z centrer=VRAI \ #
# $Z dct=$PasDeTemps nombre=$NPasDeTemps \ #
# $Z trainees=FAUX mode=1 \ #
# $Z renormaliser=FAUX \ #
# $Z Lz=100 \ #
# $Z zoom_automatique=VRAI \ #
# $Z lister_les_points=VRAI \ #
# $Z lister_les_points_apres=VRAI \ #
# $Z centre_de_gravite=VRAI \ #
# $Z fond=FAUX \ #
# $Z attenuation_au_bord=0.25 \ #
# $Z R=$xiim/CHOC.W. \ #
# $Z $formatI \ #
# $Z > $xTV/LISTE_POINTS #
# #
# $Z $DELETE $xTV/COORDONNEES$COORD_X #
# $Z $DELETE $xTV/COORDONNEES$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_Z #
# $Z $DELETE $xTV/VITESSES #
# $Z $DELETE $xTV/VITESSES$COORD_X #
# $Z $DELETE $xTV/VITESSES$COORD_Y #
# $Z $DELETE $xTV/VITESSES$COORD_Z #
# $Z $DELETE $xTV/mdRHO #
# $Z $DELETE $xTV/MdRHO #
# $Z $DELETE $xTV/mnPHI #
# $Z $DELETE $xTV/MnPHI #
# $Z $DELETE $xTV/dPHI #
# $Z $DELETE $xTV/mnTHETA #
# $Z $DELETE $xTV/MnTHETA #
# $Z $DELETE $xTV/dTHETA #
# $Z $DELETE $xTV/DISTANCE #
# $Z $DELETE $xTV/STABILITE #
# $Z $DELETE $xTV/RAYONS #
# $Z $DELETE $xTV/INTERACTIONS #
# $Z $DELETE $xTV/COULEURS$TEINT #
# $Z $DELETE $xTV/COULEURS$LUMIN #
# $Z $DELETE $xTV/COULEURS$SATUR #
# $Z $DELETE $xTV/COULEURS$Y #
# $Z $DELETE $xTV/COULEURS #
# $Z $DELETE $xTV/COULEURS$ROUGE #
# $Z $DELETE $xTV/COULEURS$VERTE #
# $Z $DELETE $xTV/COULEURS$BLEUE #
# #
# $Z GenL $xTV/TRANSLATION$COORD_Z 0.0 0.0 +0.02 #
# #
# $Z GenL $xTV/COULEURS$ROUGE $GRIS_8 $GRIS_0 $GRIS_8 #
# $Z GenL $xTV/COULEURS$VERTE $GRIS_7 $GRIS_7 $GRIS_8 #
# $Z GenL $xTV/COULEURS$BLEUE $GRIS_0 $GRIS_8 $GRIS_8 #
# #
# $Z GenL $xTV/RAYONS $RayonsV $RayonsV 0.024 #
# #
# $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("$DELETE $xTV/COORDONNEES\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_X\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_Y\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_Z\n"); #
# #
# $c printf("$CA $xTV/LISTE_POINTS | #
# $c $GRE 'periode=%d ' #
# $c > $xTV/COORDONNEES\n" #
# $c ,n #
# $c ); #
# #
# $c printf("set Particules=`$WC $xTV/COORDONNEES`\n"); #
# $c printf("set Particules=$Particules[$WC1]\n"); #
# #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*[ (,]X[G]*=//%c #
# $c -e %cs/[,) ].*//%c #
# $c > $xTV/COORDONNEES$COORD_X\n" #
# $c ,'"','"','"','"' #
# $c ); #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*[ (,]Y[G]*=//%c #
# $c -e %cs/[,) ].*//%c #
# $c > $xTV/COORDONNEES$COORD_Y\n" #
# $c ,'"','"','"','"' #
# $c ); #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*[ (,]Z[G]*=//%c #
# $c -e %cs/[,) ].*//%c #
# $c > $xTV/COORDONNEES$COORD_Z\n" #
# $c ,'"','"','"','"' #
# $c ); #
# #
# $c printf("$xrv/particule.10$X #
# $c np=1 #
# $c iterations=$Particules #
# $c isoles=VRAI #
# $c LISTE_X=$xTV/COORDONNEES$COORD_X #
# $c LISTE_Y=$xTV/COORDONNEES$COORD_Y #
# $c LISTE_Z=$xTV/COORDONNEES$COORD_Z #
# $c LISTE_tZ=$xTV/TRANSLATION$COORD_Z #
# $c LISTE_ROUGE=$xTV/COULEURS$ROUGE #
# $c LISTE_VERTE=$xTV/COULEURS$VERTE #
# $c LISTE_BLEUE=$xTV/COULEURS$BLEUE #
# $c Ar=0.5 #
# $c LISTE_RAYON=$xTV/RAYONS #
# $c Lz=100 #
# $c zoom_automatique=FAUX ZOOM=1.0 #
# $c coordonnees_dans_0_1=FAUX #
# $c AXYZ=1 BXYZ=0 #
# $c fond=FAUX #
# $c centrer=VRAI #
# $c reference=$Particules #
# $c attenuation_au_bord=0.25 #
# $c R=$xTV/CHOC.B. #
# $c $formatI\n" #
# $c ); #
# #
# $c printf("$xci/acces$X #
# $c A=$xTV/CHOC.B.%04d$ROUGE #
# $c R=$xiim/CHOC.1.%04d$ROUGE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xTV/CHOC.B.%04d$VERTE #
# $c R=$xiim/CHOC.1.%04d$VERTE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xTV/CHOC.B.%04d$BLEUE #
# $c R=$xiim/CHOC.1.%04d$BLEUE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# $c } #
# $c } #
# #
# #
# $Z $DELETE $xTV/LISTE_POINTS #
# $Z $DELETE $xTV/COORDONNEES #
# $Z $DELETE $xTV/COORDONNEES$COORD_X #
# $Z $DELETE $xTV/COORDONNEES$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_Z #
# $Z $DELETE $xTV/TRANSLATION$COORD_Z #
# $Z $DELETE $xTV/RAYONS #
# $Z $DELETE $xTV/COULEURS$ROUGE #
# $Z $DELETE $xTV/COULEURS$VERTE #
# $Z $DELETE $xTV/COULEURS$BLEUE #
# #
# #
# $Z Pal #
# #
# $Z $xci/reduction_16$Z $xiim/CHOC.1. $xiak/CHOC.11 $Premiere $Derniere #
# $Z $xci/reduction_64$Z $xiim/CHOC.1. $xiak/CHOC.11 $Premiere $Derniere #
# #
# $X $xci/genere$X c='ro $xiak/CHOC.11$R16%s' RVB=VRAI #
# $X $xci/genere$X c='ro $xiak/CHOC.11$R64%s' RVB=VRAI #
# #
# $X $xci/genere$X c='$xcg/unite$Z $xiak/CHOC.11$R16%s' RVB=VRAI #
# $X $xci/genere$X c='$xcg/unite$Z $xiak/CHOC.11$R64%s' RVB=VRAI #
# #
# #
# Pal #
# #
# #
# $xci/disk_video_P$Z $xiim_LACT29/CHOC.1. 001 128 RVB \ #
# 11 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
# #
# xivPdf 3 2 #
# #
# record.01$Z $xiak/CHOC.11$R16 RVB Initialisation #
# record.01$Z $xiak/CHOC.11$R64 RVB rien #
# #
sequence 021810_021937
# Generee (sur '$LACT29') par : #
# #
# $Z SET Premiere=1 #
# $Z SET Derniere=128 #
# $Z @ Nimages = $Derniere - $Premiere #
# $Z @ Nimages = $Nimages + 1 #
# $Z @ Moitie = $Nimages / 2 #
# #
# #
# $Z Pal #
# #
# #
# $Z $DELETE $xTV/COORDONNEES_01$COORD_X #
# $Z $DELETE $xTV/COORDONNEES_01$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_X #
# $Z $DELETE $xTV/COORDONNEES$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_Z #
# #
# $Z alias GenL 'set Fi=\!:1 ; set LiStE=(\!:2*) ; \\ #
# $Z $DELETE $Fi ; \\ #
# $Z echo "$LiStE" | $R "$K_BLANC" "$K_NL" > $Fi ; \\ #
# $Z unset Fi LiStE' #
# #
# #
# $Z set Echelle=2.0 #
# $Z set Translation=-1 #
# $Z set EchelleX=$Echelle #
# $Z set TranslationX=$Translation #
# $Z set EchelleY=$Echelle #
# $Z set TranslationY=$Translation #
# #
# $Z set PasDeTemps=0.05 #
# $Z set NPasDeTemps=10 #
# $Z set ModuleVitesse=0.014 #
# #
# $Z set RayonsT=`$xcg/MUL2.01$X n1=$NPasDeTemps n2=$PasDeTemps` #
# $Z set RayonsT=`$xcg/MUL2.01$X n1=$ModuleVitesse n2=$RayonsT` #
# $Z set RayonsT=`$xcg/MUL2.01$X n1=12 n2=$RayonsT` #
# $Z set RayonsV=`$xcg/MUL2.01$X n1=1.15 n2=$RayonsT` #
# $Z set RayonsP=`$xcg/MUL2.01$X n1=2 n2=$RayonsT` #
# $Z set DistanceI=`$xcg/MUL2.01$X n1=4 n2=$RayonsP` #
# #
# $Z set Distance=`$xcg/MUL2.01$X n1=$NPasDeTemps n2=$PasDeTemps` #
# $Z set Distance=`$xcg/MUL2.01$X n1=$ModuleVitesse n2=$Distance` #
# $Z set Distance=`$xcg/MUL2.01$X n1=$Moitie n2=$Distance` #
# $Z set RayonsD=`$xcg/DIVZ.01$X n1=$RayonsT n2=$Echelle` #
# $Z set Distance=`$xcg/ADD2.01$X n1=$Distance n2=$RayonsD` #
# $Z set Distance=`$xcg/ADD2.01$X n1=$Distance n2=$RayonsD` #
# #
# $Z set ModuleVitesse=`$xcg/MUL2.01$X n1=$Echelle n2=$ModuleVitesse` #
# #
# $Z set Centre=0.5 #
# $Z set Gauche=`$xcg/SOUS.01$X n1=$Centre n2=$Distance` #
# $Z set Droite=`$xcg/ADD2.01$X n1=$Centre n2=0` #
# #
# $Z GenL $xTV/COORDONNEES_01$COORD_X $Gauche $Droite #
# $Z GenL $xTV/COORDONNEES_01$COORD_Y $Centre $Centre #
# #
# $Z set PartNX=`$WC $xTV/COORDONNEES_01$COORD_X` #
# $Z set PartNX=$PartNX[$WC1] #
# $Z set PartNY=`$WC $xTV/COORDONNEES_01$COORD_Y` #
# $Z set PartNY=$PartNY[$WC1] #
# $Z set PartN=`$xcg/MIN2.01$X n1=$PartNX n2=$PartNY signe="$K_VIDE"` #
# #
# $Z $xrv/AXPB.01$X \ #
# $Z CAL1=FAUX \ #
# $Z ne=$PartN \ #
# $Z fichier=$xTV/COORDONNEES_01$COORD_X \ #
# $Z homothetie=$EchelleX translation=$TranslationX \ #
# $Z > $xTV/COORDONNEES$COORD_X #
# $Z $xrv/AXPB.01$X \ #
# $Z CAL1=FAUX \ #
# $Z ne=$PartN \ #
# $Z fichier=$xTV/COORDONNEES_01$COORD_Y \ #
# $Z homothetie=$EchelleY translation=$TranslationY \ #
# $Z > $xTV/COORDONNEES$COORD_Y #
# #
# $Z $DELETE $xTV/COORDONNEES_01$COORD_X #
# $Z $DELETE $xTV/COORDONNEES_01$COORD_Y #
# #
# #
# $Z set Part0=1 #
# $Z @ Npart = $PartN - $Part0 #
# $Z @ Npart = $Npart + 1 #
# #
# $Z $DELETE $xTV/MODULE #
# $Z $DELETE $xTV/THETA #
# $Z $DELETE $xTV/XY_RT.1 #
# $Z $DELETE $xTV/XY_RT.2 #
# $Z $DELETE $xTV/VITESSES #
# $Z $DELETE $xTV/VITESSES$COORD_X #
# $Z $DELETE $xTV/VITESSES$COORD_Y #
# $Z $DELETE $xTV/VITESSES$COORD_Z #
# $Z $DELETE $xTV/mdRHO #
# $Z $DELETE $xTV/MdRHO #
# $Z $DELETE $xTV/mnPHI #
# $Z $DELETE $xTV/MnPHI #
# $Z $DELETE $xTV/dPHI #
# $Z $DELETE $xTV/mnTHETA #
# $Z $DELETE $xTV/MnTHETA #
# $Z $DELETE $xTV/dTHETA #
# $Z $DELETE $xTV/supOUVE #
# $Z $DELETE $xTV/DISTANCE #
# $Z $DELETE $xTV/STABILITE #
# $Z $DELETE $xTV/RAYONS #
# $Z $DELETE $xTV/INTERACTIONS #
# #
# #
# $Z alias Gen 'set Fi=\!:1 ; set vD=\!:2 ; set vA=\!:3 ; set ArG=(\!:4*) ; \\ #
# $Z $DELETE $Fi ; \\ #
# $Z $xci/valeurs_inte$X p=$Part0 d=$PartN vD=$vD vA=$vA $ArG > $Fi ; \\ #
# $Z unset Fi vD vA ArG' #
# #
# $Z alias GenR 'set Fi=\!:1 ; set In=\!:2 ; set Su=\!:3 ; set ArG=(\!:4*) ; \\ #
# $Z $DELETE $Fi ; \\ #
# $Z $xci/valeurs_alea$X p=$Part0 d=$PartN signe="$KV" inf=$In sup=$Su $ArG > $Fi ; \\ #
# $Z unset Fi In Su ArG' #
# #
# $Z Gen $xTV/COORDONNEES$COORD_Z 0.0 0.0 #
# #
# #
# $Z GenL $xTV/MODULE $ModuleVitesse 0.00 #
# $Z GenL $xTV/THETA 0.00 0.00 #
# #
# $Z $CA $xcs/csh$Y \ #
# $Z > $xTV/XY_RT.1 #
# $Z $PAST $xTV/MODULE $xTV/THETA \ #
# $Z | $R "$K_TAB" "$K_BLANC" \ #
# $Z | $AW ' { print "$xcg/XY_RT$X r=" $1 " t=" $2 " cartesien=FAUX" } ' \ #
# $Z >>! $xTV/XY_RT.1 #
# #
# $Z (source $xTV/XY_RT.1) \ #
# $Z > $xTV/XY_RT.2 #
# #
# $Z $CA $xTV/XY_RT.2 \ #
# $Z | $GRE "^x=" \ #
# $Z | $SE -e "s/^x=//" \ #
# $Z > $xTV/VITESSES$COORD_X #
# $Z $CA $xTV/XY_RT.2 \ #
# $Z | $GRE "^y=" \ #
# $Z | $SE -e "s/^y=//" \ #
# $Z > $xTV/VITESSES$COORD_Y #
# #
# $Z Gen $xTV/VITESSES$COORD_Z 0.0 0.0 #
# #
# $Z Gen $xTV/mdRHO 0.0 0.0 #
# $Z Gen $xTV/MdRHO 0.0 0.0 #
# $Z Gen $xTV/mnPHI 0.0 0.0 #
# $Z Gen $xTV/MnPHI 0.0 0.0 #
# $Z Gen $xTV/dPHI 0.0 0.0 #
# $Z Gen $xTV/mnTHETA 0.0 0.0 #
# $Z Gen $xTV/MnTHETA 0.0 0.0 #
# $Z Gen $xTV/dTHETA 0.0 0.0 #
# $Z Gen $xTV/DISTANCE 1000000 1000000 #
# $Z Gen $xTV/STABILITE 1000000 1000000 #
# #
# $Z Gen $xTV/RAYONS $RayonsV $RayonsV #
# $Z Gen $xTV/INTERACTIONS $RayonsP $RayonsP #
# #
# $Z $DELETE $xTV/COULEURS$ROUGE #
# $Z $DELETE $xTV/COULEURS$VERTE #
# $Z $DELETE $xTV/COULEURS$BLEUE #
# #
# $Z Gen $xTV/COULEURS$ROUGE $GRIS_8 $GRIS_0 #
# $Z Gen $xTV/COULEURS$VERTE $GRIS_7 $GRIS_7 #
# $Z Gen $xTV/COULEURS$BLEUE $GRIS_0 $GRIS_8 #
# #
# $Z Pal #
# #
# $Z $DELETE $xTV/LISTE_POINTS #
# $Z $xrk/rdn_walk.41$X corps=$Npart \ #
# $Z np=$Nimages \ #
# $Z collisions=VRAI DLA=FAUX interaction=$DistanceI \ #
# $Z LISTE_X=$xTV/COORDONNEES$COORD_X \ #
# $Z LISTE_Y=$xTV/COORDONNEES$COORD_Y \ #
# $Z LISTE_Z=$xTV/COORDONNEES$COORD_Z \ #
# $Z LISTE_VX=$xTV/VITESSES$COORD_X \ #
# $Z LISTE_VY=$xTV/VITESSES$COORD_Y \ #
# $Z LISTE_VZ=$xTV/VITESSES$COORD_Z \ #
# $Z LISTE_MINIMUM_DELTA_RHO=$xTV/mdRHO \ #
# $Z LISTE_MAXIMUM_DELTA_RHO=$xTV/MdRHO \ #
# $Z LISTE_MINIMUM_N_PHI=$xTV/mnPHI \ #
# $Z LISTE_MAXIMUM_N_PHI=$xTV/MnPHI \ #
# $Z LISTE_DELTA_PHI=$xTV/dPHI \ #
# $Z LISTE_MINIMUM_N_THETA=$xTV/mnTHETA \ #
# $Z LISTE_MAXIMUM_N_THETA=$xTV/MnTHETA \ #
# $Z LISTE_DELTA_THETA=$xTV/dTHETA \ #
# $Z LISTE_DISTANCE_MAXIMALE=$xTV/DISTANCE \ #
# $Z LISTE_STABILITE=$xTV/STABILITE \ #
# $Z LISTE_RAYON=$xTV/RAYONS \ #
# $Z LISTE_RAYON_D_INTERACTION=$xTV/INTERACTIONS \ #
# $Z LISTE_ROUGE=$xTV/COULEURS$ROUGE \ #
# $Z LISTE_VERTE=$xTV/COULEURS$VERTE \ #
# $Z LISTE_BLEUE=$xTV/COULEURS$BLEUE \ #
# $Z milieu=FAUX \ #
# $Z Zmin=0 Zmax=15 \ #
# $Z centrer=VRAI \ #
# $Z dct=$PasDeTemps nombre=$NPasDeTemps \ #
# $Z trainees=FAUX mode=1 \ #
# $Z renormaliser=FAUX \ #
# $Z Lz=100 \ #
# $Z zoom_automatique=VRAI \ #
# $Z lister_les_points=VRAI \ #
# $Z lister_les_points_apres=VRAI \ #
# $Z centre_de_gravite=VRAI \ #
# $Z fond=FAUX \ #
# $Z attenuation_au_bord=0.25 \ #
# $Z R=$xiim/CHOC.W. \ #
# $Z $formatI \ #
# $Z > $xTV/LISTE_POINTS #
# #
# $Z $DELETE $xTV/COORDONNEES$COORD_X #
# $Z $DELETE $xTV/COORDONNEES$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_Z #
# $Z $DELETE $xTV/VITESSES #
# $Z $DELETE $xTV/VITESSES$COORD_X #
# $Z $DELETE $xTV/VITESSES$COORD_Y #
# $Z $DELETE $xTV/VITESSES$COORD_Z #
# $Z $DELETE $xTV/mdRHO #
# $Z $DELETE $xTV/MdRHO #
# $Z $DELETE $xTV/mnPHI #
# $Z $DELETE $xTV/MnPHI #
# $Z $DELETE $xTV/dPHI #
# $Z $DELETE $xTV/mnTHETA #
# $Z $DELETE $xTV/MnTHETA #
# $Z $DELETE $xTV/dTHETA #
# $Z $DELETE $xTV/DISTANCE #
# $Z $DELETE $xTV/STABILITE #
# $Z $DELETE $xTV/RAYONS #
# $Z $DELETE $xTV/INTERACTIONS #
# $Z $DELETE $xTV/COULEURS$TEINT #
# $Z $DELETE $xTV/COULEURS$LUMIN #
# $Z $DELETE $xTV/COULEURS$SATUR #
# $Z $DELETE $xTV/COULEURS$Y #
# $Z $DELETE $xTV/COULEURS #
# $Z $DELETE $xTV/COULEURS$ROUGE #
# $Z $DELETE $xTV/COULEURS$VERTE #
# $Z $DELETE $xTV/COULEURS$BLEUE #
# #
# $Z GenL $xTV/TRANSLATION$COORD_Z 0.0 0.0 +0.02 #
# #
# $Z GenL $xTV/COULEURS$ROUGE $GRIS_8 $GRIS_0 $GRIS_8 #
# $Z GenL $xTV/COULEURS$VERTE $GRIS_7 $GRIS_7 $GRIS_8 #
# $Z GenL $xTV/COULEURS$BLEUE $GRIS_0 $GRIS_8 $GRIS_8 #
# #
# $Z GenL $xTV/RAYONS $RayonsV $RayonsV 0.024 #
# #
# $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("$DELETE $xTV/COORDONNEES\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_X\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_Y\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_Z\n"); #
# #
# $c printf("$CA $xTV/LISTE_POINTS | #
# $c $GRE 'periode=%d ' #
# $c > $xTV/COORDONNEES\n" #
# $c ,n #
# $c ); #
# #
# $c printf("set Particules=`$WC $xTV/COORDONNEES`\n"); #
# $c printf("set Particules=$Particules[$WC1]\n"); #
# #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*[ (,]X[G]*=//%c #
# $c -e %cs/[,) ].*//%c #
# $c > $xTV/COORDONNEES$COORD_X\n" #
# $c ,'"','"','"','"' #
# $c ); #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*[ (,]Y[G]*=//%c #
# $c -e %cs/[,) ].*//%c #
# $c > $xTV/COORDONNEES$COORD_Y\n" #
# $c ,'"','"','"','"' #
# $c ); #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*[ (,]Z[G]*=//%c #
# $c -e %cs/[,) ].*//%c #
# $c > $xTV/COORDONNEES$COORD_Z\n" #
# $c ,'"','"','"','"' #
# $c ); #
# #
# $c printf("$xrv/particule.10$X #
# $c np=1 #
# $c iterations=$Particules #
# $c isoles=VRAI #
# $c LISTE_X=$xTV/COORDONNEES$COORD_X #
# $c LISTE_Y=$xTV/COORDONNEES$COORD_Y #
# $c LISTE_Z=$xTV/COORDONNEES$COORD_Z #
# $c LISTE_tZ=$xTV/TRANSLATION$COORD_Z #
# $c LISTE_ROUGE=$xTV/COULEURS$ROUGE #
# $c LISTE_VERTE=$xTV/COULEURS$VERTE #
# $c LISTE_BLEUE=$xTV/COULEURS$BLEUE #
# $c Ar=0.5 #
# $c LISTE_RAYON=$xTV/RAYONS #
# $c Lz=100 #
# $c zoom_automatique=FAUX ZOOM=1.0 #
# $c coordonnees_dans_0_1=FAUX #
# $c AXYZ=1 BXYZ=$Centre #
# $c fond=FAUX #
# $c centrer=FAUX #
# $c reference=$Particules #
# $c attenuation_au_bord=0.25 #
# $c R=$xTV/CHOC.B. #
# $c $formatI\n" #
# $c ); #
# #
# $c printf("$xci/acces$X #
# $c A=$xTV/CHOC.B.%04d$ROUGE #
# $c R=$xiim/CHOC.2.%04d$ROUGE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xTV/CHOC.B.%04d$VERTE #
# $c R=$xiim/CHOC.2.%04d$VERTE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xTV/CHOC.B.%04d$BLEUE #
# $c R=$xiim/CHOC.2.%04d$BLEUE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# $c } #
# $c } #
# #
# #
# $Z $DELETE $xTV/LISTE_POINTS #
# $Z $DELETE $xTV/COORDONNEES #
# $Z $DELETE $xTV/COORDONNEES$COORD_X #
# $Z $DELETE $xTV/COORDONNEES$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_Z #
# $Z $DELETE $xTV/TRANSLATION$COORD_Z #
# $Z $DELETE $xTV/RAYONS #
# $Z $DELETE $xTV/COULEURS$ROUGE #
# $Z $DELETE $xTV/COULEURS$VERTE #
# $Z $DELETE $xTV/COULEURS$BLEUE #
# #
# #
# $Z Pal #
# #
# $Z $xci/reduction_16$Z $xiim/CHOC.2. $xiak/CHOC.12 $Premiere $Derniere #
# $Z $xci/reduction_64$Z $xiim/CHOC.2. $xiak/CHOC.12 $Premiere $Derniere #
# #
# $X $xci/genere$X c='ro $xiak/CHOC.12$R16%s' RVB=VRAI #
# $X $xci/genere$X c='ro $xiak/CHOC.12$R64%s' RVB=VRAI #
# #
# $X $xci/genere$X c='$xcg/unite$Z $xiak/CHOC.12$R16%s' RVB=VRAI #
# $X $xci/genere$X c='$xcg/unite$Z $xiak/CHOC.12$R64%s' RVB=VRAI #
# #
# #
# Pal #
# #
# #
# $xci/disk_video_P$Z $xiim_LACT29/CHOC.2. 001 128 RVB \ #
# 11 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
# #
# xivPdf 3 2 #
# #
# record.01$Z $xiak/CHOC.12$R16 RVB Initialisation #
# record.01$Z $xiak/CHOC.12$R64 RVB rien #
# #
sequence 021938_022065
# Generee (sur '$LACT29') par : #
# #
# $Z SET Premiere=1 #
# $Z SET Derniere=128 #
# $Z @ Nimages = $Derniere - $Premiere #
# $Z @ Nimages = $Nimages + 1 #
# $Z @ Moitie = $Nimages / 2 #
# #
# #
# $Z Pal #
# #
# #
# $Z $DELETE $xTV/COORDONNEES_01$COORD_X #
# $Z $DELETE $xTV/COORDONNEES_01$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_X #
# $Z $DELETE $xTV/COORDONNEES$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_Z #
# #
# $Z alias GenL 'set Fi=\!:1 ; set LiStE=(\!:2*) ; \\ #
# $Z $DELETE $Fi ; \\ #
# $Z echo "$LiStE" | $R "$K_BLANC" "$K_NL" > $Fi ; \\ #
# $Z unset Fi LiStE' #
# #
# #
# $Z set Echelle=2.0 #
# $Z set Translation=-1 #
# $Z set EchelleX=$Echelle #
# $Z set TranslationX=$Translation #
# $Z set EchelleY=$Echelle #
# $Z set TranslationY=$Translation #
# #
# $Z set PasDeTemps=0.05 #
# $Z set NPasDeTemps=10 #
# $Z set ModuleVitesse=0.014 #
# #
# $Z set RayonsT=`$xcg/MUL2.01$X n1=$NPasDeTemps n2=$PasDeTemps` #
# $Z set RayonsT=`$xcg/MUL2.01$X n1=$ModuleVitesse n2=$RayonsT` #
# $Z set RayonsT=`$xcg/MUL2.01$X n1=12 n2=$RayonsT` #
# $Z set RayonsV=`$xcg/MUL2.01$X n1=1.15 n2=$RayonsT` #
# $Z set RayonsP=`$xcg/MUL2.01$X n1=2 n2=$RayonsT` #
# $Z set DistanceI=`$xcg/MUL2.01$X n1=4 n2=$RayonsP` #
# #
# $Z set Distance=`$xcg/MUL2.01$X n1=$NPasDeTemps n2=$PasDeTemps` #
# $Z set Distance=`$xcg/MUL2.01$X n1=$ModuleVitesse n2=$Distance` #
# $Z set Distance=`$xcg/MUL2.01$X n1=$Moitie n2=$Distance` #
# $Z set RayonsD=`$xcg/DIVZ.01$X n1=$RayonsT n2=$Echelle` #
# $Z set Distance=`$xcg/ADD2.01$X n1=$Distance n2=$RayonsD` #
# $Z set Distance=`$xcg/ADD2.01$X n1=$Distance n2=$RayonsD` #
# #
# $Z set ModuleVitesse=`$xcg/MUL2.01$X n1=$Echelle n2=$ModuleVitesse` #
# #
# $Z set Centre=0.5 #
# $Z set Gauche=`$xcg/SOUS.01$X n1=$Centre n2=$Distance` #
# $Z set Droite=`$xcg/ADD2.01$X n1=$Centre n2=$Distance` #
# #
# $Z GenL $xTV/COORDONNEES_01$COORD_X $Gauche $Droite #
# $Z GenL $xTV/COORDONNEES_01$COORD_Y $Centre $Centre #
# #
# $Z set PartNX=`$WC $xTV/COORDONNEES_01$COORD_X` #
# $Z set PartNX=$PartNX[$WC1] #
# $Z set PartNY=`$WC $xTV/COORDONNEES_01$COORD_Y` #
# $Z set PartNY=$PartNY[$WC1] #
# $Z set PartN=`$xcg/MIN2.01$X n1=$PartNX n2=$PartNY signe="$K_VIDE"` #
# #
# $Z $xrv/AXPB.01$X \ #
# $Z CAL1=FAUX \ #
# $Z ne=$PartN \ #
# $Z fichier=$xTV/COORDONNEES_01$COORD_X \ #
# $Z homothetie=$EchelleX translation=$TranslationX \ #
# $Z > $xTV/COORDONNEES$COORD_X #
# $Z $xrv/AXPB.01$X \ #
# $Z CAL1=FAUX \ #
# $Z ne=$PartN \ #
# $Z fichier=$xTV/COORDONNEES_01$COORD_Y \ #
# $Z homothetie=$EchelleY translation=$TranslationY \ #
# $Z > $xTV/COORDONNEES$COORD_Y #
# #
# $Z $DELETE $xTV/COORDONNEES_01$COORD_X #
# $Z $DELETE $xTV/COORDONNEES_01$COORD_Y #
# #
# #
# $Z set Part0=1 #
# $Z @ Npart = $PartN - $Part0 #
# $Z @ Npart = $Npart + 1 #
# #
# $Z $DELETE $xTV/MODULE #
# $Z $DELETE $xTV/THETA #
# $Z $DELETE $xTV/XY_RT.1 #
# $Z $DELETE $xTV/XY_RT.2 #
# $Z $DELETE $xTV/VITESSES #
# $Z $DELETE $xTV/VITESSES$COORD_X #
# $Z $DELETE $xTV/VITESSES$COORD_Y #
# $Z $DELETE $xTV/VITESSES$COORD_Z #
# $Z $DELETE $xTV/mdRHO #
# $Z $DELETE $xTV/MdRHO #
# $Z $DELETE $xTV/mnPHI #
# $Z $DELETE $xTV/MnPHI #
# $Z $DELETE $xTV/dPHI #
# $Z $DELETE $xTV/mnTHETA #
# $Z $DELETE $xTV/MnTHETA #
# $Z $DELETE $xTV/dTHETA #
# $Z $DELETE $xTV/supOUVE #
# $Z $DELETE $xTV/DISTANCE #
# $Z $DELETE $xTV/STABILITE #
# $Z $DELETE $xTV/RAYONS #
# $Z $DELETE $xTV/INTERACTIONS #
# #
# #
# $Z alias Gen 'set Fi=\!:1 ; set vD=\!:2 ; set vA=\!:3 ; set ArG=(\!:4*) ; \\ #
# $Z $DELETE $Fi ; \\ #
# $Z $xci/valeurs_inte$X p=$Part0 d=$PartN vD=$vD vA=$vA $ArG > $Fi ; \\ #
# $Z unset Fi vD vA ArG' #
# #
# $Z alias GenR 'set Fi=\!:1 ; set In=\!:2 ; set Su=\!:3 ; set ArG=(\!:4*) ; \\ #
# $Z $DELETE $Fi ; \\ #
# $Z $xci/valeurs_alea$X p=$Part0 d=$PartN signe="$KV" inf=$In sup=$Su $ArG > $Fi ; \\ #
# $Z unset Fi In Su ArG' #
# #
# $Z Gen $xTV/COORDONNEES$COORD_Z 0.0 0.0 #
# #
# #
# $Z GenL $xTV/MODULE $ModuleVitesse $ModuleVitesse #
# $Z GenL $xTV/THETA 0.00 $pi #
# #
# $Z $CA $xcs/csh$Y \ #
# $Z > $xTV/XY_RT.1 #
# $Z $PAST $xTV/MODULE $xTV/THETA \ #
# $Z | $R "$K_TAB" "$K_BLANC" \ #
# $Z | $AW ' { print "$xcg/XY_RT$X r=" $1 " t=" $2 " cartesien=FAUX" } ' \ #
# $Z >>! $xTV/XY_RT.1 #
# #
# $Z (source $xTV/XY_RT.1) \ #
# $Z > $xTV/XY_RT.2 #
# #
# $Z $CA $xTV/XY_RT.2 \ #
# $Z | $GRE "^x=" \ #
# $Z | $SE -e "s/^x=//" \ #
# $Z > $xTV/VITESSES$COORD_X #
# $Z $CA $xTV/XY_RT.2 \ #
# $Z | $GRE "^y=" \ #
# $Z | $SE -e "s/^y=//" \ #
# $Z > $xTV/VITESSES$COORD_Y #
# #
# $Z Gen $xTV/VITESSES$COORD_Z 0.0 0.0 #
# #
# $Z Gen $xTV/mdRHO 0.0 0.0 #
# $Z Gen $xTV/MdRHO 0.0 0.0 #
# $Z Gen $xTV/mnPHI 0.0 0.0 #
# $Z Gen $xTV/MnPHI 0.0 0.0 #
# $Z Gen $xTV/dPHI 0.0 0.0 #
# $Z Gen $xTV/mnTHETA 0.0 0.0 #
# $Z Gen $xTV/MnTHETA 0.0 0.0 #
# $Z Gen $xTV/dTHETA 0.0 0.0 #
# $Z Gen $xTV/DISTANCE 1000000 1000000 #
# $Z Gen $xTV/STABILITE 1000000 1000000 #
# #
# $Z Gen $xTV/RAYONS $RayonsV $RayonsV #
# $Z Gen $xTV/INTERACTIONS $RayonsP $RayonsP #
# #
# $Z $DELETE $xTV/COULEURS$ROUGE #
# $Z $DELETE $xTV/COULEURS$VERTE #
# $Z $DELETE $xTV/COULEURS$BLEUE #
# #
# $Z Gen $xTV/COULEURS$ROUGE $GRIS_8 $GRIS_0 #
# $Z Gen $xTV/COULEURS$VERTE $GRIS_7 $GRIS_7 #
# $Z Gen $xTV/COULEURS$BLEUE $GRIS_0 $GRIS_8 #
# #
# $Z Pal #
# #
# $Z $DELETE $xTV/LISTE_POINTS #
# $Z $xrk/rdn_walk.41$X corps=$Npart \ #
# $Z np=$Nimages \ #
# $Z collisions=VRAI DLA=FAUX interaction=$DistanceI \ #
# $Z LISTE_X=$xTV/COORDONNEES$COORD_X \ #
# $Z LISTE_Y=$xTV/COORDONNEES$COORD_Y \ #
# $Z LISTE_Z=$xTV/COORDONNEES$COORD_Z \ #
# $Z LISTE_VX=$xTV/VITESSES$COORD_X \ #
# $Z LISTE_VY=$xTV/VITESSES$COORD_Y \ #
# $Z LISTE_VZ=$xTV/VITESSES$COORD_Z \ #
# $Z LISTE_MINIMUM_DELTA_RHO=$xTV/mdRHO \ #
# $Z LISTE_MAXIMUM_DELTA_RHO=$xTV/MdRHO \ #
# $Z LISTE_MINIMUM_N_PHI=$xTV/mnPHI \ #
# $Z LISTE_MAXIMUM_N_PHI=$xTV/MnPHI \ #
# $Z LISTE_DELTA_PHI=$xTV/dPHI \ #
# $Z LISTE_MINIMUM_N_THETA=$xTV/mnTHETA \ #
# $Z LISTE_MAXIMUM_N_THETA=$xTV/MnTHETA \ #
# $Z LISTE_DELTA_THETA=$xTV/dTHETA \ #
# $Z LISTE_DISTANCE_MAXIMALE=$xTV/DISTANCE \ #
# $Z LISTE_STABILITE=$xTV/STABILITE \ #
# $Z LISTE_RAYON=$xTV/RAYONS \ #
# $Z LISTE_RAYON_D_INTERACTION=$xTV/INTERACTIONS \ #
# $Z LISTE_ROUGE=$xTV/COULEURS$ROUGE \ #
# $Z LISTE_VERTE=$xTV/COULEURS$VERTE \ #
# $Z LISTE_BLEUE=$xTV/COULEURS$BLEUE \ #
# $Z milieu=FAUX \ #
# $Z Zmin=0 Zmax=15 \ #
# $Z centrer=VRAI \ #
# $Z dct=$PasDeTemps nombre=$NPasDeTemps \ #
# $Z trainees=FAUX mode=1 \ #
# $Z renormaliser=FAUX \ #
# $Z Lz=100 \ #
# $Z zoom_automatique=VRAI \ #
# $Z lister_les_points=VRAI \ #
# $Z lister_les_points_apres=VRAI \ #
# $Z centre_de_gravite=VRAI \ #
# $Z fond=FAUX \ #
# $Z attenuation_au_bord=0.25 \ #
# $Z R=$xiim/CHOC.W. \ #
# $Z $formatI \ #
# $Z > $xTV/LISTE_POINTS #
# #
# $Z $DELETE $xTV/COORDONNEES$COORD_X #
# $Z $DELETE $xTV/COORDONNEES$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_Z #
# $Z $DELETE $xTV/VITESSES #
# $Z $DELETE $xTV/VITESSES$COORD_X #
# $Z $DELETE $xTV/VITESSES$COORD_Y #
# $Z $DELETE $xTV/VITESSES$COORD_Z #
# $Z $DELETE $xTV/mdRHO #
# $Z $DELETE $xTV/MdRHO #
# $Z $DELETE $xTV/mnPHI #
# $Z $DELETE $xTV/MnPHI #
# $Z $DELETE $xTV/dPHI #
# $Z $DELETE $xTV/mnTHETA #
# $Z $DELETE $xTV/MnTHETA #
# $Z $DELETE $xTV/dTHETA #
# $Z $DELETE $xTV/DISTANCE #
# $Z $DELETE $xTV/STABILITE #
# $Z $DELETE $xTV/RAYONS #
# $Z $DELETE $xTV/INTERACTIONS #
# $Z $DELETE $xTV/COULEURS$TEINT #
# $Z $DELETE $xTV/COULEURS$LUMIN #
# $Z $DELETE $xTV/COULEURS$SATUR #
# $Z $DELETE $xTV/COULEURS$Y #
# $Z $DELETE $xTV/COULEURS #
# $Z $DELETE $xTV/COULEURS$ROUGE #
# $Z $DELETE $xTV/COULEURS$VERTE #
# $Z $DELETE $xTV/COULEURS$BLEUE #
# #
# $Z GenL $xTV/TRANSLATION$COORD_Z 0.0 0.0 +0.02 #
# #
# $Z GenL $xTV/COULEURS$ROUGE $GRIS_8 $GRIS_0 $GRIS_8 #
# $Z GenL $xTV/COULEURS$VERTE $GRIS_7 $GRIS_7 $GRIS_8 #
# $Z GenL $xTV/COULEURS$BLEUE $GRIS_0 $GRIS_8 $GRIS_8 #
# #
# $Z GenL $xTV/RAYONS $RayonsV $RayonsV 0.024 #
# #
# $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("$DELETE $xTV/COORDONNEES\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_X\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_Y\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_Z\n"); #
# #
# $c printf("$CA $xTV/LISTE_POINTS | #
# $c $GRE 'periode=%d ' #
# $c > $xTV/COORDONNEES\n" #
# $c ,n #
# $c ); #
# #
# $c printf("set Particules=`$WC $xTV/COORDONNEES`\n"); #
# $c printf("set Particules=$Particules[$WC1]\n"); #
# #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*[ (,]X[G]*=//%c #
# $c -e %cs/[,) ].*//%c #
# $c > $xTV/COORDONNEES$COORD_X\n" #
# $c ,'"','"','"','"' #
# $c ); #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*[ (,]Y[G]*=//%c #
# $c -e %cs/[,) ].*//%c #
# $c > $xTV/COORDONNEES$COORD_Y\n" #
# $c ,'"','"','"','"' #
# $c ); #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*[ (,]Z[G]*=//%c #
# $c -e %cs/[,) ].*//%c #
# $c > $xTV/COORDONNEES$COORD_Z\n" #
# $c ,'"','"','"','"' #
# $c ); #
# #
# $c printf("$xrv/particule.10$X #
# $c np=1 #
# $c iterations=$Particules #
# $c isoles=VRAI #
# $c LISTE_X=$xTV/COORDONNEES$COORD_X #
# $c LISTE_Y=$xTV/COORDONNEES$COORD_Y #
# $c LISTE_Z=$xTV/COORDONNEES$COORD_Z #
# $c LISTE_tZ=$xTV/TRANSLATION$COORD_Z #
# $c LISTE_ROUGE=$xTV/COULEURS$ROUGE #
# $c LISTE_VERTE=$xTV/COULEURS$VERTE #
# $c LISTE_BLEUE=$xTV/COULEURS$BLEUE #
# $c Ar=0.5 #
# $c LISTE_RAYON=$xTV/RAYONS #
# $c Lz=100 #
# $c zoom_automatique=FAUX ZOOM=1.0 #
# $c coordonnees_dans_0_1=FAUX #
# $c AXYZ=1 BXYZ=0 #
# $c fond=FAUX #
# $c centrer=VRAI #
# $c reference=$Particules #
# $c attenuation_au_bord=0.25 #
# $c R=$xTV/CHOC.B. #
# $c $formatI\n" #
# $c ); #
# #
# $c printf("$xci/acces$X #
# $c A=$xTV/CHOC.B.%04d$ROUGE #
# $c R=$xiim/CHOC.3.%04d$ROUGE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xTV/CHOC.B.%04d$VERTE #
# $c R=$xiim/CHOC.3.%04d$VERTE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xTV/CHOC.B.%04d$BLEUE #
# $c R=$xiim/CHOC.3.%04d$BLEUE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# $c } #
# $c } #
# #
# #
# $Z $DELETE $xTV/LISTE_POINTS #
# $Z $DELETE $xTV/COORDONNEES #
# $Z $DELETE $xTV/COORDONNEES$COORD_X #
# $Z $DELETE $xTV/COORDONNEES$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_Z #
# $Z $DELETE $xTV/TRANSLATION$COORD_Z #
# $Z $DELETE $xTV/RAYONS #
# $Z $DELETE $xTV/COULEURS$ROUGE #
# $Z $DELETE $xTV/COULEURS$VERTE #
# $Z $DELETE $xTV/COULEURS$BLEUE #
# #
# #
# $Z Pal #
# #
# $Z $xci/reduction_16$Z $xiim/CHOC.3. $xiak/CHOC.21 $Premiere $Derniere #
# $Z $xci/reduction_64$Z $xiim/CHOC.3. $xiak/CHOC.21 $Premiere $Derniere #
# #
# $X $xci/genere$X c='ro $xiak/CHOC.21$R16%s' RVB=VRAI #
# $X $xci/genere$X c='ro $xiak/CHOC.21$R64%s' RVB=VRAI #
# #
# $X $xci/genere$X c='$xcg/unite$Z $xiak/CHOC.21$R16%s' RVB=VRAI #
# $X $xci/genere$X c='$xcg/unite$Z $xiak/CHOC.21$R64%s' RVB=VRAI #
# #
# #
# Pal #
# #
# #
# $xci/disk_video_P$Z $xiim_LACT29/CHOC.3. 001 128 RVB \ #
# 11 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
# #
# xivPdf 3 2 #
# #
# record.01$Z $xiak/CHOC.21$R16 RVB Initialisation #
# record.01$Z $xiak/CHOC.21$R64 RVB rien #
# #
sequence 022066_022193
# Generee (sur '$LACT29') par : #
# #
# $Z SET Premiere=1 #
# $Z SET Derniere=128 #
# $Z @ Nimages = $Derniere - $Premiere #
# $Z @ Nimages = $Nimages + 1 #
# $Z @ Moitie = $Nimages / 2 #
# #
# #
# $Z Pal #
# #
# #
# $Z $DELETE $xTV/COORDONNEES_01$COORD_X #
# $Z $DELETE $xTV/COORDONNEES_01$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_X #
# $Z $DELETE $xTV/COORDONNEES$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_Z #
# #
# $Z alias GenL 'set Fi=\!:1 ; set LiStE=(\!:2*) ; \\ #
# $Z $DELETE $Fi ; \\ #
# $Z echo "$LiStE" | $R "$K_BLANC" "$K_NL" > $Fi ; \\ #
# $Z unset Fi LiStE' #
# #
# #
# $Z set Echelle=2.0 #
# $Z set Translation=-1 #
# $Z set EchelleX=$Echelle #
# $Z set TranslationX=$Translation #
# $Z set EchelleY=$Echelle #
# $Z set TranslationY=$Translation #
# #
# $Z set PasDeTemps=0.05 #
# $Z set NPasDeTemps=10 #
# $Z set ModuleVitesse=0.014 #
# #
# $Z set RayonsT=`$xcg/MUL2.01$X n1=$NPasDeTemps n2=$PasDeTemps` #
# $Z set RayonsT=`$xcg/MUL2.01$X n1=$ModuleVitesse n2=$RayonsT` #
# $Z set RayonsT=`$xcg/MUL2.01$X n1=12 n2=$RayonsT` #
# $Z set RayonsV=`$xcg/MUL2.01$X n1=1.15 n2=$RayonsT` #
# $Z set RayonsP=`$xcg/MUL2.01$X n1=2 n2=$RayonsT` #
# $Z set DistanceI=`$xcg/MUL2.01$X n1=4 n2=$RayonsP` #
# #
# $Z set Distance=`$xcg/MUL2.01$X n1=$NPasDeTemps n2=$PasDeTemps` #
# $Z set Distance=`$xcg/MUL2.01$X n1=$ModuleVitesse n2=$Distance` #
# $Z set Distance=`$xcg/MUL2.01$X n1=$Moitie n2=$Distance` #
# $Z set RayonsD=`$xcg/DIVZ.01$X n1=$RayonsT n2=$Echelle` #
# $Z set Distance=`$xcg/ADD2.01$X n1=$Distance n2=$RayonsD` #
# $Z set Distance=`$xcg/ADD2.01$X n1=$Distance n2=$RayonsD` #
# #
# $Z set ModuleVitesse=`$xcg/MUL2.01$X n1=$Echelle n2=$ModuleVitesse` #
# #
# $Z set Centre=0.5 #
# $Z set Gauche=`$xcg/SOUS.01$X n1=$Centre n2=$Distance` #
# $Z set Droite=`$xcg/ADD2.01$X n1=$Centre n2=$Distance` #
# #
# $Z GenL $xTV/COORDONNEES_01$COORD_X $Gauche $Droite #
# $Z GenL $xTV/COORDONNEES_01$COORD_Y $Centre $Centre #
# #
# $Z set PartNX=`$WC $xTV/COORDONNEES_01$COORD_X` #
# $Z set PartNX=$PartNX[$WC1] #
# $Z set PartNY=`$WC $xTV/COORDONNEES_01$COORD_Y` #
# $Z set PartNY=$PartNY[$WC1] #
# $Z set PartN=`$xcg/MIN2.01$X n1=$PartNX n2=$PartNY signe="$K_VIDE"` #
# #
# $Z $xrv/AXPB.01$X \ #
# $Z CAL1=FAUX \ #
# $Z ne=$PartN \ #
# $Z fichier=$xTV/COORDONNEES_01$COORD_X \ #
# $Z homothetie=$EchelleX translation=$TranslationX \ #
# $Z > $xTV/COORDONNEES$COORD_X #
# $Z $xrv/AXPB.01$X \ #
# $Z CAL1=FAUX \ #
# $Z ne=$PartN \ #
# $Z fichier=$xTV/COORDONNEES_01$COORD_Y \ #
# $Z homothetie=$EchelleY translation=$TranslationY \ #
# $Z > $xTV/COORDONNEES$COORD_Y #
# #
# $Z $DELETE $xTV/COORDONNEES_01$COORD_X #
# $Z $DELETE $xTV/COORDONNEES_01$COORD_Y #
# #
# #
# $Z set Part0=1 #
# $Z @ Npart = $PartN - $Part0 #
# $Z @ Npart = $Npart + 1 #
# #
# $Z $DELETE $xTV/MODULE #
# $Z $DELETE $xTV/THETA #
# $Z $DELETE $xTV/XY_RT.1 #
# $Z $DELETE $xTV/XY_RT.2 #
# $Z $DELETE $xTV/VITESSES #
# $Z $DELETE $xTV/VITESSES$COORD_X #
# $Z $DELETE $xTV/VITESSES$COORD_Y #
# $Z $DELETE $xTV/VITESSES$COORD_Z #
# $Z $DELETE $xTV/mdRHO #
# $Z $DELETE $xTV/MdRHO #
# $Z $DELETE $xTV/mnPHI #
# $Z $DELETE $xTV/MnPHI #
# $Z $DELETE $xTV/dPHI #
# $Z $DELETE $xTV/mnTHETA #
# $Z $DELETE $xTV/MnTHETA #
# $Z $DELETE $xTV/dTHETA #
# $Z $DELETE $xTV/supOUVE #
# $Z $DELETE $xTV/DISTANCE #
# $Z $DELETE $xTV/STABILITE #
# $Z $DELETE $xTV/RAYONS #
# $Z $DELETE $xTV/INTERACTIONS #
# #
# #
# $Z alias Gen 'set Fi=\!:1 ; set vD=\!:2 ; set vA=\!:3 ; set ArG=(\!:4*) ; \\ #
# $Z $DELETE $Fi ; \\ #
# $Z $xci/valeurs_inte$X p=$Part0 d=$PartN vD=$vD vA=$vA $ArG > $Fi ; \\ #
# $Z unset Fi vD vA ArG' #
# #
# $Z alias GenR 'set Fi=\!:1 ; set In=\!:2 ; set Su=\!:3 ; set ArG=(\!:4*) ; \\ #
# $Z $DELETE $Fi ; \\ #
# $Z $xci/valeurs_alea$X p=$Part0 d=$PartN signe="$KV" inf=$In sup=$Su $ArG > $Fi ; \\ #
# $Z unset Fi In Su ArG' #
# #
# $Z Gen $xTV/COORDONNEES$COORD_Z 0.0 0.0 #
# #
# #
# $Z GenL $xTV/MODULE $ModuleVitesse $ModuleVitesse #
# $Z GenL $xTV/THETA 0.00 $pi #
# #
# $Z $CA $xcs/csh$Y \ #
# $Z > $xTV/XY_RT.1 #
# $Z $PAST $xTV/MODULE $xTV/THETA \ #
# $Z | $R "$K_TAB" "$K_BLANC" \ #
# $Z | $AW ' { print "$xcg/XY_RT$X r=" $1 " t=" $2 " cartesien=FAUX" } ' \ #
# $Z >>! $xTV/XY_RT.1 #
# #
# $Z (source $xTV/XY_RT.1) \ #
# $Z > $xTV/XY_RT.2 #
# #
# $Z $CA $xTV/XY_RT.2 \ #
# $Z | $GRE "^x=" \ #
# $Z | $SE -e "s/^x=//" \ #
# $Z > $xTV/VITESSES$COORD_X #
# $Z $CA $xTV/XY_RT.2 \ #
# $Z | $GRE "^y=" \ #
# $Z | $SE -e "s/^y=//" \ #
# $Z > $xTV/VITESSES$COORD_Y #
# #
# $Z Gen $xTV/VITESSES$COORD_Z 0.0 0.0 #
# #
# $Z Gen $xTV/mdRHO 0.0 0.0 #
# $Z Gen $xTV/MdRHO 0.0 0.0 #
# $Z Gen $xTV/mnPHI 0.0 0.0 #
# $Z Gen $xTV/MnPHI 0.0 0.0 #
# $Z Gen $xTV/dPHI 0.0 0.0 #
# $Z Gen $xTV/mnTHETA 0.0 0.0 #
# $Z Gen $xTV/MnTHETA 0.0 0.0 #
# $Z Gen $xTV/dTHETA 0.0 0.0 #
# $Z Gen $xTV/DISTANCE 1000000 1000000 #
# $Z Gen $xTV/STABILITE 1000000 1000000 #
# #
# $Z Gen $xTV/RAYONS $RayonsV $RayonsV #
# $Z Gen $xTV/INTERACTIONS $RayonsP $RayonsP #
# #
# $Z $DELETE $xTV/COULEURS$ROUGE #
# $Z $DELETE $xTV/COULEURS$VERTE #
# $Z $DELETE $xTV/COULEURS$BLEUE #
# #
# $Z Gen $xTV/COULEURS$ROUGE $GRIS_8 $GRIS_0 #
# $Z Gen $xTV/COULEURS$VERTE $GRIS_7 $GRIS_7 #
# $Z Gen $xTV/COULEURS$BLEUE $GRIS_0 $GRIS_8 #
# #
# $Z Pal #
# #
# $Z $DELETE $xTV/LISTE_POINTS #
# $Z $xrk/rdn_walk.41$X corps=$Npart \ #
# $Z np=$Nimages \ #
# $Z collisions=VRAI DLA=FAUX interaction=$DistanceI \ #
# $Z LISTE_X=$xTV/COORDONNEES$COORD_X \ #
# $Z LISTE_Y=$xTV/COORDONNEES$COORD_Y \ #
# $Z LISTE_Z=$xTV/COORDONNEES$COORD_Z \ #
# $Z LISTE_VX=$xTV/VITESSES$COORD_X \ #
# $Z LISTE_VY=$xTV/VITESSES$COORD_Y \ #
# $Z LISTE_VZ=$xTV/VITESSES$COORD_Z \ #
# $Z LISTE_MINIMUM_DELTA_RHO=$xTV/mdRHO \ #
# $Z LISTE_MAXIMUM_DELTA_RHO=$xTV/MdRHO \ #
# $Z LISTE_MINIMUM_N_PHI=$xTV/mnPHI \ #
# $Z LISTE_MAXIMUM_N_PHI=$xTV/MnPHI \ #
# $Z LISTE_DELTA_PHI=$xTV/dPHI \ #
# $Z LISTE_MINIMUM_N_THETA=$xTV/mnTHETA \ #
# $Z LISTE_MAXIMUM_N_THETA=$xTV/MnTHETA \ #
# $Z LISTE_DELTA_THETA=$xTV/dTHETA \ #
# $Z LISTE_DISTANCE_MAXIMALE=$xTV/DISTANCE \ #
# $Z LISTE_STABILITE=$xTV/STABILITE \ #
# $Z LISTE_RAYON=$xTV/RAYONS \ #
# $Z LISTE_RAYON_D_INTERACTION=$xTV/INTERACTIONS \ #
# $Z LISTE_ROUGE=$xTV/COULEURS$ROUGE \ #
# $Z LISTE_VERTE=$xTV/COULEURS$VERTE \ #
# $Z LISTE_BLEUE=$xTV/COULEURS$BLEUE \ #
# $Z milieu=FAUX \ #
# $Z Zmin=0 Zmax=15 \ #
# $Z centrer=VRAI \ #
# $Z dct=$PasDeTemps nombre=$NPasDeTemps \ #
# $Z trainees=FAUX mode=1 \ #
# $Z renormaliser=FAUX \ #
# $Z Lz=100 \ #
# $Z zoom_automatique=VRAI \ #
# $Z lister_les_points=VRAI \ #
# $Z lister_les_points_apres=VRAI \ #
# $Z centre_de_gravite=VRAI \ #
# $Z fond=FAUX \ #
# $Z attenuation_au_bord=0.25 \ #
# $Z R=$xiim/CHOC.W. \ #
# $Z $formatI \ #
# $Z > $xTV/LISTE_POINTS #
# #
# $Z $DELETE $xTV/COORDONNEES$COORD_X #
# $Z $DELETE $xTV/COORDONNEES$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_Z #
# $Z $DELETE $xTV/VITESSES #
# $Z $DELETE $xTV/VITESSES$COORD_X #
# $Z $DELETE $xTV/VITESSES$COORD_Y #
# $Z $DELETE $xTV/VITESSES$COORD_Z #
# $Z $DELETE $xTV/mdRHO #
# $Z $DELETE $xTV/MdRHO #
# $Z $DELETE $xTV/mnPHI #
# $Z $DELETE $xTV/MnPHI #
# $Z $DELETE $xTV/dPHI #
# $Z $DELETE $xTV/mnTHETA #
# $Z $DELETE $xTV/MnTHETA #
# $Z $DELETE $xTV/dTHETA #
# $Z $DELETE $xTV/DISTANCE #
# $Z $DELETE $xTV/STABILITE #
# $Z $DELETE $xTV/RAYONS #
# $Z $DELETE $xTV/INTERACTIONS #
# $Z $DELETE $xTV/COULEURS$TEINT #
# $Z $DELETE $xTV/COULEURS$LUMIN #
# $Z $DELETE $xTV/COULEURS$SATUR #
# $Z $DELETE $xTV/COULEURS$Y #
# $Z $DELETE $xTV/COULEURS #
# $Z $DELETE $xTV/COULEURS$ROUGE #
# $Z $DELETE $xTV/COULEURS$VERTE #
# $Z $DELETE $xTV/COULEURS$BLEUE #
# #
# $Z GenL $xTV/TRANSLATION$COORD_Z 0.0 0.0 +0.02 #
# #
# $Z GenL $xTV/COULEURS$ROUGE $GRIS_8 $GRIS_0 $GRIS_8 #
# $Z GenL $xTV/COULEURS$VERTE $GRIS_7 $GRIS_7 $GRIS_8 #
# $Z GenL $xTV/COULEURS$BLEUE $GRIS_0 $GRIS_8 $GRIS_8 #
# #
# $Z GenL $xTV/RAYONS $RayonsV $RayonsV 0.024 #
# #
# $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("$DELETE $xTV/COORDONNEES\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_X\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_Y\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_Z\n"); #
# #
# $c printf("$CA $xTV/LISTE_POINTS | #
# $c $GRE 'periode=%d ' #
# $c > $xTV/COORDONNEES\n" #
# $c ,n #
# $c ); #
# #
# $c printf("set Particules=`$WC $xTV/COORDONNEES`\n"); #
# $c printf("set Particules=$Particules[$WC1]\n"); #
# #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*[ (,]X[G]*=//%c #
# $c -e %cs/[,) ].*//%c #
# $c > $xTV/COORDONNEES$COORD_X\n" #
# $c ,'"','"','"','"' #
# $c ); #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*[ (,]Y[G]*=//%c #
# $c -e %cs/[,) ].*//%c #
# $c > $xTV/COORDONNEES$COORD_Y\n" #
# $c ,'"','"','"','"' #
# $c ); #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*[ (,]Z[G]*=//%c #
# $c -e %cs/[,) ].*//%c #
# $c > $xTV/COORDONNEES$COORD_Z\n" #
# $c ,'"','"','"','"' #
# $c ); #
# #
# $c printf("$xrv/particule.10$X #
# $c np=1 #
# $c iterations=$Particules #
# $c isoles=VRAI #
# $c LISTE_X=$xTV/COORDONNEES$COORD_X #
# $c LISTE_Y=$xTV/COORDONNEES$COORD_Y #
# $c LISTE_Z=$xTV/COORDONNEES$COORD_Z #
# $c LISTE_tZ=$xTV/TRANSLATION$COORD_Z #
# $c LISTE_ROUGE=$xTV/COULEURS$ROUGE #
# $c LISTE_VERTE=$xTV/COULEURS$VERTE #
# $c LISTE_BLEUE=$xTV/COULEURS$BLEUE #
# $c Ar=0.5 #
# $c LISTE_RAYON=$xTV/RAYONS #
# $c Lz=100 #
# $c zoom_automatique=FAUX ZOOM=1.0 #
# $c coordonnees_dans_0_1=FAUX #
# $c AXYZ=1 BXYZ=$Centre #
# $c fond=FAUX #
# $c centrer=FAUX #
# $c reference=$Particules #
# $c attenuation_au_bord=0.25 #
# $c R=$xTV/CHOC.B. #
# $c $formatI\n" #
# $c ); #
# #
# $c printf("$xci/acces$X #
# $c A=$xTV/CHOC.B.%04d$ROUGE #
# $c R=$xiim/CHOC.4.%04d$ROUGE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xTV/CHOC.B.%04d$VERTE #
# $c R=$xiim/CHOC.4.%04d$VERTE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xTV/CHOC.B.%04d$BLEUE #
# $c R=$xiim/CHOC.4.%04d$BLEUE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# $c } #
# $c } #
# #
# #
# $Z $DELETE $xTV/LISTE_POINTS #
# $Z $DELETE $xTV/COORDONNEES #
# $Z $DELETE $xTV/COORDONNEES$COORD_X #
# $Z $DELETE $xTV/COORDONNEES$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_Z #
# $Z $DELETE $xTV/TRANSLATION$COORD_Z #
# $Z $DELETE $xTV/RAYONS #
# $Z $DELETE $xTV/COULEURS$ROUGE #
# $Z $DELETE $xTV/COULEURS$VERTE #
# $Z $DELETE $xTV/COULEURS$BLEUE #
# #
# #
# $Z Pal #
# #
# $Z $xci/reduction_16$Z $xiim/CHOC.4. $xiak/CHOC.22 $Premiere $Derniere #
# $Z $xci/reduction_64$Z $xiim/CHOC.4. $xiak/CHOC.22 $Premiere $Derniere #
# #
# $X $xci/genere$X c='ro $xiak/CHOC.22$R16%s' RVB=VRAI #
# $X $xci/genere$X c='ro $xiak/CHOC.22$R64%s' RVB=VRAI #
# #
# $X $xci/genere$X c='$xcg/unite$Z $xiak/CHOC.22$R16%s' RVB=VRAI #
# $X $xci/genere$X c='$xcg/unite$Z $xiak/CHOC.22$R64%s' RVB=VRAI #
# #
# #
# Pal #
# #
# #
# $xci/disk_video_P$Z $xiim_LACT29/CHOC.4. 001 128 RVB \ #
# 11 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
# #
# xivPdf 3 2 #
# #
# record.01$Z $xiak/CHOC.22$R16 RVB Initialisation #
# record.01$Z $xiak/CHOC.22$R64 RVB rien #
# #
sequence 022194_022321
# Generee (sur '$LACT29') par : #
# #
# $Z SET Premiere=1 #
# $Z SET Derniere=128 #
# $Z @ Nimages = $Derniere - $Premiere #
# $Z @ Nimages = $Nimages + 1 #
# $Z @ Moitie = $Nimages / 2 #
# #
# #
# $Z Pal #
# #
# #
# $Z $DELETE $xTV/COORDONNEES_01$COORD_X #
# $Z $DELETE $xTV/COORDONNEES_01$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_X #
# $Z $DELETE $xTV/COORDONNEES$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_Z #
# #
# $Z alias GenL 'set Fi=\!:1 ; set LiStE=(\!:2*) ; \\ #
# $Z $DELETE $Fi ; \\ #
# $Z echo "$LiStE" | $R "$K_BLANC" "$K_NL" > $Fi ; \\ #
# $Z unset Fi LiStE' #
# #
# #
# $Z set Echelle=2.0 #
# $Z set Translation=-1 #
# $Z set EchelleX=$Echelle #
# $Z set TranslationX=$Translation #
# $Z set EchelleY=$Echelle #
# $Z set TranslationY=$Translation #
# #
# $Z set PasDeTemps=0.05 #
# $Z set NPasDeTemps=10 #
# $Z set ModuleVitesse=0.010 #
# #
# $Z set RayonsT=`$xcg/MUL2.01$X n1=$NPasDeTemps n2=$PasDeTemps` #
# $Z set RayonsT=`$xcg/MUL2.01$X n1=$ModuleVitesse n2=$RayonsT` #
# $Z set RayonsT=`$xcg/MUL2.01$X n1=12 n2=$RayonsT` #
# $Z set RayonsV=`$xcg/MUL2.01$X n1=1.15 n2=$RayonsT` #
# $Z set RayonsP=`$xcg/MUL2.01$X n1=2 n2=$RayonsT` #
# $Z set DistanceI=`$xcg/MUL2.01$X n1=4 n2=$RayonsP` #
# #
# $Z set Distance=`$xcg/MUL2.01$X n1=$NPasDeTemps n2=$PasDeTemps` #
# $Z set Distance=`$xcg/MUL2.01$X n1=$ModuleVitesse n2=$Distance` #
# $Z set Distance=`$xcg/MUL2.01$X n1=$Moitie n2=$Distance` #
# $Z set RayonsD=`$xcg/DIVZ.01$X n1=$RayonsT n2=$Echelle` #
# $Z set Distance=`$xcg/ADD2.01$X n1=$Distance n2=$RayonsD` #
# $Z set Distance=`$xcg/ADD2.01$X n1=$Distance n2=$RayonsD` #
# #
# $Z set ModuleVitesse=`$xcg/MUL2.01$X n1=$Echelle n2=$ModuleVitesse` #
# #
# $Z set Centre=0.5 #
# #
# $Z set XGauche=`$xcg/SOUS.01$X n1=$Centre n2=$Distance` #
# $Z set YGauche=$Centre #
# #
# $Z set XDroite=$Distance #
# $Z set YDroite=0 #
# $Z set Theta=-0.6 #
# $Z set Options="cartesien=VRAI eX=FAUX eY=FAUX eRHO=FAUX eTHETA=FAUX" #
# $Z set RDroite=`$xcg/XY_RT$X X=$XDroite Y=$YDroite $Options eRHO=VRAI` #
# $Z set RDroite=`echo $RDroite | $SE "s/^.*=//"` #
# $Z set TDroite=`$xcg/XY_RT$X X=$XDroite Y=$YDroite $Options eTHETA=VRAI` #
# $Z set TDroite=`echo $TDroite | $SE "s/^.*=//"` #
# $Z set TDroite=`$xcg/ADD2.01$X n1=$TDroite n2=$Theta` #
# $Z set Options="cartesien=FAUX eX=FAUX eY=FAUX eRHO=FAUX eTHETA=FAUX" #
# $Z set XDroite=`$xcg/XY_RT$X R=$RDroite T=$TDroite $Options eX=VRAI` #
# $Z set XDroite=`echo $XDroite | $SE "s/^.*=//"` #
# $Z set XDroite=`$xcg/ADD2.01$X n1=$XDroite n2=$Centre` #
# $Z set YDroite=`$xcg/XY_RT$X R=$RDroite T=$TDroite $Options eY=VRAI` #
# $Z set YDroite=`echo $YDroite | $SE "s/^.*=//"` #
# $Z set YDroite=`$xcg/ADD2.01$X n1=$YDroite n2=$Centre` #
# #
# $Z GenL $xTV/COORDONNEES_01$COORD_X $XGauche $XDroite #
# $Z GenL $xTV/COORDONNEES_01$COORD_Y $YGauche $YDroite #
# #
# $Z set PartNX=`$WC $xTV/COORDONNEES_01$COORD_X` #
# $Z set PartNX=$PartNX[$WC1] #
# $Z set PartNY=`$WC $xTV/COORDONNEES_01$COORD_Y` #
# $Z set PartNY=$PartNY[$WC1] #
# $Z set PartN=`$xcg/MIN2.01$X n1=$PartNX n2=$PartNY signe="$K_VIDE"` #
# #
# $Z $xrv/AXPB.01$X \ #
# $Z CAL1=FAUX \ #
# $Z ne=$PartN \ #
# $Z fichier=$xTV/COORDONNEES_01$COORD_X \ #
# $Z homothetie=$EchelleX translation=$TranslationX \ #
# $Z > $xTV/COORDONNEES$COORD_X #
# $Z $xrv/AXPB.01$X \ #
# $Z CAL1=FAUX \ #
# $Z ne=$PartN \ #
# $Z fichier=$xTV/COORDONNEES_01$COORD_Y \ #
# $Z homothetie=$EchelleY translation=$TranslationY \ #
# $Z > $xTV/COORDONNEES$COORD_Y #
# #
# $Z $DELETE $xTV/COORDONNEES_01$COORD_X #
# $Z $DELETE $xTV/COORDONNEES_01$COORD_Y #
# #
# #
# $Z set Part0=1 #
# $Z @ Npart = $PartN - $Part0 #
# $Z @ Npart = $Npart + 1 #
# #
# $Z $DELETE $xTV/MODULE #
# $Z $DELETE $xTV/THETA #
# $Z $DELETE $xTV/XY_RT.1 #
# $Z $DELETE $xTV/XY_RT.2 #
# $Z $DELETE $xTV/VITESSES #
# $Z $DELETE $xTV/VITESSES$COORD_X #
# $Z $DELETE $xTV/VITESSES$COORD_Y #
# $Z $DELETE $xTV/VITESSES$COORD_Z #
# $Z $DELETE $xTV/mdRHO #
# $Z $DELETE $xTV/MdRHO #
# $Z $DELETE $xTV/mnPHI #
# $Z $DELETE $xTV/MnPHI #
# $Z $DELETE $xTV/dPHI #
# $Z $DELETE $xTV/mnTHETA #
# $Z $DELETE $xTV/MnTHETA #
# $Z $DELETE $xTV/dTHETA #
# $Z $DELETE $xTV/supOUVE #
# $Z $DELETE $xTV/DISTANCE #
# $Z $DELETE $xTV/STABILITE #
# $Z $DELETE $xTV/RAYONS #
# $Z $DELETE $xTV/INTERACTIONS #
# #
# #
# $Z alias Gen 'set Fi=\!:1 ; set vD=\!:2 ; set vA=\!:3 ; set ArG=(\!:4*) ; \\ #
# $Z $DELETE $Fi ; \\ #
# $Z $xci/valeurs_inte$X p=$Part0 d=$PartN vD=$vD vA=$vA $ArG > $Fi ; \\ #
# $Z unset Fi vD vA ArG' #
# #
# $Z alias GenR 'set Fi=\!:1 ; set In=\!:2 ; set Su=\!:3 ; set ArG=(\!:4*) ; \\ #
# $Z $DELETE $Fi ; \\ #
# $Z $xci/valeurs_alea$X p=$Part0 d=$PartN signe="$KV" inf=$In sup=$Su $ArG > $Fi ; \\ #
# $Z unset Fi In Su ArG' #
# #
# $Z Gen $xTV/COORDONNEES$COORD_Z 0.0 0.0 #
# #
# $Z set VTheta=`$xcg/ADD2.01$X n1=$Theta n2=$pi` #
# #
# $Z GenL $xTV/MODULE $ModuleVitesse $ModuleVitesse #
# $Z GenL $xTV/THETA 0.00 $VTheta #
# #
# $Z $CA $xcs/csh$Y \ #
# $Z > $xTV/XY_RT.1 #
# $Z $PAST $xTV/MODULE $xTV/THETA \ #
# $Z | $R "$K_TAB" "$K_BLANC" \ #
# $Z | $AW ' { print "$xcg/XY_RT$X r=" $1 " t=" $2 " cartesien=FAUX" } ' \ #
# $Z >>! $xTV/XY_RT.1 #
# #
# $Z (source $xTV/XY_RT.1) \ #
# $Z > $xTV/XY_RT.2 #
# #
# $Z $CA $xTV/XY_RT.2 \ #
# $Z | $GRE "^x=" \ #
# $Z | $SE -e "s/^x=//" \ #
# $Z > $xTV/VITESSES$COORD_X #
# $Z $CA $xTV/XY_RT.2 \ #
# $Z | $GRE "^y=" \ #
# $Z | $SE -e "s/^y=//" \ #
# $Z > $xTV/VITESSES$COORD_Y #
# #
# $Z Gen $xTV/VITESSES$COORD_Z 0.0 0.0 #
# #
# $Z Gen $xTV/mdRHO 0.0 0.0 #
# $Z Gen $xTV/MdRHO 0.0 0.0 #
# $Z Gen $xTV/mnPHI 0.0 0.0 #
# $Z Gen $xTV/MnPHI 0.0 0.0 #
# $Z Gen $xTV/dPHI 0.0 0.0 #
# $Z Gen $xTV/mnTHETA 0.0 0.0 #
# $Z Gen $xTV/MnTHETA 0.0 0.0 #
# $Z Gen $xTV/dTHETA 0.0 0.0 #
# $Z Gen $xTV/DISTANCE 1000000 1000000 #
# $Z Gen $xTV/STABILITE 1000000 1000000 #
# #
# $Z Gen $xTV/RAYONS $RayonsV $RayonsV #
# $Z Gen $xTV/INTERACTIONS $RayonsP $RayonsP #
# #
# $Z $DELETE $xTV/COULEURS$ROUGE #
# $Z $DELETE $xTV/COULEURS$VERTE #
# $Z $DELETE $xTV/COULEURS$BLEUE #
# #
# $Z Gen $xTV/COULEURS$ROUGE $GRIS_8 $GRIS_0 #
# $Z Gen $xTV/COULEURS$VERTE $GRIS_7 $GRIS_7 #
# $Z Gen $xTV/COULEURS$BLEUE $GRIS_0 $GRIS_8 #
# #
# $Z Pal #
# #
# $Z $DELETE $xTV/LISTE_POINTS #
# $Z $xrk/rdn_walk.41$X corps=$Npart \ #
# $Z np=$Nimages \ #
# $Z collisions=VRAI DLA=FAUX interaction=$DistanceI \ #
# $Z LISTE_X=$xTV/COORDONNEES$COORD_X \ #
# $Z LISTE_Y=$xTV/COORDONNEES$COORD_Y \ #
# $Z LISTE_Z=$xTV/COORDONNEES$COORD_Z \ #
# $Z LISTE_VX=$xTV/VITESSES$COORD_X \ #
# $Z LISTE_VY=$xTV/VITESSES$COORD_Y \ #
# $Z LISTE_VZ=$xTV/VITESSES$COORD_Z \ #
# $Z LISTE_MINIMUM_DELTA_RHO=$xTV/mdRHO \ #
# $Z LISTE_MAXIMUM_DELTA_RHO=$xTV/MdRHO \ #
# $Z LISTE_MINIMUM_N_PHI=$xTV/mnPHI \ #
# $Z LISTE_MAXIMUM_N_PHI=$xTV/MnPHI \ #
# $Z LISTE_DELTA_PHI=$xTV/dPHI \ #
# $Z LISTE_MINIMUM_N_THETA=$xTV/mnTHETA \ #
# $Z LISTE_MAXIMUM_N_THETA=$xTV/MnTHETA \ #
# $Z LISTE_DELTA_THETA=$xTV/dTHETA \ #
# $Z LISTE_DISTANCE_MAXIMALE=$xTV/DISTANCE \ #
# $Z LISTE_STABILITE=$xTV/STABILITE \ #
# $Z LISTE_RAYON=$xTV/RAYONS \ #
# $Z LISTE_RAYON_D_INTERACTION=$xTV/INTERACTIONS \ #
# $Z LISTE_ROUGE=$xTV/COULEURS$ROUGE \ #
# $Z LISTE_VERTE=$xTV/COULEURS$VERTE \ #
# $Z LISTE_BLEUE=$xTV/COULEURS$BLEUE \ #
# $Z milieu=FAUX \ #
# $Z Zmin=0 Zmax=15 \ #
# $Z centrer=VRAI \ #
# $Z dct=$PasDeTemps nombre=$NPasDeTemps \ #
# $Z trainees=FAUX mode=1 \ #
# $Z renormaliser=FAUX \ #
# $Z Lz=100 \ #
# $Z zoom_automatique=VRAI \ #
# $Z lister_les_points=VRAI \ #
# $Z lister_les_points_apres=VRAI \ #
# $Z centre_de_gravite=VRAI \ #
# $Z fond=FAUX \ #
# $Z attenuation_au_bord=0.25 \ #
# $Z R=$xiim/CHOC.W. \ #
# $Z $formatI \ #
# $Z > $xTV/LISTE_POINTS #
# #
# $Z $DELETE $xTV/COORDONNEES$COORD_X #
# $Z $DELETE $xTV/COORDONNEES$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_Z #
# $Z $DELETE $xTV/VITESSES #
# $Z $DELETE $xTV/VITESSES$COORD_X #
# $Z $DELETE $xTV/VITESSES$COORD_Y #
# $Z $DELETE $xTV/VITESSES$COORD_Z #
# $Z $DELETE $xTV/mdRHO #
# $Z $DELETE $xTV/MdRHO #
# $Z $DELETE $xTV/mnPHI #
# $Z $DELETE $xTV/MnPHI #
# $Z $DELETE $xTV/dPHI #
# $Z $DELETE $xTV/mnTHETA #
# $Z $DELETE $xTV/MnTHETA #
# $Z $DELETE $xTV/dTHETA #
# $Z $DELETE $xTV/DISTANCE #
# $Z $DELETE $xTV/STABILITE #
# $Z $DELETE $xTV/RAYONS #
# $Z $DELETE $xTV/INTERACTIONS #
# $Z $DELETE $xTV/COULEURS$TEINT #
# $Z $DELETE $xTV/COULEURS$LUMIN #
# $Z $DELETE $xTV/COULEURS$SATUR #
# $Z $DELETE $xTV/COULEURS$Y #
# $Z $DELETE $xTV/COULEURS #
# $Z $DELETE $xTV/COULEURS$ROUGE #
# $Z $DELETE $xTV/COULEURS$VERTE #
# $Z $DELETE $xTV/COULEURS$BLEUE #
# #
# $Z GenL $xTV/TRANSLATION$COORD_Z 0.0 0.0 +0.02 #
# #
# $Z GenL $xTV/COULEURS$ROUGE $GRIS_8 $GRIS_0 $GRIS_8 #
# $Z GenL $xTV/COULEURS$VERTE $GRIS_7 $GRIS_7 $GRIS_8 #
# $Z GenL $xTV/COULEURS$BLEUE $GRIS_0 $GRIS_8 $GRIS_8 #
# #
# $Z GenL $xTV/RAYONS $RayonsV $RayonsV 0.024 #
# #
# $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("$DELETE $xTV/COORDONNEES\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_X\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_Y\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_Z\n"); #
# #
# $c printf("$CA $xTV/LISTE_POINTS | #
# $c $GRE 'periode=%d ' #
# $c > $xTV/COORDONNEES\n" #
# $c ,n #
# $c ); #
# #
# $c printf("set Particules=`$WC $xTV/COORDONNEES`\n"); #
# $c printf("set Particules=$Particules[$WC1]\n"); #
# #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*[ (,]X[G]*=//%c #
# $c -e %cs/[,) ].*//%c #
# $c > $xTV/COORDONNEES$COORD_X\n" #
# $c ,'"','"','"','"' #
# $c ); #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*[ (,]Y[G]*=//%c #
# $c -e %cs/[,) ].*//%c #
# $c > $xTV/COORDONNEES$COORD_Y\n" #
# $c ,'"','"','"','"' #
# $c ); #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*[ (,]Z[G]*=//%c #
# $c -e %cs/[,) ].*//%c #
# $c > $xTV/COORDONNEES$COORD_Z\n" #
# $c ,'"','"','"','"' #
# $c ); #
# #
# $c printf("$xrv/particule.10$X #
# $c np=1 #
# $c iterations=$Particules #
# $c isoles=VRAI #
# $c LISTE_X=$xTV/COORDONNEES$COORD_X #
# $c LISTE_Y=$xTV/COORDONNEES$COORD_Y #
# $c LISTE_Z=$xTV/COORDONNEES$COORD_Z #
# $c LISTE_tZ=$xTV/TRANSLATION$COORD_Z #
# $c LISTE_ROUGE=$xTV/COULEURS$ROUGE #
# $c LISTE_VERTE=$xTV/COULEURS$VERTE #
# $c LISTE_BLEUE=$xTV/COULEURS$BLEUE #
# $c Ar=0.5 #
# $c LISTE_RAYON=$xTV/RAYONS #
# $c Lz=100 #
# $c zoom_automatique=FAUX ZOOM=1.0 #
# $c coordonnees_dans_0_1=FAUX #
# $c AXYZ=1 BXYZ=0 #
# $c fond=FAUX #
# $c centrer=VRAI #
# $c reference=$Particules #
# $c attenuation_au_bord=0.25 #
# $c R=$xTV/CHOC.B. #
# $c $formatI\n" #
# $c ); #
# #
# $c printf("$xci/acces$X #
# $c A=$xTV/CHOC.B.%04d$ROUGE #
# $c R=$xiim/CHOC.5.%04d$ROUGE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xTV/CHOC.B.%04d$VERTE #
# $c R=$xiim/CHOC.5.%04d$VERTE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xTV/CHOC.B.%04d$BLEUE #
# $c R=$xiim/CHOC.5.%04d$BLEUE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# $c } #
# $c } #
# #
# #
# $Z $DELETE $xTV/LISTE_POINTS #
# $Z $DELETE $xTV/COORDONNEES #
# $Z $DELETE $xTV/COORDONNEES$COORD_X #
# $Z $DELETE $xTV/COORDONNEES$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_Z #
# $Z $DELETE $xTV/TRANSLATION$COORD_Z #
# $Z $DELETE $xTV/RAYONS #
# $Z $DELETE $xTV/COULEURS$ROUGE #
# $Z $DELETE $xTV/COULEURS$VERTE #
# $Z $DELETE $xTV/COULEURS$BLEUE #
# #
# #
# $Z Pal #
# #
# $Z $xci/reduction_16$Z $xiim/CHOC.5. $xiak/CHOC.31 $Premiere $Derniere #
# $Z $xci/reduction_64$Z $xiim/CHOC.5. $xiak/CHOC.31 $Premiere $Derniere #
# #
# $X $xci/genere$X c='ro $xiak/CHOC.31$R16%s' RVB=VRAI #
# $X $xci/genere$X c='ro $xiak/CHOC.31$R64%s' RVB=VRAI #
# #
# $X $xci/genere$X c='$xcg/unite$Z $xiak/CHOC.31$R16%s' RVB=VRAI #
# $X $xci/genere$X c='$xcg/unite$Z $xiak/CHOC.31$R64%s' RVB=VRAI #
# #
# #
# Pal #
# #
# #
# $xci/disk_video_P$Z $xiim_LACT29/CHOC.5. 001 128 RVB \ #
# 11 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
# #
# xivPdf 3 2 #
# #
# record.01$Z $xiak/CHOC.31$R16 RVB Initialisation #
# record.01$Z $xiak/CHOC.31$R64 RVB rien #
# #
sequence 022322_022833
# Generee (sur '$LACT29') par : #
# #
# $Z SET Premiere=1 #
# $Z SET Derniere=512 #
# $Z @ Nimages = $Derniere - $Premiere #
# $Z @ Nimages = $Nimages + 1 #
# #
# #
# $Z Pal #
# #
# $Z set PUnivers="np=0 CAL1=FAUX editer_l_univers_physique=VRAI" #
# $Z set Univers=`$xrk/rdn_walk.41$X $PUnivers $formatI` #
# #
# $Z set MinX=`echo $Univers | $SE -e "s/^.*[(,]XUI=//" -e "s/[,)].*//"` #
# $Z set MaxX=`echo $Univers | $SE -e "s/^.*[(,]XUS=//" -e "s/[,)].*//"` #
# $Z set MinY=`echo $Univers | $SE -e "s/^.*[(,]YUI=//" -e "s/[,)].*//"` #
# $Z set MaxY=`echo $Univers | $SE -e "s/^.*[(,]YUS=//" -e "s/[,)].*//"` #
# #
# $Z set MinX=`$xcg/ABSO.01$X x=$MinX` #
# $Z set MaxX=`$xcg/ABSO.01$X x=$MaxX` #
# $Z set MinY=`$xcg/ABSO.01$X x=$MinY` #
# $Z set MaxY=`$xcg/ABSO.01$X x=$MaxY` #
# #
# $Z set MaxX=`$xcg/MAX2.01$X n1=$MinX n2=$MaxX` #
# $Z set MaxY=`$xcg/MAX2.01$X n1=$MinY n2=$MaxY` #
# #
# $Z set SeuilPartN=0.029 #
# $Z set GrainePartN=2 #
# #
# $Z $DELETE $xTV/BOITE.1 #
# $Z $DELETE $xTV/BOITE.2 #
# $Z $DELETE $xTV/BOITE.3 #
# $Z $DELETE $xTV/BOITE.3$ROUGE #
# $Z $DELETE $xTV/BOITE.3$VERTE #
# $Z $DELETE $xTV/BOITE.3$BLEUE #
# $Z $DELETE $xTV/BOITE.6 #
# $Z $DELETE $xTV/BOITE.A #
# $Z $DELETE $xTV/BOITE.B #
# #
# #
# $Z Std #
# #
# $Z $xci/gauss$X \ #
# $Z c=32 \ #
# $Z R=$xTV/GAUSS \ #
# $Z $formatI #
# $Z $xci/random.03$X \ #
# $Z C=$xTV/GAUSS \ #
# $Z facteur=0.009 \ #
# $Z $formatI | \ #
# $Z $xci/dilate.01$X \ #
# $Z points=25 \ #
# $Z $formatI | \ #
# $Z $xci/complement$X \ #
# $Z R=$xTV/BOITE.6 \ #
# $Z $formatI #
# #
# $Z S #
# #
# $Z $xci/format.01$X mode=7 \ #
# $Z A=$xTV/BOITE.6 \ #
# $Z $formatI \ #
# $Z niveau=$BLANC \ #
# $Z R=$xTV/BOITE.1 \ #
# $Z $formatR_Pal #
# #
# $Z $xci/dilate.01$X \ #
# $Z A=$xTV/BOITE.6 \ #
# $Z points=36 \ #
# $Z dilater=FAUX \ #
# $Z R=$xTV/BOITE.A \ #
# $Z $formatI #
# $Z $xci/seuil$X \ #
# $Z A=$xTV/GAUSS \ #
# $Z seuil=$GRIS_6 \ #
# $Z $formatI | \ #
# $Z $xci/and$X \ #
# $Z A1=$xTV/BOITE.A \ #
# $Z R=$xTV/BOITE.A \ #
# $Z $formatI #
# #
# $Z $xci/random.02$X \ #
# $Z seuil=$SeuilPartN \ #
# $Z graine=$GrainePartN \ #
# $Z $formatI | \ #
# $Z $xci/and$X \ #
# $Z A2=$xTV/BOITE.A \ #
# $Z R=$xTV/BOITE.B \ #
# $Z $formatI #
# #
# $Z $DELETE $xTV/COORDONNEES #
# $Z $DELETE $xTV/COORDONNEES_01$COORD_X #
# $Z $DELETE $xTV/COORDONNEES_01$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_X #
# $Z $DELETE $xTV/COORDONNEES$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_Z #
# #
# $Z $xci/liste_points$X \ #
# $Z A=$xTV/BOITE.B \ #
# $Z $formatI \ #
# $Z > $xTV/COORDONNEES #
# #
# $Z $DELETE $xTV/BOITE.6 #
# $Z $DELETE $xTV/BOITE.A #
# $Z $DELETE $xTV/BOITE.B #
# #
# $Z set PartN=`$TAI -1 $xTV/COORDONNEES | $SE -e "s/^.*=//"` #
# #
# $Z $CA $xTV/COORDONNEES \ #
# $Z | $GRE "^[Xx]=" \ #
# $Z | $SE -e "s/^[Xx]=//" \ #
# $Z > $xTV/COORDONNEES_01$COORD_X #
# $Z $CA $xTV/COORDONNEES \ #
# $Z | $GRE "^[Yy]=" \ #
# $Z | $SE -e "s/^[Yy]=//" \ #
# $Z > $xTV/COORDONNEES_01$COORD_Y #
# #
# $Z set EchelleX=`$xcg/MUL2.01$X n1=2 n2=$MaxX` #
# $Z set TranslationX=`$xcg/MUL2.01$X n1=-1 n2=$MaxX` #
# $Z set EchelleY=`$xcg/MUL2.01$X n1=2 n2=$MaxY` #
# $Z set TranslationY=`$xcg/MUL2.01$X n1=-1 n2=$MaxY` #
# #
# $Z $xrv/AXPB.01$X \ #
# $Z CAL1=FAUX \ #
# $Z ne=$PartN \ #
# $Z fichier=$xTV/COORDONNEES_01$COORD_X \ #
# $Z homothetie=$EchelleX translation=$TranslationX \ #
# $Z > $xTV/COORDONNEES$COORD_X #
# $Z $xrv/AXPB.01$X \ #
# $Z CAL1=FAUX \ #
# $Z ne=$PartN \ #
# $Z fichier=$xTV/COORDONNEES_01$COORD_Y \ #
# $Z homothetie=$EchelleY translation=$TranslationY \ #
# $Z > $xTV/COORDONNEES$COORD_Y #
# #
# $Z $DELETE $xTV/COORDONNEES_01$COORD_X #
# $Z $DELETE $xTV/COORDONNEES_01$COORD_Y #
# #
# $Z set Part0=1 #
# $Z @ Npart = $PartN - $Part0 #
# $Z @ Npart = $Npart + 1 #
# #
# $Z $DELETE $xTV/MODULE #
# $Z $DELETE $xTV/THETA #
# $Z $DELETE $xTV/XY_RT.1 #
# $Z $DELETE $xTV/XY_RT.2 #
# $Z $DELETE $xTV/VITESSES #
# $Z $DELETE $xTV/VITESSES$COORD_X #
# $Z $DELETE $xTV/VITESSES$COORD_Y #
# $Z $DELETE $xTV/VITESSES$COORD_Z #
# $Z $DELETE $xTV/mdRHO #
# $Z $DELETE $xTV/MdRHO #
# $Z $DELETE $xTV/mnPHI #
# $Z $DELETE $xTV/MnPHI #
# $Z $DELETE $xTV/dPHI #
# $Z $DELETE $xTV/mnTHETA #
# $Z $DELETE $xTV/MnTHETA #
# $Z $DELETE $xTV/dTHETA #
# $Z $DELETE $xTV/supOUVE #
# $Z $DELETE $xTV/DISTANCE #
# $Z $DELETE $xTV/STABILITE #
# $Z $DELETE $xTV/RAYONS #
# $Z $DELETE $xTV/INTERACTIONS #
# #
# #
# $Z alias Gen 'set Fi=\!:1 ; set vD=\!:2 ; set vA=\!:3 ; set ArG=(\!:4*) ; \\ #
# $Z $DELETE $Fi ; \\ #
# $Z $xci/valeurs_inte$X p=$Part0 d=$PartN vD=$vD vA=$vA $ArG > $Fi ; \\ #
# $Z unset Fi vD vA ArG' #
# #
# $Z alias GenR 'set Fi=\!:1 ; set In=\!:2 ; set Su=\!:3 ; set ArG=(\!:4*) ; \\ #
# $Z $DELETE $Fi ; \\ #
# $Z $xci/valeurs_alea$X p=$Part0 d=$PartN signe="$KV" inf=$In sup=$Su $ArG > $Fi ; \\ #
# $Z unset Fi In Su ArG' #
# #
# $Z Gen $xTV/COORDONNEES$COORD_Z 0.0 0.0 #
# #
# #
# $Z Gen $xTV/MODULE 0.02 0.02 #
# $Z GenR $xTV/THETA 0.0 $dpi g=3333 #
# #
# $Z $CA $xcs/csh$Y \ #
# $Z > $xTV/XY_RT.1 #
# $Z $PAST $xTV/MODULE $xTV/THETA \ #
# $Z | $R "$K_TAB" "$K_BLANC" \ #
# $Z | $AW ' { print "$xcg/XY_RT$X r=" $1 " t=" $2 " cartesien=FAUX" } ' \ #
# $Z >>! $xTV/XY_RT.1 #
# #
# $Z (source $xTV/XY_RT.1) \ #
# $Z > $xTV/XY_RT.2 #
# #
# $Z $CA $xTV/XY_RT.2 \ #
# $Z | $GRE "^x=" \ #
# $Z | $SE -e "s/^x=//" \ #
# $Z > $xTV/VITESSES$COORD_X #
# $Z $CA $xTV/XY_RT.2 \ #
# $Z | $GRE "^y=" \ #
# $Z | $SE -e "s/^y=//" \ #
# $Z > $xTV/VITESSES$COORD_Y #
# #
# $Z Gen $xTV/VITESSES$COORD_Z 0.0 0.0 #
# #
# $Z Gen $xTV/mdRHO 0.0 0.0 #
# $Z Gen $xTV/MdRHO 0.0 0.0 #
# $Z Gen $xTV/mnPHI 0.0 0.0 #
# $Z Gen $xTV/MnPHI 0.0 0.0 #
# $Z Gen $xTV/dPHI 0.0 0.0 #
# $Z Gen $xTV/mnTHETA 0.0 0.0 #
# $Z Gen $xTV/MnTHETA 0.0 0.0 #
# $Z Gen $xTV/dTHETA 0.0 0.0 #
# $Z Gen $xTV/DISTANCE 1000000 1000000 #
# $Z Gen $xTV/STABILITE 1000000 1000000 #
# #
# $Z set RayonsT=0.014 #
# $Z set RayonsP=`$xcg/MUL2.01$X a=2 b=$RayonsT` #
# $Z set DistanceI=`$xcg/MUL2.01$X a=4 b=$RayonsP` #
# $Z Gen $xTV/RAYONS $RayonsT $RayonsT #
# $Z Gen $xTV/INTERACTIONS $RayonsP $RayonsP #
# #
# $Z $DELETE $xTV/COULEURS$TEINT #
# $Z $DELETE $xTV/COULEURS$LUMIN #
# $Z $DELETE $xTV/COULEURS$SATUR #
# $Z $DELETE $xTV/COULEURS$Y #
# $Z $DELETE $xTV/COULEURS #
# $Z $DELETE $xTV/COULEURS$ROUGE #
# $Z $DELETE $xTV/COULEURS$VERTE #
# $Z $DELETE $xTV/COULEURS$BLEUE #
# #
# $Z @ TeinteRouge = $GRIS_0 #
# $Z @ TeinteJaune = $GRIS_8 / 6 #
# #
# $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartN \ #
# $Z vD=$TeinteRouge vA=$TeinteJaune \ #
# $Z cubique=FAUX \ #
# $Z entiers=VRAI \ #
# $Z > $xTV/COULEURS$TEINT #
# $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartN \ #
# $Z vD=$GRIS_4 vA=$GRIS_4 \ #
# $Z cubique=FAUX \ #
# $Z entiers=VRAI \ #
# $Z > $xTV/COULEURS$LUMIN #
# $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartN \ #
# $Z vD=$GRIS_8 vA=$GRIS_8 \ #
# $Z cubique=FAUX \ #
# $Z entiers=VRAI \ #
# $Z > $xTV/COULEURS$SATUR #
# #
# $Z $PAST \ #
# $Z $xTV/COULEURS$TEINT \ #
# $Z $xTV/COULEURS$LUMIN \ #
# $Z $xTV/COULEURS$SATUR \ #
# $Z | $R "$K_TAB" "$K_BLANC" \ #
# $Z | $AW ' { print "H=" $1 " L=" $2 " S=" $3 } ' \ #
# $Z | $SE -e 's+^+$xcg/RVB_HLS$X RVB_HLS=FAUX +' \ #
# $Z | $SE -e 's/$/ eR=VRAI eV=VRAI eB=VRAI/' \ #
# $Z | $SE -e 's/$/ eH=FAUX eL=FAUX eS=FAUX/' \ #
# $Z > $xTV/COULEURS$Y #
# #
# $Z (source $xTV/COULEURS$Y) \ #
# $Z > $xTV/COULEURS #
# #
# $Z $GRE "^R=" $xTV/COULEURS \ #
# $Z | $SE -e "s/^R=//" \ #
# $Z > $xTV/COULEURS$ROUGE #
# $Z $GRE "^V=" $xTV/COULEURS \ #
# $Z | $SE -e "s/^V=//" \ #
# $Z > $xTV/COULEURS$VERTE #
# $Z $GRE "^B=" $xTV/COULEURS \ #
# $Z | $SE -e "s/^B=//" \ #
# $Z > $xTV/COULEURS$BLEUE #
# #
# $Z Pal #
# #
# #
# $Z $xci/scale$X \ #
# $Z A=$xTV/BOITE.1 \ #
# $Z a=1.00 \ #
# $Z R=$xTV/BOITE.2 \ #
# $Z $formatI #
# #
# $Z $xrk/rdn_walk.41$X corps=$Npart \ #
# $Z np=$Nimages \ #
# $Z collisions=FAUX DLA=FAUX interaction=$DistanceI \ #
# $Z LISTE_X=$xTV/COORDONNEES$COORD_X \ #
# $Z LISTE_Y=$xTV/COORDONNEES$COORD_Y \ #
# $Z LISTE_Z=$xTV/COORDONNEES$COORD_Z \ #
# $Z LISTE_VX=$xTV/VITESSES$COORD_X \ #
# $Z LISTE_VY=$xTV/VITESSES$COORD_Y \ #
# $Z LISTE_VZ=$xTV/VITESSES$COORD_Z \ #
# $Z LISTE_MINIMUM_DELTA_RHO=$xTV/mdRHO \ #
# $Z LISTE_MAXIMUM_DELTA_RHO=$xTV/MdRHO \ #
# $Z LISTE_MINIMUM_N_PHI=$xTV/mnPHI \ #
# $Z LISTE_MAXIMUM_N_PHI=$xTV/MnPHI \ #
# $Z LISTE_DELTA_PHI=$xTV/dPHI \ #
# $Z LISTE_MINIMUM_N_THETA=$xTV/mnTHETA \ #
# $Z LISTE_MAXIMUM_N_THETA=$xTV/MnTHETA \ #
# $Z LISTE_DELTA_THETA=$xTV/dTHETA \ #
# $Z LISTE_DISTANCE_MAXIMALE=$xTV/DISTANCE \ #
# $Z LISTE_STABILITE=$xTV/STABILITE \ #
# $Z LISTE_RAYON=$xTV/RAYONS \ #
# $Z LISTE_RAYON_D_INTERACTION=$xTV/INTERACTIONS \ #
# $Z LISTE_ROUGE=$xTV/COULEURS$ROUGE \ #
# $Z LISTE_VERTE=$xTV/COULEURS$VERTE \ #
# $Z LISTE_BLEUE=$xTV/COULEURS$BLEUE \ #
# $Z milieu=VRAI \ #
# $Z reflexion=VRAI refraction=FAUX \ #
# $Z Mhors=$BLANC \ #
# $Z MNpasX=1 Mprolonger_X=VRAI \ #
# $Z MNpasY=1 Mprolonger_Y=VRAI \ #
# $Z MNpasZ=1 Mprolonger_Z=VRAI \ #
# $Z adapter_M_nPAS=VRAI \ #
# $Z Msimplifier=FAUX affiner_M_maillage=FAUX \ #
# $Z MC=$xTV/BOITE.2 \ #
# $Z MChiffres=0 \ #
# $Z Zmin=0 Zmax=15 \ #
# $Z centrer=VRAI \ #
# $Z dct=0.05 nombre=10 \ #
# $Z trainees=VRAI mode=1 \ #
# $Z attenuation_des_images=0.6 \ #
# $Z attenuation_des_trainees=1.00 \ #
# $Z renormaliser=FAUX \ #
# $Z Lz=100 \ #
# $Z zoom_automatique=VRAI \ #
# $Z centre_de_gravite=FAUX \ #
# $Z fond=FAUX \ #
# $Z R=$xiim/SOLE.W. \ #
# $Z $formatI #
# #
# $Z $DELETE $xTV/RAYONS #
# $Z $CP $xTV/INTERACTIONS $xTV/RAYONS #
# #
# $Z $xrk/rdn_walk.41$X corps=$Npart \ #
# $Z np=$Nimages \ #
# $Z collisions=FAUX DLA=FAUX interaction=$DistanceI \ #
# $Z LISTE_X=$xTV/COORDONNEES$COORD_X \ #
# $Z LISTE_Y=$xTV/COORDONNEES$COORD_Y \ #
# $Z LISTE_Z=$xTV/COORDONNEES$COORD_Z \ #
# $Z LISTE_VX=$xTV/VITESSES$COORD_X \ #
# $Z LISTE_VY=$xTV/VITESSES$COORD_Y \ #
# $Z LISTE_VZ=$xTV/VITESSES$COORD_Z \ #
# $Z LISTE_MINIMUM_DELTA_RHO=$xTV/mdRHO \ #
# $Z LISTE_MAXIMUM_DELTA_RHO=$xTV/MdRHO \ #
# $Z LISTE_MINIMUM_N_PHI=$xTV/mnPHI \ #
# $Z LISTE_MAXIMUM_N_PHI=$xTV/MnPHI \ #
# $Z LISTE_DELTA_PHI=$xTV/dPHI \ #
# $Z LISTE_MINIMUM_N_THETA=$xTV/mnTHETA \ #
# $Z LISTE_MAXIMUM_N_THETA=$xTV/MnTHETA \ #
# $Z LISTE_DELTA_THETA=$xTV/dTHETA \ #
# $Z LISTE_DISTANCE_MAXIMALE=$xTV/DISTANCE \ #
# $Z LISTE_STABILITE=$xTV/STABILITE \ #
# $Z LISTE_RAYON=$xTV/RAYONS \ #
# $Z LISTE_RAYON_D_INTERACTION=$xTV/INTERACTIONS \ #
# $Z LISTE_ROUGE=$xTV/COULEURS$ROUGE \ #
# $Z LISTE_VERTE=$xTV/COULEURS$VERTE \ #
# $Z LISTE_BLEUE=$xTV/COULEURS$BLEUE \ #
# $Z milieu=VRAI \ #
# $Z reflexion=VRAI refraction=FAUX \ #
# $Z Mhors=$BLANC \ #
# $Z MNpasX=1 Mprolonger_X=VRAI \ #
# $Z MNpasY=1 Mprolonger_Y=VRAI \ #
# $Z MNpasZ=1 Mprolonger_Z=VRAI \ #
# $Z adapter_M_nPAS=VRAI \ #
# $Z Msimplifier=FAUX affiner_M_maillage=FAUX \ #
# $Z MC=$xTV/BOITE.2 \ #
# $Z MChiffres=0 \ #
# $Z Zmin=0 Zmax=15 \ #
# $Z centrer=VRAI \ #
# $Z dct=0.05 nombre=10 \ #
# $Z trainees=VRAI mode=1 \ #
# $Z attenuation_des_images=1.0 \ #
# $Z attenuation_des_trainees=0.80 \ #
# $Z renormaliser=FAUX \ #
# $Z Lz=100 \ #
# $Z zoom_automatique=VRAI \ #
# $Z centre_de_gravite=FAUX \ #
# $Z fond=VRAI \ #
# $Z dynamique=VRAI \ #
# $Z F=$xiim/SOLE.W. \ #
# $Z R=$xiim/SOLE.W. \ #
# $Z $formatI #
# #
# $Z $DELETE $xTV/COORDONNEES #
# $Z $DELETE $xTV/COORDONNEES$COORD_X #
# $Z $DELETE $xTV/COORDONNEES$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_Z #
# $Z $DELETE $xTV/VITESSES #
# $Z $DELETE $xTV/VITESSES$COORD_X #
# $Z $DELETE $xTV/VITESSES$COORD_Y #
# $Z $DELETE $xTV/VITESSES$COORD_Z #
# $Z $DELETE $xTV/mdRHO #
# $Z $DELETE $xTV/MdRHO #
# $Z $DELETE $xTV/mnPHI #
# $Z $DELETE $xTV/MnPHI #
# $Z $DELETE $xTV/dPHI #
# $Z $DELETE $xTV/mnTHETA #
# $Z $DELETE $xTV/MnTHETA #
# $Z $DELETE $xTV/dTHETA #
# $Z $DELETE $xTV/DISTANCE #
# $Z $DELETE $xTV/STABILITE #
# $Z $DELETE $xTV/RAYONS #
# $Z $DELETE $xTV/INTERACTIONS #
# $Z $DELETE $xTV/COULEURS$TEINT #
# $Z $DELETE $xTV/COULEURS$LUMIN #
# $Z $DELETE $xTV/COULEURS$SATUR #
# $Z $DELETE $xTV/COULEURS$Y #
# $Z $DELETE $xTV/COULEURS #
# $Z $DELETE $xTV/COULEURS$ROUGE #
# $Z $DELETE $xTV/COULEURS$VERTE #
# $Z $DELETE $xTV/COULEURS$BLEUE #
# #
# #
# $Z Pal #
# #
# $Z $xci/gauss$X \ #
# $Z R=$xTV/BOITE.3 \ #
# $Z $formatI #
# $Z $xci/vraies_C$X A=$xTV/BOITE.3 \ #
# $Z p=$xiP/orange.02 \ #
# $Z RVB=VRAI \ #
# $Z R=$xTV/BOITE.3 \ #
# $Z $formatI #
# #
# $Z eval `$xci/genere$X \\\ #
# $Z commande='($xci/scale$X \\\ #
# $Z A=$xTV/BOITE.3%s \\\ #
# $Z a=0.80 \\\ #
# $Z R=$xTV/BOITE.3%s \\\ #
# $Z $formatI)' \\\ #
# $Z en_tete=FAUX RVB=VRAI separateur=VRAI` #
# #
# $X $xci/genere$X premiere=$Premiere derniere=$Derniere pas=1 \ #
# $X C='$xci/vitre.53$Z \ #
# $X $xTV/BOITE.3 \ #
# $X $xiim/SOLE.W.%04d \ #
# $X $xiim/SOLE.1.%04d' #
# #
# $Z $DELETE $xTV/BOITE.1 #
# $Z $DELETE $xTV/BOITE.2 #
# $Z $DELETE $xTV/BOITE.3 #
# $Z $DELETE $xTV/BOITE.3$ROUGE #
# $Z $DELETE $xTV/BOITE.3$VERTE #
# $Z $DELETE $xTV/BOITE.3$BLEUE #
# #
# $Z Pal #
# #
# $Z $xci/reduction_16$Z $xiim/SOLE.1. $xiak/SOLE.11 $Premiere $Derniere #
# $Z $xci/reduction_64$Z $xiim/SOLE.1. $xiak/SOLE.11 $Premiere $Derniere #
# #
# $X $xci/genere$X c='ro $xiak/SOLE.11$R16%s' RVB=VRAI #
# $X $xci/genere$X c='ro $xiak/SOLE.11$R64%s' RVB=VRAI #
# #
# $X $xci/genere$X c='$xcg/unite$Z $xiak/SOLE.11$R16%s' RVB=VRAI #
# $X $xci/genere$X c='$xcg/unite$Z $xiak/SOLE.11$R64%s' RVB=VRAI #
# #
# $X $xci/genere$X c='$CP $xiim/SOLE.1.0128%s $xiirk/SOLE.11.0128%s' RVB=VRAI #
# #
# $X $xci/genere$X c='ro $xiirk/SOLE.11.0128%s' RVB=VRAI #
# #
# $X $xci/genere$X c='$xcg/unite$Z $xiirk/SOLE.11.0128%s' RVB=VRAI #
# #
# #
# Pal #
# #
# #
# $xci/disk_video_P$Z $xiim_LACT29/SOLE.1. 001 512 RVB \ #
# 11 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
# #
# xivPdf 3 2 #
# #
# record.01$Z $xiak/SOLE.11$R16 RVB Initialisation #
# record.01$Z $xiak/SOLE.11$R64 RVB rien #
# record.01$Z $xiirk/SOLE.11.0128 RVB rien #
# #
sequence 022834_023345
# Generee (sur '$LACT29') par : #
# #
# $Z SET Premiere=1 #
# $Z SET Derniere=512 #
# $Z @ Nimages = $Derniere - $Premiere #
# $Z @ Nimages = $Nimages + 1 #
# #
# #
# $Z Pal #
# #
# $Z set PUnivers="np=0 CAL1=FAUX editer_l_univers_physique=VRAI" #
# $Z set Univers=`$xrk/rdn_walk.41$X $PUnivers $formatI` #
# #
# $Z set MinX=`echo $Univers | $SE -e "s/^.*[(,]XUI=//" -e "s/[,)].*//"` #
# $Z set MaxX=`echo $Univers | $SE -e "s/^.*[(,]XUS=//" -e "s/[,)].*//"` #
# $Z set MinY=`echo $Univers | $SE -e "s/^.*[(,]YUI=//" -e "s/[,)].*//"` #
# $Z set MaxY=`echo $Univers | $SE -e "s/^.*[(,]YUS=//" -e "s/[,)].*//"` #
# #
# $Z set MinX=`$xcg/ABSO.01$X x=$MinX` #
# $Z set MaxX=`$xcg/ABSO.01$X x=$MaxX` #
# $Z set MinY=`$xcg/ABSO.01$X x=$MinY` #
# $Z set MaxY=`$xcg/ABSO.01$X x=$MaxY` #
# #
# $Z set MaxX=`$xcg/MAX2.01$X n1=$MinX n2=$MaxX` #
# $Z set MaxY=`$xcg/MAX2.01$X n1=$MinY n2=$MaxY` #
# #
# $Z set SeuilPartN=0.0290 #
# $Z set GrainePartN=2 #
# #
# $Z $DELETE $xTV/BOITE.1 #
# $Z $DELETE $xTV/BOITE.2 #
# $Z $DELETE $xTV/BOITE.3 #
# $Z $DELETE $xTV/BOITE.3$ROUGE #
# $Z $DELETE $xTV/BOITE.3$VERTE #
# $Z $DELETE $xTV/BOITE.3$BLEUE #
# $Z $DELETE $xTV/BOITE.6 #
# $Z $DELETE $xTV/BOITE.A #
# $Z $DELETE $xTV/BOITE.B #
# #
# #
# $Z Std #
# #
# $Z $xci/gauss$X \ #
# $Z c=32 \ #
# $Z R=$xTV/GAUSS \ #
# $Z $formatI #
# $Z $xci/random.03$X \ #
# $Z C=$xTV/GAUSS \ #
# $Z facteur=0.009 \ #
# $Z $formatI | \ #
# $Z $xci/dilate.01$X \ #
# $Z points=25 \ #
# $Z $formatI | \ #
# $Z $xci/complement$X \ #
# $Z R=$xTV/BOITE.6 \ #
# $Z $formatI #
# #
# $Z S #
# #
# $Z $xci/format.01$X mode=7 \ #
# $Z A=$xTV/BOITE.6 \ #
# $Z $formatI \ #
# $Z niveau=$BLANC \ #
# $Z R=$xTV/BOITE.1 \ #
# $Z $formatR_Pal #
# #
# $Z $xci/dilate.01$X \ #
# $Z A=$xTV/BOITE.6 \ #
# $Z points=36 \ #
# $Z dilater=FAUX \ #
# $Z R=$xTV/BOITE.A \ #
# $Z $formatI #
# $Z $xci/seuil$X \ #
# $Z A=$xTV/GAUSS \ #
# $Z seuil=$GRIS_6 \ #
# $Z $formatI | \ #
# $Z $xci/and$X \ #
# $Z A1=$xTV/BOITE.A \ #
# $Z R=$xTV/BOITE.A \ #
# $Z $formatI #
# #
# $Z $xci/random.02$X \ #
# $Z seuil=$SeuilPartN \ #
# $Z graine=$GrainePartN \ #
# $Z $formatI | \ #
# $Z $xci/and$X \ #
# $Z A2=$xTV/BOITE.A \ #
# $Z R=$xTV/BOITE.B \ #
# $Z $formatI #
# #
# $Z $DELETE $xTV/COORDONNEES #
# $Z $DELETE $xTV/COORDONNEES_01$COORD_X #
# $Z $DELETE $xTV/COORDONNEES_01$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_X #
# $Z $DELETE $xTV/COORDONNEES$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_Z #
# #
# $Z $xci/liste_points$X \ #
# $Z A=$xTV/BOITE.B \ #
# $Z $formatI \ #
# $Z > $xTV/COORDONNEES #
# #
# $Z $DELETE $xTV/BOITE.6 #
# $Z $DELETE $xTV/BOITE.A #
# $Z $DELETE $xTV/BOITE.B #
# #
# $Z set PartN=`$TAI -1 $xTV/COORDONNEES | $SE -e "s/^.*=//"` #
# #
# $Z $CA $xTV/COORDONNEES \ #
# $Z | $GRE "^[Xx]=" \ #
# $Z | $SE -e "s/^[Xx]=//" \ #
# $Z > $xTV/COORDONNEES_01$COORD_X #
# $Z $CA $xTV/COORDONNEES \ #
# $Z | $GRE "^[Yy]=" \ #
# $Z | $SE -e "s/^[Yy]=//" \ #
# $Z > $xTV/COORDONNEES_01$COORD_Y #
# #
# $Z set EchelleX=`$xcg/MUL2.01$X n1=2 n2=$MaxX` #
# $Z set TranslationX=`$xcg/MUL2.01$X n1=-1 n2=$MaxX` #
# $Z set EchelleY=`$xcg/MUL2.01$X n1=2 n2=$MaxY` #
# $Z set TranslationY=`$xcg/MUL2.01$X n1=-1 n2=$MaxY` #
# #
# $Z $xrv/AXPB.01$X \ #
# $Z CAL1=FAUX \ #
# $Z ne=$PartN \ #
# $Z fichier=$xTV/COORDONNEES_01$COORD_X \ #
# $Z homothetie=$EchelleX translation=$TranslationX \ #
# $Z > $xTV/COORDONNEES$COORD_X #
# $Z $xrv/AXPB.01$X \ #
# $Z CAL1=FAUX \ #
# $Z ne=$PartN \ #
# $Z fichier=$xTV/COORDONNEES_01$COORD_Y \ #
# $Z homothetie=$EchelleY translation=$TranslationY \ #
# $Z > $xTV/COORDONNEES$COORD_Y #
# #
# $Z $DELETE $xTV/COORDONNEES_01$COORD_X #
# $Z $DELETE $xTV/COORDONNEES_01$COORD_Y #
# #
# $Z set Part0=1 #
# $Z @ Npart = $PartN - $Part0 #
# $Z @ Npart = $Npart + 1 #
# #
# $Z $DELETE $xTV/MODULE #
# $Z $DELETE $xTV/THETA #
# $Z $DELETE $xTV/XY_RT.1 #
# $Z $DELETE $xTV/XY_RT.2 #
# $Z $DELETE $xTV/VITESSES #
# $Z $DELETE $xTV/VITESSES$COORD_X #
# $Z $DELETE $xTV/VITESSES$COORD_Y #
# $Z $DELETE $xTV/VITESSES$COORD_Z #
# $Z $DELETE $xTV/mdRHO #
# $Z $DELETE $xTV/MdRHO #
# $Z $DELETE $xTV/mnPHI #
# $Z $DELETE $xTV/MnPHI #
# $Z $DELETE $xTV/dPHI #
# $Z $DELETE $xTV/mnTHETA #
# $Z $DELETE $xTV/MnTHETA #
# $Z $DELETE $xTV/dTHETA #
# $Z $DELETE $xTV/supOUVE #
# $Z $DELETE $xTV/DISTANCE #
# $Z $DELETE $xTV/NAISSANCE #
# $Z $DELETE $xTV/STABILITE #
# $Z $DELETE $xTV/RAYONS #
# $Z $DELETE $xTV/INTERACTIONS #
# #
# #
# $Z alias Gen 'set Fi=\!:1 ; set vD=\!:2 ; set vA=\!:3 ; set ArG=(\!:4*) ; \\ #
# $Z $DELETE $Fi ; \\ #
# $Z $xci/valeurs_inte$X p=$Part0 d=$PartN vD=$vD vA=$vA $ArG > $Fi ; \\ #
# $Z unset Fi vD vA ArG' #
# #
# $Z alias GenR 'set Fi=\!:1 ; set In=\!:2 ; set Su=\!:3 ; set ArG=(\!:4*) ; \\ #
# $Z $DELETE $Fi ; \\ #
# $Z $xci/valeurs_alea$X p=$Part0 d=$PartN signe="$KV" inf=$In sup=$Su $ArG > $Fi ; \\ #
# $Z unset Fi In Su ArG' #
# #
# $Z Gen $xTV/COORDONNEES$COORD_Z 0.0 0.0 #
# #
# #
# $Z Gen $xTV/MODULE 0.02 0.02 #
# $Z GenR $xTV/THETA 0.0 $dpi g=3333 #
# #
# $Z $CA $xcs/csh$Y \ #
# $Z > $xTV/XY_RT.1 #
# $Z $PAST $xTV/MODULE $xTV/THETA \ #
# $Z | $R "$K_TAB" "$K_BLANC" \ #
# $Z | $AW ' { print "$xcg/XY_RT$X r=" $1 " t=" $2 " cartesien=FAUX" } ' \ #
# $Z >>! $xTV/XY_RT.1 #
# #
# $Z (source $xTV/XY_RT.1) \ #
# $Z > $xTV/XY_RT.2 #
# #
# $Z $CA $xTV/XY_RT.2 \ #
# $Z | $GRE "^x=" \ #
# $Z | $SE -e "s/^x=//" \ #
# $Z > $xTV/VITESSES$COORD_X #
# $Z $CA $xTV/XY_RT.2 \ #
# $Z | $GRE "^y=" \ #
# $Z | $SE -e "s/^y=//" \ #
# $Z > $xTV/VITESSES$COORD_Y #
# #
# $Z Gen $xTV/VITESSES$COORD_Z 0.0 0.0 #
# #
# $Z Gen $xTV/mdRHO 0.0 0.0 #
# $Z Gen $xTV/MdRHO 0.0 0.0 #
# $Z Gen $xTV/mnPHI 0.0 0.0 #
# $Z Gen $xTV/MnPHI 0.0 0.0 #
# $Z Gen $xTV/dPHI 0.0 0.0 #
# $Z Gen $xTV/mnTHETA 0.0 0.0 #
# $Z Gen $xTV/MnTHETA 0.0 0.0 #
# $Z Gen $xTV/dTHETA 0.0 0.0 #
# $Z Gen $xTV/DISTANCE 1000000 1000000 #
# #
# $Z set PasDeTemps=0.05 #
# $Z set NPasDeTemps=10 #
# $Z set Fin=`$xcg/MUL2.01$X a=$NPasDeTemps b=$PasDeTemps` #
# $Z set Fin=`$xcg/MUL2.01$X a=$Nimages b=$Fin` #
# $Z set Debut=`$xcg/MUL2.01$X a=-0.02 b=$Fin` #
# #
# $Z GenR $xTV/NAISSANCE $Debut $Fin entiers=FAUX g=1111 #
# #
# $Z Gen $xTV/STABILITE 1000000 1000000 #
# #
# $Z set RayonsT=0.014 #
# $Z set RayonsP=`$xcg/MUL2.01$X a=2 b=$RayonsT` #
# $Z set DistanceI=`$xcg/MUL2.01$X a=4 b=$RayonsP` #
# $Z Gen $xTV/RAYONS $RayonsT $RayonsT #
# $Z Gen $xTV/INTERACTIONS $RayonsP $RayonsP #
# #
# $Z $DELETE $xTV/COULEURS$TEINT #
# $Z $DELETE $xTV/COULEURS$LUMIN #
# $Z $DELETE $xTV/COULEURS$SATUR #
# $Z $DELETE $xTV/COULEURS$Y #
# $Z $DELETE $xTV/COULEURS #
# $Z $DELETE $xTV/COULEURS$ROUGE #
# $Z $DELETE $xTV/COULEURS$VERTE #
# $Z $DELETE $xTV/COULEURS$BLEUE #
# #
# $Z @ TeinteRouge = $GRIS_0 #
# $Z @ TeinteJaune = $GRIS_8 / 6 #
# #
# $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartN \ #
# $Z vD=$TeinteRouge vA=$TeinteJaune \ #
# $Z cubique=FAUX \ #
# $Z entiers=VRAI \ #
# $Z > $xTV/COULEURS$TEINT #
# $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartN \ #
# $Z vD=$GRIS_4 vA=$GRIS_4 \ #
# $Z cubique=FAUX \ #
# $Z entiers=VRAI \ #
# $Z > $xTV/COULEURS$LUMIN #
# $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartN \ #
# $Z vD=$GRIS_8 vA=$GRIS_8 \ #
# $Z cubique=FAUX \ #
# $Z entiers=VRAI \ #
# $Z > $xTV/COULEURS$SATUR #
# #
# $Z $PAST \ #
# $Z $xTV/COULEURS$TEINT \ #
# $Z $xTV/COULEURS$LUMIN \ #
# $Z $xTV/COULEURS$SATUR \ #
# $Z | $R "$K_TAB" "$K_BLANC" \ #
# $Z | $AW ' { print "H=" $1 " L=" $2 " S=" $3 } ' \ #
# $Z | $SE -e 's+^+$xcg/RVB_HLS$X RVB_HLS=FAUX +' \ #
# $Z | $SE -e 's/$/ eR=VRAI eV=VRAI eB=VRAI/' \ #
# $Z | $SE -e 's/$/ eH=FAUX eL=FAUX eS=FAUX/' \ #
# $Z > $xTV/COULEURS$Y #
# #
# $Z (source $xTV/COULEURS$Y) \ #
# $Z > $xTV/COULEURS #
# #
# $Z $GRE "^R=" $xTV/COULEURS \ #
# $Z | $SE -e "s/^R=//" \ #
# $Z > $xTV/COULEURS$ROUGE #
# $Z $GRE "^V=" $xTV/COULEURS \ #
# $Z | $SE -e "s/^V=//" \ #
# $Z > $xTV/COULEURS$VERTE #
# $Z $GRE "^B=" $xTV/COULEURS \ #
# $Z | $SE -e "s/^B=//" \ #
# $Z > $xTV/COULEURS$BLEUE #
# #
# $Z Pal #
# #
# #
# $Z $xci/scale$X \ #
# $Z A=$xTV/BOITE.1 \ #
# $Z a=1.00 \ #
# $Z R=$xTV/BOITE.2 \ #
# $Z $formatI #
# #
# $Z $xrk/rdn_walk.41$X corps=$Npart \ #
# $Z np=$Nimages \ #
# $Z collisions=FAUX DLA=FAUX interaction=$DistanceI \ #
# $Z LISTE_X=$xTV/COORDONNEES$COORD_X \ #
# $Z LISTE_Y=$xTV/COORDONNEES$COORD_Y \ #
# $Z LISTE_Z=$xTV/COORDONNEES$COORD_Z \ #
# $Z LISTE_VX=$xTV/VITESSES$COORD_X \ #
# $Z LISTE_VY=$xTV/VITESSES$COORD_Y \ #
# $Z LISTE_VZ=$xTV/VITESSES$COORD_Z \ #
# $Z LISTE_MINIMUM_DELTA_RHO=$xTV/mdRHO \ #
# $Z LISTE_MAXIMUM_DELTA_RHO=$xTV/MdRHO \ #
# $Z LISTE_MINIMUM_N_PHI=$xTV/mnPHI \ #
# $Z LISTE_MAXIMUM_N_PHI=$xTV/MnPHI \ #
# $Z LISTE_DELTA_PHI=$xTV/dPHI \ #
# $Z LISTE_MINIMUM_N_THETA=$xTV/mnTHETA \ #
# $Z LISTE_MAXIMUM_N_THETA=$xTV/MnTHETA \ #
# $Z LISTE_DELTA_THETA=$xTV/dTHETA \ #
# $Z LISTE_DISTANCE_MAXIMALE=$xTV/DISTANCE \ #
# $Z LISTE_DATE_DE_NAISSANCE=$xTV/NAISSANCE \ #
# $Z LISTE_STABILITE=$xTV/STABILITE \ #
# $Z LISTE_RAYON=$xTV/RAYONS \ #
# $Z LISTE_RAYON_D_INTERACTION=$xTV/INTERACTIONS \ #
# $Z LISTE_ROUGE=$xTV/COULEURS$ROUGE \ #
# $Z LISTE_VERTE=$xTV/COULEURS$VERTE \ #
# $Z LISTE_BLEUE=$xTV/COULEURS$BLEUE \ #
# $Z milieu=VRAI \ #
# $Z reflexion=VRAI refraction=FAUX \ #
# $Z Mhors=$BLANC \ #
# $Z MNpasX=1 Mprolonger_X=VRAI \ #
# $Z MNpasY=1 Mprolonger_Y=VRAI \ #
# $Z MNpasZ=1 Mprolonger_Z=VRAI \ #
# $Z adapter_M_nPAS=VRAI \ #
# $Z Msimplifier=FAUX affiner_M_maillage=FAUX \ #
# $Z MC=$xTV/BOITE.2 \ #
# $Z MChiffres=0 \ #
# $Z Zmin=0 Zmax=15 \ #
# $Z centrer=VRAI \ #
# $Z dct=$PasDeTemps nombre=$NPasDeTemps \ #
# $Z trainees=VRAI mode=1 \ #
# $Z attenuation_des_images=0.6 \ #
# $Z attenuation_des_trainees=1.00 \ #
# $Z renormaliser=FAUX \ #
# $Z Lz=100 \ #
# $Z zoom_automatique=VRAI \ #
# $Z centre_de_gravite=FAUX \ #
# $Z fond=FAUX \ #
# $Z R=$xiim/SOLE.W. \ #
# $Z $formatI #
# #
# $Z $DELETE $xTV/RAYONS #
# $Z $CP $xTV/INTERACTIONS $xTV/RAYONS #
# #
# $Z $xrk/rdn_walk.41$X corps=$Npart \ #
# $Z np=$Nimages \ #
# $Z collisions=FAUX DLA=FAUX interaction=$DistanceI \ #
# $Z LISTE_X=$xTV/COORDONNEES$COORD_X \ #
# $Z LISTE_Y=$xTV/COORDONNEES$COORD_Y \ #
# $Z LISTE_Z=$xTV/COORDONNEES$COORD_Z \ #
# $Z LISTE_VX=$xTV/VITESSES$COORD_X \ #
# $Z LISTE_VY=$xTV/VITESSES$COORD_Y \ #
# $Z LISTE_VZ=$xTV/VITESSES$COORD_Z \ #
# $Z LISTE_MINIMUM_DELTA_RHO=$xTV/mdRHO \ #
# $Z LISTE_MAXIMUM_DELTA_RHO=$xTV/MdRHO \ #
# $Z LISTE_MINIMUM_N_PHI=$xTV/mnPHI \ #
# $Z LISTE_MAXIMUM_N_PHI=$xTV/MnPHI \ #
# $Z LISTE_DELTA_PHI=$xTV/dPHI \ #
# $Z LISTE_MINIMUM_N_THETA=$xTV/mnTHETA \ #
# $Z LISTE_MAXIMUM_N_THETA=$xTV/MnTHETA \ #
# $Z LISTE_DELTA_THETA=$xTV/dTHETA \ #
# $Z LISTE_DISTANCE_MAXIMALE=$xTV/DISTANCE \ #
# $Z LISTE_DATE_DE_NAISSANCE=$xTV/NAISSANCE \ #
# $Z LISTE_STABILITE=$xTV/STABILITE \ #
# $Z LISTE_RAYON=$xTV/RAYONS \ #
# $Z LISTE_RAYON_D_INTERACTION=$xTV/INTERACTIONS \ #
# $Z LISTE_ROUGE=$xTV/COULEURS$ROUGE \ #
# $Z LISTE_VERTE=$xTV/COULEURS$VERTE \ #
# $Z LISTE_BLEUE=$xTV/COULEURS$BLEUE \ #
# $Z milieu=VRAI \ #
# $Z reflexion=VRAI refraction=FAUX \ #
# $Z Mhors=$BLANC \ #
# $Z MNpasX=1 Mprolonger_X=VRAI \ #
# $Z MNpasY=1 Mprolonger_Y=VRAI \ #
# $Z MNpasZ=1 Mprolonger_Z=VRAI \ #
# $Z adapter_M_nPAS=VRAI \ #
# $Z Msimplifier=FAUX affiner_M_maillage=FAUX \ #
# $Z MC=$xTV/BOITE.2 \ #
# $Z MChiffres=0 \ #
# $Z Zmin=0 Zmax=15 \ #
# $Z centrer=VRAI \ #
# $Z dct=$PasDeTemps nombre=$NPasDeTemps \ #
# $Z trainees=VRAI mode=1 \ #
# $Z attenuation_des_images=1.0 \ #
# $Z attenuation_des_trainees=0.80 \ #
# $Z renormaliser=FAUX \ #
# $Z Lz=100 \ #
# $Z zoom_automatique=VRAI \ #
# $Z centre_de_gravite=FAUX \ #
# $Z fond=VRAI \ #
# $Z dynamique=VRAI \ #
# $Z F=$xiim/SOLE.W. \ #
# $Z R=$xiim/SOLE.W. \ #
# $Z $formatI #
# #
# $Z $DELETE $xTV/COORDONNEES #
# $Z $DELETE $xTV/COORDONNEES$COORD_X #
# $Z $DELETE $xTV/COORDONNEES$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_Z #
# $Z $DELETE $xTV/VITESSES #
# $Z $DELETE $xTV/VITESSES$COORD_X #
# $Z $DELETE $xTV/VITESSES$COORD_Y #
# $Z $DELETE $xTV/VITESSES$COORD_Z #
# $Z $DELETE $xTV/mdRHO #
# $Z $DELETE $xTV/MdRHO #
# $Z $DELETE $xTV/mnPHI #
# $Z $DELETE $xTV/MnPHI #
# $Z $DELETE $xTV/dPHI #
# $Z $DELETE $xTV/mnTHETA #
# $Z $DELETE $xTV/MnTHETA #
# $Z $DELETE $xTV/dTHETA #
# $Z $DELETE $xTV/DISTANCE #
# $Z $DELETE $xTV/NAISSANCE #
# $Z $DELETE $xTV/STABILITE #
# $Z $DELETE $xTV/RAYONS #
# $Z $DELETE $xTV/INTERACTIONS #
# $Z $DELETE $xTV/COULEURS$TEINT #
# $Z $DELETE $xTV/COULEURS$LUMIN #
# $Z $DELETE $xTV/COULEURS$SATUR #
# $Z $DELETE $xTV/COULEURS$Y #
# $Z $DELETE $xTV/COULEURS #
# $Z $DELETE $xTV/COULEURS$ROUGE #
# $Z $DELETE $xTV/COULEURS$VERTE #
# $Z $DELETE $xTV/COULEURS$BLEUE #
# #
# #
# $Z Pal #
# #
# $Z $xci/gauss$X \ #
# $Z R=$xTV/BOITE.3 \ #
# $Z $formatI #
# $Z $xci/vraies_C$X A=$xTV/BOITE.3 \ #
# $Z p=$xiP/orange.02 \ #
# $Z RVB=VRAI \ #
# $Z R=$xTV/BOITE.3 \ #
# $Z $formatI #
# #
# $Z eval `$xci/genere$X \\\ #
# $Z commande='($xci/scale$X \\\ #
# $Z A=$xTV/BOITE.3%s \\\ #
# $Z a=0.80 \\\ #
# $Z R=$xTV/BOITE.3%s \\\ #
# $Z $formatI)' \\\ #
# $Z en_tete=FAUX RVB=VRAI separateur=VRAI` #
# #
# $X $xci/genere$X premiere=$Premiere derniere=$Derniere pas=1 \ #
# $X C='$xci/vitre.53$Z \ #
# $X $xTV/BOITE.3 \ #
# $X $xiim/SOLE.W.%04d \ #
# $X $xiim/SOLE.2.%04d' #
# #
# $Z $DELETE $xTV/BOITE.1 #
# $Z $DELETE $xTV/BOITE.2 #
# $Z $DELETE $xTV/BOITE.3 #
# $Z $DELETE $xTV/BOITE.3$ROUGE #
# $Z $DELETE $xTV/BOITE.3$VERTE #
# $Z $DELETE $xTV/BOITE.3$BLEUE #
# #
# $Z Pal #
# #
# $Z $xci/reduction_16$Z $xiim/SOLE.2. $xiak/SOLE.21 $Premiere $Derniere #
# $Z $xci/reduction_64$Z $xiim/SOLE.2. $xiak/SOLE.21 $Premiere $Derniere #
# #
# $X $xci/genere$X c='ro $xiak/SOLE.21$R16%s' RVB=VRAI #
# $X $xci/genere$X c='ro $xiak/SOLE.21$R64%s' RVB=VRAI #
# #
# $X $xci/genere$X c='$xcg/unite$Z $xiak/SOLE.21$R16%s' RVB=VRAI #
# $X $xci/genere$X c='$xcg/unite$Z $xiak/SOLE.21$R64%s' RVB=VRAI #
# #
# $X $xci/genere$X c='$CP $xiim/SOLE.2.0512%s $xiirk/SOLE.21.0512%s' RVB=VRAI #
# #
# $X $xci/genere$X c='ro $xiirk/SOLE.21.0512%s' RVB=VRAI #
# #
# $X $xci/genere$X c='$xcg/unite$Z $xiirk/SOLE.21.0512%s' RVB=VRAI #
# #
# #
# Pal #
# #
# #
# $xci/disk_video_P$Z $xiim_LACT29/SOLE.2. 001 512 RVB \ #
# 11 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
# #
# xivPdf 3 2 #
# #
# record.01$Z $xiak/SOLE.21$R16 RVB Initialisation #
# record.01$Z $xiak/SOLE.21$R64 RVB rien #
# record.01$Z $xiirk/SOLE.21.0512 RVB rien #
# #
sequence 023346_023857
# Generee (sur '$LACT29') par : #
# #
# $Z unsetenv PremiereA #
# $Z unsetenv DerniereA #
# #
# $Z SET tPremiereA=1 #
# $Z SET tDerniereA=512 #
# $Z set Premiere=$tPremiereA #
# $Z @ NimagesA = $tDerniereA - $tPremiereA #
# $Z @ NimagesA = $NimagesA + 1 #
# $Z @ Nimages = $NimagesA #
# $Z @ Nimages = $Nimages - 1 #
# $Z @ Derniere = $Premiere + $Nimages #
# $Z @ Derniere = $Derniere - 1 #
# #
# $Z SETENV PremiereA $tPremiereA #
# $Z SETENV DerniereA $tDerniereA #
# #
# $Z Pal #
# #
# $Z set PUnivers="np=0 CAL1=FAUX editer_l_univers_physique=VRAI" #
# $Z set Univers=`$xrk/rdn_walk.41$X $PUnivers $formatI` #
# #
# $Z set MinX=`echo $Univers | $SE -e "s/^.*[(,]XUI=//" -e "s/[,)].*//"` #
# $Z set MaxX=`echo $Univers | $SE -e "s/^.*[(,]XUS=//" -e "s/[,)].*//"` #
# $Z set MinY=`echo $Univers | $SE -e "s/^.*[(,]YUI=//" -e "s/[,)].*//"` #
# $Z set MaxY=`echo $Univers | $SE -e "s/^.*[(,]YUS=//" -e "s/[,)].*//"` #
# #
# $Z set MinX=`$xcg/ABSO.01$X x=$MinX` #
# $Z set MaxX=`$xcg/ABSO.01$X x=$MaxX` #
# $Z set MinY=`$xcg/ABSO.01$X x=$MinY` #
# $Z set MaxY=`$xcg/ABSO.01$X x=$MaxY` #
# #
# $Z set MaxX=`$xcg/MAX2.01$X n1=$MinX n2=$MaxX` #
# $Z set MaxY=`$xcg/MAX2.01$X n1=$MinY n2=$MaxY` #
# #
# $Z set SeuilPartN=0.003026 #
# $Z set GrainePartN=2 #
# #
# $Z $DELETE $xTV/BOITE.1 #
# $Z $DELETE $xTV/BOITE.2 #
# $Z $DELETE $xTV/BOITE.3 #
# $Z $DELETE $xTV/BOITE.3$ROUGE #
# $Z $DELETE $xTV/BOITE.3$VERTE #
# $Z $DELETE $xTV/BOITE.3$BLEUE #
# $Z $DELETE $xTV/BOITE.4 #
# $Z $DELETE $xTV/BOITE.5 #
# $Z $DELETE $xTV/BOITE.6 #
# $Z $DELETE $xTV/BOITE.7 #
# $Z $DELETE $xTV/BOITE.8 #
# $Z $DELETE $xTV/BOITE.A #
# $Z $DELETE $xTV/BOITE.B #
# #
# #
# $Z Std #
# #
# $Z set FacXY=0.90 #
# $Z set SeuilBOITE=`$xcg/SOUS.01$X a=1 b=$FacXY` #
# $Z set SeuilBOITE=`$xcg/MUL2.01$X a=$SeuilBOITE b=$GRIS_8` #
# $Z set SeuilBOITE=`$xci/valeurs_inte$X p=1 d=1 vD=$SeuilBOITE entiers=VRAI` #
# $Z set SeuilBOITE=`$xcg/MIN2.01$X a=$SeuilBOITE b=$GRIS_1` #
# #
# $Z set GTransX=`$xcg/SOUS.01$X a=1 b=$FacXY` #
# $Z set GTransX=`$xcg/MOIT.01$X a=$GTransX signe="$K_VIDE"` #
# $Z set DTransX=`$xcg/MOIT.01$X a=1` #
# $Z set DTransX=`$xcg/ADD2.01$X a=$DTransX b=$GTransX signe="$K_VIDE"` #
# #
# #
# $Z set LBande=10 #
# $Z set BandeS=`$xcg/ADD2.01$X a=$GRIS_4 b=$LBande` #
# $Z set BandeI=`$xcg/SOUS.01$X a=$GRIS_4 b=$LBande` #
# #
# $Z $xci/complement$X \ #
# $Z A=$xiio/SPIRALE \ #
# $Z $formatI | \ #
# $Z $xci/seuil$X \ #
# $Z seuil=$SeuilBOITE \ #
# $Z R=$xTV/BOITE.4 \ #
# $Z $formatI #
# #
# $Z $xci/move$X \ #
# $Z A=$xTV/BOITE.4 \ #
# $Z xR=+$DTransX \ #
# $Z $formatI | \ #
# $Z $xci/move$X \ #
# $Z xR=-$GTransX \ #
# $Z $formatI | \ #
# $Z $xci/dilate.01$X \ #
# $Z points=9 \ #
# $Z dilater=VRAI \ #
# $Z R=$xTV/BOITE.5 \ #
# $Z $formatI #
# $Z $xci/Sy$X \ #
# $Z A=$xTV/BOITE.5 \ #
# $Z R=$xTV/BOITE.6 \ #
# $Z $formatI #
# #
# $Z $xci/passe_bande$X \ #
# $Z A=$xiio/MIRE \ #
# $Z inf=$BandeI \ #
# $Z sup=$BandeS \ #
# $Z $formatI | \ #
# $Z $xci/seuil$X \ #
# $Z $formatI | \ #
# $Z $xci/transpose$X \ #
# $Z $formatI | \ #
# $Z $xci/and$X \ #
# $Z A1=$xTV/BOITE.4 \ #
# $Z R=$xTV/BOITE.7 \ #
# $Z $formatI #
# #
# $Z $xci/or_02$X \ #
# $Z A1=$xTV/BOITE.5 \ #
# $Z A2=$xTV/BOITE.6 \ #
# $Z $formatI | \ #
# $Z $xci/or_02$X \ #
# $Z A2=$xTV/BOITE.7 \ #
# $Z R=$xTV/BOITE.8 \ #
# $Z $formatI #
# #
# $Z S #
# #
# $Z $xci/format.01$X mode=0 \ #
# $Z A=$xTV/BOITE.8 \ #
# $Z $formatI \ #
# $Z R=$xTV/BOITE.1 \ #
# $Z $formatR_Pal #
# #
# $Z $xci/dilate.01$X \ #
# $Z A=$xTV/BOITE.5 \ #
# $Z points=225 \ #
# $Z dilater=FAUX \ #
# $Z R=$xTV/BOITE.A \ #
# $Z $formatI #
# #
# $Z $xci/random.02$X \ #
# $Z seuil=$SeuilPartN \ #
# $Z graine=$GrainePartN \ #
# $Z $formatI | \ #
# $Z $xci/and$X \ #
# $Z A2=$xTV/BOITE.A \ #
# $Z R=$xTV/BOITE.B \ #
# $Z $formatI #
# #
# $Z $DELETE $xTV/COORDONNEES #
# $Z $DELETE $xTV/COORDONNEES_01$COORD_X #
# $Z $DELETE $xTV/COORDONNEES_01$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_X #
# $Z $DELETE $xTV/COORDONNEES$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_Z #
# #
# $Z $xci/liste_points$X \ #
# $Z A=$xTV/BOITE.B \ #
# $Z $formatI \ #
# $Z > $xTV/COORDONNEES #
# #
# $Z $DELETE $xTV/BOITE.4 #
# $Z $DELETE $xTV/BOITE.5 #
# $Z $DELETE $xTV/BOITE.6 #
# $Z $DELETE $xTV/BOITE.7 #
# $Z $DELETE $xTV/BOITE.8 #
# $Z $DELETE $xTV/BOITE.A #
# $Z $DELETE $xTV/BOITE.B #
# #
# $Z set PartN=`$TAI -1 $xTV/COORDONNEES | $SE -e "s/^.*=//"` #
# #
# $Z $CA $xTV/COORDONNEES \ #
# $Z | $GRE "^[Xx]=" \ #
# $Z | $SE -e "s/^[Xx]=//" \ #
# $Z > $xTV/COORDONNEES_01$COORD_X #
# $Z $CA $xTV/COORDONNEES \ #
# $Z | $GRE "^[Yy]=" \ #
# $Z | $SE -e "s/^[Yy]=//" \ #
# $Z > $xTV/COORDONNEES_01$COORD_Y #
# #
# $Z set EchelleX=`$xcg/MUL2.01$X n1=2 n2=$MaxX` #
# $Z set TranslationX=`$xcg/MUL2.01$X n1=-1 n2=$MaxX` #
# $Z set EchelleY=`$xcg/MUL2.01$X n1=2 n2=$MaxY` #
# $Z set TranslationY=`$xcg/MUL2.01$X n1=-1 n2=$MaxY` #
# #
# $Z $xrv/AXPB.01$X \ #
# $Z CAL1=FAUX \ #
# $Z ne=$PartN \ #
# $Z fichier=$xTV/COORDONNEES_01$COORD_X \ #
# $Z homothetie=$EchelleX translation=$TranslationX \ #
# $Z > $xTV/COORDONNEES$COORD_X #
# $Z $xrv/AXPB.01$X \ #
# $Z CAL1=FAUX \ #
# $Z ne=$PartN \ #
# $Z fichier=$xTV/COORDONNEES_01$COORD_Y \ #
# $Z homothetie=$EchelleY translation=$TranslationY \ #
# $Z > $xTV/COORDONNEES$COORD_Y #
# #
# $Z $DELETE $xTV/COORDONNEES_01$COORD_X #
# $Z $DELETE $xTV/COORDONNEES_01$COORD_Y #
# #
# $Z set Part0=1 #
# $Z @ Npart = $PartN - $Part0 #
# $Z @ Npart = $Npart + 1 #
# #
# $Z $DELETE $xTV/MODULE #
# $Z $DELETE $xTV/THETA #
# $Z $DELETE $xTV/XY_RT.1 #
# $Z $DELETE $xTV/XY_RT.2 #
# $Z $DELETE $xTV/VITESSES #
# $Z $DELETE $xTV/VITESSES$COORD_X #
# $Z $DELETE $xTV/VITESSES$COORD_Y #
# $Z $DELETE $xTV/VITESSES$COORD_Z #
# $Z $DELETE $xTV/mdRHO #
# $Z $DELETE $xTV/MdRHO #
# $Z $DELETE $xTV/mnPHI #
# $Z $DELETE $xTV/MnPHI #
# $Z $DELETE $xTV/dPHI #
# $Z $DELETE $xTV/mnTHETA #
# $Z $DELETE $xTV/MnTHETA #
# $Z $DELETE $xTV/dTHETA #
# $Z $DELETE $xTV/supOUVE #
# $Z $DELETE $xTV/DISTANCE #
# $Z $DELETE $xTV/STABILITE #
# $Z $DELETE $xTV/RAYONS #
# $Z $DELETE $xTV/INTERACTIONS #
# #
# #
# $Z alias Gen 'set Fi=\!:1 ; set vD=\!:2 ; set vA=\!:3 ; set ArG=(\!:4*) ; \\ #
# $Z $DELETE $Fi ; \\ #
# $Z $xci/valeurs_inte$X p=$Part0 d=$PartN vD=$vD vA=$vA $ArG > $Fi ; \\ #
# $Z unset Fi vD vA ArG' #
# #
# $Z alias GenR 'set Fi=\!:1 ; set In=\!:2 ; set Su=\!:3 ; set ArG=(\!:4*) ; \\ #
# $Z $DELETE $Fi ; \\ #
# $Z $xci/valeurs_alea$X p=$Part0 d=$PartN signe="$KV" inf=$In sup=$Su $ArG > $Fi ; \\ #
# $Z unset Fi In Su ArG' #
# #
# $Z Gen $xTV/COORDONNEES$COORD_Z 0.0 0.0 #
# #
# #
# $Z Gen $xTV/MODULE 0.02 0.02 #
# $Z GenR $xTV/THETA 0.0 $dpi g=3333 #
# #
# $Z $CA $xcs/csh$Y \ #
# $Z > $xTV/XY_RT.1 #
# $Z $PAST $xTV/MODULE $xTV/THETA \ #
# $Z | $R "$K_TAB" "$K_BLANC" \ #
# $Z | $AW ' { print "$xcg/XY_RT$X r=" $1 " t=" $2 " cartesien=FAUX" } ' \ #
# $Z >>! $xTV/XY_RT.1 #
# #
# $Z (source $xTV/XY_RT.1) \ #
# $Z > $xTV/XY_RT.2 #
# #
# $Z $CA $xTV/XY_RT.2 \ #
# $Z | $GRE "^x=" \ #
# $Z | $SE -e "s/^x=//" \ #
# $Z > $xTV/VITESSES$COORD_X #
# $Z $CA $xTV/XY_RT.2 \ #
# $Z | $GRE "^y=" \ #
# $Z | $SE -e "s/^y=//" \ #
# $Z > $xTV/VITESSES$COORD_Y #
# #
# $Z Gen $xTV/VITESSES$COORD_Z 0.0 0.0 #
# #
# $Z Gen $xTV/mdRHO 0.0 0.0 #
# $Z Gen $xTV/MdRHO 0.0 0.0 #
# $Z Gen $xTV/mnPHI 0.0 0.0 #
# $Z Gen $xTV/MnPHI 0.0 0.0 #
# $Z Gen $xTV/dPHI 0.0 0.0 #
# $Z Gen $xTV/mnTHETA 0.0 0.0 #
# $Z Gen $xTV/MnTHETA 0.0 0.0 #
# $Z Gen $xTV/dTHETA 0.0 0.0 #
# $Z Gen $xTV/DISTANCE 1000000 1000000 #
# $Z Gen $xTV/STABILITE 1000000 1000000 #
# #
# $Z set RayonsT=0.014 #
# $Z set RayonsP=`$xcg/MUL2.01$X a=2 b=$RayonsT` #
# $Z set DistanceI=`$xcg/MUL2.01$X a=4 b=$RayonsP` #
# $Z Gen $xTV/RAYONS $RayonsT $RayonsT #
# $Z Gen $xTV/INTERACTIONS $RayonsP $RayonsP #
# #
# $Z $DELETE $xTV/COULEURS$TEINT #
# $Z $DELETE $xTV/COULEURS$LUMIN #
# $Z $DELETE $xTV/COULEURS$SATUR #
# $Z $DELETE $xTV/COULEURS$Y #
# $Z $DELETE $xTV/COULEURS #
# $Z $DELETE $xTV/COULEURS$ROUGE #
# $Z $DELETE $xTV/COULEURS$VERTE #
# $Z $DELETE $xTV/COULEURS$BLEUE #
# #
# $Z @ TeinteMagenta = $GRIS_7 #
# $Z @ TeinteCyan = $GRIS_4 + $GRIS_8 #
# #
# $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartN \ #
# $Z vD=$TeinteMagenta vA=$TeinteCyan \ #
# $Z cubique=FAUX \ #
# $Z entiers=VRAI \ #
# $Z > $xTV/COULEURS$TEINT #
# $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartN \ #
# $Z vD=$GRIS_4 vA=$GRIS_4 \ #
# $Z cubique=FAUX \ #
# $Z entiers=VRAI \ #
# $Z > $xTV/COULEURS$LUMIN #
# $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartN \ #
# $Z vD=$GRIS_8 vA=$GRIS_8 \ #
# $Z cubique=FAUX \ #
# $Z entiers=VRAI \ #
# $Z > $xTV/COULEURS$SATUR #
# #
# $Z $PAST \ #
# $Z $xTV/COULEURS$TEINT \ #
# $Z $xTV/COULEURS$LUMIN \ #
# $Z $xTV/COULEURS$SATUR \ #
# $Z | $R "$K_TAB" "$K_BLANC" \ #
# $Z | $AW ' { print "H=" $1 " L=" $2 " S=" $3 } ' \ #
# $Z | $SE -e 's+^+$xcg/RVB_HLS$X RVB_HLS=FAUX +' \ #
# $Z | $SE -e 's/$/ eR=VRAI eV=VRAI eB=VRAI/' \ #
# $Z | $SE -e 's/$/ eH=FAUX eL=FAUX eS=FAUX/' \ #
# $Z > $xTV/COULEURS$Y #
# #
# $Z (source $xTV/COULEURS$Y) \ #
# $Z > $xTV/COULEURS #
# #
# $Z $GRE "^R=" $xTV/COULEURS \ #
# $Z | $SE -e "s/^R=//" \ #
# $Z > $xTV/COULEURS$ROUGE #
# $Z $GRE "^V=" $xTV/COULEURS \ #
# $Z | $SE -e "s/^V=//" \ #
# $Z > $xTV/COULEURS$VERTE #
# $Z $GRE "^B=" $xTV/COULEURS \ #
# $Z | $SE -e "s/^B=//" \ #
# $Z > $xTV/COULEURS$BLEUE #
# #
# $Z Pal #
# #
# #
# $Z $xci/scale$X \ #
# $Z A=$xTV/BOITE.1 \ #
# $Z a=1.00 \ #
# $Z R=$xTV/BOITE.2 \ #
# $Z $formatI #
# #
# $Z $xrk/rdn_walk.41$X corps=$Npart \ #
# $Z np=$NimagesA \ #
# $Z collisions=VRAI DLA=FAUX interaction=$DistanceI \ #
# $Z LISTE_X=$xTV/COORDONNEES$COORD_X \ #
# $Z LISTE_Y=$xTV/COORDONNEES$COORD_Y \ #
# $Z LISTE_Z=$xTV/COORDONNEES$COORD_Z \ #
# $Z LISTE_VX=$xTV/VITESSES$COORD_X \ #
# $Z LISTE_VY=$xTV/VITESSES$COORD_Y \ #
# $Z LISTE_VZ=$xTV/VITESSES$COORD_Z \ #
# $Z LISTE_MINIMUM_DELTA_RHO=$xTV/mdRHO \ #
# $Z LISTE_MAXIMUM_DELTA_RHO=$xTV/MdRHO \ #
# $Z LISTE_MINIMUM_N_PHI=$xTV/mnPHI \ #
# $Z LISTE_MAXIMUM_N_PHI=$xTV/MnPHI \ #
# $Z LISTE_DELTA_PHI=$xTV/dPHI \ #
# $Z LISTE_MINIMUM_N_THETA=$xTV/mnTHETA \ #
# $Z LISTE_MAXIMUM_N_THETA=$xTV/MnTHETA \ #
# $Z LISTE_DELTA_THETA=$xTV/dTHETA \ #
# $Z LISTE_DISTANCE_MAXIMALE=$xTV/DISTANCE \ #
# $Z LISTE_STABILITE=$xTV/STABILITE \ #
# $Z LISTE_RAYON=$xTV/INTERACTIONS \ #
# $Z LISTE_RAYON_D_INTERACTION=$xTV/INTERACTIONS \ #
# $Z LISTE_ROUGE=$xTV/COULEURS$ROUGE \ #
# $Z LISTE_VERTE=$xTV/COULEURS$VERTE \ #
# $Z LISTE_BLEUE=$xTV/COULEURS$BLEUE \ #
# $Z milieu=VRAI \ #
# $Z reflexion=VRAI refraction=FAUX \ #
# $Z Mhors=$BLANC \ #
# $Z MNpasX=1 Mprolonger_X=VRAI \ #
# $Z MNpasY=1 Mprolonger_Y=VRAI \ #
# $Z MNpasZ=1 Mprolonger_Z=VRAI \ #
# $Z adapter_M_nPAS=VRAI \ #
# $Z Msimplifier=FAUX affiner_M_maillage=FAUX \ #
# $Z MC=$xTV/BOITE.2 \ #
# $Z MChiffres=0 \ #
# $Z Zmin=0 Zmax=15 \ #
# $Z centrer=VRAI \ #
# $Z dct=0.05 nombre=40 \ #
# $Z trainees=FAUX \ #
# $Z facteur_ROUGE=1.0 \ #
# $Z facteur_VERTE=1.0 \ #
# $Z facteur_BLEUE=1.0 \ #
# $Z renormaliser=FAUX \ #
# $Z Lz=100 \ #
# $Z zoom_automatique=VRAI \ #
# $Z centre_de_gravite=FAUX \ #
# $Z fond=FAUX \ #
# $Z lister_les_points=FAUX \ #
# $Z lister_les_points_apres=FAUX \ #
# $Z R=$xiim/REFL.Wa. \ #
# $Z $formatI #
# #
# #
# #
# $Z $xci/complement$X A=$xTV/BOITE.1 \ #
# $Z R=$xTV/BOITE.3 \ #
# $Z $formatI #
# #
# $Z $xci/seuil$X \ #
# $Z A=$xiio/MIRE \ #
# $Z seuil=$GRIS_4 \ #
# $Z $format_Std | \ #
# $Z $xci/format.01$X mode=0 \ #
# $Z $format_Std \ #
# $Z R=$xTV/MASQUE$DROITE \ #
# $Z $formatR_Pal #
# $Z $xci/complement$X \ #
# $Z A=$xTV/MASQUE$DROITE \ #
# $Z R=$xTV/MASQUE$GAUCHE \ #
# $Z $formatI #
# #
# $Z $xci/and$X A1=$xTV/BOITE.3 \ #
# $Z A2=$xTV/MASQUE$DROITE \ #
# $Z R=$xTV/BOITE$DROITE \ #
# $Z $formatI #
# $Z $xci/and$X A1=$xTV/BOITE.3 \ #
# $Z A2=$xTV/MASQUE$GAUCHE \ #
# $Z R=$xTV/BOITE$GAUCHE \ #
# $Z $formatI #
# #
# $Z $DELETE $xTV/COORDONNEES$COORD_X #
# $Z $DELETE $xTV/COORDONNEES$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_Z #
# $Z $DELETE $xTV/VITESSES$COORD_X #
# $Z $DELETE $xTV/VITESSES$COORD_Y #
# $Z $DELETE $xTV/VITESSES$COORD_Z #
# $Z $DELETE $xTV/mdRHO #
# $Z $DELETE $xTV/MdRHO #
# $Z $DELETE $xTV/mnPHI #
# $Z $DELETE $xTV/MnPHI #
# $Z $DELETE $xTV/dPHI #
# $Z $DELETE $xTV/mnTHETA #
# $Z $DELETE $xTV/MnTHETA #
# $Z $DELETE $xTV/dTHETA #
# $Z $DELETE $xTV/DISTANCE #
# $Z $DELETE $xTV/STABILITE #
# $Z $DELETE $xTV/RAYONS #
# $Z $DELETE $xTV/INTERACTIONS #
# $Z $DELETE $xTV/COULEURS$TEINT #
# $Z $DELETE $xTV/COULEURS$LUMIN #
# $Z $DELETE $xTV/COULEURS$SATUR #
# $Z $DELETE $xTV/COULEURS$Y #
# $Z $DELETE $xTV/COULEURS #
# $Z $DELETE $xTV/COULEURS$ROUGE #
# $Z $DELETE $xTV/COULEURS$VERTE #
# $Z $DELETE $xTV/COULEURS$BLEUE #
# #
# $Z set Params="eX=FAUX eY=FAUX eNIVEAU=FAUX points=VRAI $formatI" #
# #
# $c extern int atoi(); #
# $c extern int *getenv(); #
# #
# $c #define NA0 (atoi(getenv("PremiereA"))) #
# $c #define NA (atoi(getenv("DerniereA"))) #
# #
# $c int main() #
# $c { #
# $c int n1; #
# #
# $c for (n1=NA0 ; n1<=NA ; n1++) #
# $c { #
# $c printf("$xci/luminance.01$X #
# $c AR=$xiim/REFL.Wa.%04d$ROUGE #
# $c AV=$xiim/REFL.Wa.%04d$VERTE #
# $c AB=$xiim/REFL.Wa.%04d$BLEUE #
# $c $formatI | #
# $c $xci/seuil$X #
# $c seuil=$GRIS_0 #
# $c R=$xTV/POINTS #
# $c $formatI\n" #
# $c ,n1,n1,n1 #
# $c ); #
# $c printf("$xci/and$X #
# $c A1=$xTV/POINTS #
# $c A2=$xTV/MASQUE$DROITE #
# $c R=$xTV/POINTS$DROITE #
# $c $formatI\n" #
# $c ); #
# $c printf("$xci/and$X #
# $c A1=$xTV/POINTS #
# $c A2=$xTV/MASQUE$GAUCHE #
# $c R=$xTV/POINTS$GAUCHE #
# $c $formatI\n" #
# $c ); #
# #
# $c printf("set Npoints=`$xci/liste_points$X A=$xTV/POINTS $Params`\n"); #
# $c printf("set NpointsD=`$xci/liste_points$X A=$xTV/POINTS$DROITE $Params`\n"); #
# $c printf("set NpointsG=`$xci/liste_points$X A=$xTV/POINTS$GAUCHE $Params`\n"); #
# #
# $c printf("set Npoints=`echo $Npoints | $SE -e 's/^.*=//'`\n"); #
# $c printf("set NpointsD=`echo $NpointsD | $SE -e 's/^.*=//'`\n"); #
# $c printf("set NpointsG=`echo $NpointsG | $SE -e 's/^.*=//'`\n"); #
# #
# $c printf("set FacteurD=`$xcg/DIVZ.01$X n1=$NpointsD n2=$Npoints`\n"); #
# $c printf("set FacteurD=`$xcg/MIN2.01$X n1=$FacteurD n2=1.0`\n"); #
# $c printf("set FacteurD=`$xcg/MAX2.01$X n1=$FacteurD n2=0.1`\n"); #
# #
# $c printf("set FacteurG=`$xcg/DIVZ.01$X n1=$NpointsG n2=$Npoints`\n"); #
# $c printf("set FacteurG=`$xcg/MIN2.01$X n1=$FacteurG n2=1.0`\n"); #
# $c printf("set FacteurG=`$xcg/MAX2.01$X n1=$FacteurG n2=0.1`\n"); #
# #
# $c printf("$xci/scale$X #
# $c A=$xTV/BOITE$DROITE #
# $c a=$FacteurD #
# $c R=$xTV/BOITE.3$DROITE #
# $c $formatI\n" #
# $c ); #
# $c printf("$xci/scale$X #
# $c A=$xTV/BOITE$GAUCHE #
# $c a=$FacteurG #
# $c R=$xTV/BOITE.3$GAUCHE #
# $c $formatI\n" #
# $c ); #
# #
# $c printf("$xci/or_02$X #
# $c A1=$xTV/BOITE.3$DROITE #
# $c A2=$xTV/BOITE.3$GAUCHE #
# $c R=$xTV/BOITE.3$ROUGE #
# $c $formatI\n" #
# $c ); #
# $c printf("$xci/or_02$X #
# $c A1=$xTV/BOITE.3$DROITE #
# $c A2=$xTV/BOITE.3$GAUCHE #
# $c R=$xTV/BOITE.3$VERTE #
# $c $formatI\n" #
# $c ); #
# $c printf("$xci/or_02$X #
# $c A1=$xTV/BOITE.3$DROITE #
# $c A2=$xTV/BOITE.3$GAUCHE #
# $c R=$xTV/BOITE.3$BLEUE #
# $c $formatI\n" #
# $c ); #
# #
# $c printf("$xci/cache.11$Z #
# $c $xiim/REFL.Wa.%04d #
# $c $xTV/BOITE.3 #
# $c $xiim/REFL.S.%04d\n" #
# $c ,n1,n1 #
# $c ); #
# $c } #
# $c } #
# #
# $Z $DELETE $xTV/BOITE.1 #
# $Z $DELETE $xTV/BOITE.2 #
# $Z $DELETE $xTV/BOITE.3 #
# $Z $DELETE $xTV/BOITE.3$ROUGE #
# $Z $DELETE $xTV/BOITE.3$VERTE #
# $Z $DELETE $xTV/BOITE.3$BLEUE #
# $Z $DELETE $xTV/BOITE.3$DROITE #
# $Z $DELETE $xTV/BOITE.3$GAUCHE #
# $Z $DELETE $xTV/MASQUE$DROITE #
# $Z $DELETE $xTV/MASQUE$GAUCHE #
# $Z $DELETE $xTV/BOITE$DROITE #
# $Z $DELETE $xTV/BOITE$GAUCHE #
# $Z $DELETE $xTV/POINTS #
# $Z $DELETE $xTV/POINTS$DROITE #
# $Z $DELETE $xTV/POINTS$GAUCHE #
# #
# $Z Pal #
# #
# $Z $xci/reduction_16$Z $xiim/REFL.S. $xiak/REFL.N8 $Premiere $Derniere #
# $Z $xci/reduction_64$Z $xiim/REFL.S. $xiak/REFL.N8 $Premiere $Derniere #
# #
# $X $xci/genere$X c='ro $xiak/REFL.N8$R16%s' RVB=VRAI #
# $X $xci/genere$X c='ro $xiak/REFL.N8$R64%s' RVB=VRAI #
# #
# $X $xci/genere$X c='$xcg/unite$Z $xiak/REFL.N8$R16%s' RVB=VRAI #
# $X $xci/genere$X c='$xcg/unite$Z $xiak/REFL.N8$R64%s' RVB=VRAI #
# #
# $X $xci/genere$X c='$CP $xiim/REFL.S.0512%s $xiirk/REFL.N8.0512%s' RVB=VRAI #
# $X $xci/genere$X c='ro $xiirk/REFL.N8.0512%s' RVB=VRAI #
# $X $xci/genere$X c='$xcg/unite$Z $xiirk/REFL.N8.0512%s' RVB=VRAI #
# #
# #
# Pal #
# #
# #
# $xci/disk_video_P$Z $xiim_LACT29/REFL.S. 001 512 RVB \ #
# 11 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
# #
# xivPdf 3 2 #
# #
# record.01$Z $xiak/REFL.N8$R16 RVB Initialisation #
# record.01$Z $xiak/REFL.N8$R64 RVB rien #
# record.01$Z $xiirk/REFL.N8.0512 RVB rien #
# #
# #
sequence 023858_024369
# Generee (sur '$LACT29') par : #
# #
# #
# $Z SET Premiere=1 #
# $Z SET Derniere=512 #
# #
# $Z @ Nimages = $Derniere - $Premiere #
# $Z @ Nimages = $Nimages + 1 #
# #
# #
# $Z Pal #
# #
# #
# $c #define N0 Premiere #
# $c #define N Derniere #
# $c #define NOMBRE 20 #
# #
# $c int main() #
# $c { #
# $c int n; #
# #
# $c for (n=N0 ; n<=N ; n++) #
# $c { #
# $c int premiere=n-NOMBRE+1; #
# $c int derniere=n; #
# #
# $c premiere=((premiere>=N0) ? premiere : N0); #
# #
# $c printf("$xci/accumule.01$X #
# $c A=$xiim/REFL.S. #
# $c postfixe=$ROUGE #
# $c premiere=%d #
# $c derniere=%d #
# $c maximum=VRAI #
# $c attenuation=0 #
# $c R=$xiim/REFL.T.%04d$ROUGE #
# $c $formatI\n" #
# $c ,premiere,derniere,n #
# $c ); #
# $c printf("$xci/accumule.01$X #
# $c A=$xiim/REFL.S. #
# $c postfixe=$VERTE #
# $c premiere=%d #
# $c derniere=%d #
# $c maximum=VRAI #
# $c attenuation=0 #
# $c R=$xiim/REFL.T.%04d$VERTE #
# $c $formatI\n" #
# $c ,premiere,derniere,n #
# $c ); #
# $c printf("$xci/accumule.01$X #
# $c A=$xiim/REFL.S. #
# $c postfixe=$BLEUE #
# $c premiere=%d #
# $c derniere=%d #
# $c maximum=VRAI #
# $c attenuation=0 #
# $c R=$xiim/REFL.T.%04d$BLEUE #
# $c $formatI\n" #
# $c ,premiere,derniere,n #
# $c ); #
# $c } #
# $c } #
# #
# #
# $Z Pal #
# #
# $Z $xci/reduction_16$Z $xiim/REFL.T. $xiak/REFL.O8 $Premiere $Derniere #
# $Z $xci/reduction_64$Z $xiim/REFL.T. $xiak/REFL.O8 $Premiere $Derniere #
# #
# $X $xci/genere$X c='ro $xiak/REFL.O8$R16%s' RVB=VRAI #
# $X $xci/genere$X c='ro $xiak/REFL.O8$R64%s' RVB=VRAI #
# #
# $X $xci/genere$X c='$xcg/unite$Z $xiak/REFL.O8$R16%s' RVB=VRAI #
# $X $xci/genere$X c='$xcg/unite$Z $xiak/REFL.O8$R64%s' RVB=VRAI #
# #
# $X $xci/genere$X c='$CP $xiim/REFL.T.0512%s $xiirk/REFL.O8.0512%s' RVB=VRAI #
# $X $xci/genere$X c='ro $xiirk/REFL.O8.0512%s' RVB=VRAI #
# $X $xci/genere$X c='$xcg/unite$Z $xiirk/REFL.O8.0512%s' RVB=VRAI #
# #
# #
# Pal #
# #
# #
# $xci/disk_video_P$Z $xiim_LACT29/REFL.T. 001 512 RVB \ #
# 11 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
# #
# xivPdf 3 2 #
# #
# record.01$Z $xiak/REFL.O8$R16 RVB Initialisation #
# record.01$Z $xiak/REFL.O8$R64 RVB rien #
# record.01$Z $xiirk/REFL.O8.0512 RVB rien #
# #
# #
sequence 024370_025393
# Generee (sur '$LACT29') par : #
# #
# $Z unsetenv PremiereA #
# $Z unsetenv DerniereA #
# #
# $Z SET tPremiereA=1 #
# $Z SET tDerniereA=1024 #
# $Z set Premiere=$tPremiereA #
# $Z @ NimagesA = $tDerniereA - $tPremiereA #
# $Z @ NimagesA = $NimagesA + 1 #
# $Z @ Nimages = $NimagesA #
# $Z @ Nimages = $Nimages - 1 #
# $Z @ Derniere = $Premiere + $Nimages #
# $Z @ Derniere = $Derniere - 1 #
# #
# $Z SETENV PremiereA $tPremiereA #
# $Z SETENV DerniereA $tDerniereA #
# #
# $Z Pal #
# #
# $Z set PUnivers="np=0 CAL1=FAUX editer_l_univers_physique=VRAI" #
# $Z set Univers=`$xrk/rdn_walk.41$X $PUnivers $formatI` #
# #
# $Z set MinX=`echo $Univers | $SE -e "s/^.*[(,]XUI=//" -e "s/[,)].*//"` #
# $Z set MaxX=`echo $Univers | $SE -e "s/^.*[(,]XUS=//" -e "s/[,)].*//"` #
# $Z set MinY=`echo $Univers | $SE -e "s/^.*[(,]YUI=//" -e "s/[,)].*//"` #
# $Z set MaxY=`echo $Univers | $SE -e "s/^.*[(,]YUS=//" -e "s/[,)].*//"` #
# #
# $Z set MinX=`$xcg/ABSO.01$X x=$MinX` #
# $Z set MaxX=`$xcg/ABSO.01$X x=$MaxX` #
# $Z set MinY=`$xcg/ABSO.01$X x=$MinY` #
# $Z set MaxY=`$xcg/ABSO.01$X x=$MaxY` #
# #
# $Z set MaxX=`$xcg/MAX2.01$X n1=$MinX n2=$MaxX` #
# $Z set MaxY=`$xcg/MAX2.01$X n1=$MinY n2=$MaxY` #
# #
# $Z set SeuilPartN=0.003026 #
# $Z set GrainePartN=2 #
# #
# $Z $DELETE $xTV/BOITE.1 #
# $Z $DELETE $xTV/BOITE.2 #
# $Z $DELETE $xTV/BOITE.3 #
# $Z $DELETE $xTV/BOITE.3$ROUGE #
# $Z $DELETE $xTV/BOITE.3$VERTE #
# $Z $DELETE $xTV/BOITE.3$BLEUE #
# $Z $DELETE $xTV/BOITE.4 #
# $Z $DELETE $xTV/BOITE.5 #
# $Z $DELETE $xTV/BOITE.6 #
# $Z $DELETE $xTV/BOITE.7 #
# $Z $DELETE $xTV/BOITE.8 #
# $Z $DELETE $xTV/BOITE.A #
# $Z $DELETE $xTV/BOITE.B #
# #
# #
# $Z Std #
# #
# $Z set FacXY=0.90 #
# $Z set SeuilBOITE=`$xcg/SOUS.01$X a=1 b=$FacXY` #
# $Z set SeuilBOITE=`$xcg/MUL2.01$X a=$SeuilBOITE b=$GRIS_8` #
# $Z set SeuilBOITE=`$xci/valeurs_inte$X p=1 d=1 vD=$SeuilBOITE entiers=VRAI` #
# $Z set SeuilBOITE=`$xcg/MIN2.01$X a=$SeuilBOITE b=$GRIS_1` #
# #
# $Z set GTransX=`$xcg/SOUS.01$X a=1 b=$FacXY` #
# $Z set GTransX=`$xcg/MOIT.01$X a=$GTransX signe="$K_VIDE"` #
# $Z set DTransX=`$xcg/MOIT.01$X a=1` #
# $Z set DTransX=`$xcg/ADD2.01$X a=$DTransX b=$GTransX signe="$K_VIDE"` #
# #
# #
# $Z set LBande=10 #
# $Z set BandeS=`$xcg/ADD2.01$X a=$GRIS_4 b=$LBande` #
# $Z set BandeI=`$xcg/SOUS.01$X a=$GRIS_4 b=$LBande` #
# #
# $Z $xci/complement$X \ #
# $Z A=$xiio/SPIRALE \ #
# $Z $formatI | \ #
# $Z $xci/seuil$X \ #
# $Z seuil=$SeuilBOITE \ #
# $Z R=$xTV/BOITE.4 \ #
# $Z $formatI #
# #
# $Z $xci/move$X \ #
# $Z A=$xTV/BOITE.4 \ #
# $Z xR=+$DTransX \ #
# $Z $formatI | \ #
# $Z $xci/move$X \ #
# $Z xR=-$GTransX \ #
# $Z $formatI | \ #
# $Z $xci/dilate.01$X \ #
# $Z points=9 \ #
# $Z dilater=VRAI \ #
# $Z R=$xTV/BOITE.5 \ #
# $Z $formatI #
# $Z $xci/Sy$X \ #
# $Z A=$xTV/BOITE.5 \ #
# $Z R=$xTV/BOITE.6 \ #
# $Z $formatI #
# #
# $Z $xci/passe_bande$X \ #
# $Z A=$xiio/MIRE \ #
# $Z inf=$BandeI \ #
# $Z sup=$BandeS \ #
# $Z $formatI | \ #
# $Z $xci/seuil$X \ #
# $Z $formatI | \ #
# $Z $xci/transpose$X \ #
# $Z $formatI | \ #
# $Z $xci/and$X \ #
# $Z A1=$xTV/BOITE.4 \ #
# $Z R=$xTV/BOITE.7 \ #
# $Z $formatI #
# #
# $Z $xci/or_02$X \ #
# $Z A1=$xTV/BOITE.5 \ #
# $Z A2=$xTV/BOITE.6 \ #
# $Z $formatI | \ #
# $Z $xci/or_02$X \ #
# $Z A2=$xTV/BOITE.7 \ #
# $Z R=$xTV/BOITE.8 \ #
# $Z $formatI #
# #
# $Z S #
# #
# $Z $xci/format.01$X mode=0 \ #
# $Z A=$xTV/BOITE.8 \ #
# $Z $formatI \ #
# $Z R=$xTV/BOITE.1 \ #
# $Z $formatR_Pal #
# #
# $Z $xci/dilate.01$X \ #
# $Z A=$xTV/BOITE.5 \ #
# $Z points=225 \ #
# $Z dilater=FAUX \ #
# $Z R=$xTV/BOITE.A \ #
# $Z $formatI #
# #
# $Z $xci/random.02$X \ #
# $Z seuil=$SeuilPartN \ #
# $Z graine=$GrainePartN \ #
# $Z $formatI | \ #
# $Z $xci/and$X \ #
# $Z A2=$xTV/BOITE.A \ #
# $Z R=$xTV/BOITE.B \ #
# $Z $formatI #
# #
# $Z $DELETE $xTV/COORDONNEES #
# $Z $DELETE $xTV/COORDONNEES_01$COORD_X #
# $Z $DELETE $xTV/COORDONNEES_01$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_X #
# $Z $DELETE $xTV/COORDONNEES$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_Z #
# #
# $Z $xci/liste_points$X \ #
# $Z A=$xTV/BOITE.B \ #
# $Z $formatI \ #
# $Z > $xTV/COORDONNEES #
# #
# $Z $DELETE $xTV/BOITE.4 #
# $Z $DELETE $xTV/BOITE.5 #
# $Z $DELETE $xTV/BOITE.6 #
# $Z $DELETE $xTV/BOITE.7 #
# $Z $DELETE $xTV/BOITE.8 #
# $Z $DELETE $xTV/BOITE.A #
# $Z $DELETE $xTV/BOITE.B #
# #
# $Z set PartN=`$TAI -1 $xTV/COORDONNEES | $SE -e "s/^.*=//"` #
# #
# $Z $CA $xTV/COORDONNEES \ #
# $Z | $GRE "^[Xx]=" \ #
# $Z | $SE -e "s/^[Xx]=//" \ #
# $Z > $xTV/COORDONNEES_01$COORD_X #
# $Z $CA $xTV/COORDONNEES \ #
# $Z | $GRE "^[Yy]=" \ #
# $Z | $SE -e "s/^[Yy]=//" \ #
# $Z > $xTV/COORDONNEES_01$COORD_Y #
# #
# $Z set EchelleX=`$xcg/MUL2.01$X n1=2 n2=$MaxX` #
# $Z set TranslationX=`$xcg/MUL2.01$X n1=-1 n2=$MaxX` #
# $Z set EchelleY=`$xcg/MUL2.01$X n1=2 n2=$MaxY` #
# $Z set TranslationY=`$xcg/MUL2.01$X n1=-1 n2=$MaxY` #
# #
# $Z $xrv/AXPB.01$X \ #
# $Z CAL1=FAUX \ #
# $Z ne=$PartN \ #
# $Z fichier=$xTV/COORDONNEES_01$COORD_X \ #
# $Z homothetie=$EchelleX translation=$TranslationX \ #
# $Z > $xTV/COORDONNEES$COORD_X #
# $Z $xrv/AXPB.01$X \ #
# $Z CAL1=FAUX \ #
# $Z ne=$PartN \ #
# $Z fichier=$xTV/COORDONNEES_01$COORD_Y \ #
# $Z homothetie=$EchelleY translation=$TranslationY \ #
# $Z > $xTV/COORDONNEES$COORD_Y #
# #
# $Z $DELETE $xTV/COORDONNEES_01$COORD_X #
# $Z $DELETE $xTV/COORDONNEES_01$COORD_Y #
# #
# $Z set Part0=1 #
# $Z @ Npart = $PartN - $Part0 #
# $Z @ Npart = $Npart + 1 #
# #
# $Z $DELETE $xTV/MODULE #
# $Z $DELETE $xTV/THETA #
# $Z $DELETE $xTV/XY_RT.1 #
# $Z $DELETE $xTV/XY_RT.2 #
# $Z $DELETE $xTV/VITESSES #
# $Z $DELETE $xTV/VITESSES$COORD_X #
# $Z $DELETE $xTV/VITESSES$COORD_Y #
# $Z $DELETE $xTV/VITESSES$COORD_Z #
# $Z $DELETE $xTV/mdRHO #
# $Z $DELETE $xTV/MdRHO #
# $Z $DELETE $xTV/mnPHI #
# $Z $DELETE $xTV/MnPHI #
# $Z $DELETE $xTV/dPHI #
# $Z $DELETE $xTV/mnTHETA #
# $Z $DELETE $xTV/MnTHETA #
# $Z $DELETE $xTV/dTHETA #
# $Z $DELETE $xTV/supOUVE #
# $Z $DELETE $xTV/DISTANCE #
# $Z $DELETE $xTV/STABILITE #
# $Z $DELETE $xTV/RAYONS #
# $Z $DELETE $xTV/INTERACTIONS #
# #
# #
# $Z alias Gen 'set Fi=\!:1 ; set vD=\!:2 ; set vA=\!:3 ; set ArG=(\!:4*) ; \\ #
# $Z $DELETE $Fi ; \\ #
# $Z $xci/valeurs_inte$X p=$Part0 d=$PartN vD=$vD vA=$vA $ArG > $Fi ; \\ #
# $Z unset Fi vD vA ArG' #
# #
# $Z alias GenR 'set Fi=\!:1 ; set In=\!:2 ; set Su=\!:3 ; set ArG=(\!:4*) ; \\ #
# $Z $DELETE $Fi ; \\ #
# $Z $xci/valeurs_alea$X p=$Part0 d=$PartN signe="$KV" inf=$In sup=$Su $ArG > $Fi ; \\ #
# $Z unset Fi In Su ArG' #
# #
# $Z Gen $xTV/COORDONNEES$COORD_Z 0.0 0.0 #
# #
# #
# $Z Gen $xTV/MODULE 0.02 0.02 #
# $Z GenR $xTV/THETA 0.0 $dpi g=3333 #
# #
# $Z $CA $xcs/csh$Y \ #
# $Z > $xTV/XY_RT.1 #
# $Z $PAST $xTV/MODULE $xTV/THETA \ #
# $Z | $R "$K_TAB" "$K_BLANC" \ #
# $Z | $AW ' { print "$xcg/XY_RT$X r=" $1 " t=" $2 " cartesien=FAUX" } ' \ #
# $Z >>! $xTV/XY_RT.1 #
# #
# $Z (source $xTV/XY_RT.1) \ #
# $Z > $xTV/XY_RT.2 #
# #
# $Z $CA $xTV/XY_RT.2 \ #
# $Z | $GRE "^x=" \ #
# $Z | $SE -e "s/^x=//" \ #
# $Z > $xTV/VITESSES$COORD_X #
# $Z $CA $xTV/XY_RT.2 \ #
# $Z | $GRE "^y=" \ #
# $Z | $SE -e "s/^y=//" \ #
# $Z > $xTV/VITESSES$COORD_Y #
# #
# $Z Gen $xTV/VITESSES$COORD_Z 0.0 0.0 #
# #
# $Z Gen $xTV/mdRHO 0.0 0.0 #
# $Z Gen $xTV/MdRHO 0.0 0.0 #
# $Z Gen $xTV/mnPHI 0.0 0.0 #
# $Z Gen $xTV/MnPHI 0.0 0.0 #
# $Z Gen $xTV/dPHI 0.0 0.0 #
# $Z Gen $xTV/mnTHETA 0.0 0.0 #
# $Z Gen $xTV/MnTHETA 0.0 0.0 #
# $Z Gen $xTV/dTHETA 0.0 0.0 #
# $Z Gen $xTV/DISTANCE 1000000 1000000 #
# $Z Gen $xTV/STABILITE 1000000 1000000 #
# #
# $Z set RayonsT=0.014 #
# $Z set RayonsP=`$xcg/MUL2.01$X a=2 b=$RayonsT` #
# $Z set DistanceI=`$xcg/MUL2.01$X a=4 b=$RayonsP` #
# $Z Gen $xTV/RAYONS $RayonsT $RayonsT #
# $Z Gen $xTV/INTERACTIONS $RayonsP $RayonsP #
# #
# $Z $DELETE $xTV/COULEURS$TEINT #
# $Z $DELETE $xTV/COULEURS$LUMIN #
# $Z $DELETE $xTV/COULEURS$SATUR #
# $Z $DELETE $xTV/COULEURS$Y #
# $Z $DELETE $xTV/COULEURS #
# $Z $DELETE $xTV/COULEURS$ROUGE #
# $Z $DELETE $xTV/COULEURS$VERTE #
# $Z $DELETE $xTV/COULEURS$BLEUE #
# #
# $Z @ TeinteMagenta = $GRIS_7 #
# $Z @ TeinteCyan = $GRIS_4 + $GRIS_8 #
# #
# $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartN \ #
# $Z vD=$TeinteMagenta vA=$TeinteCyan \ #
# $Z cubique=FAUX \ #
# $Z entiers=VRAI \ #
# $Z > $xTV/COULEURS$TEINT #
# $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartN \ #
# $Z vD=$GRIS_4 vA=$GRIS_4 \ #
# $Z cubique=FAUX \ #
# $Z entiers=VRAI \ #
# $Z > $xTV/COULEURS$LUMIN #
# $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartN \ #
# $Z vD=$GRIS_8 vA=$GRIS_8 \ #
# $Z cubique=FAUX \ #
# $Z entiers=VRAI \ #
# $Z > $xTV/COULEURS$SATUR #
# #
# $Z $PAST \ #
# $Z $xTV/COULEURS$TEINT \ #
# $Z $xTV/COULEURS$LUMIN \ #
# $Z $xTV/COULEURS$SATUR \ #
# $Z | $R "$K_TAB" "$K_BLANC" \ #
# $Z | $AW ' { print "H=" $1 " L=" $2 " S=" $3 } ' \ #
# $Z | $SE -e 's+^+$xcg/RVB_HLS$X RVB_HLS=FAUX +' \ #
# $Z | $SE -e 's/$/ eR=VRAI eV=VRAI eB=VRAI/' \ #
# $Z | $SE -e 's/$/ eH=FAUX eL=FAUX eS=FAUX/' \ #
# $Z > $xTV/COULEURS$Y #
# #
# $Z (source $xTV/COULEURS$Y) \ #
# $Z > $xTV/COULEURS #
# #
# $Z $GRE "^R=" $xTV/COULEURS \ #
# $Z | $SE -e "s/^R=//" \ #
# $Z > $xTV/COULEURS$ROUGE #
# $Z $GRE "^V=" $xTV/COULEURS \ #
# $Z | $SE -e "s/^V=//" \ #
# $Z > $xTV/COULEURS$VERTE #
# $Z $GRE "^B=" $xTV/COULEURS \ #
# $Z | $SE -e "s/^B=//" \ #
# $Z > $xTV/COULEURS$BLEUE #
# #
# $Z Pal #
# #
# #
# $Z $xci/scale$X \ #
# $Z A=$xTV/BOITE.1 \ #
# $Z a=1.00 \ #
# $Z R=$xTV/BOITE.2 \ #
# $Z $formatI #
# #
# $Z $xrk/rdn_walk.41$X corps=$Npart \ #
# $Z np=$NimagesA \ #
# $Z collisions=VRAI DLA=FAUX interaction=$DistanceI \ #
# $Z LISTE_X=$xTV/COORDONNEES$COORD_X \ #
# $Z LISTE_Y=$xTV/COORDONNEES$COORD_Y \ #
# $Z LISTE_Z=$xTV/COORDONNEES$COORD_Z \ #
# $Z LISTE_VX=$xTV/VITESSES$COORD_X \ #
# $Z LISTE_VY=$xTV/VITESSES$COORD_Y \ #
# $Z LISTE_VZ=$xTV/VITESSES$COORD_Z \ #
# $Z LISTE_MINIMUM_DELTA_RHO=$xTV/mdRHO \ #
# $Z LISTE_MAXIMUM_DELTA_RHO=$xTV/MdRHO \ #
# $Z LISTE_MINIMUM_N_PHI=$xTV/mnPHI \ #
# $Z LISTE_MAXIMUM_N_PHI=$xTV/MnPHI \ #
# $Z LISTE_DELTA_PHI=$xTV/dPHI \ #
# $Z LISTE_MINIMUM_N_THETA=$xTV/mnTHETA \ #
# $Z LISTE_MAXIMUM_N_THETA=$xTV/MnTHETA \ #
# $Z LISTE_DELTA_THETA=$xTV/dTHETA \ #
# $Z LISTE_DISTANCE_MAXIMALE=$xTV/DISTANCE \ #
# $Z LISTE_STABILITE=$xTV/STABILITE \ #
# $Z LISTE_RAYON=$xTV/INTERACTIONS \ #
# $Z LISTE_RAYON_D_INTERACTION=$xTV/INTERACTIONS \ #
# $Z LISTE_ROUGE=$xTV/COULEURS$ROUGE \ #
# $Z LISTE_VERTE=$xTV/COULEURS$VERTE \ #
# $Z LISTE_BLEUE=$xTV/COULEURS$BLEUE \ #
# $Z milieu=VRAI \ #
# $Z reflexion=VRAI refraction=FAUX \ #
# $Z Mhors=$BLANC \ #
# $Z MNpasX=1 Mprolonger_X=VRAI \ #
# $Z MNpasY=1 Mprolonger_Y=VRAI \ #
# $Z MNpasZ=1 Mprolonger_Z=VRAI \ #
# $Z adapter_M_nPAS=VRAI \ #
# $Z Msimplifier=FAUX affiner_M_maillage=FAUX \ #
# $Z MC=$xTV/BOITE.2 \ #
# $Z MChiffres=0 \ #
# $Z Zmin=0 Zmax=15 \ #
# $Z centrer=VRAI \ #
# $Z dct=0.05 nombre=40 \ #
# $Z trainees=FAUX \ #
# $Z facteur_ROUGE=1.0 \ #
# $Z facteur_VERTE=1.0 \ #
# $Z facteur_BLEUE=1.0 \ #
# $Z renormaliser=FAUX \ #
# $Z Lz=100 \ #
# $Z zoom_automatique=VRAI \ #
# $Z centre_de_gravite=FAUX \ #
# $Z fond=FAUX \ #
# $Z lister_les_points=FAUX \ #
# $Z lister_les_points_apres=FAUX \ #
# $Z R=$xiim/REFL.Wa. \ #
# $Z $formatI #
# #
# #
# #
# $Z $xci/complement$X A=$xTV/BOITE.1 \ #
# $Z R=$xTV/BOITE.3 \ #
# $Z $formatI #
# #
# $Z $xci/dilate.01$X A=$xTV/BOITE.3 \ #
# $Z dilater=FAUX \ #
# $Z points=25 \ #
# $Z $formatI | \ #
# $Z $xci/minmax$X A1=$xTV/BOITE.3 \ #
# $Z R=$xTV/BORDURE \ #
# $Z $formatI #
# #
# $Z $xci/seuil$X \ #
# $Z A=$xiio/MIRE \ #
# $Z seuil=$GRIS_4 \ #
# $Z $format_Std | \ #
# $Z $xci/format.01$X mode=0 \ #
# $Z $format_Std \ #
# $Z R=$xTV/MASQUE$DROITE \ #
# $Z $formatR_Pal #
# $Z $xci/complement$X \ #
# $Z A=$xTV/MASQUE$DROITE \ #
# $Z R=$xTV/MASQUE$GAUCHE \ #
# $Z $formatI #
# #
# $Z $xci/and$X A1=$xTV/BOITE.3 \ #
# $Z A2=$xTV/MASQUE$DROITE \ #
# $Z R=$xTV/BOITE$DROITE \ #
# $Z $formatI #
# $Z $xci/and$X A1=$xTV/BOITE.3 \ #
# $Z A2=$xTV/MASQUE$GAUCHE \ #
# $Z R=$xTV/BOITE$GAUCHE \ #
# $Z $formatI #
# #
# $Z $DELETE $xTV/COORDONNEES$COORD_X #
# $Z $DELETE $xTV/COORDONNEES$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_Z #
# $Z $DELETE $xTV/VITESSES$COORD_X #
# $Z $DELETE $xTV/VITESSES$COORD_Y #
# $Z $DELETE $xTV/VITESSES$COORD_Z #
# $Z $DELETE $xTV/mdRHO #
# $Z $DELETE $xTV/MdRHO #
# $Z $DELETE $xTV/mnPHI #
# $Z $DELETE $xTV/MnPHI #
# $Z $DELETE $xTV/dPHI #
# $Z $DELETE $xTV/mnTHETA #
# $Z $DELETE $xTV/MnTHETA #
# $Z $DELETE $xTV/dTHETA #
# $Z $DELETE $xTV/DISTANCE #
# $Z $DELETE $xTV/STABILITE #
# $Z $DELETE $xTV/RAYONS #
# $Z $DELETE $xTV/INTERACTIONS #
# $Z $DELETE $xTV/COULEURS$TEINT #
# $Z $DELETE $xTV/COULEURS$LUMIN #
# $Z $DELETE $xTV/COULEURS$SATUR #
# $Z $DELETE $xTV/COULEURS$Y #
# $Z $DELETE $xTV/COULEURS #
# $Z $DELETE $xTV/COULEURS$ROUGE #
# $Z $DELETE $xTV/COULEURS$VERTE #
# $Z $DELETE $xTV/COULEURS$BLEUE #
# #
# $Z set Params="eX=FAUX eY=FAUX eNIVEAU=FAUX points=VRAI $formatI" #
# #
# $c extern int atoi(); #
# $c extern int *getenv(); #
# #
# $c #define NA0 (atoi(getenv("PremiereA"))) #
# $c #define NA (atoi(getenv("DerniereA"))) #
# #
# $c int main() #
# $c { #
# $c int n1; #
# #
# $c for (n1=NA0 ; n1<=NA ; n1++) #
# $c { #
# $c printf("$xci/luminance.01$X #
# $c AR=$xiim/REFL.Wa.%04d$ROUGE #
# $c AV=$xiim/REFL.Wa.%04d$VERTE #
# $c AB=$xiim/REFL.Wa.%04d$BLEUE #
# $c $formatI | #
# $c $xci/seuil$X #
# $c seuil=$GRIS_0 #
# $c R=$xTV/POINTS #
# $c $formatI\n" #
# $c ,n1,n1,n1 #
# $c ); #
# $c printf("$xci/and$X #
# $c A1=$xTV/POINTS #
# $c A2=$xTV/MASQUE$DROITE #
# $c R=$xTV/POINTS$DROITE #
# $c $formatI\n" #
# $c ); #
# $c printf("$xci/and$X #
# $c A1=$xTV/POINTS #
# $c A2=$xTV/MASQUE$GAUCHE #
# $c R=$xTV/POINTS$GAUCHE #
# $c $formatI\n" #
# $c ); #
# #
# $c printf("set Npoints=`$xci/liste_points$X A=$xTV/POINTS $Params`\n"); #
# $c printf("set NpointsD=`$xci/liste_points$X A=$xTV/POINTS$DROITE $Params`\n"); #
# $c printf("set NpointsG=`$xci/liste_points$X A=$xTV/POINTS$GAUCHE $Params`\n"); #
# #
# $c printf("set Npoints=`echo $Npoints | $SE -e 's/^.*=//'`\n"); #
# $c printf("set NpointsD=`echo $NpointsD | $SE -e 's/^.*=//'`\n"); #
# $c printf("set NpointsG=`echo $NpointsG | $SE -e 's/^.*=//'`\n"); #
# #
# $c printf("set FacteurD=`$xcg/DIVZ.01$X n1=$NpointsD n2=$Npoints`\n"); #
# $c printf("set FacteurD=`$xcg/MIN2.01$X n1=$FacteurD n2=1.00`\n"); #
# $c printf("set FacteurD=`$xcg/MAX2.01$X n1=$FacteurD n2=0.01`\n"); #
# #
# $c printf("set FacteurG=`$xcg/DIVZ.01$X n1=$NpointsG n2=$Npoints`\n"); #
# $c printf("set FacteurG=`$xcg/MIN2.01$X n1=$FacteurG n2=1.00`\n"); #
# $c printf("set FacteurG=`$xcg/MAX2.01$X n1=$FacteurG n2=0.01`\n"); #
# #
# $c printf("$xci/scale$X #
# $c A=$xTV/BOITE$DROITE #
# $c a=$FacteurD #
# $c R=$xTV/BOITE.3$DROITE #
# $c $formatI\n" #
# $c ); #
# $c printf("$xci/scale$X #
# $c A=$xTV/BOITE$GAUCHE #
# $c a=$FacteurG #
# $c R=$xTV/BOITE.3$GAUCHE #
# $c $formatI\n" #
# $c ); #
# #
# $c printf("$xci/or_02$X #
# $c A1=$xTV/BOITE.3$DROITE #
# $c A2=$xTV/BOITE.3$GAUCHE #
# $c $formatI | #
# $c $xci/cache$X #
# $c M=$xTV/BORDURE #
# $c R=$xTV/BOITE.3$ROUGE #
# $c $formatI\n" #
# $c ); #
# $c printf("$xci/or_02$X #
# $c A1=$xTV/BOITE.3$DROITE #
# $c A2=$xTV/BOITE.3$GAUCHE #
# $c $formatI | #
# $c $xci/cache$X #
# $c M=$xTV/BORDURE #
# $c R=$xTV/BOITE.3$VERTE #
# $c $formatI\n" #
# $c ); #
# $c printf("$xci/or_02$X #
# $c A1=$xTV/BOITE.3$DROITE #
# $c A2=$xTV/BOITE.3$GAUCHE #
# $c $formatI | #
# $c $xci/cache$X #
# $c M=$xTV/BORDURE #
# $c R=$xTV/BOITE.3$BLEUE #
# $c $formatI\n" #
# $c ); #
# #
# $c printf("$xci/cache.11$Z #
# $c $xiim/REFL.Wa.%04d #
# $c $xTV/BOITE.3 #
# $c $xiim/REFL.U.%04d\n" #
# $c ,n1,n1 #
# $c ); #
# $c } #
# $c } #
# #
# $Z $DELETE $xTV/BOITE.1 #
# $Z $DELETE $xTV/BOITE.2 #
# $Z $DELETE $xTV/BOITE.3 #
# $Z $DELETE $xTV/BOITE.3$ROUGE #
# $Z $DELETE $xTV/BOITE.3$VERTE #
# $Z $DELETE $xTV/BOITE.3$BLEUE #
# $Z $DELETE $xTV/BOITE.3$DROITE #
# $Z $DELETE $xTV/BOITE.3$GAUCHE #
# $Z $DELETE $xTV/BORDURE #
# $Z $DELETE $xTV/MASQUE$DROITE #
# $Z $DELETE $xTV/MASQUE$GAUCHE #
# $Z $DELETE $xTV/BOITE$DROITE #
# $Z $DELETE $xTV/BOITE$GAUCHE #
# $Z $DELETE $xTV/POINTS #
# $Z $DELETE $xTV/POINTS$DROITE #
# $Z $DELETE $xTV/POINTS$GAUCHE #
# #
# $Z Pal #
# #
# $Z $xci/reduction_16$Z $xiim/REFL.U. $xiak/REFL.P8 $Premiere $Derniere #
# $Z $xci/reduction_64$Z $xiim/REFL.U. $xiak/REFL.P8 $Premiere $Derniere #
# #
# $X $xci/genere$X c='ro $xiak/REFL.P8$R16%s' RVB=VRAI #
# $X $xci/genere$X c='ro $xiak/REFL.P8$R64%s' RVB=VRAI #
# #
# $X $xci/genere$X c='$xcg/unite$Z $xiak/REFL.P8$R16%s' RVB=VRAI #
# $X $xci/genere$X c='$xcg/unite$Z $xiak/REFL.P8$R64%s' RVB=VRAI #
# #
# $X $xci/genere$X c='$CP $xiim/REFL.U.1024%s $xiirk/REFL.P8.1024%s' RVB=VRAI #
# $X $xci/genere$X c='ro $xiirk/REFL.P8.1024%s' RVB=VRAI #
# $X $xci/genere$X c='$xcg/unite$Z $xiirk/REFL.P8.1024%s' RVB=VRAI #
# #
# #
# Pal #
# #
# #
# $xci/disk_video_P$Z $xiim_LACT29/REFL.U. 0001 1024 RVB \ #
# 11 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
# #
# xivPdf 3 2 #
# #
# record.01$Z $xiak/REFL.P8$R16 RVB Initialisation #
# record.01$Z $xiak/REFL.P8$R64 RVB rien #
# record.01$Z $xiirk/REFL.P8.1024 RVB rien #
# #
# #
sequence 025394_025521
# Generee (sur '$LACT29') par : #
# #
# $Z SET Premiere=1 #
# $Z SET Derniere=128 #
# $Z @ Nimages = $Derniere - $Premiere #
# $Z @ Nimages = $Nimages + 1 #
# $Z @ Moitie = $Nimages / 2 #
# #
# #
# $Z Pal #
# #
# #
# $Z $DELETE $xTV/COORDONNEES_01$COORD_X #
# $Z $DELETE $xTV/COORDONNEES_01$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_X #
# $Z $DELETE $xTV/COORDONNEES$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_Z #
# #
# $Z alias GenL 'set Fi=\!:1 ; set LiStE=(\!:2*) ; \\ #
# $Z $DELETE $Fi ; \\ #
# $Z echo "$LiStE" | $R "$K_BLANC" "$K_NL" > $Fi ; \\ #
# $Z unset Fi LiStE' #
# #
# #
# $Z set Echelle=2.0 #
# $Z set Translation=-1 #
# $Z set EchelleX=$Echelle #
# $Z set TranslationX=$Translation #
# $Z set EchelleY=$Echelle #
# $Z set TranslationY=$Translation #
# #
# $Z set PasDeTemps=0.05 #
# $Z set NPasDeTemps=10 #
# $Z set ModuleVitesse=0.010 #
# #
# $Z set RayonsT=`$xcg/MUL2.01$X n1=$NPasDeTemps n2=$PasDeTemps` #
# $Z set RayonsT=`$xcg/MUL2.01$X n1=$ModuleVitesse n2=$RayonsT` #
# $Z set RayonsT=`$xcg/MUL2.01$X n1=12 n2=$RayonsT` #
# $Z set RayonsV=`$xcg/MUL2.01$X n1=1.15 n2=$RayonsT` #
# $Z set RayonsP=`$xcg/MUL2.01$X n1=2 n2=$RayonsT` #
# $Z set DistanceI=`$xcg/MUL2.01$X n1=4 n2=$RayonsP` #
# #
# $Z set Distance=`$xcg/MUL2.01$X n1=$NPasDeTemps n2=$PasDeTemps` #
# $Z set Distance=`$xcg/MUL2.01$X n1=$ModuleVitesse n2=$Distance` #
# $Z set Distance=`$xcg/MUL2.01$X n1=$Moitie n2=$Distance` #
# $Z set RayonsD=`$xcg/DIVZ.01$X n1=$RayonsT n2=$Echelle` #
# $Z set Distance=`$xcg/ADD2.01$X n1=$Distance n2=$RayonsD` #
# $Z set Distance=`$xcg/ADD2.01$X n1=$Distance n2=$RayonsD` #
# #
# $Z set ModuleVitesse=`$xcg/MUL2.01$X n1=$Echelle n2=$ModuleVitesse` #
# #
# $Z set Centre=0.5 #
# #
# $Z set Theta=-0.6 #
# #
# $Z set XHaut=$Distance #
# $Z set YHaut=0 #
# $Z set Options="cartesien=VRAI eX=FAUX eY=FAUX eRHO=FAUX eTHETA=FAUX" #
# $Z set RHaut=`$xcg/XY_RT$X X=$XHaut Y=$YHaut $Options eRHO=VRAI` #
# $Z set RHaut=`echo $RHaut | $SE "s/^.*=//"` #
# $Z set THaut=`$xcg/XY_RT$X X=$XHaut Y=$YHaut $Options eTHETA=VRAI` #
# $Z set THaut=`echo $THaut | $SE "s/^.*=//"` #
# $Z set THaut=`$xcg/SOUS.01$X n1=$THaut n2=$Theta` #
# $Z set Options="cartesien=FAUX eX=FAUX eY=FAUX eRHO=FAUX eTHETA=FAUX" #
# $Z set XHaut=`$xcg/XY_RT$X R=$RHaut T=$THaut $Options eX=VRAI` #
# $Z set XHaut=`echo $XHaut | $SE "s/^.*=//"` #
# $Z set XHaut=`$xcg/ADD2.01$X n1=$XHaut n2=$Centre` #
# $Z set YHaut=`$xcg/XY_RT$X R=$RHaut T=$THaut $Options eY=VRAI` #
# $Z set YHaut=`echo $YHaut | $SE "s/^.*=//"` #
# $Z set YHaut=`$xcg/ADD2.01$X n1=$YHaut n2=$Centre` #
# #
# $Z set XBas=$Distance #
# $Z set YBas=0 #
# $Z set Options="cartesien=VRAI eX=FAUX eY=FAUX eRHO=FAUX eTHETA=FAUX" #
# $Z set RBas=`$xcg/XY_RT$X X=$XBas Y=$YBas $Options eRHO=VRAI` #
# $Z set RBas=`echo $RBas | $SE "s/^.*=//"` #
# $Z set TBas=`$xcg/XY_RT$X X=$XBas Y=$YBas $Options eTHETA=VRAI` #
# $Z set TBas=`echo $TBas | $SE "s/^.*=//"` #
# $Z set TBas=`$xcg/ADD2.01$X n1=$TBas n2=$Theta` #
# $Z set Options="cartesien=FAUX eX=FAUX eY=FAUX eRHO=FAUX eTHETA=FAUX" #
# $Z set XBas=`$xcg/XY_RT$X R=$RBas T=$TBas $Options eX=VRAI` #
# $Z set XBas=`echo $XBas | $SE "s/^.*=//"` #
# $Z set XBas=`$xcg/ADD2.01$X n1=$XBas n2=$Centre` #
# $Z set YBas=`$xcg/XY_RT$X R=$RBas T=$TBas $Options eY=VRAI` #
# $Z set YBas=`echo $YBas | $SE "s/^.*=//"` #
# $Z set YBas=`$xcg/ADD2.01$X n1=$YBas n2=$Centre` #
# #
# $Z GenL $xTV/COORDONNEES_01$COORD_X $XHaut $XBas #
# $Z GenL $xTV/COORDONNEES_01$COORD_Y $YHaut $YBas #
# #
# $Z set PartNX=`$WC $xTV/COORDONNEES_01$COORD_X` #
# $Z set PartNX=$PartNX[$WC1] #
# $Z set PartNY=`$WC $xTV/COORDONNEES_01$COORD_Y` #
# $Z set PartNY=$PartNY[$WC1] #
# $Z set PartN=`$xcg/MIN2.01$X n1=$PartNX n2=$PartNY signe="$K_VIDE"` #
# #
# $Z $xrv/AXPB.01$X \ #
# $Z CAL1=FAUX \ #
# $Z ne=$PartN \ #
# $Z fichier=$xTV/COORDONNEES_01$COORD_X \ #
# $Z homothetie=$EchelleX translation=$TranslationX \ #
# $Z > $xTV/COORDONNEES$COORD_X #
# $Z $xrv/AXPB.01$X \ #
# $Z CAL1=FAUX \ #
# $Z ne=$PartN \ #
# $Z fichier=$xTV/COORDONNEES_01$COORD_Y \ #
# $Z homothetie=$EchelleY translation=$TranslationY \ #
# $Z > $xTV/COORDONNEES$COORD_Y #
# #
# $Z $DELETE $xTV/COORDONNEES_01$COORD_X #
# $Z $DELETE $xTV/COORDONNEES_01$COORD_Y #
# #
# #
# $Z set Part0=1 #
# $Z @ Npart = $PartN - $Part0 #
# $Z @ Npart = $Npart + 1 #
# #
# $Z $DELETE $xTV/MODULE #
# $Z $DELETE $xTV/THETA #
# $Z $DELETE $xTV/XY_RT.1 #
# $Z $DELETE $xTV/XY_RT.2 #
# $Z $DELETE $xTV/VITESSES #
# $Z $DELETE $xTV/VITESSES$COORD_X #
# $Z $DELETE $xTV/VITESSES$COORD_Y #
# $Z $DELETE $xTV/VITESSES$COORD_Z #
# $Z $DELETE $xTV/mdRHO #
# $Z $DELETE $xTV/MdRHO #
# $Z $DELETE $xTV/mnPHI #
# $Z $DELETE $xTV/MnPHI #
# $Z $DELETE $xTV/dPHI #
# $Z $DELETE $xTV/mnTHETA #
# $Z $DELETE $xTV/MnTHETA #
# $Z $DELETE $xTV/dTHETA #
# $Z $DELETE $xTV/supOUVE #
# $Z $DELETE $xTV/DISTANCE #
# $Z $DELETE $xTV/STABILITE #
# $Z $DELETE $xTV/RAYONS #
# $Z $DELETE $xTV/INTERACTIONS #
# #
# #
# $Z alias Gen 'set Fi=\!:1 ; set vD=\!:2 ; set vA=\!:3 ; set ArG=(\!:4*) ; \\ #
# $Z $DELETE $Fi ; \\ #
# $Z $xci/valeurs_inte$X p=$Part0 d=$PartN vD=$vD vA=$vA $ArG > $Fi ; \\ #
# $Z unset Fi vD vA ArG' #
# #
# $Z alias GenR 'set Fi=\!:1 ; set In=\!:2 ; set Su=\!:3 ; set ArG=(\!:4*) ; \\ #
# $Z $DELETE $Fi ; \\ #
# $Z $xci/valeurs_alea$X p=$Part0 d=$PartN signe="$KV" inf=$In sup=$Su $ArG > $Fi ; \\ #
# $Z unset Fi In Su ArG' #
# #
# $Z Gen $xTV/COORDONNEES$COORD_Z 0.0 0.0 #
# #
# $Z set VTHaut=`$xcg/SOUS.01$X n1=$pi n2=$Theta` #
# $Z set VTBas=`$xcg/ADD2.01$X n1=$pi n2=$Theta` #
# #
# $Z GenL $xTV/MODULE $ModuleVitesse $ModuleVitesse #
# $Z GenL $xTV/THETA $VTHaut $VTBas #
# #
# $Z $CA $xcs/csh$Y \ #
# $Z > $xTV/XY_RT.1 #
# $Z $PAST $xTV/MODULE $xTV/THETA \ #
# $Z | $R "$K_TAB" "$K_BLANC" \ #
# $Z | $AW ' { print "$xcg/XY_RT$X r=" $1 " t=" $2 " cartesien=FAUX" } ' \ #
# $Z >>! $xTV/XY_RT.1 #
# #
# $Z (source $xTV/XY_RT.1) \ #
# $Z > $xTV/XY_RT.2 #
# #
# $Z $CA $xTV/XY_RT.2 \ #
# $Z | $GRE "^x=" \ #
# $Z | $SE -e "s/^x=//" \ #
# $Z > $xTV/VITESSES$COORD_X #
# $Z $CA $xTV/XY_RT.2 \ #
# $Z | $GRE "^y=" \ #
# $Z | $SE -e "s/^y=//" \ #
# $Z > $xTV/VITESSES$COORD_Y #
# #
# $Z Gen $xTV/VITESSES$COORD_Z 0.0 0.0 #
# #
# $Z Gen $xTV/mdRHO 0.0 0.0 #
# $Z Gen $xTV/MdRHO 0.0 0.0 #
# $Z Gen $xTV/mnPHI 0.0 0.0 #
# $Z Gen $xTV/MnPHI 0.0 0.0 #
# $Z Gen $xTV/dPHI 0.0 0.0 #
# $Z Gen $xTV/mnTHETA 0.0 0.0 #
# $Z Gen $xTV/MnTHETA 0.0 0.0 #
# $Z Gen $xTV/dTHETA 0.0 0.0 #
# $Z Gen $xTV/DISTANCE 1000000 1000000 #
# $Z Gen $xTV/STABILITE 1000000 1000000 #
# #
# $Z Gen $xTV/RAYONS $RayonsV $RayonsV #
# $Z Gen $xTV/INTERACTIONS $RayonsP $RayonsP #
# #
# $Z $DELETE $xTV/COULEURS$ROUGE #
# $Z $DELETE $xTV/COULEURS$VERTE #
# $Z $DELETE $xTV/COULEURS$BLEUE #
# #
# $Z Gen $xTV/COULEURS$ROUGE $GRIS_8 $GRIS_0 #
# $Z Gen $xTV/COULEURS$VERTE $GRIS_7 $GRIS_7 #
# $Z Gen $xTV/COULEURS$BLEUE $GRIS_0 $GRIS_8 #
# #
# $Z Pal #
# #
# $Z $DELETE $xTV/LISTE_POINTS #
# $Z $xrk/rdn_walk.41$X corps=$Npart \ #
# $Z np=$Nimages \ #
# $Z collisions=VRAI DLA=FAUX interaction=$DistanceI \ #
# $Z LISTE_X=$xTV/COORDONNEES$COORD_X \ #
# $Z LISTE_Y=$xTV/COORDONNEES$COORD_Y \ #
# $Z LISTE_Z=$xTV/COORDONNEES$COORD_Z \ #
# $Z LISTE_VX=$xTV/VITESSES$COORD_X \ #
# $Z LISTE_VY=$xTV/VITESSES$COORD_Y \ #
# $Z LISTE_VZ=$xTV/VITESSES$COORD_Z \ #
# $Z LISTE_MINIMUM_DELTA_RHO=$xTV/mdRHO \ #
# $Z LISTE_MAXIMUM_DELTA_RHO=$xTV/MdRHO \ #
# $Z LISTE_MINIMUM_N_PHI=$xTV/mnPHI \ #
# $Z LISTE_MAXIMUM_N_PHI=$xTV/MnPHI \ #
# $Z LISTE_DELTA_PHI=$xTV/dPHI \ #
# $Z LISTE_MINIMUM_N_THETA=$xTV/mnTHETA \ #
# $Z LISTE_MAXIMUM_N_THETA=$xTV/MnTHETA \ #
# $Z LISTE_DELTA_THETA=$xTV/dTHETA \ #
# $Z LISTE_DISTANCE_MAXIMALE=$xTV/DISTANCE \ #
# $Z LISTE_STABILITE=$xTV/STABILITE \ #
# $Z LISTE_RAYON=$xTV/RAYONS \ #
# $Z LISTE_RAYON_D_INTERACTION=$xTV/INTERACTIONS \ #
# $Z LISTE_ROUGE=$xTV/COULEURS$ROUGE \ #
# $Z LISTE_VERTE=$xTV/COULEURS$VERTE \ #
# $Z LISTE_BLEUE=$xTV/COULEURS$BLEUE \ #
# $Z milieu=FAUX \ #
# $Z Zmin=0 Zmax=15 \ #
# $Z centrer=VRAI \ #
# $Z dct=$PasDeTemps nombre=$NPasDeTemps \ #
# $Z trainees=FAUX mode=1 \ #
# $Z renormaliser=FAUX \ #
# $Z Lz=100 \ #
# $Z zoom_automatique=VRAI \ #
# $Z lister_les_points=VRAI \ #
# $Z lister_les_points_apres=VRAI \ #
# $Z centre_de_gravite=VRAI \ #
# $Z fond=FAUX \ #
# $Z attenuation_au_bord=0.25 \ #
# $Z R=$xiim/CHOC.W. \ #
# $Z $formatI \ #
# $Z > $xTV/LISTE_POINTS #
# #
# $Z $DELETE $xTV/COORDONNEES$COORD_X #
# $Z $DELETE $xTV/COORDONNEES$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_Z #
# $Z $DELETE $xTV/VITESSES #
# $Z $DELETE $xTV/VITESSES$COORD_X #
# $Z $DELETE $xTV/VITESSES$COORD_Y #
# $Z $DELETE $xTV/VITESSES$COORD_Z #
# $Z $DELETE $xTV/mdRHO #
# $Z $DELETE $xTV/MdRHO #
# $Z $DELETE $xTV/mnPHI #
# $Z $DELETE $xTV/MnPHI #
# $Z $DELETE $xTV/dPHI #
# $Z $DELETE $xTV/mnTHETA #
# $Z $DELETE $xTV/MnTHETA #
# $Z $DELETE $xTV/dTHETA #
# $Z $DELETE $xTV/DISTANCE #
# $Z $DELETE $xTV/STABILITE #
# $Z $DELETE $xTV/RAYONS #
# $Z $DELETE $xTV/INTERACTIONS #
# $Z $DELETE $xTV/COULEURS$TEINT #
# $Z $DELETE $xTV/COULEURS$LUMIN #
# $Z $DELETE $xTV/COULEURS$SATUR #
# $Z $DELETE $xTV/COULEURS$Y #
# $Z $DELETE $xTV/COULEURS #
# $Z $DELETE $xTV/COULEURS$ROUGE #
# $Z $DELETE $xTV/COULEURS$VERTE #
# $Z $DELETE $xTV/COULEURS$BLEUE #
# #
# $Z GenL $xTV/TRANSLATION$COORD_Z 0.0 0.0 +0.02 #
# #
# $Z GenL $xTV/COULEURS$ROUGE $GRIS_8 $GRIS_0 $GRIS_8 #
# $Z GenL $xTV/COULEURS$VERTE $GRIS_7 $GRIS_7 $GRIS_8 #
# $Z GenL $xTV/COULEURS$BLEUE $GRIS_0 $GRIS_8 $GRIS_8 #
# #
# $Z GenL $xTV/RAYONS $RayonsV $RayonsV 0.024 #
# #
# $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("$DELETE $xTV/COORDONNEES\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_X\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_Y\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_Z\n"); #
# #
# $c printf("$CA $xTV/LISTE_POINTS | #
# $c $GRE 'periode=%d ' #
# $c > $xTV/COORDONNEES\n" #
# $c ,n #
# $c ); #
# #
# $c printf("set Particules=`$WC $xTV/COORDONNEES`\n"); #
# $c printf("set Particules=$Particules[$WC1]\n"); #
# #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*[ (,]X[G]*=//%c #
# $c -e %cs/[,) ].*//%c #
# $c > $xTV/COORDONNEES$COORD_X\n" #
# $c ,'"','"','"','"' #
# $c ); #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*[ (,]Y[G]*=//%c #
# $c -e %cs/[,) ].*//%c #
# $c > $xTV/COORDONNEES$COORD_Y\n" #
# $c ,'"','"','"','"' #
# $c ); #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*[ (,]Z[G]*=//%c #
# $c -e %cs/[,) ].*//%c #
# $c > $xTV/COORDONNEES$COORD_Z\n" #
# $c ,'"','"','"','"' #
# $c ); #
# #
# $c printf("$xrv/particule.10$X #
# $c np=1 #
# $c iterations=$Particules #
# $c isoles=VRAI #
# $c LISTE_X=$xTV/COORDONNEES$COORD_X #
# $c LISTE_Y=$xTV/COORDONNEES$COORD_Y #
# $c LISTE_Z=$xTV/COORDONNEES$COORD_Z #
# $c LISTE_tZ=$xTV/TRANSLATION$COORD_Z #
# $c LISTE_ROUGE=$xTV/COULEURS$ROUGE #
# $c LISTE_VERTE=$xTV/COULEURS$VERTE #
# $c LISTE_BLEUE=$xTV/COULEURS$BLEUE #
# $c Ar=0.5 #
# $c LISTE_RAYON=$xTV/RAYONS #
# $c Lz=100 #
# $c zoom_automatique=FAUX ZOOM=1.0 #
# $c coordonnees_dans_0_1=FAUX #
# $c AXYZ=1 BXYZ=0 #
# $c fond=FAUX #
# $c centrer=VRAI #
# $c reference=$Particules #
# $c attenuation_au_bord=0.25 #
# $c R=$xTV/CHOC.B. #
# $c $formatI\n" #
# $c ); #
# #
# $c printf("$xci/acces$X #
# $c A=$xTV/CHOC.B.%04d$ROUGE #
# $c R=$xiim/CHOC.6.%04d$ROUGE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xTV/CHOC.B.%04d$VERTE #
# $c R=$xiim/CHOC.6.%04d$VERTE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xTV/CHOC.B.%04d$BLEUE #
# $c R=$xiim/CHOC.6.%04d$BLEUE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# $c } #
# $c } #
# #
# #
# $Z $DELETE $xTV/LISTE_POINTS #
# $Z $DELETE $xTV/COORDONNEES #
# $Z $DELETE $xTV/COORDONNEES$COORD_X #
# $Z $DELETE $xTV/COORDONNEES$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_Z #
# $Z $DELETE $xTV/TRANSLATION$COORD_Z #
# $Z $DELETE $xTV/RAYONS #
# $Z $DELETE $xTV/COULEURS$ROUGE #
# $Z $DELETE $xTV/COULEURS$VERTE #
# $Z $DELETE $xTV/COULEURS$BLEUE #
# #
# #
# $Z Pal #
# #
# $Z $xci/reduction_16$Z $xiim/CHOC.6. $xiak/CHOC.41 $Premiere $Derniere #
# $Z $xci/reduction_64$Z $xiim/CHOC.6. $xiak/CHOC.41 $Premiere $Derniere #
# #
# $X $xci/genere$X c='ro $xiak/CHOC.41$R16%s' RVB=VRAI #
# $X $xci/genere$X c='ro $xiak/CHOC.41$R64%s' RVB=VRAI #
# #
# $X $xci/genere$X c='$xcg/unite$Z $xiak/CHOC.41$R16%s' RVB=VRAI #
# $X $xci/genere$X c='$xcg/unite$Z $xiak/CHOC.41$R64%s' RVB=VRAI #
# #
# #
# Pal #
# #
# #
# $xci/disk_video_P$Z $xiim_LACT29/CHOC.6. 001 128 RVB \ #
# 11 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
# #
# xivPdf 3 2 #
# #
# record.01$Z $xiak/CHOC.41$R16 RVB Initialisation #
# record.01$Z $xiak/CHOC.41$R64 RVB rien #
# #
sequence 025522_026033
# Generee (sur '$LACT29') par : #
# #
# $Z unsetenv PremiereA #
# $Z unsetenv DerniereA #
# #
# $Z SET tPremiereA=1 #
# $Z SET tDerniereA=512 #
# $Z set Premiere=$tPremiereA #
# $Z @ NimagesA = $tDerniereA - $tPremiereA #
# $Z @ NimagesA = $NimagesA + 1 #
# $Z @ Nimages = $NimagesA #
# $Z @ Nimages = $Nimages - 1 #
# $Z @ Derniere = $Premiere + $Nimages #
# $Z @ Derniere = $Derniere - 1 #
# #
# $Z SETENV PremiereA $tPremiereA #
# $Z SETENV DerniereA $tDerniereA #
# #
# $X echo "echo ATTENTION : 'PremiereA' et 'DerniereA' mis dans 'env'." #
# #
# #
# $Z Pal #
# #
# $Z set PUnivers="np=0 CAL1=FAUX editer_l_univers_physique=VRAI" #
# $Z set Univers=`$xrk/rdn_walk.41$X $PUnivers $formatI` #
# #
# $Z set MinX=`echo $Univers | $SE -e "s/^.*[(,]XUI=//" -e "s/[,)].*//"` #
# $Z set MaxX=`echo $Univers | $SE -e "s/^.*[(,]XUS=//" -e "s/[,)].*//"` #
# $Z set MinY=`echo $Univers | $SE -e "s/^.*[(,]YUI=//" -e "s/[,)].*//"` #
# $Z set MaxY=`echo $Univers | $SE -e "s/^.*[(,]YUS=//" -e "s/[,)].*//"` #
# #
# $Z set MinX=`$xcg/ABSO.01$X x=$MinX` #
# $Z set MaxX=`$xcg/ABSO.01$X x=$MaxX` #
# $Z set MinY=`$xcg/ABSO.01$X x=$MinY` #
# $Z set MaxY=`$xcg/ABSO.01$X x=$MaxY` #
# #
# $Z set MaxX=`$xcg/MAX2.01$X n1=$MinX n2=$MaxX` #
# $Z set MaxY=`$xcg/MAX2.01$X n1=$MinY n2=$MaxY` #
# #
# $Z set SeuilPartN=1.0 #
# $Z set GrainePartN=2 #
# $Z set ForceX=0.01 #
# $Z set ForceY=0.01 #
# #
# $Z $DELETE $xTV/BOITE.1 #
# $Z $DELETE $xTV/BOITE.2 #
# $Z $DELETE $xTV/BOITE.3 #
# $Z $DELETE $xTV/BOITE.3$ROUGE #
# $Z $DELETE $xTV/BOITE.3$VERTE #
# $Z $DELETE $xTV/BOITE.3$BLEUE #
# $Z $DELETE $xTV/BOITE.4 #
# $Z $DELETE $xTV/BOITE.5 #
# $Z $DELETE $xTV/BOITE.6 #
# $Z $DELETE $xTV/BOITE.7 #
# $Z $DELETE $xTV/BOITE.8 #
# $Z $DELETE $xTV/BOITE.A #
# $Z $DELETE $xTV/BOITE.B #
# #
# #
# $Z Std #
# #
# $Z set FacXY=0.90 #
# $Z set SeuilBOITE=`$xcg/SOUS.01$X a=1 b=$FacXY` #
# $Z set SeuilBOITE=`$xcg/MUL2.01$X a=$SeuilBOITE b=$GRIS_8` #
# $Z set SeuilBOITE=`$xci/valeurs_inte$X p=1 d=1 vD=$SeuilBOITE entiers=VRAI` #
# $Z set SeuilBOITE=`$xcg/MIN2.01$X a=$SeuilBOITE b=$GRIS_1` #
# #
# $Z set GTransX=`$xcg/SOUS.01$X a=1 b=$FacXY` #
# $Z set GTransX=`$xcg/MOIT.01$X a=$GTransX signe="$K_VIDE"` #
# $Z set DTransX=`$xcg/MOIT.01$X a=1` #
# $Z set DTransX=`$xcg/ADD2.01$X a=$DTransX b=$GTransX signe="$K_VIDE"` #
# #
# #
# $Z set LBande=10 #
# $Z set BandeS=`$xcg/ADD2.01$X a=$GRIS_4 b=$LBande` #
# $Z set BandeI=`$xcg/SOUS.01$X a=$GRIS_4 b=$LBande` #
# #
# $Z $xci/complement$X \ #
# $Z A=$xiio/SPIRALE \ #
# $Z $formatI | \ #
# $Z $xci/seuil$X \ #
# $Z seuil=$SeuilBOITE \ #
# $Z R=$xTV/BOITE.4 \ #
# $Z $formatI #
# #
# $Z $xci/move$X \ #
# $Z A=$xTV/BOITE.4 \ #
# $Z xR=+$DTransX \ #
# $Z $formatI | \ #
# $Z $xci/move$X \ #
# $Z xR=-$GTransX \ #
# $Z $formatI | \ #
# $Z $xci/dilate.01$X \ #
# $Z points=9 \ #
# $Z dilater=VRAI \ #
# $Z R=$xTV/BOITE.5 \ #
# $Z $formatI #
# $Z $xci/Sy$X \ #
# $Z A=$xTV/BOITE.5 \ #
# $Z R=$xTV/BOITE.6 \ #
# $Z $formatI #
# #
# $Z $xci/passe_bande$X \ #
# $Z A=$xiio/MIRE \ #
# $Z inf=$BandeI \ #
# $Z sup=$BandeS \ #
# $Z $formatI | \ #
# $Z $xci/seuil$X \ #
# $Z $formatI | \ #
# $Z $xci/transpose$X \ #
# $Z $formatI | \ #
# $Z $xci/and$X \ #
# $Z A1=$xTV/BOITE.4 \ #
# $Z R=$xTV/BOITE.7 \ #
# $Z $formatI #
# #
# $Z $xci/or_02$X \ #
# $Z A1=$xTV/BOITE.5 \ #
# $Z A2=$xTV/BOITE.6 \ #
# $Z $formatI | \ #
# $Z $xci/or_02$X \ #
# $Z A2=$xTV/BOITE.7 \ #
# $Z R=$xTV/BOITE.8 \ #
# $Z $formatI #
# #
# $Z S #
# #
# $Z $xci/format.01$X mode=0 \ #
# $Z A=$xTV/BOITE.8 \ #
# $Z $formatI \ #
# $Z R=$xTV/BOITE.1 \ #
# $Z $formatR_Pal #
# #
# $Z $xci/dilate.01$X \ #
# $Z A=$xTV/BOITE.5 \ #
# $Z points=225 \ #
# $Z dilater=FAUX \ #
# $Z R=$xTV/BOITE.A \ #
# $Z $formatI #
# #
# $Z $xci/random.02$X \ #
# $Z seuil=$SeuilPartN \ #
# $Z graine=$GrainePartN \ #
# $Z px=19 py=19 \ #
# $Z $formatI | \ #
# $Z $xci/shuffling.01$X \ #
# $Z inverse=FAUX \ #
# $Z NOIR=FAUX \ #
# $Z fX=$ForceX fY=$ForceY \ #
# $Z graine=$GrainePartN \ #
# $Z $formatI | \ #
# $Z $xci/and$X \ #
# $Z A2=$xTV/BOITE.A \ #
# $Z R=$xTV/BOITE.B \ #
# $Z $formatI #
# #
# $Z $DELETE $xTV/COORDONNEES #
# $Z $DELETE $xTV/COORDONNEES_01$COORD_X #
# $Z $DELETE $xTV/COORDONNEES_01$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_X #
# $Z $DELETE $xTV/COORDONNEES$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_Z #
# #
# $Z $xci/liste_points$X \ #
# $Z A=$xTV/BOITE.B \ #
# $Z $formatI \ #
# $Z > $xTV/COORDONNEES #
# #
# $Z $DELETE $xTV/BOITE.4 #
# $Z $DELETE $xTV/BOITE.5 #
# $Z $DELETE $xTV/BOITE.6 #
# $Z $DELETE $xTV/BOITE.7 #
# $Z $DELETE $xTV/BOITE.8 #
# $Z $DELETE $xTV/BOITE.A #
# $Z $DELETE $xTV/BOITE.B #
# #
# $Z set PartN=`$TAI -1 $xTV/COORDONNEES | $SE -e "s/^.*=//"` #
# #
# $Z $CA $xTV/COORDONNEES \ #
# $Z | $GRE "^[Xx]=" \ #
# $Z | $SE -e "s/^[Xx]=//" \ #
# $Z > $xTV/COORDONNEES_01$COORD_X #
# $Z $CA $xTV/COORDONNEES \ #
# $Z | $GRE "^[Yy]=" \ #
# $Z | $SE -e "s/^[Yy]=//" \ #
# $Z > $xTV/COORDONNEES_01$COORD_Y #
# #
# $Z set EchelleX=`$xcg/MUL2.01$X n1=2 n2=$MaxX` #
# $Z set TranslationX=`$xcg/MUL2.01$X n1=-1 n2=$MaxX` #
# $Z set EchelleY=`$xcg/MUL2.01$X n1=2 n2=$MaxY` #
# $Z set TranslationY=`$xcg/MUL2.01$X n1=-1 n2=$MaxY` #
# #
# $Z $xrv/AXPB.01$X \ #
# $Z CAL1=FAUX \ #
# $Z ne=$PartN \ #
# $Z fichier=$xTV/COORDONNEES_01$COORD_X \ #
# $Z homothetie=$EchelleX translation=$TranslationX \ #
# $Z > $xTV/COORDONNEES$COORD_X #
# $Z $xrv/AXPB.01$X \ #
# $Z CAL1=FAUX \ #
# $Z ne=$PartN \ #
# $Z fichier=$xTV/COORDONNEES_01$COORD_Y \ #
# $Z homothetie=$EchelleY translation=$TranslationY \ #
# $Z > $xTV/COORDONNEES$COORD_Y #
# #
# $Z $DELETE $xTV/COORDONNEES_01$COORD_X #
# $Z $DELETE $xTV/COORDONNEES_01$COORD_Y #
# #
# $Z set Part0=1 #
# $Z @ Npart = $PartN - $Part0 #
# $Z @ Npart = $Npart + 1 #
# #
# $Z $DELETE $xTV/MODULE #
# $Z $DELETE $xTV/THETA #
# $Z $DELETE $xTV/XY_RT.1 #
# $Z $DELETE $xTV/XY_RT.2 #
# $Z $DELETE $xTV/VITESSES #
# $Z $DELETE $xTV/VITESSES$COORD_X #
# $Z $DELETE $xTV/VITESSES$COORD_Y #
# $Z $DELETE $xTV/VITESSES$COORD_Z #
# $Z $DELETE $xTV/mdRHO #
# $Z $DELETE $xTV/MdRHO #
# $Z $DELETE $xTV/mnPHI #
# $Z $DELETE $xTV/MnPHI #
# $Z $DELETE $xTV/dPHI #
# $Z $DELETE $xTV/mnTHETA #
# $Z $DELETE $xTV/MnTHETA #
# $Z $DELETE $xTV/dTHETA #
# $Z $DELETE $xTV/supOUVE #
# $Z $DELETE $xTV/DISTANCE #
# $Z $DELETE $xTV/STABILITE #
# $Z $DELETE $xTV/RAYONS #
# $Z $DELETE $xTV/INTERACTIONS #
# #
# #
# $Z alias Gen 'set Fi=\!:1 ; set vD=\!:2 ; set vA=\!:3 ; set ArG=(\!:4*) ; \\ #
# $Z $DELETE $Fi ; \\ #
# $Z $xci/valeurs_inte$X p=$Part0 d=$PartN vD=$vD vA=$vA $ArG > $Fi ; \\ #
# $Z unset Fi vD vA ArG' #
# #
# $Z alias GenR 'set Fi=\!:1 ; set In=\!:2 ; set Su=\!:3 ; set ArG=(\!:4*) ; \\ #
# $Z $DELETE $Fi ; \\ #
# $Z $xci/valeurs_alea$X p=$Part0 d=$PartN signe="$KV" inf=$In sup=$Su $ArG > $Fi ; \\ #
# $Z unset Fi In Su ArG' #
# #
# $Z Gen $xTV/COORDONNEES$COORD_Z 0.0 0.0 #
# #
# #
# $Z Gen $xTV/MODULE 0.02 0.02 #
# $Z GenR $xTV/THETA 0.0 $dpi g=3333 #
# #
# $Z $CA $xcs/csh$Y \ #
# $Z > $xTV/XY_RT.1 #
# $Z $PAST $xTV/MODULE $xTV/THETA \ #
# $Z | $R "$K_TAB" "$K_BLANC" \ #
# $Z | $AW ' { print "$xcg/XY_RT$X r=" $1 " t=" $2 " cartesien=FAUX" } ' \ #
# $Z >>! $xTV/XY_RT.1 #
# #
# $Z (source $xTV/XY_RT.1) \ #
# $Z > $xTV/XY_RT.2 #
# #
# $Z $CA $xTV/XY_RT.2 \ #
# $Z | $GRE "^x=" \ #
# $Z | $SE -e "s/^x=//" \ #
# $Z > $xTV/VITESSES$COORD_X #
# $Z $CA $xTV/XY_RT.2 \ #
# $Z | $GRE "^y=" \ #
# $Z | $SE -e "s/^y=//" \ #
# $Z > $xTV/VITESSES$COORD_Y #
# #
# $Z Gen $xTV/VITESSES$COORD_Z 0.0 0.0 #
# #
# $Z Gen $xTV/mdRHO 0.0 0.0 #
# $Z Gen $xTV/MdRHO 0.0 0.0 #
# $Z Gen $xTV/mnPHI 0.0 0.0 #
# $Z Gen $xTV/MnPHI 0.0 0.0 #
# $Z Gen $xTV/dPHI 0.0 0.0 #
# $Z Gen $xTV/mnTHETA 0.0 0.0 #
# $Z Gen $xTV/MnTHETA 0.0 0.0 #
# $Z Gen $xTV/dTHETA 0.0 0.0 #
# $Z Gen $xTV/DISTANCE 1000000 1000000 #
# $Z Gen $xTV/STABILITE 1000000 1000000 #
# #
# $Z set RayonsT=0.014 #
# $Z set RayonsP=`$xcg/MUL2.01$X a=2 b=$RayonsT` #
# $Z set DistanceI=`$xcg/MUL2.01$X a=4 b=$RayonsP` #
# $Z Gen $xTV/RAYONS $RayonsT $RayonsT #
# $Z Gen $xTV/INTERACTIONS $RayonsP $RayonsP #
# #
# $Z $DELETE $xTV/COULEURS$TEINT #
# $Z $DELETE $xTV/COULEURS$LUMIN #
# $Z $DELETE $xTV/COULEURS$SATUR #
# $Z $DELETE $xTV/COULEURS$Y #
# $Z $DELETE $xTV/COULEURS #
# $Z $DELETE $xTV/COULEURS$ROUGE #
# $Z $DELETE $xTV/COULEURS$VERTE #
# $Z $DELETE $xTV/COULEURS$BLEUE #
# #
# $Z @ TeinteMagenta = $GRIS_7 #
# $Z @ TeinteCyan = $GRIS_4 + $GRIS_8 #
# #
# $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartN \ #
# $Z vD=$TeinteMagenta vA=$TeinteCyan \ #
# $Z cubique=FAUX \ #
# $Z entiers=VRAI \ #
# $Z > $xTV/COULEURS$TEINT #
# $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartN \ #
# $Z vD=$GRIS_4 vA=$GRIS_4 \ #
# $Z cubique=FAUX \ #
# $Z entiers=VRAI \ #
# $Z > $xTV/COULEURS$LUMIN #
# $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartN \ #
# $Z vD=$GRIS_8 vA=$GRIS_8 \ #
# $Z cubique=FAUX \ #
# $Z entiers=VRAI \ #
# $Z > $xTV/COULEURS$SATUR #
# #
# $Z $PAST \ #
# $Z $xTV/COULEURS$TEINT \ #
# $Z $xTV/COULEURS$LUMIN \ #
# $Z $xTV/COULEURS$SATUR \ #
# $Z | $R "$K_TAB" "$K_BLANC" \ #
# $Z | $AW ' { print "H=" $1 " L=" $2 " S=" $3 } ' \ #
# $Z | $SE -e 's+^+$xcg/RVB_HLS$X RVB_HLS=FAUX +' \ #
# $Z | $SE -e 's/$/ eR=VRAI eV=VRAI eB=VRAI/' \ #
# $Z | $SE -e 's/$/ eH=FAUX eL=FAUX eS=FAUX/' \ #
# $Z > $xTV/COULEURS$Y #
# #
# $Z (source $xTV/COULEURS$Y) \ #
# $Z > $xTV/COULEURS #
# #
# $Z $GRE "^R=" $xTV/COULEURS \ #
# $Z | $SE -e "s/^R=//" \ #
# $Z > $xTV/COULEURS$ROUGE #
# $Z $GRE "^V=" $xTV/COULEURS \ #
# $Z | $SE -e "s/^V=//" \ #
# $Z > $xTV/COULEURS$VERTE #
# $Z $GRE "^B=" $xTV/COULEURS \ #
# $Z | $SE -e "s/^B=//" \ #
# $Z > $xTV/COULEURS$BLEUE #
# #
# $Z Pal #
# #
# #
# $Z $xci/scale$X \ #
# $Z A=$xTV/BOITE.1 \ #
# $Z a=1.00 \ #
# $Z R=$xTV/BOITE.2 \ #
# $Z $formatI #
# #
# $Z $xrk/rdn_walk.41$X corps=$Npart \ #
# $Z np=$NimagesA \ #
# $Z collisions=VRAI DLA=FAUX interaction=$DistanceI \ #
# $Z LISTE_X=$xTV/COORDONNEES$COORD_X \ #
# $Z LISTE_Y=$xTV/COORDONNEES$COORD_Y \ #
# $Z LISTE_Z=$xTV/COORDONNEES$COORD_Z \ #
# $Z LISTE_VX=$xTV/VITESSES$COORD_X \ #
# $Z LISTE_VY=$xTV/VITESSES$COORD_Y \ #
# $Z LISTE_VZ=$xTV/VITESSES$COORD_Z \ #
# $Z LISTE_MINIMUM_DELTA_RHO=$xTV/mdRHO \ #
# $Z LISTE_MAXIMUM_DELTA_RHO=$xTV/MdRHO \ #
# $Z LISTE_MINIMUM_N_PHI=$xTV/mnPHI \ #
# $Z LISTE_MAXIMUM_N_PHI=$xTV/MnPHI \ #
# $Z LISTE_DELTA_PHI=$xTV/dPHI \ #
# $Z LISTE_MINIMUM_N_THETA=$xTV/mnTHETA \ #
# $Z LISTE_MAXIMUM_N_THETA=$xTV/MnTHETA \ #
# $Z LISTE_DELTA_THETA=$xTV/dTHETA \ #
# $Z LISTE_DISTANCE_MAXIMALE=$xTV/DISTANCE \ #
# $Z LISTE_STABILITE=$xTV/STABILITE \ #
# $Z LISTE_RAYON=$xTV/INTERACTIONS \ #
# $Z LISTE_RAYON_D_INTERACTION=$xTV/INTERACTIONS \ #
# $Z LISTE_ROUGE=$xTV/COULEURS$ROUGE \ #
# $Z LISTE_VERTE=$xTV/COULEURS$VERTE \ #
# $Z LISTE_BLEUE=$xTV/COULEURS$BLEUE \ #
# $Z milieu=VRAI \ #
# $Z reflexion=VRAI refraction=FAUX \ #
# $Z Mhors=$BLANC \ #
# $Z MNpasX=1 Mprolonger_X=VRAI \ #
# $Z MNpasY=1 Mprolonger_Y=VRAI \ #
# $Z MNpasZ=1 Mprolonger_Z=VRAI \ #
# $Z adapter_M_nPAS=VRAI \ #
# $Z Msimplifier=FAUX affiner_M_maillage=FAUX \ #
# $Z MC=$xTV/BOITE.2 \ #
# $Z MChiffres=0 \ #
# $Z Zmin=0 Zmax=15 \ #
# $Z centrer=VRAI \ #
# $Z dct=0.05 nombre=40 \ #
# $Z trainees=FAUX \ #
# $Z facteur_ROUGE=1.0 \ #
# $Z facteur_VERTE=1.0 \ #
# $Z facteur_BLEUE=1.0 \ #
# $Z renormaliser=FAUX \ #
# $Z Lz=100 \ #
# $Z zoom_automatique=VRAI \ #
# $Z centre_de_gravite=FAUX \ #
# $Z fond=FAUX \ #
# $Z lister_les_points=FAUX \ #
# $Z lister_les_points_apres=FAUX \ #
# $Z R=$xiim/REFL.Wa. \ #
# $Z $formatI #
# #
# $Z $xrk/rdn_walk.41$X corps=$Npart \ #
# $Z np=$NimagesA \ #
# $Z collisions=VRAI DLA=FAUX interaction=$DistanceI \ #
# $Z LISTE_X=$xTV/COORDONNEES$COORD_X \ #
# $Z LISTE_Y=$xTV/COORDONNEES$COORD_Y \ #
# $Z LISTE_Z=$xTV/COORDONNEES$COORD_Z \ #
# $Z LISTE_VX=$xTV/VITESSES$COORD_X \ #
# $Z LISTE_VY=$xTV/VITESSES$COORD_Y \ #
# $Z LISTE_VZ=$xTV/VITESSES$COORD_Z \ #
# $Z LISTE_MINIMUM_DELTA_RHO=$xTV/mdRHO \ #
# $Z LISTE_MAXIMUM_DELTA_RHO=$xTV/MdRHO \ #
# $Z LISTE_MINIMUM_N_PHI=$xTV/mnPHI \ #
# $Z LISTE_MAXIMUM_N_PHI=$xTV/MnPHI \ #
# $Z LISTE_DELTA_PHI=$xTV/dPHI \ #
# $Z LISTE_MINIMUM_N_THETA=$xTV/mnTHETA \ #
# $Z LISTE_MAXIMUM_N_THETA=$xTV/MnTHETA \ #
# $Z LISTE_DELTA_THETA=$xTV/dTHETA \ #
# $Z LISTE_DISTANCE_MAXIMALE=$xTV/DISTANCE \ #
# $Z LISTE_STABILITE=$xTV/STABILITE \ #
# $Z LISTE_RAYON=$xTV/INTERACTIONS \ #
# $Z LISTE_RAYON_D_INTERACTION=$xTV/INTERACTIONS \ #
# $Z LISTE_ROUGE=$xTV/COULEURS$ROUGE \ #
# $Z LISTE_VERTE=$xTV/COULEURS$VERTE \ #
# $Z LISTE_BLEUE=$xTV/COULEURS$BLEUE \ #
# $Z milieu=VRAI \ #
# $Z reflexion=VRAI refraction=FAUX \ #
# $Z Mhors=$BLANC \ #
# $Z MNpasX=1 Mprolonger_X=VRAI \ #
# $Z MNpasY=1 Mprolonger_Y=VRAI \ #
# $Z MNpasZ=1 Mprolonger_Z=VRAI \ #
# $Z adapter_M_nPAS=VRAI \ #
# $Z Msimplifier=FAUX affiner_M_maillage=FAUX \ #
# $Z MC=$xTV/BOITE.2 \ #
# $Z MChiffres=0 \ #
# $Z Zmin=0 Zmax=15 \ #
# $Z centrer=VRAI \ #
# $Z dct=0.05 nombre=40 \ #
# $Z trainees=FAUX \ #
# $Z facteur_ROUGE=1.0 \ #
# $Z facteur_VERTE=1.0 \ #
# $Z facteur_BLEUE=1.0 \ #
# $Z renormaliser=FAUX \ #
# $Z Lz=100 \ #
# $Z zoom_automatique=VRAI \ #
# $Z centre_de_gravite=FAUX \ #
# $Z fond=FAUX \ #
# $Z lister_les_points=FAUX \ #
# $Z lister_les_points_apres=FAUX \ #
# $Z centre_des_spheres=VRAI \ #
# $Z R=$xiim/REFL.Wb. \ #
# $Z $formatI #
# #
# #
# #
# $Z $xci/complement$X A=$xTV/BOITE.1 \ #
# $Z R=$xTV/BOITE.3 \ #
# $Z $formatI #
# #
# $Z $xci/dilate.01$X A=$xTV/BOITE.3 \ #
# $Z dilater=FAUX \ #
# $Z points=25 \ #
# $Z $formatI | \ #
# $Z $xci/minmax$X A1=$xTV/BOITE.3 \ #
# $Z R=$xTV/BORDURE \ #
# $Z $formatI #
# #
# $Z $xci/seuil$X \ #
# $Z A=$xiio/MIRE \ #
# $Z seuil=$GRIS_4 \ #
# $Z $format_Std | \ #
# $Z $xci/format.01$X mode=0 \ #
# $Z $format_Std \ #
# $Z R=$xTV/MASQUE$DROITE \ #
# $Z $formatR_Pal #
# $Z $xci/complement$X \ #
# $Z A=$xTV/MASQUE$DROITE \ #
# $Z R=$xTV/MASQUE$GAUCHE \ #
# $Z $formatI #
# #
# $Z $xci/scale$X \ #
# $Z A=$xTV/BOITE.3 \ #
# $Z a=0.50 \ #
# $Z R=$xTV/BOITE.9 \ #
# $Z $formatI #
# #
# $Z $xci/and$X A1=$xTV/BOITE.9 \ #
# $Z A2=$xTV/MASQUE$DROITE \ #
# $Z R=$xTV/BOITE$DROITE \ #
# $Z $formatI #
# $Z $xci/and$X A1=$xTV/BOITE.9 \ #
# $Z A2=$xTV/MASQUE$GAUCHE \ #
# $Z R=$xTV/BOITE$GAUCHE \ #
# $Z $formatI #
# #
# $Z $DELETE $xTV/COORDONNEES$COORD_X #
# $Z $DELETE $xTV/COORDONNEES$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_Z #
# $Z $DELETE $xTV/VITESSES$COORD_X #
# $Z $DELETE $xTV/VITESSES$COORD_Y #
# $Z $DELETE $xTV/VITESSES$COORD_Z #
# $Z $DELETE $xTV/mdRHO #
# $Z $DELETE $xTV/MdRHO #
# $Z $DELETE $xTV/mnPHI #
# $Z $DELETE $xTV/MnPHI #
# $Z $DELETE $xTV/dPHI #
# $Z $DELETE $xTV/mnTHETA #
# $Z $DELETE $xTV/MnTHETA #
# $Z $DELETE $xTV/dTHETA #
# $Z $DELETE $xTV/DISTANCE #
# $Z $DELETE $xTV/STABILITE #
# $Z $DELETE $xTV/RAYONS #
# $Z $DELETE $xTV/INTERACTIONS #
# $Z $DELETE $xTV/COULEURS$TEINT #
# $Z $DELETE $xTV/COULEURS$LUMIN #
# $Z $DELETE $xTV/COULEURS$SATUR #
# $Z $DELETE $xTV/COULEURS$Y #
# $Z $DELETE $xTV/COULEURS #
# $Z $DELETE $xTV/COULEURS$ROUGE #
# $Z $DELETE $xTV/COULEURS$VERTE #
# $Z $DELETE $xTV/COULEURS$BLEUE #
# #
# $Z set Pliste="eX=FAUX eY=FAUX eNIVEAU=FAUX points=VRAI $formatI" #
# #
# $Z set PMessage="taille=4 anti_aliasing=VRAI y=0.1 centrer=VRAI" #
# $Z set Pdilate="points=9" #
# #
# $c extern int atoi(); #
# $c extern int *getenv(); #
# #
# $c #define NA0 (atoi(getenv("PremiereA"))) #
# $c #define NA (atoi(getenv("DerniereA"))) #
# #
# $c int main() #
# $c { #
# $c int n1; #
# #
# $c for (n1=NA0 ; n1<=NA ; n1++) #
# $c { #
# $c printf("$xci/luminance.01$X #
# $c AR=$xiim/REFL.Wb.%04d$ROUGE #
# $c AV=$xiim/REFL.Wb.%04d$VERTE #
# $c AB=$xiim/REFL.Wb.%04d$BLEUE #
# $c $formatI | #
# $c $xci/seuil$X #
# $c seuil=$GRIS_0 #
# $c R=$xTV/POINTS #
# $c $formatI\n" #
# $c ,n1,n1,n1 #
# $c ); #
# $c printf("$xci/and$X #
# $c A1=$xTV/POINTS #
# $c A2=$xTV/MASQUE$DROITE #
# $c R=$xTV/POINTS$DROITE #
# $c $formatI\n" #
# $c ); #
# $c printf("$xci/and$X #
# $c A1=$xTV/POINTS #
# $c A2=$xTV/MASQUE$GAUCHE #
# $c R=$xTV/POINTS$GAUCHE #
# $c $formatI\n" #
# $c ); #
# #
# $c printf("set NpointsD=`$xci/liste_points$X A=$xTV/POINTS$DROITE $Pliste`\n"); #
# $c printf("set NpointsG=`$xci/liste_points$X A=$xTV/POINTS$GAUCHE $Pliste`\n"); #
# #
# $c printf("set NpointsD=`echo $NpointsD | $SE -e 's/^.*=//'`\n"); #
# $c printf("set NpointsG=`echo $NpointsG | $SE -e 's/^.*=//'`\n"); #
# #
# $c printf("set NpointsD=`$xci/nombres$X #
# $c A=%c$K_VIDE%c #
# $c p=$NpointsD #
# $c d=$NpointsD`\n" #
# $c ,'"','"' #
# $c ); #
# $c printf("set NpointsG=`$xci/nombres$X #
# $c A=%c$K_VIDE%c #
# $c p=$NpointsG #
# $c d=$NpointsG`\n" #
# $c ,'"','"' #
# $c ); #
# #
# $c printf("$xci/init$X #
# $c niveau=$NOIR #
# $c $formatI | #
# $c $xci/message$X #
# $c message=$NpointsD #
# $c $PMessage #
# $c $formatI | #
# $c $xci/dilate.01$X #
# $c $Pdilate #
# $c $formatI | #
# $c $xci/move$X #
# $c xR=+0.25 #
# $c $formatI | #
# $c $xci/cache$X #
# $c A=$xTV/BOITE$DROITE #
# $c R=$xTV/BOITE.3$DROITE #
# $c $formatI\n" #
# $c ); #
# $c printf("$xci/init$X #
# $c niveau=$NOIR #
# $c $formatI | #
# $c $xci/message$X #
# $c message=$NpointsG #
# $c $PMessage #
# $c $formatI | #
# $c $xci/dilate.01$X #
# $c $Pdilate #
# $c $formatI | #
# $c $xci/move$X #
# $c xR=-0.25 #
# $c $formatI | #
# $c $xci/cache$X #
# $c A=$xTV/BOITE$GAUCHE #
# $c R=$xTV/BOITE.3$GAUCHE #
# $c $formatI\n" #
# $c ); #
# #
# $c printf("$xci/or_02$X #
# $c A1=$xTV/BOITE.3$DROITE #
# $c A2=$xTV/BOITE.3$GAUCHE #
# $c $formatI | #
# $c $xci/cache$X #
# $c M=$xTV/BORDURE #
# $c R=$xTV/BOITE.3$ROUGE #
# $c $formatI\n" #
# $c ); #
# $c printf("$xci/or_02$X #
# $c A1=$xTV/BOITE.3$DROITE #
# $c A2=$xTV/BOITE.3$GAUCHE #
# $c $formatI | #
# $c $xci/cache$X #
# $c M=$xTV/BORDURE #
# $c R=$xTV/BOITE.3$VERTE #
# $c $formatI\n" #
# $c ); #
# $c printf("$xci/or_02$X #
# $c A1=$xTV/BOITE.3$DROITE #
# $c A2=$xTV/BOITE.3$GAUCHE #
# $c $formatI | #
# $c $xci/cache$X #
# $c M=$xTV/BORDURE #
# $c R=$xTV/BOITE.3$BLEUE #
# $c $formatI\n" #
# $c ); #
# #
# $c printf("$xci/cache.11$Z #
# $c $xiim/REFL.Wa.%04d #
# $c $xTV/BOITE.3 #
# $c $xiim/REFL.1.%04d\n" #
# $c ,n1,n1 #
# $c ); #
# $c } #
# $c } #
# #
# $Z $DELETE $xTV/BOITE.1 #
# $Z $DELETE $xTV/BOITE.2 #
# $Z $DELETE $xTV/BOITE.3 #
# $Z $DELETE $xTV/BOITE.3$ROUGE #
# $Z $DELETE $xTV/BOITE.3$VERTE #
# $Z $DELETE $xTV/BOITE.3$BLEUE #
# $Z $DELETE $xTV/BOITE.3$DROITE #
# $Z $DELETE $xTV/BOITE.3$GAUCHE #
# $Z $DELETE $xTV/BORDURE #
# $Z $DELETE $xTV/MASQUE$DROITE #
# $Z $DELETE $xTV/MASQUE$GAUCHE #
# $Z $DELETE $xTV/BOITE$DROITE #
# $Z $DELETE $xTV/BOITE$GAUCHE #
# $Z $DELETE $xTV/POINTS #
# $Z $DELETE $xTV/POINTS$DROITE #
# $Z $DELETE $xTV/POINTS$GAUCHE #
# #
# $Z Pal #
# #
# $Z $xci/reduction_16$Z $xiim/REFL.1. $xiak/REFL.Q8 $Premiere $Derniere #
# $Z $xci/reduction_64$Z $xiim/REFL.1. $xiak/REFL.Q8 $Premiere $Derniere #
# #
# $X $xci/genere$X c='ro $xiak/REFL.Q8$R16%s' RVB=VRAI #
# $X $xci/genere$X c='ro $xiak/REFL.Q8$R64%s' RVB=VRAI #
# #
# $X $xci/genere$X c='$xcg/unite$Z $xiak/REFL.Q8$R16%s' RVB=VRAI #
# $X $xci/genere$X c='$xcg/unite$Z $xiak/REFL.Q8$R64%s' RVB=VRAI #
# #
# $X $xci/genere$X c='$CP $xiim/REFL.1.0512%s $xiirk/REFL.Q8.0512%s' RVB=VRAI #
# $X $xci/genere$X c='ro $xiirk/REFL.Q8.0512%s' RVB=VRAI #
# $X $xci/genere$X c='$xcg/unite$Z $xiirk/REFL.Q8.0512%s' RVB=VRAI #
# #
# #
# Pal #
# #
# #
# $xci/disk_video_P$Z $xiim_LACT29/REFL.1. 0001 0512 RVB \ #
# 11 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
# #
# xivPdf 3 2 #
# #
# record.01$Z $xiak/REFL.Q8$R16 RVB Initialisation #
# record.01$Z $xiak/REFL.Q8$R64 RVB rien #
# record.01$Z $xiirk/REFL.Q8.0512 RVB rien #
# #
sequence 026034_026545
# Generee (sur '$LACT29') par : #
# #
# $Z unsetenv PremiereA #
# $Z unsetenv DerniereA #
# #
# $Z SET tPremiereA=1 #
# $Z SET tDerniereA=512 #
# $Z set Premiere=$tPremiereA #
# $Z @ NimagesA = $tDerniereA - $tPremiereA #
# $Z @ NimagesA = $NimagesA + 1 #
# $Z @ Nimages = $NimagesA #
# $Z @ Nimages = $Nimages - 1 #
# $Z @ Derniere = $Premiere + $Nimages #
# $Z @ Derniere = $Derniere - 1 #
# #
# $Z SETENV PremiereA $tPremiereA #
# $Z SETENV DerniereA $tDerniereA #
# #
# $X echo "echo ATTENTION : 'PremiereA' et 'DerniereA' mis dans 'env'." #
# #
# #
# $Z Pal #
# #
# $Z set PUnivers="np=0 CAL1=FAUX editer_l_univers_physique=VRAI" #
# $Z set Univers=`$xrk/rdn_walk.41$X $PUnivers $formatI` #
# #
# $Z set MinX=`echo $Univers | $SE -e "s/^.*[(,]XUI=//" -e "s/[,)].*//"` #
# $Z set MaxX=`echo $Univers | $SE -e "s/^.*[(,]XUS=//" -e "s/[,)].*//"` #
# $Z set MinY=`echo $Univers | $SE -e "s/^.*[(,]YUI=//" -e "s/[,)].*//"` #
# $Z set MaxY=`echo $Univers | $SE -e "s/^.*[(,]YUS=//" -e "s/[,)].*//"` #
# #
# $Z set MinX=`$xcg/ABSO.01$X x=$MinX` #
# $Z set MaxX=`$xcg/ABSO.01$X x=$MaxX` #
# $Z set MinY=`$xcg/ABSO.01$X x=$MinY` #
# $Z set MaxY=`$xcg/ABSO.01$X x=$MaxY` #
# #
# $Z set MaxX=`$xcg/MAX2.01$X n1=$MinX n2=$MaxX` #
# $Z set MaxY=`$xcg/MAX2.01$X n1=$MinY n2=$MaxY` #
# #
# $Z set SeuilPartN=1.0 #
# $Z set GrainePartN=2 #
# $Z set ForceX=0.01 #
# $Z set ForceY=0.01 #
# #
# $Z $DELETE $xTV/BOITE.1 #
# $Z $DELETE $xTV/BOITE.2 #
# $Z $DELETE $xTV/BOITE.3 #
# $Z $DELETE $xTV/BOITE.3$ROUGE #
# $Z $DELETE $xTV/BOITE.3$VERTE #
# $Z $DELETE $xTV/BOITE.3$BLEUE #
# $Z $DELETE $xTV/BOITE.4 #
# $Z $DELETE $xTV/BOITE.5 #
# $Z $DELETE $xTV/BOITE.6 #
# $Z $DELETE $xTV/BOITE.7 #
# $Z $DELETE $xTV/BOITE.8 #
# $Z $DELETE $xTV/BOITE.A #
# $Z $DELETE $xTV/BOITE.B #
# #
# #
# $Z Std #
# #
# $Z set FacXY=0.90 #
# $Z set SeuilBOITE=`$xcg/SOUS.01$X a=1 b=$FacXY` #
# $Z set SeuilBOITE=`$xcg/MUL2.01$X a=$SeuilBOITE b=$GRIS_8` #
# $Z set SeuilBOITE=`$xci/valeurs_inte$X p=1 d=1 vD=$SeuilBOITE entiers=VRAI` #
# $Z set SeuilBOITE=`$xcg/MIN2.01$X a=$SeuilBOITE b=$GRIS_1` #
# #
# $Z set GTransX=`$xcg/SOUS.01$X a=1 b=$FacXY` #
# $Z set GTransX=`$xcg/MOIT.01$X a=$GTransX signe="$K_VIDE"` #
# $Z set DTransX=`$xcg/MOIT.01$X a=1` #
# $Z set DTransX=`$xcg/ADD2.01$X a=$DTransX b=$GTransX signe="$K_VIDE"` #
# #
# #
# $Z set LBande=40 #
# $Z set BandeS=`$xcg/ADD2.01$X a=$GRIS_4 b=$LBande` #
# $Z set BandeI=`$xcg/SOUS.01$X a=$GRIS_4 b=$LBande` #
# #
# $Z $xci/complement$X \ #
# $Z A=$xiio/SPIRALE \ #
# $Z $formatI | \ #
# $Z $xci/seuil$X \ #
# $Z seuil=$SeuilBOITE \ #
# $Z R=$xTV/BOITE.4 \ #
# $Z $formatI #
# #
# $Z $xci/move$X \ #
# $Z A=$xTV/BOITE.4 \ #
# $Z xR=+$DTransX \ #
# $Z $formatI | \ #
# $Z $xci/move$X \ #
# $Z xR=-$GTransX \ #
# $Z $formatI | \ #
# $Z $xci/dilate.01$X \ #
# $Z points=9 \ #
# $Z dilater=VRAI \ #
# $Z R=$xTV/BOITE.5 \ #
# $Z $formatI #
# $Z $xci/Sy$X \ #
# $Z A=$xTV/BOITE.5 \ #
# $Z R=$xTV/BOITE.6 \ #
# $Z $formatI #
# #
# $Z $xci/passe_bande$X \ #
# $Z A=$xiio/MIRE \ #
# $Z inf=$BandeI \ #
# $Z sup=$BandeS \ #
# $Z $formatI | \ #
# $Z $xci/seuil$X \ #
# $Z $formatI | \ #
# $Z $xci/transpose$X \ #
# $Z $formatI | \ #
# $Z $xci/and$X \ #
# $Z A1=$xTV/BOITE.4 \ #
# $Z R=$xTV/BOITE.7 \ #
# $Z $formatI #
# #
# $Z $xci/or_02$X \ #
# $Z A1=$xTV/BOITE.5 \ #
# $Z A2=$xTV/BOITE.6 \ #
# $Z $formatI | \ #
# $Z $xci/or_02$X \ #
# $Z A2=$xTV/BOITE.7 \ #
# $Z R=$xTV/BOITE.8 \ #
# $Z $formatI #
# #
# $Z S #
# #
# $Z $xci/format.01$X mode=0 \ #
# $Z A=$xTV/BOITE.8 \ #
# $Z $formatI \ #
# $Z R=$xTV/BOITE.1 \ #
# $Z $formatR_Pal #
# #
# $Z $xci/dilate.01$X \ #
# $Z A=$xTV/BOITE.5 \ #
# $Z points=225 \ #
# $Z dilater=FAUX \ #
# $Z R=$xTV/BOITE.A \ #
# $Z $formatI #
# #
# $Z $xci/random.02$X \ #
# $Z seuil=$SeuilPartN \ #
# $Z graine=$GrainePartN \ #
# $Z px=19 py=19 \ #
# $Z $formatI | \ #
# $Z $xci/shuffling.01$X \ #
# $Z inverse=FAUX \ #
# $Z NOIR=FAUX \ #
# $Z fX=$ForceX fY=$ForceY \ #
# $Z graine=$GrainePartN \ #
# $Z $formatI | \ #
# $Z $xci/and$X \ #
# $Z A2=$xTV/BOITE.A \ #
# $Z R=$xTV/BOITE.B \ #
# $Z $formatI #
# #
# $Z $DELETE $xTV/COORDONNEES #
# $Z $DELETE $xTV/COORDONNEES_01$COORD_X #
# $Z $DELETE $xTV/COORDONNEES_01$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_X #
# $Z $DELETE $xTV/COORDONNEES$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_Z #
# #
# $Z $xci/liste_points$X \ #
# $Z A=$xTV/BOITE.B \ #
# $Z $formatI \ #
# $Z > $xTV/COORDONNEES #
# #
# $Z $DELETE $xTV/BOITE.4 #
# $Z $DELETE $xTV/BOITE.5 #
# $Z $DELETE $xTV/BOITE.6 #
# $Z $DELETE $xTV/BOITE.7 #
# $Z $DELETE $xTV/BOITE.8 #
# $Z $DELETE $xTV/BOITE.A #
# $Z $DELETE $xTV/BOITE.B #
# #
# $Z set PartN=`$TAI -1 $xTV/COORDONNEES | $SE -e "s/^.*=//"` #
# #
# $Z $CA $xTV/COORDONNEES \ #
# $Z | $GRE "^[Xx]=" \ #
# $Z | $SE -e "s/^[Xx]=//" \ #
# $Z > $xTV/COORDONNEES_01$COORD_X #
# $Z $CA $xTV/COORDONNEES \ #
# $Z | $GRE "^[Yy]=" \ #
# $Z | $SE -e "s/^[Yy]=//" \ #
# $Z > $xTV/COORDONNEES_01$COORD_Y #
# #
# $Z set EchelleX=`$xcg/MUL2.01$X n1=2 n2=$MaxX` #
# $Z set TranslationX=`$xcg/MUL2.01$X n1=-1 n2=$MaxX` #
# $Z set EchelleY=`$xcg/MUL2.01$X n1=2 n2=$MaxY` #
# $Z set TranslationY=`$xcg/MUL2.01$X n1=-1 n2=$MaxY` #
# #
# $Z $xrv/AXPB.01$X \ #
# $Z CAL1=FAUX \ #
# $Z ne=$PartN \ #
# $Z fichier=$xTV/COORDONNEES_01$COORD_X \ #
# $Z homothetie=$EchelleX translation=$TranslationX \ #
# $Z > $xTV/COORDONNEES$COORD_X #
# $Z $xrv/AXPB.01$X \ #
# $Z CAL1=FAUX \ #
# $Z ne=$PartN \ #
# $Z fichier=$xTV/COORDONNEES_01$COORD_Y \ #
# $Z homothetie=$EchelleY translation=$TranslationY \ #
# $Z > $xTV/COORDONNEES$COORD_Y #
# #
# $Z $DELETE $xTV/COORDONNEES_01$COORD_X #
# $Z $DELETE $xTV/COORDONNEES_01$COORD_Y #
# #
# $Z set Part0=1 #
# $Z @ Npart = $PartN - $Part0 #
# $Z @ Npart = $Npart + 1 #
# #
# $Z $DELETE $xTV/MODULE #
# $Z $DELETE $xTV/THETA #
# $Z $DELETE $xTV/XY_RT.1 #
# $Z $DELETE $xTV/XY_RT.2 #
# $Z $DELETE $xTV/VITESSES #
# $Z $DELETE $xTV/VITESSES$COORD_X #
# $Z $DELETE $xTV/VITESSES$COORD_Y #
# $Z $DELETE $xTV/VITESSES$COORD_Z #
# $Z $DELETE $xTV/mdRHO #
# $Z $DELETE $xTV/MdRHO #
# $Z $DELETE $xTV/mnPHI #
# $Z $DELETE $xTV/MnPHI #
# $Z $DELETE $xTV/dPHI #
# $Z $DELETE $xTV/mnTHETA #
# $Z $DELETE $xTV/MnTHETA #
# $Z $DELETE $xTV/dTHETA #
# $Z $DELETE $xTV/supOUVE #
# $Z $DELETE $xTV/DISTANCE #
# $Z $DELETE $xTV/STABILITE #
# $Z $DELETE $xTV/RAYONS #
# $Z $DELETE $xTV/INTERACTIONS #
# #
# #
# $Z alias Gen 'set Fi=\!:1 ; set vD=\!:2 ; set vA=\!:3 ; set ArG=(\!:4*) ; \\ #
# $Z $DELETE $Fi ; \\ #
# $Z $xci/valeurs_inte$X p=$Part0 d=$PartN vD=$vD vA=$vA $ArG > $Fi ; \\ #
# $Z unset Fi vD vA ArG' #
# #
# $Z alias GenR 'set Fi=\!:1 ; set In=\!:2 ; set Su=\!:3 ; set ArG=(\!:4*) ; \\ #
# $Z $DELETE $Fi ; \\ #
# $Z $xci/valeurs_alea$X p=$Part0 d=$PartN signe="$KV" inf=$In sup=$Su $ArG > $Fi ; \\ #
# $Z unset Fi In Su ArG' #
# #
# $Z Gen $xTV/COORDONNEES$COORD_Z 0.0 0.0 #
# #
# #
# $Z Gen $xTV/MODULE 0.02 0.02 #
# $Z GenR $xTV/THETA 0.0 $dpi g=3333 #
# #
# $Z $CA $xcs/csh$Y \ #
# $Z > $xTV/XY_RT.1 #
# $Z $PAST $xTV/MODULE $xTV/THETA \ #
# $Z | $R "$K_TAB" "$K_BLANC" \ #
# $Z | $AW ' { print "$xcg/XY_RT$X r=" $1 " t=" $2 " cartesien=FAUX" } ' \ #
# $Z >>! $xTV/XY_RT.1 #
# #
# $Z (source $xTV/XY_RT.1) \ #
# $Z > $xTV/XY_RT.2 #
# #
# $Z $CA $xTV/XY_RT.2 \ #
# $Z | $GRE "^x=" \ #
# $Z | $SE -e "s/^x=//" \ #
# $Z > $xTV/VITESSES$COORD_X #
# $Z $CA $xTV/XY_RT.2 \ #
# $Z | $GRE "^y=" \ #
# $Z | $SE -e "s/^y=//" \ #
# $Z > $xTV/VITESSES$COORD_Y #
# #
# $Z Gen $xTV/VITESSES$COORD_Z 0.0 0.0 #
# #
# $Z Gen $xTV/mdRHO 0.0 0.0 #
# $Z Gen $xTV/MdRHO 0.0 0.0 #
# $Z Gen $xTV/mnPHI 0.0 0.0 #
# $Z Gen $xTV/MnPHI 0.0 0.0 #
# $Z Gen $xTV/dPHI 0.0 0.0 #
# $Z Gen $xTV/mnTHETA 0.0 0.0 #
# $Z Gen $xTV/MnTHETA 0.0 0.0 #
# $Z Gen $xTV/dTHETA 0.0 0.0 #
# $Z Gen $xTV/DISTANCE 1000000 1000000 #
# $Z Gen $xTV/STABILITE 1000000 1000000 #
# #
# $Z set RayonsT=0.014 #
# $Z set RayonsP=`$xcg/MUL2.01$X a=2 b=$RayonsT` #
# $Z set DistanceI=`$xcg/MUL2.01$X a=4 b=$RayonsP` #
# $Z Gen $xTV/RAYONS $RayonsT $RayonsT #
# $Z Gen $xTV/INTERACTIONS $RayonsP $RayonsP #
# #
# $Z $DELETE $xTV/COULEURS$TEINT #
# $Z $DELETE $xTV/COULEURS$LUMIN #
# $Z $DELETE $xTV/COULEURS$SATUR #
# $Z $DELETE $xTV/COULEURS$Y #
# $Z $DELETE $xTV/COULEURS #
# $Z $DELETE $xTV/COULEURS$ROUGE #
# $Z $DELETE $xTV/COULEURS$VERTE #
# $Z $DELETE $xTV/COULEURS$BLEUE #
# #
# $Z @ TeinteMagenta = $GRIS_7 #
# $Z @ TeinteCyan = $GRIS_4 + $GRIS_8 #
# #
# $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartN \ #
# $Z vD=$TeinteMagenta vA=$TeinteCyan \ #
# $Z cubique=FAUX \ #
# $Z entiers=VRAI \ #
# $Z > $xTV/COULEURS$TEINT #
# $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartN \ #
# $Z vD=$GRIS_4 vA=$GRIS_4 \ #
# $Z cubique=FAUX \ #
# $Z entiers=VRAI \ #
# $Z > $xTV/COULEURS$LUMIN #
# $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartN \ #
# $Z vD=$GRIS_8 vA=$GRIS_8 \ #
# $Z cubique=FAUX \ #
# $Z entiers=VRAI \ #
# $Z > $xTV/COULEURS$SATUR #
# #
# $Z $PAST \ #
# $Z $xTV/COULEURS$TEINT \ #
# $Z $xTV/COULEURS$LUMIN \ #
# $Z $xTV/COULEURS$SATUR \ #
# $Z | $R "$K_TAB" "$K_BLANC" \ #
# $Z | $AW ' { print "H=" $1 " L=" $2 " S=" $3 } ' \ #
# $Z | $SE -e 's+^+$xcg/RVB_HLS$X RVB_HLS=FAUX +' \ #
# $Z | $SE -e 's/$/ eR=VRAI eV=VRAI eB=VRAI/' \ #
# $Z | $SE -e 's/$/ eH=FAUX eL=FAUX eS=FAUX/' \ #
# $Z > $xTV/COULEURS$Y #
# #
# $Z (source $xTV/COULEURS$Y) \ #
# $Z > $xTV/COULEURS #
# #
# $Z $GRE "^R=" $xTV/COULEURS \ #
# $Z | $SE -e "s/^R=//" \ #
# $Z > $xTV/COULEURS$ROUGE #
# $Z $GRE "^V=" $xTV/COULEURS \ #
# $Z | $SE -e "s/^V=//" \ #
# $Z > $xTV/COULEURS$VERTE #
# $Z $GRE "^B=" $xTV/COULEURS \ #
# $Z | $SE -e "s/^B=//" \ #
# $Z > $xTV/COULEURS$BLEUE #
# #
# $Z Pal #
# #
# #
# $Z $xci/scale$X \ #
# $Z A=$xTV/BOITE.1 \ #
# $Z a=1.00 \ #
# $Z R=$xTV/BOITE.2 \ #
# $Z $formatI #
# #
# $Z $xrk/rdn_walk.41$X corps=$Npart \ #
# $Z np=$NimagesA \ #
# $Z collisions=VRAI DLA=FAUX interaction=$DistanceI \ #
# $Z LISTE_X=$xTV/COORDONNEES$COORD_X \ #
# $Z LISTE_Y=$xTV/COORDONNEES$COORD_Y \ #
# $Z LISTE_Z=$xTV/COORDONNEES$COORD_Z \ #
# $Z LISTE_VX=$xTV/VITESSES$COORD_X \ #
# $Z LISTE_VY=$xTV/VITESSES$COORD_Y \ #
# $Z LISTE_VZ=$xTV/VITESSES$COORD_Z \ #
# $Z LISTE_MINIMUM_DELTA_RHO=$xTV/mdRHO \ #
# $Z LISTE_MAXIMUM_DELTA_RHO=$xTV/MdRHO \ #
# $Z LISTE_MINIMUM_N_PHI=$xTV/mnPHI \ #
# $Z LISTE_MAXIMUM_N_PHI=$xTV/MnPHI \ #
# $Z LISTE_DELTA_PHI=$xTV/dPHI \ #
# $Z LISTE_MINIMUM_N_THETA=$xTV/mnTHETA \ #
# $Z LISTE_MAXIMUM_N_THETA=$xTV/MnTHETA \ #
# $Z LISTE_DELTA_THETA=$xTV/dTHETA \ #
# $Z LISTE_DISTANCE_MAXIMALE=$xTV/DISTANCE \ #
# $Z LISTE_STABILITE=$xTV/STABILITE \ #
# $Z LISTE_RAYON=$xTV/INTERACTIONS \ #
# $Z LISTE_RAYON_D_INTERACTION=$xTV/INTERACTIONS \ #
# $Z LISTE_ROUGE=$xTV/COULEURS$ROUGE \ #
# $Z LISTE_VERTE=$xTV/COULEURS$VERTE \ #
# $Z LISTE_BLEUE=$xTV/COULEURS$BLEUE \ #
# $Z milieu=VRAI \ #
# $Z reflexion=VRAI refraction=FAUX \ #
# $Z Mhors=$BLANC \ #
# $Z MNpasX=1 Mprolonger_X=VRAI \ #
# $Z MNpasY=1 Mprolonger_Y=VRAI \ #
# $Z MNpasZ=1 Mprolonger_Z=VRAI \ #
# $Z adapter_M_nPAS=VRAI \ #
# $Z Msimplifier=FAUX affiner_M_maillage=FAUX \ #
# $Z MC=$xTV/BOITE.2 \ #
# $Z MChiffres=0 \ #
# $Z Zmin=0 Zmax=15 \ #
# $Z centrer=VRAI \ #
# $Z dct=0.05 nombre=40 \ #
# $Z trainees=FAUX \ #
# $Z facteur_ROUGE=1.0 \ #
# $Z facteur_VERTE=1.0 \ #
# $Z facteur_BLEUE=1.0 \ #
# $Z renormaliser=FAUX \ #
# $Z Lz=100 \ #
# $Z zoom_automatique=VRAI \ #
# $Z centre_de_gravite=FAUX \ #
# $Z fond=FAUX \ #
# $Z lister_les_points=FAUX \ #
# $Z lister_les_points_apres=FAUX \ #
# $Z R=$xiim/REFL.Wa. \ #
# $Z $formatI #
# #
# $Z $xrk/rdn_walk.41$X corps=$Npart \ #
# $Z np=$NimagesA \ #
# $Z collisions=VRAI DLA=FAUX interaction=$DistanceI \ #
# $Z LISTE_X=$xTV/COORDONNEES$COORD_X \ #
# $Z LISTE_Y=$xTV/COORDONNEES$COORD_Y \ #
# $Z LISTE_Z=$xTV/COORDONNEES$COORD_Z \ #
# $Z LISTE_VX=$xTV/VITESSES$COORD_X \ #
# $Z LISTE_VY=$xTV/VITESSES$COORD_Y \ #
# $Z LISTE_VZ=$xTV/VITESSES$COORD_Z \ #
# $Z LISTE_MINIMUM_DELTA_RHO=$xTV/mdRHO \ #
# $Z LISTE_MAXIMUM_DELTA_RHO=$xTV/MdRHO \ #
# $Z LISTE_MINIMUM_N_PHI=$xTV/mnPHI \ #
# $Z LISTE_MAXIMUM_N_PHI=$xTV/MnPHI \ #
# $Z LISTE_DELTA_PHI=$xTV/dPHI \ #
# $Z LISTE_MINIMUM_N_THETA=$xTV/mnTHETA \ #
# $Z LISTE_MAXIMUM_N_THETA=$xTV/MnTHETA \ #
# $Z LISTE_DELTA_THETA=$xTV/dTHETA \ #
# $Z LISTE_DISTANCE_MAXIMALE=$xTV/DISTANCE \ #
# $Z LISTE_STABILITE=$xTV/STABILITE \ #
# $Z LISTE_RAYON=$xTV/INTERACTIONS \ #
# $Z LISTE_RAYON_D_INTERACTION=$xTV/INTERACTIONS \ #
# $Z LISTE_ROUGE=$xTV/COULEURS$ROUGE \ #
# $Z LISTE_VERTE=$xTV/COULEURS$VERTE \ #
# $Z LISTE_BLEUE=$xTV/COULEURS$BLEUE \ #
# $Z milieu=VRAI \ #
# $Z reflexion=VRAI refraction=FAUX \ #
# $Z Mhors=$BLANC \ #
# $Z MNpasX=1 Mprolonger_X=VRAI \ #
# $Z MNpasY=1 Mprolonger_Y=VRAI \ #
# $Z MNpasZ=1 Mprolonger_Z=VRAI \ #
# $Z adapter_M_nPAS=VRAI \ #
# $Z Msimplifier=FAUX affiner_M_maillage=FAUX \ #
# $Z MC=$xTV/BOITE.2 \ #
# $Z MChiffres=0 \ #
# $Z Zmin=0 Zmax=15 \ #
# $Z centrer=VRAI \ #
# $Z dct=0.05 nombre=40 \ #
# $Z trainees=FAUX \ #
# $Z facteur_ROUGE=1.0 \ #
# $Z facteur_VERTE=1.0 \ #
# $Z facteur_BLEUE=1.0 \ #
# $Z renormaliser=FAUX \ #
# $Z Lz=100 \ #
# $Z zoom_automatique=VRAI \ #
# $Z centre_de_gravite=FAUX \ #
# $Z fond=FAUX \ #
# $Z lister_les_points=FAUX \ #
# $Z lister_les_points_apres=FAUX \ #
# $Z centre_des_spheres=VRAI \ #
# $Z R=$xiim/REFL.Wb. \ #
# $Z $formatI #
# #
# #
# #
# $Z $xci/complement$X A=$xTV/BOITE.1 \ #
# $Z R=$xTV/BOITE.3 \ #
# $Z $formatI #
# #
# $Z $xci/dilate.01$X A=$xTV/BOITE.3 \ #
# $Z dilater=FAUX \ #
# $Z points=25 \ #
# $Z $formatI | \ #
# $Z $xci/minmax$X A1=$xTV/BOITE.3 \ #
# $Z R=$xTV/BORDURE \ #
# $Z $formatI #
# #
# $Z $xci/seuil$X \ #
# $Z A=$xiio/MIRE \ #
# $Z seuil=$GRIS_4 \ #
# $Z $format_Std | \ #
# $Z $xci/format.01$X mode=0 \ #
# $Z $format_Std \ #
# $Z R=$xTV/MASQUE$DROITE \ #
# $Z $formatR_Pal #
# $Z $xci/complement$X \ #
# $Z A=$xTV/MASQUE$DROITE \ #
# $Z R=$xTV/MASQUE$GAUCHE \ #
# $Z $formatI #
# #
# $Z $xci/scale$X \ #
# $Z A=$xTV/BOITE.3 \ #
# $Z a=0.50 \ #
# $Z R=$xTV/BOITE.9 \ #
# $Z $formatI #
# #
# $Z $xci/and$X A1=$xTV/BOITE.9 \ #
# $Z A2=$xTV/MASQUE$DROITE \ #
# $Z R=$xTV/BOITE$DROITE \ #
# $Z $formatI #
# $Z $xci/and$X A1=$xTV/BOITE.9 \ #
# $Z A2=$xTV/MASQUE$GAUCHE \ #
# $Z R=$xTV/BOITE$GAUCHE \ #
# $Z $formatI #
# #
# $Z $DELETE $xTV/COORDONNEES$COORD_X #
# $Z $DELETE $xTV/COORDONNEES$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_Z #
# $Z $DELETE $xTV/VITESSES$COORD_X #
# $Z $DELETE $xTV/VITESSES$COORD_Y #
# $Z $DELETE $xTV/VITESSES$COORD_Z #
# $Z $DELETE $xTV/mdRHO #
# $Z $DELETE $xTV/MdRHO #
# $Z $DELETE $xTV/mnPHI #
# $Z $DELETE $xTV/MnPHI #
# $Z $DELETE $xTV/dPHI #
# $Z $DELETE $xTV/mnTHETA #
# $Z $DELETE $xTV/MnTHETA #
# $Z $DELETE $xTV/dTHETA #
# $Z $DELETE $xTV/DISTANCE #
# $Z $DELETE $xTV/STABILITE #
# $Z $DELETE $xTV/RAYONS #
# $Z $DELETE $xTV/INTERACTIONS #
# $Z $DELETE $xTV/COULEURS$TEINT #
# $Z $DELETE $xTV/COULEURS$LUMIN #
# $Z $DELETE $xTV/COULEURS$SATUR #
# $Z $DELETE $xTV/COULEURS$Y #
# $Z $DELETE $xTV/COULEURS #
# $Z $DELETE $xTV/COULEURS$ROUGE #
# $Z $DELETE $xTV/COULEURS$VERTE #
# $Z $DELETE $xTV/COULEURS$BLEUE #
# #
# $Z set Pliste="eX=FAUX eY=FAUX eNIVEAU=FAUX points=VRAI $formatI" #
# #
# $Z set PMessage="taille=4 anti_aliasing=VRAI y=0.1 centrer=VRAI" #
# $Z set Pdilate="points=9" #
# #
# $c extern int atoi(); #
# $c extern int *getenv(); #
# #
# $c #define NA0 (atoi(getenv("PremiereA"))) #
# $c #define NA (atoi(getenv("DerniereA"))) #
# #
# $c int main() #
# $c { #
# $c int n1; #
# #
# $c for (n1=NA0 ; n1<=NA ; n1++) #
# $c { #
# $c printf("$xci/luminance.01$X #
# $c AR=$xiim/REFL.Wb.%04d$ROUGE #
# $c AV=$xiim/REFL.Wb.%04d$VERTE #
# $c AB=$xiim/REFL.Wb.%04d$BLEUE #
# $c $formatI | #
# $c $xci/seuil$X #
# $c seuil=$GRIS_0 #
# $c R=$xTV/POINTS #
# $c $formatI\n" #
# $c ,n1,n1,n1 #
# $c ); #
# $c printf("$xci/and$X #
# $c A1=$xTV/POINTS #
# $c A2=$xTV/MASQUE$DROITE #
# $c R=$xTV/POINTS$DROITE #
# $c $formatI\n" #
# $c ); #
# $c printf("$xci/and$X #
# $c A1=$xTV/POINTS #
# $c A2=$xTV/MASQUE$GAUCHE #
# $c R=$xTV/POINTS$GAUCHE #
# $c $formatI\n" #
# $c ); #
# #
# $c printf("set NpointsD=`$xci/liste_points$X A=$xTV/POINTS$DROITE $Pliste`\n"); #
# $c printf("set NpointsG=`$xci/liste_points$X A=$xTV/POINTS$GAUCHE $Pliste`\n"); #
# #
# $c printf("set NpointsD=`echo $NpointsD | $SE -e 's/^.*=//'`\n"); #
# $c printf("set NpointsG=`echo $NpointsG | $SE -e 's/^.*=//'`\n"); #
# #
# $c printf("set NpointsD=`$xci/nombres$X #
# $c A=%c$K_VIDE%c #
# $c p=$NpointsD #
# $c d=$NpointsD`\n" #
# $c ,'"','"' #
# $c ); #
# $c printf("set NpointsG=`$xci/nombres$X #
# $c A=%c$K_VIDE%c #
# $c p=$NpointsG #
# $c d=$NpointsG`\n" #
# $c ,'"','"' #
# $c ); #
# #
# $c printf("$xci/init$X #
# $c niveau=$NOIR #
# $c $formatI | #
# $c $xci/message$X #
# $c message=$NpointsD #
# $c $PMessage #
# $c $formatI | #
# $c $xci/dilate.01$X #
# $c $Pdilate #
# $c $formatI | #
# $c $xci/move$X #
# $c xR=+0.25 #
# $c $formatI | #
# $c $xci/cache$X #
# $c A=$xTV/BOITE$DROITE #
# $c R=$xTV/BOITE.3$DROITE #
# $c $formatI\n" #
# $c ); #
# $c printf("$xci/init$X #
# $c niveau=$NOIR #
# $c $formatI | #
# $c $xci/message$X #
# $c message=$NpointsG #
# $c $PMessage #
# $c $formatI | #
# $c $xci/dilate.01$X #
# $c $Pdilate #
# $c $formatI | #
# $c $xci/move$X #
# $c xR=-0.25 #
# $c $formatI | #
# $c $xci/cache$X #
# $c A=$xTV/BOITE$GAUCHE #
# $c R=$xTV/BOITE.3$GAUCHE #
# $c $formatI\n" #
# $c ); #
# #
# $c printf("$xci/or_02$X #
# $c A1=$xTV/BOITE.3$DROITE #
# $c A2=$xTV/BOITE.3$GAUCHE #
# $c $formatI | #
# $c $xci/cache$X #
# $c M=$xTV/BORDURE #
# $c R=$xTV/BOITE.3$ROUGE #
# $c $formatI\n" #
# $c ); #
# $c printf("$xci/or_02$X #
# $c A1=$xTV/BOITE.3$DROITE #
# $c A2=$xTV/BOITE.3$GAUCHE #
# $c $formatI | #
# $c $xci/cache$X #
# $c M=$xTV/BORDURE #
# $c R=$xTV/BOITE.3$VERTE #
# $c $formatI\n" #
# $c ); #
# $c printf("$xci/or_02$X #
# $c A1=$xTV/BOITE.3$DROITE #
# $c A2=$xTV/BOITE.3$GAUCHE #
# $c $formatI | #
# $c $xci/cache$X #
# $c M=$xTV/BORDURE #
# $c R=$xTV/BOITE.3$BLEUE #
# $c $formatI\n" #
# $c ); #
# #
# $c printf("$xci/cache.11$Z #
# $c $xiim/REFL.Wa.%04d #
# $c $xTV/BOITE.3 #
# $c $xiim/REFL.2.%04d\n" #
# $c ,n1,n1 #
# $c ); #
# $c } #
# $c } #
# #
# $Z $DELETE $xTV/BOITE.1 #
# $Z $DELETE $xTV/BOITE.2 #
# $Z $DELETE $xTV/BOITE.3 #
# $Z $DELETE $xTV/BOITE.3$ROUGE #
# $Z $DELETE $xTV/BOITE.3$VERTE #
# $Z $DELETE $xTV/BOITE.3$BLEUE #
# $Z $DELETE $xTV/BOITE.3$DROITE #
# $Z $DELETE $xTV/BOITE.3$GAUCHE #
# $Z $DELETE $xTV/BORDURE #
# $Z $DELETE $xTV/MASQUE$DROITE #
# $Z $DELETE $xTV/MASQUE$GAUCHE #
# $Z $DELETE $xTV/BOITE$DROITE #
# $Z $DELETE $xTV/BOITE$GAUCHE #
# $Z $DELETE $xTV/POINTS #
# $Z $DELETE $xTV/POINTS$DROITE #
# $Z $DELETE $xTV/POINTS$GAUCHE #
# #
# $Z Pal #
# #
# $Z $xci/reduction_16$Z $xiim/REFL.2. $xiak/REFL.R8 $Premiere $Derniere #
# $Z $xci/reduction_64$Z $xiim/REFL.2. $xiak/REFL.R8 $Premiere $Derniere #
# #
# $X $xci/genere$X c='ro $xiak/REFL.R8$R16%s' RVB=VRAI #
# $X $xci/genere$X c='ro $xiak/REFL.R8$R64%s' RVB=VRAI #
# #
# $X $xci/genere$X c='$xcg/unite$Z $xiak/REFL.R8$R16%s' RVB=VRAI #
# $X $xci/genere$X c='$xcg/unite$Z $xiak/REFL.R8$R64%s' RVB=VRAI #
# #
# $X $xci/genere$X c='$CP $xiim/REFL.2.0512%s $xiirk/REFL.R8.0512%s' RVB=VRAI #
# $X $xci/genere$X c='ro $xiirk/REFL.R8.0512%s' RVB=VRAI #
# $X $xci/genere$X c='$xcg/unite$Z $xiirk/REFL.R8.0512%s' RVB=VRAI #
# #
# #
# Pal #
# #
# #
# $xci/disk_video_P$Z $xiim_LACT29/REFL.2. 0001 0512 RVB \ #
# 11 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
# #
# xivPdf 3 2 #
# #
# record.01$Z $xiak/REFL.R8$R16 RVB Initialisation #
# record.01$Z $xiak/REFL.R8$R64 RVB rien #
# record.01$Z $xiirk/REFL.R8.0512 RVB rien #
# #
sequence 026546_027057
# Generee (sur '$LACT27') par : #
# #
# $Z unsetenv PremiereA #
# $Z unsetenv DerniereA #
# #
# $Z SET tPremiereA=1 #
# $Z SET tDerniereA=512 #
# $Z set Premiere=$tPremiereA #
# $Z @ NimagesA = $tDerniereA - $tPremiereA #
# $Z @ NimagesA = $NimagesA + 1 #
# $Z @ Nimages = $NimagesA #
# $Z @ Nimages = $Nimages - 1 #
# $Z @ Derniere = $Premiere + $Nimages #
# $Z @ Derniere = $Derniere - 1 #
# #
# $Z SETENV PremiereA $tPremiereA #
# $Z SETENV DerniereA $tDerniereA #
# #
# $X echo "echo ATTENTION : 'PremiereA' et 'DerniereA' mis dans 'env'." #
# #
# #
# $Z Pal #
# #
# $Z set PUnivers="np=0 CAL1=FAUX editer_l_univers_physique=VRAI" #
# $Z set Univers=`$xrk/rdn_walk.41$X $PUnivers $formatI` #
# #
# $Z set MinX=`echo $Univers | $SE -e "s/^.*[(,]XUI=//" -e "s/[,)].*//"` #
# $Z set MaxX=`echo $Univers | $SE -e "s/^.*[(,]XUS=//" -e "s/[,)].*//"` #
# $Z set MinY=`echo $Univers | $SE -e "s/^.*[(,]YUI=//" -e "s/[,)].*//"` #
# $Z set MaxY=`echo $Univers | $SE -e "s/^.*[(,]YUS=//" -e "s/[,)].*//"` #
# #
# $Z set MinX=`$xcg/ABSO.01$X x=$MinX` #
# $Z set MaxX=`$xcg/ABSO.01$X x=$MaxX` #
# $Z set MinY=`$xcg/ABSO.01$X x=$MinY` #
# $Z set MaxY=`$xcg/ABSO.01$X x=$MaxY` #
# #
# $Z set MaxX=`$xcg/MAX2.01$X n1=$MinX n2=$MaxX` #
# $Z set MaxY=`$xcg/MAX2.01$X n1=$MinY n2=$MaxY` #
# #
# $Z set SeuilPartN=1.0 #
# $Z set GrainePartN=2 #
# $Z set ForceX=0.01 #
# $Z set ForceY=0.01 #
# #
# $Z $DELETE $xTV/BOITE.1 #
# $Z $DELETE $xTV/BOITE.2 #
# $Z $DELETE $xTV/BOITE.3 #
# $Z $DELETE $xTV/BOITE.3$ROUGE #
# $Z $DELETE $xTV/BOITE.3$VERTE #
# $Z $DELETE $xTV/BOITE.3$BLEUE #
# $Z $DELETE $xTV/BOITE.4 #
# $Z $DELETE $xTV/BOITE.5 #
# $Z $DELETE $xTV/BOITE.6 #
# $Z $DELETE $xTV/BOITE.7 #
# $Z $DELETE $xTV/BOITE.8 #
# $Z $DELETE $xTV/BOITE.A #
# $Z $DELETE $xTV/BOITE.B #
# #
# #
# $Z Std #
# #
# $Z set FacXY=0.90 #
# $Z set SeuilBOITE=`$xcg/SOUS.01$X a=1 b=$FacXY` #
# $Z set SeuilBOITE=`$xcg/MUL2.01$X a=$SeuilBOITE b=$GRIS_8` #
# $Z set SeuilBOITE=`$xci/valeurs_inte$X p=1 d=1 vD=$SeuilBOITE entiers=VRAI` #
# $Z set SeuilBOITE=`$xcg/MIN2.01$X a=$SeuilBOITE b=$GRIS_1` #
# #
# $Z set GTransX=`$xcg/SOUS.01$X a=1 b=$FacXY` #
# $Z set GTransX=`$xcg/MOIT.01$X a=$GTransX signe="$K_VIDE"` #
# $Z set DTransX=`$xcg/MOIT.01$X a=1` #
# $Z set DTransX=`$xcg/ADD2.01$X a=$DTransX b=$GTransX signe="$K_VIDE"` #
# #
# #
# $Z set LBande=70 #
# $Z set BandeS=`$xcg/ADD2.01$X a=$GRIS_4 b=$LBande` #
# $Z set BandeI=`$xcg/SOUS.01$X a=$GRIS_4 b=$LBande` #
# #
# $Z $xci/complement$X \ #
# $Z A=$xiio/SPIRALE \ #
# $Z $formatI | \ #
# $Z $xci/seuil$X \ #
# $Z seuil=$SeuilBOITE \ #
# $Z R=$xTV/BOITE.4 \ #
# $Z $formatI #
# #
# $Z $xci/move$X \ #
# $Z A=$xTV/BOITE.4 \ #
# $Z xR=+$DTransX \ #
# $Z $formatI | \ #
# $Z $xci/move$X \ #
# $Z xR=-$GTransX \ #
# $Z $formatI | \ #
# $Z $xci/dilate.01$X \ #
# $Z points=9 \ #
# $Z dilater=VRAI \ #
# $Z R=$xTV/BOITE.5 \ #
# $Z $formatI #
# $Z $xci/Sy$X \ #
# $Z A=$xTV/BOITE.5 \ #
# $Z R=$xTV/BOITE.6 \ #
# $Z $formatI #
# #
# $Z $xci/passe_bande$X \ #
# $Z A=$xiio/MIRE \ #
# $Z inf=$BandeI \ #
# $Z sup=$BandeS \ #
# $Z $formatI | \ #
# $Z $xci/seuil$X \ #
# $Z $formatI | \ #
# $Z $xci/transpose$X \ #
# $Z $formatI | \ #
# $Z $xci/and$X \ #
# $Z A1=$xTV/BOITE.4 \ #
# $Z R=$xTV/BOITE.7 \ #
# $Z $formatI #
# #
# $Z $xci/or_02$X \ #
# $Z A1=$xTV/BOITE.5 \ #
# $Z A2=$xTV/BOITE.6 \ #
# $Z $formatI | \ #
# $Z $xci/or_02$X \ #
# $Z A2=$xTV/BOITE.7 \ #
# $Z R=$xTV/BOITE.8 \ #
# $Z $formatI #
# #
# $Z S #
# #
# $Z $xci/format.01$X mode=0 \ #
# $Z A=$xTV/BOITE.8 \ #
# $Z $formatI \ #
# $Z R=$xTV/BOITE.1 \ #
# $Z $formatR_Pal #
# #
# $Z $xci/dilate.01$X \ #
# $Z A=$xTV/BOITE.5 \ #
# $Z points=225 \ #
# $Z dilater=FAUX \ #
# $Z R=$xTV/BOITE.A \ #
# $Z $formatI #
# #
# $Z $xci/random.02$X \ #
# $Z seuil=$SeuilPartN \ #
# $Z graine=$GrainePartN \ #
# $Z px=19 py=19 \ #
# $Z $formatI | \ #
# $Z $xci/shuffling.01$X \ #
# $Z inverse=FAUX \ #
# $Z NOIR=FAUX \ #
# $Z fX=$ForceX fY=$ForceY \ #
# $Z graine=$GrainePartN \ #
# $Z $formatI | \ #
# $Z $xci/and$X \ #
# $Z A2=$xTV/BOITE.A \ #
# $Z R=$xTV/BOITE.B \ #
# $Z $formatI #
# #
# $Z $DELETE $xTV/COORDONNEES #
# $Z $DELETE $xTV/COORDONNEES_01$COORD_X #
# $Z $DELETE $xTV/COORDONNEES_01$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_X #
# $Z $DELETE $xTV/COORDONNEES$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_Z #
# #
# $Z $xci/liste_points$X \ #
# $Z A=$xTV/BOITE.B \ #
# $Z $formatI \ #
# $Z > $xTV/COORDONNEES #
# #
# $Z $DELETE $xTV/BOITE.4 #
# $Z $DELETE $xTV/BOITE.5 #
# $Z $DELETE $xTV/BOITE.6 #
# $Z $DELETE $xTV/BOITE.7 #
# $Z $DELETE $xTV/BOITE.8 #
# $Z $DELETE $xTV/BOITE.A #
# $Z $DELETE $xTV/BOITE.B #
# #
# $Z set PartN=`$TAI -1 $xTV/COORDONNEES | $SE -e "s/^.*=//"` #
# #
# $Z $CA $xTV/COORDONNEES \ #
# $Z | $GRE "^[Xx]=" \ #
# $Z | $SE -e "s/^[Xx]=//" \ #
# $Z > $xTV/COORDONNEES_01$COORD_X #
# $Z $CA $xTV/COORDONNEES \ #
# $Z | $GRE "^[Yy]=" \ #
# $Z | $SE -e "s/^[Yy]=//" \ #
# $Z > $xTV/COORDONNEES_01$COORD_Y #
# #
# $Z set EchelleX=`$xcg/MUL2.01$X n1=2 n2=$MaxX` #
# $Z set TranslationX=`$xcg/MUL2.01$X n1=-1 n2=$MaxX` #
# $Z set EchelleY=`$xcg/MUL2.01$X n1=2 n2=$MaxY` #
# $Z set TranslationY=`$xcg/MUL2.01$X n1=-1 n2=$MaxY` #
# #
# $Z $xrv/AXPB.01$X \ #
# $Z CAL1=FAUX \ #
# $Z ne=$PartN \ #
# $Z fichier=$xTV/COORDONNEES_01$COORD_X \ #
# $Z homothetie=$EchelleX translation=$TranslationX \ #
# $Z > $xTV/COORDONNEES$COORD_X #
# $Z $xrv/AXPB.01$X \ #
# $Z CAL1=FAUX \ #
# $Z ne=$PartN \ #
# $Z fichier=$xTV/COORDONNEES_01$COORD_Y \ #
# $Z homothetie=$EchelleY translation=$TranslationY \ #
# $Z > $xTV/COORDONNEES$COORD_Y #
# #
# $Z $DELETE $xTV/COORDONNEES_01$COORD_X #
# $Z $DELETE $xTV/COORDONNEES_01$COORD_Y #
# #
# $Z set Part0=1 #
# $Z @ Npart = $PartN - $Part0 #
# $Z @ Npart = $Npart + 1 #
# #
# $Z $DELETE $xTV/MODULE #
# $Z $DELETE $xTV/THETA #
# $Z $DELETE $xTV/XY_RT.1 #
# $Z $DELETE $xTV/XY_RT.2 #
# $Z $DELETE $xTV/VITESSES #
# $Z $DELETE $xTV/VITESSES$COORD_X #
# $Z $DELETE $xTV/VITESSES$COORD_Y #
# $Z $DELETE $xTV/VITESSES$COORD_Z #
# $Z $DELETE $xTV/mdRHO #
# $Z $DELETE $xTV/MdRHO #
# $Z $DELETE $xTV/mnPHI #
# $Z $DELETE $xTV/MnPHI #
# $Z $DELETE $xTV/dPHI #
# $Z $DELETE $xTV/mnTHETA #
# $Z $DELETE $xTV/MnTHETA #
# $Z $DELETE $xTV/dTHETA #
# $Z $DELETE $xTV/supOUVE #
# $Z $DELETE $xTV/DISTANCE #
# $Z $DELETE $xTV/STABILITE #
# $Z $DELETE $xTV/RAYONS #
# $Z $DELETE $xTV/INTERACTIONS #
# #
# #
# $Z alias Gen 'set Fi=\!:1 ; set vD=\!:2 ; set vA=\!:3 ; set ArG=(\!:4*) ; \\ #
# $Z $DELETE $Fi ; \\ #
# $Z $xci/valeurs_inte$X p=$Part0 d=$PartN vD=$vD vA=$vA $ArG > $Fi ; \\ #
# $Z unset Fi vD vA ArG' #
# #
# $Z alias GenR 'set Fi=\!:1 ; set In=\!:2 ; set Su=\!:3 ; set ArG=(\!:4*) ; \\ #
# $Z $DELETE $Fi ; \\ #
# $Z $xci/valeurs_alea$X p=$Part0 d=$PartN signe="$KV" inf=$In sup=$Su $ArG > $Fi ; \\ #
# $Z unset Fi In Su ArG' #
# #
# $Z Gen $xTV/COORDONNEES$COORD_Z 0.0 0.0 #
# #
# #
# $Z Gen $xTV/MODULE 0.02 0.02 #
# $Z GenR $xTV/THETA 0.0 $dpi g=3333 #
# #
# $Z $CA $xcs/csh$Y \ #
# $Z > $xTV/XY_RT.1 #
# $Z $PAST $xTV/MODULE $xTV/THETA \ #
# $Z | $R "$K_TAB" "$K_BLANC" \ #
# $Z | $AW ' { print "$xcg/XY_RT$X r=" $1 " t=" $2 " cartesien=FAUX" } ' \ #
# $Z >>! $xTV/XY_RT.1 #
# #
# $Z (source $xTV/XY_RT.1) \ #
# $Z > $xTV/XY_RT.2 #
# #
# $Z $CA $xTV/XY_RT.2 \ #
# $Z | $GRE "^x=" \ #
# $Z | $SE -e "s/^x=//" \ #
# $Z > $xTV/VITESSES$COORD_X #
# $Z $CA $xTV/XY_RT.2 \ #
# $Z | $GRE "^y=" \ #
# $Z | $SE -e "s/^y=//" \ #
# $Z > $xTV/VITESSES$COORD_Y #
# #
# $Z Gen $xTV/VITESSES$COORD_Z 0.0 0.0 #
# #
# $Z Gen $xTV/mdRHO 0.0 0.0 #
# $Z Gen $xTV/MdRHO 0.0 0.0 #
# $Z Gen $xTV/mnPHI 0.0 0.0 #
# $Z Gen $xTV/MnPHI 0.0 0.0 #
# $Z Gen $xTV/dPHI 0.0 0.0 #
# $Z Gen $xTV/mnTHETA 0.0 0.0 #
# $Z Gen $xTV/MnTHETA 0.0 0.0 #
# $Z Gen $xTV/dTHETA 0.0 0.0 #
# $Z Gen $xTV/DISTANCE 1000000 1000000 #
# $Z Gen $xTV/STABILITE 1000000 1000000 #
# #
# $Z set RayonsT=0.014 #
# $Z set RayonsP=`$xcg/MUL2.01$X a=2 b=$RayonsT` #
# $Z set DistanceI=`$xcg/MUL2.01$X a=4 b=$RayonsP` #
# $Z Gen $xTV/RAYONS $RayonsT $RayonsT #
# $Z Gen $xTV/INTERACTIONS $RayonsP $RayonsP #
# #
# $Z $DELETE $xTV/COULEURS$TEINT #
# $Z $DELETE $xTV/COULEURS$LUMIN #
# $Z $DELETE $xTV/COULEURS$SATUR #
# $Z $DELETE $xTV/COULEURS$Y #
# $Z $DELETE $xTV/COULEURS #
# $Z $DELETE $xTV/COULEURS$ROUGE #
# $Z $DELETE $xTV/COULEURS$VERTE #
# $Z $DELETE $xTV/COULEURS$BLEUE #
# #
# $Z @ TeinteMagenta = $GRIS_7 #
# $Z @ TeinteCyan = $GRIS_4 + $GRIS_8 #
# #
# $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartN \ #
# $Z vD=$TeinteMagenta vA=$TeinteCyan \ #
# $Z cubique=FAUX \ #
# $Z entiers=VRAI \ #
# $Z > $xTV/COULEURS$TEINT #
# $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartN \ #
# $Z vD=$GRIS_4 vA=$GRIS_4 \ #
# $Z cubique=FAUX \ #
# $Z entiers=VRAI \ #
# $Z > $xTV/COULEURS$LUMIN #
# $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartN \ #
# $Z vD=$GRIS_8 vA=$GRIS_8 \ #
# $Z cubique=FAUX \ #
# $Z entiers=VRAI \ #
# $Z > $xTV/COULEURS$SATUR #
# #
# $Z $PAST \ #
# $Z $xTV/COULEURS$TEINT \ #
# $Z $xTV/COULEURS$LUMIN \ #
# $Z $xTV/COULEURS$SATUR \ #
# $Z | $R "$K_TAB" "$K_BLANC" \ #
# $Z | $AW ' { print "H=" $1 " L=" $2 " S=" $3 } ' \ #
# $Z | $SE -e 's+^+$xcg/RVB_HLS$X RVB_HLS=FAUX +' \ #
# $Z | $SE -e 's/$/ eR=VRAI eV=VRAI eB=VRAI/' \ #
# $Z | $SE -e 's/$/ eH=FAUX eL=FAUX eS=FAUX/' \ #
# $Z > $xTV/COULEURS$Y #
# #
# $Z (source $xTV/COULEURS$Y) \ #
# $Z > $xTV/COULEURS #
# #
# $Z $GRE "^R=" $xTV/COULEURS \ #
# $Z | $SE -e "s/^R=//" \ #
# $Z > $xTV/COULEURS$ROUGE #
# $Z $GRE "^V=" $xTV/COULEURS \ #
# $Z | $SE -e "s/^V=//" \ #
# $Z > $xTV/COULEURS$VERTE #
# $Z $GRE "^B=" $xTV/COULEURS \ #
# $Z | $SE -e "s/^B=//" \ #
# $Z > $xTV/COULEURS$BLEUE #
# #
# $Z Pal #
# #
# #
# $Z $xci/scale$X \ #
# $Z A=$xTV/BOITE.1 \ #
# $Z a=1.00 \ #
# $Z R=$xTV/BOITE.2 \ #
# $Z $formatI #
# #
# $Z $xrk/rdn_walk.41$X corps=$Npart \ #
# $Z np=$NimagesA \ #
# $Z collisions=VRAI DLA=FAUX interaction=$DistanceI \ #
# $Z LISTE_X=$xTV/COORDONNEES$COORD_X \ #
# $Z LISTE_Y=$xTV/COORDONNEES$COORD_Y \ #
# $Z LISTE_Z=$xTV/COORDONNEES$COORD_Z \ #
# $Z LISTE_VX=$xTV/VITESSES$COORD_X \ #
# $Z LISTE_VY=$xTV/VITESSES$COORD_Y \ #
# $Z LISTE_VZ=$xTV/VITESSES$COORD_Z \ #
# $Z LISTE_MINIMUM_DELTA_RHO=$xTV/mdRHO \ #
# $Z LISTE_MAXIMUM_DELTA_RHO=$xTV/MdRHO \ #
# $Z LISTE_MINIMUM_N_PHI=$xTV/mnPHI \ #
# $Z LISTE_MAXIMUM_N_PHI=$xTV/MnPHI \ #
# $Z LISTE_DELTA_PHI=$xTV/dPHI \ #
# $Z LISTE_MINIMUM_N_THETA=$xTV/mnTHETA \ #
# $Z LISTE_MAXIMUM_N_THETA=$xTV/MnTHETA \ #
# $Z LISTE_DELTA_THETA=$xTV/dTHETA \ #
# $Z LISTE_DISTANCE_MAXIMALE=$xTV/DISTANCE \ #
# $Z LISTE_STABILITE=$xTV/STABILITE \ #
# $Z LISTE_RAYON=$xTV/INTERACTIONS \ #
# $Z LISTE_RAYON_D_INTERACTION=$xTV/INTERACTIONS \ #
# $Z LISTE_ROUGE=$xTV/COULEURS$ROUGE \ #
# $Z LISTE_VERTE=$xTV/COULEURS$VERTE \ #
# $Z LISTE_BLEUE=$xTV/COULEURS$BLEUE \ #
# $Z milieu=VRAI \ #
# $Z reflexion=VRAI refraction=FAUX \ #
# $Z Mhors=$BLANC \ #
# $Z MNpasX=1 Mprolonger_X=VRAI \ #
# $Z MNpasY=1 Mprolonger_Y=VRAI \ #
# $Z MNpasZ=1 Mprolonger_Z=VRAI \ #
# $Z adapter_M_nPAS=VRAI \ #
# $Z Msimplifier=FAUX affiner_M_maillage=FAUX \ #
# $Z MC=$xTV/BOITE.2 \ #
# $Z MChiffres=0 \ #
# $Z Zmin=0 Zmax=15 \ #
# $Z centrer=VRAI \ #
# $Z dct=0.05 nombre=40 \ #
# $Z trainees=FAUX \ #
# $Z facteur_ROUGE=1.0 \ #
# $Z facteur_VERTE=1.0 \ #
# $Z facteur_BLEUE=1.0 \ #
# $Z renormaliser=FAUX \ #
# $Z Lz=100 \ #
# $Z zoom_automatique=VRAI \ #
# $Z centre_de_gravite=FAUX \ #
# $Z fond=FAUX \ #
# $Z lister_les_points=FAUX \ #
# $Z lister_les_points_apres=FAUX \ #
# $Z R=$xiim/REFL.Wa. \ #
# $Z $formatI #
# #
# $Z $xrk/rdn_walk.41$X corps=$Npart \ #
# $Z np=$NimagesA \ #
# $Z collisions=VRAI DLA=FAUX interaction=$DistanceI \ #
# $Z LISTE_X=$xTV/COORDONNEES$COORD_X \ #
# $Z LISTE_Y=$xTV/COORDONNEES$COORD_Y \ #
# $Z LISTE_Z=$xTV/COORDONNEES$COORD_Z \ #
# $Z LISTE_VX=$xTV/VITESSES$COORD_X \ #
# $Z LISTE_VY=$xTV/VITESSES$COORD_Y \ #
# $Z LISTE_VZ=$xTV/VITESSES$COORD_Z \ #
# $Z LISTE_MINIMUM_DELTA_RHO=$xTV/mdRHO \ #
# $Z LISTE_MAXIMUM_DELTA_RHO=$xTV/MdRHO \ #
# $Z LISTE_MINIMUM_N_PHI=$xTV/mnPHI \ #
# $Z LISTE_MAXIMUM_N_PHI=$xTV/MnPHI \ #
# $Z LISTE_DELTA_PHI=$xTV/dPHI \ #
# $Z LISTE_MINIMUM_N_THETA=$xTV/mnTHETA \ #
# $Z LISTE_MAXIMUM_N_THETA=$xTV/MnTHETA \ #
# $Z LISTE_DELTA_THETA=$xTV/dTHETA \ #
# $Z LISTE_DISTANCE_MAXIMALE=$xTV/DISTANCE \ #
# $Z LISTE_STABILITE=$xTV/STABILITE \ #
# $Z LISTE_RAYON=$xTV/INTERACTIONS \ #
# $Z LISTE_RAYON_D_INTERACTION=$xTV/INTERACTIONS \ #
# $Z LISTE_ROUGE=$xTV/COULEURS$ROUGE \ #
# $Z LISTE_VERTE=$xTV/COULEURS$VERTE \ #
# $Z LISTE_BLEUE=$xTV/COULEURS$BLEUE \ #
# $Z milieu=VRAI \ #
# $Z reflexion=VRAI refraction=FAUX \ #
# $Z Mhors=$BLANC \ #
# $Z MNpasX=1 Mprolonger_X=VRAI \ #
# $Z MNpasY=1 Mprolonger_Y=VRAI \ #
# $Z MNpasZ=1 Mprolonger_Z=VRAI \ #
# $Z adapter_M_nPAS=VRAI \ #
# $Z Msimplifier=FAUX affiner_M_maillage=FAUX \ #
# $Z MC=$xTV/BOITE.2 \ #
# $Z MChiffres=0 \ #
# $Z Zmin=0 Zmax=15 \ #
# $Z centrer=VRAI \ #
# $Z dct=0.05 nombre=40 \ #
# $Z trainees=FAUX \ #
# $Z facteur_ROUGE=1.0 \ #
# $Z facteur_VERTE=1.0 \ #
# $Z facteur_BLEUE=1.0 \ #
# $Z renormaliser=FAUX \ #
# $Z Lz=100 \ #
# $Z zoom_automatique=VRAI \ #
# $Z centre_de_gravite=FAUX \ #
# $Z fond=FAUX \ #
# $Z lister_les_points=FAUX \ #
# $Z lister_les_points_apres=FAUX \ #
# $Z centre_des_spheres=VRAI \ #
# $Z R=$xiim/REFL.Wb. \ #
# $Z $formatI #
# #
# #
# #
# $Z $xci/complement$X A=$xTV/BOITE.1 \ #
# $Z R=$xTV/BOITE.3 \ #
# $Z $formatI #
# #
# $Z $xci/dilate.01$X A=$xTV/BOITE.3 \ #
# $Z dilater=FAUX \ #
# $Z points=25 \ #
# $Z $formatI | \ #
# $Z $xci/minmax$X A1=$xTV/BOITE.3 \ #
# $Z R=$xTV/BORDURE \ #
# $Z $formatI #
# #
# $Z $xci/seuil$X \ #
# $Z A=$xiio/MIRE \ #
# $Z seuil=$GRIS_4 \ #
# $Z $format_Std | \ #
# $Z $xci/format.01$X mode=0 \ #
# $Z $format_Std \ #
# $Z R=$xTV/MASQUE$DROITE \ #
# $Z $formatR_Pal #
# $Z $xci/complement$X \ #
# $Z A=$xTV/MASQUE$DROITE \ #
# $Z R=$xTV/MASQUE$GAUCHE \ #
# $Z $formatI #
# #
# $Z $xci/scale$X \ #
# $Z A=$xTV/BOITE.3 \ #
# $Z a=0.50 \ #
# $Z R=$xTV/BOITE.9 \ #
# $Z $formatI #
# #
# $Z $xci/and$X A1=$xTV/BOITE.9 \ #
# $Z A2=$xTV/MASQUE$DROITE \ #
# $Z R=$xTV/BOITE$DROITE \ #
# $Z $formatI #
# $Z $xci/and$X A1=$xTV/BOITE.9 \ #
# $Z A2=$xTV/MASQUE$GAUCHE \ #
# $Z R=$xTV/BOITE$GAUCHE \ #
# $Z $formatI #
# #
# $Z $DELETE $xTV/COORDONNEES$COORD_X #
# $Z $DELETE $xTV/COORDONNEES$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_Z #
# $Z $DELETE $xTV/VITESSES$COORD_X #
# $Z $DELETE $xTV/VITESSES$COORD_Y #
# $Z $DELETE $xTV/VITESSES$COORD_Z #
# $Z $DELETE $xTV/mdRHO #
# $Z $DELETE $xTV/MdRHO #
# $Z $DELETE $xTV/mnPHI #
# $Z $DELETE $xTV/MnPHI #
# $Z $DELETE $xTV/dPHI #
# $Z $DELETE $xTV/mnTHETA #
# $Z $DELETE $xTV/MnTHETA #
# $Z $DELETE $xTV/dTHETA #
# $Z $DELETE $xTV/DISTANCE #
# $Z $DELETE $xTV/STABILITE #
# $Z $DELETE $xTV/RAYONS #
# $Z $DELETE $xTV/INTERACTIONS #
# $Z $DELETE $xTV/COULEURS$TEINT #
# $Z $DELETE $xTV/COULEURS$LUMIN #
# $Z $DELETE $xTV/COULEURS$SATUR #
# $Z $DELETE $xTV/COULEURS$Y #
# $Z $DELETE $xTV/COULEURS #
# $Z $DELETE $xTV/COULEURS$ROUGE #
# $Z $DELETE $xTV/COULEURS$VERTE #
# $Z $DELETE $xTV/COULEURS$BLEUE #
# #
# $Z set Pliste="eX=FAUX eY=FAUX eNIVEAU=FAUX points=VRAI $formatI" #
# #
# $Z set PMessage="taille=4 anti_aliasing=VRAI y=0.1 centrer=VRAI" #
# $Z set Pdilate="points=9" #
# #
# $c extern int atoi(); #
# $c extern int *getenv(); #
# #
# $c #define NA0 (atoi(getenv("PremiereA"))) #
# $c #define NA (atoi(getenv("DerniereA"))) #
# #
# $c int main() #
# $c { #
# $c int n1; #
# #
# $c for (n1=NA0 ; n1<=NA ; n1++) #
# $c { #
# $c printf("$xci/luminance.01$X #
# $c AR=$xiim/REFL.Wb.%04d$ROUGE #
# $c AV=$xiim/REFL.Wb.%04d$VERTE #
# $c AB=$xiim/REFL.Wb.%04d$BLEUE #
# $c $formatI | #
# $c $xci/seuil$X #
# $c seuil=$GRIS_0 #
# $c R=$xTV/POINTS #
# $c $formatI\n" #
# $c ,n1,n1,n1 #
# $c ); #
# $c printf("$xci/and$X #
# $c A1=$xTV/POINTS #
# $c A2=$xTV/MASQUE$DROITE #
# $c R=$xTV/POINTS$DROITE #
# $c $formatI\n" #
# $c ); #
# $c printf("$xci/and$X #
# $c A1=$xTV/POINTS #
# $c A2=$xTV/MASQUE$GAUCHE #
# $c R=$xTV/POINTS$GAUCHE #
# $c $formatI\n" #
# $c ); #
# #
# $c printf("set NpointsD=`$xci/liste_points$X A=$xTV/POINTS$DROITE $Pliste`\n"); #
# $c printf("set NpointsG=`$xci/liste_points$X A=$xTV/POINTS$GAUCHE $Pliste`\n"); #
# #
# $c printf("set NpointsD=`echo $NpointsD | $SE -e 's/^.*=//'`\n"); #
# $c printf("set NpointsG=`echo $NpointsG | $SE -e 's/^.*=//'`\n"); #
# #
# $c printf("set NpointsD=`$xci/nombres$X #
# $c A=%c$K_VIDE%c #
# $c p=$NpointsD #
# $c d=$NpointsD`\n" #
# $c ,'"','"' #
# $c ); #
# $c printf("set NpointsG=`$xci/nombres$X #
# $c A=%c$K_VIDE%c #
# $c p=$NpointsG #
# $c d=$NpointsG`\n" #
# $c ,'"','"' #
# $c ); #
# #
# $c printf("$xci/init$X #
# $c niveau=$NOIR #
# $c $formatI | #
# $c $xci/message$X #
# $c message=$NpointsD #
# $c $PMessage #
# $c $formatI | #
# $c $xci/dilate.01$X #
# $c $Pdilate #
# $c $formatI | #
# $c $xci/move$X #
# $c xR=+0.25 #
# $c $formatI | #
# $c $xci/cache$X #
# $c A=$xTV/BOITE$DROITE #
# $c R=$xTV/BOITE.3$DROITE #
# $c $formatI\n" #
# $c ); #
# $c printf("$xci/init$X #
# $c niveau=$NOIR #
# $c $formatI | #
# $c $xci/message$X #
# $c message=$NpointsG #
# $c $PMessage #
# $c $formatI | #
# $c $xci/dilate.01$X #
# $c $Pdilate #
# $c $formatI | #
# $c $xci/move$X #
# $c xR=-0.25 #
# $c $formatI | #
# $c $xci/cache$X #
# $c A=$xTV/BOITE$GAUCHE #
# $c R=$xTV/BOITE.3$GAUCHE #
# $c $formatI\n" #
# $c ); #
# #
# $c printf("$xci/or_02$X #
# $c A1=$xTV/BOITE.3$DROITE #
# $c A2=$xTV/BOITE.3$GAUCHE #
# $c $formatI | #
# $c $xci/cache$X #
# $c M=$xTV/BORDURE #
# $c R=$xTV/BOITE.3$ROUGE #
# $c $formatI\n" #
# $c ); #
# $c printf("$xci/or_02$X #
# $c A1=$xTV/BOITE.3$DROITE #
# $c A2=$xTV/BOITE.3$GAUCHE #
# $c $formatI | #
# $c $xci/cache$X #
# $c M=$xTV/BORDURE #
# $c R=$xTV/BOITE.3$VERTE #
# $c $formatI\n" #
# $c ); #
# $c printf("$xci/or_02$X #
# $c A1=$xTV/BOITE.3$DROITE #
# $c A2=$xTV/BOITE.3$GAUCHE #
# $c $formatI | #
# $c $xci/cache$X #
# $c M=$xTV/BORDURE #
# $c R=$xTV/BOITE.3$BLEUE #
# $c $formatI\n" #
# $c ); #
# #
# $c printf("$xci/cache.11$Z #
# $c $xiim/REFL.Wa.%04d #
# $c $xTV/BOITE.3 #
# $c $xiim/REFL.3.%04d\n" #
# $c ,n1,n1 #
# $c ); #
# $c } #
# $c } #
# #
# $Z $DELETE $xTV/BOITE.1 #
# $Z $DELETE $xTV/BOITE.2 #
# $Z $DELETE $xTV/BOITE.3 #
# $Z $DELETE $xTV/BOITE.3$ROUGE #
# $Z $DELETE $xTV/BOITE.3$VERTE #
# $Z $DELETE $xTV/BOITE.3$BLEUE #
# $Z $DELETE $xTV/BOITE.3$DROITE #
# $Z $DELETE $xTV/BOITE.3$GAUCHE #
# $Z $DELETE $xTV/BORDURE #
# $Z $DELETE $xTV/MASQUE$DROITE #
# $Z $DELETE $xTV/MASQUE$GAUCHE #
# $Z $DELETE $xTV/BOITE$DROITE #
# $Z $DELETE $xTV/BOITE$GAUCHE #
# $Z $DELETE $xTV/POINTS #
# $Z $DELETE $xTV/POINTS$DROITE #
# $Z $DELETE $xTV/POINTS$GAUCHE #
# #
# $Z Pal #
# #
# $Z $xci/reduction_16$Z $xiim/REFL.3. $xiak/REFL.S8 $Premiere $Derniere #
# $Z $xci/reduction_64$Z $xiim/REFL.3. $xiak/REFL.S8 $Premiere $Derniere #
# #
# $X $xci/genere$X c='ro $xiak/REFL.S8$R16%s' RVB=VRAI #
# $X $xci/genere$X c='ro $xiak/REFL.S8$R64%s' RVB=VRAI #
# #
# $X $xci/genere$X c='$xcg/unite$Z $xiak/REFL.S8$R16%s' RVB=VRAI #
# $X $xci/genere$X c='$xcg/unite$Z $xiak/REFL.S8$R64%s' RVB=VRAI #
# #
# $X $xci/genere$X c='$CP $xiim/REFL.3.0512%s $xiirk/REFL.S8.0512%s' RVB=VRAI #
# $X $xci/genere$X c='ro $xiirk/REFL.S8.0512%s' RVB=VRAI #
# $X $xci/genere$X c='$xcg/unite$Z $xiirk/REFL.S8.0512%s' RVB=VRAI #
# #
# #
# Pal #
# #
# #
# $xci/disk_video_P$Z $xiim_LACT27/REFL.3. 0001 0512 RVB \ #
# 11 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
# #
# xivPdf 3 2 #
# #
# record.01$Z $xiak/REFL.S8$R16 RVB Initialisation #
# record.01$Z $xiak/REFL.S8$R64 RVB rien #
# record.01$Z $xiirk/REFL.S8.0512 RVB rien #
# #
sequence 027058_027283
sequence 027284_027795
# Generee (sur '$LACT27') par : #
# #
# $Z unsetenv PremiereA #
# $Z unsetenv DerniereA #
# #
# $Z SET tPremiereA=1 #
# $Z SET tDerniereA=512 #
# $Z set Premiere=$tPremiereA #
# $Z @ NimagesA = $tDerniereA - $tPremiereA #
# $Z @ NimagesA = $NimagesA + 1 #
# $Z @ Nimages = $NimagesA #
# $Z @ Nimages = $Nimages - 1 #
# $Z @ Derniere = $Premiere + $Nimages #
# $Z @ Derniere = $Derniere - 1 #
# #
# $Z SETENV PremiereA $tPremiereA #
# $Z SETENV DerniereA $tDerniereA #
# #
# $X echo "echo ATTENTION : 'PremiereA' et 'DerniereA' mis dans 'env'." #
# #
# #
# $Z Pal #
# #
# $Z set PUnivers="np=0 CAL1=FAUX editer_l_univers_physique=VRAI" #
# $Z set Univers=`$xrk/rdn_walk.41$X $PUnivers $formatI` #
# #
# $Z set MinX=`echo $Univers | $SE -e "s/^.*[(,]XUI=//" -e "s/[,)].*//"` #
# $Z set MaxX=`echo $Univers | $SE -e "s/^.*[(,]XUS=//" -e "s/[,)].*//"` #
# $Z set MinY=`echo $Univers | $SE -e "s/^.*[(,]YUI=//" -e "s/[,)].*//"` #
# $Z set MaxY=`echo $Univers | $SE -e "s/^.*[(,]YUS=//" -e "s/[,)].*//"` #
# #
# $Z set MinX=`$xcg/ABSO.01$X x=$MinX` #
# $Z set MaxX=`$xcg/ABSO.01$X x=$MaxX` #
# $Z set MinY=`$xcg/ABSO.01$X x=$MinY` #
# $Z set MaxY=`$xcg/ABSO.01$X x=$MaxY` #
# #
# $Z set MaxX=`$xcg/MAX2.01$X n1=$MinX n2=$MaxX` #
# $Z set MaxY=`$xcg/MAX2.01$X n1=$MinY n2=$MaxY` #
# #
# $Z set SeuilPartN=1.0 #
# $Z set GrainePartN=2 #
# $Z set ForceX=0.01 #
# $Z set ForceY=0.01 #
# #
# $Z $DELETE $xTV/BOITE.1 #
# $Z $DELETE $xTV/BOITE.2 #
# $Z $DELETE $xTV/BOITE.3 #
# $Z $DELETE $xTV/BOITE.3$ROUGE #
# $Z $DELETE $xTV/BOITE.3$VERTE #
# $Z $DELETE $xTV/BOITE.3$BLEUE #
# $Z $DELETE $xTV/BOITE.4 #
# $Z $DELETE $xTV/BOITE.5 #
# $Z $DELETE $xTV/BOITE.6 #
# $Z $DELETE $xTV/BOITE.7 #
# $Z $DELETE $xTV/BOITE.8 #
# $Z $DELETE $xTV/BOITE.A #
# $Z $DELETE $xTV/BOITE.B #
# #
# #
# $Z Std #
# #
# $Z set FacXY=0.90 #
# $Z set SeuilBOITE=`$xcg/SOUS.01$X a=1 b=$FacXY` #
# $Z set SeuilBOITE=`$xcg/MUL2.01$X a=$SeuilBOITE b=$GRIS_8` #
# $Z set SeuilBOITE=`$xci/valeurs_inte$X p=1 d=1 vD=$SeuilBOITE entiers=VRAI` #
# $Z set SeuilBOITE=`$xcg/MIN2.01$X a=$SeuilBOITE b=$GRIS_1` #
# #
# $Z set GTransX=`$xcg/SOUS.01$X a=1 b=$FacXY` #
# $Z set GTransX=`$xcg/MOIT.01$X a=$GTransX signe="$K_VIDE"` #
# $Z set DTransX=`$xcg/MOIT.01$X a=1` #
# $Z set DTransX=`$xcg/ADD2.01$X a=$DTransX b=$GTransX signe="$K_VIDE"` #
# #
# #
# $Z set LBande=100 #
# $Z set BandeS=`$xcg/ADD2.01$X a=$GRIS_4 b=$LBande` #
# $Z set BandeI=`$xcg/SOUS.01$X a=$GRIS_4 b=$LBande` #
# #
# $Z $xci/complement$X \ #
# $Z A=$xiio/SPIRALE \ #
# $Z $formatI | \ #
# $Z $xci/seuil$X \ #
# $Z seuil=$SeuilBOITE \ #
# $Z R=$xTV/BOITE.4 \ #
# $Z $formatI #
# #
# $Z $xci/move$X \ #
# $Z A=$xTV/BOITE.4 \ #
# $Z xR=+$DTransX \ #
# $Z $formatI | \ #
# $Z $xci/move$X \ #
# $Z xR=-$GTransX \ #
# $Z $formatI | \ #
# $Z $xci/dilate.01$X \ #
# $Z points=9 \ #
# $Z dilater=VRAI \ #
# $Z R=$xTV/BOITE.5 \ #
# $Z $formatI #
# $Z $xci/Sy$X \ #
# $Z A=$xTV/BOITE.5 \ #
# $Z R=$xTV/BOITE.6 \ #
# $Z $formatI #
# #
# $Z $xci/passe_bande$X \ #
# $Z A=$xiio/MIRE \ #
# $Z inf=$BandeI \ #
# $Z sup=$BandeS \ #
# $Z $formatI | \ #
# $Z $xci/seuil$X \ #
# $Z $formatI | \ #
# $Z $xci/transpose$X \ #
# $Z $formatI | \ #
# $Z $xci/and$X \ #
# $Z A1=$xTV/BOITE.4 \ #
# $Z R=$xTV/BOITE.7 \ #
# $Z $formatI #
# #
# $Z $xci/or_02$X \ #
# $Z A1=$xTV/BOITE.5 \ #
# $Z A2=$xTV/BOITE.6 \ #
# $Z $formatI | \ #
# $Z $xci/or_02$X \ #
# $Z A2=$xTV/BOITE.7 \ #
# $Z R=$xTV/BOITE.8 \ #
# $Z $formatI #
# #
# $Z S #
# #
# $Z $xci/format.01$X mode=0 \ #
# $Z A=$xTV/BOITE.8 \ #
# $Z $formatI \ #
# $Z R=$xTV/BOITE.1 \ #
# $Z $formatR_Pal #
# #
# $Z $xci/dilate.01$X \ #
# $Z A=$xTV/BOITE.5 \ #
# $Z points=225 \ #
# $Z dilater=FAUX \ #
# $Z R=$xTV/BOITE.A \ #
# $Z $formatI #
# #
# $Z $xci/random.02$X \ #
# $Z seuil=$SeuilPartN \ #
# $Z graine=$GrainePartN \ #
# $Z px=19 py=19 \ #
# $Z $formatI | \ #
# $Z $xci/shuffling.01$X \ #
# $Z inverse=FAUX \ #
# $Z NOIR=FAUX \ #
# $Z fX=$ForceX fY=$ForceY \ #
# $Z graine=$GrainePartN \ #
# $Z $formatI | \ #
# $Z $xci/and$X \ #
# $Z A2=$xTV/BOITE.A \ #
# $Z R=$xTV/BOITE.B \ #
# $Z $formatI #
# #
# $Z $DELETE $xTV/COORDONNEES #
# $Z $DELETE $xTV/COORDONNEES_01$COORD_X #
# $Z $DELETE $xTV/COORDONNEES_01$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_X #
# $Z $DELETE $xTV/COORDONNEES$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_Z #
# #
# $Z $xci/liste_points$X \ #
# $Z A=$xTV/BOITE.B \ #
# $Z $formatI \ #
# $Z > $xTV/COORDONNEES #
# #
# $Z $DELETE $xTV/BOITE.4 #
# $Z $DELETE $xTV/BOITE.5 #
# $Z $DELETE $xTV/BOITE.6 #
# $Z $DELETE $xTV/BOITE.7 #
# $Z $DELETE $xTV/BOITE.8 #
# $Z $DELETE $xTV/BOITE.A #
# $Z $DELETE $xTV/BOITE.B #
# #
# $Z set PartN=`$TAI -1 $xTV/COORDONNEES | $SE -e "s/^.*=//"` #
# #
# $Z $CA $xTV/COORDONNEES \ #
# $Z | $GRE "^[Xx]=" \ #
# $Z | $SE -e "s/^[Xx]=//" \ #
# $Z > $xTV/COORDONNEES_01$COORD_X #
# $Z $CA $xTV/COORDONNEES \ #
# $Z | $GRE "^[Yy]=" \ #
# $Z | $SE -e "s/^[Yy]=//" \ #
# $Z > $xTV/COORDONNEES_01$COORD_Y #
# #
# $Z set EchelleX=`$xcg/MUL2.01$X n1=2 n2=$MaxX` #
# $Z set TranslationX=`$xcg/MUL2.01$X n1=-1 n2=$MaxX` #
# $Z set EchelleY=`$xcg/MUL2.01$X n1=2 n2=$MaxY` #
# $Z set TranslationY=`$xcg/MUL2.01$X n1=-1 n2=$MaxY` #
# #
# $Z $xrv/AXPB.01$X \ #
# $Z CAL1=FAUX \ #
# $Z ne=$PartN \ #
# $Z fichier=$xTV/COORDONNEES_01$COORD_X \ #
# $Z homothetie=$EchelleX translation=$TranslationX \ #
# $Z > $xTV/COORDONNEES$COORD_X #
# $Z $xrv/AXPB.01$X \ #
# $Z CAL1=FAUX \ #
# $Z ne=$PartN \ #
# $Z fichier=$xTV/COORDONNEES_01$COORD_Y \ #
# $Z homothetie=$EchelleY translation=$TranslationY \ #
# $Z > $xTV/COORDONNEES$COORD_Y #
# #
# $Z $DELETE $xTV/COORDONNEES_01$COORD_X #
# $Z $DELETE $xTV/COORDONNEES_01$COORD_Y #
# #
# $Z set Part0=1 #
# $Z @ Npart = $PartN - $Part0 #
# $Z @ Npart = $Npart + 1 #
# #
# $Z $DELETE $xTV/MODULE #
# $Z $DELETE $xTV/THETA #
# $Z $DELETE $xTV/XY_RT.1 #
# $Z $DELETE $xTV/XY_RT.2 #
# $Z $DELETE $xTV/VITESSES #
# $Z $DELETE $xTV/VITESSES$COORD_X #
# $Z $DELETE $xTV/VITESSES$COORD_Y #
# $Z $DELETE $xTV/VITESSES$COORD_Z #
# $Z $DELETE $xTV/mdRHO #
# $Z $DELETE $xTV/MdRHO #
# $Z $DELETE $xTV/mnPHI #
# $Z $DELETE $xTV/MnPHI #
# $Z $DELETE $xTV/dPHI #
# $Z $DELETE $xTV/mnTHETA #
# $Z $DELETE $xTV/MnTHETA #
# $Z $DELETE $xTV/dTHETA #
# $Z $DELETE $xTV/supOUVE #
# $Z $DELETE $xTV/DISTANCE #
# $Z $DELETE $xTV/STABILITE #
# $Z $DELETE $xTV/RAYONS #
# $Z $DELETE $xTV/INTERACTIONS #
# #
# #
# $Z alias Gen 'set Fi=\!:1 ; set vD=\!:2 ; set vA=\!:3 ; set ArG=(\!:4*) ; \\ #
# $Z $DELETE $Fi ; \\ #
# $Z $xci/valeurs_inte$X p=$Part0 d=$PartN vD=$vD vA=$vA $ArG > $Fi ; \\ #
# $Z unset Fi vD vA ArG' #
# #
# $Z alias GenR 'set Fi=\!:1 ; set In=\!:2 ; set Su=\!:3 ; set ArG=(\!:4*) ; \\ #
# $Z $DELETE $Fi ; \\ #
# $Z $xci/valeurs_alea$X p=$Part0 d=$PartN signe="$KV" inf=$In sup=$Su $ArG > $Fi ; \\ #
# $Z unset Fi In Su ArG' #
# #
# $Z Gen $xTV/COORDONNEES$COORD_Z 0.0 0.0 #
# #
# #
# $Z Gen $xTV/MODULE 0.02 0.02 #
# $Z GenR $xTV/THETA 0.0 $dpi g=3333 #
# #
# $Z $CA $xcs/csh$Y \ #
# $Z > $xTV/XY_RT.1 #
# $Z $PAST $xTV/MODULE $xTV/THETA \ #
# $Z | $R "$K_TAB" "$K_BLANC" \ #
# $Z | $AW ' { print "$xcg/XY_RT$X r=" $1 " t=" $2 " cartesien=FAUX" } ' \ #
# $Z >>! $xTV/XY_RT.1 #
# #
# $Z (source $xTV/XY_RT.1) \ #
# $Z > $xTV/XY_RT.2 #
# #
# $Z $CA $xTV/XY_RT.2 \ #
# $Z | $GRE "^x=" \ #
# $Z | $SE -e "s/^x=//" \ #
# $Z > $xTV/VITESSES$COORD_X #
# $Z $CA $xTV/XY_RT.2 \ #
# $Z | $GRE "^y=" \ #
# $Z | $SE -e "s/^y=//" \ #
# $Z > $xTV/VITESSES$COORD_Y #
# #
# $Z Gen $xTV/VITESSES$COORD_Z 0.0 0.0 #
# #
# $Z Gen $xTV/mdRHO 0.0 0.0 #
# $Z Gen $xTV/MdRHO 0.0 0.0 #
# $Z Gen $xTV/mnPHI 0.0 0.0 #
# $Z Gen $xTV/MnPHI 0.0 0.0 #
# $Z Gen $xTV/dPHI 0.0 0.0 #
# $Z Gen $xTV/mnTHETA 0.0 0.0 #
# $Z Gen $xTV/MnTHETA 0.0 0.0 #
# $Z Gen $xTV/dTHETA 0.0 0.0 #
# $Z Gen $xTV/DISTANCE 1000000 1000000 #
# $Z Gen $xTV/STABILITE 1000000 1000000 #
# #
# $Z set RayonsT=0.014 #
# $Z set RayonsP=`$xcg/MUL2.01$X a=2 b=$RayonsT` #
# $Z set DistanceI=`$xcg/MUL2.01$X a=4 b=$RayonsP` #
# $Z Gen $xTV/RAYONS $RayonsT $RayonsT #
# $Z Gen $xTV/INTERACTIONS $RayonsP $RayonsP #
# #
# $Z $DELETE $xTV/COULEURS$TEINT #
# $Z $DELETE $xTV/COULEURS$LUMIN #
# $Z $DELETE $xTV/COULEURS$SATUR #
# $Z $DELETE $xTV/COULEURS$Y #
# $Z $DELETE $xTV/COULEURS #
# $Z $DELETE $xTV/COULEURS$ROUGE #
# $Z $DELETE $xTV/COULEURS$VERTE #
# $Z $DELETE $xTV/COULEURS$BLEUE #
# #
# $Z @ TeinteMagenta = $GRIS_7 #
# $Z @ TeinteCyan = $GRIS_4 + $GRIS_8 #
# #
# $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartN \ #
# $Z vD=$TeinteMagenta vA=$TeinteCyan \ #
# $Z cubique=FAUX \ #
# $Z entiers=VRAI \ #
# $Z > $xTV/COULEURS$TEINT #
# $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartN \ #
# $Z vD=$GRIS_4 vA=$GRIS_4 \ #
# $Z cubique=FAUX \ #
# $Z entiers=VRAI \ #
# $Z > $xTV/COULEURS$LUMIN #
# $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartN \ #
# $Z vD=$GRIS_8 vA=$GRIS_8 \ #
# $Z cubique=FAUX \ #
# $Z entiers=VRAI \ #
# $Z > $xTV/COULEURS$SATUR #
# #
# $Z $PAST \ #
# $Z $xTV/COULEURS$TEINT \ #
# $Z $xTV/COULEURS$LUMIN \ #
# $Z $xTV/COULEURS$SATUR \ #
# $Z | $R "$K_TAB" "$K_BLANC" \ #
# $Z | $AW ' { print "H=" $1 " L=" $2 " S=" $3 } ' \ #
# $Z | $SE -e 's+^+$xcg/RVB_HLS$X RVB_HLS=FAUX +' \ #
# $Z | $SE -e 's/$/ eR=VRAI eV=VRAI eB=VRAI/' \ #
# $Z | $SE -e 's/$/ eH=FAUX eL=FAUX eS=FAUX/' \ #
# $Z > $xTV/COULEURS$Y #
# #
# $Z (source $xTV/COULEURS$Y) \ #
# $Z > $xTV/COULEURS #
# #
# $Z $GRE "^R=" $xTV/COULEURS \ #
# $Z | $SE -e "s/^R=//" \ #
# $Z > $xTV/COULEURS$ROUGE #
# $Z $GRE "^V=" $xTV/COULEURS \ #
# $Z | $SE -e "s/^V=//" \ #
# $Z > $xTV/COULEURS$VERTE #
# $Z $GRE "^B=" $xTV/COULEURS \ #
# $Z | $SE -e "s/^B=//" \ #
# $Z > $xTV/COULEURS$BLEUE #
# #
# $Z Pal #
# #
# #
# $Z $xci/scale$X \ #
# $Z A=$xTV/BOITE.1 \ #
# $Z a=1.00 \ #
# $Z R=$xTV/BOITE.2 \ #
# $Z $formatI #
# #
# $Z $xrk/rdn_walk.41$X corps=$Npart \ #
# $Z np=$NimagesA \ #
# $Z collisions=VRAI DLA=FAUX interaction=$DistanceI \ #
# $Z LISTE_X=$xTV/COORDONNEES$COORD_X \ #
# $Z LISTE_Y=$xTV/COORDONNEES$COORD_Y \ #
# $Z LISTE_Z=$xTV/COORDONNEES$COORD_Z \ #
# $Z LISTE_VX=$xTV/VITESSES$COORD_X \ #
# $Z LISTE_VY=$xTV/VITESSES$COORD_Y \ #
# $Z LISTE_VZ=$xTV/VITESSES$COORD_Z \ #
# $Z LISTE_MINIMUM_DELTA_RHO=$xTV/mdRHO \ #
# $Z LISTE_MAXIMUM_DELTA_RHO=$xTV/MdRHO \ #
# $Z LISTE_MINIMUM_N_PHI=$xTV/mnPHI \ #
# $Z LISTE_MAXIMUM_N_PHI=$xTV/MnPHI \ #
# $Z LISTE_DELTA_PHI=$xTV/dPHI \ #
# $Z LISTE_MINIMUM_N_THETA=$xTV/mnTHETA \ #
# $Z LISTE_MAXIMUM_N_THETA=$xTV/MnTHETA \ #
# $Z LISTE_DELTA_THETA=$xTV/dTHETA \ #
# $Z LISTE_DISTANCE_MAXIMALE=$xTV/DISTANCE \ #
# $Z LISTE_STABILITE=$xTV/STABILITE \ #
# $Z LISTE_RAYON=$xTV/INTERACTIONS \ #
# $Z LISTE_RAYON_D_INTERACTION=$xTV/INTERACTIONS \ #
# $Z LISTE_ROUGE=$xTV/COULEURS$ROUGE \ #
# $Z LISTE_VERTE=$xTV/COULEURS$VERTE \ #
# $Z LISTE_BLEUE=$xTV/COULEURS$BLEUE \ #
# $Z milieu=VRAI \ #
# $Z reflexion=VRAI refraction=FAUX \ #
# $Z Mhors=$BLANC \ #
# $Z MNpasX=1 Mprolonger_X=VRAI \ #
# $Z MNpasY=1 Mprolonger_Y=VRAI \ #
# $Z MNpasZ=1 Mprolonger_Z=VRAI \ #
# $Z adapter_M_nPAS=VRAI \ #
# $Z Msimplifier=FAUX affiner_M_maillage=FAUX \ #
# $Z MC=$xTV/BOITE.2 \ #
# $Z MChiffres=0 \ #
# $Z Zmin=0 Zmax=15 \ #
# $Z centrer=VRAI \ #
# $Z dct=0.05 nombre=40 \ #
# $Z trainees=FAUX \ #
# $Z facteur_ROUGE=1.0 \ #
# $Z facteur_VERTE=1.0 \ #
# $Z facteur_BLEUE=1.0 \ #
# $Z renormaliser=FAUX \ #
# $Z Lz=100 \ #
# $Z zoom_automatique=VRAI \ #
# $Z centre_de_gravite=FAUX \ #
# $Z fond=FAUX \ #
# $Z lister_les_points=FAUX \ #
# $Z lister_les_points_apres=FAUX \ #
# $Z R=$xiim/REFL.Wa. \ #
# $Z $formatI #
# #
# $Z $xrk/rdn_walk.41$X corps=$Npart \ #
# $Z np=$NimagesA \ #
# $Z collisions=VRAI DLA=FAUX interaction=$DistanceI \ #
# $Z LISTE_X=$xTV/COORDONNEES$COORD_X \ #
# $Z LISTE_Y=$xTV/COORDONNEES$COORD_Y \ #
# $Z LISTE_Z=$xTV/COORDONNEES$COORD_Z \ #
# $Z LISTE_VX=$xTV/VITESSES$COORD_X \ #
# $Z LISTE_VY=$xTV/VITESSES$COORD_Y \ #
# $Z LISTE_VZ=$xTV/VITESSES$COORD_Z \ #
# $Z LISTE_MINIMUM_DELTA_RHO=$xTV/mdRHO \ #
# $Z LISTE_MAXIMUM_DELTA_RHO=$xTV/MdRHO \ #
# $Z LISTE_MINIMUM_N_PHI=$xTV/mnPHI \ #
# $Z LISTE_MAXIMUM_N_PHI=$xTV/MnPHI \ #
# $Z LISTE_DELTA_PHI=$xTV/dPHI \ #
# $Z LISTE_MINIMUM_N_THETA=$xTV/mnTHETA \ #
# $Z LISTE_MAXIMUM_N_THETA=$xTV/MnTHETA \ #
# $Z LISTE_DELTA_THETA=$xTV/dTHETA \ #
# $Z LISTE_DISTANCE_MAXIMALE=$xTV/DISTANCE \ #
# $Z LISTE_STABILITE=$xTV/STABILITE \ #
# $Z LISTE_RAYON=$xTV/INTERACTIONS \ #
# $Z LISTE_RAYON_D_INTERACTION=$xTV/INTERACTIONS \ #
# $Z LISTE_ROUGE=$xTV/COULEURS$ROUGE \ #
# $Z LISTE_VERTE=$xTV/COULEURS$VERTE \ #
# $Z LISTE_BLEUE=$xTV/COULEURS$BLEUE \ #
# $Z milieu=VRAI \ #
# $Z reflexion=VRAI refraction=FAUX \ #
# $Z Mhors=$BLANC \ #
# $Z MNpasX=1 Mprolonger_X=VRAI \ #
# $Z MNpasY=1 Mprolonger_Y=VRAI \ #
# $Z MNpasZ=1 Mprolonger_Z=VRAI \ #
# $Z adapter_M_nPAS=VRAI \ #
# $Z Msimplifier=FAUX affiner_M_maillage=FAUX \ #
# $Z MC=$xTV/BOITE.2 \ #
# $Z MChiffres=0 \ #
# $Z Zmin=0 Zmax=15 \ #
# $Z centrer=VRAI \ #
# $Z dct=0.05 nombre=40 \ #
# $Z trainees=FAUX \ #
# $Z facteur_ROUGE=1.0 \ #
# $Z facteur_VERTE=1.0 \ #
# $Z facteur_BLEUE=1.0 \ #
# $Z renormaliser=FAUX \ #
# $Z Lz=100 \ #
# $Z zoom_automatique=VRAI \ #
# $Z centre_de_gravite=FAUX \ #
# $Z fond=FAUX \ #
# $Z lister_les_points=FAUX \ #
# $Z lister_les_points_apres=FAUX \ #
# $Z centre_des_spheres=VRAI \ #
# $Z R=$xiim/REFL.Wb. \ #
# $Z $formatI #
# #
# #
# #
# $Z $xci/complement$X A=$xTV/BOITE.1 \ #
# $Z R=$xTV/BOITE.3 \ #
# $Z $formatI #
# #
# $Z $xci/dilate.01$X A=$xTV/BOITE.3 \ #
# $Z dilater=FAUX \ #
# $Z points=25 \ #
# $Z $formatI | \ #
# $Z $xci/minmax$X A1=$xTV/BOITE.3 \ #
# $Z R=$xTV/BORDURE \ #
# $Z $formatI #
# #
# $Z $xci/seuil$X \ #
# $Z A=$xiio/MIRE \ #
# $Z seuil=$GRIS_4 \ #
# $Z $format_Std | \ #
# $Z $xci/format.01$X mode=0 \ #
# $Z $format_Std \ #
# $Z R=$xTV/MASQUE$DROITE \ #
# $Z $formatR_Pal #
# $Z $xci/complement$X \ #
# $Z A=$xTV/MASQUE$DROITE \ #
# $Z R=$xTV/MASQUE$GAUCHE \ #
# $Z $formatI #
# #
# $Z $xci/scale$X \ #
# $Z A=$xTV/BOITE.3 \ #
# $Z a=0.50 \ #
# $Z R=$xTV/BOITE.9 \ #
# $Z $formatI #
# #
# $Z $xci/and$X A1=$xTV/BOITE.9 \ #
# $Z A2=$xTV/MASQUE$DROITE \ #
# $Z R=$xTV/BOITE$DROITE \ #
# $Z $formatI #
# $Z $xci/and$X A1=$xTV/BOITE.9 \ #
# $Z A2=$xTV/MASQUE$GAUCHE \ #
# $Z R=$xTV/BOITE$GAUCHE \ #
# $Z $formatI #
# #
# $Z $DELETE $xTV/COORDONNEES$COORD_X #
# $Z $DELETE $xTV/COORDONNEES$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_Z #
# $Z $DELETE $xTV/VITESSES$COORD_X #
# $Z $DELETE $xTV/VITESSES$COORD_Y #
# $Z $DELETE $xTV/VITESSES$COORD_Z #
# $Z $DELETE $xTV/mdRHO #
# $Z $DELETE $xTV/MdRHO #
# $Z $DELETE $xTV/mnPHI #
# $Z $DELETE $xTV/MnPHI #
# $Z $DELETE $xTV/dPHI #
# $Z $DELETE $xTV/mnTHETA #
# $Z $DELETE $xTV/MnTHETA #
# $Z $DELETE $xTV/dTHETA #
# $Z $DELETE $xTV/DISTANCE #
# $Z $DELETE $xTV/STABILITE #
# $Z $DELETE $xTV/RAYONS #
# $Z $DELETE $xTV/INTERACTIONS #
# $Z $DELETE $xTV/COULEURS$TEINT #
# $Z $DELETE $xTV/COULEURS$LUMIN #
# $Z $DELETE $xTV/COULEURS$SATUR #
# $Z $DELETE $xTV/COULEURS$Y #
# $Z $DELETE $xTV/COULEURS #
# $Z $DELETE $xTV/COULEURS$ROUGE #
# $Z $DELETE $xTV/COULEURS$VERTE #
# $Z $DELETE $xTV/COULEURS$BLEUE #
# #
# $Z set Pliste="eX=FAUX eY=FAUX eNIVEAU=FAUX points=VRAI $formatI" #
# #
# $Z set PMessage="taille=4 anti_aliasing=VRAI y=0.1 centrer=VRAI" #
# $Z set Pdilate="points=9" #
# #
# $c extern int atoi(); #
# $c extern int *getenv(); #
# #
# $c #define NA0 (atoi(getenv("PremiereA"))) #
# $c #define NA (atoi(getenv("DerniereA"))) #
# #
# $c int main() #
# $c { #
# $c int n1; #
# #
# $c for (n1=NA0 ; n1<=NA ; n1++) #
# $c { #
# $c printf("$xci/luminance.01$X #
# $c AR=$xiim/REFL.Wb.%04d$ROUGE #
# $c AV=$xiim/REFL.Wb.%04d$VERTE #
# $c AB=$xiim/REFL.Wb.%04d$BLEUE #
# $c $formatI | #
# $c $xci/seuil$X #
# $c seuil=$GRIS_0 #
# $c R=$xTV/POINTS #
# $c $formatI\n" #
# $c ,n1,n1,n1 #
# $c ); #
# $c printf("$xci/and$X #
# $c A1=$xTV/POINTS #
# $c A2=$xTV/MASQUE$DROITE #
# $c R=$xTV/POINTS$DROITE #
# $c $formatI\n" #
# $c ); #
# $c printf("$xci/and$X #
# $c A1=$xTV/POINTS #
# $c A2=$xTV/MASQUE$GAUCHE #
# $c R=$xTV/POINTS$GAUCHE #
# $c $formatI\n" #
# $c ); #
# #
# $c printf("set NpointsD=`$xci/liste_points$X A=$xTV/POINTS$DROITE $Pliste`\n"); #
# $c printf("set NpointsG=`$xci/liste_points$X A=$xTV/POINTS$GAUCHE $Pliste`\n"); #
# #
# $c printf("set NpointsD=`echo $NpointsD | $SE -e 's/^.*=//'`\n"); #
# $c printf("set NpointsG=`echo $NpointsG | $SE -e 's/^.*=//'`\n"); #
# #
# $c printf("set NpointsD=`$xci/nombres$X #
# $c A=%c$K_VIDE%c #
# $c p=$NpointsD #
# $c d=$NpointsD`\n" #
# $c ,'"','"' #
# $c ); #
# $c printf("set NpointsG=`$xci/nombres$X #
# $c A=%c$K_VIDE%c #
# $c p=$NpointsG #
# $c d=$NpointsG`\n" #
# $c ,'"','"' #
# $c ); #
# #
# $c printf("$xci/init$X #
# $c niveau=$NOIR #
# $c $formatI | #
# $c $xci/message$X #
# $c message=$NpointsD #
# $c $PMessage #
# $c $formatI | #
# $c $xci/dilate.01$X #
# $c $Pdilate #
# $c $formatI | #
# $c $xci/move$X #
# $c xR=+0.25 #
# $c $formatI | #
# $c $xci/cache$X #
# $c A=$xTV/BOITE$DROITE #
# $c R=$xTV/BOITE.3$DROITE #
# $c $formatI\n" #
# $c ); #
# $c printf("$xci/init$X #
# $c niveau=$NOIR #
# $c $formatI | #
# $c $xci/message$X #
# $c message=$NpointsG #
# $c $PMessage #
# $c $formatI | #
# $c $xci/dilate.01$X #
# $c $Pdilate #
# $c $formatI | #
# $c $xci/move$X #
# $c xR=-0.25 #
# $c $formatI | #
# $c $xci/cache$X #
# $c A=$xTV/BOITE$GAUCHE #
# $c R=$xTV/BOITE.3$GAUCHE #
# $c $formatI\n" #
# $c ); #
# #
# $c printf("$xci/or_02$X #
# $c A1=$xTV/BOITE.3$DROITE #
# $c A2=$xTV/BOITE.3$GAUCHE #
# $c $formatI | #
# $c $xci/cache$X #
# $c M=$xTV/BORDURE #
# $c R=$xTV/BOITE.3$ROUGE #
# $c $formatI\n" #
# $c ); #
# $c printf("$xci/or_02$X #
# $c A1=$xTV/BOITE.3$DROITE #
# $c A2=$xTV/BOITE.3$GAUCHE #
# $c $formatI | #
# $c $xci/cache$X #
# $c M=$xTV/BORDURE #
# $c R=$xTV/BOITE.3$VERTE #
# $c $formatI\n" #
# $c ); #
# $c printf("$xci/or_02$X #
# $c A1=$xTV/BOITE.3$DROITE #
# $c A2=$xTV/BOITE.3$GAUCHE #
# $c $formatI | #
# $c $xci/cache$X #
# $c M=$xTV/BORDURE #
# $c R=$xTV/BOITE.3$BLEUE #
# $c $formatI\n" #
# $c ); #
# #
# $c printf("$xci/cache.11$Z #
# $c $xiim/REFL.Wa.%04d #
# $c $xTV/BOITE.3 #
# $c $xiim/REFL.4.%04d\n" #
# $c ,n1,n1 #
# $c ); #
# $c } #
# $c } #
# #
# $Z $DELETE $xTV/BOITE.1 #
# $Z $DELETE $xTV/BOITE.2 #
# $Z $DELETE $xTV/BOITE.3 #
# $Z $DELETE $xTV/BOITE.3$ROUGE #
# $Z $DELETE $xTV/BOITE.3$VERTE #
# $Z $DELETE $xTV/BOITE.3$BLEUE #
# $Z $DELETE $xTV/BOITE.3$DROITE #
# $Z $DELETE $xTV/BOITE.3$GAUCHE #
# $Z $DELETE $xTV/BORDURE #
# $Z $DELETE $xTV/MASQUE$DROITE #
# $Z $DELETE $xTV/MASQUE$GAUCHE #
# $Z $DELETE $xTV/BOITE$DROITE #
# $Z $DELETE $xTV/BOITE$GAUCHE #
# $Z $DELETE $xTV/POINTS #
# $Z $DELETE $xTV/POINTS$DROITE #
# $Z $DELETE $xTV/POINTS$GAUCHE #
# #
# $Z Pal #
# #
# $Z $xci/reduction_16$Z $xiim/REFL.4. $xiak/REFL.T8 $Premiere $Derniere #
# $Z $xci/reduction_64$Z $xiim/REFL.4. $xiak/REFL.T8 $Premiere $Derniere #
# #
# $X $xci/genere$X c='ro $xiak/REFL.T8$R16%s' RVB=VRAI #
# $X $xci/genere$X c='ro $xiak/REFL.T8$R64%s' RVB=VRAI #
# #
# $X $xci/genere$X c='$xcg/unite$Z $xiak/REFL.T8$R16%s' RVB=VRAI #
# $X $xci/genere$X c='$xcg/unite$Z $xiak/REFL.T8$R64%s' RVB=VRAI #
# #
# $X $xci/genere$X c='$CP $xiim/REFL.4.0512%s $xiirk/REFL.T8.0512%s' RVB=VRAI #
# $X $xci/genere$X c='ro $xiirk/REFL.T8.0512%s' RVB=VRAI #
# $X $xci/genere$X c='$xcg/unite$Z $xiirk/REFL.T8.0512%s' RVB=VRAI #
# #
# #
# Pal #
# #
# #
# $xci/disk_video_P$Z $xiim_LACT27/REFL.4. 0001 0512 RVB \ #
# 11 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
# #
# xivPdf 3 2 #
# #
# record.01$Z $xiak/REFL.T8$R16 RVB Initialisation #
# record.01$Z $xiak/REFL.T8$R64 RVB rien #
# record.01$Z $xiirk/REFL.T8.0512 RVB rien #
# #
# #
# ATTENTION, cette sequence a du etre reenregistree en : #
# #
# xivPdf 11 2 / 027284_027795 #
# #
# car, en effet, pour des raisons mysterieuses, l'image '027283' est NOIR. Les messages #
# recuperes etaient du type : #
# #
# WARNING: Frame transfer aborted: analog video input not locked #
# #
# dans '$Ferreurs'... #
# #
sequence 027796_028307
# Generee (sur '$LACT29') par : #
# #
# $Z unsetenv PremiereA #
# $Z unsetenv DerniereA #
# #
# $Z SET tPremiereA=1 #
# $Z SET tDerniereA=512 #
# $Z set Premiere=$tPremiereA #
# $Z @ NimagesA = $tDerniereA - $tPremiereA #
# $Z @ NimagesA = $NimagesA + 1 #
# $Z @ Nimages = $NimagesA #
# $Z @ Nimages = $Nimages - 1 #
# $Z @ Derniere = $Premiere + $Nimages #
# $Z @ Derniere = $Derniere - 1 #
# #
# $Z SETENV PremiereA $tPremiereA #
# $Z SETENV DerniereA $tDerniereA #
# #
# $X echo "echo ATTENTION : 'PremiereA' et 'DerniereA' mis dans 'env'." #
# #
# #
# $Z Pal #
# #
# $c extern int atoi(); #
# $c extern int *getenv(); #
# #
# $c #define NA0 (atoi(getenv("PremiereA"))) #
# $c #define NA (atoi(getenv("DerniereA"))) #
# #
# $c #define NR0 1 #
# $c #define NR 4 #
# $c #define PAS 1 #
# #
# $c int main() #
# $c { #
# $c int n1; #
# #
# $c for (n1=NA0 ; n1<=NA ; n1++) #
# $c { #
# $c int n2=NR0; #
# #
# $c printf("$xci/acces$X #
# $c A=$xiim_LACT29/REFL.%d.%04d$ROUGE #
# $c R=$xTV/REFL.%04d$ROUGE #
# $c $formatI\n" #
# $c ,n2,n1,n2 #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xiim_LACT29/REFL.%d.%04d$VERTE #
# $c R=$xTV/REFL.%04d$VERTE #
# $c $formatI\n" #
# $c ,n2,n1,n2 #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xiim_LACT29/REFL.%d.%04d$BLEUE #
# $c R=$xTV/REFL.%04d$BLEUE #
# $c $formatI\n" #
# $c ,n2,n1,n2 #
# $c ); #
# $c n2=n2+PAS; #
# #
# $c printf("$xci/acces$X #
# $c A=$xiim_LACT29/REFL.%d.%04d$ROUGE #
# $c R=$xTV/REFL.%04d$ROUGE #
# $c $formatI\n" #
# $c ,n2,n1,n2 #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xiim_LACT29/REFL.%d.%04d$VERTE #
# $c R=$xTV/REFL.%04d$VERTE #
# $c $formatI\n" #
# $c ,n2,n1,n2 #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xiim_LACT29/REFL.%d.%04d$BLEUE #
# $c R=$xTV/REFL.%04d$BLEUE #
# $c $formatI\n" #
# $c ,n2,n1,n2 #
# $c ); #
# $c n2=n2+PAS; #
# #
# $c printf("$xci/acces$X #
# $c A=$xiim_LACT27/REFL.%d.%04d$ROUGE #
# $c R=$xTV/REFL.%04d$ROUGE #
# $c $formatI\n" #
# $c ,n2,n1,n2 #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xiim_LACT27/REFL.%d.%04d$VERTE #
# $c R=$xTV/REFL.%04d$VERTE #
# $c $formatI\n" #
# $c ,n2,n1,n2 #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xiim_LACT27/REFL.%d.%04d$BLEUE #
# $c R=$xTV/REFL.%04d$BLEUE #
# $c $formatI\n" #
# $c ,n2,n1,n2 #
# $c ); #
# $c n2=n2+PAS; #
# #
# $c printf("$xci/acces$X #
# $c A=$xiim_LACT27/REFL.%d.%04d$ROUGE #
# $c R=$xTV/REFL.%04d$ROUGE #
# $c $formatI\n" #
# $c ,n2,n1,n2 #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xiim_LACT27/REFL.%d.%04d$VERTE #
# $c R=$xTV/REFL.%04d$VERTE #
# $c $formatI\n" #
# $c ,n2,n1,n2 #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xiim_LACT27/REFL.%d.%04d$BLEUE #
# $c R=$xTV/REFL.%04d$BLEUE #
# $c $formatI\n" #
# $c ,n2,n1,n2 #
# $c ); #
# $c n2=n2+PAS; #
# #
# $c printf("$xci/reduction_04$Z #
# $c $xTV/REFL. #
# $c $xTV/REFL #
# $c %d %d\n" #
# $c ,NR0,NR #
# $c ); #
# #
# $c printf("$xci/acces$X #
# $c A=$xTV/REFL$R04$ROUGE #
# $c R=$xiim/REFL.5.%04d$ROUGE #
# $c $formatI\n" #
# $c ,n1 #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xTV/REFL$R04$VERTE #
# $c R=$xiim/REFL.5.%04d$VERTE #
# $c $formatI\n" #
# $c ,n1 #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xTV/REFL$R04$BLEUE #
# $c R=$xiim/REFL.5.%04d$BLEUE #
# $c $formatI\n" #
# $c ,n1 #
# $c ); #
# $c } #
# $c } #
# #
# #
# $Z Pal #
# #
# $Z $xci/reduction_16$Z $xiim/REFL.5. $xiak/REFL.U1 $Premiere $Derniere #
# $Z $xci/reduction_64$Z $xiim/REFL.5. $xiak/REFL.U1 $Premiere $Derniere #
# #
# $X $xci/genere$X c='ro $xiak/REFL.U1$R16%s' RVB=VRAI #
# $X $xci/genere$X c='ro $xiak/REFL.U1$R64%s' RVB=VRAI #
# #
# $X $xci/genere$X c='$xcg/unite$Z $xiak/REFL.U1$R16%s' RVB=VRAI #
# $X $xci/genere$X c='$xcg/unite$Z $xiak/REFL.U1$R64%s' RVB=VRAI #
# #
# $X $xci/genere$X c='$CP $xiim/REFL.5.0512%s $xiirk/REFL.U1.0512%s' RVB=VRAI #
# $X $xci/genere$X c='ro $xiirk/REFL.U1.0512%s' RVB=VRAI #
# $X $xci/genere$X c='$xcg/unite$Z $xiirk/REFL.U1.0512%s' RVB=VRAI #
# #
# #
# Pal #
# #
# #
# $xci/disk_video_P$Z $xiim_LACT29/REFL.5. 0001 0512 RVB \ #
# 11 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
# #
# xivPdf 3 2 #
# #
# record.01$Z $xiak/REFL.U1$R16 RVB Initialisation #
# record.01$Z $xiak/REFL.U1$R64 RVB rien #
# record.01$Z $xiirk/REFL.U1.0512 RVB rien #
# #
sequence 028308_028819
# Generee (sur '$LACT29') par : #
# #
# $Z unsetenv PremiereA #
# $Z unsetenv DerniereA #
# #
# $Z SET tPremiereA=1 #
# $Z SET tDerniereA=512 #
# $Z set Premiere=$tPremiereA #
# $Z @ NimagesA = $tDerniereA - $tPremiereA #
# $Z @ NimagesA = $NimagesA + 1 #
# $Z @ Nimages = $NimagesA #
# $Z @ Nimages = $Nimages - 1 #
# $Z @ Derniere = $Premiere + $Nimages #
# $Z @ Derniere = $Derniere - 1 #
# #
# $Z SETENV PremiereA $tPremiereA #
# $Z SETENV DerniereA $tDerniereA #
# #
# $X echo "echo ATTENTION : 'PremiereA' et 'DerniereA' mis dans 'env'." #
# #
# #
# $Z Pal #
# #
# $Z set PUnivers="np=0 CAL1=FAUX editer_l_univers_physique=VRAI" #
# $Z set Univers=`$xrk/rdn_walk.41$X $PUnivers $formatI` #
# #
# $Z set MinX=`echo $Univers | $SE -e "s/^.*[(,]XUI=//" -e "s/[,)].*//"` #
# $Z set MaxX=`echo $Univers | $SE -e "s/^.*[(,]XUS=//" -e "s/[,)].*//"` #
# $Z set MinY=`echo $Univers | $SE -e "s/^.*[(,]YUI=//" -e "s/[,)].*//"` #
# $Z set MaxY=`echo $Univers | $SE -e "s/^.*[(,]YUS=//" -e "s/[,)].*//"` #
# #
# $Z set MinX=`$xcg/ABSO.01$X x=$MinX` #
# $Z set MaxX=`$xcg/ABSO.01$X x=$MaxX` #
# $Z set MinY=`$xcg/ABSO.01$X x=$MinY` #
# $Z set MaxY=`$xcg/ABSO.01$X x=$MaxY` #
# #
# $Z set MaxX=`$xcg/MAX2.01$X n1=$MinX n2=$MaxX` #
# $Z set MaxY=`$xcg/MAX2.01$X n1=$MinY n2=$MaxY` #
# #
# $Z set SeuilPartN=1.0 #
# $Z set GrainePartN=2 #
# $Z set ForceX=0.01 #
# $Z set ForceY=0.01 #
# #
# $Z $DELETE $xTV/BOITE.1 #
# $Z $DELETE $xTV/BOITE.2 #
# $Z $DELETE $xTV/BOITE.3 #
# $Z $DELETE $xTV/BOITE.3$ROUGE #
# $Z $DELETE $xTV/BOITE.3$VERTE #
# $Z $DELETE $xTV/BOITE.3$BLEUE #
# $Z $DELETE $xTV/BOITE.6 #
# $Z $DELETE $xTV/BOITE.A #
# $Z $DELETE $xTV/BOITE.B #
# #
# #
# $Z Std #
# #
# $Z set FacXY=0.85 #
# $Z set SeuilBOITE=`$xcg/SOUS.01$X a=1 b=$FacXY` #
# $Z set SeuilBOITE=`$xcg/MUL2.01$X a=$SeuilBOITE b=$GRIS_8` #
# $Z set SeuilBOITE=`$xci/valeurs_inte$X p=1 d=1 vD=$SeuilBOITE entiers=VRAI` #
# $Z set SeuilBOITE=`$xcg/MIN2.01$X a=$SeuilBOITE b=$GRIS_1` #
# #
# $Z $xci/complement$X \ #
# $Z A=$xiio/SPIRALE \ #
# $Z $formatI | \ #
# $Z $xci/seuil$X \ #
# $Z seuil=$SeuilBOITE \ #
# $Z R=$xTV/BOITE.6 \ #
# $Z $formatI #
# #
# $Z S #
# #
# $Z $xci/format.01$X mode=0 \ #
# $Z A=$xTV/BOITE.6 \ #
# $Z $formatI \ #
# $Z R=$xTV/BOITE.1 \ #
# $Z $formatR_Pal #
# #
# $Z $xci/dilate.01$X \ #
# $Z A=$xTV/BOITE.6 \ #
# $Z points=225 \ #
# $Z dilater=FAUX \ #
# $Z R=$xTV/BOITE.A \ #
# $Z $formatI #
# #
# $Z $xci/random.02$X \ #
# $Z seuil=$SeuilPartN \ #
# $Z graine=$GrainePartN \ #
# $Z px=22 py=22 \ #
# $Z $formatI | \ #
# $Z $xci/shuffling.01$X \ #
# $Z inverse=FAUX \ #
# $Z NOIR=FAUX \ #
# $Z fX=$ForceX fY=$ForceY \ #
# $Z graine=$GrainePartN \ #
# $Z $formatI | \ #
# $Z $xci/and$X \ #
# $Z A2=$xTV/BOITE.A \ #
# $Z R=$xTV/BOITE.B \ #
# $Z $formatI #
# #
# $Z $DELETE $xTV/COORDONNEES #
# $Z $DELETE $xTV/COORDONNEES_01$COORD_X #
# $Z $DELETE $xTV/COORDONNEES_01$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_X #
# $Z $DELETE $xTV/COORDONNEES$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_Z #
# #
# $Z $xci/liste_points$X \ #
# $Z A=$xTV/BOITE.B \ #
# $Z $formatI \ #
# $Z > $xTV/COORDONNEES #
# #
# $Z $DELETE $xTV/BOITE.6 #
# $Z $DELETE $xTV/BOITE.A #
# $Z $DELETE $xTV/BOITE.B #
# #
# $Z set PartN=`$TAI -1 $xTV/COORDONNEES | $SE -e "s/^.*=//"` #
# #
# $Z $CA $xTV/COORDONNEES \ #
# $Z | $GRE "^[Xx]=" \ #
# $Z | $SE -e "s/^[Xx]=//" \ #
# $Z > $xTV/COORDONNEES_01$COORD_X #
# $Z $CA $xTV/COORDONNEES \ #
# $Z | $GRE "^[Yy]=" \ #
# $Z | $SE -e "s/^[Yy]=//" \ #
# $Z > $xTV/COORDONNEES_01$COORD_Y #
# #
# $Z set EchelleX=`$xcg/MUL2.01$X n1=2 n2=$MaxX` #
# $Z set TranslationX=`$xcg/MUL2.01$X n1=-1 n2=$MaxX` #
# $Z set EchelleY=`$xcg/MUL2.01$X n1=2 n2=$MaxY` #
# $Z set TranslationY=`$xcg/MUL2.01$X n1=-1 n2=$MaxY` #
# #
# $Z $xrv/AXPB.01$X \ #
# $Z CAL1=FAUX \ #
# $Z ne=$PartN \ #
# $Z fichier=$xTV/COORDONNEES_01$COORD_X \ #
# $Z homothetie=$EchelleX translation=$TranslationX \ #
# $Z > $xTV/COORDONNEES$COORD_X #
# $Z $xrv/AXPB.01$X \ #
# $Z CAL1=FAUX \ #
# $Z ne=$PartN \ #
# $Z fichier=$xTV/COORDONNEES_01$COORD_Y \ #
# $Z homothetie=$EchelleY translation=$TranslationY \ #
# $Z > $xTV/COORDONNEES$COORD_Y #
# #
# $Z $DELETE $xTV/COORDONNEES_01$COORD_X #
# $Z $DELETE $xTV/COORDONNEES_01$COORD_Y #
# #
# $Z set Part0=1 #
# $Z @ Npart = $PartN - $Part0 #
# $Z @ Npart = $Npart + 1 #
# $Z @ NpartS2 = $Npart / 2 #
# $Z set Part01=$Part0 #
# $Z @ PartN1 = $Part01 + $NpartS2 #
# $Z @ PartN1 = $PartN1 - 1 #
# $Z @ Part02 = $PartN1 + 1 #
# $Z set PartN2=$PartN #
# #
# $Z $DELETE $xTV/PERMUTATIONS #
# $Z $DELETE $xTV/MODULE #
# $Z $DELETE $xTV/MODULE.1 #
# $Z $DELETE $xTV/THETA #
# $Z $DELETE $xTV/XY_RT.1 #
# $Z $DELETE $xTV/XY_RT.2 #
# $Z $DELETE $xTV/VITESSES #
# $Z $DELETE $xTV/VITESSES$COORD_X #
# $Z $DELETE $xTV/VITESSES$COORD_Y #
# $Z $DELETE $xTV/VITESSES$COORD_Z #
# $Z $DELETE $xTV/mdRHO #
# $Z $DELETE $xTV/MdRHO #
# $Z $DELETE $xTV/mnPHI #
# $Z $DELETE $xTV/MnPHI #
# $Z $DELETE $xTV/dPHI #
# $Z $DELETE $xTV/mnTHETA #
# $Z $DELETE $xTV/MnTHETA #
# $Z $DELETE $xTV/dTHETA #
# $Z $DELETE $xTV/supOUVE #
# $Z $DELETE $xTV/DISTANCE #
# $Z $DELETE $xTV/STABILITE #
# $Z $DELETE $xTV/RAYONS #
# $Z $DELETE $xTV/INTERACTIONS #
# #
# #
# $Z alias Gen 'set Fi=\!:1 ; set vD=\!:2 ; set vA=\!:3 ; set ArG=(\!:4*) ; \\ #
# $Z $DELETE $Fi ; \\ #
# $Z $xci/valeurs_inte$X p=$Part0 d=$PartN vD=$vD vA=$vA $ArG > $Fi ; \\ #
# $Z unset Fi vD vA ArG' #
# #
# $Z alias GenR 'set Fi=\!:1 ; set In=\!:2 ; set Su=\!:3 ; set ArG=(\!:4*) ; \\ #
# $Z $DELETE $Fi ; \\ #
# $Z $xci/valeurs_alea$X p=$Part0 d=$PartN signe="$KV" inf=$In sup=$Su $ArG > $Fi ; \\ #
# $Z unset Fi In Su ArG' #
# #
# $Z Gen $xTV/COORDONNEES$COORD_Z 0.0 0.0 #
# #
# #
# $Z @ IPart0 = $Part0 - $Part0 #
# $Z @ IPartN = $PartN - $Part0 #
# $Z $xci/valeurs_alea$X \ #
# $Z p=$IPart0 d=$IPartN \ #
# $Z inf=$IPart0 sup=$IPartN \ #
# $Z entiers=VRAI sans_collisions=VRAI \ #
# $Z CAL1=FAUX \ #
# $Z > $xTV/PERMUTATIONS #
# #
# $Z set PetiteVitesse=0.005 #
# $Z set GrandeVitesse=0.020 #
# #
# $Z $xci/valeurs_inte$X premiere=$Part01 derniere=$PartN1 \ #
# $Z vD=$GrandeVitesse vA=$GrandeVitesse \ #
# $Z cubique=FAUX \ #
# $Z > $xTV/MODULE.1 #
# $Z $xci/valeurs_inte$X premiere=$Part02 derniere=$PartN2 \ #
# $Z vD=$PetiteVitesse vA=$PetiteVitesse \ #
# $Z cubique=FAUX \ #
# $Z >>! $xTV/MODULE.1 #
# $Z $xrv/permute.11$X \ #
# $Z CAL1=FAUX \ #
# $Z ne=$PartN \ #
# $Z fichier=$xTV/MODULE.1 \ #
# $Z permutation=$xTV/PERMUTATIONS \ #
# $Z > $xTV/MODULE #
# #
# $Z GenR $xTV/THETA 0.0 $dpi g=3333 #
# #
# $Z $CA $xcs/csh$Y \ #
# $Z > $xTV/XY_RT.1 #
# $Z $PAST $xTV/MODULE $xTV/THETA \ #
# $Z | $R "$K_TAB" "$K_BLANC" \ #
# $Z | $AW ' { print "$xcg/XY_RT$X r=" $1 " t=" $2 " cartesien=FAUX" } ' \ #
# $Z >>! $xTV/XY_RT.1 #
# #
# $Z (source $xTV/XY_RT.1) \ #
# $Z > $xTV/XY_RT.2 #
# #
# $Z $CA $xTV/XY_RT.2 \ #
# $Z | $GRE "^x=" \ #
# $Z | $SE -e "s/^x=//" \ #
# $Z > $xTV/VITESSES$COORD_X #
# $Z $CA $xTV/XY_RT.2 \ #
# $Z | $GRE "^y=" \ #
# $Z | $SE -e "s/^y=//" \ #
# $Z > $xTV/VITESSES$COORD_Y #
# #
# $Z Gen $xTV/VITESSES$COORD_Z 0.0 0.0 #
# #
# $Z Gen $xTV/mdRHO 0.0 0.0 #
# $Z Gen $xTV/MdRHO 0.0 0.0 #
# $Z Gen $xTV/mnPHI 0.0 0.0 #
# $Z Gen $xTV/MnPHI 0.0 0.0 #
# $Z Gen $xTV/dPHI 0.0 0.0 #
# $Z Gen $xTV/mnTHETA 0.0 0.0 #
# $Z Gen $xTV/MnTHETA 0.0 0.0 #
# $Z Gen $xTV/dTHETA 0.0 0.0 #
# $Z Gen $xTV/DISTANCE 1000000 1000000 #
# $Z Gen $xTV/STABILITE 1000000 1000000 #
# #
# $Z set RayonsT=0.014 #
# $Z set RayonsP=`$xcg/MUL2.01$X a=2 b=$RayonsT` #
# $Z set DistanceI=`$xcg/MUL2.01$X a=4 b=$RayonsP` #
# $Z Gen $xTV/RAYONS $RayonsT $RayonsT #
# $Z Gen $xTV/INTERACTIONS $RayonsP $RayonsP #
# #
# $Z $DELETE $xTV/COULEURS.1$ROUGE #
# $Z $DELETE $xTV/COULEURS.1$VERTE #
# $Z $DELETE $xTV/COULEURS.1$BLEUE #
# $Z $DELETE $xTV/COULEURS$ROUGE #
# $Z $DELETE $xTV/COULEURS$VERTE #
# $Z $DELETE $xTV/COULEURS$BLEUE #
# #
# $Z $xci/valeurs_inte$X premiere=$Part01 derniere=$PartN1 \ #
# $Z vD=$GRIS_8 vA=$GRIS_8 \ #
# $Z cubique=FAUX \ #
# $Z entiers=VRAI \ #
# $Z > $xTV/COULEURS.1$ROUGE #
# $Z $xci/valeurs_inte$X premiere=$Part02 derniere=$PartN2 \ #
# $Z vD=$GRIS_0 vA=$GRIS_0 \ #
# $Z cubique=FAUX \ #
# $Z entiers=VRAI \ #
# $Z >>! $xTV/COULEURS.1$ROUGE #
# $Z $xci/valeurs_inte$X premiere=$Part01 derniere=$PartN1 \ #
# $Z vD=$GRIS_6 vA=$GRIS_6 \ #
# $Z cubique=FAUX \ #
# $Z entiers=VRAI \ #
# $Z > $xTV/COULEURS.1$VERTE #
# $Z $xci/valeurs_inte$X premiere=$Part02 derniere=$PartN2 \ #
# $Z vD=$GRIS_7 vA=$GRIS_7 \ #
# $Z cubique=FAUX \ #
# $Z entiers=VRAI \ #
# $Z >>! $xTV/COULEURS.1$VERTE #
# $Z $xci/valeurs_inte$X premiere=$Part01 derniere=$PartN1 \ #
# $Z vD=$GRIS_0 vA=$GRIS_0 \ #
# $Z cubique=FAUX \ #
# $Z entiers=VRAI \ #
# $Z > $xTV/COULEURS.1$BLEUE #
# $Z $xci/valeurs_inte$X premiere=$Part02 derniere=$PartN2 \ #
# $Z vD=$GRIS_8 vA=$GRIS_8 \ #
# $Z cubique=FAUX \ #
# $Z entiers=VRAI \ #
# $Z >>! $xTV/COULEURS.1$BLEUE #
# #
# $Z $xrv/permute.11$X \ #
# $Z CAL1=FAUX \ #
# $Z ne=$PartN \ #
# $Z fichier=$xTV/COULEURS.1$ROUGE \ #
# $Z permutation=$xTV/PERMUTATIONS \ #
# $Z > $xTV/COULEURS$ROUGE #
# $Z $xrv/permute.11$X \ #
# $Z CAL1=FAUX \ #
# $Z ne=$PartN \ #
# $Z fichier=$xTV/COULEURS.1$VERTE \ #
# $Z permutation=$xTV/PERMUTATIONS \ #
# $Z > $xTV/COULEURS$VERTE #
# $Z $xrv/permute.11$X \ #
# $Z CAL1=FAUX \ #
# $Z ne=$PartN \ #
# $Z fichier=$xTV/COULEURS.1$BLEUE \ #
# $Z permutation=$xTV/PERMUTATIONS \ #
# $Z > $xTV/COULEURS$BLEUE #
# #
# $Z Pal #
# #
# #
# $Z $xci/scale$X \ #
# $Z A=$xTV/BOITE.1 \ #
# $Z a=1.00 \ #
# $Z R=$xTV/BOITE.2 \ #
# $Z $formatI #
# #
# $Z $DELETE $xTV/RAYONS #
# $Z $CP $xTV/INTERACTIONS $xTV/RAYONS #
# #
# $Z $xrk/rdn_walk.41$X corps=$Npart \ #
# $Z np=$NimagesA \ #
# $Z collisions=VRAI DLA=FAUX interaction=$DistanceI \ #
# $Z LISTE_X=$xTV/COORDONNEES$COORD_X \ #
# $Z LISTE_Y=$xTV/COORDONNEES$COORD_Y \ #
# $Z LISTE_Z=$xTV/COORDONNEES$COORD_Z \ #
# $Z LISTE_VX=$xTV/VITESSES$COORD_X \ #
# $Z LISTE_VY=$xTV/VITESSES$COORD_Y \ #
# $Z LISTE_VZ=$xTV/VITESSES$COORD_Z \ #
# $Z LISTE_MINIMUM_DELTA_RHO=$xTV/mdRHO \ #
# $Z LISTE_MAXIMUM_DELTA_RHO=$xTV/MdRHO \ #
# $Z LISTE_MINIMUM_N_PHI=$xTV/mnPHI \ #
# $Z LISTE_MAXIMUM_N_PHI=$xTV/MnPHI \ #
# $Z LISTE_DELTA_PHI=$xTV/dPHI \ #
# $Z LISTE_MINIMUM_N_THETA=$xTV/mnTHETA \ #
# $Z LISTE_MAXIMUM_N_THETA=$xTV/MnTHETA \ #
# $Z LISTE_DELTA_THETA=$xTV/dTHETA \ #
# $Z LISTE_DISTANCE_MAXIMALE=$xTV/DISTANCE \ #
# $Z LISTE_STABILITE=$xTV/STABILITE \ #
# $Z LISTE_RAYON=$xTV/RAYONS \ #
# $Z LISTE_RAYON_D_INTERACTION=$xTV/INTERACTIONS \ #
# $Z LISTE_ROUGE=$xTV/COULEURS$ROUGE \ #
# $Z LISTE_VERTE=$xTV/COULEURS$VERTE \ #
# $Z LISTE_BLEUE=$xTV/COULEURS$BLEUE \ #
# $Z milieu=VRAI \ #
# $Z reflexion=VRAI refraction=FAUX \ #
# $Z Mhors=$BLANC \ #
# $Z MNpasX=1 Mprolonger_X=VRAI \ #
# $Z MNpasY=1 Mprolonger_Y=VRAI \ #
# $Z MNpasZ=1 Mprolonger_Z=VRAI \ #
# $Z adapter_M_nPAS=VRAI \ #
# $Z Msimplifier=FAUX affiner_M_maillage=FAUX \ #
# $Z MC=$xTV/BOITE.2 \ #
# $Z MChiffres=0 \ #
# $Z Zmin=0 Zmax=15 \ #
# $Z centrer=VRAI \ #
# $Z dct=0.05 nombre=40 \ #
# $Z trainees=FAUX \ #
# $Z renormaliser=FAUX \ #
# $Z Lz=100 \ #
# $Z zoom_automatique=VRAI \ #
# $Z centre_de_gravite=FAUX \ #
# $Z fond=FAUX \ #
# $Z R=$xiim/REFL.Wa. \ #
# $Z $formatI #
# #
# $Z $DELETE $xTV/PERMUTATIONS #
# $Z $DELETE $xTV/MODULE #
# $Z $DELETE $xTV/MODULE.1 #
# $Z $DELETE $xTV/THETA #
# $Z $DELETE $xTV/COORDONNEES #
# $Z $DELETE $xTV/COORDONNEES$COORD_X #
# $Z $DELETE $xTV/COORDONNEES$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_Z #
# $Z $DELETE $xTV/VITESSES #
# $Z $DELETE $xTV/VITESSES$COORD_X #
# $Z $DELETE $xTV/VITESSES$COORD_Y #
# $Z $DELETE $xTV/VITESSES$COORD_Z #
# $Z $DELETE $xTV/mdRHO #
# $Z $DELETE $xTV/MdRHO #
# $Z $DELETE $xTV/mnPHI #
# $Z $DELETE $xTV/MnPHI #
# $Z $DELETE $xTV/dPHI #
# $Z $DELETE $xTV/mnTHETA #
# $Z $DELETE $xTV/MnTHETA #
# $Z $DELETE $xTV/dTHETA #
# $Z $DELETE $xTV/DISTANCE #
# $Z $DELETE $xTV/STABILITE #
# $Z $DELETE $xTV/RAYONS #
# $Z $DELETE $xTV/INTERACTIONS #
# $Z $DELETE $xTV/COULEURS.1$ROUGE #
# $Z $DELETE $xTV/COULEURS.1$VERTE #
# $Z $DELETE $xTV/COULEURS.1$BLEUE #
# $Z $DELETE $xTV/COULEURS$ROUGE #
# $Z $DELETE $xTV/COULEURS$VERTE #
# $Z $DELETE $xTV/COULEURS$BLEUE #
# #
# #
# #
# #
# $Z $xci/complement$X A=$xTV/BOITE.1 \ #
# $Z R=$xTV/BOITE.3 \ #
# $Z $formatI #
# #
# $Z eval `$xci/genere$X \\\ #
# $Z commande='($xci/scale$X \\\ #
# $Z A=$xTV/BOITE.3 \\\ #
# $Z a=0.50 \\\ #
# $Z R=$xTV/BOITE.3%s \\\ #
# $Z $formatI)' \\\ #
# $Z en_tete=FAUX RVB=VRAI separateur=VRAI` #
# #
# #
# #
# $c extern int atoi(); #
# $c extern int *getenv(); #
# #
# $c #define NA0 (atoi(getenv("PremiereA"))) #
# $c #define NA (atoi(getenv("DerniereA"))) #
# #
# $c #define NR0 1 #
# $c #define NR 4 #
# $c #define PAS 1 #
# #
# $c int main() #
# $c { #
# $c int n1; #
# #
# $c for (n1=NA0 ; n1<=NA ; n1++) #
# $c { #
# $c printf("$xci/cache.11$Z #
# $c $xiim/REFL.Wa.%04d #
# $c $xTV/BOITE.3 #
# $c $xiim/REFL.6.%04d\n" #
# $c ,n1,n1 #
# $c ); #
# $c } #
# $c } #
# #
# #
# $Z $DELETE $xTV/BOITE.1 #
# $Z $DELETE $xTV/BOITE.2 #
# $Z $DELETE $xTV/BOITE.3 #
# $Z $DELETE $xTV/BOITE.3$ROUGE #
# $Z $DELETE $xTV/BOITE.3$VERTE #
# $Z $DELETE $xTV/BOITE.3$BLEUE #
# #
# $Z Pal #
# #
# $Z $xci/reduction_16$Z $xiim/REFL.6. $xiak/REFL.V1 $Premiere $Derniere #
# $Z $xci/reduction_64$Z $xiim/REFL.6. $xiak/REFL.V1 $Premiere $Derniere #
# #
# $X $xci/genere$X c='ro $xiak/REFL.V1$R16%s' RVB=VRAI #
# $X $xci/genere$X c='ro $xiak/REFL.V1$R64%s' RVB=VRAI #
# #
# $X $xci/genere$X c='$xcg/unite$Z $xiak/REFL.V1$R16%s' RVB=VRAI #
# $X $xci/genere$X c='$xcg/unite$Z $xiak/REFL.V1$R64%s' RVB=VRAI #
# #
# #
# Pal #
# #
# #
# $xci/disk_video_P$Z $xiim_LACT29/REFL.6. 001 512 RVB \ #
# 11 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
# #
# xivPdf 3 2 #
# #
# record.01$Z $xiak/REFL.V1$R16 RVB Initialisation #
# record.01$Z $xiak/REFL.V1$R64 RVB rien #
# #
sequence 028820_029331
# Generee (sur '$LACT29') par : #
# #
# #
# $Z SET Premiere=1 #
# $Z SET Derniere=512 #
# #
# $Z @ Nimages = $Derniere - $Premiere #
# $Z @ Nimages = $Nimages + 1 #
# #
# #
# $Z Pal #
# #
# #
# $c #define N0 Premiere #
# $c #define N Derniere #
# $c #define NOMBRE 60 #
# #
# $c int main() #
# $c { #
# $c int n; #
# #
# $c for (n=N0 ; n<=N ; n++) #
# $c { #
# $c int premiere=n-NOMBRE+1; #
# $c int derniere=n; #
# #
# $c premiere=((premiere>=N0) ? premiere : N0); #
# #
# $c printf("$xci/accumule.01$X #
# $c A=$xiim/REFL.6. #
# $c postfixe=$ROUGE #
# $c premiere=%d #
# $c derniere=%d #
# $c maximum=VRAI #
# $c attenuation=0 #
# $c R=$xiim/REFL.7.%04d$ROUGE #
# $c $formatI\n" #
# $c ,premiere,derniere,n #
# $c ); #
# $c printf("$xci/accumule.01$X #
# $c A=$xiim/REFL.6. #
# $c postfixe=$VERTE #
# $c premiere=%d #
# $c derniere=%d #
# $c maximum=VRAI #
# $c attenuation=0 #
# $c R=$xiim/REFL.7.%04d$VERTE #
# $c $formatI\n" #
# $c ,premiere,derniere,n #
# $c ); #
# $c printf("$xci/accumule.01$X #
# $c A=$xiim/REFL.6. #
# $c postfixe=$BLEUE #
# $c premiere=%d #
# $c derniere=%d #
# $c maximum=VRAI #
# $c attenuation=0 #
# $c R=$xiim/REFL.7.%04d$BLEUE #
# $c $formatI\n" #
# $c ,premiere,derniere,n #
# $c ); #
# $c } #
# $c } #
# #
# #
# $Z Pal #
# #
# $Z $xci/reduction_16$Z $xiim/REFL.7. $xiak/REFL.V2 $Premiere $Derniere #
# $Z $xci/reduction_64$Z $xiim/REFL.7. $xiak/REFL.V2 $Premiere $Derniere #
# #
# $X $xci/genere$X c='ro $xiak/REFL.V2$R16%s' RVB=VRAI #
# $X $xci/genere$X c='ro $xiak/REFL.V2$R64%s' RVB=VRAI #
# #
# $X $xci/genere$X c='$xcg/unite$Z $xiak/REFL.V2$R16%s' RVB=VRAI #
# $X $xci/genere$X c='$xcg/unite$Z $xiak/REFL.V2$R64%s' RVB=VRAI #
# #
# #
# Pal #
# #
# #
# $xci/disk_video_P$Z $xiim_LACT29/REFL.7. 001 512 RVB \ #
# 11 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
# #
# xivPdf 3 2 #
# #
# record.01$Z $xiak/REFL.V2$R16 RVB Initialisation #
# record.01$Z $xiak/REFL.V2$R64 RVB rien #
# #
# #
sequence 029332_029459
# Generee (sur '$LACT29') par : #
# #
# $Z SET Premiere=1 #
# $Z SET Derniere=128 #
# $Z @ Nimages = $Derniere - $Premiere #
# $Z @ Nimages = $Nimages + 1 #
# $Z @ Moitie = $Nimages / 2 #
# #
# #
# $Z Pal #
# #
# #
# $Z $DELETE $xTV/COORDONNEES_01$COORD_X #
# $Z $DELETE $xTV/COORDONNEES_01$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_X #
# $Z $DELETE $xTV/COORDONNEES$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_Z #
# #
# $Z alias GenL 'set Fi=\!:1 ; set LiStE=(\!:2*) ; \\ #
# $Z $DELETE $Fi ; \\ #
# $Z echo "$LiStE" | $R "$K_BLANC" "$K_NL" > $Fi ; \\ #
# $Z unset Fi LiStE' #
# #
# #
# $Z set Echelle=2.0 #
# $Z set Translation=-1 #
# $Z set EchelleX=$Echelle #
# $Z set TranslationX=$Translation #
# $Z set EchelleY=$Echelle #
# $Z set TranslationY=$Translation #
# #
# $Z set PasDeTemps=0.05 #
# $Z set NPasDeTemps=10 #
# $Z set ModuleVitesse=0.010 #
# #
# $Z set RayonsT=`$xcg/MUL2.01$X n1=$NPasDeTemps n2=$PasDeTemps` #
# $Z set RayonsT=`$xcg/MUL2.01$X n1=$ModuleVitesse n2=$RayonsT` #
# $Z set RayonsT=`$xcg/MUL2.01$X n1=12 n2=$RayonsT` #
# $Z set RayonsV=`$xcg/MUL2.01$X n1=1.15 n2=$RayonsT` #
# $Z set RayonsP=`$xcg/MUL2.01$X n1=2 n2=$RayonsT` #
# $Z set DistanceI=`$xcg/MUL2.01$X n1=4 n2=$RayonsP` #
# #
# $Z set Distance=`$xcg/MUL2.01$X n1=$NPasDeTemps n2=$PasDeTemps` #
# $Z set Distance=`$xcg/MUL2.01$X n1=$ModuleVitesse n2=$Distance` #
# $Z set Distance=`$xcg/MUL2.01$X n1=$Moitie n2=$Distance` #
# $Z set RayonsD=`$xcg/DIVZ.01$X n1=$RayonsT n2=$Echelle` #
# $Z set Distance=`$xcg/ADD2.01$X n1=$Distance n2=$RayonsD` #
# $Z set Distance=`$xcg/ADD2.01$X n1=$Distance n2=$RayonsD` #
# #
# $Z set ModuleVitesse=`$xcg/MUL2.01$X n1=$Echelle n2=$ModuleVitesse` #
# #
# $Z set Centre=0.5 #
# #
# $Z set Theta=-0.6 #
# #
# $Z set XHaut=$Distance #
# $Z set YHaut=0 #
# $Z set Options="cartesien=VRAI eX=FAUX eY=FAUX eRHO=FAUX eTHETA=FAUX" #
# $Z set RHaut=`$xcg/XY_RT$X X=$XHaut Y=$YHaut $Options eRHO=VRAI` #
# $Z set RHaut=`echo $RHaut | $SE "s/^.*=//"` #
# $Z set THaut=`$xcg/XY_RT$X X=$XHaut Y=$YHaut $Options eTHETA=VRAI` #
# $Z set THaut=`echo $THaut | $SE "s/^.*=//"` #
# $Z set THaut=`$xcg/SOUS.01$X n1=$THaut n2=$Theta` #
# $Z set Options="cartesien=FAUX eX=FAUX eY=FAUX eRHO=FAUX eTHETA=FAUX" #
# $Z set XHaut=`$xcg/XY_RT$X R=$RHaut T=$THaut $Options eX=VRAI` #
# $Z set XHaut=`echo $XHaut | $SE "s/^.*=//"` #
# $Z set XHaut=`$xcg/ADD2.01$X n1=$XHaut n2=$Centre` #
# $Z set YHaut=`$xcg/XY_RT$X R=$RHaut T=$THaut $Options eY=VRAI` #
# $Z set YHaut=`echo $YHaut | $SE "s/^.*=//"` #
# $Z set YHaut=`$xcg/ADD2.01$X n1=$YHaut n2=$Centre` #
# #
# $Z set XBas=$Distance #
# $Z set YBas=0 #
# $Z set Options="cartesien=VRAI eX=FAUX eY=FAUX eRHO=FAUX eTHETA=FAUX" #
# $Z set RBas=`$xcg/XY_RT$X X=$XBas Y=$YBas $Options eRHO=VRAI` #
# $Z set RBas=`echo $RBas | $SE "s/^.*=//"` #
# $Z set TBas=`$xcg/XY_RT$X X=$XBas Y=$YBas $Options eTHETA=VRAI` #
# $Z set TBas=`echo $TBas | $SE "s/^.*=//"` #
# $Z set TBas=`$xcg/ADD2.01$X n1=$TBas n2=$Theta` #
# $Z set Options="cartesien=FAUX eX=FAUX eY=FAUX eRHO=FAUX eTHETA=FAUX" #
# $Z set XBas=`$xcg/XY_RT$X R=$RBas T=$TBas $Options eX=VRAI` #
# $Z set XBas=`echo $XBas | $SE "s/^.*=//"` #
# $Z set XBas=`$xcg/ADD2.01$X n1=$XBas n2=$Centre` #
# $Z set YBas=`$xcg/XY_RT$X R=$RBas T=$TBas $Options eY=VRAI` #
# $Z set YBas=`echo $YBas | $SE "s/^.*=//"` #
# $Z set YBas=`$xcg/ADD2.01$X n1=$YBas n2=$Centre` #
# #
# $Z GenL $xTV/COORDONNEES_01$COORD_X $XHaut $XBas #
# $Z GenL $xTV/COORDONNEES_01$COORD_Y $YHaut $YBas #
# #
# $Z set PartNX=`$WC $xTV/COORDONNEES_01$COORD_X` #
# $Z set PartNX=$PartNX[$WC1] #
# $Z set PartNY=`$WC $xTV/COORDONNEES_01$COORD_Y` #
# $Z set PartNY=$PartNY[$WC1] #
# $Z set PartN=`$xcg/MIN2.01$X n1=$PartNX n2=$PartNY signe="$K_VIDE"` #
# #
# $Z $xrv/AXPB.01$X \ #
# $Z CAL1=FAUX \ #
# $Z ne=$PartN \ #
# $Z fichier=$xTV/COORDONNEES_01$COORD_X \ #
# $Z homothetie=$EchelleX translation=$TranslationX \ #
# $Z > $xTV/COORDONNEES$COORD_X #
# $Z $xrv/AXPB.01$X \ #
# $Z CAL1=FAUX \ #
# $Z ne=$PartN \ #
# $Z fichier=$xTV/COORDONNEES_01$COORD_Y \ #
# $Z homothetie=$EchelleY translation=$TranslationY \ #
# $Z > $xTV/COORDONNEES$COORD_Y #
# #
# $Z $DELETE $xTV/COORDONNEES_01$COORD_X #
# $Z $DELETE $xTV/COORDONNEES_01$COORD_Y #
# #
# #
# $Z set Part0=1 #
# $Z @ Npart = $PartN - $Part0 #
# $Z @ Npart = $Npart + 1 #
# #
# $Z $DELETE $xTV/MODULE #
# $Z $DELETE $xTV/THETA #
# $Z $DELETE $xTV/XY_RT.1 #
# $Z $DELETE $xTV/XY_RT.2 #
# $Z $DELETE $xTV/VITESSES #
# $Z $DELETE $xTV/VITESSES$COORD_X #
# $Z $DELETE $xTV/VITESSES$COORD_Y #
# $Z $DELETE $xTV/VITESSES$COORD_Z #
# $Z $DELETE $xTV/mdRHO #
# $Z $DELETE $xTV/MdRHO #
# $Z $DELETE $xTV/mnPHI #
# $Z $DELETE $xTV/MnPHI #
# $Z $DELETE $xTV/dPHI #
# $Z $DELETE $xTV/mnTHETA #
# $Z $DELETE $xTV/MnTHETA #
# $Z $DELETE $xTV/dTHETA #
# $Z $DELETE $xTV/supOUVE #
# $Z $DELETE $xTV/DISTANCE #
# $Z $DELETE $xTV/STABILITE #
# $Z $DELETE $xTV/RAYONS #
# $Z $DELETE $xTV/INTERACTIONS #
# #
# #
# $Z alias Gen 'set Fi=\!:1 ; set vD=\!:2 ; set vA=\!:3 ; set ArG=(\!:4*) ; \\ #
# $Z $DELETE $Fi ; \\ #
# $Z $xci/valeurs_inte$X p=$Part0 d=$PartN vD=$vD vA=$vA $ArG > $Fi ; \\ #
# $Z unset Fi vD vA ArG' #
# #
# $Z alias GenR 'set Fi=\!:1 ; set In=\!:2 ; set Su=\!:3 ; set ArG=(\!:4*) ; \\ #
# $Z $DELETE $Fi ; \\ #
# $Z $xci/valeurs_alea$X p=$Part0 d=$PartN signe="$KV" inf=$In sup=$Su $ArG > $Fi ; \\ #
# $Z unset Fi In Su ArG' #
# #
# $Z Gen $xTV/COORDONNEES$COORD_Z 0.0 0.0 #
# #
# $Z set VTHaut=`$xcg/SOUS.01$X n1=$pi n2=$Theta` #
# $Z set VTBas=`$xcg/ADD2.01$X n1=$pi n2=$Theta` #
# #
# $Z GenL $xTV/MODULE $ModuleVitesse $ModuleVitesse #
# $Z GenL $xTV/THETA $VTHaut $VTBas #
# #
# $Z $CA $xcs/csh$Y \ #
# $Z > $xTV/XY_RT.1 #
# $Z $PAST $xTV/MODULE $xTV/THETA \ #
# $Z | $R "$K_TAB" "$K_BLANC" \ #
# $Z | $AW ' { print "$xcg/XY_RT$X r=" $1 " t=" $2 " cartesien=FAUX" } ' \ #
# $Z >>! $xTV/XY_RT.1 #
# #
# $Z (source $xTV/XY_RT.1) \ #
# $Z > $xTV/XY_RT.2 #
# #
# $Z $CA $xTV/XY_RT.2 \ #
# $Z | $GRE "^x=" \ #
# $Z | $SE -e "s/^x=//" \ #
# $Z > $xTV/VITESSES$COORD_X #
# $Z $CA $xTV/XY_RT.2 \ #
# $Z | $GRE "^y=" \ #
# $Z | $SE -e "s/^y=//" \ #
# $Z > $xTV/VITESSES$COORD_Y #
# #
# $Z Gen $xTV/VITESSES$COORD_Z 0.0 0.0 #
# #
# $Z Gen $xTV/mdRHO 0.0 0.0 #
# $Z Gen $xTV/MdRHO 0.0 0.0 #
# $Z Gen $xTV/mnPHI 0.0 0.0 #
# $Z Gen $xTV/MnPHI 0.0 0.0 #
# $Z Gen $xTV/dPHI 0.0 0.0 #
# $Z Gen $xTV/mnTHETA 0.0 0.0 #
# $Z Gen $xTV/MnTHETA 0.0 0.0 #
# $Z Gen $xTV/dTHETA 0.0 0.0 #
# $Z Gen $xTV/DISTANCE 1000000 1000000 #
# $Z Gen $xTV/STABILITE 1000000 1000000 #
# #
# $Z Gen $xTV/RAYONS $RayonsV $RayonsV #
# $Z Gen $xTV/INTERACTIONS $RayonsP $RayonsP #
# #
# $Z $DELETE $xTV/COULEURS$ROUGE #
# $Z $DELETE $xTV/COULEURS$VERTE #
# $Z $DELETE $xTV/COULEURS$BLEUE #
# #
# $Z Gen $xTV/COULEURS$ROUGE $GRIS_8 $GRIS_0 #
# $Z Gen $xTV/COULEURS$VERTE $GRIS_7 $GRIS_7 #
# $Z Gen $xTV/COULEURS$BLEUE $GRIS_0 $GRIS_8 #
# #
# $Z Pal #
# #
# $Z $DELETE $xTV/LISTE_POINTS #
# $Z $xrk/rdn_walk.41$X corps=$Npart \ #
# $Z np=$Nimages \ #
# $Z collisions=VRAI DLA=FAUX interaction=$DistanceI \ #
# $Z LISTE_X=$xTV/COORDONNEES$COORD_X \ #
# $Z LISTE_Y=$xTV/COORDONNEES$COORD_Y \ #
# $Z LISTE_Z=$xTV/COORDONNEES$COORD_Z \ #
# $Z LISTE_VX=$xTV/VITESSES$COORD_X \ #
# $Z LISTE_VY=$xTV/VITESSES$COORD_Y \ #
# $Z LISTE_VZ=$xTV/VITESSES$COORD_Z \ #
# $Z LISTE_MINIMUM_DELTA_RHO=$xTV/mdRHO \ #
# $Z LISTE_MAXIMUM_DELTA_RHO=$xTV/MdRHO \ #
# $Z LISTE_MINIMUM_N_PHI=$xTV/mnPHI \ #
# $Z LISTE_MAXIMUM_N_PHI=$xTV/MnPHI \ #
# $Z LISTE_DELTA_PHI=$xTV/dPHI \ #
# $Z LISTE_MINIMUM_N_THETA=$xTV/mnTHETA \ #
# $Z LISTE_MAXIMUM_N_THETA=$xTV/MnTHETA \ #
# $Z LISTE_DELTA_THETA=$xTV/dTHETA \ #
# $Z LISTE_DISTANCE_MAXIMALE=$xTV/DISTANCE \ #
# $Z LISTE_STABILITE=$xTV/STABILITE \ #
# $Z LISTE_RAYON=$xTV/RAYONS \ #
# $Z LISTE_RAYON_D_INTERACTION=$xTV/INTERACTIONS \ #
# $Z LISTE_ROUGE=$xTV/COULEURS$ROUGE \ #
# $Z LISTE_VERTE=$xTV/COULEURS$VERTE \ #
# $Z LISTE_BLEUE=$xTV/COULEURS$BLEUE \ #
# $Z milieu=FAUX \ #
# $Z Zmin=0 Zmax=15 \ #
# $Z centrer=VRAI \ #
# $Z dct=$PasDeTemps nombre=$NPasDeTemps \ #
# $Z trainees=FAUX mode=1 \ #
# $Z renormaliser=FAUX \ #
# $Z Lz=100 \ #
# $Z zoom_automatique=VRAI \ #
# $Z lister_les_points=VRAI \ #
# $Z lister_les_points_apres=VRAI \ #
# $Z centre_de_gravite=VRAI \ #
# $Z fond=FAUX \ #
# $Z attenuation_au_bord=0.25 \ #
# $Z R=$xiim/CHOC.W. \ #
# $Z $formatI \ #
# $Z > $xTV/LISTE_POINTS #
# #
# $Z $DELETE $xTV/COORDONNEES$COORD_X #
# $Z $DELETE $xTV/COORDONNEES$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_Z #
# $Z $DELETE $xTV/VITESSES #
# $Z $DELETE $xTV/VITESSES$COORD_X #
# $Z $DELETE $xTV/VITESSES$COORD_Y #
# $Z $DELETE $xTV/VITESSES$COORD_Z #
# $Z $DELETE $xTV/mdRHO #
# $Z $DELETE $xTV/MdRHO #
# $Z $DELETE $xTV/mnPHI #
# $Z $DELETE $xTV/MnPHI #
# $Z $DELETE $xTV/dPHI #
# $Z $DELETE $xTV/mnTHETA #
# $Z $DELETE $xTV/MnTHETA #
# $Z $DELETE $xTV/dTHETA #
# $Z $DELETE $xTV/DISTANCE #
# $Z $DELETE $xTV/STABILITE #
# $Z $DELETE $xTV/RAYONS #
# $Z $DELETE $xTV/INTERACTIONS #
# $Z $DELETE $xTV/COULEURS$TEINT #
# $Z $DELETE $xTV/COULEURS$LUMIN #
# $Z $DELETE $xTV/COULEURS$SATUR #
# $Z $DELETE $xTV/COULEURS$Y #
# $Z $DELETE $xTV/COULEURS #
# $Z $DELETE $xTV/COULEURS$ROUGE #
# $Z $DELETE $xTV/COULEURS$VERTE #
# $Z $DELETE $xTV/COULEURS$BLEUE #
# #
# $Z GenL $xTV/TRANSLATION$COORD_Z 0.0 0.0 +0.02 #
# #
# $Z GenL $xTV/COULEURS$ROUGE $GRIS_8 $GRIS_0 $GRIS_8 #
# $Z GenL $xTV/COULEURS$VERTE $GRIS_7 $GRIS_7 $GRIS_8 #
# $Z GenL $xTV/COULEURS$BLEUE $GRIS_0 $GRIS_8 $GRIS_8 #
# #
# $Z GenL $xTV/RAYONS $RayonsV $RayonsV 0.024 #
# #
# $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("$DELETE $xTV/COORDONNEES\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_X\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_Y\n"); #
# $c printf("$DELETE $xTV/COORDONNEES$COORD_Z\n"); #
# #
# $c printf("$CA $xTV/LISTE_POINTS | #
# $c $GRE 'periode=%d ' #
# $c > $xTV/COORDONNEES\n" #
# $c ,n #
# $c ); #
# #
# $c printf("set Particules=`$WC $xTV/COORDONNEES`\n"); #
# $c printf("set Particules=$Particules[$WC1]\n"); #
# #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*[ (,]X[G]*=//%c #
# $c -e %cs/[,) ].*//%c #
# $c > $xTV/COORDONNEES$COORD_X\n" #
# $c ,'"','"','"','"' #
# $c ); #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*[ (,]Y[G]*=//%c #
# $c -e %cs/[,) ].*//%c #
# $c > $xTV/COORDONNEES$COORD_Y\n" #
# $c ,'"','"','"','"' #
# $c ); #
# $c printf("$CA $xTV/COORDONNEES #
# $c | $SE -e %cs/^.*[ (,]Z[G]*=//%c #
# $c -e %cs/[,) ].*//%c #
# $c > $xTV/COORDONNEES$COORD_Z\n" #
# $c ,'"','"','"','"' #
# $c ); #
# #
# $c printf("$xrv/particule.10$X #
# $c np=1 #
# $c iterations=$Particules #
# $c isoles=VRAI #
# $c LISTE_X=$xTV/COORDONNEES$COORD_X #
# $c LISTE_Y=$xTV/COORDONNEES$COORD_Y #
# $c LISTE_Z=$xTV/COORDONNEES$COORD_Z #
# $c LISTE_tZ=$xTV/TRANSLATION$COORD_Z #
# $c LISTE_ROUGE=$xTV/COULEURS$ROUGE #
# $c LISTE_VERTE=$xTV/COULEURS$VERTE #
# $c LISTE_BLEUE=$xTV/COULEURS$BLEUE #
# $c Ar=0.5 #
# $c LISTE_RAYON=$xTV/RAYONS #
# $c Lz=100 #
# $c zoom_automatique=FAUX ZOOM=1.0 #
# $c coordonnees_dans_0_1=FAUX #
# $c AXYZ=1 BXYZ=$Centre #
# $c fond=FAUX #
# $c centrer=FAUX #
# $c reference=$Particules #
# $c attenuation_au_bord=0.25 #
# $c R=$xTV/CHOC.B. #
# $c $formatI\n" #
# $c ); #
# #
# $c printf("$xci/acces$X #
# $c A=$xTV/CHOC.B.%04d$ROUGE #
# $c R=$xiim/CHOC.7.%04d$ROUGE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xTV/CHOC.B.%04d$VERTE #
# $c R=$xiim/CHOC.7.%04d$VERTE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xTV/CHOC.B.%04d$BLEUE #
# $c R=$xiim/CHOC.7.%04d$BLEUE #
# $c $formatI\n" #
# $c ,N0,n #
# $c ); #
# $c } #
# $c } #
# #
# #
# $Z $DELETE $xTV/LISTE_POINTS #
# $Z $DELETE $xTV/COORDONNEES #
# $Z $DELETE $xTV/COORDONNEES$COORD_X #
# $Z $DELETE $xTV/COORDONNEES$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_Z #
# $Z $DELETE $xTV/TRANSLATION$COORD_Z #
# $Z $DELETE $xTV/RAYONS #
# $Z $DELETE $xTV/COULEURS$ROUGE #
# $Z $DELETE $xTV/COULEURS$VERTE #
# $Z $DELETE $xTV/COULEURS$BLEUE #
# #
# #
# $Z Pal #
# #
# $Z $xci/reduction_16$Z $xiim/CHOC.7. $xiak/CHOC.42 $Premiere $Derniere #
# $Z $xci/reduction_64$Z $xiim/CHOC.7. $xiak/CHOC.42 $Premiere $Derniere #
# #
# $X $xci/genere$X c='ro $xiak/CHOC.42$R16%s' RVB=VRAI #
# $X $xci/genere$X c='ro $xiak/CHOC.42$R64%s' RVB=VRAI #
# #
# $X $xci/genere$X c='$xcg/unite$Z $xiak/CHOC.42$R16%s' RVB=VRAI #
# $X $xci/genere$X c='$xcg/unite$Z $xiak/CHOC.42$R64%s' RVB=VRAI #
# #
# #
# Pal #
# #
# #
# $xci/disk_video_P$Z $xiim_LACT29/CHOC.7. 001 128 RVB \ #
# 11 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
# #
# xivPdf 3 2 #
# #
# record.01$Z $xiak/CHOC.42$R16 RVB Initialisation #
# record.01$Z $xiak/CHOC.42$R64 RVB rien #
# #
sequence 029460_029971
# Generee (sur '$LACT29') par : #
# #
# $Z unsetenv PremiereA #
# $Z unsetenv DerniereA #
# #
# $Z SET tPremiereA=1 #
# $Z SET tDerniereA=512 #
# $Z set Premiere=$tPremiereA #
# $Z @ NimagesA = $tDerniereA - $tPremiereA #
# $Z @ NimagesA = $NimagesA + 1 #
# $Z @ Nimages = $NimagesA #
# $Z @ Nimages = $Nimages - 1 #
# $Z @ Derniere = $Premiere + $Nimages #
# $Z @ Derniere = $Derniere - 1 #
# #
# $Z SETENV PremiereA $tPremiereA #
# $Z SETENV DerniereA $tDerniereA #
# #
# $X echo "echo ATTENTION : 'PremiereA' et 'DerniereA' mis dans 'env'." #
# #
# #
# $Z Pal #
# #
# $Z set PUnivers="np=0 CAL1=FAUX editer_l_univers_physique=VRAI" #
# $Z set Univers=`$xrk/rdn_walk.41$X $PUnivers $formatI` #
# #
# $Z set MinX=`echo $Univers | $SE -e "s/^.*[(,]XUI=//" -e "s/[,)].*//"` #
# $Z set MaxX=`echo $Univers | $SE -e "s/^.*[(,]XUS=//" -e "s/[,)].*//"` #
# $Z set MinY=`echo $Univers | $SE -e "s/^.*[(,]YUI=//" -e "s/[,)].*//"` #
# $Z set MaxY=`echo $Univers | $SE -e "s/^.*[(,]YUS=//" -e "s/[,)].*//"` #
# #
# $Z set MinX=`$xcg/ABSO.01$X x=$MinX` #
# $Z set MaxX=`$xcg/ABSO.01$X x=$MaxX` #
# $Z set MinY=`$xcg/ABSO.01$X x=$MinY` #
# $Z set MaxY=`$xcg/ABSO.01$X x=$MaxY` #
# #
# $Z set MaxX=`$xcg/MAX2.01$X n1=$MinX n2=$MaxX` #
# $Z set MaxY=`$xcg/MAX2.01$X n1=$MinY n2=$MaxY` #
# #
# $Z set SeuilPartN=1.0 #
# $Z set GrainePartN=2 #
# $Z set DistanceX=12 #
# $Z set DistanceY=12 #
# $Z set ForceX=0.0 #
# $Z set ForceY=0.0 #
# #
# $Z $DELETE $xTV/BOITE.1 #
# $Z $DELETE $xTV/BOITE.2 #
# $Z $DELETE $xTV/BOITE.3 #
# $Z $DELETE $xTV/BOITE.3$ROUGE #
# $Z $DELETE $xTV/BOITE.3$VERTE #
# $Z $DELETE $xTV/BOITE.3$BLEUE #
# $Z $DELETE $xTV/BOITE.6 #
# $Z $DELETE $xTV/BOITE.A #
# $Z $DELETE $xTV/BOITE.B #
# #
# #
# $Z Std #
# #
# $Z set FacXY=0.85 #
# $Z set SeuilBOITE=`$xcg/SOUS.01$X a=1 b=$FacXY` #
# $Z set SeuilBOITE=`$xcg/MUL2.01$X a=$SeuilBOITE b=$GRIS_8` #
# $Z set SeuilBOITE=`$xci/valeurs_inte$X p=1 d=1 vD=$SeuilBOITE entiers=VRAI` #
# $Z set SeuilBOITE=`$xcg/MIN2.01$X a=$SeuilBOITE b=$GRIS_1` #
# #
# $Z $xci/complement$X \ #
# $Z A=$xiio/SPIRALE \ #
# $Z $formatI | \ #
# $Z $xci/seuil$X \ #
# $Z seuil=$SeuilBOITE \ #
# $Z R=$xTV/BOITE.6 \ #
# $Z $formatI #
# #
# $Z S #
# #
# $Z $xci/format.01$X mode=0 \ #
# $Z A=$xTV/BOITE.6 \ #
# $Z $formatI \ #
# $Z R=$xTV/BOITE.1 \ #
# $Z $formatR_Pal #
# #
# $Z $xci/dilate.01$X \ #
# $Z A=$xTV/BOITE.6 \ #
# $Z points=225 \ #
# $Z dilater=FAUX \ #
# $Z R=$xTV/BOITE.A \ #
# $Z $formatI #
# #
# $Z $xci/random.02$X \ #
# $Z seuil=$SeuilPartN \ #
# $Z graine=$GrainePartN \ #
# $Z px=$DistanceX py=$DistanceY \ #
# $Z $formatI | \ #
# $Z $xci/shuffling.01$X \ #
# $Z inverse=FAUX \ #
# $Z NOIR=FAUX \ #
# $Z fX=$ForceX fY=$ForceY \ #
# $Z graine=$GrainePartN \ #
# $Z $formatI | \ #
# $Z $xci/and$X \ #
# $Z A2=$xTV/BOITE.A \ #
# $Z R=$xTV/BOITE.B \ #
# $Z $formatI #
# #
# $Z $DELETE $xTV/COORDONNEES #
# $Z $DELETE $xTV/COORDONNEES_01$COORD_X #
# $Z $DELETE $xTV/COORDONNEES_01$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_X #
# $Z $DELETE $xTV/COORDONNEES$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_Z #
# #
# $Z $xci/liste_points$X \ #
# $Z A=$xTV/BOITE.B \ #
# $Z $formatI \ #
# $Z > $xTV/COORDONNEES #
# #
# $Z $DELETE $xTV/BOITE.6 #
# $Z $DELETE $xTV/BOITE.A #
# $Z $DELETE $xTV/BOITE.B #
# #
# $Z set PartN=`$TAI -1 $xTV/COORDONNEES | $SE -e "s/^.*=//"` #
# #
# $Z $CA $xTV/COORDONNEES \ #
# $Z | $GRE "^[Xx]=" \ #
# $Z | $SE -e "s/^[Xx]=//" \ #
# $Z > $xTV/COORDONNEES_01$COORD_X #
# $Z $CA $xTV/COORDONNEES \ #
# $Z | $GRE "^[Yy]=" \ #
# $Z | $SE -e "s/^[Yy]=//" \ #
# $Z > $xTV/COORDONNEES_01$COORD_Y #
# #
# $Z set EchelleX=`$xcg/MUL2.01$X n1=2 n2=$MaxX` #
# $Z set TranslationX=`$xcg/MUL2.01$X n1=-1 n2=$MaxX` #
# $Z set EchelleY=`$xcg/MUL2.01$X n1=2 n2=$MaxY` #
# $Z set TranslationY=`$xcg/MUL2.01$X n1=-1 n2=$MaxY` #
# #
# $Z $xrv/AXPB.01$X \ #
# $Z CAL1=FAUX \ #
# $Z ne=$PartN \ #
# $Z fichier=$xTV/COORDONNEES_01$COORD_X \ #
# $Z homothetie=$EchelleX translation=$TranslationX \ #
# $Z > $xTV/COORDONNEES$COORD_X #
# $Z $xrv/AXPB.01$X \ #
# $Z CAL1=FAUX \ #
# $Z ne=$PartN \ #
# $Z fichier=$xTV/COORDONNEES_01$COORD_Y \ #
# $Z homothetie=$EchelleY translation=$TranslationY \ #
# $Z > $xTV/COORDONNEES$COORD_Y #
# #
# $Z $DELETE $xTV/COORDONNEES_01$COORD_X #
# $Z $DELETE $xTV/COORDONNEES_01$COORD_Y #
# #
# $Z set Part0=1 #
# $Z @ Npart = $PartN - $Part0 #
# $Z @ Npart = $Npart + 1 #
# $Z @ NpartS2 = $Npart / 2 #
# $Z set Part01=$Part0 #
# $Z @ PartN1 = $Part01 + $NpartS2 #
# $Z @ PartN1 = $PartN1 - 1 #
# $Z @ Part02 = $PartN1 + 1 #
# $Z set PartN2=$PartN #
# #
# $Z $DELETE $xTV/PERMUTATIONS #
# $Z $DELETE $xTV/MODULE #
# $Z $DELETE $xTV/MODULE.1 #
# $Z $DELETE $xTV/THETA #
# $Z $DELETE $xTV/XY_RT.1 #
# $Z $DELETE $xTV/XY_RT.2 #
# $Z $DELETE $xTV/VITESSES #
# $Z $DELETE $xTV/VITESSES$COORD_X #
# $Z $DELETE $xTV/VITESSES$COORD_Y #
# $Z $DELETE $xTV/VITESSES$COORD_Z #
# $Z $DELETE $xTV/mdRHO #
# $Z $DELETE $xTV/MdRHO #
# $Z $DELETE $xTV/mnPHI #
# $Z $DELETE $xTV/MnPHI #
# $Z $DELETE $xTV/dPHI #
# $Z $DELETE $xTV/mnTHETA #
# $Z $DELETE $xTV/MnTHETA #
# $Z $DELETE $xTV/dTHETA #
# $Z $DELETE $xTV/supOUVE #
# $Z $DELETE $xTV/DISTANCE #
# $Z $DELETE $xTV/STABILITE #
# $Z $DELETE $xTV/RAYONS #
# $Z $DELETE $xTV/INTERACTIONS #
# #
# #
# $Z alias Gen 'set Fi=\!:1 ; set vD=\!:2 ; set vA=\!:3 ; set ArG=(\!:4*) ; \\ #
# $Z $DELETE $Fi ; \\ #
# $Z $xci/valeurs_inte$X p=$Part0 d=$PartN vD=$vD vA=$vA $ArG > $Fi ; \\ #
# $Z unset Fi vD vA ArG' #
# #
# $Z alias GenR 'set Fi=\!:1 ; set In=\!:2 ; set Su=\!:3 ; set ArG=(\!:4*) ; \\ #
# $Z $DELETE $Fi ; \\ #
# $Z $xci/valeurs_alea$X p=$Part0 d=$PartN signe="$KV" inf=$In sup=$Su $ArG > $Fi ; \\ #
# $Z unset Fi In Su ArG' #
# #
# $Z Gen $xTV/COORDONNEES$COORD_Z 0.0 0.0 #
# #
# #
# $Z @ IPart0 = $Part0 - $Part0 #
# $Z @ IPartN = $PartN - $Part0 #
# $Z $xci/valeurs_alea$X \ #
# $Z p=$IPart0 d=$IPartN \ #
# $Z inf=$IPart0 sup=$IPartN \ #
# $Z entiers=VRAI sans_collisions=VRAI \ #
# $Z CAL1=FAUX \ #
# $Z > $xTV/PERMUTATIONS #
# #
# $Z set PetiteVitesse=0.004 #
# $Z set GrandeVitesse=0.020 #
# #
# $Z $xci/valeurs_inte$X premiere=$Part01 derniere=$PartN1 \ #
# $Z vD=$GrandeVitesse vA=$GrandeVitesse \ #
# $Z cubique=FAUX \ #
# $Z > $xTV/MODULE.1 #
# $Z $xci/valeurs_inte$X premiere=$Part02 derniere=$PartN2 \ #
# $Z vD=$PetiteVitesse vA=$PetiteVitesse \ #
# $Z cubique=FAUX \ #
# $Z >>! $xTV/MODULE.1 #
# $Z $xrv/permute.11$X \ #
# $Z CAL1=FAUX \ #
# $Z ne=$PartN \ #
# $Z fichier=$xTV/MODULE.1 \ #
# $Z permutation=$xTV/PERMUTATIONS \ #
# $Z > $xTV/MODULE #
# #
# $Z GenR $xTV/THETA 0.0 $dpi g=3333 #
# #
# $Z $CA $xcs/csh$Y \ #
# $Z > $xTV/XY_RT.1 #
# $Z $PAST $xTV/MODULE $xTV/THETA \ #
# $Z | $R "$K_TAB" "$K_BLANC" \ #
# $Z | $AW ' { print "$xcg/XY_RT$X r=" $1 " t=" $2 " cartesien=FAUX" } ' \ #
# $Z >>! $xTV/XY_RT.1 #
# #
# $Z (source $xTV/XY_RT.1) \ #
# $Z > $xTV/XY_RT.2 #
# #
# $Z $CA $xTV/XY_RT.2 \ #
# $Z | $GRE "^x=" \ #
# $Z | $SE -e "s/^x=//" \ #
# $Z > $xTV/VITESSES$COORD_X #
# $Z $CA $xTV/XY_RT.2 \ #
# $Z | $GRE "^y=" \ #
# $Z | $SE -e "s/^y=//" \ #
# $Z > $xTV/VITESSES$COORD_Y #
# #
# $Z Gen $xTV/VITESSES$COORD_Z 0.0 0.0 #
# #
# $Z Gen $xTV/mdRHO 0.0 0.0 #
# $Z Gen $xTV/MdRHO 0.0 0.0 #
# $Z Gen $xTV/mnPHI 0.0 0.0 #
# $Z Gen $xTV/MnPHI 0.0 0.0 #
# $Z Gen $xTV/dPHI 0.0 0.0 #
# $Z Gen $xTV/mnTHETA 0.0 0.0 #
# $Z Gen $xTV/MnTHETA 0.0 0.0 #
# $Z Gen $xTV/dTHETA 0.0 0.0 #
# $Z Gen $xTV/DISTANCE 1000000 1000000 #
# $Z Gen $xTV/STABILITE 1000000 1000000 #
# #
# $Z set RayonsT=0.014 #
# $Z set RayonsP=`$xcg/MUL2.01$X a=2 b=$RayonsT` #
# $Z set DistanceI=`$xcg/MUL2.01$X a=4 b=$RayonsP` #
# $Z Gen $xTV/RAYONS $RayonsT $RayonsT #
# $Z Gen $xTV/INTERACTIONS $RayonsP $RayonsP #
# #
# $Z $DELETE $xTV/COULEURS.1$ROUGE #
# $Z $DELETE $xTV/COULEURS.1$VERTE #
# $Z $DELETE $xTV/COULEURS.1$BLEUE #
# $Z $DELETE $xTV/COULEURS$ROUGE #
# $Z $DELETE $xTV/COULEURS$VERTE #
# $Z $DELETE $xTV/COULEURS$BLEUE #
# #
# $Z $xci/valeurs_inte$X premiere=$Part01 derniere=$PartN1 \ #
# $Z vD=$GRIS_8 vA=$GRIS_8 \ #
# $Z cubique=FAUX \ #
# $Z entiers=VRAI \ #
# $Z > $xTV/COULEURS.1$ROUGE #
# $Z $xci/valeurs_inte$X premiere=$Part02 derniere=$PartN2 \ #
# $Z vD=$GRIS_0 vA=$GRIS_0 \ #
# $Z cubique=FAUX \ #
# $Z entiers=VRAI \ #
# $Z >>! $xTV/COULEURS.1$ROUGE #
# $Z $xci/valeurs_inte$X premiere=$Part01 derniere=$PartN1 \ #
# $Z vD=$GRIS_4 vA=$GRIS_4 \ #
# $Z cubique=FAUX \ #
# $Z entiers=VRAI \ #
# $Z > $xTV/COULEURS.1$VERTE #
# $Z $xci/valeurs_inte$X premiere=$Part02 derniere=$PartN2 \ #
# $Z vD=$GRIS_5 vA=$GRIS_5 \ #
# $Z cubique=FAUX \ #
# $Z entiers=VRAI \ #
# $Z >>! $xTV/COULEURS.1$VERTE #
# $Z $xci/valeurs_inte$X premiere=$Part01 derniere=$PartN1 \ #
# $Z vD=$GRIS_0 vA=$GRIS_0 \ #
# $Z cubique=FAUX \ #
# $Z entiers=VRAI \ #
# $Z > $xTV/COULEURS.1$BLEUE #
# $Z $xci/valeurs_inte$X premiere=$Part02 derniere=$PartN2 \ #
# $Z vD=$GRIS_8 vA=$GRIS_8 \ #
# $Z cubique=FAUX \ #
# $Z entiers=VRAI \ #
# $Z >>! $xTV/COULEURS.1$BLEUE #
# #
# $Z $xrv/permute.11$X \ #
# $Z CAL1=FAUX \ #
# $Z ne=$PartN \ #
# $Z fichier=$xTV/COULEURS.1$ROUGE \ #
# $Z permutation=$xTV/PERMUTATIONS \ #
# $Z > $xTV/COULEURS$ROUGE #
# $Z $xrv/permute.11$X \ #
# $Z CAL1=FAUX \ #
# $Z ne=$PartN \ #
# $Z fichier=$xTV/COULEURS.1$VERTE \ #
# $Z permutation=$xTV/PERMUTATIONS \ #
# $Z > $xTV/COULEURS$VERTE #
# $Z $xrv/permute.11$X \ #
# $Z CAL1=FAUX \ #
# $Z ne=$PartN \ #
# $Z fichier=$xTV/COULEURS.1$BLEUE \ #
# $Z permutation=$xTV/PERMUTATIONS \ #
# $Z > $xTV/COULEURS$BLEUE #
# #
# $Z Pal #
# #
# #
# $Z $xci/scale$X \ #
# $Z A=$xTV/BOITE.1 \ #
# $Z a=1.00 \ #
# $Z R=$xTV/BOITE.2 \ #
# $Z $formatI #
# #
# $Z $DELETE $xTV/RAYONS #
# $Z $CP $xTV/INTERACTIONS $xTV/RAYONS #
# #
# $Z $xrk/rdn_walk.41$X corps=$Npart \ #
# $Z np=$NimagesA \ #
# $Z collisions=VRAI DLA=FAUX interaction=$DistanceI \ #
# $Z LISTE_X=$xTV/COORDONNEES$COORD_X \ #
# $Z LISTE_Y=$xTV/COORDONNEES$COORD_Y \ #
# $Z LISTE_Z=$xTV/COORDONNEES$COORD_Z \ #
# $Z LISTE_VX=$xTV/VITESSES$COORD_X \ #
# $Z LISTE_VY=$xTV/VITESSES$COORD_Y \ #
# $Z LISTE_VZ=$xTV/VITESSES$COORD_Z \ #
# $Z LISTE_MINIMUM_DELTA_RHO=$xTV/mdRHO \ #
# $Z LISTE_MAXIMUM_DELTA_RHO=$xTV/MdRHO \ #
# $Z LISTE_MINIMUM_N_PHI=$xTV/mnPHI \ #
# $Z LISTE_MAXIMUM_N_PHI=$xTV/MnPHI \ #
# $Z LISTE_DELTA_PHI=$xTV/dPHI \ #
# $Z LISTE_MINIMUM_N_THETA=$xTV/mnTHETA \ #
# $Z LISTE_MAXIMUM_N_THETA=$xTV/MnTHETA \ #
# $Z LISTE_DELTA_THETA=$xTV/dTHETA \ #
# $Z LISTE_DISTANCE_MAXIMALE=$xTV/DISTANCE \ #
# $Z LISTE_STABILITE=$xTV/STABILITE \ #
# $Z LISTE_RAYON=$xTV/RAYONS \ #
# $Z LISTE_RAYON_D_INTERACTION=$xTV/INTERACTIONS \ #
# $Z LISTE_ROUGE=$xTV/COULEURS$ROUGE \ #
# $Z LISTE_VERTE=$xTV/COULEURS$VERTE \ #
# $Z LISTE_BLEUE=$xTV/COULEURS$BLEUE \ #
# $Z milieu=VRAI \ #
# $Z reflexion=VRAI refraction=FAUX \ #
# $Z Mhors=$BLANC \ #
# $Z MNpasX=1 Mprolonger_X=VRAI \ #
# $Z MNpasY=1 Mprolonger_Y=VRAI \ #
# $Z MNpasZ=1 Mprolonger_Z=VRAI \ #
# $Z adapter_M_nPAS=VRAI \ #
# $Z Msimplifier=FAUX affiner_M_maillage=FAUX \ #
# $Z MC=$xTV/BOITE.2 \ #
# $Z MChiffres=0 \ #
# $Z Zmin=0 Zmax=15 \ #
# $Z centrer=VRAI \ #
# $Z dct=0.05 nombre=40 \ #
# $Z trainees=FAUX \ #
# $Z renormaliser=FAUX \ #
# $Z Lz=100 \ #
# $Z zoom_automatique=VRAI \ #
# $Z centre_de_gravite=FAUX \ #
# $Z fond=FAUX \ #
# $Z N_au_carre=FAUX \ #
# $Z R=$xiim/REFL.Wa. \ #
# $Z $formatI #
# #
# $Z $DELETE $xTV/PERMUTATIONS #
# $Z $DELETE $xTV/MODULE #
# $Z $DELETE $xTV/MODULE.1 #
# $Z $DELETE $xTV/THETA #
# $Z $DELETE $xTV/COORDONNEES #
# $Z $DELETE $xTV/COORDONNEES$COORD_X #
# $Z $DELETE $xTV/COORDONNEES$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_Z #
# $Z $DELETE $xTV/VITESSES #
# $Z $DELETE $xTV/VITESSES$COORD_X #
# $Z $DELETE $xTV/VITESSES$COORD_Y #
# $Z $DELETE $xTV/VITESSES$COORD_Z #
# $Z $DELETE $xTV/mdRHO #
# $Z $DELETE $xTV/MdRHO #
# $Z $DELETE $xTV/mnPHI #
# $Z $DELETE $xTV/MnPHI #
# $Z $DELETE $xTV/dPHI #
# $Z $DELETE $xTV/mnTHETA #
# $Z $DELETE $xTV/MnTHETA #
# $Z $DELETE $xTV/dTHETA #
# $Z $DELETE $xTV/DISTANCE #
# $Z $DELETE $xTV/STABILITE #
# $Z $DELETE $xTV/RAYONS #
# $Z $DELETE $xTV/INTERACTIONS #
# $Z $DELETE $xTV/COULEURS.1$ROUGE #
# $Z $DELETE $xTV/COULEURS.1$VERTE #
# $Z $DELETE $xTV/COULEURS.1$BLEUE #
# $Z $DELETE $xTV/COULEURS$ROUGE #
# $Z $DELETE $xTV/COULEURS$VERTE #
# $Z $DELETE $xTV/COULEURS$BLEUE #
# #
# #
# #
# #
# $Z $xci/complement$X A=$xTV/BOITE.1 \ #
# $Z R=$xTV/BOITE.3 \ #
# $Z $formatI #
# #
# $Z eval `$xci/genere$X \\\ #
# $Z commande='($xci/scale$X \\\ #
# $Z A=$xTV/BOITE.3 \\\ #
# $Z a=0.50 \\\ #
# $Z R=$xTV/BOITE.3%s \\\ #
# $Z $formatI)' \\\ #
# $Z en_tete=FAUX RVB=VRAI separateur=VRAI` #
# #
# #
# #
# $c extern int atoi(); #
# $c extern int *getenv(); #
# #
# $c #define NA0 (atoi(getenv("PremiereA"))) #
# $c #define NA (atoi(getenv("DerniereA"))) #
# #
# $c #define NR0 1 #
# $c #define NR 4 #
# $c #define PAS 1 #
# #
# $c int main() #
# $c { #
# $c int n1; #
# #
# $c for (n1=NA0 ; n1<=NA ; n1++) #
# $c { #
# $c printf("$xci/cache.11$Z #
# $c $xiim/REFL.Wa.%04d #
# $c $xTV/BOITE.3 #
# $c $xiim/REFL.8.%04d\n" #
# $c ,n1,n1 #
# $c ); #
# $c } #
# $c } #
# #
# #
# $Z $DELETE $xTV/BOITE.1 #
# $Z $DELETE $xTV/BOITE.2 #
# $Z $DELETE $xTV/BOITE.3 #
# $Z $DELETE $xTV/BOITE.3$ROUGE #
# $Z $DELETE $xTV/BOITE.3$VERTE #
# $Z $DELETE $xTV/BOITE.3$BLEUE #
# #
# $Z Pal #
# #
# $Z $xci/reduction_16$Z $xiim/REFL.8. $xiak/REFL.W1 $Premiere $Derniere #
# $Z $xci/reduction_64$Z $xiim/REFL.8. $xiak/REFL.W1 $Premiere $Derniere #
# #
# $X $xci/genere$X c='ro $xiak/REFL.W1$R16%s' RVB=VRAI #
# $X $xci/genere$X c='ro $xiak/REFL.W1$R64%s' RVB=VRAI #
# #
# $X $xci/genere$X c='$xcg/unite$Z $xiak/REFL.W1$R16%s' RVB=VRAI #
# $X $xci/genere$X c='$xcg/unite$Z $xiak/REFL.W1$R64%s' RVB=VRAI #
# #
# #
# Pal #
# #
# #
# $xci/disk_video_P$Z $xiim_LACT29/REFL.8. 001 512 RVB \ #
# 11 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
# #
# xivPdf 3 2 #
# #
# record.01$Z $xiak/REFL.W1$R16 RVB Initialisation #
# record.01$Z $xiak/REFL.W1$R64 RVB rien #
# #
sequence 029972_030483
sequence 030484_030995
# Generee (sur '$LACT29') par : #
# #
# $Z unsetenv PremiereA #
# $Z unsetenv DerniereA #
# #
# $Z SET tPremiereA=1 #
# $Z SET tDerniereA=512 #
# $Z set Premiere=$tPremiereA #
# $Z @ NimagesA = $tDerniereA - $tPremiereA #
# $Z @ NimagesA = $NimagesA + 1 #
# $Z @ Nimages = $NimagesA #
# $Z @ Nimages = $Nimages - 1 #
# $Z @ Derniere = $Premiere + $Nimages #
# $Z @ Derniere = $Derniere - 1 #
# #
# $Z SETENV PremiereA $tPremiereA #
# $Z SETENV DerniereA $tDerniereA #
# #
# $X echo "echo ATTENTION : 'PremiereA' et 'DerniereA' mis dans 'env'." #
# #
# #
# $Z Pal #
# #
# $Z set PUnivers="np=0 CAL1=FAUX editer_l_univers_physique=VRAI" #
# $Z set Univers=`$xrk/rdn_walk.41$X $PUnivers $formatI` #
# #
# $Z set MinX=`echo $Univers | $SE -e "s/^.*[(,]XUI=//" -e "s/[,)].*//"` #
# $Z set MaxX=`echo $Univers | $SE -e "s/^.*[(,]XUS=//" -e "s/[,)].*//"` #
# $Z set MinY=`echo $Univers | $SE -e "s/^.*[(,]YUI=//" -e "s/[,)].*//"` #
# $Z set MaxY=`echo $Univers | $SE -e "s/^.*[(,]YUS=//" -e "s/[,)].*//"` #
# #
# $Z set MinX=`$xcg/ABSO.01$X x=$MinX` #
# $Z set MaxX=`$xcg/ABSO.01$X x=$MaxX` #
# $Z set MinY=`$xcg/ABSO.01$X x=$MinY` #
# $Z set MaxY=`$xcg/ABSO.01$X x=$MaxY` #
# #
# $Z set MaxX=`$xcg/MAX2.01$X n1=$MinX n2=$MaxX` #
# $Z set MaxY=`$xcg/MAX2.01$X n1=$MinY n2=$MaxY` #
# #
# $Z set SeuilPartN=1.0 #
# $Z set GrainePartN=2 #
# $Z set DistanceX=24 #
# $Z set DistanceY=24 #
# $Z set ForceX=0.01 #
# $Z set ForceY=0.01 #
# #
# $Z $DELETE $xTV/BOITE.1 #
# $Z $DELETE $xTV/BOITE.2 #
# $Z $DELETE $xTV/BOITE.3 #
# $Z $DELETE $xTV/BOITE.3$ROUGE #
# $Z $DELETE $xTV/BOITE.3$VERTE #
# $Z $DELETE $xTV/BOITE.3$BLEUE #
# $Z $DELETE $xTV/BOITE.4 #
# $Z $DELETE $xTV/BOITE.5 #
# $Z $DELETE $xTV/BOITE.6 #
# $Z $DELETE $xTV/BOITE.7 #
# $Z $DELETE $xTV/BOITE.8 #
# $Z $DELETE $xTV/BOITE.A #
# $Z $DELETE $xTV/BOITE.B #
# #
# #
# $Z Std #
# #
# $Z $xci/seuil$X \ #
# $Z A=$xiit/ILESCIENCE.11 \ #
# $Z seuil=$GRIS_7 \ #
# $Z $formatI | \ #
# $Z $xci/format.01$X \ #
# $Z mode=7 \ #
# $Z $formatI \ #
# $Z R=$xTV/ILES.91 \ #
# $Z $formatR_Sdu #
# #
# $Z Sdu #
# $Z gauss$X \ #
# $Z R=$xTV/ILES.92 \ #
# $Z $formatI #
# $Z $xci/filtre.01$X \ #
# $Z A=$xTV/ILES.91 \ #
# $Z N=$xTV/ILES.92 \ #
# $Z R=$xTV/ILES.94 \ #
# $Z seuil=250 \ #
# $Z $formatI #
# $Z $xci/format.01$X \ #
# $Z A=$xTV/ILES.94 \ #
# $Z $formatI \ #
# $Z mode=7 \ #
# $Z R=$xTV/ILES.95 \ #
# $Z $formatR_Pal #
# #
# $Z Pal #
# $Z $xci/acces$X \ #
# $Z A=$xTV/ILES.95 \ #
# $Z convertir=VRAI \ #
# $Z $formatI | \ #
# $Z $xci/normalise.01$X \ #
# $Z $formatI | \ #
# $Z $xci/lissage$X \ #
# $Z standard=FAUX \ #
# $Z passes=64 \ #
# $Z R=$xTV/ILES.84 \ #
# $Z $formatI #
# #
# #
# #
# $Z Std #
# #
# $Z set FacXY=0.90 #
# $Z set SeuilBOITE=`$xcg/SOUS.01$X a=1 b=$FacXY` #
# $Z set SeuilBOITE=`$xcg/MUL2.01$X a=$SeuilBOITE b=$GRIS_8` #
# $Z set SeuilBOITE=`$xci/valeurs_inte$X p=1 d=1 vD=$SeuilBOITE entiers=VRAI` #
# $Z set SeuilBOITE=`$xcg/MIN2.01$X a=$SeuilBOITE b=$GRIS_1` #
# #
# $Z $xci/complement$X \ #
# $Z A=$xiio/SPIRALE \ #
# $Z $formatI | \ #
# $Z $xci/seuil$X \ #
# $Z seuil=$SeuilBOITE \ #
# $Z R=$xTV/BOITE.8 \ #
# $Z $formatI #
# #
# $Z S #
# #
# $Z $xci/format.01$X \ #
# $Z mode=0 \ #
# $Z A=$xTV/BOITE.8 \ #
# $Z $formatI \ #
# $Z R=$xTV/BOITE.1 \ #
# $Z $formatR_Pal #
# #
# $Z $xci/dilate.01$X \ #
# $Z A=$xiit/ILESCIENCE.11 \ #
# $Z dilater=VRAI \ #
# $Z points=9 \ #
# $Z $formatI | \ #
# $Z $xci/seuil$X \ #
# $Z seuil=$GRIS_7 \ #
# $Z $formatI | \ #
# $Z $xci/format.01$X \ #
# $Z mode=7 \ #
# $Z $formatI \ #
# $Z R=$xTV/BOITE.7 \ #
# $Z $formatR_Pal #
# #
# $Z Pal #
# #
# $Z $xci/complement$X \ #
# $Z A=$xTV/BOITE.7 \ #
# $Z R=$xTV/BOITE.71 \ #
# $Z $formatI #
# #
# $Z $xci/eor$X \ #
# $Z A1=$xTV/BOITE.1 \ #
# $Z A2=$xTV/BOITE.7 \ #
# $Z R=$xTV/BOITE.1 \ #
# $Z $formatI #
# #
# $Z $xci/format.01$X \ #
# $Z mode=0 \ #
# $Z A=$xTV/BOITE.1 \ #
# $Z $formatI \ #
# $Z R=$xTV/BOITE.5 \ #
# $Z $formatR_Std #
# #
# $Z Std #
# #
# $Z $xci/dilate.01$X \ #
# $Z A=$xTV/BOITE.5 \ #
# $Z points=225 \ #
# $Z dilater=FAUX \ #
# $Z R=$xTV/BOITE.A \ #
# $Z $formatI #
# #
# $Z $xci/random.02$X \ #
# $Z seuil=$SeuilPartN \ #
# $Z graine=$GrainePartN \ #
# $Z px=$DistanceX py=$DistanceY \ #
# $Z $formatI | \ #
# $Z $xci/shuffling.01$X \ #
# $Z inverse=FAUX \ #
# $Z NOIR=FAUX \ #
# $Z fX=$ForceX fY=$ForceY \ #
# $Z graine=$GrainePartN \ #
# $Z $formatI | \ #
# $Z $xci/and$X \ #
# $Z A2=$xTV/BOITE.A \ #
# $Z R=$xTV/BOITE.B \ #
# $Z $formatI #
# #
# $Z $DELETE $xTV/COORDONNEES #
# $Z $DELETE $xTV/COORDONNEES_01$COORD_X #
# $Z $DELETE $xTV/COORDONNEES_01$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_X #
# $Z $DELETE $xTV/COORDONNEES$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_Z #
# #
# $Z $xci/liste_points$X \ #
# $Z A=$xTV/BOITE.B \ #
# $Z $formatI \ #
# $Z > $xTV/COORDONNEES #
# #
# $Z $DELETE $xTV/BOITE.4 #
# $Z $DELETE $xTV/BOITE.5 #
# $Z $DELETE $xTV/BOITE.6 #
# $Z $DELETE $xTV/BOITE.8 #
# $Z $DELETE $xTV/BOITE.A #
# $Z $DELETE $xTV/BOITE.B #
# #
# $Z set PartN=`$TAI -1 $xTV/COORDONNEES | $SE -e "s/^.*=//"` #
# #
# $Z $CA $xTV/COORDONNEES \ #
# $Z | $GRE "^[Xx]=" \ #
# $Z | $SE -e "s/^[Xx]=//" \ #
# $Z > $xTV/COORDONNEES_01$COORD_X #
# $Z $CA $xTV/COORDONNEES \ #
# $Z | $GRE "^[Yy]=" \ #
# $Z | $SE -e "s/^[Yy]=//" \ #
# $Z > $xTV/COORDONNEES_01$COORD_Y #
# #
# $Z set EchelleX=`$xcg/MUL2.01$X n1=2 n2=$MaxX` #
# $Z set TranslationX=`$xcg/MUL2.01$X n1=-1 n2=$MaxX` #
# $Z set EchelleY=`$xcg/MUL2.01$X n1=2 n2=$MaxY` #
# $Z set TranslationY=`$xcg/MUL2.01$X n1=-1 n2=$MaxY` #
# #
# $Z $xrv/AXPB.01$X \ #
# $Z CAL1=FAUX \ #
# $Z ne=$PartN \ #
# $Z fichier=$xTV/COORDONNEES_01$COORD_X \ #
# $Z homothetie=$EchelleX translation=$TranslationX \ #
# $Z > $xTV/COORDONNEES$COORD_X #
# $Z $xrv/AXPB.01$X \ #
# $Z CAL1=FAUX \ #
# $Z ne=$PartN \ #
# $Z fichier=$xTV/COORDONNEES_01$COORD_Y \ #
# $Z homothetie=$EchelleY translation=$TranslationY \ #
# $Z > $xTV/COORDONNEES$COORD_Y #
# #
# $Z $DELETE $xTV/COORDONNEES_01$COORD_X #
# $Z $DELETE $xTV/COORDONNEES_01$COORD_Y #
# #
# $Z set Part0=1 #
# $Z @ Npart = $PartN - $Part0 #
# $Z @ Npart = $Npart + 1 #
# #
# $Z $DELETE $xTV/MODULE #
# $Z $DELETE $xTV/THETA #
# $Z $DELETE $xTV/XY_RT.1 #
# $Z $DELETE $xTV/XY_RT.2 #
# $Z $DELETE $xTV/VITESSES #
# $Z $DELETE $xTV/VITESSES$COORD_X #
# $Z $DELETE $xTV/VITESSES$COORD_Y #
# $Z $DELETE $xTV/VITESSES$COORD_Z #
# $Z $DELETE $xTV/mdRHO #
# $Z $DELETE $xTV/MdRHO #
# $Z $DELETE $xTV/mnPHI #
# $Z $DELETE $xTV/MnPHI #
# $Z $DELETE $xTV/dPHI #
# $Z $DELETE $xTV/mnTHETA #
# $Z $DELETE $xTV/MnTHETA #
# $Z $DELETE $xTV/dTHETA #
# $Z $DELETE $xTV/supOUVE #
# $Z $DELETE $xTV/DISTANCE #
# $Z $DELETE $xTV/STABILITE #
# $Z $DELETE $xTV/RAYONS #
# $Z $DELETE $xTV/INTERACTIONS #
# #
# #
# $Z alias Gen 'set Fi=\!:1 ; set vD=\!:2 ; set vA=\!:3 ; set ArG=(\!:4*) ; \\ #
# $Z $DELETE $Fi ; \\ #
# $Z $xci/valeurs_inte$X p=$Part0 d=$PartN vD=$vD vA=$vA $ArG > $Fi ; \\ #
# $Z unset Fi vD vA ArG' #
# #
# $Z alias GenR 'set Fi=\!:1 ; set In=\!:2 ; set Su=\!:3 ; set ArG=(\!:4*) ; \\ #
# $Z $DELETE $Fi ; \\ #
# $Z $xci/valeurs_alea$X p=$Part0 d=$PartN signe="$KV" inf=$In sup=$Su $ArG > $Fi ; \\ #
# $Z unset Fi In Su ArG' #
# #
# $Z Gen $xTV/COORDONNEES$COORD_Z 0.0 0.0 #
# #
# #
# $Z Gen $xTV/MODULE 0.02 0.02 #
# $Z GenR $xTV/THETA 0.0 $dpi g=3333 #
# #
# $Z $CA $xcs/csh$Y \ #
# $Z > $xTV/XY_RT.1 #
# $Z $PAST $xTV/MODULE $xTV/THETA \ #
# $Z | $R "$K_TAB" "$K_BLANC" \ #
# $Z | $AW ' { print "$xcg/XY_RT$X r=" $1 " t=" $2 " cartesien=FAUX" } ' \ #
# $Z >>! $xTV/XY_RT.1 #
# #
# $Z (source $xTV/XY_RT.1) \ #
# $Z > $xTV/XY_RT.2 #
# #
# $Z $CA $xTV/XY_RT.2 \ #
# $Z | $GRE "^x=" \ #
# $Z | $SE -e "s/^x=//" \ #
# $Z > $xTV/VITESSES$COORD_X #
# $Z $CA $xTV/XY_RT.2 \ #
# $Z | $GRE "^y=" \ #
# $Z | $SE -e "s/^y=//" \ #
# $Z > $xTV/VITESSES$COORD_Y #
# #
# $Z Gen $xTV/VITESSES$COORD_Z 0.0 0.0 #
# #
# $Z Gen $xTV/mdRHO 0.0 0.0 #
# $Z Gen $xTV/MdRHO 0.0 0.0 #
# $Z Gen $xTV/mnPHI 0.0 0.0 #
# $Z Gen $xTV/MnPHI 0.0 0.0 #
# $Z Gen $xTV/dPHI 0.0 0.0 #
# $Z Gen $xTV/mnTHETA 0.0 0.0 #
# $Z Gen $xTV/MnTHETA 0.0 0.0 #
# $Z Gen $xTV/dTHETA 0.0 0.0 #
# $Z Gen $xTV/DISTANCE 1000000 1000000 #
# $Z Gen $xTV/STABILITE 1000000 1000000 #
# #
# $Z set RayonsT=0.014 #
# $Z set RayonsP=`$xcg/MUL2.01$X a=2 b=$RayonsT` #
# $Z set DistanceI=`$xcg/MUL2.01$X a=4 b=$RayonsP` #
# $Z Gen $xTV/RAYONS $RayonsT $RayonsT #
# $Z Gen $xTV/INTERACTIONS $RayonsP $RayonsP #
# #
# $Z $DELETE $xTV/COULEURS$TEINT #
# $Z $DELETE $xTV/COULEURS$LUMIN #
# $Z $DELETE $xTV/COULEURS$SATUR #
# $Z $DELETE $xTV/COULEURS$Y #
# $Z $DELETE $xTV/COULEURS #
# $Z $DELETE $xTV/COULEURS$ROUGE #
# $Z $DELETE $xTV/COULEURS$VERTE #
# $Z $DELETE $xTV/COULEURS$BLEUE #
# #
# $Z @ TeinteMagenta = $GRIS_7 #
# $Z @ TeinteCyan = $GRIS_4 + $GRIS_8 #
# #
# $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartN \ #
# $Z vD=$TeinteMagenta vA=$TeinteCyan \ #
# $Z cubique=FAUX \ #
# $Z entiers=VRAI \ #
# $Z > $xTV/COULEURS$TEINT #
# $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartN \ #
# $Z vD=$GRIS_4 vA=$GRIS_4 \ #
# $Z cubique=FAUX \ #
# $Z entiers=VRAI \ #
# $Z > $xTV/COULEURS$LUMIN #
# $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartN \ #
# $Z vD=$GRIS_8 vA=$GRIS_8 \ #
# $Z cubique=FAUX \ #
# $Z entiers=VRAI \ #
# $Z > $xTV/COULEURS$SATUR #
# #
# $Z $PAST \ #
# $Z $xTV/COULEURS$TEINT \ #
# $Z $xTV/COULEURS$LUMIN \ #
# $Z $xTV/COULEURS$SATUR \ #
# $Z | $R "$K_TAB" "$K_BLANC" \ #
# $Z | $AW ' { print "H=" $1 " L=" $2 " S=" $3 } ' \ #
# $Z | $SE -e 's+^+$xcg/RVB_HLS$X RVB_HLS=FAUX +' \ #
# $Z | $SE -e 's/$/ eR=VRAI eV=VRAI eB=VRAI/' \ #
# $Z | $SE -e 's/$/ eH=FAUX eL=FAUX eS=FAUX/' \ #
# $Z > $xTV/COULEURS$Y #
# #
# $Z (source $xTV/COULEURS$Y) \ #
# $Z > $xTV/COULEURS #
# #
# $Z $GRE "^R=" $xTV/COULEURS \ #
# $Z | $SE -e "s/^R=//" \ #
# $Z > $xTV/COULEURS$ROUGE #
# $Z $GRE "^V=" $xTV/COULEURS \ #
# $Z | $SE -e "s/^V=//" \ #
# $Z > $xTV/COULEURS$VERTE #
# $Z $GRE "^B=" $xTV/COULEURS \ #
# $Z | $SE -e "s/^B=//" \ #
# $Z > $xTV/COULEURS$BLEUE #
# #
# $Z Pal #
# #
# #
# $Z $xci/scale$X \ #
# $Z A=$xTV/BOITE.1 \ #
# $Z a=1.00 \ #
# $Z R=$xTV/BOITE.2 \ #
# $Z $formatI #
# #
# $Z $xrk/rdn_walk.41$X corps=$Npart \ #
# $Z np=$NimagesA \ #
# $Z collisions=VRAI DLA=FAUX interaction=$DistanceI \ #
# $Z LISTE_X=$xTV/COORDONNEES$COORD_X \ #
# $Z LISTE_Y=$xTV/COORDONNEES$COORD_Y \ #
# $Z LISTE_Z=$xTV/COORDONNEES$COORD_Z \ #
# $Z LISTE_VX=$xTV/VITESSES$COORD_X \ #
# $Z LISTE_VY=$xTV/VITESSES$COORD_Y \ #
# $Z LISTE_VZ=$xTV/VITESSES$COORD_Z \ #
# $Z LISTE_MINIMUM_DELTA_RHO=$xTV/mdRHO \ #
# $Z LISTE_MAXIMUM_DELTA_RHO=$xTV/MdRHO \ #
# $Z LISTE_MINIMUM_N_PHI=$xTV/mnPHI \ #
# $Z LISTE_MAXIMUM_N_PHI=$xTV/MnPHI \ #
# $Z LISTE_DELTA_PHI=$xTV/dPHI \ #
# $Z LISTE_MINIMUM_N_THETA=$xTV/mnTHETA \ #
# $Z LISTE_MAXIMUM_N_THETA=$xTV/MnTHETA \ #
# $Z LISTE_DELTA_THETA=$xTV/dTHETA \ #
# $Z LISTE_DISTANCE_MAXIMALE=$xTV/DISTANCE \ #
# $Z LISTE_STABILITE=$xTV/STABILITE \ #
# $Z LISTE_RAYON=$xTV/RAYONS \ #
# $Z LISTE_RAYON_D_INTERACTION=$xTV/INTERACTIONS \ #
# $Z LISTE_ROUGE=$xTV/COULEURS$ROUGE \ #
# $Z LISTE_VERTE=$xTV/COULEURS$VERTE \ #
# $Z LISTE_BLEUE=$xTV/COULEURS$BLEUE \ #
# $Z milieu=VRAI \ #
# $Z reflexion=VRAI refraction=FAUX \ #
# $Z Mhors=$BLANC \ #
# $Z MNpasX=1 Mprolonger_X=VRAI \ #
# $Z MNpasY=1 Mprolonger_Y=VRAI \ #
# $Z MNpasZ=1 Mprolonger_Z=VRAI \ #
# $Z adapter_M_nPAS=VRAI \ #
# $Z Msimplifier=FAUX affiner_M_maillage=FAUX \ #
# $Z Mfiltrer=VRAI Mspherique=VRAI Mtolerance=1 \ #
# $Z MC=$xTV/BOITE.2 \ #
# $Z MChiffres=0 \ #
# $Z Zmin=0 Zmax=15 \ #
# $Z centrer=VRAI \ #
# $Z dct=0.05 nombre=10 \ #
# $Z trainees=VRAI mode=1 \ #
# $Z attenuation_des_images=1.0 \ #
# $Z attenuation_des_trainees=1.00 \ #
# $Z facteur_ROUGE=1.0 \ #
# $Z facteur_VERTE=1.0 \ #
# $Z facteur_BLEUE=1.0 \ #
# $Z renormaliser=FAUX \ #
# $Z Lz=100 \ #
# $Z zoom_automatique=VRAI \ #
# $Z centre_de_gravite=FAUX \ #
# $Z fond=FAUX \ #
# $Z lister_les_points=FAUX \ #
# $Z lister_les_points_apres=FAUX \ #
# $Z R=$xiim/REFL.Wa. \ #
# $Z $formatI #
# #
# $Z $xrk/rdn_walk.41$X corps=$Npart \ #
# $Z np=$NimagesA \ #
# $Z collisions=VRAI DLA=FAUX interaction=$DistanceI \ #
# $Z LISTE_X=$xTV/COORDONNEES$COORD_X \ #
# $Z LISTE_Y=$xTV/COORDONNEES$COORD_Y \ #
# $Z LISTE_Z=$xTV/COORDONNEES$COORD_Z \ #
# $Z LISTE_VX=$xTV/VITESSES$COORD_X \ #
# $Z LISTE_VY=$xTV/VITESSES$COORD_Y \ #
# $Z LISTE_VZ=$xTV/VITESSES$COORD_Z \ #
# $Z LISTE_MINIMUM_DELTA_RHO=$xTV/mdRHO \ #
# $Z LISTE_MAXIMUM_DELTA_RHO=$xTV/MdRHO \ #
# $Z LISTE_MINIMUM_N_PHI=$xTV/mnPHI \ #
# $Z LISTE_MAXIMUM_N_PHI=$xTV/MnPHI \ #
# $Z LISTE_DELTA_PHI=$xTV/dPHI \ #
# $Z LISTE_MINIMUM_N_THETA=$xTV/mnTHETA \ #
# $Z LISTE_MAXIMUM_N_THETA=$xTV/MnTHETA \ #
# $Z LISTE_DELTA_THETA=$xTV/dTHETA \ #
# $Z LISTE_DISTANCE_MAXIMALE=$xTV/DISTANCE \ #
# $Z LISTE_STABILITE=$xTV/STABILITE \ #
# $Z LISTE_RAYON=$xTV/INTERACTIONS \ #
# $Z LISTE_RAYON_D_INTERACTION=$xTV/INTERACTIONS \ #
# $Z LISTE_ROUGE=$xTV/COULEURS$ROUGE \ #
# $Z LISTE_VERTE=$xTV/COULEURS$VERTE \ #
# $Z LISTE_BLEUE=$xTV/COULEURS$BLEUE \ #
# $Z milieu=VRAI \ #
# $Z reflexion=VRAI refraction=FAUX \ #
# $Z Mhors=$BLANC \ #
# $Z MNpasX=1 Mprolonger_X=VRAI \ #
# $Z MNpasY=1 Mprolonger_Y=VRAI \ #
# $Z MNpasZ=1 Mprolonger_Z=VRAI \ #
# $Z adapter_M_nPAS=VRAI \ #
# $Z Msimplifier=FAUX affiner_M_maillage=FAUX \ #
# $Z Mfiltrer=VRAI Mspherique=VRAI Mtolerance=1 \ #
# $Z MC=$xTV/BOITE.2 \ #
# $Z MChiffres=0 \ #
# $Z Zmin=0 Zmax=15 \ #
# $Z centrer=VRAI \ #
# $Z dct=0.05 nombre=10 \ #
# $Z trainees=FAUX \ #
# $Z facteur_ROUGE=1.0 \ #
# $Z facteur_VERTE=1.0 \ #
# $Z facteur_BLEUE=1.0 \ #
# $Z renormaliser=FAUX \ #
# $Z Lz=100 \ #
# $Z zoom_automatique=VRAI \ #
# $Z centre_de_gravite=FAUX \ #
# $Z fond=VRAI \ #
# $Z dynamique=VRAI \ #
# $Z F=$xiim/REFL.Wa. \ #
# $Z lister_les_points=FAUX \ #
# $Z lister_les_points_apres=FAUX \ #
# $Z R=$xiim/REFL.Wb. \ #
# $Z $formatI #
# #
# #
# #
# #
# $Z $xci/complement$X A=$xTV/BOITE.1 \ #
# $Z R=$xTV/BOITE.3 \ #
# $Z $formatI #
# #
# $Z eval `$xci/genere$X \\\ #
# $Z commande='($xci/scale$X \\\ #
# $Z A=$xTV/BOITE.3 \\\ #
# $Z a=0.50 \\\ #
# $Z R=$xTV/BOITE.3%s \\\ #
# $Z $formatI)' \\\ #
# $Z en_tete=FAUX RVB=VRAI separateur=VRAI` #
# #
# #
# $Z $DELETE $xTV/COORDONNEES$COORD_X #
# $Z $DELETE $xTV/COORDONNEES$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_Z #
# $Z $DELETE $xTV/VITESSES$COORD_X #
# $Z $DELETE $xTV/VITESSES$COORD_Y #
# $Z $DELETE $xTV/VITESSES$COORD_Z #
# $Z $DELETE $xTV/mdRHO #
# $Z $DELETE $xTV/MdRHO #
# $Z $DELETE $xTV/mnPHI #
# $Z $DELETE $xTV/MnPHI #
# $Z $DELETE $xTV/dPHI #
# $Z $DELETE $xTV/mnTHETA #
# $Z $DELETE $xTV/MnTHETA #
# $Z $DELETE $xTV/dTHETA #
# $Z $DELETE $xTV/DISTANCE #
# $Z $DELETE $xTV/STABILITE #
# $Z $DELETE $xTV/RAYONS #
# $Z $DELETE $xTV/INTERACTIONS #
# $Z $DELETE $xTV/COULEURS$TEINT #
# $Z $DELETE $xTV/COULEURS$LUMIN #
# $Z $DELETE $xTV/COULEURS$SATUR #
# $Z $DELETE $xTV/COULEURS$Y #
# $Z $DELETE $xTV/COULEURS #
# $Z $DELETE $xTV/COULEURS$ROUGE #
# $Z $DELETE $xTV/COULEURS$VERTE #
# $Z $DELETE $xTV/COULEURS$BLEUE #
# #
# #
# $c #include <stdio.h> #
# #
# $c extern int atoi(); #
# $c extern int *getenv(); #
# #
# $c #define NA0 (atoi(getenv("PremiereA"))) #
# $c #define NA (atoi(getenv("DerniereA"))) #
# #
# $c #define Edeb 0.0 #
# $c #define Efin 1.0 #
# #
# $c int main() #
# $c { #
# $c int n1; #
# $c double echelle; #
# #
# $c for (n1=NA0 ; n1<=NA ; n1++) #
# $c { #
# $c echelle = ((Efin*(n1-NA0))+(Edeb*(NA-n1)))/(NA-NA0); #
# #
# $c printf("$xci/cache.11$Z #
# $c $xiim/REFL.Wb.%04d #
# $c $xTV/BOITE.3 #
# $c $xiim/REFL.9.%04d\n" #
# $c ,n1,n1 #
# $c ); #
# #
# $c printf("$xci/substitue$X #
# $c A=$xiim/REFL.Wb.%04d$ROUGE #
# $c substitution=L_SUBSTITUTION_02 #
# $c R=$xTV/ILES.52$ROUGE #
# $c $formatI\n" #
# $c ,n1 #
# $c ); #
# $c printf("$xci/substitue$X #
# $c A=$xiim/REFL.Wb.%04d$VERTE #
# $c substitution=L_SUBSTITUTION_02 #
# $c R=$xTV/ILES.52$VERTE #
# $c $formatI\n" #
# $c ,n1 #
# $c ); #
# $c printf("$xci/substitue$X #
# $c A=$xiim/REFL.Wb.%04d$BLEUE #
# $c substitution=L_SUBSTITUTION_02 #
# $c R=$xTV/ILES.52$BLEUE #
# $c $formatI\n" #
# $c ,n1 #
# $c ); #
# #
# $c printf("$xci/cache$X #
# $c A=$xTV/ILES.52$ROUGE #
# $c M=$xTV/BOITE.7 #
# $c R=$xTV/ILES.53$ROUGE #
# $c $formatI\n" #
# $c ); #
# $c printf("$xci/and$X #
# $c A1=$xTV/ILES.52$VERTE #
# $c A2=$xTV/BOITE.71 #
# $c R=$xTV/ILES.53$VERTE #
# $c $formatI\n" #
# $c ); #
# $c printf("$xci/and$X #
# $c A1=$xTV/ILES.52$BLEUE #
# $c A2=$xTV/BOITE.71 #
# $c R=$xTV/ILES.53$BLEUE #
# $c $formatI\n" #
# $c ); #
# #
# $c printf("$xci/montagne.01$X #
# $c A=$xTV/ILES.84 #
# $c standard=FAUX #
# $c zero=FAUX #
# $c echelle=%f #
# $c T=$xTV/ILES.53$ROUGE #
# $c avion=VRAI #
# $c sy=8 #
# $c R=$xiim/RE$m.9.%04d$ROUGE #
# $c $formatI\n" #
# $c ,echelle,n1 #
# $c ); #
# $c printf("$xci/montagne.01$X #
# $c A=$xTV/ILES.84 #
# $c standard=FAUX #
# $c zero=FAUX #
# $c echelle=%f #
# $c T=$xTV/ILES.53$VERTE #
# $c avion=VRAI #
# $c sy=8 #
# $c R=$xiim/RE$m.9.%04d$VERTE #
# $c $formatI\n" #
# $c ,echelle,n1 #
# $c ); #
# $c printf("$xci/montagne.01$X #
# $c A=$xTV/ILES.84 #
# $c standard=FAUX #
# $c zero=FAUX #
# $c echelle=%f #
# $c T=$xTV/ILES.53$BLEUE #
# $c avion=VRAI #
# $c sy=8 #
# $c R=$xiim/RE$m.9.%04d$BLEUE #
# $c $formatI\n" #
# $c ,echelle,n1 #
# $c ); #
# $c } #
# $c } #
# #
# $Z $DELETE $xTV/BOITE.1 #
# $Z $DELETE $xTV/BOITE.2 #
# $Z $DELETE $xTV/BOITE.3 #
# $Z $DELETE $xTV/BOITE.3$ROUGE #
# $Z $DELETE $xTV/BOITE.3$VERTE #
# $Z $DELETE $xTV/BOITE.3$BLEUE #
# $Z $DELETE $xTV/BOITE.3$DROITE #
# $Z $DELETE $xTV/BOITE.3$GAUCHE #
# $Z $DELETE $xTV/BOITE.7 #
# $Z $DELETE $xTV/BOITE.71 #
# $Z $DELETE $xTV/ILES.52$ROUGE #
# $Z $DELETE $xTV/ILES.52$VERTE #
# $Z $DELETE $xTV/ILES.52$BLEUE #
# $Z $DELETE $xTV/ILES.53$ROUGE #
# $Z $DELETE $xTV/ILES.53$VERTE #
# $Z $DELETE $xTV/ILES.53$BLEUE #
# $Z $DELETE $xTV/ILES.84 #
# $Z $DELETE $xTV/ILES.91 #
# $Z $DELETE $xTV/ILES.92 #
# $Z $DELETE $xTV/ILES.95 #
# $Z $DELETE $xTV/BORDURE #
# $Z $DELETE $xTV/MASQUE$DROITE #
# $Z $DELETE $xTV/MASQUE$GAUCHE #
# $Z $DELETE $xTV/BOITE$DROITE #
# $Z $DELETE $xTV/BOITE$GAUCHE #
# $Z $DELETE $xTV/POINTS #
# $Z $DELETE $xTV/POINTS$DROITE #
# $Z $DELETE $xTV/POINTS$GAUCHE #
# #
# $Z Pal #
# #
# $Z $xci/reduction_16$Z $xiim/REFL.9. $xiak/REFL.X1 $Premiere $Derniere #
# $Z $xci/reduction_64$Z $xiim/REFL.9. $xiak/REFL.X1 $Premiere $Derniere #
# #
# $X $xci/genere$X c='ro $xiak/REFL.X1$R16%s' RVB=VRAI #
# $X $xci/genere$X c='ro $xiak/REFL.X1$R64%s' RVB=VRAI #
# #
# $X $xci/genere$X c='$xcg/unite$Z $xiak/REFL.X1$R16%s' RVB=VRAI #
# $X $xci/genere$X c='$xcg/unite$Z $xiak/REFL.X1$R64%s' RVB=VRAI #
# #
# #
# $Z $xci/reduction_16$Z $xiim/RE$m.9. $xiak/RE.X1$m $Premiere $Derniere #
# $Z $xci/reduction_64$Z $xiim/RE$m.9. $xiak/RE.X1$m $Premiere $Derniere #
# #
# $X $xci/genere$X c='ro $xiak/RE.X1$m$R16%s' RVB=VRAI #
# $X $xci/genere$X c='ro $xiak/RE.X1$m$R64%s' RVB=VRAI #
# #
# $X $xci/genere$X c='$xcg/unite$Z $xiak/RE.X1$m$R16%s' RVB=VRAI #
# $X $xci/genere$X c='$xcg/unite$Z $xiak/RE.X1$m$R64%s' RVB=VRAI #
# #
# #
# Pal #
# #
# #
# $xci/disk_video_P$Z $xiim_LACT29/REFL.9. 0001 0512 RVB \ #
# 11 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# $xci/disk_video_P$Z $xiim_LACT29/RE$m.9. 0001 0512 RVB \ #
# 11 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
# #
# xivPdf 3 2 #
# #
# record.01$Z $xiak/REFL.X1$R16 RVB Initialisation #
# record.01$Z $xiak/REFL.X1$R64 RVB rien #
# record.01$Z $xiak/RE.X1$m$R16 RVB rien #
# record.01$Z $xiak/RE.X1$m$R64 RVB rien #
# #
sequence 030996_031507
# Generee (sur '$LACT29') par : #
# #
# $Z unsetenv PremiereA #
# $Z unsetenv DerniereA #
# #
# $Z SET tPremiereA=1 #
# $Z SET tDerniereA=512 #
# $Z set Premiere=$tPremiereA #
# $Z @ NimagesA = $tDerniereA - $tPremiereA #
# $Z @ NimagesA = $NimagesA + 1 #
# $Z @ Nimages = $NimagesA #
# $Z @ Nimages = $Nimages - 1 #
# $Z @ Derniere = $Premiere + $Nimages #
# $Z @ Derniere = $Derniere - 1 #
# #
# $Z SETENV PremiereA $tPremiereA #
# $Z SETENV DerniereA $tDerniereA #
# #
# $X echo "echo ATTENTION : 'PremiereA' et 'DerniereA' mis dans 'env'." #
# #
# #
# $Z Pal #
# #
# $Z set PUnivers="np=0 CAL1=FAUX editer_l_univers_physique=VRAI" #
# $Z set Univers=`$xrk/rdn_walk.41$X $PUnivers $formatI` #
# #
# $Z set MinX=`echo $Univers | $SE -e "s/^.*[(,]XUI=//" -e "s/[,)].*//"` #
# $Z set MaxX=`echo $Univers | $SE -e "s/^.*[(,]XUS=//" -e "s/[,)].*//"` #
# $Z set MinY=`echo $Univers | $SE -e "s/^.*[(,]YUI=//" -e "s/[,)].*//"` #
# $Z set MaxY=`echo $Univers | $SE -e "s/^.*[(,]YUS=//" -e "s/[,)].*//"` #
# #
# $Z set MinX=`$xcg/ABSO.01$X x=$MinX` #
# $Z set MaxX=`$xcg/ABSO.01$X x=$MaxX` #
# $Z set MinY=`$xcg/ABSO.01$X x=$MinY` #
# $Z set MaxY=`$xcg/ABSO.01$X x=$MaxY` #
# #
# $Z set MaxX=`$xcg/MAX2.01$X n1=$MinX n2=$MaxX` #
# $Z set MaxY=`$xcg/MAX2.01$X n1=$MinY n2=$MaxY` #
# #
# $Z set SeuilPartN=1.0 #
# $Z set GrainePartN=2 #
# $Z set DistanceX=12 #
# $Z set DistanceY=12 #
# $Z set ForceX=0.0 #
# $Z set ForceY=0.0 #
# #
# $Z $DELETE $xTV/BOITE.1 #
# $Z $DELETE $xTV/BOITE.2 #
# $Z $DELETE $xTV/BOITE.3 #
# $Z $DELETE $xTV/BOITE.3$ROUGE #
# $Z $DELETE $xTV/BOITE.3$VERTE #
# $Z $DELETE $xTV/BOITE.3$BLEUE #
# $Z $DELETE $xTV/BOITE.6 #
# $Z $DELETE $xTV/BOITE.A #
# $Z $DELETE $xTV/BOITE.B #
# #
# #
# $Z Std #
# #
# $Z set FacXY=0.85 #
# $Z set SeuilBOITE=`$xcg/SOUS.01$X a=1 b=$FacXY` #
# $Z set SeuilBOITE=`$xcg/MUL2.01$X a=$SeuilBOITE b=$GRIS_8` #
# $Z set SeuilBOITE=`$xci/valeurs_inte$X p=1 d=1 vD=$SeuilBOITE entiers=VRAI` #
# $Z set SeuilBOITE=`$xcg/MIN2.01$X a=$SeuilBOITE b=$GRIS_1` #
# #
# $Z $xci/complement$X \ #
# $Z A=$xiio/SPIRALE \ #
# $Z $formatI | \ #
# $Z $xci/seuil$X \ #
# $Z seuil=$SeuilBOITE \ #
# $Z R=$xTV/BOITE.6 \ #
# $Z $formatI #
# #
# $Z S #
# #
# $Z $xci/format.01$X mode=0 \ #
# $Z A=$xTV/BOITE.6 \ #
# $Z $formatI \ #
# $Z R=$xTV/BOITE.1 \ #
# $Z $formatR_Pal #
# #
# $Z $xci/dilate.01$X \ #
# $Z A=$xTV/BOITE.6 \ #
# $Z points=225 \ #
# $Z dilater=FAUX \ #
# $Z R=$xTV/BOITE.A \ #
# $Z $formatI #
# #
# $Z $xci/random.02$X \ #
# $Z seuil=$SeuilPartN \ #
# $Z graine=$GrainePartN \ #
# $Z px=$DistanceX py=$DistanceY \ #
# $Z $formatI | \ #
# $Z $xci/shuffling.01$X \ #
# $Z inverse=FAUX \ #
# $Z NOIR=FAUX \ #
# $Z fX=$ForceX fY=$ForceY \ #
# $Z graine=$GrainePartN \ #
# $Z $formatI | \ #
# $Z $xci/and$X \ #
# $Z A2=$xTV/BOITE.A \ #
# $Z R=$xTV/BOITE.B \ #
# $Z $formatI #
# #
# $Z $DELETE $xTV/COORDONNEES #
# $Z $DELETE $xTV/COORDONNEES_01$COORD_X #
# $Z $DELETE $xTV/COORDONNEES_01$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_X #
# $Z $DELETE $xTV/COORDONNEES$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_Z #
# #
# $Z $xci/liste_points$X \ #
# $Z A=$xTV/BOITE.B \ #
# $Z $formatI \ #
# $Z > $xTV/COORDONNEES #
# #
# $Z $DELETE $xTV/BOITE.6 #
# $Z $DELETE $xTV/BOITE.A #
# $Z $DELETE $xTV/BOITE.B #
# #
# $Z set PartN=`$TAI -1 $xTV/COORDONNEES | $SE -e "s/^.*=//"` #
# #
# $Z $CA $xTV/COORDONNEES \ #
# $Z | $GRE "^[Xx]=" \ #
# $Z | $SE -e "s/^[Xx]=//" \ #
# $Z > $xTV/COORDONNEES_01$COORD_X #
# $Z $CA $xTV/COORDONNEES \ #
# $Z | $GRE "^[Yy]=" \ #
# $Z | $SE -e "s/^[Yy]=//" \ #
# $Z > $xTV/COORDONNEES_01$COORD_Y #
# #
# $Z set EchelleX=`$xcg/MUL2.01$X n1=2 n2=$MaxX` #
# $Z set TranslationX=`$xcg/MUL2.01$X n1=-1 n2=$MaxX` #
# $Z set EchelleY=`$xcg/MUL2.01$X n1=2 n2=$MaxY` #
# $Z set TranslationY=`$xcg/MUL2.01$X n1=-1 n2=$MaxY` #
# #
# $Z $xrv/AXPB.01$X \ #
# $Z CAL1=FAUX \ #
# $Z ne=$PartN \ #
# $Z fichier=$xTV/COORDONNEES_01$COORD_X \ #
# $Z homothetie=$EchelleX translation=$TranslationX \ #
# $Z > $xTV/COORDONNEES$COORD_X #
# $Z $xrv/AXPB.01$X \ #
# $Z CAL1=FAUX \ #
# $Z ne=$PartN \ #
# $Z fichier=$xTV/COORDONNEES_01$COORD_Y \ #
# $Z homothetie=$EchelleY translation=$TranslationY \ #
# $Z > $xTV/COORDONNEES$COORD_Y #
# #
# $Z $DELETE $xTV/COORDONNEES_01$COORD_X #
# $Z $DELETE $xTV/COORDONNEES_01$COORD_Y #
# #
# $Z set Part0=1 #
# $Z @ Npart = $PartN - $Part0 #
# $Z @ Npart = $Npart + 1 #
# $Z @ NpartS2 = $Npart / 2 #
# $Z set Part01=$Part0 #
# $Z @ PartN1 = $Part01 + $NpartS2 #
# $Z @ PartN1 = $PartN1 - 1 #
# $Z @ Part02 = $PartN1 + 1 #
# $Z set PartN2=$PartN #
# #
# $Z $DELETE $xTV/PERMUTATIONS #
# $Z $DELETE $xTV/MODULE #
# $Z $DELETE $xTV/MODULE.1 #
# $Z $DELETE $xTV/THETA #
# $Z $DELETE $xTV/XY_RT.1 #
# $Z $DELETE $xTV/XY_RT.2 #
# $Z $DELETE $xTV/VITESSES #
# $Z $DELETE $xTV/VITESSES$COORD_X #
# $Z $DELETE $xTV/VITESSES$COORD_Y #
# $Z $DELETE $xTV/VITESSES$COORD_Z #
# $Z $DELETE $xTV/mdRHO #
# $Z $DELETE $xTV/MdRHO #
# $Z $DELETE $xTV/mnPHI #
# $Z $DELETE $xTV/MnPHI #
# $Z $DELETE $xTV/dPHI #
# $Z $DELETE $xTV/mnTHETA #
# $Z $DELETE $xTV/MnTHETA #
# $Z $DELETE $xTV/dTHETA #
# $Z $DELETE $xTV/supOUVE #
# $Z $DELETE $xTV/DISTANCE #
# $Z $DELETE $xTV/STABILITE #
# $Z $DELETE $xTV/RAYONS #
# $Z $DELETE $xTV/INTERACTIONS #
# #
# #
# $Z alias Gen 'set Fi=\!:1 ; set vD=\!:2 ; set vA=\!:3 ; set ArG=(\!:4*) ; \\ #
# $Z $DELETE $Fi ; \\ #
# $Z $xci/valeurs_inte$X p=$Part0 d=$PartN vD=$vD vA=$vA $ArG > $Fi ; \\ #
# $Z unset Fi vD vA ArG' #
# #
# $Z alias GenR 'set Fi=\!:1 ; set In=\!:2 ; set Su=\!:3 ; set ArG=(\!:4*) ; \\ #
# $Z $DELETE $Fi ; \\ #
# $Z $xci/valeurs_alea$X p=$Part0 d=$PartN signe="$KV" inf=$In sup=$Su $ArG > $Fi ; \\ #
# $Z unset Fi In Su ArG' #
# #
# $Z Gen $xTV/COORDONNEES$COORD_Z 0.0 0.0 #
# #
# #
# $Z @ IPart0 = $Part0 - $Part0 #
# $Z @ IPartN = $PartN - $Part0 #
# $Z $xci/valeurs_alea$X \ #
# $Z p=$IPart0 d=$IPartN \ #
# $Z inf=$IPart0 sup=$IPartN \ #
# $Z entiers=VRAI sans_collisions=VRAI \ #
# $Z CAL1=FAUX \ #
# $Z > $xTV/PERMUTATIONS #
# #
# $Z set PetiteVitesse=0.004 #
# $Z set GrandeVitesse=0.020 #
# #
# $Z $xci/valeurs_inte$X premiere=$Part01 derniere=$PartN1 \ #
# $Z vD=$GrandeVitesse vA=$GrandeVitesse \ #
# $Z cubique=FAUX \ #
# $Z > $xTV/MODULE.1 #
# $Z $xci/valeurs_inte$X premiere=$Part02 derniere=$PartN2 \ #
# $Z vD=$PetiteVitesse vA=$PetiteVitesse \ #
# $Z cubique=FAUX \ #
# $Z >>! $xTV/MODULE.1 #
# $Z $xrv/permute.11$X \ #
# $Z CAL1=FAUX \ #
# $Z ne=$PartN \ #
# $Z fichier=$xTV/MODULE.1 \ #
# $Z permutation=$xTV/PERMUTATIONS \ #
# $Z > $xTV/MODULE #
# #
# $Z GenR $xTV/THETA 0.0 $dpi g=3333 #
# #
# $Z $CA $xcs/csh$Y \ #
# $Z > $xTV/XY_RT.1 #
# $Z $PAST $xTV/MODULE $xTV/THETA \ #
# $Z | $R "$K_TAB" "$K_BLANC" \ #
# $Z | $AW ' { print "$xcg/XY_RT$X r=" $1 " t=" $2 " cartesien=FAUX" } ' \ #
# $Z >>! $xTV/XY_RT.1 #
# #
# $Z (source $xTV/XY_RT.1) \ #
# $Z > $xTV/XY_RT.2 #
# #
# $Z $CA $xTV/XY_RT.2 \ #
# $Z | $GRE "^x=" \ #
# $Z | $SE -e "s/^x=//" \ #
# $Z > $xTV/VITESSES$COORD_X #
# $Z $CA $xTV/XY_RT.2 \ #
# $Z | $GRE "^y=" \ #
# $Z | $SE -e "s/^y=//" \ #
# $Z > $xTV/VITESSES$COORD_Y #
# #
# $Z Gen $xTV/VITESSES$COORD_Z 0.0 0.0 #
# #
# $Z Gen $xTV/mdRHO 0.0 0.0 #
# $Z Gen $xTV/MdRHO 0.0 0.0 #
# $Z Gen $xTV/mnPHI 0.0 0.0 #
# $Z Gen $xTV/MnPHI 0.0 0.0 #
# $Z Gen $xTV/dPHI 0.0 0.0 #
# $Z Gen $xTV/mnTHETA 0.0 0.0 #
# $Z Gen $xTV/MnTHETA 0.0 0.0 #
# $Z Gen $xTV/dTHETA 0.0 0.0 #
# $Z Gen $xTV/DISTANCE 1000000 1000000 #
# $Z Gen $xTV/STABILITE 1000000 1000000 #
# #
# $Z set RayonsT=0.014 #
# $Z set RayonsP=`$xcg/MUL2.01$X a=2 b=$RayonsT` #
# $Z set DistanceI=`$xcg/MUL2.01$X a=4 b=$RayonsP` #
# $Z Gen $xTV/RAYONS $RayonsT $RayonsT #
# $Z Gen $xTV/INTERACTIONS $RayonsP $RayonsP #
# #
# $Z $DELETE $xTV/COULEURS.1$ROUGE #
# $Z $DELETE $xTV/COULEURS.1$VERTE #
# $Z $DELETE $xTV/COULEURS.1$BLEUE #
# $Z $DELETE $xTV/COULEURS$ROUGE #
# $Z $DELETE $xTV/COULEURS$VERTE #
# $Z $DELETE $xTV/COULEURS$BLEUE #
# #
# $Z $xci/valeurs_inte$X premiere=$Part01 derniere=$PartN1 \ #
# $Z vD=$GRIS_8 vA=$GRIS_8 \ #
# $Z cubique=FAUX \ #
# $Z entiers=VRAI \ #
# $Z > $xTV/COULEURS.1$ROUGE #
# $Z $xci/valeurs_inte$X premiere=$Part02 derniere=$PartN2 \ #
# $Z vD=$GRIS_0 vA=$GRIS_0 \ #
# $Z cubique=FAUX \ #
# $Z entiers=VRAI \ #
# $Z >>! $xTV/COULEURS.1$ROUGE #
# $Z $xci/valeurs_inte$X premiere=$Part01 derniere=$PartN1 \ #
# $Z vD=$GRIS_4 vA=$GRIS_4 \ #
# $Z cubique=FAUX \ #
# $Z entiers=VRAI \ #
# $Z > $xTV/COULEURS.1$VERTE #
# $Z $xci/valeurs_inte$X premiere=$Part02 derniere=$PartN2 \ #
# $Z vD=$GRIS_5 vA=$GRIS_5 \ #
# $Z cubique=FAUX \ #
# $Z entiers=VRAI \ #
# $Z >>! $xTV/COULEURS.1$VERTE #
# $Z $xci/valeurs_inte$X premiere=$Part01 derniere=$PartN1 \ #
# $Z vD=$GRIS_0 vA=$GRIS_0 \ #
# $Z cubique=FAUX \ #
# $Z entiers=VRAI \ #
# $Z > $xTV/COULEURS.1$BLEUE #
# $Z $xci/valeurs_inte$X premiere=$Part02 derniere=$PartN2 \ #
# $Z vD=$GRIS_8 vA=$GRIS_8 \ #
# $Z cubique=FAUX \ #
# $Z entiers=VRAI \ #
# $Z >>! $xTV/COULEURS.1$BLEUE #
# #
# $Z $xrv/permute.11$X \ #
# $Z CAL1=FAUX \ #
# $Z ne=$PartN \ #
# $Z fichier=$xTV/COULEURS.1$ROUGE \ #
# $Z permutation=$xTV/PERMUTATIONS \ #
# $Z > $xTV/COULEURS$ROUGE #
# $Z $xrv/permute.11$X \ #
# $Z CAL1=FAUX \ #
# $Z ne=$PartN \ #
# $Z fichier=$xTV/COULEURS.1$VERTE \ #
# $Z permutation=$xTV/PERMUTATIONS \ #
# $Z > $xTV/COULEURS$VERTE #
# $Z $xrv/permute.11$X \ #
# $Z CAL1=FAUX \ #
# $Z ne=$PartN \ #
# $Z fichier=$xTV/COULEURS.1$BLEUE \ #
# $Z permutation=$xTV/PERMUTATIONS \ #
# $Z > $xTV/COULEURS$BLEUE #
# #
# $Z Pal #
# #
# #
# $Z $xci/scale$X \ #
# $Z A=$xTV/BOITE.1 \ #
# $Z a=1.00 \ #
# $Z R=$xTV/BOITE.2 \ #
# $Z $formatI #
# #
# $Z $DELETE $xTV/RAYONS #
# $Z $CP $xTV/INTERACTIONS $xTV/RAYONS #
# #
# $Z $xrk/rdn_walk.41$X corps=$Npart \ #
# $Z np=$NimagesA \ #
# $Z collisions=VRAI DLA=FAUX interaction=$DistanceI \ #
# $Z restitution=0.5 \ #
# $Z LISTE_X=$xTV/COORDONNEES$COORD_X \ #
# $Z LISTE_Y=$xTV/COORDONNEES$COORD_Y \ #
# $Z LISTE_Z=$xTV/COORDONNEES$COORD_Z \ #
# $Z LISTE_VX=$xTV/VITESSES$COORD_X \ #
# $Z LISTE_VY=$xTV/VITESSES$COORD_Y \ #
# $Z LISTE_VZ=$xTV/VITESSES$COORD_Z \ #
# $Z LISTE_MINIMUM_DELTA_RHO=$xTV/mdRHO \ #
# $Z LISTE_MAXIMUM_DELTA_RHO=$xTV/MdRHO \ #
# $Z LISTE_MINIMUM_N_PHI=$xTV/mnPHI \ #
# $Z LISTE_MAXIMUM_N_PHI=$xTV/MnPHI \ #
# $Z LISTE_DELTA_PHI=$xTV/dPHI \ #
# $Z LISTE_MINIMUM_N_THETA=$xTV/mnTHETA \ #
# $Z LISTE_MAXIMUM_N_THETA=$xTV/MnTHETA \ #
# $Z LISTE_DELTA_THETA=$xTV/dTHETA \ #
# $Z LISTE_DISTANCE_MAXIMALE=$xTV/DISTANCE \ #
# $Z LISTE_STABILITE=$xTV/STABILITE \ #
# $Z LISTE_RAYON=$xTV/RAYONS \ #
# $Z LISTE_RAYON_D_INTERACTION=$xTV/INTERACTIONS \ #
# $Z LISTE_ROUGE=$xTV/COULEURS$ROUGE \ #
# $Z LISTE_VERTE=$xTV/COULEURS$VERTE \ #
# $Z LISTE_BLEUE=$xTV/COULEURS$BLEUE \ #
# $Z milieu=VRAI \ #
# $Z reflexion=VRAI refraction=FAUX \ #
# $Z Mhors=$BLANC \ #
# $Z MNpasX=1 Mprolonger_X=VRAI \ #
# $Z MNpasY=1 Mprolonger_Y=VRAI \ #
# $Z MNpasZ=1 Mprolonger_Z=VRAI \ #
# $Z adapter_M_nPAS=VRAI \ #
# $Z Msimplifier=FAUX affiner_M_maillage=FAUX \ #
# $Z MC=$xTV/BOITE.2 \ #
# $Z MChiffres=0 \ #
# $Z Zmin=0 Zmax=15 \ #
# $Z centrer=VRAI \ #
# $Z dct=0.05 nombre=40 \ #
# $Z trainees=FAUX \ #
# $Z renormaliser=FAUX \ #
# $Z Lz=100 \ #
# $Z zoom_automatique=VRAI \ #
# $Z centre_de_gravite=FAUX \ #
# $Z fond=FAUX \ #
# $Z N_au_carre=FAUX \ #
# $Z R=$xiim/REFL.Wa. \ #
# $Z $formatI #
# #
# $Z $DELETE $xTV/PERMUTATIONS #
# $Z $DELETE $xTV/MODULE #
# $Z $DELETE $xTV/MODULE.1 #
# $Z $DELETE $xTV/THETA #
# $Z $DELETE $xTV/COORDONNEES #
# $Z $DELETE $xTV/COORDONNEES$COORD_X #
# $Z $DELETE $xTV/COORDONNEES$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_Z #
# $Z $DELETE $xTV/VITESSES #
# $Z $DELETE $xTV/VITESSES$COORD_X #
# $Z $DELETE $xTV/VITESSES$COORD_Y #
# $Z $DELETE $xTV/VITESSES$COORD_Z #
# $Z $DELETE $xTV/mdRHO #
# $Z $DELETE $xTV/MdRHO #
# $Z $DELETE $xTV/mnPHI #
# $Z $DELETE $xTV/MnPHI #
# $Z $DELETE $xTV/dPHI #
# $Z $DELETE $xTV/mnTHETA #
# $Z $DELETE $xTV/MnTHETA #
# $Z $DELETE $xTV/dTHETA #
# $Z $DELETE $xTV/DISTANCE #
# $Z $DELETE $xTV/STABILITE #
# $Z $DELETE $xTV/RAYONS #
# $Z $DELETE $xTV/INTERACTIONS #
# $Z $DELETE $xTV/COULEURS.1$ROUGE #
# $Z $DELETE $xTV/COULEURS.1$VERTE #
# $Z $DELETE $xTV/COULEURS.1$BLEUE #
# $Z $DELETE $xTV/COULEURS$ROUGE #
# $Z $DELETE $xTV/COULEURS$VERTE #
# $Z $DELETE $xTV/COULEURS$BLEUE #
# #
# #
# #
# #
# $Z $xci/complement$X A=$xTV/BOITE.1 \ #
# $Z R=$xTV/BOITE.3 \ #
# $Z $formatI #
# #
# $Z eval `$xci/genere$X \\\ #
# $Z commande='($xci/scale$X \\\ #
# $Z A=$xTV/BOITE.3 \\\ #
# $Z a=0.50 \\\ #
# $Z R=$xTV/BOITE.3%s \\\ #
# $Z $formatI)' \\\ #
# $Z en_tete=FAUX RVB=VRAI separateur=VRAI` #
# #
# #
# #
# $c extern int atoi(); #
# $c extern int *getenv(); #
# #
# $c #define NA0 (atoi(getenv("PremiereA"))) #
# $c #define NA (atoi(getenv("DerniereA"))) #
# #
# $c #define NR0 1 #
# $c #define NR 4 #
# $c #define PAS 1 #
# #
# $c int main() #
# $c { #
# $c int n1; #
# #
# $c for (n1=NA0 ; n1<=NA ; n1++) #
# $c { #
# $c printf("$xci/cache.11$Z #
# $c $xiim/REFL.Wa.%04d #
# $c $xTV/BOITE.3 #
# $c $xiim/REFL.A.%04d\n" #
# $c ,n1,n1 #
# $c ); #
# $c } #
# $c } #
# #
# #
# $Z $DELETE $xTV/BOITE.1 #
# $Z $DELETE $xTV/BOITE.2 #
# $Z $DELETE $xTV/BOITE.3 #
# $Z $DELETE $xTV/BOITE.3$ROUGE #
# $Z $DELETE $xTV/BOITE.3$VERTE #
# $Z $DELETE $xTV/BOITE.3$BLEUE #
# #
# $Z Pal #
# #
# $Z $xci/reduction_16$Z $xiim/REFL.A. $xiak/REFL.Y1 $Premiere $Derniere #
# $Z $xci/reduction_64$Z $xiim/REFL.A. $xiak/REFL.Y1 $Premiere $Derniere #
# #
# $X $xci/genere$X c='ro $xiak/REFL.Y1$R16%s' RVB=VRAI #
# $X $xci/genere$X c='ro $xiak/REFL.Y1$R64%s' RVB=VRAI #
# #
# $X $xci/genere$X c='$xcg/unite$Z $xiak/REFL.Y1$R16%s' RVB=VRAI #
# $X $xci/genere$X c='$xcg/unite$Z $xiak/REFL.Y1$R64%s' RVB=VRAI #
# #
# #
# Pal #
# #
# #
# $xci/disk_video_P$Z $xiim_LACT29/REFL.A. 001 512 RVB \ #
# 11 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
# #
# xivPdf 3 2 #
# #
# record.01$Z $xiak/REFL.Y1$R16 RVB Initialisation #
# record.01$Z $xiak/REFL.Y1$R64 RVB rien #
# #
sequence 031508_032019
# Generee (sur '$LACT29') par : #
# #
# $Z unsetenv PremiereA #
# $Z unsetenv DerniereA #
# #
# $Z SET tPremiereA=1 #
# $Z SET tDerniereA=512 #
# $Z set Premiere=$tPremiereA #
# $Z @ NimagesA = $tDerniereA - $tPremiereA #
# $Z @ NimagesA = $NimagesA + 1 #
# $Z @ Nimages = $NimagesA #
# $Z @ Nimages = $Nimages - 1 #
# $Z @ Derniere = $Premiere + $Nimages #
# $Z @ Derniere = $Derniere - 1 #
# #
# $Z SETENV PremiereA $tPremiereA #
# $Z SETENV DerniereA $tDerniereA #
# #
# $X echo "echo ATTENTION : 'PremiereA' et 'DerniereA' mis dans 'env'." #
# #
# #
# $Z Pal #
# #
# $Z set PUnivers="np=0 CAL1=FAUX editer_l_univers_physique=VRAI" #
# $Z set Univers=`$xrk/rdn_walk.41$X $PUnivers $formatI` #
# #
# $Z set MinX=`echo $Univers | $SE -e "s/^.*[(,]XUI=//" -e "s/[,)].*//"` #
# $Z set MaxX=`echo $Univers | $SE -e "s/^.*[(,]XUS=//" -e "s/[,)].*//"` #
# $Z set MinY=`echo $Univers | $SE -e "s/^.*[(,]YUI=//" -e "s/[,)].*//"` #
# $Z set MaxY=`echo $Univers | $SE -e "s/^.*[(,]YUS=//" -e "s/[,)].*//"` #
# #
# $Z set MinX=`$xcg/ABSO.01$X x=$MinX` #
# $Z set MaxX=`$xcg/ABSO.01$X x=$MaxX` #
# $Z set MinY=`$xcg/ABSO.01$X x=$MinY` #
# $Z set MaxY=`$xcg/ABSO.01$X x=$MaxY` #
# #
# $Z set MaxX=`$xcg/MAX2.01$X n1=$MinX n2=$MaxX` #
# $Z set MaxY=`$xcg/MAX2.01$X n1=$MinY n2=$MaxY` #
# #
# $Z set SeuilPartN=1.0 #
# $Z set GrainePartN=2 #
# $Z set DistanceX=12 #
# $Z set DistanceY=12 #
# $Z set ForceX=0.0 #
# $Z set ForceY=0.0 #
# #
# $Z $DELETE $xTV/BOITE.1 #
# $Z $DELETE $xTV/BOITE.2 #
# $Z $DELETE $xTV/BOITE.3 #
# $Z $DELETE $xTV/BOITE.3$ROUGE #
# $Z $DELETE $xTV/BOITE.3$VERTE #
# $Z $DELETE $xTV/BOITE.3$BLEUE #
# $Z $DELETE $xTV/BOITE.6 #
# $Z $DELETE $xTV/BOITE.A #
# $Z $DELETE $xTV/BOITE.B #
# #
# #
# $Z Std #
# #
# $Z set FacXY=0.85 #
# $Z set SeuilBOITE=`$xcg/SOUS.01$X a=1 b=$FacXY` #
# $Z set SeuilBOITE=`$xcg/MUL2.01$X a=$SeuilBOITE b=$GRIS_8` #
# $Z set SeuilBOITE=`$xci/valeurs_inte$X p=1 d=1 vD=$SeuilBOITE entiers=VRAI` #
# $Z set SeuilBOITE=`$xcg/MIN2.01$X a=$SeuilBOITE b=$GRIS_1` #
# #
# $Z $xci/complement$X \ #
# $Z A=$xiio/SPIRALE \ #
# $Z $formatI | \ #
# $Z $xci/seuil$X \ #
# $Z seuil=$SeuilBOITE \ #
# $Z R=$xTV/BOITE.6 \ #
# $Z $formatI #
# #
# $Z S #
# #
# $Z $xci/format.01$X mode=0 \ #
# $Z A=$xTV/BOITE.6 \ #
# $Z $formatI \ #
# $Z R=$xTV/BOITE.1 \ #
# $Z $formatR_Pal #
# #
# $Z $xci/dilate.01$X \ #
# $Z A=$xTV/BOITE.6 \ #
# $Z points=225 \ #
# $Z dilater=FAUX \ #
# $Z R=$xTV/BOITE.A \ #
# $Z $formatI #
# #
# $Z $xci/random.02$X \ #
# $Z seuil=$SeuilPartN \ #
# $Z graine=$GrainePartN \ #
# $Z px=$DistanceX py=$DistanceY \ #
# $Z $formatI | \ #
# $Z $xci/shuffling.01$X \ #
# $Z inverse=FAUX \ #
# $Z NOIR=FAUX \ #
# $Z fX=$ForceX fY=$ForceY \ #
# $Z graine=$GrainePartN \ #
# $Z $formatI | \ #
# $Z $xci/and$X \ #
# $Z A2=$xTV/BOITE.A \ #
# $Z R=$xTV/BOITE.B \ #
# $Z $formatI #
# #
# $Z $DELETE $xTV/COORDONNEES #
# $Z $DELETE $xTV/COORDONNEES_01$COORD_X #
# $Z $DELETE $xTV/COORDONNEES_01$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_X #
# $Z $DELETE $xTV/COORDONNEES$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_Z #
# #
# $Z $xci/liste_points$X \ #
# $Z A=$xTV/BOITE.B \ #
# $Z $formatI \ #
# $Z > $xTV/COORDONNEES #
# #
# $Z $DELETE $xTV/BOITE.6 #
# $Z $DELETE $xTV/BOITE.A #
# $Z $DELETE $xTV/BOITE.B #
# #
# $Z set PartN=`$TAI -1 $xTV/COORDONNEES | $SE -e "s/^.*=//"` #
# #
# $Z $CA $xTV/COORDONNEES \ #
# $Z | $GRE "^[Xx]=" \ #
# $Z | $SE -e "s/^[Xx]=//" \ #
# $Z > $xTV/COORDONNEES_01$COORD_X #
# $Z $CA $xTV/COORDONNEES \ #
# $Z | $GRE "^[Yy]=" \ #
# $Z | $SE -e "s/^[Yy]=//" \ #
# $Z > $xTV/COORDONNEES_01$COORD_Y #
# #
# $Z set EchelleX=`$xcg/MUL2.01$X n1=2 n2=$MaxX` #
# $Z set TranslationX=`$xcg/MUL2.01$X n1=-1 n2=$MaxX` #
# $Z set EchelleY=`$xcg/MUL2.01$X n1=2 n2=$MaxY` #
# $Z set TranslationY=`$xcg/MUL2.01$X n1=-1 n2=$MaxY` #
# #
# $Z $xrv/AXPB.01$X \ #
# $Z CAL1=FAUX \ #
# $Z ne=$PartN \ #
# $Z fichier=$xTV/COORDONNEES_01$COORD_X \ #
# $Z homothetie=$EchelleX translation=$TranslationX \ #
# $Z > $xTV/COORDONNEES$COORD_X #
# $Z $xrv/AXPB.01$X \ #
# $Z CAL1=FAUX \ #
# $Z ne=$PartN \ #
# $Z fichier=$xTV/COORDONNEES_01$COORD_Y \ #
# $Z homothetie=$EchelleY translation=$TranslationY \ #
# $Z > $xTV/COORDONNEES$COORD_Y #
# #
# $Z $DELETE $xTV/COORDONNEES_01$COORD_X #
# $Z $DELETE $xTV/COORDONNEES_01$COORD_Y #
# #
# $Z set Part0=1 #
# $Z @ Npart = $PartN - $Part0 #
# $Z @ Npart = $Npart + 1 #
# $Z @ NpartS2 = $Npart / 2 #
# $Z set Part01=$Part0 #
# $Z @ PartN1 = $Part01 + $NpartS2 #
# $Z @ PartN1 = $PartN1 - 1 #
# $Z @ Part02 = $PartN1 + 1 #
# $Z set PartN2=$PartN #
# #
# $Z $DELETE $xTV/PERMUTATIONS #
# $Z $DELETE $xTV/MODULE #
# $Z $DELETE $xTV/MODULE.1 #
# $Z $DELETE $xTV/THETA #
# $Z $DELETE $xTV/XY_RT.1 #
# $Z $DELETE $xTV/XY_RT.2 #
# $Z $DELETE $xTV/VITESSES #
# $Z $DELETE $xTV/VITESSES$COORD_X #
# $Z $DELETE $xTV/VITESSES$COORD_Y #
# $Z $DELETE $xTV/VITESSES$COORD_Z #
# $Z $DELETE $xTV/mdRHO #
# $Z $DELETE $xTV/MdRHO #
# $Z $DELETE $xTV/mnPHI #
# $Z $DELETE $xTV/MnPHI #
# $Z $DELETE $xTV/dPHI #
# $Z $DELETE $xTV/mnTHETA #
# $Z $DELETE $xTV/MnTHETA #
# $Z $DELETE $xTV/dTHETA #
# $Z $DELETE $xTV/supOUVE #
# $Z $DELETE $xTV/DISTANCE #
# $Z $DELETE $xTV/STABILITE #
# $Z $DELETE $xTV/RAYONS #
# $Z $DELETE $xTV/INTERACTIONS #
# #
# #
# $Z alias Gen 'set Fi=\!:1 ; set vD=\!:2 ; set vA=\!:3 ; set ArG=(\!:4*) ; \\ #
# $Z $DELETE $Fi ; \\ #
# $Z $xci/valeurs_inte$X p=$Part0 d=$PartN vD=$vD vA=$vA $ArG > $Fi ; \\ #
# $Z unset Fi vD vA ArG' #
# #
# $Z alias GenR 'set Fi=\!:1 ; set In=\!:2 ; set Su=\!:3 ; set ArG=(\!:4*) ; \\ #
# $Z $DELETE $Fi ; \\ #
# $Z $xci/valeurs_alea$X p=$Part0 d=$PartN signe="$KV" inf=$In sup=$Su $ArG > $Fi ; \\ #
# $Z unset Fi In Su ArG' #
# #
# $Z Gen $xTV/COORDONNEES$COORD_Z 0.0 0.0 #
# #
# #
# $Z @ IPart0 = $Part0 - $Part0 #
# $Z @ IPartN = $PartN - $Part0 #
# $Z $xci/valeurs_alea$X \ #
# $Z p=$IPart0 d=$IPartN \ #
# $Z inf=$IPart0 sup=$IPartN \ #
# $Z entiers=VRAI sans_collisions=VRAI \ #
# $Z CAL1=FAUX \ #
# $Z > $xTV/PERMUTATIONS #
# #
# $Z set PetiteVitesse=0.004 #
# $Z set GrandeVitesse=0.020 #
# #
# $Z $xci/valeurs_inte$X premiere=$Part01 derniere=$PartN1 \ #
# $Z vD=$GrandeVitesse vA=$GrandeVitesse \ #
# $Z cubique=FAUX \ #
# $Z > $xTV/MODULE.1 #
# $Z $xci/valeurs_inte$X premiere=$Part02 derniere=$PartN2 \ #
# $Z vD=$PetiteVitesse vA=$PetiteVitesse \ #
# $Z cubique=FAUX \ #
# $Z >>! $xTV/MODULE.1 #
# $Z $xrv/permute.11$X \ #
# $Z CAL1=FAUX \ #
# $Z ne=$PartN \ #
# $Z fichier=$xTV/MODULE.1 \ #
# $Z permutation=$xTV/PERMUTATIONS \ #
# $Z > $xTV/MODULE #
# #
# $Z GenR $xTV/THETA 0.0 $dpi g=3333 #
# #
# $Z $CA $xcs/csh$Y \ #
# $Z > $xTV/XY_RT.1 #
# $Z $PAST $xTV/MODULE $xTV/THETA \ #
# $Z | $R "$K_TAB" "$K_BLANC" \ #
# $Z | $AW ' { print "$xcg/XY_RT$X r=" $1 " t=" $2 " cartesien=FAUX" } ' \ #
# $Z >>! $xTV/XY_RT.1 #
# #
# $Z (source $xTV/XY_RT.1) \ #
# $Z > $xTV/XY_RT.2 #
# #
# $Z $CA $xTV/XY_RT.2 \ #
# $Z | $GRE "^x=" \ #
# $Z | $SE -e "s/^x=//" \ #
# $Z > $xTV/VITESSES$COORD_X #
# $Z $CA $xTV/XY_RT.2 \ #
# $Z | $GRE "^y=" \ #
# $Z | $SE -e "s/^y=//" \ #
# $Z > $xTV/VITESSES$COORD_Y #
# #
# $Z Gen $xTV/VITESSES$COORD_Z 0.0 0.0 #
# #
# $Z Gen $xTV/mdRHO 0.0 0.0 #
# $Z Gen $xTV/MdRHO 0.0 0.0 #
# $Z Gen $xTV/mnPHI 0.0 0.0 #
# $Z Gen $xTV/MnPHI 0.0 0.0 #
# $Z Gen $xTV/dPHI 0.0 0.0 #
# $Z Gen $xTV/mnTHETA 0.0 0.0 #
# $Z Gen $xTV/MnTHETA 0.0 0.0 #
# $Z Gen $xTV/dTHETA 0.0 0.0 #
# $Z Gen $xTV/DISTANCE 1000000 1000000 #
# $Z Gen $xTV/STABILITE 1000000 1000000 #
# #
# $Z set RayonsT=0.014 #
# $Z set RayonsP=`$xcg/MUL2.01$X a=2 b=$RayonsT` #
# $Z set DistanceI=`$xcg/MUL2.01$X a=4 b=$RayonsP` #
# $Z Gen $xTV/RAYONS $RayonsT $RayonsT #
# $Z Gen $xTV/INTERACTIONS $RayonsP $RayonsP #
# #
# $Z $DELETE $xTV/COULEURS.1$ROUGE #
# $Z $DELETE $xTV/COULEURS.1$VERTE #
# $Z $DELETE $xTV/COULEURS.1$BLEUE #
# $Z $DELETE $xTV/COULEURS$ROUGE #
# $Z $DELETE $xTV/COULEURS$VERTE #
# $Z $DELETE $xTV/COULEURS$BLEUE #
# #
# $Z $xci/valeurs_inte$X premiere=$Part01 derniere=$PartN1 \ #
# $Z vD=$GRIS_8 vA=$GRIS_8 \ #
# $Z cubique=FAUX \ #
# $Z entiers=VRAI \ #
# $Z > $xTV/COULEURS.1$ROUGE #
# $Z $xci/valeurs_inte$X premiere=$Part02 derniere=$PartN2 \ #
# $Z vD=$GRIS_0 vA=$GRIS_0 \ #
# $Z cubique=FAUX \ #
# $Z entiers=VRAI \ #
# $Z >>! $xTV/COULEURS.1$ROUGE #
# $Z $xci/valeurs_inte$X premiere=$Part01 derniere=$PartN1 \ #
# $Z vD=$GRIS_4 vA=$GRIS_4 \ #
# $Z cubique=FAUX \ #
# $Z entiers=VRAI \ #
# $Z > $xTV/COULEURS.1$VERTE #
# $Z $xci/valeurs_inte$X premiere=$Part02 derniere=$PartN2 \ #
# $Z vD=$GRIS_5 vA=$GRIS_5 \ #
# $Z cubique=FAUX \ #
# $Z entiers=VRAI \ #
# $Z >>! $xTV/COULEURS.1$VERTE #
# $Z $xci/valeurs_inte$X premiere=$Part01 derniere=$PartN1 \ #
# $Z vD=$GRIS_0 vA=$GRIS_0 \ #
# $Z cubique=FAUX \ #
# $Z entiers=VRAI \ #
# $Z > $xTV/COULEURS.1$BLEUE #
# $Z $xci/valeurs_inte$X premiere=$Part02 derniere=$PartN2 \ #
# $Z vD=$GRIS_8 vA=$GRIS_8 \ #
# $Z cubique=FAUX \ #
# $Z entiers=VRAI \ #
# $Z >>! $xTV/COULEURS.1$BLEUE #
# #
# $Z $xrv/permute.11$X \ #
# $Z CAL1=FAUX \ #
# $Z ne=$PartN \ #
# $Z fichier=$xTV/COULEURS.1$ROUGE \ #
# $Z permutation=$xTV/PERMUTATIONS \ #
# $Z > $xTV/COULEURS$ROUGE #
# $Z $xrv/permute.11$X \ #
# $Z CAL1=FAUX \ #
# $Z ne=$PartN \ #
# $Z fichier=$xTV/COULEURS.1$VERTE \ #
# $Z permutation=$xTV/PERMUTATIONS \ #
# $Z > $xTV/COULEURS$VERTE #
# $Z $xrv/permute.11$X \ #
# $Z CAL1=FAUX \ #
# $Z ne=$PartN \ #
# $Z fichier=$xTV/COULEURS.1$BLEUE \ #
# $Z permutation=$xTV/PERMUTATIONS \ #
# $Z > $xTV/COULEURS$BLEUE #
# #
# $Z Pal #
# #
# #
# $Z $xci/scale$X \ #
# $Z A=$xTV/BOITE.1 \ #
# $Z a=1.00 \ #
# $Z R=$xTV/BOITE.2 \ #
# $Z $formatI #
# #
# $Z $DELETE $xTV/RAYONS #
# $Z $CP $xTV/INTERACTIONS $xTV/RAYONS #
# #
# $Z $xrk/rdn_walk.41$X corps=$Npart \ #
# $Z np=$NimagesA \ #
# $Z collisions=VRAI DLA=FAUX interaction=$DistanceI \ #
# $Z restitution=0.9 \ #
# $Z LISTE_X=$xTV/COORDONNEES$COORD_X \ #
# $Z LISTE_Y=$xTV/COORDONNEES$COORD_Y \ #
# $Z LISTE_Z=$xTV/COORDONNEES$COORD_Z \ #
# $Z LISTE_VX=$xTV/VITESSES$COORD_X \ #
# $Z LISTE_VY=$xTV/VITESSES$COORD_Y \ #
# $Z LISTE_VZ=$xTV/VITESSES$COORD_Z \ #
# $Z LISTE_MINIMUM_DELTA_RHO=$xTV/mdRHO \ #
# $Z LISTE_MAXIMUM_DELTA_RHO=$xTV/MdRHO \ #
# $Z LISTE_MINIMUM_N_PHI=$xTV/mnPHI \ #
# $Z LISTE_MAXIMUM_N_PHI=$xTV/MnPHI \ #
# $Z LISTE_DELTA_PHI=$xTV/dPHI \ #
# $Z LISTE_MINIMUM_N_THETA=$xTV/mnTHETA \ #
# $Z LISTE_MAXIMUM_N_THETA=$xTV/MnTHETA \ #
# $Z LISTE_DELTA_THETA=$xTV/dTHETA \ #
# $Z LISTE_DISTANCE_MAXIMALE=$xTV/DISTANCE \ #
# $Z LISTE_STABILITE=$xTV/STABILITE \ #
# $Z LISTE_RAYON=$xTV/RAYONS \ #
# $Z LISTE_RAYON_D_INTERACTION=$xTV/INTERACTIONS \ #
# $Z LISTE_ROUGE=$xTV/COULEURS$ROUGE \ #
# $Z LISTE_VERTE=$xTV/COULEURS$VERTE \ #
# $Z LISTE_BLEUE=$xTV/COULEURS$BLEUE \ #
# $Z milieu=VRAI \ #
# $Z reflexion=VRAI refraction=FAUX \ #
# $Z Mhors=$BLANC \ #
# $Z MNpasX=1 Mprolonger_X=VRAI \ #
# $Z MNpasY=1 Mprolonger_Y=VRAI \ #
# $Z MNpasZ=1 Mprolonger_Z=VRAI \ #
# $Z adapter_M_nPAS=VRAI \ #
# $Z Msimplifier=FAUX affiner_M_maillage=FAUX \ #
# $Z MC=$xTV/BOITE.2 \ #
# $Z MChiffres=0 \ #
# $Z Zmin=0 Zmax=15 \ #
# $Z centrer=VRAI \ #
# $Z dct=0.05 nombre=40 \ #
# $Z trainees=FAUX \ #
# $Z renormaliser=FAUX \ #
# $Z Lz=100 \ #
# $Z zoom_automatique=VRAI \ #
# $Z centre_de_gravite=FAUX \ #
# $Z fond=FAUX \ #
# $Z N_au_carre=FAUX \ #
# $Z R=$xiim/REFL.Wa. \ #
# $Z $formatI #
# #
# $Z $DELETE $xTV/PERMUTATIONS #
# $Z $DELETE $xTV/MODULE #
# $Z $DELETE $xTV/MODULE.1 #
# $Z $DELETE $xTV/THETA #
# $Z $DELETE $xTV/COORDONNEES #
# $Z $DELETE $xTV/COORDONNEES$COORD_X #
# $Z $DELETE $xTV/COORDONNEES$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_Z #
# $Z $DELETE $xTV/VITESSES #
# $Z $DELETE $xTV/VITESSES$COORD_X #
# $Z $DELETE $xTV/VITESSES$COORD_Y #
# $Z $DELETE $xTV/VITESSES$COORD_Z #
# $Z $DELETE $xTV/mdRHO #
# $Z $DELETE $xTV/MdRHO #
# $Z $DELETE $xTV/mnPHI #
# $Z $DELETE $xTV/MnPHI #
# $Z $DELETE $xTV/dPHI #
# $Z $DELETE $xTV/mnTHETA #
# $Z $DELETE $xTV/MnTHETA #
# $Z $DELETE $xTV/dTHETA #
# $Z $DELETE $xTV/DISTANCE #
# $Z $DELETE $xTV/STABILITE #
# $Z $DELETE $xTV/RAYONS #
# $Z $DELETE $xTV/INTERACTIONS #
# $Z $DELETE $xTV/COULEURS.1$ROUGE #
# $Z $DELETE $xTV/COULEURS.1$VERTE #
# $Z $DELETE $xTV/COULEURS.1$BLEUE #
# $Z $DELETE $xTV/COULEURS$ROUGE #
# $Z $DELETE $xTV/COULEURS$VERTE #
# $Z $DELETE $xTV/COULEURS$BLEUE #
# #
# #
# #
# #
# $Z $xci/complement$X A=$xTV/BOITE.1 \ #
# $Z R=$xTV/BOITE.3 \ #
# $Z $formatI #
# #
# $Z eval `$xci/genere$X \\\ #
# $Z commande='($xci/scale$X \\\ #
# $Z A=$xTV/BOITE.3 \\\ #
# $Z a=0.50 \\\ #
# $Z R=$xTV/BOITE.3%s \\\ #
# $Z $formatI)' \\\ #
# $Z en_tete=FAUX RVB=VRAI separateur=VRAI` #
# #
# #
# #
# $c #include <stdio.h> #
# #
# $c extern int atoi(); #
# $c extern int *getenv(); #
# #
# $c #define NA0 (atoi(getenv("PremiereA"))) #
# $c #define NA (atoi(getenv("DerniereA"))) #
# #
# $c #define NR0 1 #
# $c #define NR 4 #
# $c #define PAS 1 #
# #
# $c int main() #
# $c { #
# $c int n1; #
# #
# $c for (n1=NA0 ; n1<=NA ; n1++) #
# $c { #
# $c printf("$xci/cache.11$Z #
# $c $xiim/REFL.Wa.%04d #
# $c $xTV/BOITE.3 #
# $c $xiim/REFL.B.%04d\n" #
# $c ,n1,n1 #
# $c ); #
# $c } #
# $c } #
# #
# #
# $Z $DELETE $xTV/BOITE.1 #
# $Z $DELETE $xTV/BOITE.2 #
# $Z $DELETE $xTV/BOITE.3 #
# $Z $DELETE $xTV/BOITE.3$ROUGE #
# $Z $DELETE $xTV/BOITE.3$VERTE #
# $Z $DELETE $xTV/BOITE.3$BLEUE #
# #
# $Z Pal #
# #
# $Z $xci/reduction_16$Z $xiim/REFL.B. $xiak/REFL.Z1 $Premiere $Derniere #
# $Z $xci/reduction_64$Z $xiim/REFL.B. $xiak/REFL.Z1 $Premiere $Derniere #
# #
# $X $xci/genere$X c='ro $xiak/REFL.Z1$R16%s' RVB=VRAI #
# $X $xci/genere$X c='ro $xiak/REFL.Z1$R64%s' RVB=VRAI #
# #
# $X $xci/genere$X c='$xcg/unite$Z $xiak/REFL.Z1$R16%s' RVB=VRAI #
# $X $xci/genere$X c='$xcg/unite$Z $xiak/REFL.Z1$R64%s' RVB=VRAI #
# #
# #
# Pal #
# #
# #
# $xci/disk_video_P$Z $xiim_LACT29/REFL.B. 001 512 RVB \ #
# 11 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
# #
# xivPdf 3 2 #
# #
# record.01$Z $xiak/REFL.Z1$R16 RVB Initialisation #
# record.01$Z $xiak/REFL.Z1$R64 RVB rien #
# #
sequence 032020_032531
# Generee (sur '$LACT29') par : #
# #
# $Z SET Premiere=1 #
# $Z SET Derniere=512 #
# $Z @ Nimages = $Derniere - $Premiere #
# $Z @ Nimages = $Nimages + 1 #
# #
# #
# $Z Pal #
# #
# $Z set PUnivers="np=0 CAL1=FAUX editer_l_univers_physique=VRAI" #
# $Z set Univers=`$xrk/rdn_walk.41$X $PUnivers $formatI` #
# #
# $Z set MinX=`echo $Univers | $SE -e "s/^.*[(,]XUI=//" -e "s/[,)].*//"` #
# $Z set MaxX=`echo $Univers | $SE -e "s/^.*[(,]XUS=//" -e "s/[,)].*//"` #
# $Z set MinY=`echo $Univers | $SE -e "s/^.*[(,]YUI=//" -e "s/[,)].*//"` #
# $Z set MaxY=`echo $Univers | $SE -e "s/^.*[(,]YUS=//" -e "s/[,)].*//"` #
# #
# $Z set MinX=`$xcg/ABSO.01$X x=$MinX` #
# $Z set MaxX=`$xcg/ABSO.01$X x=$MaxX` #
# $Z set MinY=`$xcg/ABSO.01$X x=$MinY` #
# $Z set MaxY=`$xcg/ABSO.01$X x=$MaxY` #
# #
# $Z set MaxX=`$xcg/MAX2.01$X n1=$MinX n2=$MaxX` #
# $Z set MaxY=`$xcg/MAX2.01$X n1=$MinY n2=$MaxY` #
# #
# $Z set SeuilPartN=0.03 #
# $Z set GrainePartN=2 #
# $Z set SeuilObstacle=1.0 #
# $Z set GraineObstacle=2 #
# $Z set DistanceX=24 #
# $Z set DistanceY=24 #
# $Z set ForceX=0.020 #
# $Z set ForceY=0.020 #
# #
# $Z $DELETE $xTV/BOITE.1 #
# $Z $DELETE $xTV/BOITE.2 #
# $Z $DELETE $xTV/BOITE.3 #
# $Z $DELETE $xTV/BOITE.3$ROUGE #
# $Z $DELETE $xTV/BOITE.3$VERTE #
# $Z $DELETE $xTV/BOITE.3$BLEUE #
# $Z $DELETE $xTV/BOITE.6 #
# $Z $DELETE $xTV/BOITE.A #
# $Z $DELETE $xTV/BOITE.B #
# #
# #
# $Z Std #
# #
# $Z $xci/gauss$X \ #
# $Z R=$xTV/GAUSS \ #
# $Z $formatI #
# $Z $xci/seuil$X \ #
# $Z A=$xTV/GAUSS \ #
# $Z seuil=$GRIS_3 \ #
# $Z R=$xTV/CONTOUR \ #
# $Z $formatI #
# $Z $xci/random.02$X \ #
# $Z seuil=$SeuilObstacle \ #
# $Z graine=$GraineObstacle \ #
# $Z px=$DistanceX py=$DistanceY \ #
# $Z $formatI | \ #
# $Z $xci/shuffling.01$X \ #
# $Z inverse=FAUX \ #
# $Z NOIR=FAUX \ #
# $Z fX=$ForceX fY=$ForceY \ #
# $Z graine=$GraineObstacle \ #
# $Z $formatI | \ #
# $Z $xci/and$X \ #
# $Z A1=$xTV/CONTOUR \ #
# $Z $formatI | \ #
# $Z $xci/dilate.01$X \ #
# $Z points=25 \ #
# $Z $formatI | \ #
# $Z $xci/complement$X \ #
# $Z R=$xTV/BOITE.6 \ #
# $Z $formatI #
# #
# $Z S #
# #
# $Z $xci/format.01$X mode=7 \ #
# $Z A=$xTV/BOITE.6 \ #
# $Z $formatI \ #
# $Z niveau=$BLANC \ #
# $Z R=$xTV/BOITE.1 \ #
# $Z $formatR_Pal #
# #
# $Z $xci/dilate.01$X \ #
# $Z A=$xTV/BOITE.6 \ #
# $Z points=25 \ #
# $Z dilater=FAUX \ #
# $Z R=$xTV/BOITE.A \ #
# $Z $formatI #
# $Z $xci/seuil$X \ #
# $Z A=$xTV/GAUSS \ #
# $Z seuil=$GRIS_7 \ #
# $Z $formatI | \ #
# $Z $xci/and$X \ #
# $Z A1=$xTV/BOITE.A \ #
# $Z R=$xTV/BOITE.A \ #
# $Z $formatI #
# #
# $Z $xci/random.02$X \ #
# $Z seuil=$SeuilPartN \ #
# $Z graine=$GrainePartN \ #
# $Z $formatI | \ #
# $Z $xci/and$X \ #
# $Z A2=$xTV/BOITE.A \ #
# $Z R=$xTV/BOITE.B \ #
# $Z $formatI #
# #
# $Z $DELETE $xTV/COORDONNEES #
# $Z $DELETE $xTV/COORDONNEES_01$COORD_X #
# $Z $DELETE $xTV/COORDONNEES_01$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_X #
# $Z $DELETE $xTV/COORDONNEES$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_Z #
# #
# $Z $xci/liste_points$X \ #
# $Z A=$xTV/BOITE.B \ #
# $Z $formatI \ #
# $Z > $xTV/COORDONNEES #
# #
# $Z $DELETE $xTV/BOITE.6 #
# $Z $DELETE $xTV/BOITE.A #
# $Z $DELETE $xTV/BOITE.B #
# #
# $Z set PartN=`$TAI -1 $xTV/COORDONNEES | $SE -e "s/^.*=//"` #
# #
# $Z $CA $xTV/COORDONNEES \ #
# $Z | $GRE "^[Xx]=" \ #
# $Z | $SE -e "s/^[Xx]=//" \ #
# $Z > $xTV/COORDONNEES_01$COORD_X #
# $Z $CA $xTV/COORDONNEES \ #
# $Z | $GRE "^[Yy]=" \ #
# $Z | $SE -e "s/^[Yy]=//" \ #
# $Z > $xTV/COORDONNEES_01$COORD_Y #
# #
# $Z set EchelleX=`$xcg/MUL2.01$X n1=2 n2=$MaxX` #
# $Z set TranslationX=`$xcg/MUL2.01$X n1=-1 n2=$MaxX` #
# $Z set EchelleY=`$xcg/MUL2.01$X n1=2 n2=$MaxY` #
# $Z set TranslationY=`$xcg/MUL2.01$X n1=-1 n2=$MaxY` #
# #
# $Z $xrv/AXPB.01$X \ #
# $Z CAL1=FAUX \ #
# $Z ne=$PartN \ #
# $Z fichier=$xTV/COORDONNEES_01$COORD_X \ #
# $Z homothetie=$EchelleX translation=$TranslationX \ #
# $Z > $xTV/COORDONNEES$COORD_X #
# $Z $xrv/AXPB.01$X \ #
# $Z CAL1=FAUX \ #
# $Z ne=$PartN \ #
# $Z fichier=$xTV/COORDONNEES_01$COORD_Y \ #
# $Z homothetie=$EchelleY translation=$TranslationY \ #
# $Z > $xTV/COORDONNEES$COORD_Y #
# #
# $Z $DELETE $xTV/COORDONNEES_01$COORD_X #
# $Z $DELETE $xTV/COORDONNEES_01$COORD_Y #
# #
# $Z set Part0=1 #
# $Z @ Npart = $PartN - $Part0 #
# $Z @ Npart = $Npart + 1 #
# #
# $Z $DELETE $xTV/MODULE #
# $Z $DELETE $xTV/THETA #
# $Z $DELETE $xTV/XY_RT.1 #
# $Z $DELETE $xTV/XY_RT.2 #
# $Z $DELETE $xTV/VITESSES #
# $Z $DELETE $xTV/VITESSES$COORD_X #
# $Z $DELETE $xTV/VITESSES$COORD_Y #
# $Z $DELETE $xTV/VITESSES$COORD_Z #
# $Z $DELETE $xTV/mdRHO #
# $Z $DELETE $xTV/MdRHO #
# $Z $DELETE $xTV/mnPHI #
# $Z $DELETE $xTV/MnPHI #
# $Z $DELETE $xTV/dPHI #
# $Z $DELETE $xTV/mnTHETA #
# $Z $DELETE $xTV/MnTHETA #
# $Z $DELETE $xTV/dTHETA #
# $Z $DELETE $xTV/supOUVE #
# $Z $DELETE $xTV/DISTANCE #
# $Z $DELETE $xTV/NAISSANCE #
# $Z $DELETE $xTV/STABILITE #
# $Z $DELETE $xTV/RAYONS #
# $Z $DELETE $xTV/INTERACTIONS #
# #
# #
# $Z alias Gen 'set Fi=\!:1 ; set vD=\!:2 ; set vA=\!:3 ; set ArG=(\!:4*) ; \\ #
# $Z $DELETE $Fi ; \\ #
# $Z $xci/valeurs_inte$X p=$Part0 d=$PartN vD=$vD vA=$vA $ArG > $Fi ; \\ #
# $Z unset Fi vD vA ArG' #
# #
# $Z alias GenR 'set Fi=\!:1 ; set In=\!:2 ; set Su=\!:3 ; set ArG=(\!:4*) ; \\ #
# $Z $DELETE $Fi ; \\ #
# $Z $xci/valeurs_alea$X p=$Part0 d=$PartN signe="$KV" inf=$In sup=$Su $ArG > $Fi ; \\ #
# $Z unset Fi In Su ArG' #
# #
# $Z Gen $xTV/COORDONNEES$COORD_Z 0.0 0.0 #
# #
# #
# $Z Gen $xTV/MODULE 0.02 0.02 #
# $Z GenR $xTV/THETA 0.0 $dpi g=3333 #
# #
# $Z $CA $xcs/csh$Y \ #
# $Z > $xTV/XY_RT.1 #
# $Z $PAST $xTV/MODULE $xTV/THETA \ #
# $Z | $R "$K_TAB" "$K_BLANC" \ #
# $Z | $AW ' { print "$xcg/XY_RT$X r=" $1 " t=" $2 " cartesien=FAUX" } ' \ #
# $Z >>! $xTV/XY_RT.1 #
# #
# $Z (source $xTV/XY_RT.1) \ #
# $Z > $xTV/XY_RT.2 #
# #
# $Z $CA $xTV/XY_RT.2 \ #
# $Z | $GRE "^x=" \ #
# $Z | $SE -e "s/^x=//" \ #
# $Z > $xTV/VITESSES$COORD_X #
# $Z $CA $xTV/XY_RT.2 \ #
# $Z | $GRE "^y=" \ #
# $Z | $SE -e "s/^y=//" \ #
# $Z > $xTV/VITESSES$COORD_Y #
# #
# $Z Gen $xTV/VITESSES$COORD_Z 0.0 0.0 #
# #
# $Z Gen $xTV/mdRHO 0.0 0.0 #
# $Z Gen $xTV/MdRHO 0.0 0.0 #
# $Z Gen $xTV/mnPHI 0.0 0.0 #
# $Z Gen $xTV/MnPHI 0.0 0.0 #
# $Z Gen $xTV/dPHI 0.0 0.0 #
# $Z Gen $xTV/mnTHETA 0.0 0.0 #
# $Z Gen $xTV/MnTHETA 0.0 0.0 #
# $Z Gen $xTV/dTHETA 0.0 0.0 #
# $Z Gen $xTV/DISTANCE 1000000 1000000 #
# #
# $Z set PasDeTemps=0.05 #
# $Z set NPasDeTemps=10 #
# $Z set Fin=`$xcg/MUL2.01$X a=$NPasDeTemps b=$PasDeTemps` #
# $Z set Fin=`$xcg/MUL2.01$X a=$Nimages b=$Fin` #
# $Z set Debut=`$xcg/MUL2.01$X a=-0.02 b=$Fin` #
# #
# $Z GenR $xTV/NAISSANCE $Debut $Fin entiers=FAUX g=1111 #
# #
# $Z Gen $xTV/STABILITE 1000000 1000000 #
# #
# $Z set RayonsT=0.014 #
# $Z set RayonsP=`$xcg/MUL2.01$X a=2 b=$RayonsT` #
# $Z set DistanceI=`$xcg/MUL2.01$X a=4 b=$RayonsP` #
# $Z Gen $xTV/RAYONS $RayonsT $RayonsT #
# $Z Gen $xTV/INTERACTIONS $RayonsP $RayonsP #
# #
# $Z $DELETE $xTV/COULEURS$TEINT #
# $Z $DELETE $xTV/COULEURS$LUMIN #
# $Z $DELETE $xTV/COULEURS$SATUR #
# $Z $DELETE $xTV/COULEURS$Y #
# $Z $DELETE $xTV/COULEURS #
# $Z $DELETE $xTV/COULEURS$ROUGE #
# $Z $DELETE $xTV/COULEURS$VERTE #
# $Z $DELETE $xTV/COULEURS$BLEUE #
# #
# $Z @ TeinteRouge = $GRIS_0 #
# $Z @ TeinteJaune = $GRIS_8 / 6 #
# #
# $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartN \ #
# $Z vD=$TeinteJaune vA=$TeinteJaune \ #
# $Z cubique=FAUX \ #
# $Z entiers=VRAI \ #
# $Z > $xTV/COULEURS$TEINT #
# $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartN \ #
# $Z vD=$GRIS_4 vA=$GRIS_4 \ #
# $Z cubique=FAUX \ #
# $Z entiers=VRAI \ #
# $Z > $xTV/COULEURS$LUMIN #
# $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartN \ #
# $Z vD=$GRIS_8 vA=$GRIS_8 \ #
# $Z cubique=FAUX \ #
# $Z entiers=VRAI \ #
# $Z > $xTV/COULEURS$SATUR #
# #
# $Z $PAST \ #
# $Z $xTV/COULEURS$TEINT \ #
# $Z $xTV/COULEURS$LUMIN \ #
# $Z $xTV/COULEURS$SATUR \ #
# $Z | $R "$K_TAB" "$K_BLANC" \ #
# $Z | $AW ' { print "H=" $1 " L=" $2 " S=" $3 } ' \ #
# $Z | $SE -e 's+^+$xcg/RVB_HLS$X RVB_HLS=FAUX +' \ #
# $Z | $SE -e 's/$/ eR=VRAI eV=VRAI eB=VRAI/' \ #
# $Z | $SE -e 's/$/ eH=FAUX eL=FAUX eS=FAUX/' \ #
# $Z > $xTV/COULEURS$Y #
# #
# $Z (source $xTV/COULEURS$Y) \ #
# $Z > $xTV/COULEURS #
# #
# $Z $GRE "^R=" $xTV/COULEURS \ #
# $Z | $SE -e "s/^R=//" \ #
# $Z > $xTV/COULEURS$ROUGE #
# $Z $GRE "^V=" $xTV/COULEURS \ #
# $Z | $SE -e "s/^V=//" \ #
# $Z > $xTV/COULEURS$VERTE #
# $Z $GRE "^B=" $xTV/COULEURS \ #
# $Z | $SE -e "s/^B=//" \ #
# $Z > $xTV/COULEURS$BLEUE #
# #
# $Z Pal #
# #
# #
# $Z $xci/scale$X \ #
# $Z A=$xTV/BOITE.1 \ #
# $Z a=1.00 \ #
# $Z R=$xTV/BOITE.2 \ #
# $Z $formatI #
# #
# $Z $xrk/rdn_walk.41$X corps=$Npart \ #
# $Z np=$Nimages \ #
# $Z collisions=FAUX DLA=FAUX interaction=$DistanceI \ #
# $Z LISTE_X=$xTV/COORDONNEES$COORD_X \ #
# $Z LISTE_Y=$xTV/COORDONNEES$COORD_Y \ #
# $Z LISTE_Z=$xTV/COORDONNEES$COORD_Z \ #
# $Z LISTE_VX=$xTV/VITESSES$COORD_X \ #
# $Z LISTE_VY=$xTV/VITESSES$COORD_Y \ #
# $Z LISTE_VZ=$xTV/VITESSES$COORD_Z \ #
# $Z LISTE_MINIMUM_DELTA_RHO=$xTV/mdRHO \ #
# $Z LISTE_MAXIMUM_DELTA_RHO=$xTV/MdRHO \ #
# $Z LISTE_MINIMUM_N_PHI=$xTV/mnPHI \ #
# $Z LISTE_MAXIMUM_N_PHI=$xTV/MnPHI \ #
# $Z LISTE_DELTA_PHI=$xTV/dPHI \ #
# $Z LISTE_MINIMUM_N_THETA=$xTV/mnTHETA \ #
# $Z LISTE_MAXIMUM_N_THETA=$xTV/MnTHETA \ #
# $Z LISTE_DELTA_THETA=$xTV/dTHETA \ #
# $Z LISTE_DISTANCE_MAXIMALE=$xTV/DISTANCE \ #
# $Z LISTE_DATE_DE_NAISSANCE=$xTV/NAISSANCE \ #
# $Z LISTE_STABILITE=$xTV/STABILITE \ #
# $Z LISTE_RAYON=$xTV/RAYONS \ #
# $Z LISTE_RAYON_D_INTERACTION=$xTV/INTERACTIONS \ #
# $Z LISTE_ROUGE=$xTV/COULEURS$ROUGE \ #
# $Z LISTE_VERTE=$xTV/COULEURS$VERTE \ #
# $Z LISTE_BLEUE=$xTV/COULEURS$BLEUE \ #
# $Z milieu=VRAI \ #
# $Z reflexion=VRAI refraction=FAUX \ #
# $Z Mhors=$BLANC \ #
# $Z MNpasX=1 Mprolonger_X=VRAI \ #
# $Z MNpasY=1 Mprolonger_Y=VRAI \ #
# $Z MNpasZ=1 Mprolonger_Z=VRAI \ #
# $Z adapter_M_nPAS=VRAI \ #
# $Z Msimplifier=FAUX affiner_M_maillage=FAUX \ #
# $Z Mfiltrer=VRAI Mspherique=VRAI Mtolerance=1 \ #
# $Z MC=$xTV/BOITE.2 \ #
# $Z MChiffres=0 \ #
# $Z Zmin=0 Zmax=15 \ #
# $Z centrer=VRAI \ #
# $Z dct=$PasDeTemps nombre=$NPasDeTemps \ #
# $Z trainees=VRAI mode=1 \ #
# $Z attenuation_des_images=1.0 \ #
# $Z attenuation_des_trainees=0.990 \ #
# $Z renormaliser=FAUX \ #
# $Z Lz=100 \ #
# $Z zoom_automatique=VRAI \ #
# $Z centre_de_gravite=FAUX \ #
# $Z fond=FAUX \ #
# $Z R=$xiim/SOLE.W. \ #
# $Z $formatI #
# #
# $Z $DELETE $xTV/RAYONS #
# $Z $CP $xTV/INTERACTIONS $xTV/RAYONS #
# #
# $Z $xrk/rdn_walk.41$X corps=$Npart \ #
# $Z np=$Nimages \ #
# $Z collisions=FAUX DLA=FAUX interaction=$DistanceI \ #
# $Z LISTE_X=$xTV/COORDONNEES$COORD_X \ #
# $Z LISTE_Y=$xTV/COORDONNEES$COORD_Y \ #
# $Z LISTE_Z=$xTV/COORDONNEES$COORD_Z \ #
# $Z LISTE_VX=$xTV/VITESSES$COORD_X \ #
# $Z LISTE_VY=$xTV/VITESSES$COORD_Y \ #
# $Z LISTE_VZ=$xTV/VITESSES$COORD_Z \ #
# $Z LISTE_MINIMUM_DELTA_RHO=$xTV/mdRHO \ #
# $Z LISTE_MAXIMUM_DELTA_RHO=$xTV/MdRHO \ #
# $Z LISTE_MINIMUM_N_PHI=$xTV/mnPHI \ #
# $Z LISTE_MAXIMUM_N_PHI=$xTV/MnPHI \ #
# $Z LISTE_DELTA_PHI=$xTV/dPHI \ #
# $Z LISTE_MINIMUM_N_THETA=$xTV/mnTHETA \ #
# $Z LISTE_MAXIMUM_N_THETA=$xTV/MnTHETA \ #
# $Z LISTE_DELTA_THETA=$xTV/dTHETA \ #
# $Z LISTE_DISTANCE_MAXIMALE=$xTV/DISTANCE \ #
# $Z LISTE_DATE_DE_NAISSANCE=$xTV/NAISSANCE \ #
# $Z LISTE_STABILITE=$xTV/STABILITE \ #
# $Z LISTE_RAYON=$xTV/RAYONS \ #
# $Z LISTE_RAYON_D_INTERACTION=$xTV/INTERACTIONS \ #
# $Z LISTE_ROUGE=$xTV/COULEURS$ROUGE \ #
# $Z LISTE_VERTE=$xTV/COULEURS$VERTE \ #
# $Z LISTE_BLEUE=$xTV/COULEURS$BLEUE \ #
# $Z milieu=VRAI \ #
# $Z reflexion=VRAI refraction=FAUX \ #
# $Z Mhors=$BLANC \ #
# $Z MNpasX=1 Mprolonger_X=VRAI \ #
# $Z MNpasY=1 Mprolonger_Y=VRAI \ #
# $Z MNpasZ=1 Mprolonger_Z=VRAI \ #
# $Z adapter_M_nPAS=VRAI \ #
# $Z Msimplifier=FAUX affiner_M_maillage=FAUX \ #
# $Z Mfiltrer=VRAI Mspherique=VRAI Mtolerance=1 \ #
# $Z MC=$xTV/BOITE.2 \ #
# $Z MChiffres=0 \ #
# $Z Zmin=0 Zmax=15 \ #
# $Z centrer=VRAI \ #
# $Z dct=$PasDeTemps nombre=$NPasDeTemps \ #
# $Z trainees=VRAI mode=1 \ #
# $Z attenuation_des_images=1.0 \ #
# $Z attenuation_des_trainees=0.80 \ #
# $Z renormaliser=FAUX \ #
# $Z Lz=100 \ #
# $Z zoom_automatique=VRAI \ #
# $Z centre_de_gravite=FAUX \ #
# $Z fond=VRAI \ #
# $Z dynamique=VRAI \ #
# $Z F=$xiim/SOLE.W. \ #
# $Z R=$xiim/SOLE.W. \ #
# $Z $formatI #
# #
# $Z $DELETE $xTV/COORDONNEES #
# $Z $DELETE $xTV/COORDONNEES$COORD_X #
# $Z $DELETE $xTV/COORDONNEES$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_Z #
# $Z $DELETE $xTV/VITESSES #
# $Z $DELETE $xTV/VITESSES$COORD_X #
# $Z $DELETE $xTV/VITESSES$COORD_Y #
# $Z $DELETE $xTV/VITESSES$COORD_Z #
# $Z $DELETE $xTV/mdRHO #
# $Z $DELETE $xTV/MdRHO #
# $Z $DELETE $xTV/mnPHI #
# $Z $DELETE $xTV/MnPHI #
# $Z $DELETE $xTV/dPHI #
# $Z $DELETE $xTV/mnTHETA #
# $Z $DELETE $xTV/MnTHETA #
# $Z $DELETE $xTV/dTHETA #
# $Z $DELETE $xTV/DISTANCE #
# $Z $DELETE $xTV/NAISSANCE #
# $Z $DELETE $xTV/STABILITE #
# $Z $DELETE $xTV/RAYONS #
# $Z $DELETE $xTV/INTERACTIONS #
# $Z $DELETE $xTV/COULEURS$TEINT #
# $Z $DELETE $xTV/COULEURS$LUMIN #
# $Z $DELETE $xTV/COULEURS$SATUR #
# $Z $DELETE $xTV/COULEURS$Y #
# $Z $DELETE $xTV/COULEURS #
# $Z $DELETE $xTV/COULEURS$ROUGE #
# $Z $DELETE $xTV/COULEURS$VERTE #
# $Z $DELETE $xTV/COULEURS$BLEUE #
# #
# #
# $Z Pal #
# #
# $Z $xci/gauss$X \ #
# $Z $formatI | \ #
# $Z $xci/passe_bande$X \ #
# $Z seuil_inferieur=$GRIS_3 \ #
# $Z seuil_superieur=$GRIS_8 \ #
# $Z niveau_inferieur=$GRIS_3 \ #
# $Z niveau_superieur=$GRIS_8 \ #
# $Z $formatI | \ #
# $Z $xci/acces$X \ #
# $Z renormaliser=VRAI \ #
# $Z $formatI | \ #
# $Z $xci/substitue$X \ #
# $Z p=$xiP/gris.82 \ #
# $Z substitution=L_SUBSTITUTION_ROUGE \ #
# $Z $formatI | \ #
# $Z $xci/scale$X \ #
# $Z a=0.7 \ #
# $Z R=$xTV/BOITE.3 \ #
# $Z $formatI #
# $Z $xci/vraies_C$X A=$xTV/BOITE.3 \ #
# $Z p=$xiP/orange.02 \ #
# $Z RVB=VRAI \ #
# $Z R=$xTV/BOITE.3 \ #
# $Z $formatI #
# #
# $Z eval `$xci/genere$X \\\ #
# $Z commande='($xci/scale$X \\\ #
# $Z A=$xTV/BOITE.3%s \\\ #
# $Z a=0.80 \\\ #
# $Z R=$xTV/BOITE.3%s \\\ #
# $Z $formatI)' \\\ #
# $Z en_tete=FAUX RVB=VRAI separateur=VRAI` #
# #
# $X $xci/genere$X premiere=$Premiere derniere=$Derniere pas=1 \ #
# $X C='$xci/vitre.53$Z \ #
# $X $xTV/BOITE.3 \ #
# $X $xiim/SOLE.W.%04d \ #
# $X $xiim/SOLE.3.%04d' #
# #
# $Z $DELETE $xTV/BOITE.1 #
# $Z $DELETE $xTV/BOITE.2 #
# $Z $DELETE $xTV/BOITE.3 #
# $Z $DELETE $xTV/BOITE.3$ROUGE #
# $Z $DELETE $xTV/BOITE.3$VERTE #
# $Z $DELETE $xTV/BOITE.3$BLEUE #
# #
# $Z Pal #
# #
# $Z $xci/reduction_16$Z $xiim/SOLE.3. $xiak/SOLE.31 $Premiere $Derniere #
# $Z $xci/reduction_64$Z $xiim/SOLE.3. $xiak/SOLE.31 $Premiere $Derniere #
# #
# $X $xci/genere$X c='ro $xiak/SOLE.31$R16%s' RVB=VRAI #
# $X $xci/genere$X c='ro $xiak/SOLE.31$R64%s' RVB=VRAI #
# #
# $X $xci/genere$X c='$xcg/unite$Z $xiak/SOLE.31$R16%s' RVB=VRAI #
# $X $xci/genere$X c='$xcg/unite$Z $xiak/SOLE.31$R64%s' RVB=VRAI #
# #
# $X $xci/genere$X c='$CP $xiim/SOLE.3.0512%s $xiirk/SOLE.31.0512%s' RVB=VRAI #
# #
# $X $xci/genere$X c='ro $xiirk/SOLE.31.0512%s' RVB=VRAI #
# #
# $X $xci/genere$X c='$xcg/unite$Z $xiirk/SOLE.31.0512%s' RVB=VRAI #
# #
# #
# Pal #
# #
# #
# $xci/disk_video_P$Z $xiim_LACT29/SOLE.3. 001 512 RVB \ #
# 11 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
# #
# xivPdf 3 2 #
# #
# record.01$Z $xiak/SOLE.31$R16 RVB Initialisation #
# record.01$Z $xiak/SOLE.31$R64 RVB rien #
# record.01$Z $xiirk/SOLE.31.0512 RVB rien #
# #
sequence 032532_033043
sequence 033044_033555
# Generee (sur '$LACT29') par : #
# #
# $Z unsetenv PremiereA #
# $Z unsetenv DerniereA #
# #
# $Z SET tPremiereA=1 #
# $Z SET tDerniereA=512 #
# $Z set Premiere=$tPremiereA #
# $Z @ NimagesA = $tDerniereA - $tPremiereA #
# $Z @ NimagesA = $NimagesA + 1 #
# $Z @ Nimages = $NimagesA #
# $Z @ Nimages = $Nimages - 1 #
# $Z @ Derniere = $Premiere + $Nimages #
# $Z @ Derniere = $Derniere - 1 #
# #
# $Z SETENV PremiereA $tPremiereA #
# $Z SETENV DerniereA $tDerniereA #
# #
# $X echo "echo ATTENTION : 'PremiereA' et 'DerniereA' mis dans 'env'." #
# #
# #
# $Z Pal #
# #
# $Z set PUnivers="np=0 CAL1=FAUX editer_l_univers_physique=VRAI" #
# $Z set Univers=`$xrk/rdn_walk.51$X $PUnivers $formatI` #
# #
# $Z set MinX=`echo $Univers | $SE -e "s/^.*[(,]XUI=//" -e "s/[,)].*//"` #
# $Z set MaxX=`echo $Univers | $SE -e "s/^.*[(,]XUS=//" -e "s/[,)].*//"` #
# $Z set MinY=`echo $Univers | $SE -e "s/^.*[(,]YUI=//" -e "s/[,)].*//"` #
# $Z set MaxY=`echo $Univers | $SE -e "s/^.*[(,]YUS=//" -e "s/[,)].*//"` #
# #
# $Z set MinX=`$xcg/ABSO.01$X x=$MinX` #
# $Z set MaxX=`$xcg/ABSO.01$X x=$MaxX` #
# $Z set MinY=`$xcg/ABSO.01$X x=$MinY` #
# $Z set MaxY=`$xcg/ABSO.01$X x=$MaxY` #
# #
# $Z set MaxX=`$xcg/MAX2.01$X n1=$MinX n2=$MaxX` #
# $Z set MaxY=`$xcg/MAX2.01$X n1=$MinY n2=$MaxY` #
# #
# $Z set SeuilPartN=1.0 #
# $Z set GrainePartN=2 #
# $Z set DistanceX=24 #
# $Z set DistanceY=24 #
# $Z set ForceX=0.0 #
# $Z set ForceY=0.0 #
# #
# $Z $DELETE $xTV/BOITE.1 #
# $Z $DELETE $xTV/BOITE.2 #
# $Z $DELETE $xTV/BOITE.3 #
# $Z $DELETE $xTV/BOITE.3$ROUGE #
# $Z $DELETE $xTV/BOITE.3$VERTE #
# $Z $DELETE $xTV/BOITE.3$BLEUE #
# $Z $DELETE $xTV/BOITE.6 #
# $Z $DELETE $xTV/BOITE.A #
# $Z $DELETE $xTV/BOITE.B #
# #
# #
# $Z Std #
# #
# $Z set FacXY=0.85 #
# $Z set SeuilBOITE=`$xcg/SOUS.01$X a=1 b=$FacXY` #
# $Z set SeuilBOITE=`$xcg/MUL2.01$X a=$SeuilBOITE b=$GRIS_8` #
# $Z set SeuilBOITE=`$xci/valeurs_inte$X p=1 d=1 vD=$SeuilBOITE entiers=VRAI` #
# $Z set SeuilBOITE=`$xcg/MIN2.01$X a=$SeuilBOITE b=$GRIS_1` #
# #
# $Z $xci/complement$X \ #
# $Z A=$xiio/SPIRALE \ #
# $Z $formatI | \ #
# $Z $xci/seuil$X \ #
# $Z seuil=$SeuilBOITE \ #
# $Z R=$xTV/BOITE.6 \ #
# $Z $formatI #
# #
# $Z S #
# #
# $Z $xci/format.01$X mode=0 \ #
# $Z A=$xTV/BOITE.6 \ #
# $Z $formatI \ #
# $Z R=$xTV/BOITE.1 \ #
# $Z $formatR_Pal #
# #
# $Z $xci/dilate.01$X \ #
# $Z A=$xTV/BOITE.6 \ #
# $Z points=225 \ #
# $Z dilater=FAUX \ #
# $Z R=$xTV/BOITE.A \ #
# $Z $formatI #
# #
# $Z $xci/random.02$X \ #
# $Z seuil=$SeuilPartN \ #
# $Z graine=$GrainePartN \ #
# $Z px=$DistanceX py=$DistanceY \ #
# $Z $formatI | \ #
# $Z $xci/shuffling.01$X \ #
# $Z inverse=FAUX \ #
# $Z NOIR=FAUX \ #
# $Z fX=$ForceX fY=$ForceY \ #
# $Z graine=$GrainePartN \ #
# $Z $formatI | \ #
# $Z $xci/and$X \ #
# $Z A2=$xTV/BOITE.A \ #
# $Z R=$xTV/BOITE.B \ #
# $Z $formatI #
# #
# $Z $DELETE $xTV/COORDONNEES #
# $Z $DELETE $xTV/COORDONNEES_01$COORD_X #
# $Z $DELETE $xTV/COORDONNEES_01$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_X #
# $Z $DELETE $xTV/COORDONNEES$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_Z #
# #
# $Z $xci/liste_points$X \ #
# $Z A=$xTV/BOITE.B \ #
# $Z $formatI \ #
# $Z > $xTV/COORDONNEES #
# #
# $Z $DELETE $xTV/BOITE.6 #
# $Z $DELETE $xTV/BOITE.A #
# $Z $DELETE $xTV/BOITE.B #
# #
# $Z set PartN=`$TAI -1 $xTV/COORDONNEES | $SE -e "s/^.*=//"` #
# #
# $Z $CA $xTV/COORDONNEES \ #
# $Z | $GRE "^[Xx]=" \ #
# $Z | $SE -e "s/^[Xx]=//" \ #
# $Z > $xTV/COORDONNEES_01$COORD_X #
# $Z $CA $xTV/COORDONNEES \ #
# $Z | $GRE "^[Yy]=" \ #
# $Z | $SE -e "s/^[Yy]=//" \ #
# $Z > $xTV/COORDONNEES_01$COORD_Y #
# #
# $Z set EchelleX=`$xcg/MUL2.01$X n1=2 n2=$MaxX` #
# $Z set TranslationX=`$xcg/MUL2.01$X n1=-1 n2=$MaxX` #
# $Z set EchelleY=`$xcg/MUL2.01$X n1=2 n2=$MaxY` #
# $Z set TranslationY=`$xcg/MUL2.01$X n1=-1 n2=$MaxY` #
# #
# $Z $xrv/AXPB.01$X \ #
# $Z CAL1=FAUX \ #
# $Z ne=$PartN \ #
# $Z fichier=$xTV/COORDONNEES_01$COORD_X \ #
# $Z homothetie=$EchelleX translation=$TranslationX \ #
# $Z > $xTV/COORDONNEES$COORD_X #
# $Z $xrv/AXPB.01$X \ #
# $Z CAL1=FAUX \ #
# $Z ne=$PartN \ #
# $Z fichier=$xTV/COORDONNEES_01$COORD_Y \ #
# $Z homothetie=$EchelleY translation=$TranslationY \ #
# $Z > $xTV/COORDONNEES$COORD_Y #
# #
# $Z $DELETE $xTV/COORDONNEES_01$COORD_X #
# $Z $DELETE $xTV/COORDONNEES_01$COORD_Y #
# #
# $Z set Part0=1 #
# $Z @ Npart = $PartN - $Part0 #
# $Z @ Npart = $Npart + 1 #
# $Z @ NpartS2 = $Npart / 2 #
# $Z set Part01=$Part0 #
# $Z @ PartN1 = $Part01 + $NpartS2 #
# $Z @ PartN1 = $PartN1 - 1 #
# $Z @ Part02 = $PartN1 + 1 #
# $Z set PartN2=$PartN #
# #
# $Z $DELETE $xTV/MODULE #
# $Z $DELETE $xTV/MODULE.1 #
# $Z $DELETE $xTV/THETA #
# $Z $DELETE $xTV/XY_RT.1 #
# $Z $DELETE $xTV/XY_RT.2 #
# $Z $DELETE $xTV/VITESSES #
# $Z $DELETE $xTV/VITESSES$COORD_X #
# $Z $DELETE $xTV/VITESSES$COORD_Y #
# $Z $DELETE $xTV/VITESSES$COORD_Z #
# $Z $DELETE $xTV/mdRHO #
# $Z $DELETE $xTV/MdRHO #
# $Z $DELETE $xTV/mnPHI #
# $Z $DELETE $xTV/MnPHI #
# $Z $DELETE $xTV/dPHI #
# $Z $DELETE $xTV/mnTHETA #
# $Z $DELETE $xTV/MnTHETA #
# $Z $DELETE $xTV/dTHETA #
# $Z $DELETE $xTV/supOUVE #
# $Z $DELETE $xTV/DISTANCE #
# $Z $DELETE $xTV/STABILITE #
# $Z $DELETE $xTV/RAYONS #
# $Z $DELETE $xTV/INTERACTIONS #
# #
# #
# $Z alias Gen 'set Fi=\!:1 ; set vD=\!:2 ; set vA=\!:3 ; set ArG=(\!:4*) ; \\ #
# $Z $DELETE $Fi ; \\ #
# $Z $xci/valeurs_inte$X p=$Part0 d=$PartN vD=$vD vA=$vA $ArG > $Fi ; \\ #
# $Z unset Fi vD vA ArG' #
# #
# $Z alias GenR 'set Fi=\!:1 ; set In=\!:2 ; set Su=\!:3 ; set ArG=(\!:4*) ; \\ #
# $Z $DELETE $Fi ; \\ #
# $Z $xci/valeurs_alea$X p=$Part0 d=$PartN signe="$KV" inf=$In sup=$Su $ArG > $Fi ; \\ #
# $Z unset Fi In Su ArG' #
# #
# $Z Gen $xTV/COORDONNEES$COORD_Z 0.001 0.001 #
# #
# #
# $Z Gen $xTV/MODULE 0.02 0.02 #
# $Z GenR $xTV/THETA 0.0 $dpi g=3333 #
# #
# $Z $CA $xcs/csh$Y \ #
# $Z > $xTV/XY_RT.1 #
# $Z $PAST $xTV/MODULE $xTV/THETA \ #
# $Z | $R "$K_TAB" "$K_BLANC" \ #
# $Z | $AW ' { print "$xcg/XY_RT$X r=" $1 " t=" $2 " cartesien=FAUX" } ' \ #
# $Z >>! $xTV/XY_RT.1 #
# #
# $Z (source $xTV/XY_RT.1) \ #
# $Z > $xTV/XY_RT.2 #
# #
# $Z $CA $xTV/XY_RT.2 \ #
# $Z | $GRE "^x=" \ #
# $Z | $SE -e "s/^x=//" \ #
# $Z > $xTV/VITESSES$COORD_X #
# $Z $CA $xTV/XY_RT.2 \ #
# $Z | $GRE "^y=" \ #
# $Z | $SE -e "s/^y=//" \ #
# $Z > $xTV/VITESSES$COORD_Y #
# #
# $Z Gen $xTV/VITESSES$COORD_Z 0.0 0.0 #
# #
# $Z Gen $xTV/mdRHO 0.0 0.0 #
# $Z Gen $xTV/MdRHO 0.0 0.0 #
# $Z Gen $xTV/mnPHI 0.0 0.0 #
# $Z Gen $xTV/MnPHI 0.0 0.0 #
# $Z Gen $xTV/dPHI 0.0 0.0 #
# $Z Gen $xTV/mnTHETA 0.0 0.0 #
# $Z Gen $xTV/MnTHETA 0.0 0.0 #
# $Z Gen $xTV/dTHETA 0.0 0.0 #
# $Z Gen $xTV/DISTANCE 1000000 1000000 #
# $Z Gen $xTV/STABILITE 1000000 1000000 #
# #
# $Z set RayonsT=0.014 #
# $Z set RayonsP=`$xcg/MUL2.01$X a=2 b=$RayonsT` #
# $Z set DistanceI=`$xcg/MUL2.01$X a=4 b=$RayonsP` #
# $Z Gen $xTV/RAYONS $RayonsT $RayonsT #
# $Z Gen $xTV/INTERACTIONS $RayonsP $RayonsP #
# #
# $Z $DELETE $xTV/COULEURS$TEINT #
# $Z $DELETE $xTV/COULEURS$LUMIN #
# $Z $DELETE $xTV/COULEURS$SATUR #
# $Z $DELETE $xTV/COULEURS$Y #
# $Z $DELETE $xTV/COULEURS #
# $Z $DELETE $xTV/COULEURS$ROUGE #
# $Z $DELETE $xTV/COULEURS$VERTE #
# $Z $DELETE $xTV/COULEURS$BLEUE #
# #
# $Z @ TeinteMagenta = $GRIS_7 #
# $Z @ TeinteCyan = $GRIS_4 + $GRIS_8 #
# #
# $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartN \ #
# $Z vD=$TeinteMagenta vA=$TeinteCyan \ #
# $Z cubique=FAUX \ #
# $Z entiers=VRAI \ #
# $Z > $xTV/COULEURS$TEINT #
# $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartN \ #
# $Z vD=$GRIS_4 vA=$GRIS_4 \ #
# $Z cubique=FAUX \ #
# $Z entiers=VRAI \ #
# $Z > $xTV/COULEURS$LUMIN #
# $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartN \ #
# $Z vD=$GRIS_8 vA=$GRIS_8 \ #
# $Z cubique=FAUX \ #
# $Z entiers=VRAI \ #
# $Z > $xTV/COULEURS$SATUR #
# #
# $Z $PAST \ #
# $Z $xTV/COULEURS$TEINT \ #
# $Z $xTV/COULEURS$LUMIN \ #
# $Z $xTV/COULEURS$SATUR \ #
# $Z | $R "$K_TAB" "$K_BLANC" \ #
# $Z | $AW ' { print "H=" $1 " L=" $2 " S=" $3 } ' \ #
# $Z | $SE -e 's+^+$xcg/RVB_HLS$X RVB_HLS=FAUX +' \ #
# $Z | $SE -e 's/$/ eR=VRAI eV=VRAI eB=VRAI/' \ #
# $Z | $SE -e 's/$/ eH=FAUX eL=FAUX eS=FAUX/' \ #
# $Z > $xTV/COULEURS$Y #
# #
# $Z (source $xTV/COULEURS$Y) \ #
# $Z > $xTV/COULEURS #
# #
# $Z $GRE "^R=" $xTV/COULEURS \ #
# $Z | $SE -e "s/^R=//" \ #
# $Z > $xTV/COULEURS$ROUGE #
# $Z $GRE "^V=" $xTV/COULEURS \ #
# $Z | $SE -e "s/^V=//" \ #
# $Z > $xTV/COULEURS$VERTE #
# $Z $GRE "^B=" $xTV/COULEURS \ #
# $Z | $SE -e "s/^B=//" \ #
# $Z > $xTV/COULEURS$BLEUE #
# #
# $Z Pal #
# #
# #
# $Z $xci/scale$X \ #
# $Z A=$xTV/BOITE.1 \ #
# $Z a=1.00 \ #
# $Z R=$xTV/BOITE.2 \ #
# $Z $formatI #
# #
# #
# #
# $Z $xci/complement$X A=$xTV/BOITE.1 \ #
# $Z R=$xTV/BOITE.3 \ #
# $Z $formatI #
# #
# $Z eval `$xci/genere$X \\\ #
# $Z commande='($xci/scale$X \\\ #
# $Z A=$xTV/BOITE.3 \\\ #
# $Z a=0.50 \\\ #
# $Z R=$xTV/BOITE.3%s \\\ #
# $Z $formatI)' \\\ #
# $Z en_tete=FAUX RVB=VRAI separateur=VRAI` #
# #
# #
# $Z $DELETE $xTV/RAYONS #
# $Z $CP $xTV/INTERACTIONS $xTV/RAYONS #
# #
# #
# $Z $xrk/rdn_walk.51$X corps=$Npart \ #
# $Z np=$NimagesA \ #
# $Z collisions=VRAI DLA=FAUX interaction=$DistanceI \ #
# $Z gravitation=FAUX \ #
# $Z constante_gravitation=1.0e-10 \ #
# $Z modifier_vitesses=VRAI ajouter_vitesses=VRAI \ #
# $Z Afacteur_gravitation=0.0 \ #
# $Z Aexposant_gravitation=6 \ #
# $Z Atranslation_gravitation=0 \ #
# $Z Rfacteur_gravitation=0.0 \ #
# $Z Rexposant_gravitation=12 \ #
# $Z Rtranslation_gravitation=0 \ #
# $Z LISTE_X=$xTV/COORDONNEES$COORD_X \ #
# $Z LISTE_Y=$xTV/COORDONNEES$COORD_Y \ #
# $Z LISTE_Z=$xTV/COORDONNEES$COORD_Z \ #
# $Z LISTE_VX=$xTV/VITESSES$COORD_X \ #
# $Z LISTE_VY=$xTV/VITESSES$COORD_Y \ #
# $Z LISTE_VZ=$xTV/VITESSES$COORD_Z \ #
# $Z LISTE_MINIMUM_DELTA_RHO=$xTV/mdRHO \ #
# $Z LISTE_MAXIMUM_DELTA_RHO=$xTV/MdRHO \ #
# $Z LISTE_MINIMUM_N_PHI=$xTV/mnPHI \ #
# $Z LISTE_MAXIMUM_N_PHI=$xTV/MnPHI \ #
# $Z LISTE_DELTA_PHI=$xTV/dPHI \ #
# $Z LISTE_MINIMUM_N_THETA=$xTV/mnTHETA \ #
# $Z LISTE_MAXIMUM_N_THETA=$xTV/MnTHETA \ #
# $Z LISTE_DELTA_THETA=$xTV/dTHETA \ #
# $Z LISTE_DISTANCE_MAXIMALE=$xTV/DISTANCE \ #
# $Z LISTE_STABILITE=$xTV/STABILITE \ #
# $Z LISTE_RAYON=$xTV/RAYONS \ #
# $Z LISTE_RAYON_D_INTERACTION=$xTV/INTERACTIONS \ #
# $Z LISTE_ROUGE=$xTV/COULEURS$ROUGE \ #
# $Z LISTE_VERTE=$xTV/COULEURS$VERTE \ #
# $Z LISTE_BLEUE=$xTV/COULEURS$BLEUE \ #
# $Z milieu=VRAI \ #
# $Z reflexion=VRAI refraction=FAUX \ #
# $Z Mhors=$BLANC \ #
# $Z MNpasX=1 Mprolonger_X=VRAI \ #
# $Z MNpasY=1 Mprolonger_Y=VRAI \ #
# $Z MNpasZ=1 Mprolonger_Z=VRAI \ #
# $Z adapter_M_nPAS=VRAI \ #
# $Z Msimplifier=FAUX affiner_M_maillage=FAUX \ #
# $Z MC=$xTV/BOITE.2 \ #
# $Z MChiffres=0 \ #
# $Z Zmin=0 Zmax=15 \ #
# $Z centrer=VRAI \ #
# $Z dct=0.01 nombre=100 \ #
# $Z trainees=FAUX \ #
# $Z renormaliser=FAUX \ #
# $Z Lz=100 \ #
# $Z zoom_automatique=VRAI \ #
# $Z centre_de_gravite=FAUX \ #
# $Z fond=FAUX \ #
# $Z N_au_carre=FAUX \ #
# $Z R=$xiim/REFL.Wa. \ #
# $Z $formatI #
# #
# #
# $c extern int atoi(); #
# $c extern int *getenv(); #
# #
# $c #define NA0 (atoi(getenv("PremiereA"))) #
# $c #define NA (atoi(getenv("DerniereA"))) #
# #
# $c #define NR0 1 #
# $c #define NR 4 #
# $c #define PAS 1 #
# #
# $c int main() #
# $c { #
# $c int n1; #
# #
# $c for (n1=NA0 ; n1<=NA ; n1++) #
# $c { #
# $c printf("$xci/cache.11$Z #
# $c $xiim/REFL.Wa.%04d #
# $c $xTV/BOITE.3 #
# $c $xiim/REFL.C.%04d\n" #
# $c ,n1,n1 #
# $c ); #
# $c } #
# $c } #
# #
# $Z $xrk/rdn_walk.51$X corps=$Npart \ #
# $Z np=$NimagesA \ #
# $Z collisions=VRAI DLA=FAUX interaction=$DistanceI \ #
# $Z gravitation=VRAI \ #
# $Z constante_gravitation=1.0e-10 \ #
# $Z modifier_vitesses=VRAI ajouter_vitesses=VRAI \ #
# $Z Afacteur_gravitation=1.0 \ #
# $Z Aexposant_gravitation=6 \ #
# $Z Atranslation_gravitation=0 \ #
# $Z Rfacteur_gravitation=0.0 \ #
# $Z Rexposant_gravitation=12 \ #
# $Z Rtranslation_gravitation=0 \ #
# $Z LISTE_X=$xTV/COORDONNEES$COORD_X \ #
# $Z LISTE_Y=$xTV/COORDONNEES$COORD_Y \ #
# $Z LISTE_Z=$xTV/COORDONNEES$COORD_Z \ #
# $Z LISTE_VX=$xTV/VITESSES$COORD_X \ #
# $Z LISTE_VY=$xTV/VITESSES$COORD_Y \ #
# $Z LISTE_VZ=$xTV/VITESSES$COORD_Z \ #
# $Z LISTE_MINIMUM_DELTA_RHO=$xTV/mdRHO \ #
# $Z LISTE_MAXIMUM_DELTA_RHO=$xTV/MdRHO \ #
# $Z LISTE_MINIMUM_N_PHI=$xTV/mnPHI \ #
# $Z LISTE_MAXIMUM_N_PHI=$xTV/MnPHI \ #
# $Z LISTE_DELTA_PHI=$xTV/dPHI \ #
# $Z LISTE_MINIMUM_N_THETA=$xTV/mnTHETA \ #
# $Z LISTE_MAXIMUM_N_THETA=$xTV/MnTHETA \ #
# $Z LISTE_DELTA_THETA=$xTV/dTHETA \ #
# $Z LISTE_DISTANCE_MAXIMALE=$xTV/DISTANCE \ #
# $Z LISTE_STABILITE=$xTV/STABILITE \ #
# $Z LISTE_RAYON=$xTV/RAYONS \ #
# $Z LISTE_RAYON_D_INTERACTION=$xTV/INTERACTIONS \ #
# $Z LISTE_ROUGE=$xTV/COULEURS$ROUGE \ #
# $Z LISTE_VERTE=$xTV/COULEURS$VERTE \ #
# $Z LISTE_BLEUE=$xTV/COULEURS$BLEUE \ #
# $Z milieu=VRAI \ #
# $Z reflexion=VRAI refraction=FAUX \ #
# $Z Mhors=$BLANC \ #
# $Z MNpasX=1 Mprolonger_X=VRAI \ #
# $Z MNpasY=1 Mprolonger_Y=VRAI \ #
# $Z MNpasZ=1 Mprolonger_Z=VRAI \ #
# $Z adapter_M_nPAS=VRAI \ #
# $Z Msimplifier=FAUX affiner_M_maillage=FAUX \ #
# $Z MC=$xTV/BOITE.2 \ #
# $Z MChiffres=0 \ #
# $Z Zmin=0 Zmax=15 \ #
# $Z centrer=VRAI \ #
# $Z dct=0.01 nombre=100 \ #
# $Z trainees=FAUX \ #
# $Z renormaliser=FAUX \ #
# $Z Lz=100 \ #
# $Z zoom_automatique=VRAI \ #
# $Z centre_de_gravite=FAUX \ #
# $Z fond=FAUX \ #
# $Z N_au_carre=FAUX \ #
# $Z R=$xiim/REFL.Wa. \ #
# $Z $formatI #
# #
# #
# $c extern int atoi(); #
# $c extern int *getenv(); #
# #
# $c #define NA0 (atoi(getenv("PremiereA"))) #
# $c #define NA (atoi(getenv("DerniereA"))) #
# #
# $c #define NR0 1 #
# $c #define NR 4 #
# $c #define PAS 1 #
# #
# $c int main() #
# $c { #
# $c int n1; #
# #
# $c for (n1=NA0 ; n1<=NA ; n1++) #
# $c { #
# $c printf("$xci/cache.11$Z #
# $c $xiim/REFL.Wa.%04d #
# $c $xTV/BOITE.3 #
# $c $xiim/REFL.D.%04d\n" #
# $c ,n1,n1 #
# $c ); #
# $c } #
# $c } #
# #
# #
# $Z $DELETE $xTV/MODULE #
# $Z $DELETE $xTV/MODULE.1 #
# $Z $DELETE $xTV/THETA #
# $Z $DELETE $xTV/COORDONNEES #
# $Z $DELETE $xTV/COORDONNEES$COORD_X #
# $Z $DELETE $xTV/COORDONNEES$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_Z #
# $Z $DELETE $xTV/VITESSES #
# $Z $DELETE $xTV/VITESSES$COORD_X #
# $Z $DELETE $xTV/VITESSES$COORD_Y #
# $Z $DELETE $xTV/VITESSES$COORD_Z #
# $Z $DELETE $xTV/mdRHO #
# $Z $DELETE $xTV/MdRHO #
# $Z $DELETE $xTV/mnPHI #
# $Z $DELETE $xTV/MnPHI #
# $Z $DELETE $xTV/dPHI #
# $Z $DELETE $xTV/mnTHETA #
# $Z $DELETE $xTV/MnTHETA #
# $Z $DELETE $xTV/dTHETA #
# $Z $DELETE $xTV/DISTANCE #
# $Z $DELETE $xTV/STABILITE #
# $Z $DELETE $xTV/RAYONS #
# $Z $DELETE $xTV/INTERACTIONS #
# $Z $DELETE $xTV/COULEURS$TEINT #
# $Z $DELETE $xTV/COULEURS$LUMIN #
# $Z $DELETE $xTV/COULEURS$SATUR #
# $Z $DELETE $xTV/COULEURS$Y #
# $Z $DELETE $xTV/COULEURS #
# $Z $DELETE $xTV/COULEURS$ROUGE #
# $Z $DELETE $xTV/COULEURS$VERTE #
# $Z $DELETE $xTV/COULEURS$BLEUE #
# #
# $Z $DELETE $xTV/BOITE.1 #
# $Z $DELETE $xTV/BOITE.2 #
# $Z $DELETE $xTV/BOITE.3 #
# $Z $DELETE $xTV/BOITE.3$ROUGE #
# $Z $DELETE $xTV/BOITE.3$VERTE #
# $Z $DELETE $xTV/BOITE.3$BLEUE #
# #
# #
# Pal #
# #
# #
# $xci/disk_video_P$Z $xiim_LACT29/REFL.C. 001 512 RVB \ #
# 11 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# $xci/disk_video_P$Z $xiim_LACT29/REFL.D. 001 512 RVB \ #
# 11 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
# #
# ATTENTION, ces deux sequences ont ete recalculees et reenregistrees ci-apres en : #
# #
# xivPdf 11 2 / 033556_034067 #
# #
# et : #
# #
# xivPdf 11 2 / 034068_034579 #
# #
# car, d'une part le 19981021101413 le programme 'v $xrk/rdn_walk.51$K 19981021101413' a ete #
# modifie au niveau de la gestion des collisions et d'autre part le test de detection des #
# details fins a ete inhibe... #
# #
sequence 033556_034067
sequence 034068_034579
sequence 034580_035091
sequence 035092_035603
# Generee (sur '$LACT29') par : #
# #
# $Z unsetenv PremiereA #
# $Z unsetenv DerniereA #
# #
# $Z SET tPremiereA=1 #
# $Z SET tDerniereA=512 #
# $Z set Premiere=$tPremiereA #
# $Z @ NimagesA = $tDerniereA - $tPremiereA #
# $Z @ NimagesA = $NimagesA + 1 #
# $Z @ Nimages = $NimagesA #
# $Z @ Nimages = $Nimages - 1 #
# $Z @ Derniere = $Premiere + $Nimages #
# $Z @ Derniere = $Derniere - 1 #
# #
# $Z SETENV PremiereA $tPremiereA #
# $Z SETENV DerniereA $tDerniereA #
# #
# $X echo "echo ATTENTION : 'PremiereA' et 'DerniereA' mis dans 'env'." #
# #
# #
# $Z Pal #
# #
# $Z set PUnivers="np=0 CAL1=FAUX editer_l_univers_physique=VRAI" #
# $Z set Univers=`$xrk/rdn_walk.52$X $PUnivers $formatI` #
# #
# $Z set MinX=`echo $Univers | $SE -e "s/^.*[(,]XUI=//" -e "s/[,)].*//"` #
# $Z set MaxX=`echo $Univers | $SE -e "s/^.*[(,]XUS=//" -e "s/[,)].*//"` #
# $Z set MinY=`echo $Univers | $SE -e "s/^.*[(,]YUI=//" -e "s/[,)].*//"` #
# $Z set MaxY=`echo $Univers | $SE -e "s/^.*[(,]YUS=//" -e "s/[,)].*//"` #
# #
# $Z set MinX=`$xcg/ABSO.01$X x=$MinX` #
# $Z set MaxX=`$xcg/ABSO.01$X x=$MaxX` #
# $Z set MinY=`$xcg/ABSO.01$X x=$MinY` #
# $Z set MaxY=`$xcg/ABSO.01$X x=$MaxY` #
# #
# $Z set MaxX=`$xcg/MAX2.01$X n1=$MinX n2=$MaxX` #
# $Z set MaxY=`$xcg/MAX2.01$X n1=$MinY n2=$MaxY` #
# #
# $Z set SeuilPartN=1.0 #
# $Z set GrainePartN=2 #
# $Z set DistanceX=24 #
# $Z set DistanceY=24 #
# $Z set ForceX=0.0 #
# $Z set ForceY=0.0 #
# #
# $Z $DELETE $xTV/BOITE.1 #
# $Z $DELETE $xTV/BOITE.2 #
# $Z $DELETE $xTV/BOITE.3 #
# $Z $DELETE $xTV/BOITE.3$ROUGE #
# $Z $DELETE $xTV/BOITE.3$VERTE #
# $Z $DELETE $xTV/BOITE.3$BLEUE #
# $Z $DELETE $xTV/BOITE.6 #
# $Z $DELETE $xTV/BOITE.A #
# $Z $DELETE $xTV/BOITE.B #
# #
# #
# $Z Std #
# #
# $Z set FacXY=0.85 #
# $Z set SeuilBOITE=`$xcg/SOUS.01$X a=1 b=$FacXY` #
# $Z set SeuilBOITE=`$xcg/MUL2.01$X a=$SeuilBOITE b=$GRIS_8` #
# $Z set SeuilBOITE=`$xci/valeurs_inte$X p=1 d=1 vD=$SeuilBOITE entiers=VRAI` #
# $Z set SeuilBOITE=`$xcg/MIN2.01$X a=$SeuilBOITE b=$GRIS_1` #
# #
# $Z $xci/complement$X \ #
# $Z A=$xiio/SPIRALE \ #
# $Z $formatI | \ #
# $Z $xci/seuil$X \ #
# $Z seuil=$SeuilBOITE \ #
# $Z R=$xTV/BOITE.6 \ #
# $Z $formatI #
# #
# $Z S #
# #
# $Z $xci/format.01$X mode=0 \ #
# $Z A=$xTV/BOITE.6 \ #
# $Z $formatI \ #
# $Z R=$xTV/BOITE.1 \ #
# $Z $formatR_Pal #
# #
# $Z $xci/dilate.01$X \ #
# $Z A=$xTV/BOITE.6 \ #
# $Z points=225 \ #
# $Z dilater=FAUX \ #
# $Z R=$xTV/BOITE.A \ #
# $Z $formatI #
# #
# $Z $xci/random.02$X \ #
# $Z seuil=$SeuilPartN \ #
# $Z graine=$GrainePartN \ #
# $Z px=$DistanceX py=$DistanceY \ #
# $Z $formatI | \ #
# $Z $xci/shuffling.01$X \ #
# $Z inverse=FAUX \ #
# $Z NOIR=FAUX \ #
# $Z fX=$ForceX fY=$ForceY \ #
# $Z graine=$GrainePartN \ #
# $Z $formatI | \ #
# $Z $xci/and$X \ #
# $Z A2=$xTV/BOITE.A \ #
# $Z R=$xTV/BOITE.B \ #
# $Z $formatI #
# #
# $Z $DELETE $xTV/COORDONNEES #
# $Z $DELETE $xTV/COORDONNEES_01$COORD_X #
# $Z $DELETE $xTV/COORDONNEES_01$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_X #
# $Z $DELETE $xTV/COORDONNEES$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_Z #
# #
# $Z $xci/liste_points$X \ #
# $Z A=$xTV/BOITE.B \ #
# $Z $formatI \ #
# $Z > $xTV/COORDONNEES #
# #
# $Z $DELETE $xTV/BOITE.6 #
# $Z $DELETE $xTV/BOITE.A #
# $Z $DELETE $xTV/BOITE.B #
# #
# $Z set PartN=`$TAI -1 $xTV/COORDONNEES | $SE -e "s/^.*=//"` #
# #
# $Z $CA $xTV/COORDONNEES \ #
# $Z | $GRE "^[Xx]=" \ #
# $Z | $SE -e "s/^[Xx]=//" \ #
# $Z > $xTV/COORDONNEES_01$COORD_X #
# $Z $CA $xTV/COORDONNEES \ #
# $Z | $GRE "^[Yy]=" \ #
# $Z | $SE -e "s/^[Yy]=//" \ #
# $Z > $xTV/COORDONNEES_01$COORD_Y #
# #
# $Z set EchelleX=`$xcg/MUL2.01$X n1=2 n2=$MaxX` #
# $Z set TranslationX=`$xcg/MUL2.01$X n1=-1 n2=$MaxX` #
# $Z set EchelleY=`$xcg/MUL2.01$X n1=2 n2=$MaxY` #
# $Z set TranslationY=`$xcg/MUL2.01$X n1=-1 n2=$MaxY` #
# #
# $Z $xrv/AXPB.01$X \ #
# $Z CAL1=FAUX \ #
# $Z ne=$PartN \ #
# $Z fichier=$xTV/COORDONNEES_01$COORD_X \ #
# $Z homothetie=$EchelleX translation=$TranslationX \ #
# $Z > $xTV/COORDONNEES$COORD_X #
# $Z $xrv/AXPB.01$X \ #
# $Z CAL1=FAUX \ #
# $Z ne=$PartN \ #
# $Z fichier=$xTV/COORDONNEES_01$COORD_Y \ #
# $Z homothetie=$EchelleY translation=$TranslationY \ #
# $Z > $xTV/COORDONNEES$COORD_Y #
# #
# $Z $DELETE $xTV/COORDONNEES_01$COORD_X #
# $Z $DELETE $xTV/COORDONNEES_01$COORD_Y #
# #
# $Z set Part0=1 #
# $Z @ Npart = $PartN - $Part0 #
# $Z @ Npart = $Npart + 1 #
# $Z @ NpartS2 = $Npart / 2 #
# $Z set Part01=$Part0 #
# $Z @ PartN1 = $Part01 + $NpartS2 #
# $Z @ PartN1 = $PartN1 - 1 #
# $Z @ Part02 = $PartN1 + 1 #
# $Z set PartN2=$PartN #
# #
# $Z $DELETE $xTV/MODULE #
# $Z $DELETE $xTV/MODULE.1 #
# $Z $DELETE $xTV/THETA #
# $Z $DELETE $xTV/XY_RT.1 #
# $Z $DELETE $xTV/XY_RT.2 #
# $Z $DELETE $xTV/VITESSES #
# $Z $DELETE $xTV/VITESSES$COORD_X #
# $Z $DELETE $xTV/VITESSES$COORD_Y #
# $Z $DELETE $xTV/VITESSES$COORD_Z #
# $Z $DELETE $xTV/mdRHO #
# $Z $DELETE $xTV/MdRHO #
# $Z $DELETE $xTV/mnPHI #
# $Z $DELETE $xTV/MnPHI #
# $Z $DELETE $xTV/dPHI #
# $Z $DELETE $xTV/mnTHETA #
# $Z $DELETE $xTV/MnTHETA #
# $Z $DELETE $xTV/dTHETA #
# $Z $DELETE $xTV/supOUVE #
# $Z $DELETE $xTV/DISTANCE #
# $Z $DELETE $xTV/STABILITE #
# $Z $DELETE $xTV/RAYONS #
# $Z $DELETE $xTV/INTERACTIONS #
# #
# #
# $Z alias Gen 'set Fi=\!:1 ; set vD=\!:2 ; set vA=\!:3 ; set ArG=(\!:4*) ; \\ #
# $Z $DELETE $Fi ; \\ #
# $Z $xci/valeurs_inte$X p=$Part0 d=$PartN vD=$vD vA=$vA $ArG > $Fi ; \\ #
# $Z unset Fi vD vA ArG' #
# #
# $Z alias GenR 'set Fi=\!:1 ; set In=\!:2 ; set Su=\!:3 ; set ArG=(\!:4*) ; \\ #
# $Z $DELETE $Fi ; \\ #
# $Z $xci/valeurs_alea$X p=$Part0 d=$PartN signe="$KV" inf=$In sup=$Su $ArG > $Fi ; \\ #
# $Z unset Fi In Su ArG' #
# #
# $Z Gen $xTV/COORDONNEES$COORD_Z 0.0 0.0 #
# #
# #
# $Z Gen $xTV/MODULE 0.02 0.02 #
# $Z GenR $xTV/THETA 0.0 $dpi g=3333 #
# #
# $Z $CA $xcs/csh$Y \ #
# $Z > $xTV/XY_RT.1 #
# $Z $PAST $xTV/MODULE $xTV/THETA \ #
# $Z | $R "$K_TAB" "$K_BLANC" \ #
# $Z | $AW ' { print "$xcg/XY_RT$X r=" $1 " t=" $2 " cartesien=FAUX" } ' \ #
# $Z >>! $xTV/XY_RT.1 #
# #
# $Z (source $xTV/XY_RT.1) \ #
# $Z > $xTV/XY_RT.2 #
# #
# $Z $CA $xTV/XY_RT.2 \ #
# $Z | $GRE "^x=" \ #
# $Z | $SE -e "s/^x=//" \ #
# $Z > $xTV/VITESSES$COORD_X #
# $Z $CA $xTV/XY_RT.2 \ #
# $Z | $GRE "^y=" \ #
# $Z | $SE -e "s/^y=//" \ #
# $Z > $xTV/VITESSES$COORD_Y #
# #
# $Z $DELETE $xTV/XY_RT.1 #
# $Z $DELETE $xTV/XY_RT.2 #
# #
# $Z Gen $xTV/VITESSES$COORD_Z 0.0 0.0 #
# #
# $Z Gen $xTV/mdRHO 0.0 0.0 #
# $Z Gen $xTV/MdRHO 0.0 0.0 #
# $Z Gen $xTV/mnPHI 0.0 0.0 #
# $Z Gen $xTV/MnPHI 0.0 0.0 #
# $Z Gen $xTV/dPHI 0.0 0.0 #
# $Z Gen $xTV/mnTHETA 0.0 0.0 #
# $Z Gen $xTV/MnTHETA 0.0 0.0 #
# $Z Gen $xTV/dTHETA 0.0 0.0 #
# $Z Gen $xTV/DISTANCE 1000000 1000000 #
# $Z Gen $xTV/STABILITE 1000000 1000000 #
# #
# $Z set RayonsT=0.014 #
# $Z set RayonsP=`$xcg/MUL2.01$X a=2 b=$RayonsT` #
# $Z set DistanceI=`$xcg/MUL2.01$X a=4 b=$RayonsP` #
# $Z Gen $xTV/RAYONS $RayonsT $RayonsT #
# $Z Gen $xTV/INTERACTIONS $RayonsP $RayonsP #
# #
# $Z $DELETE $xTV/COULEURS$TEINT #
# $Z $DELETE $xTV/COULEURS$LUMIN #
# $Z $DELETE $xTV/COULEURS$SATUR #
# $Z $DELETE $xTV/COULEURS$Y #
# $Z $DELETE $xTV/COULEURS #
# $Z $DELETE $xTV/COULEURS$ROUGE #
# $Z $DELETE $xTV/COULEURS$VERTE #
# $Z $DELETE $xTV/COULEURS$BLEUE #
# #
# $Z @ TeinteMagenta = $GRIS_7 #
# $Z @ TeinteCyan = $GRIS_4 + $GRIS_8 #
# #
# $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartN \ #
# $Z vD=$TeinteMagenta vA=$TeinteCyan \ #
# $Z cubique=FAUX \ #
# $Z entiers=VRAI \ #
# $Z > $xTV/COULEURS$TEINT #
# $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartN \ #
# $Z vD=$GRIS_4 vA=$GRIS_4 \ #
# $Z cubique=FAUX \ #
# $Z entiers=VRAI \ #
# $Z > $xTV/COULEURS$LUMIN #
# $Z $xci/valeurs_inte$X premiere=$Part0 derniere=$PartN \ #
# $Z vD=$GRIS_8 vA=$GRIS_8 \ #
# $Z cubique=FAUX \ #
# $Z entiers=VRAI \ #
# $Z > $xTV/COULEURS$SATUR #
# #
# $Z $PAST \ #
# $Z $xTV/COULEURS$TEINT \ #
# $Z $xTV/COULEURS$LUMIN \ #
# $Z $xTV/COULEURS$SATUR \ #
# $Z | $R "$K_TAB" "$K_BLANC" \ #
# $Z | $AW ' { print "H=" $1 " L=" $2 " S=" $3 } ' \ #
# $Z | $SE -e 's+^+$xcg/RVB_HLS$X RVB_HLS=FAUX +' \ #
# $Z | $SE -e 's/$/ eR=VRAI eV=VRAI eB=VRAI/' \ #
# $Z | $SE -e 's/$/ eH=FAUX eL=FAUX eS=FAUX/' \ #
# $Z > $xTV/COULEURS$Y #
# #
# $Z (source $xTV/COULEURS$Y) \ #
# $Z > $xTV/COULEURS #
# #
# $Z $GRE "^R=" $xTV/COULEURS \ #
# $Z | $SE -e "s/^R=//" \ #
# $Z > $xTV/COULEURS$ROUGE #
# $Z $GRE "^V=" $xTV/COULEURS \ #
# $Z | $SE -e "s/^V=//" \ #
# $Z > $xTV/COULEURS$VERTE #
# $Z $GRE "^B=" $xTV/COULEURS \ #
# $Z | $SE -e "s/^B=//" \ #
# $Z > $xTV/COULEURS$BLEUE #
# #
# $Z Pal #
# #
# #
# $Z $xci/scale$X \ #
# $Z A=$xTV/BOITE.1 \ #
# $Z a=1.00 \ #
# $Z R=$xTV/BOITE.2 \ #
# $Z $formatI #
# #
# #
# #
# $Z $xci/complement$X A=$xTV/BOITE.1 \ #
# $Z R=$xTV/BOITE.3 \ #
# $Z $formatI #
# #
# $Z eval `$xci/genere$X \\\ #
# $Z commande='($xci/scale$X \\\ #
# $Z A=$xTV/BOITE.3 \\\ #
# $Z a=0.50 \\\ #
# $Z R=$xTV/BOITE.3%s \\\ #
# $Z $formatI)' \\\ #
# $Z en_tete=FAUX RVB=VRAI separateur=VRAI` #
# #
# #
# $Z $DELETE $xTV/RAYONS #
# $Z $CP $xTV/INTERACTIONS $xTV/RAYONS #
# #
# #
# $Z set Ordre=1 #
# $Z set Afacteur=+5.0e-12 #
# $Z set Rfacteur=-5.0e-22 #
# #
# #
# $Z $xrk/rdn_walk.52$X corps=$Npart \ #
# $Z np=$NimagesA \ #
# $Z collisions=VRAI DLA=FAUX interaction=$DistanceI \ #
# $Z gravitation=FAUX \ #
# $Z ordre=$Ordre \ #
# $Z collisions_gravitation=FAUX \ #
# $Z constante_gravitation=1.0 \ #
# $Z Afacteur_gravitation=0.0 \ #
# $Z Aexposant_gravitation=7 \ #
# $Z Atranslation_gravitation=0 \ #
# $Z Rfacteur_gravitation=0.0 \ #
# $Z Rexposant_gravitation=13 \ #
# $Z Rtranslation_gravitation=0 \ #
# $Z LISTE_X=$xTV/COORDONNEES$COORD_X \ #
# $Z LISTE_Y=$xTV/COORDONNEES$COORD_Y \ #
# $Z LISTE_Z=$xTV/COORDONNEES$COORD_Z \ #
# $Z LISTE_VX=$xTV/VITESSES$COORD_X \ #
# $Z LISTE_VY=$xTV/VITESSES$COORD_Y \ #
# $Z LISTE_VZ=$xTV/VITESSES$COORD_Z \ #
# $Z LISTE_MINIMUM_DELTA_RHO=$xTV/mdRHO \ #
# $Z LISTE_MAXIMUM_DELTA_RHO=$xTV/MdRHO \ #
# $Z LISTE_MINIMUM_N_PHI=$xTV/mnPHI \ #
# $Z LISTE_MAXIMUM_N_PHI=$xTV/MnPHI \ #
# $Z LISTE_DELTA_PHI=$xTV/dPHI \ #
# $Z LISTE_MINIMUM_N_THETA=$xTV/mnTHETA \ #
# $Z LISTE_MAXIMUM_N_THETA=$xTV/MnTHETA \ #
# $Z LISTE_DELTA_THETA=$xTV/dTHETA \ #
# $Z LISTE_DISTANCE_MAXIMALE=$xTV/DISTANCE \ #
# $Z LISTE_STABILITE=$xTV/STABILITE \ #
# $Z LISTE_RAYON=$xTV/RAYONS \ #
# $Z LISTE_RAYON_D_INTERACTION=$xTV/INTERACTIONS \ #
# $Z LISTE_ROUGE=$xTV/COULEURS$ROUGE \ #
# $Z LISTE_VERTE=$xTV/COULEURS$VERTE \ #
# $Z LISTE_BLEUE=$xTV/COULEURS$BLEUE \ #
# $Z milieu=VRAI \ #
# $Z reflexion=VRAI refraction=FAUX \ #
# $Z Mhors=$BLANC \ #
# $Z MNpasX=1 Mprolonger_X=VRAI \ #
# $Z MNpasY=1 Mprolonger_Y=VRAI \ #
# $Z MNpasZ=1 Mprolonger_Z=VRAI \ #
# $Z adapter_M_nPAS=VRAI \ #
# $Z Msimplifier=FAUX affiner_M_maillage=FAUX \ #
# $Z MC=$xTV/BOITE.2 \ #
# $Z MChiffres=0 \ #
# $Z Zmin=0 Zmax=15 \ #
# $Z centrer=VRAI \ #
# $Z dct=0.01 nombre=100 \ #
# $Z details_fins=FAUX \ #
# $Z trainees=FAUX \ #
# $Z renormaliser=FAUX \ #
# $Z Lz=100 \ #
# $Z zoom_automatique=VRAI \ #
# $Z centre_de_gravite=FAUX \ #
# $Z fond=FAUX \ #
# $Z N_au_carre=FAUX \ #
# $Z R=$xiim/REFL.Wa. \ #
# $Z $formatI #
# #
# #
# $c extern int atoi(); #
# $c extern int *getenv(); #
# #
# $c #define NA0 (atoi(getenv("PremiereA"))) #
# $c #define NA (atoi(getenv("DerniereA"))) #
# #
# $c #define NR0 1 #
# $c #define NR 4 #
# $c #define PAS 1 #
# #
# $c int main() #
# $c { #
# $c int n1; #
# #
# $c for (n1=NA0 ; n1<=NA ; n1++) #
# $c { #
# $c printf("$xci/cache.11$Z #
# $c $xiim/REFL.Wa.%04d #
# $c $xTV/BOITE.3 #
# $c $xiim/REFL.C.%04d\n" #
# $c ,n1,n1 #
# $c ); #
# $c } #
# $c } #
# #
# $Z $xrk/rdn_walk.52$X corps=$Npart \ #
# $Z np=$NimagesA \ #
# $Z collisions=VRAI DLA=FAUX interaction=$DistanceI \ #
# $Z gravitation=VRAI \ #
# $Z ordre=$Ordre \ #
# $Z collisions_gravitation=FAUX \ #
# $Z constante_gravitation=1.0 \ #
# $Z Afacteur_gravitation=$Afacteur \ #
# $Z Aexposant_gravitation=7 \ #
# $Z Atranslation_gravitation=0 \ #
# $Z Rfacteur_gravitation=0.0 \ #
# $Z Rexposant_gravitation=13 \ #
# $Z Rtranslation_gravitation=0 \ #
# $Z LISTE_X=$xTV/COORDONNEES$COORD_X \ #
# $Z LISTE_Y=$xTV/COORDONNEES$COORD_Y \ #
# $Z LISTE_Z=$xTV/COORDONNEES$COORD_Z \ #
# $Z LISTE_VX=$xTV/VITESSES$COORD_X \ #
# $Z LISTE_VY=$xTV/VITESSES$COORD_Y \ #
# $Z LISTE_VZ=$xTV/VITESSES$COORD_Z \ #
# $Z LISTE_MINIMUM_DELTA_RHO=$xTV/mdRHO \ #
# $Z LISTE_MAXIMUM_DELTA_RHO=$xTV/MdRHO \ #
# $Z LISTE_MINIMUM_N_PHI=$xTV/mnPHI \ #
# $Z LISTE_MAXIMUM_N_PHI=$xTV/MnPHI \ #
# $Z LISTE_DELTA_PHI=$xTV/dPHI \ #
# $Z LISTE_MINIMUM_N_THETA=$xTV/mnTHETA \ #
# $Z LISTE_MAXIMUM_N_THETA=$xTV/MnTHETA \ #
# $Z LISTE_DELTA_THETA=$xTV/dTHETA \ #
# $Z LISTE_DISTANCE_MAXIMALE=$xTV/DISTANCE \ #
# $Z LISTE_STABILITE=$xTV/STABILITE \ #
# $Z LISTE_RAYON=$xTV/RAYONS \ #
# $Z LISTE_RAYON_D_INTERACTION=$xTV/INTERACTIONS \ #
# $Z LISTE_ROUGE=$xTV/COULEURS$ROUGE \ #
# $Z LISTE_VERTE=$xTV/COULEURS$VERTE \ #
# $Z LISTE_BLEUE=$xTV/COULEURS$BLEUE \ #
# $Z milieu=VRAI \ #
# $Z reflexion=VRAI refraction=FAUX \ #
# $Z Mhors=$BLANC \ #
# $Z MNpasX=1 Mprolonger_X=VRAI \ #
# $Z MNpasY=1 Mprolonger_Y=VRAI \ #
# $Z MNpasZ=1 Mprolonger_Z=VRAI \ #
# $Z adapter_M_nPAS=VRAI \ #
# $Z Msimplifier=FAUX affiner_M_maillage=FAUX \ #
# $Z MC=$xTV/BOITE.2 \ #
# $Z MChiffres=0 \ #
# $Z Zmin=0 Zmax=15 \ #
# $Z centrer=VRAI \ #
# $Z dct=0.01 nombre=100 \ #
# $Z details_fins=FAUX \ #
# $Z trainees=FAUX \ #
# $Z renormaliser=FAUX \ #
# $Z Lz=100 \ #
# $Z zoom_automatique=VRAI \ #
# $Z centre_de_gravite=FAUX \ #
# $Z fond=FAUX \ #
# $Z N_au_carre=FAUX \ #
# $Z R=$xiim/REFL.Wa. \ #
# $Z $formatI #
# #
# #
# $c extern int atoi(); #
# $c extern int *getenv(); #
# #
# $c #define NA0 (atoi(getenv("PremiereA"))) #
# $c #define NA (atoi(getenv("DerniereA"))) #
# #
# $c #define NR0 1 #
# $c #define NR 4 #
# $c #define PAS 1 #
# #
# $c int main() #
# $c { #
# $c int n1; #
# #
# $c for (n1=NA0 ; n1<=NA ; n1++) #
# $c { #
# $c printf("$xci/cache.11$Z #
# $c $xiim/REFL.Wa.%04d #
# $c $xTV/BOITE.3 #
# $c $xiim/REFL.D.%04d\n" #
# $c ,n1,n1 #
# $c ); #
# $c } #
# $c } #
# #
# $Z $xrk/rdn_walk.52$X corps=$Npart \ #
# $Z np=$NimagesA \ #
# $Z collisions=VRAI DLA=FAUX interaction=$DistanceI \ #
# $Z gravitation=VRAI \ #
# $Z ordre=$Ordre \ #
# $Z collisions_gravitation=FAUX \ #
# $Z constante_gravitation=1.0 \ #
# $Z Afacteur_gravitation=0.0 \ #
# $Z Aexposant_gravitation=7 \ #
# $Z Atranslation_gravitation=0 \ #
# $Z Rfacteur_gravitation=$Rfacteur \ #
# $Z Rexposant_gravitation=13 \ #
# $Z Rtranslation_gravitation=0 \ #
# $Z LISTE_X=$xTV/COORDONNEES$COORD_X \ #
# $Z LISTE_Y=$xTV/COORDONNEES$COORD_Y \ #
# $Z LISTE_Z=$xTV/COORDONNEES$COORD_Z \ #
# $Z LISTE_VX=$xTV/VITESSES$COORD_X \ #
# $Z LISTE_VY=$xTV/VITESSES$COORD_Y \ #
# $Z LISTE_VZ=$xTV/VITESSES$COORD_Z \ #
# $Z LISTE_MINIMUM_DELTA_RHO=$xTV/mdRHO \ #
# $Z LISTE_MAXIMUM_DELTA_RHO=$xTV/MdRHO \ #
# $Z LISTE_MINIMUM_N_PHI=$xTV/mnPHI \ #
# $Z LISTE_MAXIMUM_N_PHI=$xTV/MnPHI \ #
# $Z LISTE_DELTA_PHI=$xTV/dPHI \ #
# $Z LISTE_MINIMUM_N_THETA=$xTV/mnTHETA \ #
# $Z LISTE_MAXIMUM_N_THETA=$xTV/MnTHETA \ #
# $Z LISTE_DELTA_THETA=$xTV/dTHETA \ #
# $Z LISTE_DISTANCE_MAXIMALE=$xTV/DISTANCE \ #
# $Z LISTE_STABILITE=$xTV/STABILITE \ #
# $Z LISTE_RAYON=$xTV/RAYONS \ #
# $Z LISTE_RAYON_D_INTERACTION=$xTV/INTERACTIONS \ #
# $Z LISTE_ROUGE=$xTV/COULEURS$ROUGE \ #
# $Z LISTE_VERTE=$xTV/COULEURS$VERTE \ #
# $Z LISTE_BLEUE=$xTV/COULEURS$BLEUE \ #
# $Z milieu=VRAI \ #
# $Z reflexion=VRAI refraction=FAUX \ #
# $Z Mhors=$BLANC \ #
# $Z MNpasX=1 Mprolonger_X=VRAI \ #
# $Z MNpasY=1 Mprolonger_Y=VRAI \ #
# $Z MNpasZ=1 Mprolonger_Z=VRAI \ #
# $Z adapter_M_nPAS=VRAI \ #
# $Z Msimplifier=FAUX affiner_M_maillage=FAUX \ #
# $Z MC=$xTV/BOITE.2 \ #
# $Z MChiffres=0 \ #
# $Z Zmin=0 Zmax=15 \ #
# $Z centrer=VRAI \ #
# $Z dct=0.01 nombre=100 \ #
# $Z details_fins=FAUX \ #
# $Z trainees=FAUX \ #
# $Z renormaliser=FAUX \ #
# $Z Lz=100 \ #
# $Z zoom_automatique=VRAI \ #
# $Z centre_de_gravite=FAUX \ #
# $Z fond=FAUX \ #
# $Z N_au_carre=FAUX \ #
# $Z R=$xiim/REFL.Wa. \ #
# $Z $formatI #
# #
# #
# $c extern int atoi(); #
# $c extern int *getenv(); #
# #
# $c #define NA0 (atoi(getenv("PremiereA"))) #
# $c #define NA (atoi(getenv("DerniereA"))) #
# #
# $c #define NR0 1 #
# $c #define NR 4 #
# $c #define PAS 1 #
# #
# $c int main() #
# $c { #
# $c int n1; #
# #
# $c for (n1=NA0 ; n1<=NA ; n1++) #
# $c { #
# $c printf("$xci/cache.11$Z #
# $c $xiim/REFL.Wa.%04d #
# $c $xTV/BOITE.3 #
# $c $xiim/REFL.E.%04d\n" #
# $c ,n1,n1 #
# $c ); #
# $c } #
# $c } #
# #
# $Z $xrk/rdn_walk.52$X corps=$Npart \ #
# $Z np=$NimagesA \ #
# $Z collisions=VRAI DLA=FAUX interaction=$DistanceI \ #
# $Z gravitation=VRAI \ #
# $Z ordre=$Ordre \ #
# $Z collisions_gravitation=FAUX \ #
# $Z constante_gravitation=1.0 \ #
# $Z Afacteur_gravitation=$Afacteur \ #
# $Z Aexposant_gravitation=7 \ #
# $Z Atranslation_gravitation=0 \ #
# $Z Rfacteur_gravitation=$Rfacteur \ #
# $Z Rexposant_gravitation=13 \ #
# $Z Rtranslation_gravitation=0 \ #
# $Z LISTE_X=$xTV/COORDONNEES$COORD_X \ #
# $Z LISTE_Y=$xTV/COORDONNEES$COORD_Y \ #
# $Z LISTE_Z=$xTV/COORDONNEES$COORD_Z \ #
# $Z LISTE_VX=$xTV/VITESSES$COORD_X \ #
# $Z LISTE_VY=$xTV/VITESSES$COORD_Y \ #
# $Z LISTE_VZ=$xTV/VITESSES$COORD_Z \ #
# $Z LISTE_MINIMUM_DELTA_RHO=$xTV/mdRHO \ #
# $Z LISTE_MAXIMUM_DELTA_RHO=$xTV/MdRHO \ #
# $Z LISTE_MINIMUM_N_PHI=$xTV/mnPHI \ #
# $Z LISTE_MAXIMUM_N_PHI=$xTV/MnPHI \ #
# $Z LISTE_DELTA_PHI=$xTV/dPHI \ #
# $Z LISTE_MINIMUM_N_THETA=$xTV/mnTHETA \ #
# $Z LISTE_MAXIMUM_N_THETA=$xTV/MnTHETA \ #
# $Z LISTE_DELTA_THETA=$xTV/dTHETA \ #
# $Z LISTE_DISTANCE_MAXIMALE=$xTV/DISTANCE \ #
# $Z LISTE_STABILITE=$xTV/STABILITE \ #
# $Z LISTE_RAYON=$xTV/RAYONS \ #
# $Z LISTE_RAYON_D_INTERACTION=$xTV/INTERACTIONS \ #
# $Z LISTE_ROUGE=$xTV/COULEURS$ROUGE \ #
# $Z LISTE_VERTE=$xTV/COULEURS$VERTE \ #
# $Z LISTE_BLEUE=$xTV/COULEURS$BLEUE \ #
# $Z milieu=VRAI \ #
# $Z reflexion=VRAI refraction=FAUX \ #
# $Z Mhors=$BLANC \ #
# $Z MNpasX=1 Mprolonger_X=VRAI \ #
# $Z MNpasY=1 Mprolonger_Y=VRAI \ #
# $Z MNpasZ=1 Mprolonger_Z=VRAI \ #
# $Z adapter_M_nPAS=VRAI \ #
# $Z Msimplifier=FAUX affiner_M_maillage=FAUX \ #
# $Z MC=$xTV/BOITE.2 \ #
# $Z MChiffres=0 \ #
# $Z Zmin=0 Zmax=15 \ #
# $Z centrer=VRAI \ #
# $Z dct=0.01 nombre=100 \ #
# $Z details_fins=FAUX \ #
# $Z trainees=FAUX \ #
# $Z renormaliser=FAUX \ #
# $Z Lz=100 \ #
# $Z zoom_automatique=VRAI \ #
# $Z centre_de_gravite=FAUX \ #
# $Z fond=FAUX \ #
# $Z N_au_carre=FAUX \ #
# $Z R=$xiim/REFL.Wa. \ #
# $Z $formatI #
# #
# #
# $c extern int atoi(); #
# $c extern int *getenv(); #
# #
# $c #define NA0 (atoi(getenv("PremiereA"))) #
# $c #define NA (atoi(getenv("DerniereA"))) #
# #
# $c #define NR0 1 #
# $c #define NR 4 #
# $c #define PAS 1 #
# #
# $c int main() #
# $c { #
# $c int n1; #
# #
# $c for (n1=NA0 ; n1<=NA ; n1++) #
# $c { #
# $c printf("$xci/cache.11$Z #
# $c $xiim/REFL.Wa.%04d #
# $c $xTV/BOITE.3 #
# $c $xiim/REFL.F.%04d\n" #
# $c ,n1,n1 #
# $c ); #
# $c } #
# $c } #
# #
# #
# $Z $DELETE $xTV/MODULE #
# $Z $DELETE $xTV/MODULE.1 #
# $Z $DELETE $xTV/THETA #
# $Z $DELETE $xTV/COORDONNEES #
# $Z $DELETE $xTV/COORDONNEES$COORD_X #
# $Z $DELETE $xTV/COORDONNEES$COORD_Y #
# $Z $DELETE $xTV/COORDONNEES$COORD_Z #
# $Z $DELETE $xTV/VITESSES #
# $Z $DELETE $xTV/VITESSES$COORD_X #
# $Z $DELETE $xTV/VITESSES$COORD_Y #
# $Z $DELETE $xTV/VITESSES$COORD_Z #
# $Z $DELETE $xTV/mdRHO #
# $Z $DELETE $xTV/MdRHO #
# $Z $DELETE $xTV/mnPHI #
# $Z $DELETE $xTV/MnPHI #
# $Z $DELETE $xTV/dPHI #
# $Z $DELETE $xTV/mnTHETA #
# $Z $DELETE $xTV/MnTHETA #
# $Z $DELETE $xTV/dTHETA #
# $Z $DELETE $xTV/DISTANCE #
# $Z $DELETE $xTV/STABILITE #
# $Z $DELETE $xTV/RAYONS #
# $Z $DELETE $xTV/INTERACTIONS #
# $Z $DELETE $xTV/COULEURS$TEINT #
# $Z $DELETE $xTV/COULEURS$LUMIN #
# $Z $DELETE $xTV/COULEURS$SATUR #
# $Z $DELETE $xTV/COULEURS$Y #
# $Z $DELETE $xTV/COULEURS #
# $Z $DELETE $xTV/COULEURS$ROUGE #
# $Z $DELETE $xTV/COULEURS$VERTE #
# $Z $DELETE $xTV/COULEURS$BLEUE #
# #
# $Z $DELETE $xTV/BOITE.1 #
# $Z $DELETE $xTV/BOITE.2 #
# $Z $DELETE $xTV/BOITE.3 #
# $Z $DELETE $xTV/BOITE.3$ROUGE #
# $Z $DELETE $xTV/BOITE.3$VERTE #
# $Z $DELETE $xTV/BOITE.3$BLEUE #
# #
# $Z Pal #
# #
# $Z $xci/reduction_16$Z $xiim/REFL.C. $xiak/REFL.a1 $Premiere $Derniere #
# $Z $xci/reduction_64$Z $xiim/REFL.C. $xiak/REFL.a1 $Premiere $Derniere #
# #
# $X $xci/genere$X c='ro $xiak/REFL.a1$R16%s' RVB=VRAI #
# $X $xci/genere$X c='ro $xiak/REFL.a1$R64%s' RVB=VRAI #
# #
# $X $xci/genere$X c='$xcg/unite$Z $xiak/REFL.a1$R16%s' RVB=VRAI #
# $X $xci/genere$X c='$xcg/unite$Z $xiak/REFL.a1$R64%s' RVB=VRAI #
# #
# $Z $xci/reduction_16$Z $xiim/REFL.D. $xiak/REFL.a2 $Premiere $Derniere #
# $Z $xci/reduction_64$Z $xiim/REFL.D. $xiak/REFL.a2 $Premiere $Derniere #
# #
# $X $xci/genere$X c='ro $xiak/REFL.a2$R16%s' RVB=VRAI #
# $X $xci/genere$X c='ro $xiak/REFL.a2$R64%s' RVB=VRAI #
# #
# $X $xci/genere$X c='$xcg/unite$Z $xiak/REFL.a2$R16%s' RVB=VRAI #
# $X $xci/genere$X c='$xcg/unite$Z $xiak/REFL.a2$R64%s' RVB=VRAI #
# #
# $Z $xci/reduction_16$Z $xiim/REFL.E. $xiak/REFL.a3 $Premiere $Derniere #
# $Z $xci/reduction_64$Z $xiim/REFL.E. $xiak/REFL.a3 $Premiere $Derniere #
# #
# $X $xci/genere$X c='ro $xiak/REFL.a3$R16%s' RVB=VRAI #
# $X $xci/genere$X c='ro $xiak/REFL.a3$R64%s' RVB=VRAI #
# #
# $X $xci/genere$X c='$xcg/unite$Z $xiak/REFL.a3$R16%s' RVB=VRAI #
# $X $xci/genere$X c='$xcg/unite$Z $xiak/REFL.a3$R64%s' RVB=VRAI #
# #
# $Z $xci/reduction_16$Z $xiim/REFL.F. $xiak/REFL.a4 $Premiere $Derniere #
# $Z $xci/reduction_64$Z $xiim/REFL.F. $xiak/REFL.a4 $Premiere $Derniere #
# #
# $X $xci/genere$X c='ro $xiak/REFL.a4$R16%s' RVB=VRAI #
# $X $xci/genere$X c='ro $xiak/REFL.a4$R64%s' RVB=VRAI #
# #
# $X $xci/genere$X c='$xcg/unite$Z $xiak/REFL.a4$R16%s' RVB=VRAI #
# $X $xci/genere$X c='$xcg/unite$Z $xiak/REFL.a4$R64%s' RVB=VRAI #
# #
# #
# Pal #
# #
# #
# $xci/disk_video_P$Z $xiim_LACT29/REFL.C. 001 512 RVB \ #
# 11 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# $xci/disk_video_P$Z $xiim_LACT29/REFL.D. 001 512 RVB \ #
# 11 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# $xci/disk_video_P$Z $xiim_LACT29/REFL.E. 001 512 RVB \ #
# 11 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# $xci/disk_video_P$Z $xiim_LACT29/REFL.F. 001 512 RVB \ #
# 11 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
# #
# xivPdf 3 2 #
# #
# record.01$Z $xiak/REFL.a1$R16 RVB Initialisation #
# record.01$Z $xiak/REFL.a1$R64 RVB rien #
# record.01$Z $xiak/REFL.a2$R16 RVB rien #
# record.01$Z $xiak/REFL.a2$R64 RVB rien #
# record.01$Z $xiak/REFL.a3$R16 RVB rien #
# record.01$Z $xiak/REFL.a3$R64 RVB rien #
# record.01$Z $xiak/REFL.a4$R16 RVB rien #
# record.01$Z $xiak/REFL.a4$R64 RVB rien #
# #
sequence 035604_036115
# Generee (sur '$LACT29') par : #
# #
# $Z unsetenv PremiereA #
# $Z unsetenv DerniereA #
# #
# $Z SET tPremiereA=1 #
# $Z SET tDerniereA=512 #
# $Z set Premiere=$tPremiereA #
# $Z @ NimagesA = $tDerniereA - $tPremiereA #
# $Z @ NimagesA = $NimagesA + 1 #
# $Z @ Nimages = $NimagesA #
# $Z @ Nimages = $Nimages - 1 #
# $Z @ Derniere = $Premiere + $Nimages #
# $Z @ Derniere = $Derniere - 1 #
# #
# $Z SETENV PremiereA $tPremiereA #
# $Z SETENV DerniereA $tDerniereA #
# #
# $X echo "echo ATTENTION : 'PremiereA' et 'DerniereA' mis dans 'env'." #
# #
# #
# $Z Pal #
# #
# $c extern int atoi(); #
# $c extern int *getenv(); #
# #
# $c #define NA0 (atoi(getenv("PremiereA"))) #
# $c #define NA (atoi(getenv("DerniereA"))) #
# #
# $c #define NR0 1 #
# $c #define NR 4 #
# $c #define PAS 1 #
# #
# $c int main() #
# $c { #
# $c int n1; #
# #
# $c for (n1=NA0 ; n1<=NA ; n1++) #
# $c { #
# $c int n2=NR0; #
# $c char k2='C'; #
# #
# $c printf("$xci/acces$X #
# $c A=$xiim_LACT29/REFL.%c.%04d$ROUGE #
# $c R=$xTV/REFL.%04d$ROUGE #
# $c $formatI\n" #
# $c ,k2,n1,n2 #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xiim_LACT29/REFL.%c.%04d$VERTE #
# $c R=$xTV/REFL.%04d$VERTE #
# $c $formatI\n" #
# $c ,k2,n1,n2 #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xiim_LACT29/REFL.%c.%04d$BLEUE #
# $c R=$xTV/REFL.%04d$BLEUE #
# $c $formatI\n" #
# $c ,k2,n1,n2 #
# $c ); #
# $c n2=n2+PAS; #
# #
# $c k2='D'; #
# $c printf("$xci/acces$X #
# $c A=$xiim_LACT29/REFL.%c.%04d$ROUGE #
# $c R=$xTV/REFL.%04d$ROUGE #
# $c $formatI\n" #
# $c ,k2,n1,n2 #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xiim_LACT29/REFL.%c.%04d$VERTE #
# $c R=$xTV/REFL.%04d$VERTE #
# $c $formatI\n" #
# $c ,k2,n1,n2 #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xiim_LACT29/REFL.%c.%04d$BLEUE #
# $c R=$xTV/REFL.%04d$BLEUE #
# $c $formatI\n" #
# $c ,k2,n1,n2 #
# $c ); #
# $c n2=n2+PAS; #
# #
# $c k2='E'; #
# $c printf("$xci/acces$X #
# $c A=$xiim_LACT29/REFL.%c.%04d$ROUGE #
# $c R=$xTV/REFL.%04d$ROUGE #
# $c $formatI\n" #
# $c ,k2,n1,n2 #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xiim_LACT29/REFL.%c.%04d$VERTE #
# $c R=$xTV/REFL.%04d$VERTE #
# $c $formatI\n" #
# $c ,k2,n1,n2 #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xiim_LACT29/REFL.%c.%04d$BLEUE #
# $c R=$xTV/REFL.%04d$BLEUE #
# $c $formatI\n" #
# $c ,k2,n1,n2 #
# $c ); #
# $c n2=n2+PAS; #
# #
# $c k2='F'; #
# $c printf("$xci/acces$X #
# $c A=$xiim_LACT29/REFL.%c.%04d$ROUGE #
# $c R=$xTV/REFL.%04d$ROUGE #
# $c $formatI\n" #
# $c ,k2,n1,n2 #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xiim_LACT29/REFL.%c.%04d$VERTE #
# $c R=$xTV/REFL.%04d$VERTE #
# $c $formatI\n" #
# $c ,k2,n1,n2 #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xiim_LACT29/REFL.%c.%04d$BLEUE #
# $c R=$xTV/REFL.%04d$BLEUE #
# $c $formatI\n" #
# $c ,k2,n1,n2 #
# $c ); #
# $c n2=n2+PAS; #
# #
# $c printf("$xci/reduction_04$Z #
# $c $xTV/REFL. #
# $c $xTV/REFL #
# $c %d %d\n" #
# $c ,NR0,NR #
# $c ); #
# #
# $c printf("$xci/acces$X #
# $c A=$xTV/REFL$R04$ROUGE #
# $c R=$xiim/REFL.G.%04d$ROUGE #
# $c $formatI\n" #
# $c ,n1 #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xTV/REFL$R04$VERTE #
# $c R=$xiim/REFL.G.%04d$VERTE #
# $c $formatI\n" #
# $c ,n1 #
# $c ); #
# $c printf("$xci/acces$X #
# $c A=$xTV/REFL$R04$BLEUE #
# $c R=$xiim/REFL.G.%04d$BLEUE #
# $c $formatI\n" #
# $c ,n1 #
# $c ); #
# $c } #
# $c } #
# #
# #
# $Z Pal #
# #
# $Z $xci/reduction_16$Z $xiim/REFL.G. $xiak/REFL.b1 $Premiere $Derniere #
# $Z $xci/reduction_64$Z $xiim/REFL.G. $xiak/REFL.b1 $Premiere $Derniere #
# #
# $X $xci/genere$X c='ro $xiak/REFL.b1$R16%s' RVB=VRAI #
# $X $xci/genere$X c='ro $xiak/REFL.b1$R64%s' RVB=VRAI #
# #
# $X $xci/genere$X c='$xcg/unite$Z $xiak/REFL.b1$R16%s' RVB=VRAI #
# $X $xci/genere$X c='$xcg/unite$Z $xiak/REFL.b1$R64%s' RVB=VRAI #
# #
# $X $xci/genere$X c='$CP $xiim/REFL.G.0512%s $xiirk/REFL.b1.0512%s' RVB=VRAI #
# $X $xci/genere$X c='ro $xiirk/REFL.b1.0512%s' RVB=VRAI #
# $X $xci/genere$X c='$xcg/unite$Z $xiirk/REFL.b1.0512%s' RVB=VRAI #
# #
# #
# Pal #
# #
# #
# $xci/disk_video_P$Z $xiim_LACT29/REFL.G. 0001 0512 RVB \ #
# 11 2 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
# #
# xivPdf 3 2 #
# #
# record.01$Z $xiak/REFL.b1$R16 RVB Initialisation #
# record.01$Z $xiak/REFL.b1$R64 RVB rien #
# record.01$Z $xiirk/REFL.b1.0512 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 ' : #
# #
#######################################################################################################################################
#######################################################################################################################################
# #
# 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 : Geometrie Fractale Deterministe, Chaos Deterministe, Mecanique Celeste.
marqueur -------------------------------------------------------------------------------
sequence 021682_021809
sequence 021810_021937
sequence 021938_022065
sequence 022066_022193
sequence 022194_022321
sequence 025394_025521
sequence 029332_029459
# Quelques chocs... #
Sequence 000513_001024
Sequence 001025_001536
Sequence 001537_002048
Sequence 002049_002560
# Marche aleatoire de {4,16,64,256} particules avec visualisation de leur centre de gravite. #
Sequence 019634_020145
Sequence 020146_020657
Sequence 020658_021169
Sequence 021170_021681
# Billiards rectangulaires de {4,16,64,256} particules avec visualisation de leur centre #
# de gravite. #
Sequence 008705_009216
Sequence 009217_009728
Sequence 009729_010240
Sequence 010241_010752
# Billiards de Sierpinski de {4,16,64,256} particules avec visualisation de leur centre #
# de gravite. #
sequence 012289_012800
sequence 012801_013312
sequence 013825_014336
sequence 014337_014848
# Variations artistiques sur les billiards rectangulaire et de Sierpinski avec 64 particules #
# avec visualisation de leur centre de gravite et mise en montagne filtree... #
sequence 015873_016384
sequence 016385_016896
sequence 016897_017408
sequence 017409_017920
# Deux boites communicantes dont celle de gauche est initialement vide et celle de droite #
# contient {4,16,64,256} particules avec visualisation de leur centre de gravite. #
sequence 019122_019633
sequence 018098_018609
Sequence 018610_019121
# Deux boites communicantes dont celle de gauche est initialement vide et celle de droite #
# contient 256 particules, la geometrie du canal de communication entre les deux boites #
# variant au cours du temps, le tout avec puis sans les trainees. #
sequence 024370_025393
# Deux boites communicantes dont celle de gauche est initialement vide et celle de droite #
# contient 256 particules, le nombre de particules dans chaque boite etant visualise avec #
# la luminance des bords. #
sequence 025522_026033
sequence 026034_026545
sequence 026546_027057
sequence 027284_027795
Sequence 027796_028307
# Deux boites communicantes dont celle de gauche est initialement vide et celle de droite #
# contient 245 particules, avec visualisation du nombre de particules dans les boites de #
# Droite et de Gauche respectivement et influence du diametre du trou de communication #
# sur l'equilibre final. Le diametre du canal de communication est egal (en pourcentage #
# de la hauteur de l'image) a : #
# #
# (2*LBande/256)*100 #
# #
# soit : 8%, 31%, 55% et 78% respectivement. #
sequence 028308_028819
sequence 028820_029331
sequence 029460_029971
sequence 031508_032019
Sequence 030996_031507
# Quelques experiences de thermalisation d'un ensemble de particules de deux vitesses #
# differentes, avec eventuellement des petites trainees qui permettent de visualiser #
# le module de la vitesse de ces particules et les chocs etant parfaitement elastiques #
# (restitution=1.0), puis avec de moins en moins d'elasticite (restitution=0.9 puis #
# restitution=0.5). On notera qu'avec le cas parfaitement elastique, il n'y a pas de #
# thermalisation, ce qui est logique, car les particules lors de chaque collision #
# echangent leurs vitesses (en module) ; comme initialement, il y a autant de particules #
# rapides (rouges) que de lentes (bleues), cette repartition subsiste au cours du temps... #
sequence 033556_034067
sequence 034068_034579
sequence 034580_035091
sequence 035092_035603
sequence 035604_036115
# Le billiard rectangulaire : #
# #
# ------------------------------------------------------------------------------ #
# | | | #
# | interaction repulsive | interaction attractive+repulsive | #
# | | | #
# |------------------------------------------------------------------------------| #
# | | | #
# | sans interaction | interaction attractive | #
# | | | #
# ------------------------------------------------------------------------------ #
# #
# ou on voit qu'assez naturellement, il y a beaucoup plus de chocs lorsque l'interaction est #
# attractive, alors que les particules s'evitent lorsque l'interaction est repulsive... #
sequence 022834_023345
Sequence 032020_032531
# La marche au hasard des photons qui s'echappent du Soleil (pour Alain Moskovitch). #
Sequence 007681_008192
# Billiard triangulaire rationnel (angles {pi/2,pi/3,pi/6}) avec 16 particules partant #
# verticalement. #
sequence 008193_008704
sequence 014849_015360
sequence 013313_013824
# Billiard carre avec visualisation de la trajectoire periodique d'une particule, sans, puis #
# avec effet stroboscopique sur dix, puis cent fois plus longtemps. #
sequence 029972_030483
sequence 030484_030995
# "Ile de Science", 1998. #
#######################################################################################################################################
# #
# 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 ) : #
# #
#######################################################################################################################################