Fitxer:Electric dipole radiation.gif

El contingut de la pàgina no s'admet en altres llengües.
De la Viquipèdia, l'enciclopèdia lliure

Electric_dipole_radiation.gif ‎(360 × 376 píxels, mida del fitxer: 699 Ko, tipus MIME: image/gif, en bucle, 21 fotogrames)

Descripció a Commons

Resum

Descripció
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
Font https://twitter.com/j_bertolotti/status/1074594637879353344
Autor Jacopo Bertolotti
Permís
(Com reutilitzar aquest fitxer)		 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]

Llicència

Jo, el titular dels drets d'autor d'aquest treball, el public sota la següent llicència:
Creative Commons CC-Zero L'ús d'aquest fitxer és regulat sota les condicions de Creative Commons de CC0 1.0 lliurament al domini públic universal.
La persona que ha associat un treball amb aquest document ha dedicat l'obra domini públic, renunciant en tot el món a tots els seus drets de d'autor i a tots els drets legals relacionats que tenia en l'obra, en la mesura permesa per la llei. Podeu copiar, modificar, distribuir i modificar l'obra, fins i tot amb fins comercials, tot sense demanar permís.

Aquest fitxer, que originalment va ser publicat en https://twitter.com/j_bertolotti/status/1030470604418428929, va ser revisat 17 December 2018 pel revisor Ronhjones, qui va confirmar que estava disponible allà sota la llicència establerta en aquesta data.

Llegendes

Afegeix una explicació d'una línia del que representa aquest fitxer

Elements representats en aquest fitxer

representa l'entitat

Historial del fitxer

Cliqueu una data/hora per veure el fitxer tal com era aleshores.

Data/horaMiniaturaDimensionsUsuari/aComentari
actual16:56, 17 des 2018Miniatura per a la versió del 16:56, 17 des 2018360 × 376 (699 Ko)BertoUser created page with UploadWizard

La pàgina següent utilitza aquest fitxer:

Ús global del fitxer

Utilització d'aquest fitxer en altres wikis:

Metadades

Aquest fitxer conté informació addicional, probablement afegida per la càmera digital o l'escàner utilitzat per a crear-lo o digitalitzar-lo. Si s'ha modificat posteriorment, alguns detalls poden no reflectir les dades reals del fitxer modificat.

Obtingut de «https://ca.wikipedia.org/wiki/Fitxer:Electric_dipole_radiation.gif»