Fundamentale physikalische Formeln untersuchen 

Extrahieren Sie eine Liste der physikalischen Größen aus jeder Formel, die das Plancksche Wirkungsquantum, die Lichtgeschwindigkeit oder die Gravitationskonstante enthält.

In[1]:=

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

Zeigen Sie, welche physikalischen Größen am häufigsten paarweise in Formeln vorkommen.

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