Dopplerův jev

Vizualizace oscilátoru

Následující aplet ukazuje grafy posunu frekvence při Dopplerově jevu. Tedy jak se mění Modifikovaná a Pozorovaná frekvence oscilátoru, 
v závislosti na rychlosti, jíž se oscilátor pohybuje. V případě hůře vykresleného jednoho z grafů, lze použít posuvník Měřítko na zpřehlednění situace.

Tlačítko Uložit obrázek uloží aktuální stav grafů se všemi popisky do složky, v níž je uložen tento notebook, pod názvem uloženým v proměnné FileName, k čemuž se navíc připojí i pořadové číslo ukládaného obrázku. Nutno si uvědomit, že se při každém spuštění apletu obrázky začínají číslovat od jedné, a tak může dojít k přepsání obrázků předchozích.

Zdrojový kód

c=299792458;
nano=10^-9;
femto=10^-15;
FileName="dopler_grafy_.jpg";
path=NotebookDirectory[];
saved=0;
Dopplergrafy=Manipulate[
vlastnifrce=Plot[Sin[(c/λ*2π*t)*femto],{t,0,meritko},AxesLabel->{"(t/fs)","y"}];
ModVlastniFrce=Plot[Sin[Simplify[c/λ*(Sqrt[1-(v^2/c^2)])]*2π*t*femto],{t,0,meritko},AxesLabel->{"(t/fs)","y"}];
Pozorovanafrce=Plot[Sin[Simplify[c/λ*(Sqrt[1-(v^2/c^2)])]/(1-v/c) *2π*t*femto],{t,0,meritko},AxesLabel->{"(t/fs)","y"}];
picture=Grid[{{Text[Style["Vlastní frekvence oscilátoru",12,FontFamily->Times]],Text[Style["Modifikovaná frekvence oscilátoru",12,FontFamily->Times]],Text[Style["Pozorovaná frekvence oscilátoru",12,FontFamily->Times]]},
{vlastnifrce,ModVlastniFrce,Pozorovanafrce,Column[{Text[Style[StringJoin["λ = ",ToString[λ/nano]," nm"],16,Darker[Green,0.6],FontFamily->Times]],Text[Style[StringJoin["v = ",ToString[Round[1.(v/c),0.001]]," c"],16,Blue,FontFamily->Times]]}]}}],
{{λ,10^-7,Style["λ",14,Darker[Green,0.6],FontFamily->Times,Italic]},10^-7,10^-6,5*10^-8},
{{v,0,Style["v",14,Blue,FontFamily->Times, Italic]},0,0.999*c,5 (10^5)},
{{meritko,5,Style["Měřítko",12,Black,FontFamily->Times]},5,10,0.1},
Delimiter,
Button["Uložit obrázek",{saved=saved+1,Export[StringInsert[StringJoin[path,FileName],ToString[saved],-5],picture]},ImageSize->{200,Automatic}],
ControlPlacement->Bottom,
FrameLabel->{Style["© Zbyněk Pitra, DMP - Elektromagnetické záření 2008/2009",8,Black,FontFamily->Times],"",Style["Grafy Dopplerova jevu",22,Black,FontFamily->Times],""}];

Spuštění apletu - Klikněte do následující buňky, stiskněte Shift+Enter a v dotazu, jež se zobrazí stiskněte tlačítko Yes.

Dopplergrafy