Author: Batmath

t = 0 (slider from 0 to 1000, step 0.1)
A: (1 / (t + 1), 0)
a = OrthogonalLine(A, xAxis)
P: (1 / (t + 1), sin(t + 1))
b = OrthogonalLine(P, a)
u = Vector(A, P)
text1: "Valore di x=x_A: " + (x(A))
f = If(x > 0.01, sin(1 / x))
text2: "Valore di  \;f(x)=sin\frac{1}{x}: " + (f(1 / (t + 1)))
B = Intersect(b, yAxis)
v = Vector(P, B)
B' = Mirror(B, P)
c = Ray(P, B')