load('Representative_Data.mat')
[Right_evec(:,:,k),eval(:,:,k)] = eig(smat(:,:,k));
Phase_Component_1 = angle(Right_evec(1,1,:));
Phase_Component_2 = angle(Right_evec(2,2,:));
Right_evec(:,1,:) = Right_evec(:,1,:).*exp(-1i*Phase_Component_1);
Right_evec(:,2,:) = Right_evec(:,2,:).*exp(-1i*Phase_Component_2);
Inner_Product(k) = Right_evec(:,1,k)'*Right_evec(:,2,k);
figure('Position',[200,100,1500,730]);
scatter(x_pts,real(Eval_1),Marker_size,'filled'); hold on;
scatter(x_pts,imag(Eval_1),Marker_size,'filled');
scatter(x_pts,real(Eval_2),Marker_size,'filled');
scatter(x_pts,imag(Eval_2),Marker_size,'filled');
xlabel('Frequency (GHz)')
legend('Re \lambda_1','Im \lambda_1','Re \lambda_2','Im \lambda_2')
figure('Position',[200,100,1500,730]);
scatter(x_pts,real(squeeze(Right_evec(1,1,:))),Marker_size,'filled'); hold on;
scatter(x_pts,real(squeeze(Right_evec(2,2,:))),Marker_size,'filled');
xlabel('Frequency (GHz)')
ylabel('Eigenvector components')
figure('Position',[200,100,1500,730]);
scatter(x_pts,real(squeeze(Right_evec(2,1,:))),Marker_size,'filled'); hold on;
scatter(x_pts,imag(squeeze(Right_evec(2,1,:))),Marker_size,'filled');
scatter(x_pts,real(squeeze(Right_evec(1,2,:))),Marker_size,'filled');
scatter(x_pts,imag(squeeze(Right_evec(1,2,:))),Marker_size,'filled');
xlabel('Frequency (GHz)')
ylabel('Eigenvector components')
legend('Re B','Im B','Re C','Im C')
figure('Position',[200,100,1500,730]);
scatter(x_pts,real(Inner_Product),Marker_size,'filled'); hold on;
xlabel('Frequency (GHz)')