#######################################################################################################################################
# #
# I N T E R P O L A T I O N E N T R E D E U X S U R F A C E S : #
# #
# #
# Author of '$xiirs/.PROJ.B1.1.$U' : #
# #
# Jean-Francois Colonna (LACTAMME, 20051017160103). #
# #
#######################################################################################################################################
$Z setParam _____ArgSurface_1 "$K_VIDE"
$Z # Argument introduit le 20060424092220 pour 'v $xias/PROJ.B1$R16' et 'v $xiirs/PROK.31'... #
$Z setParam _____ArgSurface_2 "$K_VIDE"
$Z # Argument introduit le 20060424092220 pour 'v $xias/PROJ.B1$R16' et 'v $xiirs/PROK.31'... #
$Z if ($?Premiere == $NEXIST) then
$Z # Test introduit le 20080928182758 pour 'v $xiav/$Fnota Debut_listG_STRU_H2H1_16'... #
$Z SET Premiere=1
$Z else
$Z endif
$Z if ($?Derniere == $NEXIST) then
$Z # Test introduit le 20080928182758 pour 'v $xiav/$Fnota Debut_listG_STRU_H2H1_16'... #
$Z SET Derniere=16
$Z else
$Z endif
#20141227121515____:$Z Pal #
$Z $xrs/project2D.01$Z \
$Z $_____Surface_1 \
$Z $xTV/SURFACE.1 \
$Z "$_____ArgSurface_1"
$Z # Projection de la premiere surface argument... #
$Z $xrs/project2D.01$Z \
$Z $_____Surface_2 \
$Z $xTV/SURFACE.2 \
$Z "$_____ArgSurface_2"
$Z # Projection de la deuxieme surface argument... #
#20141227121814____:$Z Pal #
$Z FilSTmpB FInTeRpOlE
$c #include <stdio.h>
$c
$c #define N0 Premiere
$c #define N Derniere
$c
$c #define Olambda 0.0
$c #define Elambda 1.0
$c
$c int main()
$c {
$c int n;
$c
$c for (n=N0 ; n<=N ; n++)
$c {
$c double lambda=((Elambda*(n-N0))+(Olambda*(N-n)))/(N-N0);
$c
$c printf("echo %cset execXYZ_Para=FAUX ;
$c execXYZ
$c %c$xci/interpole.01$X
$c standard=FAUX
$c alpha=%f
$c A1=$xTV/SURFACE.1%%s
$c beta=%f
$c A2=$xTV/SURFACE.2%%s
$c $formatI |
$c $xci/normalise.01$X
$c origine=-1 extremite=1
$c R=$_____imagesS%%s.%04d
$c $formatI%c%c
$c >> $FInTeRpOlE\n"
$c ,'\''
$c ,'"'
$c ,1-lambda,lambda
$c ,n
$c ,'"'
$c ,'\''
$c );
$c /* Interpolation entre les deux surfaces... */
$c /* */
$c /* La parallelisation de l'interpolation a ete introduite le 20150327151653 en notant le : */
$c /* */
$c /* set execXYZ_Para=FAUX */
$c /* */
$c /* destine a ne pas faire du "sous-parallelisme" a l'interieur du "parallelisme" afin */
$c /* de ne pas surcharger le systeme... */
$c }
$c }
$Z execPar_V $FInTeRpOlE
$Z FilSTmpE FInTeRpOlE