Pantograph

Spur löschen

- vergrößern

Start Animation

Spur aus

Stelle S auf verschiedene Markierungen
und überlege den entsprechenden Maßstab!

A = (-2, 0)
anim = false
spur = true
B = Intersect(xAxis, yAxis)
C = Point(xAxis)
Vieleck1, a, b, d, e, f, g, h, i, j, k, l, m, D, E, F, G, H, I, J, K, L, M = Polygon(B, C, 12)
p = Circle(G, F)
q = Circle(F, E)
r = Circle(D, E)
s = Circle(E, D)
t = Circle(C, D)
c_1 = Circle(B, C)
d_1 = Circle(M, B)
e_1 = Circle(L, M)
f_1 = Circle(K, L)
g_1 = Circle(J, K)
h_1 = Circle(I, J)
k_1 = Circle(H, I)
N = Intersect(r, t, 2)
O = Intersect(r, s, 1)
P = Intersect(q, s, 2)
Q = Intersect(p, q, 2)
R = Intersect(p, k_1, 1)
S = Intersect(h_1, k_1, 2)
T = Intersect(g_1, h_1, 2)
U = Intersect(f_1, g_1, 2)
V = Intersect(e_1, f_1, 2)
W = Intersect(d_1, e_1, 2)
Z = Intersect(c_1, d_1, 2)
A_1 = Intersect(t, c_1, 2)
Vieleck2, c_2, n, d_2, o, e_2, p_1, f_2, q_1, g_2, r_1, h_2, s_1, i_1, t_1, j_1, u, k_2, v, l_1, w, m_1, z, b_1, a_1 = Polygon(C, N, D, O, E, P, F, Q, G, R, H, S, I, T, J, U, K, V, L, W, M, Z, B, A_1)
P' = Point(Vieleck2)
n_1 = Line(A, P')
c = Circle(A, 2)
p_2 = Circle(P', 2)
B_1 = Intersect(c, p_2, 1)
a_2 = Line(A, B_1)
C_1 = Point(a_2)
b_2 = Segment(B_1, B_1 + (10 * Vector[A, B_1]))
i_2 = Segment(A, B_1)
D_1 = Point(b_2)
j_2 = Segment(B_1, P')
l_2 = Line(D_1, j_2)
E_1 = Intersect(n_1, l_2)
m_2 = Segment(D_1, E_1)
n_2 = Line(P', b_2)
F_1 = Intersect(n_2, m_2)
q_2 = Segment(P', F_1)
G_1 = Midpoint(B_1, A)
Sk = Sequence(B_1 + (k * Vector[A, G_1]), k, 1, 10)
r_2 = Segment(B_1, Element[Sk, 10])
St = Sequence(Text[k, A + (k * Vector[A, G_1]) + ((-0.5), 0)], k, 1, 12)