#######################################################################################################################################
# #
# C O N S T R U C T I O N D ' U N E C O U R B E #
# C O U R B E D E H I L B E R T S U R U N E V A R I E T E B I D I M E N S I O N N E L L E : #
# #
# #
# Author of '$xiav/.HILB.r8.$U' : #
# #
# Jean-Francois COLONNA (LACTAMME, 20250124103002). #
# #
#######################################################################################################################################
$Z SETParam _____GenereRVB $NEXIST
$Z setParam _____SurfacePara1 "$K_VIDE"
$Z set NPoInTs_SuRfAcE=`$CA $FLiStE_PoInTs | $WCl`
$Z $CA $FLiStE_PoInTs | \
$Z $AW ' { print $3 } ' | \
$Z $SE -e 's/^.*=//' | \
$Z $xrv/normalise.01$X \
$Z ne=0 fichier== \
$Z $_____Renormalisation_u \
$Z > $FLiStE_PoInTs$COORD_X
$Z $CA $FLiStE_PoInTs | \
$Z $AW ' { print $4 } ' | \
$Z $SE -e 's/^.*=//' | \
$Z $xrv/normalise.01$X \
$Z ne=0 fichier== \
$Z $_____Renormalisation_v \
$Z > $FLiStE_PoInTs$COORD_Y
$Z set CoLoRiAgE_RVB="$K_VIDE"
$Z if ($_____GenereRVB == $EXIST) then
$Z $CA $FLiStE_PoInTs | \
$Z $AW ' { print $9 } ' | \
$Z $SE -e 's/^.*=//' \
$Z > $FLiStE_PoInTs$ROUGE
$Z $CA $FLiStE_PoInTs | \
$Z $AW ' { print $10 } ' | \
$Z $SE -e 's/^.*=//' \
$Z > $FLiStE_PoInTs$VERTE
$Z $CA $FLiStE_PoInTs | \
$Z $AW ' { print $11 } ' | \
$Z $SE -e 's/^.*=//' \
$Z > $FLiStE_PoInTs$BLEUE
$Z $CA $FLiStE_PoInTs | \
$Z $AW ' { print $7 } ' | \
$Z $SE -e 's/^.*=//' \
$Z > $FLiStE_PoInTs$MASSE
$Z set CoLoRiAgE_RVB="$CoLoRiAgE_RVB"" coordonnees_ROUGE=$FLiStE_PoInTs$ROUGE"
$Z set CoLoRiAgE_RVB="$CoLoRiAgE_RVB"" coordonnees_VERTE=$FLiStE_PoInTs$VERTE"
$Z set CoLoRiAgE_RVB="$CoLoRiAgE_RVB"" coordonnees_BLEUE=$FLiStE_PoInTs$BLEUE"
$Z set CoLoRiAgE_RVB="$CoLoRiAgE_RVB"" coordonnees_MASSE=$FLiStE_PoInTs$MASSE"
$Z set CoLoRiAgE_RVB="$CoLoRiAgE_RVB"" extrema_differentielles_veritables=VRAI"
$Z # L'option "extrema_differentielles_veritables=VRAI" est destinee a conserver integralement #
$Z # la dynamique des trois fichiers {$ROUGE,$VERTE,$BLEUE}. #
$Z else
$Z endif
$Z FilSTmpB FPaLeTtE
$Z _____include(_____xiirv/.HILB.M5.1._____U)
$Z # ATTENTION : ci-dessus, il s'agit bien d'un '$Z' car, en effet, sinon un '$m4' provoque #
$Z # le message : #
$Z # #
$Z # _____ImagesT: Undefined variable. #
$Z # #
$Z # lors du 'glistN Debut_listG_HILB_r8'... #
$Z if (-e $FLiStE_PoInTs$RAYON) then
$Z set MoDuLaTiOn_RaYoN="coordonnees_RAYON=$FLiStE_PoInTs$RAYON"
$Z else
$Z set MoDuLaTiOn_RaYoN="$K_VIDE"
$Z endif
$Z if ( (-e $FLiStE_PoInTs$ROUGE) \
$Z && (-e $FLiStE_PoInTs$VERTE) \
$Z && (-e $FLiStE_PoInTs$BLEUE) \
$Z ) then
$Z set MoDuLaTiOn_CoUlEuRs="$K_VIDE"
$Z set MoDuLaTiOn_CoUlEuRs="$MoDuLaTiOn_CoUlEuRs ""coordonnees_ROUGE=$FLiStE_PoInTs$ROUGE"
$Z set MoDuLaTiOn_CoUlEuRs="$MoDuLaTiOn_CoUlEuRs ""coordonnees_VERTE=$FLiStE_PoInTs$VERTE"
$Z set MoDuLaTiOn_CoUlEuRs="$MoDuLaTiOn_CoUlEuRs ""coordonnees_BLEUE=$FLiStE_PoInTs$BLEUE"
$Z set MoDuLaTiOn_CoUlEuRs="$MoDuLaTiOn_CoUlEuRs"" extrema_differentielles_veritables=VRAI"
$Z else
$Z set MoDuLaTiOn_CoUlEuRs="$K_VIDE"
$Z endif
$Z SET Premiere=1
$Z SET Derniere=256
$Z set index=$Premiere
$Z set NuMeRoS=`$xci/nombres$X p=$Premiere d=$Derniere`
$Z set NpartU=`$CA $FLiStE_PoInTs$COORD_X | $WCl`
$Z set NpartV=`$CA $FLiStE_PoInTs$COORD_Y | $WCl`
$Z set Npart=`$xcg/MIN2.01$X x=$NpartU y=$NpartV signe="$K_VIDE"`
$Z set Npart1=`calculINS $Npart/($Derniere-$Premiere+1)`
$Z set ArGs_VaLeUrS="lineaire=VRAI entiers=VRAI"
$Z set LNpartCourant=`$xci/valeurs_inte$X p=$Premiere d=$Derniere vD=$Npart1 vA=$Npart $ArGs_VaLeUrS signe="$K_VIDE"`
$Z while ($index <= $Derniere)
$Z set NpartCourant=$LNpartCourant[$index]
$Z $_____Surface \
$Z u_v_arbitraires=VRAI \
$Z ne=$NpartCourant \
$Z coordonnees_u=$FLiStE_PoInTs$COORD_X \
$Z coordonnees_v=$FLiStE_PoInTs$COORD_Y \
$Z $MoDuLaTiOn_RaYoN \
$Z $CoLoRiAgE \
$Z $CoLoRiAgE_RVB \
$Z $MoDuLaTiOn_CoUlEuRs \
$Z $_____ArgSurface \
$Z editer_extrema_hors=FAUX \
$Z $_____SurfacePara1 \
$Z chiffres=0 \
$Z R=$_____ImagesT.$NuMeRoS[$index] \
$Z $formatI
$Z @ index = $index + 1
$Z end
$Z FilSTmpE FPaLeTtE