Discussion :

[cretindezalpes]

Bonjour,

Voilà... je m'arrache les cheveux sur une erreur.
La fonction suivante me retourne une erreur de virgule flottante qui se déclenche à l'étape "result := result+1".

arr_Index_E_Evaluation est un tableau d'entier.
arr_Donnees est un tableau à 2 dimensions de double.

Si quelqu'un voulait bien prendre soin de mes cheveux. Merci d'avance

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

function Calculer_Pourcentage_Commun(AIndex_X,AIndex_Y: integer): double;

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
function Calculer_Pourcentage_Commun(AIndex_X,AIndex_Y: integer): double;
var
  i,Index_E: integer;
begin
  result := 0.0;
  if Length(arr_Index_E_Evaluation)=0 then
    exit;
 
  for i := 0 to High(arr_Index_E_Evaluation) do
  begin
    Index_E := arr_Index_E_Evaluation[i];
    if not isNaN(arr_Donnees[AIndex_X,Index_E]) and not isNaN(arr_Donnees[AIndex_Y,Index_E]) then
      result := 1.0+result;
  end;
 
  result := result/High(arr_Index_E_Evaluation);
end;

PS : j'ai essayé de modifier mon code en ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
function Calculer_Pourcentage_Commun(AIndex_X,AIndex_Y: integer): double;
var
  i,Index_E,Compte: integer;
begin
  Compte:= 0.0;
  result := 0.0;
  if Length(arr_Index_E_Evaluation)=0 then
    exit;
 
  for i := 0 to High(arr_Index_E_Evaluation) do
  begin
    Index_E := arr_Index_E_Evaluation[i];
    if not isNaN(arr_Donnees[AIndex_X,Index_E]) and not isNaN(arr_Donnees[AIndex_Y,Index_E]) then
      Compte:= 1+Compte;
  end;
 
  result := Compte/High(arr_Index_E_Evaluation);
end;

Ca plante alors sur la dernière ligne.

[Clorish]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
var
  i,Index_E,Compte: integer;
begin
  Compte:= 0.0;

LA c'est normal ... compte est declaré comme integer ....

[cretindezalpes]

oui oui
Mais bon. C'est un mauvais copier coller
En fait, c'est bien un 0. Ca compilerait pas sinon d'ailleurs je crois.

[ShaiLeTroll]

Essaye d'utilise Inc(Result) ...

sinon, c'est vrai que c'est étrange, je n'ai pas testé le code, pour voir si j'avais pareil (pas bcp de temps)

[J-P-B]

La fonction suivante me retourne une erreur de virgule flottante qui se déclenche à l'étape "result := result+1".

Salut
Es-tu sûr que c'est cette ligne qui déclenche ? chez moi c'est souvent (pour pas dire à 95%) la ligne précédente qui déclenche l'exception ...
Sinon, As-tu coché les DCU de débogage ?
ensuite, il faudrait voir ce que vaut i, arr_Donnees[AIndex_X,Index_E] et arr_Donnees[AIndex_Y,Index_E] au moment de l'exception (à tester dans un try ... except par exemple)

JP

[lapec_and_cie]

Salut,

je pense qu'il serait beaucoup mieux de travailler avec une variable locale, au lieu de travailler à partir de ta variable de retour. Par exemple tu peux définir une variable pourcent de type double, et une variable iNbIterations de type integer :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
var pourcent : double;
               iNbiterations : integer;

ensuite pour remplacer ton result := result + 1:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

inc(iNbIterations);

et enfin :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

result := iNbIterations/High(arr_Index_E_Evaluation);

Essaie celà...

A plus,

Christopher

[sovitec]

Juste une petite question : si le tableau a un seul élément alors High(...) est égal à 0 et on a une division par 0 ? Non ?

[cretindezalpes]

1. Inc n'accepte que des entiers je crois.

2. C'est bien l'affectation à result qui plante. Pas la ligne sur la condition. J'en veux pour preuve mon second code qui ne plante pas lors du "Compte := Compte+1". Ni avant.

3. J'ai mis tout ça entre des try except. J'ai mis les valeurs de mon tableau dans des variables temporaires. Elles ont des valeurs normales et justes (Index dans les limites des tableaux et valeurs de Données réelles ou bien égales à "NaN").

J'ai quasiment plus de cheveux...

Merci pour votre aide

EDIT : ca existe IntToFloat ?
EDIT 2: oui ca planterait. J'aurais du mettre length. Mais le tableau fait 500 de longueur.

[cretindezalpes]

Regardez ce code.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
function Calculer_Pourcentage_Commun(AIndex_X,AIndex_Y: integer): double;
var
  i,Index_E: integer;
  d1,d2: double;
  Compte: integer;
begin
  if Length(arr_Index_E_Evaluation)=0 then
    exit;
  try
    try
      result := 0.0;
      Compte := 0;
      for i := 0 to High(arr_Index_E_Evaluation) do
      begin
        Index_E := arr_Index_E_Evaluation[i];
        d1 := arr_Donnees[AIndex_X,Index_E];
        d2 := arr_Donnees[AIndex_Y,Index_E];
        if not isNaN(d1) and not isNaN(d2) then
          Inc(Compte);
      end;
 
      result := Compte/Length(arr_Index_E_Evaluation);
    except
      on e:exception do
      begin
        if e.Message<>'' then
          MessageDlg(e.Message+#13+
                      'Compte='+FloatToStr(Compte)+#13+
                      'd1='+FloatToStr(d1)+#13+
                      'd2='+FloatToStr(d2)+#13+
                      'Index_E='+intToStr(Index_E),mtError,[mbOk],0);
        result := Compte/Length(arr_Index_E_Evaluation);
      end;
    end;
  finally
  end;
end;

Ben croyez le ou pas, ca plante pas au second essai dans le except -_-.

[Ludo_360]

si tu essais

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
result := round(1.0+result);

Ca ne te conviendrait pas?

ludo

[cretindezalpes]

Pour préciser le problème.

Lorsque je lance mon calcul, cette fonction est appelée 100 fois (environ).
Le plantage est systématique sur le second appel. Ce ne plante plus pour les 98 fois restantes.

Si je relance mon calcul une seconde fois. Ca ne plante plus du tout. En fait, ce ne plante plus jamais.

EDIT : (d'ou l'idée de refaire un essai dans le except, idée concluante)

[lapec_and_cie]

Re,

Mais ton tableau tu l'as crée dynamiquement ou il est créé comme variable globale, comme ceci var arr... : array[0..100] of integer;?????

Est ce que la valeur de retour de High() renvoie une valeur différente de 0???

A plus,

Christopher

[cretindezalpes]

Mon tableau arr_Index_E_Evaluation est dynamique. Sa taille vaut à peu près 500 au cours de mes tests. Elle est initialisée avant l'appel de ma fonction.

Ce tableau contient des indices de la second dimension de mon tableau arr_Donnees, lui aussi dynamique.

arr_Donnees a une taille qui vaut 10x900 dans mon problème, initialisé dynamiquement au préalable.

Je ne pense pas que le problème vienne des tableaux car ceux-ci sont employés à beaucoup d'autres endroits sans problème.

Encore une fois, le plantage n'intervient pas à la lecture des valeurs du tableaux. Le débugage au pas à pas me le démontre clairement mais bien au moment de l'affectation d'une valeur à result.

[Gilbert Geyer]

Au passage, vu que Clorish a déjà signalé que Compte : integer en conséquence de quoi profites-en pour :
- remplacer : 'Compte='+FloatToStr(Compte)+#13+...
- par 'Compte='+IntToStr(Compte)+#13+...

... cela ne réglera peut-être pas tous les problèmes mais ta bécane ne s'en plaindra pas.

[cretindezalpes]

^^

[DragonHeart]

As tu essayé de stocker la valeur de High(...) dans une variable temporaire?
Je ne pense pas que cela change grand chose mais on ne sait jamais ...

[e-ric]

Je voulais savoir si le tableau dynamique arr_Donnees est une matrice "pleine" (c'est un tableau dont tous les vecteurs ont la même taille) ou un tableau de vecteurs de tailles différentes ?

Cdlt

e-ric

[cretindezalpes]

La matrice est initialisée avec un

SetLength(arr_Donnees,Dim1,Dim2) où Dim1 et Dim2 sont des Entiers. Donc oui, les vecteurs ont tous la même taille.

[cretindezalpes]

Je pense de plus en plus pour un problème lié à des pertes de mémoire.

Je viens d'avoir une autre erreur très similaire aujourd'hui : une procédure appelée n fois, utilisant une variable globale de mon projet de type Entier.

Au deuxième appel, elle plante car la variable ne pointe plus vers rien alors que nul part, celle-ci n'est modifiée.

Ce programme marchait très bien il y a 3 semaines .