RectTriArea Color

10

A = (-8.005238231920952, -0.017505397811811485)
B = (-2.005238231920953, -0.017505397811811485)
poly1, a, b, c, C = Polygon(A, B, 3)
perim: (3 * a)
areaT = Area(poly1)
D = (0, 0)
d = Circle(D, perim / 2)
E = Point(d)
e = Segment(D, E)
F = Point(e)
f_1 = OrthogonalLine(F, e)
g = OrthogonalLine(D, e)
h = Circle(F, E)
G = Intersect(h, f_1, 2)
i = OrthogonalLine(G, f_1)
H = Intersect(g, i)
poly2, d_1, f, g_1, f_2 = Polygon(D, F, G, H)
j: poly2 / poly1
k = Perimeter(poly2)
p = Circle(D, perim / 3)
I = Intersect(p, d_1, 1)
a_1 = Segment(D, I)
b_1 = Segment(I, F)
b_2 = Segment(F, G)
r(x) = x^(2) - (perim / 2 * x) + Area[poly1]
l = Segment(D, F)
m: f_2 / g_1
K = Intersect(r, xAxis, 2)
n = Distance(I, K)
o: n / a_1
s = Circle(F, a - l)
t = OrthogonalLine(F, xAxis)
L, M = Intersect(s, t)
e_1 = Segment(F, M)
H_2: (x(D), Min[c, y(H)])
c_2 = Segment(H_2, D)
q = If(poly2 > poly1, 1, 0)
c_1 = Segment(H_2, H)
h_1 = Segment(M, G)
k_1 = Circle(H, c - c_2)
J, N = Intersect(k_1, i)
i_1 = Segment(H, J)
j_1 = Segment(J, G)
u: ((100 / 9 * x(F)) * 0.3 / 2)
text1: "" + (LaTeX[u]) + ""