Explore fórmulas fundamentales de física  

Extraiga una lista de magnitudes físicas en cada fórmula que contenga la constante de Planck, la velocidad de la luz o la constante gravitacional.

In[1]:=

X quantities = Flatten[If[ MemberQ[FormulaData[#], "PlanckConstant" | "ReducedPlanckConstant" | "SpeedOfLight" | "GravitationalConstant", \[Infinity]], Subsets[Union[ FormulaData[#, "QuantityVariablePhysicalQuantities"][[All, 2]]], {2}], {} ] & /@ FormulaData[], 1];

Muestre cuáles pares de magnitudes físicas aparecen más frecuentemente juntas en fórmulas.

In[2]:=

X pairs = Select[{UndirectedEdge @@ First[#], Last[#]} & /@ Tally[quantities], Last[#] > 4 &];

In[3]:=

X Graph[First /@ pairs, EdgeWeight -> 1/(Last /@ pairs), VertexLabels -> "Name", ImagePadding -> 50]

Out[3]=