Logo - Logaritam

to log :x

make "n 0
while [(power 2 :n) < :x] [ make "n :n + 1  ]

make "p 0.00000000000001

if ( (abs ((power 2 :n) - :x)) < :p) [op :n]


make "s :n-1
make "e :n

while [ (:e - :s) > :p ] [
	make "n (:s+:e)/2
	make "razlika (power 2 :n) - :x

	if ( (abs :razlika) < :p) [op :n]

	ifelse :razlika > 0 [
		make "e :n
	][
		make "s :n
	]


]

op :n
end