Lagestati-Ellipsoide

VermCad verwendet folgende Ellipsoide mit den jeweiligen Standard-Parametern (Große Halbachse; Kleine Halbachse; Skalierungsfaktor):

 Bessel-Ellipsoid     (6377397.15508, 6356078.96290, 1.0)
 Hayford-Ellipsoid    (6378388.00000, 6356911.94613, 0.9996)
 Krassowski-Ellipsoid (6378245.00000, 6356863.01877, 1.0)
 GRS_80-Ellipsoid     (6378137.00000, 6356752.31414, 0.9996)
 WGS_84-Ellipsoid     (6378137.00000, 6356752.31425, 0.9996)

 Standard-Lagestatus-Codes:

 000 - Örtliches System (mathematisch euklidisch)
 247 - DB_REF (DE Deutsche Bahn)

 310 - ETRS 89 (UTM), LS 310               (Hamburg)
 320 - ETRS 89 (GK), LS 320                (Hamburg)

 verwendete Höhensysteme:
     100 Normalorthometrische Höhe im System DHHN 12 (Normal-Null, neues System)
     108 Normalorthometrische Höhe im System DHHN 12 (Normal-Null, neues System), Höhe des TP-Pfeilers
     109 Normalorthometrische Höhe im System DHHN 12 (Normal-Null, neues System), Höhe der Platte
     140 Normalorthometrische Höhe im System DHHN 85
     160 Normalhöhe im System DHHN 92 (Normalhöhen-Null, NHN)
     168 Normalhöhe im System DHHN 92 (Normalhöhen-Null, NHN), Höhe des TP-Pfleilers
     169 Normalhöhe im System DHHN 92 (Normalhöhen-Null, NHN), Höhe der Platte
     170 Normalhöhe im System DHHN2016 (Normalhöhen-Null, NHN)
     310 Ellipsoidische Höhe über dem GRS8O-Ellipsoid (ETRS89)(wird bei der TP-Festlegung "Pfeiler und Platte" nur für die Platte geführt)
     712 Undulation zwischen NN-Fläche (DHHN12) und GRS8O-Ellipsoid
     784 Undulation zwischen NN-Fläche (DHHN12) und Bessel-Ellipsoid (DHDN)
     789 Undulation zwischen NHN-Fläche (DHHN92) und GRS8O-Ellipsoid
     792 Undulation zwischen NHN-Fläche (DHHN92) und Bessel-Ellipsoid (DHDN)

 {$IF DEFINED(Anhalt)}
   LandesSysteme.Insert( TLandesSystem.Init( 489,  True, 'ETRS 89 (UTM), LS 489',          6383.0, 43.0, 0.9996, elGRS_80));
   LandesSysteme.Insert( TLandesSystem.Init( 150,  True, 'Krassowski 42/83 (3º), LS 150',  6383.0,  0.0, 1.0,    elKrassowski));
   LandesSysteme.Insert( TLandesSystem.Init( 110,  True, 'RD 83 (3º) (LS = 110)',          6381.0,  0.0, 1.0,    elBessel));
   { geändert (BL) 25.08.2016 142/143 hinzugefügt, da in nem AlkisFile aufgetaucht }
   LandesSysteme.Insert( TLandesSystem.Init( 142, False, '42/83 (12º) (LS = 142)',         6383.0,  0.0, 1.0,    elKrassowski));
   LandesSysteme.Insert( TLandesSystem.Init( 143, False, '42/83 (18º) (LS = 143)',         6383.0,  0.0, 1.0,    elKrassowski));
   { 389 ignorieren wir vorerst }
   //LandesSysteme.Insert( TLandesSystem.Init( 389, 'ETRS 89 (X-Y-Z), LS 389',        6383.0,  0.0, 1.0,    elGRS_80));
 {$ELSEIF DEFINED(Sachsen)}
   LandesSysteme.Insert( TLandesSystem.Init( 100, False, 'RD 83 (LS = 100)',               6381.0, 0.0, 1.0,    elBessel));
   LandesSysteme.Insert( TLandesSystem.Init( 101, False, 'RD 83 (3º) (LS = 101)',          6381.0, 0.0, 1.0,    elBessel));
   LandesSysteme.Insert( TLandesSystem.Init( 102, False, 'RD 83 (6º) (LS = 102)',          6381.0, 0.0, 1.0,    elBessel));
   LandesSysteme.Insert( TLandesSystem.Init( 103, False, 'RD 83 (9º) (LS = 103)',          6381.0, 0.0, 1.0,    elBessel));
   LandesSysteme.Insert( TLandesSystem.Init( 104, False, 'RD 83 (12º) (LS = 104)',         6381.0, 0.0, 1.0,    elBessel));
   LandesSysteme.Insert( TLandesSystem.Init( 105, False, 'RD 83 (15º) (LS = 105)',         6381.0, 0.0, 1.0,    elBessel));

   LandesSysteme.Insert( TLandesSystem.Init( 111,  True, 'RD 83 12 Grad (LS = 111)',       6381.0,  0.0, 1.0,    elBessel));
   LandesSysteme.Insert( TLandesSystem.Init( 112,  True, 'RD 83 15 Grad (LS = 112)',       6381.0,  0.0, 1.0,    elBessel));
   LandesSysteme.Insert( TLandesSystem.Init( 489,  True, 'ETRS 89 (UTM), LS 489',          6383.0, 44.0, 0.9996, elGRS_80));   { 43 m vorläufig, Friedrich 16.5.01 }
                                                                                                                               { 44 m, S.Thanert 21.8.01           }
   LandesSysteme.Insert( TLandesSystem.Init( 110, False, 'RD 83 (3º) (LS = 110)',          6381.0,  0.0, 1.0,    elBessel));
   LandesSysteme.Insert( TLandesSystem.Init( 120, False, 'PD 83 (3º) (LS = 120)',          6381.0,  0.0, 1.0,    elBessel));
   LandesSysteme.Insert( TLandesSystem.Init( 121, False, 'PD 83 12 Grad (LS = 121)',       6381.0,  0.0, 1.0,    elBessel));
   LandesSysteme.Insert( TLandesSystem.Init( 011, False, 'lokal ( RD 83 )',                6381.0,  0.0, 1.0,    elBessel));
   LandesSysteme.Insert( TLandesSystem.Init( 012, False, 'lokal ( RD 83 )',                6381.0,  0.0, 1.0,    elBessel));
   LandesSysteme.Insert( TLandesSystem.Init( 021, False, 'lokal ( PD 83 )',                6381.0,  0.0, 1.0,    elBessel));
   LandesSysteme.Insert( TLandesSystem.Init( 150, False, 'Krassowski 42/83 (3º), LS 150',  6383.0,  0.0, 1.0,    elKrassowski));

   //als Test für Kosovo LG 22.07.2014
   LandesSysteme.Insert( TLandesSystem.Init( 030, False, 'FRYREF 30 (21º), LS 030',      6377.397,  0.0, 0.9999, elBessel));
   LandesSysteme.Insert( TLandesSystem.Init( 001, False, 'KosovaREF 01, LS 001',         6378.137, 45.0, 0.9999, elGRS_80));
   { geändert (BL) 08.11.2016 Wunsch Dirk: Saarland Testfile }
   LandesSysteme.Insert( TLandesSystem.Init( 197, False, 'PD 83 6 Grad (LS = 197)',       6384.0,  0.0, 1.0,    elBessel));
 {$ELSEIF DEFINED(THR)}
   LandesSysteme.Insert( TLandesSystem.Init( 021, False, 'lokal ( LS = 021 )',             6384.0,  0.0, 1.0,    elBessel));
   LandesSysteme.Insert( TLandesSystem.Init( 110,  True, 'RD 83 (3º) (LS = 110)',          6384.0,  0.0, 1.0,    elBessel));
   LandesSysteme.Insert( TLandesSystem.Init( 111, False, 'RD 83 12 Grad (LS = 111)',       6384.0,  0.0, 1.0,    elBessel));
   LandesSysteme.Insert( TLandesSystem.Init( 112, False, 'RD 83 15 Grad (LS = 112)',       6384.0,  0.0, 1.0,    elBessel));
   LandesSysteme.Insert( TLandesSystem.Init( 121, False, 'PD 83 12 Grad (LS = 121)',       6384.0,  0.0, 1.0,    elBessel));                                                                                                                                 LandesSysteme.Insert( TLandesSystem.Init( 120,  True, 'PD 83 (3º) (LS = 120)',          6384.0,  0.0, 1.0,    elBessel));
   LandesSysteme.Insert( TLandesSystem.Init( 150, False, 'Krassowski 42/83 (3º), LS 150',  6384.0,  0.0, 1.0,    elKrassowski));
   LandesSysteme.Insert( TLandesSystem.Init( 489,  True, 'ETRS 89 (UTM), LS 489',          6383.0, 45.0, 0.9996, elGRS_80));   { Reduktionen_UTM: Anlage 4 Blatt 1 [2009/08/17 lg] }
   InsertTHRLokaleSysteme;
   //LandesSysteme.Insert( TLandesSystem.Init( 971, False, _('Lokales System 971'),        Fehlwert,  0.0, 1.0,    ));
 {$ELSEIF DEFINED(BRB)}
   LandesSysteme.Insert( TLandesSystem.Init( 489,  True, 'ETRS 89 (UTM), LS 489',          6380.0, 40.0, 0.9996, elGRS_80));
   LandesSysteme.Insert( TLandesSystem.Init( 040, False, 'ETRS 89 (UTM), LS 040',          6383.0, 40.0, 0.9996, elGRS_80));   { 040 wie 489, Rauls 14.5.2000 }
   LandesSysteme.Insert( TLandesSystem.Init( 150,  True, 'Krassowski 42/83 (3º), LS 150',  6383.0,  0.0, 1.0,    elKrassowski));
   LandesSysteme.Insert( TLandesSystem.Init( 510, False, _('Örtliches System' + ' 510'),  Fehlwert,0.0, 1.0,    ));
 {$ELSEIF DEFINED(Berlin)}
   LandesSysteme.Insert( TLandesSystem.Init( 500,  True, 'Soldner-Berlin Netz88, LS 500',  Fehlwert,0.0, 1.0,    elBessel));  { y+40000; x+10000 ; Bessel 1841 }
   LandesSysteme.Insert( TLandesSystem.Init( 489,  True, 'ETRS 89 (UTM), LS 489',          6380.0, 40.0, 0.9996, elGRS_80));

   LandesSysteme.Insert( TLandesSystem.Init( 100, False, 'RD 83 (LS = 100)',               6381.0,  0.0, 1.0,    elBessel));
   LandesSysteme.Insert( TLandesSystem.Init( 101, False, 'RD 83 (3º) (LS = 101)',          6381.0,  0.0, 1.0,    elBessel));
   LandesSysteme.Insert( TLandesSystem.Init( 102, False, 'RD 83 (6º) (LS = 102)',          6381.0,  0.0, 1.0,    elBessel));
   LandesSysteme.Insert( TLandesSystem.Init( 103, False, 'RD 83 (9º) (LS = 103)',          6381.0,  0.0, 1.0,    elBessel));
   LandesSysteme.Insert( TLandesSystem.Init( 104, False, 'RD 83 (12º) (LS = 104)',         6381.0,  0.0, 1.0,    elBessel));
   LandesSysteme.Insert( TLandesSystem.Init( 105, False, 'RD 83 (15º) (LS = 105)',         6381.0,  0.0, 1.0,    elBessel));
   LandesSysteme.Insert( TLandesSystem.Init( 130, False, '40/83 (LS = 130)',               6381.0,  0.0, 1.0,    elBessel));
   LandesSysteme.Insert( TLandesSystem.Init( 133, False, '40/83 (9º) (LS = 133)',          6381.0,  0.0, 1.0,    elBessel));
   LandesSysteme.Insert( TLandesSystem.Init( 134, False, '40/83 (12º) (LS = 134)',         6381.0,  0.0, 1.0,    elBessel));
   LandesSysteme.Insert( TLandesSystem.Init( 135, False, '40/83 (15º) (LS = 135)',         6381.0,  0.0, 1.0,    elBessel));
   LandesSysteme.Insert( TLandesSystem.Init( 140, False, '42/83 (LS = 140)',               6383.0,  0.0, 1.0,    elKrassowski));
   LandesSysteme.Insert( TLandesSystem.Init( 142, False, '42/83 (12º) (LS = 142)',         6383.0,  0.0, 1.0,    elKrassowski));
   LandesSysteme.Insert( TLandesSystem.Init( 143, False, '42/83 (18º) (LS = 143)',         6383.0,  0.0, 1.0,    elKrassowski));
   LandesSysteme.Insert( TLandesSystem.Init( 150, False, 'Krassowski 42/83 (LS 150)',      6383.0,  0.0, 1.0,    elKrassowski));
   LandesSysteme.Insert( TLandesSystem.Init( 153, False, 'Krassowski 42/83 (9º) (LS 153)', 6383.0,  0.0, 1.0,    elKrassowski));
   LandesSysteme.Insert( TLandesSystem.Init( 154, False, 'Krassowski 42/83 (12º) (LS 154)',6383.0,  0.0, 1.0,    elKrassowski));
   LandesSysteme.Insert( TLandesSystem.Init( 155, False, 'Krassowski 42/83 (15º) (LS 155)',6383.0,  0.0, 1.0,    elKrassowski));

   LandesSysteme.Insert( TLandesSystem.Init( 400, False, 'Internat./ED50 (UTM) (LS 400)',  6383.0, 40.0, 0.9996, elHayford));
   LandesSysteme.Insert( TLandesSystem.Init( 432, False, 'Internat./ED50 (UTM 32) (LS 432)',6383.0,40.0, 0.9996, elHayford));
   LandesSysteme.Insert( TLandesSystem.Init( 433, False, 'Internat./ED50 (UTM 33) (LS 433)',6383.0,40.0, 0.9996, elHayford));

   LandesSysteme.Insert( TLandesSystem.Init( 491, False, 'ETRS 89/93 (UTM 31) (LS 491)',   6380.0, 40.0, 0.9996, elGRS_80));
   LandesSysteme.Insert( TLandesSystem.Init( 492, False, 'ETRS 89/93 (UTM 32) (LS 492)',   6380.0, 40.0, 0.9996, elGRS_80));
   LandesSysteme.Insert( TLandesSystem.Init( 493, False, 'ETRS 89/93 (UTM 33) (LS 493)',   6380.0, 40.0, 0.9996, elGRS_80));
   LandesSysteme.Insert( TLandesSystem.Init( 494, False, 'ETRS 89/93 (UTM 34) (LS 494)',   6380.0, 40.0, 0.9996, elGRS_80));

   LandesSysteme.Insert( TLandesSystem.Init( 600, False, '18.Soldnersystem RDN/DHDN, LS 600',Fehlwert,0.0, 1.0,  elBessel));  { y+0; x+0 ; Bessel 1841 }
   LandesSysteme.Insert( TLandesSystem.Init( 610, False, 'System 18/1, LS 610',            6383.0,  0.0, 1.0,    elKrassowski));
   LandesSysteme.Insert( TLandesSystem.Init( 620, False, 'System 18/2, LS 620',            6383.0,  0.0, 1.0,    elKrassowski));
   LandesSysteme.Insert( TLandesSystem.Init( 630, False, 'System 18/3, LS 630',            6383.0,  0.0, 1.0,    elKrassowski));
   LandesSysteme.Insert( TLandesSystem.Init( 640, False, 'RDN Reinickendorf/Pankow, LS 640',6381.0, 0.0, 1.0,    elBessel));
   LandesSysteme.Insert( TLandesSystem.Init( 650, False, 'RDN 19.Soldnersystem, LS 650',   Fehlwert,0.0, 1.0,    elBessel));
   LandesSysteme.Insert( TLandesSystem.Init( 660, False, 'RDN Rathausturm B.-Mitte, LS 660',6381.0, 0.0, 1.0,    elBessel));

   LandesSysteme.Insert( TLandesSystem.Init( 850, False, 'RDN/DHDN Netz 88, LS 850',       6381.0,  0.0, 1.0,    elBessel));
   LandesSysteme.Insert( TLandesSystem.Init( 884, False, 'ETRS 89, LS 884',                6380.0, 40.0, 0.9996, elWGS_84));
   LandesSysteme.Insert( TLandesSystem.Init( 889, False, 'ETRS 89/93, LS 889',             6380.0, 40.0, 0.9996, elGRS_80));

   { Aus Sachsen:}
   LandesSysteme.Insert( TLandesSystem.Init( 110, False, 'RD 83 (3º) (LS = 110)',          6381.0,  0.0, 1.0,    elBessel));
   LandesSysteme.Insert( TLandesSystem.Init( 120, False, 'PD 83 (3º) (LS = 120)',          6381.0,  0.0, 1.0,    elBessel));
 {$ELSEIF DEFINED(NRW)}
   LandesSysteme.Insert( TLandesSystem.Init( 100, False, 'RD 83 (LS = 100)',               6381.0, 0.0, 1.0,    elBessel));
   LandesSysteme.Insert( TLandesSystem.Init( 101, False, 'RD 83 (3º) (LS = 101)',          6381.0, 0.0, 1.0,    elBessel));
   LandesSysteme.Insert( TLandesSystem.Init( 102, False, 'RD 83 (6º) (LS = 102)',          6381.0, 0.0, 1.0,    elBessel));
   LandesSysteme.Insert( TLandesSystem.Init( 103, False, 'RD 83 (9º) (LS = 103)',          6381.0, 0.0, 1.0,    elBessel));
   LandesSysteme.Insert( TLandesSystem.Init( 104, False, 'RD 83 (12º) (LS = 104)',         6381.0, 0.0, 1.0,    elBessel));
   LandesSysteme.Insert( TLandesSystem.Init( 105, False, 'RD 83 (15º) (LS = 105)',         6381.0, 0.0, 1.0,    elBessel));
   LandesSysteme.Insert( TLandesSystem.Init( 133, False, 'RD 83 (9º) (LS = 133)',          6381.0, 0.0, 1.0,    elBessel));
   LandesSysteme.Insert( TLandesSystem.Init( 158, False, 'RD 83 (3º) (LS = 158)',          6381.0, 0.0, 1.0,    elBessel));
   LandesSysteme.Insert( TLandesSystem.Init( 163, False, 'RD 83 (3º) (LS = 163)',          6381.0, 0.0, 1.0,    elBessel));
   LandesSysteme.Insert( TLandesSystem.Init( 166, False, 'RD 83 (3º) (LS = 166)',          6381.0, 0.0, 1.0,    elBessel));
   LandesSysteme.Insert( TLandesSystem.Init( 173, False, 'RD 83 (3º) (LS = 173)',          6381.0, 0.0, 1.0,    elBessel));
   LandesSysteme.Insert( TLandesSystem.Init( 174, False, 'RD 83 (3º) (LS = 174)',          6381.0, 0.0, 1.0,    elBessel));
   LandesSysteme.Insert( TLandesSystem.Init( 175, False, 'RD 83 (3º) (LS = 175)',          6381.0, 0.0, 1.0,    elBessel));
   LandesSysteme.Insert( TLandesSystem.Init( 176, False, 'RD 83 (3º) (LS = 176)',          6381.0, 0.0, 1.0,    elBessel));
   LandesSysteme.Insert( TLandesSystem.Init( 177,  True, 'RD 83 (3º) (LS = 177)',          6381.0, 0.0, 1.0,    elBessel));
   LandesSysteme.Insert( TLandesSystem.Init( 489,  True, 'ETRS 89 (UTM), LS 489',          6381.0, 45.0, 0.9996, elGRS_80));

 {$ELSEIF DEFINED(MV)}
   LandesSysteme.Insert( TLandesSystem.Init( 489,  True, 'ETRS 89 (UTM), LS 489',          6384.0, 43.0, 0.9996, elGRS_80));
   LandesSysteme.Insert( TLandesSystem.Init( 150,  True, 'Krassowski 42/83 (3º), LS 150',  6384.0,  0.0, 1.0,    elKrassowski));{ (BL) 30.01.2014 kopiert von Anhalt, 150 ist früherer NB-LS in MV }
   { TODO 5 -oLars -cVC : Brauchen wir noch mehr? http://www.laiv-mv.de/land-mv/LAiV_prod/LAiV/AfGVK/Publikationen/_faltblaetter/VwV-PktDat_M-V_B1.pdf}
 {$ELSEIF DEFINED(NS)}
   LandesSysteme.Insert( TLandesSystem.Init( 489,  True, 'ETRS 89 (UTM), LS 489',          6383.0, 40.0, 0.9996, elGRS_80));  { (CP) 18.12.2023 - HNo auf 40 statt 43 (siehe Formelsammlung_ETRS89_UTM32, S. 18 unten bzw. S. 19 oben) }
   LandesSysteme.Insert( TLandesSystem.Init( 150,  True, 'Krassowski 42/83 (3º), LS 150',  6384.0,  0.0, 1.0,    elKrassowski));
   { Die Bezeichnung LS100 entfällt mit der Einführung von AFIS®-ALKIS®-ATKIS®,
     d. h. die Kurzbezeichnungen der Koordinatenreferenzsysteme
     (Coordinate Reference System, CRS) für Lageangaben lauten künftig je nach
     Gauß-Krüger-Abbildungsstreifen "DE_DHDN_3GK2_NI100" (2. Streifen),
                                    "DE_DHDN_3GK3_NI100" (3. Streifen) oder
                                    "DE_DHDN_3GK4_NI100" (4. Streifen). }
   { (CP) 29.11.2023 -geaendert- Laut Formelsammlung NS: Bessel-Ellipsoid mit mittlerem Radius von 6383 statt 6381 }
   LandesSysteme.Insert( TLandesSystem.Init( 100,  True, 'RD 83 (LS = 100)',               6383.0,  0.0, 1.0,    elBessel));
   LandesSysteme.Insert( TLandesSystem.Init( 101, False, 'RD 83 (3º) (LS = 101)',          6383.0,  0.0, 1.0,    elBessel));
   LandesSysteme.Insert( TLandesSystem.Init( 102, False, 'RD 83 (6º) (LS = 102)',          6383.0,  0.0, 1.0,    elBessel));
   LandesSysteme.Insert( TLandesSystem.Init( 103, False, 'RD 83 (9º) (LS = 103)',          6383.0,  0.0, 1.0,    elBessel));
   LandesSysteme.Insert( TLandesSystem.Init( 104, False, 'RD 83 (12º) (LS = 104)',         6383.0,  0.0, 1.0,    elBessel));
   LandesSysteme.Insert( TLandesSystem.Init( 105, False, 'RD 83 (15º) (LS = 105)',         6383.0,  0.0, 1.0,    elBessel));
 {$ELSEIF DEFINED(SH)}
   LandesSysteme.Insert( TLandesSystem.Init( 489,  True, 'ETRS 89 (UTM), LS 489',          6383.0, 40.0, 0.9996, elGRS_80));
   LandesSysteme.Insert( TLandesSystem.Init( 150,  True, 'Krassowski 42/83 (3º), LS 150',  6384.0,  0.0, 1.0,    elKrassowski));

   LandesSysteme.Insert( TLandesSystem.Init( 100,  True, 'RD 83 (LS = 100)',               6383.0,  0.0, 1.0,    elBessel));
   LandesSysteme.Insert( TLandesSystem.Init( 101, False, 'RD 83 (3º) (LS = 101)',          6383.0,  0.0, 1.0,    elBessel));
   LandesSysteme.Insert( TLandesSystem.Init( 102, False, 'RD 83 (6º) (LS = 102)',          6383.0,  0.0, 1.0,    elBessel));
   LandesSysteme.Insert( TLandesSystem.Init( 103, False, 'RD 83 (9º) (LS = 103)',          6383.0,  0.0, 1.0,    elBessel));
   LandesSysteme.Insert( TLandesSystem.Init( 104, False, 'RD 83 (12º) (LS = 104)',         6383.0,  0.0, 1.0,    elBessel));
   LandesSysteme.Insert( TLandesSystem.Init( 105, False, 'RD 83 (15º) (LS = 105)',         6383.0,  0.0, 1.0,    elBessel));

   LandesSysteme.Insert( TLandesSystem.Init( 896,  True, 'Soldner-Ostenfeld, LS 896',    Fehlwert,  0.0, 1.0,    elBessel));
   LandesSysteme.Insert( TLandesSystem.Init( 897,  True, 'Soldner-Rathkrügen, LS 897',   Fehlwert,  0.0, 1.0,    elBessel));
   LandesSysteme.Insert( TLandesSystem.Init( 898,  True, 'Soldner-Bungsberg, LS 898',    Fehlwert,  0.0, 1.0,    elBessel));
 {$ELSEIF DEFINED(BW)}
   LandesSysteme.Insert( TLandesSystem.Init( 489,  True, 'ETRS 89 (UTM), LS 489',          6381.0, 48.0, 0.9996, elGRS_80));
   LandesSysteme.Insert( TLandesSystem.Init( 100,  True, 'DHDN GK BW100 (LS = 100)',       6381.0,  0.0, 1.0,    elBessel));
   LandesSysteme.Insert( TLandesSystem.Init( 101, False, 'DHDN GK (3º) (LS = 101)',        6381.0,  0.0, 1.0,    elBessel));
   LandesSysteme.Insert( TLandesSystem.Init( 102, False, 'DHDN GK (6º) (LS = 102)',        6381.0,  0.0, 1.0,    elBessel));
   LandesSysteme.Insert( TLandesSystem.Init( 103, False, 'DHDN GK (9º) (LS = 103)',        6381.0,  0.0, 1.0,    elBessel));
   LandesSysteme.Insert( TLandesSystem.Init( 104, False, 'DHDN GK (12º) (LS = 104)',       6381.0,  0.0, 1.0,    elBessel));
   LandesSysteme.Insert( TLandesSystem.Init( 105, False, 'DHDN GK (15º) (LS = 105)',       6381.0,  0.0, 1.0,    elBessel));
   LandesSysteme.Insert( TLandesSystem.Init( 894,  True, 'Soldner-Baden, LS 894',        Fehlwert,  0.0, 1.0,    elBessel));
   LandesSysteme.Insert( TLandesSystem.Init( 895,  True, 'Soldner-Wuerttemberg, LS 895', Fehlwert,  0.0, 1.0,    elBessel));

---

[Nach oben]