Comment calculer la moyenne avec des nombres sélectionnés dans un fichier?

Version imprimable

Bonjour à tous,
j'ai un soucis pour calculer la moyenne de nombres que je sélectionne dans un fichier.
Je vous envoie mon code pour mieux comprendre mon problème :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 float Buf; for (int i = 3; i <= Fichier->Strings [i]; i++) { AnsiString Ligne = Fichier->Strings [i]; AnsiString PH = strtok(Ligne.c_str()," "); Buf = (PH [i]+ PH [i-1])/2; } FormClient->EditPH->Text = Buf;
Le fichier se présente comme ceci :

8,2 4,9 37 0
8,9 4,9 37 0
9,2 4,9 37 0
8,2 4,8 37 0
7,0 4,9 37 0
8,2 4,9 37 0
8,2 4,8 37 0
8,2 4,8 37 0

Ce sont les nombres qui sont en rouge avec lesquels je veux faire une moyenne.

Merci d'avance pour vos réponses, à bientôt !

:)

Pour moi il y a plusieurs problème, tout d'abord la condition d'arrêt de ta boucle for est a revoir, ensuite, il faut que tu stock toutes tes valeurs dans un vecteur pour faire ensuite ta moyenne, cela donnerai un truc du genre
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 float moyenne; vector<float> tabValeur; for (int i = 3; i <= Fichier->Strings [i]; i++) //Condition à revoir { AnsiString Ligne = Fichier->Strings [i]; AnsiString PH = strtok(Ligne.c_str()," "); tabValeur.push_back(PH.ToDouble()); } moyenne = 0; for(int i=0;i<tabValeur.size();i++) { moyenne += tabValeur[i]; } moyenne = moyenne / tabValeur.size(); FormClient->EditPH->Text = AnsiString(moyenne);

Salut !

On suppose le nom complet du fichier dans :

Code:

1
2
 
AnsiString Filename;

Donc :

Code:

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
 
void __fastcall TForm1::SpeedButton1Click(TObject *Sender)
{
if(FileExists(Filename))
    {
    TStringList *Fichier = new TStringList;
    Fichier->LoadFromFile(Filename);
    AnsiString Chaine;
    AnsiString Nombre;
    int p;
    double s = 0.0;
    for(int j = 0; j < Fichier->Count; j++)
        {
        Chaine = Fichier->Strings[j];
        p = Chaine.Pos(" ");
        if(p != 0) Nombre = Chaine.SubString(1, p);
        s = s + Nombre.ToDouble();
        }
    s = s / Fichier->Count;
    //Echo dans un label
    Label1->Caption = FloatToStr(s);
    //Libération de la mémoire
    Fichier->Clear();
    delete Fichier;
    }
}

Si on devait faire la moyenne pour l'ensemble des colonnes, dans ce cas il faudrait travailler en profondeur.

On suppose un tableau :

Code:

1
2
 
double Tab[4];

Et une méthode supplémentaire (qu'il suffit de déclarer dans la classe de la form, en public):

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
void __fastcall TForm1::Colonnes(AnsiString Chaine)
{
Chaine.Trim();
AnsiString Nombre;
int d = 0;
//Pour faire sans goto... 
int p = Chaine.Pos(" ");
while(p != 0)
    {
    Nombre = Chaine.SubString(1, p);
    Tab[d] += Nombre.ToDouble();
    d++;
    Chaine = Chaine.SubString(p+1, Chaine.Length());
    p = Chaine.Pos(" ");
    }
Tab[d] += Chaine.ToDouble();
}

La méthode principale devient :

Code:

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
 
void __fastcall TForm1::SpeedButton2Click(TObject *Sender)
{
if(FileExists(Filename))
    {
    TStringList *Fichier = new TStringList;
    Fichier->LoadFromFile(Filename);
    //RAZ du tableau
    ZeroMemory(Tab, sizeof(double) * 4);
    //ligne par ligne
    for(int j = 0; j < Fichier->Count; j++)
        {
        Colonnes(Fichier->Strings[j]);
        }
    //Moyenne des colonnes
    for(int j = 0; j < 4; j++)
        {
        Tab[j] = Tab[j] / Fichier->Count;
        }
    //Echo dans mes labels
    Label1->Caption = FloatToStr(Tab[0]);
    Label2->Caption = FloatToStr(Tab[1]);
    Label3->Caption = FloatToStr(Tab[2]);
    Label4->Caption = FloatToStr(Tab[3]);
    //Libération de la mémoire
    Fichier->Clear();
    delete Fichier;
    }

Peut-être peut-on faire plus simple... (???)

A plus !

06/05/2008, 11h51
petitclem

Merci POTTIEZ, mais là je doit te dire que j'ai rien compris ... 8O

Désolé, j'avais oublié de supprimer une ligne de ton ancien code et le code que j'ai présenté n'été pas optimisé.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 float moyenne = 0; int nbValeur = 0; for (int i = 3; i <= Fichier->Strings [i]; i++) //Condition à revoir { AnsiString Ligne = Fichier->Strings [i]; AnsiString PH = strtok(Ligne.c_str()," "); moyenne += PH.ToDouble(); nbValeur++; } moyenne = moyenne / nbValeur; FormClient->EditPH->Text = AnsiString(moyenne);
Sinon le code de henderson est directement optimisé :D

06/05/2008, 12h15
petitclem

OK d'accord, merci à tous les deux.
Par contre comment je fais henderson si mes données dans le fichier ne commence qu'à la 4ème ligne jusqu'à la fin?
06/05/2008, 12h18
pottiez

Simplement en initialisant j à 3 au lieu de 0 dans la boucle for :

Code:

for(int j = 3; j < Fichier->Count; j++)
06/05/2008, 12h26
petitclem

C'est bon ça fonctionne, encore merci :merci:

:yaisse3:
06/05/2008, 13h01
petitclem

Excuse moi encore henderson mais lorsque j'exécute le code pour calculer la moyenne de plusieurs colonnes, il me met un message d'erreur :

" n'est pas une valeur à virgule flottante !

Quel est le problème ?

8O
06/05/2008, 13h10
henderson

Salut !

J'ai testé avec le tableau que tu as donné et je n'ai pas eu de problèmes !
On est bien d'accord que chaque nombre est séparé par un espace ?
Si on devait se trouver avec un formatage différent, dans ce cas il suffirait d'en tenir compte !

Le fait qu'une expression ne soit pas une valeur décimale correcte montre qu'il y a des caractères non valides !

A plus !

Tu as raison henderson, ça fonctionne. :P
Mais j'ai un soucis avec mes premières lignes du fichier : le calcul doit commencer à la 4ème ligne :

TYPE F: ST
ratp
1071208
8,2 4,9 37 0
8,2 4,9 37 0
8,2 4,9 37 0

Donc j'ai modifié le code :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 // Ligne par ligne for(int i = 3; i < Fichier->Count ; i++) { Colonnes(Fichier->Strings[i]); } // Moyenne des colonnes for(int i = 0; i < 3; i++) { Tab[i] = Tab[i] / Fichier->Count; } FormClient->EditPH->Text = FloatToStr(Tab[0]);
Le problème est que pour la moyenne de la premiere colonne je doit avoir en résultat 8,2 , mais là j'ai 4,1 en résultat.

D'où vient le soucis ?

:help:

06/05/2008, 14h50
pottiez

Déjà tu ne doit plus divisé par Fichier->Count, mais par (Fichier->Count - 3) puisque tu ne prend pas les 3 premières lignes
06/05/2008, 15h00
petitclem

Pas folle la bête, je suis vraiment idiot quelques fois :wow:

Encore une fois merci henderson !

:hola: :merci:
06/05/2008, 15h14
petitclem

Oh pardon : grand merci à toi aussi POTTIEZ
:king:
06/05/2008, 15h16
pottiez

:aie: de rien :mrgreen: