Tabla y gráfica

Metacrilato

Marco de aluminio

Esquineras

PRECIOS

Precio (€)

Longitud del lado (m)

x (m)

y (€)

Tabla de valores

Gráfica

DIMENSIONES

Precios de los materiales:

p1 = 30 (slider from 5 to 40, step 5)
A = (-1.5, 4.5)
a = Segment(A - (0.0, 1.0), A - (0.0, 10.0))
B = Point(a)
panelArea: (round(100.0 * Distance[A, B]) / 100.0)^(2.0)
panelMarco: 4.0 * round(100.0 * Distance[A, B]) / 100.0
p2 = 15 (slider from 0 to 20, step 1)
p3 = 12 (slider from 0 to 25, step 1)
f1(x) = p1 * x^(2.0) + 4.0 * p2 * x + 4.0 * p3
f2 = If(x ≥ 0.0 ∧ x ≤ 10.1, 0.0020 * f1(x) - 5.0)
polígono1, a_1, b, c, d, C, D = Polygon(A, B, 4.0)
polígono2 = Polygon(A + (-(0.2), 0.2), B + (-(0.2), -(0.2)), 4.0)
esquina1, e, f, g = Polygon(A - (0.2, 0.4), A - (0.2, -(0.2)), A + (0.4, 0.2))
esquina4, h, i, j = Polygon(B - (0.2, -(0.4)), B - (0.2, 0.2), B + (0.4, -(0.2)))
E = Mirror(A - (0.2, 0.4), Midpoint[A, Rotate[A, 270.0*°, B]])
F = Mirror(A - (0.2, -(0.2)), Midpoint[A, Rotate[A, 270.0*°, B]])
G = Mirror(A + (0.4, 0.2), Midpoint[A, Rotate[A, 270.0*°, B]])
esquina3, g_1, e_1, f_1 = Polygon(E, F, G)
H = Mirror(B - (0.2, -(0.4)), Midpoint[A, Rotate[A, 270.0*°, B]])
I = Mirror(B - (0.2, 0.2), Midpoint[A, Rotate[A, 270.0*°, B]])
J = Mirror(B + (0.4, -(0.2)), Midpoint[A, Rotate[A, 270.0*°, B]])
esquina2, j_1, h_1, i_1 = Polygon(H, I, J)
k = false
costeotros: 4.0 * p3
Px = Point(Segment[(0.0, -5.0), (10.1, -5.0)])
Pf: (x(Px), f2(x(Px)))
Py: (0.0, y(Pf))
l = Segment(Py, Pf)
m = Segment(Pf, Px)
texto5: "" + p1 + " €/m²"
texto6: "" + p2 + " €/m"
costepanel: p1 * panelArea
tcostepanel: "Metacrilato: " + costepanel + " €"
costemarco: p2 * panelMarco
tcostemarco: "Marco de aluminio: " + costemarco + " €"
tcosteref: "Esquineras: " + costeotros + " €"
tab = false
gra = false
tcostetotal: "Panel completo: " + (costepanel + costemarco + costeotros) + " €"
panelLado: round(100.0 * Distance[A, B]) / 100.0
texto12: "Longitud del lado: " + panelLado + " m"
texto14: "Superficie del tablero: " + panelArea + " m²"
texto13: "Longitud del marco: " + panelMarco + " m"
texto1: "(" + (1.25 * x(Pf)) + "," + (625.0 * (f2(x(Pf)) + 4.0)) + ")"
texto7: "" + p3 + " €/unidad"
nombrelado: "Lado: " + panelLado + " m"
ejeX = Segment((-0.2, -5.0), (10.2, -5.0))
Lrayasvertg = Sequence(Segment[(k, -(5.1)), (k, 5.1)], k, 1.0, 10.0)
Lrayashorg = Sequence(Segment[(-(0.1), 0.5 * k - 5.0), (10.1, 0.5 * k - 5.0)], k, 1.0, 20.0)
LmarcasX = Sequence(Segment[(k, -(5.1)), (k, -(4.9))], k, 1.0, 10.0)
ejeY = Segment((0.0, -5.2), (0.0, 5.2))
LmarcasY = Sequence(Segment[(-(0.1), k - 5.0), (0.1, k - 5.0)], k, 1.0, 10.0)
Lrotulosx = Sequence(Text[k, (If[k ≟ 10.0, k - 0.2, k - 0.075], -(5.4))], k, 1.0, 10.0)
Lrotulosy = Sequence(Text[500.0 * k, (If[k ≟ 1.0, -0.75, -0.9], k - 5.1)], k, 1.0, 10.0)
Ltablay = Sequence(Text[round(p1 * k^(2.0) + 4.0 * p2 * k + 4.0 * p3), (15.0 - 0.1, 3.3 - 0.8 * k)], k, 0.0, 10.0)
Ltablax = Sequence(Text[k, (14.0 + If[k < 10.0, 0.12, 0.0], 3.3 - 0.8 * k)], k, 0.0, 10.0)
Lrayastaby = Sequence(Segment[(13.7 + k, 4.6), (13.7 + k, -(5.0))], k, 0.0, 2.0)
Lrayastabx = Sequence(Segment[(13.7, 4.6 - 0.8 * k), (15.7, 4.6 - 0.8 * k)], k, 0.0, 12.0)