Pendiente

Vector unitario tangente

Recta tangente

Extremos relativos

Función derivada

f

f '

B1 = (0.62, 0.44)
B14 = (13.46, 0.72)
a = Segment((x(B1), 0), (x(B14), 0))
X = Point(a)
dx = 1 (slider from 0.01 to 2, step 0.01)
A = Point(xAxis)
g = Polynomial(A1:A14)
epsilon = 1.0E-6
q = false
o = false
r = false
s = false
v = false
B3 = (2, 0)
B5 = (4, 0)
B8 = (7, 0)
B10 = (10, 0)
B12 = (12, 0)
B13 = (13, 0)
B2 = (1.28, 1.22)
B4 = (3.14, -0.96)
B6 = (4.96, 1.34)
B7 = (6.22, 0.92)
B9 = (8.3, -0.82)
B11 = (11.16, 1.2)
f1 = Polynomial(B1:B14)
f_1(x) = Integral[f1] + 5
f(x) = If[(x ≥ x(B1)) ∧ (x ≤ x(B14)), f_1(x)]
f' = Derivative(f)
U, V, W, Z, A_1, B_1, C_1, D_1, E_1 = Extremum(f)
h(x) = If[(x ≥ x(B1)) ∧ (x ≤ x(B14)), f1(x)]
P1: (x(X), f(x(X)))
E = If(x(X) - dx ≥ x(B1), X - (dx, 0))
G1: (x(E), f(x(E)))
D = If(x(X) + dx ≤ x(B14), X + (dx, 0))
F1: (x(D), f(x(D)))
c = Ray(P1, F1)
b = Ray(P1, G1)
t1 = Line(P1, (x(X) + epsilon, f(x(X) + epsilon)))
d = Segment(G1, E)
e = Segment(F1, D)
j = Segment(P1, X)
m = Slope(t1)
u = UnitVector(t1)
B: (x(X), h(x(X)))
a_1 = Segment(B, X)
T1 = (2, 3.04594)
i = Segment(T1, (x(T1), 0))
T2 = (4, 1.78229)
k = Segment(B5, T2)
T3 = (7, 4.53712)
l = Segment(B8, T3)
T4 = (10, 2.80435)
n = Segment(B10, T4)
T5 = (12, 4.29639)
p = Segment(B12, T5)
T6 = (13, 3.75189)
t = Segment(B13, T6)