Kinetická energie klasická a relativistická

Následující aplet graficky porovnává klasickou kinetickou energii pohybujícího se tělesa s kinetickou energií téhož tělesa počítanou na základě speciální teorie relativity.

Tlačítkem Ulož obrázek se uloží právě zobrazené "bílé" okno do aktuální složky (složka, v níž je uložen tento notebook) pod jménem, které je uloženo v proměnné jmenosouboru. K tomuto jménu souboru je při opakovaném ukládání grafu přidáváno pořadové číslo.
Pozor! Při každém spuštění tohoto apletu se začínají soubory číslovat opět od jedné! Tak může dojít k přepsání minule uložených obrázků.

© Jaroslav Reichl, 2008

Příprava pro vykreslení grafu

jmenosouboru="str_energie_.jpg";
cesta=NotebookDirectory[];
pocetulozeni=0;

x1=0;x2=1.1;
y1=-1;y2=1000000000;

deltabeta=0.0001;
m0min=1;m0max=10;deltam=0.5;

<<PhysicalConstants`;
c=SpeedOfLight/.{Meter->1,Second->1};

tloustka=0.005;
velikostbodu=0.02;

barva=Black;
barvagrafu=Blue;
barvagrafuSTR=Magenta;
barvabodu=Lighter[Red,0.5];
barvaboduSTR=Red;
barvav=Darker[Red,0.3];
barvam=Orange;

KinetickaEnergie=Manipulate[Deploy[
Ek[nasobekc_]:=((0.5m0)/(10^9)) (((nasobekc c))^2);
EkSTR[nasobekc_]:=((m0 (c^2))/(10^9))((1/(Sqrt[1-(nasobekc^2)]))-1);
bodgrafu=Point[{beta,Ek[beta]}];
bodgrafuSTR=Point[{beta,EkSTR[beta]}];
spojnice=Line[{{beta,EkSTR[beta]},{beta,0}}];

grafik=Show[
Plot[{Ek[nasobekc],EkSTR[nasobekc]},{nasobekc,0,1-deltabeta},PlotStyle->{{Thickness[tloustka],barvagrafu},{Thickness[tloustka],barvagrafuSTR}},AxesLabel->{"(v/c)","((Subscript[E, k])/GJ)"},PlotRange->All,AxesOrigin->{0,0},AxesStyle->Directive[barva,Thickness[0.7tloustka]]],
Graphics[{
{barva,Dotted,Thickness[0.2tloustka],spojnice},
{barvabodu,PointSize[velikostbodu],bodgrafu},
{barvaboduSTR,PointSize[velikostbodu],bodgrafuSTR}
}],
FormatType->StandardForm,PlotRange->{{x1,x2},{y1,y2}},ImageSize->570
]],

{{m0,m0min,Style["(Subscript[m, 0])",20,barvam,Italic]},m0min,m0max,deltam},
{{beta,0,Style["(v/c)",20,barvav,Italic]},0,1-deltabeta,deltabeta},
Delimiter,
Item[Style[StringJoin["                                                   "],18,barvam,FontFamily->Times],Alignment->Left],
Dynamic[Grid[{
{Item[Style[StringJoin["(Subscript[m, 0]) = ",ToString[m0]," kg"],18,barvam,FontFamily->Times],Alignment->Left]},
{Item[Style[StringJoin["v = ",ToString[beta]," c = ",ToString[beta c,TraditionalForm]," m.(s^(-1))"],17,barvav,FontFamily->Times],Alignment->Left]},
{Item[Style[StringJoin["(Subscript[E, k_klasická]) = ",ToString[Round[Ek[beta],deltabeta],TraditionalForm]," GJ"],17,barvagrafu,FontFamily->Times],Alignment->Left]},
{Item[Style[StringJoin["(Subscript[E, k_STR]) = ",ToString[Round[EkSTR[beta],deltabeta],TraditionalForm]," GJ"],17,barvagrafuSTR,FontFamily->Times],Alignment->Left]}}]],
Delimiter,
Button[" Ulož obrázek ",{pocetulozeni=pocetulozeni+1,Export[StringInsert[StringJoin[cesta,jmenosouboru],ToString[pocetulozeni],-5],grafik]},ImageSize->{100,Automatic}],
ControlPlacement->Left,
FrameLabel->{Style["© Jaroslav Reichl, 2008",10,Black,FontFamily->Times],"",Style[StringJoin["Kinetická energie - ",ToString[Style["klasická",barvagrafu],StandardForm]," a ",ToString[Style["relativistická",barvagrafuSTR],StandardForm]],25,barva,FontFamily->Times],""}];

Spuštění animace
Zpracujte běžným způsobem následující buňku a na dotaz, který se objeví, odpovězte ANO.

KinetickaEnergie