O = Intersect(xAxis, yAxis)
U = Point(xAxis)
c = Circle(O, U)
A = Point(c)
a = OrthogonalLine(A, xAxis)
B = Intersect(c, a, 2.0)
u = Vector(O, A)
v = Vector(O, B)
t = 1.3
C: A + t * (y(u), -1.0 * x(u))
v_t = Vector(A, C)
α = Angle(A, O, B)
i = (0, 1)
x_α: α + 0.0 * i
n = 4 (slider from 1 to 500, step 1)
suddiv_x = Sequence((k * x(x_α) / n, 0.0), k, 1.0, n - 1.0)
suddiv_α = Sequence((cos(3.141592653589793 - α / 2.0 + k * x(x_α) / n), sin(3.141592653589793 - α / 2.0 + k * x(x_α) / n)), k, 1.0, n - 1.0)
f = 0.3
tensioni = Sequence(t * (1.0 + f * α / n)^(k), k, 0.0, n)
T_n: t * (1.0 + f * α / n)^(n)
v_{tensioni} = Sequence(Vector[Vector[(cos(3.141592653589793 - α / 2.0 + k * x(x_α) / n), sin(3.141592653589793 - α / 2.0 + k * x(x_α) / n)), (cos(3.141592653589793 - α / 2.0 + k * x(x_α) / n), sin(3.141592653589793 - α / 2.0 + k * x(x_α) / n)) + (sin(3.141592653589793 - α / 2.0 + k * x(x_α) / n), -1.0 * cos(3.141592653589793 - α / 2.0 + k * x(x_α) / n)) * t * (1.0 + f * α / n)^(k)]], k, 1.0, n - 1.0)
v_{T_n} = Vector(B, B + T_n * (y(B), -1.0 * x(B)))
y_t: (0.0, t)
y_{T_n} = Vector((α, 0.0), (α, T_n))
punto_{( α , T_n ) ,  con  T_n = t ( 1 + f α /n ) ^ n}: (α, T_n)
tensioni_{  t ( 1 + f α /n ) ^ k ,  con  k = 1 , ... , n -1 } = Sequence(Vector[Vector[(k * x(x_α) / n, 0.0), (k * x(x_α) / n, t * (1.0 + f * α / n)^(k))]], k, 1.0, n - 1.0)
funzione_{ t  exp ( f  x )}(x) = t * exp(f * x)