Fil:Electric dipole radiation.gif
Hopp til navigering
Hopp til søk
Ingen høyere oppløsning tilgjengelig.
Electric_dipole_radiation.gif (360 × 376 piksler, filstørrelse: 699 KB, MIME-type: image/gif, gjentas, 21 rammer)
Beskrivelse
| Beskrivelse |
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. |
| Dato | |
| Kilde | https://twitter.com/j_bertolotti/status/1074594637879353344 |
| Opphavsperson | Jacopo Bertolotti |
| Tillatelse (Gjenbruk av denne filen) |
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]
Lisensiering
Jeg, rettighetsinnehaver av dette arbeidet, publiserer det herved under følgende lisens:
 
|
Denne filen er gjort tilgjengelig under lisensen Creative Commons CC0 1.0 Universal Fristatus-erklæring. |
| Personen som koblet et verk med dette dokumentet har tilegnet arbeidet til allmennheten ved, i den utstrekning loven tillater det, å avstå fra alle de rettigheter vedkommende skulle hatt ifølge opphavsrettsloven og andre relaterte eller nærliggende juridiske rettigheter. Verk under CC0 krever ikke attributtering. Ved bruk av verket trenger du ikke å få godkjennelse fra opphavspersonen.
|
|
Denne filen, som opprinnelig ble lastet opp til https://twitter.com/j_bertolotti/status/1030470604418428929, ble gjennomgått den 17 December 2018 av en administrator eller reviewer Ronhjones, som bekreftet at den var tilgjengelig der under utstedt lisens på den datoen.
|
Filhistorikk
Klikk på et tidspunkt for å vise filen slik den var på det tidspunktet.
| Dato/klokkeslett | Miniatyrbilde | Dimensjoner | Bruker | Kommentar | |
|---|---|---|---|---|---|
| nåværende | 17. des. 2018 kl. 16:56 | | 360 × 376 (699 KB) | wikimediacommons>Berto | User created page with UploadWizard |
Filbruk
Den følgende siden bruker denne filen:
