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

Timestamp:

Nov 24, 2022, 10:29:49 PM (17 months ago)

Author:

stuerze

Message:

ppp plot script updated

File:

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

trunk/BNC/scripts/pppPlot.pl

@@ -192 +192 @@
         my $chartTRP = newChart($station);
         $chartTRP->set( output => $pngName );
-        $chartTRP->set( ylabel => "Tropospheric Delay[m]", yrange => [ " 2.0 ", " 2.6 " ] );
+        #$chartTRP->set( ylabel => "Tropospheric Delay[m]", yrange => [ " 2.0 ", " 2.6 " ] );
+        $chartTRP->set( ylabel => "Tropospheric Delay[m]", yrange => [ " 1.0 ", " 3.0 " ] );
 
         my $dataTRP = Chart::Gnuplot::DataSet->new(
@@ -213 +214 @@
         $png->image( $pdf->image_png($pngName), $x, $y, $width, $height );
 
-        ######### CLK #####################
-        if ( scalar @{ $file->{'CLKs'} } < 1 ) {
-            DEBUG "No CLKs found";
-        }
-        else {
-            DEBUG "Plot CLKs";
-            $pngName = sprintf ( "%s_CLK.png", $station );
-            my $chartCLK = newChart($station);
-            $chartCLK->set( output => $pngName );
-            $chartCLK->set( ylabel => "CLK [m]" );
-
-            $dataset = Chart::Gnuplot::DataSet->new(
-                                                     xdata   => $EPOCHS,
-                                                     ydata   => $file->{'CLKs'},
-                                                     title   => "Receiver clock",
-                                                     timefmt => '%s',
-                                                     style   => "linespoints",
-            );
-            $chartCLK->plot2d($dataset);
-            $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 );
-        }
         ######### GPS CLK #####################
         if ( scalar @{ $file->{'G_CLKs'} } < 1 ) {
@@ -363 +334 @@
             LOGDIE("could not find image file: $!\n") unless -e $pngName;
             $png->image( $pdf->image_png($pngName), $x, $y, $width, $height );
-        }
-
-        ######### OGR #####################
-        if ( grep ( $_ eq "ALL", @plotTypes ) ) {
-            if ( scalar @{ $file->{'OGRs'} } < 1 ) {
-                DEBUG "No OGRs found";
-            }
-            else {
-                DEBUG "Plot OGRs";
-                my $pngName  = sprintf ( "%s_OGR.png", $station );
-                my $chartOGR = newChart($station);
-                $chartOGR->set( output => $pngName );
-                $chartOGR->set( ylabel => "OGR [m]" );
-
-                $dataset = Chart::Gnuplot::DataSet->new(
-                                                         xdata   => $EPOCHS_OGR,
-                                                         ydata   => $file->{'OGRs'},
-                                                         title   => "Offset GPS - GLONASS",
-                                                         timefmt => '%s',
-                                                         style   => "linespoints",
-                );
-                $chartOGR->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 );
-            }
-        }
-
-        ######### OGE #####################
-        if ( grep ( $_ eq "ALL", @plotTypes ) ) {
-            if ( scalar @{ $file->{'OGEs'} } < 1 ) {
-                DEBUG "No OGEs found";
-            }
-            else {
-                DEBUG "Plot OGEs";
-                my $pngName  = sprintf ( "%s_OGE.png", $station );
-                my $chartOGE = newChart($station);
-                $chartOGE->set( output => $pngName );
-                $chartOGE->set( ylabel => "OGE [m]" );
-
-                $dataset = Chart::Gnuplot::DataSet->new(
-                                                         xdata   => $EPOCHS_OGE,
-                                                         ydata   => $file->{'OGEs'},
-                                                         title   => "Offset GPS - Galileo",
-                                                         timefmt => '%s',
-                                                         style   => "linespoints",
-                );
-                $chartOGE->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 );
-            }
-        }
-
-        ######### OGC #####################
-        if ( grep ( $_ eq "ALL", @plotTypes ) ) {
-            if ( scalar @{ $file->{'OGCs'} } < 1 ) {
-                DEBUG "No OGCs found";
-            }
-            else {
-                DEBUG "Plot OGCs";
-                my $pngName  = sprintf ( "%s_OGC.png", $station );
-                my $chartOGC = newChart($station);
-                $chartOGC->set( output => $pngName );
-                $chartOGC->set( ylabel => "OGC [m]" );
-
-                $dataset = Chart::Gnuplot::DataSet->new(
-                                                         xdata   => $EPOCHS_OGC,
-                                                         ydata   => $file->{'OGCs'},
-                                                         title   => "Offset GPS - BDS",
-                                                         timefmt => '%s',
-                                                         style   => "linespoints",
-                );
-                $chartOGC->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 );
-            }
         }
 
@@ -647 +519 @@
 
                 if ( $key_resType =~ /^c/ ) {
-                    $chartRES->set( yrange => [ " -6.0 ", " 6.0 " ] );
+                    #$chartRES->set( yrange => [ " -6.0 ", " 6.0 " ] );
+                    $chartRES->set( yrange => [ " -10.0 ", " 10.0 " ] );
                 }
                 elsif ( $key_resType =~ /^l/ ) {
-                    $chartRES->set( yrange => [ " -0.06 ", " 0.06 " ] );
+                   #$chartRES->set( yrange => [ " -0.06 ", " 0.06 " ] );
+                    $chartRES->set( yrange => [ " -0.10 ", " 0.10 " ] );
                 }
 
@@ -787 +661 @@
     $pdf->end();
 
-    #system ("rm *.png");
+    system ("rm *.png");
     if (Common::amInteractiv ) {
-        system ("evince $inputDir/$pdf_name");
+#       system ("evince $inputDir/$pdf_name");
     }
 }    # -----  next logfile  -----