User:Wakebrdkid/Slider (computing)

Article

Tests

BeginPackage["Wikicode`Slider`Computing`"]

LogSlider::usage = "LogSlider[Dynamic[x],max] creates a slider with a \
logarithmic scale that manipulates the value of x from 1 to max."

Begin["`Private`"]

LogSlider[Dynamic[x_], max_] :=
 Slider[Dynamic[Log[max, x], (x = max^#) &]]

End[]
EndPackage[]

References

"Logarithmic slider". Mathematica Stack Exchange. Retrieved 9 February 2014.