/*************************************************************************************************************************************/ /* */ /* D E F I N I T I O N S R E L A T I V E S A U X C O O R D O N N E E S */ /* D ' U N E H E L I C E " E P A I S S I E " : */ /* */ /* */ /* Author of '$xrs/helicoide.12$I' : */ /* */ /* Jean-Francois Colonna (LACTAMME, 20161226095027). */ /* */ /*************************************************************************************************************************************/ /*===================================================================================================================================*/ /*************************************************************************************************************************************/ /* */ /* D E F I N I T I O N D E S P A R A M E T R E S : */ /* */ /*************************************************************************************************************************************/ =define PARAMETRE_Ra \ FRA1(FRA10(FU)) DEFV(Local,DEFV(Float,INIT(parametre_Ra,PARAMETRE_Ra))); DEFV(Local,DEFV(Float,INIT(d_parametre_Ra,d_FCONSTANTES))); /* Definition de la valeur du parametre 'Ra' au cours du temps. */ =define PARAMETRE_Rb \ FRA1(FRA10(FU)) DEFV(Local,DEFV(Float,INIT(parametre_Rb,PARAMETRE_Rb))); DEFV(Local,DEFV(Float,INIT(d_parametre_Rb,d_FCONSTANTES))); /* Definition de la valeur du parametre 'Rb' au cours du temps. */ =define PARAMETRE_R \ FU DEFV(Local,DEFV(Float,INIT(parametre_R,PARAMETRE_R))); DEFV(Local,DEFV(Float,INIT(d_parametre_R,d_FCONSTANTES))); /* Definition de la valeur du parametre 'R' au cours du temps. */ =define PARAMETRE_A \ FU DEFV(Local,DEFV(Float,INIT(parametre_A,PARAMETRE_A))); DEFV(Local,DEFV(Float,INIT(d_parametre_A,d_FCONSTANTES))); /* Definition de la valeur du parametre 'A' au cours du temps. */ =define PARAMETRE_B \ FZERO DEFV(Local,DEFV(Float,INIT(parametre_B,PARAMETRE_B))); DEFV(Local,DEFV(Float,INIT(d_parametre_B,d_FCONSTANTES))); /* Definition de la valeur du parametre 'B' au cours du temps. */ =define PARAMETRE_C \ FZERO DEFV(Local,DEFV(Float,INIT(parametre_C,PARAMETRE_C))); DEFV(Local,DEFV(Float,INIT(d_parametre_C,d_FCONSTANTES))); /* Definition de la valeur du parametre 'C' au cours du temps. */ =define PARAMETRE_D \ FZERO DEFV(Local,DEFV(Float,INIT(parametre_D,PARAMETRE_D))); DEFV(Local,DEFV(Float,INIT(d_parametre_D,d_FCONSTANTES))); /* Definition de la valeur du parametre 'D' au cours du temps. */ =define PARAMETRE_E \ FZERO DEFV(Local,DEFV(Float,INIT(parametre_E,PARAMETRE_E))); DEFV(Local,DEFV(Float,INIT(d_parametre_E,d_FCONSTANTES))); /* Definition de la valeur du parametre 'E' au cours du temps. */ =define PARAMETRE_F \ FZERO DEFV(Local,DEFV(Float,INIT(parametre_F,PARAMETRE_F))); DEFV(Local,DEFV(Float,INIT(d_parametre_F,d_FCONSTANTES))); /* Definition de la valeur du parametre 'F' au cours du temps. */