(* Content-type: application/mathematica *)

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

(* CreatedBy='Mathematica 7.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[      8377,        230]
NotebookOptionsPosition[      8045,        214]
NotebookOutlinePosition[      8390,        229]
CellTagsIndexPosition[      8347,        226]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"Graphics3D", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"PointSize", "[", "0.05", "]"}], ",", 
       RowBox[{"Sphere", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", "1"}], ",", 
           RowBox[{"-", "1"}], ",", 
           RowBox[{"-", "1"}]}], "}"}], ",", "0.05"}], "]"}], ",", 
       RowBox[{"Arrowheads", "[", 
        RowBox[{"{", "0.05", "}"}], "]"}], ",", "Red", ",", 
       RowBox[{"Arrow", "[", 
        RowBox[{"Tube", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"1", ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "0.02"}],
          "]"}], "]"}], ",", 
       RowBox[{"Text", "[", 
        RowBox[{
         RowBox[{"Style", "[", 
          RowBox[{"\"\<X\>\"", ",", "\"\<Section\>\""}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "0", ",", "0"}], "}"}]}], "]"}], ",", "Green", 
       ",", 
       RowBox[{"Arrow", "[", 
        RowBox[{"Tube", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], "}"}], ",", "0.02"}],
          "]"}], "]"}], ",", 
       RowBox[{"Text", "[", 
        RowBox[{
         RowBox[{"Style", "[", 
          RowBox[{"\"\<Y\>\"", ",", "\"\<Section\>\""}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "1", ",", "0"}], "}"}]}], "]"}], ",", "Blue", ",", 
       RowBox[{"Arrow", "[", 
        RowBox[{"Tube", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "}"}], ",", "0.02"}],
          "]"}], "]"}], ",", 
       RowBox[{"Text", "[", 
        RowBox[{
         RowBox[{"Style", "[", 
          RowBox[{"\"\<Z\>\"", ",", "\"\<Section\>\""}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "]"}]}], "}"}], ",", 
     RowBox[{"Axes", "\[Rule]", " ", "True"}], ",", 
     RowBox[{"ViewCenter", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"1", "/", "2"}], ",", 
          RowBox[{"1", "/", "2"}], ",", 
          RowBox[{"1", "/", "2"}]}], "}"}], ",", 
        RowBox[{"ImageScaled", "[", 
         RowBox[{"{", 
          RowBox[{"1", ",", "1"}], "}"}], "]"}]}], "}"}]}], ",", 
     RowBox[{"ViewMatrix", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"TransformationMatrix", "[", 
         RowBox[{"ScalingTransform", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"1", ",", "1", ",", "1"}], "}"}], " ", "s"}], "]"}], 
         "]"}], ",", 
        RowBox[{"TransformationMatrix", "[", 
         RowBox[{"ReflectionTransform", "[", 
          RowBox[{"Append", "[", 
           RowBox[{
            RowBox[{"Normalize", "[", 
             RowBox[{"pt", "-", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"1", "/", "2"}], ",", 
                RowBox[{"1", "/", "2"}]}], "}"}]}], "]"}], ",", 
            RowBox[{
             RowBox[{"-", "1"}], "+", 
             RowBox[{"2", " ", 
              RowBox[{"SquaredEuclideanDistance", "@@", 
               RowBox[{"(", 
                RowBox[{"pt", "-", 
                 RowBox[{"{", 
                  RowBox[{
                   RowBox[{"1", "/", "2"}], ",", 
                   RowBox[{"1", "/", "2"}]}], "}"}]}], ")"}]}]}]}]}], "]"}], 
          "]"}], "]"}]}], "}"}]}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"s", ",", "0.27", ",", "\"\<Scale\>\""}], "}"}], ",", "0.1", 
     ",", "0.5"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"pt", ",", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{"0.777", ",", "0.292"}], "}"}], "}"}], ",", "Locator"}], 
    "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.456486813515625*^9, 3.456486838609375*^9}, 
   3.456486879625*^9, 3.456487253140625*^9, {3.45648829634375*^9, 
   3.4564883065625*^9}, {3.4564886248125*^9, 3.456488694984375*^9}, {
   3.4564888425625*^9, 3.456488850375*^9}, {3.456491628421875*^9, 
   3.456491634046875*^9}, {3.461914680484375*^9, 3.461914710921875*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`pt$$ = {0.747, 0.256}, $CellContext`s$$ = 
    0.27, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, 
    Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 
    1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`s$$], 0.27, "Scale"}, 0.1, 0.5}, {
      Hold[$CellContext`pt$$], {{0.777, 0.292}}}}, Typeset`size$$ = {
    360., {178., 182.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`s$621$$ = 
    0, $CellContext`pt$622$$ = False}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`pt$$ = {0.777, 0.292}, $CellContext`s$$ = 
        0.27}, "ControllerVariables" :> {
        Hold[$CellContext`s$$, $CellContext`s$621$$, 0], 
        Hold[$CellContext`pt$$, $CellContext`pt$622$$, 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" :> Graphics3D[{
         PointSize[0.05], 
         Sphere[{-1, -1, -1}, 0.05], 
         Arrowheads[{0.05}], Red, 
         Arrow[
          Tube[{{0, 0, 0}, {1, 0, 0}}, 0.02]], 
         Text[
          Style["X", "Section"], {1, 0, 0}], Green, 
         Arrow[
          Tube[{{0, 0, 0}, {0, 1, 0}}, 0.02]], 
         Text[
          Style["Y", "Section"], {0, 1, 0}], Blue, 
         Arrow[
          Tube[{{0, 0, 0}, {0, 0, 1}}, 0.02]], 
         Text[
          Style["Z", "Section"], {0, 0, 1}]}, Axes -> True, 
        ViewCenter -> {{1/2, 1/2, 1/2}, 
          ImageScaled[{1, 1}]}, ViewMatrix -> {
          TransformationMatrix[
           ScalingTransform[{1, 1, 1} $CellContext`s$$]], 
          TransformationMatrix[
           ReflectionTransform[
            Append[
             Normalize[$CellContext`pt$$ - {1/2, 1/2}], -1 + 
             2 Apply[SquaredEuclideanDistance, $CellContext`pt$$ - {
                1/2, 1/2}]]]]}], 
      "Specifications" :> {{{$CellContext`s$$, 0.27, "Scale"}, 0.1, 
         0.5}, {$CellContext`pt$$, {{0.777, 0.292}}, ControlType -> Locator}},
       "Options" :> {}, "DefaultOptions" :> {}],
     ImageSizeCache->{413., {226., 231.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{
  3.45648725521875*^9, {3.4564882971875*^9, 3.456488306890625*^9}, 
   3.456488695875*^9, 3.456488850640625*^9, 3.456491392578125*^9, 
   3.456491634765625*^9, 3.4638088478125*^9}]
}, Open  ]]
},
WindowSize->{716, 919},
WindowMargins->{{94, Automatic}, {-5, Automatic}},
FrontEndVersion->"7.0 for Microsoft Windows (32-bit) (November 10, 2008)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[567, 22, 4548, 123, 252, "Input"],
Cell[5118, 147, 2911, 64, 474, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)