Winkel aus Sinuswert mit VBA berechnen
26.10.2022 05:43:22
Wolfgang
in Excel den Sinus auszurechnen ist kein Problem es gibt ja die Funktion Sin(),
aber umgekehrt, wenn man den Sinus und den zugehörigen Winkel bestimmen will,
da bietet Excel nur VB an:
Ich hänge hier eine Arbeitsmappe mit historische Seereisen und den Koordinaten
und daraus die Kurse über den Sinus aus den Längenkoordinaten.
Es sind u.a. die Route der Titanic und eine der United States, die am schnellsten den Atlantic überquert hat.
Hier meine Funktion zur Ermittelung des Kurses aus dem Sinus:
Function SinusWinkel(ByRef RefSinus As Range) As Double
'26.10.22
'Über geben wird RefSinus As Double
'Um den Winkel zu dem übergebenen Sinuswert wir können nur raten, dies tun wir indem wir durch alle Sinus-Werte von Null
'steppen
'Ein negativer Sinus kann aus einem Kurs in Richtung Ost nach West, dann ist die Länge des Zielortes kleiner als des Startort,
'mit einer evt. negativer Länge hat das nichts zu tun.
Const WG = 0.004363309 'Iterationssprung in DO WHILE i Wolfgang