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

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

(* CreatedBy='Mathematica 12.1' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[      5355,        168]
NotebookOptionsPosition[      4735,        148]
NotebookOutlinePosition[      5179,        166]
CellTagsIndexPosition[      5136,        163]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[{
 RowBox[{
  RowBox[{"E0", "=", 
   RowBox[{"{", 
    RowBox[{"Ex", ",", "Ey", ",", "Ez"}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"EE", "=", 
  RowBox[{"E0", "*", 
   RowBox[{"Exp", "[", 
    RowBox[{
     RowBox[{"-", "I"}], "*", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"kx", "*", "x"}], "+", 
       RowBox[{"ky", "*", "y"}], "+", 
       RowBox[{"kz", "*", "z"}]}], ")"}]}], "]"}]}]}], "\[IndentingNewLine]", 
 RowBox[{"CurlEE", "=", 
  RowBox[{"Curl", "[", 
   RowBox[{"EE", ",", 
    RowBox[{"{", 
     RowBox[{"x", ",", "y", ",", "z"}], "}"}]}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.974237195374922*^9, 3.974237196331852*^9}, {
  3.9742375689287615`*^9, 3.9742376145072193`*^9}, {3.9742379857039995`*^9, 
  3.974237988635354*^9}},ExpressionUUID->"7e15296f-8773-4315-97fc-\
e40e1aa72be4"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{
      RowBox[{"-", "\[ImaginaryI]"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"kx", " ", "x"}], "+", 
        RowBox[{"ky", " ", "y"}], "+", 
        RowBox[{"kz", " ", "z"}]}], ")"}]}]], " ", "Ex"}], ",", 
   RowBox[{
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{
      RowBox[{"-", "\[ImaginaryI]"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"kx", " ", "x"}], "+", 
        RowBox[{"ky", " ", "y"}], "+", 
        RowBox[{"kz", " ", "z"}]}], ")"}]}]], " ", "Ey"}], ",", 
   RowBox[{
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{
      RowBox[{"-", "\[ImaginaryI]"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"kx", " ", "x"}], "+", 
        RowBox[{"ky", " ", "y"}], "+", 
        RowBox[{"kz", " ", "z"}]}], ")"}]}]], " ", "Ez"}]}], "}"}]], "Output",
 CellChangeTimes->{3.9742376178593273`*^9},
 CellLabel->"Out[2]=",ExpressionUUID->"7b8ade8f-9f22-4a3e-a0d7-ad4f893ec275"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"-", "\[ImaginaryI]"}], " ", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{
       RowBox[{"-", "\[ImaginaryI]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"kx", " ", "x"}], "+", 
         RowBox[{"ky", " ", "y"}], "+", 
         RowBox[{"kz", " ", "z"}]}], ")"}]}]], " ", "Ez", " ", "ky"}], "+", 
    RowBox[{"\[ImaginaryI]", " ", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{
       RowBox[{"-", "\[ImaginaryI]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"kx", " ", "x"}], "+", 
         RowBox[{"ky", " ", "y"}], "+", 
         RowBox[{"kz", " ", "z"}]}], ")"}]}]], " ", "Ey", " ", "kz"}]}], ",", 
   RowBox[{
    RowBox[{"\[ImaginaryI]", " ", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{
       RowBox[{"-", "\[ImaginaryI]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"kx", " ", "x"}], "+", 
         RowBox[{"ky", " ", "y"}], "+", 
         RowBox[{"kz", " ", "z"}]}], ")"}]}]], " ", "Ez", " ", "kx"}], "-", 
    RowBox[{"\[ImaginaryI]", " ", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{
       RowBox[{"-", "\[ImaginaryI]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"kx", " ", "x"}], "+", 
         RowBox[{"ky", " ", "y"}], "+", 
         RowBox[{"kz", " ", "z"}]}], ")"}]}]], " ", "Ex", " ", "kz"}]}], ",", 
   RowBox[{
    RowBox[{
     RowBox[{"-", "\[ImaginaryI]"}], " ", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{
       RowBox[{"-", "\[ImaginaryI]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"kx", " ", "x"}], "+", 
         RowBox[{"ky", " ", "y"}], "+", 
         RowBox[{"kz", " ", "z"}]}], ")"}]}]], " ", "Ey", " ", "kx"}], "+", 
    RowBox[{"\[ImaginaryI]", " ", 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{
       RowBox[{"-", "\[ImaginaryI]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"kx", " ", "x"}], "+", 
         RowBox[{"ky", " ", "y"}], "+", 
         RowBox[{"kz", " ", "z"}]}], ")"}]}]], " ", "Ex", " ", "ky"}]}]}], 
  "}"}]], "Output",
 CellChangeTimes->{3.974237617902564*^9},
 CellLabel->"Out[3]=",ExpressionUUID->"fb6ec2d3-ca6d-486d-a277-836ff977012b"]
}, Open  ]]
},
WindowSize->{760, 833},
WindowMargins->{{371, Automatic}, {Automatic, 189}},
Magnification:>1.5 Inherited,
FrontEndVersion->"12.1 for Microsoft Windows (64-bit) (2020\:5e743\:670814\
\:65e5)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"f2f574e3-1d2a-4297-b418-d2cd0c0d2173"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 836, 24, 149, "Input",ExpressionUUID->"7e15296f-8773-4315-97fc-e40e1aa72be4"],
Cell[1419, 48, 1045, 31, 57, "Output",ExpressionUUID->"7b8ade8f-9f22-4a3e-a0d7-ad4f893ec275"],
Cell[2467, 81, 2252, 64, 125, "Output",ExpressionUUID->"fb6ec2d3-ca6d-486d-a277-836ff977012b"]
}, Open  ]]
}
]
*)

