Borra rastro

Ver rastro

Ver rastro

Ver cuadrática

g(x) =

fori(x) = -0.25 * (x - 1) * (x - 7)
gori = Function(-0.25 * (x - 1) * (x - 7), 1, 5)
lista1: {Polygon[(-10, 10), (-10, -20), (50, -20), (50, 10)]}
escena = 1 (slider from 1 to 5, step 1)
texto1: "\scalebox{0.6}{Escena \; " + (LaTeX[escena]) + "}"
A = (1, 0)
B = (5, 2)
t2 = Tangent(B, fori)
t1 = Tangent(A, fori)
C = Intersect(t2, t1)
P = Point(gori)
a = Tangent(P, fori)
P_1 = If(P ≟ A, A, Intersect[t1, a])
P_2 = If(P ≟ B, B, Intersect[a, t2])
b = Segment(A, B)
nada = 0
t = 0.5 (slider from 0 to 1, step 0.01)
Q_0: (1 - t) * A + t * B
Q_1: A + t * (C - A)
Q_2: C + t * (B - C)
Q: Q_1 + t * (Q_2 - Q_1)
u_1: UnitOrthogonalVector[t1] / 2
C_1: A + u_1
D_1: C + u_1
v_1: UnitOrthogonalVector[t2] / 2
E: C + v_1
F: B + v_1
u = Vector(C_1, D_1)
v = Vector(E, F)
B1 = 0
u_P = Vector(A, P_1)
v_P = Vector(C, P_2)
u_Q = Vector(A, Q_1)
v_Q = Vector(C, Q_2)
w = Vector(A, Q_0)
verRastro = false
QQ: Q
c = Segment(Q_1, Q_2)
d = Segment(A, C)
e = Segment(C, B)
D = (1.3320360631104444, 2.1085199098422223)
f = Segment(A, D)
g1 = Segment(D, C)
h = Segment(C, B)
R_1: A + t * (D - A)
R_2: D + t * (C - D)
R_3: C + t * (B - C)
i = Segment(R_1, R_2)
j = Segment(R_2, R_3)
S_1: R_1 + t * (R_2 - R_1)
S_2: R_2 + t * (R_3 - R_2)
T: S_1 + t * (S_2 - S_1)
lugar1 = Locus(T, t)
verRastro5 = false
S1 = 0
S2 = 0
SS1: R_1 + t * (R_2 - R_1)
SS2: R_2 + t * (R_3 - R_2)
verCuadrática = false
k = Line(S_1, S_2)
g(x) = x^(2) + 6
campoDeTexto1 = Textfield(g)

Tool: Bézier2
Puntos inicial, punto final y punto de control
Input: A, B, P
Output: lugar1

A1 = Point(Segment[A, P])
B1: P + AffineRatio[A, P, A1] * (B - P)
C1: A1 + AffineRatio[A, P, A1] * (B1 - A1)
lugar1 = Locus(C1, A1)