clear all
close all

%% load constants
c=2.998e8;

%% parameters
q1=1;
q2=100*q1;

a=1;%value of alpha

z0=q2/2;
we=(q1*q2/2)^0.5;

Nx=200;
Nz=800;
x=linspace(-40*q1,40*q1,Nx);
z=linspace(-60*q1,60*q1,Nz);
[xx,zz]=meshgrid(x,z);
rho=abs(xx);
E=zeros(size(xx));
Amp=E;
for it=-2:2

t=-it*25*q1/c; %time
tau=zz-c*t;sigma=zz+c*t;
% C=1;
A=(rho.^2+(q1+i*tau).*(q2-i*sigma));
Etheta = -1i*a*(a+1)*rho.*(q1+i*tau).^(a-1).*(q1+q2-i*sigma)./ A.^(a+2);
Etheta = Etheta +a*(a-1)*rho.*(q1+i*tau).^(a-2)./A.^(a+1);
rE=real(Etheta);rE=rE/max(max(abs(rE)));
iE=imag(Etheta);iE=iE/max(max(abs(iE)));
 
E=E+rE;

end

imagesc(x,z,E);axis equal;axis tight;xlabel('x/q_1');ylabel('z/q_1');
box on;set(gcf,'Color','w')
title('$Re({E}_{\theta})$','Interpreter','latex')
set(gcf,'Position',[ 760    80   400   400],'InvertHardCopy','off')
ylim([z(1) z(end)]);xlim([x(1) x(end)])