WebSVN – svnkaklik – /programy/C/ix86/echo/DOC/plane_cut.nb

(* 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[     12573,        447]
NotebookOptionsPosition[     11462,        403]
NotebookOutlinePosition[     11800,        418]
CellTagsIndexPosition[     11757,        415]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     SuperscriptBox["a", "2"], "==", 
     RowBox[{
      SuperscriptBox["y", "2"], "+", 
      SuperscriptBox["x", "2"]}]}], "}"}], ",", "y"}], "]"}]], "Input",
 CellChangeTimes->{{3.48025536079537*^9, 3.480255409441049*^9}, 
   3.4802557921624203`*^9, {3.480257620378004*^9, 3.4802576479939127`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"y", "\[Rule]", 
     RowBox[{"-", 
      SqrtBox[
       RowBox[{
        SuperscriptBox["a", "2"], "-", 
        SuperscriptBox["x", "2"]}]]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"y", "\[Rule]", 
     SqrtBox[
      RowBox[{
       SuperscriptBox["a", "2"], "-", 
       SuperscriptBox["x", "2"]}]]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.480257640519597*^9, 3.4802576487436953`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     SuperscriptBox["b", "2"], "==", " ", 
     RowBox[{
      SuperscriptBox["y", "2"], "+", " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"r", "-", "x"}], ")"}], "2"]}]}], "}"}], ",", " ", "x"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.480255415164916*^9, 3.480255478591317*^9}, 
   3.480255522060379*^9, {3.4802557847342453`*^9, 3.480255787857032*^9}, {
   3.480257705501953*^9, 3.480257729524658*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"x", "\[Rule]", 
     RowBox[{"r", "-", 
      SqrtBox[
       RowBox[{
        SuperscriptBox["b", "2"], "-", 
        SuperscriptBox["y", "2"]}]]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", "\[Rule]", 
     RowBox[{"r", "+", 
      SqrtBox[
       RowBox[{
        SuperscriptBox["b", "2"], "-", 
        SuperscriptBox["y", "2"]}]]}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.480257724291691*^9, 3.4802577301500607`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Eliminate", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      SuperscriptBox["a", "2"], "==", 
      RowBox[{
       SuperscriptBox["y", "2"], "+", 
       SuperscriptBox["x", "2"]}]}], ",", 
     RowBox[{
      SuperscriptBox["b", "2"], "==", 
      RowBox[{
       SuperscriptBox["y", "2"], "+", " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"r", "-", "x"}], ")"}], "2"]}]}]}], "}"}], ",", "x"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.48025742799592*^9, 3.480257444164321*^9}, {
  3.480257523613083*^9, 3.4802575457893877`*^9}, {3.4802575824866943`*^9, 
  3.480257595868989*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"-", 
    SuperscriptBox["b", "4"]}], "+", 
   RowBox[{"2", " ", 
    SuperscriptBox["b", "2"], " ", 
    SuperscriptBox["r", "2"]}], "-", 
   SuperscriptBox["r", "4"], "-", 
   RowBox[{"4", " ", 
    SuperscriptBox["r", "2"], " ", 
    SuperscriptBox["y", "2"]}]}], "\[Equal]", 
  RowBox[{
   SuperscriptBox["a", "4"], "+", 
   RowBox[{
    SuperscriptBox["a", "2"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"-", "2"}], " ", 
       SuperscriptBox["b", "2"]}], "-", 
      RowBox[{"2", " ", 
       SuperscriptBox["r", "2"]}]}], ")"}]}]}]}]], "Output",
 CellChangeTimes->{3.480257547792871*^9, 3.4802575969300547`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"-", 
       SuperscriptBox["b", "4"]}], "+", 
      RowBox[{"2", " ", 
       SuperscriptBox["b", "2"], " ", 
       SuperscriptBox["r", "2"]}], "-", 
      SuperscriptBox["r", "4"], "-", 
      RowBox[{"4", " ", 
       SuperscriptBox["r", "2"], " ", 
       SuperscriptBox["y", "2"]}]}], "\[Equal]", 
     RowBox[{
      SuperscriptBox["a", "4"], "+", 
      RowBox[{
       SuperscriptBox["a", "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "2"}], " ", 
          SuperscriptBox["b", "2"]}], "-", 
         RowBox[{"2", " ", 
          SuperscriptBox["r", "2"]}]}], ")"}]}]}]}], "}"}], ",", "y"}], "]"}]],\
 "Input",
 CellChangeTimes->{{3.4802578175085773`*^9, 3.4802578662078457`*^9}, {
  3.480257934799398*^9, 3.4802579576905527`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"y", "\[Rule]", 
     RowBox[{"-", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", 
        SqrtBox[
         RowBox[{
          SuperscriptBox["a", "4"], "+", 
          SuperscriptBox["b", "4"], "-", 
          RowBox[{"2", " ", 
           SuperscriptBox["b", "2"], " ", 
           SuperscriptBox["r", "2"]}], "+", 
          SuperscriptBox["r", "4"], "+", 
          RowBox[{
           SuperscriptBox["a", "2"], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"-", "2"}], " ", 
              SuperscriptBox["b", "2"]}], "-", 
             RowBox[{"2", " ", 
              SuperscriptBox["r", "2"]}]}], ")"}]}]}]]}], 
       RowBox[{"2", " ", "r"}]]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"y", "\[Rule]", 
     FractionBox[
      RowBox[{"\[ImaginaryI]", " ", 
       SqrtBox[
        RowBox[{
         SuperscriptBox["a", "4"], "+", 
         SuperscriptBox["b", "4"], "-", 
         RowBox[{"2", " ", 
          SuperscriptBox["b", "2"], " ", 
          SuperscriptBox["r", "2"]}], "+", 
         SuperscriptBox["r", "4"], "+", 
         RowBox[{
          SuperscriptBox["a", "2"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "2"}], " ", 
             SuperscriptBox["b", "2"]}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["r", "2"]}]}], ")"}]}]}]]}], 
      RowBox[{"2", " ", "r"}]]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.480257840241704*^9, 3.4802578671962*^9}, {
  3.4802579391864157`*^9, 3.48025795830022*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Eliminate", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      SuperscriptBox["a", "2"], "==", 
      RowBox[{
       SuperscriptBox["y", "2"], "+", 
       SuperscriptBox["x", "2"]}]}], ",", 
     RowBox[{
      SuperscriptBox["b", "2"], "==", 
      RowBox[{
       SuperscriptBox["y", "2"], "+", " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"r", "-", "x"}], ")"}], "2"]}]}]}], "}"}], ",", "y"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.48025799004694*^9, 3.480257990158451*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   SuperscriptBox["b", "2"], "-", 
   SuperscriptBox["r", "2"], "+", 
   RowBox[{"2", " ", "r", " ", "x"}]}], "\[Equal]", 
  SuperscriptBox["a", "2"]}]], "Output",
 CellChangeTimes->{3.480257991665391*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     SuperscriptBox["b", "2"], "-", 
     SuperscriptBox["r", "2"], "+", 
     RowBox[{"2", " ", "r", " ", "x"}]}], "\[Equal]", 
    SuperscriptBox["a", "2"]}], ",", "x"}], "]"}]], "Input",
 CellChangeTimes->{{3.480257998664236*^9, 3.480258017542581*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"x", "\[Rule]", 
    FractionBox[
     RowBox[{
      SuperscriptBox["a", "2"], "-", 
      SuperscriptBox["b", "2"], "+", 
      SuperscriptBox["r", "2"]}], 
     RowBox[{"2", " ", "r"}]]}], "}"}], "}"}]], "Output",
 CellChangeTimes->{{3.4802580114774437`*^9, 3.480258018154606*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Simplify", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"-", 
     SuperscriptBox["b", "4"]}], "+", 
    RowBox[{"2", " ", 
     SuperscriptBox["b", "2"], " ", 
     SuperscriptBox["r", "2"]}], "-", 
    SuperscriptBox["r", "4"], "-", 
    RowBox[{"4", " ", 
     SuperscriptBox["r", "2"], " ", 
     SuperscriptBox["y", "2"]}]}], "\[Equal]", 
   RowBox[{
    SuperscriptBox["a", "4"], "+", 
    RowBox[{
     SuperscriptBox["a", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "2"}], " ", 
        SuperscriptBox["b", "2"]}], "-", 
       RowBox[{"2", " ", 
        SuperscriptBox["r", "2"]}]}], ")"}]}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.4802585314322577`*^9, 3.4802585376049767`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   SuperscriptBox["a", "4"], "+", 
   SuperscriptBox["b", "4"], "+", 
   SuperscriptBox["r", "4"], "+", 
   RowBox[{"4", " ", 
    SuperscriptBox["r", "2"], " ", 
    SuperscriptBox["y", "2"]}]}], "\[Equal]", 
  RowBox[{
   RowBox[{"2", " ", 
    SuperscriptBox["b", "2"], " ", 
    SuperscriptBox["r", "2"]}], "+", 
   RowBox[{"2", " ", 
    SuperscriptBox["a", "2"], " ", 
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox["b", "2"], "+", 
      SuperscriptBox["r", "2"]}], ")"}]}]}]}]], "Output",
 CellChangeTimes->{3.480258538867161*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     SuperscriptBox["a", "4"], "+", 
     SuperscriptBox["b", "4"], "+", 
     SuperscriptBox["r", "4"], "+", 
     RowBox[{"4", " ", 
      SuperscriptBox["r", "2"], " ", 
      SuperscriptBox["y", "2"]}]}], "\[Equal]", 
    RowBox[{
     RowBox[{"2", " ", 
      SuperscriptBox["b", "2"], " ", 
      SuperscriptBox["r", "2"]}], "+", 
     RowBox[{"2", " ", 
      SuperscriptBox["a", "2"], " ", 
      RowBox[{"(", 
       RowBox[{
        SuperscriptBox["b", "2"], "+", 
        SuperscriptBox["r", "2"]}], ")"}]}]}]}], ",", "y"}], "]"}]], "Input",
 CellChangeTimes->{{3.48025855657006*^9, 3.4802585750239153`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"y", "\[Rule]", 
     RowBox[{"-", 
      FractionBox[
       SqrtBox[
        RowBox[{
         RowBox[{"-", 
          SuperscriptBox["a", "4"]}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox["a", "2"], " ", 
          SuperscriptBox["b", "2"]}], "-", 
         SuperscriptBox["b", "4"], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox["a", "2"], " ", 
          SuperscriptBox["r", "2"]}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox["b", "2"], " ", 
          SuperscriptBox["r", "2"]}], "-", 
         SuperscriptBox["r", "4"]}]], 
       RowBox[{"2", " ", "r"}]]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"y", "\[Rule]", 
     FractionBox[
      SqrtBox[
       RowBox[{
        RowBox[{"-", 
         SuperscriptBox["a", "4"]}], "+", 
        RowBox[{"2", " ", 
         SuperscriptBox["a", "2"], " ", 
         SuperscriptBox["b", "2"]}], "-", 
        SuperscriptBox["b", "4"], "+", 
        RowBox[{"2", " ", 
         SuperscriptBox["a", "2"], " ", 
         SuperscriptBox["r", "2"]}], "+", 
        RowBox[{"2", " ", 
         SuperscriptBox["b", "2"], " ", 
         SuperscriptBox["r", "2"]}], "-", 
        SuperscriptBox["r", "4"]}]], 
      RowBox[{"2", " ", "r"}]]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.480258576154297*^9}]
}, Open  ]]
},
WindowSize->{640, 750},
WindowMargins->{{144, Automatic}, {Automatic, 25}},
FrontEndVersion->"7.0 for Linux x86 (64-bit) (February 25, 2009)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[567, 22, 381, 10, 32, "Input"],
Cell[951, 34, 476, 16, 46, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1464, 55, 505, 14, 32, "Input"],
Cell[1972, 71, 511, 17, 46, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2520, 93, 648, 20, 32, "Input"],
Cell[3171, 115, 692, 23, 33, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3900, 143, 892, 28, 32, InheritFromParent],
Cell[4795, 173, 1644, 49, 109, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[6476, 227, 546, 18, 32, "Input"],
Cell[7025, 247, 240, 7, 33, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[7302, 259, 329, 9, 32, "Input"],
Cell[7634, 270, 340, 10, 50, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[8011, 285, 751, 24, 32, "Input"],
Cell[8765, 311, 579, 19, 33, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[9381, 335, 693, 21, 32, "Input"],
Cell[10077, 358, 1369, 42, 98, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)
Subversion Repositories svnkaklik

(root)/programy/C/ix86/echo/DOC/plane_cut.nb – Rev 642
