b = 1.6 (slider from 0.1 to 5, step 0.1)
f(x) = b^(x)
P = Point(f)
a = Tangent(P, f)
c = Line(P, yAxis)
A = Intersect(a, xAxis)
B = Intersect(c, xAxis)
distanzaAB = Distance(A, B)
TestoAB: "\overline{" + (Name[A]) + (Name[B]) + "} \, = \, " + distanzaAB
d: -1.0 / log(b)
e = 2.718281828459045
g(x) = e^(x)
h: y = e * x
C = Intersect(g, h, (0.9999999946649895, 2.718281813956983))
α = Angle(xAxis, h)
i: y = e
j = Integral(e, g(x), 0.0, 1.0)

Tool: Triangolo equilatero su lato (command Triangoloequilaterosulato)
Clicca su due punti
Input: A, C
Output: d, e, poli2

d_2 = Circle(C, A)
d = Circle(C, A)
e_1 = Circle(A, C)
e = Circle(A, C)
D = Intersect(d, e, 2.0)
poli2, d_1, a_1, c_1 = Polygon(A, C, D)

Tool: triangolo equilatero su lato (command triangoloequilaterosulato)
Clicca su due punti
Input: A, B
Output: poli1, a, b, C

c = Circle(A, B)
d = Circle(B, A)
C_1 = Intersect(c, d, 1.0)
C = Intersect(c, d, 1.0)
poli1_1, c_2, a_1, b_1 = Polygon(A, B, C)
poli1, c_1, a, b = Polygon(A, B, C)