MotoreStirling_03

muoviA

Avvia Motore

α

β

γ

Posizione Pistone

Posizione Pistone

Metà Corsa

Metà Percorso

MostraCoseno

Confronta con grafico coseno

Metà Corsa

 Metà Percorso

manovella = 50 (slider from 1 to 50, step 1)
biella = 200 (slider from (2 * manovella) to 200, step 1)
B = Intersect(xAxis, yAxis)
c_1 = Circle(B, manovella)
A = Point(c_1)
d = Circle(A, biella)
C = Intersect(d, xAxis, 2)
a_1 = false
a = Segment(B, C)
b = Segment(C, A)
c = Segment(A, B)
α = Angle(B, A, C)
β = Angle(C, B, A)
γ = Angle(A, C, B)
δ = Angle(C, A, B)
ε = Angle(A, B, C)
ζ = Angle(B, C, A)
f = OrthogonalLine(C, a)
e = Circle(C, 12)
D = Intersect(e, f, 2)
E = Intersect(e, f, 1)
g = OrthogonalLine(D, f)
h = OrthogonalLine(E, f)
k = Circle(D, 120)
F = Intersect(k, g, 1)
i = OrthogonalLine(F, g)
G = Intersect(h, i)
Pistone, d_1, e_1, g_1, f_1 = Polygon(D, E, G, F)
p = Circle(B, b - c + 120)
q = Circle(B, b + c + 120)
PMI = Intersect(p, xAxis, 2)
PMS = Intersect(q, xAxis, 2)
inferiore = OrthogonalLine(PMI, xAxis)
superiore = OrthogonalLine(PMS, xAxis)
H = Intersect(g_1, xAxis)
PosizionePistone = Segment(PMI, H)
r = Circle(B, b + 120)
MetaCorsa = Intersect(r, xAxis, 2)
j = OrthogonalLine(MetaCorsa, xAxis)
GraficoPistone: (β, PosizionePistone)
I: (acos(manovella / ((2 * biella))), 0)
RettaMetaPercorso: x = x(I)
eq1: x = π / 2
l = false
t(x) = If[x > 0, (tan(x(I)) * x)]
J = Intersect(t, c_1, 2)
L = Intersect(t, c)
E_1: (x(PMI) - 5, y(E) - 2)
G_1: (x(PMS) + 20, y(G) - 2)
F_1: (x(PMS) + 20, y(F) + 2)
D_1: (x(PMI) - 5, y(D) + 2)
q1, m, n, h_1, i_1 = Polygon(D_1, F_1, G_1, E_1)
gif = 321 (slider from 1 to 512, step 1)
passo = Mod(gif, 8)
K: (x(PMS) - 20, y(PMS) - 100)
M: (x(PMS) + 20, y(PMS) - 100)
N: (x(PMS) - 20, y(PMS) - 100)
O: (x(PMS) + 20, y(PMS) - 100)
P: (x(PMS) - 20, y(PMS) - 100)
Q: (x(PMS) + 20, y(PMS) - 100)
R: (x(PMS) - 20, y(PMS) - 100)
S: (x(PMS) + 20, y(PMS) - 100)
U: (x(PMS) - 20, y(PMS) - 100)
V: (x(PMS) + 20, y(PMS) - 100)
W: (x(PMS) - 20, y(PMS) - 100)
Z: (x(PMS) + 20, y(PMS) - 100)
A_1: (x(PMS) - 20, y(PMS) - 100)
B_1: (x(PMS) + 20, y(PMS) - 100)
C_1: (x(PMS) - 20, y(PMS) - 100)
H_1: (x(PMS) + 20, y(PMS) - 100)
s(x) = If[0 < x < 6.283185307179586, manovella + (manovella * cos(x))]