Berechnung der Position von Himmelskörpern (Az/Alt)

[gravi]

Mein Lieber, was für eine Fleißarbeit!
Wie kommst du auf solche Ideen? Und was müsste ich an Software haben, um das evtl. auch bei mir laufen zu lassen?

Netten Gruß
gravi

[positronium]

Sowas, jetzt bewegt sich hier auf der Seite etwas - bei diesem Thread hat sich heute mein Browser zweimal aufgehängt.

Eine nette Erweiterung wäre, wenn Du eine Formel berechnen würdest, welche die "sun outages" vorhersagt. Das sollte eigentlich mit Reduce[] möglich sein. Dann sollte nur noch ein Parameter n angegeben werden müssen.

@gravi: Es ist möglich, so etwas im Browser laufen zu lassen - gibt es von Wolfram Research als Viewer kostenlos.

[positronium]

Eine nette Erweiterung wäre, wenn Du eine Formel berechnen würdest, welche die "sun outages" vorhersagt. Das sollte eigentlich mit Reduce[] möglich sein. Dann sollte nur noch ein Parameter n angegeben werden müssen.

Das habe ich mir auch schon überlegt, ...

Ich habe das gerade versucht, kenne aber die verwendeten Formeln nicht, und bin jetzt mit Deinem Code nicht zurecht gekommen. - Das Manipulate[] greift ja in die Variablen ein, und für eine solche Berechnung muss das alles erst einmal aus dem Manipulate[] heraus genommen werden. Das muss alles in Funktionen umgeschrieben, und auch die = durch := ersetzt werden, auch fehlen bei den Funktionen τ[T_] und h[T_] die Doppelpunkte, aber offensichtlich spielt das in Manipulate[] keine Rolle. Trotzdem muss ich noch irgend etwas übersehen haben... funktioniert einfach nicht.

...aber die Überlagerung ist weil mit Punkten statt mit Flächen gerechnet wird nie ganz genau, da müsste man auch noch eine Toleranz einbaun (eventuell den Zeitpunkt der nächsten Annäherung mit FindMinimum[] oder so).

Ich dachte im ersten Moment einfach an so etwas: Norm[{a..., h...}-pSat]<Winkelmass_der_Sonne. Das per Reduce[] lösen, was zu Zeitintervallen in Abhängigkeit einer ganzen Zahl führen sollte, in denen die Störung auftritt. Aus dem Ergebnis könnte man dann natürlich noch den Mittelwert nehmen, braucht man aber nicht, weil ja die Störung tatsächlich eine Zeitspanne lang andauert.

[positronium]

Die Variablen sind jetzt allesamt f[n] und f[n,T], das sollte stabiler sein.

Es scheint bei mir auch noch beim Kopieren aus dem Forum etwas nicht so gelaufen zu sein, wie es sollte, aber auch Dank Deiner Änderung habe ich es jetzt hinbekommen; jetzt ist bei mir alles ausser den Funktionsaufrufen a, h und pSat ausserhalb des Manipulate[].
Leider musste ich feststellen, dass beim Aufstellen der Ungleichung
Norm[{a[n[JD, d], T, lg, bg] 180/\[Pi],
h[n[JD, d], T, lg, bg] 180/\[Pi]} - pSat[Lg, Bg]] < abstand
ein sehr unappetitlicher, mehrere Bildschirmseiten langer Ausdruck entsteht. Damit hatte ich nicht gerechnet. Reduce[] habe ich einige Zeit lang daran rechnen lassen, aber leider ohne Erfolg.