/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        T E S T   D E   L A   D E R I V A T I O N   F O R M E L L E   V I A   D E S   F I C H I E R S  :                           */
/*                                                                                                                                   */
/*                                                                                                                                   */
/*        Author of '$xtKg/derivees.12$I' :                                                                                          */
/*                                                                                                                                   */
/*                    Jean-Francois Colonna (LACTAMME, 1993??????????).                                                              */
/*                                                                                                                                   */
/*************************************************************************************************************************************/

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        D E F I N I T I O N   D ' U N E   P R O C E D U R E  :                                                                     */
/*                                                                                                                                   */
/*************************************************************************************************************************************/
-define   TEST_DE_LA_DERIVATION_FORMELLE_DANS_I(ordre)                                                                                  \
-_-_-_-             Bblock                                                                                                              \
-_-_-_-             PRINT("d2 : fonction composee dans un '$I'"                                                                         \
-_-_-_-                  ,Fonction_I(x4)                                                                                                \
-_-_-_-                  ,d#ADD2(MUL2(INVE(x4),d_x4),MUL2(NEUT(COSX(x4)),d_x4))                                                         \
-_-_-_-                  ,d-{ordre}-Fonction_I(x4)                                                                                      \
-_-_-_-                   );                                                                                                            \
-_-_-_-             Eblock
                                        /* Test dans la derivation formelle dans un fichier d'include '$I'. ATTENTION, la validation */
                                        /* faite par 'PRINT(...)' ne sera correcte que pour ordre=2...                               */