Total Pageviews

Thursday, June 12, 2014

Ephemeriden für die Sonne mit Hilfe des programmierbaren Taschenrechners Casio fx-8000G



Casio fx-8000G
Ein Programm Listing für den CASIO fx-8000G (und verwandte Geräte, die den gleichen "tokenized" BASIC Dialekt verwenden, wie beispielsweise der fx-7000G oder der fx-8500G). Mit Hilfe dieses Programms ist man in der Lage, ohne Nautisches Jahrbuch  oder Verwendung von online-Kalkulatoren die Bildpunktkoordinaten (Grt (Greenwich Stundenwinkel), Declination) der Sonne für ein beliebiges Jahr zu berechnen. Sehr praktisch ist die Möglichkeit, die Uhrzeit im Stunden/Minuten/Sekunden Format einzugeben und die erhaltenen Werte durch Auslesung der Speicherregister "P" und "Q" und Drücken der Tasten

                                     
direkt in das Grad/Minuten/Sekunden Format umzuwandeln. Vielleicht fragst Du dich jetzt "Warum das ganze mit über zwanzig Jahre alter Hardware?"
Es gibt aber ein paar gute Gründe dafür:
- Der fx-8000G verfügt zwar nicht über die zahlreichen features moderner Hochleistungstaschenrechner, er tut aber das, was er tun soll, zuverlässig und schnell. Ich habe meinen ersten fx-8000G 1988 gekauft, der mich durch mein ganzes Studium begleitet und bis 2012 gehalten hat (Tod durch Schaden nach derbem Sturz)
- Gerade dieser scheinbare Mangel an "modernen" stromfressenden Ausstattungsmerkmalen aber ist bei der langfristigen Nutzung von Vorteil. Bestückt mit drei Lithium Knopfzellen 3 Volt, Typ CR2032C, läuft der Rechner bei moderater Nutzung (1/2 h/Tag) mehrere Jahre.
- In der eBucht oder vergleichbaren Portalen ist der fx-8000G oder vergleichbare Rechner für teils einstellige Beträge zu bekommen (zum Vergleich; 1988 betrug der Neupreis etwa 200 DM).
- Der Rechner ist robust aufgebaut, wenn auch nicht wasserdicht. Sicherlich robuster als  das durchschnittliche Notebook oder Laptop. Einen Tip bezüglich der Wasserdichtigkeit habe ich mal irgendwo aufgeschnappt. Einfach den Rechner mit einem gängigen Tiefkühleinschweißgerät in eine durchsichtige Plastiktüte einschweißen.

Das Listing:

Deg
"JAHR":?->Y
"MONAT":?->M
"TAG":?->D
"UTC HMS":?->U:U->V
367xY-Int (7x((Y+Int ((M+9)/12)))/4) Int (275xM-9)+D-678987->J
J+U/24->J:J-51544.5->T:T/36525->K
280.46+0.985647xT->L
L-360x(Int (L-360))->L
357.528+0.9856003xT->N
N-360x(Int (N/360))->N
L+1.915xsin N+0.02xsin (2xN)->A
23.439-0.0000004xT->E
sin-1(sin Exsin A)->Q
2xtan-1(cos Exsin A/(cos Q+cos A))->O
100.07554+0.985647348x(J-U/24-33282)+15.04107xU->G
G-360xInt (G/360)->G
G-O->P
P<0=>P+360->P:Goto 1
P>360=>P-360->P
Lbl 1
P->H
60x(Abs H-Int Abs H)->H
(0.1xInt ((Abs H+0.05)x10))xH->H
Cls
D◿
M◿
Y◿
U◿
P>360=>P-360->P
"SONNE":"GRT":P◿
Q->H
60x(Abs H-Int Abs H)->H
(0.1xInt ((Abs H+0.05))x10)xH->H
Abs Q<1=>HxQ->H
"DEC":Q◿


Anmerkung: Das "Deg" ganz am Anfang dient dem Einstellen des Rechners auf den Altgrad Modus (360°). Das ist wichtig, weil der Rechner neben diesem noch über die zwei Winkelmodi Radiant (Bogenmaß) und Neugrad verfügt. Das Argument "Deg" wird durch Drücken der Tasten "Mode" und "4" erzeugt.



Disclaimer: Alles ist gewissenhaft eingetippt worden, ich hafte aber nicht, wenn ein Tippfehler meiner- oder Ihrerseits Ihre 11 Meter Yacht auf eine Untiefe führen sollte. ;)