Márgenes

Superficie impresa

Base

Activa rastro

Representar función

Borrar rastro

Mostrar solución

Representar funcion derivada

Área (m²)

Base (m)

mif = 2 (slider from 1.5 to 3, step 0.1)
msup = 3 (slider from 1.5 to 3, step 0.1)
mlat = 4 (slider from 1.5 to 4, step 0.1)
area = 100 (slider from 0 to 140, step 0.1)
base = 25 (slider from 0 to 50, step 0.02)
i = false
j = false
k = false
Atruco = (24.18328836860979, 67.96993561269039)
f1(x) = x * (area / (x - 2 * mlat) + mif + msup)
f1'(x) = f1'(x)
mx: sqrt(2) * sqrt(mlat) * (sqrt(2) * sqrt(mlat) * sqrt(msup + mif) + sqrt(area)) / sqrt(msup + mif)
S: (mx, f1(mx))
sx = Segment((mx, 0), S)
sy = Segment((0, f1(mx)), S)
l = false
n = false
baseim: base - 2 * mlat
alturaim: area / baseim
P: (base, f1(base))
P1: P
papel, a, b, c, d = Polygon((0, 0), (base, 0), (base, alturaim + msup + mif), (0, alturaim + msup + mif))
impreso, e, f, g, h = Polygon((mlat, mif), (base - mlat, mif), (base - mlat, mif + alturaim), (mlat, mif + alturaim))
texto2: "La base debe ser mayor de " + (2 * mlat) + " cm"
Sx: (mx, 0)
Sy: (0, f1(mx))
texto8: "Área mínima = " + (f1(mx)) + " cm²"
texto3: "sup: " + msup + " cm"
texto10: "inf: " + mif + " cm"
texto11: "lat: " + mlat + " cm"
texto12: "" + area + " cm²"
texto9: "Dimensiones = " + mx + " x " + (area / (mx - 2 * mlat) + msup + mif) + " cm"
texto1: "Área = " + (base * (alturaim + msup + mif)) + " cm²"
ejeX = Segment((-5, 0), (55, 0))
ejeY = Segment((0, -60), (0, 400))
horiz = Sequence(Segment[(-3, k), (55, k)], k, 50, 350, 50)
verti = Sequence(Segment[(k, -25), (k, 375)], k, 5, 53, 5)
rotulosY = Sequence(Text[k, If[k ≟ 50, (-2, k - 4.5), (-2.8, k - 4.5)]], k, 50, 350, 50)
rotulosX = Sequence(Text[k, If[k ≟ 5, (k - 0.4, -15), (k - 0.7, -15)]], k, 5, 50, 5)