Entrada 
de aire

Salida
de aire

⇐

⇒

Número de paletas:

R2: 3.97
R: 3.47
O: (0, 0)
N: O + (0, R2)
g = Ray(N, N + (1, 0))
T = Point(g)
c = Circle(O, R)
J = Point(c)
r: 2.68
d: 0.6
O': O + (d, 0)
n = 12 (slider from 1 to 12, step 1)
c' = Circle(O', r)
α = 3.2114058236695664 rad (slider from 0° to 6.283185307179586)
Giros2A = Sequence(Intersect[c, Ray[O', Rotate[O' + (r, 0), ((t / n * 2) * π) + α, O']]], t, 1, n)
α0: 5°
Giros2B = Sequence(Intersect[c, Ray[O', Rotate[O' + (r, 0), ((t / n * 2) * π) + α + α0 / R, O']]], t, 1, n)
Giros1A = Sequence(Rotate[O' + (d, 0), ((t / n * 2) * π) + α, O'], t, 1, n)
Giros1B = Sequence(Rotate[O' + (d, 0), ((t / n * 2) * π) + α + α0 / d, O'], t, 1, n)
pistones = Sequence(Polygon[{Giros1A(k), Giros1B(k), Giros2B(k), Giros2A(k)}], k, 1, n)
inc: 0.1
longitudPaleta: R - (2 * d) - (2 * inc)
PaletasA = Sequence(Giros2A(k) + (longitudPaleta * (Giros1A(k) - Giros2A(k)) / abs(Giros1A(k) - Giros2A(k))), k, 1, n)
PaletasB = Sequence(Giros2B(k) + (longitudPaleta * (Giros1B(k) - Giros2B(k)) / abs(Giros1B(k) - Giros2B(k))), k, 1, n)
paletas = Sequence(Polygon[{PaletasA(k), PaletasB(k), Giros2B(k), Giros2A(k)}], k, 1, n)
v = 1.5 (slider from 0 to 5)
aux = -4.8 (slider from -5 to 5)
f = Circle(O, R2)
D = Point(f)
G = Point(c)
H: (x(T), y(G))
K: (x(T), y(J))
S: (x(T), y(D))
N': O + (0, R)
T': T + N' - N
P: K + T' - T
l1: {Polygon[N, N', T', T]}
I: S + T' - T
F = Intersect(c, Segment[O + I - S, I])
E: H + I - S
M = Intersect(f, Segment[G + E - H, E])
C = Intersect(f, Segment[J + P - K, P])
l2: {Polygon[N', T', K, N' + K - T']}
l3: {Polygon[G, H, I, G + I - H]}
e = Arc(c, J, N')
l4: {Polygon[J, K, P, J + P - K]}
l5: {Polygon[D, S, I, D + I - S]}
l6: {Polygon[M, E, H, M + H - E]}
h = Arc(c, G, F)
k = CircleSector(O, Rotate[J, 270°, O], J)
ancho: 1
Arcos = Sequence(Arc[c', α + (((4 * t) + 1) * π / ((2 * n))), α + (((4 * t) + 3) * π / ((2 * n)))], t, 0, n - 1)
β: (Angle[O + (1, 0), O, F] / (180°) * π)