Radiation Pattern

2006.2.17 Takuichi Hirano (Tokyo Institute of Technology)

3D Radiation Pattern

<< JavaView`JLink`
InstallJavaView[];

<< Graphics`SurfaceOfRevolution`;
λ = 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];
donut = 
      SurfaceOfRevolution[{pat[t]*Sin[t], pat[t]*Cos[t]}, {t, 0, 
          Pi}, 
BoxRatios -> {1, 1, 
            1}, 
PlotRange -> {{-1, 1}, {-1, 
              1}, {-1, 1}}, 
Boxed -> 
          False, 
Axes -> 
          None
]

geom = JavaView[donut];
geom@setTransparency[0.4];
geom@showTransparency[True];
geom@update[geom];

3D Radiation Pattern

<< JavaView`JLink`
InstallJavaView[];

<< Graphics`Graphics3D`;
<< Graphics`SurfaceOfRevolution`;
donut = 
        SurfaceOfRevolution[{pat[t]*Sin[t], pat[t]*Cos[t]}, {t, 0, 
            Pi}, 
PlotPoints -> 
            30, 
BoxRatios -> {1, 1, 
              1}, 
PlotRange -> {{-1, 1}, {-1, 
                1}, {-1, 1}}, 
Boxed -> 
            False, 
Axes -> 
            None
];
donut = {EdgeForm[AbsoluteThickness[1]], 
          donut[[1]]};
donut2 = 
      Shadow[donut, 
ZShadow -> False]

geom = JavaView[donut];
geom@setTransparency[0.4];
geom@showTransparency[True];
geom@update[geom];