Altura del escalón

Longitud

Mostrar la gráfica de la función

Mostrar la tabla de valores

Altura del escalón (cm)

Longitud del escalón (cm)

Comprobación del ejercicio 8

long

alt

A = (-3.5, -3)
a = 0.6 (slider from 0 to 1.5, step 0.05)
B: A + (3.0 - 2.0 * a, 0.0)
C: B + (0.0, a)
D: C + B - A
E: D + C - B
F: E + B - A
G: F + C - B
b = Segment(A, B)
H: G + B - A
I: H + C - B
J: I + B - A
K: J + C - B
Pf: (14.5, y(K))
L: K + B - A
Pb: (14.5, y(A))
polígono1, b_1, c, d, e, f, g, h, i, j, k, l, pf, pb = Polygon(B, C, D, E, F, G, H, I, J, K, L, Pf, Pb)
texto2: "Longitud = " + (20.0 * Distance[A, B]) + " cm"
texto1: "Altura = " + (20.0 * Distance[B, C]) + " cm"
ejex2 = Segment((-1.0, -4.0), (8.6, -4.0))
Px = Point(ejex2)
Py: (-1.0, 5.6 - x(Px) - 1.0)
Pr: (x(Px), y(Py))
n = Segment(Py, Pr)
p = Segment(Pr, Px)
o = false
M = (9.96, -0.16)
M2: M + 0.4 * (y(Py) - y(Px), 0.0)
M3: M2 + 0.2 * (0.0, x(Px) + 1.0)
q = false
lineastab = Sequence(Segment[(0.95 + 0.8 * s, -(5.2)), (0.95 + 0.8 * s, -(3.8))], s, 1.0, 17.0)
fila1tab = Sequence(Text[2.0 * s, (If[s < 5.0, 2.1 + 0.8 * s, 2.0 + 0.8 * s], -(4.2))], s, 0.0, 15.0)
fila2tab = Sequence(Text[60.0 - 4.0 * s, (If[s < 13.0, 2.0 + 0.8 * s, 2.1 + 0.8 * s], -(5.0))], s, 0.0, 15.0)
r = Segment((-1.6, -4.5), (14.52, -4.5))
ejey = Segment((-1.0, -4.2), (-1.0, 5.8))
rayadox = Sequence(Segment[(0.8 * s - 1.0, -(4.15)), (0.8 * s - 1.0, 5.8)], s, 1.0, 12.0)
rayadoy = Sequence(Segment[(-(1.15), 0.8 * s - 4.0), (8.8, 0.8 * s - 4.0)], s, 1.0, 12.0)
ejex = Segment((-1.3, -4.0), (8.8, -4.0))
rotulosy = Sequence(Text[5.0 * s, (If[s > 1.0, -1.55, -1.4], 0.8 * s - 4.1)], s, 1.0, 12.0)
rotulosx = Sequence(Text[2.5 * s, (If[s > 2.0, 0.8 * s - 1.15, 0.8 * s - 1.05], -(4.45))], s, 0.0, 12.0, 2.0)
texto6: "l = " + (60.0 - 5.0 * (x(Px) + 1.0) / 0.8) + " cm"
texto7: "a = " + (2.5 * (x(Px) + 1.0) / 0.8) + " cm"
s = false
fila1tab7 = Sequence(Text[2.0 * s, (If[s < 5.0, 11.0, 10.85], 5.0 - 0.8 * s)], s, 0.0, 12.0)
fila2tab7 = Sequence(Text[60.0 - 5.0 * s, (If[s < 11.0, 11.5, 11.65], 5.0 - 0.8 * s)], s, 0.0, 12.0)
lineastab7 = Sequence(Segment[(10.7, 5.5 - 0.8 * s), (12.0, 5.5 - 0.8 * s)], s, 0.0, 13.0)
lineavert7 = Segment((11.35, 6.0), (11.35, -4.9))
m = If(o, Segment[(-1.0, 5.6), (8.6, -4.0)], Segment[(-1.0, 5.6), (6.7, -4.0)])
texto3 = If(o, "y = 60 - 2x", "y = 60 - 2,5 x")