(* Content-type: application/mathematica *)

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

(* CreatedBy='Mathematica 6.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[      5905,        158]
NotebookOptionsPosition[      5415,        136]
NotebookOutlinePosition[      5810,        153]
CellTagsIndexPosition[      5767,        150]
WindowFrame->Normal
ContainsDynamic->False*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Figure for Griffiths 9.9 (b)", "Section",
 CellChangeTimes->{{3.4114393942952223`*^9, 3.411439400070039*^9}, {
  3.411443058131526*^9, 3.411443071159277*^9}}],

Cell[TextData[{
 "-",
 StyleBox["The two stacked pink cubes represent the intersection of the x, y, \
z axes.\n-A line is drawn from {0, 0, 0} to {1, 1, 1}.  This represents the \
direction of travel of the wave.\n-The blue plane is perpendicular to the \
direction of travel \n- The E and B fields are allowed to be anywhere on this \
plane (as long as B is perpendicular to E), but the problem says the wave is \
polarized in the x-z plane\n-You can rotate the figure below with your mouse \
to help yourself see where that is.  You will however, still need to do the \
math to find the equation for the intersection of the plane and the cube \
yourself \[HappySmiley]",
  FontSize->14],
 ". "
}], "Text",
 CellChangeTimes->{{3.4114394209591093`*^9, 3.411439430797247*^9}, {
  3.411439471431995*^9, 3.41143954022113*^9}, {3.411442591008803*^9, 
  3.411442600767088*^9}, {3.4114426777322206`*^9, 3.4114428107298717`*^9}, {
  3.411442856150649*^9, 3.411442926195479*^9}, {3.4114429583644733`*^9, 
  3.411442963220751*^9}, {3.411443113844595*^9, 3.4114431339188128`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Graphics3D", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Opacity", "[", ".5", "]"}], ",", 
       RowBox[{"Cuboid", "[", 
        RowBox[{"{", 
         RowBox[{"0", ",", "0", ",", "0"}], "}"}], "]"}], ",", 
       RowBox[{"Cuboid", "[", 
        RowBox[{"{", 
         RowBox[{"0", ",", "0", ",", 
          RowBox[{"-", "1"}]}], "}"}], "]"}]}], "}"}], ",", "Blue", ",", 
     "Thick", ",", 
     RowBox[{"GeometricTransformation", "[", 
      RowBox[{
       RowBox[{"Cuboid", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", "1"}], ",", 
           RowBox[{"-", "1"}], ",", "0"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "1", ",", "0"}], "}"}]}], "]"}], ",", 
       RowBox[{"RotationMatrix", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0", ",", "0", ",", "1"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "1", ",", "1"}], "}"}]}], "}"}], "]"}]}], "]"}], 
     ",", 
     RowBox[{"Line", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1", ",", "1", ",", "1"}], "}"}]}], "}"}], "]"}]}], "}"}], 
   ",", 
   RowBox[{"Boxed", "\[Rule]", "False"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.41131169304941*^9, 3.411311768749722*^9}, {
   3.411311815429625*^9, 3.411311971196464*^9}, {3.4113121088347797`*^9, 
   3.411312180481436*^9}, {3.4113123900247307`*^9, 3.411312450741235*^9}, 
   3.4113124918717012`*^9, {3.411312529291913*^9, 3.411312576327064*^9}, {
   3.411313240272088*^9, 3.411313342165798*^9}, {3.41131393148825*^9, 
   3.411313933808744*^9}, {3.4114394406218967`*^9, 3.411439446011888*^9}, {
   3.411442553899754*^9, 3.411442563766344*^9}, {3.411442636337372*^9, 
   3.411442646559703*^9}}],

Cell[BoxData[
 Graphics3DBox[{
   {Opacity[0.5], CuboidBox[{0, 0, 0}], CuboidBox[{0, 0, -1}]}, 
   {RGBColor[0, 0, 1], Thickness[Large], 
    InterpretationBox[
     GraphicsComplex3DBox[{{-0.5773502691896256, -0.5773502691896256, 
      1.1547005383792517`}, {-0.5773502691896256, -0.5773502691896256, 
      1.1547005383792517`}, {-0.9999999999999999, 0.9999999999999999, 
      0.}, {-0.9999999999999999, 0.9999999999999999, 0.}, {
      0.9999999999999999, -0.9999999999999999, 0.}, {
      0.9999999999999999, -0.9999999999999999, 0.}, {0.5773502691896256, 
      0.5773502691896256, -1.1547005383792517`}, {0.5773502691896256, 
      0.5773502691896256, -1.1547005383792517`}}, 
      Polygon3DBox[{{1, 3, 7, 5}, {1, 5, 6, 2}, {2, 6, 8, 4}, {3, 4, 8, 7}, {
       1, 2, 4, 3}, {5, 7, 8, 6}}],
      VertexColors->Automatic,
      VertexNormals->Automatic],
     GeometricTransformation[
      Cuboid[{-1, -1, 0}, {1, 1, 0}], {{
       Rational[1, 6] (3 + 3^Rational[1, 2]), 
        Rational[1, 6] (-3 + 3^Rational[1, 2]), 3^Rational[-1, 2]}, {
       Rational[1, 6] (-3 + 3^Rational[1, 2]), 
        Rational[1, 6] (3 + 3^Rational[1, 2]), 3^
        Rational[-1, 2]}, {-3^Rational[-1, 2], -3^Rational[-1, 2], 3^
        Rational[-1, 2]}}]], Line3DBox[{{0, 0, 0}, {1, 1, 1}}]}},
  Boxed->False,
  ImageSize->{287.53861645950474`, 432.},
  ViewPoint->{2.55499480384793, -1.6415435233561273`, 1.4924263510262858`},
  ViewVertical->{0.46679062046538583`, 0.08711008426520335, 
   0.9115309991430005}]], "Output",
 CellChangeTimes->{3.411439448278224*^9, 3.4114425688164473`*^9, 
  3.411442648757551*^9}]
}, Open  ]]
}, Open  ]]
},
WindowSize->{640, 706},
WindowMargins->{{Automatic, 134}, {Automatic, 20}},
PrintingCopies->1,
PrintingPageRange->{1, Automatic},
FrontEndVersion->"6.0 for Mac OS X PowerPC (32-bit) (June 19, 2007)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[590, 23, 164, 2, 67, "Section"],
Cell[757, 27, 1070, 18, 147, "Text"],
Cell[CellGroupData[{
Cell[1852, 49, 1926, 50, 73, "Input"],
Cell[3781, 101, 1606, 31, 447, "Output"]
}, Open  ]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)