kill(all)$ fpprintprec:2$

     Van | facebook.com/LearningCalculus | 2015

Log(a,u):=log(x)/log(a);

e(x):=(abs(x+1+2*%i)-2)/(sqrt(2)-1);

f(x):=1-Log(2,e(x))$ f(x);

makelist([x,float(f(x))],x,[0.1,1,1.1,1.9,2,2.1]);