Problem:
Investigate numerically the behavior of the function

for values of x near 0.


Visualization:
Using Maple:

> f:= -> sin(3*x)/x;

> L:=[n, 1/2^n, f(1/2^n), f(-1/2^n)];

> for n from 0 to 10 by 1 do print(evalf(L)); od;