Reset

Distance = 

stop/go

Path number

Start

Show count:

e = 3.5 (slider from 2 to 5, step 0.1)
j: (10 * e)
a = 0 (slider from 0 to time, step 0.1)
a_1: a / e
c: a_1 / ((2 * π))
A = (16, -6)
B: (a, y(A))
u = Vector(B, A)
f(x) = (1.8 * sin((0.1 * (x + 112.04846)))) + (2.5 * cos((0.2 * (x + 112.04846)) - 1)) + sin((x + 112.04846) / 8) + (0.02 * (x + 112.04846)) + 2.72814
f_1 = Translate(f, u)
C = Point(f_1)
h_1 = Tangent(C, f_1)
d = Circle(C, e)
i = OrthogonalLine(C, h_1)
G = Intersect(d, i, 2)
k = Circle(G, C)
E = Point(k)
b(x, y) = y ≤ f_1(x)
E' = Rotate(E, (-a_1), G)
l = Line(E', G)
F = Intersect(k, l, 2)
m = Segment(F, E')
n = OrthogonalLine(G, m)
H, I = Intersect(k, n)
p = Segment(H, I)
q = Line(G, yAxis)
J = Point(q)
r = Circle(J, 1.4)
s = OrthogonalLine(J, q)
K, L = Intersect(r, s)
t = Segment(L, K)
g_1 = Segment(J, G)
J' = Rotate(J, 15°, G)
G' = Rotate(G, 15°, G)
j_1 = Segment(J', G')
L' = Rotate(L, 15°, G)
K' = Rotate(K, 15°, G)
t' = Segment(L', K')
Pointk = PointIn(k)
count: floor(a_1 / ((2 * π)))
dist: ((c * j) * π)
text2_1: "Diameter = " + j + " cm"
di: (210 * 3.14159)
InputBox1_1 = Textfield(di)
g: (((c - 0.1) * j) * π) < di < (((c + 1.1) * j) * π)
path: 1
InputBox1 = Textfield(path)
p1 = true
p2 = false
p3 = false
p4 = false
p5 = false
time: (path / (path + 1) * 720)
D: (30.04555, 26)
M: (46.13138, y(D))
h: false
text1: "" + count + " clicks"

Tool: Angle
Angle[ <Point> ]
Input: L_1
Output: α, A, U_1, f, j

Move

Turn

p = Circle(L_1, 10)
U_1 = Point(p)
j = Segment(U_1, L_1)
A = Rotate(U_1, 50°, L_1)
α = Angle(U_1, L_1, A)
f = Segment(L_1, A)