Soubor:EM-Wave.gif
Skočit na navigaci
Skočit na vyhledávání
Větší rozlišení není k dispozici.
EM-Wave.gif (627 × 522 pixelů, velikost souboru: 848 KB, MIME typ: image/gif, ve smyčce, 31 snímků, 3,1 s)
Popis
| Popis |
English: plane linearly polarized wave
Deutsch: linear polarisierte elektromagnetische Welle |
| Datum | |
| Zdroj | Vlastní dílo |
| Autor | And1mu |
Source Code
|
Script to create the animation: #!/bin/bash
set -eu
DIR="animate"
FILE="EM-Wave"
NUM=0
rm -f ${DIR}/frame???.png
for ANG in $(seq 0 0.05 1.5) ; do
echo "Creating frame $NUM ..."
POS=$ANG
echo $POS $ANG
sed -i "s/\\\def\\\myt{.\+}/\\\def\\\myt{$POS}/" ${FILE}.tex
pdflatex -shell-escape ${FILE}.tex 1> /dev/null
echo "Convert to png ..."
NUMSTR=$(printf "%03d" $NUM)
convert -density 200 ${FILE}.svg -shave 3 ${DIR}/frame${NUMSTR}.png
NUM=$(($NUM+1))
done
cd $DIR
convert -delay 10 -loop 10000 frame*.png ${FILE}.gif
cd -
The code to create a single frame (EM-Wave.tex): \documentclass[crop,border=15,tikz,convert={outext=.svg,command=\unexpanded{pdf2svg
\infile\space\outfile}},multi=false]{standalone}
\usepackage{tikz-3dplot}
\def\myt{0.5}
\def\mypi{3.141592653589793}
\tdplotsetmaincoords{70}{120}
\begin{document}
\begin{tikzpicture}[>=latex,scale=1,tdplot_main_coords]
\fill[white] (-4,-4.75,-5.5) rectangle (-4,4.5,3.25);
\draw[->] (0,0,0) -- (3,0,0) node[anchor=north east]{$z$};
\draw[->] (0,-1,0) -- (0,5.5,0) node[anchor=north west]{$x$};
\draw[->] (0,0,0) -- (0,0,3) node[anchor=south]{$y$};
\tdplotsetrotatedcoords{0}{90}{90}
\draw[thick,blue,smooth,domain=-1:5,samples=200,tdplot_rotated_coords] plot
function {2*sin(4*(x-\myt))};
\tdplotsetrotatedcoords{0}{0}{90}
\draw[thick,red,smooth,domain=-1:5,samples=200,tdplot_rotated_coords] plot
function {-2*sin(4*(x-\myt))};
%\tdplotsetrotatedcoords{0}{0}{0}
\foreach \a in {-1,-0.9,...,5}{
\def\E{{2*sin(4*180/\mypi*(\a-\myt))}}
\draw[blue] (0,\a,0) -- (0,\a,\E);
\draw[red] (0,\a,0) -- (\E,\a,0);
}
\draw[ultra thick,blue,->,tips=proper] (0,5,0) --
(0,5,{2*sin(4*180/\mypi*(5-\myt))}) node[anchor=west]{$\vec{E}$};
\draw[ultra thick,red,->,tips=proper] (0,5,0) --
({2*sin(4*180/\mypi*(5-\myt))},5,0) node[anchor=north west]{$\vec{B}$};
\end{tikzpicture}
\end{document}
|
Licence
Já, držitel autorských práv k tomuto dílu, ho tímto zveřejňuji za podmínek následující licence:
Tento soubor podléhá licenci Creative Commons Uveďte autora-Zachovejte licenci 4.0 International
- Dílo smíte:
- šířit – kopírovat, distribuovat a sdělovat veřejnosti
- upravovat – pozměňovat, doplňovat, využívat celé nebo částečně v jiných dílech
- Za těchto podmínek:
- uveďte autora – Máte povinnost uvést autorství, poskytnout odkaz na licenci a uvést, pokud jste provedli změny. Toho můžete docílit jakýmkoli rozumným způsobem, avšak ne způsobem naznačujícím, že by poskytovatel licence schvaloval nebo podporoval vás nebo vaše užití díla.
- zachovejte licenci – Pokud tento materiál jakkoliv upravíte, přepracujete nebo použijete ve svém díle, musíte své příspěvky šířit pod stejnou nebo slučitelnou licencí jako originál.
Historie souboru
Kliknutím na datum a čas se zobrazí tehdejší verze souboru.
| Datum a čas | Náhled | Rozměry | Uživatel | Komentář | |
|---|---|---|---|---|---|
| současná | 14. 5. 2021, 19:31 | | 627 × 522 (848 KB) | wikimediacommons>Schwunkel | Reverted to version as of 18:31, 1 June 2017 (UTC) |
Využití souboru
Tento soubor používá následující stránka:
