O jee, de haakjes in eqtime kloppen ook niet . Ik zou nog eens goed kijken naar jouw link.
O jee, de haakjes in eqtime kloppen ook niet . Ik zou nog eens goed kijken naar jouw link.
(Sender as TNLDUser).Signature := 'Groeten van Albert';
Zit nog steeds in D2005Originally Posted by Matthijs
DeX 3 Delphi := The ease of VB with the power of C; Zoekt en gij zult vinden
Ik heb het zo gedaan:Originally Posted by MMSoft
Een regel is langer dan 80 karakters, sorry!Code:procedure TForm1.Button5Click(Sender: TObject); const Brdt = 55 + 27 / 60; // In graden. Lgt = -1 * (5 + 31 / 60); // In graden. pi2 = 2 * pi; // 2 * pi. :) g2r = pi / 180; // Voor conversie van graden naar radialen. var Tijd: TDateTime; y: double; eqtime, decl: double; ha: double; SunRise, SunSet: double; begin Tijd := Now; y := (pi2 / 365) * (DayOfTheYear(Tijd) - 1 + ((HourOf(Tijd) - 12)/24)); // eqtime in minuten eqtime := 229.18 * (0.000075 + 0.001868 * cos(y) - 0.032077 * sin(y) - 0.014615 * cos(2*y) - 0.040849 * sin(2*y)); // declinatie in radialen. decl := 0.006918 - 0.399912 * cos(y) + 0.070257 * sin(y) - 0.006758 * cos(2*y) + 0.000907 * sin(2*y) - 0.002697 * cos(3*y) + 0.00148 * sin(3*y); ha := arccos( (cos(g2r*90.833) / (cos(g2r*brdt) * cos(decl)) - (tan(g2r*brdt) * tan(decl)))); SunRise := ((720 + 4 * (lgt - ha / g2r) -eqtime) / 1440); ShowMessage(TimeToStr(SunRise)); SunSet := ((720 + 4 * (lgt + ha / g2r) -eqtime) / 1440); ShowMessage(TimeToStr(SunSet)); end;
De tijd van zonsopkomst klopt met die hier staat. Maar de zonsondergang niet helemaal. Om maar niet te zeggen helemaal niet.
Last edited by Matthijs; 29-Jan-05 at 14:02.
What's in a sig?
Would my posting be less valuable if it didnot have a sig? (Vrij naar William S.)
Let op de kleine lettertjes. For all postings: e&oe!
This program performed an illegal function, the police are on their way
De eerste gedeeltelijk werkende versie !
Welke plaats ligt er op de opgegeven co?Ârdinaten ?
Als dat erg afwijkt van de Bilt, dan kan dat het probleem zijn !
Edit:
De gegevens waarmee je vergelijkt, zijn van 2003 !
Op http://www.meteonet.nl/diversen/zoncalc.htm kan je de actuele tijden laten berekenen.
Last edited by MMSoft; 24-Jan-05 at 23:35.
De co?Ârdinaten zijn van vliegveld Lelystad. De afwijking met de Bilt is te gering om van invloed te zijn.
Bugger. Waarom houden ze bij de KNMI hun site niet een beetje up to date?
BTW. Door de gedane aannames zullen de tijden in de loop van het jaar verschillende afwijkingen vertonen met de werkelijkheid. Dus als je hierop zou moeten navigeren ...
Last edited by Matthijs; 30-Jan-05 at 10:52.
What's in a sig?
Would my posting be less valuable if it didnot have a sig? (Vrij naar William S.)
Let op de kleine lettertjes. For all postings: e&oe!
This program performed an illegal function, the police are on their way
Misschien leuk om te weten:Originally Posted by MMSoft
De nautische schemering (bij een zonshoogte van -12 to -6 graden) wordt (werd ) gebruikt om een astronomisch bestek te maken aan boord van schepen. In die periode werd de hoogte gemeten van een aantal sterren. Gedurende de nautische schemering is het licht genoeg om de horizon te zien en nog donker genoeg om de sterren te zien.Originally Posted by zoncalc.htm
Na het meten van de hoogte van de sterren, werd er uitgerekend hoe hoog de sterren, uitgaande van een "gegist bestek" zouden moeten staan. Het verschil tussen de gemeten hoogte en de berekende hoogte geeft dan aan hoever je gegiste positie verwijderd is van je echte positie. Met de richting van de ster en deze afstand kun je dus een lijn tekenen in de kaart waarop je je in theorie zou moeten bevinden. Doe je dat voor minimaal 3 (wij namen er meestal 6) sterren, dan heb je een redelijk nauwkeurige positie.
Misschien toch maar even splitsen naar de koffiehoek?
What's in a sig?
Would my posting be less valuable if it didnot have a sig? (Vrij naar William S.)
Let op de kleine lettertjes. For all postings: e&oe!
This program performed an illegal function, the police are on their way
What's in a sig?
Would my posting be less valuable if it didnot have a sig? (Vrij naar William S.)
Let op de kleine lettertjes. For all postings: e&oe!
This program performed an illegal function, the police are on their way
Op die Site's ben ik al diverse keren geweest, heb al vanalles proberen te vertalen naar delphi, maar er zijn zoveel verwijzingen dat ik telkens het spoor kwijt ben geraakt..
Dat Basic programma, werkt dat goed ?
Ik bedoel, krijg ik dat betrouwbare tijden denk je ?
Edit:
Hierbij het Gecompileerd basic programma (Windows overschakelen naar Dos mode).
Last edited by MMSoft; 26-Jan-05 at 23:52.
Heeft iemand een idee, hoe de code van Matthijs (24-Jan-05, 18:11) te wijzigen is,
zodat deze de nautische schemering (bij een zonshoogte van -12 to -6 graden) berekend ?
Ik wil dit weekend wel even kijken of ik mijn studie boeken er bij kan pakken.
[kort door de bocht modus]
Het principe is "natuurlijk" vrij eenvoudig. Je weet je positie, je kunt de LHA en declinatie van de zon berekenen en je weet de hoogte van de zon. De enige variabele die je dan nog hebt is de tijd.
[/kort door de bocht modus]
Maar het wordt ondertussen meer een nautisch / astronomisch / algoritme probleem dan een Delphi vraag.
What's in a sig?
Would my posting be less valuable if it didnot have a sig? (Vrij naar William S.)
Let op de kleine lettertjes. For all postings: e&oe!
This program performed an illegal function, the police are on their way
Inderdaad, maar dat was het natuurlijk al vanaf het begin In het beste geval laat je Turbo Pascal het rekenwerk doen. Hier is de broncode, voor de zon en de maan, inclusief de duisternissen! Onversneden Pascal, dus als je geen compiler (meer) hebt dan zul je een kleine vertaalslag naar Delphi moeten maken. Voor het gemak ook maar een executable meegeleverd (in DOS dus).Originally Posted by Matthijs
Gelukkig hebben we TP5 in het museum. Echter om een en ander te kunnen gebruiken mankeren er nogal wat include-files en 1 of 2 units die je gebruikt.
What's in a sig?
Would my posting be less valuable if it didnot have a sig? (Vrij naar William S.)
Let op de kleine lettertjes. For all postings: e&oe!
This program performed an illegal function, the police are on their way
Zou deze TP code te vertalen zijn naar Delphi ?
Edit:
De tijden die ik bereken met de TP code wijken wel erg af als ik deze met tijden vergelijk die ik met http://www.meteonet.nl/diversen/zoncalc.htm bereken...
Last edited by MMSoft; 28-Jan-05 at 23:54.
Hoi,
Voor mijn vorige werkgever heb ik jarenlang glastuinbouw proces-computers geinstalleerd, en heb in mijn hobbykas ook z'n ding hangen met de laatste software versie.
Deze computer geeft voor vandaag 29 januari een zon op van 8:29 en een zon onder van 17:22 bij een breedte graad van 52 en een lengtegraad van -4.3
Op de site van meteonet komen er hele andere tijdstippen uit.
In het verleden ben ik ook nog wel eens naar een routine op zoek geweest om dit te berekenen en kwam er achter dat het algorithme ieder keer anders was !
Zoek maar eens op internet naar "sunset sunrise algorithm".
Wat je ook kan doen is de bron weergeven van een site waar je online de zon-op/onder kan berekenen.
In veel gevallen krijg je dan het algorithme te zien wat zij gebruiken.
Maar let op: op een gegeven moment zie je door de bomen het bos niet meer, ze doen het iedere keer anders.
Wat ook belangrijk is is dat er eenvoudigere algorithmes zijn die de tijden op de polen niet goed berekend, op de polen zijn er perioden dat de zon niet eens opkomt of ondergaat.
Zelf ben ik trouwens nooit Delphi code tegengekomen.
Frank.
Is het iemand wel eens opgevallen dat op NLDelphi de Belgen vaak met het juiste antwoord komen !
Je hebt gelijk, dit werkt niet. Heb nu de functions in de bibliotheekjes geplakt in de "primary file" sunset.pas. Het werkt nu.Originally Posted by Matthijs
Vreemd. Bedenk wel: je moet voor oosterlengte negatieve waarden invoeren en de tijdzone voor deze contreien bedraagt +1.(GMT + 1)Originally Posted by MMSoft
There are currently 1 users browsing this thread. (0 members and 1 guests)
Bookmarks