Distancia bobinas

Contadores

Tablas y gráficas

Tabla 1

Gráfica 1

Tabla 2

Gráfica 2

Tabla 3

Gráfica 3

Tabla 4

Gráfica 4

Tabla 5

Gráfica 5

Tiempo (s)

Longitud (cm)

Nº de vueltas

Rebobinar

Distancia (mm)

      Longitud de la cinta 
en la bobina de la derecha

     Longitud de la cinta
en la bobina de la izquierda

Distancia entre las dos bobinas

Nº de vueltas en la
  bobina izquierda

Nº de vueltas en la
   bobina derecha

Expresión algebraica

d = 0.005 t² - 0.2 t + 5

Cabezal

e = false
f = false
g = false
t1 = false
g1 = false
t2 = false
g2 = false
t3 = false
g3 = false
t4 = false
g4 = false
t5 = false
g5 = false
z = If(g1 ≟ true, 1.0, If[g2 ≟ true, 2.0, If[g3 ≟ true, 3.0, If[g4 ≟ true, 4.0, If[g5 ≟ true, 5.0]]]])
r = 0 (slider from 0 to 1, step 0.001)
vel = 4.5 (slider from 0 to 5, step 0.1)
t = 50 (slider from 1 to 100, step 0.5)
grosor: 3.141592653589793 * (2.5^(2.0) - 1.0) / (vel * t)
r1: sqrt(1.0 + grosor * vel * r * t / 3.141592653589793)
vuelta1: round(10.0 * (r1 - 1.0) / grosor) / 10.0
r2: sqrt(2.5^(2.0) - grosor * vel * r * t / 3.141592653589793)
vuelta2: round(10.0 * (2.5 - r2) / grosor) / 10.0
L8contador2tab = Sequence((2.5 - sqrt(2.5^(2.0) - grosor * vel * k * t / 3.141592653589793)) / grosor, k, 0.0, 1.0, 0.05)
esc5: 7.0 / Max[L8contador2tab]
A = (2.4, 2.5)
B: A + (4.0, 0.0)
L9distancia1 = Sequence(Distance[A, B] - (sqrt(1.0 + grosor * vel * k / 3.141592653589793) + sqrt(2.5^(2.0) - grosor * vel * k / 3.141592653589793)), k, 0.0, t, t / 20.0)
esc3: 7.0 / Max[L9distancia1]
dist = Distance(A + (r1, 0.0), B - (r2, 0.0))
C: A + (-(2.0), -(3.5))
circ3a = Circle(C, 0.5)
D: A + (6.0, -(3.5))
circ4a = Circle(D, 0.5)
cinta2 = Segment(C - (0.0, 0.5), D - (0.0, 0.5))
J = Intersect(circ3a, cinta2, 1.0)
K = Intersect(circ4a, cinta2, 1.0)
circ1 = Circle(A, r1)
circ1borde = Circle(A, r1)
circ2 = Circle(B, r2)
circ2borde = Circle(B, r2)
circ2int = Circle(B, 1.0)
circ1int = Circle(A, 1.0)
circ1tang = Circle(A, r1 - 0.5)
circ2tang = Circle(B, r2 - 0.5)
a, b = Tangent(C, circ1tang)
i, j = Tangent(D, circ2tang)
l = OrthogonalLine(A, a)
m = OrthogonalLine(B, j)
n = OrthogonalLine(C, a)
a_1 = OrthogonalLine(D, j)
E = Intersect(circ3a, n, 2.0)
F, G = Intersect(circ1borde, l)
H = Intersect(circ4a, a_1, 1.0)
I, L = Intersect(circ2borde, m)
cinta1 = Segment(G, E)
cinta3 = Segment(I, H)
arco1 = CircleArc(C, E, J)
arco2 = CircleArc(D, K, H)
M = Rotate(A + (r1, 0.0), -(2.0) * 3.141592653589793 * (r1 - 1.0) / grosor, A)
radio1ext = Segment(A, M)
N = Intersect(circ1int, radio1ext)
radio1 = Segment(A, N)
M2 = Rotate(B + (r2, 0.0), -(2.0) * 3.141592653589793 * (2.5 - r2) / grosor, B)
radio2ext = Segment(B, M2)
O = Intersect(circ2int, radio2ext)
radio2 = Segment(B, O)
circ1bordeint = Circle(A, 1.0)
circ2bordeint = Circle(B, 1.0)
circ3b = Circle(C, 0.5)
circ4b = Circle(D, 0.5)
cabezal1, lado1cabezal, lado2cabezal, lado3cabezal, lado4cabezal = Polygon(A + (1.5, -(3.5)), A + (2.5, -(3.5)), A + (2.5, -(3.9)), A + (1.5, -(3.9)))
cabezal2 = Segment(A + (1.5, -(4.1)), A + (2.5, -(4.1)))
L1longder = Sequence((t - k) * vel, k, 0.0, t, t / 10.0)
L2longizq = Sequence(k * vel, k, 0.0, t, t / 10.0)
L3longizqX = Sequence(k * vel, k, 0.0, t, t / 10.0)
L4longderY = Sequence((t - k) * vel, k, 0.0, t, t / 10.0)
f5(x) = (sqrt(1.0 + grosor * vel * x / 3.141592653589793) - 1.0) / grosor
L5contador1 = Sequence((sqrt(1.0 + grosor * vel * k * t / 3.141592653589793) - 1.0) / grosor, k, 0.0, 1.0, 0.01)
L6contador2 = Sequence((2.5 - sqrt(2.5^(2.0) - grosor * vel * k * t / 3.141592653589793)) / grosor, k, 0.0, 1.0, 0.01)
f6(x) = (2.5 - sqrt(2.5^(2.0) - grosor * vel * x / 3.141592653589793)) / grosor
L7contador1tab = Sequence((sqrt(1.0 + grosor * vel * k * t / 3.141592653589793) - 1.0) / grosor, k, 0.0, 1.0, 0.05)
f1(x) = (t - x) * vel
f2(x) = vel * x
ejeY = Segment((0.0, -2.2), (0.0, 5.2))
ejeX = Segment((-0.2, -2.0), (10.2, -2.0))
Lg1 = Sequence(Segment[(k, 7.0 * Element[L1longder, k + 1.0] / Max[L1longder] - 2.0), (k + 1.0, 7.0 * Element[L1longder, k + 2.0] / Max[L1longder] - 2.0)], k, 0.0, 10.0)
Lg2 = Sequence(Segment[(k, 7.0 * Element[L2longizq, k + 1.0] / Max[L2longizq] - 2.0), (k + 1.0, 7.0 * Element[L2longizq, k + 2.0] / Max[L2longizq] - 2.0)], k, 0.0, 10.0)
Lg4 = Sequence(Segment[(k / 2.0, 7.0 * Element[L7contador1tab, k + 1.0] / Max[L7contador1tab] - 2.0), ((k + 1.0) / 2.0, 7.0 * Element[L7contador1tab, k + 2.0] / Max[L7contador1tab] - 2.0)], k, 0.0, 20.0)
LrotulosX1 = Sequence(Text[k, (k / (t / 10.0) - If[k < 10.0, 0.075, 0.15], -(2.5))], k, 0.0, t, t / 10.0)
LmarcasX = Sequence(Segment[(k, -(1.9)), (k, -(2.1))], k, 1.0, 10.0)
LmarcasY = Sequence(Segment[(-(0.1), 0.7 * k - 2.0), (0.1, 0.7 * k - 2.0)], k, 1.0, 10.0)
LrotulosY01 = Sequence(Text[k * Max[L1longder] / 10.0, (-(0.8), 0.7 * k - 2.1)], k, 1.0, 10.0)
LrotulosY02 = Sequence(Text[k * round(Max[L5contador1]) / 10.0, (If[k * round(Max[L5contador1]) / 10.0 < 10.0, -0.35, -0.5], 0.7 * k - 2.1)], k, 1.0, 10.0)
LrayasX = Sequence(Segment[(k, -(2.0)), (k, 5.1)], k, 1.0, 10.0)
LrayasY = Sequence(Segment[(0.0, 0.7 * k - 2.0), (10.1, 0.7 * k - 2.0)], k, 1.0, 10.0)
c = Segment(B - (r2, 1.0), B - (r2, -(2.0)))
d = Segment(A + (r1, -1.0), A + (r1, 2.0))
u = Vector(A + (r1 - 0.5, 1.8), A + (r1, 1.8))
v = Vector(B - (r2 - 0.5, -(1.8)), B - (r2, -(1.8)))
contador1: "n_1 = " + vuelta1 + " vueltas"
contador2: "n_2 = " + vuelta2 + " vueltas"
texto3: "t = " + (r * t) + " segundos"
Lg6 = Sequence(Segment[(k / 2.0, 7.0 * Element[L9distancia1, k + 1.0] / Max[L9distancia1] - 2.0), ((k + 1.0) / 2.0, 7.0 * Element[L9distancia1, k + 2.0] / Max[L9distancia1] - 2.0)], k, 0.0, 20.0)
LrotulosY03 = Sequence(Text[k * Max[L9distancia1], (-(0.4), 0.7 * k - 2.1)], k, 0.0, 10.0, 2.0)
lista1 = Sequence(Segment[(-(1.4), 0.8 * k - 4.9), (11.6, 0.8 * k - 4.9)], k, 0.0, 2.0)
lista2 = Sequence(Segment[(k + 1.0 - 0.4, -(4.9)), (k + 1.0 - 0.4, -(3.3))], k, 0.0, 11.0)
h = Segment((-1.4, -4.9), (-1.4, -3.3))
P1: (t * r / 5.0, If[z ≟ 1.0, 7.0 * (225.0 - t * r * vel) / 225.0 - 2.0, If[z ≟ 2.0, 7.0 * t * r * vel / 225.0 - 2.0, If[z ≟ 3.0, esc3 * dist - 2.0, If[z ≟ 4.0, esc5 * vuelta1 - 2.0, If[z ≟ 5.0, esc5 * vuelta2 - 2.0]]]]])
P1x: P1 - (0.0, y(P1) + 2.0)
P1y: P1 - (x(P1), 0.0)
k = Segment(P1y, P1)
p = Segment(P1, P1x)
Lg5 = Sequence(Segment[(k / 2.0, 7.0 * Element[L8contador2tab, k + 1.0] / Max[L8contador2tab] - 2.0), ((k + 1.0) / 2.0, 7.0 * Element[L8contador2tab, k + 2.0] / Max[L8contador2tab] - 2.0)], k, 0.0, 19.0)
o = false
texto15: "L = " + (vel * t) + " - " + vel + " t"
texto16: "L = " + vel + " t"
texto2: "" + (10.0 * dist) + " mm"
LtabX1 = Sequence(Text[k, (k / (t / 10.0) + 1.0 - If[k < 10.0, 0.0, 0.075], -(3.8))], k, 0.0, t, t / 10.0)
texto10 = Text("Tiempo (s)", (-1.1, -3.8))
texto12 = Text("Nº de vueltas", (-1.2, -4.6))
LtabY5 = Sequence(Text[round(10.0 * Element[L8contador2tab, 2.0 * k - 1.0]) / 10.0, (If[k ≟ 1.0, k, If[k < 7.0, k - 0.1, k - 0.2]], -(4.6))], k, 1.0, 11.0)
LtabY4 = Sequence(Text[round(10.0 * Element[L7contador1tab, 2.0 * k - 1.0]) / 10.0, (If[k ≟ 1.0, k, k - 0.2], -(4.6))], k, 1.0, 11.0)
LtabY3 = Sequence(Text[10.0 * Element[L9distancia1, 2.0 * k - 1.0], (If[k ≟ 1.0 ∨ k ≟ 11.0, k, k - 0.2], -(4.6))], k, 1.0, 11.0)
LtabY2 = Sequence(Text[Element[L2longizq, k], (If[k ≟ 1.0, k, k - 0.2], -(4.6))], k, 1.0, 11.0)
LtabY1 = Sequence(Text[Element[L1longder, k], (If[k ≟ 11.0, k, k - 0.2], -(4.6))], k, 1.0, 11.0)
texto9 = Text("Longitud (cm)", (-1.2, -4.6))
texto11 = Text("Distancia (mm)", (-1.3, -4.6))