Created
September 14, 2021 13:14
-
-
Save StoneLabs/297ff13f628fa25eae42f3ee238c1242 to your computer and use it in GitHub Desktop.
Units over time
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| TextGrid[VALS = | |
| Cases[Apply[ | |
| Flatten[{#1, {"StandardYear", "Value", | |
| "StandardUncertainty"} /. #2}] &, | |
| Entity["PhysicalConstant", "GravitationalConstant"][ | |
| "ValueAssociation"], {1}], {source_, y_Integer, | |
| rest__} :> {source, DateObject[{y}], rest}], | |
| Sequence[Dividers -> All, | |
| Background -> {Automatic, {{LightBlue, None}}}]] | |
| hvals = Callout[{#2, | |
| Around[#3 - Quantity["GravitationalConstant"], #4]}, #1] & @@@ | |
| VALS; | |
| DateListPlot[Sort@hvals, | |
| PlotLabel -> | |
| "Deviation from " <> ToString[Quantity["GravitationalConstant"]], | |
| FrameLabel -> {Automatic, Automatic}] |
Author
StoneLabs
commented
Sep 14, 2021
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment