μ=2,5β

1LE = 1m

Radius

A_K_r_e_i_s= r² \cdot 3,14

Kreisfläche

a = 4 (slider from 0 to 4, step 0.1)
F = (-1, -1)
G = Point(Circle[F, a])
b = Segment(F, G)
c = Semicircle(G, F)
H = Midpoint(b)
d = OrthogonalLine(H, b)
C = Point(d)
e = Segment(H, C)
A = Point(e)
B_1 = (4.116724732641092, 0.5539696027439927)
poly1, d_1, e_1, f = Polygon(A, B_1, C)
G_1 = Point(e)
g = Circle(C, G_1)
E = Intersect(g, e_1)
D = Mirror(E, e)
h = Segment(D, E)
J = Intersect(h, e)
poly2, j, i, d_2 = Polygon(D, C, J)
n = AngularBisector(J, D, C)
K = Intersect(e_1, n)
w = Ray(D, K)
δ = Angle(J, D, C)
γ = Angle(D, C, E)
ε = Angle(C, E, J)
φ = Angle(C, K, D)
μ = Angle(w, e_1)
β = Angle(C, B_1, A)
p = CircleArc(C, D, E)
abstandBA = Distance(B_1, A)
umfangpoly1 = Perimeter(poly1)
abstandAC = Distance(A, C)
TextAC: "\overline{" + (Name[A]) + (Name[C]) + "} \, = \, " + abstandAC
abstandBC = Distance(B_1, C)
TextBC: "\overline{" + (Name[B_1]) + (Name[C]) + "} \, = \, " + abstandBC
abstandAB = Distance(A, B_1)
TextAB: "\overline{" + (Name[A]) + (Name[B_1]) + "} \, = \, " + abstandAB
α = Angle(B_1, A, C)
m = OrthogonalLine(A, e)
n_1 = Ray(C, E)
B = Intersect(n_1, m)
poly3, c_1, a_1, i_1 = Polygon(A, B, C)
q = Circle(H, F)
flächeq = Area(q)
I = Intersect(e, i_1)
L = Intersect(h, e)
r_1 = Circle(A, L)
N = (-4, 5)
O = (-3, 5)
s_1 = Segment(N, O)
k = 0.01 (slider from 0.01 to 3, step 0.01)
P = Point(Circle[A, k])
a1 = Segment(A, P)
Q = Point(Circle[A, k])
b1 = Segment(A, Q)
c1 = CircleSector(A, Q, P)
M = Point(c1)
r = Segment(A, M)
l = false
R = Intersect(n, a_1)
s = Segment(D, R)
t = OrthogonalLine(A, a_1)
S = Intersect(a_1, t)
ζ = Angle(B, A, C)
o = false