_GEO_WGS84_CH1903 ( Lat1 ; Lng1 )

Converts GPS data from WGS84 to Swiss CH1903 coordinates

Average rating: 4.2 (33 votes) Log in to vote

Ralph Nusser - Show more from this author
Sogetes FileMaker-Services
https://www.D10.GmbH

Sample input:

_GEO_WGS84_CH1903 ( 47.42639 ; 9.37806 )

Sample output:

746320 , 254651

Function definition: (Copy & paste into FileMaker's Edit Custom Function window)

/*
Syntax:
_GEO_WGS84_CH1903 ( Lat1 ; Lng1 )

Example Download:
http://www.filemaker-magazin.de/fmmforum/60198.html

Autor:
Ralph Nusser, 9. Mai 2006
Sogetes Computer-Services

Beispiel Eingabe: cf_CH_Koordinaten ( 47.41903; 9.36944)
Beispiel Ausgabe [CH-Koordinaten x/y]: 745689,253816

Quellen:
http://www.swisstopo.ch/pub/down/basics/geo/system/swiss_projection_de.pdf
http://de.wikipedia.org/wiki/CH1903

Erklärung:
Näherungsformeln für die direkte Umrechnung von:
ellipsoidischen WGS84-Koordinaten (λ, φ, h)
Schweizer Projektionskoordinaten (y, x, h')
(Genauigkeit im 1-Meter-Bereich)
nach: [H. Dupraz, Transformation approchée de coordonnées WGS84 en coordonnées nationales suisses, IGEO-TOPO, EPFL, 1992]
Die Parameter wurden von U. Marti (Mai 1999) neu berechnet. Zudem wurden die Einheiten so angepasst, dass sie mit den Formeln
aus [Bolliger 1967] vergleichbar werden.
1. Breite φ und Länge λ sind in Sexagesimalsekunden ["] umzuwandeln
2. Hilfsgrössen (Breiten- und Längendifferenz gegenüber Bern in der Einheit [10000"]) berechnen:
φ' = (φ – 169028.66 ")/10000
λ' = (λ – 26782.5 ")/10000
3.                                   y [m] = 600072.37
                                           + 211455.93 * λ'
                                            - 10938.51 * λ' * φ'
                                            - 0.36 * λ' * φ' ^ 2
                                            - 44.54 * λ ^ '3

                                       x [m] = 200147.07
                                       + 308807.95 * φ'
                                       + 3745.25 * λ'  ^ 2
                                       + 76.63 * φ' 2
                                       - 194.56 * λ'  ^ 2 * φ'
                                      + 119.79 * φ'  ^ 3
                                       h' [m] = h – 49.55
                                       + 2.73 * λ'
                                       + 6.94 * φ'

*/



Let ( [ 

Lat Grad =  (Lat1);
Lat Minuten = Int ((Lat1 - Lat Grad) * 60);
Lat Sekunden = ((Lat1 - Lat Grad) * 60 - Int ((Lat1 - Lat Grad) * 60)) * 60;

Lng Grad = Int (Lng1);
Lng Minuten = Int ((Lng1 - Lng Grad) * 60);
Lng Sekunden = ((Lng1 - Lng Grad) * 60 - Int ((Lng1 - Lng Grad) * 60)) * 60;

p = (((Lat Grad * 3600) + (Lat Minuten * 60) + Lat Sekunden) - 169028.66) / 10000;
l = (((Lng Grad * 3600) + (Lng Minuten * 60) + Lng Sekunden) - 26782.5) / 10000
]; // End Let

Case ( 
IsEmpty ( Lng1 );"";
IsEmpty ( Lat1 );"";
Round (
600072.37 
    + 211455.93 * l 
    -  10938.51 * l   * p
    -      .36 * l   * p^2
    -     44.54 * l^3
;0) // End Round
 & " , " & 
// Y-Koordninatenformel:
Round (
 200147.07 
    + 308807.95 * p 
    +   3745.25 * l^2 
    +     76.63 * p^2 
    -    194.56 * l^2 * p
    +    119.79 * p^3 
;0) // End Round
) // End Case
) // End Let

Read the Wikipedia article:
http://de.wikipedia.org/wiki/CH1903
Download the example file at the German "FileMaker Magazin": http://www.filemaker-magazin.de/fmmforum/60198.html

Comments

Note: these functions are not guaranteed or supported by BrianDunning.com. Please contact the individual developer with any questions or problems.

_GEO_WGS84_CH1903 ( Lat1 ; Lng1 )

Comments

Support this website.

Support this website.