# log of base 10; log10(x_):= If(x==10, 1, if(not(isnumber(x)),log(x)/log(10) )); log10(10^x_):=x; log10(a_=b_):=log10(a)=log10(b);