version 1.43, 2013/03/20 17:11:43
|
version 1.75, 2025/04/15 10:17:49
|
Line 1
|
Line 1
|
/* |
/* |
================================================================================ |
================================================================================ |
RPL/2 (R) version 4.1.13 |
RPL/2 (R) version 4.1.36 |
Copyright (C) 1989-2013 Dr. BERTRAND Joël |
Copyright (C) 1989-2025 Dr. BERTRAND Joël |
|
|
This file is part of RPL/2. |
This file is part of RPL/2. |
|
|
Line 64 integrale_romberg(struct_processus *s_et
|
Line 64 integrale_romberg(struct_processus *s_et
|
integer8 nombre_termes; |
integer8 nombre_termes; |
integer8 taille_vecteur_precedent; |
integer8 taille_vecteur_precedent; |
|
|
|
erreur = 0; |
|
|
/* |
/* |
* Création d'une variable locale représentant la variable d'intégration |
* Création d'une variable locale représentant la variable d'intégration |
*/ |
*/ |
Line 197 integrale_romberg(struct_processus *s_et
|
Line 199 integrale_romberg(struct_processus *s_et
|
return; |
return; |
} |
} |
|
|
|
|
if (vecteur_precedent == NULL) |
if (vecteur_precedent == NULL) |
{ |
{ |
/* |
/* |
Line 350 evaluation_romberg(struct_processus *s_e
|
Line 351 evaluation_romberg(struct_processus *s_e
|
struct_objet *s_expression, unsigned char *variable, real8 *point, |
struct_objet *s_expression, unsigned char *variable, real8 *point, |
real8 *valeur, logical1 *validite) |
real8 *valeur, logical1 *validite) |
{ |
{ |
long hauteur_pile; |
integer8 hauteur_pile; |
|
|
struct_liste_pile_systeme *l_position_normale; |
struct_liste_pile_systeme *l_position_normale; |
|
|