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)
Intersect(f, g, (3.599999999999998, -1.3249999999999982))
S_1 = Intersect(f, g, (2.4999999999999982, -2.1916666666666647))
S_2 = Intersect(f, g, (11.366666666666665, 5.075000000000002))
v_2 = Vector(S_2, S_1)
A_2' = Translate(A_2, v_2)
B_2' = Translate(B_2, v_2)
C_2' = Translate(C_2, v_2)
P', c_2', a_2', b_2' = Polygon(A_2', B_2', C_2')
v_3: (0, -h)
j = Translate(e, v_3)
S_4 = Intersect(f, j, (6, 3))
S_3 = Intersect(f, j, (3.9333333333333313, 1.1750000000000018))