Das Vorkommen physikalischer Größen in Formeln untersuchen 

Ermitteln Sie die am häufigsten vorkommenden physikalischen Größen in Formeln, die Zeit beinhalten.

In[1]:=

X formulas = FormulaLookup[All, RequiredPhysicalQuantities -> {"Time"}]; variables = Flatten[FormulaData[#, "QuantityVariables"] & /@ formulas]; quantities = Flatten[QuantityVariablePhysicalQuantity /@ variables]; data = SortBy[Tally[quantities], Last] // Reverse;

In[2]:=

X BarChart[data[[2 ;; 20, 2]], ChartLabels -> (Rotate[#, Pi/2] & /@ data[[2 ;; 20, 1]])]

Out[2]=