Ficheiro:Diffraction single slit.gif

O conteúdo da página não é suportado noutras línguas.
Origem: Wikipédia, a enciclopédia livre.

Diffraction_single_slit.gif(360 × 381 píxeis, tamanho: 6,11 MB, tipo MIME: image/gif, cíclico, 100 quadros, 10 s)

Descrição do ficheiro

Descrição
English: Diffraction from a slit as a function of the slit width.
Data
Origem https://twitter.com/j_bertolotti/status/1236942357271998465
Autor Jacopo Bertolotti
Permissão
(Reutilizar este ficheiro)
https://twitter.com/j_bertolotti/status/1030470604418428929

Mathematica 12.0 code

p =.
\[Lambda] = 1;
k0 = (2 \[Pi])/\[Lambda];
U0 = HeavisidePi[x/p];
fU = InverseFourierTransform[U0, x, k];

p0 = Table[
   krange = 60 k0;
   \[Delta]k = 0.01 k0;
   zmax = 50;
   dU = Table[
     dfU = Table[fU E^(I Sqrt[k0^2 - k^2] z), {k, -krange, krange, \[Delta]k}];
     dim = Dimensions[dfU][[1]];
     RotateRight[Fourier[dfU], {Ceiling[dim/2]}]
     , {z, 0.001, zmax, \[Lambda]}];
   ListDensityPlot[Abs[dU[[All, 1 ;; -1 ;; 100]]], PlotRange -> All, ColorFunction -> "SunsetColors", DataRange -> {{-(k0/(2 \[Delta]k)), k0/(2 \[Delta]k)}, {0, zmax}}, LabelStyle -> {Black, Bold}, FrameLabel -> {"x/\[Lambda]", "z/\[Lambda]"}, PlotLabel -> "|E|"]
   , {p, 1, 50, 1}];
ListAnimate[p0]

Licenciamento

Eu, titular dos direitos de autor desta obra, publico-a com a seguinte licença:
Creative Commons CC-Zero A utilização deste ficheiro é regulada nos termos Creative Commons - CC0 1.0 Dedicação Universal ao Domínio Público.
A pessoa que associou uma obra a este documento dedicou-a ao domínio público, renunciando a todos os seus direitos sobre a obra em todo o mundo ao abrigo da legislação de direitos de autor, incluindo a todos os direitos legais conexos, na medida permitida por lei. Pode copiar, modificar, distribuir e executar a obra, até com fins comerciais, sem pedir autorização.

Legendas

Adicione uma explicação de uma linha do que este ficheiro representa
Diffraction from a slit as a function of the slit width.

Elementos retratados neste ficheiro

retrata

Um valor sem um elemento no repositório Wikidata

Histórico do ficheiro

Clique uma data e hora para ver o ficheiro tal como ele se encontrava nessa altura.

Data e horaMiniaturaDimensõesUtilizadorComentário
atual17h22min de 9 de março de 2020Miniatura da versão das 17h22min de 9 de março de 2020360 × 381 (6,11 MB)BertoUploaded own work with UploadWizard

A seguinte página usa este ficheiro:

Metadados