Spring naar bijdragen
Maandag 4 augustus 2025: Geocachingforum gestopt! Klik op de balk om verder te lezen.

omreken progjes

dolphinleap
 Share

Aanbevolen berichten

  • 3 weeks later...
  • 2 weeks later...
stefanne_3

stefanne_3

Geplaatst
Geplaatst

Ik heb mijn RD-conversie v3 nu ook aangepast zodat de afwijking nu nog maar 10 tot 50 centimeter is in vergelijking met CC40. Dit is in excel geschreven met Visual basic Private functie's (dus zonder macro's) zodat je er makkelijk zelf een andere applicatie mee kan maken. Ik gebruik deze functie's o.a. voor het maken van nieuwe caches die gebaseerd zijn op RD raster.

 

Lat/Lon coordinaten in WGS84 moet je invoeren in graden en decimale minuten (geocache standaard). Intern wordt er gerekend via WGS84 decimale graden -> RD bessel decimale graden -> RD grid in meters en vise versa.

 

Dit is de kern van de Visual Basic functie's om RD-coordinaten in meters
om te zetten naar WGS84 Lat/Lon coordinaten in decimale graden.
De afwijking is ongeveer 10 tot 50 centimeter in vergelijking met CC40.

Private Function RDLatLong(x, y)

'rangecontrole
If (x < 0 Or x > 290000) Then
   RDLatLong = Null
   Exit Function
ElseIf (y < 290000 Or y > 630000) Then
   RDLatLong = Null
   Exit Function
End If

Dim dx As Double
Dim dy As Double
Dim dl As Double
Dim l As Double
Dim df As Double
Dim f As Double
Dim fWgs As Double
Dim lWgs As Double

 x0 = 155000
 y0 = 463000
 f0 = 52.156160556
 l0 = 5.387638889
a01 = 3236.0331637
b10 = 5261.3028966
a20 = -32.5915821
b11 = 105.9780241
a02 = -0.2472814
b12 = 2.4576469
a21 = -0.8501341
b30 = -0.8192156
a03 = -0.0655238
b31 = -0.0560092
a22 = -0.0171137
b13 = 0.0560089
a40 = 0.0052771
b32 = -0.0025614
a23 = -0.0003859
b14 = 0.001277
a41 = 0.0003314
b50 = 0.0002574
a04 = 0.0000371
b33 = -0.0000973
a42 = 0.0000143
b51 = 0.0000293
a24 = -0.000009
b15 = 0.0000291



dx = (x - x0) * 10 ^ -5
dy = (y - y0) * 10 ^ -5

df = a01 * dy + a20 * dx ^ 2 + a02 * dy ^ 2 + a21 * dx ^ 2 * dy + a03 * dy ^ 3
df = df + a40 * dx ^ 4 + a22 * dx ^ 2 * dy ^ 2 + a04 * dy ^ 4 + a41 * dx ^ 4 * dy
df = df + a23 * dx ^ 2 * dy ^ 3 + a42 * dx ^ 4 * dy ^ 2 + a24 * dx ^ 2 * dy ^ 4
f = f0 + df / 3600 'N RD-bessel

dl = b10 * dx + b11 * dx * dy + b30 * dx ^ 3 + b12 * dx * dy ^ 2 + b31 * dx ^ 3 * dy
dl = dl + b13 * dx * dy ^ 3 + b50 * dx ^ 5 + b32 * dx ^ 3 * dy ^ 2 + b14 * dx * dy ^ 4
dl = dl + b51 * dx ^ 5 * dy + b33 * dx ^ 3 * dy ^ 3 + b15 * dx * dy ^ 5
l = l0 + dl / 3600 'E RD-bessel


fWgs = f + (-96.862 - (f - 52) * 11.714 - (l - 5) * 0.125) * 0.00001 'N WGS84
lWgs = l + ((f - 52) * 0.329 - 37.902 - (l - 5) * 14.667) * 0.00001 'E WGS84

End Function



Private Function LatLongRD(N, E)

'rangecontrole
If (N < 50.579 Or N > 53.639) Then
   LatLongRD = Null
   Exit Function
ElseIf (E < 3.043 Or E > 7.429) Then
   LatLongRD = Null
   Exit Function
End If

Dim dx As Double
Dim dy As Double
Dim dl As Double
Dim l As Double
Dim df As Double
Dim f As Double

x0 = 155000
y0 = 463000
f0 = 52.15616056
l0 = 5.38763889
c01 = 190066.98903
d10 = 309020.3181
c11 = -11830.85831
d02 = 3638.36193
c21 = -114.19754
d12 = -157.95222
c03 = -32.3836
d20 = 72.97141
c31 = -2.34078
d30 = 59.79734
c13 = -0.60639
d22 = -6.43481
c23 = 0.15774
d04 = 0.09351
c41 = -0.04158
d32 = -0.07379
c05 = -0.00661
d14 = -0.05419
d40 = -0.03444


f = N - (-96.862 - (N - 52) * 11.714 - (E - 5) * 0.125) * 0.00001 'N bessel
l = E - ((N - 52) * 0.329 - 37.902 - (E - 5) * 14.667) * 0.00001 'E bessel

df = (f - f0) * 0.36
dl = (l - l0) * 0.36

dx = c01 * dl + c11 * df * dl + c21 * df ^ 2 * dl + c03 * dl ^ 3
dx = dx + c31 * df ^ 3 * dl + c13 * df * dl3 + c23 * df ^ 2 * dl ^ 3
dx = dx + c41 * df ^ 4 * dl + c05 * dl ^ 5
x = x0 + dx 'RD x


dy = d10 * df + d20 * df ^ 2 + d02 * dl ^ 2 + d12 * df * dl ^ 2
dy = dy + d30 * df ^ 3 + d22 * df ^ 2 * dl ^ 2 + d40 * df ^ 4
dy = dy + d04 * dl4 + d32 * df ^ 3 * dl ^ 2 + d14 * df * dl ^ 4
y = y0 + dy 'RD y

End Function

  • 2 years later...
Rubke

Rubke

Geplaatst
Geplaatst (bewerkt) 
dx = dx + c31 * df ^ 3 * dl + c13 * df * dl3 + c23 * df ^ 2 * dl ^ 3
dy = dy + d04 * dl4 + d32 * df ^ 3 * dl ^ 2 + d14 * df * dl ^ 4

 

d13 en d14 zijn schijnbaar leeg of niet gedefinieerd, maakt dat misschien wat uit voor de nauwkeurigheid ?

bewerkt door Rubke
  • 6 months later...
Prof. Y. Lupardi

Prof. Y. Lupardi

Geplaatst
Geplaatst

Onze grottendeskundige Ed Stevenhagen is niet verzonken in winterslaap in zijn hol.

Ik kreeg het bericht door dat zijn site vernieuwd was. Hij converteert nu online (ook in FireFox browser) tussen RD, WGS84, ED50, Lambert en gebruikt ook UTM coordinaten.

Wat de zaak helemaal opleukt is de mogelijkheid om op kaart- en fotobeelden te positioneren. Ik laat hem even zelf aan het woord erover:

 

Coördinatentransformator nu ook voor Firefox

* Werkt als popup dus geen popupblocker aan zetten. Maakt gebruik van javascripting.

* Link naar luchtfoto's van aerogrid (met een resolutie van 15 - 50 cm) en de terraserver (ook voor het bepalen van detailcoordinaten)

 

Onderaan het scherm wordt tevens weergegeven:

* Afstand tussen de twee laatste punten

* Cumulatieve afstand

* De richting van de lijn tussen de laatste twee punten en het RD-grid

* De ingesloten oppervlak van de polygoon

* Reset door dubbelklik of wanneer de afstand tussen de laatste twee punten 0 is.

 

En tot slot het adres;

http://www.xs4all.nl/~estevenh/1/

  • 6 months later...
Gast dogtroop

Gast dogtroop

Geplaatst
Geplaatst

Beste Wiskids ;-)

 

Ik ben een ecoloog en heb vanuit mijn werk een vraag gerelateerd aan het bovenstaande. Ik heb databestanden met WGS84 GPS coordinaten (in excell). Ik zou heel blij zijn met iemand die mij aan een macro kan helpen om deze WGS84 gegevens om te zetten naar een dataset in meters; dit heb ik nodig voor programma's die spatiele analyses van mijn data kunnen uitvoeren.

 

Er stond hierboven een stukje visual basic voor RD-> WGS84

 

Ik zou dus graag het omgekeerde willen en het liefst in een direct over te plaatsen formaat voor de visual basic macro editor van excel.

 

Wie o WIe?

silkwood

silkwood

Geplaatst
Geplaatst

Met de coördinate calculator kan je ook vanuit een bestand een hele serie coördinaten omrekenen.

 

Beste Wiskids ;-)

 

Ik ben een ecoloog en heb vanuit mijn werk een vraag gerelateerd aan het bovenstaande. Ik heb databestanden met WGS84 GPS coordinaten (in excell). Ik zou heel blij zijn met iemand die mij aan een macro kan helpen om deze WGS84 gegevens om te zetten naar een dataset in meters; dit heb ik nodig voor programma's die spatiele analyses van mijn data kunnen uitvoeren.

 

Er stond hierboven een stukje visual basic voor RD-> WGS84

 

Ik zou dus graag het omgekeerde willen en het liefst in een direct over te plaatsen formaat voor de visual basic macro editor van excel.

 

Wie o WIe?

Mr.Chaos

Mr.Chaos

Geplaatst
Geplaatst
Beste Wiskids ;-)

 

Ik ben een ecoloog en heb vanuit mijn werk een vraag gerelateerd aan het bovenstaande. Ik heb databestanden met WGS84 GPS coordinaten (in excell). Ik zou heel blij zijn met iemand die mij aan een macro kan helpen om deze WGS84 gegevens om te zetten naar een dataset in meters; dit heb ik nodig voor programma's die spatiele analyses van mijn data kunnen uitvoeren.

 

Er stond hierboven een stukje visual basic voor RD-> WGS84

 

Ik zou dus graag het omgekeerde willen en het liefst in een direct over te plaatsen formaat voor de visual basic macro editor van excel.

 

Wie o WIe?

 

Ik heb wel ergens een excell-sheetje waar zo'n macro ingebakken zit. Vraag me niet hoe ik eraan kom, waarschijnlijk gewoon eens gegoogled op "wgs2rd". Stuur maar even een pm als je interesse hebt.

BigBird

BigBird

Geplaatst
Geplaatst
Beste Wiskids ;-)

 

Ik ben een ecoloog en heb vanuit mijn werk een vraag gerelateerd aan het bovenstaande. Ik heb databestanden met WGS84 GPS coordinaten (in excell). Ik zou heel blij zijn met iemand die mij aan een macro kan helpen om deze WGS84 gegevens om te zetten naar een dataset in meters; dit heb ik nodig voor programma's die spatiele analyses van mijn data kunnen uitvoeren.

 

Er stond hierboven een stukje visual basic voor RD-> WGS84

 

Ik zou dus graag het omgekeerde willen en het liefst in een direct over te plaatsen formaat voor de visual basic macro editor van excel.

 

Wie o WIe?

Dat is eenvoudig te doen met met mijn eerder genoemde convertor (waarvan de link niet meer juist is). Hierbij de juiste link: CMConverter.

 

Kopieer je WGS coords in de juiste kolommen en druk op de knop boven de kolom. de RD coords worden nu ingevuld.

Als de convertor niet doe wat jij nodig hebt, geef dan even een PM, dan maak ik het zoals jij nodig hebt...

 

BigBird

  • 9 years later...
Annes

Annes

Geplaatst
Geplaatst (bewerkt)

Beste forumleden,

ik ben coördinator van een vrijwilligersgroep die roofvogels inventariseert. De groepsleden zijn 'digibeten' en zij vullen nestkaarten met gegevens in. Deze gegevens worden aan het eind van ieder broedseizoen verzameld en ter beschikking gesteld aan Staatsbosbeheer, de Werkgroep roofvogels Nederland (WRN) & SOVON.

Om e.e.a. zo gebruiksvriendelijk mogelijk te makenheb ik een digitale nestkaart in Excel gemaakt die de vrijwilligers online via OneDrive invullen. De bedoeling is dat zij zich zo min mogelijk met meer geavanceerde digitale zaken hoeven bezig te houden.
Zo heeft de nestkaart inmiddels de mogelijkheid om GPS-coördinaten in te vullen waarna deze d.m.v. een Excel-functie automatisch worden omgerekend naar RD (Amersfoort)-coördinaten. Er dient momenteel echter ook nog een Atlasblok/km-hok handmatig te worden ingevuld hetgeen voor de meeste groepsleden een 'mission impossible' is.

Op de volgende link http://geoned.blogspot.nl/ vind ik een afbeelding van Coördinaten transormator waar automatisch ook een flora/fauna atlasblok met km-hok wordt berekend. Deze is blijkbaar ooit door de (helaas) in 2014 overleden Ed Stevenhagen geprogrammeerd. Helaas is deze site offline, maar wellicht is op dit forum bekend of-ie elders te benaderen is?

Het liefst zou ik in de betreffende cel(len) van het bijgevoegde Excel-bestand (echter: waarom kan ik deze niet als bijlage vanaf mijn schijf uploaden met de knop 'Mijn Media' ?) een functie willen zien die e.e.a. automatisch omrekent. Maar misschien kan iemand de omreken methodiek verstrekken? Dan ben ik nl. ook al een stap in de goede richting.

Alvast hartelijk dank voor jullie reactie(s)!

bewerkt door Annes
rnijenhu

rnijenhu

Geplaatst
Geplaatst (bewerkt)

Ik gebruik mijn Google spreadsheet hiervoor:

 

https://docs.google.com/spreadsheets/d/11_BMMJTWlbvi5mzKtZ3wTraFI43XddEK4R7o4D57XSI/edit?usp=drive_web

 

Status is wel 'testing' maar dat zal ook wel altijd zo blijven denk ik ;)

Als je niet vast zit aan Excel dan wil ik wel eens kijken of ik die functie erbij kan zetten. Aantal conversie functies zitten er al in, eenvoudig aan te passen: Laat maar weten.

bewerkt door rnijenhu
 Share
Ga naar discussieoverzicht

  • Onlangs hier   0 leden

    • Er kijken geen geregistreerde gebruikers naar deze pagina.
×
×
  • Nieuwe aanmaken...