Ellipsoide in MapX

Datumparameter NRW

Soldner/Müggelberg

Soldner-Berlin                 Gauß-Krüger
1. Bezirk I: S-Bahnhof Buch/Wiltbergstraße
y = 30 960 m                R = 4 601 103 m
x = 34 325 m                H = 5 834 693 m
2. Bezirk II: Kreuzung Fürstenwalder Allee/Lutherstraße(Wilhelmshagen)
y = 47 165 m                R = 5 413 806 m
x = 11 425 m                H = 5 811 504 m
3. Bezirk III:Südspitze Moßkopfring (Rauchfangswerder)
y = 41 600 m                R = 5 408 052 m
x = 01 450 m                 H = 5 801 636 m
4. Bezirk IV:Rathaus in der Königstraße/Abzweig südlich Chausseestraße(Wannsee)
y = 07 535 m                R = 4 578 226 m
x = 10 180 m                H = 5 810 024 m
5. Bezirk V:Zeltinger Platz(Frohnau)
y = 17 365 m                R = 4 587 514 m
x = 34 150 m                H = 5 834 211 m

Datumparameter Brandenburg

Transformationsparameter

dx Verschiebung der X-Achse im Metern
dy Verschiebung der Y-Achse im Metern
dz Verschiebung der Z-Achse im Metern
dZ Drehung um die Z-Achse in Sekunden
dY Drehung um die Y-Achse in Sekunden
dX Drehung um die X-Achse in Sekunden
m Maßstab in ppm

Datumparameter MapX

1000 Potsdam Deutsches
Hauptdreiecksnetz (DHDN)
************************
Eccentricity 8.16968312225275E-02
Ellipsoid 10 Bessel
Flattening 3.34277318217481E-03
PrimeMeridian 0
RotateX-1.04
RotateY-0.35
RotateZ 3.08
ScaleAdjust 8.3
SemiMajorAxis 6377397.155
SemiMinorAxis 6356078.96281819
ShiftX 582
ShiftY 105
ShiftZ 414

1001 Pulkovo 1942
Krassovsky
**********************
Eccentricity 8.18133340169312E-02
Ellipsoid 3 Krassovsky
Flattening 3.35232986925914E-03
PrimeMeridian 0
RotateX-0.02
RotateY 0.25
RotateZ 0.13
ScaleAdjust 1.1
SemiMajorAxis 6378245
SemiMinorAxis 6356863.01877305
ShiftX 24
ShiftY-123
ShiftZ-94

Programm zur Ausgabe der Datumparameter in MapX

Public Function intFindDatum(C1 As CoordSys) As Integer
Dim i As Integer, D As New Datum, s$, d1 As New Datum
Set d1 = C1.Datum: i = 0
Do While i < 1111
  i = i + 1
  If i = 200 Then i = 1000
  D.SetFromList i
  If bDatumCompare(D, frmMain.Map1.DisplayCoordSys.Datum) Then
      intFindDatum = i
      s = "Datum:" & i & " Type:" & C1.Type & " - L°=" & C1.OriginLongitude
      s = s + vbCrLf + "************************"
      s = s + vbCrLf + "Eccentricity: " & d1.Eccentricity
      s = s + vbCrLf + "Ellipsoid: " & d1.Ellipsoid
      s = s + vbCrLf + "Flattening: " & d1.Flattening
      s = s + vbCrLf + "PrimeMeridian: " & d1.PrimeMeridian
      s = s + vbCrLf + "RotateX: " & d1.RotateX
      s = s + vbCrLf + "RotateY: " & d1.RotateY
      s = s + vbCrLf + "RotateZ: " & d1.RotateZ
      s = s + vbCrLf + "ScaleAdjust: " & d1.ScaleAdjust
      s = s + vbCrLf + "SemiMajorAxis: " & d1.SemiMajorAxis
      s = s + vbCrLf + "SemiMinorAxis: " & d1.SemiMinorAxis
      s = s + vbCrLf + "ShiftX: " & d1.ShiftX
      s = s + vbCrLf + "ShiftY: " & d1.ShiftY
      s = s + vbCrLf + "ShiftZ: " & d1.ShiftZ
      MsgBox s, , "Koordinatensystem"
      Exit Function
  End If
Loop
intFindDatum = 0
End Function

Private Function bDatumCompare(d1 As Datum, d2 As Datum) As Boolean
If d1.Eccentricity = d2.Eccentricity And d1.Ellipsoid = d2.Ellipsoid And d1.Flattening = d2.Flattening And d1.PrimeMeridian = d2.PrimeMeridian And d1.RotateX = d2.RotateX And d1.RotateY = d2.RotateY And d1.RotateZ = d2.RotateZ And d1.ScaleAdjust = d2.ScaleAdjust And d1.SemiMajorAxis = d2.SemiMajorAxis And d1.SemiMinorAxis = d2.SemiMinorAxis And d1.ShiftX = d2.ShiftX And d1.ShiftY = d2.ShiftY And d1.ShiftZ = d2.ShiftZ Then
  bDatumCompare = True
Else
  bDatumCompare = False
End If
End Function

Ellipsoide

Datumparameter nach WGS84

Datumparameter MapX nach WGS84