Ficheiro:Diffraction_single_slit.gif
De Wikipedia, a enciclopédia encyclopedia
Diffraction_single_slit.gif (360 × 381 píxeis, tamanho: 6,11 MB, tipo MIME: image/gif, cíclico, 100 quadros, 10 s)
Esta imagem provém do Wikimedia Commons, um acervo de conteúdo livre da Wikimedia Foundation que pode ser utilizado por outros projetos.
|
Descrição do ficheiro
DescriçãoDiffraction single slit.gif |
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
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.
http://creativecommons.org/publicdomain/zero/1.0/deed.enCC0Creative Commons Zero, Public Domain Dedicationfalsefalse |
Elementos retratados neste ficheiro
retrata
Um valor sem um elemento no repositório Wikidata
9 março 2020
image/gif
Histórico do ficheiro
Clique uma data e hora para ver o ficheiro tal como ele se encontrava nessa altura.
Data e hora | Miniatura | Dimensões | Utilizador | Comentário | |
---|---|---|---|---|---|
atual | 17h22min de 9 de março de 2020 | 360 × 381 (6,11 MB) | Berto | Uploaded own work with UploadWizard |
Utilização local do ficheiro
A seguinte página usa este ficheiro:
Metadados
Este ficheiro contém informação adicional, provavelmente adicionada a partir da câmara digital ou scanner utilizada para criar ou digitalizar a imagem. Caso o ficheiro tenha sido modificado a partir do seu estado original, alguns detalhes poderão não refletir completamente as mudanças efetuadas.
Comentário de ficheiro GIF | Created with the Wolfram Language : www.wolfram.com |
---|