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

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

(* CreatedBy='Mathematica 8.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[      2192,         81]
NotebookOptionsPosition[      1773,         61]
NotebookOutlinePosition[      2116,         76]
CellTagsIndexPosition[      2073,         73]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"FullSimplify", "[", " ", 
  RowBox[{
   RowBox[{
    RowBox[{"Cos", "[", "phi", "]"}], " ", 
    RowBox[{"Cos", "[", "theta", "]"}]}], " ", "+", " ", 
   RowBox[{
    RowBox[{"Sin", "[", "phi", "]"}], " ", 
    RowBox[{"Sin", "[", "theta", "]"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.5132823003706527`*^9, 3.5132823402669344`*^9}, {
  3.5132828976398144`*^9, 3.5132828978178244`*^9}, {3.51328293375488*^9, 
  3.513282938897174*^9}}],

Cell[BoxData[
 RowBox[{"Cos", "[", 
  RowBox[{"phi", "-", "theta"}], "]"}]], "Output",
 CellChangeTimes->{{3.5132823331185255`*^9, 3.513282340955974*^9}, 
   3.5132829394222045`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FullSimplify", "[", " ", 
  RowBox[{
   RowBox[{
    RowBox[{"Cos", "[", "theta", "]"}], " ", 
    RowBox[{"Sin", "[", "phi", "]"}]}], " ", "-", " ", 
   RowBox[{
    RowBox[{"Cos", "[", "phi", "]"}], " ", 
    RowBox[{"Sin", "[", "theta", "]"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.5132886174207125`*^9, 3.5132886382639046`*^9}}],

Cell[BoxData[
 RowBox[{"Sin", "[", 
  RowBox[{"phi", "-", "theta"}], "]"}]], "Output",
 CellChangeTimes->{3.5132886446332693`*^9}]
}, Open  ]]
},
WindowSize->{707, 637},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
FrontEndVersion->"8.0 for Microsoft Windows (64-bit) (February 23, 2011)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[579, 22, 462, 11, 31, "Input"],
Cell[1044, 35, 182, 4, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1263, 44, 361, 9, 31, "Input"],
Cell[1627, 55, 130, 3, 30, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)