Descubra, manipule e compare fórmulas 

Encontre equações para o efeito Doppler na frequência fazendo uma consulta usando a linguagem natural.

In[1]:=

X FormulaLookup["doppler shift frequency"]

Out[1]=

Obtenha uma equação específica.

In[2]:=

X FormulaData[{"DopplerShift", "Frequency"}]

Out[2]=

Defina funções que são resolvidas para variáveis ​​quantitativas específicas.

In[3]:=

X doppler[v_] := Last@FormulaData[{"DopplerShift", "Frequency"}, {QuantityVariable[ \!\(\*SubscriptBox[\("f"\), \("s"\)]\),"Frequency"] -> Quantity[400, "Megahertz"], QuantityVariable[ \!\(\*SubscriptBox[\("v"\), \("s"\)]\),"Speed"] -> v, "c" -> Quantity[1, "SpeedOfLight"]}]

In[4]:=

X dopplerrelativistic[v_] := Last@FormulaData[{"DopplerShiftRelativistic", "Frequency"}, {QuantityVariable[ \!\(\*SubscriptBox[\("f"\), \("s"\)]\),"Frequency"] -> Quantity[400, "Megahertz"], QuantityVariable[ \!\(\*SubscriptBox[\("v"\), \("s"\)]\),"Speed"] -> v}]

Compare fórmulas relativistas e não-relativistas.

In[5]:=

X Plot[{doppler[Quantity[v, "SpeedOfLight"]], dopplerrelativistic[Quantity[v, "SpeedOfLight"]]}, {v, 0, 0.9}, Frame -> True, FrameLabel -> Automatic]

Out[5]=