for(n in 0:16) Calcola(x,2^n)
# 1.897367
# 2.324501
# 2.442025
# 2.479498
# 2.491823
# 2.495951
# 2.497354
# 2.497835
# 2.498002
# 2.49806
# 2.498081
# 2.498088
# 2.49809
# 2.498091
# 2.498091
# 2.498091
# 2.498092
# Introdotto il concetto di coseno potrò poi procedere così
acos(-0.8)
# 2.498092