PRINT
PRINT "音波のドップラー効果 （無風状態）"
PRINT "          音速  ３４０ｍ/秒      車速  ２０ｍ/秒 "
PRINT "最初は音源も貴方も静止してます。"
PRINT "まず、音源を貴方に近づけます。（貴方は静止）"
PRINT "次に、貴方は音に近づきます。（音源は静止）"
PRINT "その次に、音源を貴方から遠ざけます。（貴方は静止）"
PRINT "その次に、貴方は音源から遠ざかります。（音源は静止）"
PRINT "もう一度最初の音を聞いてください。"
PRINT "今度は、音源を貴方に近づけながら、貴方は音源に近寄ります。"
PRINT "最後に、音源を貴方から遠ざけながら、貴方は音源から遠ざかります。"
PRINT
INPUT PROMPT "音源の地面に対する速さ？  a = ":a
INPUT PROMPT "貴方の地面に対する速さ？  b = ":b
PRINT
PRINT "ヘルツ"
LET V=340
LET F=440
LET D1=V/(V-a)
LET D2=(V+b)/V
LET D3=V/(V+a)
LET D4=(V-b)/V
LET D5=(V+b)/(V-a)
LET D6=(V-b)/(V+a)
PRINT "f =";F
BEEP F ,3000
PRINT "   ";F*D1
BEEP F*D1 ,3000
PRINT "   ";F*D2
BEEP F*D2 ,3000
PRINT "   ";F*D3
BEEP F*D3 ,3000
PRINT "   ";F*D4
BEEP F*D4 ,3000
PRINT "   ";F
BEEP F ,3000
PRINT "   ";F*D5
BEEP F*D5 ,3000
PRINT "   ";F*D6
BEEP F*D6 ,3000
PRINT
print " 音名   振動数"
PRINT "  Ｂ    ";440*45/40
PRINT "＃Ａ    ";440*25/24
PRINT "  Ａ    ";440
PRINT "♭Ａ    ";440*24/25
PRINT "  Ｇ    ";440*36/40
PRINT 
PRINT "f'= 440 * (V+b)/(V-a)"
PRINT
END