Back to Gallery
  • Remix
  • Share
  • New Entry

  • Teodo

  • /

  • EMW information propagation

on 20 Nov 2023
  • 9
  • 15
  • 0
  • 0
  • 711
drawframe(1);
Write your drawframe function below
function drawframe(f)
% Decode the message :)
a = linspace(-10,10,100);
b = linspace(-10,10,100);
c = linspace(-10,10,100);
[x, y, z] = meshgrid(a, b, c);
Ex = rand(1,100).*sin(2*pi/5*z);
Ey = 0*x;
Ez = 0*x;
[Bx, By, Bz, v] = curl(x, y, z, Ex, Ey, Ez);
Ew = 0*a;
Bw = 0*a;
for i=1:100
Ew(i) = mean(mean(Ex(:,:,i),1),2);
Bw(i) = mean(mean(By(:,:,i),1),2);
end
kf=f.*Ew(1:3:100);
jf=f.*Bw(1:3:100);
hold on
plot3(0*a, b, Ew, 'r', 'LineWidth', 2); hold on
h = quiver3(0*a(1:3:100), b(1:3:100), 0*c(1:3:100), 0*a(1:3:100), 0*b(1:3:100), kf, 0, 'b', 'LineWidth', 1);
set (h, "maxheadsize", 0.0);
plot3(Bw, b, 0*c, 'r', 'LineWidth', 2);
h = quiver3(0*a(1:3:100), b(1:3:100), 0*c(1:3:100), jf, 0*b(1:3:100), 0*c(1:3:100), 0, 'g', 'LineWidth', 1);
set (h, "maxheadsize", 0.0);
view(-51, 14)
grid on, axis off
end
Animation
Remix Tree