version 1.2, 2010/01/27 22:22:11
|
version 1.25, 2011/06/22 13:26:58
|
Line 1
|
Line 1
|
/* |
/* |
================================================================================ |
================================================================================ |
RPL/2 (R) version 4.0.10 |
RPL/2 (R) version 4.1.0.prerelease.3 |
Copyright (C) 1989-2010 Dr. BERTRAND Joël |
Copyright (C) 1989-2011 Dr. BERTRAND Joël |
|
|
This file is part of RPL/2. |
This file is part of RPL/2. |
|
|
Line 20
|
Line 20
|
*/ |
*/ |
|
|
|
|
#include "rpl.conv.h" |
#include "rpl-conv.h" |
|
|
|
|
/* |
/* |
Line 45 estimation_taille_pile(struct_processus
|
Line 45 estimation_taille_pile(struct_processus
|
* est estimée au travers d'une chaîne de Markov. |
* est estimée au travers d'une chaîne de Markov. |
*/ |
*/ |
|
|
(*s_etat_processus).estimation_taille_pile_tampon = |
if ((*s_etat_processus).hauteur_pile_operationnelle > |
((*s_etat_processus).estimation_taille_pile_tampon * |
(*s_etat_processus).estimation_taille_pile_tampon) |
((double) 0.9)) + ((*s_etat_processus) |
{ |
.hauteur_pile_operationnelle * ((double) 0.1)); |
(*s_etat_processus).estimation_taille_pile_tampon = |
|
(*s_etat_processus).estimation_taille_pile_tampon; |
|
} |
|
else |
|
{ |
|
(*s_etat_processus).estimation_taille_pile_tampon = |
|
((*s_etat_processus).estimation_taille_pile_tampon * |
|
((double) 0.95)) + ((*s_etat_processus) |
|
.hauteur_pile_operationnelle * ((double) 0.05)); |
|
} |
|
|
return; |
return; |
} |
} |
|
|
Line 243 void
|
Line 253 void
|
affichage_pile(struct_processus *s_etat_processus, struct_liste_chainee |
affichage_pile(struct_processus *s_etat_processus, struct_liste_chainee |
*l_element_courant, unsigned long niveau_courant) |
*l_element_courant, unsigned long niveau_courant) |
{ |
{ |
|
unsigned char registre; |
|
|
|
registre = (*s_etat_processus).autorisation_conversion_chaine; |
|
(*s_etat_processus).autorisation_conversion_chaine = 'N'; |
|
|
ecriture_pile(s_etat_processus, stdout, l_element_courant, niveau_courant); |
ecriture_pile(s_etat_processus, stdout, l_element_courant, niveau_courant); |
|
|
|
(*s_etat_processus).autorisation_conversion_chaine = registre; |
return; |
return; |
} |
} |
|
|