0,0 → 1,456 |
(* 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 *) |