Fail:EM-Wave.gif
Mine navigeerimisribale
Mine otsikasti
Sellest suuremat pilti pole.
EM-Wave.gif (627 × 522 pikslit, faili suurus: 848 KB, MIME tüüp: image/gif, korduv, 31 kaadrit, 3,1 s)
Lühikirjeldus
| Kirjeldus |
English: plane linearly polarized wave
Deutsch: linear polarisierte elektromagnetische Welle |
| Kuupäev | |
| Allikas | Üleslaadija oma töö |
| 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}
|
Litsents
Autoriõiguse omanikuna avaldan selle teose järgmise litsentsi all:
See fail kuulub Creative Commonsi rahvusvahelise litsentsi "Autorile viitamine + jagamine samadel tingimustel 4.0" alla.
- Tohid:
- jagada – teost kopeerida, levitada ja edastada
- kohandada – valmistada muudetud teoseid
- Järgmistel tingimustel:
- omistamine – Pead materjali sobival viisil autorile omistama, tooma ära litsentsi lingi ja märkima ära, kas on tehtud muudatusi. Sobib, kui teed seda mõistlikul viisil, kuid seejuures ei tohi jääda muljet, et litsentsiandja tõstab esile sind või seda, et sina materjali kasutad.
- sarnaselt jagamine – Kui töötled, kujundad ümber või arendad materjali edasi, siis pead oma töö levitamiseks kasutama sama litsentsi, mille all on algupärand, või ühilduvat litsentsi.
Faili ajalugu
Klõpsa kuupäeva ja kellaaega, et näha sel ajahetkel kasutusel olnud failiversiooni.
| Kuupäev/kellaaeg | Pisipilt | Mõõtmed | Kasutaja | Kommentaar | |
|---|---|---|---|---|---|
| viimane | 14. mai 2021, kell 19:31 | | 627 × 522 (848 KB) | wikimediacommons>Schwunkel | Reverted to version as of 18:31, 1 June 2017 (UTC) |
Faili kasutus
Seda faili kasutavad järgmised 2 lehekülge:
