Tabla de valores y gráfica

Abierto

Cerrado

Tabla de valores

Gráfica

Tiempo (s)

Caudal (l/s)

c (l/s)

t (s)

Tabla y gráfica

Grifo y depósito

Llenar

Parar

Poner a cero

Continuar

t0: {0, 0, 0, 0}
para: 0
t1: {0, 0, 0, 0}
s1: (Element[t1, 4] * 60) + (Element[t1, 3] * 60) + Element[t1, 2] + Element[t1, 1] / 1000
s0: (Element[t0, 4] * 60) + (Element[t0, 3] * 60) + Element[t0, 2] + Element[t0, 1] / 1000
tiempo: s1 - s0 - para + If[Element[t1, 4] < Element[t0, 4], (3600 * (24 + Element[t0, 4] - Element[t1, 4])), 0]
capacidad = 40 (slider from 1 to 50, step 1)
f1(x) = (0.8 * capacidad / ((5 * x))) - 2
D = Intersect(f1, b, (0.9846153846153847, 4.5))
llena = 0 (slider from 0 to 1, step 0.001)
basedep = 12.3 (slider from 0 to 15, step 0.1)
A = (-1, -4)
polidep, depBase, depDer, c, depIz = Polygon(A, A + (basedep, 0), A + (basedep, basedep / 2), A + (0, basedep / 2))
G: A + (1.5, 8)
M0: G + (0.6, 0)
min: floor(tiempo / 60)
M0'_1 = Rotate(M0, 45°, G)
M0' = Rotate(M0, 135°, G)
sec: floor(tiempo - (min * 60))
arcoe = CircleArc(G, M0'_1, M0')
B = Point(arcoe)
arcof = CircleArc(G, M0'_1, B)
grifo_1: arcof / arcoe
arcog = CircleArc(G, B, M0')
sectorh = CircleSector(G, M0'_1, B)
polillena, i, j, l, s_1 = Polygon(A, A + (basedep, 0), A + (basedep, (llena * basedep / 2)), A + (0, (llena * basedep / 2)))
sectorp = CircleSector(G, B, M0')
polichorro, d, k, m, n = Polygon(G + (0.35, -0.2) - ((grifo_1 * 0.1), 0.5), G + (0.35, 0) - ((grifo_1 * 0.1), 8 - (llena * basedep / 2)), G + (0.35, 0) + ((grifo_1 * 0.1), -8 + (llena * basedep / 2)), G + (0.35, -0.2) + ((grifo_1 * 0.1), -0.5))
texto1: "Caudal: " + grifo_1 + " l/s"
mando = Segment(G, B)
politubo, a, e, f, g = Polygon(G - (0.5, 0.42), G - (0.5, 0.57), G - (3, 0.57), G - (3, 0.42))
h: false
llave = 0 (slider from 0 to 1, step 1)
dec: floor((10 * (tiempo - (60 * min) - sec)))
texto5: "" + (If[min ≤ 9, "0" + min, "" + min]) + ":" + (If[sec ≤ 9, "0" + sec, "" + sec]) + "," + dec
tab: false
gra: false
Lrotulosx = Sequence(Text[k / 10, (If[k < 10, (0.8 * k) - 0.2, (0.8 * k) - 0.075], -2.4)], k, 1, 10)
ejeX = Segment((-0.2, -2), (8.2, -2))
Lrayasvertg = Sequence(Segment[((0.8 * k), -2.1), ((0.8 * k), 4.5)], k, 1, 10)
ejeY = Segment((0, -2.2), (0, 4.6))
Lrayastabx = Sequence(Segment[(10.7, 5.6 - (0.8 * k)), (12.7, 5.6 - (0.8 * k))], k, 0, 12)
Lrayastaby = Sequence(Segment[(10.7 + k, 5.6), (10.7 + k, -4)], k, 0, 2)
Ltablax = Sequence(Text[(0.1 * k), (11 + If[k ≟ 0 ∨ k ≟ 10, 0.12, 0], 4.3 - (0.8 * k))], k, 0, 10)
Lrayashorg = Sequence(Segment[(-0.1, (0.4 * k) - 2), (8.1, (0.4 * k) - 2)], k, 1, 16)
Lrotulosy = Sequence(Text[(40 * k), (If[k < 3, -0.5, -0.65], (0.8 * k) - 2.1)], k, 1, 8)
f2(x) = If[(x > x(D)) ∧ (x < 8.1), (0.8 * capacidad / ((5 * x))) - 2]
E = Intersect(f2, b, (-2.14, 4.5))
LmarcasY = Sequence(Segment[(-0.1, (0.8 * k) - 2), (0.1, (0.8 * k) - 2)], k, 1, 8)
LmarcasX = Sequence(Segment[((0.8 * k), -2.1), ((0.8 * k), -1.9)], k, 1, 10)
texto8: "Capacidad: " + capacidad + " litros"
Ltablay = Sequence(Text[round((62.5 * (f1(k) + 2))), (If[k ≟ 0, 12.12, If[(62.5 * (f1(k) + 2)) < 100, 12.05, 11.95]], 4.3 - (0.8 * k))], k, 0, 10)
texto2: "" + (round(((100 * llena) * 100)) / 100) + " %"
baseX = Segment((x(D), -2), (8, -2))
Px = Point(baseX)
P: (x(Px), f2(x(Px)))
Py: (0, f2(x(Px)))
abscisa = Segment(Py, P)
ordenada = Segment(P, Px)
z = 1 (slider from 0 to 1, step 1)
politubo3: {Polygon[G - (0.6, 0.59), G - (3, 0.59), G - (3, 0.85), G - (0.6, 0.85)]}
e' = Segment(G - (0.6, 0.57), G - (3, 0.57))
politubo2: {Polygon[G - (0.5, 0.45), G - (0.5, 0.54), G - (3, 0.54), G - (3, 0.45)]}
anima: false
aux = 96.7 (slider from 0 to 100, step 0.1)
t2: {0, 0, 0, 0}
t3: {0, 0, 0, 0}
s2: (Element[t2, 4] * 60) + (Element[t2, 3] * 60) + Element[t2, 2] + Element[t2, 1] / 1000
s3: (Element[t3, 4] * 60) + (Element[t3, 3] * 60) + Element[t3, 2] + Element[t3, 1] / 1000