Ma belle sinusoide
Author: Daniel Mentrard
Date: 25 septembre 2007

\pi

\frac{3\pi}{2}

2\pi

\frac{5\pi}{2}

3\pi

Angle parcouru par M :

 \frac{ 7\pi }{2 } 

0

4π

π/2

Bielle

Vilebrequin

Rayon = 0.3 (slider from 0 to 1.5, step 0.1)
Arc = 6.57 (slider from 0 to 10, step 0.01)
M: (Rayon * cos(2 * Arc) - 1, Rayon * sin(2 * Arc))
A = (0, -1)
I = (-1, 0)
O = (-1, 0)
e = Ray(M, A)
J = (0, 1)
k = CircleArc(O, I, M)
B = (0, 0)
i = OrthogonalLine(B, yAxis)
C = Point(i)
j = Ray(B, C)
P: (Arc, 0)
M_0 = (0.78, 0)
M_1 = (1.57, 0)
M_2 = (2.36, 0)
M_3 = (3.14, 0)
M_4 = (3.92, 0)
M_5 = (4.71, 0)
β = Angle(I, O, M)
T14: "" + (360 * Arc / 3.14) + "°"
M_6 = (5.5, 0)
M_7 = (6.28, 0)
T17: "" + (x(M_7))
D = Intersect(yAxis, xAxis)
g = Segment(D, P)
h = Segment(O, I)
p = CircleArc(O, M, I)
nb: Arc / 3.14
T26: "Nombre de tours : " + nb + "t"
m = Line(D, J)
n = Line(O, m)
q = Line(O, j)
S: (-1, y(M))
s = Segment(S, M)
L: (Arc, y(M))
f(x) = Rayon * sin(2 * x)
b1 = Segment(O, M)
c1 = Segment(P, L)
d1 = Segment(O, S)
f1 = Function(f, 0, Arc)
α = Angle(B, I, M)
N = (-1, -4.97)
a_1 = Line(I, N)
Q = Point(Circle[B, 5])
b_1 = Segment(B, Q)
R = Point(a_1)
d_1 = Segment(M, R)
T = Point(a_1)
V = Point(Circle[S, 3])
t = Segment(M, V)
Segment[S, V] = Segment(M, V)
c = Circle(R, M)
E = (-1.4000000000000001, 4)
F = Point(Circle[E, 2])
b = Segment(E, F)
G = (-0.6000000000000001, 4)
H = Point(Circle[G, 2])
d = Segment(G, H)
W = Point(Circle[V, 0.4])
l = Segment(V, W)
K = Point(Circle[V, 0.4])
r = Segment(V, K)
texte1: "Angle en Radian : " + (2 * Arc) + ""
texte3: "Arc parcouru = " + (2 * Arc) + ""
U = Point(Segment[S, V])
Z = (-2, 2.8000000000000003)
u = Vector(Z, U)
A_1 = Point(b1)
B_1 = (-1.972156265954835, 0.4863868411861004)
v = Vector(B_1, A_1)