Radiation Pattern

2004.11.6 Takuichi Hirano (Tokyo Institute of Technology)

3D Radiation Pattern

<< JavaView`JLink`
InstallJavaView[];

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

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