Author: H-P Ulven

BP = (8.886997524477568, 1.9609035173648532)
Flytt = Point(xAxis)
a = OrthogonalLine(Flytt, xAxis)
b = LineBisector(BP, Flytt)
GS = Intersect(a, b)
loc1 = Locus(GS, Flytt)
Sporer = Point(loc1)
A1 = 5.242286143152233
B1 = 4.367645706657474
A2 = 5.399685926245924
B2 = 4.081405496453236
A3 = 5.4687677184907795
B3 = 3.959765861356468
A4 = 5.536799299938682
B4 = 3.842353949256944
A5 = 5.636929323907385
B5 = 3.6738385609439783
A6 = 5.710557720973026
B6 = 3.553186657655692
A7 = 5.782961771002159
B7 = 3.4372370807368307
A8 = 5.8893381765531885
B8 = 3.271732662261543
A9 = 5.967416406674577
B9 = 3.1539278700636286
P_1: (A1, B1)
P_2: (A2, B2)
P_3: (A3, B3)
P_4: (A4, B4)
P_5: (A5, B5)
P_6: (A6, B6)
P_7: (A7, B7)
P_8: (A8, B8)
P_9: (A9, B9)
L_1: {P_1, P_2, P_3, P_4, P_5, P_6, P_7, P_8, P_9}
f = FitPoly(L_1, 2.000000000000000)