t = 1
m = 0.8
c = 1.5 (slider from 1 to 5, step 0.1)
b = -0.5 (slider from -5 to 5, step 0.1)
a = 2 (slider from 1 to 6, step 0.1)
f(x) = log(x - a) / log(c) + b
B_2 = Point(f)
i = OrthogonalLine(B_2, xAxis)
e: y = m x + t
M_2 = Intersect(i, e)
h = 3 (slider from -5 to 5, step 0.1)
B_1 = Point(f)
d = Distance(B_2, M_2)
s: d / sqrt(3) 2
A_2: (x(M_2) - h, y(M_2))
C_2: (x(M_2) + h, y(M_2))
P, b_1, a_1, b_2 = Polygon(A_2, B_2, C_2)
v: (0, -2 h sqrt(3) / 2)
g = Translate(e, v)
M_1: (x(B_1), m x(B_1) + t)
A_1: (x(M_1) - h, y(M_1))
C_1: (x(M_1) + h, y(M_1))
Q, c_1, a_2, b_3 = Polygon(A_1, B_1, C_1)