#!/bin/csh
#######################################################################################################################################
# #
# N O T A : #
# #
# #
# Author of '$xivP/disk.000000009/face.1/$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 09 1 ' #
# F A C E S U I T E D E L A F A C E ' xivPdf 07 1 ' #
# F A C E A S U I V R E S U R L A F A C E ' xivPdf 11 1 ' : #
# #
#######################################################################################################################################
#######################################################################################################################################
# #
# E N R E G I S T R E M E N T S U R L E ' LVS6000P-LVR6000 ' : #
# #
#######################################################################################################################################
#######################################################################################################################################
# #
# U T I L I S A T I O N D U G E N E R A T E U R V I D E O D E L ' O P T I O N ' GenLock ' D E ' LACT21 ' : #
# #
#######################################################################################################################################
#######################################################################################################################################
# #
# 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_000007
sequence 000008_000256
# Generee (sur '$LACT27') par : #
# #
# set Nimages=256 #
# #
# set NcorpsS=64 #
# #
# alias genere 'set Fi=\!:1 ; set vD=\!:2 ; set vA=\!:3 ; set ArG=(\!:4*) ; \\ #
# $DELETE $Fi ; \\ #
# $xci/valeurs_inte$X premiere=1 derniere=$NcorpsS vD=$vD vA=$vA $ArG > $Fi ; \\ #
# unset Fi vD vA ArG' #
# alias genereR 'set Fi=\!:1 ; set In=\!:2 ; set Su=\!:3 ; set ArG=(\!:4*) ; \\ #
# $DELETE $Fi ; \\ #
# $xci/valeurs_alea$X p=1 d=$NcorpsS signe="$K_VIDE" inf=$In sup=$Su $ArG > $Fi ; \\ #
# unset Fi In Su ArG' #
# #
# genereR $xT/COORDONNEES$COORD_X -0.2 +0.2 multiple=VRAI unite=0.05 g=11 #
# genereR $xT/COORDONNEES$COORD_Y -0.2 +0.2 multiple=VRAI unite=0.05 g=12 #
# genereR $xT/COORDONNEES$COORD_Z 0.0 0.0 multiple=VRAI unite=0.05 g=13 #
# genereR $xT/VITESSES 1 5 entiers=VRAI g=21 #
# $DELETE $xT/VITESSES$COORD_X #
# $CA $xT/VITESSES \ #
# | $SE -e 's/^1$/+0.05/' -e 's/^2$/0/' -e 's/^3$/-0.05/' -e 's/^4$/0/' \ #
# > $xT/VITESSES$COORD_X #
# $DELETE $xT/VITESSES$COORD_Y #
# $CA $xT/VITESSES \ #
# | $SE -e 's/^1$/0/' -e 's/^2$/+0.05/' -e 's/^3$/0/' -e 's/^4$/-0.05/' \ #
# > $xT/VITESSES$COORD_Y #
# $DELETE $xT/VITESSES$COORD_Z #
# $CA $xT/VITESSES \ #
# | $SE -e 's/^1$/0/' -e 's/^2$/0/' -e 's/^3$/0/' -e 's/^4$/0/' \ #
# > $xT/VITESSES$COORD_Z #
# genere $xT/mdRHO 0.0 0.0 #
# genere $xT/MdRHO 0.0 0.0 #
# genere $xT/mnPHI -2 -2 #
# genere $xT/MnPHI +2 +2 #
# genere $xT/dPHI $pis2 $pis2 #
# genere $xT/mnTHETA 0 0 #
# genere $xT/MnTHETA 0 0 #
# genere $xT/dTHETA $pis2 $pis2 #
# genere $xT/infOUVE 0.0 0.0 #
# genere $xT/supOUVE $pis2 $pis2 #
# genere $xT/DISTANCE 0.8 0.8 #
# genere $xT/STABILITE 4 4 #
# genere $xT/RAYONS 0.015 0.015 #
# genereR $xT/COULEURS$ROUGE $GRIS_2 $GRIS_8 entiers=VRAI g=31 #
# genereR $xT/COULEURS$VERTE $GRIS_2 $GRIS_8 entiers=VRAI g=32 #
# genereR $xT/COULEURS$BLEUE $GRIS_2 $GRIS_8 entiers=VRAI g=33 #
# #
# #
# Pal #
# #
# $xrk/rdn_walk.21$X corps=$NcorpsS \ #
# np=$Nimages \ #
# LISTE_X=$xT/COORDONNEES$COORD_X \ #
# LISTE_Y=$xT/COORDONNEES$COORD_Y \ #
# LISTE_Z=$xT/COORDONNEES$COORD_Z \ #
# LISTE_VX=$xT/VITESSES$COORD_X \ #
# LISTE_VY=$xT/VITESSES$COORD_Y \ #
# LISTE_VZ=$xT/VITESSES$COORD_Z \ #
# LISTE_MINIMUM_DELTA_RHO=$xT/mdRHO \ #
# LISTE_MAXIMUM_DELTA_RHO=$xT/MdRHO \ #
# LISTE_MINIMUM_N_PHI=$xT/mnPHI \ #
# LISTE_MAXIMUM_N_PHI=$xT/MnPHI \ #
# LISTE_DELTA_PHI=$xT/dPHI \ #
# LISTE_MINIMUM_N_THETA=$xT/mnTHETA \ #
# LISTE_MAXIMUM_N_THETA=$xT/MnTHETA \ #
# LISTE_DELTA_THETA=$xT/dTHETA \ #
# LISTE_BORNE_INFERIEURE_DE_L_OUVERTURE=$xT/infOUVE \ #
# LISTE_BORNE_SUPERIEURE_DE_L_OUVERTURE=$xT/supOUVE \ #
# LISTE_DISTANCE_MAXIMALE=$xT/DISTANCE \ #
# LISTE_STABILITE=$xT/STABILITE \ #
# LISTE_RAYON=$xT/RAYONS \ #
# LISTE_ROUGE=$xT/COULEURS$ROUGE \ #
# LISTE_VERTE=$xT/COULEURS$VERTE \ #
# LISTE_BLEUE=$xT/COULEURS$BLEUE \ #
# centrer=VRAI \ #
# dct=0.5 \ #
# nombre=1 \ #
# trainees=VRAI mode=1 \ #
# attenuation_des_images=0.7 \ #
# attenuation_des_trainees=1.00 \ #
# renormaliser=FAUX \ #
# Lz=100 \ #
# fond=FAUX \ #
# R=$xw1/RDNW.8. \ #
# $formatI #
# #
# genere $xT/RAYONS 0.04 0.04 #
# #
# $xrk/rdn_walk.21$X corps=$NcorpsS \ #
# np=$Nimages \ #
# LISTE_X=$xT/COORDONNEES$COORD_X \ #
# LISTE_Y=$xT/COORDONNEES$COORD_Y \ #
# LISTE_Z=$xT/COORDONNEES$COORD_Z \ #
# LISTE_VX=$xT/VITESSES$COORD_X \ #
# LISTE_VY=$xT/VITESSES$COORD_Y \ #
# LISTE_VZ=$xT/VITESSES$COORD_Z \ #
# LISTE_MINIMUM_DELTA_RHO=$xT/mdRHO \ #
# LISTE_MAXIMUM_DELTA_RHO=$xT/MdRHO \ #
# LISTE_MINIMUM_N_PHI=$xT/mnPHI \ #
# LISTE_MAXIMUM_N_PHI=$xT/MnPHI \ #
# LISTE_DELTA_PHI=$xT/dPHI \ #
# LISTE_MINIMUM_N_THETA=$xT/mnTHETA \ #
# LISTE_MAXIMUM_N_THETA=$xT/MnTHETA \ #
# LISTE_DELTA_THETA=$xT/dTHETA \ #
# LISTE_BORNE_INFERIEURE_DE_L_OUVERTURE=$xT/infOUVE \ #
# LISTE_BORNE_SUPERIEURE_DE_L_OUVERTURE=$xT/supOUVE \ #
# LISTE_DISTANCE_MAXIMALE=$xT/DISTANCE \ #
# LISTE_STABILITE=$xT/STABILITE \ #
# LISTE_RAYON=$xT/RAYONS \ #
# LISTE_ROUGE=$xT/COULEURS$ROUGE \ #
# LISTE_VERTE=$xT/COULEURS$VERTE \ #
# LISTE_BLEUE=$xT/COULEURS$BLEUE \ #
# centrer=VRAI \ #
# dct=0.5 \ #
# nombre=1 \ #
# trainees=VRAI mode=1 \ #
# attenuation_des_images=1.0 \ #
# attenuation_des_trainees=0.90 \ #
# renormaliser=FAUX \ #
# Lz=100 \ #
# fond=VRAI \ #
# dynamique=VRAI \ #
# F=$xw1/RDNW.8. \ #
# R=$xw1/RDNW.8. \ #
# $formatI #
# #
# $DELETE $xT/COORDONNEES$COORD_X #
# $DELETE $xT/COORDONNEES$COORD_Y #
# $DELETE $xT/COORDONNEES$COORD_Z #
# $DELETE $xT/VITESSES #
# $DELETE $xT/VITESSES$COORD_X #
# $DELETE $xT/VITESSES$COORD_Y #
# $DELETE $xT/VITESSES$COORD_Z #
# $DELETE $xT/mdRHO #
# $DELETE $xT/MdRHO #
# $DELETE $xT/mnPHI #
# $DELETE $xT/MnPHI #
# $DELETE $xT/dPHI #
# $DELETE $xT/mnTHETA #
# $DELETE $xT/MnTHETA #
# $DELETE $xT/dTHETA #
# $DELETE $xT/infOUVE #
# $DELETE $xT/supOUVE #
# $DELETE $xT/DISTANCE #
# $DELETE $xT/STABILITE #
# $DELETE $xT/RAYONS #
# $DELETE $xT/COULEURS$ROUGE #
# $DELETE $xT/COULEURS$VERTE #
# $DELETE $xT/COULEURS$BLEUE #
# #
# #
# Pal #
# #
# $xci/disk_video_P$Z $xw1/RDNW.8. 1 256 RVB \ #
# 9 1 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
# ATTENTION, l'enregistrement a ete fait en deux fois, car, par accident, j'ai lance la #
# commande 'affon' alors que l'enregistrement etait en cours... #
# #
# ATTENTION, les positions initiales des particules 'LISTE_[XYZ]=' ne prennent pas en #
# compte le parametre 'LISTE_STABILITE=', ce qui fait que les particules, au cours du #
# temps, ne se deplacent pas sur le reseau orthogonal definit par la stabilite, mais sur #
# le sous-reseau defini par le produit du module des vitesses par le pas de temps... #
# #
# ATTENTION, il y a un "dephasage" du au probleme de la visualisation des conditions #
# initiales (voir le parametre 'UN_TOUR_DE_PLUS'). #
sequence 000257_000420
sequence 000421_000676
# Generee (sur '$LACT27') par : #
# #
# set Nimages=256 #
# #
# set NcorpsS=64 #
# #
# alias genere 'set Fi=\!:1 ; set vD=\!:2 ; set vA=\!:3 ; set ArG=(\!:4*) ; \\ #
# $DELETE $Fi ; \\ #
# $xci/valeurs_inte$X premiere=1 derniere=$NcorpsS vD=$vD vA=$vA $ArG > $Fi ; \\ #
# unset Fi vD vA ArG' #
# alias genereR 'set Fi=\!:1 ; set In=\!:2 ; set Su=\!:3 ; set ArG=(\!:4*) ; \\ #
# $DELETE $Fi ; \\ #
# $xci/valeurs_alea$X p=1 d=$NcorpsS signe="$K_VIDE" inf=$In sup=$Su $ArG > $Fi ; \\ #
# unset Fi In Su ArG' #
# #
# genereR $xT/COORDONNEES$COORD_X -0.2 +0.2 multiple=VRAI unite=0.05 g=11 #
# genereR $xT/COORDONNEES$COORD_Y -0.2 +0.2 multiple=VRAI unite=0.05 g=12 #
# genereR $xT/COORDONNEES$COORD_Z 0.0 0.0 multiple=VRAI unite=0.05 g=13 #
# genereR $xT/VITESSES 1 5 entiers=VRAI g=21 #
# $DELETE $xT/VITESSES$COORD_X #
# $CA $xT/VITESSES \ #
# | $SE -e 's/^1$/+0.05/' -e 's/^2$/0/' -e 's/^3$/-0.05/' -e 's/^4$/0/' \ #
# > $xT/VITESSES$COORD_X #
# $DELETE $xT/VITESSES$COORD_Y #
# $CA $xT/VITESSES \ #
# | $SE -e 's/^1$/0/' -e 's/^2$/+0.05/' -e 's/^3$/0/' -e 's/^4$/-0.05/' \ #
# > $xT/VITESSES$COORD_Y #
# $DELETE $xT/VITESSES$COORD_Z #
# $CA $xT/VITESSES \ #
# | $SE -e 's/^1$/0/' -e 's/^2$/0/' -e 's/^3$/0/' -e 's/^4$/0/' \ #
# > $xT/VITESSES$COORD_Z #
# genere $xT/mdRHO 0.0 0.0 #
# genere $xT/MdRHO 0.0 0.0 #
# genere $xT/mnPHI -2 -2 #
# genere $xT/MnPHI +2 +2 #
# genere $xT/dPHI $pis2 $pis2 #
# genere $xT/mnTHETA 0 0 #
# genere $xT/MnTHETA 0 0 #
# genere $xT/dTHETA $pis2 $pis2 #
# genere $xT/infOUVE 0.0 0.0 #
# genere $xT/supOUVE $pis2 $pis2 #
# genere $xT/DISTANCE 0.8 0.8 #
# genere $xT/STABILITE 4 4 #
# genere $xT/RAYONS 0.015 0.015 #
# genereR $xT/COULEURS$ROUGE $GRIS_2 $GRIS_8 entiers=VRAI g=31 #
# genereR $xT/COULEURS$VERTE $GRIS_2 $GRIS_8 entiers=VRAI g=32 #
# genereR $xT/COULEURS$BLEUE $GRIS_2 $GRIS_8 entiers=VRAI g=33 #
# #
# Std #
# #
# $xci/format.01$X A=$xiio/MIRE \ #
# mode=0 \ #
# $formatI \ #
# R=$xT/MIRE \ #
# $formatR_Pal #
# #
# Pal #
# #
# $xrk/rdn_walk.21$X corps=$NcorpsS \ #
# np=$Nimages \ #
# LISTE_X=$xT/COORDONNEES$COORD_X \ #
# LISTE_Y=$xT/COORDONNEES$COORD_Y \ #
# LISTE_Z=$xT/COORDONNEES$COORD_Z \ #
# LISTE_VX=$xT/VITESSES$COORD_X \ #
# LISTE_VY=$xT/VITESSES$COORD_Y \ #
# LISTE_VZ=$xT/VITESSES$COORD_Z \ #
# LISTE_MINIMUM_DELTA_RHO=$xT/mdRHO \ #
# LISTE_MAXIMUM_DELTA_RHO=$xT/MdRHO \ #
# LISTE_MINIMUM_N_PHI=$xT/mnPHI \ #
# LISTE_MAXIMUM_N_PHI=$xT/MnPHI \ #
# LISTE_DELTA_PHI=$xT/dPHI \ #
# LISTE_MINIMUM_N_THETA=$xT/mnTHETA \ #
# LISTE_MAXIMUM_N_THETA=$xT/MnTHETA \ #
# LISTE_DELTA_THETA=$xT/dTHETA \ #
# LISTE_BORNE_INFERIEURE_DE_L_OUVERTURE=$xT/infOUVE \ #
# LISTE_BORNE_SUPERIEURE_DE_L_OUVERTURE=$xT/supOUVE \ #
# LISTE_DISTANCE_MAXIMALE=$xT/DISTANCE \ #
# LISTE_STABILITE=$xT/STABILITE \ #
# LISTE_RAYON=$xT/RAYONS \ #
# LISTE_ROUGE=$xT/COULEURS$ROUGE \ #
# LISTE_VERTE=$xT/COULEURS$VERTE \ #
# LISTE_BLEUE=$xT/COULEURS$BLEUE \ #
# force=VRAI \ #
# C=$xT/MIRE \ #
# NpasX=8 NpasY=8 NpasZ=1 \ #
# Chiffres=0 \ #
# Zmin=1 Zmax=16 \ #
# centrer=VRAI \ #
# dct=0.5 \ #
# nombre=1 \ #
# trainees=VRAI mode=1 \ #
# attenuation_des_images=0.7 \ #
# attenuation_des_trainees=1.00 \ #
# renormaliser=FAUX \ #
# Lz=100 \ #
# fond=FAUX \ #
# R=$xw1/RDNW.9. \ #
# $formatI #
# #
# genere $xT/RAYONS 0.04 0.04 #
# #
# $xrk/rdn_walk.21$X corps=$NcorpsS \ #
# np=$Nimages \ #
# LISTE_X=$xT/COORDONNEES$COORD_X \ #
# LISTE_Y=$xT/COORDONNEES$COORD_Y \ #
# LISTE_Z=$xT/COORDONNEES$COORD_Z \ #
# LISTE_VX=$xT/VITESSES$COORD_X \ #
# LISTE_VY=$xT/VITESSES$COORD_Y \ #
# LISTE_VZ=$xT/VITESSES$COORD_Z \ #
# LISTE_MINIMUM_DELTA_RHO=$xT/mdRHO \ #
# LISTE_MAXIMUM_DELTA_RHO=$xT/MdRHO \ #
# LISTE_MINIMUM_N_PHI=$xT/mnPHI \ #
# LISTE_MAXIMUM_N_PHI=$xT/MnPHI \ #
# LISTE_DELTA_PHI=$xT/dPHI \ #
# LISTE_MINIMUM_N_THETA=$xT/mnTHETA \ #
# LISTE_MAXIMUM_N_THETA=$xT/MnTHETA \ #
# LISTE_DELTA_THETA=$xT/dTHETA \ #
# LISTE_BORNE_INFERIEURE_DE_L_OUVERTURE=$xT/infOUVE \ #
# LISTE_BORNE_SUPERIEURE_DE_L_OUVERTURE=$xT/supOUVE \ #
# LISTE_DISTANCE_MAXIMALE=$xT/DISTANCE \ #
# LISTE_STABILITE=$xT/STABILITE \ #
# LISTE_RAYON=$xT/RAYONS \ #
# LISTE_ROUGE=$xT/COULEURS$ROUGE \ #
# LISTE_VERTE=$xT/COULEURS$VERTE \ #
# LISTE_BLEUE=$xT/COULEURS$BLEUE \ #
# force=VRAI \ #
# C=$xT/MIRE \ #
# NpasX=8 NpasY=8 NpasZ=1 \ #
# Chiffres=0 \ #
# Zmin=1 Zmax=16 \ #
# centrer=VRAI \ #
# dct=0.5 \ #
# nombre=1 \ #
# trainees=VRAI mode=1 \ #
# attenuation_des_images=1.0 \ #
# attenuation_des_trainees=0.90 \ #
# renormaliser=FAUX \ #
# Lz=100 \ #
# fond=VRAI \ #
# dynamique=VRAI \ #
# F=$xw1/RDNW.9. \ #
# R=$xw1/RDNW.9. \ #
# $formatI #
# #
# $DELETE $xT/COORDONNEES$COORD_X #
# $DELETE $xT/COORDONNEES$COORD_Y #
# $DELETE $xT/COORDONNEES$COORD_Z #
# $DELETE $xT/VITESSES #
# $DELETE $xT/VITESSES$COORD_X #
# $DELETE $xT/VITESSES$COORD_Y #
# $DELETE $xT/VITESSES$COORD_Z #
# $DELETE $xT/mdRHO #
# $DELETE $xT/MdRHO #
# $DELETE $xT/mnPHI #
# $DELETE $xT/MnPHI #
# $DELETE $xT/dPHI #
# $DELETE $xT/mnTHETA #
# $DELETE $xT/MnTHETA #
# $DELETE $xT/dTHETA #
# $DELETE $xT/infOUVE #
# $DELETE $xT/supOUVE #
# $DELETE $xT/DISTANCE #
# $DELETE $xT/STABILITE #
# $DELETE $xT/RAYONS #
# $DELETE $xT/COULEURS$ROUGE #
# $DELETE $xT/COULEURS$VERTE #
# $DELETE $xT/COULEURS$BLEUE #
# #
# $DELETE $xT/MIRE #
# #
# #
# Pal #
# #
# $xci/disk_video_P$Z $xw1/RDNW.9. 1 256 RVB \ #
# 9 1 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
# ATTENTION, cet enregistrement a du etre repris integralement a cause du fameux probleme #
# relatif au 'vswap', et donnant le message : #
# #
# WARNING: Frame transfer aborted: analog video input not locked #
# #
# ATTENTION, les positions initiales des particules 'LISTE_[XYZ]=' ne prennent pas en #
# compte le parametre 'LISTE_STABILITE=', ce qui fait que les particules, au cours du #
# temps, ne se deplacent pas sur le reseau orthogonal definit par la stabilite, mais sur #
# le sous-reseau defini par le produit du module des vitesses par le pas de temps... #
# #
# ATTENTION, il y a un "dephasage" du au probleme de la visualisation des conditions #
# initiales (voir le parametre 'UN_TOUR_DE_PLUS'). #
sequence 000677_000932
# Generee (sur '$LACT27') par : #
# #
# set Nimages=256 #
# #
# set NcorpsS=64 #
# #
# alias genere 'set Fi=\!:1 ; set vD=\!:2 ; set vA=\!:3 ; set ArG=(\!:4*) ; \\ #
# $DELETE $Fi ; \\ #
# $xci/valeurs_inte$X premiere=1 derniere=$NcorpsS vD=$vD vA=$vA $ArG > $Fi ; \\ #
# unset Fi vD vA ArG' #
# alias genereR 'set Fi=\!:1 ; set In=\!:2 ; set Su=\!:3 ; set ArG=(\!:4*) ; \\ #
# $DELETE $Fi ; \\ #
# $xci/valeurs_alea$X p=1 d=$NcorpsS signe="$K_VIDE" inf=$In sup=$Su $ArG > $Fi ; \\ #
# unset Fi In Su ArG' #
# #
# genereR $xT/COORDONNEES$COORD_X -0.2 +0.2 multiple=VRAI unite=0.05 g=11 #
# genereR $xT/COORDONNEES$COORD_Y -0.2 +0.2 multiple=VRAI unite=0.05 g=12 #
# genereR $xT/COORDONNEES$COORD_Z 0.0 0.0 multiple=VRAI unite=0.05 g=13 #
# genereR $xT/VITESSES 1 5 entiers=VRAI g=21 #
# $DELETE $xT/VITESSES$COORD_X #
# $CA $xT/VITESSES \ #
# | $SE -e 's/^1$/+0.05/' -e 's/^2$/0/' -e 's/^3$/-0.05/' -e 's/^4$/0/' \ #
# > $xT/VITESSES$COORD_X #
# $DELETE $xT/VITESSES$COORD_Y #
# $CA $xT/VITESSES \ #
# | $SE -e 's/^1$/0/' -e 's/^2$/+0.05/' -e 's/^3$/0/' -e 's/^4$/-0.05/' \ #
# > $xT/VITESSES$COORD_Y #
# $DELETE $xT/VITESSES$COORD_Z #
# $CA $xT/VITESSES \ #
# | $SE -e 's/^1$/0/' -e 's/^2$/0/' -e 's/^3$/0/' -e 's/^4$/0/' \ #
# > $xT/VITESSES$COORD_Z #
# genere $xT/mdRHO 0.0 0.0 #
# genere $xT/MdRHO 0.0 0.0 #
# genere $xT/mnPHI -2 -2 #
# genere $xT/MnPHI +2 +2 #
# genere $xT/dPHI $pis2 $pis2 #
# genere $xT/mnTHETA 0 0 #
# genere $xT/MnTHETA 0 0 #
# genere $xT/dTHETA $pis2 $pis2 #
# genere $xT/infOUVE 0.0 0.0 #
# genere $xT/supOUVE $pis2 $pis2 #
# genere $xT/DISTANCE 0.8 0.8 #
# genere $xT/STABILITE 4 4 #
# genere $xT/RAYONS 0.015 0.015 #
# genereR $xT/COULEURS$ROUGE $GRIS_2 $GRIS_8 entiers=VRAI g=31 #
# genereR $xT/COULEURS$VERTE $GRIS_2 $GRIS_8 entiers=VRAI g=32 #
# genereR $xT/COULEURS$BLEUE $GRIS_2 $GRIS_8 entiers=VRAI g=33 #
# #
# Std #
# #
# $xci/substitue$X A=$xiio/GAUSS.8110 \ #
# p=$xiP/abso.11 \ #
# substitution=L_SUBSTITUTION_ROUGE \ #
# $formatI | \ #
# $xci/complement$X \ #
# $formatI | \ #
# $xci/format.01$X \ #
# mode=0 \ #
# $formatI \ #
# R=$xT/ANNEAU \ #
# $formatR_Pal #
# #
# Pal #
# #
# $xrk/rdn_walk.21$X corps=$NcorpsS \ #
# np=$Nimages \ #
# LISTE_X=$xT/COORDONNEES$COORD_X \ #
# LISTE_Y=$xT/COORDONNEES$COORD_Y \ #
# LISTE_Z=$xT/COORDONNEES$COORD_Z \ #
# LISTE_VX=$xT/VITESSES$COORD_X \ #
# LISTE_VY=$xT/VITESSES$COORD_Y \ #
# LISTE_VZ=$xT/VITESSES$COORD_Z \ #
# LISTE_MINIMUM_DELTA_RHO=$xT/mdRHO \ #
# LISTE_MAXIMUM_DELTA_RHO=$xT/MdRHO \ #
# LISTE_MINIMUM_N_PHI=$xT/mnPHI \ #
# LISTE_MAXIMUM_N_PHI=$xT/MnPHI \ #
# LISTE_DELTA_PHI=$xT/dPHI \ #
# LISTE_MINIMUM_N_THETA=$xT/mnTHETA \ #
# LISTE_MAXIMUM_N_THETA=$xT/MnTHETA \ #
# LISTE_DELTA_THETA=$xT/dTHETA \ #
# LISTE_BORNE_INFERIEURE_DE_L_OUVERTURE=$xT/infOUVE \ #
# LISTE_BORNE_SUPERIEURE_DE_L_OUVERTURE=$xT/supOUVE \ #
# LISTE_DISTANCE_MAXIMALE=$xT/DISTANCE \ #
# LISTE_STABILITE=$xT/STABILITE \ #
# LISTE_RAYON=$xT/RAYONS \ #
# LISTE_ROUGE=$xT/COULEURS$ROUGE \ #
# LISTE_VERTE=$xT/COULEURS$VERTE \ #
# LISTE_BLEUE=$xT/COULEURS$BLEUE \ #
# force=VRAI \ #
# C=$xT/ANNEAU \ #
# NpasX=8 NpasY=8 NpasZ=1 \ #
# Chiffres=0 \ #
# Zmin=1 Zmax=16 \ #
# centrer=VRAI \ #
# dct=0.5 \ #
# nombre=1 \ #
# trainees=VRAI mode=1 \ #
# attenuation_des_images=0.7 \ #
# attenuation_des_trainees=1.00 \ #
# renormaliser=FAUX \ #
# Lz=100 \ #
# fond=FAUX \ #
# R=$xw1/RDNW.A. \ #
# $formatI #
# #
# genere $xT/RAYONS 0.04 0.04 #
# #
# $xrk/rdn_walk.21$X corps=$NcorpsS \ #
# np=$Nimages \ #
# LISTE_X=$xT/COORDONNEES$COORD_X \ #
# LISTE_Y=$xT/COORDONNEES$COORD_Y \ #
# LISTE_Z=$xT/COORDONNEES$COORD_Z \ #
# LISTE_VX=$xT/VITESSES$COORD_X \ #
# LISTE_VY=$xT/VITESSES$COORD_Y \ #
# LISTE_VZ=$xT/VITESSES$COORD_Z \ #
# LISTE_MINIMUM_DELTA_RHO=$xT/mdRHO \ #
# LISTE_MAXIMUM_DELTA_RHO=$xT/MdRHO \ #
# LISTE_MINIMUM_N_PHI=$xT/mnPHI \ #
# LISTE_MAXIMUM_N_PHI=$xT/MnPHI \ #
# LISTE_DELTA_PHI=$xT/dPHI \ #
# LISTE_MINIMUM_N_THETA=$xT/mnTHETA \ #
# LISTE_MAXIMUM_N_THETA=$xT/MnTHETA \ #
# LISTE_DELTA_THETA=$xT/dTHETA \ #
# LISTE_BORNE_INFERIEURE_DE_L_OUVERTURE=$xT/infOUVE \ #
# LISTE_BORNE_SUPERIEURE_DE_L_OUVERTURE=$xT/supOUVE \ #
# LISTE_DISTANCE_MAXIMALE=$xT/DISTANCE \ #
# LISTE_STABILITE=$xT/STABILITE \ #
# LISTE_RAYON=$xT/RAYONS \ #
# LISTE_ROUGE=$xT/COULEURS$ROUGE \ #
# LISTE_VERTE=$xT/COULEURS$VERTE \ #
# LISTE_BLEUE=$xT/COULEURS$BLEUE \ #
# force=VRAI \ #
# C=$xT/ANNEAU \ #
# NpasX=8 NpasY=8 NpasZ=1 \ #
# Chiffres=0 \ #
# Zmin=1 Zmax=16 \ #
# centrer=VRAI \ #
# dct=0.5 \ #
# nombre=1 \ #
# trainees=VRAI mode=1 \ #
# attenuation_des_images=1.0 \ #
# attenuation_des_trainees=0.90 \ #
# renormaliser=FAUX \ #
# Lz=100 \ #
# fond=VRAI \ #
# dynamique=VRAI \ #
# F=$xw1/RDNW.A. \ #
# R=$xw1/RDNW.A. \ #
# $formatI #
# #
# $DELETE $xT/COORDONNEES$COORD_X #
# $DELETE $xT/COORDONNEES$COORD_Y #
# $DELETE $xT/COORDONNEES$COORD_Z #
# $DELETE $xT/VITESSES #
# $DELETE $xT/VITESSES$COORD_X #
# $DELETE $xT/VITESSES$COORD_Y #
# $DELETE $xT/VITESSES$COORD_Z #
# $DELETE $xT/mdRHO #
# $DELETE $xT/MdRHO #
# $DELETE $xT/mnPHI #
# $DELETE $xT/MnPHI #
# $DELETE $xT/dPHI #
# $DELETE $xT/mnTHETA #
# $DELETE $xT/MnTHETA #
# $DELETE $xT/dTHETA #
# $DELETE $xT/infOUVE #
# $DELETE $xT/supOUVE #
# $DELETE $xT/DISTANCE #
# $DELETE $xT/STABILITE #
# $DELETE $xT/RAYONS #
# $DELETE $xT/COULEURS$ROUGE #
# $DELETE $xT/COULEURS$VERTE #
# $DELETE $xT/COULEURS$BLEUE #
# #
# $DELETE $xT/ANNEAU #
# #
# #
# Pal #
# #
# $xci/disk_video_P$Z $xw1/RDNW.A. 1 256 RVB \ #
# 9 1 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
# ATTENTION, les positions initiales des particules 'LISTE_[XYZ]=' ne prennent pas en #
# compte le parametre 'LISTE_STABILITE=', ce qui fait que les particules, au cours du #
# temps, ne se deplacent pas sur le reseau orthogonal definit par la stabilite, mais sur #
# le sous-reseau defini par le produit du module des vitesses par le pas de temps... #
# #
# ATTENTION, il y a un "dephasage" du au probleme de la visualisation des conditions #
# initiales (voir le parametre 'UN_TOUR_DE_PLUS'). #
sequence 000933_001188
# Generee (sur '$LACT27') par : #
# #
# set Nimages=256 #
# #
# set NcorpsS=64 #
# #
# @ NcorpsSd = $NcorpsS / 2 #
# #
# alias genere 'set Fi=\!:1 ; set vD=\!:2 ; set vA=\!:3 ; set ArG=(\!:4*) ; \\ #
# $DELETE $Fi ; \\ #
# $xci/valeurs_inte$X premiere=1 derniere=$NcorpsS vD=$vD vA=$vA $ArG > $Fi ; \\ #
# unset Fi vD vA ArG' #
# alias genereR 'set Fi=\!:1 ; set In=\!:2 ; set Su=\!:3 ; set ArG=(\!:4*) ; \\ #
# $DELETE $Fi ; \\ #
# $xci/valeurs_alea$X p=1 d=$NcorpsS signe="$K_VIDE" inf=$In sup=$Su $ArG > $Fi ; \\ #
# unset Fi In Su ArG' #
# #
# genereR $xT/COORDONNEES$COORD_X -0.4 +0.4 multiple=VRAI unite=0.05 g=11 #
# genereR $xT/COORDONNEES$COORD_Y -0.4 +0.4 multiple=VRAI unite=0.05 g=12 #
# genereR $xT/COORDONNEES$COORD_Z 0.0 0.0 multiple=VRAI unite=0.05 g=13 #
# genereR $xT/VITESSES 1 5 entiers=VRAI g=21 #
# $DELETE $xT/VITESSES$COORD_X #
# $CA $xT/VITESSES \ #
# | $SE -e 's/^1$/+0.05/' -e 's/^2$/0/' -e 's/^3$/-0.05/' -e 's/^4$/0/' \ #
# > $xT/VITESSES$COORD_X #
# $DELETE $xT/VITESSES$COORD_Y #
# $CA $xT/VITESSES \ #
# | $SE -e 's/^1$/0/' -e 's/^2$/+0.05/' -e 's/^3$/0/' -e 's/^4$/-0.05/' \ #
# > $xT/VITESSES$COORD_Y #
# $DELETE $xT/VITESSES$COORD_Z #
# $CA $xT/VITESSES \ #
# | $SE -e 's/^1$/0/' -e 's/^2$/0/' -e 's/^3$/0/' -e 's/^4$/0/' \ #
# > $xT/VITESSES$COORD_Z #
# genere $xT/mdRHO 0.0 0.0 #
# genere $xT/MdRHO 0.0 0.0 #
# genere $xT/mnPHI -2 -2 #
# genere $xT/MnPHI +2 +2 #
# genere $xT/dPHI $pis2 $pis2 #
# genere $xT/mnTHETA 0 0 #
# genere $xT/MnTHETA 0 0 #
# genere $xT/dTHETA $pis2 $pis2 #
# $DELETE $xT/infOUVE #
# $xci/valeurs_inte$X premiere=1 derniere=$NcorpsSd vD=-0.40 vA=-0.40 > $xT/infOUVE #
# $xci/valeurs_inte$X premiere=1 derniere=$NcorpsSd vD=+1.17 vA=+1.17 >>! $xT/infOUVE #
# $DELETE $xT/supOUVE #
# $xci/valeurs_inte$X premiere=1 derniere=$NcorpsSd vD=+0.40 vA=+0.40 > $xT/supOUVE #
# $xci/valeurs_inte$X premiere=1 derniere=$NcorpsSd vD=+1.97 vA=+1.97 >>! $xT/supOUVE #
# genere $xT/DISTANCE 0.8 0.8 #
# genere $xT/STABILITE 4 4 #
# genere $xT/RAYONS 0.015 0.015 #
# genereR $xT/COULEURS$ROUGE $GRIS_2 $GRIS_8 entiers=VRAI g=31 #
# genereR $xT/COULEURS$VERTE $GRIS_2 $GRIS_8 entiers=VRAI g=32 #
# genereR $xT/COULEURS$BLEUE $GRIS_2 $GRIS_8 entiers=VRAI g=33 #
# #
# Std #
# #
# $xci/substitue$X A=$xiio/GAUSS.8110 \ #
# p=$xiP/abso.11 \ #
# substitution=L_SUBSTITUTION_ROUGE \ #
# $formatI | \ #
# $xci/complement$X \ #
# $formatI | \ #
# $xci/format.01$X \ #
# mode=0 \ #
# $formatI \ #
# R=$xT/ANNEAU \ #
# $formatR_Pal #
# #
# Pal #
# #
# $xrk/rdn_walk.21$X corps=$NcorpsS \ #
# np=$Nimages \ #
# LISTE_X=$xT/COORDONNEES$COORD_X \ #
# LISTE_Y=$xT/COORDONNEES$COORD_Y \ #
# LISTE_Z=$xT/COORDONNEES$COORD_Z \ #
# LISTE_VX=$xT/VITESSES$COORD_X \ #
# LISTE_VY=$xT/VITESSES$COORD_Y \ #
# LISTE_VZ=$xT/VITESSES$COORD_Z \ #
# LISTE_MINIMUM_DELTA_RHO=$xT/mdRHO \ #
# LISTE_MAXIMUM_DELTA_RHO=$xT/MdRHO \ #
# LISTE_MINIMUM_N_PHI=$xT/mnPHI \ #
# LISTE_MAXIMUM_N_PHI=$xT/MnPHI \ #
# LISTE_DELTA_PHI=$xT/dPHI \ #
# LISTE_MINIMUM_N_THETA=$xT/mnTHETA \ #
# LISTE_MAXIMUM_N_THETA=$xT/MnTHETA \ #
# LISTE_DELTA_THETA=$xT/dTHETA \ #
# LISTE_BORNE_INFERIEURE_DE_L_OUVERTURE=$xT/infOUVE \ #
# LISTE_BORNE_SUPERIEURE_DE_L_OUVERTURE=$xT/supOUVE \ #
# LISTE_DISTANCE_MAXIMALE=$xT/DISTANCE \ #
# LISTE_STABILITE=$xT/STABILITE \ #
# LISTE_RAYON=$xT/RAYONS \ #
# LISTE_ROUGE=$xT/COULEURS$ROUGE \ #
# LISTE_VERTE=$xT/COULEURS$VERTE \ #
# LISTE_BLEUE=$xT/COULEURS$BLEUE \ #
# force=VRAI \ #
# C=$xT/ANNEAU \ #
# NpasX=8 NpasY=8 NpasZ=1 \ #
# Chiffres=0 \ #
# Zmin=1 Zmax=16 \ #
# centrer=VRAI \ #
# dct=0.5 \ #
# nombre=1 \ #
# trainees=VRAI mode=1 \ #
# attenuation_des_images=0.7 \ #
# attenuation_des_trainees=1.00 \ #
# renormaliser=FAUX \ #
# Lz=100 \ #
# fond=FAUX \ #
# R=$xw1/RDNW.B. \ #
# $formatI #
# #
# genere $xT/RAYONS 0.04 0.04 #
# #
# $xrk/rdn_walk.21$X corps=$NcorpsS \ #
# np=$Nimages \ #
# LISTE_X=$xT/COORDONNEES$COORD_X \ #
# LISTE_Y=$xT/COORDONNEES$COORD_Y \ #
# LISTE_Z=$xT/COORDONNEES$COORD_Z \ #
# LISTE_VX=$xT/VITESSES$COORD_X \ #
# LISTE_VY=$xT/VITESSES$COORD_Y \ #
# LISTE_VZ=$xT/VITESSES$COORD_Z \ #
# LISTE_MINIMUM_DELTA_RHO=$xT/mdRHO \ #
# LISTE_MAXIMUM_DELTA_RHO=$xT/MdRHO \ #
# LISTE_MINIMUM_N_PHI=$xT/mnPHI \ #
# LISTE_MAXIMUM_N_PHI=$xT/MnPHI \ #
# LISTE_DELTA_PHI=$xT/dPHI \ #
# LISTE_MINIMUM_N_THETA=$xT/mnTHETA \ #
# LISTE_MAXIMUM_N_THETA=$xT/MnTHETA \ #
# LISTE_DELTA_THETA=$xT/dTHETA \ #
# LISTE_BORNE_INFERIEURE_DE_L_OUVERTURE=$xT/infOUVE \ #
# LISTE_BORNE_SUPERIEURE_DE_L_OUVERTURE=$xT/supOUVE \ #
# LISTE_DISTANCE_MAXIMALE=$xT/DISTANCE \ #
# LISTE_STABILITE=$xT/STABILITE \ #
# LISTE_RAYON=$xT/RAYONS \ #
# LISTE_ROUGE=$xT/COULEURS$ROUGE \ #
# LISTE_VERTE=$xT/COULEURS$VERTE \ #
# LISTE_BLEUE=$xT/COULEURS$BLEUE \ #
# force=VRAI \ #
# C=$xT/ANNEAU \ #
# NpasX=8 NpasY=8 NpasZ=1 \ #
# Chiffres=0 \ #
# Zmin=1 Zmax=16 \ #
# centrer=VRAI \ #
# dct=0.5 \ #
# nombre=1 \ #
# trainees=VRAI mode=1 \ #
# attenuation_des_images=1.0 \ #
# attenuation_des_trainees=0.90 \ #
# renormaliser=FAUX \ #
# Lz=100 \ #
# fond=VRAI \ #
# dynamique=VRAI \ #
# F=$xw1/RDNW.B. \ #
# R=$xw1/RDNW.B. \ #
# $formatI #
# #
# $DELETE $xT/COORDONNEES$COORD_X #
# $DELETE $xT/COORDONNEES$COORD_Y #
# $DELETE $xT/COORDONNEES$COORD_Z #
# $DELETE $xT/VITESSES #
# $DELETE $xT/VITESSES$COORD_X #
# $DELETE $xT/VITESSES$COORD_Y #
# $DELETE $xT/VITESSES$COORD_Z #
# $DELETE $xT/mdRHO #
# $DELETE $xT/MdRHO #
# $DELETE $xT/mnPHI #
# $DELETE $xT/MnPHI #
# $DELETE $xT/dPHI #
# $DELETE $xT/mnTHETA #
# $DELETE $xT/MnTHETA #
# $DELETE $xT/dTHETA #
# $DELETE $xT/infOUVE #
# $DELETE $xT/supOUVE #
# $DELETE $xT/DISTANCE #
# $DELETE $xT/STABILITE #
# $DELETE $xT/RAYONS #
# $DELETE $xT/COULEURS$ROUGE #
# $DELETE $xT/COULEURS$VERTE #
# $DELETE $xT/COULEURS$BLEUE #
# #
# $DELETE $xT/ANNEAU #
# #
# #
# Pal #
# #
# $xci/disk_video_P$Z $xw1/RDNW.B. 1 256 RVB \ #
# 9 1 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
# ATTENTION, cette sequence ne montre pas ce que l'on souhaite montrer (a savoir, des lignes #
# de courant et des equipotentielles simultanement) a cause de tests implementes dans le #
# programme '$xrk/rdn_walk.21$K' utilisant la fonction 'COSX(...)', alors que n'etant pas #
# monotone, les tests doivent utiliser la fonction 'ACOX(...)'. #
# #
# ATTENTION, les positions initiales des particules 'LISTE_[XYZ]=' ne prennent pas en #
# compte le parametre 'LISTE_STABILITE=', ce qui fait que les particules, au cours du #
# temps, ne se deplacent pas sur le reseau orthogonal definit par la stabilite, mais sur #
# le sous-reseau defini par le produit du module des vitesses par le pas de temps... #
# #
# ATTENTION, il y a un "dephasage" du au probleme de la visualisation des conditions #
# initiales (voir le parametre 'UN_TOUR_DE_PLUS'). #
sequence 001189_001444
# Generee (sur '$LACT27') par : #
# #
# set Nimages=256 #
# #
# set NcorpsS=64 #
# #
# @ NcorpsSd = $NcorpsS / 2 #
# #
# alias genere 'set Fi=\!:1 ; set vD=\!:2 ; set vA=\!:3 ; set ArG=(\!:4*) ; \\ #
# $DELETE $Fi ; \\ #
# $xci/valeurs_inte$X premiere=1 derniere=$NcorpsS vD=$vD vA=$vA $ArG > $Fi ; \\ #
# unset Fi vD vA ArG' #
# alias genereR 'set Fi=\!:1 ; set In=\!:2 ; set Su=\!:3 ; set ArG=(\!:4*) ; \\ #
# $DELETE $Fi ; \\ #
# $xci/valeurs_alea$X p=1 d=$NcorpsS signe="$K_VIDE" inf=$In sup=$Su $ArG > $Fi ; \\ #
# unset Fi In Su ArG' #
# #
# genereR $xT/COORDONNEES$COORD_X -0.4 +0.4 multiple=VRAI unite=0.05 g=11 #
# genereR $xT/COORDONNEES$COORD_Y -0.4 +0.4 multiple=VRAI unite=0.05 g=12 #
# genereR $xT/COORDONNEES$COORD_Z 0.0 0.0 multiple=VRAI unite=0.05 g=13 #
# genereR $xT/VITESSES 1 5 entiers=VRAI g=21 #
# $DELETE $xT/VITESSES$COORD_X #
# $CA $xT/VITESSES \ #
# | $SE -e 's/^1$/+0.05/' -e 's/^2$/0/' -e 's/^3$/-0.05/' -e 's/^4$/0/' \ #
# > $xT/VITESSES$COORD_X #
# $DELETE $xT/VITESSES$COORD_Y #
# $CA $xT/VITESSES \ #
# | $SE -e 's/^1$/0/' -e 's/^2$/+0.05/' -e 's/^3$/0/' -e 's/^4$/-0.05/' \ #
# > $xT/VITESSES$COORD_Y #
# $DELETE $xT/VITESSES$COORD_Z #
# $CA $xT/VITESSES \ #
# | $SE -e 's/^1$/0/' -e 's/^2$/0/' -e 's/^3$/0/' -e 's/^4$/0/' \ #
# > $xT/VITESSES$COORD_Z #
# genere $xT/mdRHO 0.0 0.0 #
# genere $xT/MdRHO 0.0 0.0 #
# genere $xT/mnPHI -2 -2 #
# genere $xT/MnPHI +2 +2 #
# genere $xT/dPHI $pis2 $pis2 #
# genere $xT/mnTHETA 0 0 #
# genere $xT/MnTHETA 0 0 #
# genere $xT/dTHETA $pis2 $pis2 #
# $DELETE $xT/infOUVE #
# $xci/valeurs_inte$X premiere=1 derniere=$NcorpsSd vD=-0.78 vA=-0.78 > $xT/infOUVE #
# $xci/valeurs_inte$X premiere=1 derniere=$NcorpsSd vD=+0.77 vA=+0.77 >>! $xT/infOUVE #
# $DELETE $xT/supOUVE #
# $xci/valeurs_inte$X premiere=1 derniere=$NcorpsSd vD=+0.78 vA=+0.78 > $xT/supOUVE #
# $xci/valeurs_inte$X premiere=1 derniere=$NcorpsSd vD=+2.35 vA=+2.35 >>! $xT/supOUVE #
# genere $xT/DISTANCE 0.8 0.8 #
# genere $xT/STABILITE 4 4 #
# genere $xT/RAYONS 0.015 0.015 #
# $DELETE $xT/COULEURS$ROUGE #
# $xci/valeurs_alea$X premiere=1 derniere=$NcorpsSd inf=$GRIS_8 sup=$GRIS_8 \ #
# entiers=VRAI g=31 \ #
# > $xT/COULEURS$ROUGE #
# $xci/valeurs_alea$X premiere=1 derniere=$NcorpsSd inf=$GRIS_0 sup=$GRIS_0 \ #
# entiers=VRAI g=32 \ #
# >>! $xT/COULEURS$ROUGE #
# $DELETE $xT/COULEURS$VERTE #
# $xci/valeurs_alea$X premiere=1 derniere=$NcorpsSd inf=$GRIS_4 sup=$GRIS_8 \ #
# entiers=VRAI g=33 \ #
# > $xT/COULEURS$VERTE #
# $xci/valeurs_alea$X premiere=1 derniere=$NcorpsSd inf=$GRIS_8 sup=$GRIS_8 \ #
# entiers=VRAI g=34 \ #
# >>! $xT/COULEURS$VERTE #
# $DELETE $xT/COULEURS$BLEUE #
# $xci/valeurs_alea$X premiere=1 derniere=$NcorpsSd inf=$GRIS_0 sup=$GRIS_0 \ #
# entiers=VRAI g=35 \ #
# > $xT/COULEURS$BLEUE #
# $xci/valeurs_alea$X premiere=1 derniere=$NcorpsSd inf=$GRIS_4 sup=$GRIS_8 \ #
# entiers=VRAI g=36 \ #
# >>! $xT/COULEURS$BLEUE #
# #
# Std #
# #
# $xci/substitue$X A=$xiio/GAUSS.8110 \ #
# p=$xiP/abso.11 \ #
# substitution=L_SUBSTITUTION_ROUGE \ #
# $formatI | \ #
# $xci/complement$X \ #
# $formatI | \ #
# $xci/format.01$X \ #
# mode=0 \ #
# $formatI \ #
# R=$xT/ANNEAU \ #
# $formatR_Pal #
# #
# Pal #
# #
# $xrk/rdn_walk.21$X corps=$NcorpsS \ #
# np=$Nimages \ #
# LISTE_X=$xT/COORDONNEES$COORD_X \ #
# LISTE_Y=$xT/COORDONNEES$COORD_Y \ #
# LISTE_Z=$xT/COORDONNEES$COORD_Z \ #
# LISTE_VX=$xT/VITESSES$COORD_X \ #
# LISTE_VY=$xT/VITESSES$COORD_Y \ #
# LISTE_VZ=$xT/VITESSES$COORD_Z \ #
# LISTE_MINIMUM_DELTA_RHO=$xT/mdRHO \ #
# LISTE_MAXIMUM_DELTA_RHO=$xT/MdRHO \ #
# LISTE_MINIMUM_N_PHI=$xT/mnPHI \ #
# LISTE_MAXIMUM_N_PHI=$xT/MnPHI \ #
# LISTE_DELTA_PHI=$xT/dPHI \ #
# LISTE_MINIMUM_N_THETA=$xT/mnTHETA \ #
# LISTE_MAXIMUM_N_THETA=$xT/MnTHETA \ #
# LISTE_DELTA_THETA=$xT/dTHETA \ #
# LISTE_BORNE_INFERIEURE_DE_L_OUVERTURE=$xT/infOUVE \ #
# LISTE_BORNE_SUPERIEURE_DE_L_OUVERTURE=$xT/supOUVE \ #
# LISTE_DISTANCE_MAXIMALE=$xT/DISTANCE \ #
# LISTE_STABILITE=$xT/STABILITE \ #
# LISTE_RAYON=$xT/RAYONS \ #
# LISTE_ROUGE=$xT/COULEURS$ROUGE \ #
# LISTE_VERTE=$xT/COULEURS$VERTE \ #
# LISTE_BLEUE=$xT/COULEURS$BLEUE \ #
# force=VRAI \ #
# C=$xT/ANNEAU \ #
# NpasX=8 NpasY=8 NpasZ=1 \ #
# Chiffres=0 \ #
# Zmin=1 Zmax=16 \ #
# centrer=VRAI \ #
# dct=0.5 \ #
# nombre=1 \ #
# trainees=VRAI mode=1 \ #
# attenuation_des_images=0.7 \ #
# attenuation_des_trainees=1.00 \ #
# renormaliser=FAUX \ #
# Lz=100 \ #
# fond=FAUX \ #
# R=$xw1/RDNW.C. \ #
# $formatI #
# #
# genere $xT/RAYONS 0.04 0.04 #
# #
# $xrk/rdn_walk.21$X corps=$NcorpsS \ #
# np=$Nimages \ #
# LISTE_X=$xT/COORDONNEES$COORD_X \ #
# LISTE_Y=$xT/COORDONNEES$COORD_Y \ #
# LISTE_Z=$xT/COORDONNEES$COORD_Z \ #
# LISTE_VX=$xT/VITESSES$COORD_X \ #
# LISTE_VY=$xT/VITESSES$COORD_Y \ #
# LISTE_VZ=$xT/VITESSES$COORD_Z \ #
# LISTE_MINIMUM_DELTA_RHO=$xT/mdRHO \ #
# LISTE_MAXIMUM_DELTA_RHO=$xT/MdRHO \ #
# LISTE_MINIMUM_N_PHI=$xT/mnPHI \ #
# LISTE_MAXIMUM_N_PHI=$xT/MnPHI \ #
# LISTE_DELTA_PHI=$xT/dPHI \ #
# LISTE_MINIMUM_N_THETA=$xT/mnTHETA \ #
# LISTE_MAXIMUM_N_THETA=$xT/MnTHETA \ #
# LISTE_DELTA_THETA=$xT/dTHETA \ #
# LISTE_BORNE_INFERIEURE_DE_L_OUVERTURE=$xT/infOUVE \ #
# LISTE_BORNE_SUPERIEURE_DE_L_OUVERTURE=$xT/supOUVE \ #
# LISTE_DISTANCE_MAXIMALE=$xT/DISTANCE \ #
# LISTE_STABILITE=$xT/STABILITE \ #
# LISTE_RAYON=$xT/RAYONS \ #
# LISTE_ROUGE=$xT/COULEURS$ROUGE \ #
# LISTE_VERTE=$xT/COULEURS$VERTE \ #
# LISTE_BLEUE=$xT/COULEURS$BLEUE \ #
# force=VRAI \ #
# C=$xT/ANNEAU \ #
# NpasX=8 NpasY=8 NpasZ=1 \ #
# Chiffres=0 \ #
# Zmin=1 Zmax=16 \ #
# centrer=VRAI \ #
# dct=0.5 \ #
# nombre=1 \ #
# trainees=VRAI mode=1 \ #
# attenuation_des_images=1.0 \ #
# attenuation_des_trainees=0.90 \ #
# renormaliser=FAUX \ #
# Lz=100 \ #
# fond=VRAI \ #
# dynamique=VRAI \ #
# F=$xw1/RDNW.C. \ #
# R=$xw1/RDNW.C. \ #
# $formatI #
# #
# $DELETE $xT/COORDONNEES$COORD_X #
# $DELETE $xT/COORDONNEES$COORD_Y #
# $DELETE $xT/COORDONNEES$COORD_Z #
# $DELETE $xT/VITESSES #
# $DELETE $xT/VITESSES$COORD_X #
# $DELETE $xT/VITESSES$COORD_Y #
# $DELETE $xT/VITESSES$COORD_Z #
# $DELETE $xT/mdRHO #
# $DELETE $xT/MdRHO #
# $DELETE $xT/mnPHI #
# $DELETE $xT/MnPHI #
# $DELETE $xT/dPHI #
# $DELETE $xT/mnTHETA #
# $DELETE $xT/MnTHETA #
# $DELETE $xT/dTHETA #
# $DELETE $xT/infOUVE #
# $DELETE $xT/supOUVE #
# $DELETE $xT/DISTANCE #
# $DELETE $xT/STABILITE #
# $DELETE $xT/RAYONS #
# $DELETE $xT/COULEURS$ROUGE #
# $DELETE $xT/COULEURS$VERTE #
# $DELETE $xT/COULEURS$BLEUE #
# #
# $DELETE $xT/ANNEAU #
# #
# #
# Pal #
# #
# $xci/disk_video_P$Z $xw1/RDNW.C. 1 256 RVB \ #
# 9 1 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
# ATTENTION, cette sequence ne montre pas ce que l'on souhaite montrer (a savoir, des lignes #
# de courant et des equipotentielles simultanement) a cause de tests implementes dans le #
# programme '$xrk/rdn_walk.21$K' utilisant la fonction 'COSX(...)', alors que n'etant pas #
# monotone, les tests doivent utiliser la fonction 'ACOX(...)'. #
# #
# ATTENTION, les positions initiales des particules 'LISTE_[XYZ]=' ne prennent pas en #
# compte le parametre 'LISTE_STABILITE=', ce qui fait que les particules, au cours du #
# temps, ne se deplacent pas sur le reseau orthogonal definit par la stabilite, mais sur #
# le sous-reseau defini par le produit du module des vitesses par le pas de temps... #
# #
# ATTENTION, il y a un "dephasage" du au probleme de la visualisation des conditions #
# initiales (voir le parametre 'UN_TOUR_DE_PLUS'). #
sequence 001445_001700
# Generee (sur '$LACT27') par : #
# #
# set Nimages=256 #
# #
# set NcorpsS=64 #
# #
# @ NcorpsSd = $NcorpsS / 2 #
# #
# alias genere 'set Fi=\!:1 ; set vD=\!:2 ; set vA=\!:3 ; set ArG=(\!:4*) ; \\ #
# $DELETE $Fi ; \\ #
# $xci/valeurs_inte$X premiere=1 derniere=$NcorpsS vD=$vD vA=$vA $ArG > $Fi ; \\ #
# unset Fi vD vA ArG' #
# alias genereR 'set Fi=\!:1 ; set In=\!:2 ; set Su=\!:3 ; set ArG=(\!:4*) ; \\ #
# $DELETE $Fi ; \\ #
# $xci/valeurs_alea$X p=1 d=$NcorpsS signe="$K_VIDE" inf=$In sup=$Su $ArG > $Fi ; \\ #
# unset Fi In Su ArG' #
# #
# genereR $xT/COORDONNEES$COORD_X -0.4 +0.4 multiple=VRAI unite=0.05 g=11 #
# genereR $xT/COORDONNEES$COORD_Y -0.4 +0.4 multiple=VRAI unite=0.05 g=12 #
# genereR $xT/COORDONNEES$COORD_Z 0.0 0.0 multiple=VRAI unite=0.05 g=13 #
# genereR $xT/VITESSES 1 5 entiers=VRAI g=21 #
# $DELETE $xT/VITESSES$COORD_X #
# $CA $xT/VITESSES \ #
# | $SE -e 's/^1$/+0.05/' -e 's/^2$/0/' -e 's/^3$/-0.05/' -e 's/^4$/0/' \ #
# > $xT/VITESSES$COORD_X #
# $DELETE $xT/VITESSES$COORD_Y #
# $CA $xT/VITESSES \ #
# | $SE -e 's/^1$/0/' -e 's/^2$/+0.05/' -e 's/^3$/0/' -e 's/^4$/-0.05/' \ #
# > $xT/VITESSES$COORD_Y #
# $DELETE $xT/VITESSES$COORD_Z #
# $CA $xT/VITESSES \ #
# | $SE -e 's/^1$/0/' -e 's/^2$/0/' -e 's/^3$/0/' -e 's/^4$/0/' \ #
# > $xT/VITESSES$COORD_Z #
# genere $xT/mdRHO 0.0 0.0 #
# genere $xT/MdRHO 0.0 0.0 #
# genere $xT/mnPHI -2 -2 #
# genere $xT/MnPHI +2 +2 #
# genere $xT/dPHI $pis2 $pis2 #
# genere $xT/mnTHETA 0 0 #
# genere $xT/MnTHETA 0 0 #
# genere $xT/dTHETA $pis2 $pis2 #
# $DELETE $xT/infOUVE #
# $xci/valeurs_inte$X premiere=1 derniere=$NcorpsSd vD=-0.78 vA=-0.78 > $xT/infOUVE #
# $xci/valeurs_inte$X premiere=1 derniere=$NcorpsSd vD=+0.77 vA=+0.77 >>! $xT/infOUVE #
# $DELETE $xT/supOUVE #
# $xci/valeurs_inte$X premiere=1 derniere=$NcorpsSd vD=+0.78 vA=+0.78 > $xT/supOUVE #
# $xci/valeurs_inte$X premiere=1 derniere=$NcorpsSd vD=+2.35 vA=+2.35 >>! $xT/supOUVE #
# genere $xT/DISTANCE 0.8 0.8 #
# genere $xT/STABILITE 4 4 #
# genere $xT/RAYONS 0.015 0.015 #
# $DELETE $xT/COULEURS$ROUGE #
# $xci/valeurs_alea$X premiere=1 derniere=$NcorpsSd inf=$GRIS_8 sup=$GRIS_8 \ #
# entiers=VRAI g=31 \ #
# > $xT/COULEURS$ROUGE #
# $xci/valeurs_alea$X premiere=1 derniere=$NcorpsSd inf=$GRIS_0 sup=$GRIS_0 \ #
# entiers=VRAI g=32 \ #
# >>! $xT/COULEURS$ROUGE #
# $DELETE $xT/COULEURS$VERTE #
# $xci/valeurs_alea$X premiere=1 derniere=$NcorpsSd inf=$GRIS_4 sup=$GRIS_8 \ #
# entiers=VRAI g=33 \ #
# > $xT/COULEURS$VERTE #
# $xci/valeurs_alea$X premiere=1 derniere=$NcorpsSd inf=$GRIS_8 sup=$GRIS_8 \ #
# entiers=VRAI g=34 \ #
# >>! $xT/COULEURS$VERTE #
# $DELETE $xT/COULEURS$BLEUE #
# $xci/valeurs_alea$X premiere=1 derniere=$NcorpsSd inf=$GRIS_0 sup=$GRIS_0 \ #
# entiers=VRAI g=35 \ #
# > $xT/COULEURS$BLEUE #
# $xci/valeurs_alea$X premiere=1 derniere=$NcorpsSd inf=$GRIS_4 sup=$GRIS_8 \ #
# entiers=VRAI g=36 \ #
# >>! $xT/COULEURS$BLEUE #
# #
# Std #
# #
# $xci/substitue$X A=$xiio/GAUSS.8110 \ #
# p=$xiP/abso.11 \ #
# substitution=L_SUBSTITUTION_ROUGE \ #
# $formatI | \ #
# $xci/complement$X \ #
# $formatI | \ #
# $xci/format.01$X \ #
# mode=0 \ #
# $formatI \ #
# R=$xT/ANNEAU \ #
# $formatR_Pal #
# #
# Pal #
# #
# $xrk/rdn_walk.21$X corps=$NcorpsS \ #
# np=$Nimages \ #
# LISTE_X=$xT/COORDONNEES$COORD_X \ #
# LISTE_Y=$xT/COORDONNEES$COORD_Y \ #
# LISTE_Z=$xT/COORDONNEES$COORD_Z \ #
# LISTE_VX=$xT/VITESSES$COORD_X \ #
# LISTE_VY=$xT/VITESSES$COORD_Y \ #
# LISTE_VZ=$xT/VITESSES$COORD_Z \ #
# LISTE_MINIMUM_DELTA_RHO=$xT/mdRHO \ #
# LISTE_MAXIMUM_DELTA_RHO=$xT/MdRHO \ #
# LISTE_MINIMUM_N_PHI=$xT/mnPHI \ #
# LISTE_MAXIMUM_N_PHI=$xT/MnPHI \ #
# LISTE_DELTA_PHI=$xT/dPHI \ #
# LISTE_MINIMUM_N_THETA=$xT/mnTHETA \ #
# LISTE_MAXIMUM_N_THETA=$xT/MnTHETA \ #
# LISTE_DELTA_THETA=$xT/dTHETA \ #
# LISTE_BORNE_INFERIEURE_DE_L_OUVERTURE=$xT/infOUVE \ #
# LISTE_BORNE_SUPERIEURE_DE_L_OUVERTURE=$xT/supOUVE \ #
# LISTE_DISTANCE_MAXIMALE=$xT/DISTANCE \ #
# LISTE_STABILITE=$xT/STABILITE \ #
# LISTE_RAYON=$xT/RAYONS \ #
# LISTE_ROUGE=$xT/COULEURS$ROUGE \ #
# LISTE_VERTE=$xT/COULEURS$VERTE \ #
# LISTE_BLEUE=$xT/COULEURS$BLEUE \ #
# force=VRAI \ #
# C=$xT/ANNEAU \ #
# NpasX=8 NpasY=8 NpasZ=1 \ #
# Chiffres=0 \ #
# Zmin=1 Zmax=16 \ #
# centrer=VRAI \ #
# dct=0.5 \ #
# nombre=1 \ #
# trainees=VRAI mode=1 \ #
# attenuation_des_images=0.7 \ #
# attenuation_des_trainees=1.00 \ #
# renormaliser=FAUX \ #
# Lz=100 \ #
# fond=FAUX \ #
# R=$xw1/RDNW.D. \ #
# $formatI #
# #
# genere $xT/RAYONS 0.04 0.04 #
# #
# $xrk/rdn_walk.21$X corps=$NcorpsS \ #
# np=$Nimages \ #
# LISTE_X=$xT/COORDONNEES$COORD_X \ #
# LISTE_Y=$xT/COORDONNEES$COORD_Y \ #
# LISTE_Z=$xT/COORDONNEES$COORD_Z \ #
# LISTE_VX=$xT/VITESSES$COORD_X \ #
# LISTE_VY=$xT/VITESSES$COORD_Y \ #
# LISTE_VZ=$xT/VITESSES$COORD_Z \ #
# LISTE_MINIMUM_DELTA_RHO=$xT/mdRHO \ #
# LISTE_MAXIMUM_DELTA_RHO=$xT/MdRHO \ #
# LISTE_MINIMUM_N_PHI=$xT/mnPHI \ #
# LISTE_MAXIMUM_N_PHI=$xT/MnPHI \ #
# LISTE_DELTA_PHI=$xT/dPHI \ #
# LISTE_MINIMUM_N_THETA=$xT/mnTHETA \ #
# LISTE_MAXIMUM_N_THETA=$xT/MnTHETA \ #
# LISTE_DELTA_THETA=$xT/dTHETA \ #
# LISTE_BORNE_INFERIEURE_DE_L_OUVERTURE=$xT/infOUVE \ #
# LISTE_BORNE_SUPERIEURE_DE_L_OUVERTURE=$xT/supOUVE \ #
# LISTE_DISTANCE_MAXIMALE=$xT/DISTANCE \ #
# LISTE_STABILITE=$xT/STABILITE \ #
# LISTE_RAYON=$xT/RAYONS \ #
# LISTE_ROUGE=$xT/COULEURS$ROUGE \ #
# LISTE_VERTE=$xT/COULEURS$VERTE \ #
# LISTE_BLEUE=$xT/COULEURS$BLEUE \ #
# force=VRAI \ #
# C=$xT/ANNEAU \ #
# NpasX=8 NpasY=8 NpasZ=1 \ #
# Chiffres=0 \ #
# Zmin=1 Zmax=16 \ #
# centrer=VRAI \ #
# dct=0.5 \ #
# nombre=1 \ #
# trainees=VRAI mode=1 \ #
# attenuation_des_images=1.0 \ #
# attenuation_des_trainees=0.90 \ #
# renormaliser=FAUX \ #
# Lz=100 \ #
# fond=VRAI \ #
# dynamique=VRAI \ #
# F=$xw1/RDNW.D. \ #
# R=$xw1/RDNW.D. \ #
# $formatI #
# #
# $DELETE $xT/COORDONNEES$COORD_X #
# $DELETE $xT/COORDONNEES$COORD_Y #
# $DELETE $xT/COORDONNEES$COORD_Z #
# $DELETE $xT/VITESSES #
# $DELETE $xT/VITESSES$COORD_X #
# $DELETE $xT/VITESSES$COORD_Y #
# $DELETE $xT/VITESSES$COORD_Z #
# $DELETE $xT/mdRHO #
# $DELETE $xT/MdRHO #
# $DELETE $xT/mnPHI #
# $DELETE $xT/MnPHI #
# $DELETE $xT/dPHI #
# $DELETE $xT/mnTHETA #
# $DELETE $xT/MnTHETA #
# $DELETE $xT/dTHETA #
# $DELETE $xT/infOUVE #
# $DELETE $xT/supOUVE #
# $DELETE $xT/DISTANCE #
# $DELETE $xT/STABILITE #
# $DELETE $xT/RAYONS #
# $DELETE $xT/COULEURS$ROUGE #
# $DELETE $xT/COULEURS$VERTE #
# $DELETE $xT/COULEURS$BLEUE #
# #
# $DELETE $xT/ANNEAU #
# #
# #
# Pal #
# #
# $xci/disk_video_P$Z $xw1/RDNW.D. 1 256 RVB \ #
# 9 1 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
# ATTENTION, les positions initiales des particules 'LISTE_[XYZ]=' ne prennent pas en #
# compte le parametre 'LISTE_STABILITE=', ce qui fait que les particules, au cours du #
# temps, ne se deplacent pas sur le reseau orthogonal definit par la stabilite, mais sur #
# le sous-reseau defini par le produit du module des vitesses par le pas de temps... #
# #
# ATTENTION, il y a un "dephasage" du au probleme de la visualisation des conditions #
# initiales (voir le parametre 'UN_TOUR_DE_PLUS'). #
sequence 001701_001956
# Generee (sur '$LACT27') par : #
# #
# set Nimages=256 #
# #
# set NcorpsS=64 #
# #
# @ NcorpsSd = $NcorpsS / 2 #
# #
# alias genere 'set Fi=\!:1 ; set vD=\!:2 ; set vA=\!:3 ; set ArG=(\!:4*) ; \\ #
# $DELETE $Fi ; \\ #
# $xci/valeurs_inte$X premiere=1 derniere=$NcorpsS vD=$vD vA=$vA $ArG > $Fi ; \\ #
# unset Fi vD vA ArG' #
# alias genereR 'set Fi=\!:1 ; set In=\!:2 ; set Su=\!:3 ; set ArG=(\!:4*) ; \\ #
# $DELETE $Fi ; \\ #
# $xci/valeurs_alea$X p=1 d=$NcorpsS signe="$K_VIDE" inf=$In sup=$Su $ArG > $Fi ; \\ #
# unset Fi In Su ArG' #
# #
# genereR $xT/COORDONNEES$COORD_X -0.4 +0.4 multiple=VRAI unite=0.05 g=11 #
# genereR $xT/COORDONNEES$COORD_Y -0.4 +0.4 multiple=VRAI unite=0.05 g=12 #
# genereR $xT/COORDONNEES$COORD_Z 0.0 0.0 multiple=VRAI unite=0.05 g=13 #
# genereR $xT/VITESSES 1 5 entiers=VRAI g=21 #
# $DELETE $xT/VITESSES$COORD_X #
# $CA $xT/VITESSES \ #
# | $SE -e 's/^1$/+0.05/' -e 's/^2$/0/' -e 's/^3$/-0.05/' -e 's/^4$/0/' \ #
# > $xT/VITESSES$COORD_X #
# $DELETE $xT/VITESSES$COORD_Y #
# $CA $xT/VITESSES \ #
# | $SE -e 's/^1$/0/' -e 's/^2$/+0.05/' -e 's/^3$/0/' -e 's/^4$/-0.05/' \ #
# > $xT/VITESSES$COORD_Y #
# $DELETE $xT/VITESSES$COORD_Z #
# $CA $xT/VITESSES \ #
# | $SE -e 's/^1$/0/' -e 's/^2$/0/' -e 's/^3$/0/' -e 's/^4$/0/' \ #
# > $xT/VITESSES$COORD_Z #
# genere $xT/mdRHO 0.0 0.0 #
# genere $xT/MdRHO 0.0 0.0 #
# genere $xT/mnPHI -2 -2 #
# genere $xT/MnPHI +2 +2 #
# genere $xT/dPHI $pis2 $pis2 #
# genere $xT/mnTHETA 0 0 #
# genere $xT/MnTHETA 0 0 #
# genere $xT/dTHETA $pis2 $pis2 #
# $DELETE $xT/infOUVE #
# $xci/valeurs_inte$X premiere=1 derniere=$NcorpsSd vD=-1.40 vA=-1.40 > $xT/infOUVE #
# $xci/valeurs_inte$X premiere=1 derniere=$NcorpsSd vD=+1.40 vA=+1.40 >>! $xT/infOUVE #
# $DELETE $xT/supOUVE #
# $xci/valeurs_inte$X premiere=1 derniere=$NcorpsSd vD=+0.17 vA=+0.17 > $xT/supOUVE #
# $xci/valeurs_inte$X premiere=1 derniere=$NcorpsSd vD=+2.97 vA=+2.97 >>! $xT/supOUVE #
# genere $xT/DISTANCE 0.8 0.8 #
# genere $xT/STABILITE 4 4 #
# genere $xT/RAYONS 0.015 0.015 #
# $DELETE $xT/COULEURS$ROUGE #
# $xci/valeurs_alea$X premiere=1 derniere=$NcorpsSd inf=$GRIS_8 sup=$GRIS_8 \ #
# entiers=VRAI g=31 \ #
# > $xT/COULEURS$ROUGE #
# $xci/valeurs_alea$X premiere=1 derniere=$NcorpsSd inf=$GRIS_0 sup=$GRIS_0 \ #
# entiers=VRAI g=32 \ #
# >>! $xT/COULEURS$ROUGE #
# $DELETE $xT/COULEURS$VERTE #
# $xci/valeurs_alea$X premiere=1 derniere=$NcorpsSd inf=$GRIS_4 sup=$GRIS_8 \ #
# entiers=VRAI g=33 \ #
# > $xT/COULEURS$VERTE #
# $xci/valeurs_alea$X premiere=1 derniere=$NcorpsSd inf=$GRIS_8 sup=$GRIS_8 \ #
# entiers=VRAI g=34 \ #
# >>! $xT/COULEURS$VERTE #
# $DELETE $xT/COULEURS$BLEUE #
# $xci/valeurs_alea$X premiere=1 derniere=$NcorpsSd inf=$GRIS_0 sup=$GRIS_0 \ #
# entiers=VRAI g=35 \ #
# > $xT/COULEURS$BLEUE #
# $xci/valeurs_alea$X premiere=1 derniere=$NcorpsSd inf=$GRIS_4 sup=$GRIS_8 \ #
# entiers=VRAI g=36 \ #
# >>! $xT/COULEURS$BLEUE #
# #
# Std #
# #
# $xci/substitue$X A=$xiio/GAUSS.8110 \ #
# p=$xiP/abso.11 \ #
# substitution=L_SUBSTITUTION_ROUGE \ #
# $formatI | \ #
# $xci/complement$X \ #
# $formatI | \ #
# $xci/format.01$X \ #
# mode=0 \ #
# $formatI \ #
# R=$xT/ANNEAU \ #
# $formatR_Pal #
# #
# Pal #
# #
# $xrk/rdn_walk.21$X corps=$NcorpsS \ #
# np=$Nimages \ #
# LISTE_X=$xT/COORDONNEES$COORD_X \ #
# LISTE_Y=$xT/COORDONNEES$COORD_Y \ #
# LISTE_Z=$xT/COORDONNEES$COORD_Z \ #
# LISTE_VX=$xT/VITESSES$COORD_X \ #
# LISTE_VY=$xT/VITESSES$COORD_Y \ #
# LISTE_VZ=$xT/VITESSES$COORD_Z \ #
# LISTE_MINIMUM_DELTA_RHO=$xT/mdRHO \ #
# LISTE_MAXIMUM_DELTA_RHO=$xT/MdRHO \ #
# LISTE_MINIMUM_N_PHI=$xT/mnPHI \ #
# LISTE_MAXIMUM_N_PHI=$xT/MnPHI \ #
# LISTE_DELTA_PHI=$xT/dPHI \ #
# LISTE_MINIMUM_N_THETA=$xT/mnTHETA \ #
# LISTE_MAXIMUM_N_THETA=$xT/MnTHETA \ #
# LISTE_DELTA_THETA=$xT/dTHETA \ #
# LISTE_BORNE_INFERIEURE_DE_L_OUVERTURE=$xT/infOUVE \ #
# LISTE_BORNE_SUPERIEURE_DE_L_OUVERTURE=$xT/supOUVE \ #
# LISTE_DISTANCE_MAXIMALE=$xT/DISTANCE \ #
# LISTE_STABILITE=$xT/STABILITE \ #
# LISTE_RAYON=$xT/RAYONS \ #
# LISTE_ROUGE=$xT/COULEURS$ROUGE \ #
# LISTE_VERTE=$xT/COULEURS$VERTE \ #
# LISTE_BLEUE=$xT/COULEURS$BLEUE \ #
# force=VRAI \ #
# C=$xT/ANNEAU \ #
# NpasX=8 NpasY=8 NpasZ=1 \ #
# Chiffres=0 \ #
# Zmin=1 Zmax=16 \ #
# centrer=VRAI \ #
# dct=0.5 \ #
# nombre=1 \ #
# trainees=VRAI mode=1 \ #
# attenuation_des_images=0.7 \ #
# attenuation_des_trainees=1.00 \ #
# renormaliser=FAUX \ #
# Lz=100 \ #
# fond=FAUX \ #
# R=$xw1/RDNW.E. \ #
# $formatI #
# #
# genere $xT/RAYONS 0.04 0.04 #
# #
# $xrk/rdn_walk.21$X corps=$NcorpsS \ #
# np=$Nimages \ #
# LISTE_X=$xT/COORDONNEES$COORD_X \ #
# LISTE_Y=$xT/COORDONNEES$COORD_Y \ #
# LISTE_Z=$xT/COORDONNEES$COORD_Z \ #
# LISTE_VX=$xT/VITESSES$COORD_X \ #
# LISTE_VY=$xT/VITESSES$COORD_Y \ #
# LISTE_VZ=$xT/VITESSES$COORD_Z \ #
# LISTE_MINIMUM_DELTA_RHO=$xT/mdRHO \ #
# LISTE_MAXIMUM_DELTA_RHO=$xT/MdRHO \ #
# LISTE_MINIMUM_N_PHI=$xT/mnPHI \ #
# LISTE_MAXIMUM_N_PHI=$xT/MnPHI \ #
# LISTE_DELTA_PHI=$xT/dPHI \ #
# LISTE_MINIMUM_N_THETA=$xT/mnTHETA \ #
# LISTE_MAXIMUM_N_THETA=$xT/MnTHETA \ #
# LISTE_DELTA_THETA=$xT/dTHETA \ #
# LISTE_BORNE_INFERIEURE_DE_L_OUVERTURE=$xT/infOUVE \ #
# LISTE_BORNE_SUPERIEURE_DE_L_OUVERTURE=$xT/supOUVE \ #
# LISTE_DISTANCE_MAXIMALE=$xT/DISTANCE \ #
# LISTE_STABILITE=$xT/STABILITE \ #
# LISTE_RAYON=$xT/RAYONS \ #
# LISTE_ROUGE=$xT/COULEURS$ROUGE \ #
# LISTE_VERTE=$xT/COULEURS$VERTE \ #
# LISTE_BLEUE=$xT/COULEURS$BLEUE \ #
# force=VRAI \ #
# C=$xT/ANNEAU \ #
# NpasX=8 NpasY=8 NpasZ=1 \ #
# Chiffres=0 \ #
# Zmin=1 Zmax=16 \ #
# centrer=VRAI \ #
# dct=0.5 \ #
# nombre=1 \ #
# trainees=VRAI mode=1 \ #
# attenuation_des_images=1.0 \ #
# attenuation_des_trainees=0.90 \ #
# renormaliser=FAUX \ #
# Lz=100 \ #
# fond=VRAI \ #
# dynamique=VRAI \ #
# F=$xw1/RDNW.E. \ #
# R=$xw1/RDNW.E. \ #
# $formatI #
# #
# $DELETE $xT/COORDONNEES$COORD_X #
# $DELETE $xT/COORDONNEES$COORD_Y #
# $DELETE $xT/COORDONNEES$COORD_Z #
# $DELETE $xT/VITESSES #
# $DELETE $xT/VITESSES$COORD_X #
# $DELETE $xT/VITESSES$COORD_Y #
# $DELETE $xT/VITESSES$COORD_Z #
# $DELETE $xT/mdRHO #
# $DELETE $xT/MdRHO #
# $DELETE $xT/mnPHI #
# $DELETE $xT/MnPHI #
# $DELETE $xT/dPHI #
# $DELETE $xT/mnTHETA #
# $DELETE $xT/MnTHETA #
# $DELETE $xT/dTHETA #
# $DELETE $xT/infOUVE #
# $DELETE $xT/supOUVE #
# $DELETE $xT/DISTANCE #
# $DELETE $xT/STABILITE #
# $DELETE $xT/RAYONS #
# $DELETE $xT/COULEURS$ROUGE #
# $DELETE $xT/COULEURS$VERTE #
# $DELETE $xT/COULEURS$BLEUE #
# #
# $DELETE $xT/ANNEAU #
# #
# #
# Pal #
# #
# $xci/disk_video_P$Z $xw1/RDNW.E. 1 256 RVB \ #
# 9 1 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
# ATTENTION, les positions initiales des particules 'LISTE_[XYZ]=' ne prennent pas en #
# compte le parametre 'LISTE_STABILITE=', ce qui fait que les particules, au cours du #
# temps, ne se deplacent pas sur le reseau orthogonal definit par la stabilite, mais sur #
# le sous-reseau defini par le produit du module des vitesses par le pas de temps... #
# #
# ATTENTION, il y a un "dephasage" du au probleme de la visualisation des conditions #
# initiales (voir le parametre 'UN_TOUR_DE_PLUS'). #
sequence 001957_002212
# Generee (sur '$LACT27') par : #
# #
# set Nimages=256 #
# #
# set NcorpsS=64 #
# #
# alias genere 'set Fi=\!:1 ; set vD=\!:2 ; set vA=\!:3 ; set ArG=(\!:4*) ; \\ #
# $DELETE $Fi ; \\ #
# $xci/valeurs_inte$X premiere=1 derniere=$NcorpsS vD=$vD vA=$vA $ArG > $Fi ; \\ #
# unset Fi vD vA ArG' #
# alias genereR 'set Fi=\!:1 ; set In=\!:2 ; set Su=\!:3 ; set ArG=(\!:4*) ; \\ #
# $DELETE $Fi ; \\ #
# $xci/valeurs_alea$X p=1 d=$NcorpsS signe="$K_VIDE" inf=$In sup=$Su $ArG > $Fi ; \\ #
# unset Fi In Su ArG' #
# #
# genereR $xT/COORDONNEES$COORD_X -0.2 +0.2 multiple=VRAI unite=0.05 g=11 #
# genereR $xT/COORDONNEES$COORD_Y -0.2 +0.2 multiple=VRAI unite=0.05 g=12 #
# genereR $xT/COORDONNEES$COORD_Z 0.0 0.0 multiple=VRAI unite=0.05 g=13 #
# genereR $xT/VITESSES 1 5 entiers=VRAI g=21 #
# $DELETE $xT/VITESSES$COORD_X #
# $CA $xT/VITESSES \ #
# | $SE -e 's/^1$/+0.05/' -e 's/^2$/0/' -e 's/^3$/-0.05/' -e 's/^4$/0/' \ #
# > $xT/VITESSES$COORD_X #
# $DELETE $xT/VITESSES$COORD_Y #
# $CA $xT/VITESSES \ #
# | $SE -e 's/^1$/0/' -e 's/^2$/+0.05/' -e 's/^3$/0/' -e 's/^4$/-0.05/' \ #
# > $xT/VITESSES$COORD_Y #
# $DELETE $xT/VITESSES$COORD_Z #
# $CA $xT/VITESSES \ #
# | $SE -e 's/^1$/0/' -e 's/^2$/0/' -e 's/^3$/0/' -e 's/^4$/0/' \ #
# > $xT/VITESSES$COORD_Z #
# genere $xT/mdRHO 0.0 0.0 #
# genere $xT/MdRHO 0.0 0.0 #
# genere $xT/mnPHI -2 -2 #
# genere $xT/MnPHI +2 +2 #
# genere $xT/dPHI $pis2 $pis2 #
# genere $xT/mnTHETA 0 0 #
# genere $xT/MnTHETA 0 0 #
# genere $xT/dTHETA $pis2 $pis2 #
# genere $xT/infOUVE 0.0 0.0 #
# genere $xT/supOUVE $pis2 $pis2 #
# genere $xT/DISTANCE 0.8 0.8 #
# genere $xT/STABILITE 4 4 #
# genere $xT/RAYONS 0.015 0.015 #
# genereR $xT/COULEURS$ROUGE $GRIS_2 $GRIS_8 entiers=VRAI g=31 #
# genereR $xT/COULEURS$VERTE $GRIS_2 $GRIS_8 entiers=VRAI g=32 #
# genereR $xT/COULEURS$BLEUE $GRIS_2 $GRIS_8 entiers=VRAI g=33 #
# #
# Std #
# #
# $xci/substitue$X A=$xiio/GAUSS.8110 \ #
# p=$xiP/abso.11 \ #
# substitution=L_SUBSTITUTION_ROUGE \ #
# $formatI | \ #
# $xci/complement$X \ #
# $formatI | \ #
# $xci/format.01$X \ #
# mode=0 \ #
# $formatI \ #
# R=$xT/ANNEAU \ #
# $formatR_Pal #
# #
# Pal #
# #
# $xrk/rdn_walk.21$X corps=$NcorpsS \ #
# np=$Nimages \ #
# LISTE_X=$xT/COORDONNEES$COORD_X \ #
# LISTE_Y=$xT/COORDONNEES$COORD_Y \ #
# LISTE_Z=$xT/COORDONNEES$COORD_Z \ #
# LISTE_VX=$xT/VITESSES$COORD_X \ #
# LISTE_VY=$xT/VITESSES$COORD_Y \ #
# LISTE_VZ=$xT/VITESSES$COORD_Z \ #
# LISTE_MINIMUM_DELTA_RHO=$xT/mdRHO \ #
# LISTE_MAXIMUM_DELTA_RHO=$xT/MdRHO \ #
# LISTE_MINIMUM_N_PHI=$xT/mnPHI \ #
# LISTE_MAXIMUM_N_PHI=$xT/MnPHI \ #
# LISTE_DELTA_PHI=$xT/dPHI \ #
# LISTE_MINIMUM_N_THETA=$xT/mnTHETA \ #
# LISTE_MAXIMUM_N_THETA=$xT/MnTHETA \ #
# LISTE_DELTA_THETA=$xT/dTHETA \ #
# LISTE_BORNE_INFERIEURE_DE_L_OUVERTURE=$xT/infOUVE \ #
# LISTE_BORNE_SUPERIEURE_DE_L_OUVERTURE=$xT/supOUVE \ #
# LISTE_DISTANCE_MAXIMALE=$xT/DISTANCE \ #
# LISTE_STABILITE=$xT/STABILITE \ #
# LISTE_RAYON=$xT/RAYONS \ #
# LISTE_ROUGE=$xT/COULEURS$ROUGE \ #
# LISTE_VERTE=$xT/COULEURS$VERTE \ #
# LISTE_BLEUE=$xT/COULEURS$BLEUE \ #
# force=VRAI \ #
# C=$xT/ANNEAU \ #
# NpasX=8 NpasY=8 NpasZ=1 \ #
# Chiffres=0 \ #
# Zmin=1 Zmax=16 \ #
# centrer=VRAI \ #
# dct=0.5 \ #
# nombre=1 \ #
# trainees=VRAI mode=1 \ #
# attenuation_des_images=0.5 \ #
# attenuation_des_trainees=1.00 \ #
# renormaliser=FAUX \ #
# Lz=100 \ #
# fond=FAUX \ #
# R=$xw1/RDNW.F. \ #
# $formatI #
# #
# genere $xT/RAYONS 0.04 0.04 #
# #
# $xrk/rdn_walk.21$X corps=$NcorpsS \ #
# np=$Nimages \ #
# LISTE_X=$xT/COORDONNEES$COORD_X \ #
# LISTE_Y=$xT/COORDONNEES$COORD_Y \ #
# LISTE_Z=$xT/COORDONNEES$COORD_Z \ #
# LISTE_VX=$xT/VITESSES$COORD_X \ #
# LISTE_VY=$xT/VITESSES$COORD_Y \ #
# LISTE_VZ=$xT/VITESSES$COORD_Z \ #
# LISTE_MINIMUM_DELTA_RHO=$xT/mdRHO \ #
# LISTE_MAXIMUM_DELTA_RHO=$xT/MdRHO \ #
# LISTE_MINIMUM_N_PHI=$xT/mnPHI \ #
# LISTE_MAXIMUM_N_PHI=$xT/MnPHI \ #
# LISTE_DELTA_PHI=$xT/dPHI \ #
# LISTE_MINIMUM_N_THETA=$xT/mnTHETA \ #
# LISTE_MAXIMUM_N_THETA=$xT/MnTHETA \ #
# LISTE_DELTA_THETA=$xT/dTHETA \ #
# LISTE_BORNE_INFERIEURE_DE_L_OUVERTURE=$xT/infOUVE \ #
# LISTE_BORNE_SUPERIEURE_DE_L_OUVERTURE=$xT/supOUVE \ #
# LISTE_DISTANCE_MAXIMALE=$xT/DISTANCE \ #
# LISTE_STABILITE=$xT/STABILITE \ #
# LISTE_RAYON=$xT/RAYONS \ #
# LISTE_ROUGE=$xT/COULEURS$ROUGE \ #
# LISTE_VERTE=$xT/COULEURS$VERTE \ #
# LISTE_BLEUE=$xT/COULEURS$BLEUE \ #
# force=VRAI \ #
# C=$xT/ANNEAU \ #
# NpasX=8 NpasY=8 NpasZ=1 \ #
# Chiffres=0 \ #
# Zmin=1 Zmax=16 \ #
# centrer=VRAI \ #
# dct=0.5 \ #
# nombre=1 \ #
# trainees=VRAI mode=1 \ #
# attenuation_des_images=1.0 \ #
# attenuation_des_trainees=0.85 \ #
# renormaliser=FAUX \ #
# Lz=100 \ #
# fond=VRAI \ #
# dynamique=VRAI \ #
# F=$xw1/RDNW.F. \ #
# R=$xw1/RDNW.F. \ #
# $formatI #
# #
# $DELETE $xT/COORDONNEES$COORD_X #
# $DELETE $xT/COORDONNEES$COORD_Y #
# $DELETE $xT/COORDONNEES$COORD_Z #
# $DELETE $xT/VITESSES #
# $DELETE $xT/VITESSES$COORD_X #
# $DELETE $xT/VITESSES$COORD_Y #
# $DELETE $xT/VITESSES$COORD_Z #
# $DELETE $xT/mdRHO #
# $DELETE $xT/MdRHO #
# $DELETE $xT/mnPHI #
# $DELETE $xT/MnPHI #
# $DELETE $xT/dPHI #
# $DELETE $xT/mnTHETA #
# $DELETE $xT/MnTHETA #
# $DELETE $xT/dTHETA #
# $DELETE $xT/infOUVE #
# $DELETE $xT/supOUVE #
# $DELETE $xT/DISTANCE #
# $DELETE $xT/STABILITE #
# $DELETE $xT/RAYONS #
# $DELETE $xT/COULEURS$ROUGE #
# $DELETE $xT/COULEURS$VERTE #
# $DELETE $xT/COULEURS$BLEUE #
# #
# $DELETE $xT/ANNEAU #
# #
# #
# Pal #
# #
# $xci/disk_video_P$Z $xw1/RDNW.F. 1 256 RVB \ #
# 9 1 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
# ATTENTION, les positions initiales des particules 'LISTE_[XYZ]=' ne prennent pas en #
# compte le parametre 'LISTE_STABILITE=', ce qui fait que les particules, au cours du #
# temps, ne se deplacent pas sur le reseau orthogonal definit par la stabilite, mais sur #
# le sous-reseau defini par le produit du module des vitesses par le pas de temps... #
# #
# ATTENTION, il y a un "dephasage" du au probleme de la visualisation des conditions #
# initiales (voir le parametre 'UN_TOUR_DE_PLUS'). #
sequence 002213_002419
sequence 002420_002724
# Generee (sur '$LACT27') par : #
# #
# set Nimages=512 #
# #
# set NcorpsS=64 #
# #
# alias genere 'set Fi=\!:1 ; set vD=\!:2 ; set vA=\!:3 ; set ArG=(\!:4*) ; \\ #
# $DELETE $Fi ; \\ #
# $xci/valeurs_inte$X premiere=1 derniere=$NcorpsS vD=$vD vA=$vA $ArG > $Fi ; \\ #
# unset Fi vD vA ArG' #
# alias genereR 'set Fi=\!:1 ; set In=\!:2 ; set Su=\!:3 ; set ArG=(\!:4*) ; \\ #
# $DELETE $Fi ; \\ #
# $xci/valeurs_alea$X p=1 d=$NcorpsS signe="$K_VIDE" inf=$In sup=$Su $ArG > $Fi ; \\ #
# unset Fi In Su ArG' #
# #
# genereR $xT/COORDONNEES$COORD_X -0.1 +0.1 multiple=VRAI unite=0.02 g=11 #
# genereR $xT/COORDONNEES$COORD_Y -0.1 +0.1 multiple=VRAI unite=0.02 g=12 #
# genereR $xT/COORDONNEES$COORD_Z 0.0 0.0 multiple=VRAI unite=0.02 g=13 #
# genereR $xT/VITESSES 1 5 entiers=VRAI g=21 #
# $DELETE $xT/VITESSES$COORD_X #
# $CA $xT/VITESSES \ #
# | $SE -e 's/^1$/+0.02/' -e 's/^2$/0/' -e 's/^3$/-0.02/' -e 's/^4$/0/' \ #
# > $xT/VITESSES$COORD_X #
# $DELETE $xT/VITESSES$COORD_Y #
# $CA $xT/VITESSES \ #
# | $SE -e 's/^1$/0/' -e 's/^2$/+0.02/' -e 's/^3$/0/' -e 's/^4$/-0.02/' \ #
# > $xT/VITESSES$COORD_Y #
# $DELETE $xT/VITESSES$COORD_Z #
# $CA $xT/VITESSES \ #
# | $SE -e 's/^1$/0/' -e 's/^2$/0/' -e 's/^3$/0/' -e 's/^4$/0/' \ #
# > $xT/VITESSES$COORD_Z #
# genere $xT/mdRHO 0.0 0.0 #
# genere $xT/MdRHO 0.0 0.0 #
# genere $xT/mnPHI -2 -2 #
# genere $xT/MnPHI +2 +2 #
# genere $xT/dPHI $pis2 $pis2 #
# genere $xT/mnTHETA 0 0 #
# genere $xT/MnTHETA 0 0 #
# genere $xT/dTHETA $pis2 $pis2 #
# genere $xT/DISTANCE 0.8 0.8 #
# genere $xT/STABILITE 4 4 #
# genere $xT/RAYONS 0.010 0.010 #
# genereR $xT/COULEURS$ROUGE $GRIS_2 $GRIS_8 entiers=VRAI g=31 #
# genereR $xT/COULEURS$VERTE $GRIS_2 $GRIS_8 entiers=VRAI g=32 #
# genereR $xT/COULEURS$BLEUE $GRIS_2 $GRIS_8 entiers=VRAI g=33 #
# #
# #
# Pal #
# #
# $xrk/rdn_walk.21$X corps=$NcorpsS \ #
# np=$Nimages \ #
# LISTE_X=$xT/COORDONNEES$COORD_X \ #
# LISTE_Y=$xT/COORDONNEES$COORD_Y \ #
# LISTE_Z=$xT/COORDONNEES$COORD_Z \ #
# LISTE_VX=$xT/VITESSES$COORD_X \ #
# LISTE_VY=$xT/VITESSES$COORD_Y \ #
# LISTE_VZ=$xT/VITESSES$COORD_Z \ #
# LISTE_MINIMUM_DELTA_RHO=$xT/mdRHO \ #
# LISTE_MAXIMUM_DELTA_RHO=$xT/MdRHO \ #
# LISTE_MINIMUM_N_PHI=$xT/mnPHI \ #
# LISTE_MAXIMUM_N_PHI=$xT/MnPHI \ #
# LISTE_DELTA_PHI=$xT/dPHI \ #
# LISTE_MINIMUM_N_THETA=$xT/mnTHETA \ #
# LISTE_MAXIMUM_N_THETA=$xT/MnTHETA \ #
# LISTE_DELTA_THETA=$xT/dTHETA \ #
# LISTE_DISTANCE_MAXIMALE=$xT/DISTANCE \ #
# LISTE_STABILITE=$xT/STABILITE \ #
# LISTE_RAYON=$xT/RAYONS \ #
# LISTE_ROUGE=$xT/COULEURS$ROUGE \ #
# LISTE_VERTE=$xT/COULEURS$VERTE \ #
# LISTE_BLEUE=$xT/COULEURS$BLEUE \ #
# centrer=VRAI \ #
# dct=0.5 \ #
# nombre=1 \ #
# trainees=VRAI mode=1 \ #
# attenuation_des_images=0.5 \ #
# attenuation_des_trainees=1.00 \ #
# renormaliser=FAUX \ #
# Lz=100 \ #
# fond=FAUX \ #
# R=$xw1/RDNW.G. \ #
# $formatI #
# #
# genere $xT/RAYONS 0.02 0.02 #
# #
# $xrk/rdn_walk.21$X corps=$NcorpsS \ #
# np=$Nimages \ #
# LISTE_X=$xT/COORDONNEES$COORD_X \ #
# LISTE_Y=$xT/COORDONNEES$COORD_Y \ #
# LISTE_Z=$xT/COORDONNEES$COORD_Z \ #
# LISTE_VX=$xT/VITESSES$COORD_X \ #
# LISTE_VY=$xT/VITESSES$COORD_Y \ #
# LISTE_VZ=$xT/VITESSES$COORD_Z \ #
# LISTE_MINIMUM_DELTA_RHO=$xT/mdRHO \ #
# LISTE_MAXIMUM_DELTA_RHO=$xT/MdRHO \ #
# LISTE_MINIMUM_N_PHI=$xT/mnPHI \ #
# LISTE_MAXIMUM_N_PHI=$xT/MnPHI \ #
# LISTE_DELTA_PHI=$xT/dPHI \ #
# LISTE_MINIMUM_N_THETA=$xT/mnTHETA \ #
# LISTE_MAXIMUM_N_THETA=$xT/MnTHETA \ #
# LISTE_DELTA_THETA=$xT/dTHETA \ #
# LISTE_DISTANCE_MAXIMALE=$xT/DISTANCE \ #
# LISTE_STABILITE=$xT/STABILITE \ #
# LISTE_RAYON=$xT/RAYONS \ #
# LISTE_ROUGE=$xT/COULEURS$ROUGE \ #
# LISTE_VERTE=$xT/COULEURS$VERTE \ #
# LISTE_BLEUE=$xT/COULEURS$BLEUE \ #
# centrer=VRAI \ #
# dct=0.5 \ #
# nombre=1 \ #
# trainees=VRAI mode=1 \ #
# attenuation_des_images=1.0 \ #
# attenuation_des_trainees=0.85 \ #
# renormaliser=FAUX \ #
# Lz=100 \ #
# fond=VRAI \ #
# dynamique=VRAI \ #
# F=$xw1/RDNW.G. \ #
# R=$xw1/RDNW.G. \ #
# $formatI #
# #
# $DELETE $xT/COORDONNEES$COORD_X #
# $DELETE $xT/COORDONNEES$COORD_Y #
# $DELETE $xT/COORDONNEES$COORD_Z #
# $DELETE $xT/VITESSES #
# $DELETE $xT/VITESSES$COORD_X #
# $DELETE $xT/VITESSES$COORD_Y #
# $DELETE $xT/VITESSES$COORD_Z #
# $DELETE $xT/mdRHO #
# $DELETE $xT/MdRHO #
# $DELETE $xT/mnPHI #
# $DELETE $xT/MnPHI #
# $DELETE $xT/dPHI #
# $DELETE $xT/mnTHETA #
# $DELETE $xT/MnTHETA #
# $DELETE $xT/dTHETA #
# $DELETE $xT/DISTANCE #
# $DELETE $xT/STABILITE #
# $DELETE $xT/RAYONS #
# $DELETE $xT/COULEURS$ROUGE #
# $DELETE $xT/COULEURS$VERTE #
# $DELETE $xT/COULEURS$BLEUE #
# #
# #
# Pal #
# #
# $xci/disk_video_P$Z $xw1/RDNW.G. 1 512 RVB \ #
# 9 1 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
# ATTENTION, cet enregistrement a du fait en deux fois a cause du fameux probleme #
# relatif au 'vswap', et donnant le message : #
# #
# WARNING: Frame transfer aborted: analog video input not locked #
# #
# ATTENTION, les positions initiales des particules 'LISTE_[XYZ]=' ne prennent pas en #
# compte le parametre 'LISTE_STABILITE=', ce qui fait que les particules, au cours du #
# temps, ne se deplacent pas sur le reseau orthogonal definit par la stabilite, mais sur #
# le sous-reseau defini par le produit du module des vitesses par le pas de temps... #
# #
# ATTENTION, il y a un "dephasage" du au probleme de la visualisation des conditions #
# initiales (voir le parametre 'UN_TOUR_DE_PLUS'). #
sequence 002725_003236
# Generee (sur '$LACT27') par : #
# #
# set Nimages=512 #
# #
# set NcorpsS=64 #
# #
# alias genere 'set Fi=\!:1 ; set vD=\!:2 ; set vA=\!:3 ; set ArG=(\!:4*) ; \\ #
# $DELETE $Fi ; \\ #
# $xci/valeurs_inte$X premiere=1 derniere=$NcorpsS vD=$vD vA=$vA $ArG > $Fi ; \\ #
# unset Fi vD vA ArG' #
# alias genereR 'set Fi=\!:1 ; set In=\!:2 ; set Su=\!:3 ; set ArG=(\!:4*) ; \\ #
# $DELETE $Fi ; \\ #
# $xci/valeurs_alea$X p=1 d=$NcorpsS signe="$K_VIDE" inf=$In sup=$Su $ArG > $Fi ; \\ #
# unset Fi In Su ArG' #
# #
# genereR $xT/COORDONNEES$COORD_X -0.1 +0.1 multiple=VRAI unite=0.02 g=11 #
# genereR $xT/COORDONNEES$COORD_Y -0.1 +0.1 multiple=VRAI unite=0.02 g=12 #
# genereR $xT/COORDONNEES$COORD_Z 0.0 0.0 multiple=VRAI unite=0.02 g=13 #
# genereR $xT/VITESSES 1 5 entiers=VRAI g=21 #
# $DELETE $xT/VITESSES$COORD_X #
# $CA $xT/VITESSES \ #
# | $SE -e 's/^1$/+0.02/' -e 's/^2$/0/' -e 's/^3$/-0.02/' -e 's/^4$/0/' \ #
# > $xT/VITESSES$COORD_X #
# $DELETE $xT/VITESSES$COORD_Y #
# $CA $xT/VITESSES \ #
# | $SE -e 's/^1$/0/' -e 's/^2$/+0.02/' -e 's/^3$/0/' -e 's/^4$/-0.02/' \ #
# > $xT/VITESSES$COORD_Y #
# $DELETE $xT/VITESSES$COORD_Z #
# $CA $xT/VITESSES \ #
# | $SE -e 's/^1$/0/' -e 's/^2$/0/' -e 's/^3$/0/' -e 's/^4$/0/' \ #
# > $xT/VITESSES$COORD_Z #
# genere $xT/mdRHO 0.0 0.0 #
# genere $xT/MdRHO 0.0 0.0 #
# genere $xT/mnPHI -2 -2 #
# genere $xT/MnPHI +2 +2 #
# genere $xT/dPHI $pis2 $pis2 #
# genere $xT/mnTHETA 0 0 #
# genere $xT/MnTHETA 0 0 #
# genere $xT/dTHETA $pis2 $pis2 #
# genere $xT/infOUVE 0.0 0.0 #
# genere $xT/supOUVE $pis2 $pis2 #
# genere $xT/DISTANCE 0.8 0.8 #
# genere $xT/STABILITE 4 4 #
# genere $xT/RAYONS 0.010 0.010 #
# genereR $xT/COULEURS$ROUGE $GRIS_2 $GRIS_8 entiers=VRAI g=31 #
# genereR $xT/COULEURS$VERTE $GRIS_2 $GRIS_8 entiers=VRAI g=32 #
# genereR $xT/COULEURS$BLEUE $GRIS_2 $GRIS_8 entiers=VRAI g=33 #
# #
# Std #
# #
# $xci/substitue$X A=$xiio/GAUSS.8110 \ #
# p=$xiP/abso.11 \ #
# substitution=L_SUBSTITUTION_ROUGE \ #
# $formatI | \ #
# $xci/complement$X \ #
# R=$xT/ANNEAU \ #
# $formatI #
# $xci/multi_02.01$X A1=$xT/ANNEAU \ #
# A2=$xT/ANNEAU \ #
# $formatI | \ #
# $xci/format.01$X \ #
# mode=0 \ #
# $formatI \ #
# R=$xT/ANNEAU \ #
# $formatR_Pal #
# #
# #
# Pal #
# #
# $xrk/rdn_walk.21$X corps=$NcorpsS \ #
# np=$Nimages \ #
# LISTE_X=$xT/COORDONNEES$COORD_X \ #
# LISTE_Y=$xT/COORDONNEES$COORD_Y \ #
# LISTE_Z=$xT/COORDONNEES$COORD_Z \ #
# LISTE_VX=$xT/VITESSES$COORD_X \ #
# LISTE_VY=$xT/VITESSES$COORD_Y \ #
# LISTE_VZ=$xT/VITESSES$COORD_Z \ #
# LISTE_MINIMUM_DELTA_RHO=$xT/mdRHO \ #
# LISTE_MAXIMUM_DELTA_RHO=$xT/MdRHO \ #
# LISTE_MINIMUM_N_PHI=$xT/mnPHI \ #
# LISTE_MAXIMUM_N_PHI=$xT/MnPHI \ #
# LISTE_DELTA_PHI=$xT/dPHI \ #
# LISTE_MINIMUM_N_THETA=$xT/mnTHETA \ #
# LISTE_MAXIMUM_N_THETA=$xT/MnTHETA \ #
# LISTE_DELTA_THETA=$xT/dTHETA \ #
# LISTE_BORNE_INFERIEURE_DE_L_OUVERTURE=$xT/infOUVE \ #
# LISTE_BORNE_SUPERIEURE_DE_L_OUVERTURE=$xT/supOUVE \ #
# LISTE_DISTANCE_MAXIMALE=$xT/DISTANCE \ #
# LISTE_STABILITE=$xT/STABILITE \ #
# LISTE_RAYON=$xT/RAYONS \ #
# LISTE_ROUGE=$xT/COULEURS$ROUGE \ #
# LISTE_VERTE=$xT/COULEURS$VERTE \ #
# LISTE_BLEUE=$xT/COULEURS$BLEUE \ #
# force=VRAI \ #
# C=$xT/ANNEAU \ #
# NpasX=8 NpasY=8 NpasZ=1 \ #
# Chiffres=0 \ #
# Zmin=1 Zmax=16 \ #
# centrer=VRAI \ #
# dct=0.5 \ #
# nombre=1 \ #
# trainees=VRAI mode=1 \ #
# attenuation_des_images=0.5 \ #
# attenuation_des_trainees=1.00 \ #
# renormaliser=FAUX \ #
# Lz=100 \ #
# fond=FAUX \ #
# R=$xw1/RDNW.H. \ #
# $formatI #
# #
# genere $xT/RAYONS 0.02 0.02 #
# #
# $xrk/rdn_walk.21$X corps=$NcorpsS \ #
# np=$Nimages \ #
# LISTE_X=$xT/COORDONNEES$COORD_X \ #
# LISTE_Y=$xT/COORDONNEES$COORD_Y \ #
# LISTE_Z=$xT/COORDONNEES$COORD_Z \ #
# LISTE_VX=$xT/VITESSES$COORD_X \ #
# LISTE_VY=$xT/VITESSES$COORD_Y \ #
# LISTE_VZ=$xT/VITESSES$COORD_Z \ #
# LISTE_MINIMUM_DELTA_RHO=$xT/mdRHO \ #
# LISTE_MAXIMUM_DELTA_RHO=$xT/MdRHO \ #
# LISTE_MINIMUM_N_PHI=$xT/mnPHI \ #
# LISTE_MAXIMUM_N_PHI=$xT/MnPHI \ #
# LISTE_DELTA_PHI=$xT/dPHI \ #
# LISTE_MINIMUM_N_THETA=$xT/mnTHETA \ #
# LISTE_MAXIMUM_N_THETA=$xT/MnTHETA \ #
# LISTE_DELTA_THETA=$xT/dTHETA \ #
# LISTE_BORNE_INFERIEURE_DE_L_OUVERTURE=$xT/infOUVE \ #
# LISTE_BORNE_SUPERIEURE_DE_L_OUVERTURE=$xT/supOUVE \ #
# LISTE_DISTANCE_MAXIMALE=$xT/DISTANCE \ #
# LISTE_STABILITE=$xT/STABILITE \ #
# LISTE_RAYON=$xT/RAYONS \ #
# LISTE_ROUGE=$xT/COULEURS$ROUGE \ #
# LISTE_VERTE=$xT/COULEURS$VERTE \ #
# LISTE_BLEUE=$xT/COULEURS$BLEUE \ #
# force=VRAI \ #
# C=$xT/ANNEAU \ #
# NpasX=8 NpasY=8 NpasZ=1 \ #
# Chiffres=0 \ #
# Zmin=1 Zmax=16 \ #
# centrer=VRAI \ #
# dct=0.5 \ #
# nombre=1 \ #
# trainees=VRAI mode=1 \ #
# attenuation_des_images=1.0 \ #
# attenuation_des_trainees=0.85 \ #
# renormaliser=FAUX \ #
# Lz=100 \ #
# fond=VRAI \ #
# dynamique=VRAI \ #
# F=$xw1/RDNW.H. \ #
# R=$xw1/RDNW.H. \ #
# $formatI #
# #
# $DELETE $xT/COORDONNEES$COORD_X #
# $DELETE $xT/COORDONNEES$COORD_Y #
# $DELETE $xT/COORDONNEES$COORD_Z #
# $DELETE $xT/VITESSES #
# $DELETE $xT/VITESSES$COORD_X #
# $DELETE $xT/VITESSES$COORD_Y #
# $DELETE $xT/VITESSES$COORD_Z #
# $DELETE $xT/mdRHO #
# $DELETE $xT/MdRHO #
# $DELETE $xT/mnPHI #
# $DELETE $xT/MnPHI #
# $DELETE $xT/dPHI #
# $DELETE $xT/mnTHETA #
# $DELETE $xT/MnTHETA #
# $DELETE $xT/dTHETA #
# $DELETE $xT/infOUVE #
# $DELETE $xT/supOUVE #
# $DELETE $xT/DISTANCE #
# $DELETE $xT/STABILITE #
# $DELETE $xT/RAYONS #
# $DELETE $xT/COULEURS$ROUGE #
# $DELETE $xT/COULEURS$VERTE #
# $DELETE $xT/COULEURS$BLEUE #
# #
# $DELETE $xT/ANNEAU #
# #
# #
# Pal #
# #
# $xci/disk_video_P$Z $xw1/RDNW.H. 1 512 RVB \ #
# 9 1 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
# ATTENTION, les positions initiales des particules 'LISTE_[XYZ]=' ne prennent pas en #
# compte le parametre 'LISTE_STABILITE=', ce qui fait que les particules, au cours du #
# temps, ne se deplacent pas sur le reseau orthogonal definit par la stabilite, mais sur #
# le sous-reseau defini par le produit du module des vitesses par le pas de temps... #
# #
# ATTENTION, il y a un "dephasage" du au probleme de la visualisation des conditions #
# initiales (voir le parametre 'UN_TOUR_DE_PLUS'). #
# #
# ATTENTION, on voit nettement se dessiner une croix orientee a pi/4. Ce phenomene est #
# explique dans les commentaires relatifs a 'prendre_la_premiere_direction_trouvee' dans #
# '$xrk/rdn_walk.21$K'. #
sequence 003237_003748
# Generee (sur '$LACT28') par : #
# #
# set Nimages=512 #
# set NimageZ=1 #
# #
# set NcorpsS=64 #
# #
# alias genere 'set Fi=\!:1 ; set vD=\!:2 ; set vA=\!:3 ; set ArG=(\!:4*) ; \\ #
# $DELETE $Fi ; \\ #
# $xci/valeurs_inte$X premiere=1 derniere=$NcorpsS vD=$vD vA=$vA $ArG > $Fi ; \\ #
# unset Fi vD vA ArG' #
# alias genereR 'set Fi=\!:1 ; set In=\!:2 ; set Su=\!:3 ; set ArG=(\!:4*) ; \\ #
# $DELETE $Fi ; \\ #
# $xci/valeurs_alea$X p=1 d=$NcorpsS signe="$K_VIDE" inf=$In sup=$Su $ArG > $Fi ; \\ #
# unset Fi In Su ArG' #
# #
# genere $xT/COORDONNEES$COORD_X 0.0 0.0 #
# genere $xT/COORDONNEES$COORD_Y 0.0 0.0 #
# genere $xT/COORDONNEES$COORD_Z 0.0 0.0 #
# genereR $xT/VITESSES 1 5 entiers=VRAI g=21 #
# $DELETE $xT/VITESSES$COORD_X #
# $CA $xT/VITESSES \ #
# | $SE -e 's/^1$/+0.02/' -e 's/^2$/0/' -e 's/^3$/-0.02/' -e 's/^4$/0/' \ #
# > $xT/VITESSES$COORD_X #
# $DELETE $xT/VITESSES$COORD_Y #
# $CA $xT/VITESSES \ #
# | $SE -e 's/^1$/0/' -e 's/^2$/+0.02/' -e 's/^3$/0/' -e 's/^4$/-0.02/' \ #
# > $xT/VITESSES$COORD_Y #
# $DELETE $xT/VITESSES$COORD_Z #
# $CA $xT/VITESSES \ #
# | $SE -e 's/^1$/0/' -e 's/^2$/0/' -e 's/^3$/0/' -e 's/^4$/0/' \ #
# > $xT/VITESSES$COORD_Z #
# genere $xT/mdRHO 0.0 0.0 #
# genere $xT/MdRHO 0.0 0.0 #
# genere $xT/mnPHI -2 -2 #
# genere $xT/MnPHI +2 +2 #
# genere $xT/dPHI $pis2 $pis2 #
# genere $xT/mnTHETA 0 0 #
# genere $xT/MnTHETA 0 0 #
# genere $xT/dTHETA $pis2 $pis2 #
# genere $xT/DISTANCE 1000000 1000000 #
# genere $xT/STABILITE 4 4 #
# genere $xT/RAYONS 0.010 0.010 #
# genereR $xT/COULEURS$ROUGE $GRIS_2 $GRIS_8 entiers=VRAI g=31 #
# genereR $xT/COULEURS$VERTE $GRIS_2 $GRIS_8 entiers=VRAI g=32 #
# genereR $xT/COULEURS$BLEUE $GRIS_2 $GRIS_8 entiers=VRAI g=33 #
# #
# #
# Pal #
# #
# $xrk/rdn_walk.21$X corps=$NcorpsS \ #
# np=$Nimages \ #
# LISTE_X=$xT/COORDONNEES$COORD_X \ #
# LISTE_Y=$xT/COORDONNEES$COORD_Y \ #
# LISTE_Z=$xT/COORDONNEES$COORD_Z \ #
# LISTE_VX=$xT/VITESSES$COORD_X \ #
# LISTE_VY=$xT/VITESSES$COORD_Y \ #
# LISTE_VZ=$xT/VITESSES$COORD_Z \ #
# LISTE_MINIMUM_DELTA_RHO=$xT/mdRHO \ #
# LISTE_MAXIMUM_DELTA_RHO=$xT/MdRHO \ #
# LISTE_MINIMUM_N_PHI=$xT/mnPHI \ #
# LISTE_MAXIMUM_N_PHI=$xT/MnPHI \ #
# LISTE_DELTA_PHI=$xT/dPHI \ #
# LISTE_MINIMUM_N_THETA=$xT/mnTHETA \ #
# LISTE_MAXIMUM_N_THETA=$xT/MnTHETA \ #
# LISTE_DELTA_THETA=$xT/dTHETA \ #
# LISTE_DISTANCE_MAXIMALE=$xT/DISTANCE \ #
# LISTE_STABILITE=$xT/STABILITE \ #
# LISTE_RAYON=$xT/RAYONS \ #
# LISTE_ROUGE=$xT/COULEURS$ROUGE \ #
# LISTE_VERTE=$xT/COULEURS$VERTE \ #
# LISTE_BLEUE=$xT/COULEURS$BLEUE \ #
# centrer=VRAI \ #
# dct=0.5 \ #
# nombre=1 \ #
# trainees=VRAI mode=1 \ #
# attenuation_des_images=0.5 \ #
# attenuation_des_trainees=1.00 \ #
# renormaliser=FAUX \ #
# Lz=100 \ #
# fond=FAUX \ #
# R=$xw1/RDNW.I. \ #
# $formatI #
# #
# genere $xT/RAYONS 0.02 0.02 #
# #
# $xrk/rdn_walk.21$X corps=$NcorpsS \ #
# np=$Nimages \ #
# LISTE_X=$xT/COORDONNEES$COORD_X \ #
# LISTE_Y=$xT/COORDONNEES$COORD_Y \ #
# LISTE_Z=$xT/COORDONNEES$COORD_Z \ #
# LISTE_VX=$xT/VITESSES$COORD_X \ #
# LISTE_VY=$xT/VITESSES$COORD_Y \ #
# LISTE_VZ=$xT/VITESSES$COORD_Z \ #
# LISTE_MINIMUM_DELTA_RHO=$xT/mdRHO \ #
# LISTE_MAXIMUM_DELTA_RHO=$xT/MdRHO \ #
# LISTE_MINIMUM_N_PHI=$xT/mnPHI \ #
# LISTE_MAXIMUM_N_PHI=$xT/MnPHI \ #
# LISTE_DELTA_PHI=$xT/dPHI \ #
# LISTE_MINIMUM_N_THETA=$xT/mnTHETA \ #
# LISTE_MAXIMUM_N_THETA=$xT/MnTHETA \ #
# LISTE_DELTA_THETA=$xT/dTHETA \ #
# LISTE_DISTANCE_MAXIMALE=$xT/DISTANCE \ #
# LISTE_STABILITE=$xT/STABILITE \ #
# LISTE_RAYON=$xT/RAYONS \ #
# LISTE_ROUGE=$xT/COULEURS$ROUGE \ #
# LISTE_VERTE=$xT/COULEURS$VERTE \ #
# LISTE_BLEUE=$xT/COULEURS$BLEUE \ #
# centrer=VRAI \ #
# dct=0.5 \ #
# nombre=1 \ #
# trainees=VRAI mode=1 \ #
# attenuation_des_images=1.0 \ #
# attenuation_des_trainees=0.85 \ #
# renormaliser=FAUX \ #
# Lz=100 \ #
# fond=VRAI \ #
# dynamique=VRAI \ #
# F=$xw1/RDNW.I. \ #
# R=$xw1/RDNW.I. \ #
# $formatI #
# #
# $DELETE $xT/COORDONNEES$COORD_X #
# $DELETE $xT/COORDONNEES$COORD_Y #
# $DELETE $xT/COORDONNEES$COORD_Z #
# $DELETE $xT/VITESSES #
# $DELETE $xT/VITESSES$COORD_X #
# $DELETE $xT/VITESSES$COORD_Y #
# $DELETE $xT/VITESSES$COORD_Z #
# $DELETE $xT/mdRHO #
# $DELETE $xT/MdRHO #
# $DELETE $xT/mnPHI #
# $DELETE $xT/MnPHI #
# $DELETE $xT/dPHI #
# $DELETE $xT/mnTHETA #
# $DELETE $xT/MnTHETA #
# $DELETE $xT/dTHETA #
# $DELETE $xT/DISTANCE #
# $DELETE $xT/STABILITE #
# $DELETE $xT/RAYONS #
# $DELETE $xT/COULEURS$ROUGE #
# $DELETE $xT/COULEURS$VERTE #
# $DELETE $xT/COULEURS$BLEUE #
# #
# #
# ATTENTION, si '$xci/reduction_16$Z' et/ou '$xci/reduction_64$Z' doivent avoir lieu, c'est #
# a ce niveau qu'ils doivent etre executes, c'est-a-dire avant le numerotage... #
# #
# #
# $xci/genere$X premiere=$NimageZ derniere=$Nimages pas=1 \ #
# C='@ Temps = %d - $NimageZ ; #
# set Temps=`$xci/nombres$X premiere=$Temps derniere=$Temps chiffres=3` ; #
# $xci/titre$X \ #
# A=$xw1/RDNW.I.%04d$ROUGE \ #
# titre=$Temps \ #
# anti_aliasing=VRAI \ #
# R=$xw1/RDNW.I.%04d$ROUGE \ #
# $formatI' #
# $xci/genere$X premiere=$NimageZ derniere=$Nimages pas=1 \ #
# C='@ Temps = %d - $NimageZ ; #
# set Temps=`$xci/nombres$X premiere=$Temps derniere=$Temps chiffres=3` ; #
# $xci/titre$X \ #
# A=$xw1/RDNW.I.%04d$VERTE \ #
# titre=$Temps \ #
# anti_aliasing=VRAI \ #
# R=$xw1/RDNW.I.%04d$VERTE \ #
# $formatI' #
# $xci/genere$X premiere=$NimageZ derniere=$Nimages pas=1 \ #
# C='@ Temps = %d - $NimageZ ; #
# set Temps=`$xci/nombres$X premiere=$Temps derniere=$Temps chiffres=3` ; #
# $xci/titre$X \ #
# A=$xw1/RDNW.I.%04d$BLEUE \ #
# titre=$Temps \ #
# anti_aliasing=VRAI \ #
# R=$xw1/RDNW.I.%04d$BLEUE \ #
# $formatI' #
# #
# #
# Pal #
# #
# $xci/disk_video_P$Z $xw1/RDNW.I. 1 512 RVB \ #
# 9 1 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
sequence 003749_003763
sequence 003764_004275
# Generee (sur '$LACT28') par : #
# #
# set Nimages=512 #
# set NimageZ=1 #
# #
# set NcorpsS=64 #
# #
# alias genere 'set Fi=\!:1 ; set vD=\!:2 ; set vA=\!:3 ; set ArG=(\!:4*) ; \\ #
# $DELETE $Fi ; \\ #
# $xci/valeurs_inte$X premiere=1 derniere=$NcorpsS vD=$vD vA=$vA $ArG > $Fi ; \\ #
# unset Fi vD vA ArG' #
# alias genereR 'set Fi=\!:1 ; set In=\!:2 ; set Su=\!:3 ; set ArG=(\!:4*) ; \\ #
# $DELETE $Fi ; \\ #
# $xci/valeurs_alea$X p=1 d=$NcorpsS signe="$K_VIDE" inf=$In sup=$Su $ArG > $Fi ; \\ #
# unset Fi In Su ArG' #
# #
# genere $xT/COORDONNEES$COORD_X 0.0 0.0 #
# genere $xT/COORDONNEES$COORD_Y 0.0 0.0 #
# genere $xT/COORDONNEES$COORD_Z 0.0 0.0 #
# genereR $xT/VITESSES 1 5 entiers=VRAI g=21 #
# $DELETE $xT/VITESSES$COORD_X #
# $CA $xT/VITESSES \ #
# | $SE -e 's/^1$/+0.02/' -e 's/^2$/0/' -e 's/^3$/-0.02/' -e 's/^4$/0/' \ #
# > $xT/VITESSES$COORD_X #
# $DELETE $xT/VITESSES$COORD_Y #
# $CA $xT/VITESSES \ #
# | $SE -e 's/^1$/0/' -e 's/^2$/+0.02/' -e 's/^3$/0/' -e 's/^4$/-0.02/' \ #
# > $xT/VITESSES$COORD_Y #
# $DELETE $xT/VITESSES$COORD_Z #
# $CA $xT/VITESSES \ #
# | $SE -e 's/^1$/0/' -e 's/^2$/0/' -e 's/^3$/0/' -e 's/^4$/0/' \ #
# > $xT/VITESSES$COORD_Z #
# genere $xT/mdRHO 0.0 0.0 #
# genere $xT/MdRHO 0.0 0.0 #
# genere $xT/mnPHI -2 -2 #
# genere $xT/MnPHI +2 +2 #
# genere $xT/dPHI $pis2 $pis2 #
# genere $xT/mnTHETA 0 0 #
# genere $xT/MnTHETA 0 0 #
# genere $xT/dTHETA $pis2 $pis2 #
# genere $xT/DISTANCE 1000000 1000000 #
# genere $xT/STABILITE 4 4 #
# genere $xT/RAYONS 0.014 0.014 #
# genereR $xT/COULEURS$ROUGE $GRIS_2 $GRIS_8 entiers=VRAI g=31 #
# genereR $xT/COULEURS$VERTE $GRIS_2 $GRIS_8 entiers=VRAI g=32 #
# genereR $xT/COULEURS$BLEUE $GRIS_2 $GRIS_8 entiers=VRAI g=33 #
# #
# #
# Pal #
# #
# $xrk/rdn_walk.21$X corps=$NcorpsS \ #
# np=$Nimages \ #
# LISTE_X=$xT/COORDONNEES$COORD_X \ #
# LISTE_Y=$xT/COORDONNEES$COORD_Y \ #
# LISTE_Z=$xT/COORDONNEES$COORD_Z \ #
# LISTE_VX=$xT/VITESSES$COORD_X \ #
# LISTE_VY=$xT/VITESSES$COORD_Y \ #
# LISTE_VZ=$xT/VITESSES$COORD_Z \ #
# LISTE_MINIMUM_DELTA_RHO=$xT/mdRHO \ #
# LISTE_MAXIMUM_DELTA_RHO=$xT/MdRHO \ #
# LISTE_MINIMUM_N_PHI=$xT/mnPHI \ #
# LISTE_MAXIMUM_N_PHI=$xT/MnPHI \ #
# LISTE_DELTA_PHI=$xT/dPHI \ #
# LISTE_MINIMUM_N_THETA=$xT/mnTHETA \ #
# LISTE_MAXIMUM_N_THETA=$xT/MnTHETA \ #
# LISTE_DELTA_THETA=$xT/dTHETA \ #
# LISTE_DISTANCE_MAXIMALE=$xT/DISTANCE \ #
# LISTE_STABILITE=$xT/STABILITE \ #
# LISTE_RAYON=$xT/RAYONS \ #
# LISTE_ROUGE=$xT/COULEURS$ROUGE \ #
# LISTE_VERTE=$xT/COULEURS$VERTE \ #
# LISTE_BLEUE=$xT/COULEURS$BLEUE \ #
# centrer=VRAI \ #
# dct=0.5 \ #
# nombre=1 \ #
# trainees=VRAI mode=1 \ #
# attenuation_des_images=0.5 \ #
# attenuation_des_trainees=1.00 \ #
# renormaliser=FAUX \ #
# Lz=100 \ #
# zoom_automatique=VRAI \ #
# fond=FAUX \ #
# R=$xw1/RDNW.J. \ #
# $formatI #
# #
# genere $xT/RAYONS 0.03 0.03 #
# #
# $xrk/rdn_walk.21$X corps=$NcorpsS \ #
# np=$Nimages \ #
# LISTE_X=$xT/COORDONNEES$COORD_X \ #
# LISTE_Y=$xT/COORDONNEES$COORD_Y \ #
# LISTE_Z=$xT/COORDONNEES$COORD_Z \ #
# LISTE_VX=$xT/VITESSES$COORD_X \ #
# LISTE_VY=$xT/VITESSES$COORD_Y \ #
# LISTE_VZ=$xT/VITESSES$COORD_Z \ #
# LISTE_MINIMUM_DELTA_RHO=$xT/mdRHO \ #
# LISTE_MAXIMUM_DELTA_RHO=$xT/MdRHO \ #
# LISTE_MINIMUM_N_PHI=$xT/mnPHI \ #
# LISTE_MAXIMUM_N_PHI=$xT/MnPHI \ #
# LISTE_DELTA_PHI=$xT/dPHI \ #
# LISTE_MINIMUM_N_THETA=$xT/mnTHETA \ #
# LISTE_MAXIMUM_N_THETA=$xT/MnTHETA \ #
# LISTE_DELTA_THETA=$xT/dTHETA \ #
# LISTE_DISTANCE_MAXIMALE=$xT/DISTANCE \ #
# LISTE_STABILITE=$xT/STABILITE \ #
# LISTE_RAYON=$xT/RAYONS \ #
# LISTE_ROUGE=$xT/COULEURS$ROUGE \ #
# LISTE_VERTE=$xT/COULEURS$VERTE \ #
# LISTE_BLEUE=$xT/COULEURS$BLEUE \ #
# centrer=VRAI \ #
# dct=0.5 \ #
# nombre=1 \ #
# trainees=VRAI mode=1 \ #
# attenuation_des_images=1.0 \ #
# attenuation_des_trainees=0.85 \ #
# renormaliser=FAUX \ #
# Lz=100 \ #
# zoom_automatique=VRAI \ #
# fond=VRAI \ #
# dynamique=VRAI \ #
# F=$xw1/RDNW.J. \ #
# R=$xw1/RDNW.J. \ #
# $formatI #
# #
# $DELETE $xT/COORDONNEES$COORD_X #
# $DELETE $xT/COORDONNEES$COORD_Y #
# $DELETE $xT/COORDONNEES$COORD_Z #
# $DELETE $xT/VITESSES #
# $DELETE $xT/VITESSES$COORD_X #
# $DELETE $xT/VITESSES$COORD_Y #
# $DELETE $xT/VITESSES$COORD_Z #
# $DELETE $xT/mdRHO #
# $DELETE $xT/MdRHO #
# $DELETE $xT/mnPHI #
# $DELETE $xT/MnPHI #
# $DELETE $xT/dPHI #
# $DELETE $xT/mnTHETA #
# $DELETE $xT/MnTHETA #
# $DELETE $xT/dTHETA #
# $DELETE $xT/DISTANCE #
# $DELETE $xT/STABILITE #
# $DELETE $xT/RAYONS #
# $DELETE $xT/COULEURS$ROUGE #
# $DELETE $xT/COULEURS$VERTE #
# $DELETE $xT/COULEURS$BLEUE #
# #
# #
# Pal #
# #
# $xci/reduction_16$Z $xw1/RDNW.J. $xiak/RDNW.51 1 32 #
# $xci/reduction_64$Z $xw1/RDNW.J. $xiak/RDNW.51 1 8 #
# #
# $CP $xw1/RDNW.J.0512$ROUGE $xiirk/RDNW.51.0512$ROUGE #
# $CP $xw1/RDNW.J.0512$VERTE $xiirk/RDNW.51.0512$VERTE #
# $CP $xw1/RDNW.J.0512$BLEUE $xiirk/RDNW.51.0512$BLEUE #
# #
# #
# $xci/genere$X premiere=$NimageZ derniere=$Nimages pas=1 \ #
# C='@ Temps = %d - $NimageZ ; #
# set Temps=`$xci/nombres$X premiere=$Temps derniere=$Temps chiffres=3` ; #
# $xci/titre$X \ #
# A=$xw1/RDNW.J.%04d$ROUGE \ #
# titre=$Temps \ #
# anti_aliasing=VRAI \ #
# R=$xw1/RDNW.J.%04d$ROUGE \ #
# $formatI' #
# $xci/genere$X premiere=$NimageZ derniere=$Nimages pas=1 \ #
# C='@ Temps = %d - $NimageZ ; #
# set Temps=`$xci/nombres$X premiere=$Temps derniere=$Temps chiffres=3` ; #
# $xci/titre$X \ #
# A=$xw1/RDNW.J.%04d$VERTE \ #
# titre=$Temps \ #
# anti_aliasing=VRAI \ #
# R=$xw1/RDNW.J.%04d$VERTE \ #
# $formatI' #
# $xci/genere$X premiere=$NimageZ derniere=$Nimages pas=1 \ #
# C='@ Temps = %d - $NimageZ ; #
# set Temps=`$xci/nombres$X premiere=$Temps derniere=$Temps chiffres=3` ; #
# $xci/titre$X \ #
# A=$xw1/RDNW.J.%04d$BLEUE \ #
# titre=$Temps \ #
# anti_aliasing=VRAI \ #
# R=$xw1/RDNW.J.%04d$BLEUE \ #
# $formatI' #
# #
# #
# Pal #
# #
# $xci/disk_video_P$Z $xw1/RDNW.J. 1 512 RVB \ #
# 9 1 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
sequence 004276_004787
# Generee (sur '$LACT28') par : #
# #
# set Nimages=512 #
# set NimageZ=1 #
# #
# set NcorpsS=64 #
# #
# alias genere 'set Fi=\!:1 ; set vD=\!:2 ; set vA=\!:3 ; set ArG=(\!:4*) ; \\ #
# $DELETE $Fi ; \\ #
# $xci/valeurs_inte$X premiere=1 derniere=$NcorpsS vD=$vD vA=$vA $ArG > $Fi ; \\ #
# unset Fi vD vA ArG' #
# alias genereR 'set Fi=\!:1 ; set In=\!:2 ; set Su=\!:3 ; set ArG=(\!:4*) ; \\ #
# $DELETE $Fi ; \\ #
# $xci/valeurs_alea$X p=1 d=$NcorpsS signe="$K_VIDE" inf=$In sup=$Su $ArG > $Fi ; \\ #
# unset Fi In Su ArG' #
# #
# genere $xT/COORDONNEES$COORD_X 0.0 0.0 #
# genere $xT/COORDONNEES$COORD_Y 0.0 0.0 #
# genere $xT/COORDONNEES$COORD_Z 0.0 0.0 #
# genereR $xT/VITESSES 1 5 entiers=VRAI g=21 #
# $DELETE $xT/VITESSES$COORD_X #
# $CA $xT/VITESSES \ #
# | $SE -e 's/^1$/+0.02/' -e 's/^2$/0/' -e 's/^3$/-0.02/' -e 's/^4$/0/' \ #
# > $xT/VITESSES$COORD_X #
# $DELETE $xT/VITESSES$COORD_Y #
# $CA $xT/VITESSES \ #
# | $SE -e 's/^1$/0/' -e 's/^2$/+0.02/' -e 's/^3$/0/' -e 's/^4$/-0.02/' \ #
# > $xT/VITESSES$COORD_Y #
# $DELETE $xT/VITESSES$COORD_Z #
# $CA $xT/VITESSES \ #
# | $SE -e 's/^1$/0/' -e 's/^2$/0/' -e 's/^3$/0/' -e 's/^4$/0/' \ #
# > $xT/VITESSES$COORD_Z #
# genere $xT/mdRHO 0.0 0.0 #
# genere $xT/MdRHO 0.0 0.0 #
# genere $xT/mnPHI -2 -2 #
# genere $xT/MnPHI +2 +2 #
# genere $xT/dPHI $pis2 $pis2 #
# genere $xT/mnTHETA 0 0 #
# genere $xT/MnTHETA 0 0 #
# genere $xT/dTHETA $pis2 $pis2 #
# genere $xT/infOUVE 0.0 0.0 #
# genere $xT/supOUVE $pi $pi #
# genere $xT/DISTANCE 1000000 1000000 #
# genere $xT/STABILITE 4 4 #
# genere $xT/RAYONS 0.014 0.014 #
# genereR $xT/COULEURS$ROUGE $GRIS_2 $GRIS_8 entiers=VRAI g=31 #
# genereR $xT/COULEURS$VERTE $GRIS_2 $GRIS_8 entiers=VRAI g=32 #
# genereR $xT/COULEURS$BLEUE $GRIS_2 $GRIS_8 entiers=VRAI g=33 #
# #
# Std #
# #
# $xci/format.01$X A=$xiio/MIRE \ #
# mode=0 \ #
# $formatI \ #
# R=$xT/MIRE \ #
# $formatR_Pal #
# #
# #
# Pal #
# #
# $xrk/rdn_walk.21$X corps=$NcorpsS \ #
# np=$Nimages \ #
# LISTE_X=$xT/COORDONNEES$COORD_X \ #
# LISTE_Y=$xT/COORDONNEES$COORD_Y \ #
# LISTE_Z=$xT/COORDONNEES$COORD_Z \ #
# LISTE_VX=$xT/VITESSES$COORD_X \ #
# LISTE_VY=$xT/VITESSES$COORD_Y \ #
# LISTE_VZ=$xT/VITESSES$COORD_Z \ #
# LISTE_MINIMUM_DELTA_RHO=$xT/mdRHO \ #
# LISTE_MAXIMUM_DELTA_RHO=$xT/MdRHO \ #
# LISTE_MINIMUM_N_PHI=$xT/mnPHI \ #
# LISTE_MAXIMUM_N_PHI=$xT/MnPHI \ #
# LISTE_DELTA_PHI=$xT/dPHI \ #
# LISTE_MINIMUM_N_THETA=$xT/mnTHETA \ #
# LISTE_MAXIMUM_N_THETA=$xT/MnTHETA \ #
# LISTE_DELTA_THETA=$xT/dTHETA \ #
# LISTE_BORNE_INFERIEURE_DE_L_OUVERTURE=$xT/infOUVE \ #
# LISTE_BORNE_SUPERIEURE_DE_L_OUVERTURE=$xT/supOUVE \ #
# LISTE_DISTANCE_MAXIMALE=$xT/DISTANCE \ #
# LISTE_STABILITE=$xT/STABILITE \ #
# LISTE_RAYON=$xT/RAYONS \ #
# LISTE_ROUGE=$xT/COULEURS$ROUGE \ #
# LISTE_VERTE=$xT/COULEURS$VERTE \ #
# LISTE_BLEUE=$xT/COULEURS$BLEUE \ #
# force=VRAI premiere_direction=FAUX selecteur=4 \ #
# C=$xT/MIRE \ #
# NpasX=8 NpasY=8 NpasZ=1 \ #
# Chiffres=0 \ #
# Zmin=1 Zmax=16 \ #
# centrer=VRAI \ #
# dct=0.5 \ #
# nombre=1 \ #
# trainees=VRAI mode=1 \ #
# attenuation_des_images=0.5 \ #
# attenuation_des_trainees=1.00 \ #
# renormaliser=FAUX \ #
# Lz=100 \ #
# zoom_automatique=VRAI \ #
# fond=FAUX \ #
# R=$xw1/RDNW.K. \ #
# $formatI #
# #
# genere $xT/RAYONS 0.03 0.03 #
# #
# $xrk/rdn_walk.21$X corps=$NcorpsS \ #
# np=$Nimages \ #
# LISTE_X=$xT/COORDONNEES$COORD_X \ #
# LISTE_Y=$xT/COORDONNEES$COORD_Y \ #
# LISTE_Z=$xT/COORDONNEES$COORD_Z \ #
# LISTE_VX=$xT/VITESSES$COORD_X \ #
# LISTE_VY=$xT/VITESSES$COORD_Y \ #
# LISTE_VZ=$xT/VITESSES$COORD_Z \ #
# LISTE_MINIMUM_DELTA_RHO=$xT/mdRHO \ #
# LISTE_MAXIMUM_DELTA_RHO=$xT/MdRHO \ #
# LISTE_MINIMUM_N_PHI=$xT/mnPHI \ #
# LISTE_MAXIMUM_N_PHI=$xT/MnPHI \ #
# LISTE_DELTA_PHI=$xT/dPHI \ #
# LISTE_MINIMUM_N_THETA=$xT/mnTHETA \ #
# LISTE_MAXIMUM_N_THETA=$xT/MnTHETA \ #
# LISTE_DELTA_THETA=$xT/dTHETA \ #
# LISTE_BORNE_INFERIEURE_DE_L_OUVERTURE=$xT/infOUVE \ #
# LISTE_BORNE_SUPERIEURE_DE_L_OUVERTURE=$xT/supOUVE \ #
# LISTE_DISTANCE_MAXIMALE=$xT/DISTANCE \ #
# LISTE_STABILITE=$xT/STABILITE \ #
# LISTE_RAYON=$xT/RAYONS \ #
# LISTE_ROUGE=$xT/COULEURS$ROUGE \ #
# LISTE_VERTE=$xT/COULEURS$VERTE \ #
# LISTE_BLEUE=$xT/COULEURS$BLEUE \ #
# force=VRAI premiere_direction=FAUX selecteur=4 \ #
# C=$xT/MIRE \ #
# NpasX=8 NpasY=8 NpasZ=1 \ #
# Chiffres=0 \ #
# Zmin=1 Zmax=16 \ #
# centrer=VRAI \ #
# dct=0.5 \ #
# nombre=1 \ #
# trainees=VRAI mode=1 \ #
# attenuation_des_images=1.0 \ #
# attenuation_des_trainees=0.85 \ #
# renormaliser=FAUX \ #
# Lz=100 \ #
# zoom_automatique=VRAI \ #
# fond=VRAI \ #
# dynamique=VRAI \ #
# F=$xw1/RDNW.K. \ #
# R=$xw1/RDNW.K. \ #
# $formatI #
# #
# $DELETE $xT/COORDONNEES$COORD_X #
# $DELETE $xT/COORDONNEES$COORD_Y #
# $DELETE $xT/COORDONNEES$COORD_Z #
# $DELETE $xT/VITESSES #
# $DELETE $xT/VITESSES$COORD_X #
# $DELETE $xT/VITESSES$COORD_Y #
# $DELETE $xT/VITESSES$COORD_Z #
# $DELETE $xT/mdRHO #
# $DELETE $xT/MdRHO #
# $DELETE $xT/mnPHI #
# $DELETE $xT/MnPHI #
# $DELETE $xT/dPHI #
# $DELETE $xT/mnTHETA #
# $DELETE $xT/MnTHETA #
# $DELETE $xT/dTHETA #
# $DELETE $xT/infOUVE #
# $DELETE $xT/supOUVE #
# $DELETE $xT/DISTANCE #
# $DELETE $xT/STABILITE #
# $DELETE $xT/RAYONS #
# $DELETE $xT/COULEURS$ROUGE #
# $DELETE $xT/COULEURS$VERTE #
# $DELETE $xT/COULEURS$BLEUE #
# #
# #
# $xci/scale$X A=$xT/MIRE \ #
# a=0.30 \ #
# R=$xT/MIRE$ROUGE \ #
# $formatI #
# $xci/scale$X A=$xT/MIRE \ #
# a=0.30 \ #
# R=$xT/MIRE$VERTE \ #
# $formatI #
# $xci/scale$X A=$xT/MIRE \ #
# a=0.30 \ #
# R=$xT/MIRE$BLEUE \ #
# $formatI #
# #
# $xci/genere$X premiere=$NimageZ derniere=$Nimages pas=1 \ #
# C='$xci/vitre.53$Z \ #
# $xw1/RDNW.K.%04d \ #
# $xT/MIRE \ #
# $xw1/RDNW.K.%04d' #
# #
# #
# $DELETE $xT/MIRE #
# #
# Pal #
# #
# $xci/reduction_16$Z $xw1/RDNW.K. $xiak/RDNW.52 1 32 #
# $xci/reduction_64$Z $xw1/RDNW.K. $xiak/RDNW.52 1 8 #
# #
# $CP $xw1/RDNW.K.0256$ROUGE $xiirk/RDNW.52.0256$ROUGE #
# $CP $xw1/RDNW.K.0256$VERTE $xiirk/RDNW.52.0256$VERTE #
# $CP $xw1/RDNW.K.0256$BLEUE $xiirk/RDNW.52.0256$BLEUE #
# #
# #
# $xci/genere$X premiere=$NimageZ derniere=$Nimages pas=1 \ #
# C='@ Temps = %d - $NimageZ ; #
# set Temps=`$xci/nombres$X premiere=$Temps derniere=$Temps chiffres=3` ; #
# $xci/titre$X \ #
# A=$xw1/RDNW.K.%04d$ROUGE \ #
# titre=$Temps \ #
# anti_aliasing=VRAI \ #
# R=$xw1/RDNW.K.%04d$ROUGE \ #
# $formatI' #
# $xci/genere$X premiere=$NimageZ derniere=$Nimages pas=1 \ #
# C='@ Temps = %d - $NimageZ ; #
# set Temps=`$xci/nombres$X premiere=$Temps derniere=$Temps chiffres=3` ; #
# $xci/titre$X \ #
# A=$xw1/RDNW.K.%04d$VERTE \ #
# titre=$Temps \ #
# anti_aliasing=VRAI \ #
# R=$xw1/RDNW.K.%04d$VERTE \ #
# $formatI' #
# $xci/genere$X premiere=$NimageZ derniere=$Nimages pas=1 \ #
# C='@ Temps = %d - $NimageZ ; #
# set Temps=`$xci/nombres$X premiere=$Temps derniere=$Temps chiffres=3` ; #
# $xci/titre$X \ #
# A=$xw1/RDNW.K.%04d$BLEUE \ #
# titre=$Temps \ #
# anti_aliasing=VRAI \ #
# R=$xw1/RDNW.K.%04d$BLEUE \ #
# $formatI' #
# #
# #
# Pal #
# #
# $xci/disk_video_P$Z $xw1/RDNW.K. 1 512 RVB \ #
# 9 1 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
sequence 004788_005299
# Generee (sur '$LACT28') par : #
# #
# set Nimages=512 #
# set NimageZ=1 #
# #
# set NcorpsS=64 #
# #
# alias genere 'set Fi=\!:1 ; set vD=\!:2 ; set vA=\!:3 ; set ArG=(\!:4*) ; \\ #
# $DELETE $Fi ; \\ #
# $xci/valeurs_inte$X premiere=1 derniere=$NcorpsS vD=$vD vA=$vA $ArG > $Fi ; \\ #
# unset Fi vD vA ArG' #
# alias genereR 'set Fi=\!:1 ; set In=\!:2 ; set Su=\!:3 ; set ArG=(\!:4*) ; \\ #
# $DELETE $Fi ; \\ #
# $xci/valeurs_alea$X p=1 d=$NcorpsS signe="$K_VIDE" inf=$In sup=$Su $ArG > $Fi ; \\ #
# unset Fi In Su ArG' #
# #
# genere $xT/COORDONNEES$COORD_X 0.0 0.0 #
# genere $xT/COORDONNEES$COORD_Y 0.0 0.0 #
# genere $xT/COORDONNEES$COORD_Z 0.0 0.0 #
# genereR $xT/VITESSES 1 5 entiers=VRAI g=21 #
# $DELETE $xT/VITESSES$COORD_X #
# $CA $xT/VITESSES \ #
# | $SE -e 's/^1$/+0.02/' -e 's/^2$/0/' -e 's/^3$/-0.02/' -e 's/^4$/0/' \ #
# > $xT/VITESSES$COORD_X #
# $DELETE $xT/VITESSES$COORD_Y #
# $CA $xT/VITESSES \ #
# | $SE -e 's/^1$/0/' -e 's/^2$/+0.02/' -e 's/^3$/0/' -e 's/^4$/-0.02/' \ #
# > $xT/VITESSES$COORD_Y #
# $DELETE $xT/VITESSES$COORD_Z #
# $CA $xT/VITESSES \ #
# | $SE -e 's/^1$/0/' -e 's/^2$/0/' -e 's/^3$/0/' -e 's/^4$/0/' \ #
# > $xT/VITESSES$COORD_Z #
# genere $xT/mdRHO 0.0 0.0 #
# genere $xT/MdRHO 0.0 0.0 #
# genere $xT/mnPHI -2 -2 #
# genere $xT/MnPHI +2 +2 #
# genere $xT/dPHI $pis2 $pis2 #
# genere $xT/mnTHETA 0 0 #
# genere $xT/MnTHETA 0 0 #
# genere $xT/dTHETA $pis2 $pis2 #
# genere $xT/infOUVE 0.0 0.0 #
# genere $xT/supOUVE $pi $pi #
# genere $xT/DISTANCE 1000000 1000000 #
# genere $xT/STABILITE 4 4 #
# genere $xT/RAYONS 0.014 0.014 #
# genereR $xT/COULEURS$ROUGE $GRIS_2 $GRIS_8 entiers=VRAI g=31 #
# genereR $xT/COULEURS$VERTE $GRIS_2 $GRIS_8 entiers=VRAI g=32 #
# genereR $xT/COULEURS$BLEUE $GRIS_2 $GRIS_8 entiers=VRAI g=33 #
# #
# Pal #
# #
# $xci/gauss$X \ #
# $formatI | \ #
# $xci/substitue$X \ #
# p=$xiP/abso.11 \ #
# substitution=L_SUBSTITUTION_ROUGE \ #
# $formatI | \ #
# $xci/complement$X \ #
# R=$xT/ANNEAU \ #
# $formatI #
# $xci/multi_02.01$X A1=$xT/ANNEAU \ #
# A2=$xT/ANNEAU \ #
# R=$xT/ANNEAU \ #
# $formatI #
# #
# #
# Pal #
# #
# $xrk/rdn_walk.21$X corps=$NcorpsS \ #
# np=$Nimages \ #
# LISTE_X=$xT/COORDONNEES$COORD_X \ #
# LISTE_Y=$xT/COORDONNEES$COORD_Y \ #
# LISTE_Z=$xT/COORDONNEES$COORD_Z \ #
# LISTE_VX=$xT/VITESSES$COORD_X \ #
# LISTE_VY=$xT/VITESSES$COORD_Y \ #
# LISTE_VZ=$xT/VITESSES$COORD_Z \ #
# LISTE_MINIMUM_DELTA_RHO=$xT/mdRHO \ #
# LISTE_MAXIMUM_DELTA_RHO=$xT/MdRHO \ #
# LISTE_MINIMUM_N_PHI=$xT/mnPHI \ #
# LISTE_MAXIMUM_N_PHI=$xT/MnPHI \ #
# LISTE_DELTA_PHI=$xT/dPHI \ #
# LISTE_MINIMUM_N_THETA=$xT/mnTHETA \ #
# LISTE_MAXIMUM_N_THETA=$xT/MnTHETA \ #
# LISTE_DELTA_THETA=$xT/dTHETA \ #
# LISTE_BORNE_INFERIEURE_DE_L_OUVERTURE=$xT/infOUVE \ #
# LISTE_BORNE_SUPERIEURE_DE_L_OUVERTURE=$xT/supOUVE \ #
# LISTE_DISTANCE_MAXIMALE=$xT/DISTANCE \ #
# LISTE_STABILITE=$xT/STABILITE \ #
# LISTE_RAYON=$xT/RAYONS \ #
# LISTE_ROUGE=$xT/COULEURS$ROUGE \ #
# LISTE_VERTE=$xT/COULEURS$VERTE \ #
# LISTE_BLEUE=$xT/COULEURS$BLEUE \ #
# force=VRAI premiere_direction=FAUX \ #
# C=$xT/ANNEAU \ #
# NpasX=8 NpasY=8 NpasZ=1 \ #
# Chiffres=0 \ #
# Zmin=1 Zmax=16 \ #
# centrer=VRAI \ #
# dct=0.5 \ #
# nombre=1 \ #
# trainees=VRAI mode=1 \ #
# attenuation_des_images=0.5 \ #
# attenuation_des_trainees=1.00 \ #
# renormaliser=FAUX \ #
# Lz=100 \ #
# zoom_automatique=VRAI \ #
# fond=FAUX \ #
# R=$xw1/RDNW.L. \ #
# $formatI #
# #
# genere $xT/RAYONS 0.03 0.03 #
# #
# $xrk/rdn_walk.21$X corps=$NcorpsS \ #
# np=$Nimages \ #
# LISTE_X=$xT/COORDONNEES$COORD_X \ #
# LISTE_Y=$xT/COORDONNEES$COORD_Y \ #
# LISTE_Z=$xT/COORDONNEES$COORD_Z \ #
# LISTE_VX=$xT/VITESSES$COORD_X \ #
# LISTE_VY=$xT/VITESSES$COORD_Y \ #
# LISTE_VZ=$xT/VITESSES$COORD_Z \ #
# LISTE_MINIMUM_DELTA_RHO=$xT/mdRHO \ #
# LISTE_MAXIMUM_DELTA_RHO=$xT/MdRHO \ #
# LISTE_MINIMUM_N_PHI=$xT/mnPHI \ #
# LISTE_MAXIMUM_N_PHI=$xT/MnPHI \ #
# LISTE_DELTA_PHI=$xT/dPHI \ #
# LISTE_MINIMUM_N_THETA=$xT/mnTHETA \ #
# LISTE_MAXIMUM_N_THETA=$xT/MnTHETA \ #
# LISTE_DELTA_THETA=$xT/dTHETA \ #
# LISTE_BORNE_INFERIEURE_DE_L_OUVERTURE=$xT/infOUVE \ #
# LISTE_BORNE_SUPERIEURE_DE_L_OUVERTURE=$xT/supOUVE \ #
# LISTE_DISTANCE_MAXIMALE=$xT/DISTANCE \ #
# LISTE_STABILITE=$xT/STABILITE \ #
# LISTE_RAYON=$xT/RAYONS \ #
# LISTE_ROUGE=$xT/COULEURS$ROUGE \ #
# LISTE_VERTE=$xT/COULEURS$VERTE \ #
# LISTE_BLEUE=$xT/COULEURS$BLEUE \ #
# force=VRAI premiere_direction=FAUX \ #
# C=$xT/ANNEAU \ #
# NpasX=8 NpasY=8 NpasZ=1 \ #
# Chiffres=0 \ #
# Zmin=1 Zmax=16 \ #
# centrer=VRAI \ #
# dct=0.5 \ #
# nombre=1 \ #
# trainees=VRAI mode=1 \ #
# attenuation_des_images=1.0 \ #
# attenuation_des_trainees=0.85 \ #
# renormaliser=FAUX \ #
# Lz=100 \ #
# zoom_automatique=VRAI \ #
# fond=VRAI \ #
# dynamique=VRAI \ #
# F=$xw1/RDNW.L. \ #
# R=$xw1/RDNW.L. \ #
# $formatI #
# #
# $DELETE $xT/COORDONNEES$COORD_X #
# $DELETE $xT/COORDONNEES$COORD_Y #
# $DELETE $xT/COORDONNEES$COORD_Z #
# $DELETE $xT/VITESSES #
# $DELETE $xT/VITESSES$COORD_X #
# $DELETE $xT/VITESSES$COORD_Y #
# $DELETE $xT/VITESSES$COORD_Z #
# $DELETE $xT/mdRHO #
# $DELETE $xT/MdRHO #
# $DELETE $xT/mnPHI #
# $DELETE $xT/MnPHI #
# $DELETE $xT/dPHI #
# $DELETE $xT/mnTHETA #
# $DELETE $xT/MnTHETA #
# $DELETE $xT/dTHETA #
# $DELETE $xT/infOUVE #
# $DELETE $xT/supOUVE #
# $DELETE $xT/DISTANCE #
# $DELETE $xT/STABILITE #
# $DELETE $xT/RAYONS #
# $DELETE $xT/COULEURS$ROUGE #
# $DELETE $xT/COULEURS$VERTE #
# $DELETE $xT/COULEURS$BLEUE #
# #
# #
# $xci/scale$X A=$xT/ANNEAU \ #
# a=0.30 \ #
# R=$xT/ANNEAU$ROUGE \ #
# $formatI #
# $xci/scale$X A=$xT/ANNEAU \ #
# a=0.30 \ #
# R=$xT/ANNEAU$VERTE \ #
# $formatI #
# $xci/scale$X A=$xT/ANNEAU \ #
# a=0.30 \ #
# R=$xT/ANNEAU$BLEUE \ #
# $formatI #
# #
# $xci/genere$X premiere=$NimageZ derniere=$Nimages pas=1 \ #
# C='$xci/vitre.53$Z \ #
# $xw1/RDNW.L.%04d \ #
# $xT/ANNEAU \ #
# $xw1/RDNW.L.%04d' #
# #
# #
# $DELETE $xT/ANNEAU #
# #
# Pal #
# #
# $xci/reduction_16$Z $xw1/RDNW.L. $xiak/RDNW.53 1 32 #
# $xci/reduction_64$Z $xw1/RDNW.L. $xiak/RDNW.53 1 8 #
# #
# $CP $xw1/RDNW.L.0512$ROUGE $xiirk/RDNW.53.0512$ROUGE #
# $CP $xw1/RDNW.L.0512$VERTE $xiirk/RDNW.53.0512$VERTE #
# $CP $xw1/RDNW.L.0512$BLEUE $xiirk/RDNW.53.0512$BLEUE #
# #
# #
# $xci/genere$X premiere=$NimageZ derniere=$Nimages pas=1 \ #
# C='@ Temps = %d - $NimageZ ; #
# set Temps=`$xci/nombres$X premiere=$Temps derniere=$Temps chiffres=3` ; #
# $xci/titre$X \ #
# A=$xw1/RDNW.L.%04d$ROUGE \ #
# titre=$Temps \ #
# anti_aliasing=VRAI \ #
# R=$xw1/RDNW.L.%04d$ROUGE \ #
# $formatI' #
# $xci/genere$X premiere=$NimageZ derniere=$Nimages pas=1 \ #
# C='@ Temps = %d - $NimageZ ; #
# set Temps=`$xci/nombres$X premiere=$Temps derniere=$Temps chiffres=3` ; #
# $xci/titre$X \ #
# A=$xw1/RDNW.L.%04d$VERTE \ #
# titre=$Temps \ #
# anti_aliasing=VRAI \ #
# R=$xw1/RDNW.L.%04d$VERTE \ #
# $formatI' #
# $xci/genere$X premiere=$NimageZ derniere=$Nimages pas=1 \ #
# C='@ Temps = %d - $NimageZ ; #
# set Temps=`$xci/nombres$X premiere=$Temps derniere=$Temps chiffres=3` ; #
# $xci/titre$X \ #
# A=$xw1/RDNW.L.%04d$BLEUE \ #
# titre=$Temps \ #
# anti_aliasing=VRAI \ #
# R=$xw1/RDNW.L.%04d$BLEUE \ #
# $formatI' #
# #
# #
# Pal #
# #
# $xci/disk_video_P$Z $xw1/RDNW.L. 1 512 RVB \ #
# 9 1 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
sequence 005300_005399
# Generee (sur '$LACT12') par : #
# #
# Pal #
# #
# #define N0 0 #
# #define N 99 #
# #define R 3.0 #
# #define X0 0.5 #
# #
# main() #
# { #
# double r=R; #
# double dx1=X0; #
# double dx2=X0; #
# double dx3=X0; #
# double dx4=X0; #
# double dx5=X0; #
# int n; #
# #
# for (n=N0 ; n<=N ; n++) #
# { #
# printf("$xci/titre$X #
# A=$xiirk/LYAP.33.10000$ROUGE #
# titre='X(%02d) = %.4f %.4f %.4f %.4f %.4f' #
# anti_aliasing=VRAI #
# R=$xw1/LYAP.1.%04d$ROUGE #
# $formatI\n" #
# ,n,dx1,dx2,dx3,dx4,dx5,n #
# ); #
# printf("$xci/titre$X #
# A=$xiirk/LYAP.33.10000$VERTE #
# titre='X(%02d) = %.4f %.4f %.4f %.4f %.4f' #
# anti_aliasing=VRAI #
# R=$xw1/LYAP.1.%04d$VERTE #
# $formatI\n" #
# ,n,dx1,dx2,dx3,dx4,dx5,n #
# ); #
# printf("$xci/titre$X #
# A=$xiirk/LYAP.33.10000$BLEUE #
# titre='X(%02d) = %.4f %.4f %.4f %.4f %.4f' #
# anti_aliasing=VRAI #
# R=$xw1/LYAP.1.%04d$BLEUE #
# $formatI\n" #
# ,n,dx1,dx2,dx3,dx4,dx5,n #
# ); #
# dx1 = ((r+1)*dx1) - (r*(dx1*dx1)); #
# dx2 = ((r+1)*dx2) - ((r*dx2)*dx2); #
# dx3 = (((r+1) - (r*dx3))*dx3); #
# dx4 = (r*dx4) + ((1 - (r*dx4))*dx4); #
# dx5 = dx5 + (r*((dx5) - (dx5*dx5))); #
# } #
# } #
# #
# #
# Pal #
# #
# $xci/disk_video_P$Z $xw1/LYAP.1. 0 99 RVB \ #
# 9 1 Initialisation Sequence \ #
# "$formatI" $Gamma_paysages #
# #
sequence 005400_005499
# Generee (sur '$LACT12') par : #
# #
# $Z Pal #
# #
# $Z $xci/scale$X A=$xiirk/LYAP.33.10000$ROUGE \ #
# $Z a=0.6 \ #
# $Z R=$xT/LYAP$ROUGE \ #
# $Z $formatI #
# $Z $xci/scale$X A=$xiirk/LYAP.33.10000$VERTE \ #
# $Z a=0.6 \ #
# $Z R=$xT/LYAP$VERTE \ #
# $Z $formatI #
# $Z $xci/scale$X A=$xiirk/LYAP.33.10000$BLEUE \ #
# $Z a=0.6 \ #
# $Z R=$xT/LYAP$BLEUE \ #
# $Z $formatI #
# #
# $Z Pal #
# #
# $c #include <stdio.h> #
# #
# $c #define N0 0 #
# $c #define N 99 #
# $c #define R 3.0 #
# $c #define X0 0.5 #
# #
# $c #define cX0 0.04 #
# $c #define pasX 0.66 #
# $c #define cY0 0.3 #
# $c #define pasY 0.1 #
# #
# $c #define iPRINT0(dx,couleur,intro) \ #
# $c cY = cY + pasY; \ #
# $c printf("$xci/message$X \ #
# $c A=$xT/LYAP$%s \ #
# $c message='%sX(%02d)=%.4f' \ #
# $c anti_aliasing=VRAI \ #
# $c X=%.4f Y=%.4f \ #
# $c R=$xw1/LYAP.2.%04d$%s \ #
# $c $formatI\n" \ #
# $c ,couleur,intro,n,dx,cX,cY,n,couleur \ #
# $c ); #
# $c #define iPRINTX1(couleur) \ #
# $c cY = cY + pasY; \ #
# $c printf("$xci/message$X \ #
# $c A=$xT/LYAP$%s \ #
# $c message='((R+1)*X(%02d))-(R*(X(%02d)*X(%02d)))' \ #
# $c anti_aliasing=VRAI \ #
# $c X=%.4f Y=%.4f \ #
# $c R=$xw1/LYAP.2.%04d$%s \ #
# $c $formatI\n" \ #
# $c ,couleur,n-1,n-1,n-1,cX,cY,n,couleur \ #
# $c ); #
# #
# $c #define iPRINTX2(couleur) \ #
# $c cY = cY + pasY; \ #
# $c printf("$xci/message$X \ #
# $c A=$xw1/LYAP.2.%04d$%s \ #
# $c message='((R+1)*X(%02d))-((R*X(%02d))*X(%02d))' \ #
# $c anti_aliasing=VRAI \ #
# $c X=%.4f Y=%.4f \ #
# $c R=$xw1/LYAP.2.%04d$%s \ #
# $c $formatI\n" \ #
# $c ,n,couleur,n-1,n-1,n-1,cX,cY,n,couleur \ #
# $c ); #
# #
# $c #define iPRINTX3(couleur) \ #
# $c cY = cY + pasY; \ #
# $c printf("$xci/message$X \ #
# $c A=$xw1/LYAP.2.%04d$%s \ #
# $c message='(((R+1)-(R*X(%02d)))*X(%02d))' \ #
# $c anti_aliasing=VRAI \ #
# $c X=%.4f Y=%.4f \ #
# $c R=$xw1/LYAP.2.%04d$%s \ #
# $c $formatI\n" \ #
# $c ,n,couleur,n-1,n-1,cX,cY,n,couleur \ #
# $c ); #
# #
# $c #define iPRINTX4(couleur) \ #
# $c cY = cY + pasY; \ #
# $c printf("$xci/message$X \ #
# $c A=$xw1/LYAP.2.%04d$%s \ #
# $c message='(R*X(%02d))+((1-(R*X(%02d)))*X(%02d))' \ #
# $c anti_aliasing=VRAI \ #
# $c X=%.4f Y=%.4f \ #
# $c R=$xw1/LYAP.2.%04d$%s \ #
# $c $formatI\n" \ #
# $c ,n,couleur,n-1,n-1,n-1,cX,cY,n,couleur \ #
# $c ); #
# #
# $c #define iPRINTX5(couleur) \ #
# $c cY = cY + pasY; \ #
# $c printf("$xci/message$X \ #
# $c A=$xw1/LYAP.2.%04d$%s \ #
# $c message='X(%02d)+(R*((X(%02d))-(X(%02d)*X(%02d))))' \ #
# $c anti_aliasing=VRAI \ #
# $c X=%.4f Y=%.4f \ #
# $c R=$xw1/LYAP.2.%04d$%s \ #
# $c $formatI\n" \ #
# $c ,n,couleur,n-1,n-1,n-1,n-1,cX,cY,n,couleur \ #
# $c ); #
# #
# $c #define nPRINT0(dx,couleur,intro) \ #
# $c cY = cY + pasY; \ #
# $c printf("$xci/message$X \ #
# $c A=$xw1/LYAP.2.%04d$%s \ #
# $c message='%sX(%02d)=%.4f' \ #
# $c anti_aliasing=VRAI \ #
# $c X=%.4f Y=%.4f \ #
# $c R=$xw1/LYAP.2.%04d$%s \ #
# $c $formatI\n" \ #
# $c ,n,couleur,intro,n,dx,cX,cY,n,couleur \ #
# $c ); #
# $c #define nPRINTX1(couleur) \ #
# $c cY = cY + pasY; \ #
# $c printf("$xci/message$X \ #
# $c A=$xw1/LYAP.2.%04d$%s \ #
# $c message='((R+1)*X(%02d))-(R*(X(%02d)*X(%02d)))' \ #
# $c anti_aliasing=VRAI \ #
# $c X=%.4f Y=%.4f \ #
# $c R=$xw1/LYAP.2.%04d$%s \ #
# $c $formatI\n" \ #
# $c ,n,couleur,n-1,n-1,n-1,cX,cY,n,couleur \ #
# $c ); #
# #
# $c #define nPRINTX2(couleur) \ #
# $c iPRINTX2(couleur) #
# #
# $c #define nPRINTX3(couleur) \ #
# $c iPRINTX3(couleur) #
# #
# $c #define nPRINTX4(couleur) \ #
# $c iPRINTX4(couleur) #
# #
# $c #define nPRINTX5(couleur) \ #
# $c iPRINTX5(couleur) #
# #
# $c int main() #
# $c { #
# $c double r=R; #
# $c double dx1=X0; #
# $c double dx2=X0; #
# $c double dx3=X0; #
# $c double dx4=X0; #
# $c double dx5=X0; #
# $c int n=N0; #
# $c double cX=cX0,cY=cY0; #
# #
# $c cX = cX0; #
# $c cX = cX + pasX; #
# $c cY = cY0 - pasY; #
# #
# $c iPRINT0(dx1,"ROUGE"," "); #
# $c nPRINT0(dx2,"ROUGE"," "); #
# $c nPRINT0(dx3,"ROUGE"," "); #
# $c nPRINT0(dx4,"ROUGE"," "); #
# $c nPRINT0(dx5,"ROUGE"," "); #
# #
# $c cX = cX0; #
# $c cX = cX + pasX; #
# $c cY = cY0 - pasY; #
# #
# $c iPRINT0(dx1,"VERTE"," "); #
# $c nPRINT0(dx2,"VERTE"," "); #
# $c nPRINT0(dx3,"VERTE"," "); #
# $c nPRINT0(dx4,"VERTE"," "); #
# $c nPRINT0(dx5,"VERTE"," "); #
# #
# $c cX = cX0; #
# $c cX = cX + pasX; #
# $c cY = cY0 - pasY; #
# #
# $c iPRINT0(dx1,"BLEUE"," "); #
# $c nPRINT0(dx2,"BLEUE"," "); #
# $c nPRINT0(dx3,"BLEUE"," "); #
# $c nPRINT0(dx4,"BLEUE"," "); #
# $c nPRINT0(dx5,"BLEUE"," "); #
# #
# $c for (n=1 ; n<=N ; n++) #
# $c { #
# #
# $c dx1 = ((r+1)*dx1) - (r*(dx1*dx1)); #
# $c dx2 = ((r+1)*dx2) - ((r*dx2)*dx2); #
# $c dx3 = (((r+1) - (r*dx3))*dx3); #
# $c dx4 = (r*dx4) + ((1 - (r*dx4))*dx4); #
# $c dx5 = dx5 + (r*((dx5) - (dx5*dx5))); #
# #
# $c cX=cX0; #
# $c cY=cY0 - pasY; #
# #
# $c iPRINTX1("ROUGE"); #
# $c nPRINTX2("ROUGE"); #
# $c nPRINTX3("ROUGE"); #
# $c nPRINTX4("ROUGE"); #
# $c nPRINTX5("ROUGE"); #
# #
# $c cX = cX + pasX; #
# $c cY = cY0 - pasY; #
# #
# $c nPRINT0(dx1,"ROUGE","="); #
# $c nPRINT0(dx2,"ROUGE","="); #
# $c nPRINT0(dx3,"ROUGE","="); #
# $c nPRINT0(dx4,"ROUGE","="); #
# $c nPRINT0(dx5,"ROUGE","="); #
# #
# $c cX=cX0; #
# $c cY=cY0 - pasY; #
# #
# $c iPRINTX1("VERTE"); #
# $c nPRINTX2("VERTE"); #
# $c nPRINTX3("VERTE"); #
# $c nPRINTX4("VERTE"); #
# $c nPRINTX5("VERTE"); #
# #
# $c cX = cX + pasX; #
# $c cY = cY0 - pasY; #
# #
# $c nPRINT0(dx1,"VERTE","="); #
# $c nPRINT0(dx2,"VERTE","="); #
# $c nPRINT0(dx3,"VERTE","="); #
# $c nPRINT0(dx4,"VERTE","="); #
# $c nPRINT0(dx5,"VERTE","="); #
# #
# $c cX=cX0; #
# $c cY=cY0 - pasY; #
# #
# $c iPRINTX1("BLEUE"); #
# $c nPRINTX2("BLEUE"); #
# $c nPRINTX3("BLEUE"); #
# $c nPRINTX4("BLEUE"); #
# $c nPRINTX5("BLEUE"); #
# #
# $c cX = cX + pasX; #
# $c cY = cY0 - pasY; #
# #
# $c nPRINT0(dx1,"BLEUE","="); #
# $c nPRINT0(dx2,"BLEUE","="); #
# $c nPRINT0(dx3,"BLEUE","="); #
# $c nPRINT0(dx4,"BLEUE","="); #
# $c nPRINT0(dx5,"BLEUE","="); #
# #
# $c } #
# $c } #
# #
# #
# Pal #
# #
# $xci/disk_video_P$Z $xw1/LYAP.2. 0 99 RVB \ #
# 9 1 Initialisation Sequence \ #
# "$formatI" $Gamma_paysages #
# #
sequence 005500_005755
# Generee par : #
# #
# set Nimages=256 #
# #
# set NcorpsS=3 #
# #
# $DELETE $xT/ROTATION$COORD_X #
# $xci/valeurs_inte$X p=1 d=$Nimages vD=0 vA=$dpi cubique=VRAI > $xT/ROTATION$COORD_X #
# #
# alias genere 'set FiLe=\!:1 ; set LiStE=(\!:2*) ; \\ #
# $DELETE $FiLe ; \\ #
# echo "$LiStE" | $SE -e "s/$K_BLANC$K_BLANC*/ /g" | $R "$K_BLANC" "$K_NL" > $FiLe ; \\ #
# unset FiLe LiStE' #
# #
# #
# genere $xT/COORDONNEES$COORD_X +1.0e3 -800.0e9 -800.0e9 #
# genere $xT/COORDONNEES$COORD_Y +1.0e3 +1.0e3 +1.0e3 #
# genere $xT/COORDONNEES$COORD_Z +1.0e3 +1.0e3 +400.0e9 #
# genere $xT/VITESSES$COORD_X 0 0 0 #
# genere $xT/VITESSES$COORD_Y 0 +7.0e3 +7.0e3 #
# genere $xT/VITESSES$COORD_Z 0 0 0 #
# genere $xT/MASSES 1.0e30 2.0e27 2.0e27 #
# genere $xT/RAYONS 6.0e10 3.0e10 3.0e10 #
# genere $xT/COULEURS$ROUGE $GRIS_8 $GRIS_0 $GRIS_0 #
# genere $xT/COULEURS$VERTE $GRIS_7 $GRIS_6 $GRIS_8 #
# genere $xT/COULEURS$BLEUE $GRIS_0 $GRIS_8 $GRIS_6 #
# #
# Pal #
# #
# $xrr/N_corps.11$X corps=$NcorpsS \ #
# np=$Nimages \ #
# LISTE_X=$xT/COORDONNEES$COORD_X \ #
# LISTE_Y=$xT/COORDONNEES$COORD_Y \ #
# LISTE_Z=$xT/COORDONNEES$COORD_Z \ #
# LISTE_VX=$xT/VITESSES$COORD_X \ #
# LISTE_VY=$xT/VITESSES$COORD_Y \ #
# LISTE_VZ=$xT/VITESSES$COORD_Z \ #
# LISTE_MASSE=$xT/MASSES \ #
# LISTE_RAYON=$xT/RAYONS \ #
# LISTE_ROUGE=$xT/COULEURS$ROUGE \ #
# LISTE_VERTE=$xT/COULEURS$VERTE \ #
# LISTE_BLEUE=$xT/COULEURS$BLEUE \ #
# dct=100 \ #
# nombre=40000 \ #
# ensemble=VRAI \ #
# Ranterieurs=0.5 \ #
# trainees=FAUX \ #
# renormaliser=FAUX \ #
# TRANSLATION_OX=250e9 \ #
# ROTATION_OX=$xT/ROTATION$COORD_X \ #
# ZOOM=1.7 \ #
# fond=FAUX \ #
# R=$xw1/NCOR.1. \ #
# $formatI #
# #
# $DELETE $xT/COORDONNEES$COORD_X #
# $DELETE $xT/COORDONNEES$COORD_Y #
# $DELETE $xT/COORDONNEES$COORD_Z #
# $DELETE $xT/VITESSES$COORD_X #
# $DELETE $xT/VITESSES$COORD_Y #
# $DELETE $xT/VITESSES$COORD_Z #
# $DELETE $xT/MASSES #
# $DELETE $xT/RAYONS #
# $DELETE $xT/COULEURS$ROUGE #
# $DELETE $xT/COULEURS$VERTE #
# $DELETE $xT/COULEURS$BLEUE #
# #
# $DELETE $xT/ROTATION$COORD_X #
# #
# #
# Pal #
# #
# $xci/disk_video_P$Z $xw1/NCOR.1. 001 256 RVB \ #
# 9 1 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
sequence 005756_006011
sequence 006012_006267
# Generee par : #
# #
# Pal #
# #
# $xrc/mandel.02$X n=256 \ #
# R=$xw1/MAND.1$M. \ #
# $formatI #
# #
# #
# Pal #
# #
# $xci/disk_video_P$Z $xw1/MAND.1$M. 000 255 $xiP/enfer.02 \ #
# 9 1 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# $xci/disk_video_P$Z $xw1/MAND.1$M. 000 255 $xiP/montagnes.01 \ #
# 9 1 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
sequence 006268_006779
# Generee par : #
# #
# ATTENTION, la masse de Saturne a longtemps valu ci-dessous +56.8e2 au lieu de +56.8e25, #
# ce qui constituait une erreur enorme... #
# #
# set Nimages=512 #
# #
# set NcorpsS=10 #
# @ Ncorps = $NcorpsS - 1 #
# #
# $DELETE $xT/ROTATION$COORD_X #
# $xci/valeurs_inte$X p=1 d=$Nimages vD=0 vA=0 cubique=VRAI > $xT/ROTATION$COORD_X #
# #
# alias genere 'set FiLe=\!:1 ; set LiStE=(\!:2*) ; \\ #
# $DELETE $FiLe ; \\ #
# echo "$LiStE" | $SE -e "s/$K_BLANC$K_BLANC*/ /g" | $R "$K_BLANC" "$K_NL" > $FiLe ; \\ #
# unset FiLe LiStE' #
# #
# alias couleurs 'set In=\!:1 ; set Su=\!:2 ; set Gr=\!:3 ; \\ #
# set Mo=\!:4 ; set Fi=\!:5* ; \\ #
# $xci/valeurs_alea$X p=1 d=$Ncorps g=$Gr inf=$In sup=$Su entiers=$Mo >>! $Fi ; \\ #
# unset In Su Gr Mo Fi' #
# #
# #
# genere $xT/COORDONNEES$COORD_X \ #
# +1e3 +514e+8 +213e+8 -203e+8 -204e+9 +501e+9 -134e+10 -150e+9 -436e+10 -392e+10 #
# genere $xT/COORDONNEES$COORD_Y \ #
# +1e3 +682e+7 +967e+8 +133e+9 +126e+9 -519e+9 +341e+9 +259e+10 -115e+10 +307e+10 #
# genere $xT/COORDONNEES$COORD_Z \ #
# +1e3 -163e+7 +422e+8 +579e+8 +634e+8 -235e+9 +199e+9 +113e+10 -363e+9 +216e+10 #
# genere $xT/VITESSES$COORD_X \ #
# 0 -1.46e+4 -3.44e+4 -2.99e+4 -1.27e+4 +9.67e+3 -3.21e+3 -6.84e+3 +1.42e+3 -2.27e+3 #
# genere $xT/VITESSES$COORD_Y \ #
# 0 +4.43e+4 +5.39e+3 -3.88e+3 -1.64e+4 +8.59e+3 -8.62e+3 -6.50e+2 -4.79e+3 -4.53e+3 #
# genere $xT/VITESSES$COORD_Z \ #
# 0 +2.52e+4 +4.60e+3 -1.68e+3 -7.18e+3 +3.44e+3 -3.42e+3 -1.88e+2 -2.00e+3 -7.39e+2 #
# genere $xT/MASSES \ #
# +2.0e30 +3.3e23 +48.7e23 +60.5e23 +6.4e23 +189.9e25 +56.8e25 +8.6e25 +10.3e25 +6.6e21 #
# genere $xT/RAYONS \ #
# +48e10 +32e10 +32e10 +32e10 +32e10 +40e10 +40e10 +32e10 +32e10 +32e10 #
# #
# $DELETE $xT/COULEURS$ROUGE #
# echo $GRIS_8 > $xT/COULEURS$ROUGE #
# couleurs $GRIS_3 $GRIS_8 111 VRAI $xT/COULEURS$ROUGE #
# #
# $DELETE $xT/COULEURS$VERTE #
# echo $GRIS_8 > $xT/COULEURS$VERTE #
# couleurs $GRIS_3 $GRIS_8 222 VRAI $xT/COULEURS$VERTE #
# #
# $DELETE $xT/COULEURS$BLEUE #
# echo $GRIS_8 > $xT/COULEURS$BLEUE #
# couleurs $GRIS_3 $GRIS_8 333 VRAI $xT/COULEURS$BLEUE #
# #
# Pal #
# #
# $xrr/N_corps.11$X corps=$NcorpsS \ #
# np=$Nimages \ #
# LISTE_X=$xT/COORDONNEES$COORD_X \ #
# LISTE_Y=$xT/COORDONNEES$COORD_Y \ #
# LISTE_Z=$xT/COORDONNEES$COORD_Z \ #
# LISTE_VX=$xT/VITESSES$COORD_X \ #
# LISTE_VY=$xT/VITESSES$COORD_Y \ #
# LISTE_VZ=$xT/VITESSES$COORD_Z \ #
# LISTE_MASSE=$xT/MASSES \ #
# LISTE_RAYON=$xT/RAYONS \ #
# LISTE_ROUGE=$xT/COULEURS$ROUGE \ #
# LISTE_VERTE=$xT/COULEURS$VERTE \ #
# LISTE_BLEUE=$xT/COULEURS$BLEUE \ #
# centrer=FAUX reference=4 \ #
# extension=5 \ #
# dct=10 \ #
# nombre=100000 \ #
# ensemble=VRAI \ #
# Ranterieurs=0.5 \ #
# trainees=FAUX \ #
# renormaliser=FAUX \ #
# lineaire=FAUX exposant=0.4 \ #
# Lz=1.0e13 \ #
# TRANSLATION_OX=0 \ #
# TRANSLATION_OY=0 \ #
# ZOOM=0.70 \ #
# ROTATION_OX=$xT/ROTATION$COORD_X \ #
# fond=FAUX \ #
# R=$xw1/NCOR.2. \ #
# $formatI #
# #
# $DELETE $xT/COORDONNEES$COORD_X #
# $DELETE $xT/COORDONNEES$COORD_Y #
# $DELETE $xT/COORDONNEES$COORD_Z #
# $DELETE $xT/VITESSES$COORD_X #
# $DELETE $xT/VITESSES$COORD_Y #
# $DELETE $xT/VITESSES$COORD_Z #
# $DELETE $xT/MASSES #
# $DELETE $xT/RAYONS #
# $DELETE $xT/COULEURS$ROUGE #
# $DELETE $xT/COULEURS$VERTE #
# $DELETE $xT/COULEURS$BLEUE #
# #
# $DELETE $xT/ROTATION$COORD_X #
# #
# #
# Pal #
# #
# $xci/disk_video_P$Z $xw1/NCOR.2. 001 512 RVB \ #
# 9 1 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
sequence 006780_007291
# Generee par : #
# #
# ATTENTION, la masse de Saturne a longtemps valu ci-dessous +56.8e2 au lieu de +56.8e25, #
# ce qui constituait une erreur enorme... #
# #
# set Nimages=512 #
# #
# set NcorpsS=10 #
# @ Ncorps = $NcorpsS - 1 #
# #
# $DELETE $xT/ROTATION$COORD_X #
# $xci/valeurs_inte$X p=1 d=$Nimages vD=0 vA=$dpi cubique=VRAI > $xT/ROTATION$COORD_X #
# #
# alias genere 'set FiLe=\!:1 ; set LiStE=(\!:2*) ; \\ #
# $DELETE $FiLe ; \\ #
# echo "$LiStE" | $SE -e "s/$K_BLANC$K_BLANC*/ /g" | $R "$K_BLANC" "$K_NL" > $FiLe ; \\ #
# unset FiLe LiStE' #
# #
# alias couleurs 'set In=\!:1 ; set Su=\!:2 ; set Gr=\!:3 ; \\ #
# set Mo=\!:4 ; set Fi=\!:5* ; \\ #
# $xci/valeurs_alea$X p=1 d=$Ncorps g=$Gr inf=$In sup=$Su entiers=$Mo >>! $Fi ; \\ #
# unset In Su Gr Mo Fi' #
# #
# #
# genere $xT/COORDONNEES$COORD_X \ #
# +1e3 +514e+8 +213e+8 -203e+8 -204e+9 +501e+9 -134e+10 -150e+9 -436e+10 -392e+10 #
# genere $xT/COORDONNEES$COORD_Y \ #
# +1e3 +682e+7 +967e+8 +133e+9 +126e+9 -519e+9 +341e+9 +259e+10 -115e+10 +307e+10 #
# genere $xT/COORDONNEES$COORD_Z \ #
# +1e3 -163e+7 +422e+8 +579e+8 +634e+8 -235e+9 +199e+9 +113e+10 -363e+9 +216e+10 #
# genere $xT/VITESSES$COORD_X \ #
# 0 -1.46e+4 -3.44e+4 -2.99e+4 -1.27e+4 +9.67e+3 -3.21e+3 -6.84e+3 +1.42e+3 -2.27e+3 #
# genere $xT/VITESSES$COORD_Y \ #
# 0 +4.43e+4 +5.39e+3 -3.88e+3 -1.64e+4 +8.59e+3 -8.62e+3 -6.50e+2 -4.79e+3 -4.53e+3 #
# genere $xT/VITESSES$COORD_Z \ #
# 0 +2.52e+4 +4.60e+3 -1.68e+3 -7.18e+3 +3.44e+3 -3.42e+3 -1.88e+2 -2.00e+3 -7.39e+2 #
# genere $xT/MASSES \ #
# +2.0e30 +3.3e23 +48.7e23 +60.5e23 +6.4e23 +189.9e25 +56.8e25 +8.6e25 +10.3e25 +6.6e21 #
# genere $xT/RAYONS \ #
# +48e10 +32e10 +32e10 +32e10 +32e10 +40e10 +40e10 +32e10 +32e10 +32e10 #
# #
# $DELETE $xT/COULEURS$ROUGE #
# echo $GRIS_8 > $xT/COULEURS$ROUGE #
# couleurs $GRIS_3 $GRIS_8 111 VRAI $xT/COULEURS$ROUGE #
# #
# $DELETE $xT/COULEURS$VERTE #
# echo $GRIS_8 > $xT/COULEURS$VERTE #
# couleurs $GRIS_3 $GRIS_8 222 VRAI $xT/COULEURS$VERTE #
# #
# $DELETE $xT/COULEURS$BLEUE #
# echo $GRIS_8 > $xT/COULEURS$BLEUE #
# couleurs $GRIS_3 $GRIS_8 333 VRAI $xT/COULEURS$BLEUE #
# #
# Pal #
# #
# $xrr/N_corps.11$X corps=$NcorpsS \ #
# np=$Nimages \ #
# LISTE_X=$xT/COORDONNEES$COORD_X \ #
# LISTE_Y=$xT/COORDONNEES$COORD_Y \ #
# LISTE_Z=$xT/COORDONNEES$COORD_Z \ #
# LISTE_VX=$xT/VITESSES$COORD_X \ #
# LISTE_VY=$xT/VITESSES$COORD_Y \ #
# LISTE_VZ=$xT/VITESSES$COORD_Z \ #
# LISTE_MASSE=$xT/MASSES \ #
# LISTE_RAYON=$xT/RAYONS \ #
# LISTE_ROUGE=$xT/COULEURS$ROUGE \ #
# LISTE_VERTE=$xT/COULEURS$VERTE \ #
# LISTE_BLEUE=$xT/COULEURS$BLEUE \ #
# centrer=FAUX reference=4 \ #
# extension=5 \ #
# dct=10 \ #
# nombre=100000 \ #
# ensemble=VRAI \ #
# Ranterieurs=0.5 \ #
# trainees=FAUX \ #
# renormaliser=FAUX \ #
# lineaire=FAUX exposant=0.4 \ #
# Lz=1.0e13 \ #
# TRANSLATION_OX=0 \ #
# TRANSLATION_OY=0 \ #
# ZOOM=0.70 \ #
# ROTATION_OX=$xT/ROTATION$COORD_X \ #
# fond=FAUX \ #
# R=$xw1/NCOR.3. \ #
# $formatI #
# #
# $DELETE $xT/COORDONNEES$COORD_X #
# $DELETE $xT/COORDONNEES$COORD_Y #
# $DELETE $xT/COORDONNEES$COORD_Z #
# $DELETE $xT/VITESSES$COORD_X #
# $DELETE $xT/VITESSES$COORD_Y #
# $DELETE $xT/VITESSES$COORD_Z #
# $DELETE $xT/MASSES #
# $DELETE $xT/RAYONS #
# $DELETE $xT/COULEURS$ROUGE #
# $DELETE $xT/COULEURS$VERTE #
# $DELETE $xT/COULEURS$BLEUE #
# #
# $DELETE $xT/ROTATION$COORD_X #
# #
# #
# Pal #
# #
# $xci/disk_video_P$Z $xw1/NCOR.3. 001 512 RVB \ #
# 9 1 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
sequence 007292_007547
# Generee par : #
# #
# set Nimages=256 #
# #
# set NcorpsS=3 #
# #
# $DELETE $xT/ROTATION$COORD_X #
# $xci/valeurs_inte$X p=1 d=$Nimages vD=0 vA=$dpi cubique=VRAI > $xT/ROTATION$COORD_X #
# #
# alias genere 'set FiLe=\!:1 ; set LiStE=(\!:2*) ; \\ #
# $DELETE $FiLe ; \\ #
# echo "$LiStE" | $SE -e "s/$K_BLANC$K_BLANC*/ /g" | $R "$K_BLANC" "$K_NL" > $FiLe ; \\ #
# unset FiLe LiStE' #
# #
# #
# genere $xT/COORDONNEES$COORD_X +1.0e3 -800.0e9 -800.0e9 #
# genere $xT/COORDONNEES$COORD_Y +1.0e3 +1.0e3 +1.0e3 #
# genere $xT/COORDONNEES$COORD_Z +1.0e3 +1.0e3 +400.0e9 #
# genere $xT/VITESSES$COORD_X 0 0 0 #
# genere $xT/VITESSES$COORD_Y 0 +7.0e3 +7.0e3 #
# genere $xT/VITESSES$COORD_Z 0 0 0 #
# genere $xT/MASSES 1.0e30 2.0e27 2.0e27 #
# genere $xT/RAYONS 8.0e10 4.0e10 4.0e10 #
# genere $xT/COULEURS$ROUGE $GRIS_8 $GRIS_0 $GRIS_0 #
# genere $xT/COULEURS$VERTE $GRIS_7 $GRIS_6 $GRIS_8 #
# genere $xT/COULEURS$BLEUE $GRIS_0 $GRIS_8 $GRIS_6 #
# #
# Pal #
# #
# $xrr/N_corps.11$X corps=$NcorpsS \ #
# np=$Nimages \ #
# LISTE_X=$xT/COORDONNEES$COORD_X \ #
# LISTE_Y=$xT/COORDONNEES$COORD_Y \ #
# LISTE_Z=$xT/COORDONNEES$COORD_Z \ #
# LISTE_VX=$xT/VITESSES$COORD_X \ #
# LISTE_VY=$xT/VITESSES$COORD_Y \ #
# LISTE_VZ=$xT/VITESSES$COORD_Z \ #
# LISTE_MASSE=$xT/MASSES \ #
# LISTE_RAYON=$xT/RAYONS \ #
# LISTE_ROUGE=$xT/COULEURS$ROUGE \ #
# LISTE_VERTE=$xT/COULEURS$VERTE \ #
# LISTE_BLEUE=$xT/COULEURS$BLEUE \ #
# dct=100 \ #
# 2_a_2=FAUX source=1 \ #
# nombre=40000 \ #
# ensemble=VRAI \ #
# Ranterieurs=0.5 \ #
# trainees=FAUX \ #
# renormaliser=FAUX \ #
# TRANSLATION_OX=250e9 \ #
# ROTATION_OX=$xT/ROTATION$COORD_X \ #
# ZOOM=1.7 \ #
# fond=FAUX \ #
# R=$xw1/NCOR.4. \ #
# $formatI #
# #
# $DELETE $xT/COORDONNEES$COORD_X #
# $DELETE $xT/COORDONNEES$COORD_Y #
# $DELETE $xT/COORDONNEES$COORD_Z #
# $DELETE $xT/VITESSES$COORD_X #
# $DELETE $xT/VITESSES$COORD_Y #
# $DELETE $xT/VITESSES$COORD_Z #
# $DELETE $xT/MASSES #
# $DELETE $xT/RAYONS #
# $DELETE $xT/COULEURS$ROUGE #
# $DELETE $xT/COULEURS$VERTE #
# $DELETE $xT/COULEURS$BLEUE #
# #
# $DELETE $xT/ROTATION$COORD_X #
# #
# #
# Pal #
# #
# $xci/disk_video_P$Z $xw1/NCOR.4. 001 256 RVB \ #
# 9 1 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
sequence 007548_007803
sequence 007804_008059
# Generee par : #
# #
# ATTENTION, la masse de Saturne a longtemps valu ci-dessous +56.8e2 au lieu de +56.8e25, #
# ce qui constituait une erreur enorme... #
# #
# set Nimages=512 #
# #
# set NcorpsS=10 #
# @ Ncorps = $NcorpsS - 1 #
# #
# $DELETE $xT/ROTATION$COORD_X #
# $xci/valeurs_inte$X p=1 d=$Nimages vD=0 vA=$dpi cubique=VRAI > $xT/ROTATION$COORD_X #
# #
# alias genere 'set FiLe=\!:1 ; set LiStE=(\!:2*) ; \\ #
# $DELETE $FiLe ; \\ #
# echo "$LiStE" | $SE -e "s/$K_BLANC$K_BLANC*/ /g" | $R "$K_BLANC" "$K_NL" > $FiLe ; \\ #
# unset FiLe LiStE' #
# #
# alias couleurs 'set In=\!:1 ; set Su=\!:2 ; set Gr=\!:3 ; \\ #
# set Mo=\!:4 ; set Fi=\!:5* ; \\ #
# $xci/valeurs_alea$X p=1 d=$Ncorps g=$Gr inf=$In sup=$Su entiers=$Mo >>! $Fi ; \\ #
# unset In Su Gr Mo Fi' #
# #
# #
# genere $xT/COORDONNEES$COORD_X \ #
# +1e3 +514e+8 +213e+8 -203e+8 -204e+9 +501e+9 -134e+10 -150e+9 -436e+10 -392e+10 #
# genere $xT/COORDONNEES$COORD_Y \ #
# +1e3 +682e+7 +967e+8 +133e+9 +126e+9 -519e+9 +341e+9 +259e+10 -115e+10 +307e+10 #
# genere $xT/COORDONNEES$COORD_Z \ #
# +1e3 -163e+7 +422e+8 +579e+8 +634e+8 -235e+9 +199e+9 +113e+10 -363e+9 +216e+10 #
# genere $xT/VITESSES$COORD_X \ #
# 0 -1.46e+4 -3.44e+4 -2.99e+4 -1.27e+4 +9.67e+3 -3.21e+3 -6.84e+3 +1.42e+3 -2.27e+3 #
# genere $xT/VITESSES$COORD_Y \ #
# 0 +4.43e+4 +5.39e+3 -3.88e+3 -1.64e+4 +8.59e+3 -8.62e+3 -6.50e+2 -4.79e+3 -4.53e+3 #
# genere $xT/VITESSES$COORD_Z \ #
# 0 +2.52e+4 +4.60e+3 -1.68e+3 -7.18e+3 +3.44e+3 -3.42e+3 -1.88e+2 -2.00e+3 -7.39e+2 #
# genere $xT/MASSES \ #
# +2.0e30 +3.3e23 +48.7e23 +60.5e23 +6.4e23 +189.9e25 +56.8e25 +8.6e25 +10.3e25 +6.6e21 #
# genere $xT/RAYONS \ #
# +24e10 +16e10 +16e10 +16e10 +16e10 +20e10 +20e10 +16e10 +16e10 +16e10 #
# #
# $DELETE $xT/COULEURS$ROUGE #
# echo $GRIS_8 > $xT/COULEURS$ROUGE #
# couleurs $GRIS_3 $GRIS_8 111 VRAI $xT/COULEURS$ROUGE #
# #
# $DELETE $xT/COULEURS$VERTE #
# echo $GRIS_8 > $xT/COULEURS$VERTE #
# couleurs $GRIS_3 $GRIS_8 222 VRAI $xT/COULEURS$VERTE #
# #
# $DELETE $xT/COULEURS$BLEUE #
# echo $GRIS_8 > $xT/COULEURS$BLEUE #
# couleurs $GRIS_3 $GRIS_8 333 VRAI $xT/COULEURS$BLEUE #
# #
# Pal #
# #
# $xrr/N_corps.11$X corps=$NcorpsS \ #
# np=$Nimages \ #
# LISTE_X=$xT/COORDONNEES$COORD_X \ #
# LISTE_Y=$xT/COORDONNEES$COORD_Y \ #
# LISTE_Z=$xT/COORDONNEES$COORD_Z \ #
# LISTE_VX=$xT/VITESSES$COORD_X \ #
# LISTE_VY=$xT/VITESSES$COORD_Y \ #
# LISTE_VZ=$xT/VITESSES$COORD_Z \ #
# LISTE_MASSE=$xT/MASSES \ #
# LISTE_RAYON=$xT/RAYONS \ #
# LISTE_ROUGE=$xT/COULEURS$ROUGE \ #
# LISTE_VERTE=$xT/COULEURS$VERTE \ #
# LISTE_BLEUE=$xT/COULEURS$BLEUE \ #
# centrer=FAUX reference=4 \ #
# extension=5 \ #
# dct=10 \ #
# nombre=100000 \ #
# trainees=VRAI mode=1 \ #
# attenuation_des_images=0.7 \ #
# attenuation_des_trainees=1.00 \ #
# renormaliser=FAUX \ #
# lineaire=FAUX exposant=0.4 \ #
# Lz=1.0e13 \ #
# TRANSLATION_OX=0 \ #
# TRANSLATION_OY=0 \ #
# ZOOM=0.70 \ #
# ROTATION_OX=$xT/ROTATION$COORD_X \ #
# fond=FAUX \ #
# R=$xw1/NCOR.5. \ #
# $formatI #
# #
# genere $xT/RAYONS \ #
# +48e10 +32e10 +32e10 +32e10 +32e10 +40e10 +40e10 +32e10 +32e10 +32e10 #
# #
# $xrr/N_corps.11$X corps=$NcorpsS \ #
# np=$Nimages \ #
# LISTE_X=$xT/COORDONNEES$COORD_X \ #
# LISTE_Y=$xT/COORDONNEES$COORD_Y \ #
# LISTE_Z=$xT/COORDONNEES$COORD_Z \ #
# LISTE_VX=$xT/VITESSES$COORD_X \ #
# LISTE_VY=$xT/VITESSES$COORD_Y \ #
# LISTE_VZ=$xT/VITESSES$COORD_Z \ #
# LISTE_MASSE=$xT/MASSES \ #
# LISTE_RAYON=$xT/RAYONS \ #
# LISTE_ROUGE=$xT/COULEURS$ROUGE \ #
# LISTE_VERTE=$xT/COULEURS$VERTE \ #
# LISTE_BLEUE=$xT/COULEURS$BLEUE \ #
# centrer=FAUX reference=4 \ #
# extension=5 \ #
# dct=10 \ #
# nombre=100000 \ #
# trainees=VRAI mode=1 \ #
# attenuation_des_images=1.0 \ #
# attenuation_des_trainees=0.99 \ #
# renormaliser=FAUX \ #
# lineaire=FAUX exposant=0.4 \ #
# Lz=1.0e13 \ #
# TRANSLATION_OX=0 \ #
# TRANSLATION_OY=0 \ #
# ZOOM=0.70 \ #
# ROTATION_OX=$xT/ROTATION$COORD_X \ #
# fond=VRAI \ #
# dynamique=VRAI \ #
# F=$xw1/NCOR.5. \ #
# R=$xw1/NCOR.5. \ #
# $formatI #
# #
# $DELETE $xT/COORDONNEES$COORD_X #
# $DELETE $xT/COORDONNEES$COORD_Y #
# $DELETE $xT/COORDONNEES$COORD_Z #
# $DELETE $xT/VITESSES$COORD_X #
# $DELETE $xT/VITESSES$COORD_Y #
# $DELETE $xT/VITESSES$COORD_Z #
# $DELETE $xT/MASSES #
# $DELETE $xT/RAYONS #
# $DELETE $xT/COULEURS$ROUGE #
# $DELETE $xT/COULEURS$VERTE #
# $DELETE $xT/COULEURS$BLEUE #
# #
# $DELETE $xT/ROTATION$COORD_X #
# #
# #
# Pal #
# #
# $xci/disk_video_P$Z $xw1/NCOR.5. 001 256 RVB \ #
# 9 1 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# $xci/disk_video_P$Z $xw1/NCOR.5. 257 512 RVB \ #
# 9 1 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
# Cet enregistrement a ete fait en deux temps afin de favoriser le recouvrement avec le #
# calcul de cette sequence... #
sequence 008060_008063
sequence 008064_008575
# Generee par : #
# #
# $Z Pal #
# #
# $X $xci/genere$X premiere=1 derniere=512 pas=1 \ #
# $X C='$xci/un_sur_z.01$X \ #
# $X A=$xw1/NCOR.5.%04d$ROUGE \ #
# $X R=$xw1/NCOR.6.%04d$ROUGE \ #
# $X $formatI ; \ #
# $X $DELETE $xw1/NCOR.5.%04d$ROUGE' #
# $X $xci/genere$X premiere=1 derniere=512 pas=1 \ #
# $X C='$xci/un_sur_z.01$X \ #
# $X A=$xw1/NCOR.5.%04d$VERTE \ #
# $X R=$xw1/NCOR.6.%04d$VERTE \ #
# $X $formatI ; \ #
# $X $DELETE $xw1/NCOR.5.%04d$VERTE' #
# $X $xci/genere$X premiere=1 derniere=512 pas=1 \ #
# $X C='$xci/un_sur_z.01$X \ #
# $X A=$xw1/NCOR.5.%04d$BLEUE \ #
# $X R=$xw1/NCOR.6.%04d$BLEUE \ #
# $X $formatI ; \ #
# $X $DELETE $xw1/NCOR.5.%04d$BLEUE' #
# #
# Pal #
# #
# $xci/disk_video_P$Z $xw1/NCOR.6. 001 512 RVB \ #
# 9 1 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
# La petite sequence preliminaire de 4 images est uniquement un test destine a verifier le #
# bon fonctionnement de la commande '$xci/disk_video_P$Z' apres la modification importante #
# de la gestion de la liste des images a enregistrer (n'utilisant plus de 'foreach(...)'... #
sequence 008576_010474
sequence 010475_011216
# Generee par : #
# #
# ATTENTION, la masse de Saturne a longtemps valu ci-dessous +56.8e2 au lieu de +56.8e25, #
# ce qui constituait une erreur enorme... #
# #
# set Nimages=2641 #
# #
# set NcorpsS=10 #
# @ Ncorps = $NcorpsS - 1 #
# #
# alias genere 'set FiLe=\!:1 ; set LiStE=(\!:2*) ; \\ #
# $DELETE $FiLe ; \\ #
# echo "$LiStE" | $SE -e "s/$K_BLANC$K_BLANC*/ /g" | $R "$K_BLANC" "$K_NL" > $FiLe ; \\ #
# unset FiLe LiStE' #
# #
# alias couleurs 'set In=\!:1 ; set Su=\!:2 ; set Gr=\!:3 ; \\ #
# set Mo=\!:4 ; set Fi=\!:5* ; \\ #
# $xci/valeurs_alea$X p=1 d=$Ncorps g=$Gr inf=$In sup=$Su entiers=$Mo >>! $Fi ; \\ #
# unset In Su Gr Mo Fi' #
# #
# #
# genere $xT/COORDONNEES$COORD_X \ #
# +1e3 +514e+8 +213e+8 -203e+8 -204e+9 +501e+9 -134e+10 -150e+9 -436e+10 -392e+10 #
# genere $xT/COORDONNEES$COORD_Y \ #
# +1e3 +682e+7 +967e+8 +133e+9 +126e+9 -519e+9 +341e+9 +259e+10 -115e+10 +307e+10 #
# genere $xT/COORDONNEES$COORD_Z \ #
# +1e3 -163e+7 +422e+8 +579e+8 +634e+8 -235e+9 +199e+9 +113e+10 -363e+9 +216e+10 #
# genere $xT/VITESSES$COORD_X \ #
# 0 -1.46e+4 -3.44e+4 -2.99e+4 -1.27e+4 +9.67e+3 -3.21e+3 -6.84e+3 +1.42e+3 -2.27e+3 #
# genere $xT/VITESSES$COORD_Y \ #
# 0 +4.43e+4 +5.39e+3 -3.88e+3 -1.64e+4 +8.59e+3 -8.62e+3 -6.50e+2 -4.79e+3 -4.53e+3 #
# genere $xT/VITESSES$COORD_Z \ #
# 0 +2.52e+4 +4.60e+3 -1.68e+3 -7.18e+3 +3.44e+3 -3.42e+3 -1.88e+2 -2.00e+3 -7.39e+2 #
# genere $xT/MASSES \ #
# +2.0e30 +3.3e23 +48.7e23 +60.5e23 +6.4e23 +189.9e25 +56.8e25 +8.6e25 +10.3e25 +6.6e21 #
# genere $xT/RAYONS \ #
# +48e10 +32e10 +32e10 +32e10 +32e10 +40e10 +40e10 +32e10 +32e10 +32e10 #
# #
# $DELETE $xT/COULEURS$ROUGE #
# echo $GRIS_8 > $xT/COULEURS$ROUGE #
# couleurs $GRIS_2 $GRIS_8 111 VRAI $xT/COULEURS$ROUGE #
# #
# $DELETE $xT/COULEURS$VERTE #
# echo $GRIS_8 > $xT/COULEURS$VERTE #
# couleurs $GRIS_2 $GRIS_8 222 VRAI $xT/COULEURS$VERTE #
# #
# $DELETE $xT/COULEURS$BLEUE #
# echo $GRIS_8 > $xT/COULEURS$BLEUE #
# couleurs $GRIS_2 $GRIS_8 333 VRAI $xT/COULEURS$BLEUE #
# #
# Pal #
# #
# $xrr/N_corps.11$X corps=$NcorpsS \ #
# np=$Nimages \ #
# LISTE_X=$xT/COORDONNEES$COORD_X \ #
# LISTE_Y=$xT/COORDONNEES$COORD_Y \ #
# LISTE_Z=$xT/COORDONNEES$COORD_Z \ #
# LISTE_VX=$xT/VITESSES$COORD_X \ #
# LISTE_VY=$xT/VITESSES$COORD_Y \ #
# LISTE_VZ=$xT/VITESSES$COORD_Z \ #
# LISTE_MASSE=$xT/MASSES \ #
# LISTE_RAYON=$xT/RAYONS \ #
# LISTE_ROUGE=$xT/COULEURS$ROUGE \ #
# LISTE_VERTE=$xT/COULEURS$VERTE \ #
# LISTE_BLEUE=$xT/COULEURS$BLEUE \ #
# centrer=FAUX reference=1 \ #
# extension=5 \ #
# dct=10 \ #
# nombre=100000 \ #
# trainees=VRAI mode=1 \ #
# attenuation_des_images=1.0 \ #
# attenuation_des_trainees=0.99 \ #
# renormaliser=FAUX \ #
# lineaire=FAUX exposant=0.4 \ #
# Lz=1.0e13 \ #
# TRANSLATION_OX=0 \ #
# TRANSLATION_OY=0 \ #
# ZOOM=0.70 \ #
# fond=FAUX \ #
# R=$xw1/NCOR.7. \ #
# $formatI #
# #
# $DELETE $xT/COORDONNEES$COORD_X #
# $DELETE $xT/COORDONNEES$COORD_Y #
# $DELETE $xT/COORDONNEES$COORD_Z #
# $DELETE $xT/VITESSES$COORD_X #
# $DELETE $xT/VITESSES$COORD_Y #
# $DELETE $xT/VITESSES$COORD_Z #
# $DELETE $xT/MASSES #
# $DELETE $xT/RAYONS #
# $DELETE $xT/COULEURS$ROUGE #
# $DELETE $xT/COULEURS$VERTE #
# $DELETE $xT/COULEURS$BLEUE #
# #
# #
# Pal #
# #
# $xci/disk_video_P$Z $xw1/NCOR.7. 0001 1899 RVB \ #
# 9 1 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz \ #
# FAUX VRAI #
# $xci/disk_video_P$Z $xw1/NCOR.7. 1900 2641 RVB \ #
# 9 1 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz \ #
# FAUX VRAI #
# #
# Cet enregistrement (prevu pour aller jusqu'a 4096 images) a ete en fait realise en deux #
# fois a cause de problemes de swap lors de l'enregistrement le 1995122300 a 17:53 : #
# #
# unix: ALERT: disk_video_P.z [...] - out of logical swap space during fork/sproc #
# #
# La generation a donc ete arretee au bout de 2641 images afin que le probleme ne se #
# reproduise pas... #
sequence 011217_012240
# Generee par : #
# #
# ATTENTION, la masse de Saturne a longtemps valu ci-dessous +56.8e2 au lieu de +56.8e25, #
# ce qui constituait une erreur enorme... #
# #
# set Nimages=1024 #
# #
# set NcorpsS=10 #
# @ Ncorps = $NcorpsS - 1 #
# #
# alias genere 'set FiLe=\!:1 ; set LiStE=(\!:2*) ; \\ #
# $DELETE $FiLe ; \\ #
# echo "$LiStE" | $SE -e "s/$K_BLANC$K_BLANC*/ /g" | $R "$K_BLANC" "$K_NL" > $FiLe ; \\ #
# unset FiLe LiStE' #
# #
# alias couleurs 'set In=\!:1 ; set Su=\!:2 ; set Gr=\!:3 ; \\ #
# set Mo=\!:4 ; set Fi=\!:5* ; \\ #
# $xci/valeurs_alea$X p=1 d=$Ncorps g=$Gr inf=$In sup=$Su entiers=$Mo >>! $Fi ; \\ #
# unset In Su Gr Mo Fi' #
# #
# #
# genere $xT/COORDONNEES$COORD_X \ #
# +1e3 +514e+8 +213e+8 -203e+8 -204e+9 +501e+9 -134e+10 -150e+9 -436e+10 -392e+10 #
# genere $xT/COORDONNEES$COORD_Y \ #
# +1e3 +682e+7 +967e+8 +133e+9 +126e+9 -519e+9 +341e+9 +259e+10 -115e+10 +307e+10 #
# genere $xT/COORDONNEES$COORD_Z \ #
# +1e3 -163e+7 +422e+8 +579e+8 +634e+8 -235e+9 +199e+9 +113e+10 -363e+9 +216e+10 #
# genere $xT/VITESSES$COORD_X \ #
# 0 -1.46e+4 -3.44e+4 -2.99e+4 -1.27e+4 +9.67e+3 -3.21e+3 -6.84e+3 +1.42e+3 -2.27e+3 #
# genere $xT/VITESSES$COORD_Y \ #
# 0 +4.43e+4 +5.39e+3 -3.88e+3 -1.64e+4 +8.59e+3 -8.62e+3 -6.50e+2 -4.79e+3 -4.53e+3 #
# genere $xT/VITESSES$COORD_Z \ #
# 0 +2.52e+4 +4.60e+3 -1.68e+3 -7.18e+3 +3.44e+3 -3.42e+3 -1.88e+2 -2.00e+3 -7.39e+2 #
# genere $xT/MASSES \ #
# +2.0e30 +3.3e23 +48.7e23 +60.5e23 +6.4e23 +189.9e25 +56.8e25 +8.6e25 +10.3e25 +6.6e21 #
# genere $xT/RAYONS \ #
# +40e10 +25e10 +25e10 +25e10 +25e10 +35e10 +35e10 +30e10 +30e10 +25e10 #
# #
# $DELETE $xT/COULEURS$ROUGE #
# echo $GRIS_8 > $xT/COULEURS$ROUGE #
# couleurs $GRIS_1 $GRIS_8 111 VRAI $xT/COULEURS$ROUGE #
# #
# $DELETE $xT/COULEURS$VERTE #
# echo $GRIS_8 > $xT/COULEURS$VERTE #
# couleurs $GRIS_1 $GRIS_8 222 VRAI $xT/COULEURS$VERTE #
# #
# $DELETE $xT/COULEURS$BLEUE #
# echo $GRIS_8 > $xT/COULEURS$BLEUE #
# couleurs $GRIS_1 $GRIS_8 333 VRAI $xT/COULEURS$BLEUE #
# #
# Pal #
# #
# $xrr/N_corps.11$X corps=$NcorpsS \ #
# np=$Nimages \ #
# LISTE_X=$xT/COORDONNEES$COORD_X \ #
# LISTE_Y=$xT/COORDONNEES$COORD_Y \ #
# LISTE_Z=$xT/COORDONNEES$COORD_Z \ #
# LISTE_VX=$xT/VITESSES$COORD_X \ #
# LISTE_VY=$xT/VITESSES$COORD_Y \ #
# LISTE_VZ=$xT/VITESSES$COORD_Z \ #
# LISTE_MASSE=$xT/MASSES \ #
# LISTE_RAYON=$xT/RAYONS \ #
# LISTE_ROUGE=$xT/COULEURS$ROUGE \ #
# LISTE_VERTE=$xT/COULEURS$VERTE \ #
# LISTE_BLEUE=$xT/COULEURS$BLEUE \ #
# centrer=FAUX reference=1 \ #
# extension=5 \ #
# dct=10 \ #
# nombre=100000 \ #
# trainees=VRAI mode=1 \ #
# attenuation_des_images=1.0 \ #
# attenuation_des_trainees=0.9992 \ #
# renormaliser=FAUX \ #
# lineaire=FAUX exposant=0.4 \ #
# Lz=1.0e13 \ #
# TRANSLATION_OX=0 \ #
# TRANSLATION_OY=0 \ #
# ZOOM=0.60 \ #
# fond=FAUX \ #
# R=$xw1/NCOR.8. \ #
# $formatI #
# #
# $DELETE $xT/COORDONNEES$COORD_X #
# $DELETE $xT/COORDONNEES$COORD_Y #
# $DELETE $xT/COORDONNEES$COORD_Z #
# $DELETE $xT/VITESSES$COORD_X #
# $DELETE $xT/VITESSES$COORD_Y #
# $DELETE $xT/VITESSES$COORD_Z #
# $DELETE $xT/MASSES #
# $DELETE $xT/RAYONS #
# $DELETE $xT/COULEURS$ROUGE #
# $DELETE $xT/COULEURS$VERTE #
# $DELETE $xT/COULEURS$BLEUE #
# #
# #
# Pal #
# #
# $xci/disk_video_P$Z $xw1/NCOR.8. 0001 1024 RVB \ #
# 9 1 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz \ #
# FAUX VRAI #
# #
sequence 012241_012752
# Generee par : #
# #
# ATTENTION, la masse de Saturne a longtemps valu ci-dessous +56.8e2 au lieu de +56.8e25, #
# ce qui constituait une erreur enorme... #
# #
# set Nimages=512 #
# #
# set NcorpsS=10 #
# @ Ncorps = $NcorpsS - 1 #
# #
# alias genere 'set FiLe=\!:1 ; set LiStE=(\!:2*) ; \\ #
# $DELETE $FiLe ; \\ #
# echo "$LiStE" | $SE -e "s/$K_BLANC$K_BLANC*/ /g" | $R "$K_BLANC" "$K_NL" > $FiLe ; \\ #
# unset FiLe LiStE' #
# #
# alias couleurs 'set In=\!:1 ; set Su=\!:2 ; set Gr=\!:3 ; \\ #
# set Mo=\!:4 ; set Fi=\!:5* ; \\ #
# $xci/valeurs_alea$X p=1 d=$Ncorps g=$Gr inf=$In sup=$Su entiers=$Mo >>! $Fi ; \\ #
# unset In Su Gr Mo Fi' #
# #
# #
# genere $xT/COORDONNEES$COORD_X \ #
# +1e3 +514e+8 +213e+8 -203e+8 -204e+9 +501e+9 -134e+10 -150e+9 -436e+10 -392e+10 #
# genere $xT/COORDONNEES$COORD_Y \ #
# +1e3 +682e+7 +967e+8 +133e+9 +126e+9 -519e+9 +341e+9 +259e+10 -115e+10 +307e+10 #
# genere $xT/COORDONNEES$COORD_Z \ #
# +1e3 -163e+7 +422e+8 +579e+8 +634e+8 -235e+9 +199e+9 +113e+10 -363e+9 +216e+10 #
# genere $xT/VITESSES$COORD_X \ #
# 0 -1.46e+4 -3.44e+4 -2.99e+4 -1.27e+4 +9.67e+3 -3.21e+3 -6.84e+3 +1.42e+3 -2.27e+3 #
# genere $xT/VITESSES$COORD_Y \ #
# 0 +4.43e+4 +5.39e+3 -3.88e+3 -1.64e+4 +8.59e+3 -8.62e+3 -6.50e+2 -4.79e+3 -4.53e+3 #
# genere $xT/VITESSES$COORD_Z \ #
# 0 +2.52e+4 +4.60e+3 -1.68e+3 -7.18e+3 +3.44e+3 -3.42e+3 -1.88e+2 -2.00e+3 -7.39e+2 #
# genere $xT/MASSES \ #
# +2.0e30 +3.3e23 +48.7e23 +60.5e23 +6.4e23 +189.9e25 +56.8e25 +8.6e25 +10.3e25 +6.6e21 #
# genere $xT/RAYONS \ #
# +45e10 +25e10 +25e10 +25e10 +25e10 +35e10 +35e10 +30e10 +30e10 +25e10 #
# genere $xT/COULEURS$ROUGE \ #
# $GRIS_8 $GRIS_8 $GRIS_8 $GRIS_0 $GRIS_8 $GRIS_8 $GRIS_8 $GRIS_4 $GRIS_0 $GRIS_7 #
# genere $xT/COULEURS$VERTE \ #
# $GRIS_8 $GRIS_6 $GRIS_4 $GRIS_6 $GRIS_4 $GRIS_6 $GRIS_7 $GRIS_8 $GRIS_7 $GRIS_7 #
# genere $xT/COULEURS$BLEUE \ #
# $GRIS_0 $GRIS_2 $GRIS_0 $GRIS_8 $GRIS_2 $GRIS_0 $GRIS_0 $GRIS_8 $GRIS_8 $GRIS_8 #
# #
# Pal #
# #
# $xrr/N_corps.11$X corps=$NcorpsS \ #
# np=$Nimages \ #
# LISTE_X=$xT/COORDONNEES$COORD_X \ #
# LISTE_Y=$xT/COORDONNEES$COORD_Y \ #
# LISTE_Z=$xT/COORDONNEES$COORD_Z \ #
# LISTE_VX=$xT/VITESSES$COORD_X \ #
# LISTE_VY=$xT/VITESSES$COORD_Y \ #
# LISTE_VZ=$xT/VITESSES$COORD_Z \ #
# LISTE_MASSE=$xT/MASSES \ #
# LISTE_RAYON=$xT/RAYONS \ #
# LISTE_ROUGE=$xT/COULEURS$ROUGE \ #
# LISTE_VERTE=$xT/COULEURS$VERTE \ #
# LISTE_BLEUE=$xT/COULEURS$BLEUE \ #
# centrer=FAUX reference=1 \ #
# extension=5 \ #
# dct=10 \ #
# nombre=100000 \ #
# trainees=VRAI mode=1 \ #
# attenuation_des_images=1.0 \ #
# attenuation_des_trainees=0.9985 \ #
# renormaliser=FAUX \ #
# lineaire=FAUX exposant=0.4 \ #
# Lz=1.0e13 \ #
# TRANSLATION_OX=0 \ #
# TRANSLATION_OY=0 \ #
# ZOOM=0.60 \ #
# fond=FAUX \ #
# R=$xw1/NCOR.9. \ #
# $formatI #
# #
# $DELETE $xT/COORDONNEES$COORD_X #
# $DELETE $xT/COORDONNEES$COORD_Y #
# $DELETE $xT/COORDONNEES$COORD_Z #
# $DELETE $xT/VITESSES$COORD_X #
# $DELETE $xT/VITESSES$COORD_Y #
# $DELETE $xT/VITESSES$COORD_Z #
# $DELETE $xT/MASSES #
# $DELETE $xT/RAYONS #
# $DELETE $xT/COULEURS$ROUGE #
# $DELETE $xT/COULEURS$VERTE #
# $DELETE $xT/COULEURS$BLEUE #
# #
# #
# Pal #
# #
# $xci/reduction_16$Z $xw1/NCOR.9. $xiak/NCOR.C1 1 32 #
# $xci/reduction_64$Z $xw1/NCOR.9. $xiak/NCOR.C1 1 8 #
# #
# cp $xw1/NCOR.9.0512$ROUGE $xiirk/NCOR.C1.0512$ROUGE #
# cp $xw1/NCOR.9.0512$VERTE $xiirk/NCOR.C1.0512$VERTE #
# cp $xw1/NCOR.9.0512$BLEUE $xiirk/NCOR.C1.0512$BLEUE #
# #
# #
# Pal #
# #
# $xci/disk_video_P$Z $xw1/NCOR.9. 0001 0512 RVB \ #
# 9 1 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
# #
# xivPdf 3 2 #
# #
# record.01$Z $xiirk/NCOR.C1.0512 RVB Initialisation #
# record.01$Z $xiak/NCOR.C1$R16 RVB rien #
# record.01$Z $xiak/NCOR.C1$R64 RVB rien #
# #
sequence 012753_013264
# Generee par : #
# #
# ATTENTION, la masse de Saturne a longtemps valu ci-dessous +56.8e2 au lieu de +56.8e25, #
# ce qui constituait une erreur enorme... #
# #
# set Nimages=512 #
# #
# set NcorpsS=10 #
# @ Ncorps = $NcorpsS - 1 #
# #
# alias genere 'set FiLe=\!:1 ; set LiStE=(\!:2*) ; \\ #
# $DELETE $FiLe ; \\ #
# echo "$LiStE" | $SE -e "s/$K_BLANC$K_BLANC*/ /g" | $R "$K_BLANC" "$K_NL" > $FiLe ; \\ #
# unset FiLe LiStE' #
# #
# alias couleurs 'set In=\!:1 ; set Su=\!:2 ; set Gr=\!:3 ; \\ #
# set Mo=\!:4 ; set Fi=\!:5* ; \\ #
# $xci/valeurs_alea$X p=1 d=$Ncorps g=$Gr inf=$In sup=$Su entiers=$Mo >>! $Fi ; \\ #
# unset In Su Gr Mo Fi' #
# #
# #
# genere $xT/COORDONNEES$COORD_X \ #
# +1e3 +514e+8 +213e+8 -203e+8 -204e+9 +501e+9 -134e+10 -150e+9 -436e+10 -392e+10 #
# genere $xT/COORDONNEES$COORD_Y \ #
# +1e3 +682e+7 +967e+8 +133e+9 +126e+9 -519e+9 +341e+9 +259e+10 -115e+10 +307e+10 #
# genere $xT/COORDONNEES$COORD_Z \ #
# +1e3 -163e+7 +422e+8 +579e+8 +634e+8 -235e+9 +199e+9 +113e+10 -363e+9 +216e+10 #
# genere $xT/VITESSES$COORD_X \ #
# 0 -1.46e+4 -3.44e+4 -2.99e+4 -1.27e+4 +9.67e+3 -3.21e+3 -6.84e+3 +1.42e+3 -2.27e+3 #
# genere $xT/VITESSES$COORD_Y \ #
# 0 +4.43e+4 +5.39e+3 -3.88e+3 -1.64e+4 +8.59e+3 -8.62e+3 -6.50e+2 -4.79e+3 -4.53e+3 #
# genere $xT/VITESSES$COORD_Z \ #
# 0 +2.52e+4 +4.60e+3 -1.68e+3 -7.18e+3 +3.44e+3 -3.42e+3 -1.88e+2 -2.00e+3 -7.39e+2 #
# genere $xT/MASSES \ #
# +2.0e30 +3.3e23 +48.7e23 +60.5e23 +6.4e23 +189.9e25 +56.8e25 +8.6e25 +10.3e25 +6.6e21 #
# genere $xT/RAYONS \ #
# +40e10 +20e10 +20e10 +20e10 +20e10 +30e10 +30e10 +25e10 +25e10 +20e10 #
# genere $xT/COULEURS$ROUGE \ #
# $GRIS_8 $GRIS_8 $GRIS_8 $GRIS_0 $GRIS_8 $GRIS_8 $GRIS_8 $GRIS_4 $GRIS_0 $GRIS_7 #
# genere $xT/COULEURS$VERTE \ #
# $GRIS_8 $GRIS_6 $GRIS_4 $GRIS_6 $GRIS_4 $GRIS_6 $GRIS_7 $GRIS_8 $GRIS_7 $GRIS_7 #
# genere $xT/COULEURS$BLEUE \ #
# $GRIS_0 $GRIS_2 $GRIS_0 $GRIS_8 $GRIS_2 $GRIS_0 $GRIS_0 $GRIS_8 $GRIS_8 $GRIS_8 #
# #
# Pal #
# #
# $xrr/N_corps.11$X corps=$NcorpsS \ #
# np=$Nimages \ #
# LISTE_X=$xT/COORDONNEES$COORD_X \ #
# LISTE_Y=$xT/COORDONNEES$COORD_Y \ #
# LISTE_Z=$xT/COORDONNEES$COORD_Z \ #
# LISTE_VX=$xT/VITESSES$COORD_X \ #
# LISTE_VY=$xT/VITESSES$COORD_Y \ #
# LISTE_VZ=$xT/VITESSES$COORD_Z \ #
# LISTE_MASSE=$xT/MASSES \ #
# LISTE_RAYON=$xT/RAYONS \ #
# LISTE_ROUGE=$xT/COULEURS$ROUGE \ #
# LISTE_VERTE=$xT/COULEURS$VERTE \ #
# LISTE_BLEUE=$xT/COULEURS$BLEUE \ #
# centrer=FAUX reference=4 \ #
# extension=5 \ #
# dct=10 \ #
# nombre=100000 \ #
# trainees=VRAI mode=1 \ #
# attenuation_des_images=1.0 \ #
# attenuation_des_trainees=0.9985 \ #
# renormaliser=FAUX \ #
# lineaire=FAUX exposant=0.4 \ #
# Lz=1.0e13 \ #
# TRANSLATION_OX=0 \ #
# TRANSLATION_OY=0 \ #
# ZOOM=0.60 \ #
# fond=FAUX \ #
# R=$xw1/NCOR.A. \ #
# $formatI #
# #
# $DELETE $xT/COORDONNEES$COORD_X #
# $DELETE $xT/COORDONNEES$COORD_Y #
# $DELETE $xT/COORDONNEES$COORD_Z #
# $DELETE $xT/VITESSES$COORD_X #
# $DELETE $xT/VITESSES$COORD_Y #
# $DELETE $xT/VITESSES$COORD_Z #
# $DELETE $xT/MASSES #
# $DELETE $xT/RAYONS #
# $DELETE $xT/COULEURS$ROUGE #
# $DELETE $xT/COULEURS$VERTE #
# $DELETE $xT/COULEURS$BLEUE #
# #
# #
# Pal #
# #
# $xci/reduction_16$Z $xw1/NCOR.A. $xiak/NCOR.D1 1 32 #
# $xci/reduction_64$Z $xw1/NCOR.A. $xiak/NCOR.D1 1 8 #
# #
# cp $xw1/NCOR.A.0512$ROUGE $xiirk/NCOR.D1.0512$ROUGE #
# cp $xw1/NCOR.A.0512$VERTE $xiirk/NCOR.D1.0512$VERTE #
# cp $xw1/NCOR.A.0512$BLEUE $xiirk/NCOR.D1.0512$BLEUE #
# #
# #
# Pal #
# #
# $xci/disk_video_P$Z $xw1/NCOR.A. 0001 0512 RVB \ #
# 9 1 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
# #
# xivPdf 3 2 #
# #
# record.01$Z $xiirk/NCOR.D1.0512 RVB Initialisation #
# record.01$Z $xiak/NCOR.D1$R16 RVB rien #
# record.01$Z $xiak/NCOR.D1$R64 RVB rien #
# #
sequence 013265_013424
sequence 013425_013936
# Generee par : #
# #
# ATTENTION, la masse de Saturne a longtemps valu ci-dessous +56.8e2 au lieu de +56.8e25, #
# ce qui constituait une erreur enorme. Cette sequence a donc ete recalculee selon : #
# #
# xivPdf 9 1 / 016047_016558 #
# #
# avec la masse correcte... #
# #
# set Nimages=512 #
# #
# set NcorpsS=10 #
# @ Ncorps = $NcorpsS - 1 #
# #
# $DELETE $xT/ROTATION$COORD_X #
# $xci/valeurs_inte$X p=1 d=$Nimages vD=0 vA=$dpi cubique=VRAI > $xT/ROTATION$COORD_X #
# #
# alias genere 'set FiLe=\!:1 ; set LiStE=(\!:2*) ; \\ #
# $DELETE $FiLe ; \\ #
# echo "$LiStE" | $SE -e "s/$K_BLANC$K_BLANC*/ /g" | $R "$K_BLANC" "$K_NL" > $FiLe ; \\ #
# unset FiLe LiStE' #
# #
# alias couleurs 'set In=\!:1 ; set Su=\!:2 ; set Gr=\!:3 ; \\ #
# set Mo=\!:4 ; set Fi=\!:5* ; \\ #
# $xci/valeurs_alea$X p=1 d=$Ncorps g=$Gr inf=$In sup=$Su entiers=$Mo >>! $Fi ; \\ #
# unset In Su Gr Mo Fi' #
# #
# #
# genere $xT/COORDONNEES$COORD_X \ #
# +1e3 +514e+8 +213e+8 -203e+8 -204e+9 +501e+9 -134e+10 -150e+9 -436e+10 -392e+10 #
# genere $xT/COORDONNEES$COORD_Y \ #
# +1e3 +682e+7 +967e+8 +133e+9 +126e+9 -519e+9 +341e+9 +259e+10 -115e+10 +307e+10 #
# genere $xT/COORDONNEES$COORD_Z \ #
# +1e3 -163e+7 +422e+8 +579e+8 +634e+8 -235e+9 +199e+9 +113e+10 -363e+9 +216e+10 #
# genere $xT/VITESSES$COORD_X \ #
# 0 -1.46e+4 -3.44e+4 -2.99e+4 -1.27e+4 +9.67e+3 -3.21e+3 -6.84e+3 +1.42e+3 -2.27e+3 #
# genere $xT/VITESSES$COORD_Y \ #
# 0 +4.43e+4 +5.39e+3 -3.88e+3 -1.64e+4 +8.59e+3 -8.62e+3 -6.50e+2 -4.79e+3 -4.53e+3 #
# genere $xT/VITESSES$COORD_Z \ #
# 0 +2.52e+4 +4.60e+3 -1.68e+3 -7.18e+3 +3.44e+3 -3.42e+3 -1.88e+2 -2.00e+3 -7.39e+2 #
# genere $xT/MASSES \ #
# +2.0e30 +3.3e23 +48.7e23 +60.5e23 +6.4e23 +189.9e25 +56.8e25 +8.6e25 +10.3e25 +6.6e21 #
# genere $xT/RAYONS \ #
# +45e10 +25e10 +25e10 +25e10 +25e10 +35e10 +35e10 +30e10 +30e10 +25e10 #
# genere $xT/COULEURS$ROUGE \ #
# $GRIS_8 $GRIS_8 $GRIS_8 $GRIS_0 $GRIS_8 $GRIS_8 $GRIS_8 $GRIS_4 $GRIS_0 $GRIS_7 #
# genere $xT/COULEURS$VERTE \ #
# $GRIS_8 $GRIS_6 $GRIS_4 $GRIS_6 $GRIS_4 $GRIS_6 $GRIS_7 $GRIS_8 $GRIS_7 $GRIS_7 #
# genere $xT/COULEURS$BLEUE \ #
# $GRIS_0 $GRIS_2 $GRIS_0 $GRIS_8 $GRIS_2 $GRIS_0 $GRIS_0 $GRIS_8 $GRIS_8 $GRIS_8 #
# #
# Pal #
# #
# $xrr/N_corps.11$X corps=$NcorpsS \ #
# np=$Nimages \ #
# LISTE_X=$xT/COORDONNEES$COORD_X \ #
# LISTE_Y=$xT/COORDONNEES$COORD_Y \ #
# LISTE_Z=$xT/COORDONNEES$COORD_Z \ #
# LISTE_VX=$xT/VITESSES$COORD_X \ #
# LISTE_VY=$xT/VITESSES$COORD_Y \ #
# LISTE_VZ=$xT/VITESSES$COORD_Z \ #
# LISTE_MASSE=$xT/MASSES \ #
# LISTE_RAYON=$xT/RAYONS \ #
# LISTE_ROUGE=$xT/COULEURS$ROUGE \ #
# LISTE_VERTE=$xT/COULEURS$VERTE \ #
# LISTE_BLEUE=$xT/COULEURS$BLEUE \ #
# centrer=FAUX reference=1 \ #
# extension=5 \ #
# dct=10 \ #
# nombre=100000 \ #
# ensemble=VRAI \ #
# Ranterieurs=0.5 \ #
# trainees=FAUX \ #
# renormaliser=FAUX \ #
# lineaire=FAUX exposant=0.4 \ #
# Lz=1.0e13 \ #
# TRANSLATION_OX=0 \ #
# TRANSLATION_OY=0 \ #
# ZOOM=0.60 \ #
# ROTATION_OX=$xT/ROTATION$COORD_X \ #
# fond=FAUX \ #
# R=$xw1/NCOR.B. \ #
# $formatI #
# #
# $DELETE $xT/COORDONNEES$COORD_X #
# $DELETE $xT/COORDONNEES$COORD_Y #
# $DELETE $xT/COORDONNEES$COORD_Z #
# $DELETE $xT/VITESSES$COORD_X #
# $DELETE $xT/VITESSES$COORD_Y #
# $DELETE $xT/VITESSES$COORD_Z #
# $DELETE $xT/MASSES #
# $DELETE $xT/RAYONS #
# $DELETE $xT/COULEURS$ROUGE #
# $DELETE $xT/COULEURS$VERTE #
# $DELETE $xT/COULEURS$BLEUE #
# #
# $DELETE $xT/ROTATION$COORD_X #
# #
# #
# Pal #
# #
# $xci/reduction_16$Z $xw1/NCOR.B. $xiak/NCOR.C3 1 32 #
# $xci/reduction_64$Z $xw1/NCOR.B. $xiak/NCOR.C3 1 8 #
# #
# #
# Pal #
# #
# $xci/disk_video_P$Z $xw1/NCOR.B. 0001 0512 RVB \ #
# 9 1 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
# #
# xivPdf 3 2 #
# #
# record.01$Z $xiak/NCOR.C3$R16 RVB Initialisation #
# record.01$Z $xiak/NCOR.C3$R64 RVB rien #
# #
# ATTENTION, le "double enregistrement" est du a un oubli de 'ROTATION_OX'... #
sequence 013937_014448
# Generee par : #
# #
# ATTENTION, la masse de Saturne a longtemps valu ci-dessous +56.8e2 au lieu de +56.8e25, #
# ce qui constituait une erreur enorme. Cette sequence a donc ete recalculee selon : #
# #
# xivPdf 9 1 / 016559_017070 #
# #
# avec la masse correcte... #
# #
# set Nimages=512 #
# #
# set NcorpsS=10 #
# @ Ncorps = $NcorpsS - 1 #
# #
# $DELETE $xT/ROTATION$COORD_X #
# $xci/valeurs_inte$X p=1 d=$Nimages vD=0 vA=$dpi cubique=VRAI > $xT/ROTATION$COORD_X #
# #
# alias genere 'set FiLe=\!:1 ; set LiStE=(\!:2*) ; \\ #
# $DELETE $FiLe ; \\ #
# echo "$LiStE" | $SE -e "s/$K_BLANC$K_BLANC*/ /g" | $R "$K_BLANC" "$K_NL" > $FiLe ; \\ #
# unset FiLe LiStE' #
# #
# alias couleurs 'set In=\!:1 ; set Su=\!:2 ; set Gr=\!:3 ; \\ #
# set Mo=\!:4 ; set Fi=\!:5* ; \\ #
# $xci/valeurs_alea$X p=1 d=$Ncorps g=$Gr inf=$In sup=$Su entiers=$Mo >>! $Fi ; \\ #
# unset In Su Gr Mo Fi' #
# #
# #
# genere $xT/COORDONNEES$COORD_X \ #
# +1e3 +514e+8 +213e+8 -203e+8 -204e+9 +501e+9 -134e+10 -150e+9 -436e+10 -392e+10 #
# genere $xT/COORDONNEES$COORD_Y \ #
# +1e3 +682e+7 +967e+8 +133e+9 +126e+9 -519e+9 +341e+9 +259e+10 -115e+10 +307e+10 #
# genere $xT/COORDONNEES$COORD_Z \ #
# +1e3 -163e+7 +422e+8 +579e+8 +634e+8 -235e+9 +199e+9 +113e+10 -363e+9 +216e+10 #
# genere $xT/VITESSES$COORD_X \ #
# 0 -1.46e+4 -3.44e+4 -2.99e+4 -1.27e+4 +9.67e+3 -3.21e+3 -6.84e+3 +1.42e+3 -2.27e+3 #
# genere $xT/VITESSES$COORD_Y \ #
# 0 +4.43e+4 +5.39e+3 -3.88e+3 -1.64e+4 +8.59e+3 -8.62e+3 -6.50e+2 -4.79e+3 -4.53e+3 #
# genere $xT/VITESSES$COORD_Z \ #
# 0 +2.52e+4 +4.60e+3 -1.68e+3 -7.18e+3 +3.44e+3 -3.42e+3 -1.88e+2 -2.00e+3 -7.39e+2 #
# genere $xT/MASSES \ #
# +2.0e30 +3.3e23 +48.7e23 +60.5e23 +6.4e23 +189.9e25 +56.8e25 +8.6e25 +10.3e25 +6.6e21 #
# genere $xT/RAYONS \ #
# +40e10 +20e10 +20e10 +20e10 +20e10 +30e10 +30e10 +25e10 +25e10 +20e10 #
# genere $xT/COULEURS$ROUGE \ #
# $GRIS_8 $GRIS_8 $GRIS_8 $GRIS_0 $GRIS_8 $GRIS_8 $GRIS_8 $GRIS_4 $GRIS_0 $GRIS_7 #
# genere $xT/COULEURS$VERTE \ #
# $GRIS_8 $GRIS_6 $GRIS_4 $GRIS_6 $GRIS_4 $GRIS_6 $GRIS_7 $GRIS_8 $GRIS_7 $GRIS_7 #
# genere $xT/COULEURS$BLEUE \ #
# $GRIS_0 $GRIS_2 $GRIS_0 $GRIS_8 $GRIS_2 $GRIS_0 $GRIS_0 $GRIS_8 $GRIS_8 $GRIS_8 #
# #
# Pal #
# #
# $xrr/N_corps.11$X corps=$NcorpsS \ #
# np=$Nimages \ #
# LISTE_X=$xT/COORDONNEES$COORD_X \ #
# LISTE_Y=$xT/COORDONNEES$COORD_Y \ #
# LISTE_Z=$xT/COORDONNEES$COORD_Z \ #
# LISTE_VX=$xT/VITESSES$COORD_X \ #
# LISTE_VY=$xT/VITESSES$COORD_Y \ #
# LISTE_VZ=$xT/VITESSES$COORD_Z \ #
# LISTE_MASSE=$xT/MASSES \ #
# LISTE_RAYON=$xT/RAYONS \ #
# LISTE_ROUGE=$xT/COULEURS$ROUGE \ #
# LISTE_VERTE=$xT/COULEURS$VERTE \ #
# LISTE_BLEUE=$xT/COULEURS$BLEUE \ #
# centrer=FAUX reference=4 \ #
# extension=5 \ #
# dct=10 \ #
# nombre=100000 \ #
# ensemble=VRAI \ #
# Ranterieurs=0.5 \ #
# trainees=FAUX \ #
# renormaliser=FAUX \ #
# lineaire=FAUX exposant=0.4 \ #
# Lz=1.0e13 \ #
# TRANSLATION_OX=0 \ #
# TRANSLATION_OY=0 \ #
# ZOOM=0.60 \ #
# ROTATION_OX=$xT/ROTATION$COORD_X \ #
# fond=FAUX \ #
# R=$xw1/NCOR.C. \ #
# $formatI #
# #
# $DELETE $xT/COORDONNEES$COORD_X #
# $DELETE $xT/COORDONNEES$COORD_Y #
# $DELETE $xT/COORDONNEES$COORD_Z #
# $DELETE $xT/VITESSES$COORD_X #
# $DELETE $xT/VITESSES$COORD_Y #
# $DELETE $xT/VITESSES$COORD_Z #
# $DELETE $xT/MASSES #
# $DELETE $xT/RAYONS #
# $DELETE $xT/COULEURS$ROUGE #
# $DELETE $xT/COULEURS$VERTE #
# $DELETE $xT/COULEURS$BLEUE #
# #
# $DELETE $xT/ROTATION$COORD_X #
# #
# #
# Pal #
# #
# $xci/reduction_16$Z $xw1/NCOR.C. $xiak/NCOR.D3 1 32 #
# $xci/reduction_64$Z $xw1/NCOR.C. $xiak/NCOR.D3 1 8 #
# #
# #
# Pal #
# #
# $xci/disk_video_P$Z $xw1/NCOR.C. 0001 0512 RVB \ #
# 9 1 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
# #
# xivPdf 3 2 #
# #
# record.01$Z $xiak/NCOR.D3$R16 RVB rien #
# record.01$Z $xiak/NCOR.D3$R64 RVB rien #
# #
sequence 014449_014566
# Generee par : #
# #
# $Z set Nimages=128 #
# #
# $Z set NcorpsS=3 #
# #
# $Z $DELETE $xT/ROTATION$COORD_X #
# $Z $xci/valeurs_inte$X p=1 d=$Nimages vD=0 vA=0 cubique=VRAI > $xT/ROTATION$COORD_X #
# #
# $Z alias genere '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 genere $xT/MASSES 1.0e30 2.0e27 1.0e10 #
# $Z genere $xT/RAYONS 8.0e10 4.0e10 2.0e10 #
# $Z genere $xT/COULEURS$ROUGE $GRIS_8 $GRIS_0 $GRIS_4 #
# $Z genere $xT/COULEURS$VERTE $GRIS_7 $GRIS_6 $GRIS_4 #
# $Z genere $xT/COULEURS$BLEUE $GRIS_0 $GRIS_8 $GRIS_4 #
# #
# $Z Pal #
# #
# $c #define N0 1 #
# $c #define N 128 #
# $c int main() #
# $c { #
# $c double XcentreD=-700.0e9; #
# $c double XcentreA=-8.0e10; #
# #
# $c double YcentreD=+1.0e3; #
# $c double YcentreA=+1.0e3; #
# #
# $c double ZcentreD=+1.0e3; #
# $c double ZcentreA=+1.0e3; #
# #
# $c double XvitessD=0; #
# $c double XvitessA=0; #
# #
# $c double YvitessD=+7.0e3; #
# $c double YvitessA=+1.0e3; #
# #
# $c double ZvitessD=0; #
# $c double ZvitessA=0; #
# #
# $c int n; #
# $c for (n=N0 ; n<=N ; n++) #
# $c { #
# $c double Xcentre; #
# $c double Ycentre; #
# $c double Zcentre; #
# #
# $c double Xvitess; #
# $c double Yvitess; #
# $c double Zvitess; #
# #
# $c Xcentre=((XcentreA*(n-N0))+(XcentreD*(N-n)))/(N-N0); #
# $c Ycentre=((YcentreA*(n-N0))+(YcentreD*(N-n)))/(N-N0); #
# $c Zcentre=((ZcentreA*(n-N0))+(ZcentreD*(N-n)))/(N-N0); #
# #
# $c Xvitess=((XvitessA*(n-N0))+(XvitessD*(N-n)))/(N-N0); #
# $c Yvitess=((YvitessA*(n-N0))+(YvitessD*(N-n)))/(N-N0); #
# $c Zvitess=((ZvitessA*(n-N0))+(ZvitessD*(N-n)))/(N-N0); #
# #
# $c printf("genere #
# $c $xT/COORDONNEES$COORD_X #
# $c +1.0e3 -800.0e9 %+g\n" #
# $c ,Xcentre #
# $c ); #
# $c printf("genere #
# $c $xT/COORDONNEES$COORD_Y #
# $c +1.0e3 +1.0e3 %+g\n" #
# $c ,Ycentre #
# $c ); #
# $c printf("genere #
# $c $xT/COORDONNEES$COORD_Z #
# $c +1.0e3 +1.0e3 %+g\n" #
# $c ,Zcentre #
# $c ); #
# #
# $c printf("genere #
# $c $xT/VITESSES$COORD_X #
# $c 0 0 %+g\n" #
# $c ,Xvitess #
# $c ); #
# $c printf("genere #
# $c $xT/VITESSES$COORD_Y #
# $c 0 +7.0e3 %+g\n" #
# $c ,Yvitess #
# $c ); #
# $c printf("genere #
# $c $xT/VITESSES$COORD_Z #
# $c 0 0 %+g\n" #
# $c ,Zvitess #
# $c ); #
# #
# $c printf("$xrr/N_corps.11$X #
# $c corps=$NcorpsS #
# $c np=$Nimages #
# $c LISTE_X=$xT/COORDONNEES$COORD_X #
# $c LISTE_Y=$xT/COORDONNEES$COORD_Y #
# $c LISTE_Z=$xT/COORDONNEES$COORD_Z #
# $c LISTE_VX=$xT/VITESSES$COORD_X #
# $c LISTE_VY=$xT/VITESSES$COORD_Y #
# $c LISTE_VZ=$xT/VITESSES$COORD_Z #
# $c LISTE_MASSE=$xT/MASSES #
# $c LISTE_RAYON=$xT/RAYONS #
# $c LISTE_ROUGE=$xT/COULEURS$ROUGE #
# $c LISTE_VERTE=$xT/COULEURS$VERTE #
# $c LISTE_BLEUE=$xT/COULEURS$BLEUE #
# $c centrer=FAUX reference=3 #
# $c dct=100 #
# $c 2_a_2=FAUX source=1 #
# $c nombre=40000 #
# $c ensemble=VRAI #
# $c Ranterieurs=0.5 #
# $c trainees=FAUX #
# $c renormaliser=FAUX #
# $c TRANSLATION_OX=250e9 #
# $c ROTATION_OX=$xT/ROTATION$COORD_X #
# $c ZOOM=1.2 #
# $c fond=FAUX #
# $c pV=%d #
# $c R=$xT/NCOR.D. #
# $c $formatI\n" #
# $c ,N #
# $c ); #
# $c printf("$MV $xT/NCOR.D.%04d$ROUGE #
# $c $xw1/NCOR.D.%04d$ROUGE\n" #
# $c ,N,n #
# $c ); #
# $c printf("$MV $xT/NCOR.D.%04d$VERTE #
# $c $xw1/NCOR.D.%04d$VERTE\n" #
# $c ,N,n #
# $c ); #
# $c printf("$MV $xT/NCOR.D.%04d$BLEUE #
# $c $xw1/NCOR.D.%04d$BLEUE\n" #
# $c ,N,n #
# $c ); #
# #
# $c printf("$DELETE $xT/COORDONNEES$COORD_X\n"); #
# $c printf("$DELETE $xT/COORDONNEES$COORD_Y\n"); #
# $c printf("$DELETE $xT/COORDONNEES$COORD_Z\n"); #
# #
# $c printf("$DELETE $xT/VITESSES$COORD_X\n"); #
# $c printf("$DELETE $xT/VITESSES$COORD_Y\n"); #
# $c printf("$DELETE $xT/VITESSES$COORD_Z\n"); #
# $c } #
# $c } #
# #
# $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/ROTATION$COORD_X #
# #
# #
# $Z Pal #
# #
# $Z $xci/reduction_16$Z $xw1/NCOR.D. $xiak/NCOR.E1 1 4 #
# $Z $xci/reduction_64$Z $xw1/NCOR.D. $xiak/NCOR.E1 1 1 #
# #
# #
# Pal #
# #
# $xci/disk_video_P$Z $xw1/NCOR.D. 001 118 RVB \ #
# 9 1 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
# #
# xivPdf 3 2 #
# #
# record.01$Z $xiak/NCOR.E1$R16 RVB rien #
# record.01$Z $xiak/NCOR.E1$R64 RVB rien #
# #
# ATTENTION, il semblerait que je n'ai enregistre que 118 images (au lieu des 128 qui ont #
# et calculees...) ; ceci pourrait etre du au fait que les dix dernieres images n'etaient #
# pas tres belles... #
sequence 014567_014694
sequence 014695_014822
# Generee par : #
# #
# $Z set Nimages=128 #
# #
# $Z set NcorpsS=3 #
# #
# $Z $DELETE $xT/ROTATION$COORD_X #
# $Z $xci/valeurs_inte$X p=1 d=$Nimages vD=0 vA=0 cubique=VRAI > $xT/ROTATION$COORD_X #
# #
# $Z alias genere '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 genere $xT/MASSES +2.0e30 +6.4e23 +60.5e23 #
# $Z genere $xT/RAYONS 3.0e10 2.0e10 2.0e10 #
# $Z genere $xT/COULEURS$ROUGE $GRIS_8 $GRIS_8 $GRIS_0 #
# $Z genere $xT/COULEURS$VERTE $GRIS_8 $GRIS_4 $GRIS_6 #
# $Z genere $xT/COULEURS$BLEUE $GRIS_0 $GRIS_2 $GRIS_8 #
# #
# $Z Pal #
# #
# #
# On notera que le corps '3' (ou 'Terre') change ses conditions initiales par interpolation #
# lineaire entre les conditions initiales du corps '2' ('Mars') et celles d'un corps fictif #
# dont les conditions initiales sont homothetiques de celles du corps '2' dans le rapport #
# de 'Mars' a 'Mercure' (grace a leurs distance et vitesse moyennes respectives). De plus, #
# la valeur "nombre=4570" a ete choisie afin qu'avec le pas de temps "dct=100". la #
# planete 'Mars' fasse exactement un tour... #
# #
# #
# $c #define N0 1 #
# $c #define N 128 #
# $c int main() #
# $c { #
# $c double XcentreD=-204e+9; #
# $c double XcentreA=-204e+9*(57.9e9/227.9e9); #
# #
# $c double YcentreD=+126e+9; #
# $c double YcentreA=+126e+9*(57.9e9/227.9e9); #
# #
# $c double ZcentreD=+634e+8; #
# $c double ZcentreA=+634e+8*(57.9e9/227.9e9); #
# #
# $c double XvitessD=-1.27e+4; #
# $c double XvitessA=-1.27e+4*(47.89e3/24.13e3); #
# #
# $c double YvitessD=-1.64e+4; #
# $c double YvitessA=-1.64e+4*(47.89e3/24.13e3); #
# #
# $c double ZvitessD=-7.18e+3; #
# $c double ZvitessA=-7.18e+3*(47.89e3/24.13e3); #
# #
# $c int n; #
# $c for (n=N0 ; n<=N ; n++) #
# $c { #
# $c double Xcentre; #
# $c double Ycentre; #
# $c double Zcentre; #
# #
# $c double Xvitess; #
# $c double Yvitess; #
# $c double Zvitess; #
# #
# $c Xcentre=((XcentreA*(n-N0))+(XcentreD*(N-n)))/(N-N0); #
# $c Ycentre=((YcentreA*(n-N0))+(YcentreD*(N-n)))/(N-N0); #
# $c Zcentre=((ZcentreA*(n-N0))+(ZcentreD*(N-n)))/(N-N0); #
# #
# $c Xvitess=((XvitessA*(n-N0))+(XvitessD*(N-n)))/(N-N0); #
# $c Yvitess=((YvitessA*(n-N0))+(YvitessD*(N-n)))/(N-N0); #
# $c Zvitess=((ZvitessA*(n-N0))+(ZvitessD*(N-n)))/(N-N0); #
# #
# $c printf("genere #
# $c $xT/COORDONNEES$COORD_X #
# $c +1.0e3 -204e+9 %+g\n" #
# $c ,Xcentre #
# $c ); #
# $c printf("genere #
# $c $xT/COORDONNEES$COORD_Y #
# $c +1.0e3 +126e+9 %+g\n" #
# $c ,Ycentre #
# $c ); #
# $c printf("genere #
# $c $xT/COORDONNEES$COORD_Z #
# $c +1.0e3 +634e+8 %+g\n" #
# $c ,Zcentre #
# $c ); #
# #
# $c printf("genere #
# $c $xT/VITESSES$COORD_X #
# $c 0 -1.27e+4 %+g\n" #
# $c ,Xvitess #
# $c ); #
# $c printf("genere #
# $c $xT/VITESSES$COORD_Y #
# $c 0 -1.64e+4 %+g\n" #
# $c ,Yvitess #
# $c ); #
# $c printf("genere #
# $c $xT/VITESSES$COORD_Z #
# $c 0 -7.18e+3 %+g\n" #
# $c ,Zvitess #
# $c ); #
# #
# $c printf("$xrr/N_corps.11$X #
# $c corps=$NcorpsS #
# $c np=$Nimages #
# $c LISTE_X=$xT/COORDONNEES$COORD_X #
# $c LISTE_Y=$xT/COORDONNEES$COORD_Y #
# $c LISTE_Z=$xT/COORDONNEES$COORD_Z #
# $c LISTE_VX=$xT/VITESSES$COORD_X #
# $c LISTE_VY=$xT/VITESSES$COORD_Y #
# $c LISTE_VZ=$xT/VITESSES$COORD_Z #
# $c LISTE_MASSE=$xT/MASSES #
# $c LISTE_RAYON=$xT/RAYONS #
# $c LISTE_ROUGE=$xT/COULEURS$ROUGE #
# $c LISTE_VERTE=$xT/COULEURS$VERTE #
# $c LISTE_BLEUE=$xT/COULEURS$BLEUE #
# $c centrer=FAUX reference=1 #
# $c dct=100 #
# $c 2_a_2=FAUX source=1 #
# $c nombre=4570 #
# $c ensemble=VRAI #
# $c Ranterieurs=0.5 #
# $c trainees=FAUX #
# $c renormaliser=FAUX #
# $c TRANSLATION_OX=0 #
# $c TRANSLATION_OY=0 #
# $c ROTATION_OX=$xT/ROTATION$COORD_X #
# $c ZOOM=3.0 #
# $c fond=FAUX #
# $c pV=%d #
# $c R=$xT/NCOR.E. #
# $c $formatI\n" #
# $c ,N #
# $c ); #
# $c printf("$MV $xT/NCOR.E.%04d$ROUGE #
# $c $xw1/NCOR.E.%04d$ROUGE\n" #
# $c ,N,n #
# $c ); #
# $c printf("$MV $xT/NCOR.E.%04d$VERTE #
# $c $xw1/NCOR.E.%04d$VERTE\n" #
# $c ,N,n #
# $c ); #
# $c printf("$MV $xT/NCOR.E.%04d$BLEUE #
# $c $xw1/NCOR.E.%04d$BLEUE\n" #
# $c ,N,n #
# $c ); #
# #
# $c printf("$xrr/N_corps.11$X #
# $c corps=$NcorpsS #
# $c np=$Nimages #
# $c LISTE_X=$xT/COORDONNEES$COORD_X #
# $c LISTE_Y=$xT/COORDONNEES$COORD_Y #
# $c LISTE_Z=$xT/COORDONNEES$COORD_Z #
# $c LISTE_VX=$xT/VITESSES$COORD_X #
# $c LISTE_VY=$xT/VITESSES$COORD_Y #
# $c LISTE_VZ=$xT/VITESSES$COORD_Z #
# $c LISTE_MASSE=$xT/MASSES #
# $c LISTE_RAYON=$xT/RAYONS #
# $c LISTE_ROUGE=$xT/COULEURS$ROUGE #
# $c LISTE_VERTE=$xT/COULEURS$VERTE #
# $c LISTE_BLEUE=$xT/COULEURS$BLEUE #
# $c centrer=FAUX reference=3 #
# $c dct=100 #
# $c 2_a_2=FAUX source=1 #
# $c nombre=4570 #
# $c ensemble=VRAI #
# $c Ranterieurs=0.5 #
# $c trainees=FAUX #
# $c renormaliser=FAUX #
# $c TRANSLATION_OX=0 #
# $c TRANSLATION_OY=0 #
# $c ROTATION_OX=$xT/ROTATION$COORD_X #
# $c ZOOM=3.0 #
# $c fond=FAUX #
# $c pV=%d #
# $c R=$xT/NCOR.F. #
# $c $formatI\n" #
# $c ,N #
# $c ); #
# $c printf("$MV $xT/NCOR.F.%04d$ROUGE #
# $c $xw1/NCOR.F.%04d$ROUGE\n" #
# $c ,N,n #
# $c ); #
# $c printf("$MV $xT/NCOR.F.%04d$VERTE #
# $c $xw1/NCOR.F.%04d$VERTE\n" #
# $c ,N,n #
# $c ); #
# $c printf("$MV $xT/NCOR.F.%04d$BLEUE #
# $c $xw1/NCOR.F.%04d$BLEUE\n" #
# $c ,N,n #
# $c ); #
# #
# $c printf("$DELETE $xT/COORDONNEES$COORD_X\n"); #
# $c printf("$DELETE $xT/COORDONNEES$COORD_Y\n"); #
# $c printf("$DELETE $xT/COORDONNEES$COORD_Z\n"); #
# #
# $c printf("$DELETE $xT/VITESSES$COORD_X\n"); #
# $c printf("$DELETE $xT/VITESSES$COORD_Y\n"); #
# $c printf("$DELETE $xT/VITESSES$COORD_Z\n"); #
# $c } #
# $c } #
# #
# $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/ROTATION$COORD_X #
# #
# #
# $Z Pal #
# #
# $Z $xci/reduction_16$Z $xw1/NCOR.E. $xiak/NCOR.F1 1 8 #
# $Z $xci/reduction_64$Z $xw1/NCOR.E. $xiak/NCOR.F1 1 2 #
# #
# $Z $xci/reduction_16$Z $xw1/NCOR.F. $xiak/NCOR.F2 1 8 #
# $Z $xci/reduction_64$Z $xw1/NCOR.F. $xiak/NCOR.F2 1 2 #
# #
# #
# Pal #
# #
# $xci/disk_video_P$Z $xw1/NCOR.E. 001 128 RVB \ #
# 9 1 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
# $xci/disk_video_P$Z $xw1/NCOR.F. 001 128 RVB \ #
# 9 1 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
# #
# xivPdf 3 2 #
# #
# record.01$Z $xiak/NCOR.F1$R16 RVB rien #
# record.01$Z $xiak/NCOR.F1$R64 RVB rien #
# #
# record.01$Z $xiak/NCOR.F2$R16 RVB rien #
# record.01$Z $xiak/NCOR.F2$R64 RVB rien #
# #
sequence 014823_014950
sequence 014951_015078
# Generee par : #
# #
# $Z set Nimages=128 #
# #
# $Z set NcorpsS=3 #
# #
# $Z $DELETE $xT/ROTATION$COORD_X #
# $Z $xci/valeurs_inte$X p=1 d=$Nimages vD=0 vA=0 cubique=VRAI > $xT/ROTATION$COORD_X #
# #
# $Z alias genere '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 genere $xT/MASSES +2.0e30 +6.4e23 +60.5e23 #
# $Z genere $xT/RAYONS 1.5e10 1.0e10 1.0e10 #
# $Z genere $xT/COULEURS$ROUGE $GRIS_8 $GRIS_8 $GRIS_0 #
# $Z genere $xT/COULEURS$VERTE $GRIS_8 $GRIS_4 $GRIS_6 #
# $Z genere $xT/COULEURS$BLEUE $GRIS_0 $GRIS_2 $GRIS_8 #
# #
# $Z Pal #
# #
# #
# $c #define N0 1 #
# $c #define N 128 #
# $c int main() #
# $c { #
# $c double Fcentre=(57.9e9/227.9e9); #
# #
# $c double XcentreD=-204e+9; #
# $c double XcentreA; #
# #
# $c double YcentreD=+1.0e3; #
# $c double YcentreA; #
# #
# $c double ZcentreD=+1.0e3; #
# $c double ZcentreA; #
# #
# $c double Fvitess=(36.00e3/24.13e3); #
# #
# $c double XvitessD=0; #
# $c double XvitessA; #
# #
# $c double YvitessD=-2.00e+4; #
# $c double YvitessA; #
# #
# $c double ZvitessD=0; #
# $c double ZvitessA; #
# #
# $c int n; #
# #
# $c XcentreA=Fcentre*XcentreD; #
# $c YcentreA=Fcentre*YcentreD; #
# $c ZcentreA=Fcentre*ZcentreD; #
# #
# $c XvitessA=Fvitess*XvitessD; #
# $c YvitessA=Fvitess*YvitessD; #
# $c ZvitessA=Fvitess*ZvitessD; #
# #
# $c for (n=N0 ; n<=N ; n++) #
# $c { #
# $c double Xcentre; #
# $c double Ycentre; #
# $c double Zcentre; #
# #
# $c double Xvitess; #
# $c double Yvitess; #
# $c double Zvitess; #
# #
# $c Xcentre=((XcentreA*(n-N0))+(XcentreD*(N-n)))/(N-N0); #
# $c Ycentre=((YcentreA*(n-N0))+(YcentreD*(N-n)))/(N-N0); #
# $c Zcentre=((ZcentreA*(n-N0))+(ZcentreD*(N-n)))/(N-N0); #
# #
# $c Xvitess=((XvitessA*(n-N0))+(XvitessD*(N-n)))/(N-N0); #
# $c Yvitess=((YvitessA*(n-N0))+(YvitessD*(N-n)))/(N-N0); #
# $c Zvitess=((ZvitessA*(n-N0))+(ZvitessD*(N-n)))/(N-N0); #
# #
# $c printf("genere #
# $c $xT/COORDONNEES$COORD_X #
# $c +1.0e3 %+g %+g\n" #
# $c ,XcentreD,Xcentre #
# $c ); #
# $c printf("genere #
# $c $xT/COORDONNEES$COORD_Y #
# $c +1.0e3 %+g %+g\n" #
# $c ,YcentreD,Ycentre #
# $c ); #
# $c printf("genere #
# $c $xT/COORDONNEES$COORD_Z #
# $c +1.0e3 %+g %+g\n" #
# $c ,ZcentreD,Zcentre #
# $c ); #
# #
# $c printf("genere #
# $c $xT/VITESSES$COORD_X #
# $c 0 %+g %+g\n" #
# $c ,XvitessD,Xvitess #
# $c ); #
# $c printf("genere #
# $c $xT/VITESSES$COORD_Y #
# $c 0 %+g %+g\n" #
# $c ,YvitessD,Yvitess #
# $c ); #
# $c printf("genere #
# $c $xT/VITESSES$COORD_Z #
# $c 0 %+g %+g\n" #
# $c ,ZvitessD,Zvitess #
# $c ); #
# #
# $c printf("$xrr/N_corps.11$X #
# $c corps=$NcorpsS #
# $c np=$Nimages #
# $c LISTE_X=$xT/COORDONNEES$COORD_X #
# $c LISTE_Y=$xT/COORDONNEES$COORD_Y #
# $c LISTE_Z=$xT/COORDONNEES$COORD_Z #
# $c LISTE_VX=$xT/VITESSES$COORD_X #
# $c LISTE_VY=$xT/VITESSES$COORD_Y #
# $c LISTE_VZ=$xT/VITESSES$COORD_Z #
# $c LISTE_MASSE=$xT/MASSES #
# $c LISTE_RAYON=$xT/RAYONS #
# $c LISTE_ROUGE=$xT/COULEURS$ROUGE #
# $c LISTE_VERTE=$xT/COULEURS$VERTE #
# $c LISTE_BLEUE=$xT/COULEURS$BLEUE #
# $c centrer=FAUX reference=1 #
# $c dct=100 #
# $c 2_a_2=FAUX source=1 #
# $c nombre=2400 #
# $c ensemble=VRAI #
# $c Ranterieurs=0.5 #
# $c trainees=FAUX #
# $c renormaliser=FAUX #
# $c TRANSLATION_OX=0 #
# $c TRANSLATION_OY=0 #
# $c ROTATION_OX=$xT/ROTATION$COORD_X #
# $c ZOOM=6.0 #
# $c fond=FAUX #
# $c pV=%d #
# $c R=$xT/NCOR.G. #
# $c $formatI\n" #
# $c ,N #
# $c ); #
# $c printf("$MV $xT/NCOR.G.%04d$ROUGE #
# $c $xw1/NCOR.G.%04d$ROUGE\n" #
# $c ,N,n #
# $c ); #
# $c printf("$MV $xT/NCOR.G.%04d$VERTE #
# $c $xw1/NCOR.G.%04d$VERTE\n" #
# $c ,N,n #
# $c ); #
# $c printf("$MV $xT/NCOR.G.%04d$BLEUE #
# $c $xw1/NCOR.G.%04d$BLEUE\n" #
# $c ,N,n #
# $c ); #
# #
# $c printf("$xrr/N_corps.11$X #
# $c corps=$NcorpsS #
# $c np=$Nimages #
# $c LISTE_X=$xT/COORDONNEES$COORD_X #
# $c LISTE_Y=$xT/COORDONNEES$COORD_Y #
# $c LISTE_Z=$xT/COORDONNEES$COORD_Z #
# $c LISTE_VX=$xT/VITESSES$COORD_X #
# $c LISTE_VY=$xT/VITESSES$COORD_Y #
# $c LISTE_VZ=$xT/VITESSES$COORD_Z #
# $c LISTE_MASSE=$xT/MASSES #
# $c LISTE_RAYON=$xT/RAYONS #
# $c LISTE_ROUGE=$xT/COULEURS$ROUGE #
# $c LISTE_VERTE=$xT/COULEURS$VERTE #
# $c LISTE_BLEUE=$xT/COULEURS$BLEUE #
# $c centrer=FAUX reference=3 #
# $c dct=100 #
# $c 2_a_2=FAUX source=1 #
# $c nombre=2400 #
# $c ensemble=VRAI #
# $c Ranterieurs=0.5 #
# $c trainees=FAUX #
# $c renormaliser=FAUX #
# $c TRANSLATION_OX=0 #
# $c TRANSLATION_OY=0 #
# $c ROTATION_OX=$xT/ROTATION$COORD_X #
# $c ZOOM=6.0 #
# $c fond=FAUX #
# $c pV=%d #
# $c R=$xT/NCOR.H. #
# $c $formatI\n" #
# $c ,N #
# $c ); #
# $c printf("$MV $xT/NCOR.H.%04d$ROUGE #
# $c $xw1/NCOR.H.%04d$ROUGE\n" #
# $c ,N,n #
# $c ); #
# $c printf("$MV $xT/NCOR.H.%04d$VERTE #
# $c $xw1/NCOR.H.%04d$VERTE\n" #
# $c ,N,n #
# $c ); #
# $c printf("$MV $xT/NCOR.H.%04d$BLEUE #
# $c $xw1/NCOR.H.%04d$BLEUE\n" #
# $c ,N,n #
# $c ); #
# #
# $c printf("$DELETE $xT/COORDONNEES$COORD_X\n"); #
# $c printf("$DELETE $xT/COORDONNEES$COORD_Y\n"); #
# $c printf("$DELETE $xT/COORDONNEES$COORD_Z\n"); #
# #
# $c printf("$DELETE $xT/VITESSES$COORD_X\n"); #
# $c printf("$DELETE $xT/VITESSES$COORD_Y\n"); #
# $c printf("$DELETE $xT/VITESSES$COORD_Z\n"); #
# $c } #
# $c } #
# #
# $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/ROTATION$COORD_X #
# #
# #
# $Z Pal #
# #
# $Z $xci/reduction_16$Z $xw1/NCOR.G. $xiak/NCOR.G1 1 8 #
# $Z $xci/reduction_64$Z $xw1/NCOR.G. $xiak/NCOR.G1 1 2 #
# #
# $Z $xci/reduction_16$Z $xw1/NCOR.H. $xiak/NCOR.G2 1 8 #
# $Z $xci/reduction_64$Z $xw1/NCOR.H. $xiak/NCOR.G2 1 2 #
# #
# #
# Pal #
# #
# $xci/disk_video_P$Z $xw1/NCOR.G. 001 128 RVB \ #
# 9 1 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
# $xci/disk_video_P$Z $xw1/NCOR.H. 001 128 RVB \ #
# 9 1 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
# #
# xivPdf 3 2 #
# #
# record.01$Z $xiak/NCOR.G1$R16 RVB rien #
# record.01$Z $xiak/NCOR.G1$R64 RVB rien #
# #
# record.01$Z $xiak/NCOR.G2$R16 RVB rien #
# record.01$Z $xiak/NCOR.G2$R64 RVB rien #
# #
sequence 015079_015206
sequence 015207_015334
# Generee par : #
# #
# $Z SET Nimages=128 #
# #
# $Z set NcorpsS=3 #
# #
# $Z $DELETE $xT/ROTATION$COORD_X #
# $Z $xci/valeurs_inte$X p=1 d=$Nimages vD=0 vA=0 cubique=VRAI > $xT/ROTATION$COORD_X #
# #
# $Z alias genere '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 genere $xT/MASSES +2.0e30 +6.4e23 +60.5e23 #
# $Z genere $xT/RAYONS 2.2e10 1.5e10 1.5e10 #
# $Z genere $xT/COULEURS$ROUGE $GRIS_8 $GRIS_8 $GRIS_0 #
# $Z genere $xT/COULEURS$VERTE $GRIS_8 $GRIS_4 $GRIS_6 #
# $Z genere $xT/COULEURS$BLEUE $GRIS_0 $GRIS_2 $GRIS_8 #
# #
# $Z Pal #
# #
# #
# $c #define N0 1 #
# $c #define N Nimages #
# #
# $c extern double sqrt(); #
# #
# $c int main() #
# $c { #
# $c double Fcentre=(0.05e11/2.04e+11); #
# #
# $c double XcentreD=-2.04e+11; #
# $c double XcentreA; #
# #
# $c double YcentreD=+1.0e3; #
# $c double YcentreA; #
# #
# $c double ZcentreD=+1.0e3; #
# $c double ZcentreA; #
# #
# $c double XvitessD=0; #
# #
# $c double YvitessD=-2.57e+4; #
# #
# $c double ZvitessD=0; #
# #
# $c int n; #
# #
# $c XcentreA=Fcentre*XcentreD; #
# $c YcentreA=Fcentre*YcentreD; #
# $c ZcentreA=Fcentre*ZcentreD; #
# #
# $c for (n=N0 ; n<=N ; n++) #
# $c { #
# $c double Xcentre; #
# $c double Ycentre; #
# $c double Zcentre; #
# #
# $c double Xvitess; #
# $c double Yvitess; #
# $c double Zvitess; #
# #
# $c Xcentre=((XcentreA*(n-N0))+(XcentreD*(N-n)))/(N-N0); #
# $c Ycentre=((YcentreA*(n-N0))+(YcentreD*(N-n)))/(N-N0); #
# $c Zcentre=((ZcentreA*(n-N0))+(ZcentreD*(N-n)))/(N-N0); #
# #
# $c Xvitess=XvitessD*sqrt(XcentreD/Xcentre); #
# $c Yvitess=YvitessD*sqrt(YcentreD/Ycentre); #
# $c Zvitess=ZvitessD*sqrt(ZcentreD/Zcentre); #
# #
# $c printf("genere #
# $c $xT/COORDONNEES$COORD_X #
# $c +1.0e3 %+g %+g\n" #
# $c ,XcentreD,Xcentre #
# $c ); #
# $c printf("genere #
# $c $xT/COORDONNEES$COORD_Y #
# $c +1.0e3 %+g %+g\n" #
# $c ,YcentreD,Ycentre #
# $c ); #
# $c printf("genere #
# $c $xT/COORDONNEES$COORD_Z #
# $c +1.0e3 %+g %+g\n" #
# $c ,ZcentreD,Zcentre #
# $c ); #
# #
# $c printf("genere #
# $c $xT/VITESSES$COORD_X #
# $c 0 %+g %+g\n" #
# $c ,XvitessD,Xvitess #
# $c ); #
# $c printf("genere #
# $c $xT/VITESSES$COORD_Y #
# $c 0 %+g %+g\n" #
# $c ,YvitessD,Yvitess #
# $c ); #
# $c printf("genere #
# $c $xT/VITESSES$COORD_Z #
# $c 0 %+g %+g\n" #
# $c ,ZvitessD,Zvitess #
# $c ); #
# #
# $c printf("$xrr/N_corps.11$X #
# $c corps=$NcorpsS #
# $c np=$Nimages #
# $c LISTE_X=$xT/COORDONNEES$COORD_X #
# $c LISTE_Y=$xT/COORDONNEES$COORD_Y #
# $c LISTE_Z=$xT/COORDONNEES$COORD_Z #
# $c LISTE_VX=$xT/VITESSES$COORD_X #
# $c LISTE_VY=$xT/VITESSES$COORD_Y #
# $c LISTE_VZ=$xT/VITESSES$COORD_Z #
# $c LISTE_MASSE=$xT/MASSES #
# $c LISTE_RAYON=$xT/RAYONS #
# $c LISTE_ROUGE=$xT/COULEURS$ROUGE #
# $c LISTE_VERTE=$xT/COULEURS$VERTE #
# $c LISTE_BLEUE=$xT/COULEURS$BLEUE #
# $c centrer=FAUX reference=1 #
# $c dct=100 #
# $c 2_a_2=FAUX source=1 #
# $c nombre=4000 #
# $c ensemble=VRAI #
# $c Ranterieurs=0.5 #
# $c trainees=FAUX #
# $c renormaliser=FAUX #
# $c TRANSLATION_OX=0 #
# $c TRANSLATION_OY=0 #
# $c ROTATION_OX=$xT/ROTATION$COORD_X #
# $c ZOOM=4.0 #
# $c fond=FAUX #
# $c pV=%d #
# $c R=$xT/NCOR.I. #
# $c $formatI\n" #
# $c ,N #
# $c ); #
# $c printf("$MV $xT/NCOR.I.%04d$ROUGE #
# $c $xw1/NCOR.I.%04d$ROUGE\n" #
# $c ,N,n #
# $c ); #
# $c printf("$MV $xT/NCOR.I.%04d$VERTE #
# $c $xw1/NCOR.I.%04d$VERTE\n" #
# $c ,N,n #
# $c ); #
# $c printf("$MV $xT/NCOR.I.%04d$BLEUE #
# $c $xw1/NCOR.I.%04d$BLEUE\n" #
# $c ,N,n #
# $c ); #
# #
# $c printf("$xrr/N_corps.11$X #
# $c corps=$NcorpsS #
# $c np=$Nimages #
# $c LISTE_X=$xT/COORDONNEES$COORD_X #
# $c LISTE_Y=$xT/COORDONNEES$COORD_Y #
# $c LISTE_Z=$xT/COORDONNEES$COORD_Z #
# $c LISTE_VX=$xT/VITESSES$COORD_X #
# $c LISTE_VY=$xT/VITESSES$COORD_Y #
# $c LISTE_VZ=$xT/VITESSES$COORD_Z #
# $c LISTE_MASSE=$xT/MASSES #
# $c LISTE_RAYON=$xT/RAYONS #
# $c LISTE_ROUGE=$xT/COULEURS$ROUGE #
# $c LISTE_VERTE=$xT/COULEURS$VERTE #
# $c LISTE_BLEUE=$xT/COULEURS$BLEUE #
# $c centrer=FAUX reference=3 #
# $c dct=100 #
# $c 2_a_2=FAUX source=1 #
# $c nombre=4000 #
# $c ensemble=VRAI #
# $c Ranterieurs=0.5 #
# $c trainees=FAUX #
# $c renormaliser=FAUX #
# $c TRANSLATION_OX=0 #
# $c TRANSLATION_OY=0 #
# $c ROTATION_OX=$xT/ROTATION$COORD_X #
# $c ZOOM=4.0 #
# $c fond=FAUX #
# $c pV=%d #
# $c R=$xT/NCOR.J. #
# $c $formatI\n" #
# $c ,N #
# $c ); #
# $c printf("$MV $xT/NCOR.J.%04d$ROUGE #
# $c $xw1/NCOR.J.%04d$ROUGE\n" #
# $c ,N,n #
# $c ); #
# $c printf("$MV $xT/NCOR.J.%04d$VERTE #
# $c $xw1/NCOR.J.%04d$VERTE\n" #
# $c ,N,n #
# $c ); #
# $c printf("$MV $xT/NCOR.J.%04d$BLEUE #
# $c $xw1/NCOR.J.%04d$BLEUE\n" #
# $c ,N,n #
# $c ); #
# #
# $c printf("$DELETE $xT/COORDONNEES$COORD_X\n"); #
# $c printf("$DELETE $xT/COORDONNEES$COORD_Y\n"); #
# $c printf("$DELETE $xT/COORDONNEES$COORD_Z\n"); #
# #
# $c printf("$DELETE $xT/VITESSES$COORD_X\n"); #
# $c printf("$DELETE $xT/VITESSES$COORD_Y\n"); #
# $c printf("$DELETE $xT/VITESSES$COORD_Z\n"); #
# $c } #
# $c } #
# #
# $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/ROTATION$COORD_X #
# #
# #
# $Z Pal #
# #
# $Z $xci/reduction_16$Z $xw1/NCOR.I. $xiak/NCOR.H9 1 8 #
# $Z $xci/reduction_64$Z $xw1/NCOR.I. $xiak/NCOR.H9 1 2 #
# #
# $Z $xci/reduction_16$Z $xw1/NCOR.J. $xiak/NCOR.H2 1 8 #
# $Z $xci/reduction_64$Z $xw1/NCOR.J. $xiak/NCOR.H2 1 2 #
# #
# #
# Pal #
# #
# $xci/disk_video_P$Z $xw1/NCOR.I. 001 128 RVB \ #
# 9 1 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
# $xci/disk_video_P$Z $xw1/NCOR.J. 001 128 RVB \ #
# 9 1 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
# #
# xivPdf 3 2 #
# #
# record.01$Z $xiak/NCOR.H9$R16 RVB rien #
# record.01$Z $xiak/NCOR.H9$R64 RVB rien #
# #
# record.01$Z $xiak/NCOR.H2$R16 RVB rien #
# record.01$Z $xiak/NCOR.H2$R64 RVB rien #
# #
# #
# ATTENTION, la sequence : #
# #
# xivPdf 9 1 / 015207_015334 #
# #
# se termine sur une figure pentagonale dont l'origine est la trop grande vitesse de la #
# Terre au voisinage du Soleil. Sa trajectoire est tres certainement materialisee a l'aide #
# de cinq points uniquement. C'est pourquoi, elle a ete recalculee en : #
# #
# xivPdf 9 1 / 019731_020242 #
# #
# avec un echantillonnage quatre fois plus dense... #
sequence 015335_015337
sequence 015338_015343
sequence 015344_015434
# Generee (sur '$LACT12') par : #
# #
# $Z Pal #
# #
# $Z $xci/scale$X A=$xiirk/LYAP.33.10000$ROUGE \ #
# $Z a=0.6 \ #
# $Z R=$xT/LYAP$ROUGE \ #
# $Z $formatI #
# $Z $xci/scale$X A=$xiirk/LYAP.33.10000$VERTE \ #
# $Z a=0.6 \ #
# $Z R=$xT/LYAP$VERTE \ #
# $Z $formatI #
# $Z $xci/scale$X A=$xiirk/LYAP.33.10000$BLEUE \ #
# $Z a=0.6 \ #
# $Z R=$xT/LYAP$BLEUE \ #
# $Z $formatI #
# #
# $Z Pal #
# #
# $c #include <stdio.h> #
# #
# $c #define N0 0 #
# $c #define N 99 #
# $c #define R 3.0 #
# $c #define X0 0.5 #
# #
# $c #define cX0 0.14 #
# $c #define pasX 0.40 #
# $c #define cY0 0.3 #
# $c #define pasY 0.1 #
# #
# $c #define iPRINT0(dx,couleur,intro) \ #
# $c cY = cY + pasY; \ #
# $c printf("$xci/message$X \ #
# $c A=$xT/LYAP$%s \ #
# $c message='%sX=%.8f' \ #
# $c anti_aliasing=VRAI \ #
# $c X=%.4f Y=%.4f \ #
# $c R=$xw1/LYAP.3.%04d$%s \ #
# $c $formatI\n" \ #
# $c ,couleur,intro,dx,cX,cY,n,couleur \ #
# $c ); #
# $c #define iPRINTX1(couleur) \ #
# $c cY = cY + pasY; \ #
# $c printf("$xci/message$X \ #
# $c A=$xT/LYAP$%s \ #
# $c message='((R+1)*X)-(R*(X*X))' \ #
# $c anti_aliasing=VRAI \ #
# $c X=%.4f Y=%.4f \ #
# $c R=$xw1/LYAP.3.%04d$%s \ #
# $c $formatI\n" \ #
# $c ,couleur,cX,cY,n,couleur \ #
# $c ); #
# #
# $c #define iPRINTX2(couleur) \ #
# $c cY = cY + pasY; \ #
# $c printf("$xci/message$X \ #
# $c A=$xw1/LYAP.3.%04d$%s \ #
# $c message='((R+1)*X)-((R*X)*X)' \ #
# $c anti_aliasing=VRAI \ #
# $c X=%.4f Y=%.4f \ #
# $c R=$xw1/LYAP.3.%04d$%s \ #
# $c $formatI\n" \ #
# $c ,n,couleur,cX,cY,n,couleur \ #
# $c ); #
# #
# $c #define iPRINTX3(couleur) \ #
# $c cY = cY + pasY; \ #
# $c printf("$xci/message$X \ #
# $c A=$xw1/LYAP.3.%04d$%s \ #
# $c message='(((R+1)-(R*X))*X)' \ #
# $c anti_aliasing=VRAI \ #
# $c X=%.4f Y=%.4f \ #
# $c R=$xw1/LYAP.3.%04d$%s \ #
# $c $formatI\n" \ #
# $c ,n,couleur,cX,cY,n,couleur \ #
# $c ); #
# #
# $c #define iPRINTX4(couleur) \ #
# $c cY = cY + pasY; \ #
# $c printf("$xci/message$X \ #
# $c A=$xw1/LYAP.3.%04d$%s \ #
# $c message='(R*X)+((1-(R*X))*X)' \ #
# $c anti_aliasing=VRAI \ #
# $c X=%.4f Y=%.4f \ #
# $c R=$xw1/LYAP.3.%04d$%s \ #
# $c $formatI\n" \ #
# $c ,n,couleur,cX,cY,n,couleur \ #
# $c ); #
# #
# $c #define iPRINTX5(couleur) \ #
# $c cY = cY + pasY; \ #
# $c printf("$xci/message$X \ #
# $c A=$xw1/LYAP.3.%04d$%s \ #
# $c message='X+(R*((X)-(X*X)))' \ #
# $c anti_aliasing=VRAI \ #
# $c X=%.4f Y=%.4f \ #
# $c R=$xw1/LYAP.3.%04d$%s \ #
# $c $formatI\n" \ #
# $c ,n,couleur,cX,cY,n,couleur \ #
# $c ); #
# #
# $c #define iPRINTN(couleur) \ #
# $c cY = cY + pasY; \ #
# $c cY = cY + pasY; \ #
# $c printf("$xci/message$X \ #
# $c A=$xw1/LYAP.3.%04d$%s \ #
# $c message='N = %02d' \ #
# $c anti_aliasing=VRAI \ #
# $c X=%.4f Y=%.4f \ #
# $c R=$xw1/LYAP.3.%04d$%s \ #
# $c $formatI\n" \ #
# $c ,n,couleur,n,0.50-0.06,cY,n,couleur \ #
# $c ); #
# #
# $c #define nPRINT0(dx,couleur,intro) \ #
# $c cY = cY + pasY; \ #
# $c printf("$xci/message$X \ #
# $c A=$xw1/LYAP.3.%04d$%s \ #
# $c message='%sX=%.8f' \ #
# $c anti_aliasing=VRAI \ #
# $c X=%.4f Y=%.4f \ #
# $c R=$xw1/LYAP.3.%04d$%s \ #
# $c $formatI\n" \ #
# $c ,n,couleur,intro,dx,cX,cY,n,couleur \ #
# $c ); #
# $c #define nPRINTX1(couleur) \ #
# $c cY = cY + pasY; \ #
# $c printf("$xci/message$X \ #
# $c A=$xw1/LYAP.3.%04d$%s \ #
# $c message='((R+1)*X)-(R*(X*X))' \ #
# $c anti_aliasing=VRAI \ #
# $c X=%.4f Y=%.4f \ #
# $c R=$xw1/LYAP.3.%04d$%s \ #
# $c $formatI\n" \ #
# $c ,n,couleur,cX,cY,n,couleur \ #
# $c ); #
# #
# $c #define nPRINTX2(couleur) \ #
# $c iPRINTX2(couleur) #
# #
# $c #define nPRINTX3(couleur) \ #
# $c iPRINTX3(couleur) #
# #
# $c #define nPRINTX4(couleur) \ #
# $c iPRINTX4(couleur) #
# #
# $c #define nPRINTX5(couleur) \ #
# $c iPRINTX5(couleur) #
# #
# $c #define nPRINTN(couleur) \ #
# $c iPRINTN(couleur) #
# #
# $c int main() #
# $c { #
# $c double r=R; #
# $c double dx1=X0; #
# $c double dx2=X0; #
# $c double dx3=X0; #
# $c double dx4=X0; #
# $c double dx5=X0; #
# $c int n=N0; #
# $c double cX=cX0,cY=cY0; #
# #
# $c cX = cX0; #
# $c cX = cX + pasX; #
# $c cY = cY0 - pasY; #
# #
# $c iPRINT0(dx1,"ROUGE"," "); #
# $c nPRINT0(dx2,"ROUGE"," "); #
# $c nPRINT0(dx3,"ROUGE"," "); #
# $c nPRINT0(dx4,"ROUGE"," "); #
# $c nPRINT0(dx5,"ROUGE"," "); #
# $c nPRINTN("ROUGE"); #
# #
# $c cX = cX0; #
# $c cX = cX + pasX; #
# $c cY = cY0 - pasY; #
# #
# $c iPRINT0(dx1,"VERTE"," "); #
# $c nPRINT0(dx2,"VERTE"," "); #
# $c nPRINT0(dx3,"VERTE"," "); #
# $c nPRINT0(dx4,"VERTE"," "); #
# $c nPRINT0(dx5,"VERTE"," "); #
# $c nPRINTN("VERTE"); #
# #
# $c cX = cX0; #
# $c cX = cX + pasX; #
# $c cY = cY0 - pasY; #
# #
# $c iPRINT0(dx1,"BLEUE"," "); #
# $c nPRINT0(dx2,"BLEUE"," "); #
# $c nPRINT0(dx3,"BLEUE"," "); #
# $c nPRINT0(dx4,"BLEUE"," "); #
# $c nPRINT0(dx5,"BLEUE"," "); #
# $c nPRINTN("BLEUE"); #
# #
# $c for (n=1 ; n<=N ; n++) #
# $c { #
# #
# $c dx1 = ((r+1)*dx1) - (r*(dx1*dx1)); #
# $c dx2 = ((r+1)*dx2) - ((r*dx2)*dx2); #
# $c dx3 = (((r+1) - (r*dx3))*dx3); #
# $c dx4 = (r*dx4) + ((1 - (r*dx4))*dx4); #
# $c dx5 = dx5 + (r*((dx5) - (dx5*dx5))); #
# #
# $c cX=cX0; #
# $c cY=cY0 - pasY; #
# #
# $c iPRINTX1("ROUGE"); #
# $c nPRINTX2("ROUGE"); #
# $c nPRINTX3("ROUGE"); #
# $c nPRINTX4("ROUGE"); #
# $c nPRINTX5("ROUGE"); #
# $c nPRINTN("ROUGE"); #
# #
# $c cX = cX + pasX; #
# $c cY = cY0 - pasY; #
# #
# $c nPRINT0(dx1,"ROUGE","-> "); #
# $c nPRINT0(dx2,"ROUGE","-> "); #
# $c nPRINT0(dx3,"ROUGE","-> "); #
# $c nPRINT0(dx4,"ROUGE","-> "); #
# $c nPRINT0(dx5,"ROUGE","-> "); #
# #
# $c cX=cX0; #
# $c cY=cY0 - pasY; #
# #
# $c iPRINTX1("VERTE"); #
# $c nPRINTX2("VERTE"); #
# $c nPRINTX3("VERTE"); #
# $c nPRINTX4("VERTE"); #
# $c nPRINTX5("VERTE"); #
# $c nPRINTN("VERTE"); #
# #
# $c cX = cX + pasX; #
# $c cY = cY0 - pasY; #
# #
# $c nPRINT0(dx1,"VERTE","-> "); #
# $c nPRINT0(dx2,"VERTE","-> "); #
# $c nPRINT0(dx3,"VERTE","-> "); #
# $c nPRINT0(dx4,"VERTE","-> "); #
# $c nPRINT0(dx5,"VERTE","-> "); #
# #
# $c cX=cX0; #
# $c cY=cY0 - pasY; #
# #
# $c iPRINTX1("BLEUE"); #
# $c nPRINTX2("BLEUE"); #
# $c nPRINTX3("BLEUE"); #
# $c nPRINTX4("BLEUE"); #
# $c nPRINTX5("BLEUE"); #
# $c nPRINTN("BLEUE"); #
# #
# $c cX = cX + pasX; #
# $c cY = cY0 - pasY; #
# #
# $c nPRINT0(dx1,"BLEUE","-> "); #
# $c nPRINT0(dx2,"BLEUE","-> "); #
# $c nPRINT0(dx3,"BLEUE","-> "); #
# $c nPRINT0(dx4,"BLEUE","-> "); #
# $c nPRINT0(dx5,"BLEUE","-> "); #
# #
# $c } #
# $c } #
# #
# #
# Pal #
# #
# $xci/disk_video_P$Z $xw1/LYAP.3. 0 99 RVB \ #
# 9 1 Initialisation Sequence \ #
# "$formatI" $Gamma_paysages #
# #
# ATTENTION, l'enregistrement a ete fait en deux fois parce que j'ai ete oblige de #
# l'interrompre. En effet, etant donne que chaque composante est composee en plusieurs #
# passes, il est impossible d'enregistrer simultanement... #
# #
# Decidemment, je joue de malchance. J'ai eu la mauvaise idee de modifier la commande #
# '$xci/message$K' en meme temps, d'ou une deuxieme interruption... #
# #
# Tout va mal, en fait l'image correspondant a 'n=N0' contient les resultats 'X=' decales #
# a gauche par rapport a ceux des images suivantes. La sequence est donc refaite sous le #
# nom : #
# #
# xivPdf 9 1 / 015435_015534 #
# #
# qui est bien mieux ainsi... #
sequence 015435_015534
# Generee (sur '$LACT12') par : #
# #
# $Z Pal #
# #
# $Z $xci/scale$X A=$xiirk/LYAP.33.10000$ROUGE \ #
# $Z a=0.6 \ #
# $Z R=$xT/LYAP$ROUGE \ #
# $Z $formatI #
# $Z $xci/scale$X A=$xiirk/LYAP.33.10000$VERTE \ #
# $Z a=0.6 \ #
# $Z R=$xT/LYAP$VERTE \ #
# $Z $formatI #
# $Z $xci/scale$X A=$xiirk/LYAP.33.10000$BLEUE \ #
# $Z a=0.6 \ #
# $Z R=$xT/LYAP$BLEUE \ #
# $Z $formatI #
# #
# $Z Pal #
# #
# $c #include <stdio.h> #
# #
# $c #define N0 0 #
# $c #define N 99 #
# $c #define R 3.0 #
# $c #define X0 0.5 #
# #
# $c #define cX0 0.14 #
# $c #define pasX 0.40 #
# $c #define cY0 0.3 #
# $c #define pasY 0.1 #
# #
# $c #define iPRINT0(dx,couleur,intro) \ #
# $c cY = cY + pasY; \ #
# $c printf("$xci/message$X \ #
# $c A=$xT/LYAP$%s \ #
# $c message='%sX=%.8f' \ #
# $c anti_aliasing=VRAI \ #
# $c X=%.4f Y=%.4f \ #
# $c R=$xw1/LYAP.4.%04d$%s \ #
# $c $formatI\n" \ #
# $c ,couleur,intro,dx,cX,cY,n,couleur \ #
# $c ); #
# $c #define iPRINTX1(couleur) \ #
# $c cY = cY + pasY; \ #
# $c printf("$xci/message$X \ #
# $c A=$xT/LYAP$%s \ #
# $c message='((R+1)*X)-(R*(X*X))' \ #
# $c anti_aliasing=VRAI \ #
# $c X=%.4f Y=%.4f \ #
# $c R=$xw1/LYAP.4.%04d$%s \ #
# $c $formatI\n" \ #
# $c ,couleur,cX,cY,n,couleur \ #
# $c ); #
# #
# $c #define iPRINTX2(couleur) \ #
# $c cY = cY + pasY; \ #
# $c printf("$xci/message$X \ #
# $c A=$xw1/LYAP.4.%04d$%s \ #
# $c message='((R+1)*X)-((R*X)*X)' \ #
# $c anti_aliasing=VRAI \ #
# $c X=%.4f Y=%.4f \ #
# $c R=$xw1/LYAP.4.%04d$%s \ #
# $c $formatI\n" \ #
# $c ,n,couleur,cX,cY,n,couleur \ #
# $c ); #
# #
# $c #define iPRINTX3(couleur) \ #
# $c cY = cY + pasY; \ #
# $c printf("$xci/message$X \ #
# $c A=$xw1/LYAP.4.%04d$%s \ #
# $c message='(((R+1)-(R*X))*X)' \ #
# $c anti_aliasing=VRAI \ #
# $c X=%.4f Y=%.4f \ #
# $c R=$xw1/LYAP.4.%04d$%s \ #
# $c $formatI\n" \ #
# $c ,n,couleur,cX,cY,n,couleur \ #
# $c ); #
# #
# $c #define iPRINTX4(couleur) \ #
# $c cY = cY + pasY; \ #
# $c printf("$xci/message$X \ #
# $c A=$xw1/LYAP.4.%04d$%s \ #
# $c message='(R*X)+((1-(R*X))*X)' \ #
# $c anti_aliasing=VRAI \ #
# $c X=%.4f Y=%.4f \ #
# $c R=$xw1/LYAP.4.%04d$%s \ #
# $c $formatI\n" \ #
# $c ,n,couleur,cX,cY,n,couleur \ #
# $c ); #
# #
# $c #define iPRINTX5(couleur) \ #
# $c cY = cY + pasY; \ #
# $c printf("$xci/message$X \ #
# $c A=$xw1/LYAP.4.%04d$%s \ #
# $c message='X+(R*((X)-(X*X)))' \ #
# $c anti_aliasing=VRAI \ #
# $c X=%.4f Y=%.4f \ #
# $c R=$xw1/LYAP.4.%04d$%s \ #
# $c $formatI\n" \ #
# $c ,n,couleur,cX,cY,n,couleur \ #
# $c ); #
# #
# $c #define iPRINTN(couleur) \ #
# $c cY = cY + pasY; \ #
# $c cY = cY + pasY; \ #
# $c printf("$xci/message$X \ #
# $c A=$xw1/LYAP.4.%04d$%s \ #
# $c message='N = %02d' \ #
# $c anti_aliasing=VRAI \ #
# $c X=%.4f Y=%.4f \ #
# $c R=$xw1/LYAP.4.%04d$%s \ #
# $c $formatI\n" \ #
# $c ,n,couleur,n,0.50-0.06,cY,n,couleur \ #
# $c ); #
# #
# $c #define nPRINT0(dx,couleur,intro) \ #
# $c cY = cY + pasY; \ #
# $c printf("$xci/message$X \ #
# $c A=$xw1/LYAP.4.%04d$%s \ #
# $c message='%sX=%.8f' \ #
# $c anti_aliasing=VRAI \ #
# $c X=%.4f Y=%.4f \ #
# $c R=$xw1/LYAP.4.%04d$%s \ #
# $c $formatI\n" \ #
# $c ,n,couleur,intro,dx,cX,cY,n,couleur \ #
# $c ); #
# $c #define nPRINTX1(couleur) \ #
# $c cY = cY + pasY; \ #
# $c printf("$xci/message$X \ #
# $c A=$xw1/LYAP.4.%04d$%s \ #
# $c message='((R+1)*X)-(R*(X*X))' \ #
# $c anti_aliasing=VRAI \ #
# $c X=%.4f Y=%.4f \ #
# $c R=$xw1/LYAP.4.%04d$%s \ #
# $c $formatI\n" \ #
# $c ,n,couleur,cX,cY,n,couleur \ #
# $c ); #
# #
# $c #define nPRINTX2(couleur) \ #
# $c iPRINTX2(couleur) #
# #
# $c #define nPRINTX3(couleur) \ #
# $c iPRINTX3(couleur) #
# #
# $c #define nPRINTX4(couleur) \ #
# $c iPRINTX4(couleur) #
# #
# $c #define nPRINTX5(couleur) \ #
# $c iPRINTX5(couleur) #
# #
# $c #define nPRINTN(couleur) \ #
# $c iPRINTN(couleur) #
# #
# $c int main() #
# $c { #
# $c double r=R; #
# $c double dx1=X0; #
# $c double dx2=X0; #
# $c double dx3=X0; #
# $c double dx4=X0; #
# $c double dx5=X0; #
# $c int n=N0; #
# $c double cX=cX0,cY=cY0; #
# #
# $c cX = cX0; #
# $c cX = cX + pasX; #
# $c cY = cY0 - pasY; #
# #
# $c iPRINT0(dx1,"ROUGE"," "); #
# $c nPRINT0(dx2,"ROUGE"," "); #
# $c nPRINT0(dx3,"ROUGE"," "); #
# $c nPRINT0(dx4,"ROUGE"," "); #
# $c nPRINT0(dx5,"ROUGE"," "); #
# $c nPRINTN("ROUGE"); #
# #
# $c cX = cX0; #
# $c cX = cX + pasX; #
# $c cY = cY0 - pasY; #
# #
# $c iPRINT0(dx1,"VERTE"," "); #
# $c nPRINT0(dx2,"VERTE"," "); #
# $c nPRINT0(dx3,"VERTE"," "); #
# $c nPRINT0(dx4,"VERTE"," "); #
# $c nPRINT0(dx5,"VERTE"," "); #
# $c nPRINTN("VERTE"); #
# #
# $c cX = cX0; #
# $c cX = cX + pasX; #
# $c cY = cY0 - pasY; #
# #
# $c iPRINT0(dx1,"BLEUE"," "); #
# $c nPRINT0(dx2,"BLEUE"," "); #
# $c nPRINT0(dx3,"BLEUE"," "); #
# $c nPRINT0(dx4,"BLEUE"," "); #
# $c nPRINT0(dx5,"BLEUE"," "); #
# $c nPRINTN("BLEUE"); #
# #
# $c for (n=1 ; n<=N ; n++) #
# $c { #
# #
# $c dx1 = ((r+1)*dx1) - (r*(dx1*dx1)); #
# $c dx2 = ((r+1)*dx2) - ((r*dx2)*dx2); #
# $c dx3 = (((r+1) - (r*dx3))*dx3); #
# $c dx4 = (r*dx4) + ((1 - (r*dx4))*dx4); #
# $c dx5 = dx5 + (r*((dx5) - (dx5*dx5))); #
# #
# $c cX=cX0; #
# $c cY=cY0 - pasY; #
# #
# $c iPRINTX1("ROUGE"); #
# $c nPRINTX2("ROUGE"); #
# $c nPRINTX3("ROUGE"); #
# $c nPRINTX4("ROUGE"); #
# $c nPRINTX5("ROUGE"); #
# $c nPRINTN("ROUGE"); #
# #
# $c cX = cX + pasX; #
# $c cY = cY0 - pasY; #
# #
# $c nPRINT0(dx1,"ROUGE","-> "); #
# $c nPRINT0(dx2,"ROUGE","-> "); #
# $c nPRINT0(dx3,"ROUGE","-> "); #
# $c nPRINT0(dx4,"ROUGE","-> "); #
# $c nPRINT0(dx5,"ROUGE","-> "); #
# #
# $c cX=cX0; #
# $c cY=cY0 - pasY; #
# #
# $c iPRINTX1("VERTE"); #
# $c nPRINTX2("VERTE"); #
# $c nPRINTX3("VERTE"); #
# $c nPRINTX4("VERTE"); #
# $c nPRINTX5("VERTE"); #
# $c nPRINTN("VERTE"); #
# #
# $c cX = cX + pasX; #
# $c cY = cY0 - pasY; #
# #
# $c nPRINT0(dx1,"VERTE","-> "); #
# $c nPRINT0(dx2,"VERTE","-> "); #
# $c nPRINT0(dx3,"VERTE","-> "); #
# $c nPRINT0(dx4,"VERTE","-> "); #
# $c nPRINT0(dx5,"VERTE","-> "); #
# #
# $c cX=cX0; #
# $c cY=cY0 - pasY; #
# #
# $c iPRINTX1("BLEUE"); #
# $c nPRINTX2("BLEUE"); #
# $c nPRINTX3("BLEUE"); #
# $c nPRINTX4("BLEUE"); #
# $c nPRINTX5("BLEUE"); #
# $c nPRINTN("BLEUE"); #
# #
# $c cX = cX + pasX; #
# $c cY = cY0 - pasY; #
# #
# $c nPRINT0(dx1,"BLEUE","-> "); #
# $c nPRINT0(dx2,"BLEUE","-> "); #
# $c nPRINT0(dx3,"BLEUE","-> "); #
# $c nPRINT0(dx4,"BLEUE","-> "); #
# $c nPRINT0(dx5,"BLEUE","-> "); #
# #
# $c } #
# $c } #
# #
# #
# Pal #
# #
# $xci/disk_video_P$Z $xw1/LYAP.4. 0 99 RVB \ #
# 9 1 Initialisation Sequence \ #
# "$formatI" $Gamma_paysages #
# #
sequence 015535_016046
# Generee par : #
# #
# ATTENTION, la masse de Saturne a longtemps valu ci-dessous +56.8e2 au lieu de +56.8e25, #
# ce qui constituait une erreur enorme... #
# #
# set Nimages=512 #
# #
# set NcorpsS=10 #
# @ Ncorps = $NcorpsS - 1 #
# #
# $DELETE $xT/ROTATION$COORD_X #
# $xci/valeurs_inte$X p=1 d=$Nimages vD=0 vA=1.32 cubique=VRAI > $xT/ROTATION$COORD_X #
# #
# alias genere 'set FiLe=\!:1 ; set LiStE=(\!:2*) ; \\ #
# $DELETE $FiLe ; \\ #
# echo "$LiStE" | $SE -e "s/$K_BLANC$K_BLANC*/ /g" | $R "$K_BLANC" "$K_NL" > $FiLe ; \\ #
# unset FiLe LiStE' #
# #
# alias couleurs 'set In=\!:1 ; set Su=\!:2 ; set Gr=\!:3 ; \\ #
# set Mo=\!:4 ; set Fi=\!:5* ; \\ #
# $xci/valeurs_alea$X p=1 d=$Ncorps g=$Gr inf=$In sup=$Su entiers=$Mo >>! $Fi ; \\ #
# unset In Su Gr Mo Fi' #
# #
# #
# genere $xT/COORDONNEES$COORD_X \ #
# +1e3 +514e+8 +213e+8 -203e+8 -204e+9 +501e+9 -134e+10 -150e+9 -436e+10 -392e+10 #
# genere $xT/COORDONNEES$COORD_Y \ #
# +1e3 +682e+7 +967e+8 +133e+9 +126e+9 -519e+9 +341e+9 +259e+10 -115e+10 +307e+10 #
# genere $xT/COORDONNEES$COORD_Z \ #
# +1e3 -163e+7 +422e+8 +579e+8 +634e+8 -235e+9 +199e+9 +113e+10 -363e+9 +216e+10 #
# genere $xT/VITESSES$COORD_X \ #
# 0 -1.46e+4 -3.44e+4 -2.99e+4 -1.27e+4 +9.67e+3 -3.21e+3 -6.84e+3 +1.42e+3 -2.27e+3 #
# genere $xT/VITESSES$COORD_Y \ #
# 0 +4.43e+4 +5.39e+3 -3.88e+3 -1.64e+4 +8.59e+3 -8.62e+3 -6.50e+2 -4.79e+3 -4.53e+3 #
# genere $xT/VITESSES$COORD_Z \ #
# 0 +2.52e+4 +4.60e+3 -1.68e+3 -7.18e+3 +3.44e+3 -3.42e+3 -1.88e+2 -2.00e+3 -7.39e+2 #
# genere $xT/MASSES \ #
# +2.0e30 +3.3e23 +48.7e23 +60.5e23 +6.4e23 +189.9e25 +56.8e25 +8.6e25 +10.3e25 +6.6e21 #
# genere $xT/RAYONS \ #
# +40e10 +20e10 +20e10 +20e10 +20e10 +30e10 +30e10 +25e10 +25e10 +20e10 #
# genere $xT/COULEURS$ROUGE \ #
# $GRIS_8 $GRIS_8 $GRIS_8 $GRIS_0 $GRIS_8 $GRIS_8 $GRIS_8 $GRIS_4 $GRIS_0 $GRIS_7 #
# genere $xT/COULEURS$VERTE \ #
# $GRIS_8 $GRIS_6 $GRIS_4 $GRIS_6 $GRIS_4 $GRIS_6 $GRIS_7 $GRIS_8 $GRIS_7 $GRIS_7 #
# genere $xT/COULEURS$BLEUE \ #
# $GRIS_0 $GRIS_2 $GRIS_0 $GRIS_8 $GRIS_2 $GRIS_0 $GRIS_0 $GRIS_8 $GRIS_8 $GRIS_8 #
# #
# Pal #
# #
# $xrr/N_corps.11$X corps=$NcorpsS \ #
# np=$Nimages \ #
# LISTE_X=$xT/COORDONNEES$COORD_X \ #
# LISTE_Y=$xT/COORDONNEES$COORD_Y \ #
# LISTE_Z=$xT/COORDONNEES$COORD_Z \ #
# LISTE_VX=$xT/VITESSES$COORD_X \ #
# LISTE_VY=$xT/VITESSES$COORD_Y \ #
# LISTE_VZ=$xT/VITESSES$COORD_Z \ #
# LISTE_MASSE=$xT/MASSES \ #
# LISTE_RAYON=$xT/RAYONS \ #
# LISTE_ROUGE=$xT/COULEURS$ROUGE \ #
# LISTE_VERTE=$xT/COULEURS$VERTE \ #
# LISTE_BLEUE=$xT/COULEURS$BLEUE \ #
# centrer=FAUX reference=4 \ #
# extension=5 \ #
# dct=10 \ #
# nombre=100000 \ #
# ensemble=VRAI \ #
# Ranterieurs=0.5 \ #
# trainees=FAUX \ #
# renormaliser=FAUX \ #
# lineaire=FAUX exposant=0.4 \ #
# Lz=1.0e13 \ #
# TRANSLATION_OX=0 \ #
# TRANSLATION_OY=0 \ #
# ZOOM=0.60 \ #
# ROTATION_OX=$xT/ROTATION$COORD_X \ #
# fond=FAUX \ #
# R=$xw1/NCOR.K. \ #
# $formatI #
# #
# $DELETE $xT/COORDONNEES$COORD_X #
# $DELETE $xT/COORDONNEES$COORD_Y #
# $DELETE $xT/COORDONNEES$COORD_Z #
# $DELETE $xT/VITESSES$COORD_X #
# $DELETE $xT/VITESSES$COORD_Y #
# $DELETE $xT/VITESSES$COORD_Z #
# $DELETE $xT/MASSES #
# $DELETE $xT/RAYONS #
# $DELETE $xT/COULEURS$ROUGE #
# $DELETE $xT/COULEURS$VERTE #
# $DELETE $xT/COULEURS$BLEUE #
# #
# $DELETE $xT/ROTATION$COORD_X #
# #
# #
# Pal #
# #
# $xci/reduction_16$Z $xw1/NCOR.K. $xiak/NCOR.D4 1 32 #
# $xci/reduction_64$Z $xw1/NCOR.K. $xiak/NCOR.D4 1 8 #
# #
# cp $xw1/NCOR.K.0512$ROUGE $xiirk/NCOR.D4.0512$ROUGE #
# cp $xw1/NCOR.K.0512$VERTE $xiirk/NCOR.D4.0512$VERTE #
# cp $xw1/NCOR.K.0512$BLEUE $xiirk/NCOR.D4.0512$BLEUE #
# #
# #
# Pal #
# #
# $xci/disk_video_P$Z $xw1/NCOR.K. 0001 0512 RVB \ #
# 9 1 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
# #
# xivPdf 3 2 #
# #
# record.01$Z $xiak/NCOR.D4$R16 RVB rien #
# record.01$Z $xiak/NCOR.D4$R64 RVB rien #
# #
# record.01$Z $xiirk/NCOR.D4.0512 RVB rien #
# #
sequence 016047_016558
# Generee par : #
# #
# set Nimages=512 #
# #
# set NcorpsS=10 #
# @ Ncorps = $NcorpsS - 1 #
# #
# $DELETE $xT/ROTATION$COORD_X #
# $xci/valeurs_inte$X p=1 d=$Nimages vD=0 vA=$dpi cubique=VRAI > $xT/ROTATION$COORD_X #
# #
# alias genere 'set FiLe=\!:1 ; set LiStE=(\!:2*) ; \\ #
# $DELETE $FiLe ; \\ #
# echo "$LiStE" | $SE -e "s/$K_BLANC$K_BLANC*/ /g" | $R "$K_BLANC" "$K_NL" > $FiLe ; \\ #
# unset FiLe LiStE' #
# #
# alias couleurs 'set In=\!:1 ; set Su=\!:2 ; set Gr=\!:3 ; \\ #
# set Mo=\!:4 ; set Fi=\!:5* ; \\ #
# $xci/valeurs_alea$X p=1 d=$Ncorps g=$Gr inf=$In sup=$Su entiers=$Mo >>! $Fi ; \\ #
# unset In Su Gr Mo Fi' #
# #
# #
# genere $xT/COORDONNEES$COORD_X \ #
# +1e3 +514e+8 +213e+8 -203e+8 -204e+9 +501e+9 -134e+10 -150e+9 -436e+10 -392e+10 #
# genere $xT/COORDONNEES$COORD_Y \ #
# +1e3 +682e+7 +967e+8 +133e+9 +126e+9 -519e+9 +341e+9 +259e+10 -115e+10 +307e+10 #
# genere $xT/COORDONNEES$COORD_Z \ #
# +1e3 -163e+7 +422e+8 +579e+8 +634e+8 -235e+9 +199e+9 +113e+10 -363e+9 +216e+10 #
# genere $xT/VITESSES$COORD_X \ #
# 0 -1.46e+4 -3.44e+4 -2.99e+4 -1.27e+4 +9.67e+3 -3.21e+3 -6.84e+3 +1.42e+3 -2.27e+3 #
# genere $xT/VITESSES$COORD_Y \ #
# 0 +4.43e+4 +5.39e+3 -3.88e+3 -1.64e+4 +8.59e+3 -8.62e+3 -6.50e+2 -4.79e+3 -4.53e+3 #
# genere $xT/VITESSES$COORD_Z \ #
# 0 +2.52e+4 +4.60e+3 -1.68e+3 -7.18e+3 +3.44e+3 -3.42e+3 -1.88e+2 -2.00e+3 -7.39e+2 #
# genere $xT/MASSES \ #
# +2.0e30 +3.3e23 +48.7e23 +60.5e23 +6.4e23 +189.9e25 +56.8e25 +8.6e25 +10.3e25 +6.6e21 #
# genere $xT/RAYONS \ #
# +40e10 +20e10 +20e10 +20e10 +20e10 +30e10 +30e10 +25e10 +25e10 +20e10 #
# genere $xT/COULEURS$ROUGE \ #
# $GRIS_8 $GRIS_8 $GRIS_8 $GRIS_0 $GRIS_8 $GRIS_8 $GRIS_8 $GRIS_4 $GRIS_0 $GRIS_7 #
# genere $xT/COULEURS$VERTE \ #
# $GRIS_8 $GRIS_6 $GRIS_4 $GRIS_6 $GRIS_4 $GRIS_6 $GRIS_7 $GRIS_8 $GRIS_7 $GRIS_7 #
# genere $xT/COULEURS$BLEUE \ #
# $GRIS_0 $GRIS_2 $GRIS_0 $GRIS_8 $GRIS_2 $GRIS_0 $GRIS_0 $GRIS_8 $GRIS_8 $GRIS_8 #
# #
# Pal #
# #
# $xrr/N_corps.11$X corps=$NcorpsS \ #
# np=$Nimages \ #
# LISTE_X=$xT/COORDONNEES$COORD_X \ #
# LISTE_Y=$xT/COORDONNEES$COORD_Y \ #
# LISTE_Z=$xT/COORDONNEES$COORD_Z \ #
# LISTE_VX=$xT/VITESSES$COORD_X \ #
# LISTE_VY=$xT/VITESSES$COORD_Y \ #
# LISTE_VZ=$xT/VITESSES$COORD_Z \ #
# LISTE_MASSE=$xT/MASSES \ #
# LISTE_RAYON=$xT/RAYONS \ #
# LISTE_ROUGE=$xT/COULEURS$ROUGE \ #
# LISTE_VERTE=$xT/COULEURS$VERTE \ #
# LISTE_BLEUE=$xT/COULEURS$BLEUE \ #
# centrer=FAUX reference=1 \ #
# extension=5 \ #
# dct=10 \ #
# nombre=100000 \ #
# ensemble=VRAI \ #
# Ranterieurs=0.5 \ #
# trainees=FAUX \ #
# renormaliser=FAUX \ #
# lineaire=FAUX exposant=0.4 \ #
# Lz=1.0e13 \ #
# TRANSLATION_OX=0 \ #
# TRANSLATION_OY=0 \ #
# ZOOM=0.60 \ #
# ROTATION_OX=$xT/ROTATION$COORD_X \ #
# fond=FAUX \ #
# R=$xw1/NCOR.B. \ #
# $formatI #
# #
# $DELETE $xT/COORDONNEES$COORD_X #
# $DELETE $xT/COORDONNEES$COORD_Y #
# $DELETE $xT/COORDONNEES$COORD_Z #
# $DELETE $xT/VITESSES$COORD_X #
# $DELETE $xT/VITESSES$COORD_Y #
# $DELETE $xT/VITESSES$COORD_Z #
# $DELETE $xT/MASSES #
# $DELETE $xT/RAYONS #
# $DELETE $xT/COULEURS$ROUGE #
# $DELETE $xT/COULEURS$VERTE #
# $DELETE $xT/COULEURS$BLEUE #
# #
# $DELETE $xT/ROTATION$COORD_X #
# #
# #
# Pal #
# #
# $xci/reduction_16$Z $xw1/NCOR.B. $xiak/NCOR.C3 1 32 #
# $xci/reduction_64$Z $xw1/NCOR.B. $xiak/NCOR.C3 1 8 #
# #
# $CP $xw1/NCOR.B.0512$ROUGE $xiirk/NCOR.C3.0512$ROUGE #
# $CP $xw1/NCOR.B.0512$VERTE $xiirk/NCOR.C3.0512$VERTE #
# $CP $xw1/NCOR.B.0512$BLEUE $xiirk/NCOR.C3.0512$BLEUE #
# #
# ro $xiak/NCOR.C3$R16$ROUGE #
# ro $xiak/NCOR.C3$R16$VERTE #
# ro $xiak/NCOR.C3$R16$BLEUE #
# #
# ro $xiak/NCOR.C3$R64$ROUGE #
# ro $xiak/NCOR.C3$R64$VERTE #
# ro $xiak/NCOR.C3$R64$BLEUE #
# #
# $xcg/unite$Z $xiak/NCOR.C3$R16$ROUGE #
# $xcg/unite$Z $xiak/NCOR.C3$R16$VERTE #
# $xcg/unite$Z $xiak/NCOR.C3$R16$BLEUE #
# #
# $xcg/unite$Z $xiak/NCOR.C3$R64$ROUGE #
# $xcg/unite$Z $xiak/NCOR.C3$R64$VERTE #
# $xcg/unite$Z $xiak/NCOR.C3$R64$BLEUE #
# #
# ro $xiirk/NCOR.C3.0512$ROUGE #
# ro $xiirk/NCOR.C3.0512$VERTE #
# ro $xiirk/NCOR.C3.0512$BLEUE #
# #
# $xcg/unite$Z $xiirk/NCOR.C3.0512$ROUGE #
# $xcg/unite$Z $xiirk/NCOR.C3.0512$VERTE #
# $xcg/unite$Z $xiirk/NCOR.C3.0512$BLEUE #
# #
# #
# Pal #
# #
# $xci/disk_video_P$Z $xw1/NCOR.B. 0001 0512 RVB \ #
# 9 1 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
# #
# xivPdf 3 2 #
# #
# record.01$Z $xiak/NCOR.C3$R16 RVB Initialisation #
# record.01$Z $xiak/NCOR.C3$R64 RVB rien #
# #
# record.01$Z $xiirk/NCOR.C3.0512 RVB rien #
# #
# Cette sequence est la version corrigee de la sequence : #
# #
# xivPdf 9 1 / 013425_013936 #
# #
# pour la masse correcte de Saturne... #
sequence 016559_016562
sequence 016563_016566
sequence 016567_017070
# Generee par : #
# #
# set Nimages=512 #
# #
# set NcorpsS=10 #
# @ Ncorps = $NcorpsS - 1 #
# #
# $DELETE $xT/ROTATION$COORD_X #
# $xci/valeurs_inte$X p=1 d=$Nimages vD=0 vA=$dpi cubique=VRAI > $xT/ROTATION$COORD_X #
# #
# alias genere 'set FiLe=\!:1 ; set LiStE=(\!:2*) ; \\ #
# $DELETE $FiLe ; \\ #
# echo "$LiStE" | $SE -e "s/$K_BLANC$K_BLANC*/ /g" | $R "$K_BLANC" "$K_NL" > $FiLe ; \\ #
# unset FiLe LiStE' #
# #
# alias couleurs 'set In=\!:1 ; set Su=\!:2 ; set Gr=\!:3 ; \\ #
# set Mo=\!:4 ; set Fi=\!:5* ; \\ #
# $xci/valeurs_alea$X p=1 d=$Ncorps g=$Gr inf=$In sup=$Su entiers=$Mo >>! $Fi ; \\ #
# unset In Su Gr Mo Fi' #
# #
# #
# genere $xT/COORDONNEES$COORD_X \ #
# +1e3 +514e+8 +213e+8 -203e+8 -204e+9 +501e+9 -134e+10 -150e+9 -436e+10 -392e+10 #
# genere $xT/COORDONNEES$COORD_Y \ #
# +1e3 +682e+7 +967e+8 +133e+9 +126e+9 -519e+9 +341e+9 +259e+10 -115e+10 +307e+10 #
# genere $xT/COORDONNEES$COORD_Z \ #
# +1e3 -163e+7 +422e+8 +579e+8 +634e+8 -235e+9 +199e+9 +113e+10 -363e+9 +216e+10 #
# genere $xT/VITESSES$COORD_X \ #
# 0 -1.46e+4 -3.44e+4 -2.99e+4 -1.27e+4 +9.67e+3 -3.21e+3 -6.84e+3 +1.42e+3 -2.27e+3 #
# genere $xT/VITESSES$COORD_Y \ #
# 0 +4.43e+4 +5.39e+3 -3.88e+3 -1.64e+4 +8.59e+3 -8.62e+3 -6.50e+2 -4.79e+3 -4.53e+3 #
# genere $xT/VITESSES$COORD_Z \ #
# 0 +2.52e+4 +4.60e+3 -1.68e+3 -7.18e+3 +3.44e+3 -3.42e+3 -1.88e+2 -2.00e+3 -7.39e+2 #
# genere $xT/MASSES \ #
# +2.0e30 +3.3e23 +48.7e23 +60.5e23 +6.4e23 +189.9e25 +56.8e25 +8.6e25 +10.3e25 +6.6e21 #
# genere $xT/RAYONS \ #
# +40e10 +20e10 +20e10 +20e10 +20e10 +30e10 +30e10 +25e10 +25e10 +20e10 #
# genere $xT/COULEURS$ROUGE \ #
# $GRIS_8 $GRIS_8 $GRIS_8 $GRIS_0 $GRIS_8 $GRIS_8 $GRIS_8 $GRIS_4 $GRIS_0 $GRIS_7 #
# genere $xT/COULEURS$VERTE \ #
# $GRIS_8 $GRIS_6 $GRIS_4 $GRIS_6 $GRIS_4 $GRIS_6 $GRIS_7 $GRIS_8 $GRIS_7 $GRIS_7 #
# genere $xT/COULEURS$BLEUE \ #
# $GRIS_0 $GRIS_2 $GRIS_0 $GRIS_8 $GRIS_2 $GRIS_0 $GRIS_0 $GRIS_8 $GRIS_8 $GRIS_8 #
# #
# Pal #
# #
# $xrr/N_corps.11$X corps=$NcorpsS \ #
# np=$Nimages \ #
# LISTE_X=$xT/COORDONNEES$COORD_X \ #
# LISTE_Y=$xT/COORDONNEES$COORD_Y \ #
# LISTE_Z=$xT/COORDONNEES$COORD_Z \ #
# LISTE_VX=$xT/VITESSES$COORD_X \ #
# LISTE_VY=$xT/VITESSES$COORD_Y \ #
# LISTE_VZ=$xT/VITESSES$COORD_Z \ #
# LISTE_MASSE=$xT/MASSES \ #
# LISTE_RAYON=$xT/RAYONS \ #
# LISTE_ROUGE=$xT/COULEURS$ROUGE \ #
# LISTE_VERTE=$xT/COULEURS$VERTE \ #
# LISTE_BLEUE=$xT/COULEURS$BLEUE \ #
# centrer=FAUX reference=4 \ #
# extension=5 \ #
# dct=10 \ #
# nombre=100000 \ #
# ensemble=VRAI \ #
# Ranterieurs=0.5 \ #
# trainees=FAUX \ #
# renormaliser=FAUX \ #
# lineaire=FAUX exposant=0.4 \ #
# Lz=1.0e13 \ #
# TRANSLATION_OX=0 \ #
# TRANSLATION_OY=0 \ #
# ZOOM=0.60 \ #
# ROTATION_OX=$xT/ROTATION$COORD_X \ #
# fond=FAUX \ #
# R=$xw1/NCOR.C. \ #
# $formatI #
# #
# $DELETE $xT/COORDONNEES$COORD_X #
# $DELETE $xT/COORDONNEES$COORD_Y #
# $DELETE $xT/COORDONNEES$COORD_Z #
# $DELETE $xT/VITESSES$COORD_X #
# $DELETE $xT/VITESSES$COORD_Y #
# $DELETE $xT/VITESSES$COORD_Z #
# $DELETE $xT/MASSES #
# $DELETE $xT/RAYONS #
# $DELETE $xT/COULEURS$ROUGE #
# $DELETE $xT/COULEURS$VERTE #
# $DELETE $xT/COULEURS$BLEUE #
# #
# $DELETE $xT/ROTATION$COORD_X #
# #
# #
# Pal #
# #
# $xci/reduction_16$Z $xw1/NCOR.C. $xiak/NCOR.D3 1 32 #
# $xci/reduction_64$Z $xw1/NCOR.C. $xiak/NCOR.D3 1 8 #
# #
# $CP $xw1/NCOR.C.0512$ROUGE $xiirk/NCOR.D3.0512$ROUGE #
# $CP $xw1/NCOR.C.0512$VERTE $xiirk/NCOR.D3.0512$VERTE #
# $CP $xw1/NCOR.C.0512$BLEUE $xiirk/NCOR.D3.0512$BLEUE #
# #
# ro $xiak/NCOR.D3$R16$ROUGE #
# ro $xiak/NCOR.D3$R16$VERTE #
# ro $xiak/NCOR.D3$R16$BLEUE #
# #
# ro $xiak/NCOR.D3$R64$ROUGE #
# ro $xiak/NCOR.D3$R64$VERTE #
# ro $xiak/NCOR.D3$R64$BLEUE #
# #
# $xcg/unite$Z $xiak/NCOR.D3$R16$ROUGE #
# $xcg/unite$Z $xiak/NCOR.D3$R16$VERTE #
# $xcg/unite$Z $xiak/NCOR.D3$R16$BLEUE #
# #
# $xcg/unite$Z $xiak/NCOR.D3$R64$ROUGE #
# $xcg/unite$Z $xiak/NCOR.D3$R64$VERTE #
# $xcg/unite$Z $xiak/NCOR.D3$R64$BLEUE #
# #
# ro $xiirk/NCOR.D3.0512$ROUGE #
# ro $xiirk/NCOR.D3.0512$VERTE #
# ro $xiirk/NCOR.D3.0512$BLEUE #
# #
# $xcg/unite$Z $xiirk/NCOR.D3.0512$ROUGE #
# $xcg/unite$Z $xiirk/NCOR.D3.0512$VERTE #
# $xcg/unite$Z $xiirk/NCOR.D3.0512$BLEUE #
# #
# #
# Pal #
# #
# $xci/disk_video_P$Z $xw1/NCOR.C. 0001 0512 RVB \ #
# 9 1 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
# #
# xivPdf 3 2 #
# #
# record.01$Z $xiak/NCOR.D3$R16 RVB rien #
# record.01$Z $xiak/NCOR.D3$R64 RVB rien #
# #
# record.01$Z $xiirk/NCOR.D3.0512 RVB rien #
# #
# Cette sequence est la version corrigee de la sequence : #
# #
# xivPdf 9 1 / 013937_014448 #
# #
# pour la masse correcte de Saturne... #
# #
# ATTENTION, cet enregistrement a ete fait en trois fois afin de permettre simultanement de #
# tester l'introduction de l'option d'ejection en fin d'operation dans '$xci/disk_video_P$Z'. #
sequence 017071_017170
# Generee (sur '$LACT12') par : #
# #
# $Z Pal #
# #
# $Z $xci/scale$X A=$xiirk/LYAP.33.10000$ROUGE \ #
# $Z a=0.6 \ #
# $Z R=$xT/LYAP$ROUGE \ #
# $Z $formatI #
# $Z $xci/scale$X A=$xiirk/LYAP.33.10000$VERTE \ #
# $Z a=0.6 \ #
# $Z R=$xT/LYAP$VERTE \ #
# $Z $formatI #
# $Z $xci/scale$X A=$xiirk/LYAP.33.10000$BLEUE \ #
# $Z a=0.6 \ #
# $Z R=$xT/LYAP$BLEUE \ #
# $Z $formatI #
# #
# $Z Pal #
# #
# $c #include <stdio.h> #
# #
# $c #define N0 0 #
# $c #define N 99 #
# $c #define R 3.0 #
# $c #define X0 0.5 #
# #
# $c #define cX0 0.04 #
# $c #define pasX 0.45 #
# $c #define cY0 0.1 #
# $c #define pasY 0.13 #
# #
# $c #define TAILLE 3 #
# #
# $c #define iPRINT0(dx,couleur,intro) \ #
# $c cY = cY + pasY; \ #
# $c printf("$xci/message$X \ #
# $c A=$xT/LYAP$%s \ #
# $c message='%sX=%.8f' \ #
# $c anti_aliasing=VRAI \ #
# $c X=%.4f Y=%.4f \ #
# $c T=%d \ #
# $c R=$xw1/LYAP.5.%04d$%s \ #
# $c $formatI\n" \ #
# $c ,couleur,intro,dx,cX,cY,TAILLE,n,couleur \ #
# $c ); #
# $c #define iPRINTX1(couleur) \ #
# $c cY = cY + pasY; \ #
# $c printf("$xci/message$X \ #
# $c A=$xT/LYAP$%s \ #
# $c message='((R+1)X)-(R(XX))' \ #
# $c anti_aliasing=VRAI \ #
# $c X=%.4f Y=%.4f \ #
# $c T=%d \ #
# $c R=$xw1/LYAP.5.%04d$%s \ #
# $c $formatI\n" \ #
# $c ,couleur,cX,cY,TAILLE,n,couleur \ #
# $c ); #
# #
# $c #define iPRINTX2(couleur) \ #
# $c cY = cY + pasY; \ #
# $c printf("$xci/message$X \ #
# $c A=$xw1/LYAP.5.%04d$%s \ #
# $c message='((R+1)X)-((RX)X)' \ #
# $c anti_aliasing=VRAI \ #
# $c X=%.4f Y=%.4f \ #
# $c T=%d \ #
# $c R=$xw1/LYAP.5.%04d$%s \ #
# $c $formatI\n" \ #
# $c ,n,couleur,cX,cY,TAILLE,n,couleur \ #
# $c ); #
# #
# $c #define iPRINTX3(couleur) \ #
# $c cY = cY + pasY; \ #
# $c printf("$xci/message$X \ #
# $c A=$xw1/LYAP.5.%04d$%s \ #
# $c message='(((R+1)-(RX))X)' \ #
# $c anti_aliasing=VRAI \ #
# $c X=%.4f Y=%.4f \ #
# $c T=%d \ #
# $c R=$xw1/LYAP.5.%04d$%s \ #
# $c $formatI\n" \ #
# $c ,n,couleur,cX,cY,TAILLE,n,couleur \ #
# $c ); #
# #
# $c #define iPRINTX4(couleur) \ #
# $c cY = cY + pasY; \ #
# $c printf("$xci/message$X \ #
# $c A=$xw1/LYAP.5.%04d$%s \ #
# $c message='(RX)+((1-(RX))X)' \ #
# $c anti_aliasing=VRAI \ #
# $c X=%.4f Y=%.4f \ #
# $c T=%d \ #
# $c R=$xw1/LYAP.5.%04d$%s \ #
# $c $formatI\n" \ #
# $c ,n,couleur,cX,cY,TAILLE,n,couleur \ #
# $c ); #
# #
# $c #define iPRINTX5(couleur) \ #
# $c cY = cY + pasY; \ #
# $c printf("$xci/message$X \ #
# $c A=$xw1/LYAP.5.%04d$%s \ #
# $c message='X+(R((X)-(XX)))' \ #
# $c anti_aliasing=VRAI \ #
# $c X=%.4f Y=%.4f \ #
# $c T=%d \ #
# $c R=$xw1/LYAP.5.%04d$%s \ #
# $c $formatI\n" \ #
# $c ,n,couleur,cX,cY,TAILLE,n,couleur \ #
# $c ); #
# #
# $c #define iPRINTN(couleur) \ #
# $c cY = cY + pasY; \ #
# $c cY = cY + pasY; \ #
# $c printf("$xci/message$X \ #
# $c A=$xw1/LYAP.5.%04d$%s \ #
# $c message='N = %02d' \ #
# $c anti_aliasing=VRAI \ #
# $c X=%.4f Y=%.4f \ #
# $c T=%d \ #
# $c R=$xw1/LYAP.5.%04d$%s \ #
# $c $formatI\n" \ #
# $c ,n,couleur,n,0.50-0.05,cY,TAILLE,n,couleur \ #
# $c ); #
# #
# $c #define nPRINT0(dx,couleur,intro) \ #
# $c cY = cY + pasY; \ #
# $c printf("$xci/message$X \ #
# $c A=$xw1/LYAP.5.%04d$%s \ #
# $c message='%sX=%.8f' \ #
# $c anti_aliasing=VRAI \ #
# $c X=%.4f Y=%.4f \ #
# $c T=%d \ #
# $c R=$xw1/LYAP.5.%04d$%s \ #
# $c $formatI\n" \ #
# $c ,n,couleur,intro,dx,cX,cY,TAILLE,n,couleur \ #
# $c ); #
# $c #define nPRINTX1(couleur) \ #
# $c cY = cY + pasY; \ #
# $c printf("$xci/message$X \ #
# $c A=$xw1/LYAP.5.%04d$%s \ #
# $c message='((R+1)X)-(R(XX))' \ #
# $c anti_aliasing=VRAI \ #
# $c X=%.4f Y=%.4f \ #
# $c T=%d \ #
# $c R=$xw1/LYAP.5.%04d$%s \ #
# $c $formatI\n" \ #
# $c ,n,couleur,cX,cY,TAILLE,n,couleur \ #
# $c ); #
# #
# $c #define nPRINTX2(couleur) \ #
# $c iPRINTX2(couleur) #
# #
# $c #define nPRINTX3(couleur) \ #
# $c iPRINTX3(couleur) #
# #
# $c #define nPRINTX4(couleur) \ #
# $c iPRINTX4(couleur) #
# #
# $c #define nPRINTX5(couleur) \ #
# $c iPRINTX5(couleur) #
# #
# $c #define nPRINTN(couleur) \ #
# $c iPRINTN(couleur) #
# #
# $c int main() #
# $c { #
# $c double r=R; #
# $c double dx1=X0; #
# $c double dx2=X0; #
# $c double dx3=X0; #
# $c double dx4=X0; #
# $c double dx5=X0; #
# $c int n=N0; #
# $c double cX=cX0,cY=cY0; #
# #
# $c cX = cX0; #
# $c cX = cX + pasX; #
# $c cY = cY0 - pasY; #
# #
# $c iPRINT0(dx1,"ROUGE"," "); #
# $c nPRINT0(dx2,"ROUGE"," "); #
# $c nPRINT0(dx3,"ROUGE"," "); #
# $c nPRINT0(dx4,"ROUGE"," "); #
# $c nPRINT0(dx5,"ROUGE"," "); #
# $c nPRINTN("ROUGE"); #
# #
# $c cX = cX0; #
# $c cX = cX + pasX; #
# $c cY = cY0 - pasY; #
# #
# $c iPRINT0(dx1,"VERTE"," "); #
# $c nPRINT0(dx2,"VERTE"," "); #
# $c nPRINT0(dx3,"VERTE"," "); #
# $c nPRINT0(dx4,"VERTE"," "); #
# $c nPRINT0(dx5,"VERTE"," "); #
# $c nPRINTN("VERTE"); #
# #
# $c cX = cX0; #
# $c cX = cX + pasX; #
# $c cY = cY0 - pasY; #
# #
# $c iPRINT0(dx1,"BLEUE"," "); #
# $c nPRINT0(dx2,"BLEUE"," "); #
# $c nPRINT0(dx3,"BLEUE"," "); #
# $c nPRINT0(dx4,"BLEUE"," "); #
# $c nPRINT0(dx5,"BLEUE"," "); #
# $c nPRINTN("BLEUE"); #
# #
# $c for (n=1 ; n<=N ; n++) #
# $c { #
# #
# $c dx1 = ((r+1)*dx1) - (r*(dx1*dx1)); #
# $c dx2 = ((r+1)*dx2) - ((r*dx2)*dx2); #
# $c dx3 = (((r+1) - (r*dx3))*dx3); #
# $c dx4 = (r*dx4) + ((1 - (r*dx4))*dx4); #
# $c dx5 = dx5 + (r*((dx5) - (dx5*dx5))); #
# #
# $c cX=cX0; #
# $c cY=cY0 - pasY; #
# #
# $c iPRINTX1("ROUGE"); #
# $c nPRINTX2("ROUGE"); #
# $c nPRINTX3("ROUGE"); #
# $c nPRINTX4("ROUGE"); #
# $c nPRINTX5("ROUGE"); #
# $c nPRINTN("ROUGE"); #
# #
# $c cX = cX + pasX; #
# $c cY = cY0 - pasY; #
# #
# $c nPRINT0(dx1,"ROUGE"," ="); #
# $c nPRINT0(dx2,"ROUGE"," ="); #
# $c nPRINT0(dx3,"ROUGE"," ="); #
# $c nPRINT0(dx4,"ROUGE"," ="); #
# $c nPRINT0(dx5,"ROUGE"," ="); #
# #
# $c cX=cX0; #
# $c cY=cY0 - pasY; #
# #
# $c iPRINTX1("VERTE"); #
# $c nPRINTX2("VERTE"); #
# $c nPRINTX3("VERTE"); #
# $c nPRINTX4("VERTE"); #
# $c nPRINTX5("VERTE"); #
# $c nPRINTN("VERTE"); #
# #
# $c cX = cX + pasX; #
# $c cY = cY0 - pasY; #
# #
# $c nPRINT0(dx1,"VERTE"," ="); #
# $c nPRINT0(dx2,"VERTE"," ="); #
# $c nPRINT0(dx3,"VERTE"," ="); #
# $c nPRINT0(dx4,"VERTE"," ="); #
# $c nPRINT0(dx5,"VERTE"," ="); #
# #
# $c cX=cX0; #
# $c cY=cY0 - pasY; #
# #
# $c iPRINTX1("BLEUE"); #
# $c nPRINTX2("BLEUE"); #
# $c nPRINTX3("BLEUE"); #
# $c nPRINTX4("BLEUE"); #
# $c nPRINTX5("BLEUE"); #
# $c nPRINTN("BLEUE"); #
# #
# $c cX = cX + pasX; #
# $c cY = cY0 - pasY; #
# #
# $c nPRINT0(dx1,"BLEUE"," ="); #
# $c nPRINT0(dx2,"BLEUE"," ="); #
# $c nPRINT0(dx3,"BLEUE"," ="); #
# $c nPRINT0(dx4,"BLEUE"," ="); #
# $c nPRINT0(dx5,"BLEUE"," ="); #
# #
# $c } #
# $c } #
# #
# #
# $Z Pal #
# #
# $Z $xci/reduction_16$Z $xw1/LYAP.5. $xiak/LYAP.41 0 6 FAUX VRAI #
# #
# $Z ro $xiak/LYAP.41$R16$ROUGE #
# $Z ro $xiak/LYAP.41$R16$VERTE #
# $Z ro $xiak/LYAP.41$R16$BLEUE #
# #
# #
# Pal #
# #
# $xci/disk_video_P$Z $xw1/LYAP.5. 0 99 RVB \ #
# 9 1 Initialisation Sequence \ #
# "$formatI" $Gamma_paysages #
# #
# #
# xivPdf 3 2 #
# #
# record.01$Z $xiak/LYAP.41$R16 RVB rien #
# #
sequence 017171_017313
sequence 017314_017412
sequence 017413_017682
# Generee par : #
# #
# Std #
# #
# $xci/vraies_C$X A=$xiirf/PAYS.17.001 \ #
# p=$xiP/gris.01 \ #
# RVB=VRAI \ #
# R=$xT/PAYS.11 \ #
# $formatI #
# #
# $xci/anti_alia.11$Z $xT/PAYS.11 $xT/PAYS.12 #
# #
# $xci/format.01$X A=$xT/PAYS.12$ROUGE \ #
# methode=2 \ #
# $formatR_Pal \ #
# R=$xT/PAYS.13$ROUGE \ #
# $formatI #
# $xci/format.01$X A=$xT/PAYS.12$VERTE \ #
# methode=2 \ #
# $formatR_Pal \ #
# R=$xT/PAYS.13$VERTE \ #
# $formatI #
# $xci/format.01$X A=$xT/PAYS.12$BLEUE \ #
# methode=2 \ #
# $formatR_Pal \ #
# R=$xT/PAYS.13$BLEUE \ #
# $formatI #
# #
# #
# set Nimages=512 #
# #
# set NcorpsS=10 #
# @ Ncorps = $NcorpsS - 1 #
# #
# $DELETE $xT/ROTATION$COORD_X #
# $xci/valeurs_inte$X p=1 d=$Nimages vD=4.0 vA=4.0 cubique=VRAI > $xT/ROTATION$COORD_X #
# #
# alias genere 'set FiLe=\!:1 ; set LiStE=(\!:2*) ; \\ #
# $DELETE $FiLe ; \\ #
# echo "$LiStE" | $SE -e "s/$K_BLANC$K_BLANC*/ /g" | $R "$K_BLANC" "$K_NL" > $FiLe ; \\ #
# unset FiLe LiStE' #
# #
# alias couleurs 'set In=\!:1 ; set Su=\!:2 ; set Gr=\!:3 ; \\ #
# set Mo=\!:4 ; set Fi=\!:5* ; \\ #
# $xci/valeurs_alea$X p=1 d=$Ncorps g=$Gr inf=$In sup=$Su entiers=$Mo >>! $Fi ; \\ #
# unset In Su Gr Mo Fi' #
# #
# #
# genere $xT/COORDONNEES$COORD_X \ #
# +1e3 +514e+8 +213e+8 -203e+8 -204e+9 +501e+9 -134e+10 -150e+9 -436e+10 -392e+10 #
# genere $xT/COORDONNEES$COORD_Y \ #
# +1e3 +682e+7 +967e+8 +133e+9 +126e+9 -519e+9 +341e+9 +259e+10 -115e+10 +307e+10 #
# genere $xT/COORDONNEES$COORD_Z \ #
# +1e3 -163e+7 +422e+8 +579e+8 +634e+8 -235e+9 +199e+9 +113e+10 -363e+9 +216e+10 #
# genere $xT/VITESSES$COORD_X \ #
# 0 -1.46e+4 -3.44e+4 -2.99e+4 -1.27e+4 +9.67e+3 -3.21e+3 -6.84e+3 +1.42e+3 -2.27e+3 #
# genere $xT/VITESSES$COORD_Y \ #
# 0 +4.43e+4 +5.39e+3 -3.88e+3 -1.64e+4 +8.59e+3 -8.62e+3 -6.50e+2 -4.79e+3 -4.53e+3 #
# genere $xT/VITESSES$COORD_Z \ #
# 0 +2.52e+4 +4.60e+3 -1.68e+3 -7.18e+3 +3.44e+3 -3.42e+3 -1.88e+2 -2.00e+3 -7.39e+2 #
# genere $xT/MASSES \ #
# +2.0e30 +3.3e23 +48.7e23 +60.5e23 +6.4e23 +189.9e25 +56.8e25 +8.6e25 +10.3e25 +6.6e21 #
# genere $xT/RAYONS \ #
# +40e10 +20e10 +20e10 +20e10 +20e10 +30e10 +30e10 +25e10 +25e10 +20e10 #
# genere $xT/COULEURS$ROUGE \ #
# $GRIS_8 $GRIS_8 $GRIS_8 $GRIS_0 $GRIS_8 $GRIS_8 $GRIS_8 $GRIS_4 $GRIS_0 $GRIS_7 #
# genere $xT/COULEURS$VERTE \ #
# $GRIS_8 $GRIS_6 $GRIS_4 $GRIS_6 $GRIS_4 $GRIS_6 $GRIS_7 $GRIS_8 $GRIS_7 $GRIS_7 #
# genere $xT/COULEURS$BLEUE \ #
# $GRIS_0 $GRIS_2 $GRIS_0 $GRIS_8 $GRIS_2 $GRIS_0 $GRIS_0 $GRIS_8 $GRIS_8 $GRIS_8 #
# #
# Pal #
# #
# $xrr/N_corps.11$X corps=$NcorpsS \ #
# np=$Nimages \ #
# LISTE_X=$xT/COORDONNEES$COORD_X \ #
# LISTE_Y=$xT/COORDONNEES$COORD_Y \ #
# LISTE_Z=$xT/COORDONNEES$COORD_Z \ #
# LISTE_VX=$xT/VITESSES$COORD_X \ #
# LISTE_VY=$xT/VITESSES$COORD_Y \ #
# LISTE_VZ=$xT/VITESSES$COORD_Z \ #
# LISTE_MASSE=$xT/MASSES \ #
# LISTE_RAYON=$xT/RAYONS \ #
# LISTE_ROUGE=$xT/COULEURS$ROUGE \ #
# LISTE_VERTE=$xT/COULEURS$VERTE \ #
# LISTE_BLEUE=$xT/COULEURS$BLEUE \ #
# centrer=FAUX reference=1 \ #
# extension=5 \ #
# dct=10 \ #
# nombre=100000 \ #
# ensemble=VRAI \ #
# Ranterieurs=0.5 \ #
# trainees=FAUX \ #
# renormaliser=FAUX \ #
# lineaire=FAUX exposant=0.4 \ #
# Lz=1.0e13 \ #
# TRANSLATION_OX=0 \ #
# TRANSLATION_OY=5100.0e9 \ #
# ZOOM=0.60 \ #
# ROTATION_OX=$xT/ROTATION$COORD_X \ #
# fond=VRAI dynamique=FAUX \ #
# F=$xT/PAYS.13 \ #
# R=$xw1/NCOR.L. \ #
# $formatI #
# #
# $DELETE $xT/COORDONNEES$COORD_X #
# $DELETE $xT/COORDONNEES$COORD_Y #
# $DELETE $xT/COORDONNEES$COORD_Z #
# $DELETE $xT/VITESSES$COORD_X #
# $DELETE $xT/VITESSES$COORD_Y #
# $DELETE $xT/VITESSES$COORD_Z #
# $DELETE $xT/MASSES #
# $DELETE $xT/RAYONS #
# $DELETE $xT/COULEURS$ROUGE #
# $DELETE $xT/COULEURS$VERTE #
# $DELETE $xT/COULEURS$BLEUE #
# #
# $DELETE $xT/ROTATION$COORD_X #
# #
# #
# Pal #
# #
# $xci/reduction_16$Z $xw1/NCOR.L. $xiak/NCOR.I1 1 32 #
# $xci/reduction_64$Z $xw1/NCOR.L. $xiak/NCOR.I1 1 8 #
# #
# $CP $xw1/NCOR.L.0512$ROUGE $xiirk/NCOR.I1.0512$ROUGE #
# $CP $xw1/NCOR.L.0512$VERTE $xiirk/NCOR.I1.0512$VERTE #
# $CP $xw1/NCOR.L.0512$BLEUE $xiirk/NCOR.I1.0512$BLEUE #
# #
# ro $xiak/NCOR.I1$R16$ROUGE #
# ro $xiak/NCOR.I1$R16$VERTE #
# ro $xiak/NCOR.I1$R16$BLEUE #
# #
# ro $xiak/NCOR.I1$R64$ROUGE #
# ro $xiak/NCOR.I1$R64$VERTE #
# ro $xiak/NCOR.I1$R64$BLEUE #
# #
# $xcg/unite$Z $xiak/NCOR.I1$R16$ROUGE #
# $xcg/unite$Z $xiak/NCOR.I1$R16$VERTE #
# $xcg/unite$Z $xiak/NCOR.I1$R16$BLEUE #
# #
# $xcg/unite$Z $xiak/NCOR.I1$R64$ROUGE #
# $xcg/unite$Z $xiak/NCOR.I1$R64$VERTE #
# $xcg/unite$Z $xiak/NCOR.I1$R64$BLEUE #
# #
# ro $xiirk/NCOR.I1.0512$ROUGE #
# ro $xiirk/NCOR.I1.0512$VERTE #
# ro $xiirk/NCOR.I1.0512$BLEUE #
# #
# $xcg/unite$Z $xiirk/NCOR.I1.0512$ROUGE #
# $xcg/unite$Z $xiirk/NCOR.I1.0512$VERTE #
# $xcg/unite$Z $xiirk/NCOR.I1.0512$BLEUE #
# #
# #
# Pal #
# #
# $xci/disk_video_P$Z $xw1/NCOR.L. 0001 0512 RVB \ #
# 9 1 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz FAUX FAUX VRAI #
# #
# #
# xivPdf 3 2 #
# #
# record.01$Z $xiak/NCOR.I1$R16 RVB Initialisation #
# record.01$Z $xiak/NCOR.I1$R64 RVB rien #
# #
# record.01$Z $xiirk/NCOR.I1.0512 RVB rien #
# #
# ATTENTION, l'enregistrement a ete fait en deux fois car j'ai "kille" par accident le #
# processus d'enregistrement. Finalement j'ai ete oblige de l'interrompre volontairement #
# une troisieme fois afin de demander l'ejection en fin d'enregistrement... #
sequence 017683_018194
# Generee par : #
# #
# $Z SET Nimages=512 #
# #
# $Z Pal #
# #
# $Z $xci/gauss$X \ #
# $Z Ty=0.81 \ #
# $Z R=$xT/GAUSS \ #
# $Z $formatI #
# #
# $c #define N0 1 #
# $c #define N Nimages #
# $c int main() #
# $c { #
# $c int n; #
# #
# $c for (n=N0 ; n<=N ; n++) #
# $c { #
# $c printf("$xci/complement$X #
# $c Attendre=VRAI Bloquer=VRAI #
# $c A=$xw1/NCOR.L.%04d$ROUGE #
# $c $formatI | #
# $c $xci/interpole.02$X #
# $c Attendre=VRAI Bloquer=VRAI #
# $c A1=$xw1/NCOR.L.%04d$ROUGE #
# $c P=$xT/GAUSS #
# $c R=$xw1/NCOR.M.%04d$ROUGE #
# $c $formatI\n" #
# $c ,n,n,n #
# $c ); #
# $c printf("$xci/complement$X #
# $c Attendre=VRAI Bloquer=VRAI #
# $c A=$xw1/NCOR.L.%04d$VERTE #
# $c $formatI | #
# $c $xci/interpole.02$X #
# $c Attendre=VRAI Bloquer=VRAI #
# $c A1=$xw1/NCOR.L.%04d$VERTE #
# $c P=$xT/GAUSS #
# $c R=$xw1/NCOR.M.%04d$VERTE #
# $c $formatI\n" #
# $c ,n,n,n #
# $c ); #
# $c printf("$xci/complement$X #
# $c Attendre=VRAI Bloquer=VRAI #
# $c A=$xw1/NCOR.L.%04d$BLEUE #
# $c $formatI | #
# $c $xci/interpole.02$X #
# $c Attendre=VRAI Bloquer=VRAI #
# $c A1=$xw1/NCOR.L.%04d$BLEUE #
# $c P=$xT/GAUSS #
# $c R=$xw1/NCOR.M.%04d$BLEUE #
# $c $formatI\n" #
# $c ,n,n,n #
# $c ); #
# $c printf("$DELETE $xw1/NCOR.L.%04d$ROUGE\n",n); #
# $c printf("$DELETE $xw1/NCOR.L.%04d$VERTE\n",n); #
# $c printf("$DELETE $xw1/NCOR.L.%04d$BLEUE\n",n); #
# $c } #
# $c } #
# #
# #
# $Z Pal #
# #
# $Z $xci/reduction_16$Z $xw1/NCOR.M. $xiak/NCOR.I2 1 32 #
# $Z $xci/reduction_64$Z $xw1/NCOR.M. $xiak/NCOR.I2 1 8 #
# #
# $Z $CP $xw1/NCOR.M.0512$ROUGE $xiirk/NCOR.I2.0512$ROUGE #
# $Z $CP $xw1/NCOR.M.0512$VERTE $xiirk/NCOR.I2.0512$VERTE #
# $Z $CP $xw1/NCOR.M.0512$BLEUE $xiirk/NCOR.I2.0512$BLEUE #
# #
# $Z ro $xiak/NCOR.I2$R16$ROUGE #
# $Z ro $xiak/NCOR.I2$R16$VERTE #
# $Z ro $xiak/NCOR.I2$R16$BLEUE #
# #
# $Z ro $xiak/NCOR.I2$R64$ROUGE #
# $Z ro $xiak/NCOR.I2$R64$VERTE #
# $Z ro $xiak/NCOR.I2$R64$BLEUE #
# #
# $Z $xcg/unite$Z $xiak/NCOR.I2$R16$ROUGE #
# $Z $xcg/unite$Z $xiak/NCOR.I2$R16$VERTE #
# $Z $xcg/unite$Z $xiak/NCOR.I2$R16$BLEUE #
# #
# $Z $xcg/unite$Z $xiak/NCOR.I2$R64$ROUGE #
# $Z $xcg/unite$Z $xiak/NCOR.I2$R64$VERTE #
# $Z $xcg/unite$Z $xiak/NCOR.I2$R64$BLEUE #
# #
# $Z ro $xiirk/NCOR.I2.0512$ROUGE #
# $Z ro $xiirk/NCOR.I2.0512$VERTE #
# $Z ro $xiirk/NCOR.I2.0512$BLEUE #
# #
# $Z $xcg/unite$Z $xiirk/NCOR.I2.0512$ROUGE #
# $Z $xcg/unite$Z $xiirk/NCOR.I2.0512$VERTE #
# $Z $xcg/unite$Z $xiirk/NCOR.I2.0512$BLEUE #
# #
# #
# Pal #
# #
# $xci/disk_video_P$Z $xw1/NCOR.M. 0001 0512 RVB \ #
# 9 1 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz FAUX FAUX VRAI #
# #
# #
# xivPdf 3 2 #
# #
# record.01$Z $xiak/NCOR.I2$R16 RVB Initialisation #
# record.01$Z $xiak/NCOR.I2$R64 RVB rien #
# #
# record.01$Z $xiirk/NCOR.I2.0512 RVB rien #
# #
sequence 018195_018706
# Generee (sur '$LACT28') par : #
# #
# set Nimages=512 #
# set NimageZ=1 #
# #
# set NcorpsS=64 #
# #
# alias genere 'set Fi=\!:1 ; set vD=\!:2 ; set vA=\!:3 ; set ArG=(\!:4*) ; \\ #
# $DELETE $Fi ; \\ #
# $xci/valeurs_inte$X premiere=1 derniere=$NcorpsS vD=$vD vA=$vA $ArG > $Fi ; \\ #
# unset Fi vD vA ArG' #
# alias genereR 'set Fi=\!:1 ; set In=\!:2 ; set Su=\!:3 ; set ArG=(\!:4*) ; \\ #
# $DELETE $Fi ; \\ #
# $xci/valeurs_alea$X p=1 d=$NcorpsS signe="$K_VIDE" inf=$In sup=$Su $ArG > $Fi ; \\ #
# unset Fi In Su ArG' #
# #
# genere $xT/COORDONNEES$COORD_X 0.0 0.0 #
# genere $xT/COORDONNEES$COORD_Y 0.0 0.0 #
# genere $xT/COORDONNEES$COORD_Z 0.0 0.0 #
# genereR $xT/VITESSES 1 7 entiers=VRAI g=21 #
# $DELETE $xT/VITESSES$COORD_X #
# $CA $xT/VITESSES \ #
# | $SE -e 's/^1$/+0.02/' -e 's/^2$/0/' \ #
# -e 's/^3$/-0.02/' -e 's/^4$/0/' \ #
# -e 's/^5$/0/' -e 's/^6$/0/' \ #
# > $xT/VITESSES$COORD_X #
# $DELETE $xT/VITESSES$COORD_Y #
# $CA $xT/VITESSES \ #
# | $SE -e 's/^1$/0/' -e 's/^2$/+0.02/' \ #
# -e 's/^3$/0/' -e 's/^4$/-0.02/' \ #
# -e 's/^5$/0/' -e 's/^6$/0/' \ #
# > $xT/VITESSES$COORD_Y #
# $DELETE $xT/VITESSES$COORD_Z #
# $CA $xT/VITESSES \ #
# | $SE -e 's/^1$/0/' -e 's/^2$/0/' \ #
# -e 's/^3$/0/' -e 's/^4$/0/' \ #
# -e 's/^5$/+0.02/' -e 's/^6$/-0.02/' \ #
# > $xT/VITESSES$COORD_Z #
# genere $xT/mdRHO 0.0 0.0 #
# genere $xT/MdRHO 0.0 0.0 #
# genere $xT/mnPHI -2 -2 #
# genere $xT/MnPHI +2 +2 #
# genere $xT/dPHI $pis2 $pis2 #
# genere $xT/mnTHETA -2 -2 #
# genere $xT/MnTHETA +2 +2 #
# genere $xT/dTHETA $pis2 $pis2 #
# genere $xT/DISTANCE 1000000 1000000 #
# genere $xT/STABILITE 4 4 #
# genere $xT/RAYONS 0.014 0.014 #
# genereR $xT/COULEURS$ROUGE $GRIS_2 $GRIS_8 entiers=VRAI g=31 #
# genereR $xT/COULEURS$VERTE $GRIS_2 $GRIS_8 entiers=VRAI g=32 #
# genereR $xT/COULEURS$BLEUE $GRIS_2 $GRIS_8 entiers=VRAI g=33 #
# #
# #
# Pal #
# #
# $xrk/rdn_walk.21$X corps=$NcorpsS \ #
# np=$Nimages \ #
# LISTE_X=$xT/COORDONNEES$COORD_X \ #
# LISTE_Y=$xT/COORDONNEES$COORD_Y \ #
# LISTE_Z=$xT/COORDONNEES$COORD_Z \ #
# LISTE_VX=$xT/VITESSES$COORD_X \ #
# LISTE_VY=$xT/VITESSES$COORD_Y \ #
# LISTE_VZ=$xT/VITESSES$COORD_Z \ #
# LISTE_MINIMUM_DELTA_RHO=$xT/mdRHO \ #
# LISTE_MAXIMUM_DELTA_RHO=$xT/MdRHO \ #
# LISTE_MINIMUM_N_PHI=$xT/mnPHI \ #
# LISTE_MAXIMUM_N_PHI=$xT/MnPHI \ #
# LISTE_DELTA_PHI=$xT/dPHI \ #
# LISTE_MINIMUM_N_THETA=$xT/mnTHETA \ #
# LISTE_MAXIMUM_N_THETA=$xT/MnTHETA \ #
# LISTE_DELTA_THETA=$xT/dTHETA \ #
# LISTE_DISTANCE_MAXIMALE=$xT/DISTANCE \ #
# LISTE_STABILITE=$xT/STABILITE \ #
# LISTE_RAYON=$xT/RAYONS \ #
# LISTE_ROUGE=$xT/COULEURS$ROUGE \ #
# LISTE_VERTE=$xT/COULEURS$VERTE \ #
# LISTE_BLEUE=$xT/COULEURS$BLEUE \ #
# centrer=VRAI \ #
# dct=0.5 \ #
# nombre=1 \ #
# trainees=VRAI mode=1 \ #
# attenuation_des_images=0.5 \ #
# attenuation_des_trainees=1.00 \ #
# renormaliser=FAUX \ #
# Lz=100 \ #
# zoom_automatique=VRAI \ #
# fond=FAUX \ #
# R=$xw1/RDNW.M. \ #
# $formatI #
# #
# genere $xT/RAYONS 0.03 0.03 #
# #
# $xrk/rdn_walk.21$X corps=$NcorpsS \ #
# np=$Nimages \ #
# LISTE_X=$xT/COORDONNEES$COORD_X \ #
# LISTE_Y=$xT/COORDONNEES$COORD_Y \ #
# LISTE_Z=$xT/COORDONNEES$COORD_Z \ #
# LISTE_VX=$xT/VITESSES$COORD_X \ #
# LISTE_VY=$xT/VITESSES$COORD_Y \ #
# LISTE_VZ=$xT/VITESSES$COORD_Z \ #
# LISTE_MINIMUM_DELTA_RHO=$xT/mdRHO \ #
# LISTE_MAXIMUM_DELTA_RHO=$xT/MdRHO \ #
# LISTE_MINIMUM_N_PHI=$xT/mnPHI \ #
# LISTE_MAXIMUM_N_PHI=$xT/MnPHI \ #
# LISTE_DELTA_PHI=$xT/dPHI \ #
# LISTE_MINIMUM_N_THETA=$xT/mnTHETA \ #
# LISTE_MAXIMUM_N_THETA=$xT/MnTHETA \ #
# LISTE_DELTA_THETA=$xT/dTHETA \ #
# LISTE_DISTANCE_MAXIMALE=$xT/DISTANCE \ #
# LISTE_STABILITE=$xT/STABILITE \ #
# LISTE_RAYON=$xT/RAYONS \ #
# LISTE_ROUGE=$xT/COULEURS$ROUGE \ #
# LISTE_VERTE=$xT/COULEURS$VERTE \ #
# LISTE_BLEUE=$xT/COULEURS$BLEUE \ #
# centrer=VRAI \ #
# dct=0.5 \ #
# nombre=1 \ #
# trainees=VRAI mode=1 \ #
# attenuation_des_images=1.0 \ #
# attenuation_des_trainees=0.85 \ #
# renormaliser=FAUX \ #
# Lz=100 \ #
# zoom_automatique=VRAI \ #
# fond=VRAI \ #
# dynamique=VRAI \ #
# F=$xw1/RDNW.M. \ #
# R=$xw1/RDNW.M. \ #
# $formatI #
# #
# $DELETE $xT/COORDONNEES$COORD_X #
# $DELETE $xT/COORDONNEES$COORD_Y #
# $DELETE $xT/COORDONNEES$COORD_Z #
# $DELETE $xT/VITESSES #
# $DELETE $xT/VITESSES$COORD_X #
# $DELETE $xT/VITESSES$COORD_Y #
# $DELETE $xT/VITESSES$COORD_Z #
# $DELETE $xT/mdRHO #
# $DELETE $xT/MdRHO #
# $DELETE $xT/mnPHI #
# $DELETE $xT/MnPHI #
# $DELETE $xT/dPHI #
# $DELETE $xT/mnTHETA #
# $DELETE $xT/MnTHETA #
# $DELETE $xT/dTHETA #
# $DELETE $xT/DISTANCE #
# $DELETE $xT/STABILITE #
# $DELETE $xT/RAYONS #
# $DELETE $xT/COULEURS$ROUGE #
# $DELETE $xT/COULEURS$VERTE #
# $DELETE $xT/COULEURS$BLEUE #
# #
# #
# Pal #
# #
# $xci/reduction_16$Z $xw1/RDNW.M. $xiak/RDNW.61 1 32 #
# $xci/reduction_64$Z $xw1/RDNW.M. $xiak/RDNW.61 1 8 #
# #
# $CP $xw1/RDNW.M.0512$ROUGE $xiirk/RDNW.61.0512$ROUGE #
# $CP $xw1/RDNW.M.0512$VERTE $xiirk/RDNW.61.0512$VERTE #
# $CP $xw1/RDNW.M.0512$BLEUE $xiirk/RDNW.61.0512$BLEUE #
# #
# ro $xiak/RDNW.61$R16$ROUGE #
# ro $xiak/RDNW.61$R16$VERTE #
# ro $xiak/RDNW.61$R16$BLEUE #
# #
# ro $xiak/RDNW.61$R64$ROUGE #
# ro $xiak/RDNW.61$R64$VERTE #
# ro $xiak/RDNW.61$R64$BLEUE #
# #
# $xcg/unite$Z $xiak/RDNW.61$R16$ROUGE #
# $xcg/unite$Z $xiak/RDNW.61$R16$VERTE #
# $xcg/unite$Z $xiak/RDNW.61$R16$BLEUE #
# #
# $xcg/unite$Z $xiak/RDNW.61$R64$ROUGE #
# $xcg/unite$Z $xiak/RDNW.61$R64$VERTE #
# $xcg/unite$Z $xiak/RDNW.61$R64$BLEUE #
# #
# ro $xiirk/RDNW.61.0512$ROUGE #
# ro $xiirk/RDNW.61.0512$VERTE #
# ro $xiirk/RDNW.61.0512$BLEUE #
# #
# $xcg/unite$Z $xiirk/RDNW.61.0512$ROUGE #
# $xcg/unite$Z $xiirk/RDNW.61.0512$VERTE #
# $xcg/unite$Z $xiirk/RDNW.61.0512$BLEUE #
# #
# #
# Pal #
# #
# $xci/disk_video_P$Z $xw1/RDNW.M. 1 512 RVB \ #
# 9 1 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
# #
# xivPdf 3 2 #
# #
# record.01$Z $xiak/RDNW.61$R16 RVB Initialisation #
# record.01$Z $xiak/RDNW.61$R64 RVB rien #
# #
# record.01$Z $xiirk/RDNW.61.0512 RVB rien #
# #
sequence 018707_019218
# Generee (sur '$LACT27') par : #
# #
# set Nimages=512 #
# #
# set NcorpsS=4 #
# #
# alias genere 'set FiLe=\!:1 ; set LiStE=(\!:2*) ; \\ #
# $DELETE $FiLe ; \\ #
# echo "$LiStE" | $SE -e "s/$K_BLANC$K_BLANC*/ /g" | $R "$K_BLANC" "$K_NL" > $FiLe ; \\ #
# unset FiLe LiStE' #
# #
# genere $xT/COORDONNEES$COORD_Y +1.0e3 +1.0e3 +5.0e10 +1.0e3 #
# genere $xT/COORDONNEES$COORD_Z +1.0e3 +1.0e3 +1.0e3 +1.0e3 #
# genere $xT/VITESSES$COORD_X 0 0 -0.96e3 0 #
# genere $xT/VITESSES$COORD_Y 0 5.0e3 5.0e3 -13.3e3 #
# genere $xT/VITESSES$COORD_Z 0 0 0 0 #
# genere $xT/MASSES 1.0e30 2.0e27 7.350e22 1.0e28 #
# genere $xT/RAYONS 8.0e10 4.0e10 3.0e10 5.0e10 #
# #
# Pal #
# #
# genere $xT/COORDONNEES$COORD_X +1.0e3 -800000000000.0 -800.0e9 +260.0e9 #
# #
# $xrr/N_corps.11$X corps=$NcorpsS \ #
# np=$Nimages \ #
# LISTE_X=$xT/COORDONNEES$COORD_X \ #
# LISTE_Y=$xT/COORDONNEES$COORD_Y \ #
# LISTE_Z=$xT/COORDONNEES$COORD_Z \ #
# LISTE_VX=$xT/VITESSES$COORD_X \ #
# LISTE_VY=$xT/VITESSES$COORD_Y \ #
# LISTE_VZ=$xT/VITESSES$COORD_Z \ #
# LISTE_MASSE=$xT/MASSES \ #
# LISTE_RAYON=$xT/RAYONS \ #
# centrer=FAUX reference=1 \ #
# dct=100 \ #
# nombre=40000 \ #
# trainees=VRAI mode=1 \ #
# attenuation_des_images=1.0 \ #
# attenuation_des_trainees=0.99 \ #
# renormaliser=FAUX \ #
# TRANSLATION_OX=600e9 \ #
# TRANSLATION_OY=300e9 \ #
# RVB=FAUX ROUGE=VRAI VERTE=FAUX BLEUE=FAUX \ #
# R=$xw1/NCOR.N. \ #
# $formatI #
# #
# $DELETE $xT/COORDONNEES$COORD_X #
# #
# genere $xT/COORDONNEES$COORD_X +1.0e3 -800000000001.0 -800.0e9 +260.0e9 #
# #
# $xrr/N_corps.11$X corps=$NcorpsS \ #
# np=$Nimages \ #
# LISTE_X=$xT/COORDONNEES$COORD_X \ #
# LISTE_Y=$xT/COORDONNEES$COORD_Y \ #
# LISTE_Z=$xT/COORDONNEES$COORD_Z \ #
# LISTE_VX=$xT/VITESSES$COORD_X \ #
# LISTE_VY=$xT/VITESSES$COORD_Y \ #
# LISTE_VZ=$xT/VITESSES$COORD_Z \ #
# LISTE_MASSE=$xT/MASSES \ #
# LISTE_RAYON=$xT/RAYONS \ #
# centrer=FAUX reference=1 \ #
# dct=100 \ #
# nombre=40000 \ #
# trainees=VRAI mode=1 \ #
# attenuation_des_images=1.0 \ #
# attenuation_des_trainees=0.99 \ #
# renormaliser=FAUX \ #
# TRANSLATION_OX=600e9 \ #
# TRANSLATION_OY=300e9 \ #
# RVB=FAUX ROUGE=FAUX VERTE=VRAI BLEUE=FAUX \ #
# R=$xw1/NCOR.N. \ #
# $formatI #
# #
# $DELETE $xT/COORDONNEES$COORD_X #
# #
# genere $xT/COORDONNEES$COORD_X +1.0e3 -800000000002.0 -800.0e9 +260.0e9 #
# #
# $xrr/N_corps.11$X corps=$NcorpsS \ #
# np=$Nimages \ #
# LISTE_X=$xT/COORDONNEES$COORD_X \ #
# LISTE_Y=$xT/COORDONNEES$COORD_Y \ #
# LISTE_Z=$xT/COORDONNEES$COORD_Z \ #
# LISTE_VX=$xT/VITESSES$COORD_X \ #
# LISTE_VY=$xT/VITESSES$COORD_Y \ #
# LISTE_VZ=$xT/VITESSES$COORD_Z \ #
# LISTE_MASSE=$xT/MASSES \ #
# LISTE_RAYON=$xT/RAYONS \ #
# centrer=FAUX reference=1 \ #
# dct=100 \ #
# nombre=40000 \ #
# trainees=VRAI mode=1 \ #
# attenuation_des_images=1.0 \ #
# attenuation_des_trainees=0.99 \ #
# renormaliser=FAUX \ #
# TRANSLATION_OX=600e9 \ #
# TRANSLATION_OY=300e9 \ #
# RVB=FAUX ROUGE=FAUX VERTE=FAUX BLEUE=VRAI \ #
# R=$xw1/NCOR.N. \ #
# $formatI #
# #
# $DELETE $xT/COORDONNEES$COORD_X #
# #
# $DELETE $xT/COORDONNEES$COORD_Y #
# $DELETE $xT/COORDONNEES$COORD_Z #
# $DELETE $xT/VITESSES$COORD_X #
# $DELETE $xT/VITESSES$COORD_Y #
# $DELETE $xT/VITESSES$COORD_Z #
# $DELETE $xT/MASSES #
# $DELETE $xT/RAYONS #
# #
# #
# Pal #
# #
# $xci/reduction_16$Z $xw1/NCOR.N. $xiak/NCOR.J1 1 32 #
# $xci/reduction_64$Z $xw1/NCOR.N. $xiak/NCOR.J1 1 8 #
# #
# ro $xiak/NCOR.J1$R16$ROUGE #
# ro $xiak/NCOR.J1$R16$VERTE #
# ro $xiak/NCOR.J1$R16$BLEUE #
# #
# ro $xiak/NCOR.J1$R64$ROUGE #
# ro $xiak/NCOR.J1$R64$VERTE #
# ro $xiak/NCOR.J1$R64$BLEUE #
# #
# $xcg/unite$Z $xiak/NCOR.J1$R16$ROUGE #
# $xcg/unite$Z $xiak/NCOR.J1$R16$VERTE #
# $xcg/unite$Z $xiak/NCOR.J1$R16$BLEUE #
# #
# $xcg/unite$Z $xiak/NCOR.J1$R64$ROUGE #
# $xcg/unite$Z $xiak/NCOR.J1$R64$VERTE #
# $xcg/unite$Z $xiak/NCOR.J1$R64$BLEUE #
# #
# #
# Pal #
# #
# $xci/disk_video_P$Z $xw1/NCOR.N. 0001 0512 RVB \ #
# 9 1 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
# #
# xivPdf 3 2 #
# #
# record.01$Z $xiak/NCOR.J1$R16 RVB Initialisation #
# record.01$Z $xiak/NCOR.J1$R64 RVB rien #
# #
sequence 019219_019346
sequence 019347_019474
sequence 019475_019602
sequence 019603_019730
# Generees par : #
# #
# Pal #
# #
# #define N0 1 #
# #define N 128 #
# #
# #define COUCHE0 N0 #
# #define COUCHES 128 #
# #
# #define ITER0 32 #
# #define ITERN ITER0 #
# #
# #define X1D -1.00000 #
# #define X2D -0.70000 #
# #define X1A +0.70000 #
# #define X2A +1.00000 #
# #
# #define Y1D +0.30000 #
# #define Y2D +0.60000 #
# #define Y1A -0.60000 #
# #define Y2A -0.30000 #
# #
# #define Z1D +0.00000 #
# #define Z2D +0.30000 #
# #define Z1A +0.00000 #
# #define Z2A +0.30000 #
# #
# extern double pow(); #
# #
# main() #
# { #
# int n; #
# double x1D=X1D,x1C,x1A=X1A; #
# double x2D=X2D,x2C,x2A=X2A; #
# double y1D=Y1D,y1C,y1A=Y1A; #
# double y2D=Y2D,y2C,y2A=Y2A; #
# double z1D=Z1D,z1C,z1A=Z1A; #
# double z2D=Z2D,z2C,z2A=Z2A; #
# #
# for (n=N0 ; n<=N ; n++) #
# { #
# x1C = (((x1A-x1D)*n)+((x1D*N)-(x1A*N0)))/(N-N0); #
# x2C = (((x2A-x2D)*n)+((x2D*N)-(x2A*N0)))/(N-N0); #
# #
# y1C = (((y1A-y1D)*n)+((y1D*N)-(y1A*N0)))/(N-N0); #
# y2C = (((y2A-y2D)*n)+((y2D*N)-(y2A*N0)))/(N-N0); #
# #
# z1C = (((z1A-z1D)*n)+((z1D*N)-(z1A*N0)))/(N-N0); #
# z2C = (((z2A-z2D)*n)+((z2D*N)-(z2A*N0)))/(N-N0); #
# #
# printf("if (`$xcg/parallele.01$X #
# verrou=$xw1/JULI.g.%04d` #
# == $EXIST) then\nsaut;echo %04d\n" #
# ,n,n #
# ); #
# printf("$DELETE $xT/param11\n #
# $xci/valeurs_inte$X #
# p=1 d=%d #
# vD=%+.16f vA=%+.16f #
# cubique=FAUX #
# > $xT/param11\n" #
# ,COUCHES #
# ,z1C,z2C #
# ); #
# printf("$xrc/julia.41$X #
# images=%d #
# iterations=%d #
# r=-0.5815147625160462 #
# i=+0.6358885017421603 #
# COMPOSANTE_J=$xT/param11 #
# K=0.0 #
# xbgD=%+.16f ybgD=%+.16f #
# xhdD=%+.16f yhdD=%+.16f #
# xbgA=%+.16f ybgA=%+.16f #
# xhdA=%+.16f yhdA=%+.16f #
# R=$xT/JULIA. #
# $formatI\n" #
# ,COUCHES #
# ,(((ITERN-ITER0)*n)+((ITER0*N)-(ITERN*N0))) #
# / (N-N0) #
# ,x1C,y1C,x2C,y2C #
# ,x1C,y1C,x2C,y2C #
# ); #
# printf("$xci/accumule.01$X #
# A=$xT/JULIA. #
# premiere=%d derniere=%d #
# attenuation=0 #
# translation_quelconque=FAUX #
# stereo=0.0 #
# trx=+0.00195695 try=0 #
# R=$xw1/JULI.g.%04d #
# $formatI\n" #
# ,COUCHE0,COUCHES #
# ,n #
# ); #
# printf("$xci/accumule.01$X #
# A=$xT/JULIA. #
# premiere=%d derniere=%d #
# attenuation=1 #
# translation_quelconque=FAUX #
# stereo=0.0 #
# trx=+0.00195695 try=0 #
# R=$xw1/JULI.h.%04d #
# $formatI\n" #
# ,COUCHE0,COUCHES #
# ,n #
# ); #
# printf("$xci/accumule.02$X #
# A=$xT/JULIA. #
# premiere=%d derniere=%d #
# binariser=VRAI seuil=$GRIS_6 #
# translation_quelconque=FAUX #
# stereo=0.0 #
# trx=+0.00195695 try=0 #
# R=$xw1/JULI.i.%04d #
# $formatI\n" #
# ,COUCHE0,COUCHES #
# ,n #
# ); #
# printf("$xci/accumule.02$X #
# A=$xT/JULIA. #
# premiere=%d derniere=%d #
# binariser=FAUX #
# translation_quelconque=FAUX #
# stereo=0.0 #
# trx=+0.00195695 try=0 #
# R=$xw1/JULI.j.%04d #
# $formatI\n" #
# ,COUCHE0,COUCHES #
# ,n #
# ); #
# printf("else\nendif\n" #
# ); #
# } #
# } #
# #
# #
# Liste des images et des MACHINEs sur lesquelles elles ont ete calculees (voir 'Gverrou') : #
# #
# LACT27 0001 LACT12 0002 LACT27 0003 LACT27 0004 LACT27 0005 #
# LACT12 0006 LACT27 0007 LACT27 0008 LACT12 0009 LACT27 0010 #
# LACT27 0011 LACT12 0012 LACT27 0013 LACT27 0014 LACT27 0015 #
# LACT12 0016 LACT27 0017 LACT27 0018 LACT12 0019 LACT27 0020 #
# LACT27 0021 LACT27 0022 LACT12 0023 LACT27 0024 LACT27 0025 #
# LACT12 0026 LACT27 0027 LACT27 0028 LACT12 0029 LACT27 0030 #
# LACT27 0031 LACT27 0032 LACT12 0033 LACT27 0034 LACT27 0035 #
# LACT27 0036 LACT12 0037 LACT27 0038 LACT27 0039 LACT12 0040 #
# LACT27 0041 LACT27 0042 LACT27 0043 LACT27 0044 LACT12 0045 #
# LACT27 0046 LACT27 0047 LACT12 0048 LACT27 0049 LACT27 0050 #
# LACT27 0051 LACT12 0052 LACT27 0053 LACT27 0054 LACT12 0055 #
# LACT27 0056 LACT27 0057 LACT27 0058 LACT12 0059 LACT27 0060 #
# LACT27 0061 LACT12 0062 LACT27 0063 LACT27 0064 LACT12 0065 #
# LACT27 0066 LACT27 0067 LACT27 0068 LACT12 0069 LACT27 0070 #
# LACT27 0071 LACT12 0072 LACT27 0073 LACT27 0074 LACT27 0075 #
# LACT12 0076 LACT27 0077 LACT27 0078 LACT12 0079 LACT27 0080 #
# LACT27 0081 LACT12 0082 LACT27 0083 LACT27 0084 LACT27 0085 #
# LACT12 0086 LACT27 0087 LACT27 0088 LACT12 0089 LACT27 0090 #
# LACT27 0091 LACT27 0092 LACT12 0093 LACT27 0094 LACT27 0095 #
# LACT12 0096 LACT27 0097 LACT27 0098 LACT27 0099 LACT12 0100 #
# LACT27 0101 LACT27 0102 LACT12 0103 LACT27 0104 LACT27 0105 #
# LACT27 0106 LACT12 0107 LACT27 0108 LACT27 0109 LACT12 0110 #
# LACT27 0111 LACT27 0112 LACT27 0113 LACT12 0114 LACT27 0115 #
# LACT27 0116 LACT12 0117 LACT27 0118 LACT27 0119 LACT27 0120 #
# LACT12 0121 LACT27 0122 LACT27 0123 LACT27 0124 LACT12 0125 #
# LACT27 0126 LACT27 0127 LACT12 0128 #
# #
# #
# Pal #
# #
# $xci/vraies_C.01$X A=$xw1/JULI.g. \ #
# premiere=1 derniere=128 \ #
# p=$xiP/enfer.05 \ #
# RVB=VRAI \ #
# R=$xw1/JULI.g. \ #
# $formatI #
# #
# $xci/reduction_16$Z $xw1/JULI.g. $xiac/JU.g1.0 1 8 #
# $xci/reduction_64$Z $xw1/JULI.g. $xiac/JU.g1.0 1 2 #
# #
# ro $xiac/JU.g1.0$R16$ROUGE #
# ro $xiac/JU.g1.0$R16$VERTE #
# ro $xiac/JU.g1.0$R16$BLEUE #
# #
# ro $xiac/JU.g1.0$R64$ROUGE #
# ro $xiac/JU.g1.0$R64$VERTE #
# ro $xiac/JU.g1.0$R64$BLEUE #
# #
# $xcg/unite$Z $xiac/JU.g1.0$R16$ROUGE #
# $xcg/unite$Z $xiac/JU.g1.0$R16$VERTE #
# $xcg/unite$Z $xiac/JU.g1.0$R16$BLEUE #
# #
# $xcg/unite$Z $xiac/JU.g1.0$R64$ROUGE #
# $xcg/unite$Z $xiac/JU.g1.0$R64$VERTE #
# $xcg/unite$Z $xiac/JU.g1.0$R64$BLEUE #
# #
# #
# $xci/vraies_C.01$X A=$xw1/JULI.h. \ #
# premiere=1 derniere=128 \ #
# p=$xiP/enfer.05 \ #
# RVB=VRAI \ #
# R=$xw1/JULI.h. \ #
# $formatI #
# #
# $xci/reduction_16$Z $xw1/JULI.h. $xiac/JU.g1.1 1 8 #
# $xci/reduction_64$Z $xw1/JULI.h. $xiac/JU.g1.1 1 2 #
# #
# ro $xiac/JU.g1.1$R16$ROUGE #
# ro $xiac/JU.g1.1$R16$VERTE #
# ro $xiac/JU.g1.1$R16$BLEUE #
# #
# ro $xiac/JU.g1.1$R64$ROUGE #
# ro $xiac/JU.g1.1$R64$VERTE #
# ro $xiac/JU.g1.1$R64$BLEUE #
# #
# $xcg/unite$Z $xiac/JU.g1.1$R16$ROUGE #
# $xcg/unite$Z $xiac/JU.g1.1$R16$VERTE #
# $xcg/unite$Z $xiac/JU.g1.1$R16$BLEUE #
# #
# $xcg/unite$Z $xiac/JU.g1.1$R64$ROUGE #
# $xcg/unite$Z $xiac/JU.g1.1$R64$VERTE #
# $xcg/unite$Z $xiac/JU.g1.1$R64$BLEUE #
# #
# #
# $xci/vraies_C.01$X A=$xw1/JULI.i. \ #
# premiere=1 derniere=128 \ #
# p=$xiP/fractal.11 \ #
# RVB=VRAI \ #
# R=$xw1/JULI.i. \ #
# $formatI #
# #
# $xci/reduction_16$Z $xw1/JULI.i. $xiac/JU.g2.1 1 8 #
# $xci/reduction_64$Z $xw1/JULI.i. $xiac/JU.g2.1 1 2 #
# #
# ro $xiac/JU.g2.1$R16$ROUGE #
# ro $xiac/JU.g2.1$R16$VERTE #
# ro $xiac/JU.g2.1$R16$BLEUE #
# #
# ro $xiac/JU.g2.1$R64$ROUGE #
# ro $xiac/JU.g2.1$R64$VERTE #
# ro $xiac/JU.g2.1$R64$BLEUE #
# #
# $xcg/unite$Z $xiac/JU.g2.1$R16$ROUGE #
# $xcg/unite$Z $xiac/JU.g2.1$R16$VERTE #
# $xcg/unite$Z $xiac/JU.g2.1$R16$BLEUE #
# #
# $xcg/unite$Z $xiac/JU.g2.1$R64$ROUGE #
# $xcg/unite$Z $xiac/JU.g2.1$R64$VERTE #
# $xcg/unite$Z $xiac/JU.g2.1$R64$BLEUE #
# #
# #
# $xci/vraies_C.01$X A=$xw1/JULI.j. \ #
# premiere=1 derniere=128 \ #
# p=$xiP/fractal.11 \ #
# RVB=VRAI \ #
# R=$xw1/JULI.j. \ #
# $formatI #
# #
# $xci/reduction_16$Z $xw1/JULI.j. $xiac/JU.g2.0 1 8 #
# $xci/reduction_64$Z $xw1/JULI.j. $xiac/JU.g2.0 1 2 #
# #
# ro $xiac/JU.g2.0$R16$ROUGE #
# ro $xiac/JU.g2.0$R16$VERTE #
# ro $xiac/JU.g2.0$R16$BLEUE #
# #
# ro $xiac/JU.g2.0$R64$ROUGE #
# ro $xiac/JU.g2.0$R64$VERTE #
# ro $xiac/JU.g2.0$R64$BLEUE #
# #
# $xcg/unite$Z $xiac/JU.g2.0$R16$ROUGE #
# $xcg/unite$Z $xiac/JU.g2.0$R16$VERTE #
# $xcg/unite$Z $xiac/JU.g2.0$R16$BLEUE #
# #
# $xcg/unite$Z $xiac/JU.g2.0$R64$ROUGE #
# $xcg/unite$Z $xiac/JU.g2.0$R64$VERTE #
# $xcg/unite$Z $xiac/JU.g2.0$R64$BLEUE #
# #
# #
# Pal #
# #
# $xci/disk_video_P$Z $xw1/JULI.g. 1 128 RVB \ #
# 9 1 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# $xci/disk_video_P$Z $xw1/JULI.h. 1 128 RVB \ #
# 9 1 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# $xci/disk_video_P$Z $xw1/JULI.i. 1 128 RVB \ #
# 9 1 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# $xci/disk_video_P$Z $xw1/JULI.j. 1 128 RVB \ #
# 9 1 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
# #
# xivPdf 3 2 #
# #
# record.01$Z $xiac/JU.g1.0$R16 RVB Initialisation #
# record.01$Z $xiac/JU.g1.0$R64 RVB rien #
# #
# record.01$Z $xiac/JU.g1.1$R16 RVB rien #
# record.01$Z $xiac/JU.g1.1$R64 RVB rien #
# #
# record.01$Z $xiac/JU.g2.0$R16 RVB rien #
# record.01$Z $xiac/JU.g2.0$R64 RVB rien #
# #
# record.01$Z $xiac/JU.g2.1$R16 RVB rien #
# record.01$Z $xiac/JU.g2.1$R64 RVB rien #
# #
sequence 019731_020113
sequence 020114_020242
# Generee par : #
# #
# #
# ATTENTION, la sequence : #
# #
# xivPdf 9 1 / 015207_015334 #
# #
# se termine sur une figure pentagonale dont l'origine est la trop grande vitesse de la #
# Terre au voisinage du Soleil. Sa trajectoire est tres certainement materialisee a l'aide #
# de cinq points uniquement. C'est pourquoi, elle est recalculee ici avec un echantillonnage #
# quatre fois plus dense... #
# #
# #
# $Z SET Nimages=512 #
# #
# $Z set NcorpsS=3 #
# #
# $Z $DELETE $xT/ROTATION$COORD_X #
# $Z $xci/valeurs_inte$X p=1 d=$Nimages vD=0 vA=0 cubique=VRAI > $xT/ROTATION$COORD_X #
# #
# $Z alias genere '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 genere $xT/MASSES +2.0e30 +6.4e23 +60.5e23 #
# $Z genere $xT/RAYONS 2.2e10 1.5e10 1.5e10 #
# $Z genere $xT/COULEURS$ROUGE $GRIS_8 $GRIS_8 $GRIS_0 #
# $Z genere $xT/COULEURS$VERTE $GRIS_8 $GRIS_4 $GRIS_6 #
# $Z genere $xT/COULEURS$BLEUE $GRIS_0 $GRIS_2 $GRIS_8 #
# #
# $Z Pal #
# #
# #
# $c #define N0 1 #
# $c #define N Nimages #
# #
# $c extern double sqrt(); #
# #
# $c int main() #
# $c { #
# $c double Fcentre=(0.05e11/2.04e+11); #
# #
# $c double XcentreD=-2.04e+11; #
# $c double XcentreA; #
# #
# $c double YcentreD=+1.0e3; #
# $c double YcentreA; #
# #
# $c double ZcentreD=+1.0e3; #
# $c double ZcentreA; #
# #
# $c double XvitessD=0; #
# #
# $c double YvitessD=-2.57e+4; #
# #
# $c double ZvitessD=0; #
# #
# $c int n; #
# #
# $c XcentreA=Fcentre*XcentreD; #
# $c YcentreA=Fcentre*YcentreD; #
# $c ZcentreA=Fcentre*ZcentreD; #
# #
# $c for (n=N0 ; n<=N ; n++) #
# $c { #
# $c double Xcentre; #
# $c double Ycentre; #
# $c double Zcentre; #
# #
# $c double Xvitess; #
# $c double Yvitess; #
# $c double Zvitess; #
# #
# $c Xcentre=((XcentreA*(n-N0))+(XcentreD*(N-n)))/(N-N0); #
# $c Ycentre=((YcentreA*(n-N0))+(YcentreD*(N-n)))/(N-N0); #
# $c Zcentre=((ZcentreA*(n-N0))+(ZcentreD*(N-n)))/(N-N0); #
# #
# $c Xvitess=XvitessD*sqrt(XcentreD/Xcentre); #
# $c Yvitess=YvitessD*sqrt(YcentreD/Ycentre); #
# $c Zvitess=ZvitessD*sqrt(ZcentreD/Zcentre); #
# #
# $c printf("genere #
# $c $xT/COORDONNEES$COORD_X #
# $c +1.0e3 %+g %+g\n" #
# $c ,XcentreD,Xcentre #
# $c ); #
# $c printf("genere #
# $c $xT/COORDONNEES$COORD_Y #
# $c +1.0e3 %+g %+g\n" #
# $c ,YcentreD,Ycentre #
# $c ); #
# $c printf("genere #
# $c $xT/COORDONNEES$COORD_Z #
# $c +1.0e3 %+g %+g\n" #
# $c ,ZcentreD,Zcentre #
# $c ); #
# #
# $c printf("genere #
# $c $xT/VITESSES$COORD_X #
# $c 0 %+g %+g\n" #
# $c ,XvitessD,Xvitess #
# $c ); #
# $c printf("genere #
# $c $xT/VITESSES$COORD_Y #
# $c 0 %+g %+g\n" #
# $c ,YvitessD,Yvitess #
# $c ); #
# $c printf("genere #
# $c $xT/VITESSES$COORD_Z #
# $c 0 %+g %+g\n" #
# $c ,ZvitessD,Zvitess #
# $c ); #
# #
# $c printf("$xrr/N_corps.11$X #
# $c corps=$NcorpsS #
# $c np=$Nimages #
# $c LISTE_X=$xT/COORDONNEES$COORD_X #
# $c LISTE_Y=$xT/COORDONNEES$COORD_Y #
# $c LISTE_Z=$xT/COORDONNEES$COORD_Z #
# $c LISTE_VX=$xT/VITESSES$COORD_X #
# $c LISTE_VY=$xT/VITESSES$COORD_Y #
# $c LISTE_VZ=$xT/VITESSES$COORD_Z #
# $c LISTE_MASSE=$xT/MASSES #
# $c LISTE_RAYON=$xT/RAYONS #
# $c LISTE_ROUGE=$xT/COULEURS$ROUGE #
# $c LISTE_VERTE=$xT/COULEURS$VERTE #
# $c LISTE_BLEUE=$xT/COULEURS$BLEUE #
# $c centrer=FAUX reference=3 #
# $c dct=100 #
# $c 2_a_2=FAUX source=1 #
# $c nombre=1000 #
# $c ensemble=VRAI #
# $c Ranterieurs=0.5 #
# $c trainees=FAUX #
# $c renormaliser=FAUX #
# $c TRANSLATION_OX=0 #
# $c TRANSLATION_OY=0 #
# $c ROTATION_OX=$xT/ROTATION$COORD_X #
# $c ZOOM=4.0 #
# $c fond=FAUX #
# $c pV=%d #
# $c R=$xw11/NCOR.O. #
# $c $formatI\n" #
# $c ,N #
# $c ); #
# $c printf("$MV $xw11/NCOR.O.%04d$ROUGE #
# $c $xw12/NCOR.O.%04d$ROUGE\n" #
# $c ,N,n #
# $c ); #
# $c printf("$MV $xw11/NCOR.O.%04d$VERTE #
# $c $xw12/NCOR.O.%04d$VERTE\n" #
# $c ,N,n #
# $c ); #
# $c printf("$MV $xw11/NCOR.O.%04d$BLEUE #
# $c $xw12/NCOR.O.%04d$BLEUE\n" #
# $c ,N,n #
# $c ); #
# #
# $c printf("$DELETE $xT/COORDONNEES$COORD_X\n"); #
# $c printf("$DELETE $xT/COORDONNEES$COORD_Y\n"); #
# $c printf("$DELETE $xT/COORDONNEES$COORD_Z\n"); #
# #
# $c printf("$DELETE $xT/VITESSES$COORD_X\n"); #
# $c printf("$DELETE $xT/VITESSES$COORD_Y\n"); #
# $c printf("$DELETE $xT/VITESSES$COORD_Z\n"); #
# $c } #
# $c } #
# #
# $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/ROTATION$COORD_X #
# #
# #
# $Z Pal #
# #
# $Z $xci/reduction_16$Z $xw12/NCOR.O. $xiak/NCOR.H3 1 32 #
# $Z $xci/reduction_64$Z $xw12/NCOR.O. $xiak/NCOR.H3 1 8 #
# #
# $Z ro $xiak/NCOR.H3$R16$ROUGE #
# $Z ro $xiak/NCOR.H3$R16$VERTE #
# $Z ro $xiak/NCOR.H3$R16$BLEUE #
# #
# $Z ro $xiak/NCOR.H3$R64$ROUGE #
# $Z ro $xiak/NCOR.H3$R64$VERTE #
# $Z ro $xiak/NCOR.H3$R64$BLEUE #
# #
# $Z $xcg/unite$Z $xiak/NCOR.H3$R16$ROUGE #
# $Z $xcg/unite$Z $xiak/NCOR.H3$R16$VERTE #
# $Z $xcg/unite$Z $xiak/NCOR.H3$R16$BLEUE #
# #
# $Z $xcg/unite$Z $xiak/NCOR.H3$R64$ROUGE #
# $Z $xcg/unite$Z $xiak/NCOR.H3$R64$VERTE #
# $Z $xcg/unite$Z $xiak/NCOR.H3$R64$BLEUE #
# #
# #
# Pal #
# #
# $xci/disk_video_P$Z $xw12/NCOR.O. 001 383 RVB \ #
# 9 1 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# $xci/disk_video_P$Z $xw12/NCOR.O. 384 512 RVB \ #
# 9 1 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
# #
# xivPdf 3 2 #
# #
# record.01$Z $xiak/NCOR.H3$R16 RVB Initialisation #
# record.01$Z $xiak/NCOR.H3$R64 RVB rien #
# #
# ATTENTION, l'enregistrement a eu lieu en deux fois car '$LACT28' est, au milieu du #
# calcul de cette sequence, de nouveau retournee a l'hopital... #
sequence 020243_020641
sequence 020642_020754
sequence 020755_021266
# Generee par : #
# #
# ATTENTION : la mise en orbite du corps '3' autour du corps '2', pour etre visible #
# demande que la distance entre eux deux soit largement exageree (par exemple par rapport #
# au couple {Terre,Lune}). Pour compenser cette perte dans l'amplitude de leur interaction #
# gravitationnelle, il faut augmenter en consequence la masse grave du corps '2'... #
# #
# ATTENTION : grace a la commande '$xcg/print_F_hexa$X', j'ai verifie sur '$CMAP24' et #
# sur '$LACT28' que les constantes flottantes utilisees pour initialiser les differentes #
# listes qui suivent avaient strictement (c'est-a-dire tous les bits) identiques. Par #
# contre sur '$INFO23', la representation interne est differente, donc on ne peut comparer. #
# #
# set Nimages=512 #
# #
# set NcorpsS=4 #
# #
# alias genere 'set FiLe=\!:1 ; set LiStE=(\!:2*) ; \\ #
# $DELETE $FiLe ; \\ #
# echo "$LiStE" | $SE -e "s/$K_BLANC$K_BLANC*/ /g" | $R "$K_BLANC" "$K_NL" > $FiLe ; \\ #
# unset FiLe LiStE' #
# #
# genere $xT/COORDONNEES$COORD_X +1.0e3 -800.0e9 -800.0e9 +260.0e9 #
# genere $xT/COORDONNEES$COORD_Y +1.0e3 +1.0e3 +5.0e10 +1.0e3 #
# genere $xT/COORDONNEES$COORD_Z +1.0e3 +1.0e3 +1.0e3 +1.0e3 #
# genere $xT/VITESSES$COORD_X 0 0 -0.96e3 0 #
# genere $xT/VITESSES$COORD_Y 0 5.0e3 5.0e3 -13.3e3 #
# genere $xT/VITESSES$COORD_Z 0 0 0 0 #
# genere $xT/MASSES 1.0e30 2.0e27 7.350e22 1.0e28 #
# genere $xT/RAYONS 8.0e10 4.0e10 3.0e10 5.0e10 #
# #
# if ("$mHOTE" == "$CMAP24") then #
# set Couleur="RVB=FAUX ROUGE=VRAI VERTE=FAUX BLEUE=FAUX" #
# set Directory=$xT #
# repeat 10000 eval "cd /share/blanche ; sleep 60" & #
# else #
# endif #
# #
# if ("$mHOTE" == "$INFO23") then #
# set Couleur="RVB=FAUX ROUGE=FAUX VERTE=VRAI BLEUE=FAUX" #
# set Directory=$xT #
# else #
# endif #
# #
# if ("$mHOTE" == "$LACT28") then #
# set Couleur="RVB=FAUX ROUGE=FAUX VERTE=FAUX BLEUE=VRAI" #
# set Directory=$xw1 #
# else #
# endif #
# #
# if ($?Couleur == $NEXIST) then #
# EROR "la machine '$sHOTE' ne supporte pas ce calcul" #
# else #
# endif #
# #
# Pal #
# #
# $xrr/N_corps.11$X corps=$NcorpsS \ #
# np=$Nimages \ #
# LISTE_X=$xT/COORDONNEES$COORD_X \ #
# LISTE_Y=$xT/COORDONNEES$COORD_Y \ #
# LISTE_Z=$xT/COORDONNEES$COORD_Z \ #
# LISTE_VX=$xT/VITESSES$COORD_X \ #
# LISTE_VY=$xT/VITESSES$COORD_Y \ #
# LISTE_VZ=$xT/VITESSES$COORD_Z \ #
# LISTE_MASSE=$xT/MASSES \ #
# LISTE_RAYON=$xT/RAYONS \ #
# centrer=FAUX reference=1 \ #
# $Couleur \ #
# dct=100 \ #
# nombre=40000 \ #
# trainees=VRAI mode=1 \ #
# attenuation_des_images=1.0 \ #
# attenuation_des_trainees=0.97 \ #
# renormaliser=FAUX \ #
# TRANSLATION_OX=600e9 \ #
# TRANSLATION_OY=300e9 \ #
# R=$Directory/NCOR.P. \ #
# $formatI #
# #
# $DELETE $xT/COORDONNEES$COORD_X #
# $DELETE $xT/COORDONNEES$COORD_Y #
# $DELETE $xT/COORDONNEES$COORD_Z #
# $DELETE $xT/VITESSES$COORD_X #
# $DELETE $xT/VITESSES$COORD_Y #
# $DELETE $xT/VITESSES$COORD_Z #
# $DELETE $xT/MASSES #
# $DELETE $xT/RAYONS #
# #
# #
# Pal #
# #
# $xci/reduction_16$Z $xw1/NCOR.P. $xiak/NCOR.K1 1 32 #
# $xci/reduction_64$Z $xw1/NCOR.P. $xiak/NCOR.K1 1 8 #
# #
# ro $xiak/NCOR.K1$R16$ROUGE #
# ro $xiak/NCOR.K1$R16$VERTE #
# ro $xiak/NCOR.K1$R16$BLEUE #
# #
# ro $xiak/NCOR.K1$R64$ROUGE #
# ro $xiak/NCOR.K1$R64$VERTE #
# ro $xiak/NCOR.K1$R64$BLEUE #
# #
# $xcg/unite$Z $xiak/NCOR.K1$R16$ROUGE #
# $xcg/unite$Z $xiak/NCOR.K1$R16$VERTE #
# $xcg/unite$Z $xiak/NCOR.K1$R16$BLEUE #
# #
# $xcg/unite$Z $xiak/NCOR.K1$R64$ROUGE #
# $xcg/unite$Z $xiak/NCOR.K1$R64$VERTE #
# $xcg/unite$Z $xiak/NCOR.K1$R64$BLEUE #
# #
# #
# Pal #
# #
# $xci/disk_video_P$Z $xw1/NCOR.P. 001 399 RVB \ #
# 9 1 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# $xci/disk_video_P$Z $xw1/NCOR.P. 400 512 RVB \ #
# 9 1 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
# ATTENTION, l'enregistrement a ete fait en deux fois a cause d'un arret intempestif de #
# '$INFO23' qui a contraint a relancer completement le processus (et ce cause des trainees #
# qui limitent alors l'usage de 'pV='...). #
# #
# #
# Pal #
# #
# $xci/genere$X premiere=001 derniere=128 pas=1 \ #
# C='$xci/acces_RVB.13$Z \ #
# $xw1/NCOR.P.%04d \ #
# $xw1/NCOR.Q.%04d' #
# $xci/genere$X premiere=001 derniere=128 pas=1 \ #
# C='$DELETE $xw1/NCOR.P.%04d.?' #
# #
# $xci/genere$X premiere=129 derniere=256 pas=1 \ #
# C='$xci/acces_RVB.13$Z \ #
# $xw1/NCOR.P.%04d \ #
# $xw1/NCOR.Q.%04d' #
# $xci/genere$X premiere=129 derniere=256 pas=1 \ #
# C='$DELETE $xw1/NCOR.P.%04d.?' #
# #
# $xci/genere$X premiere=257 derniere=384 pas=1 \ #
# C='$xci/acces_RVB.13$Z \ #
# $xw1/NCOR.P.%04d \ #
# $xw1/NCOR.Q.%04d' #
# $xci/genere$X premiere=257 derniere=384 pas=1 \ #
# C='$DELETE $xw1/NCOR.P.%04d.?' #
# #
# $xci/genere$X premiere=385 derniere=512 pas=1 \ #
# C='$xci/acces_RVB.13$Z \ #
# $xw1/NCOR.P.%04d \ #
# $xw1/NCOR.Q.%04d' #
# $xci/genere$X premiere=385 derniere=512 pas=1 \ #
# C='$DELETE $xw1/NCOR.P.%04d.?' #
# #
# #
# $xci/disk_video_P$Z $xw1/NCOR.Q. 001 512 RVB \ #
# 9 1 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
# #
# xivPdf 3 2 #
# #
# record.01$Z $xiak/NCOR.K1$R16 RVB Initialisation #
# record.01$Z $xiak/NCOR.K1$R64 RVB rien #
# #
# #
# Nota : la sequence '$xw1/NCOR.Q.' a ete regeneree une deuxieme fois dans le cadre du #
# film sur les erreurs d'arrondi avec les parametres suivants : #
# #
# XYmaxNe 319 199 #
# #
# (a la place de 'Pal') et : #
# #
# genere $xT/RAYONS 8.0e10 6.0e10 5.0e10 7.0e10 #
# #
# (afin de rendre les spheres plus grosses) et dont on ne garde que les images de '0001' #
# a '0491'. Enfin, a partir de la ont ete generees trois animations correspondant aux #
# trois couleurs {R,V,B} retouchees pour un passage correct en video. Les ponderations #
# utilisees furent les suivantes : #
# #
# ROUGE = {100%(ROUGE),50%(ROUGE),NOIR} #
# VERTE = {NOIR,100%(VERTE),20%(VERTE)} #
# BLEUE = {NOIR,70%(BLEUE),100%(BLEUE)} #
# #
sequence 021267_021778
sequence 021779_022290
# Generee par : #
# #
# ATTENTION : la mise en orbite du corps '3' autour du corps '2', pour etre visible #
# demande que la distance entre eux deux soit largement exageree (par exemple par rapport #
# au couple {Terre,Lune}). Pour compenser cette perte dans l'amplitude de leur interaction #
# gravitationnelle, il faut augmenter en consequence la masse grave du corps '2'... #
# #
# set Nimages=512 #
# #
# set NcorpsS=4 #
# #
# alias genere 'set FiLe=\!:1 ; set LiStE=(\!:2*) ; \\ #
# $DELETE $FiLe ; \\ #
# echo "$LiStE" | $SE -e "s/$K_BLANC$K_BLANC*/ /g" | $R "$K_BLANC" "$K_NL" > $FiLe ; \\ #
# unset FiLe LiStE' #
# #
# genere $xT/COORDONNEES$COORD_X +1.0e3 -800.0e9 -800.0e9 +260.0e9 #
# genere $xT/COORDONNEES$COORD_Y +1.0e3 +1.0e3 +5.0e10 +1.0e3 #
# genere $xT/COORDONNEES$COORD_Z +1.0e3 +1.0e3 +1.0e3 +1.0e3 #
# genere $xT/VITESSES$COORD_X 0 0 -0.96e3 0 #
# genere $xT/VITESSES$COORD_Y 0 5.0e3 5.0e3 -13.3e3 #
# genere $xT/VITESSES$COORD_Z 0 0 0 0 #
# genere $xT/MASSES 1.0e30 2.0e27 7.350e22 1.0e28 #
# genere $xT/RAYONS 8.0e10 4.0e10 3.0e10 5.0e10 #
# genere $xT/COULEURS$ROUGE $GRIS_3 $GRIS_8 $GRIS_3 $GRIS_3 #
# genere $xT/COULEURS$VERTE $GRIS_3 $GRIS_8 $GRIS_3 $GRIS_3 #
# genere $xT/COULEURS$BLEUE $GRIS_3 $GRIS_8 $GRIS_3 $GRIS_3 #
# #
# if ("$mHOTE" == "$CMAP24") then #
# set Couleur="ROUGE=VRAI VERTE=FAUX BLEUE=FAUX" #
# set Directory=$xT #
# repeat 10000 eval "cd /share/blanche ; sleep 60" & #
# else #
# endif #
# #
# if ("$mHOTE" == "$INFO23") then #
# set Couleur="ROUGE=FAUX VERTE=VRAI BLEUE=FAUX" #
# set Directory=$xT #
# else #
# endif #
# #
# if ("$mHOTE" == "$LACT28") then #
# set Couleur="ROUGE=FAUX VERTE=FAUX BLEUE=VRAI" #
# set Directory=$xw1 #
# else #
# endif #
# #
# if ($?Couleur == $NEXIST) then #
# EROR "la machine '$sHOTE' ne supporte pas ce calcul" #
# else #
# endif #
# #
# set Couleur="RVB=FAUX N_et_B=FAUX ""$Couleur" #
# #
# Pal #
# #
# $xrr/N_corps.11$X corps=$NcorpsS \ #
# np=$Nimages \ #
# LISTE_X=$xT/COORDONNEES$COORD_X \ #
# LISTE_Y=$xT/COORDONNEES$COORD_Y \ #
# LISTE_Z=$xT/COORDONNEES$COORD_Z \ #
# LISTE_VX=$xT/VITESSES$COORD_X \ #
# LISTE_VY=$xT/VITESSES$COORD_Y \ #
# LISTE_VZ=$xT/VITESSES$COORD_Z \ #
# LISTE_MASSE=$xT/MASSES \ #
# LISTE_RAYON=$xT/RAYONS \ #
# LISTE_ROUGE=$xT/COULEURS$ROUGE \ #
# LISTE_VERTE=$xT/COULEURS$VERTE \ #
# LISTE_BLEUE=$xT/COULEURS$BLEUE \ #
# centrer=FAUX reference=1 \ #
# $Couleur \ #
# dct=100 \ #
# nombre=40000 \ #
# trainees=VRAI mode=1 \ #
# attenuation_des_images=1.0 \ #
# attenuation_des_trainees=0.97 \ #
# renormaliser=FAUX \ #
# TRANSLATION_OX=600e9 \ #
# TRANSLATION_OY=300e9 \ #
# R=$Directory/NCOR.R. \ #
# $formatI #
# #
# $DELETE $xT/COORDONNEES$COORD_X #
# $DELETE $xT/COORDONNEES$COORD_Y #
# $DELETE $xT/COORDONNEES$COORD_Z #
# $DELETE $xT/VITESSES$COORD_X #
# $DELETE $xT/VITESSES$COORD_Y #
# $DELETE $xT/VITESSES$COORD_Z #
# $DELETE $xT/MASSES #
# $DELETE $xT/RAYONS #
# $DELETE $xT/COULEURS$ROUGE #
# $DELETE $xT/COULEURS$VERTE #
# $DELETE $xT/COULEURS$BLEUE #
# #
# #
# Pal #
# #
# $xci/reduction_16$Z $xw1/NCOR.R. $xiak/NCOR.K2 1 32 #
# $xci/reduction_64$Z $xw1/NCOR.R. $xiak/NCOR.K2 1 8 #
# #
# ro $xiak/NCOR.K2$R16$ROUGE #
# ro $xiak/NCOR.K2$R16$VERTE #
# ro $xiak/NCOR.K2$R16$BLEUE #
# #
# ro $xiak/NCOR.K2$R64$ROUGE #
# ro $xiak/NCOR.K2$R64$VERTE #
# ro $xiak/NCOR.K2$R64$BLEUE #
# #
# $xcg/unite$Z $xiak/NCOR.K2$R16$ROUGE #
# $xcg/unite$Z $xiak/NCOR.K2$R16$VERTE #
# $xcg/unite$Z $xiak/NCOR.K2$R16$BLEUE #
# #
# $xcg/unite$Z $xiak/NCOR.K2$R64$ROUGE #
# $xcg/unite$Z $xiak/NCOR.K2$R64$VERTE #
# $xcg/unite$Z $xiak/NCOR.K2$R64$BLEUE #
# #
# #
# Pal #
# #
# $xci/disk_video_P$Z $xw1/NCOR.R. 001 512 RVB \ #
# 9 1 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
# #
# Pal #
# #
# $xci/genere$X premiere=001 derniere=128 pas=1 \ #
# C='$xci/acces_RVB.13$Z \ #
# $xw1/NCOR.R.%04d \ #
# $xw1/NCOR.S.%04d' #
# $xci/genere$X premiere=001 derniere=128 pas=1 \ #
# C='$DELETE $xw1/NCOR.R.%04d.?' #
# #
# $xci/genere$X premiere=129 derniere=256 pas=1 \ #
# C='$xci/acces_RVB.13$Z \ #
# $xw1/NCOR.R.%04d \ #
# $xw1/NCOR.S.%04d' #
# $xci/genere$X premiere=129 derniere=256 pas=1 \ #
# C='$DELETE $xw1/NCOR.R.%04d.?' #
# #
# $xci/genere$X premiere=257 derniere=384 pas=1 \ #
# C='$xci/acces_RVB.13$Z \ #
# $xw1/NCOR.R.%04d \ #
# $xw1/NCOR.S.%04d' #
# $xci/genere$X premiere=257 derniere=384 pas=1 \ #
# C='$DELETE $xw1/NCOR.R.%04d.?' #
# #
# $xci/genere$X premiere=385 derniere=512 pas=1 \ #
# C='$xci/acces_RVB.13$Z \ #
# $xw1/NCOR.R.%04d \ #
# $xw1/NCOR.S.%04d' #
# $xci/genere$X premiere=385 derniere=512 pas=1 \ #
# C='$DELETE $xw1/NCOR.R.%04d.?' #
# #
# #
# $xci/disk_video_P$Z $xw1/NCOR.S. 001 512 RVB \ #
# 9 1 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
# #
# xivPdf 3 2 #
# #
# record.01$Z $xiak/NCOR.K2$R16 RVB Initialisation #
# record.01$Z $xiak/NCOR.K2$R64 RVB rien #
# #
sequence 022291_022546
sequence 022547_022802
# Generee par : #
# #
# ATTENTION, la masse de Saturne a longtemps valu ci-dessous +56.8e2 au lieu de +56.8e25, #
# ce qui constituait une erreur enorme. Cette sequence a donc ete recalculee selon : #
# #
# xivPdf 9 1 / 023827_024338 #
# #
# avec la masse correcte (meme si a priori cette erreur n'avait pas de consequences, le #
# programme '$xrr/N_corps.11$X' etant en mode "2_a_2=FAUX"). #
# #
# $Z SET Nimages=512 #
# #
# $Z set NcorpsS=11 #
# #
# $Z $DELETE $xT/ROTATION$COORD_X #
# $Z $xci/valeurs_inte$X p=1 d=$Nimages vD=0 vA=0 cubique=VRAI > $xT/ROTATION$COORD_X #
# #
# $Z alias genere '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 genere $xT/MASSES \ #
# $Z +2.0e30 +3.3e23 +48.7e23 \ #
# $Z +60.5e23 \ #
# $Z +6.4e23 +189.9e25 +56.8e25 +8.6e25 +10.3e25 +6.6e21 \ #
# $Z +60.5e23 #
# $Z genere $xT/RAYONS \ #
# $Z +50e10 +35e10 +35e10 \ #
# $Z +35e10 \ #
# $Z +35e10 +45e10 +45e10 +40e10 +40e10 +35e10 \ #
# $Z +35e10 #
# $Z genere $xT/COULEURS$ROUGE \ #
# $Z $GRIS_8 $GRIS_8 $GRIS_8 \ #
# $Z $GRIS_0 \ #
# $Z $GRIS_8 $GRIS_8 $GRIS_8 $GRIS_4 $GRIS_0 $GRIS_7 \ #
# $Z $GRIS_0 #
# $Z genere $xT/COULEURS$VERTE \ #
# $Z $GRIS_8 $GRIS_6 $GRIS_4 \ #
# $Z $GRIS_6 \ #
# $Z $GRIS_4 $GRIS_6 $GRIS_7 $GRIS_8 $GRIS_7 $GRIS_7 \ #
# $Z $GRIS_4 #
# $Z genere $xT/COULEURS$BLEUE \ #
# $Z $GRIS_0 $GRIS_2 $GRIS_0 \ #
# $Z $GRIS_8 \ #
# $Z $GRIS_2 $GRIS_0 $GRIS_0 $GRIS_8 $GRIS_8 $GRIS_8 \ #
# $Z $GRIS_8 #
# #
# $Z Pal #
# #
# #
# $c #define N0 1 #
# $c #define N Nimages #
# #
# $c extern double sqrt(); #
# #
# $c int main() #
# $c { #
# $c int n; #
# #
# $c double XcentreS=+1e3; #
# $c double XcentreD=-392e+10; #
# $c double XcentreA; #
# #
# $c double YcentreS=+1e3; #
# $c double YcentreD=+307e+10; #
# $c double YcentreA; #
# #
# $c double ZcentreS=+1e3; #
# $c double ZcentreD=+216e+10; #
# $c double ZcentreA; #
# #
# $c double XvitessD=-2.27e+3; #
# #
# $c double YvitessD=-4.53e+3; #
# #
# $c double ZvitessD=-7.39e+2; #
# #
# $c double Fcentre; #
# $c double OdistD; #
# #
# $c OdistD=sqrt(((XcentreD-XcentreS)*(XcentreD-XcentreS))+ #
# $c ((YcentreD-YcentreS)*(YcentreD-YcentreS))+ #
# $c ((ZcentreD-ZcentreS)*(ZcentreD-ZcentreS)) #
# $c ); #
# $c Fcentre=(0.05e11/OdistD); #
# #
# $c XcentreA=Fcentre*XcentreD; #
# $c YcentreA=Fcentre*YcentreD; #
# $c ZcentreA=Fcentre*ZcentreD; #
# #
# $c for (n=N0 ; n<=N ; n++) #
# $c { #
# $c double Xcentre; #
# $c double Ycentre; #
# $c double Zcentre; #
# #
# $c double Xvitess; #
# $c double Yvitess; #
# $c double Zvitess; #
# #
# $c double Odist; #
# #
# $c Xcentre=((XcentreA*(n-N0))+(XcentreD*(N-n)))/(N-N0); #
# $c Ycentre=((YcentreA*(n-N0))+(YcentreD*(N-n)))/(N-N0); #
# $c Zcentre=((ZcentreA*(n-N0))+(ZcentreD*(N-n)))/(N-N0); #
# #
# $c Odist=sqrt(((Xcentre-XcentreS)*(Xcentre-XcentreS))+ #
# $c ((Ycentre-YcentreS)*(Ycentre-YcentreS))+ #
# $c ((Zcentre-ZcentreS)*(Zcentre-ZcentreS)) #
# $c ); #
# #
# $c Xvitess=XvitessD*sqrt(OdistD/Odist); #
# $c Yvitess=YvitessD*sqrt(OdistD/Odist); #
# $c Zvitess=ZvitessD*sqrt(OdistD/Odist); #
# #
# $c printf("genere #
# $c $xT/COORDONNEES$COORD_X #
# $c %+g +514e+8 +213e+8 #
# $c -203e+8 #
# $c -204e+9 +501e+9 -134e+10 -150e+9 -436e+10 #
# $c %+g %+g\n" #
# $c ,XcentreS,XcentreD,Xcentre #
# $c ); #
# $c printf("genere #
# $c $xT/COORDONNEES$COORD_Y #
# $c %+g +682e+7 +967e+8 #
# $c +133e+9 #
# $c +126e+9 -519e+9 +341e+9 +259e+10 -115e+10 #
# $c %+g %+g\n" #
# $c ,YcentreS,YcentreD,Ycentre #
# $c ); #
# $c printf("genere #
# $c $xT/COORDONNEES$COORD_Z #
# $c %+g -163e+7 +422e+8 #
# $c +579e+8 #
# $c +634e+8 -235e+9 +199e+9 +113e+10 -363e+9 #
# $c %+g %+g\n" #
# $c ,ZcentreS,ZcentreD,Zcentre #
# $c ); #
# #
# $c printf("genere #
# $c $xT/VITESSES$COORD_X #
# $c 0 -1.46e+4 -3.44e+4 #
# $c -2.99e+4 #
# $c -1.27e+4 +9.67e+3 -3.21e+3 -6.84e+3 +1.42e+3 #
# $c %+g %+g\n" #
# $c ,XvitessD,Xvitess #
# $c ); #
# $c printf("genere #
# $c $xT/VITESSES$COORD_Y #
# $c 0 +4.43e+4 +5.39e+3 #
# $c -3.88e+3 #
# $c -1.64e+4 +8.59e+3 -8.62e+3 -6.50e+2 -4.79e+3 #
# $c %+g %+g\n" #
# $c ,YvitessD,Yvitess #
# $c ); #
# $c printf("genere #
# $c $xT/VITESSES$COORD_Z #
# $c 0 +2.52e+4 +4.60e+3 #
# $c -1.68e+3 #
# $c -7.18e+3 +3.44e+3 -3.42e+3 -1.88e+2 -2.00e+3 #
# $c %+g %+g\n" #
# $c ,ZvitessD,Zvitess #
# $c ); #
# #
# $c printf("$xrr/N_corps.11$X #
# $c corps=$NcorpsS #
# $c np=$Nimages #
# $c LISTE_X=$xT/COORDONNEES$COORD_X #
# $c LISTE_Y=$xT/COORDONNEES$COORD_Y #
# $c LISTE_Z=$xT/COORDONNEES$COORD_Z #
# $c LISTE_VX=$xT/VITESSES$COORD_X #
# $c LISTE_VY=$xT/VITESSES$COORD_Y #
# $c LISTE_VZ=$xT/VITESSES$COORD_Z #
# $c LISTE_MASSE=$xT/MASSES #
# $c LISTE_RAYON=$xT/RAYONS #
# $c LISTE_ROUGE=$xT/COULEURS$ROUGE #
# $c LISTE_VERTE=$xT/COULEURS$VERTE #
# $c LISTE_BLEUE=$xT/COULEURS$BLEUE #
# $c centrer=FAUX reference=11 #
# $c extension=5 #
# $c dct=15000 #
# $c 2_a_2=FAUX source=1 #
# $c nombre=1000 #
# $c ensemble=VRAI #
# $c acceptable=0.5 #
# $c Ranterieurs=0.5 #
# $c trainees=FAUX #
# $c renormaliser=FAUX #
# $c lineaire=FAUX exposant=0.4 #
# $c Lz=1.0e13 #
# $c TRANSLATION_OX=0 #
# $c TRANSLATION_OY=0 #
# $c ROTATION_OX=$xT/ROTATION$COORD_X #
# $c ZOOM=0.60 #
# $c fond=FAUX #
# $c pV=%d #
# $c R=$xw11/NCOR.T. #
# $c $formatI\n" #
# $c ,N #
# $c ); #
# $c printf("$MV $xw11/NCOR.T.%04d$ROUGE #
# $c $xw12/NCOR.T.%04d$ROUGE\n" #
# $c ,N,n #
# $c ); #
# $c printf("$MV $xw11/NCOR.T.%04d$VERTE #
# $c $xw12/NCOR.T.%04d$VERTE\n" #
# $c ,N,n #
# $c ); #
# $c printf("$MV $xw11/NCOR.T.%04d$BLEUE #
# $c $xw12/NCOR.T.%04d$BLEUE\n" #
# $c ,N,n #
# $c ); #
# #
# $c printf("$DELETE $xT/COORDONNEES$COORD_X\n"); #
# $c printf("$DELETE $xT/COORDONNEES$COORD_Y\n"); #
# $c printf("$DELETE $xT/COORDONNEES$COORD_Z\n"); #
# #
# $c printf("$DELETE $xT/VITESSES$COORD_X\n"); #
# $c printf("$DELETE $xT/VITESSES$COORD_Y\n"); #
# $c printf("$DELETE $xT/VITESSES$COORD_Z\n"); #
# $c } #
# $c } #
# #
# $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/ROTATION$COORD_X #
# #
# #
# $Z Pal #
# #
# $Z $xci/reduction_16$Z $xw12/NCOR.T. $xiak/NCOR.L1 1 32 #
# $Z $xci/reduction_64$Z $xw12/NCOR.T. $xiak/NCOR.L1 1 8 #
# #
# $Z ro $xiak/NCOR.L1$R16$ROUGE #
# $Z ro $xiak/NCOR.L1$R16$VERTE #
# $Z ro $xiak/NCOR.L1$R16$BLEUE #
# #
# $Z ro $xiak/NCOR.L1$R64$ROUGE #
# $Z ro $xiak/NCOR.L1$R64$VERTE #
# $Z ro $xiak/NCOR.L1$R64$BLEUE #
# #
# $Z $xcg/unite$Z $xiak/NCOR.L1$R16$ROUGE #
# $Z $xcg/unite$Z $xiak/NCOR.L1$R16$VERTE #
# $Z $xcg/unite$Z $xiak/NCOR.L1$R16$BLEUE #
# #
# $Z $xcg/unite$Z $xiak/NCOR.L1$R64$ROUGE #
# $Z $xcg/unite$Z $xiak/NCOR.L1$R64$VERTE #
# $Z $xcg/unite$Z $xiak/NCOR.L1$R64$BLEUE #
# #
# #
# Pal #
# #
# $xci/disk_video_P$Z $xw12/NCOR.T. 001 256 RVB \ #
# 9 1 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# $xci/disk_video_P$Z $xw12/NCOR.T. 257 512 RVB \ #
# 9 1 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
# #
# xivPdf 3 2 #
# #
# record.01$Z $xiak/NCOR.L1$R16 RVB Initialisation #
# record.01$Z $xiak/NCOR.L1$R64 RVB rien #
# #
# On notera que l'enregistrement de '$xw12/NCOR.T.' a ete fait en deux fois tout simplement #
# parce que le calcul etant long (plusieurs jours), cela permet a mi-chemin d'avoir deja une #
# bonne idee de l'animation finale... #
sequence 022803_023314
sequence 023315_023826
# Generee par : #
# #
# On notera que les coordonnees ainsi que les vitesses ont ete obtenues a partir de la #
# sequence : #
# #
# xivPdf 7 1 / 032589_032844 #
# #
# en la reexecutant avec l'option : #
# #
# coordonnees_vitesses=VRAI #
# #
# ainsi fut obtenue une liste de 82 positions de la planete au cours de la premiere periode. #
# Dans cette liste ne fut conservee qu'une position sur cinq, ce qui a donne les six listes #
# 'COORDONNEES' et 'VITESSES' ci-apres. #
# #
# $Z set Nimages=512 #
# #
# $Z set NcorpsS=17 #
# #
# $Z alias genere '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 genere $xT/COORDONNEES$COORD_X \ #
# $Z +1.0e3 \ #
# $Z -800000000000.00000000000000000 \ #
# $Z -779128312300.53418000000000000 \ #
# $Z -716263793667.98193000000000000 \ #
# $Z -610754349464.61609000000000000 \ #
# $Z -461977843573.90198000000000000 \ #
# $Z -270785296266.52802000000000000 \ #
# $Z -044423229235.09890000000000000 \ #
# $Z +186407217035.09070000000000000 \ #
# $Z +325716883227.95819000000000000 \ #
# $Z +254474659273.99045000000000000 \ #
# $Z +040621392203.32797200000000000 \ #
# $Z -193127481450.40393000000000000 \ #
# $Z -398364187401.17010000000000000 \ #
# $Z -562561972634.82593000000000000 \ #
# $Z -683489406651.83435000000000000 \ #
# $Z -761503561953.31946000000000000 #
# $Z genere $xT/COORDONNEES$COORD_Y \ #
# $Z +1.0e3 \ #
# $Z +000000001000.00000000000000000 \ #
# $Z +138775034650.80856000000000000 \ #
# $Z +269984330115.14462000000000000 \ #
# $Z +384901337630.65015000000000000 \ #
# $Z +472053752872.84631000000000000 \ #
# $Z +514578520148.19580000000000000 \ #
# $Z +485650421256.01086000000000000 \ #
# $Z +344088068255.06812000000000000 \ #
# $Z +062196559658.16046100000000000 \ #
# $Z -253682935272.41904000000000000 \ #
# $Z -445910128277.67267000000000000 \ #
# $Z -509695928644.37054000000000000 \ #
# $Z -488922184967.76605000000000000 \ #
# $Z -415383110275.63330000000000000 \ #
# $Z -308859783007.08130000000000000 \ #
# $Z -182365914869.95007000000000000 #
# $Z genere $xT/COORDONNEES$COORD_Z \ #
# $Z +1.0e3 \ #
# $Z +1000.00000000000000000 \ #
# $Z +1000.00000000000000000 \ #
# $Z +1000.00000000000000000 \ #
# $Z +1000.00000000000000000 \ #
# $Z +1000.00000000000000000 \ #
# $Z +1000.00000000000000000 \ #
# $Z +1000.00000000000000000 \ #
# $Z +1000.00000000000000000 \ #
# $Z +1000.00000000000000000 \ #
# $Z +1000.00000000000000000 \ #
# $Z +1000.00000000000000000 \ #
# $Z +1000.00000000000000000 \ #
# $Z +1000.00000000000000000 \ #
# $Z +1000.00000000000000000 \ #
# $Z +1000.00000000000000000 \ #
# $Z +1000.00000000000000000 #
# $Z genere $xT/VITESSES$COORD_X \ #
# $Z 0 \ #
# $Z +00000.00000000000000000 \ #
# $Z +02089.30806640625000000 \ #
# $Z +04202.86551513671840000 \ #
# $Z +06354.23358642578110000 \ #
# $Z +08519.59334411621060000 \ #
# $Z +10550.82863616943400000 \ #
# $Z +11867.89778266906800000 \ #
# $Z +10441.66413116455100000 \ #
# $Z +02146.91024169921870000 \ #
# $Z -08426.73712524414080000 \ #
# $Z -11861.90513801574700000 \ #
# $Z -11161.11817504882900000 \ #
# $Z -09276.35014648437570000 \ #
# $Z -07129.96158447265590000 \ #
# $Z -04967.26882324218790000 \ #
# $Z -02840.61796264648460000 #
# $Z genere $xT/VITESSES$COORD_Y \ #
# $Z 0 \ #
# $Z +07000.00000000000000000 \ #
# $Z +06815.37741760253900000 \ #
# $Z +06234.08310485839870000 \ #
# $Z +05164.10312988281290000 \ #
# $Z +03414.38281921386720000 \ #
# $Z +00620.16398193359373000 \ #
# $Z -03864.06492248535140000 \ #
# $Z -10651.98522460937400000 \ #
# $Z -16633.48494277954200000 \ #
# $Z -13336.82347167968700000 \ #
# $Z -06030.27760864257830000 \ #
# $Z -00745.26660400390620000 \ #
# $Z +02562.43202270507800000 \ #
# $Z +04631.18926452636700000 \ #
# $Z +05915.25742004394490000 \ #
# $Z +06656.53232116699200000 #
# $Z genere $xT/VITESSES$COORD_Z \ #
# $Z 0 \ #
# $Z +0.00000000000000000 \ #
# $Z +0.00000000000000000 \ #
# $Z +0.00000000000000000 \ #
# $Z +0.00000000000000000 \ #
# $Z +0.00000000000000000 \ #
# $Z +0.00000000000000000 \ #
# $Z +0.00000000000000000 \ #
# $Z +0.00000000000000000 \ #
# $Z +0.00000000000000000 \ #
# $Z +0.00000000000000000 \ #
# $Z +0.00000000000000000 \ #
# $Z +0.00000000000000000 \ #
# $Z +0.00000000000000000 \ #
# $Z +0.00000000000000000 \ #
# $Z +0.00000000000000000 \ #
# $Z +0.00000000000000000 #
# $Z genere $xT/MASSES \ #
# $Z 1.0e30 \ #
# $Z 5.0e27 \ #
# $Z 5.0e27 \ #
# $Z 5.0e27 \ #
# $Z 5.0e27 \ #
# $Z 5.0e27 \ #
# $Z 5.0e27 \ #
# $Z 5.0e27 \ #
# $Z 5.0e27 \ #
# $Z 5.0e27 \ #
# $Z 5.0e27 \ #
# $Z 5.0e27 \ #
# $Z 5.0e27 \ #
# $Z 5.0e27 \ #
# $Z 5.0e27 \ #
# $Z 5.0e27 \ #
# $Z 5.0e27 #
# $Z genere $xT/RAYONS \ #
# $Z 6.0e10 \ #
# $Z 3.0e10 \ #
# $Z 3.0e10 \ #
# $Z 3.0e10 \ #
# $Z 3.0e10 \ #
# $Z 3.0e10 \ #
# $Z 3.0e10 \ #
# $Z 3.0e10 \ #
# $Z 3.0e10 \ #
# $Z 3.0e10 \ #
# $Z 3.0e10 \ #
# $Z 3.0e10 \ #
# $Z 3.0e10 \ #
# $Z 3.0e10 \ #
# $Z 3.0e10 \ #
# $Z 3.0e10 \ #
# $Z 3.0e10 #
# $Z genere $xT/COULEURS$ROUGE \ #
# $Z $GRIS_8 \ #
# $Z $GRIS_1 \ #
# $Z $GRIS_1 \ #
# $Z $GRIS_2 \ #
# $Z $GRIS_2 \ #
# $Z $GRIS_3 \ #
# $Z $GRIS_3 \ #
# $Z $GRIS_4 \ #
# $Z $GRIS_4 \ #
# $Z $GRIS_5 \ #
# $Z $GRIS_5 \ #
# $Z $GRIS_6 \ #
# $Z $GRIS_6 \ #
# $Z $GRIS_7 \ #
# $Z $GRIS_7 \ #
# $Z $GRIS_8 \ #
# $Z $GRIS_8 #
# $Z genere $xT/COULEURS$VERTE \ #
# $Z $GRIS_7 \ #
# $Z $GRIS_8 \ #
# $Z $GRIS_8 \ #
# $Z $GRIS_7 \ #
# $Z $GRIS_7 \ #
# $Z $GRIS_6 \ #
# $Z $GRIS_6 \ #
# $Z $GRIS_5 \ #
# $Z $GRIS_5 \ #
# $Z $GRIS_4 \ #
# $Z $GRIS_4 \ #
# $Z $GRIS_3 \ #
# $Z $GRIS_3 \ #
# $Z $GRIS_2 \ #
# $Z $GRIS_2 \ #
# $Z $GRIS_1 \ #
# $Z $GRIS_1 #
# $Z genere $xT/COULEURS$BLEUE \ #
# $Z $GRIS_0 \ #
# $Z $GRIS_8 \ #
# $Z $GRIS_8 \ #
# $Z $GRIS_8 \ #
# $Z $GRIS_8 \ #
# $Z $GRIS_8 \ #
# $Z $GRIS_8 \ #
# $Z $GRIS_8 \ #
# $Z $GRIS_8 \ #
# $Z $GRIS_8 \ #
# $Z $GRIS_8 \ #
# $Z $GRIS_8 \ #
# $Z $GRIS_8 \ #
# $Z $GRIS_8 \ #
# $Z $GRIS_8 \ #
# $Z $GRIS_8 \ #
# $Z $GRIS_8 #
# #
# $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 dct=100 \ #
# $Z nombre=20000 \ #
# $Z trainees=VRAI mode=1 \ #
# $Z attenuation_des_images=1.0 \ #
# $Z attenuation_des_trainees=0.90 \ #
# $Z renormaliser=FAUX \ #
# $Z TRANSLATION_OX=250e9 \ #
# $Z ZOOM=1.7 \ #
# $Z fond=FAUX \ #
# $Z R=$xw1/NCOR.U. \ #
# $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 Pal #
# #
# $Z $xci/reduction_16$Z $xw1/NCOR.U. $xiak/NCOR.M1 1 32 #
# $Z $xci/reduction_64$Z $xw1/NCOR.U. $xiak/NCOR.M1 1 8 #
# #
# $Z ro $xiak/NCOR.M1$R16$ROUGE #
# $Z ro $xiak/NCOR.M1$R16$VERTE #
# $Z ro $xiak/NCOR.M1$R16$BLEUE #
# #
# $Z ro $xiak/NCOR.M1$R64$ROUGE #
# $Z ro $xiak/NCOR.M1$R64$VERTE #
# $Z ro $xiak/NCOR.M1$R64$BLEUE #
# #
# $Z $xcg/unite$Z $xiak/NCOR.M1$R16$ROUGE #
# $Z $xcg/unite$Z $xiak/NCOR.M1$R16$VERTE #
# $Z $xcg/unite$Z $xiak/NCOR.M1$R16$BLEUE #
# #
# $Z $xcg/unite$Z $xiak/NCOR.M1$R64$ROUGE #
# $Z $xcg/unite$Z $xiak/NCOR.M1$R64$VERTE #
# $Z $xcg/unite$Z $xiak/NCOR.M1$R64$BLEUE #
# #
# #
# Pal #
# #
# $xci/disk_video_P$Z $xw1/NCOR.U. 001 512 RVB \ #
# 9 1 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz FAUX FAUX VRAI #
# #
# #
# xivPdf 3 2 #
# #
# record.01$Z $xiak/NCOR.M1$R16 RVB Initialisation #
# record.01$Z $xiak/NCOR.M1$R64 RVB rien #
# #
# ATTENTION, la sequence a ete enregistree une deuxieme fois car, dans la premiere version, #
# les images '022805', '022809' et '022814' etaient "parasitees" (voir a ce propos, l'appel #
# 47179 dans 'v $Dbugs/SGIND4GA$D/$Fnota 47179'). #
sequence 023827_024338
# Generee par : #
# #
# $Z SET Nimages=512 #
# #
# $Z set NcorpsS=11 #
# #
# $Z $DELETE $xT/ROTATION$COORD_X #
# $Z $xci/valeurs_inte$X p=1 d=$Nimages vD=0 vA=0 cubique=VRAI > $xT/ROTATION$COORD_X #
# #
# $Z alias genere '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 genere $xT/MASSES \ #
# $Z +2.0e30 +3.3e23 +48.7e23 \ #
# $Z +60.5e23 \ #
# $Z +6.4e23 +189.9e25 +56.8e25 +8.6e25 +10.3e25 +6.6e21 \ #
# $Z +60.5e23 #
# $Z genere $xT/RAYONS \ #
# $Z +50e10 +35e10 +35e10 \ #
# $Z +35e10 \ #
# $Z +35e10 +45e10 +45e10 +40e10 +40e10 +35e10 \ #
# $Z +35e10 #
# $Z genere $xT/COULEURS$ROUGE \ #
# $Z $GRIS_8 $GRIS_8 $GRIS_8 \ #
# $Z $GRIS_0 \ #
# $Z $GRIS_8 $GRIS_8 $GRIS_8 $GRIS_4 $GRIS_0 $GRIS_7 \ #
# $Z $GRIS_0 #
# $Z genere $xT/COULEURS$VERTE \ #
# $Z $GRIS_8 $GRIS_6 $GRIS_4 \ #
# $Z $GRIS_6 \ #
# $Z $GRIS_4 $GRIS_6 $GRIS_7 $GRIS_8 $GRIS_7 $GRIS_7 \ #
# $Z $GRIS_4 #
# $Z genere $xT/COULEURS$BLEUE \ #
# $Z $GRIS_0 $GRIS_2 $GRIS_0 \ #
# $Z $GRIS_8 \ #
# $Z $GRIS_2 $GRIS_0 $GRIS_0 $GRIS_8 $GRIS_8 $GRIS_8 \ #
# $Z $GRIS_8 #
# #
# $Z Pal #
# #
# #
# $c #define N0 1 #
# $c #define N Nimages #
# #
# $c extern double sqrt(); #
# #
# $c int main() #
# $c { #
# $c int n; #
# #
# $c double XcentreS=+1e3; #
# $c double XcentreD=-392e+10; #
# $c double XcentreA; #
# #
# $c double YcentreS=+1e3; #
# $c double YcentreD=+307e+10; #
# $c double YcentreA; #
# #
# $c double ZcentreS=+1e3; #
# $c double ZcentreD=+216e+10; #
# $c double ZcentreA; #
# #
# $c double XvitessD=-2.27e+3; #
# #
# $c double YvitessD=-4.53e+3; #
# #
# $c double ZvitessD=-7.39e+2; #
# #
# $c double Fcentre; #
# $c double OdistD; #
# #
# $c OdistD=sqrt(((XcentreD-XcentreS)*(XcentreD-XcentreS))+ #
# $c ((YcentreD-YcentreS)*(YcentreD-YcentreS))+ #
# $c ((ZcentreD-ZcentreS)*(ZcentreD-ZcentreS)) #
# $c ); #
# $c Fcentre=(0.05e11/OdistD); #
# #
# $c XcentreA=Fcentre*XcentreD; #
# $c YcentreA=Fcentre*YcentreD; #
# $c ZcentreA=Fcentre*ZcentreD; #
# #
# $c for (n=N0 ; n<=N ; n++) #
# $c { #
# $c double Xcentre; #
# $c double Ycentre; #
# $c double Zcentre; #
# #
# $c double Xvitess; #
# $c double Yvitess; #
# $c double Zvitess; #
# #
# $c double Odist; #
# #
# $c Xcentre=((XcentreA*(n-N0))+(XcentreD*(N-n)))/(N-N0); #
# $c Ycentre=((YcentreA*(n-N0))+(YcentreD*(N-n)))/(N-N0); #
# $c Zcentre=((ZcentreA*(n-N0))+(ZcentreD*(N-n)))/(N-N0); #
# #
# $c Odist=sqrt(((Xcentre-XcentreS)*(Xcentre-XcentreS))+ #
# $c ((Ycentre-YcentreS)*(Ycentre-YcentreS))+ #
# $c ((Zcentre-ZcentreS)*(Zcentre-ZcentreS)) #
# $c ); #
# #
# $c Xvitess=XvitessD*sqrt(OdistD/Odist); #
# $c Yvitess=YvitessD*sqrt(OdistD/Odist); #
# $c Zvitess=ZvitessD*sqrt(OdistD/Odist); #
# #
# $c printf("genere #
# $c $xT/COORDONNEES$COORD_X #
# $c %+g +514e+8 +213e+8 #
# $c -203e+8 #
# $c -204e+9 +501e+9 -134e+10 -150e+9 -436e+10 #
# $c %+g %+g\n" #
# $c ,XcentreS,XcentreD,Xcentre #
# $c ); #
# $c printf("genere #
# $c $xT/COORDONNEES$COORD_Y #
# $c %+g +682e+7 +967e+8 #
# $c +133e+9 #
# $c +126e+9 -519e+9 +341e+9 +259e+10 -115e+10 #
# $c %+g %+g\n" #
# $c ,YcentreS,YcentreD,Ycentre #
# $c ); #
# $c printf("genere #
# $c $xT/COORDONNEES$COORD_Z #
# $c %+g -163e+7 +422e+8 #
# $c +579e+8 #
# $c +634e+8 -235e+9 +199e+9 +113e+10 -363e+9 #
# $c %+g %+g\n" #
# $c ,ZcentreS,ZcentreD,Zcentre #
# $c ); #
# #
# $c printf("genere #
# $c $xT/VITESSES$COORD_X #
# $c 0 -1.46e+4 -3.44e+4 #
# $c -2.99e+4 #
# $c -1.27e+4 +9.67e+3 -3.21e+3 -6.84e+3 +1.42e+3 #
# $c %+g %+g\n" #
# $c ,XvitessD,Xvitess #
# $c ); #
# $c printf("genere #
# $c $xT/VITESSES$COORD_Y #
# $c 0 +4.43e+4 +5.39e+3 #
# $c -3.88e+3 #
# $c -1.64e+4 +8.59e+3 -8.62e+3 -6.50e+2 -4.79e+3 #
# $c %+g %+g\n" #
# $c ,YvitessD,Yvitess #
# $c ); #
# $c printf("genere #
# $c $xT/VITESSES$COORD_Z #
# $c 0 +2.52e+4 +4.60e+3 #
# $c -1.68e+3 #
# $c -7.18e+3 +3.44e+3 -3.42e+3 -1.88e+2 -2.00e+3 #
# $c %+g %+g\n" #
# $c ,ZvitessD,Zvitess #
# $c ); #
# #
# $c printf("$xrr/N_corps.11$X #
# $c corps=$NcorpsS #
# $c np=$Nimages #
# $c LISTE_X=$xT/COORDONNEES$COORD_X #
# $c LISTE_Y=$xT/COORDONNEES$COORD_Y #
# $c LISTE_Z=$xT/COORDONNEES$COORD_Z #
# $c LISTE_VX=$xT/VITESSES$COORD_X #
# $c LISTE_VY=$xT/VITESSES$COORD_Y #
# $c LISTE_VZ=$xT/VITESSES$COORD_Z #
# $c LISTE_MASSE=$xT/MASSES #
# $c LISTE_RAYON=$xT/RAYONS #
# $c LISTE_ROUGE=$xT/COULEURS$ROUGE #
# $c LISTE_VERTE=$xT/COULEURS$VERTE #
# $c LISTE_BLEUE=$xT/COULEURS$BLEUE #
# $c centrer=FAUX reference=11 #
# $c extension=5 #
# $c dct=15000 #
# $c 2_a_2=FAUX source=1 #
# $c nombre=1000 #
# $c ensemble=VRAI #
# $c acceptable=0.5 #
# $c Ranterieurs=0.5 #
# $c trainees=FAUX #
# $c renormaliser=FAUX #
# $c lineaire=FAUX exposant=0.4 #
# $c Lz=1.0e13 #
# $c TRANSLATION_OX=0 #
# $c TRANSLATION_OY=0 #
# $c ROTATION_OX=$xT/ROTATION$COORD_X #
# $c ZOOM=0.60 #
# $c fond=FAUX #
# $c pV=%d #
# $c R=$xw11/NCOR.T. #
# $c $formatI\n" #
# $c ,N #
# $c ); #
# $c printf("$MV $xw11/NCOR.T.%04d$ROUGE #
# $c $xw12/NCOR.T.%04d$ROUGE\n" #
# $c ,N,n #
# $c ); #
# $c printf("$MV $xw11/NCOR.T.%04d$VERTE #
# $c $xw12/NCOR.T.%04d$VERTE\n" #
# $c ,N,n #
# $c ); #
# $c printf("$MV $xw11/NCOR.T.%04d$BLEUE #
# $c $xw12/NCOR.T.%04d$BLEUE\n" #
# $c ,N,n #
# $c ); #
# #
# $c printf("$DELETE $xT/COORDONNEES$COORD_X\n"); #
# $c printf("$DELETE $xT/COORDONNEES$COORD_Y\n"); #
# $c printf("$DELETE $xT/COORDONNEES$COORD_Z\n"); #
# #
# $c printf("$DELETE $xT/VITESSES$COORD_X\n"); #
# $c printf("$DELETE $xT/VITESSES$COORD_Y\n"); #
# $c printf("$DELETE $xT/VITESSES$COORD_Z\n"); #
# $c } #
# $c } #
# #
# $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/ROTATION$COORD_X #
# #
# #
# $Z Pal #
# #
# $Z $xci/reduction_16$Z $xw12/NCOR.T. $xiak/NCOR.L1 1 32 #
# $Z $xci/reduction_64$Z $xw12/NCOR.T. $xiak/NCOR.L1 1 8 #
# #
# $Z ro $xiak/NCOR.L1$R16$ROUGE #
# $Z ro $xiak/NCOR.L1$R16$VERTE #
# $Z ro $xiak/NCOR.L1$R16$BLEUE #
# #
# $Z ro $xiak/NCOR.L1$R64$ROUGE #
# $Z ro $xiak/NCOR.L1$R64$VERTE #
# $Z ro $xiak/NCOR.L1$R64$BLEUE #
# #
# $Z $xcg/unite$Z $xiak/NCOR.L1$R16$ROUGE #
# $Z $xcg/unite$Z $xiak/NCOR.L1$R16$VERTE #
# $Z $xcg/unite$Z $xiak/NCOR.L1$R16$BLEUE #
# #
# $Z $xcg/unite$Z $xiak/NCOR.L1$R64$ROUGE #
# $Z $xcg/unite$Z $xiak/NCOR.L1$R64$VERTE #
# $Z $xcg/unite$Z $xiak/NCOR.L1$R64$BLEUE #
# #
# $Z cp $xw12/NCOR.T.0002$ROUGE $xiirk/NCOR.L1.0002$ROUGE #
# $Z cp $xw12/NCOR.T.0002$VERTE $xiirk/NCOR.L1.0002$VERTE #
# $Z cp $xw12/NCOR.T.0002$BLEUE $xiirk/NCOR.L1.0002$BLEUE #
# #
# $Z $xcg/unite$Z $xiirk/NCOR.L1.0002$ROUGE #
# $Z $xcg/unite$Z $xiirk/NCOR.L1.0002$VERTE #
# $Z $xcg/unite$Z $xiirk/NCOR.L1.0002$BLEUE #
# #
# $Z cp $xw12/NCOR.T.0089$ROUGE $xiirk/NCOR.L1.0089$ROUGE #
# $Z cp $xw12/NCOR.T.0089$VERTE $xiirk/NCOR.L1.0089$VERTE #
# $Z cp $xw12/NCOR.T.0089$BLEUE $xiirk/NCOR.L1.0089$BLEUE #
# #
# $Z $xcg/unite$Z $xiirk/NCOR.L1.0089$ROUGE #
# $Z $xcg/unite$Z $xiirk/NCOR.L1.0089$VERTE #
# $Z $xcg/unite$Z $xiirk/NCOR.L1.0089$BLEUE #
# #
# $Z cp $xw12/NCOR.T.0242$ROUGE $xiirk/NCOR.L1.0242$ROUGE #
# $Z cp $xw12/NCOR.T.0242$VERTE $xiirk/NCOR.L1.0242$VERTE #
# $Z cp $xw12/NCOR.T.0242$BLEUE $xiirk/NCOR.L1.0242$BLEUE #
# #
# $Z $xcg/unite$Z $xiirk/NCOR.L1.0242$ROUGE #
# $Z $xcg/unite$Z $xiirk/NCOR.L1.0242$VERTE #
# $Z $xcg/unite$Z $xiirk/NCOR.L1.0242$BLEUE #
# #
# $Z cp $xw12/NCOR.T.0378$ROUGE $xiirk/NCOR.L1.0378$ROUGE #
# $Z cp $xw12/NCOR.T.0378$VERTE $xiirk/NCOR.L1.0378$VERTE #
# $Z cp $xw12/NCOR.T.0378$BLEUE $xiirk/NCOR.L1.0378$BLEUE #
# #
# $Z $xcg/unite$Z $xiirk/NCOR.L1.0378$ROUGE #
# $Z $xcg/unite$Z $xiirk/NCOR.L1.0378$VERTE #
# $Z $xcg/unite$Z $xiirk/NCOR.L1.0378$BLEUE #
# #
# $Z cp $xw12/NCOR.T.0439$ROUGE $xiirk/NCOR.L1.0439$ROUGE #
# $Z cp $xw12/NCOR.T.0439$VERTE $xiirk/NCOR.L1.0439$VERTE #
# $Z cp $xw12/NCOR.T.0439$BLEUE $xiirk/NCOR.L1.0439$BLEUE #
# #
# $Z $xcg/unite$Z $xiirk/NCOR.L1.0439$ROUGE #
# $Z $xcg/unite$Z $xiirk/NCOR.L1.0439$VERTE #
# $Z $xcg/unite$Z $xiirk/NCOR.L1.0439$BLEUE #
# #
# $Z cp $xw12/NCOR.T.0491$ROUGE $xiirk/NCOR.L1.0491$ROUGE #
# $Z cp $xw12/NCOR.T.0491$VERTE $xiirk/NCOR.L1.0491$VERTE #
# $Z cp $xw12/NCOR.T.0491$BLEUE $xiirk/NCOR.L1.0491$BLEUE #
# #
# $Z $xcg/unite$Z $xiirk/NCOR.L1.0491$ROUGE #
# $Z $xcg/unite$Z $xiirk/NCOR.L1.0491$VERTE #
# $Z $xcg/unite$Z $xiirk/NCOR.L1.0491$BLEUE #
# #
# $Z cp $xw12/NCOR.T.0499$ROUGE $xiirk/NCOR.L1.0499$ROUGE #
# $Z cp $xw12/NCOR.T.0499$VERTE $xiirk/NCOR.L1.0499$VERTE #
# $Z cp $xw12/NCOR.T.0499$BLEUE $xiirk/NCOR.L1.0499$BLEUE #
# #
# $Z $xcg/unite$Z $xiirk/NCOR.L1.0499$ROUGE #
# $Z $xcg/unite$Z $xiirk/NCOR.L1.0499$VERTE #
# $Z $xcg/unite$Z $xiirk/NCOR.L1.0499$BLEUE #
# #
# $Z cp $xw12/NCOR.T.0502$ROUGE $xiirk/NCOR.L1.0502$ROUGE #
# $Z cp $xw12/NCOR.T.0502$VERTE $xiirk/NCOR.L1.0502$VERTE #
# $Z cp $xw12/NCOR.T.0502$BLEUE $xiirk/NCOR.L1.0502$BLEUE #
# #
# $Z $xcg/unite$Z $xiirk/NCOR.L1.0502$ROUGE #
# $Z $xcg/unite$Z $xiirk/NCOR.L1.0502$VERTE #
# $Z $xcg/unite$Z $xiirk/NCOR.L1.0502$BLEUE #
# #
# $Z cp $xw12/NCOR.T.0507$ROUGE $xiirk/NCOR.L1.0507$ROUGE #
# $Z cp $xw12/NCOR.T.0507$VERTE $xiirk/NCOR.L1.0507$VERTE #
# $Z cp $xw12/NCOR.T.0507$BLEUE $xiirk/NCOR.L1.0507$BLEUE #
# #
# $Z $xcg/unite$Z $xiirk/NCOR.L1.0507$ROUGE #
# $Z $xcg/unite$Z $xiirk/NCOR.L1.0507$VERTE #
# $Z $xcg/unite$Z $xiirk/NCOR.L1.0507$BLEUE #
# #
# $Z $xci/accumule.01$X A=$xw12/NCOR.T. \ #
# $Z postfixe=$ROUGE \ #
# $Z premiere=1 derniere=512 \ #
# $Z attenuation=0 \ #
# $Z R=$xiirk/NCOR.L1.0$ROUGE \ #
# $Z $formatI #
# $Z $xci/accumule.01$X A=$xw12/NCOR.T. \ #
# $Z postfixe=$VERTE \ #
# $Z premiere=1 derniere=512 \ #
# $Z attenuation=0 \ #
# $Z R=$xiirk/NCOR.L1.0$VERTE \ #
# $Z $formatI #
# $Z $xci/accumule.01$X A=$xw12/NCOR.T. \ #
# $Z postfixe=$BLEUE \ #
# $Z premiere=1 derniere=512 \ #
# $Z attenuation=0 \ #
# $Z R=$xiirk/NCOR.L1.0$BLEUE \ #
# $Z $formatI #
# #
# $Z ro $xiirk/NCOR.L1.0$ROUGE #
# $Z ro $xiirk/NCOR.L1.0$VERTE #
# $Z ro $xiirk/NCOR.L1.0$BLEUE #
# #
# $Z $xcg/unite$Z $xiirk/NCOR.L1.0$ROUGE #
# $Z $xcg/unite$Z $xiirk/NCOR.L1.0$VERTE #
# $Z $xcg/unite$Z $xiirk/NCOR.L1.0$BLEUE #
# #
# $Z $xci/accumule.01$X A=$xw12/NCOR.T. \ #
# $Z postfixe=$ROUGE \ #
# $Z premiere=1 derniere=512 \ #
# $Z attenuation=1 \ #
# $Z R=$xiirk/NCOR.L1.1$ROUGE \ #
# $Z $formatI #
# $Z $xci/accumule.01$X A=$xw12/NCOR.T. \ #
# $Z postfixe=$VERTE \ #
# $Z premiere=1 derniere=512 \ #
# $Z attenuation=1 \ #
# $Z R=$xiirk/NCOR.L1.1$VERTE \ #
# $Z $formatI #
# $Z $xci/accumule.01$X A=$xw12/NCOR.T. \ #
# $Z postfixe=$BLEUE \ #
# $Z premiere=1 derniere=512 \ #
# $Z attenuation=1 \ #
# $Z R=$xiirk/NCOR.L1.1$BLEUE \ #
# $Z $formatI #
# #
# $Z ro $xiirk/NCOR.L1.1$ROUGE #
# $Z ro $xiirk/NCOR.L1.1$VERTE #
# $Z ro $xiirk/NCOR.L1.1$BLEUE #
# #
# $Z $xcg/unite$Z $xiirk/NCOR.L1.1$ROUGE #
# $Z $xcg/unite$Z $xiirk/NCOR.L1.1$VERTE #
# $Z $xcg/unite$Z $xiirk/NCOR.L1.1$BLEUE #
# #
# $Z $xci/distance.01$X A1=$xiirk/NCOR.L1.0$ROUGE \ #
# $Z A2=$xiirk/NCOR.L1.1$ROUGE \ #
# $Z $formatI | \ #
# $Z $xci/acces$X \ #
# $Z renormaliser=VRAI \ #
# $Z $formatI | \ #
# $Z $xci/complement$X \ #
# $Z R=$xiirk/NCOR.L2$ROUGE \ #
# $Z $formatI #
# $Z $xci/distance.01$X A1=$xiirk/NCOR.L1.0$VERTE \ #
# $Z A2=$xiirk/NCOR.L1.1$VERTE \ #
# $Z $formatI | \ #
# $Z $xci/acces$X \ #
# $Z renormaliser=VRAI \ #
# $Z $formatI | \ #
# $Z $xci/complement$X \ #
# $Z R=$xiirk/NCOR.L2$VERTE \ #
# $Z $formatI #
# $Z $xci/distance.01$X A1=$xiirk/NCOR.L1.0$BLEUE \ #
# $Z A2=$xiirk/NCOR.L1.1$BLEUE \ #
# $Z $formatI | \ #
# $Z $xci/acces$X \ #
# $Z renormaliser=VRAI \ #
# $Z $formatI | \ #
# $Z $xci/complement$X \ #
# $Z R=$xiirk/NCOR.L2$BLEUE \ #
# $Z $formatI #
# #
# $Z ro $xiirk/NCOR.L2$ROUGE #
# $Z ro $xiirk/NCOR.L2$VERTE #
# $Z ro $xiirk/NCOR.L2$BLEUE #
# #
# $Z $xcg/unite$Z $xiirk/NCOR.L2$ROUGE #
# $Z $xcg/unite$Z $xiirk/NCOR.L2$VERTE #
# $Z $xcg/unite$Z $xiirk/NCOR.L2$BLEUE #
# #
# #
# Pal #
# #
# $xci/disk_video_P$Z $xw12/NCOR.T. 001 512 RVB \ #
# 9 1 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
# #
# xivPdf 3 2 #
# #
# record.01$Z $xiak/NCOR.L1$R16 RVB Initialisation #
# record.01$Z $xiak/NCOR.L1$R64 RVB rien #
# #
# record.01$Z $xiirk/NCOR.L1.0002 RVB rien #
# record.01$Z $xiirk/NCOR.L1.0089 RVB rien #
# record.01$Z $xiirk/NCOR.L1.0242 RVB rien #
# record.01$Z $xiirk/NCOR.L1.0378 RVB rien #
# record.01$Z $xiirk/NCOR.L1.0439 RVB rien #
# record.01$Z $xiirk/NCOR.L1.0491 RVB rien #
# record.01$Z $xiirk/NCOR.L1.0499 RVB rien #
# record.01$Z $xiirk/NCOR.L1.0502 RVB rien #
# record.01$Z $xiirk/NCOR.L1.0507 RVB rien #
# #
# record.01$Z $xiirk/NCOR.L1.0 RVB rien #
# record.01$Z $xiirk/NCOR.L1.1 RVB rien #
# #
# record.01$Z $xiirk/NCOR.L2 RVB rien #
# #
sequence 024339_024466
sequence 024467_024594
sequence 024595_024722
sequence 024723_024850
# Generees par : #
# #
# $Z Pal #
# #
# $Z $DELETE $xT/param11 #
# $Z $xci/valeurs_inte$X p=1 d=128 vD=-1.0 vA=+1.0 cubique=FAUX > $xT/param11 #
# #
# $c #define N0 1 #
# $c #define N 128 #
# $c #define MILIEU (((N-N0)/2)+N0) #
# #
# $c #define COUCHE0 N0 #
# $c #define COUCHES 128 #
# #
# $c #define ITER0 96 #
# $c #define ITERN 32 #
# #
# $c #define KD (-0.5) #
# $c #define KA (+0.5) #
# #
# $c #define SEUIL_M 64 #
# $c #define SEUIL_m 192 #
# #
# $c int main() #
# $c { #
# $c int n; #
# #
# $c for (n=N0 ; n<=N ; n++) #
# $c { #
# $c double K = (((KA-KD)*n)+((KD*N)-(KA*N0)))/(N-N0); #
# #
# $c double No_MI=(double)(N0-MILIEU); #
# $c double MI_N=(double)(MILIEU-N); #
# #
# $c double itera=(double)ITER0; #
# $c double Z_N=(double)(ITER0-ITERN); #
# #
# $c double seuil=(double)SEUIL_M; #
# $c double M_m=(double)(SEUIL_M-SEUIL_m); #
# #
# $c if (n < MILIEU) #
# $c { #
# $c itera = (Z_N/No_MI)*n #
# $c + (((ITERN*N0)-(ITER0*MILIEU)) #
# $c / No_MI); #
# $c seuil = (M_m/No_MI)*n #
# $c + (((SEUIL_m*N0)-(SEUIL_M*MILIEU)) #
# $c / No_MI); #
# $c } #
# $c else #
# $c { #
# $c itera = (-Z_N/MI_N)*n #
# $c + (((ITER0*MILIEU)-(ITERN*N)) #
# $c / MI_N); #
# $c seuil = (-M_m/MI_N)*n #
# $c + (((SEUIL_M*MILIEU)-(SEUIL_m*N)) #
# $c / MI_N); #
# $c } #
# #
# $c printf("if (`$xcg/parallele.01$X #
# $c verrou=$xw1/JULI.k.%04d` #
# $c == $EXIST) then\n" #
# $c ,n #
# $c ); #
# $c printf("$xrc/julia.41$X #
# $c images=%d #
# $c iterations=%d #
# $c r=-0.5815147625160462 #
# $c i=+0.6358885017421603 #
# $c COMPOSANTE_J=$xT/param11 #
# $c K=%f #
# $c R=$xT/JULIA. #
# $c $formatI\n" #
# $c ,COUCHES #
# $c ,(int)itera #
# $c ,K #
# $c ); #
# $c printf("$xci/accumule.01$X #
# $c A=$xT/JULIA. #
# $c premiere=%d derniere=%d #
# $c attenuation=0 #
# $c translation_quelconque=FAUX #
# $c stereo=0.0 #
# $c trx=+0.00195695 try=0 #
# $c R=$xw1/JULI.k.%04d #
# $c $formatI\n" #
# $c ,COUCHE0,COUCHES #
# $c ,n #
# $c ); #
# $c printf("$xci/accumule.01$X #
# $c A=$xT/JULIA. #
# $c premiere=%d derniere=%d #
# $c attenuation=1 #
# $c translation_quelconque=FAUX #
# $c stereo=0.0 #
# $c trx=+0.00195695 try=0 #
# $c R=$xw1/JULI.l.%04d #
# $c $formatI\n" #
# $c ,COUCHE0,COUCHES #
# $c ,n #
# $c ); #
# $c printf("$xci/accumule.02$X #
# $c A=$xT/JULIA. #
# $c premiere=%d derniere=%d #
# $c binariser=VRAI seuil=%d #
# $c translation_quelconque=FAUX #
# $c stereo=0.0 #
# $c trx=+0.00195695 try=0 #
# $c R=$xw1/JULI.m.%04d #
# $c $formatI\n" #
# $c ,COUCHE0,COUCHES #
# $c ,(int)seuil #
# $c ,n #
# $c ); #
# $c printf("$xci/accumule.02$X #
# $c A=$xT/JULIA. #
# $c premiere=%d derniere=%d #
# $c binariser=FAUX #
# $c translation_quelconque=FAUX #
# $c stereo=0.0 #
# $c trx=+0.00195695 try=0 #
# $c R=$xw1/JULI.n.%04d #
# $c $formatI\n" #
# $c ,COUCHE0,COUCHES #
# $c ,n #
# $c ); #
# $c printf("else\nendif\n" #
# $c ); #
# $c } #
# $c } #
# #
# $Z $DELETE $xT/param11 #
# #
# #
# Liste des images et des MACHINEs sur lesquelles elles ont ete calculees (voir 'Gverrou') : #
# #
# LACT12 0001 LACT12 0002 LACT12 0003 LACT12 0004 LACT12 0005 #
# LACT12 0006 LACT12 0007 LACT12 0008 LACT12 0009 LACT12 0010 #
# LACT12 0011 LACT12 0012 LACT12 0013 LACT12 0014 LACT12 0015 #
# LACT12 0016 LACT12 0017 LACT12 0018 LACT12 0019 LACT12 0020 #
# LACT12 0021 LACT12 0022 LACT12 0023 LACT12 0024 LACT12 0025 #
# LACT12 0026 LACT12 0027 LACT12 0028 LACT12 0029 LACT12 0030 #
# LACT12 0031 LACT12 0032 LACT12 0033 LACT12 0034 LACT12 0035 #
# LACT12 0036 LACT12 0037 LACT12 0038 LACT12 0039 LACT12 0040 #
# LACT12 0041 LACT12 0042 LACT12 0043 LACT12 0044 LACT12 0045 #
# LACT12 0046 LACT12 0047 LACT12 0048 LACT12 0049 LACT12 0050 #
# LACT12 0051 LACT12 0052 LACT12 0053 LACT12 0054 LACT12 0055 #
# LACT12 0056 LACT12 0057 LACT12 0058 LACT12 0059 LACT12 0060 #
# LACT12 0061 LACT12 0062 LACT12 0063 LACT12 0064 LACT12 0065 #
# LACT12 0066 LACT12 0067 LACT12 0068 LACT12 0069 LACT12 0070 #
# LACT12 0071 LACT12 0072 LACT12 0073 LACT12 0074 LACT12 0075 #
# LACT12 0076 LACT12 0077 LACT12 0078 LACT12 0079 LACT12 0080 #
# LACT12 0081 LACT12 0082 LACT12 0083 LACT12 0084 LACT12 0085 #
# LACT12 0086 LACT12 0087 LACT12 0088 LACT12 0089 LACT12 0090 #
# LACT12 0091 LACT12 0092 LACT12 0093 LACT12 0094 LACT12 0095 #
# LACT12 0096 LACT12 0097 LACT12 0098 LACT12 0099 LACT12 0100 #
# LACT12 0101 LACT12 0102 LACT12 0103 LACT12 0104 LACT12 0105 #
# LACT12 0106 LACT12 0107 LACT12 0108 LACT12 0109 LACT12 0110 #
# LACT12 0111 LACT12 0112 LACT12 0113 LACT12 0114 LACT12 0115 #
# LACT12 0116 LACT12 0117 LACT12 0118 LACT12 0119 LACT12 0120 #
# LACT12 0121 LACT12 0122 LACT12 0123 LACT12 0124 LACT12 0125 #
# LACT12 0126 LACT12 0127 LACT12 0128 #
# #
# #
# Pal #
# #
# $xci/vraies_C.01$X A=$xw1/JULI.k. \ #
# premiere=1 derniere=128 \ #
# p=$xiP/enfer.05 \ #
# RVB=VRAI \ #
# R=$xT/JULI.k. \ #
# $formatI #
# #
# $xci/reduction_16$Z $xT/JULI.k. $xiac/JU.h1.0 1 8 #
# $xci/reduction_64$Z $xT/JULI.k. $xiac/JU.h1.0 1 2 #
# #
# ro $xiac/JU.h1.0$R16$ROUGE #
# ro $xiac/JU.h1.0$R16$VERTE #
# ro $xiac/JU.h1.0$R16$BLEUE #
# #
# ro $xiac/JU.h1.0$R64$ROUGE #
# ro $xiac/JU.h1.0$R64$VERTE #
# ro $xiac/JU.h1.0$R64$BLEUE #
# #
# $xcg/unite$Z $xiac/JU.h1.0$R16$ROUGE #
# $xcg/unite$Z $xiac/JU.h1.0$R16$VERTE #
# $xcg/unite$Z $xiac/JU.h1.0$R16$BLEUE #
# #
# $xcg/unite$Z $xiac/JU.h1.0$R64$ROUGE #
# $xcg/unite$Z $xiac/JU.h1.0$R64$VERTE #
# $xcg/unite$Z $xiac/JU.h1.0$R64$BLEUE #
# #
# $DELETE $xT/JULI.k.*$ROUGE #
# $DELETE $xT/JULI.k.*$VERTE #
# $DELETE $xT/JULI.k.*$BLEUE #
# #
# #
# $xci/vraies_C.01$X A=$xw1/JULI.l. \ #
# premiere=1 derniere=128 \ #
# p=$xiP/enfer.05 \ #
# RVB=VRAI \ #
# R=$xT/JULI.l. \ #
# $formatI #
# #
# $xci/reduction_16$Z $xT/JULI.l. $xiac/JU.h1.1 1 8 #
# $xci/reduction_64$Z $xT/JULI.l. $xiac/JU.h1.1 1 2 #
# #
# ro $xiac/JU.h1.1$R16$ROUGE #
# ro $xiac/JU.h1.1$R16$VERTE #
# ro $xiac/JU.h1.1$R16$BLEUE #
# #
# ro $xiac/JU.h1.1$R64$ROUGE #
# ro $xiac/JU.h1.1$R64$VERTE #
# ro $xiac/JU.h1.1$R64$BLEUE #
# #
# $xcg/unite$Z $xiac/JU.h1.1$R16$ROUGE #
# $xcg/unite$Z $xiac/JU.h1.1$R16$VERTE #
# $xcg/unite$Z $xiac/JU.h1.1$R16$BLEUE #
# #
# $xcg/unite$Z $xiac/JU.h1.1$R64$ROUGE #
# $xcg/unite$Z $xiac/JU.h1.1$R64$VERTE #
# $xcg/unite$Z $xiac/JU.h1.1$R64$BLEUE #
# #
# $DELETE $xT/JULI.l.*$ROUGE #
# $DELETE $xT/JULI.l.*$VERTE #
# $DELETE $xT/JULI.l.*$BLEUE #
# #
# #
# $xci/vraies_C.01$X A=$xw1/JULI.m. \ #
# premiere=1 derniere=128 \ #
# p=$xiP/fractal.11 \ #
# RVB=VRAI \ #
# R=$xT/JULI.m. \ #
# $formatI #
# #
# $xci/reduction_16$Z $xT/JULI.m. $xiac/JU.h2.1 1 8 #
# $xci/reduction_64$Z $xT/JULI.m. $xiac/JU.h2.1 1 2 #
# #
# ro $xiac/JU.h2.1$R16$ROUGE #
# ro $xiac/JU.h2.1$R16$VERTE #
# ro $xiac/JU.h2.1$R16$BLEUE #
# #
# ro $xiac/JU.h2.1$R64$ROUGE #
# ro $xiac/JU.h2.1$R64$VERTE #
# ro $xiac/JU.h2.1$R64$BLEUE #
# #
# $xcg/unite$Z $xiac/JU.h2.1$R16$ROUGE #
# $xcg/unite$Z $xiac/JU.h2.1$R16$VERTE #
# $xcg/unite$Z $xiac/JU.h2.1$R16$BLEUE #
# #
# $xcg/unite$Z $xiac/JU.h2.1$R64$ROUGE #
# $xcg/unite$Z $xiac/JU.h2.1$R64$VERTE #
# $xcg/unite$Z $xiac/JU.h2.1$R64$BLEUE #
# #
# $xci/accumule.01$X A=$xT/JULI.m. \ #
# postfixe=$ROUGE \ #
# premiere=1 derniere=128 \ #
# attenuation=0 \ #
# $formatI | #
# $xci/substitue$X \ #
# substitution=L_SUBSTITUTION_ROUGE \ #
# p=$xiP/gris.11 \ #
# R=$xiirc/JULI.h2.1.0$ROUGE \ #
# $formatI #
# $xci/accumule.01$X A=$xT/JULI.m. \ #
# postfixe=$VERTE \ #
# premiere=1 derniere=128 \ #
# attenuation=0 \ #
# $formatI | #
# $xci/substitue$X \ #
# substitution=L_SUBSTITUTION_ROUGE \ #
# p=$xiP/gris.11 \ #
# R=$xiirc/JULI.h2.1.0$VERTE \ #
# $formatI #
# $xci/accumule.01$X A=$xT/JULI.m. \ #
# postfixe=$BLEUE \ #
# premiere=1 derniere=128 \ #
# attenuation=0 \ #
# $formatI | #
# $xci/substitue$X \ #
# substitution=L_SUBSTITUTION_ROUGE \ #
# p=$xiP/gris.11 \ #
# R=$xiirc/JULI.h2.1.0$BLEUE \ #
# $formatI #
# #
# ro $xiirc/JULI.h2.1.0$ROUGE #
# ro $xiirc/JULI.h2.1.0$VERTE #
# ro $xiirc/JULI.h2.1.0$BLEUE #
# #
# $xcg/unite$Z $xiirc/JULI.h2.1.0$ROUGE #
# $xcg/unite$Z $xiirc/JULI.h2.1.0$VERTE #
# $xcg/unite$Z $xiirc/JULI.h2.1.0$BLEUE #
# #
# $xci/accumule.01$X A=$xT/JULI.m. \ #
# postfixe=$ROUGE \ #
# premiere=1 derniere=128 \ #
# attenuation=1 \ #
# $formatI | #
# $xci/substitue$X \ #
# substitution=L_SUBSTITUTION_ROUGE \ #
# p=$xiP/gris.11 \ #
# R=$xiirc/JULI.h2.1.1$ROUGE \ #
# $formatI #
# $xci/accumule.01$X A=$xT/JULI.m. \ #
# postfixe=$VERTE \ #
# premiere=1 derniere=128 \ #
# attenuation=1 \ #
# $formatI | #
# $xci/substitue$X \ #
# substitution=L_SUBSTITUTION_ROUGE \ #
# p=$xiP/gris.11 \ #
# R=$xiirc/JULI.h2.1.1$VERTE \ #
# $formatI #
# $xci/accumule.01$X A=$xT/JULI.m. \ #
# postfixe=$BLEUE \ #
# premiere=1 derniere=128 \ #
# attenuation=1 \ #
# $formatI | #
# $xci/substitue$X \ #
# substitution=L_SUBSTITUTION_ROUGE \ #
# p=$xiP/gris.11 \ #
# R=$xiirc/JULI.h2.1.1$BLEUE \ #
# $formatI #
# #
# ro $xiirc/JULI.h2.1.1$ROUGE #
# ro $xiirc/JULI.h2.1.1$VERTE #
# ro $xiirc/JULI.h2.1.1$BLEUE #
# #
# $xcg/unite$Z $xiirc/JULI.h2.1.1$ROUGE #
# $xcg/unite$Z $xiirc/JULI.h2.1.1$VERTE #
# $xcg/unite$Z $xiirc/JULI.h2.1.1$BLEUE #
# #
# $DELETE $xT/JULI.m.*$ROUGE #
# $DELETE $xT/JULI.m.*$VERTE #
# $DELETE $xT/JULI.m.*$BLEUE #
# #
# #
# $xci/vraies_C.01$X A=$xw1/JULI.n. \ #
# premiere=1 derniere=128 \ #
# p=$xiP/fractal.11 \ #
# RVB=VRAI \ #
# R=$xT/JULI.n. \ #
# $formatI #
# #
# $xci/reduction_16$Z $xT/JULI.n. $xiac/JU.h2.0 1 8 #
# $xci/reduction_64$Z $xT/JULI.n. $xiac/JU.h2.0 1 2 #
# #
# ro $xiac/JU.h2.0$R16$ROUGE #
# ro $xiac/JU.h2.0$R16$VERTE #
# ro $xiac/JU.h2.0$R16$BLEUE #
# #
# ro $xiac/JU.h2.0$R64$ROUGE #
# ro $xiac/JU.h2.0$R64$VERTE #
# ro $xiac/JU.h2.0$R64$BLEUE #
# #
# $xcg/unite$Z $xiac/JU.h2.0$R16$ROUGE #
# $xcg/unite$Z $xiac/JU.h2.0$R16$VERTE #
# $xcg/unite$Z $xiac/JU.h2.0$R16$BLEUE #
# #
# $xcg/unite$Z $xiac/JU.h2.0$R64$ROUGE #
# $xcg/unite$Z $xiac/JU.h2.0$R64$VERTE #
# $xcg/unite$Z $xiac/JU.h2.0$R64$BLEUE #
# #
# $DELETE $xT/JULI.n.*$ROUGE #
# $DELETE $xT/JULI.n.*$VERTE #
# $DELETE $xT/JULI.n.*$BLEUE #
# #
# #
# Pal #
# #
# $xci/disk_video_P$Z $xw1/JULI.k. 1 128 $xiP/enfer.05 \ #
# 9 1 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# $xci/disk_video_P$Z $xw1/JULI.l. 1 128 $xiP/enfer.05 \ #
# 9 1 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# $xci/disk_video_P$Z $xw1/JULI.m. 1 128 $xiP/fractal.11 \ #
# 9 1 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# $xci/disk_video_P$Z $xw1/JULI.n. 1 128 $xiP/fractal.11 \ #
# 9 1 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
# #
# xivPdf 3 2 #
# #
# record.01$Z $xiac/JU.h1.0$R16 RVB Initialisation #
# record.01$Z $xiac/JU.h1.0$R64 RVB rien #
# #
# record.01$Z $xiac/JU.h1.1$R16 RVB rien #
# record.01$Z $xiac/JU.h1.1$R64 RVB rien #
# #
# record.01$Z $xiac/JU.h2.0$R16 RVB rien #
# record.01$Z $xiac/JU.h2.0$R64 RVB rien #
# #
# record.01$Z $xiac/JU.h2.1$R16 RVB rien #
# record.01$Z $xiac/JU.h2.1$R64 RVB rien #
# #
# record.01$Z $xiirc/JULI.h2.1.0 RVB rien #
# record.01$Z $xiirc/JULI.h2.1.1 RVB rien #
# #
sequence 024851_025106
# Generee par : #
# #
# $Z SET Nimages=256 #
# $Z SET Npositions=512 #
# #
# $Z set NcorpsS=11 #
# #
# $Z $DELETE $xT/ROTATION$COORD_X #
# $Z $xci/valeurs_inte$X p=1 d=$Npositions vD=1.40 vA=1.40 cubique=VRAI \ #
# $Z > $xT/ROTATION$COORD_X #
# #
# $Z alias genere '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 genere $xT/MASSES \ #
# $Z +2.0e30 +3.3e23 +48.7e23 \ #
# $Z +60.5e23 \ #
# $Z +6.4e23 +189.9e25 +56.8e25 +8.6e25 +10.3e25 +6.6e21 \ #
# $Z +60.5e23 #
# $Z genere $xT/RAYONS \ #
# $Z +50e10 +35e10 +35e10 \ #
# $Z +35e10 \ #
# $Z +35e10 +45e10 +45e10 +40e10 +40e10 +35e10 \ #
# $Z +35e10 #
# $Z genere $xT/COULEURS$ROUGE \ #
# $Z $GRIS_8 $GRIS_8 $GRIS_8 \ #
# $Z $GRIS_0 \ #
# $Z $GRIS_8 $GRIS_8 $GRIS_8 $GRIS_4 $GRIS_0 $GRIS_7 \ #
# $Z $GRIS_0 #
# $Z genere $xT/COULEURS$VERTE \ #
# $Z $GRIS_8 $GRIS_6 $GRIS_4 \ #
# $Z $GRIS_6 \ #
# $Z $GRIS_4 $GRIS_6 $GRIS_7 $GRIS_8 $GRIS_7 $GRIS_7 \ #
# $Z $GRIS_4 #
# $Z genere $xT/COULEURS$BLEUE \ #
# $Z $GRIS_0 $GRIS_2 $GRIS_0 \ #
# $Z $GRIS_8 \ #
# $Z $GRIS_2 $GRIS_0 $GRIS_0 $GRIS_8 $GRIS_8 $GRIS_8 \ #
# $Z $GRIS_8 #
# #
# $Z Pal #
# #
# #
# $c #define N0 1 #
# $c #define N Nimages #
# $c #define Npos Npositions #
# #
# $c extern double sqrt(); #
# #
# $c int main() #
# $c { #
# $c int n; #
# #
# $c double XcentreS=+1e3; #
# $c double XcentreD=-392e+10; #
# $c double XcentreA; #
# #
# $c double YcentreS=+1e3; #
# $c double YcentreD=+307e+10; #
# $c double YcentreA; #
# #
# $c double ZcentreS=+1e3; #
# $c double ZcentreD=+216e+10; #
# $c double ZcentreA; #
# #
# $c double XvitessD=-2.27e+3; #
# #
# $c double YvitessD=-4.53e+3; #
# #
# $c double ZvitessD=-7.39e+2; #
# #
# $c double Fcentre; #
# $c double OdistD; #
# #
# $c OdistD=sqrt(((XcentreD-XcentreS)*(XcentreD-XcentreS))+ #
# $c ((YcentreD-YcentreS)*(YcentreD-YcentreS))+ #
# $c ((ZcentreD-ZcentreS)*(ZcentreD-ZcentreS)) #
# $c ); #
# $c Fcentre=(0.05e11/OdistD); #
# #
# $c XcentreA=Fcentre*XcentreD; #
# $c YcentreA=Fcentre*YcentreD; #
# $c ZcentreA=Fcentre*ZcentreD; #
# #
# $c for (n=N0 ; n<=N ; n++) #
# $c { #
# $c double Xcentre; #
# $c double Ycentre; #
# $c double Zcentre; #
# #
# $c double Xvitess; #
# $c double Yvitess; #
# $c double Zvitess; #
# #
# $c double Odist; #
# #
# $c Xcentre=((XcentreA*(n-N0))+(XcentreD*(N-n)))/(N-N0); #
# $c Ycentre=((YcentreA*(n-N0))+(YcentreD*(N-n)))/(N-N0); #
# $c Zcentre=((ZcentreA*(n-N0))+(ZcentreD*(N-n)))/(N-N0); #
# #
# $c Odist=sqrt(((Xcentre-XcentreS)*(Xcentre-XcentreS))+ #
# $c ((Ycentre-YcentreS)*(Ycentre-YcentreS))+ #
# $c ((Zcentre-ZcentreS)*(Zcentre-ZcentreS)) #
# $c ); #
# #
# $c Xvitess=XvitessD*sqrt(OdistD/Odist); #
# $c Yvitess=YvitessD*sqrt(OdistD/Odist); #
# $c Zvitess=ZvitessD*sqrt(OdistD/Odist); #
# #
# $c printf("genere #
# $c $xT/COORDONNEES$COORD_X #
# $c %+g +514e+8 +213e+8 #
# $c -203e+8 #
# $c -204e+9 +501e+9 -134e+10 -150e+9 -436e+10 #
# $c %+g %+g\n" #
# $c ,XcentreS,XcentreD,Xcentre #
# $c ); #
# $c printf("genere #
# $c $xT/COORDONNEES$COORD_Y #
# $c %+g +682e+7 +967e+8 #
# $c +133e+9 #
# $c +126e+9 -519e+9 +341e+9 +259e+10 -115e+10 #
# $c %+g %+g\n" #
# $c ,YcentreS,YcentreD,Ycentre #
# $c ); #
# $c printf("genere #
# $c $xT/COORDONNEES$COORD_Z #
# $c %+g -163e+7 +422e+8 #
# $c +579e+8 #
# $c +634e+8 -235e+9 +199e+9 +113e+10 -363e+9 #
# $c %+g %+g\n" #
# $c ,ZcentreS,ZcentreD,Zcentre #
# $c ); #
# #
# $c printf("genere #
# $c $xT/VITESSES$COORD_X #
# $c 0 -1.46e+4 -3.44e+4 #
# $c -2.99e+4 #
# $c -1.27e+4 +9.67e+3 -3.21e+3 -6.84e+3 +1.42e+3 #
# $c %+g %+g\n" #
# $c ,XvitessD,Xvitess #
# $c ); #
# $c printf("genere #
# $c $xT/VITESSES$COORD_Y #
# $c 0 +4.43e+4 +5.39e+3 #
# $c -3.88e+3 #
# $c -1.64e+4 +8.59e+3 -8.62e+3 -6.50e+2 -4.79e+3 #
# $c %+g %+g\n" #
# $c ,YvitessD,Yvitess #
# $c ); #
# $c printf("genere #
# $c $xT/VITESSES$COORD_Z #
# $c 0 +2.52e+4 +4.60e+3 #
# $c -1.68e+3 #
# $c -7.18e+3 +3.44e+3 -3.42e+3 -1.88e+2 -2.00e+3 #
# $c %+g %+g\n" #
# $c ,ZvitessD,Zvitess #
# $c ); #
# #
# $c printf("$xrr/N_corps.11$X #
# $c corps=$NcorpsS #
# $c np=%d #
# $c LISTE_X=$xT/COORDONNEES$COORD_X #
# $c LISTE_Y=$xT/COORDONNEES$COORD_Y #
# $c LISTE_Z=$xT/COORDONNEES$COORD_Z #
# $c LISTE_VX=$xT/VITESSES$COORD_X #
# $c LISTE_VY=$xT/VITESSES$COORD_Y #
# $c LISTE_VZ=$xT/VITESSES$COORD_Z #
# $c LISTE_MASSE=$xT/MASSES #
# $c LISTE_RAYON=$xT/RAYONS #
# $c LISTE_ROUGE=$xT/COULEURS$ROUGE #
# $c LISTE_VERTE=$xT/COULEURS$VERTE #
# $c LISTE_BLEUE=$xT/COULEURS$BLEUE #
# $c centrer=FAUX reference=1 #
# $c extension=5 #
# $c dct=15000 #
# $c 2_a_2=FAUX source=1 #
# $c nombre=1000 #
# $c ensemble=VRAI #
# $c acceptable=0.5 #
# $c Ranterieurs=0.5 #
# $c trainees=FAUX #
# $c renormaliser=FAUX #
# $c lineaire=FAUX exposant=0.4 #
# $c Lz=1.0e13 #
# $c TRANSLATION_OX=0 #
# $c TRANSLATION_OY=0 #
# $c ROTATION_OX=$xT/ROTATION$COORD_X #
# $c ZOOM=0.60 #
# $c fond=FAUX #
# $c pV=%d #
# $c R=$xw11/NCOR.V. #
# $c $formatI\n" #
# $c ,Npos,Npos #
# $c ); #
# $c printf("$MV $xw11/NCOR.V.%04d$ROUGE #
# $c $xw12/NCOR.V.%04d$ROUGE\n" #
# $c ,Npos,n #
# $c ); #
# $c printf("$MV $xw11/NCOR.V.%04d$VERTE #
# $c $xw12/NCOR.V.%04d$VERTE\n" #
# $c ,Npos,n #
# $c ); #
# $c printf("$MV $xw11/NCOR.V.%04d$BLEUE #
# $c $xw12/NCOR.V.%04d$BLEUE\n" #
# $c ,Npos,n #
# $c ); #
# #
# $c printf("$DELETE $xT/COORDONNEES$COORD_X\n"); #
# $c printf("$DELETE $xT/COORDONNEES$COORD_Y\n"); #
# $c printf("$DELETE $xT/COORDONNEES$COORD_Z\n"); #
# #
# $c printf("$DELETE $xT/VITESSES$COORD_X\n"); #
# $c printf("$DELETE $xT/VITESSES$COORD_Y\n"); #
# $c printf("$DELETE $xT/VITESSES$COORD_Z\n"); #
# $c } #
# $c } #
# #
# $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/ROTATION$COORD_X #
# #
# #
# $Z Pal #
# #
# $Z $xci/reduction_16$Z $xw12/NCOR.V. $xiak/NCOR.L9 1 16 #
# $Z $xci/reduction_64$Z $xw12/NCOR.V. $xiak/NCOR.L9 1 4 #
# #
# $Z ro $xiak/NCOR.L9$R16$ROUGE #
# $Z ro $xiak/NCOR.L9$R16$VERTE #
# $Z ro $xiak/NCOR.L9$R16$BLEUE #
# #
# $Z ro $xiak/NCOR.L9$R64$ROUGE #
# $Z ro $xiak/NCOR.L9$R64$VERTE #
# $Z ro $xiak/NCOR.L9$R64$BLEUE #
# #
# $Z $xcg/unite$Z $xiak/NCOR.L9$R16$ROUGE #
# $Z $xcg/unite$Z $xiak/NCOR.L9$R16$VERTE #
# $Z $xcg/unite$Z $xiak/NCOR.L9$R16$BLEUE #
# #
# $Z $xcg/unite$Z $xiak/NCOR.L9$R64$ROUGE #
# $Z $xcg/unite$Z $xiak/NCOR.L9$R64$VERTE #
# $Z $xcg/unite$Z $xiak/NCOR.L9$R64$BLEUE #
# #
# #
# Pal #
# #
# $xci/disk_video_P$Z $xw12/NCOR.V. 001 256 RVB \ #
# 9 1 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
# #
# xivPdf 3 2 #
# #
# record.01$Z $xiak/NCOR.L9$R16 RVB Initialisation #
# record.01$Z $xiak/NCOR.L9$R64 RVB rien #
# #
sequence 025107_025618
# Generee par : #
# #
# #
# ATTENTION, on notera ci-apres un angle de rotation par rapport a 'OX' de 1.60 radian. #
# Bien que cette valeur soit tres proche de pi/2, le systeme solaire n'est pas vu "par la #
# tranche", mais relativement incline. Cela vient du fait que le plan de l'ecliptique, #
# contrairement a ce que je croyais, n'est pas le plan {OX,OY} ; il possede en fait une #
# rotation a priori par rapport a 'OX' qui vient donc "perturber" le choix des points de #
# vue. Cela peut etre vue avec l'image '0084' de la sequence : #
# #
# xivPdf 9 1 / 007292_007547 #
# #
# qui est bien vue "par la tranche", et qui correspond a une rotation de 1.5636600272966, ce #
# est tres proche de pi/2. En ce qui concerne le Systeme Solaire, la rotation : #
# #
# ROTATION_OX=1.17 #
# #
# permet de voir le plan de l'ecliptique "par la tranche"... #
# #
# #
# $Z SET Nimages=512 #
# $Z SET Npositions=512 #
# #
# $Z set NcorpsS=11 #
# #
# $Z $DELETE $xT/ROTATION$COORD_X #
# $Z $xci/valeurs_inte$X p=1 d=$Npositions vD=1.60 vA=1.60 cubique=VRAI \ #
# $Z > $xT/ROTATION$COORD_X #
# #
# $Z alias genere '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 genere $xT/MASSES \ #
# $Z +2.0e30 +3.3e23 +48.7e23 \ #
# $Z +60.5e23 \ #
# $Z +6.4e23 +189.9e25 +56.8e25 +8.6e25 +10.3e25 +6.6e21 \ #
# $Z +60.5e23 #
# $Z genere $xT/RAYONS \ #
# $Z +50e10 +35e10 +35e10 \ #
# $Z +35e10 \ #
# $Z +35e10 +45e10 +45e10 +40e10 +40e10 +35e10 \ #
# $Z +35e10 #
# $Z genere $xT/COULEURS$ROUGE \ #
# $Z $GRIS_8 $GRIS_8 $GRIS_8 \ #
# $Z $GRIS_0 \ #
# $Z $GRIS_8 $GRIS_8 $GRIS_8 $GRIS_4 $GRIS_0 $GRIS_7 \ #
# $Z $GRIS_0 #
# $Z genere $xT/COULEURS$VERTE \ #
# $Z $GRIS_8 $GRIS_6 $GRIS_4 \ #
# $Z $GRIS_6 \ #
# $Z $GRIS_4 $GRIS_6 $GRIS_7 $GRIS_8 $GRIS_7 $GRIS_7 \ #
# $Z $GRIS_4 #
# $Z genere $xT/COULEURS$BLEUE \ #
# $Z $GRIS_0 $GRIS_2 $GRIS_0 \ #
# $Z $GRIS_8 \ #
# $Z $GRIS_2 $GRIS_0 $GRIS_0 $GRIS_8 $GRIS_8 $GRIS_8 \ #
# $Z $GRIS_8 #
# #
# $Z Pal #
# #
# #
# $c #define N0 1 #
# $c #define N Nimages #
# $c #define Npos Npositions #
# #
# $c extern double sqrt(); #
# #
# $c int main() #
# $c { #
# $c int n; #
# #
# $c double XcentreS=+1e3; #
# $c double XcentreD=-392e+10; #
# $c double XcentreA; #
# #
# $c double YcentreS=+1e3; #
# $c double YcentreD=+307e+10; #
# $c double YcentreA; #
# #
# $c double ZcentreS=+1e3; #
# $c double ZcentreD=+216e+10; #
# $c double ZcentreA; #
# #
# $c double XvitessD=-2.27e+3; #
# #
# $c double YvitessD=-4.53e+3; #
# #
# $c double ZvitessD=-7.39e+2; #
# #
# $c double Fcentre; #
# $c double OdistD; #
# #
# $c OdistD=sqrt(((XcentreD-XcentreS)*(XcentreD-XcentreS))+ #
# $c ((YcentreD-YcentreS)*(YcentreD-YcentreS))+ #
# $c ((ZcentreD-ZcentreS)*(ZcentreD-ZcentreS)) #
# $c ); #
# $c Fcentre=(0.05e11/OdistD); #
# #
# $c XcentreA=Fcentre*XcentreD; #
# $c YcentreA=Fcentre*YcentreD; #
# $c ZcentreA=Fcentre*ZcentreD; #
# #
# $c for (n=N0 ; n<=N ; n++) #
# $c { #
# $c double Xcentre; #
# $c double Ycentre; #
# $c double Zcentre; #
# #
# $c double Xvitess; #
# $c double Yvitess; #
# $c double Zvitess; #
# #
# $c double Odist; #
# #
# $c Xcentre=((XcentreA*(n-N0))+(XcentreD*(N-n)))/(N-N0); #
# $c Ycentre=((YcentreA*(n-N0))+(YcentreD*(N-n)))/(N-N0); #
# $c Zcentre=((ZcentreA*(n-N0))+(ZcentreD*(N-n)))/(N-N0); #
# #
# $c Odist=sqrt(((Xcentre-XcentreS)*(Xcentre-XcentreS))+ #
# $c ((Ycentre-YcentreS)*(Ycentre-YcentreS))+ #
# $c ((Zcentre-ZcentreS)*(Zcentre-ZcentreS)) #
# $c ); #
# #
# $c Xvitess=XvitessD*sqrt(OdistD/Odist); #
# $c Yvitess=YvitessD*sqrt(OdistD/Odist); #
# $c Zvitess=ZvitessD*sqrt(OdistD/Odist); #
# #
# $c printf("genere #
# $c $xT/COORDONNEES$COORD_X #
# $c %+g +514e+8 +213e+8 #
# $c -203e+8 #
# $c -204e+9 +501e+9 -134e+10 -150e+9 -436e+10 #
# $c %+g %+g\n" #
# $c ,XcentreS,XcentreD,Xcentre #
# $c ); #
# $c printf("genere #
# $c $xT/COORDONNEES$COORD_Y #
# $c %+g +682e+7 +967e+8 #
# $c +133e+9 #
# $c +126e+9 -519e+9 +341e+9 +259e+10 -115e+10 #
# $c %+g %+g\n" #
# $c ,YcentreS,YcentreD,Ycentre #
# $c ); #
# $c printf("genere #
# $c $xT/COORDONNEES$COORD_Z #
# $c %+g -163e+7 +422e+8 #
# $c +579e+8 #
# $c +634e+8 -235e+9 +199e+9 +113e+10 -363e+9 #
# $c %+g %+g\n" #
# $c ,ZcentreS,ZcentreD,Zcentre #
# $c ); #
# #
# $c printf("genere #
# $c $xT/VITESSES$COORD_X #
# $c 0 -1.46e+4 -3.44e+4 #
# $c -2.99e+4 #
# $c -1.27e+4 +9.67e+3 -3.21e+3 -6.84e+3 +1.42e+3 #
# $c %+g %+g\n" #
# $c ,XvitessD,Xvitess #
# $c ); #
# $c printf("genere #
# $c $xT/VITESSES$COORD_Y #
# $c 0 +4.43e+4 +5.39e+3 #
# $c -3.88e+3 #
# $c -1.64e+4 +8.59e+3 -8.62e+3 -6.50e+2 -4.79e+3 #
# $c %+g %+g\n" #
# $c ,YvitessD,Yvitess #
# $c ); #
# $c printf("genere #
# $c $xT/VITESSES$COORD_Z #
# $c 0 +2.52e+4 +4.60e+3 #
# $c -1.68e+3 #
# $c -7.18e+3 +3.44e+3 -3.42e+3 -1.88e+2 -2.00e+3 #
# $c %+g %+g\n" #
# $c ,ZvitessD,Zvitess #
# $c ); #
# #
# $c printf("$xrr/N_corps.11$X #
# $c corps=$NcorpsS #
# $c np=%d #
# $c LISTE_X=$xT/COORDONNEES$COORD_X #
# $c LISTE_Y=$xT/COORDONNEES$COORD_Y #
# $c LISTE_Z=$xT/COORDONNEES$COORD_Z #
# $c LISTE_VX=$xT/VITESSES$COORD_X #
# $c LISTE_VY=$xT/VITESSES$COORD_Y #
# $c LISTE_VZ=$xT/VITESSES$COORD_Z #
# $c LISTE_MASSE=$xT/MASSES #
# $c LISTE_RAYON=$xT/RAYONS #
# $c LISTE_ROUGE=$xT/COULEURS$ROUGE #
# $c LISTE_VERTE=$xT/COULEURS$VERTE #
# $c LISTE_BLEUE=$xT/COULEURS$BLEUE #
# $c centrer=FAUX reference=1 #
# $c extension=5 #
# $c dct=15000 #
# $c 2_a_2=FAUX source=1 #
# $c nombre=1000 #
# $c ensemble=VRAI #
# $c acceptable=0.5 #
# $c Ranterieurs=0.5 #
# $c trainees=FAUX #
# $c renormaliser=FAUX #
# $c lineaire=FAUX exposant=0.4 #
# $c Lz=1.0e13 #
# $c TRANSLATION_OX=0 #
# $c TRANSLATION_OY=0 #
# $c ROTATION_OX=$xT/ROTATION$COORD_X #
# $c ZOOM=0.60 #
# $c fond=FAUX #
# $c pV=%d #
# $c R=$xw11/NCOR.W. #
# $c $formatI\n" #
# $c ,Npos,Npos #
# $c ); #
# $c printf("$MV $xw11/NCOR.W.%04d$ROUGE #
# $c $xw12/NCOR.W.%04d$ROUGE\n" #
# $c ,Npos,n #
# $c ); #
# $c printf("$MV $xw11/NCOR.W.%04d$VERTE #
# $c $xw12/NCOR.W.%04d$VERTE\n" #
# $c ,Npos,n #
# $c ); #
# $c printf("$MV $xw11/NCOR.W.%04d$BLEUE #
# $c $xw12/NCOR.W.%04d$BLEUE\n" #
# $c ,Npos,n #
# $c ); #
# #
# $c printf("$DELETE $xT/COORDONNEES$COORD_X\n"); #
# $c printf("$DELETE $xT/COORDONNEES$COORD_Y\n"); #
# $c printf("$DELETE $xT/COORDONNEES$COORD_Z\n"); #
# #
# $c printf("$DELETE $xT/VITESSES$COORD_X\n"); #
# $c printf("$DELETE $xT/VITESSES$COORD_Y\n"); #
# $c printf("$DELETE $xT/VITESSES$COORD_Z\n"); #
# $c } #
# $c } #
# #
# $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/ROTATION$COORD_X #
# #
# #
# $Z Pal #
# #
# $Z $xci/reduction_16$Z $xw12/NCOR.W. $xiak/NCOR.N9 1 32 #
# $Z $xci/reduction_64$Z $xw12/NCOR.W. $xiak/NCOR.N9 1 8 #
# #
# $Z ro $xiak/NCOR.N9$R16$ROUGE #
# $Z ro $xiak/NCOR.N9$R16$VERTE #
# $Z ro $xiak/NCOR.N9$R16$BLEUE #
# #
# $Z ro $xiak/NCOR.N9$R64$ROUGE #
# $Z ro $xiak/NCOR.N9$R64$VERTE #
# $Z ro $xiak/NCOR.N9$R64$BLEUE #
# #
# $Z $xcg/unite$Z $xiak/NCOR.N9$R16$ROUGE #
# $Z $xcg/unite$Z $xiak/NCOR.N9$R16$VERTE #
# $Z $xcg/unite$Z $xiak/NCOR.N9$R16$BLEUE #
# #
# $Z $xcg/unite$Z $xiak/NCOR.N9$R64$ROUGE #
# $Z $xcg/unite$Z $xiak/NCOR.N9$R64$VERTE #
# $Z $xcg/unite$Z $xiak/NCOR.N9$R64$BLEUE #
# #
# #
# Pal #
# #
# $xci/disk_video_P$Z $xw12/NCOR.W. 001 512 RVB \ #
# 9 1 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
# #
# xivPdf 3 2 #
# #
# record.01$Z $xiak/NCOR.N9$R16 RVB Initialisation #
# record.01$Z $xiak/NCOR.N9$R64 RVB rien #
# #
sequence 025619_026130
# Generee par : #
# #
# $Z SET Nimages=512 #
# #
# $Z Pal #
# #
# $c #define N0 1 #
# $c #define N Nimages #
# #
# $c int main() #
# $c { #
# $c int n; #
# #
# $c for (n=N0 ; n<=N ; n++) #
# $c { #
# $c printf("$xci/reduction_16$X #
# $c A=$xw12/NCOR.W. #
# $c premiere=%04d #
# $c pas=%d #
# $c erreurs=FAUX #
# $c postfixe=$ROUGE #
# $c fond=VRAI #
# $c F=$xT/NCOR.T.%04d$ROUGE #
# $c R=$xw12/NCOR.X.%04d$ROUGE #
# $c $formatI\n" #
# $c ,n,N,n,n #
# $c ); #
# $c printf("$xci/reduction_16$X #
# $c A=$xw12/NCOR.W. #
# $c premiere=%04d #
# $c pas=%d #
# $c erreurs=FAUX #
# $c postfixe=$VERTE #
# $c fond=VRAI #
# $c F=$xT/NCOR.T.%04d$VERTE #
# $c R=$xw12/NCOR.X.%04d$VERTE #
# $c $formatI\n" #
# $c ,n,N,n,n #
# $c ); #
# $c printf("$xci/reduction_16$X #
# $c A=$xw12/NCOR.W. #
# $c premiere=%04d #
# $c pas=%d #
# $c erreurs=FAUX #
# $c postfixe=$BLEUE #
# $c fond=VRAI #
# $c F=$xT/NCOR.T.%04d$BLEUE #
# $c R=$xw12/NCOR.X.%04d$BLEUE #
# $c $formatI\n" #
# $c ,n,N,n,n #
# $c ); #
# $c printf("$DELETE $xw12/NCOR.W.%04d$ROUGE\n" #
# $c ,n #
# $c ); #
# $c printf("$DELETE $xw12/NCOR.W.%04d$VERTE\n" #
# $c ,n #
# $c ); #
# $c printf("$DELETE $xw12/NCOR.W.%04d$BLEUE\n" #
# $c ,n #
# $c ); #
# $c } #
# $c } #
# #
# #
# Pal #
# #
# $xci/disk_video_P$Z $xw12/NCOR.X. 001 512 RVB \ #
# 9 1 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
sequence 026131_026136
sequence 026137_026648
# Generee par : #
# #
# #
# ATTENTION, on notera ci-apres que la trajectoire de l'etoile naine compagnon du Soleil #
# n'est pas dans le plan de l'ecliptique, mais (a epsilon pres) dans le plan {OX,OY}... #
# #
# #
# set Nimages=512 #
# #
# set NcorpsS=11 #
# @ Ncorps = $NcorpsS - 1 #
# #
# $DELETE $xT/ROTATION$COORD_X #
# $xci/valeurs_inte$X p=1 d=$Nimages vD=0 vA=$dpi cubique=VRAI > $xT/ROTATION$COORD_X #
# #
# alias genere 'set FiLe=\!:1 ; set LiStE=(\!:2*) ; \\ #
# $DELETE $FiLe ; \\ #
# echo "$LiStE" | $SE -e "s/$K_BLANC$K_BLANC*/ /g" | $R "$K_BLANC" "$K_NL" > $FiLe ; \\ #
# unset FiLe LiStE' #
# #
# alias couleurs 'set In=\!:1 ; set Su=\!:2 ; set Gr=\!:3 ; \\ #
# set Mo=\!:4 ; set Fi=\!:5* ; \\ #
# $xci/valeurs_alea$X p=1 d=$Ncorps g=$Gr inf=$In sup=$Su entiers=$Mo >>! $Fi ; \\ #
# unset In Su Gr Mo Fi' #
# #
# #
# genere $xT/COORDONNEES$COORD_X \ #
# +1e3 \ #
# +514e+8 +213e+8 -203e+8 -204e+9 +501e+9 -134e+10 -150e+9 -436e+10 -392e+10 \ #
# -5e+9 #
# genere $xT/COORDONNEES$COORD_Y \ #
# +1e3 \ #
# +682e+7 +967e+8 +133e+9 +126e+9 -519e+9 +341e+9 +259e+10 -115e+10 +307e+10 \ #
# +1e3 #
# genere $xT/COORDONNEES$COORD_Z \ #
# +1e3 \ #
# -163e+7 +422e+8 +579e+8 +634e+8 -235e+9 +199e+9 +113e+10 -363e+9 +216e+10 \ #
# +1e3 #
# genere $xT/VITESSES$COORD_X \ #
# 0 \ #
# -1.46e+4 -3.44e+4 -2.99e+4 -1.27e+4 +9.67e+3 -3.21e+3 -6.84e+3 +1.42e+3 -2.27e+3 \ #
# 0 #
# genere $xT/VITESSES$COORD_Y \ #
# 0 \ #
# +4.43e+4 +5.39e+3 -3.88e+3 -1.64e+4 +8.59e+3 -8.62e+3 -6.50e+2 -4.79e+3 -4.53e+3 \ #
# -1.64e5 #
# genere $xT/VITESSES$COORD_Z \ #
# 0 \ #
# +2.52e+4 +4.60e+3 -1.68e+3 -7.18e+3 +3.44e+3 -3.42e+3 -1.88e+2 -2.00e+3 -7.39e+2 \ #
# 0 #
# genere $xT/MASSES \ #
# +2.0e30 \ #
# +3.3e23 +48.7e23 +60.5e23 +6.4e23 +189.9e25 +56.8e25 +8.6e25 +10.3e25 +6.6e21 \ #
# 5.0e28 #
# genere $xT/RAYONS \ #
# +40e10 \ #
# +20e10 +20e10 +20e10 +20e10 +30e10 +30e10 +25e10 +25e10 +20e10 \ #
# +35e10 #
# genere $xT/COULEURS$ROUGE \ #
# $GRIS_8 \ #
# $GRIS_8 $GRIS_8 $GRIS_0 $GRIS_8 $GRIS_8 $GRIS_8 $GRIS_4 $GRIS_0 $GRIS_7 \ #
# $GRIS_8 #
# genere $xT/COULEURS$VERTE \ #
# $GRIS_8 \ #
# $GRIS_6 $GRIS_4 $GRIS_6 $GRIS_4 $GRIS_6 $GRIS_7 $GRIS_8 $GRIS_7 $GRIS_7 \ #
# $GRIS_8 #
# genere $xT/COULEURS$BLEUE \ #
# $GRIS_0 \ #
# $GRIS_2 $GRIS_0 $GRIS_8 $GRIS_2 $GRIS_0 $GRIS_0 $GRIS_8 $GRIS_8 $GRIS_8 \ #
# $GRIS_0 #
# #
# Pal #
# #
# $xrr/N_corps.11$X corps=$NcorpsS \ #
# np=$Nimages \ #
# LISTE_X=$xT/COORDONNEES$COORD_X \ #
# LISTE_Y=$xT/COORDONNEES$COORD_Y \ #
# LISTE_Z=$xT/COORDONNEES$COORD_Z \ #
# LISTE_VX=$xT/VITESSES$COORD_X \ #
# LISTE_VY=$xT/VITESSES$COORD_Y \ #
# LISTE_VZ=$xT/VITESSES$COORD_Z \ #
# LISTE_MASSE=$xT/MASSES \ #
# LISTE_RAYON=$xT/RAYONS \ #
# LISTE_ROUGE=$xT/COULEURS$ROUGE \ #
# LISTE_VERTE=$xT/COULEURS$VERTE \ #
# LISTE_BLEUE=$xT/COULEURS$BLEUE \ #
# centrer=FAUX reference=1 \ #
# extension=5 \ #
# dct=100 \ #
# nombre=10000 \ #
# ensemble=VRAI \ #
# Ranterieurs=0.5 \ #
# trainees=FAUX \ #
# renormaliser=FAUX \ #
# lineaire=FAUX exposant=0.4 \ #
# Lz=1.0e13 \ #
# TRANSLATION_OX=0 \ #
# TRANSLATION_OY=0 \ #
# ZOOM=0.60 \ #
# ROTATION_OX=$xT/ROTATION$COORD_X \ #
# fond=FAUX \ #
# R=$xw1/NCOR.Y. \ #
# $formatI #
# #
# $DELETE $xT/COORDONNEES$COORD_X #
# $DELETE $xT/COORDONNEES$COORD_Y #
# $DELETE $xT/COORDONNEES$COORD_Z #
# $DELETE $xT/VITESSES$COORD_X #
# $DELETE $xT/VITESSES$COORD_Y #
# $DELETE $xT/VITESSES$COORD_Z #
# $DELETE $xT/MASSES #
# $DELETE $xT/RAYONS #
# $DELETE $xT/COULEURS$ROUGE #
# $DELETE $xT/COULEURS$VERTE #
# $DELETE $xT/COULEURS$BLEUE #
# #
# $DELETE $xT/ROTATION$COORD_X #
# #
# #
# Pal #
# #
# $xci/reduction_16$Z $xw1/NCOR.Y. $xiak/NCOR.O3 1 32 #
# $xci/reduction_64$Z $xw1/NCOR.Y. $xiak/NCOR.O3 1 8 #
# #
# $CP $xw1/NCOR.Y.0512$ROUGE $xiirk/NCOR.O3.0512$ROUGE #
# $CP $xw1/NCOR.Y.0512$VERTE $xiirk/NCOR.O3.0512$VERTE #
# $CP $xw1/NCOR.Y.0512$BLEUE $xiirk/NCOR.O3.0512$BLEUE #
# #
# ro $xiak/NCOR.O3$R16$ROUGE #
# ro $xiak/NCOR.O3$R16$VERTE #
# ro $xiak/NCOR.O3$R16$BLEUE #
# #
# ro $xiak/NCOR.O3$R64$ROUGE #
# ro $xiak/NCOR.O3$R64$VERTE #
# ro $xiak/NCOR.O3$R64$BLEUE #
# #
# $xcg/unite$Z $xiak/NCOR.O3$R16$ROUGE #
# $xcg/unite$Z $xiak/NCOR.O3$R16$VERTE #
# $xcg/unite$Z $xiak/NCOR.O3$R16$BLEUE #
# #
# $xcg/unite$Z $xiak/NCOR.O3$R64$ROUGE #
# $xcg/unite$Z $xiak/NCOR.O3$R64$VERTE #
# $xcg/unite$Z $xiak/NCOR.O3$R64$BLEUE #
# #
# ro $xiirk/NCOR.O3.0512$ROUGE #
# ro $xiirk/NCOR.O3.0512$VERTE #
# ro $xiirk/NCOR.O3.0512$BLEUE #
# #
# $xcg/unite$Z $xiirk/NCOR.O3.0512$ROUGE #
# $xcg/unite$Z $xiirk/NCOR.O3.0512$VERTE #
# $xcg/unite$Z $xiirk/NCOR.O3.0512$BLEUE #
# #
# #
# Pal #
# #
# $xci/disk_video_P$Z $xw1/NCOR.Y. 0001 0512 RVB \ #
# 9 1 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
# #
# xivPdf 3 2 #
# #
# record.01$Z $xiak/NCOR.O3$R16 RVB Initialisation #
# record.01$Z $xiak/NCOR.O3$R64 RVB rien #
# #
# record.01$Z $xiirk/NCOR.O3.0512 RVB rien #
# #
# ATTENTION, l'enregistrement a ete recommence car j'avais oublie de faire la demande #
# d'ejection en fin d'enregistrement... #
sequence 026649_027160
# Generee (sur '$LACT27') par : #
# #
# $Z SET Nimages=512 #
# $Z SET NimageZ=1 #
# #
# $Z set Ncorps=1024 #
# #
# $Z set PasDeTemps=0.5 #
# #
# $Z set Vi=0.02 #
# $Z set Stabil=5 #
# #
# $Z set Maille=`$xcg/MUL2.01$X a=$Vi b=$PasDeTemps` #
# $Z set Maille=`$xcg/MUL2.01$X a=$Stabil b=$Maille` #
# #
# $Z @ Stabil = $Stabil - 1 #
# #
# $Z alias genereX 'set Fi=\!:1 ; set aD=\!:2 ; set aA=\!:3 ; set Ar=(\!:4*) ; \\ #
# $Z $DELETE $Fi ; \\ #
# $Z set Param="aD=$aD aA=$aA multiple=VRAI unite=$Maille" ; \\ #
# $Z $xci/valeurs_trig$X premiere=1 derniere=$Ncorps $Param a=1 b=0 $Ar > $Fi ; \\ #
# $Z unset Fi aD aA Ar Param' #
# $Z alias genereY 'set Fi=\!:1 ; set aD=\!:2 ; set aA=\!:3 ; set Ar=(\!:4*) ; \\ #
# $Z $DELETE $Fi ; \\ #
# $Z set Param="aD=$aD aA=$aA multiple=VRAI unite=$Maille" ; \\ #
# $Z $xci/valeurs_trig$X premiere=1 derniere=$Ncorps $Param a=0 b=1 $Ar > $Fi ; \\ #
# $Z unset Fi aD aA Ar Param' #
# $Z alias genere 'set Fi=\!:1 ; set vD=\!:2 ; set vA=\!:3 ; set Ar=(\!:4*) ; \\ #
# $Z $DELETE $Fi ; \\ #
# $Z $xci/valeurs_inte$X premiere=1 derniere=$Ncorps vD=$vD vA=$vA $Ar > $Fi ; \\ #
# $Z unset Fi vD vA Ar' #
# $Z alias genereR 'set Fi=\!:1 ; set In=\!:2 ; set Su=\!:3 ; set Ar=(\!:4*) ; \\ #
# $Z $DELETE $Fi ; \\ #
# $Z $xci/valeurs_alea$X p=1 d=$Ncorps signe="$K_VIDE" inf=$In sup=$Su $Ar > $Fi ; \\ #
# $Z unset Fi In Su Ar' #
# #
# $Z set Fin=`$xcg/MUL2.01$X a=$Nimages b=$PasDeTemps` #
# $Z set Debut=`$xcg/MUL2.01$X a=-0.02 b=$Fin` #
# #
# $Z genereR $xT/NAISSANCE $Debut $Fin entiers=FAUX g=11 #
# $Z genereX $xT/COORDONNEES$COORD_X 0.0 $dpi #
# $Z genereY $xT/COORDONNEES$COORD_Y 0.0 $dpi #
# $Z genere $xT/COORDONNEES$COORD_Z 0.0 0.0 #
# $Z genereR $xT/VITESSES 1 5 entiers=VRAI g=21 #
# $Z $DELETE $xT/VITESSES$COORD_X #
# $Z $CA $xT/VITESSES \ #
# $Z | $SE -e 's/^1$/+'"$Vi/" -e 's/^2$/0/' -e 's/^3$/-'"$Vi/" -e 's/^4$/0/' \ #
# $Z > $xT/VITESSES$COORD_X #
# $Z $DELETE $xT/VITESSES$COORD_Y #
# $Z $CA $xT/VITESSES \ #
# $Z | $SE -e 's/^1$/0/' -e 's/^2$/+'"$Vi/" -e 's/^3$/0/' -e 's/^4$/-'"$Vi/" \ #
# $Z > $xT/VITESSES$COORD_Y #
# $Z $DELETE $xT/VITESSES$COORD_Z #
# $Z $CA $xT/VITESSES \ #
# $Z | $SE -e 's/^1$/0/' -e 's/^2$/0/' -e 's/^3$/0/' -e 's/^4$/0/' \ #
# $Z > $xT/VITESSES$COORD_Z #
# $Z genere $xT/mdRHO 0.0 0.0 #
# $Z genere $xT/MdRHO 0.0 0.0 #
# $Z genere $xT/mnPHI -2 -2 #
# $Z genere $xT/MnPHI +2 +2 #
# $Z genere $xT/dPHI $pis2 $pis2 #
# $Z genere $xT/mnTHETA 0 0 #
# $Z genere $xT/MnTHETA 0 0 #
# $Z genere $xT/dTHETA $pis2 $pis2 #
# $Z genere $xT/infOUVE 0.0 0.0 #
# $Z genere $xT/supOUVE $pi $pi #
# $Z genere $xT/DISTANCE 1000000 1000000 #
# $Z genere $xT/STABILITE $Stabil $Stabil #
# $Z genere $xT/RAYONS 0.014 0.014 #
# $Z genereR $xT/COULEURS$ROUGE $GRIS_2 $GRIS_8 entiers=VRAI g=31 #
# $Z genereR $xT/COULEURS$VERTE $GRIS_2 $GRIS_8 entiers=VRAI g=32 #
# $Z genereR $xT/COULEURS$BLEUE $GRIS_2 $GRIS_8 entiers=VRAI g=33 #
# #
# $Z Pal #
# #
# $Z $xci/gauss$X \ #
# $Z c=8.0 \ #
# $Z R=$xT/POTENTIEL \ #
# $Z $formatI #
# $Z $xci/gauss$X \ #
# $Z c=32.0 \ #
# $Z $formatI | \ #
# $Z $xci/substitue$X \ #
# $Z p=$xiP/gris.06 \ #
# $Z substitution=L_SUBSTITUTION_ROUGE \ #
# $Z R=$xT/PROBABILITE \ #
# $Z $formatI #
# #
# #
# $Z Pal #
# #
# $Z $xrk/rdn_walk.31$X corps=$Ncorps \ #
# $Z np=$Nimages \ #
# $Z LISTE_DATE_DE_NAISSANCE=$xT/NAISSANCE \ #
# $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_MINIMUM_DELTA_RHO=$xT/mdRHO \ #
# $Z LISTE_MAXIMUM_DELTA_RHO=$xT/MdRHO \ #
# $Z LISTE_MINIMUM_N_PHI=$xT/mnPHI \ #
# $Z LISTE_MAXIMUM_N_PHI=$xT/MnPHI \ #
# $Z LISTE_DELTA_PHI=$xT/dPHI \ #
# $Z LISTE_MINIMUM_N_THETA=$xT/mnTHETA \ #
# $Z LISTE_MAXIMUM_N_THETA=$xT/MnTHETA \ #
# $Z LISTE_DELTA_THETA=$xT/dTHETA \ #
# $Z LISTE_BORNE_INFERIEURE_DE_L_OUVERTURE=$xT/infOUVE \ #
# $Z LISTE_BORNE_SUPERIEURE_DE_L_OUVERTURE=$xT/supOUVE \ #
# $Z LISTE_DISTANCE_MAXIMALE=$xT/DISTANCE \ #
# $Z LISTE_STABILITE=$xT/STABILITE \ #
# $Z LISTE_RAYON=$xT/RAYONS \ #
# $Z LISTE_ROUGE=$xT/COULEURS$ROUGE \ #
# $Z LISTE_VERTE=$xT/COULEURS$VERTE \ #
# $Z LISTE_BLEUE=$xT/COULEURS$BLEUE \ #
# $Z interaction=0.02 DLA=VRAI \ #
# $Z probabilite=VRAI \ #
# $Z PC=$xT/PROBABILITE \ #
# $Z PChiffres=0 \ #
# $Z force=VRAI premiere_direction=FAUX \ #
# $Z FC=$xT/POTENTIEL \ #
# $Z FChiffres=0 \ #
# $Z FNpasX=8 FNpasY=8 FNpasZ=1 \ #
# $Z Zmin=1 Zmax=4 \ #
# $Z centrer=VRAI \ #
# $Z dct=$PasDeTemps \ #
# $Z nombre=1 \ #
# $Z trainees=VRAI mode=1 \ #
# $Z attenuation_des_images=0.5 \ #
# $Z attenuation_des_trainees=1.00 \ #
# $Z renormaliser=FAUX \ #
# $Z Lz=100 \ #
# $Z zoom_automatique=VRAI \ #
# $Z fond=FAUX \ #
# $Z R=$xw1/RDNW.N. \ #
# $Z $formatI #
# #
# $Z genere $xT/RAYONS 0.03 0.03 #
# #
# $Z $xrk/rdn_walk.31$X corps=$Ncorps \ #
# $Z np=$Nimages \ #
# $Z LISTE_DATE_DE_NAISSANCE=$xT/NAISSANCE \ #
# $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_MINIMUM_DELTA_RHO=$xT/mdRHO \ #
# $Z LISTE_MAXIMUM_DELTA_RHO=$xT/MdRHO \ #
# $Z LISTE_MINIMUM_N_PHI=$xT/mnPHI \ #
# $Z LISTE_MAXIMUM_N_PHI=$xT/MnPHI \ #
# $Z LISTE_DELTA_PHI=$xT/dPHI \ #
# $Z LISTE_MINIMUM_N_THETA=$xT/mnTHETA \ #
# $Z LISTE_MAXIMUM_N_THETA=$xT/MnTHETA \ #
# $Z LISTE_DELTA_THETA=$xT/dTHETA \ #
# $Z LISTE_BORNE_INFERIEURE_DE_L_OUVERTURE=$xT/infOUVE \ #
# $Z LISTE_BORNE_SUPERIEURE_DE_L_OUVERTURE=$xT/supOUVE \ #
# $Z LISTE_DISTANCE_MAXIMALE=$xT/DISTANCE \ #
# $Z LISTE_STABILITE=$xT/STABILITE \ #
# $Z LISTE_RAYON=$xT/RAYONS \ #
# $Z LISTE_ROUGE=$xT/COULEURS$ROUGE \ #
# $Z LISTE_VERTE=$xT/COULEURS$VERTE \ #
# $Z LISTE_BLEUE=$xT/COULEURS$BLEUE \ #
# $Z interaction=0.02 DLA=VRAI \ #
# $Z probabilite=VRAI \ #
# $Z PC=$xT/PROBABILITE \ #
# $Z PChiffres=0 \ #
# $Z force=VRAI premiere_direction=FAUX \ #
# $Z FC=$xT/POTENTIEL \ #
# $Z FChiffres=0 \ #
# $Z FNpasX=8 FNpasY=8 FNpasZ=1 \ #
# $Z Zmin=1 Zmax=4 \ #
# $Z centrer=VRAI \ #
# $Z dct=$PasDeTemps \ #
# $Z nombre=1 \ #
# $Z trainees=VRAI mode=1 \ #
# $Z attenuation_des_images=1.0 \ #
# $Z attenuation_des_trainees=0.85 \ #
# $Z renormaliser=FAUX \ #
# $Z Lz=100 \ #
# $Z zoom_automatique=VRAI \ #
# $Z fond=VRAI \ #
# $Z dynamique=VRAI \ #
# $Z F=$xw1/RDNW.N. \ #
# $Z R=$xw1/RDNW.N. \ #
# $Z $formatI #
# #
# $Z $DELETE $xT/NAISSANCE #
# $Z $DELETE $xT/COORDONNEES$COORD_X #
# $Z $DELETE $xT/COORDONNEES$COORD_Y #
# $Z $DELETE $xT/COORDONNEES$COORD_Z #
# $Z $DELETE $xT/VITESSES #
# $Z $DELETE $xT/VITESSES$COORD_X #
# $Z $DELETE $xT/VITESSES$COORD_Y #
# $Z $DELETE $xT/VITESSES$COORD_Z #
# $Z $DELETE $xT/mdRHO #
# $Z $DELETE $xT/MdRHO #
# $Z $DELETE $xT/mnPHI #
# $Z $DELETE $xT/MnPHI #
# $Z $DELETE $xT/dPHI #
# $Z $DELETE $xT/mnTHETA #
# $Z $DELETE $xT/MnTHETA #
# $Z $DELETE $xT/dTHETA #
# $Z $DELETE $xT/infOUVE #
# $Z $DELETE $xT/supOUVE #
# $Z $DELETE $xT/DISTANCE #
# $Z $DELETE $xT/STABILITE #
# $Z $DELETE $xT/RAYONS #
# $Z $DELETE $xT/COULEURS$ROUGE #
# $Z $DELETE $xT/COULEURS$VERTE #
# $Z $DELETE $xT/COULEURS$BLEUE #
# #
# #
# $Z $xci/scale$X A=$xT/POTENTIEL \ #
# $Z a=0.30 \ #
# $Z R=$xT/POTENTIEL$ROUGE \ #
# $Z $formatI #
# $Z $xci/scale$X A=$xT/POTENTIEL \ #
# $Z a=0.30 \ #
# $Z R=$xT/POTENTIEL$VERTE \ #
# $Z $formatI #
# $Z $xci/scale$X A=$xT/POTENTIEL \ #
# $Z a=0.30 \ #
# $Z R=$xT/POTENTIEL$BLEUE \ #
# $Z $formatI #
# #
# $X $xci/genere$X premiere=$NimageZ derniere=$Nimages pas=1 \ #
# $X C='$xci/vitre.53$Z \ #
# $X $xw1/RDNW.N.%04d \ #
# $X $xT/POTENTIEL \ #
# $X $xw1/RDNW.N.%04d' #
# #
# #
# $Z $DELETE $xT/POTENTIEL* #
# $Z $DELETE $xT/PROBABILITE #
# #
# $Z Pal #
# #
# $Z $xci/reduction_16$Z $xw1/RDNW.N. $xiak/RDNW.71 1 32 #
# $Z $xci/reduction_64$Z $xw1/RDNW.N. $xiak/RDNW.71 1 8 #
# #
# $Z $CP $xw1/RDNW.N.0512$ROUGE $xiirk/RDNW.71.0512$ROUGE #
# $Z $CP $xw1/RDNW.N.0512$VERTE $xiirk/RDNW.71.0512$VERTE #
# $Z $CP $xw1/RDNW.N.0512$BLEUE $xiirk/RDNW.71.0512$BLEUE #
# #
# $Z ro $xiak/RDNW.71$R16$ROUGE #
# $Z ro $xiak/RDNW.71$R16$VERTE #
# $Z ro $xiak/RDNW.71$R16$BLEUE #
# #
# $Z ro $xiak/RDNW.71$R64$ROUGE #
# $Z ro $xiak/RDNW.71$R64$VERTE #
# $Z ro $xiak/RDNW.71$R64$BLEUE #
# #
# $Z $xcg/unite$Z $xiak/RDNW.71$R16$ROUGE #
# $Z $xcg/unite$Z $xiak/RDNW.71$R16$VERTE #
# $Z $xcg/unite$Z $xiak/RDNW.71$R16$BLEUE #
# #
# $Z $xcg/unite$Z $xiak/RDNW.71$R64$ROUGE #
# $Z $xcg/unite$Z $xiak/RDNW.71$R64$VERTE #
# $Z $xcg/unite$Z $xiak/RDNW.71$R64$BLEUE #
# #
# $Z ro $xiirk/RDNW.71.0512$ROUGE #
# $Z ro $xiirk/RDNW.71.0512$VERTE #
# $Z ro $xiirk/RDNW.71.0512$BLEUE #
# #
# $Z $xcg/unite$Z $xiirk/RDNW.71.0512$ROUGE #
# $Z $xcg/unite$Z $xiirk/RDNW.71.0512$VERTE #
# $Z $xcg/unite$Z $xiirk/RDNW.71.0512$BLEUE #
# #
# #
# Pal #
# #
# $xci/disk_video_P$Z $xw1/RDNW.N. 1 512 RVB \ #
# 9 1 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
# #
# xivPdf 3 2 #
# #
# record.01$Z $xiak/RDNW.71$R16 RVB Initialisation #
# record.01$Z $xiak/RDNW.71$R64 RVB rien #
# #
# record.01$Z $xiirk/RDNW.71.0512 RVB rien #
# #
sequence 027161_027672
sequence 027673_028184
sequence 028185_028278
sequence 028279_028696
# Generee par : #
# #
# $Z SET Nimages=512 #
# #
# $Z Pal #
# #
# $c #define N0 1 #
# $c #define N Nimages #
# #
# $c int main() #
# $c { #
# $c int n; #
# #
# $c for (n=N0 ; n<=N ; n++) #
# $c { #
# $c printf("$xci/format.01$X #
# $c A=$xw1/RDNW.N.%04d$ROUGE #
# $c mode=7 #
# $c $formatI #
# $c $formatR_Std | #
# $c $xci/filtre.01$X #
# $c N=$xiio/GAUSS.8110 #
# $c seuil=251 #
# $c R=$xw1/RDNW.O.%04d$ROUGE #
# $c $format_Std\n" #
# $c ,n,n #
# $c ); #
# $c printf("$xci/format.01$X #
# $c A=$xw1/RDNW.N.%04d$VERTE #
# $c mode=7 #
# $c $formatI #
# $c $formatR_Std | #
# $c $xci/filtre.01$X #
# $c N=$xiio/GAUSS.8110 #
# $c seuil=251 #
# $c R=$xw1/RDNW.O.%04d$VERTE #
# $c $format_Std\n" #
# $c ,n,n #
# $c ); #
# $c printf("$xci/format.01$X #
# $c A=$xw1/RDNW.N.%04d$BLEUE #
# $c mode=7 #
# $c $formatI #
# $c $formatR_Std | #
# $c $xci/filtre.01$X #
# $c N=$xiio/GAUSS.8110 #
# $c seuil=251 #
# $c R=$xw1/RDNW.O.%04d$BLEUE #
# $c $format_Std\n" #
# $c ,n,n #
# $c ); #
# $c printf("$DELETE $xw1/RDNW.N.%04d$ROUGE\n" #
# $c ,n #
# $c ); #
# $c printf("$DELETE $xw1/RDNW.N.%04d$VERTE\n" #
# $c ,n #
# $c ); #
# $c printf("$DELETE $xw1/RDNW.N.%04d$BLEUE\n" #
# $c ,n #
# $c ); #
# $c } #
# $c } #
# #
# $Z Std #
# #
# $Z $xci/reduction_16$Z $xw1/RDNW.O. $xiak/RDNW.71$Fi 1 32 #
# $Z $xci/reduction_64$Z $xw1/RDNW.O. $xiak/RDNW.71$Fi 1 8 #
# #
# #
# $Z ro $xiak/RDNW.71$Fi$R16$ROUGE #
# $Z ro $xiak/RDNW.71$Fi$R16$VERTE #
# $Z ro $xiak/RDNW.71$Fi$R16$BLEUE #
# #
# $Z ro $xiak/RDNW.71$Fi$R64$ROUGE #
# $Z ro $xiak/RDNW.71$Fi$R64$VERTE #
# $Z ro $xiak/RDNW.71$Fi$R64$BLEUE #
# #
# $Z $xcg/unite$Z $xiak/RDNW.71$Fi$R16$ROUGE #
# $Z $xcg/unite$Z $xiak/RDNW.71$Fi$R16$VERTE #
# $Z $xcg/unite$Z $xiak/RDNW.71$Fi$R16$BLEUE #
# #
# $Z $xcg/unite$Z $xiak/RDNW.71$Fi$R64$ROUGE #
# $Z $xcg/unite$Z $xiak/RDNW.71$Fi$R64$VERTE #
# $Z $xcg/unite$Z $xiak/RDNW.71$Fi$R64$BLEUE #
# #
# #
# Std #
# #
# $xci/disk_video_P$Z $xw1/RDNW.O. 1 512 RVB \ #
# 9 1 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# $xci/disk_video_P$Z "$xw1/RDNW.O. $VERTE" 1 512 $xiP/fractal.11 \ #
# 9 1 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# $xci/disk_video_P$Z "$xw1/RDNW.O. $VERTE" 1 512 $xiP/orange.11 \ #
# 9 1 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
# #
# xivPdf 3 2 #
# #
# record.01$Z $xiak/RDNW.71$Fi$R16 RVB Initialisation #
# record.01$Z $xiak/RDNW.71$Fi$R64 RVB rien #
# #
# ATTENTION, le dernier enregistrement a ete interrompu car j'avais oublie de demander #
# l'ejection a la fin... #
sequence 028697_029208
sequence 029209_029720
sequence 029721_030232
# Generee par : #
# #
# $Z SET Nimages=512 #
# #
# $Z Std #
# #
# $c #define N0 1 #
# $c #define N Nimages #
# #
# $c int main() #
# $c { #
# $c int n; #
# #
# $c for (n=N0 ; n<=N ; n++) #
# $c { #
# $c printf("$xci/un_sur_z.01$X #
# $c A=$xw1/RDNW.O.%04d$VERTE #
# $c $formatI | #
# $c $xci/filtre.01$X #
# $c N=$xiio/GAUSS.8110 #
# $c seuil=251 #
# $c R=$xw1/RDNW.P.%04d #
# $c $formatI\n" #
# $c ,n,n #
# $c ); #
# $c printf("$xci/z_carre.01$X #
# $c A=$xw1/RDNW.O.%04d$VERTE #
# $c R=$xw1/RDNW.Q.%04d #
# $c $formatI\n" #
# $c ,n,n #
# $c ); #
# $c } #
# $c } #
# #
# #
# $Z Std #
# #
# $Z $xci/reduction_16$X A=$xw1/RDNW.P. premiere=1 pas=32 \ #
# $Z R=$xiak/RDNW.72.1$R16 \ #
# $Z $formatI #
# $Z $xci/reduction_64$X A=$xw1/RDNW.P. premiere=1 pas=8 \ #
# $Z R=$xiak/RDNW.72.1$R64 \ #
# $Z $formatI #
# #
# $Z $xci/reduction_16$X A=$xw1/RDNW.Q. premiere=1 pas=32 \ #
# $Z R=$xiak/RDNW.72.2$R16 \ #
# $Z $formatI #
# $Z $xci/reduction_64$X A=$xw1/RDNW.Q. premiere=1 pas=8 \ #
# $Z R=$xiak/RDNW.72.2$R64 \ #
# $Z $formatI #
# #
# #
# $Z ro $xiak/RDNW.72.1$R16 #
# $Z ro $xiak/RDNW.72.1$R64 #
# #
# $Z ro $xiak/RDNW.72.2$R16 #
# $Z ro $xiak/RDNW.72.2$R64 #
# #
# $Z $xcg/unite$Z $xiak/RDNW.72.1$R16 #
# $Z $xcg/unite$Z $xiak/RDNW.72.1$R64 #
# #
# $Z $xcg/unite$Z $xiak/RDNW.72.2$R16 #
# $Z $xcg/unite$Z $xiak/RDNW.72.2$R64 #
# #
# #
# Std #
# #
# $xci/disk_video_P$Z $xw1/RDNW.P. 1 512 $xiP/fractal.11 \ #
# 9 1 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz FAUX FAUX FAUX #
# $xci/disk_video_P$Z $xw1/RDNW.P. 1 512 $xiP/orange.11 \ #
# 9 1 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz FAUX FAUX FAUX #
# $xci/disk_video_P$Z $xw1/RDNW.Q. 1 512 $xiP/fractal.11 \ #
# 9 1 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz FAUX FAUX VRAI #
# #
# #
# xivPdf 3 2 #
# #
# record.01$Z $xiak/RDNW.72.1$R16 $xiP/fractal.11 Initialisation #
# record.01$Z $xiak/RDNW.72.1$R16 $xiP/orange.11 rien #
# record.01$Z $xiak/RDNW.72.1$R64 $xiP/fractal.11 rien #
# record.01$Z $xiak/RDNW.72.1$R64 $xiP/orange.11 rien #
# record.01$Z $xiak/RDNW.72.2$R16 $xiP/fractal.11 rien #
# record.01$Z $xiak/RDNW.72.2$R64 $xiP/fractal.11 rien #
# #
sequence 030233_030360
# Generee par : #
# #
# #
# $Z SET Nimages=128 #
# #
# $Z set NcorpsS=3 #
# #
# $Z $DELETE $xT/ROTATION$COORD_X #
# $Z $xci/valeurs_inte$X p=1 d=$Nimages vD=0 vA=0 cubique=VRAI > $xT/ROTATION$COORD_X #
# #
# $Z alias genere '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 genere $xT/MASSES +2.0e30 +6.4e23 +60.5e23 #
# $Z genere $xT/RAYONS 2.2e10 1.5e10 1.5e10 #
# $Z genere $xT/COULEURS$ROUGE $GRIS_8 $GRIS_8 $GRIS_0 #
# $Z genere $xT/COULEURS$VERTE $GRIS_8 $GRIS_4 $GRIS_6 #
# $Z genere $xT/COULEURS$BLEUE $GRIS_0 $GRIS_2 $GRIS_8 #
# #
# $Z Pal #
# #
# #
# $c #define N0 1 #
# $c #define N Nimages #
# #
# $c extern double sqrt(); #
# #
# $c int main() #
# $c { #
# $c double Fcentre=(0.05e11/2.04e+11); #
# #
# $c double XcentreD=-2.04e+11; #
# $c double XcentreA; #
# #
# $c double YcentreD=+1.0e3; #
# $c double YcentreA; #
# #
# $c double ZcentreD=+1.0e3; #
# $c double ZcentreA; #
# #
# $c double XvitessD=0; #
# #
# $c double YvitessD=-2.57e+4; #
# #
# $c double ZvitessD=0; #
# #
# $c int n; #
# #
# $c XcentreA=Fcentre*XcentreD; #
# $c YcentreA=Fcentre*YcentreD; #
# $c ZcentreA=Fcentre*ZcentreD; #
# #
# $c for (n=N0 ; n<=N ; n++) #
# $c { #
# $c double Xcentre; #
# $c double Ycentre; #
# $c double Zcentre; #
# #
# $c double Xvitess; #
# $c double Yvitess; #
# $c double Zvitess; #
# #
# $c Xcentre=((XcentreA*(n-N0))+(XcentreD*(N-n)))/(N-N0); #
# $c Ycentre=((YcentreA*(n-N0))+(YcentreD*(N-n)))/(N-N0); #
# $c Zcentre=((ZcentreA*(n-N0))+(ZcentreD*(N-n)))/(N-N0); #
# #
# $c Xvitess=XvitessD*sqrt(XcentreD/Xcentre); #
# $c Yvitess=YvitessD*sqrt(YcentreD/Ycentre); #
# $c Zvitess=ZvitessD*sqrt(ZcentreD/Zcentre); #
# #
# $c printf("genere #
# $c $xT/COORDONNEES$COORD_X #
# $c +1.0e3 %+g %+g\n" #
# $c ,XcentreD,Xcentre #
# $c ); #
# $c printf("genere #
# $c $xT/COORDONNEES$COORD_Y #
# $c +1.0e3 %+g %+g\n" #
# $c ,YcentreD,Ycentre #
# $c ); #
# $c printf("genere #
# $c $xT/COORDONNEES$COORD_Z #
# $c +1.0e3 %+g %+g\n" #
# $c ,ZcentreD,Zcentre #
# $c ); #
# #
# $c printf("genere #
# $c $xT/VITESSES$COORD_X #
# $c 0 %+g %+g\n" #
# $c ,XvitessD,Xvitess #
# $c ); #
# $c printf("genere #
# $c $xT/VITESSES$COORD_Y #
# $c 0 %+g %+g\n" #
# $c ,YvitessD,Zvitess #
# $c ); #
# $c printf("genere #
# $c $xT/VITESSES$COORD_Z #
# $c 0 %+g %+g\n" #
# $c ,ZvitessD,Yvitess #
# $c ); #
# #
# $c printf("$xrr/N_corps.11$X #
# $c corps=$NcorpsS #
# $c np=$Nimages #
# $c LISTE_X=$xT/COORDONNEES$COORD_X #
# $c LISTE_Y=$xT/COORDONNEES$COORD_Y #
# $c LISTE_Z=$xT/COORDONNEES$COORD_Z #
# $c LISTE_VX=$xT/VITESSES$COORD_X #
# $c LISTE_VY=$xT/VITESSES$COORD_Y #
# $c LISTE_VZ=$xT/VITESSES$COORD_Z #
# $c LISTE_MASSE=$xT/MASSES #
# $c LISTE_RAYON=$xT/RAYONS #
# $c LISTE_ROUGE=$xT/COULEURS$ROUGE #
# $c LISTE_VERTE=$xT/COULEURS$VERTE #
# $c LISTE_BLEUE=$xT/COULEURS$BLEUE #
# $c centrer=FAUX reference=1 #
# $c dct=100 #
# $c 2_a_2=FAUX source=1 #
# $c nombre=4000 #
# $c ensemble=VRAI #
# $c Ranterieurs=0.5 #
# $c trainees=FAUX #
# $c renormaliser=FAUX #
# $c TRANSLATION_OX=0 #
# $c TRANSLATION_OY=0 #
# $c ROTATION_OX=$xT/ROTATION$COORD_X #
# $c ZOOM=4.0 #
# $c fond=FAUX #
# $c pV=%d #
# $c R=$xw11/NCOR.Z. #
# $c $formatI\n" #
# $c ,N #
# $c ); #
# $c printf("$MV $xw11/NCOR.Z.%04d$ROUGE #
# $c $xw12/NCOR.Z.%04d$ROUGE\n" #
# $c ,N,n #
# $c ); #
# $c printf("$MV $xw11/NCOR.Z.%04d$VERTE #
# $c $xw12/NCOR.Z.%04d$VERTE\n" #
# $c ,N,n #
# $c ); #
# $c printf("$MV $xw11/NCOR.Z.%04d$BLEUE #
# $c $xw12/NCOR.Z.%04d$BLEUE\n" #
# $c ,N,n #
# $c ); #
# #
# $c printf("$DELETE $xT/COORDONNEES$COORD_X\n"); #
# $c printf("$DELETE $xT/COORDONNEES$COORD_Y\n"); #
# $c printf("$DELETE $xT/COORDONNEES$COORD_Z\n"); #
# #
# $c printf("$DELETE $xT/VITESSES$COORD_X\n"); #
# $c printf("$DELETE $xT/VITESSES$COORD_Y\n"); #
# $c printf("$DELETE $xT/VITESSES$COORD_Z\n"); #
# $c } #
# $c } #
# #
# $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/ROTATION$COORD_X #
# #
# #
# $Z Pal #
# #
# $Z $xci/reduction_16$Z $xw12/NCOR.Z. $xiak/NCOR.P9 1 8 #
# $Z $xci/reduction_64$Z $xw12/NCOR.Z. $xiak/NCOR.P9 1 2 #
# #
# $Z ro $xiak/NCOR.P9$R16$ROUGE #
# $Z ro $xiak/NCOR.P9$R16$VERTE #
# $Z ro $xiak/NCOR.P9$R16$BLEUE #
# #
# $Z ro $xiak/NCOR.P9$R64$ROUGE #
# $Z ro $xiak/NCOR.P9$R64$VERTE #
# $Z ro $xiak/NCOR.P9$R64$BLEUE #
# #
# $Z $xcg/unite$Z $xiak/NCOR.P9$R16$ROUGE #
# $Z $xcg/unite$Z $xiak/NCOR.P9$R16$VERTE #
# $Z $xcg/unite$Z $xiak/NCOR.P9$R16$BLEUE #
# #
# $Z $xcg/unite$Z $xiak/NCOR.P9$R64$ROUGE #
# $Z $xcg/unite$Z $xiak/NCOR.P9$R64$VERTE #
# $Z $xcg/unite$Z $xiak/NCOR.P9$R64$BLEUE #
# #
# #
# Pal #
# #
# $xci/disk_video_P$Z $xw12/NCOR.Z. 001 128 RVB \ #
# 9 1 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
# #
# xivPdf 3 2 #
# #
# record.01$Z $xiak/NCOR.P9$R16 RVB Initialisation #
# record.01$Z $xiak/NCOR.P9$R64 RVB rien #
# #
sequence 030361_030872
# Generee par : #
# #
# #
# $Z SET Nimages=512 #
# #
# $Z set NcorpsS=3 #
# #
# $Z $DELETE $xT/ROTATION$COORD_X #
# $Z $xci/valeurs_inte$X p=1 d=$Nimages vD=0 vA=0 cubique=VRAI > $xT/ROTATION$COORD_X #
# #
# $Z alias genere '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 genere $xT/MASSES +2.0e30 +6.4e23 +60.5e23 #
# $Z genere $xT/RAYONS 2.2e10 1.5e10 1.5e10 #
# $Z genere $xT/COULEURS$ROUGE $GRIS_8 $GRIS_8 $GRIS_0 #
# $Z genere $xT/COULEURS$VERTE $GRIS_8 $GRIS_4 $GRIS_6 #
# $Z genere $xT/COULEURS$BLEUE $GRIS_0 $GRIS_2 $GRIS_8 #
# #
# $Z Pal #
# #
# #
# $c #define N0 1 #
# $c #define N Nimages #
# #
# $c extern double sqrt(); #
# #
# $c int main() #
# $c { #
# $c double Fcentre=(0.05e11/2.04e+11); #
# #
# $c double XcentreD=-2.04e+11; #
# $c double XcentreA; #
# #
# $c double YcentreD=+1.0e3; #
# $c double YcentreA; #
# #
# $c double ZcentreD=+1.0e3; #
# $c double ZcentreA; #
# #
# $c double XvitessD=0; #
# #
# $c double YvitessD=-2.57e+4; #
# #
# $c double ZvitessD=0; #
# #
# $c int n; #
# #
# $c XcentreA=Fcentre*XcentreD; #
# $c YcentreA=Fcentre*YcentreD; #
# $c ZcentreA=Fcentre*ZcentreD; #
# #
# $c for (n=N0 ; n<=N ; n++) #
# $c { #
# $c double Xcentre; #
# $c double Ycentre; #
# $c double Zcentre; #
# #
# $c double Xvitess; #
# $c double Yvitess; #
# $c double Zvitess; #
# #
# $c Xcentre=((XcentreA*(n-N0))+(XcentreD*(N-n)))/(N-N0); #
# $c Ycentre=((YcentreA*(n-N0))+(YcentreD*(N-n)))/(N-N0); #
# $c Zcentre=((ZcentreA*(n-N0))+(ZcentreD*(N-n)))/(N-N0); #
# #
# $c Xvitess=XvitessD*sqrt(XcentreD/Xcentre); #
# $c Yvitess=YvitessD*sqrt(YcentreD/Ycentre); #
# $c Zvitess=ZvitessD*sqrt(ZcentreD/Zcentre); #
# #
# $c printf("genere #
# $c $xT/COORDONNEES$COORD_X #
# $c +1.0e3 %+g %+g\n" #
# $c ,XcentreD,Xcentre #
# $c ); #
# $c printf("genere #
# $c $xT/COORDONNEES$COORD_Y #
# $c +1.0e3 %+g %+g\n" #
# $c ,YcentreD,Ycentre #
# $c ); #
# $c printf("genere #
# $c $xT/COORDONNEES$COORD_Z #
# $c +1.0e3 %+g %+g\n" #
# $c ,ZcentreD,Zcentre #
# $c ); #
# #
# $c printf("genere #
# $c $xT/VITESSES$COORD_X #
# $c 0 %+g %+g\n" #
# $c ,XvitessD,Xvitess #
# $c ); #
# $c printf("genere #
# $c $xT/VITESSES$COORD_Y #
# $c 0 %+g %+g\n" #
# $c ,YvitessD,Zvitess #
# $c ); #
# $c printf("genere #
# $c $xT/VITESSES$COORD_Z #
# $c 0 %+g %+g\n" #
# $c ,ZvitessD,Yvitess #
# $c ); #
# #
# $c printf("$xrr/N_corps.11$X #
# $c corps=$NcorpsS #
# $c np=$Nimages #
# $c LISTE_X=$xT/COORDONNEES$COORD_X #
# $c LISTE_Y=$xT/COORDONNEES$COORD_Y #
# $c LISTE_Z=$xT/COORDONNEES$COORD_Z #
# $c LISTE_VX=$xT/VITESSES$COORD_X #
# $c LISTE_VY=$xT/VITESSES$COORD_Y #
# $c LISTE_VZ=$xT/VITESSES$COORD_Z #
# $c LISTE_MASSE=$xT/MASSES #
# $c LISTE_RAYON=$xT/RAYONS #
# $c LISTE_ROUGE=$xT/COULEURS$ROUGE #
# $c LISTE_VERTE=$xT/COULEURS$VERTE #
# $c LISTE_BLEUE=$xT/COULEURS$BLEUE #
# $c centrer=FAUX reference=3 #
# $c dct=100 #
# $c 2_a_2=FAUX source=1 #
# $c nombre=1000 #
# $c ensemble=VRAI #
# $c Ranterieurs=0.5 #
# $c trainees=FAUX #
# $c renormaliser=FAUX #
# $c TRANSLATION_OX=0 #
# $c TRANSLATION_OY=0 #
# $c ROTATION_OX=$xT/ROTATION$COORD_X #
# $c ZOOM=4.0 #
# $c fond=FAUX #
# $c pV=%d #
# $c R=$xw11/NCOR.a. #
# $c $formatI\n" #
# $c ,N #
# $c ); #
# $c printf("$MV $xw11/NCOR.a.%04d$ROUGE #
# $c $xw12/NCOR.a.%04d$ROUGE\n" #
# $c ,N,n #
# $c ); #
# $c printf("$MV $xw11/NCOR.a.%04d$VERTE #
# $c $xw12/NCOR.a.%04d$VERTE\n" #
# $c ,N,n #
# $c ); #
# $c printf("$MV $xw11/NCOR.a.%04d$BLEUE #
# $c $xw12/NCOR.a.%04d$BLEUE\n" #
# $c ,N,n #
# $c ); #
# #
# $c printf("$DELETE $xT/COORDONNEES$COORD_X\n"); #
# $c printf("$DELETE $xT/COORDONNEES$COORD_Y\n"); #
# $c printf("$DELETE $xT/COORDONNEES$COORD_Z\n"); #
# #
# $c printf("$DELETE $xT/VITESSES$COORD_X\n"); #
# $c printf("$DELETE $xT/VITESSES$COORD_Y\n"); #
# $c printf("$DELETE $xT/VITESSES$COORD_Z\n"); #
# $c } #
# $c } #
# #
# $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/ROTATION$COORD_X #
# #
# #
# $Z Pal #
# #
# $Z $xci/reduction_16$Z $xw12/NCOR.a. $xiak/NCOR.P3 1 32 #
# $Z $xci/reduction_64$Z $xw12/NCOR.a. $xiak/NCOR.P3 1 8 #
# #
# $Z ro $xiak/NCOR.P3$R16$ROUGE #
# $Z ro $xiak/NCOR.P3$R16$VERTE #
# $Z ro $xiak/NCOR.P3$R16$BLEUE #
# #
# $Z ro $xiak/NCOR.P3$R64$ROUGE #
# $Z ro $xiak/NCOR.P3$R64$VERTE #
# $Z ro $xiak/NCOR.P3$R64$BLEUE #
# #
# $Z $xcg/unite$Z $xiak/NCOR.P3$R16$ROUGE #
# $Z $xcg/unite$Z $xiak/NCOR.P3$R16$VERTE #
# $Z $xcg/unite$Z $xiak/NCOR.P3$R16$BLEUE #
# #
# $Z $xcg/unite$Z $xiak/NCOR.P3$R64$ROUGE #
# $Z $xcg/unite$Z $xiak/NCOR.P3$R64$VERTE #
# $Z $xcg/unite$Z $xiak/NCOR.P3$R64$BLEUE #
# #
# #
# Pal #
# #
# $xci/disk_video_P$Z $xw12/NCOR.a. 001 512 RVB \ #
# 9 1 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz FAUX FAUX VRAI #
# #
# #
# xivPdf 3 2 #
# #
# record.01$Z $xiak/NCOR.P3$R16 RVB Initialisation #
# record.01$Z $xiak/NCOR.P3$R64 RVB rien #
# #
sequence 030873_031000
# Generee par : #
# #
# #
# $Z SET Nimages=128 #
# #
# $Z set NcorpsS=3 #
# #
# $Z $DELETE $xT/ROTATION$COORD_X #
# $Z $xci/valeurs_inte$X p=1 d=$Nimages vD=0 vA=0 cubique=VRAI > $xT/ROTATION$COORD_X #
# #
# $Z alias genere '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 genere $xT/MASSES +2.0e30 +6.4e23 +60.5e23 #
# $Z genere $xT/RAYONS 2.2e10 1.5e10 1.5e10 #
# $Z genere $xT/COULEURS$ROUGE $GRIS_8 $GRIS_8 $GRIS_0 #
# $Z genere $xT/COULEURS$VERTE $GRIS_8 $GRIS_4 $GRIS_6 #
# $Z genere $xT/COULEURS$BLEUE $GRIS_0 $GRIS_2 $GRIS_8 #
# #
# $Z Pal #
# #
# #
# $c #define N0 1 #
# $c #define N Nimages #
# #
# $c extern double cos(); #
# $c extern double sin(); #
# $c extern double sqrt(); #
# #
# $c int main() #
# $c { #
# $c double XcentreD=-2.04e+11; #
# $c double XcentreA=-1.0215e+11; #
# #
# $c double YcentreD=+1.0e3; #
# $c double YcentreA=+1.0e3; #
# #
# $c double ZcentreD=+1.0e3; #
# $c double ZcentreA=+1.0e3; #
# #
# $c double XvitessD=0; #
# $c double XvitessA=0; #
# #
# $c double YvitessD=-2.57e+4; #
# $c double YvitessA=-36318.7; #
# #
# $c double ZvitessD=0; #
# $c double ZvitessA=0; #
# #
# $c int n; #
# #
# $c double thetaD=0; #
# $c double thetaA=2*3.1415926535897932; #
# #
# $c for (n=N0 ; n<=N ; n++) #
# $c { #
# $c double Xcentre; #
# $c double Ycentre; #
# $c double Zcentre; #
# #
# $c double Xvitess; #
# $c double Yvitess; #
# $c double Zvitess; #
# #
# $c double theta; #
# #
# $c theta=((thetaA*(n-N0))+(thetaD*(N-n)))/(N-N0); #
# #
# $c Xcentre=+(XcentreA*cos(theta))+(ZcentreA*sin(theta)); #
# $c Ycentre=((YcentreA*(n-N0))+(YcentreD*(N-n)))/(N-N0); #
# $c Zcentre=-(XcentreA*sin(theta))+(ZcentreA*cos(theta)); #
# #
# $c printf("genere #
# $c $xT/COORDONNEES$COORD_X #
# $c +1.0e3 %+g %+g\n" #
# $c ,XcentreD,Xcentre #
# $c ); #
# $c printf("genere #
# $c $xT/COORDONNEES$COORD_Y #
# $c +1.0e3 %+g %+g\n" #
# $c ,YcentreD,Ycentre #
# $c ); #
# $c printf("genere #
# $c $xT/COORDONNEES$COORD_Z #
# $c +1.0e3 %+g %+g\n" #
# $c ,ZcentreD,Zcentre #
# $c ); #
# #
# $c printf("genere #
# $c $xT/VITESSES$COORD_X #
# $c 0 %+g %+g\n" #
# $c ,XvitessD,XvitessA #
# $c ); #
# $c printf("genere #
# $c $xT/VITESSES$COORD_Y #
# $c 0 %+g %+g\n" #
# $c ,YvitessD,YvitessA #
# $c ); #
# $c printf("genere #
# $c $xT/VITESSES$COORD_Z #
# $c 0 %+g %+g\n" #
# $c ,ZvitessD,ZvitessA #
# $c ); #
# #
# $c printf("$xrr/N_corps.11$X #
# $c corps=$NcorpsS #
# $c np=$Nimages #
# $c LISTE_X=$xT/COORDONNEES$COORD_X #
# $c LISTE_Y=$xT/COORDONNEES$COORD_Y #
# $c LISTE_Z=$xT/COORDONNEES$COORD_Z #
# $c LISTE_VX=$xT/VITESSES$COORD_X #
# $c LISTE_VY=$xT/VITESSES$COORD_Y #
# $c LISTE_VZ=$xT/VITESSES$COORD_Z #
# $c LISTE_MASSE=$xT/MASSES #
# $c LISTE_RAYON=$xT/RAYONS #
# $c LISTE_ROUGE=$xT/COULEURS$ROUGE #
# $c LISTE_VERTE=$xT/COULEURS$VERTE #
# $c LISTE_BLEUE=$xT/COULEURS$BLEUE #
# $c centrer=FAUX reference=1 #
# $c dct=100 #
# $c 2_a_2=FAUX source=1 #
# $c nombre=4000 #
# $c ensemble=VRAI #
# $c Ranterieurs=0.5 #
# $c trainees=FAUX #
# $c renormaliser=FAUX #
# $c TRANSLATION_OX=0 #
# $c TRANSLATION_OY=0 #
# $c ROTATION_OX=$xT/ROTATION$COORD_X #
# $c ZOOM=4.0 #
# $c fond=FAUX #
# $c pV=%d #
# $c R=$xw11/NCOR.b. #
# $c $formatI\n" #
# $c ,N #
# $c ); #
# $c printf("$MV $xw11/NCOR.b.%04d$ROUGE #
# $c $xw12/NCOR.b.%04d$ROUGE\n" #
# $c ,N,n #
# $c ); #
# $c printf("$MV $xw11/NCOR.b.%04d$VERTE #
# $c $xw12/NCOR.b.%04d$VERTE\n" #
# $c ,N,n #
# $c ); #
# $c printf("$MV $xw11/NCOR.b.%04d$BLEUE #
# $c $xw12/NCOR.b.%04d$BLEUE\n" #
# $c ,N,n #
# $c ); #
# #
# $c printf("$DELETE $xT/COORDONNEES$COORD_X\n"); #
# $c printf("$DELETE $xT/COORDONNEES$COORD_Y\n"); #
# $c printf("$DELETE $xT/COORDONNEES$COORD_Z\n"); #
# #
# $c printf("$DELETE $xT/VITESSES$COORD_X\n"); #
# $c printf("$DELETE $xT/VITESSES$COORD_Y\n"); #
# $c printf("$DELETE $xT/VITESSES$COORD_Z\n"); #
# $c } #
# $c } #
# #
# $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/ROTATION$COORD_X #
# #
# #
# $Z Pal #
# #
# $Z $xci/reduction_16$Z $xw12/NCOR.b. $xiak/NCOR.Q9 1 8 #
# $Z $xci/reduction_64$Z $xw12/NCOR.b. $xiak/NCOR.Q9 1 2 #
# #
# $Z ro $xiak/NCOR.Q9$R16$ROUGE #
# $Z ro $xiak/NCOR.Q9$R16$VERTE #
# $Z ro $xiak/NCOR.Q9$R16$BLEUE #
# #
# $Z ro $xiak/NCOR.Q9$R64$ROUGE #
# $Z ro $xiak/NCOR.Q9$R64$VERTE #
# $Z ro $xiak/NCOR.Q9$R64$BLEUE #
# #
# $Z $xcg/unite$Z $xiak/NCOR.Q9$R16$ROUGE #
# $Z $xcg/unite$Z $xiak/NCOR.Q9$R16$VERTE #
# $Z $xcg/unite$Z $xiak/NCOR.Q9$R16$BLEUE #
# #
# $Z $xcg/unite$Z $xiak/NCOR.Q9$R64$ROUGE #
# $Z $xcg/unite$Z $xiak/NCOR.Q9$R64$VERTE #
# $Z $xcg/unite$Z $xiak/NCOR.Q9$R64$BLEUE #
# #
# #
# Pal #
# #
# $xci/disk_video_P$Z $xw12/NCOR.b. 001 128 RVB \ #
# 9 1 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
# #
# xivPdf 3 2 #
# #
# record.01$Z $xiak/NCOR.Q9$R16 RVB Initialisation #
# record.01$Z $xiak/NCOR.Q9$R64 RVB rien #
# #
sequence 031001_031512
# Generee par : #
# #
# #
# $Z SET Nimages=512 #
# #
# $Z set NcorpsS=3 #
# #
# $Z $DELETE $xT/ROTATION$COORD_X #
# $Z $xci/valeurs_inte$X p=1 d=$Nimages vD=0 vA=0 cubique=VRAI > $xT/ROTATION$COORD_X #
# #
# $Z alias genere '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 genere $xT/MASSES +2.0e30 +6.4e23 +60.5e23 #
# $Z genere $xT/RAYONS 2.2e10 1.5e10 1.5e10 #
# $Z genere $xT/COULEURS$ROUGE $GRIS_8 $GRIS_8 $GRIS_0 #
# $Z genere $xT/COULEURS$VERTE $GRIS_8 $GRIS_4 $GRIS_6 #
# $Z genere $xT/COULEURS$BLEUE $GRIS_0 $GRIS_2 $GRIS_8 #
# #
# $Z Pal #
# #
# #
# $c #define N0 1 #
# $c #define N Nimages #
# #
# $c extern double cos(); #
# $c extern double sin(); #
# $c extern double sqrt(); #
# #
# $c int main() #
# $c { #
# $c double XcentreD=-2.04e+11; #
# $c double XcentreA=-1.0215e+11; #
# #
# $c double YcentreD=+1.0e3; #
# $c double YcentreA=+1.0e3; #
# #
# $c double ZcentreD=+1.0e3; #
# $c double ZcentreA=+1.0e3; #
# #
# $c double XvitessD=0; #
# $c double XvitessA=0; #
# #
# $c double YvitessD=-2.57e+4; #
# $c double YvitessA=-36318.7; #
# #
# $c double ZvitessD=0; #
# $c double ZvitessA=0; #
# #
# $c int n; #
# #
# $c double thetaD=0; #
# $c double thetaA=2*3.1415926535897932; #
# #
# $c for (n=N0 ; n<=N ; n++) #
# $c { #
# $c double Xcentre; #
# $c double Ycentre; #
# $c double Zcentre; #
# #
# $c double Xvitess; #
# $c double Yvitess; #
# $c double Zvitess; #
# #
# $c double theta; #
# #
# $c theta=((thetaA*(n-N0))+(thetaD*(N-n)))/(N-N0); #
# #
# $c Xcentre=+(XcentreA*cos(theta))+(YcentreA*sin(theta)); #
# $c Ycentre=((YcentreA*(n-N0))+(YcentreD*(N-n)))/(N-N0); #
# $c Zcentre=-(XcentreA*sin(theta))+(ZcentreA*cos(theta)); #
# #
# $c printf("genere #
# $c $xT/COORDONNEES$COORD_X #
# $c +1.0e3 %+g %+g\n" #
# $c ,XcentreD,Xcentre #
# $c ); #
# $c printf("genere #
# $c $xT/COORDONNEES$COORD_Y #
# $c +1.0e3 %+g %+g\n" #
# $c ,YcentreD,Ycentre #
# $c ); #
# $c printf("genere #
# $c $xT/COORDONNEES$COORD_Z #
# $c +1.0e3 %+g %+g\n" #
# $c ,ZcentreD,Zcentre #
# $c ); #
# #
# $c printf("genere #
# $c $xT/VITESSES$COORD_X #
# $c 0 %+g %+g\n" #
# $c ,XvitessD,XvitessA #
# $c ); #
# $c printf("genere #
# $c $xT/VITESSES$COORD_Y #
# $c 0 %+g %+g\n" #
# $c ,YvitessD,YvitessA #
# $c ); #
# $c printf("genere #
# $c $xT/VITESSES$COORD_Z #
# $c 0 %+g %+g\n" #
# $c ,ZvitessD,ZvitessA #
# $c ); #
# #
# $c printf("$xrr/N_corps.11$X #
# $c corps=$NcorpsS #
# $c np=$Nimages #
# $c LISTE_X=$xT/COORDONNEES$COORD_X #
# $c LISTE_Y=$xT/COORDONNEES$COORD_Y #
# $c LISTE_Z=$xT/COORDONNEES$COORD_Z #
# $c LISTE_VX=$xT/VITESSES$COORD_X #
# $c LISTE_VY=$xT/VITESSES$COORD_Y #
# $c LISTE_VZ=$xT/VITESSES$COORD_Z #
# $c LISTE_MASSE=$xT/MASSES #
# $c LISTE_RAYON=$xT/RAYONS #
# $c LISTE_ROUGE=$xT/COULEURS$ROUGE #
# $c LISTE_VERTE=$xT/COULEURS$VERTE #
# $c LISTE_BLEUE=$xT/COULEURS$BLEUE #
# $c centrer=FAUX reference=3 #
# $c dct=100 #
# $c 2_a_2=FAUX source=1 #
# $c nombre=1000 #
# $c ensemble=VRAI #
# $c Ranterieurs=0.5 #
# $c trainees=FAUX #
# $c renormaliser=FAUX #
# $c TRANSLATION_OX=0 #
# $c TRANSLATION_OY=0 #
# $c ROTATION_OX=$xT/ROTATION$COORD_X #
# $c ZOOM=4.0 #
# $c fond=FAUX #
# $c pV=%d #
# $c R=$xw11/NCOR.c. #
# $c $formatI\n" #
# $c ,N #
# $c ); #
# $c printf("$MV $xw11/NCOR.c.%04d$ROUGE #
# $c $xw12/NCOR.c.%04d$ROUGE\n" #
# $c ,N,n #
# $c ); #
# $c printf("$MV $xw11/NCOR.c.%04d$VERTE #
# $c $xw12/NCOR.c.%04d$VERTE\n" #
# $c ,N,n #
# $c ); #
# $c printf("$MV $xw11/NCOR.c.%04d$BLEUE #
# $c $xw12/NCOR.c.%04d$BLEUE\n" #
# $c ,N,n #
# $c ); #
# #
# $c printf("$DELETE $xT/COORDONNEES$COORD_X\n"); #
# $c printf("$DELETE $xT/COORDONNEES$COORD_Y\n"); #
# $c printf("$DELETE $xT/COORDONNEES$COORD_Z\n"); #
# #
# $c printf("$DELETE $xT/VITESSES$COORD_X\n"); #
# $c printf("$DELETE $xT/VITESSES$COORD_Y\n"); #
# $c printf("$DELETE $xT/VITESSES$COORD_Z\n"); #
# $c } #
# $c } #
# #
# $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/ROTATION$COORD_X #
# #
# #
# $Z Pal #
# #
# $Z $xci/reduction_16$Z $xw12/NCOR.c. $xiak/NCOR.Q3 1 32 #
# $Z $xci/reduction_64$Z $xw12/NCOR.c. $xiak/NCOR.Q3 1 8 #
# #
# $Z ro $xiak/NCOR.Q3$R16$ROUGE #
# $Z ro $xiak/NCOR.Q3$R16$VERTE #
# $Z ro $xiak/NCOR.Q3$R16$BLEUE #
# #
# $Z ro $xiak/NCOR.Q3$R64$ROUGE #
# $Z ro $xiak/NCOR.Q3$R64$VERTE #
# $Z ro $xiak/NCOR.Q3$R64$BLEUE #
# #
# $Z $xcg/unite$Z $xiak/NCOR.Q3$R16$ROUGE #
# $Z $xcg/unite$Z $xiak/NCOR.Q3$R16$VERTE #
# $Z $xcg/unite$Z $xiak/NCOR.Q3$R16$BLEUE #
# #
# $Z $xcg/unite$Z $xiak/NCOR.Q3$R64$ROUGE #
# $Z $xcg/unite$Z $xiak/NCOR.Q3$R64$VERTE #
# $Z $xcg/unite$Z $xiak/NCOR.Q3$R64$BLEUE #
# #
# #
# Pal #
# #
# $xci/disk_video_P$Z $xw12/NCOR.c. 001 512 RVB \ #
# 9 1 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
# #
# xivPdf 3 2 #
# #
# record.01$Z $xiak/NCOR.Q3$R16 RVB Initialisation #
# record.01$Z $xiak/NCOR.Q3$R64 RVB rien #
# #
sequence 031513_031768
sequence 031769_032024
sequence 032025_032280
# Generee par : #
# #
# #
# $Z SET NimagesC=512 #
# $Z SET NimagesD=256 #
# #
# $Z Pal #
# #
# #
# $c #define N0 1 #
# $c #define NC NimagesC #
# $c #define ND NimagesD #
# #
# $c #define PAS 16 #
# #
# $c int main() #
# $c { #
# $c int n; #
# #
# $c for (n=N0 ; n<=ND ; n++) #
# $c { #
# $c printf("$xci/accumule.01$X #
# $c A=$xw12/NCOR.c. #
# $c postfixe=$ROUGE #
# $c premiere=%d derniere=%d pas=%d #
# $c modulo=%d #
# $c maximum=VRAI #
# $c attenuation=0.995 #
# $c R=$xw1/NCOR.d.%04d$ROUGE #
# $c $formatI\n" #
# $c ,N0,NC,PAS,N0+((n-N0)*(NC/ND)),n #
# $c ); #
# $c printf("$xci/accumule.01$X #
# $c A=$xw12/NCOR.c. #
# $c postfixe=$VERTE #
# $c premiere=%d derniere=%d pas=%d #
# $c modulo=%d #
# $c maximum=VRAI #
# $c attenuation=0.995 #
# $c R=$xw1/NCOR.d.%04d$VERTE #
# $c $formatI\n" #
# $c ,N0,NC,PAS,N0+((n-N0)*(NC/ND)),n #
# $c ); #
# $c printf("$xci/accumule.01$X #
# $c A=$xw12/NCOR.c. #
# $c postfixe=$BLEUE #
# $c premiere=%d derniere=%d pas=%d #
# $c modulo=%d #
# $c maximum=VRAI #
# $c attenuation=0.995 #
# $c R=$xw1/NCOR.d.%04d$BLEUE #
# $c $formatI\n" #
# $c ,N0,NC,PAS,N0+((n-N0)*(NC/ND)),n #
# $c ); #
# $c } #
# $c } #
# #
# #
# #
# $Z Pal #
# #
# $Z $xci/reduction_16$Z $xw1/NCOR.d. $xiak/NCOR.R1 1 16 #
# #
# $Z ro $xiak/NCOR.R1$R16$ROUGE #
# $Z ro $xiak/NCOR.R1$R16$VERTE #
# $Z ro $xiak/NCOR.R1$R16$BLEUE #
# #
# $Z $xcg/unite$Z $xiak/NCOR.R1$R16$ROUGE #
# $Z $xcg/unite$Z $xiak/NCOR.R1$R16$VERTE #
# $Z $xcg/unite$Z $xiak/NCOR.R1$R16$BLEUE #
# #
# #
# $Z $xci/reduction_64$Z $xw1/NCOR.d. $xiak/NCOR.R1 1 4 #
# #
# $Z ro $xiak/NCOR.R1$R64$ROUGE #
# $Z ro $xiak/NCOR.R1$R64$VERTE #
# $Z ro $xiak/NCOR.R1$R64$BLEUE #
# #
# $Z $xcg/unite$Z $xiak/NCOR.R1$R64$ROUGE #
# $Z $xcg/unite$Z $xiak/NCOR.R1$R64$VERTE #
# $Z $xcg/unite$Z $xiak/NCOR.R1$R64$BLEUE #
# #
# #
# Pal #
# #
# $xci/disk_video_P$Z $xw1/NCOR.d. 001 256 RVB \ #
# 9 1 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# $xci/disk_video_P$Z "$xw1/NCOR.d. $ROUGE" 001 256 $xiP/fractal.11 \ #
# 9 1 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# $xci/disk_video_P$Z "$xw1/NCOR.d. $ROUGE" 001 256 $xiP/orange.11 \ #
# 9 1 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
# #
# xivPdf 3 2 #
# #
# record.01$Z $xiak/NCOR.R1$R16 RVB Initialisation #
# record.01$Z $xiak/NCOR.R1$R16$ROUGE $xiP/fractal.11 rien #
# record.01$Z $xiak/NCOR.R1$R64 RVB rien #
# record.01$Z $xiak/NCOR.R1$R64$ROUGE $xiP/fractal.11 rien #
# #
sequence 032281_032536
# Generee par : #
# #
# $Z SET Nimages=256 #
# $Z SET Npositions=512 #
# #
# $Z set NcorpsS=11 #
# #
# $Z $DELETE $xT/ROTATION$COORD_X #
# $Z $xci/valeurs_inte$X p=1 d=$Npositions vD=1.40 vA=1.40 cubique=VRAI \ #
# $Z > $xT/ROTATION$COORD_X #
# #
# $Z alias genere '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 genere $xT/MASSES \ #
# $Z +2.0e30 +3.3e23 +48.7e23 \ #
# $Z +60.5e23 \ #
# $Z +6.4e23 +189.9e25 +56.8e25 +8.6e25 +10.3e25 +6.6e21 \ #
# $Z +60.5e23 #
# $Z genere $xT/RAYONS \ #
# $Z +50e10 +35e10 +35e10 \ #
# $Z +35e10 \ #
# $Z +35e10 +45e10 +45e10 +40e10 +40e10 +35e10 \ #
# $Z +35e10 #
# $Z genere $xT/COULEURS$ROUGE \ #
# $Z $GRIS_8 $GRIS_8 $GRIS_8 \ #
# $Z $GRIS_0 \ #
# $Z $GRIS_8 $GRIS_8 $GRIS_8 $GRIS_4 $GRIS_0 $GRIS_7 \ #
# $Z $GRIS_0 #
# $Z genere $xT/COULEURS$VERTE \ #
# $Z $GRIS_8 $GRIS_6 $GRIS_4 \ #
# $Z $GRIS_6 \ #
# $Z $GRIS_4 $GRIS_6 $GRIS_7 $GRIS_8 $GRIS_7 $GRIS_7 \ #
# $Z $GRIS_4 #
# $Z genere $xT/COULEURS$BLEUE \ #
# $Z $GRIS_0 $GRIS_2 $GRIS_0 \ #
# $Z $GRIS_8 \ #
# $Z $GRIS_2 $GRIS_0 $GRIS_0 $GRIS_8 $GRIS_8 $GRIS_8 \ #
# $Z $GRIS_8 #
# #
# $Z Pal #
# #
# #
# $c #include <stdio.h> #
# #
# $c #define N0 1 #
# $c #define N Nimages #
# $c #define Npos Npositions #
# #
# $c extern double cos(); #
# $c extern double sin(); #
# $c extern double sqrt(); #
# #
# $c int main() #
# $c { #
# $c int n; #
# #
# $c double thetaD=0; #
# $c double thetaA=2*3.1415926535897932; #
# #
# $c double XcentreS=+1e3; #
# $c double XcentreD=-392e+10; #
# $c double XcentreA=-392e+10; #
# #
# $c double YcentreS=+1e3; #
# $c double YcentreD=+1e3; #
# $c double YcentreA=+1e3; #
# #
# $c double ZcentreS=+1e3; #
# $c double ZcentreD=+1e3; #
# $c double ZcentreA=+1e3; #
# #
# $c double XvitessD=0.0; #
# #
# $c double YvitessD=-5.00e+3; #
# #
# $c double ZvitessD=0.0; #
# #
# $c double Fcentre; #
# $c double OdistD; #
# #
# $c OdistD=sqrt(((XcentreD-XcentreS)*(XcentreD-XcentreS))+ #
# $c ((YcentreD-YcentreS)*(YcentreD-YcentreS))+ #
# $c ((ZcentreD-ZcentreS)*(ZcentreD-ZcentreS)) #
# $c ); #
# #
# $c for (n=N0 ; n<=N ; n++) #
# $c { #
# $c double Xcentre; #
# $c double Ycentre; #
# $c double Zcentre; #
# #
# $c double Xvitess; #
# $c double Yvitess; #
# $c double Zvitess; #
# #
# $c double Odist; #
# $c double theta; #
# #
# $c theta=((thetaA*(n-N0))+(thetaD*(N-n)))/(N-N0); #
# $c Xcentre=+(XcentreA*cos(theta))+(ZcentreA*sin(theta)); #
# $c Ycentre=((YcentreA*(n-N0))+(YcentreD*(N-n)))/(N-N0); #
# $c Zcentre=-(XcentreA*sin(theta))+(ZcentreA*cos(theta)); #
# #
# $c Odist=sqrt(((Xcentre-XcentreS)*(Xcentre-XcentreS))+ #
# $c ((Ycentre-YcentreS)*(Ycentre-YcentreS))+ #
# $c ((Zcentre-ZcentreS)*(Zcentre-ZcentreS)) #
# $c ); #
# #
# $c Xvitess=XvitessD*sqrt(OdistD/Odist); #
# $c Yvitess=YvitessD*sqrt(OdistD/Odist); #
# $c Zvitess=ZvitessD*sqrt(OdistD/Odist); #
# #
# $c printf("genere #
# $c $xT/COORDONNEES$COORD_X #
# $c %+g +514e+8 +213e+8 #
# $c -203e+8 #
# $c -204e+9 +501e+9 -134e+10 -150e+9 -436e+10 #
# $c -392e+10 %+g\n" #
# $c ,XcentreS,Xcentre #
# $c ); #
# $c printf("genere #
# $c $xT/COORDONNEES$COORD_Y #
# $c %+g +682e+7 +967e+8 #
# $c +133e+9 #
# $c +126e+9 -519e+9 +341e+9 +259e+10 -115e+10 #
# $c +307e+10 %+g\n" #
# $c ,YcentreS,Ycentre #
# $c ); #
# $c printf("genere #
# $c $xT/COORDONNEES$COORD_Z #
# $c %+g -163e+7 +422e+8 #
# $c +579e+8 #
# $c +634e+8 -235e+9 +199e+9 +113e+10 -363e+9 #
# $c +216e+10 %+g\n" #
# $c ,ZcentreS,Zcentre #
# $c ); #
# #
# $c printf("genere #
# $c $xT/VITESSES$COORD_X #
# $c 0 -1.46e+4 -3.44e+4 #
# $c -2.99e+4 #
# $c -1.27e+4 +9.67e+3 -3.21e+3 -6.84e+3 +1.42e+3 #
# $c -2.27e+3 %+g\n" #
# $c ,Xvitess #
# $c ); #
# $c printf("genere #
# $c $xT/VITESSES$COORD_Y #
# $c 0 +4.43e+4 +5.39e+3 #
# $c -3.88e+3 #
# $c -1.64e+4 +8.59e+3 -8.62e+3 -6.50e+2 -4.79e+3 #
# $c -4.53e+3 %+g\n" #
# $c ,Yvitess #
# $c ); #
# $c printf("genere #
# $c $xT/VITESSES$COORD_Z #
# $c 0 +2.52e+4 +4.60e+3 #
# $c -1.68e+3 #
# $c -7.18e+3 +3.44e+3 -3.42e+3 -1.88e+2 -2.00e+3 #
# $c -7.39e+2 %+g\n" #
# $c ,Zvitess #
# $c ); #
# #
# $c printf("$xrr/N_corps.11$X #
# $c corps=$NcorpsS #
# $c np=%d #
# $c LISTE_X=$xT/COORDONNEES$COORD_X #
# $c LISTE_Y=$xT/COORDONNEES$COORD_Y #
# $c LISTE_Z=$xT/COORDONNEES$COORD_Z #
# $c LISTE_VX=$xT/VITESSES$COORD_X #
# $c LISTE_VY=$xT/VITESSES$COORD_Y #
# $c LISTE_VZ=$xT/VITESSES$COORD_Z #
# $c LISTE_MASSE=$xT/MASSES #
# $c LISTE_RAYON=$xT/RAYONS #
# $c LISTE_ROUGE=$xT/COULEURS$ROUGE #
# $c LISTE_VERTE=$xT/COULEURS$VERTE #
# $c LISTE_BLEUE=$xT/COULEURS$BLEUE #
# $c centrer=FAUX reference=1 #
# $c extension=5 #
# $c dct=15000 #
# $c 2_a_2=FAUX source=1 #
# $c nombre=1000 #
# $c ensemble=VRAI #
# $c acceptable=0.5 #
# $c Ranterieurs=0.5 #
# $c trainees=FAUX #
# $c renormaliser=FAUX #
# $c lineaire=FAUX exposant=0.4 #
# $c Lz=1.0e13 #
# $c TRANSLATION_OX=0 #
# $c TRANSLATION_OY=0 #
# $c ROTATION_OX=$xT/ROTATION$COORD_X #
# $c ZOOM=0.60 #
# $c fond=FAUX #
# $c pV=%d #
# $c R=$xw11/NCOR.e. #
# $c $formatI\n" #
# $c ,Npos,Npos #
# $c ); #
# $c printf("$MV $xw11/NCOR.e.%04d$ROUGE #
# $c $xw12/NCOR.e.%04d$ROUGE\n" #
# $c ,Npos,n #
# $c ); #
# $c printf("$MV $xw11/NCOR.e.%04d$VERTE #
# $c $xw12/NCOR.e.%04d$VERTE\n" #
# $c ,Npos,n #
# $c ); #
# $c printf("$MV $xw11/NCOR.e.%04d$BLEUE #
# $c $xw12/NCOR.e.%04d$BLEUE\n" #
# $c ,Npos,n #
# $c ); #
# #
# $c printf("$DELETE $xT/COORDONNEES$COORD_X\n"); #
# $c printf("$DELETE $xT/COORDONNEES$COORD_Y\n"); #
# $c printf("$DELETE $xT/COORDONNEES$COORD_Z\n"); #
# #
# $c printf("$DELETE $xT/VITESSES$COORD_X\n"); #
# $c printf("$DELETE $xT/VITESSES$COORD_Y\n"); #
# $c printf("$DELETE $xT/VITESSES$COORD_Z\n"); #
# $c } #
# $c } #
# #
# $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/ROTATION$COORD_X #
# #
# #
# $Z Pal #
# #
# $Z $xci/reduction_16$Z $xw12/NCOR.e. $xiak/NCOR.S9 1 16 #
# #
# $Z ro $xiak/NCOR.S9$R16$ROUGE #
# $Z ro $xiak/NCOR.S9$R16$VERTE #
# $Z ro $xiak/NCOR.S9$R16$BLEUE #
# #
# $Z $xcg/unite$Z $xiak/NCOR.S9$R16$ROUGE #
# $Z $xcg/unite$Z $xiak/NCOR.S9$R16$VERTE #
# $Z $xcg/unite$Z $xiak/NCOR.S9$R16$BLEUE #
# #
# #
# $Z $xci/reduction_64$Z $xw12/NCOR.e. $xiak/NCOR.S9 1 4 #
# #
# $Z ro $xiak/NCOR.S9$R64$ROUGE #
# $Z ro $xiak/NCOR.S9$R64$VERTE #
# $Z ro $xiak/NCOR.S9$R64$BLEUE #
# #
# $Z $xcg/unite$Z $xiak/NCOR.S9$R64$ROUGE #
# $Z $xcg/unite$Z $xiak/NCOR.S9$R64$VERTE #
# $Z $xcg/unite$Z $xiak/NCOR.S9$R64$BLEUE #
# #
# #
# Pal #
# #
# $xci/disk_video_P$Z $xw12/NCOR.e. 001 256 RVB \ #
# 9 1 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
# #
# xivPdf 3 2 #
# #
# record.01$Z $xiak/NCOR.S9$R16 RVB Initialisation #
# record.01$Z $xiak/NCOR.S9$R64 RVB rien #
# #
sequence 032537_032792
sequence 032793_033048
# Generee par : #
# #
# $Z SET Nimages=512 #
# $Z SET Npositions=512 #
# #
# $Z set NcorpsS=11 #
# #
# $Z $DELETE $xT/ROTATION$COORD_X #
# $Z $xci/valeurs_inte$X p=1 d=$Npositions vD=0.00 vA=0.00 cubique=VRAI \ #
# $Z > $xT/ROTATION$COORD_X #
# #
# $Z alias genere '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 genere $xT/MASSES \ #
# $Z +2.0e30 +3.3e23 +48.7e23 \ #
# $Z +60.5e23 \ #
# $Z +6.4e23 +189.9e25 +56.8e25 +8.6e25 +10.3e25 +6.6e21 \ #
# $Z +60.5e23 #
# $Z genere $xT/RAYONS \ #
# $Z +50e10 +35e10 +35e10 \ #
# $Z +35e10 \ #
# $Z +35e10 +45e10 +45e10 +40e10 +40e10 +35e10 \ #
# $Z +35e10 #
# $Z genere $xT/COULEURS$ROUGE \ #
# $Z $GRIS_8 $GRIS_8 $GRIS_8 \ #
# $Z $GRIS_0 \ #
# $Z $GRIS_8 $GRIS_8 $GRIS_8 $GRIS_4 $GRIS_0 $GRIS_7 \ #
# $Z $GRIS_0 #
# $Z genere $xT/COULEURS$VERTE \ #
# $Z $GRIS_8 $GRIS_6 $GRIS_4 \ #
# $Z $GRIS_6 \ #
# $Z $GRIS_4 $GRIS_6 $GRIS_7 $GRIS_8 $GRIS_7 $GRIS_7 \ #
# $Z $GRIS_4 #
# $Z genere $xT/COULEURS$BLEUE \ #
# $Z $GRIS_0 $GRIS_2 $GRIS_0 \ #
# $Z $GRIS_8 \ #
# $Z $GRIS_2 $GRIS_0 $GRIS_0 $GRIS_8 $GRIS_8 $GRIS_8 \ #
# $Z $GRIS_8 #
# #
# $Z Pal #
# #
# #
# $c #define N0 1 #
# $c #define N Nimages #
# $c #define Npos Npositions #
# #
# $c extern double cos(); #
# $c extern double sin(); #
# $c extern double sqrt(); #
# #
# $c int main() #
# $c { #
# $c int n; #
# #
# $c double thetaD=0; #
# $c double thetaA=2*3.1415926535897932; #
# #
# $c double XcentreS=+1e3; #
# $c double XcentreD=-392e+10; #
# $c double XcentreA=-392e+10; #
# #
# $c double YcentreS=+1e3; #
# $c double YcentreD=+1e3; #
# $c double YcentreA=+1e3; #
# #
# $c double ZcentreS=+1e3; #
# $c double ZcentreD=+1e3; #
# $c double ZcentreA=+1e3; #
# #
# $c double XvitessD=0.0; #
# #
# $c double YvitessD=-5.00e+3; #
# #
# $c double ZvitessD=0.0; #
# #
# $c double Fcentre; #
# $c double OdistD; #
# #
# $c OdistD=sqrt(((XcentreD-XcentreS)*(XcentreD-XcentreS))+ #
# $c ((YcentreD-YcentreS)*(YcentreD-YcentreS))+ #
# $c ((ZcentreD-ZcentreS)*(ZcentreD-ZcentreS)) #
# $c ); #
# #
# $c for (n=N0 ; n<=N ; n++) #
# $c { #
# $c double Xcentre; #
# $c double Ycentre; #
# $c double Zcentre; #
# #
# $c double Xvitess; #
# $c double Yvitess; #
# $c double Zvitess; #
# #
# $c double Odist; #
# $c double theta; #
# #
# $c theta=((thetaA*(n-N0))+(thetaD*(N-n)))/(N-N0); #
# $c Xcentre=+(XcentreA*cos(theta))+(ZcentreA*sin(theta)); #
# $c Ycentre=((YcentreA*(n-N0))+(YcentreD*(N-n)))/(N-N0); #
# $c Zcentre=-(XcentreA*sin(theta))+(ZcentreA*cos(theta)); #
# #
# $c Odist=sqrt(((Xcentre-XcentreS)*(Xcentre-XcentreS))+ #
# $c ((Ycentre-YcentreS)*(Ycentre-YcentreS))+ #
# $c ((Zcentre-ZcentreS)*(Zcentre-ZcentreS)) #
# $c ); #
# #
# $c Xvitess=XvitessD*sqrt(OdistD/Odist); #
# $c Yvitess=YvitessD*sqrt(OdistD/Odist); #
# $c Zvitess=ZvitessD*sqrt(OdistD/Odist); #
# #
# $c printf("genere #
# $c $xT/COORDONNEES$COORD_X #
# $c %+g +514e+8 +213e+8 #
# $c -203e+8 #
# $c -204e+9 +501e+9 -134e+10 -150e+9 -436e+10 #
# $c -392e+10 %+g\n" #
# $c ,XcentreS,Xcentre #
# $c ); #
# $c printf("genere #
# $c $xT/COORDONNEES$COORD_Y #
# $c %+g +682e+7 +967e+8 #
# $c +133e+9 #
# $c +126e+9 -519e+9 +341e+9 +259e+10 -115e+10 #
# $c +307e+10 %+g\n" #
# $c ,YcentreS,Ycentre #
# $c ); #
# $c printf("genere #
# $c $xT/COORDONNEES$COORD_Z #
# $c %+g -163e+7 +422e+8 #
# $c +579e+8 #
# $c +634e+8 -235e+9 +199e+9 +113e+10 -363e+9 #
# $c +216e+10 %+g\n" #
# $c ,ZcentreS,Zcentre #
# $c ); #
# #
# $c printf("genere #
# $c $xT/VITESSES$COORD_X #
# $c 0 -1.46e+4 -3.44e+4 #
# $c -2.99e+4 #
# $c -1.27e+4 +9.67e+3 -3.21e+3 -6.84e+3 +1.42e+3 #
# $c -2.27e+3 %+g\n" #
# $c ,Xvitess #
# $c ); #
# $c printf("genere #
# $c $xT/VITESSES$COORD_Y #
# $c 0 +4.43e+4 +5.39e+3 #
# $c -3.88e+3 #
# $c -1.64e+4 +8.59e+3 -8.62e+3 -6.50e+2 -4.79e+3 #
# $c -4.53e+3 %+g\n" #
# $c ,Yvitess #
# $c ); #
# $c printf("genere #
# $c $xT/VITESSES$COORD_Z #
# $c 0 +2.52e+4 +4.60e+3 #
# $c -1.68e+3 #
# $c -7.18e+3 +3.44e+3 -3.42e+3 -1.88e+2 -2.00e+3 #
# $c -7.39e+2 %+g\n" #
# $c ,Zvitess #
# $c ); #
# #
# $c printf("$xrr/N_corps.11$X #
# $c corps=$NcorpsS #
# $c np=%d #
# $c LISTE_X=$xT/COORDONNEES$COORD_X #
# $c LISTE_Y=$xT/COORDONNEES$COORD_Y #
# $c LISTE_Z=$xT/COORDONNEES$COORD_Z #
# $c LISTE_VX=$xT/VITESSES$COORD_X #
# $c LISTE_VY=$xT/VITESSES$COORD_Y #
# $c LISTE_VZ=$xT/VITESSES$COORD_Z #
# $c LISTE_MASSE=$xT/MASSES #
# $c LISTE_RAYON=$xT/RAYONS #
# $c LISTE_ROUGE=$xT/COULEURS$ROUGE #
# $c LISTE_VERTE=$xT/COULEURS$VERTE #
# $c LISTE_BLEUE=$xT/COULEURS$BLEUE #
# $c centrer=FAUX reference=11 #
# $c extension=5 #
# $c dct=15000 #
# $c 2_a_2=FAUX source=1 #
# $c nombre=1000 #
# $c ensemble=VRAI #
# $c acceptable=0.5 #
# $c Ranterieurs=0.5 #
# $c trainees=FAUX #
# $c renormaliser=FAUX #
# $c lineaire=FAUX exposant=0.4 #
# $c Lz=1.0e13 #
# $c TRANSLATION_OX=0 #
# $c TRANSLATION_OY=0 #
# $c ROTATION_OX=$xT/ROTATION$COORD_X #
# $c ZOOM=0.60 #
# $c fond=FAUX #
# $c pV=%d #
# $c R=$xw11/NCOR.f. #
# $c $formatI\n" #
# $c ,Npos,Npos #
# $c ); #
# $c printf("$MV $xw11/NCOR.f.%04d$ROUGE #
# $c $xw12/NCOR.f.%04d$ROUGE\n" #
# $c ,Npos,n #
# $c ); #
# $c printf("$MV $xw11/NCOR.f.%04d$VERTE #
# $c $xw12/NCOR.f.%04d$VERTE\n" #
# $c ,Npos,n #
# $c ); #
# $c printf("$MV $xw11/NCOR.f.%04d$BLEUE #
# $c $xw12/NCOR.f.%04d$BLEUE\n" #
# $c ,Npos,n #
# $c ); #
# #
# $c printf("$DELETE $xT/COORDONNEES$COORD_X\n"); #
# $c printf("$DELETE $xT/COORDONNEES$COORD_Y\n"); #
# $c printf("$DELETE $xT/COORDONNEES$COORD_Z\n"); #
# #
# $c printf("$DELETE $xT/VITESSES$COORD_X\n"); #
# $c printf("$DELETE $xT/VITESSES$COORD_Y\n"); #
# $c printf("$DELETE $xT/VITESSES$COORD_Z\n"); #
# $c } #
# $c } #
# #
# $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/ROTATION$COORD_X #
# #
# #
# $Z Pal #
# #
# $Z $xci/reduction_16$Z $xw12/NCOR.f. $xiak/NCOR.S1 1 32 #
# #
# $Z ro $xiak/NCOR.S1$R16$ROUGE #
# $Z ro $xiak/NCOR.S1$R16$VERTE #
# $Z ro $xiak/NCOR.S1$R16$BLEUE #
# #
# $Z $xcg/unite$Z $xiak/NCOR.S1$R16$ROUGE #
# $Z $xcg/unite$Z $xiak/NCOR.S1$R16$VERTE #
# $Z $xcg/unite$Z $xiak/NCOR.S1$R16$BLEUE #
# #
# #
# $Z $xci/reduction_64$Z $xw12/NCOR.f. $xiak/NCOR.S1 1 8 #
# #
# $Z ro $xiak/NCOR.S1$R64$ROUGE #
# $Z ro $xiak/NCOR.S1$R64$VERTE #
# $Z ro $xiak/NCOR.S1$R64$BLEUE #
# #
# $Z $xcg/unite$Z $xiak/NCOR.S1$R64$ROUGE #
# $Z $xcg/unite$Z $xiak/NCOR.S1$R64$VERTE #
# $Z $xcg/unite$Z $xiak/NCOR.S1$R64$BLEUE #
# #
# #
# Pal #
# #
# $xci/disk_video_P$Z $xw12/NCOR.f. 001 256 RVB \ #
# 9 1 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# $xci/disk_video_P$Z $xw12/NCOR.f. 257 512 RVB \ #
# 9 1 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
# #
# xivPdf 3 2 #
# #
# record.01$Z $xiak/NCOR.S1$R16 RVB Initialisation #
# record.01$Z $xiak/NCOR.S1$R64 RVB rien #
# #
# ATTENTION, l'enregistrement de '$xw12/NCOR.f.' a ete fait en deux fois pour gagner du #
# temps... #
sequence 033049_033304
sequence 033305_033560
sequence 033561_033816
# Generee par : #
# #
# #
# $Z SET NimagesC=512 #
# $Z SET NimagesD=256 #
# #
# $Z Pal #
# #
# #
# $c #define N0 1 #
# $c #define NC NimagesC #
# $c #define ND NimagesD #
# #
# $c #define PAS 16 #
# #
# $c int main() #
# $c { #
# $c int n; #
# #
# $c for (n=N0 ; n<=ND ; n++) #
# $c { #
# $c printf("$xci/accumule.01$X #
# $c A=$xw12/NCOR.f. #
# $c postfixe=$ROUGE #
# $c premiere=%d derniere=%d pas=%d #
# $c modulo=%d #
# $c maximum=VRAI #
# $c attenuation=0.995 #
# $c R=$xw1/NCOR.g.%04d$ROUGE #
# $c $formatI\n" #
# $c ,N0,NC,PAS,N0+((n-N0)*(NC/ND)),n #
# $c ); #
# $c printf("$xci/accumule.01$X #
# $c A=$xw12/NCOR.f. #
# $c postfixe=$VERTE #
# $c premiere=%d derniere=%d pas=%d #
# $c modulo=%d #
# $c maximum=VRAI #
# $c attenuation=0.995 #
# $c R=$xw1/NCOR.g.%04d$VERTE #
# $c $formatI\n" #
# $c ,N0,NC,PAS,N0+((n-N0)*(NC/ND)),n #
# $c ); #
# $c printf("$xci/accumule.01$X #
# $c A=$xw12/NCOR.f. #
# $c postfixe=$BLEUE #
# $c premiere=%d derniere=%d pas=%d #
# $c modulo=%d #
# $c maximum=VRAI #
# $c attenuation=0.995 #
# $c R=$xw1/NCOR.g.%04d$BLEUE #
# $c $formatI\n" #
# $c ,N0,NC,PAS,N0+((n-N0)*(NC/ND)),n #
# $c ); #
# $c } #
# $c } #
# #
# #
# #
# $Z Pal #
# #
# $Z $xci/reduction_16$Z $xw1/NCOR.g. $xiak/NCOR.T1 1 16 #
# #
# $Z ro $xiak/NCOR.T1$R16$ROUGE #
# $Z ro $xiak/NCOR.T1$R16$VERTE #
# $Z ro $xiak/NCOR.T1$R16$BLEUE #
# #
# $Z $xcg/unite$Z $xiak/NCOR.T1$R16$ROUGE #
# $Z $xcg/unite$Z $xiak/NCOR.T1$R16$VERTE #
# $Z $xcg/unite$Z $xiak/NCOR.T1$R16$BLEUE #
# #
# #
# $Z $xci/reduction_64$Z $xw1/NCOR.g. $xiak/NCOR.T1 1 4 #
# #
# $Z ro $xiak/NCOR.T1$R64$ROUGE #
# $Z ro $xiak/NCOR.T1$R64$VERTE #
# $Z ro $xiak/NCOR.T1$R64$BLEUE #
# #
# $Z $xcg/unite$Z $xiak/NCOR.T1$R64$ROUGE #
# $Z $xcg/unite$Z $xiak/NCOR.T1$R64$VERTE #
# $Z $xcg/unite$Z $xiak/NCOR.T1$R64$BLEUE #
# #
# #
# ATTENTION, la generation de '$xw1/NCOR.g.' sur '$LACT27' s'est mal passee le 1996072400 #
# aux environs de 17:52-17:53 et 18:15-18:16 pour une raison inexpliquee. Un certain nombre #
# d'images de '$xw12/NCOR.f.' se sont retrouvees momentanement inaccessibles. Cela a rendu #
# la generation de plusieurs dizaines d'images (au-dela de 0180) incorrecte. La seule chose #
# observee fut un 'source $Flogin' sur '$LACT27' aux environs de 18:15, les fichiers #
# '$Ferreurs' ne contenant quant a eux aucune anomalie. Le 1996072500 a 18:30 j'ai compris #
# car cela s'est reproduit. J'ai fait de nouveau le rapprochement avec '$Flogin' sur #
# '$CMAP24' cette fois. Le probleme vient de la ligne : #
# #
# lock $DRDIRECTORIES #
# #
# dans le fichier 'v $xcg/Xdivers$Z' qui est appele lorsqu'un nettoyage est demande (or #
# cette possibilite a ete rajoutee recemment dans '$FLogin' le 1996071600). Cela a pour #
# effet de donner le message : #
# #
# .../RdIrEcToRiEs - Permission denied #
# #
# si l'on veut acceder a '$DRDIRECTORIES' sur une autre machine ; a partir de ce moment #
# la il est alors a l'etat 'lock' sur cette machine aussi, jusqu'a ce qu'il repasse a l'etat #
# 'unlock' sur l'autre machine (ici '$CMAP24'), avec en fait quelques secondes de decalage #
# entre les deux... #
# #
# #
# Pal #
# #
# $xci/disk_video_P$Z $xw1/NCOR.g. 001 256 RVB \ #
# 9 1 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# $xci/disk_video_P$Z "$xw1/NCOR.g. $VERTE" 001 256 $xiP/fractal.11 \ #
# 9 1 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# $xci/disk_video_P$Z "$xw1/NCOR.g. $VERTE" 001 256 $xiP/orange.11 \ #
# 9 1 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
# #
# xivPdf 3 2 #
# #
# record.01$Z $xiak/NCOR.T1$R16 RVB Initialisation #
# record.01$Z $xiak/NCOR.T1$R16$VERTE $xiP/fractal.11 rien #
# record.01$Z $xiak/NCOR.T1$R64 RVB rien #
# record.01$Z $xiak/NCOR.T1$R64$VERTE $xiP/fractal.11 rien #
# #
sequence 033817_034072
# Generee par : #
# #
# #
# $Z SET Nimages=256 #
# #
# $Z Pal #
# #
# #
# $c #define N0 1 #
# $c #define N Nimages #
# #
# $c #define PAS 16 #
# #
# $c int main() #
# $c { #
# $c int n; #
# #
# $c for (n=N0 ; n<=N ; n++) #
# $c { #
# $c printf("$xci/luminance.01$X #
# $c AR=$xw1/NCOR.g.%04d$ROUGE #
# $c AV=$xw1/NCOR.g.%04d$VERTE #
# $c AB=$xw1/NCOR.g.%04d$BLEUE #
# $c R=$xT/LUMINANCE #
# $c $formatI\n" #
# $c ,n,n,n #
# $c ); #
# $c printf("$xci/substitue$X #
# $c A=$xw1/NCOR.g.%04d$ROUGE #
# $c substitution=L_SUBSTITUTION_02 #
# $c $formatI | #
# $c $xci/montagne.01$X #
# $c A=$xT/LUMINANCE #
# $c avion=VRAI #
# $c R=$xw1/NC.g$m.%04d$ROUGE #
# $c $formatI\n" #
# $c ,n,n #
# $c ); #
# $c printf("$xci/substitue$X #
# $c A=$xw1/NCOR.g.%04d$VERTE #
# $c substitution=L_SUBSTITUTION_02 #
# $c $formatI | #
# $c $xci/montagne.01$X #
# $c A=$xT/LUMINANCE #
# $c avion=VRAI #
# $c R=$xw1/NC.g$m.%04d$VERTE #
# $c $formatI\n" #
# $c ,n,n #
# $c ); #
# $c printf("$xci/substitue$X #
# $c A=$xw1/NCOR.g.%04d$BLEUE #
# $c substitution=L_SUBSTITUTION_02 #
# $c $formatI | #
# $c $xci/montagne.01$X #
# $c A=$xT/LUMINANCE #
# $c avion=VRAI #
# $c R=$xw1/NC.g$m.%04d$BLEUE #
# $c $formatI\n" #
# $c ,n,n #
# $c ); #
# $c } #
# $c } #
# #
# #
# #
# $Z Pal #
# #
# $Z $xci/reduction_16$Z $xw1/NC.g$m. $xiak/NCOR.T1$m 1 16 #
# #
# $Z ro $xiak/NCOR.T1$m$R16$ROUGE #
# $Z ro $xiak/NCOR.T1$m$R16$VERTE #
# $Z ro $xiak/NCOR.T1$m$R16$BLEUE #
# #
# $Z $xcg/unite$Z $xiak/NCOR.T1$m$R16$ROUGE #
# $Z $xcg/unite$Z $xiak/NCOR.T1$m$R16$VERTE #
# $Z $xcg/unite$Z $xiak/NCOR.T1$m$R16$BLEUE #
# #
# #
# $Z $xci/reduction_64$Z $xw1/NC.g$m. $xiak/NCOR.T1$m 1 4 #
# #
# $Z ro $xiak/NCOR.T1$m$R64$ROUGE #
# $Z ro $xiak/NCOR.T1$m$R64$VERTE #
# $Z ro $xiak/NCOR.T1$m$R64$BLEUE #
# #
# $Z $xcg/unite$Z $xiak/NCOR.T1$m$R64$ROUGE #
# $Z $xcg/unite$Z $xiak/NCOR.T1$m$R64$VERTE #
# $Z $xcg/unite$Z $xiak/NCOR.T1$m$R64$BLEUE #
# #
# #
# Pal #
# #
# $xci/disk_video_P$Z $xw1/NC.g$m. 001 256 RVB \ #
# 9 1 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
# #
# xivPdf 3 2 #
# #
# record.01$Z $xiak/NCOR.T1$m$R16 RVB Initialisation #
# record.01$Z $xiak/NCOR.T1$m$R64 RVB rien #
# #
sequence 034073_034200
# Generee par : #
# #
# $Z SET Nimages=128 #
# #
# $Z Pal #
# #
# $c #define N0 1 #
# $c #define N Nimages #
# #
# $c int main() #
# $c { #
# $c int n; #
# #
# $c double rapportD=3.0; #
# $c double rapportA=2.0; #
# #
# $c for (n=N0 ; n<=N ; n++) #
# $c { #
# $c printf("$xrc/Cfract_2D.01$X #
# $c rapport=%f #
# $c Tx=-0.6 Ty=-0.5 #
# $c yG=0.3 yD=0.3 #
# $c R=$xw1/VONK.1.%04d #
# $c $formatI\n" #
# $c ,((rapportA*(n-N0))+(rapportD*(N-n)))/(N-N0) #
# $c ,n #
# $c ); #
# $c } #
# $c } #
# #
# #
# $Z Pal #
# #
# #
# $Z $xci/reduction_16$X A=$xw1/VONK.1. premiere=1 pas=8 \ #
# $Z R=$xiac/VONK.11$R16 \ #
# $Z $formatI #
# $Z $xci/reduction_64$X A=$xw1/VONK.1. premiere=1 pas=2 \ #
# $Z R=$xiac/VONK.11$R64 \ #
# $Z $formatI #
# #
# #
# $Z ro $xiac/VONK.11$R16 #
# $Z ro $xiac/VONK.11$R64 #
# #
# $Z $xcg/unite$Z $xiac/VONK.11$R16 #
# $Z $xcg/unite$Z $xiac/VONK.11$R64 #
# #
# #
# Pal #
# #
# $xci/disk_video_P$Z $xw1/VONK.1. 1 128 $xiP/fractal.91 \ #
# 9 1 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
# #
# xivPdf 3 2 #
# #
# record.01$Z $xiac/VONK.11$R16 $xiP/fractal.91 Initialisation #
# record.01$Z $xiac/VONK.11$R64 $xiP/fractal.91 rien #
# #
sequence 034201_034328
# Generee par : #
# #
# $Z SET Nimages=128 #
# #
# $Z Pal #
# #
# $c #define N0 1 #
# $c #define N Nimages #
# #
# $c int main() #
# $c { #
# $c int n; #
# #
# $c double xDD=1.0; #
# $c double xDA=3.0; #
# #
# $c for (n=N0 ; n<=N ; n++) #
# $c { #
# $c printf("$xrc/Cfract_2D.01$X #
# $c xD=%f #
# $c Tx=-0.5 Ty=-0.48 #
# $c R=$xw1/VONK.2.%04d #
# $c $formatI\n" #
# $c ,((xDA*(n-N0))+(xDD*(N-n)))/(N-N0) #
# $c ,n #
# $c ); #
# $c } #
# $c } #
# #
# #
# $Z Pal #
# #
# #
# $Z $xci/reduction_16$X A=$xw1/VONK.2. premiere=1 pas=8 \ #
# $Z R=$xiac/VONK.21$R16 \ #
# $Z $formatI #
# $Z $xci/reduction_64$X A=$xw1/VONK.2. premiere=1 pas=2 \ #
# $Z R=$xiac/VONK.21$R64 \ #
# $Z $formatI #
# #
# #
# $Z ro $xiac/VONK.21$R16 #
# $Z ro $xiac/VONK.21$R64 #
# #
# $Z $xcg/unite$Z $xiac/VONK.21$R16 #
# $Z $xcg/unite$Z $xiac/VONK.21$R64 #
# #
# #
# Pal #
# #
# $xci/disk_video_P$Z $xw1/VONK.2. 1 128 $xiP/fractal.91 \ #
# 9 1 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
# #
# xivPdf 3 2 #
# #
# record.01$Z $xiac/VONK.21$R16 $xiP/fractal.91 Initialisation #
# record.01$Z $xiac/VONK.21$R64 $xiP/fractal.91 rien #
# #
sequence 034329_034456
sequence 034457_034584
# Generee par : #
# #
# $Z SET Nimages=128 #
# #
# $Z Pal #
# #
# $c #define N0 1 #
# $c #define N Nimages #
# #
# $c int main() #
# $c { #
# $c int n; #
# #
# $c double xDD=1.0; #
# $c double xDA=3.0; #
# #
# $c for (n=N0 ; n<=N ; n++) #
# $c { #
# $c printf("$xrc/Cfract_2D.01$X #
# $c xD=%f #
# $c yG=0.2 yD=0.2 #
# $c rectangulaire=FAUX #
# $c grand_carre=VRAI #
# $c Tx=-0.5 Ty=-0.18 #
# $c R=$xw1/VONK.3.%04d #
# $c $formatI\n" #
# $c ,((xDA*(n-N0))+(xDD*(N-n)))/(N-N0) #
# $c ,n #
# $c ); #
# $c } #
# $c } #
# #
# #
# $Z Pal #
# #
# #
# $Z $xci/reduction_16$X A=$xw1/VONK.3. premiere=1 pas=8 \ #
# $Z R=$xiac/VONK.22$R16 \ #
# $Z $formatI #
# $Z $xci/reduction_64$X A=$xw1/VONK.3. premiere=1 pas=2 \ #
# $Z R=$xiac/VONK.22$R64 \ #
# $Z $formatI #
# #
# #
# $Z ro $xiac/VONK.22$R16 #
# $Z ro $xiac/VONK.22$R64 #
# #
# $Z $xcg/unite$Z $xiac/VONK.22$R16 #
# $Z $xcg/unite$Z $xiac/VONK.22$R64 #
# #
# #
# Pal #
# #
# $xci/disk_video_P$Z $xw1/VONK.3. 1 128 $xiP/fractal.91 \ #
# 9 1 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# $xci/disk_video_P$Z $xw1/VONK.3. 1 128 $xiP/fractal.91 \ #
# 9 1 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
# #
# xivPdf 3 2 #
# #
# record.01$Z $xiac/VONK.22$R16 $xiP/fractal.91 Initialisation #
# record.01$Z $xiac/VONK.22$R64 $xiP/fractal.91 rien #
# #
sequence 034585_034712
# Generee par : #
# #
# $Z SET Nimages=128 #
# #
# $Z Pal #
# #
# $Z $DELETE $xT/ANGLES #
# #
# $Z $xcg/scale$X multiplicateur=0 nombre=$pi diviseur=3 > $xT/ANGLES #
# $Z saut >>! $xT/ANGLES #
# $Z $xcg/scale$X multiplicateur=1 nombre=$pi diviseur=3 >>! $xT/ANGLES #
# $Z saut >>! $xT/ANGLES #
# $Z $xcg/scale$X multiplicateur=4 nombre=$pi diviseur=3 >>! $xT/ANGLES #
# $Z saut >>! $xT/ANGLES #
# $Z $xcg/scale$X multiplicateur=1 nombre=$pi diviseur=3 >>! $xT/ANGLES #
# #
# #
# $Z Pal #
# #
# $c #define N0 1 #
# $c #define N Nimages #
# #
# $c int main() #
# $c { #
# $c int n; #
# #
# $c double rapportD=3.0; #
# $c double rapportA=2.0; #
# #
# $c for (n=N0 ; n<=N ; n++) #
# $c { #
# $c printf("$xrc/Cfract_2D.11$X #
# $c iterations=4 #
# $c ANGLE_DE_ROTATION=$xT/ANGLES #
# $c rapport=%f #
# $c xG=-0.5 xD=0.5 #
# $c yG=-0.1 yD=-0.1 #
# $c aleatoire=FAUX complexe=VRAI #
# $c recursion=6 #
# $c r=0.005 #
# $c connexions=VRAI #
# $c ZOOM=2 #
# $c Lz=1000 #
# $c R=$xT/VONK.4. #
# $c $formatI\n" #
# $c ,((rapportA*(n-N0))+(rapportD*(N-n)))/(N-N0) #
# $c ,n #
# $c ); #
# $c printf("$MV $xT/VONK.4.%04d$ROUGE #
# $c $xw1/VONK.4.%04d$ROUGE\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$MV $xT/VONK.4.%04d$VERTE #
# $c $xw1/VONK.4.%04d$VERTE\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$MV $xT/VONK.4.%04d$BLEUE #
# $c $xw1/VONK.4.%04d$BLEUE\n" #
# $c ,N0,n #
# $c ); #
# $c } #
# $c } #
# #
# #
# $Z $DELETE $xT/ANGLES #
# #
# #
# $Z Pal #
# #
# #
# $Z $xci/reduction_16$Z $xw1/VONK.4. $xiac/VONK.A1 1 8 #
# #
# $Z ro $xiac/VONK.A1$R16$ROUGE #
# $Z ro $xiac/VONK.A1$R16$VERTE #
# $Z ro $xiac/VONK.A1$R16$BLEUE #
# #
# $Z $xcg/unite$Z $xiac/VONK.A1$R16$ROUGE #
# $Z $xcg/unite$Z $xiac/VONK.A1$R16$VERTE #
# $Z $xcg/unite$Z $xiac/VONK.A1$R16$BLEUE #
# #
# #
# $Z $xci/reduction_64$Z $xw1/VONK.4. $xiac/VONK.A1 1 2 #
# #
# $Z ro $xiac/VONK.A1$R64$ROUGE #
# $Z ro $xiac/VONK.A1$R64$VERTE #
# $Z ro $xiac/VONK.A1$R64$BLEUE #
# #
# $Z $xcg/unite$Z $xiac/VONK.A1$R64$ROUGE #
# $Z $xcg/unite$Z $xiac/VONK.A1$R64$VERTE #
# $Z $xcg/unite$Z $xiac/VONK.A1$R64$BLEUE #
# #
# #
# Pal #
# #
# $xci/disk_video_P$Z $xw1/VONK.4. 1 128 RVB \ #
# 9 1 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
# #
# xivPdf 3 2 #
# #
# record.01$Z $xiac/VONK.A1$R16 RVB Initialisation #
# record.01$Z $xiac/VONK.A1$R64 RVB rien #
# #
sequence 034713_034840
# Generee par : #
# #
# $Z SET Nimages=128 #
# #
# $Z Pal #
# #
# $Z $DELETE $xT/ANGLES #
# #
# $Z $xcg/scale$X multiplicateur=0 nombre=$pi diviseur=3 > $xT/ANGLES #
# $Z saut >>! $xT/ANGLES #
# $Z $xcg/scale$X multiplicateur=1 nombre=$pi diviseur=3 >>! $xT/ANGLES #
# $Z saut >>! $xT/ANGLES #
# $Z $xcg/scale$X multiplicateur=4 nombre=$pi diviseur=3 >>! $xT/ANGLES #
# $Z saut >>! $xT/ANGLES #
# $Z $xcg/scale$X multiplicateur=1 nombre=$pi diviseur=3 >>! $xT/ANGLES #
# #
# #
# $Z Pal #
# #
# $c #define N0 1 #
# $c #define N Nimages #
# #
# $c int main() #
# $c { #
# $c int n; #
# #
# $c double rapportD=3.0; #
# $c double rapportA=2.0; #
# #
# $c for (n=N0 ; n<=N ; n++) #
# $c { #
# $c printf("$xrc/Cfract_4D.11$X #
# $c iterations=4 #
# $c ANGLE_DE_ROTATION_1=$xT/ANGLES #
# $c ANGLE_DE_ROTATION_2=$xT/ANGLES #
# $c ANGLE_DE_ROTATION_3=$xT/ANGLES #
# $c rapport=%f #
# $c yG=-0.6 yD=-0.6 #
# $c aleatoire=FAUX quaternion=VRAI #
# $c recursion=6 #
# $c Lz=1000 #
# $c R=$xT/VONK.5. #
# $c $formatI\n" #
# $c ,((rapportA*(n-N0))+(rapportD*(N-n)))/(N-N0) #
# $c ,n #
# $c ); #
# $c printf("$MV $xT/VONK.5.%04d$ROUGE #
# $c $xw1/VONK.5.%04d$ROUGE\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$MV $xT/VONK.5.%04d$VERTE #
# $c $xw1/VONK.5.%04d$VERTE\n" #
# $c ,N0,n #
# $c ); #
# $c printf("$MV $xT/VONK.5.%04d$BLEUE #
# $c $xw1/VONK.5.%04d$BLEUE\n" #
# $c ,N0,n #
# $c ); #
# $c } #
# $c } #
# #
# #
# $Z $DELETE $xT/ANGLES #
# #
# #
# $Z Pal #
# #
# #
# $Z $xci/reduction_16$Z $xw1/VONK.5. $xiac/VONK.a1 1 8 #
# #
# $Z ro $xiac/VONK.a1$R16$ROUGE #
# $Z ro $xiac/VONK.a1$R16$VERTE #
# $Z ro $xiac/VONK.a1$R16$BLEUE #
# #
# $Z $xcg/unite$Z $xiac/VONK.a1$R16$ROUGE #
# $Z $xcg/unite$Z $xiac/VONK.a1$R16$VERTE #
# $Z $xcg/unite$Z $xiac/VONK.a1$R16$BLEUE #
# #
# #
# $Z $xci/reduction_64$Z $xw1/VONK.5. $xiac/VONK.a1 1 2 #
# #
# $Z ro $xiac/VONK.a1$R64$ROUGE #
# $Z ro $xiac/VONK.a1$R64$VERTE #
# $Z ro $xiac/VONK.a1$R64$BLEUE #
# #
# $Z $xcg/unite$Z $xiac/VONK.a1$R64$ROUGE #
# $Z $xcg/unite$Z $xiac/VONK.a1$R64$VERTE #
# $Z $xcg/unite$Z $xiac/VONK.a1$R64$BLEUE #
# #
# #
# Pal #
# #
# $xci/disk_video_P$Z $xw1/VONK.5. 1 128 RVB \ #
# 9 1 Initialisation Sequence \ #
# "$formatI" $Gamma_lorenz #
# #
# #
# xivPdf 3 2 #
# #
# record.01$Z $xiac/VONK.a1$R16 RVB Initialisation #
# record.01$Z $xiac/VONK.a1$R64 RVB rien #
# #
# #
# ATTENTION : je note le 20181201173810 que ces images sont mauvaises car, en effet, elles #
# ont ete generees avec une grave erreur ('v $ximcd/operator$FON 20181201121241'). Elles #
# donc ete regenerees sous les noms 'v $xiac/VONK.b1$R16' et 'v $xiac/VONK.b1$R64'... #
#######################################################################################################################################
# #
# 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 005756_006011
Sequence 006012_006267
# Zoom tridimensionnel sur l'ensemble de Mandelbrot. #
sequence 019219_019346 ralenti=1
sequence 019347_019474 ralenti=1
sequence 019475_019602 ralenti=1
Sequence 019603_019730 ralenti=1
# Panoramique sur un ensemble de Julia dans les Quaternions. #
sequence 024339_024466
sequence 024467_024594
sequence 024723_024850
Sequence 024595_024722
# Translation le long du quatrieme axe d'un ensemble de Julia dans les Quaternions. #
Sequence 003764_004275
Sequence 004276_004787
Sequence 004788_005299
# Marche aleatoire de 64 particules sans, puis avec contraintes ('MIRE' et 'ANNEAU') et #
# vue de plus loin sur un reseau carre bidimensionnel. #
sequence 026649_027160
sequence 027673_028184
# Marche aleatoire de 1024 particules sur un reseau carre bidimensionnel avec contraintes #
# ('GAUSS.8810') et avec aggregation. Ensuite, une variation artistique... #
Sequence 018195_018706
# Marche aleatoire de 64 particules sans contraintes sur un reseau carre tridimensionnel. #
sequence 015435_015534
# Visualisation des erreurs d'arrondi sur la dynamique de Verhulst. #
sequence 007292_007375
sequence 007375_007464
sequence 007464_007547
Sequence 007292_007547
# Visualisation de la notion d'inclinaison a l'aide de 3 corps pour lesquels il n'y a #
# d'interaction gravitationnelle qu'avec l'etoile, avec eventuellement des pauses permettant #
# de visualiser la "ligne des noeuds". #
Sequence 020755_021266
Sequence 021779_022290
# La sensibilite aux erreurs d'arrondi pour le probleme des N-corps (N=4) sans, puis avec la #
# mise en evidence de l'un des quatre corps. #
Sequence 018707_019218
# Sensibilite aux conditions initiales avec 4 corps (avec une variation de 1 et 2 metres #
# sur la position initiale du deuxieme corps -la "Terre"-). #
sequence 023315_023826
# Que se passe-t-il lorsque 16 planetes sont sur la meme trajectoire ? #
Sequence 016047_016558
# Notre Systeme Solaire sur de nombreuses annees (version "heliocentrique"). #
Sequence 016559_017070
# Demonstration du "geocentrisme" : le Systeme Solaire visualise avec comme origine des #
# coordonnees, notre Terre. #
Sequence 015079_015206
Sequence 019731_020241
# Du geocentrisme a l'heliocentrisme (de Mars au Soleil). #
Sequence 030233_030360
Sequence 030361_030872
# Du geocentrisme a l'heliocentrisme en tournant la trajectoire de la Terre de pi/2. #
sequence 030873_031000
sequence 031001_031512
sequence 031513_031768
sequence 031769_032024
# Le geocentrisme avec rotation de 2.pi de la trajectoire de la Terre, suivi de deux #
# variations artistiques... #
sequenceI 024851_025106
sequenceI 023827_024338
sequenceI 025619_026130
# De l'heliocentrisme au "Plutonisme" (avec transformation non lineaire des coordonnees #
# spheriques). #
sequence 033049_033304
Sequence 032281_032536
Sequence 032537_033048
Sequence 033305_033560
# Le "Plutonisme" avec rotation de 2.pi de la trajectoire de la Terre virtuelle, avec #
# deux variations artistiques... #
sequence 017171_017682
sequence 017683_018194
# Un peu de Science-Fiction... #
#######################################################################################################################################
# #
# 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 ) : #
# #
#######################################################################################################################################
#######################################################################################################################################
# #
# P R O J E T D E F I L M S U R L E S E R R E U R S D ' A R R O N D I S ( F I N ) : #
# #
#######################################################################################################################################
sequence 015435_015534
# Cinq formulations differentes de la Dynamique de Verhulst. #
sequence 020755_021245
sequence 021779_022269
# La sensibilite aux erreurs d'arrondi pour le probleme des N-corps (N=4) sans, puis avec la #
# mise en evidence de l'un des quatre corps. #
#######################################################################################################################################
# #
# P R O J E T D E F I L M S U R L E V O Y A G E D E P L U T O N A U S O L E I L : #
# #
#######################################################################################################################################
r 024851
r 025000
r 024851
r 025000
r 024851
sequence 024851_025106
sequence 023827_024338
sequence 023827_023915
sequence 023915_024068
sequence 024068_024204
sequence 024204_024265
sequence 024265_024317
sequence 024317_024325
sequence 024325_024328
sequence 024328_024333
sequence 024333_024338
sequence 025619_025707
sequence 025707_025860
sequence 025860_025996
sequence 025996_026057
sequence 026057_026109
sequence 026109_026117
sequence 026117_026120
sequence 026120_026125
sequence 026125_026130
# Du "Plutonisme" a l'heliocentrisme, avec passage ensuite par des positions intermediaires #
# correspondant a des distances au Soleil egale aux distances moyennes des 9 planetes du #
# Systeme Solaire, a savoir {Pluto,Neptune,Uranus,Saturn,Jupiter,Mars,Earth,Venus,Mercury}. #