Asimov's Ladder of Physical Constants

Manipulate[Graphics[{Style[Text[Grid[(#[[All,{1,3}]]),Spacings0,Alignment{{Left},{Center}},ItemSize{22}],{-.9,#[[1,2]]-.5}],10,Blue]&/@steps,Thickness[.03],Line[{{-1,-43},{-1,43}}],Line[{{1,-43},{1,43}}],Table[Line[{{-1,n},{1,n}}],{n,-43,43}],Table[Text[

n

HoldForm[10]

,{1.2,n}],{n,-43,43}]},PlotRange{{-3,1.5},{y-.01,y+3.05}},ImageSize{500,350}],{{y,-12,"power of ten"},-35,24},ControlTypeVerticalSlider,ControlPlacementLeft,SynchronousInitializationFalse,Initialization(Get["PhysicalConstants`"];steps=Split[Sort[({StringReplace[#,s_?UpperCaseQ" "<>s],MantissaExponent[First[Cases[{Symbol[#]},_?NumericQ,∞,HeadsTrue]]]〚2〛,DisplayForm[ToBoxes[N@Symbol[#]]/.FractionBox[a__,b__]RowBox[{a,"/",b}]]}&)/@Names["PhysicalConstants`*"],#[[2]]>#2[[2]]&],#[[2]]==#2[[2]]&];)]

power of ten

General

:PhysicalConstants` is now obsolete. The legacy version being loaded may conflict with current functionality. See the Compatibility Guide for updating information.

Isaac Asimov introduced the following idea of representing the powers of ten as steps in a ladder and enumerating objects or phenomena in the universe corresponding to each power. In this Demonstration, fundamental physical constants are located on the ladder.