/**

sameorderofmagnitude.pl

Metaphysics > Description that Distances Have the Same Order of Magnitude

From quote "walking may change, why it cannot be described by itself"

?- sameorderofmagnitude(1000,100).
false.

?- sameorderofmagnitude(1000,90).
false.

?- sameorderofmagnitude(1000,101).
true.

?- sameorderofmagnitude(101,1000).
true.

?- sameorderofmagnitude(90,1000).
false.

?- sameorderofmagnitude(100,1000).
false.

?- sameorderofmagnitude(1000,10000).
false.

?- sameorderofmagnitude(10000,1000).
false.

?- sameorderofmagnitude(10000,1001).
true.

**/

%% Verifies that two distances (m) are in the same order of magnitude (power of ten)

sameorderofmagnitude(A1,B1) :-
	order(A1,B1,A2,B2),
	A3 is log(A2)/log(10),
	B3 is log(B2)/log(10),
	C is A3-B3,
	N is 1 - 0.000000000001,
	C < N.
order(A,B,A,B) :-
	A >= B, !.
order(A,B,B,A) :-
	A < B.