Local horizon

Hor_{Support}:(20000, 0)
Met_{End} = (62.67296350579824, 44.26394027168208)
Viewer = (0, 0)
Horizon = Line(Viewer, Hor_{Support})
Vec_{help} = Point(Horizon)
Center_{Earth} = (0, -6371)
Earth = Circle(Center_{Earth}, Viewer)
Support_{aMetEnd} = Ray(Center_{Earth}, Met_{End})
Dist_{ViewMetEnd} = Distance(Viewer, Met_{End})
ErrCorr_{earth} = Intersect(Earth, Support_{aMetEnd}, 1)
l = CircleArc(Center_{Earth}, ErrCorr_{earth}, Viewer)
Center_{ToMetEnd} = Angle(ErrCorr_{earth}, Center_{Earth}, Viewer)
ErrCorr_{hor} = Intersect(Support_{aMetEnd}, Horizon)
Err_{HorMetEnd} = Distance(ErrCorr_{earth}, Met_{End})
Err_{EarthHor} = Distance(ErrCorr_{earth}, ErrCorr_{hor})
Err_{relative}: (100 * Err_{EarthHor} / Err_{HorMetEnd})
CenterEarth_{toMetEnd} = Segment(Center_{Earth}, Met_{End})
Met_{Start} = (198.98384059111095, 66.26928365765431)
Meteor = Vector(Met_{Start}, Met_{End})
Sight_{MetStart} = Segment(Viewer, Met_{Start})
Sight_{MetEnd} = Segment(Viewer, Met_{End})
CenterEarth_{toMetStart} = Segment(Center_{Earth}, Met_{Start})
Center_{ToMetStart} = Angle(Met_{Start}, Center_{Earth}, Viewer)
Viewer_{MetEnd} = Angle(Hor_{Support}, Viewer, Met_{End})
Viewer_{MetStart} = Angle(Hor_{Support}, Viewer, Met_{Start})
Dist_{ViewMetStart} = Length(Sight_{MetStart})
text1: "Angle Viewer-Met_{ Start}                       = " + Viewer_{MetStart} + "
Angle Viewer-Met_{ End}                        = " + Viewer_{MetEnd} + "
Dist Viewer-Met_{ Start}                          = " + Dist_{ViewMetStart} + " km
Dist Viewer-Met_{ End}                           = " + Dist_{ViewMetEnd} + " km
Flat world asumption error               = " + Err_{EarthHor} + " km
Relative flat world asumption error = " + Err_{relative} + " %"