0

0

1

1

x

y

n = 1 (slider from 1 to 9, step 1)
A = (-2, 0)
xline = OrthogonalLine(A, xAxis)
zeroline = OrthogonalLine(A, xline)
B = Point(zeroline)
yline = OrthogonalLine(B, zeroline)
C = Point(xline)
oneline = OrthogonalLine(C, xline)
D = Intersect(yline, oneline)
E = Point(xline)
in: y(E) / y(C)
images: {abs(in), sqrt(in), sin(in), (0.5 * in) - 1, cos(in), in^(2), log(in), 1 / in, 2^(in)}
out = Element(images, n)
F: (x(B), (out * y(D)))
arrow = Segment(E, F)