Mit Solver Umkreismittelpunkt berechnen

[hakki]

Hallo zusammen,
ich versuche momentan mit dem Cachewolf-Solver ein Skript zu erstellen, um verschiede Dreieckspunkte zu berechnen können.
Bei der Berechnung des Umkreismittelpunktes klappt es noch nicht so ganz, wenn ich verschiedene Dreieckskoordinaten verwende.
Beispiel:
#########################
A="N 50 45.212 E 6 28.327"
B="N 50 45.789 E 6 31.504"
C="N 50 46.879 E 6 29.725"
#########################
Mit diesen Koordinaten klappt es.

Gebe ich jedoch folgende Koordinaten ein, dann kommt ein Fehler:
#########################
A="N 50 45.212 E 6 28.327"
B="N 50 44.070 E 6 30.802"
C="N 50 44.969 E 6 31.052"
#########################

Wie lässt sich das elegant lösen.
Hier der Code

#########################
A="N 50 45.212 E 6 28.327"
B="N 50 45.789 E 6 31.504"
C="N 50 46.879 E 6 29.725"
#########################
cls();deg()
WinkelVonLinieAB=bearing(A,B)
WinkelVonLinieBC=bearing(B,C)
$PosAHalb=proj(B,bear(B,C),dist(B,C)/2)
$PosCHalb=proj(A,bear(A,B),dist(A,B)/2)
Umkreismittelpunkt=cb($PosCHalb,mod(WinkelVonLinieAB+90,360),$PosAHalb,mod(WinkelVonLinieBC-90,360))
"Der Umkreismittelpunkt liegt bei "Umkreismittelpunkt

Viele Grüße
Hakki

 

[hakki]

Hab den Fehler bereits selber gefunden.
Hatte am Ende -90 gemacht anstatt +90

Umkreismittelpunkt=cb($PosCHalb,mod(WinkelVonLinieAB+90,360),$PosAHalb,mod(WinkelVonLinieBC+90,360))

So sieht das schon Besser aus