Einzelnen Beitrag anzeigen

DJAYS

Registriert seit: 13. Sep 2005
Ort: Nürnberg
28 Beiträge
 
Delphi 5 Standard
 
#5

Re: MeanValue(Mittelwert)Bereich Überprüfen

  Alt 25. Sep 2005, 22:10
hallo leute,
danke,so sieht meine Fkt zum berechnen vom Mittelwert aus:

[code]function CalcMeanValue (aData: Array of Word; // Type muss mit Deklaration übereinstimmen
uiArraySize: Integer; // Anzahl der Elemente des Arrays
uiStartIdx: Integer; // Startindex der Berechnung
uiEndIdx : Integer): Word ; // Endindex der Berechnung

var i,a : Integer; // Index
uiMeanVal : Word; // Zwischenergebnis MeanWert,ui=unsigned integer
sum : DWord;
begin
sum := 0;
a := 0;

uiMeanVal := $000 ; // entspricht 16bit meanwert

for i := uiStartIdx to uiEndIdx do
begin
inc(a);
sum := sum + aData[i];// Messwerte aufaddieren
end;
if a > 1 then uiMeanVal := Round(sum/a)
else uiMeanVal := 0; // Mittelwert;
result := uiMeanVal; // entspricht return(uiMeanVal)

end;

kann ich diese Quellcodes,die ihr mich anbietet,in dieser Funktion einbinden?oder andere Fkt schreiben?Was bedeutet diese lMin,lToleranz oder l,Norm,Delta?ist Dev StdDev?
I like Programing, but it hates me!wat am I gonna do?
  Mit Zitat antworten Zitat