generallorentztransformandFaradayField.nb

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

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

(* CreatedBy='Mathematica 9.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[     50188,       1223]
NotebookOptionsPosition[     48749,       1175]
NotebookOutlinePosition[     49092,       1190]
CellTagsIndexPosition[     49049,       1187]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell["General Lorentz Boost", "Text",
 CellChangeTimes->{{3.592429697433158*^9, 3.5924297017450485`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Remove", "[", "\"\<Global`*\>\"", "]"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{"Minkowski", " ", "Metric"}], "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"\[Eta]", "=", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "1"}], ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "1", ",", "0", ",", "0"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0", ",", "1", ",", "0"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0", ",", "0", ",", "1"}], "}"}]}], "}"}]}], ";"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{"General", " ", "boost"}], "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Beta]", "=", 
   RowBox[{"{", 
    RowBox[{"\[Beta]x", ",", "\[Beta]y", ",", "\[Beta]z"}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"\[Beta]", "=", 
  RowBox[{"{", 
   RowBox[{"b", ",", "0", ",", "0"}], "}"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[CapitalLambda]", "[", 
   RowBox[{"i_", ",", "j_"}], "]"}], ":=", 
  TagBox[GridBox[{
     {"\[Piecewise]", GridBox[{
        {"\[Gamma]", 
         RowBox[{
          RowBox[{"i", "\[Equal]", "0"}], "&&", 
          RowBox[{"j", "\[Equal]", "0"}]}]},
        {
         RowBox[{
          RowBox[{"-", "\[Gamma]"}], " ", 
          RowBox[{"\[Beta]", "[", 
           RowBox[{"[", 
            RowBox[{"If", "[", 
             RowBox[{
              RowBox[{"i", "\[Equal]", "0"}], ",", "j", ",", "i"}], "]"}], 
            "]"}], "]"}]}], 
         RowBox[{
          RowBox[{"i", "\[Equal]", "0"}], "||", 
          RowBox[{"j", "\[Equal]", "0"}]}]},
        {
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"\[Gamma]", "-", "1"}], ")"}], 
           RowBox[{"(", 
            FractionBox[
             RowBox[{
              RowBox[{"\[Beta]", "[", 
               RowBox[{"[", "i", "]"}], "]"}], 
              RowBox[{"\[Beta]", "[", 
               RowBox[{"[", "j", "]"}], "]"}]}], 
             RowBox[{"\[Beta]", ".", "\[Beta]"}]], ")"}]}], "+", 
          RowBox[{"KroneckerDelta", "[", 
           RowBox[{"i", ",", "j"}], "]"}]}], "True"}
       },
       AllowedDimensions->{2, Automatic},
       Editable->True,
       GridBoxAlignment->{
        "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
          "RowsIndexed" -> {}},
       GridBoxItemSize->{
        "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
         "RowsIndexed" -> {}},
       GridBoxSpacings->{"Columns" -> {
           Offset[0.27999999999999997`], {
            Offset[0.84]}, 
           Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
           Offset[0.2], {
            Offset[0.4]}, 
           Offset[0.2]}, "RowsIndexed" -> {}},
       Selectable->True]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxItemSize->{
     "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.35]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}],
   "Piecewise",
   DeleteWithContents->True,
   Editable->False,
   SelectWithContents->True,
   Selectable->False]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[CapitalLambda]", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"\[CapitalLambda]", "[", 
      RowBox[{"i", ",", "j"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "0", ",", "3"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"j", ",", "0", ",", "3"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[CapitalLambda]t", "=", 
   RowBox[{"\[Eta]", ".", "\[CapitalLambda]", ".", "\[Eta]"}]}], ";"}], "\n", 
 RowBox[{"MatrixForm", "[", "\[CapitalLambda]", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MatrixForm", "[", "\[CapitalLambda]t", "]"}], "\n", 
  RowBox[{"(*", 
   RowBox[{"Axial", " ", "boosts"}], "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"xboost", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"\[Gamma]", ",", 
       RowBox[{
        RowBox[{"-", "\[Gamma]"}], " ", "b"}], ",", "0", ",", "0"}], "}"}], 
     ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "\[Gamma]"}], " ", "b"}], ",", "\[Gamma]", ",", "0", ",",
        "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0", ",", "1", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0", ",", "0", ",", "1"}], "}"}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"x2yrot", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"1", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0", ",", "1", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "1", ",", "0", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0", ",", "0", ",", "1"}], "}"}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"x2zrot", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"1", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0", ",", "0", ",", "1"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0", ",", "1", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "1", ",", "0", ",", "0"}], "}"}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"xboost", "=", 
   RowBox[{"xboost", "/.", 
    RowBox[{"b", "\[Rule]", "\[Beta]x"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"yboost", "=", 
   RowBox[{
    RowBox[{
     RowBox[{"Inverse", "[", "x2yrot", "]"}], ".", "xboost", ".", "x2yrot"}], 
    "/.", 
    RowBox[{"\[Beta]x", "\[Rule]", "\[Beta]y"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"zboost", "=", 
    RowBox[{
     RowBox[{
      RowBox[{"Inverse", "[", "x2zrot", "]"}], ".", "xboost", ".", "x2zrot"}],
      "/.", 
     RowBox[{"\[Beta]x", "\[Rule]", "\[Beta]z"}]}]}], ";"}], "\n", 
  RowBox[{"(*", 
   RowBox[{
   "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**", "**",
     "**", "**", "**", "**", "**", "**"}], 
   "********)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"th", "=", 
   RowBox[{"{", 
    RowBox[{"t", ",", "x", ",", "y", ",", "z"}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"MatrixForm", "[", 
  RowBox[{"\[CapitalLambda]", ".", "th"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MatrixForm", "[", 
   RowBox[{"\[CapitalLambda]t", ".", "th"}], "]"}], "\n"}], "\n"}], "Input",
 CellChangeTimes->{{3.592425196478822*^9, 3.5924252111850834`*^9}, {
   3.592425433753697*^9, 3.5924254509381905`*^9}, {3.5924255255044208`*^9, 
   3.5924255685121913`*^9}, {3.59242565219062*^9, 3.592425669529235*^9}, {
   3.592425801494197*^9, 3.592425829388339*^9}, {3.5924258639354987`*^9, 
   3.592425882370116*^9}, {3.5924259508988905`*^9, 3.5924261358005514`*^9}, {
   3.59242616917864*^9, 3.59242618261378*^9}, {3.592427022371747*^9, 
   3.5924273412342*^9}, {3.5924274186739883`*^9, 3.5924276766435328`*^9}, {
   3.592427716330324*^9, 3.5924278107494235`*^9}, {3.5924278576877365`*^9, 
   3.5924278810207853`*^9}, {3.592427984841359*^9, 3.5924280628476753`*^9}, {
   3.592428095627239*^9, 3.5924281029217978`*^9}, {3.5924281384288287`*^9, 
   3.592428288295904*^9}, {3.592428546784917*^9, 3.5924286489460073`*^9}, {
   3.5924288499662304`*^9, 3.592429147426363*^9}, {3.592429188819672*^9, 
   3.592429192414915*^9}, {3.592429227476535*^9, 3.5924294256051207`*^9}, {
   3.5924294869644327`*^9, 3.59242955332225*^9}, {3.5924295947786207`*^9, 
   3.5924296637327795`*^9}, {3.5924297034706025`*^9, 
   3.5924297918482847`*^9}, {3.5924298516211667`*^9, 
   3.5924298573873625`*^9}, {3.592429991584318*^9, 3.592430188951253*^9}, {
   3.5924302503075595`*^9, 3.5924304369247856`*^9}, {3.5924305104330463`*^9, 
   3.592430513723999*^9}, 3.5926012160360928`*^9, {3.592602117256427*^9, 
   3.592602121031066*^9}, {3.592602171326136*^9, 3.592602174056737*^9}, {
   3.592603487822537*^9, 3.59260353598981*^9}, 3.592603878077058*^9, {
   3.592682670285029*^9, 3.5926826740722837`*^9}, {3.592682936392551*^9, 
   3.592683004844014*^9}, {3.5926849069579144`*^9, 3.5926849412831306`*^9}, {
   3.5933031516828012`*^9, 3.59330316250452*^9}, {3.596146923206301*^9, 
   3.5961469363671637`*^9}, {3.596147088464715*^9, 3.5961471077460623`*^9}, {
   3.5961477513480673`*^9, 3.5961477560672736`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"b", ",", "0", ",", "0"}], "}"}]], "Output",
 CellChangeTimes->{
  3.596146936757504*^9, {3.59614709370042*^9, 3.5961471080553093`*^9}, 
   3.5961477568549824`*^9}],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"\[Gamma]", 
      RowBox[{
       RowBox[{"-", "b"}], " ", "\[Gamma]"}], "0", "0"},
     {
      RowBox[{
       RowBox[{"-", "b"}], " ", "\[Gamma]"}], "\[Gamma]", "0", "0"},
     {"0", "0", "1", "0"},
     {"0", "0", "0", "1"}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.596146936757504*^9, {3.59614709370042*^9, 3.5961471080553093`*^9}, 
   3.5961477568900127`*^9}],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"\[Gamma]", 
      RowBox[{"b", " ", "\[Gamma]"}], "0", "0"},
     {
      RowBox[{"b", " ", "\[Gamma]"}], "\[Gamma]", "0", "0"},
     {"0", "0", "1", "0"},
     {"0", "0", "0", "1"}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.596146936757504*^9, {3.59614709370042*^9, 3.5961471080553093`*^9}, 
   3.5961477568940163`*^9}],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", 
   TagBox[GridBox[{
      {
       RowBox[{
        RowBox[{"t", " ", "\[Gamma]"}], "-", 
        RowBox[{"b", " ", "x", " ", "\[Gamma]"}]}]},
      {
       RowBox[{
        RowBox[{
         RowBox[{"-", "b"}], " ", "t", " ", "\[Gamma]"}], "+", 
        RowBox[{"x", " ", "\[Gamma]"}]}]},
      {"y"},
      {"z"}
     },
     GridBoxAlignment->{
      "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
        "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.5599999999999999]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    Column], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.596146936757504*^9, {3.59614709370042*^9, 3.5961471080553093`*^9}, 
   3.596147756899021*^9}],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", 
   TagBox[GridBox[{
      {
       RowBox[{
        RowBox[{"t", " ", "\[Gamma]"}], "+", 
        RowBox[{"b", " ", "x", " ", "\[Gamma]"}]}]},
      {
       RowBox[{
        RowBox[{"b", " ", "t", " ", "\[Gamma]"}], "+", 
        RowBox[{"x", " ", "\[Gamma]"}]}]},
      {"y"},
      {"z"}
     },
     GridBoxAlignment->{
      "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}},
        "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.5599999999999999]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[0.4]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    Column], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.596146936757504*^9, {3.59614709370042*^9, 3.5961471080553093`*^9}, 
   3.596147756905027*^9}]
}, Open  ]],

Cell[BoxData["\n"], "Input",
 CellChangeTimes->{3.59268298586062*^9}],

Cell[BoxData["\[IndentingNewLine]"], "Input",
 CellChangeTimes->{{3.5924298194531517`*^9, 3.5924299841265955`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\n", 
  RowBox[{
   RowBox[{
    RowBox[{"P", "=", 
     RowBox[{
      RowBox[{
       RowBox[{"{", " ", 
        RowBox[{
         RowBox[{"\[HBar]", " ", 
          RowBox[{"\[Omega]", "/", "c"}]}], " ", ",", 
         RowBox[{"\[HBar]", " ", "kx"}], ",", 
         RowBox[{"\[HBar]", " ", "ky"}], ",", 
         RowBox[{"\[HBar]", " ", "kz"}]}], "}"}], "/", "\[HBar]"}], " ", "//",
       "Simplify"}]}], ";"}], "\n", 
   RowBox[{
    RowBox[{"Pp", "=", 
     RowBox[{
      RowBox[{
       RowBox[{"{", " ", 
        RowBox[{
         RowBox[{"\[HBar]", " ", 
          RowBox[{"\[Omega]p", "/", "c"}]}], ",", 
         RowBox[{"\[HBar]", " ", "kxp"}], ",", 
         RowBox[{"\[HBar]", " ", "kyp"}], ",", 
         RowBox[{"\[HBar]", " ", "kzp"}]}], "}"}], "/", "\[HBar]"}], " ", "//",
       "Simplify"}]}], ";"}], "\n", 
   RowBox[{"TP", "=", 
    RowBox[{
     RowBox[{"\[CapitalLambda]", ".", "P"}], "//", "FullSimplify"}]}], "\n", 
   RowBox[{"TPp", "=", 
    RowBox[{
     RowBox[{
      RowBox[{"\[CapitalLambda]", ".", "Pp"}], "/.", 
      RowBox[{"\[Beta]x", "\[Rule]", 
       RowBox[{"-", "\[Beta]x"}]}]}], "//", "FullSimplify"}]}], "\n", 
   RowBox[{
    RowBox[{"set1", "=", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Pp", "[", 
         RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", 
        RowBox[{"TP", "[", 
         RowBox[{"[", "i", "]"}], "]"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "1", ",", "4"}], "}"}]}], "]"}]}], ";"}], "\n", 
   RowBox[{
    RowBox[{"set2", "=", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"P", "[", 
         RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", 
        RowBox[{"TPp", "[", 
         RowBox[{"[", "i", "]"}], "]"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "1", ",", "4"}], "}"}]}], "]"}]}], ";"}], "\n", 
   RowBox[{
    RowBox[{"Eqn", "=", 
     RowBox[{"Flatten", "[", 
      RowBox[{"{", 
       RowBox[{"set1", ",", "set2"}], "}"}], "]"}]}], ";"}], "\n", 
   RowBox[{
    RowBox[{"Solve", "[", "Eqn", "]"}], "//", "FullSimplify"}], 
   "\n"}]}]], "Input",
 CellChangeTimes->{{3.592601225830756*^9, 3.592601273549222*^9}, {
   3.592601373446637*^9, 3.592601612570424*^9}, {3.592601649359914*^9, 
   3.592601649495717*^9}, {3.592601681681511*^9, 3.592602096602721*^9}, {
   3.592602131474902*^9, 3.592602142586025*^9}, {3.5926021830770206`*^9, 
   3.592602218573999*^9}, {3.592602305186027*^9, 3.592602364519351*^9}, 
   3.592603256873163*^9, 3.5926034770537157`*^9, {3.592603602013629*^9, 
   3.592603622757387*^9}, {3.592604184542994*^9, 3.592604478193487*^9}, {
   3.592672825589788*^9, 3.592672951349538*^9}, {3.592672983820207*^9, 
   3.5926730605069838`*^9}, {3.592674247785953*^9, 3.59267425127181*^9}, {
   3.59330301624018*^9, 3.59330305606593*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"-", "kx"}], " ", "\[CapitalBeta]", " ", "\[Gamma]"}], "+", 
    FractionBox[
     RowBox[{"\[Gamma]", " ", "\[Omega]"}], "c"]}], ",", 
   RowBox[{"\[Gamma]", " ", 
    RowBox[{"(", 
     RowBox[{"kx", "-", 
      FractionBox[
       RowBox[{"\[CapitalBeta]", " ", "\[Omega]"}], "c"]}], ")"}]}], ",", 
   "ky", ",", "kz"}], "}"}]], "Output",
 CellChangeTimes->{
  3.5926020276938753`*^9, {3.5926020749863577`*^9, 3.592602142965995*^9}, {
   3.5926021779234447`*^9, 3.592602219384185*^9}, 3.592602364932341*^9, 
   3.592603259159892*^9, 3.592603478239197*^9, 3.592603547754108*^9, {
   3.592603604114111*^9, 3.592603623296597*^9}, 3.592603883575*^9, 
   3.5926039735572443`*^9, {3.592604288261622*^9, 3.5926043155064583`*^9}, {
   3.592604347524652*^9, 3.5926043705147257`*^9}, 3.592604404237735*^9, {
   3.592604452331522*^9, 3.592604478793479*^9}, 3.592672857996541*^9, {
   3.592672944146688*^9, 3.592672952964034*^9}, 3.592672994495072*^9, {
   3.5926730394654913`*^9, 3.5926730610342093`*^9}, 3.5926742522553453`*^9, 
   3.592682679183826*^9, 3.596146973048064*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"-", "kxp"}], " ", "\[CapitalBeta]", " ", "\[Gamma]"}], "+", 
    FractionBox[
     RowBox[{"\[Gamma]", " ", "\[Omega]p"}], "c"]}], ",", 
   RowBox[{"\[Gamma]", " ", 
    RowBox[{"(", 
     RowBox[{"kxp", "-", 
      FractionBox[
       RowBox[{"\[CapitalBeta]", " ", "\[Omega]p"}], "c"]}], ")"}]}], ",", 
   "kyp", ",", "kzp"}], "}"}]], "Output",
 CellChangeTimes->{
  3.5926020276938753`*^9, {3.5926020749863577`*^9, 3.592602142965995*^9}, {
   3.5926021779234447`*^9, 3.592602219384185*^9}, 3.592602364932341*^9, 
   3.592603259159892*^9, 3.592603478239197*^9, 3.592603547754108*^9, {
   3.592603604114111*^9, 3.592603623296597*^9}, 3.592603883575*^9, 
   3.5926039735572443`*^9, {3.592604288261622*^9, 3.5926043155064583`*^9}, {
   3.592604347524652*^9, 3.5926043705147257`*^9}, 3.592604404237735*^9, {
   3.592604452331522*^9, 3.592604478793479*^9}, 3.592672857996541*^9, {
   3.592672944146688*^9, 3.592672952964034*^9}, 3.592672994495072*^9, {
   3.5926730394654913`*^9, 3.5926730610342093`*^9}, 3.5926742522553453`*^9, 
   3.592682679183826*^9, 3.5961469731481533`*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"ky", "\[Rule]", "kyp"}], ",", 
     RowBox[{"kz", "\[Rule]", "kzp"}], ",", 
     RowBox[{"\[Omega]", "\[Rule]", "0"}], ",", 
     RowBox[{"\[Omega]p", "\[Rule]", "0"}], ",", 
     RowBox[{"kxp", "\[Rule]", "0"}], ",", 
     RowBox[{"kx", "\[Rule]", "0"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"ky", "\[Rule]", "kyp"}], ",", 
     RowBox[{"kz", "\[Rule]", "kzp"}], ",", 
     RowBox[{"\[Omega]", "\[Rule]", 
      RowBox[{
       RowBox[{"-", "c"}], " ", "kx"}]}], ",", 
     RowBox[{"\[Omega]p", "\[Rule]", 
      RowBox[{
       RowBox[{"-", "c"}], " ", "kx"}]}], ",", 
     RowBox[{"kxp", "\[Rule]", "kx"}], ",", 
     RowBox[{"\[CapitalBeta]", "\[Rule]", 
      RowBox[{
       RowBox[{"-", "1"}], "+", 
       FractionBox["1", "\[Gamma]"]}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"ky", "\[Rule]", "kyp"}], ",", 
     RowBox[{"kz", "\[Rule]", "kzp"}], ",", 
     RowBox[{"\[Omega]", "\[Rule]", 
      RowBox[{
       RowBox[{"-", "c"}], " ", "kx"}]}], ",", 
     RowBox[{"\[Omega]p", "\[Rule]", 
      RowBox[{"c", " ", "kx"}]}], ",", 
     RowBox[{"kxp", "\[Rule]", 
      RowBox[{"-", "kx"}]}], ",", 
     RowBox[{"\[CapitalBeta]", "\[Rule]", 
      RowBox[{"-", 
       FractionBox[
        RowBox[{"1", "+", "\[Gamma]"}], "\[Gamma]"]}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"ky", "\[Rule]", "kyp"}], ",", 
     RowBox[{"kz", "\[Rule]", "kzp"}], ",", 
     RowBox[{"\[Omega]", "\[Rule]", 
      RowBox[{"c", " ", "kx"}]}], ",", 
     RowBox[{"\[Omega]p", "\[Rule]", 
      RowBox[{
       RowBox[{"-", "c"}], " ", "kx"}]}], ",", 
     RowBox[{"kxp", "\[Rule]", 
      RowBox[{"-", "kx"}]}], ",", 
     RowBox[{"\[CapitalBeta]", "\[Rule]", 
      RowBox[{"1", "+", 
       FractionBox["1", "\[Gamma]"]}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"ky", "\[Rule]", "kyp"}], ",", 
     RowBox[{"kz", "\[Rule]", "kzp"}], ",", 
     RowBox[{"\[Omega]", "\[Rule]", 
      RowBox[{"c", " ", "kx"}]}], ",", 
     RowBox[{"\[Omega]p", "\[Rule]", 
      RowBox[{"c", " ", "kx"}]}], ",", 
     RowBox[{"kxp", "\[Rule]", "kx"}], ",", 
     RowBox[{"\[CapitalBeta]", "\[Rule]", 
      FractionBox[
       RowBox[{
        RowBox[{"-", "1"}], "+", "\[Gamma]"}], "\[Gamma]"]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"ky", "\[Rule]", "kyp"}], ",", 
     RowBox[{"kz", "\[Rule]", "kzp"}], ",", 
     RowBox[{"\[Omega]", "\[Rule]", 
      RowBox[{"-", "\[Omega]p"}]}], ",", 
     RowBox[{"kxp", "\[Rule]", 
      RowBox[{"-", "kx"}]}], ",", 
     RowBox[{"\[CapitalBeta]", "\[Rule]", "0"}], ",", 
     RowBox[{"\[Gamma]", "\[Rule]", 
      RowBox[{"-", "1"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"ky", "\[Rule]", "kyp"}], ",", 
     RowBox[{"kz", "\[Rule]", "kzp"}], ",", 
     RowBox[{"\[Omega]", "\[Rule]", "\[Omega]p"}], ",", 
     RowBox[{"kxp", "\[Rule]", "kx"}], ",", 
     RowBox[{"\[CapitalBeta]", "\[Rule]", "0"}], ",", 
     RowBox[{"\[Gamma]", "\[Rule]", "1"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"ky", "\[Rule]", "kyp"}], ",", 
     RowBox[{"kz", "\[Rule]", "kzp"}], ",", 
     RowBox[{"\[Omega]", "\[Rule]", 
      RowBox[{
       RowBox[{"-", "c"}], " ", "kx"}]}], ",", 
     RowBox[{"\[Omega]p", "\[Rule]", 
      RowBox[{
       RowBox[{"-", "c"}], " ", "kx"}]}], ",", 
     RowBox[{"kxp", "\[Rule]", "kx"}], ",", 
     RowBox[{"\[CapitalBeta]", "\[Rule]", 
      RowBox[{"-", "2"}]}], ",", 
     RowBox[{"\[Gamma]", "\[Rule]", 
      RowBox[{"-", "1"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"ky", "\[Rule]", "kyp"}], ",", 
     RowBox[{"kz", "\[Rule]", "kzp"}], ",", 
     RowBox[{"\[Omega]", "\[Rule]", 
      RowBox[{
       RowBox[{"-", "c"}], " ", "kx"}]}], ",", 
     RowBox[{"\[Omega]p", "\[Rule]", 
      RowBox[{"c", " ", "kx"}]}], ",", 
     RowBox[{"kxp", "\[Rule]", 
      RowBox[{"-", "kx"}]}], ",", 
     RowBox[{"\[CapitalBeta]", "\[Rule]", 
      RowBox[{"-", "2"}]}], ",", 
     RowBox[{"\[Gamma]", "\[Rule]", "1"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"ky", "\[Rule]", "kyp"}], ",", 
     RowBox[{"kz", "\[Rule]", "kzp"}], ",", 
     RowBox[{"\[Omega]", "\[Rule]", 
      RowBox[{"c", " ", "kx"}]}], ",", 
     RowBox[{"\[Omega]p", "\[Rule]", 
      RowBox[{
       RowBox[{"-", "c"}], " ", "kx"}]}], ",", 
     RowBox[{"kxp", "\[Rule]", 
      RowBox[{"-", "kx"}]}], ",", 
     RowBox[{"\[CapitalBeta]", "\[Rule]", "2"}], ",", 
     RowBox[{"\[Gamma]", "\[Rule]", "1"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"ky", "\[Rule]", "kyp"}], ",", 
     RowBox[{"kz", "\[Rule]", "kzp"}], ",", 
     RowBox[{"\[Omega]", "\[Rule]", 
      RowBox[{"c", " ", "kx"}]}], ",", 
     RowBox[{"\[Omega]p", "\[Rule]", 
      RowBox[{"c", " ", "kx"}]}], ",", 
     RowBox[{"kxp", "\[Rule]", "kx"}], ",", 
     RowBox[{"\[CapitalBeta]", "\[Rule]", "2"}], ",", 
     RowBox[{"\[Gamma]", "\[Rule]", 
      RowBox[{"-", "1"}]}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.5926020276938753`*^9, {3.5926020749863577`*^9, 3.592602142965995*^9}, {
   3.5926021779234447`*^9, 3.592602219384185*^9}, 3.592602364932341*^9, 
   3.592603259159892*^9, 3.592603478239197*^9, 3.592603547754108*^9, {
   3.592603604114111*^9, 3.592603623296597*^9}, 3.592603883575*^9, 
   3.5926039735572443`*^9, {3.592604288261622*^9, 3.5926043155064583`*^9}, {
   3.592604347524652*^9, 3.5926043705147257`*^9}, 3.592604404237735*^9, {
   3.592604452331522*^9, 3.592604478793479*^9}, 3.592672857996541*^9, {
   3.592672944146688*^9, 3.592672952964034*^9}, 3.592672994495072*^9, {
   3.5926730394654913`*^9, 3.5926730610342093`*^9}, 3.5926742522553453`*^9, 
   3.592682679183826*^9, 3.5961469734494267`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
    "Faraday", " ", "Tensor", " ", "for", " ", "particle", " ", "at", " ", 
     "reast", " ", "in", " ", "prime", " ", "frame"}], ",", " ", 
    RowBox[{
     RowBox[{"use", " ", "\[Beta]", " ", "in", " ", "x"}], "-", 
     "direction"}]}], "*)"}], "\n", 
  RowBox[{
   RowBox[{"Clear", "[", 
    RowBox[{"xp", ",", "yp", ",", "zp"}], "]"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"rp", "=", 
     RowBox[{"{", 
      RowBox[{"tp", ",", "xp", ",", "yp", ",", "zp"}], "}"}]}], ";"}], "\n", 
   RowBox[{
    RowBox[{"Lp", "=", " ", "L"}], " ", ";"}], "\n", 
   RowBox[{"xp", "=", "Lp"}], "\n", 
   RowBox[{"yp", "=", "0"}], "\n", 
   RowBox[{"zp", "=", "0"}], "\n", 
   RowBox[{
    RowBox[{"Elp", "=", 
     RowBox[{"Assuming", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"xp", "\[Element]", "Reals"}], " ", "&&", 
        RowBox[{"yp", "\[Element]", "Reals"}], " ", "&&", 
        RowBox[{"zp", "\[Element]", "Reals"}], " ", "&&", 
        RowBox[{"L", ">", "0"}], "&&", 
        RowBox[{"\[Gamma]", ">", "0"}]}], ",", 
       RowBox[{"FullSimplify", "[", 
        RowBox[{"q", " ", 
         RowBox[{
          RowBox[{"rp", "[", 
           RowBox[{"[", 
            RowBox[{"2", ";;", "4"}], "]"}], "]"}], "/", 
          SuperscriptBox[
           RowBox[{"Norm", "[", 
            RowBox[{"rp", "[", 
             RowBox[{"[", 
              RowBox[{"2", ";;", "4"}], "]"}], "]"}], "]"}], "3"]}]}], 
        "]"}]}], "]"}]}], ";"}], "\n", 
   RowBox[{
    RowBox[{"Fp", "=", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"0", ",", 
         RowBox[{"-", 
          RowBox[{"Elp", "[", 
           RowBox[{"[", "1", "]"}], "]"}]}], ",", 
         RowBox[{"-", 
          RowBox[{"Elp", "[", 
           RowBox[{"[", "2", "]"}], "]"}]}], ",", 
         RowBox[{"-", 
          RowBox[{"Elp", "[", 
           RowBox[{"[", "3", "]"}], "]"}]}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Elp", "[", 
          RowBox[{"[", "1", "]"}], "]"}], ",", "0", ",", "0", ",", "0"}], 
        "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Elp", "[", 
          RowBox[{"[", "2", "]"}], "]"}], ",", "0", ",", "0", ",", "0"}], 
        "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Elp", "[", 
          RowBox[{"[", "3", "]"}], "]"}], ",", "0", ",", "0", ",", "0"}], 
        "}"}]}], "}"}]}], ";"}], "\n", 
   RowBox[{"MatrixForm", "[", "Fp", "]"}], "\[IndentingNewLine]", 
   RowBox[{"MatrixForm", "[", "\[CapitalLambda]", "]"}], "\n", 
   RowBox[{"(*", 
    RowBox[{
    "Boost", " ", "from", " ", "Primed", " ", "to", " ", "Unprimed", " ", 
     "Frame"}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{"MatrixForm", "[", 
    RowBox[{"\[CapitalLambda]", ".", "Fp", ".", "\[CapitalLambda]"}], 
    "]"}]}]}]], "Input",
 CellChangeTimes->{{3.592682362775585*^9, 3.592682482223214*^9}, {
   3.592682516631215*^9, 3.5926825560225163`*^9}, {3.59268268967916*^9, 
   3.592682912105652*^9}, {3.59268304821628*^9, 3.5926831565750637`*^9}, {
   3.59268319440055*^9, 3.592683313089034*^9}, {3.5926833956009073`*^9, 
   3.5926834006387577`*^9}, {3.592683470890841*^9, 3.592683514154456*^9}, {
   3.5926836428482933`*^9, 3.592683680345249*^9}, {3.592684131281413*^9, 
   3.5926841599465437`*^9}, {3.592684209997971*^9, 3.592684299119481*^9}, {
   3.592684331219631*^9, 3.5926844405297937`*^9}, {3.592684498855274*^9, 
   3.59268461571665*^9}, {3.5926847442453327`*^9, 3.5926847549627934`*^9}, {
   3.5926848549186707`*^9, 3.592684856406156*^9}, {3.592684962618207*^9, 
   3.592684963575885*^9}, {3.5926850924958677`*^9, 3.592685177724682*^9}, {
   3.592685282208902*^9, 3.59268528816424*^9}, {3.592685322132206*^9, 
   3.592685331764056*^9}, {3.592685378462718*^9, 3.59268545000282*^9}, {
   3.592685482836442*^9, 3.5926854945771837`*^9}, {3.592685644242771*^9, 
   3.592685666125805*^9}, {3.59268570563582*^9, 3.592685831495454*^9}, {
   3.5926860973898563`*^9, 3.592686118187585*^9}, {3.592688123383515*^9, 
   3.592688123824853*^9}, {3.5926883973629923`*^9, 3.59268843360284*^9}, {
   3.5926884769740334`*^9, 3.592688495206665*^9}, {3.5926886941128407`*^9, 
   3.592688708437573*^9}, 3.5926887566059713`*^9, {3.592688801468459*^9, 
   3.592688805558915*^9}, {3.592688891832863*^9, 3.592688930318872*^9}, 
   3.592689020311956*^9, {3.592689063964123*^9, 3.592689125187717*^9}, 
   3.5926891990541983`*^9, {3.592689266768572*^9, 3.592689275192378*^9}, {
   3.5926893057925577`*^9, 3.5926893245349894`*^9}, {3.5926893580021353`*^9, 
   3.592689429499276*^9}, {3.5961468399435587`*^9, 3.596146854837901*^9}, {
   3.5961469459247036`*^9, 3.596146951146397*^9}, {3.5961477185195527`*^9, 
   3.596147732620217*^9}, {3.5961486433721466`*^9, 3.5961487048203588`*^9}, {
   3.5961487505594387`*^9, 3.596148825466677*^9}, {3.5961488992479515`*^9, 
   3.5961489345516443`*^9}, {3.5961492269122057`*^9, 3.596149240537476*^9}, {
   3.596149279022004*^9, 3.596149280872666*^9}, {3.5961493162985125`*^9, 
   3.596149345312539*^9}, {3.5961494091698875`*^9, 3.596149414249449*^9}}],

Cell[BoxData["L"], "Output",
 CellChangeTimes->{{3.592682476067142*^9, 3.592682482826408*^9}, {
   3.592682533594631*^9, 3.5926825614890547`*^9}, 3.5926828408175077`*^9, 
   3.5926829128709707`*^9, 3.592683111180072*^9, {3.592683216953353*^9, 
   3.592683313629241*^9}, 3.592683401345232*^9, {3.5926834722450657`*^9, 
   3.5926835150990877`*^9}, 3.5926836440631933`*^9, 3.5926836820607243`*^9, 
   3.592684144755741*^9, {3.59268430925943*^9, 3.59268439730669*^9}, {
   3.592684435753004*^9, 3.592684441529561*^9}, 3.592684518956277*^9, {
   3.592684556001132*^9, 3.5926845881920853`*^9}, 3.5926846206754217`*^9, 
   3.592684747568075*^9, 3.5926848569865026`*^9, 3.59268499346714*^9, {
   3.5926850982349854`*^9, 3.592685178648259*^9}, 3.59268529387845*^9, {
   3.5926853907213287`*^9, 3.592685450745846*^9}, 3.59268548842451*^9, {
   3.592685656502823*^9, 3.592685666735011*^9}, {3.592685707302003*^9, 
   3.592685730424024*^9}, {3.592685761007895*^9, 3.592685835998239*^9}, {
   3.592686104343987*^9, 3.592686119398394*^9}, 3.592688124674242*^9, {
   3.592688408095624*^9, 3.592688444615079*^9}, {3.592688481100234*^9, 
   3.592688496158736*^9}, {3.592688705170618*^9, 3.592688709296557*^9}, 
   3.592688757541938*^9, {3.592688806152948*^9, 3.592688815919795*^9}, {
   3.592688893677926*^9, 3.592688941841874*^9}, {3.592689021693083*^9, 
   3.592689029004904*^9}, {3.592689068454645*^9, 3.592689090856442*^9}, 
   3.592689132158512*^9, {3.592689200225947*^9, 3.592689203864357*^9}, {
   3.592689270857746*^9, 3.592689327246756*^9}, {3.592689362009392*^9, 
   3.592689430468626*^9}, 3.5961468553763847`*^9, {3.596146940584908*^9, 
   3.5961469534034214`*^9}, {3.5961477331226683`*^9, 3.5961477604301963`*^9}, 
   3.596148644452115*^9, {3.59614867958066*^9, 3.596148705550987*^9}, 
   3.596148755162541*^9, {3.596148790207015*^9, 3.596148826241373*^9}, {
   3.596148911439887*^9, 3.5961489351041408`*^9}, {3.5961492332809258`*^9, 
   3.59614924096883*^9}, 3.5961492813971395`*^9, {3.5961493325791025`*^9, 
   3.596149346007165*^9}, 3.596149414714867*^9}],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{{3.592682476067142*^9, 3.592682482826408*^9}, {
   3.592682533594631*^9, 3.5926825614890547`*^9}, 3.5926828408175077`*^9, 
   3.5926829128709707`*^9, 3.592683111180072*^9, {3.592683216953353*^9, 
   3.592683313629241*^9}, 3.592683401345232*^9, {3.5926834722450657`*^9, 
   3.5926835150990877`*^9}, 3.5926836440631933`*^9, 3.5926836820607243`*^9, 
   3.592684144755741*^9, {3.59268430925943*^9, 3.59268439730669*^9}, {
   3.592684435753004*^9, 3.592684441529561*^9}, 3.592684518956277*^9, {
   3.592684556001132*^9, 3.5926845881920853`*^9}, 3.5926846206754217`*^9, 
   3.592684747568075*^9, 3.5926848569865026`*^9, 3.59268499346714*^9, {
   3.5926850982349854`*^9, 3.592685178648259*^9}, 3.59268529387845*^9, {
   3.5926853907213287`*^9, 3.592685450745846*^9}, 3.59268548842451*^9, {
   3.592685656502823*^9, 3.592685666735011*^9}, {3.592685707302003*^9, 
   3.592685730424024*^9}, {3.592685761007895*^9, 3.592685835998239*^9}, {
   3.592686104343987*^9, 3.592686119398394*^9}, 3.592688124674242*^9, {
   3.592688408095624*^9, 3.592688444615079*^9}, {3.592688481100234*^9, 
   3.592688496158736*^9}, {3.592688705170618*^9, 3.592688709296557*^9}, 
   3.592688757541938*^9, {3.592688806152948*^9, 3.592688815919795*^9}, {
   3.592688893677926*^9, 3.592688941841874*^9}, {3.592689021693083*^9, 
   3.592689029004904*^9}, {3.592689068454645*^9, 3.592689090856442*^9}, 
   3.592689132158512*^9, {3.592689200225947*^9, 3.592689203864357*^9}, {
   3.592689270857746*^9, 3.592689327246756*^9}, {3.592689362009392*^9, 
   3.592689430468626*^9}, 3.5961468553763847`*^9, {3.596146940584908*^9, 
   3.5961469534034214`*^9}, {3.5961477331226683`*^9, 3.5961477604301963`*^9}, 
   3.596148644452115*^9, {3.59614867958066*^9, 3.596148705550987*^9}, 
   3.596148755162541*^9, {3.596148790207015*^9, 3.596148826241373*^9}, {
   3.596148911439887*^9, 3.5961489351041408`*^9}, {3.5961492332809258`*^9, 
   3.59614924096883*^9}, 3.5961492813971395`*^9, {3.5961493325791025`*^9, 
   3.596149346007165*^9}, 3.596149414718871*^9}],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{{3.592682476067142*^9, 3.592682482826408*^9}, {
   3.592682533594631*^9, 3.5926825614890547`*^9}, 3.5926828408175077`*^9, 
   3.5926829128709707`*^9, 3.592683111180072*^9, {3.592683216953353*^9, 
   3.592683313629241*^9}, 3.592683401345232*^9, {3.5926834722450657`*^9, 
   3.5926835150990877`*^9}, 3.5926836440631933`*^9, 3.5926836820607243`*^9, 
   3.592684144755741*^9, {3.59268430925943*^9, 3.59268439730669*^9}, {
   3.592684435753004*^9, 3.592684441529561*^9}, 3.592684518956277*^9, {
   3.592684556001132*^9, 3.5926845881920853`*^9}, 3.5926846206754217`*^9, 
   3.592684747568075*^9, 3.5926848569865026`*^9, 3.59268499346714*^9, {
   3.5926850982349854`*^9, 3.592685178648259*^9}, 3.59268529387845*^9, {
   3.5926853907213287`*^9, 3.592685450745846*^9}, 3.59268548842451*^9, {
   3.592685656502823*^9, 3.592685666735011*^9}, {3.592685707302003*^9, 
   3.592685730424024*^9}, {3.592685761007895*^9, 3.592685835998239*^9}, {
   3.592686104343987*^9, 3.592686119398394*^9}, 3.592688124674242*^9, {
   3.592688408095624*^9, 3.592688444615079*^9}, {3.592688481100234*^9, 
   3.592688496158736*^9}, {3.592688705170618*^9, 3.592688709296557*^9}, 
   3.592688757541938*^9, {3.592688806152948*^9, 3.592688815919795*^9}, {
   3.592688893677926*^9, 3.592688941841874*^9}, {3.592689021693083*^9, 
   3.592689029004904*^9}, {3.592689068454645*^9, 3.592689090856442*^9}, 
   3.592689132158512*^9, {3.592689200225947*^9, 3.592689203864357*^9}, {
   3.592689270857746*^9, 3.592689327246756*^9}, {3.592689362009392*^9, 
   3.592689430468626*^9}, 3.5961468553763847`*^9, {3.596146940584908*^9, 
   3.5961469534034214`*^9}, {3.5961477331226683`*^9, 3.5961477604301963`*^9}, 
   3.596148644452115*^9, {3.59614867958066*^9, 3.596148705550987*^9}, 
   3.596148755162541*^9, {3.596148790207015*^9, 3.596148826241373*^9}, {
   3.596148911439887*^9, 3.5961489351041408`*^9}, {3.5961492332809258`*^9, 
   3.59614924096883*^9}, 3.5961492813971395`*^9, {3.5961493325791025`*^9, 
   3.596149346007165*^9}, 3.5961494147218733`*^9}],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"0", 
      RowBox[{"-", 
       FractionBox["q", 
        SuperscriptBox["L", "2"]]}], "0", "0"},
     {
      FractionBox["q", 
       SuperscriptBox["L", "2"]], "0", "0", "0"},
     {"0", "0", "0", "0"},
     {"0", "0", "0", "0"}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{{3.592682476067142*^9, 3.592682482826408*^9}, {
   3.592682533594631*^9, 3.5926825614890547`*^9}, 3.5926828408175077`*^9, 
   3.5926829128709707`*^9, 3.592683111180072*^9, {3.592683216953353*^9, 
   3.592683313629241*^9}, 3.592683401345232*^9, {3.5926834722450657`*^9, 
   3.5926835150990877`*^9}, 3.5926836440631933`*^9, 3.5926836820607243`*^9, 
   3.592684144755741*^9, {3.59268430925943*^9, 3.59268439730669*^9}, {
   3.592684435753004*^9, 3.592684441529561*^9}, 3.592684518956277*^9, {
   3.592684556001132*^9, 3.5926845881920853`*^9}, 3.5926846206754217`*^9, 
   3.592684747568075*^9, 3.5926848569865026`*^9, 3.59268499346714*^9, {
   3.5926850982349854`*^9, 3.592685178648259*^9}, 3.59268529387845*^9, {
   3.5926853907213287`*^9, 3.592685450745846*^9}, 3.59268548842451*^9, {
   3.592685656502823*^9, 3.592685666735011*^9}, {3.592685707302003*^9, 
   3.592685730424024*^9}, {3.592685761007895*^9, 3.592685835998239*^9}, {
   3.592686104343987*^9, 3.592686119398394*^9}, 3.592688124674242*^9, {
   3.592688408095624*^9, 3.592688444615079*^9}, {3.592688481100234*^9, 
   3.592688496158736*^9}, {3.592688705170618*^9, 3.592688709296557*^9}, 
   3.592688757541938*^9, {3.592688806152948*^9, 3.592688815919795*^9}, {
   3.592688893677926*^9, 3.592688941841874*^9}, {3.592689021693083*^9, 
   3.592689029004904*^9}, {3.592689068454645*^9, 3.592689090856442*^9}, 
   3.592689132158512*^9, {3.592689200225947*^9, 3.592689203864357*^9}, {
   3.592689270857746*^9, 3.592689327246756*^9}, {3.592689362009392*^9, 
   3.592689430468626*^9}, 3.5961468553763847`*^9, {3.596146940584908*^9, 
   3.5961469534034214`*^9}, {3.5961477331226683`*^9, 3.5961477604301963`*^9}, 
   3.596148644452115*^9, {3.59614867958066*^9, 3.596148705550987*^9}, 
   3.596148755162541*^9, {3.596148790207015*^9, 3.596148826241373*^9}, {
   3.596148911439887*^9, 3.5961489351041408`*^9}, {3.5961492332809258`*^9, 
   3.59614924096883*^9}, 3.5961492813971395`*^9, {3.5961493325791025`*^9, 
   3.596149346007165*^9}, 3.596149414724876*^9}],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"\[Gamma]", 
      RowBox[{
       RowBox[{"-", "b"}], " ", "\[Gamma]"}], "0", "0"},
     {
      RowBox[{
       RowBox[{"-", "b"}], " ", "\[Gamma]"}], "\[Gamma]", "0", "0"},
     {"0", "0", "1", "0"},
     {"0", "0", "0", "1"}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{{3.592682476067142*^9, 3.592682482826408*^9}, {
   3.592682533594631*^9, 3.5926825614890547`*^9}, 3.5926828408175077`*^9, 
   3.5926829128709707`*^9, 3.592683111180072*^9, {3.592683216953353*^9, 
   3.592683313629241*^9}, 3.592683401345232*^9, {3.5926834722450657`*^9, 
   3.5926835150990877`*^9}, 3.5926836440631933`*^9, 3.5926836820607243`*^9, 
   3.592684144755741*^9, {3.59268430925943*^9, 3.59268439730669*^9}, {
   3.592684435753004*^9, 3.592684441529561*^9}, 3.592684518956277*^9, {
   3.592684556001132*^9, 3.5926845881920853`*^9}, 3.5926846206754217`*^9, 
   3.592684747568075*^9, 3.5926848569865026`*^9, 3.59268499346714*^9, {
   3.5926850982349854`*^9, 3.592685178648259*^9}, 3.59268529387845*^9, {
   3.5926853907213287`*^9, 3.592685450745846*^9}, 3.59268548842451*^9, {
   3.592685656502823*^9, 3.592685666735011*^9}, {3.592685707302003*^9, 
   3.592685730424024*^9}, {3.592685761007895*^9, 3.592685835998239*^9}, {
   3.592686104343987*^9, 3.592686119398394*^9}, 3.592688124674242*^9, {
   3.592688408095624*^9, 3.592688444615079*^9}, {3.592688481100234*^9, 
   3.592688496158736*^9}, {3.592688705170618*^9, 3.592688709296557*^9}, 
   3.592688757541938*^9, {3.592688806152948*^9, 3.592688815919795*^9}, {
   3.592688893677926*^9, 3.592688941841874*^9}, {3.592689021693083*^9, 
   3.592689029004904*^9}, {3.592689068454645*^9, 3.592689090856442*^9}, 
   3.592689132158512*^9, {3.592689200225947*^9, 3.592689203864357*^9}, {
   3.592689270857746*^9, 3.592689327246756*^9}, {3.592689362009392*^9, 
   3.592689430468626*^9}, 3.5961468553763847`*^9, {3.596146940584908*^9, 
   3.5961469534034214`*^9}, {3.5961477331226683`*^9, 3.5961477604301963`*^9}, 
   3.596148644452115*^9, {3.59614867958066*^9, 3.596148705550987*^9}, 
   3.596148755162541*^9, {3.596148790207015*^9, 3.596148826241373*^9}, {
   3.596148911439887*^9, 3.5961489351041408`*^9}, {3.5961492332809258`*^9, 
   3.59614924096883*^9}, 3.5961492813971395`*^9, {3.5961493325791025`*^9, 
   3.596149346007165*^9}, 3.596149414728879*^9}],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"0", 
      RowBox[{
       RowBox[{"-", 
        FractionBox[
         RowBox[{"q", " ", 
          SuperscriptBox["\[Gamma]", "2"]}], 
         SuperscriptBox["L", "2"]]}], "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["b", "2"], " ", "q", " ", 
         SuperscriptBox["\[Gamma]", "2"]}], 
        SuperscriptBox["L", "2"]]}], "0", "0"},
     {
      RowBox[{
       FractionBox[
        RowBox[{"q", " ", 
         SuperscriptBox["\[Gamma]", "2"]}], 
        SuperscriptBox["L", "2"]], "-", 
       FractionBox[
        RowBox[{
         SuperscriptBox["b", "2"], " ", "q", " ", 
         SuperscriptBox["\[Gamma]", "2"]}], 
        SuperscriptBox["L", "2"]]}], "0", "0", "0"},
     {"0", "0", "0", "0"},
     {"0", "0", "0", "0"}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{{3.592682476067142*^9, 3.592682482826408*^9}, {
   3.592682533594631*^9, 3.5926825614890547`*^9}, 3.5926828408175077`*^9, 
   3.5926829128709707`*^9, 3.592683111180072*^9, {3.592683216953353*^9, 
   3.592683313629241*^9}, 3.592683401345232*^9, {3.5926834722450657`*^9, 
   3.5926835150990877`*^9}, 3.5926836440631933`*^9, 3.5926836820607243`*^9, 
   3.592684144755741*^9, {3.59268430925943*^9, 3.59268439730669*^9}, {
   3.592684435753004*^9, 3.592684441529561*^9}, 3.592684518956277*^9, {
   3.592684556001132*^9, 3.5926845881920853`*^9}, 3.5926846206754217`*^9, 
   3.592684747568075*^9, 3.5926848569865026`*^9, 3.59268499346714*^9, {
   3.5926850982349854`*^9, 3.592685178648259*^9}, 3.59268529387845*^9, {
   3.5926853907213287`*^9, 3.592685450745846*^9}, 3.59268548842451*^9, {
   3.592685656502823*^9, 3.592685666735011*^9}, {3.592685707302003*^9, 
   3.592685730424024*^9}, {3.592685761007895*^9, 3.592685835998239*^9}, {
   3.592686104343987*^9, 3.592686119398394*^9}, 3.592688124674242*^9, {
   3.592688408095624*^9, 3.592688444615079*^9}, {3.592688481100234*^9, 
   3.592688496158736*^9}, {3.592688705170618*^9, 3.592688709296557*^9}, 
   3.592688757541938*^9, {3.592688806152948*^9, 3.592688815919795*^9}, {
   3.592688893677926*^9, 3.592688941841874*^9}, {3.592689021693083*^9, 
   3.592689029004904*^9}, {3.592689068454645*^9, 3.592689090856442*^9}, 
   3.592689132158512*^9, {3.592689200225947*^9, 3.592689203864357*^9}, {
   3.592689270857746*^9, 3.592689327246756*^9}, {3.592689362009392*^9, 
   3.592689430468626*^9}, 3.5961468553763847`*^9, {3.596146940584908*^9, 
   3.5961469534034214`*^9}, {3.5961477331226683`*^9, 3.5961477604301963`*^9}, 
   3.596148644452115*^9, {3.59614867958066*^9, 3.596148705550987*^9}, 
   3.596148755162541*^9, {3.596148790207015*^9, 3.596148826241373*^9}, {
   3.596148911439887*^9, 3.5961489351041408`*^9}, {3.5961492332809258`*^9, 
   3.59614924096883*^9}, 3.5961492813971395`*^9, {3.5961493325791025`*^9, 
   3.596149346007165*^9}, 3.596149414733884*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"P", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"W", "/", "c"}], ",", "0", ",", "0", ",", "0"}], "}"}]}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"\[CapitalLambda]", ".", "P"}]}], "Input",
 CellChangeTimes->{{3.5933030597902746`*^9, 3.59330307422724*^9}, 
   3.5961470156233273`*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   FractionBox["W", "c"], ",", "0", ",", "0", ",", "0"}], "}"}]], "Output",
 CellChangeTimes->{3.593303074716689*^9, 3.5933031664680796`*^9, 
  3.596147017720215*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   FractionBox[
    RowBox[{"W", " ", "\[Gamma]"}], "c"], ",", 
   RowBox[{"-", 
    FractionBox[
     RowBox[{"W", " ", "\[CapitalBeta]", " ", "\[Gamma]"}], "c"]}], ",", "0", 
   ",", "0"}], "}"}]], "Output",
 CellChangeTimes->{3.593303074716689*^9, 3.5933031664680796`*^9, 
  3.5961470177232156`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Transpose", "[", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"0", ",", " ", "Ex", ",", "Ey", ",", "Ez"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "Ex"}], ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "Ey"}], ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "Ez"}], ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[CapitalLambda]", ".", "%", ".", "\[CapitalLambda]"}], "//", 
  "MatrixForm"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.596147836606604*^9, 3.596147939461977*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"0", ",", 
     RowBox[{"-", "Ex"}], ",", 
     RowBox[{"-", "Ey"}], ",", 
     RowBox[{"-", "Ez"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"Ex", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"Ey", ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"Ez", ",", "0", ",", "0", ",", "0"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.5961478926539392`*^9, 3.596147941052405*^9}}],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"0", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "Ex"}], " ", 
        SuperscriptBox["\[Gamma]", "2"]}], "+", 
       RowBox[{
        SuperscriptBox["b", "2"], " ", "Ex", " ", 
        SuperscriptBox["\[Gamma]", "2"]}]}], 
      RowBox[{
       RowBox[{"-", "Ey"}], " ", "\[Gamma]"}], 
      RowBox[{
       RowBox[{"-", "Ez"}], " ", "\[Gamma]"}]},
     {
      RowBox[{
       RowBox[{"Ex", " ", 
        SuperscriptBox["\[Gamma]", "2"]}], "-", 
       RowBox[{
        SuperscriptBox["b", "2"], " ", "Ex", " ", 
        SuperscriptBox["\[Gamma]", "2"]}]}], "0", 
      RowBox[{"b", " ", "Ey", " ", "\[Gamma]"}], 
      RowBox[{"b", " ", "Ez", " ", "\[Gamma]"}]},
     {
      RowBox[{"Ey", " ", "\[Gamma]"}], 
      RowBox[{
       RowBox[{"-", "b"}], " ", "Ey", " ", "\[Gamma]"}], "0", "0"},
     {
      RowBox[{"Ez", " ", "\[Gamma]"}], 
      RowBox[{
       RowBox[{"-", "b"}], " ", "Ez", " ", "\[Gamma]"}], "0", "0"}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{{3.5961478926539392`*^9, 3.596147941057441*^9}}]
}, Open  ]]
},
WindowSize->{1264, 673},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
FrontEndVersion->"9.0 for Microsoft Windows (64-bit) (January 25, 2013)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[557, 20, 105, 1, 30, "Text"],
Cell[CellGroupData[{
Cell[687, 25, 8819, 226, 539, "Input"],
Cell[9509, 253, 203, 5, 31, "Output"],
Cell[9715, 260, 907, 26, 86, "Output"],
Cell[10625, 288, 861, 24, 86, "Output"],
Cell[11489, 314, 1016, 31, 86, "Output"],
Cell[12508, 347, 991, 30, 86, "Output"]
}, Open  ]],
Cell[13514, 380, 69, 1, 52, "Input"],
Cell[13586, 383, 115, 1, 52, "Input"],
Cell[CellGroupData[{
Cell[13726, 388, 2840, 75, 212, "Input"],
Cell[16569, 465, 1147, 24, 46, "Output"],
Cell[17719, 491, 1155, 24, 46, "Output"],
Cell[18877, 517, 5787, 151, 183, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[24701, 673, 5130, 112, 275, "Input"],
Cell[29834, 787, 2053, 28, 31, "Output"],
Cell[31890, 817, 2053, 28, 31, "Output"],
Cell[33946, 847, 2055, 28, 31, "Output"],
Cell[36004, 877, 2816, 52, 104, "Output"],
Cell[38823, 931, 2812, 51, 86, "Output"],
Cell[41638, 984, 3339, 68, 172, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[45014, 1057, 345, 9, 72, "Input"],
Cell[45362, 1068, 206, 5, 46, "Output"],
Cell[45571, 1075, 342, 10, 46, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[45950, 1090, 710, 19, 72, "Input"],
Cell[46663, 1111, 506, 14, 31, "Output"],
Cell[47172, 1127, 1561, 45, 92, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)