Subversion Repositories svnkaklik

Compare Revisions

No changes between revisions

Ignore whitespace Rev 565 → Rev 642

/programy/C/ix86/echo/DOC/plane_cut.nb
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 *)
/programy/C/ix86/echo/DOC/plane_cut.pdf
Cannot display: file marked as a binary type.
svn:mime-type = application/octet-stream
Property changes:
Added: svn:mime-type
+application/octet-stream
\ No newline at end of property