Asimov's Ladder of Physical Constants
Asimov's Ladder of Physical Constants
Manipulate[Graphics[{Style[Text[Grid[(#[[All,{1,3}]]),Spacings0,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[,{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},ControlTypeVerticalSlider,ControlPlacementLeft,SynchronousInitializationFalse,Initialization(Get["PhysicalConstants`"];steps=Split[Sort[({StringReplace[#,s_?UpperCaseQ" "<>s],MantissaExponent[First[Cases[{Symbol[#]},_?NumericQ,∞,HeadsTrue]]]〚2〛,DisplayForm[ToBoxes[N@Symbol[#]]/.FractionBox[a__,b__]RowBox[{a,"/",b}]]}&)/@Names["PhysicalConstants`*"],#[[2]]>#2[[2]]&],#[[2]]==#2[[2]]&];)]
n
HoldForm[10]
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.