Changeset 10388 in ntrip for trunk/BNC/scripts/pppPlot.pl

Timestamp:

Mar 12, 2024, 3:10:17 PM (7 weeks ago)

Author:

stuerze

Message:

changes regarding PPP

File:

• trunk/BNC/scripts/pppPlot.pl (modified) (5 diffs)

trunk/BNC/scripts/pppPlot.pl

@@ -107 +107 @@
     my ( $station, $file ) = Bnc::parsePPPLogfile( $file, $sampling );
     my $EPOCH       = $file->{'EPOCH'};
+    my $EPOCH_OFF_GPS = $file->{'EPOCH_OFF_GPS'};
     my $EPOCH_OFF_GLO = $file->{'EPOCH_OFF_GLO'};
     my $EPOCH_OFF_GAL = $file->{'EPOCH_OFF_GAL'};
@@ -243 +244 @@
         }
 
+        ######### OFF_GPS #####################
+        if ( grep ( $_ eq "ALL", @plotTypes ) ) {
+            if ( scalar @{ $file->{'OFF_GPS'} } < 1 ) {
+                DEBUG "No OFF_GPS found";
+            }
+            else {
+                DEBUG "Plot OFF_GPS";
+                my $pngName  = sprintf ( "%s_OFF_G.png", $station );
+                my $chartOFF_GPS = newChart($station);
+                $chartOFF_GPS->set( output => $pngName );
+                $chartOFF_GPS->set( ylabel => "Offset GPS [m]" );
+
+                $dataset = Chart::Gnuplot::DataSet->new(
+                                                         xdata   => $EPOCH_OFF_GPS,
+                                                         ydata   => $file->{'OFF_GPS'},
+                                                         title   => "Receiver Offset GPS",
+                                                         timefmt => '%s',
+                                                         style   => "linespoints",
+                );
+                $chartOFF_GPS->plot2d($dataset);    #system ("display $pngName&");
+                $y = $y - $dy;
+
+                if ( $y < 30 / mm ) {
+                    $page = $pdf->page();
+                    $page->mediabox('A4');
+                    $y = $y0;
+                }
+                $png = $page->gfx();
+                LOGDIE("could not find image file: $!\n") unless -e $pngName;
+                $png->image( $pdf->image_png($pngName), $x, $y, $width, $height );
+            }
+        }
+
 
         ######### OFF_GLO #####################
@@ -257 +291 @@
 
                 $dataset = Chart::Gnuplot::DataSet->new(
-                                                         #xdata   => $EPOCH_OFF_GLO,
-                                                         xdata   => $EPOCH,
+                                                         xdata   => $EPOCH_OFF_GLO,
                                                          ydata   => $file->{'OFF_GLO'},
                                                          title   => "Receiver Offset GLONASS",
@@ -291 +324 @@
 
                 $dataset = Chart::Gnuplot::DataSet->new(
-                                                         #xdata   => $EPOCH_OFF_GAL,
-                                                         xdata   => $EPOCH,
+                                                         xdata   => $EPOCH_OFF_GAL,
                                                          ydata   => $file->{'OFF_GAL'},
                                                          title   => "Receiver Offset Galileo",
@@ -325 +357 @@
 
                 $dataset = Chart::Gnuplot::DataSet->new(
-                                                         #xdata   => $EPOCH_OFF_BDS,
-                                                         xdata   => $EPOCH,
+                                                         xdata   => $EPOCH_OFF_BDS,
                                                          ydata   => $file->{'OFF_BDS'},
                                                          title   => "Receiver Offset Beidou",