P_0

1

1

1

1

\vec v_x

\vec v_y

A = (7, 2, 0)
f(x, y) = If[5 - (x - 9)^(2) / 15 - (y - 5)^(2) / 14 > 1.5 ∧ x ≤ x(A) ∧ y ≥ y(A), 5 - (x - 9)^(2) / 15 - (y - 5)^(2) / 14]
B: (x(A), y(A), f(x(A), y(A)))
fx = Derivative(f, x)
fy = Derivative(f, y)
a: f(x(A), y(A))
b: f(x(A), y(A))
t(x, y) = If[abs(x - x(A)) < 3 ∧ abs(y - y(A)) < 3 ∧ y ≥ y(A), f(x(A), y(A)) + (fx(x(A), y(A)) * (x - x(A))) + (fy(x(A), y(A)) * (y - y(A)))]
c = CurveCartesian(x(A), v, f(x(A), v), v, y(A), 12)
d = CurveCartesian(u, y(A), 5 - (u - 9)^(2) / 15 - (y(A) - 5)^(2) / 14, u, 2.5, 10)
Ax: (9, 2, 0)
Ay: (7, 4, 0)
v_x = Vector(B, (x(A) + 2, y(A), f(x(A), y(A)) + (2 * fx(x(A), y(A)))))
v_y = Vector(B, (x(A), y(A) + 2, f(x(A), y(A)) + (2 * fy(x(A), y(A)))))
u = Vector(A, Ax)
v = Vector(A, Ay)
B_1: (x(A) + 2, y(A), f(x(A), y(A)) + (2 * fx(x(A), y(A))))
B_2: (x(A), y(A) + 2, f(x(A), y(A)) + (2 * fy(x(A), y(A))))
h = Segment(B_1, Ax)
i = Segment(B_2, Ay)
k = Segment(A, B)