G

\partial G

\vec v

\vec t

\vec v\cdot\vec t

gl1: (0.14285714285714285 * x^(4)) + ((0.2 * x^(2)) * y) + x^(2) - ((0.058823529411764705 * x) * y^(2)) + (2 * y^(2)) = 1
H = Point(gl1)
k = Tangent(H, gl1)
I = Point(k)
e = Vector(H, I)
u = Vector(H, H - (y(H) / 3, x(H) / 4))
l1 = Sequence(Sequence[Vector[(-1 + u / 5, -1 + v / 5), (-1 + u / 5 - (-1 + v / 5) / 3, -1 + v / 5 - (-1 + u / 5) / 4)], u, 0, 10], v, 0, 10)
A = Point(gl1)
B = Point(gl1)
C = Point(gl1)
D = Point(gl1)
E = Point(gl1)
c = Conic(A, B, C, D, E)
F = Point(H, u)
f = OrthogonalLine(F, k)
G = Intersect(k, f)
g = Segment(F, G)
h = Segment(H, G)
J = (1.165638218493786, -0.4021659772744542)
K = (1.3216163650383692, -0.4021659772744542)