Moteur en
   Etoile

Données

Stop

Rotation

Principe Du Moteur en Etoile

ω = 3.5 (slider from -10 to 10, step 0.1)
t = 1.77 (slider from 0 to Tmax, step 0.01)
r = 0.5 (slider from 0 to 5, step 0.1)
v1 = (0, 1, 0)
u1 = (1, 0, 0)
A = (0.08774472318170723, -0.20570826992375046, 1.4443766402248217)
w1 = (0, 0, 1)
c = Circle(A, r, v1)
a = Ray(A, Rotate[A + u1, 0, Line[A, v1]])
b = Ray(A, Rotate[A + u1, -1.25664, Line[A, v1]])
r1 = 2 (slider from 0 to 5, step 0.1)
B = Rotate(A + (r * u1), ((-ω) * t), Line[A, v1])
d = Circle(B, r1, v1)
C, C_2 = Intersect(a, d)
E, E_2 = Intersect(b, d)
e = Segment(B, E)
f = Segment(B, C)
D: C + ((0.4 * r1) * u1)
G: E + ((0.4 * r1) * UnitVector[b])
r0 = 0.4 (slider from 0 to 2, step 0.1)
m, p, q, n = Cylinder(C, D, r0)
o, s, c_1, u = Cylinder(E, G, r0)
h_1 = Ray(A, Rotate[A + u1, -2.51327, Line[A, v1]])
g = Ray(A, Rotate[A + u1, -5.026548245743669, Line[A, v1]])
h = Ray(A, Rotate[A + u1, -3.7699111843077517, Line[A, v1]])
F = Intersect(h_1, d)
H = Intersect(h, d)
I = Intersect(g, d)
J: F + ((0.4 * r1) * UnitVector[h_1])
K: H + ((0.4 * r1) * UnitVector[h])
L: I + ((0.4 * r1) * UnitVector[g])
i = Segment(B, F)
j = Segment(B, H)
k = Segment(B, I)
l, d_1, e_1, v = Cylinder(F, J, r0)
w, f_1, g_1, a_1 = Cylinder(H, K, r0)
b_1, k_1, p_1, i_1 = Cylinder(I, L, r0)
q_1 = Circle(A, r + (1.4 * r1), v1)
r_1 = Circle(A, r + (0.6 * r1), v1)
M = Intersect(a, q_1)
N = Intersect(a, r_1)
O = Intersect(b, q_1)
P = Intersect(b, r_1)
Q = Intersect(g, q_1)
R = Intersect(g, r_1)
S = Intersect(h, q_1)
T = Intersect(h, r_1)
U = Intersect(h_1, q_1)
V = Intersect(h_1, r_1)
j_1, s_1, t_1, l_1 = Cylinder(N, M, (1.1 * r0))
m_1, c_2, d_2, n_1 = Cylinder(P, O, (1.1 * r0))
o_1, e_2, f_2, u_1 = Cylinder(V, U, (1.1 * r0))
v_1, g_2, h_2, w_1 = Cylinder(T, S, (1.1 * r0))
a_2, k_2, p_2, b_2 = Cylinder(R, Q, (1.1 * r0))
W: A - ((2 * r) * v1)
Z = Rotate(W + ((1.5 * r1) * u1), ((-ω) * t), Line[W, v1])
i_2 = Segment(W, A)
Z' = Rotate(Z, 2.0943951023931953, Line[W, v1])
Z'_1 = Rotate(Z, -2.0943951023931953, Line[W, v1])
q_2 = CircumcircleArc(Z, W, Z'_1)
r_2 = CircumcircleArc(Z'_1, W, Z')
s_2 = CircumcircleArc(Z', W, Z)
Tmax = If(ω ≠ 0, (20 * π / ω), 0)
j_2 = false
st = true
A_1 = Point(xAxis)
B_1 = Point(xAxis)
l_2 = false
C_1 = Point(s_2)
t_2 = CircumcircleArc(Z', C_1, W)
D_1 = Point(r_2)
c_3 = CircumcircleArc(W, D_1, Z')
E_1 = Point(r_2)
d_3 = CircumcircleArc(Z'_1, E_1, W)
F_1 = Point(q_2)
e_3 = CircumcircleArc(W, F_1, Z'_1)
G_1 = Point(s_2)
f_3 = CircumcircleArc(W, G_1, Z)
H_1 = Point(q_2)
g_3 = CircumcircleArc(Z, H_1, W)