|
@@ -940,6 +940,43 @@ if ($PSmode == 5)
|
|
|
}
|
|
|
|
|
|
|
|
|
+ // ########## SAP MAGNETOMETERS ##########
|
|
|
+
|
|
|
+ $mag = array(5, 4,); // 5 SAP North Ring, 4 SAP South Ring magnetometers
|
|
|
+
|
|
|
+ for ($pp = 0; $pp < 2; $pp++)
|
|
|
+ {
|
|
|
+ $bx = 0;
|
|
|
+ $by = 0;
|
|
|
+ $bz = 0;
|
|
|
+ $link = "";
|
|
|
+
|
|
|
+ for ($id = 0; $id < $mag[$pp]; $id++)
|
|
|
+ {
|
|
|
+ $bx = $bx + $adeiValue[37 + $pp][3 * $id];
|
|
|
+ $by = $by + $adeiValue[37 + $pp][3 * $id + 1];
|
|
|
+ $bz = $bz + $adeiValue[37 + $pp][3 * $id + 2];
|
|
|
+ $link = $link . $adeiChannel[37 + $pp][37 * $id + 2] . ",";
|
|
|
+ //echo $bx . " " . $by . " " . $bz . "<br>";
|
|
|
+ }
|
|
|
+
|
|
|
+ $bx = $bx / $mag[$pp];
|
|
|
+ $by = $by / $mag[$pp];
|
|
|
+ $bz = $bz / $mag[$pp];
|
|
|
+ $link = substr($link, 0, strlen($link) - 1);
|
|
|
+
|
|
|
+ // radings in muT, therfore factor 100 for Gauss display
|
|
|
+ $value = 0.01*sqrt($bx * $bx + $by * $by + $bz * $bz);
|
|
|
+
|
|
|
+ $text = "averaged field precise magnetometers SAP ";
|
|
|
+ if ($pp == 0) $text = $text . "north ";
|
|
|
+ else if ($pp == 1) $text = $text . "south ";
|
|
|
+ $text = $text . "ring";
|
|
|
+
|
|
|
+ placeTextWithLink(553, 1240 - 110 * $pp, sprintf('%.1F G', $value), 80, 5, "#000000", $text, $link);
|
|
|
+ }
|
|
|
+
|
|
|
+
|
|
|
|
|
|
// dipole
|
|
|
|