用Mathematica写一个关于多普勒效应的程序

下面是一个用Mathematica编写的多普勒效应程序：

(*定义常数*)
c = 299792458;  (*光速*)
f0 = 440;       (*发射频率*)
v = 100;         (*观察者速度*)

(*计算接收频率*)
f = f0*Sqrt[(c + v)/(c - v)];

(*输出结果*)
Print["接收频率为：", f, " Hz"];

这个程序计算了一个发射频率为440Hz的信号，当接收者以100m/s的速度向信号源运动时，接收到的频率是多少。程序输出结果为：

接收频率为：440 Sqrt[(299792558/299792358)] Hz

即接收到的频率是440乘以光速相对速度的平方根，约为441Hz。