Ficheiro:Electric dipole radiation.gif

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

Electric_dipole_radiation.gif ‎(360 × 376 píxeis, tamanho: 699 kB, tipo MIME: image/gif, cíclico, 21 quadros)

Descrição do ficheiro

Descrição
English: Modulus of the Poynting vector for an oscillating electric dipole (exact solution). The two charges are shown as two small black dots. The white area is saturated.
Data
Origem https://twitter.com/j_bertolotti/status/1074594637879353344
Autor Jacopo Bertolotti
Permissão
(Reutilizar este ficheiro)		 https://twitter.com/j_bertolotti/status/1030470604418428929

Mathematica 11.0 code

a = 1;
\[Omega] =(*0.9/(a 2 \[Pi])*)0.05
rsed[t_] := {0, a Sin[2 \[Pi] \[Omega] t], 0}; (*position of the source*)
c = 1; (*speed of light*)
\[Beta]ed[t_] := Evaluate@D[rsed[t1], t1] /. t1 -> t;
d\[Beta]ed[t_] := Evaluate@D[\[Beta]ed[t1], t1] /. t1 -> t;
\[Gamma]ed[t_] := 1/Sqrt[1 - Norm[\[Beta]ed[t]]^2];
ned[r_, t_] := (r - rsed[t])/Norm[r - rsed[t]];
tred[r_, t_] := t - Norm[r - rsed[t]]/c;
Efed[q_, r_, t_] := (q (ned[r, t] - \[Beta]ed[t])/(\[Gamma]ed[t]^2 (1 - ned[r, t].\[Beta]ed[t])^3 Norm[r - rsed[t]]^2) + q ned[r, t] \[Cross]((ned[r, t] - \[Beta]ed[t])\[Cross]d\[Beta]ed[t])/(c (1 - ned[r, t].\[Beta]ed[t])^3 Norm[r - rsed[t]]) )
Bfed[q_, r_, t_] := (q (c (\[Beta]ed[t]\[Cross]ned[r, t]))/(\[Gamma]ed[t]^2 (1 - ned[r, t].\[Beta]ed[t])^3 Norm[r - rsed[t]]^2) + q ned[r, t] \[Cross](ned[r, t]\[Cross]((ned[r, t] - \[Beta]ed[t])\[Cross]d\[Beta]ed[t]))/((1 - ned[r, t].\[Beta]ed[t])^3 Norm[r - rsed[t]]) )
Sed[q_, r_, t_] := Efed[q, r, t]\[Cross]Bfed[q, r, t]
\[Tau] =.
p1 = Table[
  DensityPlot[Norm[Sed[1, {x, y, 0}, tred[{x, y, 0}, \[Tau]]] + Sed[-1, {x, y, 0}, tred[{x, y, 0}, \[Tau] + 1/(2 \[Omega])]] ] , {x, -30, 30}, {y, -30, 30}, ColorFunction -> "AvocadoColors", 
   PlotRange -> {0, 0.0005}, AspectRatio -> 1, PlotPoints -> 100, Frame -> False, Epilog -> {Black, Disk[rsed[\[Tau]][[1 ;; 2]], 0.5 ], Disk[rsed[\[Tau] + 1/(2 \[Omega])][[1 ;; 2]], 0.5]}, PlotLabel -> "Electrc dipole, |S|", LabelStyle -> {Black, Bold}], {\[Tau], 0, 1/\[Omega], 1/(\[Omega] 20)}]
ListAnimate[p1, 10]

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.

Este ficheiro, originalmente carregado no site https://twitter.com/j_bertolotti/status/1030470604418428929, foi revisto em 17 de dezembro de 2018 pelo administrador ou revisor Ronhjones, que confirmou que o ficheiro estava disponível naquela data com a licença especificada.

Legendas

Adicione uma explicação de uma linha do que este ficheiro representa

Elementos retratados neste ficheiro

retrata

criador

Um valor sem um elemento no repositório Wikidata

URL: https://commons.wikimedia.org/wiki/user:Berto
nome de usuário(a) na Wikimedia: Berto
nome do autor: Jacopo Bertolotti

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
atual14h56min de 17 de dezembro de 2018Miniatura da versão das 14h56min de 17 de dezembro de 2018360 × 376 (699 kB)BertoUser created page with UploadWizard

A seguinte página usa este ficheiro:

Utilização global do ficheiro

As seguintes wikis usam 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.

Obtida de "https://pt.wikipedia.org/wiki/Ficheiro:Electric_dipole_radiation.gif"