(* Content-type: application/mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 7.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[     60928,       1428]
NotebookOptionsPosition[     42909,       1085]
NotebookOutlinePosition[     59312,       1379]
CellTagsIndexPosition[     59269,       1376]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[TextData[StyleBox["Radiation Pattern of a Dipole Antenna with Arbitrary \
Orientation",
 FontSize->22,
 FontColor->RGBColor[0., 0., 0.]]], "DemoTitle",
 CellChangeTimes->{
  3.35696210375764*^9, {3.444542949015625*^9, 3.44454297809375*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`Lpwl$$ = 1.4, $CellContext`mesh$$ = 
    None, $CellContext`opac$$ = 1, $CellContext`pg$$ = 
    "Speed", $CellContext`phi$$ = 120, $CellContext`step$$ = 
    3, $CellContext`theta$$ = 30, $CellContext`viewpoint$$ = {{1, 1, 1}, {0, 
    0, 1}}, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, 
    Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 
    1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`Lpwl$$], 1.4, "L/\[Lambda]"}, 0.1, 10., 0.1}, {{
       Hold[$CellContext`mesh$$], None, "mesh"}, {
      None -> "none", 15 -> "automatic", Full -> "full"}}, {
      Hold[""], Manipulate`Dump`ThisIsNotAControl}, {{
       Hold[$CellContext`opac$$], 1, "opacity"}, {0., 0.1, 0.2, 
      0.30000000000000004`, 0.4, 0.5, 0.6000000000000001, 0.7000000000000001, 
      0.8, 0.9, 1.}}, {
      Hold[""], Manipulate`Dump`ThisIsNotAControl}, {{
       Hold[$CellContext`step$$], 3, "step [\[Degree]]"}, {10, 9, 6, 5, 4, 3, 
      2, 1}}, {
      Hold[""], Manipulate`Dump`ThisIsNotAControl}, {{
       Hold[$CellContext`pg$$], "Speed", "goal"}, {"Speed", "Quality"}}, {
      Hold[
       Style["Dipole Axis Orientation", 
        RGBColor[1, 0.5, 0], Bold, FontSize -> 14, FontFamily -> "Arial"]], 
      Manipulate`Dump`ThisIsNotAControl}, {
      Hold[""], Manipulate`Dump`ThisIsNotAControl}, {{
       Hold[$CellContext`theta$$], 30, 
       "\!\(\*SubscriptBox[\(\[Theta]\), \(\[ScriptL]\)]\) [\[Degree]]"}, 0, 
      180, 5}, {{
       Hold[$CellContext`phi$$], 120, 
       "\!\(\*SubscriptBox[\(\[Phi]\), \(\[ScriptL]\)]\) [\[Degree]]"}, 0, 
      360, 5}, {{
       Hold[$CellContext`viewpoint$$], {{1, 1, 1}, {0, 0, 1}}}}, {{
       Hold[$CellContext`viewpoint$$], {{1, 1, 1}, {0, 0, 1}}, 
       "ViewPoint"}, {{{1, 1, 1}, {0, 0, 1}} -> 
       "Reset", {{0, 0, 1}, {0, 0, 1}} -> "+z", {{0, 0, -1}, {0, 0, 1}} -> 
       "-z", {{0, 1, 0}, {0, 0, 1}} -> "+y", {{0, -1, 0}, {0, 0, 1}} -> 
       "-y", {{1, 0, 0}, {0, 0, 1}} -> "+x", {{-1, 0, 0}, {0, 0, 1}} -> 
       "-x"}}}, Typeset`size$$ = {500., {248., 252.}}, Typeset`update$$ = 0, 
    Typeset`initDone$$, Typeset`skipInitDone$$ = 
    False, $CellContext`Lpwl$1243$$ = 0, $CellContext`mesh$1244$$ = 
    False, $CellContext`opac$1245$$ = 0, $CellContext`step$1246$$ = 
    0, $CellContext`pg$1247$$ = False, $CellContext`theta$1248$$ = 
    0, $CellContext`phi$1249$$ = 0, $CellContext`viewpoint$1250$$ = False}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`Lpwl$$ = 1.4, $CellContext`mesh$$ = 
        None, $CellContext`opac$$ = 1, $CellContext`pg$$ = 
        "Speed", $CellContext`phi$$ = 120, $CellContext`step$$ = 
        3, $CellContext`theta$$ = 
        30, $CellContext`viewpoint$$ = {{1, 1, 1}, {0, 0, 1}}}, 
      "ControllerVariables" :> {
        Hold[$CellContext`Lpwl$$, $CellContext`Lpwl$1243$$, 0], 
        Hold[$CellContext`mesh$$, $CellContext`mesh$1244$$, False], 
        Hold[$CellContext`opac$$, $CellContext`opac$1245$$, 0], 
        Hold[$CellContext`step$$, $CellContext`step$1246$$, 0], 
        Hold[$CellContext`pg$$, $CellContext`pg$1247$$, False], 
        Hold[$CellContext`theta$$, $CellContext`theta$1248$$, 0], 
        Hold[$CellContext`phi$$, $CellContext`phi$1249$$, 0], 
        Hold[$CellContext`viewpoint$$, $CellContext`viewpoint$1250$$, False]},
       "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> Graphics3D[
        Part[
         $CellContext`RadiationPattern[$CellContext`Lpwl$$, \
{$CellContext`theta$$, $CellContext`phi$$}, $CellContext`mesh$$, \
$CellContext`opac$$, $CellContext`step$$, $CellContext`pg$$], 1], Lighting -> 
        "Neutral", Boxed -> False, Axes -> False, 
        PlotRange -> {{-2.1, 2.1}, {-2.1, 2.1}, {-2.1, 2.1}}, 
        ImageSize -> {500, 500}, ViewPoint -> Dynamic[
          Part[$CellContext`viewpoint$$, 1]], ViewVertical -> Dynamic[
          Part[$CellContext`viewpoint$$, 2]]], 
      "Specifications" :> {{{$CellContext`Lpwl$$, 1.4, "L/\[Lambda]"}, 0.1, 
         10., 0.1, 
         Appearance -> {"Open", "Labeled"}}, {{$CellContext`mesh$$, None, 
          "mesh"}, {None -> "none", 15 -> "automatic", Full -> "full"}, 
         ControlType -> RadioButtonBar}, 
        "", {{$CellContext`opac$$, 1, "opacity"}, {0., 0.1, 0.2, 
         0.30000000000000004`, 0.4, 0.5, 0.6000000000000001, 
         0.7000000000000001, 0.8, 0.9, 1.}}, 
        "", {{$CellContext`step$$, 3, "step [\[Degree]]"}, {10, 9, 6, 5, 4, 3,
          2, 1}}, 
        "", {{$CellContext`pg$$, "Speed", "goal"}, {"Speed", "Quality"}, 
         ControlType -> PopupMenu}, Delimiter, 
        Style["Dipole Axis Orientation", 
         RGBColor[1, 0.5, 0], Bold, FontSize -> 14, FontFamily -> "Arial"], 
        "", {{$CellContext`theta$$, 30, 
          "\!\(\*SubscriptBox[\(\[Theta]\), \(\[ScriptL]\)]\) [\[Degree]]"}, 
         0, 180, 5, 
         Appearance -> {"Open", "Labeled"}}, {{$CellContext`phi$$, 120, 
          "\!\(\*SubscriptBox[\(\[Phi]\), \(\[ScriptL]\)]\) [\[Degree]]"}, 0, 
         360, 5, Appearance -> {"Open", "Labeled"}}, 
        Delimiter, {{$CellContext`viewpoint$$, {{1, 1, 1}, {0, 0, 1}}}, 
         ControlType -> 
         None}, {{$CellContext`viewpoint$$, {{1, 1, 1}, {0, 0, 1}}, 
          "ViewPoint"}, {{{1, 1, 1}, {0, 0, 1}} -> 
          "Reset", {{0, 0, 1}, {0, 0, 1}} -> "+z", {{0, 0, -1}, {0, 0, 1}} -> 
          "-z", {{0, 1, 0}, {0, 0, 1}} -> "+y", {{0, -1, 0}, {0, 0, 1}} -> 
          "-y", {{1, 0, 0}, {0, 0, 1}} -> "+x", {{-1, 0, 0}, {0, 0, 1}} -> 
          "-x"}, ControlType -> Setter}}, 
      "Options" :> {
       FrameMargins -> None, Alignment -> {Center, Center}, ContinuousAction -> 
        False, ControlPlacement -> Left, AutorunSequencing -> {1, 6, 7}, 
        TrackedSymbols -> True}, 
      "DefaultOptions" :> {ControllerLinking -> True}],
     ImageSizeCache->{853., {271., 280.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    Initialization:>({$CellContext`RadiationPattern[
         Pattern[$CellContext`Lpwl, 
          Blank[]], {
          Pattern[$CellContext`theta, 
           Blank[]], 
          Pattern[$CellContext`phi, 
           Blank[]]}, 
         Pattern[$CellContext`mesh, 
          Blank[]], 
         Pattern[$CellContext`opac, 
          Blank[]], 
         Pattern[$CellContext`step, 
          Blank[]], 
         Pattern[$CellContext`pg, 
          Blank[]]] := Quiet[
         Module[{$CellContext`l, $CellContext`lr, $CellContext`fun, \
$CellContext`max, $CellContext`xyval, $CellContext`yzval1, \
$CellContext`yzval2, $CellContext`zxval1, $CellContext`zxval2, \
$CellContext`xy, $CellContext`yz, $CellContext`zx, $CellContext`box, \
$CellContext`ci, $CellContext`sf, $CellContext`cf}, $CellContext`fun = Table[
             If[
             Abs[Cos[(Pi $CellContext`Lpwl) Cos[$CellContext`\[Xi]]] - Cos[
                 Pi $CellContext`Lpwl]]/Sin[$CellContext`\[Xi]] === 
              Indeterminate, 
              
              Abs[((Pi $CellContext`Lpwl) 
                Sin[(Pi $CellContext`Lpwl) Cos[$CellContext`\[Xi]]]) (
                Sin[$CellContext`\[Xi]]/Cos[$CellContext`\[Xi]])], 
              Abs[Cos[(Pi $CellContext`Lpwl) Cos[$CellContext`\[Xi]]] - Cos[
                Pi $CellContext`Lpwl]]/
              Sin[$CellContext`\[Xi]]], {$CellContext`\[Xi], 0, Pi, Pi/
              180}]; $CellContext`max = Max[$CellContext`fun]; $CellContext`l[
             Pattern[$CellContext`th, 
              Blank[]], 
             Pattern[$CellContext`ph, 
              Blank[]]] = {
            Sin[$CellContext`th Degree] Cos[$CellContext`ph Degree], 
             Sin[$CellContext`th Degree] Sin[$CellContext`ph Degree], 
             Cos[$CellContext`th Degree]}; $CellContext`lr[
             Pattern[$CellContext`th, 
              Blank[]], 
             Pattern[$CellContext`ph, 
              Blank[]], 
             Pattern[$CellContext`t, 
              Blank[]], 
             Pattern[$CellContext`f, 
              
              Blank[]]] = ((Sin[$CellContext`th Degree] 
               Cos[$CellContext`ph Degree]) Sin[$CellContext`t]) 
             Cos[$CellContext`f] + ((Sin[$CellContext`th Degree] 
               Sin[$CellContext`ph Degree]) Sin[$CellContext`t]) 
             Sin[$CellContext`f] + 
            Cos[$CellContext`th Degree] Cos[$CellContext`t]; $CellContext`EE[
             Pattern[$CellContext`Len, 
              Blank[]], 
             Pattern[$CellContext`th, 
              Blank[]], 
             Pattern[$CellContext`ph, 
              Blank[]], 
             Pattern[$CellContext`t, 
              Blank[]], 
             Pattern[$CellContext`f, 
              Blank[]]] = 
           Abs[Cos[(
                 Pi $CellContext`Len) $CellContext`lr[$CellContext`th, \
$CellContext`ph, $CellContext`t, $CellContext`f]] - Cos[Pi $CellContext`Len]]/
            Sqrt[1 - $CellContext`lr[$CellContext`th, $CellContext`ph, \
$CellContext`t, $CellContext`f]^2]; $CellContext`sf = Table[
             N[
              Sin[$CellContext`i]], {$CellContext`i, 0, 2 Pi, Pi/
              180}]; $CellContext`cf = Table[
             N[
              Cos[$CellContext`i]], {$CellContext`i, 0, 2 Pi, Pi/
              180}]; $CellContext`xyval = Table[
             
             If[$CellContext`EE[$CellContext`Lpwl, $CellContext`theta, \
$CellContext`phi, Pi/2, $CellContext`f] === Indeterminate, 0., 
              $CellContext`EE[$CellContext`Lpwl, $CellContext`theta, \
$CellContext`phi, Pi/2, $CellContext`f]], {$CellContext`f, 0, 2 Pi, Pi/
              180}]; $CellContext`yzval1 = Table[
             
             If[$CellContext`EE[$CellContext`Lpwl, $CellContext`theta, \
$CellContext`phi, $CellContext`t, Pi/2] === Indeterminate, 0., 
              $CellContext`EE[$CellContext`Lpwl, $CellContext`theta, \
$CellContext`phi, $CellContext`t, Pi/2]], {$CellContext`t, 0, Pi, Pi/
              180}]; $CellContext`yzval2 = Table[
             
             If[$CellContext`EE[$CellContext`Lpwl, $CellContext`theta, \
$CellContext`phi, $CellContext`t, 3 (Pi/2)] === Indeterminate, 0., 
              $CellContext`EE[$CellContext`Lpwl, $CellContext`theta, \
$CellContext`phi, $CellContext`t, 3 (Pi/2)]], {$CellContext`t, 0, Pi, Pi/
              180}]; $CellContext`zxval1 = Table[
             
             If[$CellContext`EE[$CellContext`Lpwl, $CellContext`theta, \
$CellContext`phi, $CellContext`t, 0] === Indeterminate, 0., 
              $CellContext`EE[$CellContext`Lpwl, $CellContext`theta, \
$CellContext`phi, $CellContext`t, 0]], {$CellContext`t, 0, Pi, Pi/
              180}]; $CellContext`zxval2 = Table[
             
             If[$CellContext`EE[$CellContext`Lpwl, $CellContext`theta, \
$CellContext`phi, $CellContext`t, Pi] === Indeterminate, 0., 
              $CellContext`EE[$CellContext`Lpwl, $CellContext`theta, \
$CellContext`phi, $CellContext`t, Pi]], {$CellContext`t, 0, Pi, Pi/
              180}]; $CellContext`xy = {
             RGBColor[0, 0, 1], 
             Line[
              
              Table[{Part[$CellContext`cf, $CellContext`i] (
                 Part[$CellContext`xyval, $CellContext`i]/$CellContext`max), 
                Part[$CellContext`sf, $CellContext`i] (
                 Part[$CellContext`xyval, $CellContext`i]/$CellContext`max), 
                0}, {$CellContext`i, 1, 361}]]}; $CellContext`yz = {
             RGBColor[1, 0, 0], 
             Line[
              
              Table[{0, 
                Part[$CellContext`sf, $CellContext`i] (
                 Part[$CellContext`yzval1, $CellContext`i]/$CellContext`max), 
                Part[$CellContext`cf, $CellContext`i] (
                 Part[$CellContext`yzval1, \
$CellContext`i]/$CellContext`max)}, {$CellContext`i, 1, 181}]], 
             Line[
              
              Table[{0, (-Part[$CellContext`sf, $CellContext`i]) (
                 Part[$CellContext`yzval2, $CellContext`i]/$CellContext`max), 
                Part[$CellContext`cf, $CellContext`i] (
                 Part[$CellContext`yzval2, \
$CellContext`i]/$CellContext`max)}, {$CellContext`i, 1, 
                181}]]}; $CellContext`zx = {
             RGBColor[0, 1, 0], 
             Line[
              
              Table[{Part[$CellContext`sf, $CellContext`i] (
                 Part[$CellContext`zxval1, $CellContext`i]/$CellContext`max), 
                0, Part[$CellContext`cf, $CellContext`i] (
                 Part[$CellContext`zxval1, \
$CellContext`i]/$CellContext`max)}, {$CellContext`i, 1, 181}]], 
             Line[
              
              Table[{(-Part[$CellContext`sf, $CellContext`i]) (
                 Part[$CellContext`zxval2, $CellContext`i]/$CellContext`max), 
                0, Part[$CellContext`cf, $CellContext`i] (
                 Part[$CellContext`zxval2, \
$CellContext`i]/$CellContext`max)}, {$CellContext`i, 1, 
                181}]]}; $CellContext`box = {{-2, -2, -2}, {-2, 2, -2}, {2, 
            2, -2}, {2, -2, -2}, {-2, -2, 2}, {-2, 2, 2}, {2, 2, 2}, {2, -2, 
            2}}; $CellContext`ci = {
             Line[
              Table[{
                Cos[$CellContext`i], 
                Sin[$CellContext`i], 0}, {$CellContext`i, 0, 2 Pi, Pi/36}]]}; 
          Show[
            Graphics3D[{{
               GrayLevel[0.5], 
               Translate[$CellContext`ci, {0, 0, -2}], 
               Translate[
                Rotate[$CellContext`ci, Pi/2, {1, 0, 0}], {0, -2, 0}], 
               Translate[
                Rotate[$CellContext`ci, Pi/2, {0, 1, 0}], {-2, 0, 0}]}, {Thin, 
               GrayLevel[0.5], 
               GraphicsComplex[$CellContext`box, 
                Line[{{1, 2, 3, 4}, {1, 4, 8, 5}, {1, 5, 6, 2}}]]}, {
               RGBColor[1, 0, 0], 
               Line[{{-1, 0, -2}, {1., 0, -2}}], 
               Line[{{-1, -2, 0}, {1., -2, 0}}]}, {
               RGBColor[0, 1, 0], 
               Line[{{0, -1., -2}, {0, 1., -2}}], 
               Line[{{-2, -1., 0}, {-2, 1., 0}}]}, {
               RGBColor[0, 0, 1], 
               Line[{{0, -2, -1.}, {0, -2, 1.}}], 
               Line[{{-2, 0, -1.}, {-2, 0, 1.}}]}}], 
            SphericalPlot3D[
             
             Evaluate[$CellContext`EE[$CellContext`Lpwl, $CellContext`theta, \
$CellContext`phi, $CellContext`t, $CellContext`f]/$CellContext`max], \
{$CellContext`t, 0, Pi}, {$CellContext`f, 0, 2 Pi}, 
             PlotPoints -> {
              180/$CellContext`step + 1, 360/$CellContext`step + 1}, 
             Mesh -> $CellContext`mesh, MeshStyle -> GrayLevel[0.75], 
             PlotStyle -> Directive[
               Opacity[$CellContext`opac], 
               GrayLevel[0.25], 
               Specularity[White, 10]], PerformanceGoal -> $CellContext`pg], 
            Graphics3D[{{
               Directive[Red, 
                Specularity[White, 10]], 
               Arrowheads[0.05], 
               Arrow[
                Tube[{{0, 0, 0}, {1.8, 0, 0}}, 0.015]]}, {
               Directive[Green, 
                Specularity[White, 10]], 
               Arrowheads[0.05], 
               Arrow[
                Tube[{{0, 0, 0}, {0, 1.8, 0}}, 0.015]]}, {
               Directive[Blue, 
                Specularity[White, 10]], 
               Arrowheads[0.05], 
               Arrow[
                Tube[{{0, 0, 0}, {0, 0, 1.8}}, 0.015]]}, {
               Directive[Orange, 
                Specularity[White, 10]], 
               Arrowheads[0.05], 
               Arrow[
                
                Tube[{(-1.5) $CellContext`l[$CellContext`theta, \
$CellContext`phi], 1.5 $CellContext`l[$CellContext`theta, $CellContext`phi]}, 
                 0.015]]}, {
               Directive[Yellow, 
                Specularity[White, 10]], 
               EdgeForm[], 
               Sphere[{0, 0, 0}, 0.05]}, {{
                
                If[$CellContext`mesh =!= None, Thick, 
                 Thin], $CellContext`xy, $CellContext`yz, $CellContext`zx}, 
               Translate[$CellContext`xy, {0, 0, -2}], 
               Translate[$CellContext`yz, {-2, 0, 0}], 
               Translate[$CellContext`zx, {0, -2, 0}]}}]]]], 
       Attributes[Thick] = {ReadProtected}, 
       Attributes[PlotRange] = {ReadProtected}}; Typeset`initDone$$ = True),
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{
  3.35696210375764*^9, 3.444543034546875*^9, {3.44455007625*^9, 
   3.444550083015625*^9}},
 CellID->115210430],

Cell["", "ManipulateCaption",
 CellChangeTimes->{
  3.35696210375764*^9, {3.444543153578125*^9, 3.444543168515625*^9}, 
   3.444543212109375*^9, {3.444543246140625*^9, 3.444543268*^9}, {
   3.44454334021875*^9, 3.444543391*^9}, {3.444545111546875*^9, 
   3.444545112984375*^9}, {3.444545439453125*^9, 3.44454543946875*^9}}],

Cell[TextData[{
 StyleBox["Details",
  FontSize->14,
  FontWeight->"Bold"],
 "\[LineSeparator]\[LineSeparator]",
 StyleBox["This Demonstration plots the normalized E-radiation pattern of a \
center-fed linear dipole antenna with sinusoidal current distribution and \
variable axis direction ",
  FontSize->12],
 Cell[BoxData[
  FormBox[
   RowBox[{"(", 
    SubscriptBox["\[Theta]", "\[ScriptL]"]}], TraditionalForm]], "InlineMath",
  FontFamily->"Verdana",
  FontSize->12],
 StyleBox[", ",
  FontSize->12],
 Cell[BoxData[
  FormBox[
   SubscriptBox["\[Phi]", "\[ScriptL]"], TraditionalForm]], "InlineMath",
  FontFamily->"Verdana",
  FontSize->12],
 StyleBox["). Three of the cube sides correspond to the intersections of \
Radiation Pattern with the coordinate planes. There is a one-to-one \
correspondence between x, y, z and the colors red, green, blue. The \
length/wavelength of the dipole ranges from 0.1 to 10 in steps of 0.1. The \
default 3D evaluation is done at every 3\[Degree]. 2D evaluation is always \
carried out at 1\[Degree]. A small delay may be needed to get a smooth \
overall picture.",
  FontSize->12]
}], "ManipulateCaption",
 CellChangeTimes->{
  3.35696210375764*^9, {3.444543153578125*^9, 3.444543168515625*^9}, 
   3.444543212109375*^9, {3.444543246140625*^9, 3.444543268*^9}, {
   3.44454334021875*^9, 3.444543391*^9}, {3.444545111546875*^9, 
   3.444545112984375*^9}, {3.444545439453125*^9, 3.44454547521875*^9}, {
   3.444545516359375*^9, 3.444545517125*^9}, {3.44454901328125*^9, 
   3.44454901359375*^9}, {3.444550331828125*^9, 3.4445503478125*^9}, {
   3.44455037921875*^9, 3.4445503910625*^9}, 3.44455102275*^9, {
   3.444551848625*^9, 3.44455187721875*^9}},
 CellID->107724732],

Cell["", "ManipulateCaption",
 CellChangeTimes->{
  3.35696210375764*^9, {3.444543153578125*^9, 3.444543168515625*^9}, 
   3.444543212109375*^9, {3.444543246140625*^9, 3.444543268*^9}, {
   3.44454334021875*^9, 3.444543391*^9}, {3.444545111546875*^9, 
   3.444545112984375*^9}, {3.444545439453125*^9, 3.44454543946875*^9}},
 CellID->263948759],

Cell[TextData[{
 StyleBox["Mathematics",
  FontSize->14,
  FontWeight->"Bold"],
 StyleBox["\[LineSeparator]",
  FontWeight->"Bold"],
 "\[LineSeparator]",
 StyleBox["The normalized radiation pattern for the electric",
  FontSize->12],
 " ",
 StyleBox["field of a symmetrical center-fed linear dipole antenna with \
sinusoidal current distribution is given by: \[LineSeparator]",
  FontSize->12]
}], "DetailNotes",
 CellChangeTimes->{
  3.35696210375764*^9, {3.436376069671875*^9, 3.43637611246875*^9}, {
   3.436545968078125*^9, 3.436546024640625*^9}, {3.43654631565625*^9, 
   3.436546319953125*^9}, {3.436546490453125*^9, 3.436546494953125*^9}, {
   3.4365465256875*^9, 3.4365465868125*^9}, 3.43667822803125*^9, {
   3.436753266578125*^9, 3.436753307453125*^9}, {3.436754490859375*^9, 
   3.436754503796875*^9}, {3.4401888529649596`*^9, 3.4401888706680846`*^9}, {
   3.440307591*^9, 3.44030768571875*^9}, {3.440308980453125*^9, 
   3.44030904803125*^9}, {3.440309775765625*^9, 3.440309806921875*^9}, {
   3.440309842328125*^9, 3.44030985746875*^9}, 3.440310107609375*^9, {
   3.444545668578125*^9, 3.444545703859375*^9}, {3.444548602453125*^9, 
   3.444548605578125*^9}, 3.444551161171875*^9, {3.4445513023125*^9, 
   3.444551352046875*^9}},
 CellID->28710086],

Cell[TextData[{
 Cell[BoxData[
  FormBox[
   RowBox[{" ", 
    RowBox[{
     StyleBox["E",
      FontFamily->"Mathematica5",
      FontSize->12,
      FontSlant->"Plain"], "=", " ", 
     FractionBox[
      SubscriptBox[
       StyleBox["E",
        FontFamily->"Mathematica7",
        FontSize->12,
        FontSlant->"Plain"], 
       StyleBox["\[Pi]",
        FontSize->10,
        FontSlant->"Plain"]], 
      SubscriptBox[
       StyleBox["E",
        FontFamily->"Mathematica7",
        FontSize->12,
        FontSlant->"Plain"], 
       StyleBox[
        StyleBox[
         RowBox[{
          StyleBox["\[Pi]",
           FontSlant->"Plain"], 
          StyleBox["max",
           FontFamily->"Verdana"]}]],
        FontSize->10]]]}]}], TraditionalForm]], "InlineMath",
  FontFamily->"Verdana",
  FontSize->12],
 StyleBox[", \[LineSeparator]\[LineSeparator]where,\[LineSeparator]\
\[LineSeparator] ",
  FontSize->12],
 Cell[BoxData[
  FormBox[
   RowBox[{
    StyleBox[" ",
     FontSize->12], 
    RowBox[{
     SubscriptBox[
      StyleBox["E",
       FontFamily->"Mathematica7",
       FontSize->12,
       FontSlant->"Plain"], 
      StyleBox["\[Pi]",
       FontSize->10,
       FontSlant->"Plain"]], 
     StyleBox[" ",
      FontFamily->"Mathematica7",
      FontSize->11,
      FontSlant->"Plain"], 
     StyleBox["=",
      FontFamily->"Times New Roman",
      FontSize->12], 
     StyleBox[" ",
      FontFamily->"Mathematica7",
      FontSize->11,
      FontSlant->"Plain"], 
     FractionBox[
      RowBox[{
       RowBox[{"\[LeftBracketingBar]", 
        StyleBox[
         RowBox[{
          RowBox[{"cos", "(", 
           RowBox[{
            StyleBox["\[Pi]",
             FontSlant->"Plain"], " ", 
            FractionBox[
             StyleBox["L",
              FontSize->10,
              FontSlant->"Plain"], 
             StyleBox["\[Lambda]",
              FontSize->10,
              FontSlant->"Plain"]], 
            UnderscriptBox[
             SubscriptBox["l", "r"], "|"]}], ")"}], "-", 
          RowBox[{"cos", "(", 
           RowBox[{"\[Pi]", " ", 
            FractionBox[
             StyleBox["L",
              FontSize->10,
              FontSlant->"Plain"], 
             StyleBox["\[Lambda]",
              FontSize->10,
              FontSlant->"Plain"]]}]}]}],
         FontSize->12], ")"}], "\[RightBracketingBar]"}], 
      SqrtBox[
       StyleBox[
        RowBox[{
         StyleBox["1",
          FontSlant->"Plain"], "-", 
         UnderscriptBox[
          SubsuperscriptBox["l", "r", "2"], "|"]}],
        FontSize->12]]]}]}], TraditionalForm]], "InlineMath",
  FontFamily->"Verdana",
  FontSize->12],
 StyleBox[",\[LineSeparator]\[LineSeparator]",
  FontSize->12],
 Cell[BoxData[
  FormBox[
   RowBox[{
    UnderscriptBox[
     SubscriptBox["l", "r"], "|"], 
    RowBox[{
     StyleBox["=",
      FontFamily->"Times New Roman",
      FontSize->12], 
     RowBox[{
      RowBox[{
       UnderscriptBox[
        SubscriptBox["l", "x"], "|"], 
       StyleBox[
        RowBox[{"sin", 
         StyleBox["\[Theta]",
          FontSlant->"Plain"]}]], " ", "cos\[Phi]"}], "+", 
      RowBox[{
       UnderscriptBox[
        SubscriptBox["l", "y"], "|"], "sin\[Theta]", " ", "sin\[Phi]"}], "+", 
      RowBox[{
       UnderscriptBox[
        SubscriptBox["l", "z"], "|"], "cos\[Theta]"}]}]}]}], 
   TraditionalForm]], "InlineMath",
  FontFamily->"Verdana",
  FontSize->12],
 StyleBox[",\[LineSeparator]\[LineSeparator]",
  FontSize->12],
 Cell[BoxData[
  FormBox[
   RowBox[{
    UnderscriptBox[
     SubscriptBox["l", "x"], "|"], 
    StyleBox["=",
     FontFamily->"Times New Roman",
     FontSize->12], 
    RowBox[{
     SubscriptBox["sin\[Theta]", "\[ScriptL]"], " ", 
     SubscriptBox["cos\[Phi]", "\[ScriptL]"]}]}], TraditionalForm]], 
  "InlineMath",
  FontFamily->"Verdana",
  FontSize->12],
 StyleBox[",     ",
  FontSize->12],
 Cell[BoxData[
  FormBox[
   RowBox[{
    UnderscriptBox[
     SubscriptBox["l", "y"], "|"], 
    StyleBox["=",
     FontFamily->"Times New Roman",
     FontSize->12], 
    RowBox[{
     SubscriptBox["sin\[Theta]", "\[ScriptL]"], " ", 
     SubscriptBox["sin\[Phi]", "\[ScriptL]"]}]}], TraditionalForm]], 
  "InlineMath",
  FontFamily->"Verdana",
  FontSize->12],
 StyleBox[",     ",
  FontSize->12],
 Cell[BoxData[
  FormBox[
   RowBox[{
    UnderscriptBox[
     SubscriptBox["l", "z"], "|"], 
    StyleBox["=",
     FontFamily->"Times New Roman",
     FontSize->12], 
    SubscriptBox["cos\[Theta]", "\[ScriptL]"]}], TraditionalForm]], 
  "InlineMath",
  FontFamily->"Verdana",
  FontSize->12],
 StyleBox[",\[LineSeparator]\[LineSeparator] ",
  FontSize->12],
 Cell[BoxData[
  FormBox[
   RowBox[{"0", "\[LessEqual]", "\[Theta]", "\[LessEqual]", 
    StyleBox["\[Pi]",
     FontSlant->"Plain"]}], TraditionalForm]], "InlineMath",
  FontFamily->"Verdana",
  FontSize->12],
 StyleBox[",     0 \[LessEqual] \[Phi] < 2\[Pi],     ",
  FontSize->12],
 Cell[BoxData[
  RowBox[{"0.1", "\[LessEqual]", 
   FormBox[
    StyleBox[
     FractionBox[
      StyleBox["L",
       FontFamily->"Verdana",
       FontSize->10,
       FontSlant->"Plain"], 
      StyleBox["\[Lambda]",
       FontFamily->"Verdana",
       FontSize->10,
       FontSlant->"Plain"]],
     FontFamily->"Times New Roman",
     FontSize->12],
    TraditionalForm], "\[LessEqual]", "10"}]],
  FontFamily->"Verdana",
  FontSize->12],
 StyleBox[",\[LineSeparator]",
  FontSize->12]
}], "DetailNotes",
 CellChangeTimes->{
  3.35696210375764*^9, {3.439824473375*^9, 3.439824500484375*^9}, {
   3.4401888824493346`*^9, 3.4401889205430846`*^9}, {3.440307554296875*^9, 
   3.440307554296875*^9}, {3.444545723953125*^9, 3.44454578384375*^9}, {
   3.444546881734375*^9, 3.444547142359375*^9}, {3.44454721625*^9, 
   3.444547553390625*^9}, {3.444547596875*^9, 3.44454796409375*^9}, 
   3.444548146875*^9, {3.44455067390625*^9, 3.444550856734375*^9}, {
   3.44455089534375*^9, 3.44455090240625*^9}, 3.4445510694375*^9, {
   3.444551104890625*^9, 3.44455110728125*^9}, {3.44455113825*^9, 
   3.44455114840625*^9}, {3.444551614046875*^9, 3.444551633984375*^9}},
 CellID->198353490],

Cell[TextData[{
 StyleBox["\[Theta] is the second coordinate of the spherical system (r, \
\[Theta], \[Phi]), with 0 at +z axis and  \[Pi] at -z, \[Phi] is the third \
coordinate, with 0 at +x axis, ",
  FontSize->12],
 Cell[BoxData[
  FormBox[
   FractionBox[
    StyleBox["L",
     FontSize->10,
     FontSlant->"Plain"], 
    StyleBox["\[Lambda]",
     FontSize->10,
     FontSlant->"Plain"]], TraditionalForm]],
  FontSize->12],
 StyleBox[" is the total length per wavelength of the dipole,  ",
  FontSize->12],
 Cell[BoxData[
  FormBox[
   SubscriptBox[
    StyleBox["E",
     FontFamily->"Mathematica7",
     FontSize->12,
     FontSlant->"Plain"], 
    StyleBox[
     StyleBox[
      RowBox[{
       StyleBox["\[Pi]",
        FontSlant->"Plain"], 
       StyleBox["max",
        FontFamily->"Verdana"]}]],
     FontSize->10]], TraditionalForm]],
  FontSize->12],
 StyleBox[" is the maximum value of ",
  FontSize->12],
 Cell[BoxData[
  FormBox[
   SubscriptBox[
    StyleBox["E",
     FontFamily->"Mathematica7",
     FontSize->12,
     FontSlant->"Plain"], 
    StyleBox["\[Pi]",
     FontSize->10,
     FontSlant->"Plain"]], TraditionalForm]],
  FontSize->12],
 StyleBox[" for the dipole, so that ",
  FontSize->12],
 Cell[BoxData[
  FormBox[
   RowBox[{"0", "\[LessEqual]", 
    StyleBox["E",
     FontFamily->"Mathematica5",
     FontSize->12,
     FontSlant->"Plain"], "\[LessEqual]", "1", " "}], TraditionalForm]], 
  "InlineMath",
  FontFamily->"Verdana",
  FontSize->12],
 StyleBox[",\[LineSeparator]",
  FontSize->12],
 "\[LineSeparator]",
 Cell[BoxData[
  FormBox[
   RowBox[{
    UnderscriptBox[
     SubscriptBox["l", "r"], "|"], 
    StyleBox["=",
     FontFamily->"Times New Roman",
     FontSize->12], 
    RowBox[{
     UnderoverscriptBox["l", "|", "\[RightArrow]"], "\[CenterDot]", 
     UnderoverscriptBox["r", "|", "\[RightArrow]"]}]}], TraditionalForm]], 
  "InlineMath",
  FontFamily->"Verdana",
  FontSize->12],
 StyleBox["  where ",
  FontSize->12],
 Cell[BoxData[
  FormBox[
   UnderoverscriptBox["l", "|", "\[RightArrow]"], TraditionalForm]],
  FontSize->12],
 StyleBox[" is the unit vector of the dipole axis and ",
  FontSize->12],
 Cell[BoxData[
  FormBox[
   UnderoverscriptBox["r", "|", "\[RightArrow]"], TraditionalForm]],
  FontSize->12],
 StyleBox[" is the direction of radiation.",
  FontSize->12],
 "\[LineSeparator]\[LineSeparator]",
 StyleBox["The coordinates ",
  FontSize->12],
 Cell[BoxData[
  FormBox[
   RowBox[{"(", 
    SubscriptBox["\[Theta]", "\[ScriptL]"]}], TraditionalForm]], "InlineMath",
  FontFamily->"Verdana",
  FontSize->12],
 StyleBox[", ",
  FontSize->12],
 Cell[BoxData[
  FormBox[
   SubscriptBox["\[Phi]", "\[ScriptL]"], TraditionalForm]], "InlineMath",
  FontFamily->"Verdana",
  FontSize->12],
 StyleBox[") corresponds to the dipole axis (the orange vector) and they are \
independently variable, in steps of 5\[Degree].",
  FontSize->12]
}], "DetailNotes",
 CellChangeTimes->{
  3.35696210375764*^9, {3.440307698921875*^9, 3.4403078105625*^9}, {
   3.440307876421875*^9, 3.4403079721875*^9}, {3.440308090375*^9, 
   3.4403082566875*^9}, {3.440308449421875*^9, 3.440308449921875*^9}, {
   3.440308482046875*^9, 3.440308489078125*^9}, {3.44030853709375*^9, 
   3.440308557328125*^9}, {3.440308600359375*^9, 3.440308661140625*^9}, {
   3.44030908259375*^9, 3.440309101203125*^9}, {3.440309155015625*^9, 
   3.440309175671875*^9}, {3.440309434296875*^9, 3.44030947503125*^9}, {
   3.44031011540625*^9, 3.44031013546875*^9}, {3.444548154890625*^9, 
   3.444548586078125*^9}, {3.44454951096875*^9, 3.444549514984375*^9}, {
   3.444550531828125*^9, 3.44455059165625*^9}, {3.44455179328125*^9, 
   3.444551809578125*^9}, 3.4445518828125*^9},
 CellID->144046550],

Cell["", "ManipulateCaption",
 CellChangeTimes->{
  3.35696210375764*^9, {3.444543153578125*^9, 3.444543168515625*^9}, 
   3.444543212109375*^9, {3.444543246140625*^9, 3.444543268*^9}, {
   3.44454334021875*^9, 3.444543391*^9}, {3.444545111546875*^9, 
   3.444545112984375*^9}, {3.444545439453125*^9, 3.44454543946875*^9}},
 CellID->139431782],

Cell[TextData[{
 StyleBox["Controls",
  FontSize->14,
  FontWeight->"Bold"],
 StyleBox["\[LineSeparator]",
  FontWeight->"Bold"],
 StyleBox["\[LineSeparator]", "MR"],
 StyleBox["The \"",
  FontSize->12],
 Cell[BoxData[
  FormBox[
   FractionBox[
    StyleBox["L",
     FontSize->10,
     FontSlant->"Plain"], 
    StyleBox["\[Lambda]",
     FontSize->10,
     FontSlant->"Plain"]], TraditionalForm]],
  FontSize->12],
 StyleBox["\" control changes the length per wavelength of the dipole.",
  FontSize->12]
}], "DetailNotes",
 CellChangeTimes->{
  3.35696210375764*^9, 3.436702857*^9, 3.436753593484375*^9, {
   3.439814487859375*^9, 3.439814489171875*^9}, {3.439992028671875*^9, 
   3.439992146*^9}, 3.43999363821875*^9, {3.4401890764493346`*^9, 
   3.4401891139024596`*^9}, {3.44454862953125*^9, 3.444548714765625*^9}, 
   3.444549005328125*^9, {3.44454915290625*^9, 3.44454922278125*^9}},
 CellID->185198083],

Cell[TextData[{
 "Mesh and Opacity controls correspond to the well-known options of ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 " 7, while the goal control stands for ",
 StyleBox["Mathematica",
  FontSlant->"Italic"],
 "'s PerformanceGoal. The default setting is \"Speed\", but \"Quality\" \
results in a very fine object."
}], "DetailNotes",
 CellChangeTimes->{
  3.35696210375764*^9, {3.4387604231875*^9, 3.438760428265625*^9}, {
   3.438760488984375*^9, 3.43876053059375*^9}, {3.43876061478125*^9, 
   3.438760636640625*^9}, {3.43990267965625*^9, 3.43990268328125*^9}, {
   3.440185056598161*^9, 3.4401850631898203`*^9}, {3.4401891268399596`*^9, 
   3.4401891419493346`*^9}, {3.440308687609375*^9, 3.440308687625*^9}, 
   3.440309234390625*^9, {3.44454874325*^9, 3.444548743265625*^9}, 
   3.444549001421875*^9, 3.444549169875*^9},
 FontSize->12,
 CellID->695610436],

Cell["\<\
The \"step [\[Degree]]\" control changes the number of plot points for the 3D \
radiation pattern. The initial value of 3\[Degree] results in a smooth \
object. \
\>", "DetailNotes",
 CellChangeTimes->{
  3.35696210375764*^9, {3.4387604231875*^9, 3.438760428265625*^9}, {
   3.438760488984375*^9, 3.43876053059375*^9}, {3.43876061478125*^9, 
   3.438760636640625*^9}, {3.43990267965625*^9, 3.43990268328125*^9}, {
   3.440185056598161*^9, 3.4401850631898203`*^9}, {3.4401891268399596`*^9, 
   3.4401891419493346`*^9}, {3.440308687609375*^9, 3.440308687625*^9}, 
   3.440309234390625*^9, {3.44454874325*^9, 3.444548743265625*^9}, 
   3.444549001421875*^9},
 FontSize->12,
 CellID->775104838],

Cell[TextData[{
 "The ",
 Cell[BoxData[
  FormBox["\"\<\!\(
\*SubscriptBox[\(\[Theta]\), \(\[ScriptL]\)]\)\>", TraditionalForm]], 
  "InlineMath"],
 " [\[Degree]]\" and  ",
 Cell[BoxData[
  FormBox["\"\<\!\(
\*SubscriptBox[\(\[Phi]\), \(\[ScriptL]\)]\)\>", TraditionalForm]], 
  "InlineMath"],
 " [\[Degree]]\" controls change the orientation of the dipole axis."
}], "DetailNotes",
 CellChangeTimes->{
  3.35696210375764*^9, {3.4387604231875*^9, 3.438760428265625*^9}, {
   3.438760488984375*^9, 3.43876053059375*^9}, {3.43876061478125*^9, 
   3.438760636640625*^9}, {3.43990267965625*^9, 3.43990268328125*^9}, {
   3.440185056598161*^9, 3.4401850631898203`*^9}, {3.4401891268399596`*^9, 
   3.4401891419493346`*^9}, {3.440308687609375*^9, 3.440308687625*^9}, 
   3.440309234390625*^9, {3.44454874325*^9, 3.444548743265625*^9}, {
   3.44454903284375*^9, 3.444549113125*^9}},
 FontSize->12,
 CellID->455589978],

Cell["\<\
The \"ViewPoint\" control gives six (6) predefined ViewPoints and a Reset \
button, to the initial view. To Reset the Pan//Zoom settings select the \
object and use Right-Click to get to the PopupMenu and the \"Reset Pan/Zoom\" \
option.\
\>", "DetailNotes",
 CellChangeTimes->{
  3.35696210375764*^9, {3.4387604231875*^9, 3.438760428265625*^9}, {
   3.438760488984375*^9, 3.43876053059375*^9}, {3.43876061478125*^9, 
   3.438760636640625*^9}, {3.43990267965625*^9, 3.43990268328125*^9}, {
   3.440185056598161*^9, 3.4401850631898203`*^9}, {3.4401891268399596`*^9, 
   3.4401891419493346`*^9}, {3.440308687609375*^9, 3.440308687625*^9}, 
   3.440309234390625*^9, {3.44454874325*^9, 3.44454885753125*^9}},
 FontSize->12,
 CellID->688440460],

Cell["\<\
SphericalPlot3D was chosen, instead of RevolutionPlot3D or ParametricPlot3D, \
since it was faster.\
\>", "DetailNotes",
 CellChangeTimes->{
  3.35696210375764*^9, {3.4387604231875*^9, 3.438760428265625*^9}, {
   3.438760488984375*^9, 3.43876053059375*^9}, {3.43876061478125*^9, 
   3.438760636640625*^9}, {3.43990267965625*^9, 3.43990268328125*^9}, {
   3.440185056598161*^9, 3.4401850631898203`*^9}, {3.4401891268399596`*^9, 
   3.4401891419493346`*^9}, {3.440308687609375*^9, 3.440308687625*^9}, 
   3.440309234390625*^9, 3.44454874325*^9, {3.44454886653125*^9, 
   3.444548897046875*^9}},
 FontSize->12,
 CellID->117521758],

Cell["", "ManipulateCaption",
 CellChangeTimes->{
  3.35696210375764*^9, {3.444543153578125*^9, 3.444543168515625*^9}, 
   3.444543212109375*^9, {3.444543246140625*^9, 3.444543268*^9}, {
   3.44454334021875*^9, 3.444543391*^9}, {3.444545111546875*^9, 
   3.444545112984375*^9}, {3.444545439453125*^9, 3.44454543946875*^9}},
 CellID->77480956],

Cell[TextData[{
 StyleBox["Controls Suggestions",
  FontSize->14,
  FontWeight->"Bold"],
 StyleBox["\[LineSeparator]\[LineSeparator]", "MR"],
 StyleBox["Resize Images (Select the object and drag it, the initial size is \
500x500).",
  FontSize->12],
 " "
}], "DetailNotes",
 CellChangeTimes->{
  3.35696210375764*^9, 3.436702857*^9, 3.436753593484375*^9, {
   3.439814487859375*^9, 3.439814489171875*^9}, {3.439992028671875*^9, 
   3.439992146*^9}, 3.43999363821875*^9, {3.4401890764493346`*^9, 
   3.4401891139024596`*^9}, {3.44454862953125*^9, 3.444548714765625*^9}, {
   3.444549257484375*^9, 3.444549329296875*^9}},
 CellID->514257536],

Cell[TextData[StyleBox["Rotate (Left-Click and rotate the Mouse) and",
 FontSize->12]], "DetailNotes",
 CellChangeTimes->{
  3.35696210375764*^9, {3.4387604231875*^9, 3.438760428265625*^9}, {
   3.438760488984375*^9, 3.43876053059375*^9}, {3.43876061478125*^9, 
   3.438760636640625*^9}, {3.43990267965625*^9, 3.43990268328125*^9}, {
   3.440185056598161*^9, 3.4401850631898203`*^9}, {3.4401891268399596`*^9, 
   3.4401891419493346`*^9}, {3.440308687609375*^9, 3.440308687625*^9}, 
   3.440309234390625*^9, 3.44454874325*^9, {3.44454886653125*^9, 
   3.444548897046875*^9}, {3.44454934265625*^9, 3.44454939459375*^9}},
 CellID->16796479],

Cell[TextData[StyleBox["Zoom (Ctrl+Left-Click and move mouse into/against the \
screen) in 3D.",
 FontSize->12]], "DetailNotes",
 CellChangeTimes->{
  3.35696210375764*^9, {3.4387604231875*^9, 3.438760428265625*^9}, {
   3.438760488984375*^9, 3.43876053059375*^9}, {3.43876061478125*^9, 
   3.438760636640625*^9}, {3.43990267965625*^9, 3.43990268328125*^9}, {
   3.440185056598161*^9, 3.4401850631898203`*^9}, {3.4401891268399596`*^9, 
   3.4401891419493346`*^9}, {3.440308687609375*^9, 3.440308687625*^9}, 
   3.440309234390625*^9, 3.44454874325*^9, {3.44454886653125*^9, 
   3.444548897046875*^9}, {3.444549370890625*^9, 3.444549417171875*^9}},
 CellID->333634757],

Cell["", "ManipulateCaption",
 CellChangeTimes->{
  3.35696210375764*^9, {3.444543153578125*^9, 3.444543168515625*^9}, 
   3.444543212109375*^9, {3.444543246140625*^9, 3.444543268*^9}, {
   3.44454334021875*^9, 3.444543391*^9}, {3.444545111546875*^9, 
   3.444545112984375*^9}, {3.444545439453125*^9, 3.44454543946875*^9}},
 CellID->136062055],

Cell[TextData[{
 StyleBox["Related Links",
  FontSize->14,
  FontWeight->"Bold"],
 StyleBox["\[LineSeparator]",
  FontWeight->"Bold"]
}], "DetailNotes",
 CellChangeTimes->{
  3.35696210375764*^9, 3.436702857*^9, 3.436753593484375*^9, {
   3.439814487859375*^9, 3.439814489171875*^9}, {3.439992028671875*^9, 
   3.439992146*^9}, 3.43999363821875*^9, {3.4401890764493346`*^9, 
   3.4401891139024596`*^9}, {3.44454862953125*^9, 3.444548714765625*^9}, {
   3.444549257484375*^9, 3.444549329296875*^9}, {3.4445495644375*^9, 
   3.444549568953125*^9}, {3.4445498994375*^9, 3.4445499055625*^9}},
 CellID->11159148],

Cell[TextData[ButtonBox["Virtual Antennas, Volume 1, 1999",
 BaseStyle->"Hyperlink",
 ButtonData->{
   URL["http://library.wolfram.com/infocenter/MathSource/868/"], 
   None}]], "RelatedLinks",
 CellChangeTimes->{
  3.35696210375764*^9, 3.43642239646875*^9, {3.4364224350625*^9, 
   3.4364224550625*^9}},
 FontSize->12,
 CellID->5579609],

Cell[TextData[Cell[BoxData[Cell[TextData[ButtonBox["AVI and VRML production \
based on Mathematica 4",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["http://www.antennas.gr/mathematica/"], None},
  ButtonNote->"http://www.antennas.gr/mathematica/"]], "RelatedLinks",
  CellChangeTimes->{
   3.35696210375764*^9, 3.43642239646875*^9, {3.4364224350625*^9, 
    3.4364224550625*^9}}]]]], "RelatedLinks",
 CellChangeTimes->{
  3.35696210375764*^9, 3.43642239646875*^9, {3.4364224350625*^9, 
   3.4364224550625*^9}, {3.4445496109375*^9, 3.44454961278125*^9}, {
   3.444549783328125*^9, 3.444549790515625*^9}},
 FontSize->12,
 CellID->581978810],

Cell[TextData[ButtonBox["Antennas Course, Examinations 105, February 2009, \
EECE, DUTh (in Hellenic)",
 BaseStyle->"Hyperlink",
 ButtonData->{
   URL["http://www.deece.gr/phpBB/viewtopic.php?f=49&t=1259"], None},
 ButtonNote->
  "http://www.deece.gr/phpBB/viewtopic.php?f=49&t=1259"]], "DetailNotes",
 CellChangeTimes->{
  3.35696210375764*^9, {3.4387604231875*^9, 3.438760428265625*^9}, {
   3.438760488984375*^9, 3.43876053059375*^9}, {3.43876061478125*^9, 
   3.438760636640625*^9}, {3.43990267965625*^9, 3.43990268328125*^9}, {
   3.440185056598161*^9, 3.4401850631898203`*^9}, {3.4401891268399596`*^9, 
   3.4401891419493346`*^9}, {3.440308687609375*^9, 3.440308687625*^9}, 
   3.440309234390625*^9, 3.44454874325*^9, {3.44454886653125*^9, 
   3.444548897046875*^9}, {3.444549370890625*^9, 3.444549417171875*^9}, {
   3.4445498219375*^9, 3.444549884546875*^9}},
 FontSize->12,
 CellID->113533269],

Cell["", "ManipulateCaption",
 CellChangeTimes->{
  3.35696210375764*^9, {3.444543153578125*^9, 3.444543168515625*^9}, 
   3.444543212109375*^9, {3.444543246140625*^9, 3.444543268*^9}, {
   3.44454334021875*^9, 3.444543391*^9}, {3.444545111546875*^9, 
   3.444545112984375*^9}, {3.444545439453125*^9, 3.44454543946875*^9}},
 CellID->70802527],

Cell[TextData[{
 StyleBox["Authors",
  FontSize->14,
  FontWeight->"Bold"],
 StyleBox["\[LineSeparator]\[LineSeparator]", "MR"],
 StyleBox["Nikolitsa Yannopoulou and Petros Zimourtopoulos\[LineSeparator]",
  FontSize->12],
 StyleBox["Antennas Research Group, Xanthi, Thrace, Hellas, EU",
  FontSize->12,
  FontWeight->"Bold"],
 StyleBox["\[LineSeparator]",
  FontSize->12],
 StyleBox[ButtonBox["www.antennas.gr",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["http://www.antennas.gr"], None},
  ButtonNote->"http://www.antennas.gr"],
  FontSize->12]
}], "DetailNotes",
 CellChangeTimes->{
  3.35696210375764*^9, 3.436702857*^9, 3.436753593484375*^9, {
   3.439814487859375*^9, 3.439814489171875*^9}, {3.439992028671875*^9, 
   3.439992146*^9}, 3.43999363821875*^9, {3.4401890764493346`*^9, 
   3.4401891139024596`*^9}, {3.44454862953125*^9, 3.444548714765625*^9}, {
   3.444549257484375*^9, 3.444549329296875*^9}, {3.444549954390625*^9, 
   3.44455005178125*^9}, 3.444550226640625*^9},
 CellID->187231113]
}, Open  ]]
},
WindowSize->{1272, 687},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
DockedCells->FEPrivate`If[
  FEPrivate`SameQ[FEPrivate`$ProductIDName, "MathematicaPlayer"], 
  FEPrivate`Join[{
    Cell[
     BoxData[
      GraphicsBox[
       RasterBox[CompressedData["
1:eJztXXlYU9e27/fe++Pe9757be9tax1AkUGQAMokiLMWB9Q60Dreaq2tA1Zb
LaJ1wjrVjg44KyKCAzIj8zwFSBjCkDCEBAjIKELRKhqSvJ3ssNmckxNGxX7d
v+/od7LPPmuvtWJ+a++19jnqbdy5fON/v/XWWybgz//811tvKc9FA4RQmDVv
AVdnbMpy5+KEBNgm7kT6t3uleuMbxxrVsqbI7T6WTVsrn7paNvPTRs87VUUC
cNREx7e67HlpOVNhYt0x3qJ11LiaS1cGqhIBAQEBwWtHzg0vro5eps5Yjv74
/E9WC27fEeXmivLzM8+eZxtYKsYayMaMe2Y+U+a0S7b8oMz5kHzpfrnjVy+W
7nzh9EWHzbIO8w87TB1emDk817doHG1QFRM71AYREBAQEPQBcPIvSE8vMDQW
6Ojl6+oV6Izj6RrwLOx5do6RJrP4rKkKvTGKMWM7DFjta09Jt17r2HpV+qWH
7LOzslUnpEu+kzp+JbVb9XLS/OesqfW6E+qMLcuzOENtFgEBAQFBHwBjQXlp
abb91OLRY4vG6BeNHc83sMgzss+fuCTefnXTBGtlLNA36NAf92TGCrHbrao9
ng/3eDV/6/lsx+WOLz2kq49L5++UOqxsmzBDomsumTRFxOMNtVkEBAQEBL0F
KgqA87yNm0Sjxlbqm/KMJ2bOcWQvWpa6Ym2881q+48ziD2cK5s8VLFrIn+WQ
vv6LxO2uydt2sbd/m73dNX/rbv7nXwvWbSlyXpuz4COuiW2x9YzygoKhtoyA
gICAoFcQY1B+PORerWPEs5hceuFoTcDl6oBrVUFekkDPOr+Ldfcv1gVcrgu8
Wud/ufb+JUnYrapwH8kDn+oHPjXhPg/DbtWGeD8MvFETdE3sezZ2ynRBarr2
octLSrL9A4TpPXQjICAgIHilAPxf0Ql1MPjukGScde5XX9QG3mgIDquLSJTE
pLeFR/4REvokLKItMrYtJq4tNq4tLKwlKrohh9eQV9CYndfIyW1iZz9OZIP+
1YHhkrDwIo+LkSs3Zoc+KBcK8RFLBQJuYmLU6dMRn2/irFojuXCpoqhoiKwn
+OtCGBIi9PYeai0ICIYYaCEAo0ClCspwIBKVLFsrMZ+Xf9i1NiywKTGnNjWv
IT6Nf/Fic0zis6z8p5m8p5m5Tzh5T9I5TxKS29LYLUWlzcWipkJhU1ZBXSK3
Ijq9PCKlIiGjPDQueJzdzeFjr1ja+i1c4rXc+ecFC/c4TNltPP63d98LGz6i
Zt16SWrqUHuC4K8IEAj4b70FDoGODjh/RaOkD9GCNzw83MXF5eTJk3w+f0gU
IPgTAY8FIApUqSAuLc0/fKzUdK5w5voc971VUQ+q0/IakjJaElNCJk9JsZ/O
v+7VnFPQmlvYkp3fks1rYXPApZa4+OaU1EcpqfVxiVVRCeWhMSWh0WUxifyQ
8O8/GLln2Du/Dnv/0N//8fXf/vf0P4dFvvd+wwjdjgkT6695DrUPCP7SKN28
uWTVKmU4GDasPClp0OXn5ORcuHBh0MX2BiAGBQQE7Nu3z9OT/MoIqBCks1Nu
3ky+dSs3MbEkPx/M/8uFwjI+v4TDKYqN5QcE8c56ZC1emWU4NdPOOWOhC9fd
reJBYH1M0u+xSY/SOckLFj3UMc4bZZC0co0gKLQuO7+Ry6tncxpSMhrjkxoj
ImtDgiVBASJ/v5K7t/N9bhUEB2beu/PV8A/OjxzvM1zHb/jIsrF6ckMjhZ5e
h4VVddiDofYHAYESICKAcFDs4DDokocwFkD4+vqCcDCEChC8mRALBNX3Ajkr
Pz2vb3hk5Ae/WVl62NoGWtukWdlmTrLhWNvzJ08rsbARmjlUWs5usJ7J27e9
+r53U0RMU2Law/Ss2PlO5QbmFaY2pXqmKfoTEnd8LQiPrmJzq5LYkrgkSWS0
JChY7O9fcvdOka9Pzs0bOf5+/Lv3ci1mSEwdpJNmyFl2cpOJCv3xHRYTq6Oj
X6mlQm/vwcoDl+fmKqW9shwCwZADrAhgsmjQawdDHgvA6sDFxWWo8lQEbz4k
Sanir77JMbVINxgfbTSeYz6xzX66YrKDwmKSwshQoT9GYTBOMX5CjpuL+N6t
h5HxkvhUUUp6xDynIiOLIpYNn2VbYmqTO9YkYpJt8vEfBFHx5XEpwvCoMv+g
0jv3Cn198ry9Mjyv8e/fb4xKlq8/IluyQzZtldxmvtzERmZq9TA4uPeqAiqG
v1NwgHPUDhb1Gn+/cI6HDvARXQITP3z6R/kIoL5lzx7UUnb8OBoI9ASX0C3w
nN/50g+gBkUfujRcrFIOi4UPrUxTdBoIExdIeWQUaAfEBRQABwpP4ESgo4Py
3vBeJBwRXdm5c8iloA+0C9xSsnAh1BlqhfxMvxGOArUCfaADgRxgI5AAtaK7
DmpC0QqqDYZW+5bFgo7qugsY6O0NxgInoJHuQ1wZCiia4/4BosCh/Cq734i+
4m5yGBxF9wwTtMcCwNLh4eGURpjnpwg5efKkiwru7u7x8fGo/bffftu1axdo
x3NBuFjQB3wEqwMtOkAAOUAaRR+kDBgUDA17AmVQcAEdoAIBAQF0i9BHmK1C
QnArcOGwD/gbSqPI5/P5wJlIVdATnMNqCBwINMKreFqM4g2NntT+pYAhoA6o
BZiP5ODeoDtE44javaFFOFzlQUfh3ynFRqAAuJFumhaIU9PEn216PMmm1ca+
berMduspcj0DxVgdhZGR3GySgmWb5ba95M4tcUScMCaxJCHZ33F+qqF5Bsua
rToyzGwyTCzDdQzuz56bcsajKCS8ODCI7+PD8/LiXL/Gvnq5LDpRkpT5cs8F
2WcnZU7bZVOWKVjTms5c7JOSiGNxmsUDBE62iDPBCX4Or/YjFiA2A41dxDXg
WICqloj8KZ3VQUfFnIiiwUcwND0IIsUgLaP+XVZA2uwUDg2HhkCBQIJI0/SY
cqOaz1Xmw3O1EBYLaUVxHdRKyerd3QXG6gqyKrvAgRQA40LFYB+NPoRWMyV2
cM3VgWDYMKVMHR0Ua+hfB2VqweQoumeY0GMsQKSHAFpw2oE/bUAXASoAuoMk
AAkKcgJoB3+DPnSxUJoWZgBXgYZIOPgI/kblZqQMoBrUDQwEhoZ9gAJAOGiE
lEWxCH2EcsBdUFs4ELwFGgKFgKs4kVLkAwWQBNCI8zMKEEgIHhkRLWv0ZI9f
CugGmRn/RqBWSBPQSFeYaUQt3tAiHKoB7ALt4G88xCOdgTPBcECHfmwYEIvF
VWc8nk+bLbObLrWdJTWbIRunr9DTlZvbyCd/yHZ1KfLxKg2L4ofHFEbFes2Z
e0fP2N/Y4j52BJhY3NMzvjJqzO3lzhmXrxT4+OZd90y5dDHH905hbHJpXGrL
gcuy7WdlKw/Kp69tX7ZJ1H1zaY9AHIL/9PAAgX6eKEBQGBVRbl9jARoFMTZg
rUGJBegq7Ny1oaWzgomkoYEA+agH6uxM4XYYOJQZrc4OlGAB1aZfhcPBEwr3
UvgWNxkOCiIC5RLV/M5FBGVc1B+NBXNxaoernABaIOVqJHyK/ynANVfP4TsX
Fyh04uZD5+NjaXeU9kiEMPBYAG7X+NMGbMD0k8fFAjKBM0kmcqDoACaokFQ1
KgMBRKGJKBP5Uz5COfglQFnQM3DpgbgUfkQ98XNInkgCnDyjbni8g+GAIoHJ
k9odAkMVnMDDFigHvwV8RN8yfjvTiFq8oUU4xXyNNsJ1InJmX1FZWVkTFS39
cJHCbGqHnbN03jappb1cV0duYZfqui3P+3pR4ANecHheWMT5mbN+Ga13Tt/4
bPcDtHjoG/8yQveUrt7djRsTzpzJuno1OzQqLzK+KDrxofuVl67nZRuOy2du
qL/Xh+wQhPpHpyJhCvOocxSdJAkW7DiTiGhr+T7HAtrsfbByRGh0eBXnImQj
kkZXA87JURBUB4thw5gMwTvgUYZJKybJXTaGhOArFwiNqw8kiqIVE5NDJ6Dc
C1zj4KYh0B2OA9cc/hNCy8Ou5U9nkk2dslNN/rsCtFZH0X2uEQOPBUwbgQB7
MG0QwmeJkLQ1JqOYdIAKoGwGPRbA5Azs0KdYgLMijGUah9ASC3Dh+I2UcWFm
jLJU6eWWKoooSLn4WHQ5yBbK7UwjavEGk3BY98FJnm4j6AlUHUhtqKKioqqq
qjY5tWP6Yrntx7IV3z3acrpt2gLFOEO267aiOzdLH0QXRUQXRsZemj3nrK7B
RcMJGo9LRqYX9E1+fW/UVXOLhGNH86LiBIlpJXGpVe6Xn7iel288Lpu/tTqp
z3pChqEk2NXpdDTtV5G/RnrB+acfOSJ1DFq4EPLGIMYCmMKCVAnvRVwEzYFD
w9tRsl2d2FdFPURE9CBI4WGcw9E5kEw5RPQ1SPeJOm6Usl7QGaDVzsEsQh+R
KFH3pQRTLEDkD4wCQ6C1nsbavRYPdzM5JAStd+i+RcoAzaEn1QsorY7C5Wv8
fiEGHgvwHA4EmpBT2gEgVyCxMAoAzgFzZjTV740OgFKg2hRlAM+gPJLG27XE
AjSJpZjZ+1gAc0TAKMiilFhASf7TVy5MntTiELgogJkcprhD1wRXXuOIWrzB
JFxjUMZNg6skpojfS8BYAFYH9UGhcqslsmX7WlzOFu4+1zxlTrabi9DftyIm
sSw2qSQ+6bbj/FBDswiWlYbD1CrceGKUuWXmcqe0vS7xly6UxCWJ2dyKtCyJ
+6XHbuc6tvykmLez4YZfn3RDVIBOYDv8LSvrlaoTOI18FbEAVg/5WDF6sGKB
ms9VVAkJUEmqKiGQLdWTf2wpBMMifqBcCr97KZPOw3wsT0IR0iUNz9LA8jFN
Mr5Aw0ur6NCwTEOrKkwrevzCPQNHwQ+N5WOUsoMUDcMH+uLwG/E6NTq6fKtS
DC8uwC9Ri6Mo8pkwKLGADqZ2xAwoYwAzJ3Ty0a4DuAtWH3BlYN0WZr+Zbn+l
sUCkmiTDMgHuChFDLKB4g8mTWhyC8jD9jgUaR3wVsQDGHbo5vYdYLK7sBDh/
tn6XfOHOZy6nha4X8r/5Ofu7r8QBvtVxyeLEtLLk9MD5C9INzTlmNlks1dF5
kmlixZlgWeg4u8BtS8KFX3kRUVXZ+ZVpmVVsjoTNrfn+8iPXM9LNp+RLvpU6
bqrK6kMuS508UbEHvn5HJIwWCKLByxEhiuimiWpGjRdPBxgLkG7gBIrCAxZo
VM+QMT4XoQ2u3t7q5RJlh0/nWBpWCnAmrMqTUDYpdc29vb2ZyJ+yowlPDUFb
wL0U8qdXovF9SspaAHNdGLlU6fPuGR4c9DCtXFB0kjNFc7VM1fdISXDh+TqU
L9LuKFH34hETeowF+LwRru7pOSI8Sxyg2oJCbxdhfIgoAmWYYT6BadsMPRZA
2seVgXkhes/exwIKlfUjR4QAHAX0gfVTjd1we9ElJk8yWYQWBRQl+5Qj0jii
Fm/0O0cE12sDWRegh45hLGg9cEo+98uXX/xUu9uDd+Ay96hbdeDtuoTU6pQM
UWpG5DynYgOLElObElNr1d82JSZWJcaTKqY6iF3WZXicSvb1zfa7X8fNrc/m
1Wdw67Jy6tjZdQc9Wveel244IlvqqrBb2b5sS2VOXi/V65aT6Zy8qTMqqh8y
3mGwasdw3wtsAYSGT1whL1GyHJB8ENGp58woDDHPG1FuHI8FaGlAKRMoNcG3
1FJ2+HQvZaLRUcYGJy54FW1hpVCculzLYqmdprpR6RMsEdQVAbEMiYZtSN3Z
XmP5GEnGgbfg8ZcC/CtAkRoFMsqNuEzKVis8FiC1lZFRq6PQcFrCWY+xAAee
lkG8DRrRBiERNtWnFBlROkjUSUeQvVH2mCl33ctYQN/pqvF2Fyx9JKLFApyp
gFGwZ59iAZ5jpxRPKbVjijdEzJ5ksgiXT1kf9b52rHFELd4YSO1Ye2FIO/AX
UCjfRFQmbP9og2z2RtmG4627z5fsu5B98kBt6L3mhJSGtKxqdlbcfKcKffOK
CdbKw8Sqwmhi9SSb2nVL8391z/T3KwoNLwh9UBQU3MDJfZSd35yR08LNa8nI
btlxom3Hz9L17rIF2+TT1ynMHF8sWCNJSu6NhvQJG/gBohMRVnWF/Xu5pxTu
MFfvG1dtNcSTJygVA+elkFHxPaWwMyIi9WbFTmnKjywWEqLlzQbIOjwWiLCl
Ac48cBMmRROU5Ee7H1FCu0sfHR2UckGhAdVfkDTkQ/QRv1FtV+coXaWK48eV
G+9XrVLq0NkZsC5c7KBd/XCnq4hhn5LSLihBta1UpIpH6swPerACq0EjoLUY
WsWoBaoWU5SFGxhCaS/4hwEU63QOvKRxCgGDiBZHodoKfZMqQv9yRLtUADcC
Psc3GUKKhmEC368IaYGSw6ewCj537VEHuPtIhHEgvvMTjgjfcYGWNmiCCjdV
QtaixAKNuyiZYgFdPgCSAE3GGRiGoYCe9pTSPanRIfiigKIk07ZPusJMI2rx
xgD3lNKjTC9BeTddXVCYzGxmx/RVspWH2refqXHzyPvxUENEwO/xiY/Tsuqz
suMXqGOB2GhSJcuybum80qO7Mm57C+KTHqamP4yNKwwJyw8KauTkNXF5j9jZ
LTkFTzLznn5+4I/Ve+Qf75PN+Uxut1xuvURhvVDqML/c06tHDfFdJXBWCX/O
+C+XQrngKr6zXeOzZvg+VZwHELGgeoTywa7uueuubAk2KUUjwkeZ0Eft+88R
50DFEKGhpQFlvkrJeCuZE5u64wfwFSofIzrF1zsiVR4JdxRav6D8STe7zp3r
Zhe2J0ejf/AHQPDwQd9cRKmDoDiLlyG0vDuOog/KU+FVclRwxwfCTaYEFMr8
n8lRaB6CatN09foXC9AjV/Be9PARZSMNeo4JsiKaM0Ox+GRV1Jnkoe821KgD
5HNR9+UAPhzcKo8vasBHuG0JDATJTdT9WTN4if50FX3FAe+iyxdhD1vRTQaX
mJ41QwYyeZLuEBhQ6M9ZUOS4YI+DaVRY44havMEkHELLs2Z4jaMf4QCPBVV8
wfN5S2WsqVK7RS8Xbm1fd+SRyy/5PxxsjPB/EhvXmpL+KJMbscCpYByLb2Ip
mjND6PoF58bFvLAIcXxyfWp6fXJyXUxM2YOwvMDA+rSshoycxjROMze/NTPv
0X/2PV228/msTR32q6VWS2Rmc+TmMxQWs+QTpzVv/bqSncGkHn3vH+JAPp6I
6NxohN+r8R0UPeaIKBK6NOnM0jOqquqAFy5hHGHqD4G2A1EsEmGcSZ8SQ5bD
hXfbHbR5M9QE3/QI8/l4igk3s2e78LEY7IJy8CHw58tgDgdpojEpRNeQqTMO
ypdI4X96RKZ/lailm/J0J9MchYui/ANA6EcsGDj6JJbemak0MJCxNJY+B1G+
lm59dTKkcUpCpvf692a4fntjIIP2CBQOWj//smOC5Qsz+w6ruVIH5xeLdzSu
OZh7dF9d6N3WqKjHcQlNySl+cx2TzCcWfrmae/7HnKAgUUx8dUKiKCauIjqm
Njq66sGDsuBg7n2/h7GJDxPZkti0OnZOMzuvddOxp8572ud8/txmkdT8Q5mZ
o3zCNIWxrcJ4svKJBoupTZ9uqggIFJWWUnRDczzUgnIUeKOW2iIFfYoFrwFd
j9l2JqjRJWQ7npTQDsojGPTtoK8f9M02Gol3IKDUL1AOX13e7f5A3OvHny4W
wDwMnuUelLH+XLEAf7Aa4q8QCyBKN2+VjjOWmlg+NTRvGm9TbzZbYr+Kt3Br
1hG3Kv+bDcGBDaGhteERwYvmp363I8v3ZnFQqCgiUhgeWRwWXhQaxgsOLggM
LLp/n3f3Tuqtm+XBEcKY1LLI5MqkrMZk7vP1x54v2tFuvVxq+uFzm3mt67Y9
3n+08bRHw5Xr9ddvNnpcbtn//eNde+vOUn8yeNq2U0/1Dx/fx0LvxgSNsYCy
Uec1A89aUKad+KXe8DksntKfwu7xnTmvFCAKwBoHRSvt2bM+yacko/B/Hhp3
Pb1O9Gkf0QA3h+Ni+xQLKO+gAEyIaBAVkZmQo4J24aIBsJ92+fhAgxgLXGhv
cOq9/r1R+M2MBWI+v9Flp3S0XvtovWYd/VpdA/E408oJU/iWC7jzN7MPfyv0
vVJx20d8927F3bvsX37i3fIpuOdX6Ocn9A8QBgQU3L2bdutW0s2b4Ei/cSPj
+vWYy5cKfe4JQuMFgTFVCRlNqdkvlu6S2q9qc97SePZKZRaXURVhOaUB/MxR
zVHdRZV2oDTCMmVvuIUSC1AGA3DFUE0d4bvX1G/j6T5VVpYtOi/17y2pvXxn
zmsG1GqwHA4rI/gBn4ODVylv23v96NM+osF6uXRfYwEaHZYs8as9xoIehQ8w
FvR+oEGMBZRFgYh5G1X/8AbGgjqfuy8dZreN1qscz6qcZFNmaSOynsw3NM3V
Mc4yskudtSZu6xf8O54lt31L/O6V3vcT+N8vDwoSx8RWZXCqc/Ml3LyatIyq
6LiywED2bd+YG54xntcjr1/NuOldFhYnikx6XF4lCY95OWXNHyu2iAXFg2V4
vwGJF88moULzEE4dXx3o9r4JgKn41/MOcBQphuqV40Pyzup+lA5fNQaXS+nQ
YvJfwRsDsVFcUCD0uBS2YWPAvn25AYFlXK6wsFBUVCQqKChLSuKdv5D00epQ
qwVBk6eyf/lRxMmqKytrEoubJNVNdfWPGpqaG1VHfcPj2vqW2rpHNbWNVTX1
5aLK0tIygaC8WNAkrnjyuLW5srJg9vJnJrNqb98fRMMJCP4sGPL/v4CAQDvK
i4ryORx6Oyoll2Rnh9rM9dU3uG1sFD53Lm/95kK3E5n7T7L3Hc84cDz7yClw
cA6dyHU7LNj1XdZ2t+RN38R/4Rqzcfcdp6UHpzlEzV+Yu3RNkdWcJvMZTwys
qkPJf2FG8FcE/C8GhloLAoL+AIUD/9mOv777rzMjxwpt5sk2n355wKvu2C3h
cW/hiZuiH33EP90S/ehddeTKHztPijYfzV13IH3992mrD+ev2ONtbLv5nbfL
jFgS44l1hmaPdA0qfe8MtVkEBAQEBH1GcWrqiVEj3N9+98Jw/fYpzrLl+2Vb
zj1zvfJ4v2fDYa8ad6+qIzcq3a/XHLjSvPlEw/rvK1YeKll7VLB8j8Dxy/Ip
n0TomcWN1i0bZ1iuZ1Sto1d67MRQG0RAQEBA0EcIhYk//XT83Q8O/t/bybrj
ZfYfyeZuki3fK/vsZ9n2Cy++vfJ07/W2vdceuV19vPvi75+ffLrm2O/Lv2te
sf/h3M2Vk53LTGcUG1lmjtFLGT2mYIxe8Sjd4sXLROXUbUIEBAQEBG8yyoXC
7ISEI6N03P/x9gsTK/mkWbLJS2TT1ypmb1UsOSBf+4Ns028dm890bDn9cv0P
L1cdaV+877mjS9usjU8sltRPW1ppO1swxpA7YnTsiFFxo3TYI3W5hsalmsoT
BAQEBARvMtJDQjb+7e/JI0bJTSbKJ9gqTKfLbJ3anbf9sfXwi09c5bO2yRbv
lS12kznt7nDc8Xzqhj+sVzw3mdN44ldxfoEIHIFBhavWJI8dF/De8Ij3R8Z+
MCrbq+e3DxEQEBAQvFG4fvDA4X/+U6GvrzAYL2dZtbl8I0lRvyJJXFLa6n5G
YbtSPvU/8qmfdtiueG7u1G44/ffPvqII4cfExC9zvv7Ov/3+/X6E02KSJiIg
ICD4E6FcKNxuZSkcMUqhp9f+oWNNVDS9T9s37grrJfJJ82TWTs+Mp7cbO1TH
JWqUxr569byO7uVh71RpkkNAQEBA8GYiMynpxL/+pdDRa/n6G3H3Z7ERKvIL
pbOXKV83ajb9hZHdkyWrRUIhk8CCpKRTxkaxM2aQpQEBAQHBnwW/bNvaNHJM
ncdF7d3q7/grJtgpWA5SQ8um33p4ARqfw/nFwlx89drgqUlAQEBA8KrAZbOv
vj+i6ezl3nT+Y8knCqOJcmOryti4HjsLcnKiXbZXcLMHrCMBAQEBwavF1W93
N+4/2svODVc9FcbWbVYOpTxeb/qX8HilJBYQEBAQvNnITE8XnPq19/3FZWUd
9rMfLVz66lQiICAgIHjNKC0o6Gt599mqTZyPh+z/jSIgICAg0Ij/B4IFulc=

        "], {{0, 0}, {516, 41}}, {0, 255}, ColorFunction -> RGBColor], 
       ImageSize -> {516, 41}, PlotRange -> {{0, 516}, {0, 41}}]], 
     "DockedCell", Background -> GrayLevel[0.866682], 
     CellFrame -> {{0, 0}, {0, 4}}, CellFrameColor -> 
     RGBColor[0.690074, 0.12871, 0.194598], CellMargins -> {{0, 0}, {-3, 0}}, 
     CellFrameMargins -> 0, ContextMenu -> None, 
     ComponentwiseContextMenu -> {}], 
    Cell[
     BoxData[
      GridBox[{{
         GraphicsBox[
          RasterBox[CompressedData["
1:eJztWl1Ik1EYFrqNEoLMbHPmNkRrEhJERj93ra4cJvbDRIsyMk1pc03tTL1w
aD+LfkQIJBkR/dBFdtHFDLywCykqoqgLIYRu6jbb8me933e+HT/P2fZN+sZ0
vg9n43zfec973nPe57zvOWNFDS2OhnU5OTlG+LyBj1S/ikAgEAgEAoFAIBAI
xEpFMBh8jUgPYG0z7d7MAOYedm/Bko4Ca5tp92YGSCokle5AUiGpdAeSCkml
O0RS/R1tjEajUIHvyIhdehPyLNZjrVSAgT5CK1Tmf32e+/qcdYEy+/4+vKTd
oQJN89PjojbaHcrCzE8qn0RGfIxrEjcF0SomD49hYqDDUUSGKtUKWRMYz42L
pFJDg1RPamGdlRWGuuDi2Yl+WHkoiy72W6jjgFeSm/wWKEAScCvtCxWpSzxt
1FPU9dJ76Lt8UnEmcVMQrWImUQE6nKJB7sgUKpb4LcpEtHiFpEpEKim2TI8n
IhXv4pAHXCAJEAPIq7d5JFAOYYEGKHEstTbQAJKSx+XH5ZKKE+CmIFq1ZC/E
SBVXoboJyMliKZKKgyapwLlK1ohHKgpYYfGRbnNpg4c8dP3prtckFQ0gUm5K
miKpVZxnRZP4KcSziiU1bjhOobpJ2TtIqnhITipYZ7byydJfoDzMpT9ZWMo1
EHbgBBLyhOWzlmakUtKQnB/VuUYkFbWNjZXIJHEKnFVL0t+IXSQVU4iRKkUk
JxVzhJI7hirpDpXOGzJ5eFLFvMNORxAlaJZhmtmZStQGAvSQA/FECSksH/kt
VLMyokw5qHDOFU3ipiBaxZmtTSo8U2lBI1LF/BWNXZ0Y1LckLo9IqQdYIWdA
9T0uvPT2J2qjrUr2lGMRSzrq4eiIVIxFGC5bMZO4KYhWcWYnSn8gv3j7k+vJ
GbVaSNXt9fo6O/XVib9Tpa+sClLdvtB0q+WSvjqRVGucVA/q6p9V1+irE0m1
xkk1cuLk2O49+upEUq1xUg1X14yZraSrS0ed+H+q9GFV/J+qx25/u9U40Nqa
aUMQ2YMrFRWf8g0vDh9JvUvgYjPR+8KIyA5AyiNeb1Pe5ql840xxSV97eyq9
Hp1y3nE602waYoXC19GRqInIGHC57lY53Lm53/O2RQ3Fr6qqNXUG609/LLX1
ulOiHyL74D/XeLPxvPiexHDtsuulyexbv2GqwLRgNP8xl/W7XAQE1IUQ1nHw
zNl5o2XYoc09RLbC5/E8te26V9+gfskY5SPkuss1abLc2Ljpm9E8Z7FFt++c
POroJoQWn1wotQAPj9XMFZp/m6y9bndGpoNYCZBikbNuoqBwsPY4IxIrQJu+
trYf5pLRfOOXotJw6d7Zsv0LtkOPzzb1ENKjolagueVD5YGodUfEZH2372Cm
p4X4X/wDFcRtOg==
           "], {{0, 0}, {199, 30}}, {0, 255}, ColorFunction -> RGBColor], 
          ImageSize -> {199, 30}, PlotRange -> {{0, 199}, {0, 30}}], 
         ButtonBox[
          GraphicsBox[
           RasterBox[CompressedData["
1:eJztlDFuhFAMRJHS5w45Re6RI+wFcoOUtNtR0lJSUlNSUtNS0m9JXjTKaPQh
UfpgCeT1n2+Px15ebu9vt6eqqp55Xnm+/I/L/p+1bbtt277vvJumIcKbnwWs
73vBsHVdE1bXNQ55Ho8HMOEd3L9tWRZ+6tRBrrjEMAwigHO/37M6SII40zRB
Q7QLkpQWjKOu63RqGHHVIoOYYAR16oucinYGxUo2jqMIzPNMnpQRPF2nMkeS
cCBDXsm7ZNZp6oZRS3wsIBFNIYM2iY8gYmJA8imqawHcOAKqio4KSp4O7Qjp
K1nOUygasaG2hoKSaud3krkArggZzyhhTohP3Uz7E0mNu9g98oj26exOSTon
fRUtn8IUJL+W80gyuz6OW3mgrSXXEv5dSaRTaRz9KQpY/knxtVomKdFQxvFT
JZFR6pFBJWT5tbEvR9+H3F6S+GOSMC+DTHtrHYyh32Qu855cdhn2CUundjY=

            "], {{0, 0}, {55, 14}}, {0, 255}, ColorFunction -> RGBColor], 
           ImageSize -> {55, 14}, PlotRange -> {{0, 55}, {0, 14}}], 
          ButtonData -> {
            URL["http://store.wolfram.com/view/app/playerpro/"], None}, 
          ButtonNote -> "http://store.wolfram.com/view/app/playerpro/"], 
         GraphicsBox[
          
          RasterBox[{{{132, 132, 132}, {156, 155, 155}}, {{138, 137, 137}, {
           171, 169, 169}}, {{138, 137, 137}, {171, 169, 169}}, {{138, 137, 
           137}, {171, 169, 169}}, {{138, 137, 137}, {171, 169, 169}}, {{138, 
           137, 137}, {171, 169, 169}}, {{138, 137, 137}, {171, 169, 169}}, {{
           138, 137, 137}, {171, 169, 169}}, {{138, 137, 137}, {171, 169, 
           169}}, {{138, 137, 137}, {171, 169, 169}}, {{138, 137, 137}, {171, 
           169, 169}}, {{138, 137, 137}, {171, 169, 169}}, {{138, 137, 137}, {
           171, 169, 169}}, {{135, 135, 135}, {167, 166, 166}}}, {{0, 0}, {2, 
           14}}, {0, 255}, ColorFunction -> RGBColor], ImageSize -> {2, 14}, 
          PlotRange -> {{0, 2}, {0, 14}}], 
         ButtonBox[
          GraphicsBox[
           RasterBox[CompressedData["
1:eJztlSGSg2AMhTuzfu+wB1qzR+gF9gbIWhwSW4lEV1ZWYyvxSPZb3vAmDdDq
zpCZdvKH5CUvfwhfx9+f48fhcPjk983vXy922eU9paqqcRx9HGcZhiE+PZ1O
KHVd24KOgt0WFKLQ27ZdJrper0JGcS5CVqs6n89yRpGl73tZBK6kkvv97kCe
ChOlLEvbVW2kiYPoxKcYRdwWld00jS2EcFSFMYXCqbOcBJzL5aJcxK7SFEFB
GQFn8AWupPUkMRfIJEK53W5d1z2hGVP7yohVbfanWoxAJQTfeywbT1+xK9mi
GQGTj8FT0uRAN3Tdjl3SlNANP5WoabIIRP+x52ojLEgXs8fxs7+R1cCXNFH6
SVJhKZwx0+BxBZ7nraGNpBSrEFlA1khgRDcCRg1navIWTeVKPVmliaeaL+c4
tCmcknRHfjtWaS6HNtYmC1wYjGJ+6eKjJcficWgVssz1nGbabFtD682gZaIO
MHXqkq/vyW3GFaQXliNuOhbz9lOHU3a6SrhWkCmnXC9pUoPBt1aQpquYrtJt
0f6Pazkd497W1MkSlxierkrrN254iz8oHqS0ByzxGzfOHx2yq9plYSl8l13e
Xf4ArlmHrg==
            "], {{0, 0}, {77, 14}}, {0, 255}, ColorFunction -> RGBColor], 
           ImageSize -> {77, 14}, PlotRange -> {{0, 77}, {0, 14}}], 
          ButtonData -> {
            URL[
            "http://www.wolfram.com/solutions/interactivedeployment/\
licensingterms.html"], None}, ButtonNote -> 
          "http://www.wolfram.com/solutions/interactivedeployment/\
licensingterms.html"]}}, ColumnsEqual -> False, 
       GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}]], 
     "DockedCell", Background -> GrayLevel[0.494118], 
     CellFrame -> {{0, 0}, {4, 0}}, CellFrameColor -> 
     RGBColor[0.690074, 0.12871, 0.194598], CellMargins -> 0, 
     CellFrameMargins -> {{0, 0}, {0, -1}}, ContextMenu -> None, 
     ComponentwiseContextMenu -> {}, 
     ButtonBoxOptions -> {ButtonFunction :> (FrontEndExecute[{
          NotebookLocate[#2]}]& ), Appearance -> None, ButtonFrame -> None, 
       Evaluator -> None, Method -> "Queued"}]}, 
   FEPrivate`If[
    FEPrivate`SameQ[
     FrontEnd`CurrentValue[
      FrontEnd`EvaluationNotebook[], ScreenStyleEnvironment], "SlideShow"], {
    Inherited}, {}]], Inherited],
FrontEndVersion->"7.0 for Microsoft Windows (32-bit) (November 10, 2008)",
StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, "Demonstration.nb", 
  CharacterEncoding -> "WindowsANSI"]
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[567, 22, 245, 5, 71, "DemoTitle"],
Cell[815, 29, 16925, 340, 563, "Output",
 CellID->115210430],
Cell[17743, 371, 323, 5, 22, "ManipulateCaption"],
Cell[18069, 378, 1715, 40, 102, "ManipulateCaption",
 CellID->107724732],
Cell[19787, 420, 343, 6, 22, "ManipulateCaption",
 CellID->263948759],
Cell[20133, 428, 1261, 27, 70, "DetailNotes",
 CellID->28710086],
Cell[21397, 457, 6120, 215, 318, "DetailNotes",
 CellID->198353490],
Cell[27520, 674, 3723, 121, 133, "DetailNotes",
 CellID->144046550],
Cell[31246, 797, 343, 6, 22, "ManipulateCaption",
 CellID->139431782],
Cell[31592, 805, 911, 28, 67, "DetailNotes",
 CellID->185198083],
Cell[32506, 835, 879, 19, 37, "DetailNotes",
 CellID->695610436],
Cell[33388, 856, 700, 14, 22, "DetailNotes",
 CellID->775104838],
Cell[34091, 872, 910, 22, 23, "DetailNotes",
 CellID->455589978],
Cell[35004, 896, 749, 14, 37, "DetailNotes",
 CellID->688440460],
Cell[35756, 912, 637, 13, 22, "DetailNotes",
 CellID->117521758],
Cell[36396, 927, 342, 6, 22, "ManipulateCaption",
 CellID->77480956],
Cell[36741, 935, 639, 16, 56, "DetailNotes",
 CellID->514257536],
Cell[37383, 953, 637, 10, 22, "DetailNotes",
 CellID->16796479],
Cell[38023, 965, 666, 11, 22, "DetailNotes",
 CellID->333634757],
Cell[38692, 978, 343, 6, 22, "ManipulateCaption",
 CellID->136062055],
Cell[39038, 986, 607, 14, 40, "DetailNotes",
 CellID->11159148],
Cell[39648, 1002, 337, 9, 22, "RelatedLinks",
 CellID->5579609],
Cell[39988, 1013, 643, 14, 23, "RelatedLinks",
 CellID->581978810],
Cell[40634, 1029, 902, 17, 22, "DetailNotes",
 CellID->113533269],
Cell[41539, 1048, 342, 6, 22, "ManipulateCaption",
 CellID->70802527],
Cell[41884, 1056, 1009, 26, 86, "DetailNotes",
 CellID->187231113]
}, Open  ]]
}
]
*)

(* End of internal cache information *)
(* NotebookSignature zvDesd4Sk70cmAKyJuyoPRTy *)
