Subversion Repositories svnkaklik

Rev

Rev 646 | Go to most recent revision | Blame | Last modification | View Log | Download

(* 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[     13289,        440]
NotebookOptionsPosition[     12408,        404]
NotebookOutlinePosition[     12745,        419]
CellTagsIndexPosition[     12702,        416]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"Eliminate", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      SuperscriptBox["a", "2"], "\[Equal]", 
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"x", "-", "xl"}], ")"}], "2"], "+", 
       SuperscriptBox["y", "2"]}]}], ",", 
     RowBox[{
      SuperscriptBox["b", "2"], "\[Equal]", 
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"x", "-", "xr"}], ")"}], "2"], "+", 
       SuperscriptBox["y", "2"]}]}]}], "}"}], ",", "y"}], "]"}]], "Input",
 CellChangeTimes->{{3.4803530692940283`*^9, 3.4803530717437077`*^9}, {
  3.480353102304743*^9, 3.480353124780987*^9}, {3.480353158763401*^9, 
  3.480353266751618*^9}, {3.480353358354301*^9, 3.480353358968121*^9}}],

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

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     SuperscriptBox["b", "2"], "-", 
     RowBox[{"2", " ", "x", " ", "xl"}], "+", 
     SuperscriptBox["xl", "2"], "+", 
     RowBox[{"2", " ", "x", " ", "xr"}], "-", 
     SuperscriptBox["xr", "2"]}], "\[Equal]", 
    SuperscriptBox["a", "2"]}], ",", "x"}], "]"}]], "Input",
 CellChangeTimes->{{3.480353384264968*^9, 3.4803534038301287`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"x", "\[Rule]", 
    FractionBox[
     RowBox[{
      RowBox[{"-", 
       SuperscriptBox["a", "2"]}], "+", 
      SuperscriptBox["b", "2"], "+", 
      SuperscriptBox["xl", "2"], "-", 
      SuperscriptBox["xr", "2"]}], 
     RowBox[{"2", " ", 
      RowBox[{"(", 
       RowBox[{"xl", "-", "xr"}], ")"}]}]]}], "}"}], "}"}]], "Output",
 CellChangeTimes->{3.480353405169127*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FullSimplify", "[", 
  FractionBox[
   RowBox[{
    RowBox[{"-", 
     SuperscriptBox["a", "2"]}], "+", 
    SuperscriptBox["b", "2"], "+", 
    SuperscriptBox["xl", "2"], "-", 
    SuperscriptBox["xr", "2"]}], 
   RowBox[{"2", " ", 
    RowBox[{"(", 
     RowBox[{"xl", "-", "xr"}], ")"}]}]], "]"}]], "Input",
 CellChangeTimes->{{3.480353414741691*^9, 3.480353459715658*^9}}],

Cell[BoxData[
 FractionBox[
  RowBox[{
   RowBox[{"-", 
    SuperscriptBox["a", "2"]}], "+", 
   SuperscriptBox["b", "2"], "+", 
   SuperscriptBox["xl", "2"], "-", 
   SuperscriptBox["xr", "2"]}], 
  RowBox[{"2", " ", 
   RowBox[{"(", 
    RowBox[{"xl", "-", "xr"}], ")"}]}]]], "Output",
 CellChangeTimes->{{3.4803534378225803`*^9, 3.4803534603115587`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Eliminate", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      SuperscriptBox["a", "2"], "\[Equal]", 
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"x", "-", "xl"}], ")"}], "2"], "+", 
       SuperscriptBox["y", "2"]}]}], ",", 
     RowBox[{
      SuperscriptBox["b", "2"], "\[Equal]", 
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"x", "-", "xr"}], ")"}], "2"], "+", 
       SuperscriptBox["y", "2"]}]}]}], "}"}], ",", "x"}], "]"}]], "Input",
 CellChangeTimes->{{3.48035354117004*^9, 3.4803535430443707`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"-", 
    SuperscriptBox["b", "4"]}], "+", 
   RowBox[{"2", " ", 
    SuperscriptBox["b", "2"], " ", 
    SuperscriptBox["xl", "2"]}], "-", 
   SuperscriptBox["xl", "4"], "-", 
   RowBox[{"4", " ", 
    SuperscriptBox["b", "2"], " ", "xl", " ", "xr"}], "+", 
   RowBox[{"4", " ", 
    SuperscriptBox["xl", "3"], " ", "xr"}], "+", 
   RowBox[{"2", " ", 
    SuperscriptBox["b", "2"], " ", 
    SuperscriptBox["xr", "2"]}], "-", 
   RowBox[{"6", " ", 
    SuperscriptBox["xl", "2"], " ", 
    SuperscriptBox["xr", "2"]}], "+", 
   RowBox[{"4", " ", "xl", " ", 
    SuperscriptBox["xr", "3"]}], "-", 
   SuperscriptBox["xr", "4"], "-", 
   RowBox[{"4", " ", 
    SuperscriptBox["xl", "2"], " ", 
    SuperscriptBox["y", "2"]}], "+", 
   RowBox[{"8", " ", "xl", " ", "xr", " ", 
    SuperscriptBox["y", "2"]}], "-", 
   RowBox[{"4", " ", 
    SuperscriptBox["xr", "2"], " ", 
    SuperscriptBox["y", "2"]}]}], "\[Equal]", 
  RowBox[{
   SuperscriptBox["a", "4"], "+", 
   RowBox[{
    SuperscriptBox["a", "2"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"-", "2"}], " ", 
       SuperscriptBox["b", "2"]}], "-", 
      RowBox[{"2", " ", 
       SuperscriptBox["xl", "2"]}], "+", 
      RowBox[{"4", " ", "xl", " ", "xr"}], "-", 
      RowBox[{"2", " ", 
       SuperscriptBox["xr", "2"]}]}], ")"}]}]}]}]], "Output",
 CellChangeTimes->{3.480353544000967*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"-", 
      SuperscriptBox["b", "4"]}], "+", 
     RowBox[{"2", " ", 
      SuperscriptBox["b", "2"], " ", 
      SuperscriptBox["xl", "2"]}], "-", 
     SuperscriptBox["xl", "4"], "-", 
     RowBox[{"4", " ", 
      SuperscriptBox["b", "2"], " ", "xl", " ", "xr"}], "+", 
     RowBox[{"4", " ", 
      SuperscriptBox["xl", "3"], " ", "xr"}], "+", 
     RowBox[{"2", " ", 
      SuperscriptBox["b", "2"], " ", 
      SuperscriptBox["xr", "2"]}], "-", 
     RowBox[{"6", " ", 
      SuperscriptBox["xl", "2"], " ", 
      SuperscriptBox["xr", "2"]}], "+", 
     RowBox[{"4", " ", "xl", " ", 
      SuperscriptBox["xr", "3"]}], "-", 
     SuperscriptBox["xr", "4"], "-", 
     RowBox[{"4", " ", 
      SuperscriptBox["xl", "2"], " ", 
      SuperscriptBox["y", "2"]}], "+", 
     RowBox[{"8", " ", "xl", " ", "xr", " ", 
      SuperscriptBox["y", "2"]}], "-", 
     RowBox[{"4", " ", 
      SuperscriptBox["xr", "2"], " ", 
      SuperscriptBox["y", "2"]}]}], "\[Equal]", 
    RowBox[{
     SuperscriptBox["a", "4"], "+", 
     RowBox[{
      SuperscriptBox["a", "2"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"-", "2"}], " ", 
         SuperscriptBox["b", "2"]}], "-", 
        RowBox[{"2", " ", 
         SuperscriptBox["xl", "2"]}], "+", 
        RowBox[{"4", " ", "xl", " ", "xr"}], "-", 
        RowBox[{"2", " ", 
         SuperscriptBox["xr", "2"]}]}], ")"}]}]}]}], ",", "y"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.480353625922577*^9, 3.4803536373630657`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"y", "\[Rule]", 
     RowBox[{"-", 
      FractionBox[
       SqrtBox[
        RowBox[{
         SuperscriptBox["a", "4"], "+", 
         SuperscriptBox["b", "4"], "-", 
         RowBox[{"2", " ", 
          SuperscriptBox["b", "2"], " ", 
          SuperscriptBox["xl", "2"]}], "+", 
         SuperscriptBox["xl", "4"], "+", 
         RowBox[{"4", " ", 
          SuperscriptBox["b", "2"], " ", "xl", " ", "xr"}], "-", 
         RowBox[{"4", " ", 
          SuperscriptBox["xl", "3"], " ", "xr"}], "-", 
         RowBox[{"2", " ", 
          SuperscriptBox["b", "2"], " ", 
          SuperscriptBox["xr", "2"]}], "+", 
         RowBox[{"6", " ", 
          SuperscriptBox["xl", "2"], " ", 
          SuperscriptBox["xr", "2"]}], "-", 
         RowBox[{"4", " ", "xl", " ", 
          SuperscriptBox["xr", "3"]}], "+", 
         SuperscriptBox["xr", "4"], "+", 
         RowBox[{
          SuperscriptBox["a", "2"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "2"}], " ", 
             SuperscriptBox["b", "2"]}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["xl", "2"]}], "+", 
            RowBox[{"4", " ", "xl", " ", "xr"}], "-", 
            RowBox[{"2", " ", 
             SuperscriptBox["xr", "2"]}]}], ")"}]}]}]], 
       SqrtBox[
        RowBox[{
         RowBox[{
          RowBox[{"-", "4"}], " ", 
          SuperscriptBox["xl", "2"]}], "+", 
         RowBox[{"8", " ", "xl", " ", "xr"}], "-", 
         RowBox[{"4", " ", 
          SuperscriptBox["xr", "2"]}]}]]]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"y", "\[Rule]", 
     FractionBox[
      SqrtBox[
       RowBox[{
        SuperscriptBox["a", "4"], "+", 
        SuperscriptBox["b", "4"], "-", 
        RowBox[{"2", " ", 
         SuperscriptBox["b", "2"], " ", 
         SuperscriptBox["xl", "2"]}], "+", 
        SuperscriptBox["xl", "4"], "+", 
        RowBox[{"4", " ", 
         SuperscriptBox["b", "2"], " ", "xl", " ", "xr"}], "-", 
        RowBox[{"4", " ", 
         SuperscriptBox["xl", "3"], " ", "xr"}], "-", 
        RowBox[{"2", " ", 
         SuperscriptBox["b", "2"], " ", 
         SuperscriptBox["xr", "2"]}], "+", 
        RowBox[{"6", " ", 
         SuperscriptBox["xl", "2"], " ", 
         SuperscriptBox["xr", "2"]}], "-", 
        RowBox[{"4", " ", "xl", " ", 
         SuperscriptBox["xr", "3"]}], "+", 
        SuperscriptBox["xr", "4"], "+", 
        RowBox[{
         SuperscriptBox["a", "2"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "2"}], " ", 
            SuperscriptBox["b", "2"]}], "-", 
           RowBox[{"2", " ", 
            SuperscriptBox["xl", "2"]}], "+", 
           RowBox[{"4", " ", "xl", " ", "xr"}], "-", 
           RowBox[{"2", " ", 
            SuperscriptBox["xr", "2"]}]}], ")"}]}]}]], 
      SqrtBox[
       RowBox[{
        RowBox[{
         RowBox[{"-", "4"}], " ", 
         SuperscriptBox["xl", "2"]}], "+", 
        RowBox[{"8", " ", "xl", " ", "xr"}], "-", 
        RowBox[{"4", " ", 
         SuperscriptBox["xr", "2"]}]}]]]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.4803536794619617`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FullSimplify", "[", 
  FractionBox[
   SqrtBox[
    RowBox[{
     SuperscriptBox["a", "4"], "+", 
     SuperscriptBox["b", "4"], "-", 
     RowBox[{"2", " ", 
      SuperscriptBox["b", "2"], " ", 
      SuperscriptBox["xl", "2"]}], "+", 
     SuperscriptBox["xl", "4"], "+", 
     RowBox[{"4", " ", 
      SuperscriptBox["b", "2"], " ", "xl", " ", "xr"}], "-", 
     RowBox[{"4", " ", 
      SuperscriptBox["xl", "3"], " ", "xr"}], "-", 
     RowBox[{"2", " ", 
      SuperscriptBox["b", "2"], " ", 
      SuperscriptBox["xr", "2"]}], "+", 
     RowBox[{"6", " ", 
      SuperscriptBox["xl", "2"], " ", 
      SuperscriptBox["xr", "2"]}], "-", 
     RowBox[{"4", " ", "xl", " ", 
      SuperscriptBox["xr", "3"]}], "+", 
     SuperscriptBox["xr", "4"], "+", 
     RowBox[{
      SuperscriptBox["a", "2"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"-", "2"}], " ", 
         SuperscriptBox["b", "2"]}], "-", 
        RowBox[{"2", " ", 
         SuperscriptBox["xl", "2"]}], "+", 
        RowBox[{"4", " ", "xl", " ", "xr"}], "-", 
        RowBox[{"2", " ", 
         SuperscriptBox["xr", "2"]}]}], ")"}]}]}]], 
   SqrtBox[
    RowBox[{
     RowBox[{
      RowBox[{"-", "4"}], " ", 
      SuperscriptBox["xl", "2"]}], "+", 
     RowBox[{"8", " ", "xl", " ", "xr"}], "-", 
     RowBox[{"4", " ", 
      SuperscriptBox["xr", "2"]}]}]]], "]"}]], "Input",
 CellChangeTimes->{{3.480353699507608*^9, 3.4803537093257113`*^9}}],

Cell[BoxData[
 FractionBox[
  SqrtBox[
   RowBox[{
    RowBox[{"(", 
     RowBox[{"a", "-", "b", "+", "xl", "-", "xr"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"a", "+", "b", "+", "xl", "-", "xr"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"a", "-", "b", "-", "xl", "+", "xr"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"a", "+", "b", "-", "xl", "+", "xr"}], ")"}]}]], 
  RowBox[{"2", " ", 
   SqrtBox[
    RowBox[{"-", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"xl", "-", "xr"}], ")"}], "2"]}]]}]]], "Output",
 CellChangeTimes->{3.480353711776017*^9}]
}, Open  ]]
},
WindowSize->{1440, 826},
WindowMargins->{{0, 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, 760, 21, 32, "Input"],
Cell[1330, 45, 345, 9, 33, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1712, 59, 418, 11, 32, "Input"],
Cell[2133, 72, 434, 14, 53, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2604, 91, 400, 12, 59, "Input"],
Cell[3007, 105, 357, 11, 53, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3401, 121, 613, 19, 32, "Input"],
Cell[4017, 142, 1424, 44, 33, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[5478, 191, 1592, 47, 32, "Input"],
Cell[7073, 240, 3226, 92, 121, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[10336, 337, 1475, 44, 79, "Input"],
Cell[11814, 383, 578, 18, 63, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)