calc-013-ejemplos de tangentes
Author: Epsiclas - Alberto Rodríguez Santos

x

P

Dos tangentes

Tangente vertical

x

P

Tangente que corta

Tangente por la derecha

Dos tangentes

Tangente vertical

Tangente que corta

Tangente por la derecha

Nada

Pf3: (-0.99, 0)
Pf1: (-1.01, 0)
Pp2 = Intersect(xAxis, yAxis)
Pp1: (-1.99, 0)
Pf2 = Point(xAxis)
semif1 = Ray(Pf1, Pf2)
semip = Ray(Pp1, Pp2)
f(x) = If[x < -1, x^(2) - 1, (-x^(2)) + 1]
A = Intersect(xAxis, yAxis)
c = Circle(A, 2)
C = Intersect(c, xAxis, 1)
D = Intersect(c, xAxis, 2)
e = Semicircle(C, D)
E = Intersect(e, xAxis, 1)
F = Intersect(e, xAxis, 2)
h = Segment(E, F)
G = Point(h)
a = OrthogonalLine(G, h)
B = Intersect(e, a, 1)
b = false
d = If(y(B) ≥ 0, Tangent[B, c])
g = false
H = Point(semif1)
i = OrthogonalLine(H, xAxis)
I = Intersect(f, i, (-1.8240644533214965, 2.3272111298710496))
j = Tangent(I, f)
semif2 = Ray(Pf3, Pp2)
J = Point(semif2)
k = OrthogonalLine(J, xAxis)
K = Intersect(f, k, (0.36821229466422456, 0.8644197060581063))
l = Tangent(K, f)
m = false
p(x) = If[x > -2, (x + 1)^(2) - 1]
n(x) = (x + 1)^(3) + 1
L = Point(xAxis)
N = Point(semip)
r = OrthogonalLine(N, xAxis)
O = Intersect(p, r, (-0.29228134094685987, -0.49913429962802525))
s = Tangent(O, p)
o = true
q = OrthogonalLine(L, xAxis)
M = Intersect(n, q, 1)
t = Tangent(M, n)