bestimmte teile einses arrays auslesen

[RtR]

Hallo,
Ich brauche mal eure hilfe

Folgende Situation:

Ich sammel Messdaten, alle 10ms 1 und speichere diese in einem Array ab. Dieses Array soll am Ende ca. 18000 Messwerte umfassen.
Nun will ich diese Messdaten immer in 100ter "Packungen" auslesen. Das Ziel: Diese 100 Daten addieren (bestehen nur aus 1 oder 0) und dann durch 100 teilen um einem Mittelwert zu bekommen um anschließend bestimmen zu können, was hauptsächlich vorlag. Bei einem Ergebnis von x > 0,7 wird auf 1 gerundet, bei x < 0,3 auf 0. Diese Ergebnisse (müssten ja 180 sein) sollen in ein weiteres Array geschrieben werden. Die weitere Auswertung spielt hier erstmal keine Rolle.

Mein Problem liegt nun darin, dass ich nicht weiß, wie ich immer diese besagten 100ter-Packungen aus dem Array auslesen kann. (Ich denke die Lösung ist simpel, bechäftige mich mit Delphi aber noch nicht so lange).

Danke schonmal im vorraus für die Antworten

Grüße
RtR

[mkinzler]

Ich würde dier daten statt in einen Array in eine Datenbank einlesen, dann ist die Gruppierung/Mittelwertberechnung einfach

[himitsu]

Warum nicht gleich beim Einlesen/Sammeln zusammenrechnen und nur noch die 180 speichern?

Delphi-Quellcode:

type
  TMessdaten = class
    Daten:    array of Byte;
    Zaehler:  Integer;
    Rechnung: Integer;

    procedure Start;
    procedure NeuerWert(X: Byte);
    procedure Ende;
  end;

procedure TMessdaten.Start;
begin
  Daten    := nil;
  Zaehler  := 0;
  Rechnung := 0;
end;

procedure TMessdaten.NeuerWert(X: Byte);
var
  i: Integer;
begin
  Inc(Zaehler);
  Inc(Rechnung, X);
  if Zaehler = 100 then begin
    i := Length(Daten);
    SetLength(Daten, i + 1);
    Daten[i] := Rechnung / 100;
    if Daten[i] > 0.7 then Daten[i] := 1
    else if Daten[i] < 0.3 then Daten[i] := 0;
    Zaehler  := 0;
    Rechnung := 0;
  end;
end;

procedure TMessdaten.Ende;
var
  i: Integer;
begin
  if Zaehler <> 0 then begin
    i := Length(Daten);
    SetLength(Daten, i + 1);
    Daten[i] := Rechnung / Zaehler;
    if Daten[i] > 0.7 then Daten[i] := 1
    else if Daten[i] < 0.3 then Daten[i] := 0;
    Zaehler  := 0;
    Rechnung := 0;
  end;
end;

bzw.

Delphi-Quellcode:

procedure TMessdaten.NeuerWert(X: Boolean);
var
  i: Integer;
begin
  Inc(Zaehler);
  if X then Inc(Rechnung);

Aber alle 10ms sind in einem so komplexem System schon recht viel gewollt.
Ich hoffe es müssen nicht genau 10ms sein, sondern können auch mal 20 sein

Eventuell noch das Array optimieren, also vorher setzen und dann nur noch ausfüllen.

[RtR]

Danke für die schnellen Antworten!

Also an Datenbanken habe ich noch garnicht gedacht; wäre sicher eine Möglichkeit, nur habe ich da überhaupt keine Kenntnisse von. Ein paar Tips wären da vielleicht hilfreich ;D

Das mit dem Auswerten beim einlesen geht aus einem einfachen Grund nicht: es ist ein Schulprojekt und wir dürfen keine Echtzeitauswertung haben. Die Umwandlung unserer Rohdaten in 1 bzw. 0 ist das maximale was wir dürfen. Also alle 20ms wären auch möglich, es muss nur konstant sein, da es sich um ein Barcodelesegerät handelt.

Grüße RtR

[himitsu]

Wenn du bei einem Array bleibst, dann vorher dieses über SetLength auf die volle Größe setzen und dann nur noch die Werte da eintragen.
Bei dem kurzen Intervall wäre eine dynamische Anpassung sehr hinderlich.

Zur eine Datenbank findet man bestimmt genug Threads
> Welche Datenbank (DBMS) möchte man verwenden > MySQL, MSSQL, Oracle uvw.
> Welchen Treiber/Schnittstelle verwendet man.
> usw.

[mkinzler]

Das geht aber nur so , wenn die 100, die zusammengefasst werden sollen, genu die 100 ersten sind.
Zudem verliert man dann die folgenden Werte.

[RtR]

Okay
Danke

[RtR]

Ich habe da nochmal ein Problem

Ich möchte meine Rohdaten in ein array speichern. Nun tritt folgendes Problem auf: Die Daten werden über einem Timer alle 10 oder 20 ms(ist hier nicht so wichtig) genommen. Wie bekomme ich die dann in ein array?
Ich habe bisher nur die Variante über eine for-Schleife verwendet, aber das ist hier ja nicht möglich.
Ich müsste das Array in Abhängigkeit von den durchläufen des Timers befüllen, also dass nach jeden Intervall die nächste Stelle des Arrays beschrieben wird.

Kennt da jemand eine Lösung?

[mkinzler]

Ich kann den selben Tipp von vorrhin wiederjholen, nimm eine Datenbank. Dann kannst du einfach per insert into Werte infügen.
Sonst müsstest du ermitteln, wie groß der Array ist, diesen vergrößern und den Wert an die neue Stelle einfügen (dyn. Array) bzw. dir Merken, welcher Index der letzte war ( stat. Array/Ringpuffer)

[alfold]

Im Prinzip ist Dein Timer ja auch eine Schleife
Einmal gestarted feuert er nach Ablauf ein neues event ab
Wobei ein Timerkomponente mh.... GetTickCount währe da besser

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
//hier jetzt das Array füllen
   if myzahler < hig(Myarry) then
   begin  
       MyArray[myzahler]:= mydaten;
       inc(myzahler);
   end
   else
      myzahler:= 0;
end;

mal so auf die schnelle
Gruss alfold