Registriert seit: 13. Sep 2005
Ort: Nürnberg
28 Beiträge
Delphi 5 Standard
|
Re: MeanValue(Mittelwert)Bereich Überprüfen
25. Sep 2005, 23: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?
|