指向性

平野拓一

2D Radiation Pattern

λ = 1. ;
k = ((2*π)/λ);
i0 = 1. ;
l = 1.5*λ;
h = l/2;
pat[θ_] := 
        If[θ ≠ -π  &&  θ ≠ 
              0  &&  θ ≠ π, ((i0*(Cos[h*k] - Cos[h*k*Cos[θ]]) Csc[(θ/2)] Sec[(θ/2)])/k), 
          0];

ParametricPlot[{{pat[t]*Sin[t], 
          pat[t]*Cos[t]}, 
{-pat[t]*Sin[t], 
          pat[t]*Cos[t]}}, {t, 0, Pi}, 
AspectRatio -> 
        Automatic, 
Ticks -> 
        None, 
PlotStyle -> {AbsoluteThickness[
            2]}, 
AxesStyle -> {AbsoluteThickness[
            2]}, 
AxesLabel -> {"x", "z"}]