修正绘制机制解的 bug

wangliang1989 · Feb 16, 2024 · 3b4a9dd · 3b4a9dd
1 parent 9fe097b
commit 3b4a9dd
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/example/gmt6depth.pl b/example/gmt6depth.pl
@@ -71,7 +71,7 @@
     for(my $j = 1; $j <= $i - 1; $j++) {
         my ($mecas) = split m/\n/, `radpttn 1 $strike[$j] $dip[$j] $rake[$j] $iso[$j] $clvd[$j]`;
         my @meca = split m/\s+/, $mecas;
-        printf GMT "%6.1f %6.1f 0 %s %s %s %s %s %f 17 0 0 %s\n", $dep[$j], ($rms[$j] - $min) / ($min / $dof), @meca[6, 1, 4, 3], $meca[5], $meca[2], $mag[$j];
+        printf GMT "%6.1f %6.1f 0 %s %s %s %s %s %f 17 0 0 %s\n", $dep[$j], ($rms[$j] - $min) / ($min / $dof), @meca[6, 1, 4, 3], -$meca[5], -$meca[2], $mag[$j];
     }
     close(GMT);
     system "gmt end";