(* Content-type: application/vnd.wolfram.cdf.text *)

(*** Wolfram CDF File ***)
(* http://www.wolfram.com/cdf *)

(* CreatedBy='Mathematica 10.0' *)

(*************************************************************************)
(*                                                                       *)
(*  The Mathematica License under which this file was created prohibits  *)
(*  restricting third parties in receipt of this file from republishing  *)
(*  or redistributing it by any means, including but not limited to      *)
(*  rights management or terms of use, without the express consent of    *)
(*  Wolfram Research, Inc. For additional information concerning CDF     *)
(*  licensing and redistribution see:                                    *)
(*                                                                       *)
(*        www.wolfram.com/cdf/adopting-cdf/licensing-options.html        *)
(*                                                                       *)
(*************************************************************************)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[      1064,         20]
NotebookDataLength[     21160,        567]
NotebookOptionsPosition[     21457,        554]
NotebookOutlinePosition[     21982,        575]
CellTagsIndexPosition[     21939,        572]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Polarizacion", "Section"],

Cell["\<\
por Pablo Cobelli.
Curso de Fisica II para Quimicos, segundo cuatrimestre de 2015.
\
\>", "Text"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"wave", "[", 
    RowBox[{
    "3", ",", "t_", ",", "\[Omega]_", ",", "k_", ",", "\[Phi]_", ",", "E0x_", 
     ",", "E0y_", ",", "EyP_", ",", "Na_"}], "]"}], ":=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"ParametricPlot3D", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"x", ",", "0", ",", 
          RowBox[{"E0y", "*", 
           RowBox[{"Sin", "[", 
            RowBox[{
             RowBox[{"k", " ", "x"}], "-", 
             RowBox[{"\[Omega]", " ", "t"}]}], "]"}]}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"x", ",", "0", ",", 
          RowBox[{"8", " ", "\[Pi]"}]}], "}"}], ",", 
        RowBox[{"PlotStyle", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{"Red", ",", 
           RowBox[{"Opacity", "[", "EyP", "]"}]}], "}"}]}]}], "]"}], "[", 
      RowBox[{"[", "1", "]"}], "]"}], ",", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"Red", ",", 
         RowBox[{"Thickness", "[", 
          RowBox[{"EyP", "*", "0.005"}], "]"}], ",", 
         RowBox[{"Arrowheads", "[", 
          RowBox[{"EyP", "*", "0.005"}], "]"}], ",", 
         RowBox[{"Arrow", "[", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"x", ",", "0", ",", "0"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"x", ",", "0", ",", 
              RowBox[{"E0y", "*", 
               RowBox[{"Sin", "[", 
                RowBox[{
                 RowBox[{"k", " ", "x"}], "-", 
                 RowBox[{"\[Omega]", " ", "t"}]}], "]"}]}]}], "}"}]}], "}"}], 
          "]"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", "0.0", ",", 
         RowBox[{"8.0", " ", "\[Pi]"}], ",", 
         RowBox[{"\[Pi]", "/", "Na"}]}], "}"}]}], "]"}]}], "}"}]}], 
  "\n"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"wave", "[", 
    RowBox[{
    "2", ",", "t_", ",", "\[Omega]_", ",", "k_", ",", "\[Phi]_", ",", "E0x_", 
     ",", "E0y_", ",", "ExP_", ",", "Na_"}], "]"}], ":=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"ParametricPlot3D", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"x", ",", 
          RowBox[{"E0x", "*", 
           RowBox[{"Sin", "[", 
            RowBox[{
             RowBox[{"k", " ", "x"}], "-", 
             RowBox[{"\[Omega]", " ", "t"}], "+", "\[Phi]"}], "]"}]}], ",", 
          "0"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"x", ",", "0", ",", 
          RowBox[{"8", " ", "\[Pi]"}]}], "}"}], ",", 
        RowBox[{"PlotStyle", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{"Blue", ",", 
           RowBox[{"Opacity", "[", "ExP", "]"}]}], "}"}]}]}], "]"}], "[", 
      RowBox[{"[", "1", "]"}], "]"}], ",", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"Blue", ",", 
         RowBox[{"Thickness", "[", 
          RowBox[{"ExP", "*", "0.005"}], "]"}], ",", 
         RowBox[{"Arrowheads", "[", 
          RowBox[{"ExP", "*", "0.005"}], "]"}], ",", 
         RowBox[{"Arrow", "[", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"x", ",", "0", ",", "0"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"x", ",", 
              RowBox[{"E0x", "*", 
               RowBox[{"Sin", "[", 
                RowBox[{
                 RowBox[{"k", " ", "x"}], "-", 
                 RowBox[{"\[Omega]", " ", "t"}], "+", "\[Phi]"}], "]"}]}], 
              ",", "0"}], "}"}]}], "}"}], "]"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", "0.0", ",", 
         RowBox[{"8.0", " ", "\[Pi]"}], ",", 
         RowBox[{"\[Pi]", "/", "Na"}]}], "}"}]}], "]"}]}], "}"}]}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"wave", "[", 
    RowBox[{
    "1", ",", "t_", ",", "\[Omega]_", ",", "k_", ",", "\[Phi]_", ",", "E0x_", 
     ",", "E0y_", ",", "ExT_", ",", "Na_"}], "]"}], ":=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"ParametricPlot3D", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"x", ",", 
          RowBox[{"E0x", "*", 
           RowBox[{"Sin", "[", 
            RowBox[{
             RowBox[{"k", " ", "x"}], "-", 
             RowBox[{"\[Omega]", " ", "t"}], "+", "\[Phi]"}], "]"}]}], ",", 
          RowBox[{"E0y", "*", 
           RowBox[{"Sin", "[", 
            RowBox[{
             RowBox[{"k", " ", "x"}], "-", 
             RowBox[{"\[Omega]", " ", "t"}]}], "]"}]}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"x", ",", "0", ",", 
          RowBox[{"8", " ", "\[Pi]"}]}], "}"}], ",", 
        RowBox[{"PlotStyle", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{"Green", ",", 
           RowBox[{"Opacity", "[", "ExT", "]"}]}], "}"}]}]}], "]"}], "[", 
      RowBox[{"[", "1", "]"}], "]"}], ",", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"Green", ",", 
         RowBox[{"Thickness", "[", 
          RowBox[{"ExT", "*", "0.005"}], "]"}], ",", 
         RowBox[{"Arrowheads", "[", 
          RowBox[{"ExT", "*", "0.005"}], "]"}], ",", 
         RowBox[{"Arrow", "[", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"x", ",", "0", ",", "0"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"x", ",", 
              RowBox[{"E0x", "*", 
               RowBox[{"Sin", "[", 
                RowBox[{
                 RowBox[{"k", " ", "x"}], "-", 
                 RowBox[{"\[Omega]", " ", "t"}], "+", "\[Phi]"}], "]"}]}], 
              ",", 
              RowBox[{"E0y", "*", 
               RowBox[{"Sin", "[", 
                RowBox[{
                 RowBox[{"k", " ", "x"}], "-", 
                 RowBox[{"\[Omega]", " ", "t"}]}], "]"}]}]}], "}"}]}], "}"}], 
          "]"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", "0.0", ",", 
         RowBox[{"8.0", " ", "\[Pi]"}], ",", 
         RowBox[{"\[Pi]", "/", "Na"}]}], "}"}]}], "]"}]}], "}"}]}], 
  "\n"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"planoxy", " ", "=", " ", 
    RowBox[{"{", 
     RowBox[{"ParametricPlot3D", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"\[Alpha]", " ", 
         RowBox[{"{", 
          RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], "+", 
        RowBox[{"\[Beta]", " ", 
         RowBox[{"{", 
          RowBox[{"1", ",", "0", ",", "0"}], "}"}]}]}], ",", 
       RowBox[{"{", 
        RowBox[{"\[Alpha]", ",", 
         RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"\[Beta]", ",", "0", ",", 
         RowBox[{"8", "*", "Pi"}]}], "}"}], ",", 
       RowBox[{"PlotStyle", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"Blue", ",", 
          RowBox[{"Opacity", "[", "0.1", "]"}]}], "}"}]}], ",", 
       RowBox[{"Mesh", "\[Rule]", "None"}]}], "]"}], "}"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"planoxz", " ", "=", " ", 
    RowBox[{"{", 
     RowBox[{"ParametricPlot3D", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"\[Alpha]", " ", 
         RowBox[{"{", 
          RowBox[{"1", ",", "0", ",", "0"}], "}"}]}], "+", 
        RowBox[{"\[Beta]", " ", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "1"}], "}"}]}]}], ",", 
       RowBox[{"{", 
        RowBox[{"\[Alpha]", ",", "0", ",", 
         RowBox[{"8", "*", "Pi"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"\[Beta]", ",", 
         RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
       RowBox[{"PlotStyle", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"Red", ",", 
          RowBox[{"Opacity", "[", "0.1", "]"}]}], "}"}]}], ",", 
       RowBox[{"Mesh", "\[Rule]", "None"}]}], "]"}], "}"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"ejes", "[", 
     RowBox[{"x_", ",", "y_", ",", "z_", ",", "f_", ",", "a_"}], "]"}], ":=", 
    
    RowBox[{"Graphics3D", "[", 
     RowBox[{"Join", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"Arrowheads", "[", "a", "]"}], "}"}], ",", 
       RowBox[{
        RowBox[{
         RowBox[{"Arrow", "[", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", "#"}], "}"}], 
          "]"}], "&"}], "/@", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"x", ",", "0", ",", "0"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"0", ",", 
            RowBox[{"-", "y"}], ",", "0"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"0", ",", "0", ",", "z"}], "}"}]}], "}"}]}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Text", "[", 
          RowBox[{
           RowBox[{"Style", "[", 
            RowBox[{"\"\<\!\(\*OverscriptBox[\(z\), \(^\)]\)\>\"", ",", 
             RowBox[{"FontSize", "\[Rule]", 
              RowBox[{"Scaled", "[", "f", "]"}]}]}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"1.05", "*", "x"}], ",", 
             RowBox[{"0.0", "*", "y"}], ",", 
             RowBox[{"0.0", "*", "z"}]}], "}"}]}], "]"}], ",", 
         RowBox[{"Text", "[", 
          RowBox[{
           RowBox[{"Style", "[", 
            RowBox[{"\"\<\!\(\*OverscriptBox[\(y\), \(^\)]\)\>\"", ",", 
             RowBox[{"FontSize", "\[Rule]", 
              RowBox[{"Scaled", "[", "f", "]"}]}]}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"0.0", " ", "x"}], ",", 
             RowBox[{
              RowBox[{"-", "1.2"}], "*", "y"}], ",", 
             RowBox[{"0.1", "*", "z"}]}], "}"}]}], "]"}], ",", 
         RowBox[{"Text", "[", 
          RowBox[{
           RowBox[{"Style", "[", 
            RowBox[{"\"\<\!\(\*OverscriptBox[\(x\), \(^\)]\)\>\"", ",", 
             RowBox[{"FontSize", "\[Rule]", 
              RowBox[{"Scaled", "[", "f", "]"}]}]}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"0.0", "*", "x"}], ",", 
             RowBox[{"0.0", "*", "y"}], ",", 
             RowBox[{"1.2", "*", "z"}]}], "}"}]}], "]"}]}], "}"}]}], "]"}], 
     "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"planomovil", "[", "xpos_", "]"}], " ", ":=", "  ", 
    RowBox[{"{", 
     RowBox[{"ParametricPlot3D", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"\[Alpha]", " ", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "+", 
        RowBox[{"\[Beta]", " ", 
         RowBox[{"{", 
          RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], "+", 
        RowBox[{"{", 
         RowBox[{"xpos", ",", "0", ",", "0"}], "}"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"\[Alpha]", ",", 
         RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"\[Beta]", ",", 
         RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
       RowBox[{"PlotStyle", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"White", ",", 
          RowBox[{"Opacity", "[", "1", "]"}]}], "}"}]}], ",", 
       RowBox[{"Mesh", "\[Rule]", "None"}]}], "]"}], "}"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"Show", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"ejes", "[", 
        RowBox[{
         RowBox[{"8.8", "*", "Pi"}], ",", "1.5", ",", "1.5", ",", "0.03", ",",
          "0.01"}], "]"}], ",", "planoxy", ",", "planoxz", ",", 
       RowBox[{"planomovil", "[", "xpos", "]"}], ",", 
       RowBox[{"Graphics3D", "[", 
        RowBox[{"{", 
         RowBox[{"wave", "[", 
          RowBox[{
          "3", ",", "t", ",", "1", ",", "k", ",", "\[Phi]", ",", "E0x", ",", 
           "E0y", ",", "EyP", ",", "Na"}], "]"}], "}"}], "]"}], ",", 
       RowBox[{"Graphics3D", "[", 
        RowBox[{"{", 
         RowBox[{"wave", "[", 
          RowBox[{
          "2", ",", "t", ",", "1", ",", "k", ",", "\[Phi]", ",", "E0x", ",", 
           "E0y", ",", "ExP", ",", "Na"}], "]"}], "}"}], "]"}], ",", 
       RowBox[{"Graphics3D", "[", 
        RowBox[{"{", 
         RowBox[{"wave", "[", 
          RowBox[{
          "1", ",", "t", ",", "1", ",", "k", ",", "\[Phi]", ",", "E0x", ",", 
           "E0y", ",", "ExT", ",", "Na"}], "]"}], "}"}], "]"}]}], "}"}], ",", 
     
     RowBox[{"Boxed", "\[Rule]", "False"}], ",", 
     RowBox[{"BoxRatios", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"3", ",", "1", ",", "1"}], "}"}]}], ",", 
     RowBox[{"ImageSize", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"700", ",", "400"}], "}"}]}], ",", 
     RowBox[{"Lighting", "\[Rule]", "\"\<Neutral\>\""}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "0", ",", 
     RowBox[{"20", " ", "\[Pi]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\[Phi]", ",", 
     RowBox[{
      RowBox[{"-", "Pi"}], "/", "2"}], ",", 
     RowBox[{"Pi", "/", "2"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"k", ",", 
     RowBox[{"2", "*", "2", "*", 
      RowBox[{"Pi", "/", 
       RowBox[{"(", 
        RowBox[{"8", "*", "Pi"}], ")"}]}]}], ",", "5"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"Na", ",", "5", ",", "\"\<Densidad de flechas\>\""}], "}"}], 
     ",", 
     RowBox[{"{", 
      RowBox[{
      "1", ",", "2", ",", "5", ",", "7", ",", "10", ",", "12", ",", "16", ",",
        "24"}], "}"}], ",", "Slider"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"xpos", ",", "0", ",", "5"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"E0x", ",", "0", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"E0y", ",", "0", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "ExP", ",", "1", ",", 
       "\"\<Mostrar \!\(\*SubscriptBox[\(E\), \(x\)]\)\>\""}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "1"}], "}"}], ",", "Checkbox"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "EyP", ",", "1", ",", 
       "\"\<Mostrar \!\(\*SubscriptBox[\(E\), \(y\)]\)\>\""}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "1"}], "}"}], ",", "Checkbox"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "ExT", ",", "1", ",", 
       "\"\<Mostrar \!\(\*OverscriptBox[\(E\), \(\[RightVector]\)]\)\>\""}], 
      "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "1"}], "}"}], ",", "Checkbox"}], "}"}]}], 
  "]"}], "\n"}], "Input"],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`E0x$$ = 0, $CellContext`E0y$$ = 
    0, $CellContext`ExP$$ = 1, $CellContext`ExT$$ = 1, $CellContext`EyP$$ = 
    1, $CellContext`k$$ = Rational[1, 2], $CellContext`Na$$ = 
    5, $CellContext`t$$ = 0, $CellContext`xpos$$ = 0, $CellContext`\[Phi]$$ = 
    Rational[-1, 2] Pi, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, 
    Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 
    1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{
      Hold[$CellContext`t$$], 0, 20 Pi}, {
      Hold[$CellContext`\[Phi]$$], Rational[-1, 2] Pi, Rational[1, 2] Pi}, {
      Hold[$CellContext`k$$], 
      Rational[1, 2], 5}, {{
       Hold[$CellContext`Na$$], 5, "Densidad de flechas"}, {1, 2, 5, 7, 10, 
      12, 16, 24}}, {
      Hold[$CellContext`xpos$$], 0, 5}, {
      Hold[$CellContext`E0x$$], 0, 1}, {
      Hold[$CellContext`E0y$$], 0, 1}, {{
       Hold[$CellContext`ExP$$], 1, 
       "Mostrar \!\(\*SubscriptBox[\(E\), \(x\)]\)"}, {0, 1}}, {{
       Hold[$CellContext`EyP$$], 1, 
       "Mostrar \!\(\*SubscriptBox[\(E\), \(y\)]\)"}, {0, 1}}, {{
       Hold[$CellContext`ExT$$], 1, 
       "Mostrar \!\(\*OverscriptBox[\(E\), \(\[RightVector]\)]\)"}, {0, 1}}}, 
    Typeset`size$$ = {700., {198., 202.}}, Typeset`update$$ = 0, 
    Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`t$1109$$ =
     0, $CellContext`\[Phi]$1110$$ = 0, $CellContext`k$1111$$ = 
    0, $CellContext`Na$1112$$ = 0, $CellContext`xpos$1113$$ = 
    0, $CellContext`E0x$1114$$ = 0, $CellContext`E0y$1115$$ = 
    0, $CellContext`ExP$1116$$ = False, $CellContext`EyP$1117$$ = 
    False, $CellContext`ExT$1118$$ = False}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`E0x$$ = 0, $CellContext`E0y$$ = 
        0, $CellContext`ExP$$ = 1, $CellContext`ExT$$ = 1, $CellContext`EyP$$ = 
        1, $CellContext`k$$ = Rational[1, 2], $CellContext`Na$$ = 
        5, $CellContext`t$$ = 0, $CellContext`xpos$$ = 
        0, $CellContext`\[Phi]$$ = Rational[-1, 2] Pi}, "ControllerVariables" :> {
        Hold[$CellContext`t$$, $CellContext`t$1109$$, 0], 
        Hold[$CellContext`\[Phi]$$, $CellContext`\[Phi]$1110$$, 0], 
        Hold[$CellContext`k$$, $CellContext`k$1111$$, 0], 
        Hold[$CellContext`Na$$, $CellContext`Na$1112$$, 0], 
        Hold[$CellContext`xpos$$, $CellContext`xpos$1113$$, 0], 
        Hold[$CellContext`E0x$$, $CellContext`E0x$1114$$, 0], 
        Hold[$CellContext`E0y$$, $CellContext`E0y$1115$$, 0], 
        Hold[$CellContext`ExP$$, $CellContext`ExP$1116$$, False], 
        Hold[$CellContext`EyP$$, $CellContext`EyP$1117$$, False], 
        Hold[$CellContext`ExT$$, $CellContext`ExT$1118$$, 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" :> Show[{
         $CellContext`ejes[
         8.8 Pi, 1.5, 1.5, 0.03, 
          0.01], $CellContext`planoxy, $CellContext`planoxz, 
         $CellContext`planomovil[$CellContext`xpos$$], 
         Graphics3D[{
           $CellContext`wave[
           3, $CellContext`t$$, 
            1, $CellContext`k$$, $CellContext`\[Phi]$$, $CellContext`E0x$$, \
$CellContext`E0y$$, $CellContext`EyP$$, $CellContext`Na$$]}], 
         Graphics3D[{
           $CellContext`wave[
           2, $CellContext`t$$, 
            1, $CellContext`k$$, $CellContext`\[Phi]$$, $CellContext`E0x$$, \
$CellContext`E0y$$, $CellContext`ExP$$, $CellContext`Na$$]}], 
         Graphics3D[{
           $CellContext`wave[
           1, $CellContext`t$$, 
            1, $CellContext`k$$, $CellContext`\[Phi]$$, $CellContext`E0x$$, \
$CellContext`E0y$$, $CellContext`ExT$$, $CellContext`Na$$]}]}, Boxed -> False,
         BoxRatios -> {3, 1, 1}, ImageSize -> {700, 400}, Lighting -> 
        "Neutral"], 
      "Specifications" :> {{$CellContext`t$$, 0, 20 
         Pi}, {$CellContext`\[Phi]$$, Rational[-1, 2] Pi, Rational[1, 2] 
         Pi}, {$CellContext`k$$, 
         Rational[1, 2], 5}, {{$CellContext`Na$$, 5, "Densidad de flechas"}, {
         1, 2, 5, 7, 10, 12, 16, 24}, ControlType -> 
         Slider}, {$CellContext`xpos$$, 0, 5}, {$CellContext`E0x$$, 0, 
         1}, {$CellContext`E0y$$, 0, 
         1}, {{$CellContext`ExP$$, 1, 
          "Mostrar \!\(\*SubscriptBox[\(E\), \(x\)]\)"}, {0, 1}, ControlType -> 
         Checkbox}, {{$CellContext`EyP$$, 1, 
          "Mostrar \!\(\*SubscriptBox[\(E\), \(y\)]\)"}, {0, 1}, ControlType -> 
         Checkbox}, {{$CellContext`ExT$$, 1, 
          "Mostrar \!\(\*OverscriptBox[\(E\), \(\[RightVector]\)]\)"}, {0, 1},
          ControlType -> Checkbox}}, "Options" :> {}, "DefaultOptions" :> {}],
     
     ImageSizeCache->{1052., {226., 231.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output"]
}, Open  ]]
}, Open  ]]
},
WindowSize->{1206, 755},
Visible->True,
ScrollingOptions->{"VerticalScrollRange"->Fit},
PrivateNotebookOptions->{"VersionedStylesheet"->{"Default.nb"[8.] -> False}},
ShowCellBracket->Automatic,
CellContext->Notebook,
TrackCellChangeTimes->False,
FrontEndVersion->"10.0 for Mac OS X x86 (32-bit, 64-bit Kernel) (June 27, \
2014)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[1486, 35, 31, 0, 64, "Section"],
Cell[1520, 37, 107, 4, 68, "Text"],
Cell[CellGroupData[{
Cell[1652, 45, 14518, 404, 573, "Input"],
Cell[16173, 451, 5256, 99, 474, "Output"]
}, Open  ]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)

(* NotebookSignature uuDlxB@4IaW9MC1XGTF8uIvi *)