ΕΙΚΟΝΑ ΔΡΟΜΌΜΕΤΡΟ

ΠΡΟΣΟΜΟΙΩΣΗ

Ανοίξτε πρώτα και παρατηρήστε την εικόνα του Δρομόμετρου.
Στη συνέχεια ανοίξτε την προσομοίωση και πατήστε
το κουμπί κάτω αριστερά για να ενεργοποιηθεί.

Α = (0.48, 0.76)
B = Point(Circle[Α, 4])
a = Segment(Α, B)
ρ = 1 (slider from 0.5 to 3, step 0.5)
d = Circle(B, 4 - ρ)
Γ = Intersect(d, a)
c = Circle(Α, ρ)
Μ = Intersect(c, a, 1)
Μ' = Dilate(Μ, 1.08, Α)
λίστα1 = Sequence(Segment[Rotate[Μ, ((2 * i) * π / ((40 * ρ))), Α], Rotate[Μ', ((2 * i) * π / ((40 * ρ))), Α]], i, 1, (40 * ρ))
ω = 0.04
θ = 0 (slider from 0 to 1413, step 1)
λίστα1' = Rotate(λίστα1, (θ * ω), Α)
c' = Rotate(c, (θ * ω), Α)
Ρ = Dilate(Γ, 0.98, B)
Μ'_1 = Rotate(Μ, (θ * ω), Α)
Π = Dilate(Γ, 0.9, B)
λίστα2 = Sequence(Segment[Rotate[Ρ, ((2 * i) * π / ((40 * (4 - ρ)))), B], Rotate[Π, ((2 * i) * π / ((40 * (4 - ρ)))), B]], i, 1, (40 * (4 - ρ)))
Π' = Rotate(Π, ((-(((ω * θ) * ρ)))) / (4 - ρ), B)
e = Circle(B, Π')
λίστα2' = Rotate(λίστα2, (-(((ω * θ) * ρ / (4 - ρ)))), B)
κείμενο1: "ρ_1=" + ρ + ""
ρ_2: 4 - ρ
κείμενο2: "ρ_2=" + ρ_2 + ""
b = false
f = Circle(B, ρ)
g = Segment(B, Π')
Δ = Intersect(e, f, 1)
Ε = Intersect(e, f, 1)
Ζ = Intersect(e, f, 1)
Η = Intersect(e, f, 1)
Θ = Intersect(e, g)
I = Intersect(f, g)
Q = Dilate(I, 1.08, B)
λίστα3 = Sequence(Segment[Rotate[I, ((2 * i) * π / ((40 * ρ))), B], Rotate[Q, ((2 * i) * π / ((40 * ρ))), B]], i, 1, (40 * ρ))
F = Point(Circle[B, a])
h = Segment(B, F)
w = Segment(B, Π')
k = Circle(F, w)
R = Intersect(k, h)
C = Dilate(R, 1.09, F)
λίστα4 = Sequence(Segment[Rotate[R, ((2 * i) * π / ((40 * (4 - ρ)))), F], Rotate[C, ((2 * i) * π / ((40 * (4 - ρ)))), F]], i, 1, (40 * (4 - ρ)))
λίστα4' = Rotate(λίστα4, ((ω * θ) * (ρ / (4 - ρ))^(2)), F)
R' = Rotate(R, ((ω * θ) * (ρ / (4 - ρ))^(2)), F)
i = Segment(Α, B)
j = Segment(B, F)
K = (12.82, -4.8)
t = false
L: (x(K) + 9, y(K))