Explore fórmulas físicas fundamentais 

Extraia uma lista das grandezas físicas em cada fórmula que contenha a constante de Planck, a velocidade da luz ou a constante gravitacional.

In[1]:=

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

Veja que pares de grandezas físicas aparecem juntas em fórmulas mais frequentemente.

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]=