%定义向量θ和φ
φ=π[0];
θ= linspace(π-π,501)。';
%计算U
U(θ,φ)= eta / 2 ((1 j * k *我* L * exp (1 j * k * r)) / 4 *π)。^ 2 * (cos(θ)* cos(φ)+罪(φ))^ 2
% U正常化
U =美国/ max (U (:));
%的阴谋
图;
polarplot(θ,U(: 1),“线宽”,2);
抓住;
polarplot(θ,U(:, 2),“线宽”,2);
传奇(“\φ= 0”、“\φ= 180 ")