Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Neuen Beitrag zur Code-Library hinzufügen (https://www.delphipraxis.net/33-neuen-beitrag-zur-code-library-hinzufuegen/)
-   -   Delphi Mathematische Funktionen - Graph anzeigen (https://www.delphipraxis.net/196501-mathematische-funktionen-graph-anzeigen.html)

Moonlight Shadow 26. Mai 2018 00:31

Mathematische Funktionen - Graph anzeigen
 
Hallo,

Ich schreibe ein Programm zur Kurvendiskurssion verschiedener Funktionen (Ausgabe von Definitionsbereich, Nullstellen, etc.).
Zur Veranschaulichung würde ich gerne noch den Graphen der Funktion darstellen, allerdings weiß ich nicht wie ich das machen könnte.

Ich bin dankbar für jede Hilfe :)

LG, Moonlight Shadow

EWeiss 26. Mai 2018 02:10

AW: Mathematische Funktionen - Graph anzeigen
 
Willkommen in der DP.

Du könntest Polyline verwenden.
Ausschnitt aus meiner Library..

Delphi-Quellcode:
        OBJECT_CURVE:
          begin
            if HiWord(Obj.objtype) = DRAW_OPEN then
              GdipDrawCurve2I(Graphics, pen, @pt[0], Obj.metacount, Tension)
            else
            begin
              if HiWord(Obj.objtype) = DRAW_OUTLINE then
                nStatus := GdipDrawClosedCurve2I(Graphics, pen, @pt[0], Obj.metacount, Tension)
              else
              begin
                GdipCreateSolidFill(GD_ARGB(128, 0, 0, 0), brush);
                nStatus := GdipFillClosedCurve2I(Graphics, brush, @pt[0], Obj.metacount, Tension,
                  0);//FillModeAlternate
                // Cleanup
                GdipDeleteBrush(brush);
              end;
            end;
          end;

        OBJECT_POLYLINE:
          begin
            if HiWord(Obj.objtype) = DRAW_OPEN then
              nStatus := GdipDrawLinesI(Graphics, pen, @pt[0], Obj.metacount)
            else
            begin
              if HiWord(Obj.objtype) = DRAW_OUTLINE then
                nStatus := GdipDrawPolygonI(Graphics, pen, @pt[0], Obj.metacount)
              else
              begin
                GdipCreateSolidFill(GD_ARGB(128, 0, 0, 0), brush);
                nStatus := GdipFillPolygon2I(Graphics, brush, @pt[0], Obj.metacount);
                // Cleanup
                GdipDeleteBrush(brush);
              end;
            end;
          end;
unter Verwendung von GDI+
Sieht dann so aus.
Man legt die Positionen fest und übergibt sie an die jeweiligen Funktionen groß selbst berechnen muss man da nichts.

gruss

Rollo62 26. Mai 2018 07:36

AW: Mathematische Funktionen - Graph anzeigen
 
Oder mit TChart arbeiten, dann hast du schon Grid, Beschriftung, etc. dabei und sollte im Delphi bereits enthalten sein.

Rollo

EWeiss 26. Mai 2018 08:24

AW: Mathematische Funktionen - Graph anzeigen
 
Zitat:

Zitat von Rollo62 (Beitrag 1403039)
Oder mit TChart arbeiten, dann hast du schon Grid, Beschriftung, etc. dabei und sollte im Delphi bereits enthalten sein.

Rollo

Jo, ist halt abhängig von der Bibliothek die man verwenden will und welche Ansprüche man stellt.

gruss

Moonlight Shadow 26. Mai 2018 13:23

AW: Mathematische Funktionen - Graph anzeigen
 
Also ich würd das gerne mit dem TChart machen, allerdings find ich das nicht in der Tool-Palette. Ich benutze RAD Studio 10.2

KodeZwerg 26. Mai 2018 13:40

AW: Mathematische Funktionen - Graph anzeigen
 
Tool-Palette "TeeChart Std" -> TChart

Ps: Tutorials

TiGü 28. Mai 2018 08:59

AW: Mathematische Funktionen - Graph anzeigen
 
Zitat:

Zitat von Moonlight Shadow (Beitrag 1403058)
Also ich würd das gerne mit dem TChart machen, allerdings find ich das nicht in der Tool-Palette. Ich benutze RAD Studio 10.2

Ggf. nachinstallieren -> Installation-Setup erneut aufrufen.


Alle Zeitangaben in WEZ +1. Es ist jetzt 22:54 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz