Array Probleme

[Mavarik]

Fein...

Dann Versuch doch erst mal Deinen Sinus so aussehen zu lassen wie man es erwartet...

Alles was Du dafür machen muss, musst Du sowieso programmieren...

[EDIT] Ohne die Darstellungsroutine zu verändern... Sondern die Daten im Array [/EDIT]

Mavarik

[Chris211183]

Zitat von Mavarik:

Fein...

Dann Versuch doch erst mal Deinen Sinus so aussehen zu lassen wie man es erwartet...

Alles was Du dafür machen muss, musst Du sowieso programmieren...

[EDIT] Ohne die Darstellungsroutine zu verändern... Sondern die Daten im Array [/EDIT]

Mavarik

Ja das mache ich ja hier

Delphi-Quellcode:

procedure THixHistoGraph.DrawMeasureValue;
var
  x0, y0, dy, dx : Real;
  i : Integer;
  P : TPointDynArray;
  HistoBackround : TRect;

begin
   HistoBackround :=  Rect(FGapLeft,                                            // Hintergrund der Darstellungsfläche
                           FGapTop,
                           Width - FGapRight,
                           Height - FGapBottom + 2);

   P:= Nil;
   InflateRect(HistoBackround, -1, -1);
   for i:= round(FViewXNominalMin) to round(FViewXNominalMax - 1) do
   begin
      x0 := FViewxNominalMin;
      y0 := (Height - FGapBottom - FGapTop) / FYScale.ValMax;
      dx := 0.5;
      dy := 0.02;
      P := CalculatePointView(mySin, HistoBackround, x0, y0, dx, dy);
      Canvas.Pen.Style := FSeriesLineStyle;
      Canvas.Brush.Color := FColor;
      Canvas.Pen.Color := FSeriesColor;
      DrawPointView(Canvas, HistoBackround, P);
   end;
end;

wenn ich dx := auf 0.05 setzt, dann sieht der Sinus gut aus, oder was meinst Du Mavarik ?

[Mavarik]

Zitat von Chris211183:

wenn ich dx := auf 0.05 setzt, dann sieht der Sinus gut aus, oder was meinst Du Mavarik ?

Logisch... weil Du dir dann andere Werte berechnest... Indem Du Dir zu einer bestimmten Zeit(t) Dir den entsprechenden Sinuswert holst... Das kannst Du aber nicht wenn die Werte gemessen sind...

Da kannst Du nicht einfach sagen... Zurück ich brauche den Wert für ein anderes dx...

Daher musst Du dann die Werte auf das richtige Zeitintervall umrechnen...

[Chris211183]

ohhhh man ey, ich sollte lieber das Programmieren lassen...

bezugnehmend auf meinen Source, was muss ich denn jetzt eigentlich noch machen, damit das Ding mal fertig wird, steige bei der Vielzahl nicht mehr durch...

im Prinzip ist es ja eh so, dass er mir nichts anzeigen dürfte, wenn ich ihn mit F9 übersetzen lasse, da er ja gar keine Messwerte hat..., oder bin ich da jetzt ganz ab von jeglicher Intelligenz...

[Mavarik]

Zitat von Chris211183:

ohhhh man ey, ich sollte lieber das Programmieren lassen...

Jeder fängt mal kein an... Andere wie Du, wollen direkt ganz groß anfangen...

Zitat von Chris211183:

im Prinzip ist es ja eh so, dass er mir nichts anzeigen dürfte, wenn ich ihn mit F9 übersetzen lasse, da er ja gar keine Messwerte hat..., oder bin ich da jetzt ganz ab von jeglicher Intelligenz...

Das Problem ist, dass Du Dir die Daten Fakest...

Erzeugst Dir in der Routine das Array, welches eigentlich von außen kommen müsste...

Nimm doch einfach mal ein globales Array...

Delphi-Quellcode:

var
  MeineWerte : Array of real; // order was auch immer...

Procedure Erzeuge_Werte;
var
  i : Integer;
begin
  Setlength(MeineWerte,5000);

  for i:=0 to 1000 do
    MeineWerte[i] := 15.0;
  for i:=1001 to 2000 do
    MeineWerte[i] := 0.0;
  for i:=2001 to 3000 do
    MeineWerte[i] := -22.0;
  for i:=3001 to 4000 do
    MeineWerte[i] := 0.0;
  for i:=4001 to 4999 do
    MeineWerte[i] := 4.0;
end;

So und dann Stelle diese Werte 0..4999 mal in Deinem Fenster dar..
und zwar so, dass du den Startpunkt verschieben kannst und auch den Ausschnitt den Du darstellen willst...

Mavarik

[Chris211183]

Zitat von Mavarik:

Zitat von Chris211183:

ohhhh man ey, ich sollte lieber das Programmieren lassen...

Jeder fängt mal kein an... Andere wie Du, wollen direkt ganz groß anfangen...

Zitat von Chris211183:

im Prinzip ist es ja eh so, dass er mir nichts anzeigen dürfte, wenn ich ihn mit F9 übersetzen lasse, da er ja gar keine Messwerte hat..., oder bin ich da jetzt ganz ab von jeglicher Intelligenz...

Das Problem ist, dass Du Dir die Daten Fakest...

Erzeugst Dir in der Routine das Array, welches eigentlich von außen kommen müsste...

Nimm doch einfach mal ein globales Array...

Delphi-Quellcode:

var
  MeineWerte : Array of real; // order was auch immer...

Procedure Erzeuge_Werte;
var
  i : Integer;
begin
  Setlength(MeineWerte,5000);

  for i:=0 to 1000 do
    MeineWerte[i] := 15.0;
  for i:=1001 to 2000 do
    MeineWerte[i] := 0.0;
  for i:=2001 to 3000 do
    MeineWerte[i] := -22.0;
  for i:=3001 to 4000 do
    MeineWerte[i] := 0.0;
  for i:=4001 to 4999 do
    MeineWerte[i] := 4.0;
end;

So und dann Stelle diese Werte 0..4999 mal in Deinem Fenster dar..
und zwar so, dass du den Startpunkt verschieben kannst und auch den Ausschnitt den Du darstellen willst...

Mavarik

Ok, die erzeugten Werte, muss ich ja wieder in eine Zeichenroutine packen...,

das habe ich gerade mal versucht, jedoch weiß ich jetzt nicht, ob ich die in meine bereits bestehende Zeichenroutine implementieren soll, oder neu mache.

CalculatePointView und DrawMeasureValue hängen ja zusammen....

oder können die ganz weg

[Bjoerk]

Keine Ahnung, deine Komponente sieht doch seeehr kompliziert aus? Schau ggf. mal z.B. hier, da hab ich mal solch eine Skalierung gepostet.

[Chris211183]

Zitat von Bjoerk:

Keine Ahnung, deine Komponente sieht doch seeehr kompliziert aus? Schau ggf. mal z.B. hier, da hab ich mal solch eine Skalierung gepostet.

Skalierung ist doch garnicht das Thema Bjoerk...

[Bjoerk]

Na dann.. Du fragst doch wie man eine Punktemenge, Figur, f(x) ect. darstellt?

[Chris211183]

ich glaub ich mach jetzt Wochenende und trink ein kaltes Bier...., werd mich später nochmal ransetzen