Tabla de valores y gráfica

Ayuda

Comprobar

Tabla de valores

Gráfica

Área (cm²)

Distancia al vértice del cuadrado (cm)

x

y

k = false
o = false
n = false
q = false
p = false
A = (2, -3)
cuadbase, a, b, c, d = Polygon(A, A + (8.0, 0.0), A + (8.0, 8.0), A + (0.0, 8.0))
e = Segment(A, A + (4.0, 0.0))
B = Point(e)
B'_1 = Mirror(B, A + (4.0, 0.0))
B'_2 = Rotate(B, 90.0*°, A)
C = Rotate(B'_1, 270.0*°, A + (8.0, 0.0))
D = Rotate(B'_1, 90.0*°, A)
B' = Rotate(B, 270.0*°, A + (8.0, 0.0))
D' = Rotate(D, 90.0*°, A + (0.0, 8.0))
B'' = Rotate(B', 270.0*°, A + (8.0, 8.0))
f = Line(B, B')
g = Line(B'_2, B'')
h = Line(D', C)
i = Line(D, B'_1)
E = Intersect(g, i)
F = Intersect(f, i)
G = Intersect(f, h)
H = Intersect(g, h)
cruz, b_1, f_1, b'_1, c_1, g_1, b', b'', h_1, d', d_1, e_1, b'_2 = Polygon(B, F, B'_1, C, G, B', B'', H, D', D, E, B'_2)
Lrayasvert = Sequence(Segment[A + (k, 0.0), A + (k, 8.0)], k, 1.0, 7.0)
Lrayashor = Sequence(Segment[A + (0.0, k), A + (8.0, k)], k, 1.0, 7.0)
texto1: "Área de la cruz: " + cruz + " cm²"
j = Segment(A, B)
texto2: "x = " + j
f0(x) = 3.2 * x - 0.6 * x^(2.0) - 2.0
f1 = If(x > -(0.5) ∧ x < 5.9, f0(x))
f2 = If(x > 0.0 ∧ x < 4.0, f0(x))
ejeX = Segment((-1.0, -2.0), (8.0, -2.0))
ejeY = Segment((0.0, -4.0), (0.0, 3.5))
Lrayashorg = Sequence(Segment[(-(0.8), k - 4.0), (7.8, k - 4.0)], k, 1.0, 7.0)
Lrayasvertg = Sequence(Segment[(k, -(3.8)), (k, 3.8)], k, 1.0, 7.0)
Lrotulosy = Sequence(Text[10.0 * k, (-(0.5), k - 2.1)], k, 1.0, 5.0)
Lrotulosx = Sequence(Text[k, (k - 0.075, -(2.4))], k, 1.0, 7.0)
Px = Point(Segment[(0.0, -2.0), (4.0, -2.0)])
P1: (x(Px), f0(x(Px)))
Py: (0.0, f0(x(Px)))
l = Segment(Py, P1)
m = Segment(P1, Px)
I = Intersect(c, d)
J = Intersect(c, b)
K = Intersect(b, a)
polígono1, i_1, d_2, d'_1 = Polygon(D, D', I)
polígono2, b'_3, b''_1, j_1 = Polygon(B'', J, B')
polígono3, b'_4, k_1, c_2 = Polygon(K, C, B'_1)
polígono4, a_1, b_2, b'_5 = Polygon(B, B'_2, A)
L: A + (4.0, 0.0)
M: A + (8.0, 4.0)
N: A + (4.0, 8.0)
O: A + (0.0, 4.0)
polígono5, f_2, b_3, l_1 = Polygon(B, L, F)
polígono6, g_2, c_3, m_1 = Polygon(C, M, G)
polígono7, h_2, b''_2, n_1 = Polygon(B'', N, H)
polígono8, e_2, d_3, o_1 = Polygon(D, O, E)
polígono9, l_2, b'_6, f_3 = Polygon(B'_1, F, L)
polígono10, m_2, b'_7, g_3 = Polygon(B', G, M)
polígono11, h_3, n_2, d'_2 = Polygon(N, D', H)
polígono12, b'_8, e_3, o_2 = Polygon(E, O, B'_2)
texto4: "(" + (x(Px)) + ", " + (10.0 * (f0(x(Px)) + 2.0)) + ")"
Ltablax = Sequence(Text[0.5 * k, (11.0 + If[Mod[k, 2.0] ≟ 0.0, 0.12, 0.0], 4.0 - k)], k, 0.0, 8.0)
Ltablay = Sequence(Text[10.0 * (f0(0.5 * k) + 2.0), (11.9 + If[Mod[k, 2.0] ≟ 0.0, 0.15, 0.0], 4.0 - k)], k, 0.0, 8.0)
Lrayastabx = Sequence(Segment[(10.7, 5.6 - k), (12.7, 5.6 - k)], k, 0.0, 10.0)
Lrayastaby = Sequence(Segment[(10.7 + k, 5.6), (10.7 + k, -(4.4))], k, 0.0, 2.0)