1

2

3

b = 0 (slider from 0 to 1, step 0.01)
A = Intersect(xAxis, yAxis)
M = Point(Circle[A, 3])
N = Rotate(M, 40°, A)
c = Circle(A, N)
e = Segment(A, N)
d = OrthogonalLine(N, e)
rb = OrthogonalLine(A, e)
B, C = Intersect(c, rb)
f = OrthogonalLine(C, rb)
D = Intersect(f, d)
k = OrthogonalLine(N, xAxis)
E = Intersect(f, k)
u' = Vector(E, N)
lu' = Length(u')
u'b' = Vector(D, E)
lu'b' = Length(u'b')
C1 = Intersect(xAxis, k)
v = Vector(N, C1)
straal = Length(v)
c1 = Circle(E, straal)
H1', G = Intersect(c1, k)
Lv = Length(v)
P = Rotate(A, 119.99999999999999°, N)
h = Line(N, P)
R = Intersect(h, xAxis)
W = Rotate(N, 270°, R)
Z = Rotate(R, 90°, N)
l = Line(W, Z)
j = OrthogonalLine(R, xAxis)
A1 = Intersect(j, l)
u = Vector(A1, R)
Lu = Length(u)
ub = Vector(W, A1)
Lub = Length(ub)
SliderBm: Lub + Lv + lu'
kb2: (lu'b' + Lv) / SliderBm
sliderAm: Lub + Lv + Lu
kb1: Lub / sliderAm
F1 = Intersect(k, l)
q = Circle(F1, straal)
H1 = Intersect(q, k, 1)
ka1: Lub / sliderAm
ka2: (Lub + Lv) / sliderAm
a_r = 1 (slider from 0 to 1, step 0.01)
a: 1 - a_r
S = Rotate(R, 270°, A)
α = Angle(A, N, P)
β = Angle(N, R, A)
T = Rotate(A, 90°, R)
W' = If(a < ka1, Point[W, a / ka1 ub], If[a < ka2, Point[W, ub], Point[W, ub + (a - ka2) / (1 - ka2) u]])
Z' = If(a < ka1, Point[Z, a / ka1 ub], If[a < ka2, Point[F1, (a - ka1) / (ka2 - ka1) v], Point[H1, (a - ka2) / (1 - ka2) u]])
N' = If(a < ka1, N, If[a < ka2, Point[N, (a - ka1) / (ka2 - ka1) v], Point[N, v + (a - ka2) / (1 - ka2) u]])
R' = If(a < ka1, R, If[a < ka2, R, Point[R, (a - ka2) / (1 - ka2) u]])
poly2, r, n_1, z, w_1 = Polygon(R, N, Z, W)
poly1_1, r', w', z', n' = Polygon(R', W', Z', N')
poly3, a_1, r_1, t, s = Polygon(A, R, T, S)
g = Line(N, xAxis)
H2 = Intersect(g, yAxis)
o = Distance(g, f)
p = Distance(j, h)
poly1, c_2, a_3, n_2, d_2 = Polygon(C, A, N, D)
D' = If(b < kb1, Point[D, b / kb1 u'b'], If[b < kb2, Point[E, (b - kb1) / (kb2 - kb1) v], Point[H1', (b - kb2) / (1 - kb2) u']])
afstandDE = Distance(D, E)
TekstDE: "\overline{" + (Name[D]) + (Name[E]) + "} \, = \, " + afstandDE
i = OrthogonalLine(H1', u')
F'1 = Intersect(d_2, i)
afstandCH = Distance(C, F'1)
TekstCH: "\overline{" + (Name[C]) + (Name[F'1]) + "} \, = \, " + afstandCH
afstandRW = Distance(R, W)
afstandRA1 = Distance(R, A1)
w = Vector(F'1, A)
A' = If(b < kb1, A, If[b < kb2, A, Point[A, (b - kb2) / (1 - kb2) w]])
X = If(b < kb1, N, If[b < kb2, Point[N, (b - kb1) / (kb2 - kb1) v], Point[N, v + (b - kb2) / (1 - kb2) w]])
m = Vector(C, F'1)
C' = If(b < kb1, Point[C, b / kb1 m], If[b < kb2, Point[C, m], Point[C, m + (b - kb2) / (1 - kb2) w]])
poly4, c', d', x, a' = Polygon(C', D', X, A')
n = Line(W, Z)
poly6, r_2, a_2, n_3 = Polygon(A, N, R)