Skript zum plotten von Diagrammen / Kurven (solved) (Allgemeines zu Perl)

[thread]20024[/thread]

Skript zum plotten von Diagrammen / Kurven [solved]

Tags: perl5 Similar Threads

Readers: 17

Articles: hide open all | hide show old branches

+13 replies
Koerschgen

2016-03-21 20:50

User since
2016-03-21
6 articles
BenutzerIn

Hallo Perl-Forum,
ich bin neu hier und blutiger Perl-Anfänger.
Für meine Arbeit muss ich jetzt aber ein Skript schreiben, welches mehrere Kurven mit x- und y-Werte inklusive derer Chart-Namen (als Legende) einliest und in ein Diagramm plottet.

Das Format ist folgendes:

*Chart, NAME=Chart_1,
** Zeit, Skalierung
0, 0.00
100, 0.60
125, 1.00
380, 1.00
415, 0.90
700, 0.80
725, 1.00
980, 1.00
1015, 0.90
1300, 0.80
1325, 1.00
1580, 1.00
1615, 0.90
1900, 0.80
**
*Chart, NAME=Chart_2,
0, 0.00
100, 0.30
125, 1.00
380, 1.00
415, 0.80
700, 0.80
725, 1.00
980, 1.00
1015, 0.80
1300, 0.80
1325, 1.00
1580, 1.00
1615, 0.80
1900, 0.80
**
*Chart, NAME=Chart_3,
0, 0.00
100, 0.00
125, 0.00
380, 0.00
415, 1.00
700, 1.00
725, 0.00
980, 0.00
1015, 1.00
1300, 1.00
1325, 0.00
1580, 0.00
1615, 1.00
1900, 1.00
**
...

Die Anzahl der Charts ist variabel und kann sich somit ändern.

Könnt ihr mir Tipps geben, mit welcher Schleife ich da am besten arbeiten sollte und warum?
Habt ihr vergleichbare Skripts zum orientieren?
Arbeite ich da eher mit Hashes oder mit Arrays?

Ich bedanke mich schon mal vorab recht herzlich für ein paar interessante Vorschläge und eure Hilfe.

LG,
Koerschgen
Last edited: 2016-03-21 21:19:35 +0100 (CET)
- MarkusH
  
  2016-03-21 22:47
  
  User since
  2012-04-08
  162 articles
  BenutzerIn
  
  Also ich würde es höchstwahrscheinlich mit Gnuplot probieren
  http://search.cpan.org/search?query=gnuplot&mode=all
  $q =~ /(bb|[^b]{2})/
- +10 replies
- Raubtier
  
  2016-03-21 22:54
  
  User since
  2012-05-04
  1081 articles
  BenutzerIn
  
  Wo sind da Kurven? Du hast nur einzelne Datenpunkte. Möchtest du da was durchfitten (und wenn ja, was?) oder willst du einfach nur Punkte sinnlos mit Linien verbinden?
  
  Ich denke auch, dass du mit gnuplot recht weit kommen wirst. Ggf. musst du vorher die Datei ein bisschen umformatieren, sodass du einen x-Wert hat und dann für jeden weiteren Y-Wert eine eigene Spalte. Zumindest dann ist es mit Gnuplot trivial. Ansonsten tue ich mich immer etwas schwer damit. Es ist vermutlich leichter, in Perl die Datendatei eben schnell umzuformatieren, sodass sie für Gnuplot passt.
  
  Edit: außerdem ist dein Format etwas merkwürdig: es scheint, als würden zwei Sterne die einzelnen Daten trennen, aber oben folgt dahinter noch die Achsenbeschriftung.
  Last edited: 2016-03-21 22:57:09 +0100 (CET)
  - +9 replies
  - Koerschgen
    
    2016-03-21 23:21
    
    User since
    2016-03-21
    6 articles
    BenutzerIn
    
    Hallo Raubtier,
    ja, ich möchte letztendlich nur Punkte mit einer Linie verbinden.
    Das Problem ist, dass nicht alles Charts die gleiche Zeitskala haben müssen... auch dass kann variieren (war jetzt so nicht im Beispiel drin).
    Dann ist das Spaltenweise wahrscheinlich auch nicht so einfach.
    
    Das Format kommt genau so von einer vorherigen Formatierung raus, bis auf die eine Zeile **Zeit, Skalierung, die habe ich nur zur "Erklärung" mit rein genommen... hat dann doch eher verwirrt ;-)
    
    Das Skript soll zum einen alle Charts in ein Diagramm plotten und jedoch zusätlich oder als Option alle einzeln in ein Diagramm.
    
    Kannst du mir evtl. noch ein Tip geben, wie ich so ein Format schnell umformatieren kann, dann kann ich das mit der Spalten-Formatierung mal ausprobiern.
    DANKE
    - Raubtier
      
      2016-03-21 23:59
      
      User since
      2012-05-04
      1081 articles
      BenutzerIn
      
      Hm, Fragt ist, wie es am schnellsten gut aussieht...
      
      Sorry, aber ich beantworte diese Frage jetzt anders: hier kommt eine Lösung in C++ und ROOT... Funktioniert... Ist hier allerdings nicht wirklich on topic. Tja, ich weiß gar nicht so recht, welchen Weg ich in Perl gehen würde.
      
      Jedenfalls ist es so, dass alle diese Tools, die dir Graphen malen können, Einarbeitungszeit benötigen. Vielleicht hat ja jemand Lust das mal mit Chart::Gnuplot nachzubauen. Ich mag es allerdings an root, dass ich dann interaktiv an den gemalten Graphen rumspielen kann, woran ich bei Gnuplot immer scheitere.
      Attachments
      
      text/plain
      74 lines
      koer.C
      
      image/png
      696 x 474
      
      koer.png
    - +7 replies
    - Raubtier
      
      2016-03-22 00:23
      
      User since
      2012-05-04
      1081 articles
      BenutzerIn
      
      Hier eine Lösung in Perl + Gnuplot: ist im Prinzip das Beispiel aus Chart::Gnuplot übernommen.
      
      Code (perl): (dl )
      
      1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60
      
      use Chart::Gnuplot; use strict; use warnings; sub createDs { my ($dsX, $dsY, $name) = @_; my $dataSet = Chart::Gnuplot::DataSet->new( xdata => [@$dsX], ydata => [@$dsY], title => $name, style => "linespoints"); return $dataSet; } sub readDatasets { my $filename = shift; my $name = "unnamed"; my @result; my (@dataX, @dataY); open my $fh, '<', $filename; while (my $line = <$fh>) { if ($line =~ /^\*\*/) { if (@dataX) { push @result, createDs(\@dataX, \@dataY, $name); @dataX = (); @dataY = (); } next; } if ($line =~ /^\*/) { if ($line =~ /NAME=(.+)/) { $name = $1; } next; } if ($line =~ /(.+), (.+?)$/) { push @dataX, $1; push @dataY, $2; } } if (@dataX) { push @result, createDs(\@dataX, \@dataY, $name); } return @result; } # Create chart object and specify the properties of the chart my $chart = Chart::Gnuplot->new( output => "/tmp/koer.png", title => "Simple testing", xlabel => "My x-axis label", ylabel => "My y-axis label", ); my @ds = readDatasets("koer.dat"); # Plot the data set on the chart $chart->plot2d(@ds);
      
      Last edited: 2016-03-22 00:25:00 +0100 (CET)
      - Koerschgen
        
        2016-03-22 12:54
        
        User since
        2016-03-21
        6 articles
        BenutzerIn
        
        Hallo Raubtier,
        vielen Dank schon mal für deine Hilfe und dem Beispiel.
        Das werde ich mal versuchen.
        VG, Koerschgen
      - +5 replies
      - Koerschgen
        
        2016-03-24 13:47
        
        User since
        2016-03-21
        6 articles
        BenutzerIn
        
        Hallo Raubtier,
        prinzipiell funktioniert das Skript von dir. Jetzt muss ich es nur noch verstehen ;-) Danke dafür!
        
        Jetzt möchte ich nur noch, dass ich die Datei mit den xy-Werten (im Beispiel "koer.dat") in der Kommandozeile mit einlesen kann, um es nicht im Skript direkt in der Zeile
        my @ds = readDatasets("koer.dat");
        angeben zu müssen.
        
        Das Skript sollte ohne es zu öffnen funktionieren, also z.B. mit der Eingabe:
        chartplot(.pl) koer.dat
        
        Hast du nen Tip?
        
        Vielen Dank und viele Grüße,
        Koerschgen
        
        +2 replies
        
        renee
        
        2016-03-24 13:55
        
        User since
        2003-08-04
        14371 articles
        ModeratorIn
        
        Mach aus
        
        Code: (dl )
        
        my @ds = readDatasets("koer.dat");
        
        mal
        
        Code: (dl )
        
        my @ds = readDatasets($ARGV[0]);
        
        OTRS-Erweiterungen (http://feature-addons.de/)
        Frankfurt Perlmongers (http://frankfurt.pm/)
        --
        
        Unterlagen OTRS-Workshop 2012: http://otrs.perl-services.de/workshop.html
        Perl-Entwicklung: http://perl-services.de/
        
        Koerschgen
        
        2016-03-24 14:45
        
        User since
        2016-03-21
        6 articles
        BenutzerIn
        
        Vielen Danke Renee, hat funktioniert!
        
        +2 replies
        
        Raubtier
        
        2016-03-24 14:29
        
        User since
        2012-05-04
        1081 articles
        BenutzerIn
        
        Zusätzlich zu renees Verbesserung solltest du dann unbedingt Fehlerkontrolle einbauen, die ich für das Beispiel komplett weggelassne hatte. Beim "open" ein "or die $!" ranhängen und bei fehlerhaften Zeilen zumindest irgendeine Warnung ausgeben!
        
        Koerschgen
        
        2016-03-24 14:46
        
        User since
        2016-03-21
        6 articles
        BenutzerIn
        
        Ja, das werde ich machen. Danke für den Hinweis!
- guest janus
  
  2016-03-22 15:28
  
  Was du brauchst sind die Daten in einer bestimmten Sequenz. Ich hatte mal einen Diagrammgenerator der wollte XML haben. Also gucken, was Dein Mr. Plotter haben will.
  Last edited: 2016-03-22 15:41:45 +0100 (CET)

View all threads created 2016-03-21 20:50.