Subversion Repositories svnkaklik

Compare Revisions

Regard whitespace Rev 642 → Rev 643

/programy/C/ix86/echo/DOC/plane_cut.nb
10,10 → 10,10
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[ 145, 7]
NotebookDataLength[ 12573, 447]
NotebookOptionsPosition[ 11462, 403]
NotebookOutlinePosition[ 11800, 418]
CellTagsIndexPosition[ 11757, 415]
NotebookDataLength[ 14427, 524]
NotebookOptionsPosition[ 12951, 467]
NotebookOutlinePosition[ 13288, 482]
CellTagsIndexPosition[ 13245, 479]
WindowFrame->Normal*)
 
(* Beginning of Notebook Content *)
21,77 → 21,6
 
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[{"{",
142,11 → 71,9
Cell[CellGroupData[{
 
Cell[BoxData[
RowBox[{"Solve", "[",
RowBox[{"Simplify", "[",
RowBox[{
RowBox[{"{",
RowBox[{
RowBox[{
RowBox[{"-",
SuperscriptBox["b", "4"]}], "+",
RowBox[{"2", " ",
166,61 → 93,99
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}}],
SuperscriptBox["r", "2"]}]}], ")"}]}]}]}], "]"}]], "Input",
CellChangeTimes->{{3.480258949696538*^9, 3.4802589666213627`*^9}}],
 
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"y", "\[Rule]",
RowBox[{"-",
FractionBox[
RowBox[{"\[ImaginaryI]", " ",
SqrtBox[
RowBox[{
SuperscriptBox["a", "4"], "+",
SuperscriptBox["b", "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.480258967385964*^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.4802589709519663`*^9, 3.480258994751276*^9}}],
 
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"-", "2"}], " ",
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["r", "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[
RowBox[{"\[ImaginaryI]", " ",
SqrtBox[
RowBox[{
SuperscriptBox["a", "4"], "+",
SuperscriptBox["b", "4"], "-",
RowBox[{"-",
SuperscriptBox["a", "4"]}], "+",
RowBox[{"2", " ",
SuperscriptBox["b", "2"], " ",
SuperscriptBox["r", "2"]}], "+",
SuperscriptBox["r", "4"], "+",
RowBox[{
SuperscriptBox["a", "2"], " ",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"-", "2"}], " ",
SuperscriptBox["b", "2"]}], "-",
SuperscriptBox["b", "4"], "+",
RowBox[{"2", " ",
SuperscriptBox["r", "2"]}]}], ")"}]}]}]]}],
SuperscriptBox["a", "2"], " ",
SuperscriptBox["r", "2"]}], "+",
RowBox[{"2", " ",
SuperscriptBox["b", "2"], " ",
SuperscriptBox["r", "2"]}], "-",
SuperscriptBox["r", "4"]}]],
RowBox[{"2", " ", "r"}]]}], "}"}]}], "}"}]], "Output",
CellChangeTimes->{{3.480257840241704*^9, 3.4802578671962*^9}, {
3.4802579391864157`*^9, 3.48025795830022*^9}}]
CellChangeTimes->{3.480258995585805*^9}]
}, Open ]],
 
Cell[CellGroupData[{
243,7 → 208,7
RowBox[{"(",
RowBox[{"r", "-", "x"}], ")"}], "2"]}]}]}], "}"}], ",", "y"}],
"]"}]], "Input",
CellChangeTimes->{{3.48025799004694*^9, 3.480257990158451*^9}}],
CellChangeTimes->{{3.480259014363867*^9, 3.480259014483967*^9}}],
 
Cell[BoxData[
RowBox[{
252,23 → 217,49
SuperscriptBox["r", "2"], "+",
RowBox[{"2", " ", "r", " ", "x"}]}], "\[Equal]",
SuperscriptBox["a", "2"]}]], "Output",
CellChangeTimes->{3.480257991665391*^9}]
CellChangeTimes->{3.48025901538303*^9}]
}, Open ]],
 
Cell[CellGroupData[{
 
Cell[BoxData[
RowBox[{"Solve", "[",
RowBox[{"Simplify", "[",
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}}],
SuperscriptBox["a", "2"]}], "]"}]], "Input",
CellChangeTimes->{{3.480259022777849*^9, 3.480259039864859*^9}}],
 
Cell[BoxData[
RowBox[{
RowBox[{
SuperscriptBox["a", "2"], "+",
RowBox[{"r", " ",
RowBox[{"(",
RowBox[{"r", "-",
RowBox[{"2", " ", "x"}]}], ")"}]}]}], "\[Equal]",
SuperscriptBox["b", "2"]}]], "Output",
CellChangeTimes->{3.480259042740219*^9}]
}, Open ]],
 
Cell[CellGroupData[{
 
Cell[BoxData[
RowBox[{"Solve", "[",
RowBox[{
RowBox[{
RowBox[{
SuperscriptBox["a", "2"], "+",
RowBox[{"r", " ",
RowBox[{"(",
RowBox[{"r", "-",
RowBox[{"2", " ", "x"}]}], ")"}]}]}], "\[Equal]",
SuperscriptBox["b", "2"]}], ",", "x"}], "]"}]], "Input",
CellChangeTimes->{{3.480259057756564*^9, 3.480259075038864*^9}}],
 
Cell[BoxData[
RowBox[{"{",
RowBox[{"{",
RowBox[{"x", "\[Rule]",
278,57 → 269,100
SuperscriptBox["b", "2"], "+",
SuperscriptBox["r", "2"]}],
RowBox[{"2", " ", "r"}]]}], "}"}], "}"}]], "Output",
CellChangeTimes->{{3.4802580114774437`*^9, 3.480258018154606*^9}}]
CellChangeTimes->{3.4802590759762087`*^9}]
}, Open ]],
 
Cell[CellGroupData[{
 
Cell[BoxData[
RowBox[{"Simplify", "[",
RowBox[{"ParametricPlot", "[",
RowBox[{
RowBox[{"{",
RowBox[{
FractionBox[
RowBox[{
SuperscriptBox["a", "2"], "-",
SuperscriptBox["b", "2"], "+",
SuperscriptBox["0.1", "2"]}], "0.2"], ",", " ",
FractionBox[
SqrtBox[
RowBox[{
RowBox[{"-",
SuperscriptBox["b", "4"]}], "+",
SuperscriptBox["a", "4"]}], "+",
RowBox[{"2", " ",
SuperscriptBox["a", "2"], " ",
SuperscriptBox["b", "2"]}], "-",
SuperscriptBox["b", "4"], "+",
RowBox[{"2", " ",
SuperscriptBox["a", "2"], " ",
SuperscriptBox["0.1", "2"]}], "+",
RowBox[{"2", " ",
SuperscriptBox["b", "2"], " ",
SuperscriptBox["r", "2"]}], "-",
SuperscriptBox["r", "4"], "-",
RowBox[{"4", " ",
SuperscriptBox["r", "2"], " ",
SuperscriptBox["y", "2"]}]}], "\[Equal]",
SuperscriptBox["0.1", "2"]}], "-",
SuperscriptBox["0.1", "4"]}]], "0.2"]}], "}"}], ",",
RowBox[{"{",
RowBox[{"a", ",", "0", ",", "10"}], "}"}], ",", " ",
RowBox[{"{",
RowBox[{"b", ",", "0", ",", "10"}], "}"}]}], "]"}]], "Input",
CellChangeTimes->{{3.480260726697213*^9, 3.480260795029454*^9}, {
3.4802610157613573`*^9, 3.480261151606037*^9}, {3.480261184002676*^9,
3.480261316392874*^9}, {3.48026136441684*^9, 3.48026148678514*^9}}],
 
Cell[CellGroupData[{
 
Cell[BoxData[
RowBox[{"\[IndentingNewLine]",
RowBox[{"Eliminate", "[",
RowBox[{
SuperscriptBox["a", "4"], "+",
RowBox[{"{",
RowBox[{
SuperscriptBox["a", "2"], " ",
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"]}]}]}], "}"}], ",", "a"}],
"]"}]}]], "Input",
CellChangeTimes->{{3.480263655197631*^9, 3.480263663686249*^9}}],
 
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"-", "2"}], " ",
SuperscriptBox["b", "2"]}], "-",
RowBox[{"2", " ",
SuperscriptBox["r", "2"]}]}], ")"}]}]}]}], "]"}]], "Input",
CellChangeTimes->{{3.4802585314322577`*^9, 3.4802585376049767`*^9}}],
SuperscriptBox["r", "2"], "-",
RowBox[{"2", " ", "r", " ", "x"}], "+",
SuperscriptBox["x", "2"], "+",
SuperscriptBox["y", "2"]}], "\[Equal]",
SuperscriptBox["b", "2"]}]], "Output",
CellChangeTimes->{{3.480263658468478*^9, 3.480263664271557*^9}}]
}, Open ]],
 
Cell[CellGroupData[{
 
Cell[BoxData[
RowBox[{"Simplify", "[",
RowBox[{
RowBox[{
SuperscriptBox["a", "4"], "+",
SuperscriptBox["b", "4"], "+",
SuperscriptBox["r", "4"], "+",
RowBox[{"4", " ",
SuperscriptBox["r", "2"], " ",
SuperscriptBox["y", "2"]}]}], "\[Equal]",
SuperscriptBox["r", "2"], "-",
RowBox[{"2", " ", "r", " ", "x"}], "+",
SuperscriptBox["x", "2"], "+",
SuperscriptBox["y", "2"]}], "\[Equal]",
SuperscriptBox["b", "2"]}], "]"}]], "Input",
CellChangeTimes->{{3.4802636687522917`*^9, 3.48026368255702*^9}}],
 
Cell[BoxData[
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}]
RowBox[{"2", " ", "r", " ", "x"}]}], "\[Equal]",
RowBox[{
SuperscriptBox["r", "2"], "+",
SuperscriptBox["x", "2"], "+",
SuperscriptBox["y", "2"]}]}]], "Output",
CellChangeTimes->{3.480263685526928*^9}]
}, Open ]],
 
Cell[CellGroupData[{
338,71 → 372,101
RowBox[{
RowBox[{
RowBox[{
SuperscriptBox["a", "4"], "+",
SuperscriptBox["b", "4"], "+",
SuperscriptBox["r", "4"], "+",
RowBox[{"4", " ",
SuperscriptBox["r", "2"], " ",
SuperscriptBox["y", "2"]}]}], "\[Equal]",
SuperscriptBox["b", "2"], "+",
RowBox[{"2", " ", "r", " ", "x"}]}], "\[Equal]",
RowBox[{
RowBox[{"2", " ",
SuperscriptBox["b", "2"], " ",
SuperscriptBox["r", "2"]}], "+",
RowBox[{"2", " ",
SuperscriptBox["a", "2"], " ",
SuperscriptBox["r", "2"], "+",
SuperscriptBox["x", "2"], "+",
SuperscriptBox["y", "2"]}]}], ",", "b"}], "]"}]], "Input",
CellChangeTimes->{{3.480263691906734*^9, 3.480263707606902*^9}}],
 
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"b", "\[Rule]",
RowBox[{"-",
SqrtBox[
RowBox[{
SuperscriptBox["r", "2"], "-",
RowBox[{"2", " ", "r", " ", "x"}], "+",
SuperscriptBox["x", "2"], "+",
SuperscriptBox["y", "2"]}]]}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"b", "\[Rule]",
SqrtBox[
RowBox[{
SuperscriptBox["r", "2"], "-",
RowBox[{"2", " ", "r", " ", "x"}], "+",
SuperscriptBox["x", "2"], "+",
SuperscriptBox["y", "2"]}]]}], "}"}]}], "}"}]], "Output",
CellChangeTimes->{3.480263708377795*^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"]}]}]}], "}"}], ",", "b"}],
"]"}]], "Input",
CellChangeTimes->{{3.4802637422228947`*^9, 3.480263742630278*^9}}],
 
Cell[BoxData[
RowBox[{
SuperscriptBox["b", "2"], "+",
SuperscriptBox["r", "2"]}], ")"}]}]}]}], ",", "y"}], "]"}]], "Input",
CellChangeTimes->{{3.48025855657006*^9, 3.4802585750239153`*^9}}],
RowBox[{
SuperscriptBox["x", "2"], "+",
SuperscriptBox["y", "2"]}], "\[Equal]",
SuperscriptBox["a", "2"]}]], "Output",
CellChangeTimes->{3.48026374413827*^9}]
}, Open ]],
 
Cell[CellGroupData[{
 
Cell[BoxData[
RowBox[{"Solve", "[",
RowBox[{
RowBox[{
RowBox[{
SuperscriptBox["x", "2"], "+",
SuperscriptBox["y", "2"]}], "\[Equal]",
SuperscriptBox["a", "2"]}], ",", "a"}], "]"}]], "Input",
CellChangeTimes->{{3.480263751875348*^9, 3.480263763613769*^9}}],
 
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"y", "\[Rule]",
RowBox[{"a", "\[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"}]]}]}], "}"}], ",",
SuperscriptBox["x", "2"], "+",
SuperscriptBox["y", "2"]}]]}]}], "}"}], ",",
RowBox[{"{",
RowBox[{"y", "\[Rule]",
FractionBox[
RowBox[{"a", "\[Rule]",
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}]
SuperscriptBox["x", "2"], "+",
SuperscriptBox["y", "2"]}]]}], "}"}]}], "}"}]], "Output",
CellChangeTimes->{3.480263765039091*^9}]
}, Open ]]
},
WindowSize->{640, 750},
WindowMargins->{{144, Automatic}, {Automatic, 25}},
WindowSize->{1434, 824},
WindowMargins->{{0, Automatic}, {Automatic, 25}},
FrontEndVersion->"7.0 for Linux x86 (64-bit) (February 25, 2009)",
StyleDefinitions->"Default.nb"
]
418,36 → 482,49
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[567, 22, 381, 10, 32, "Input"],
Cell[951, 34, 476, 16, 46, "Output"]
Cell[567, 22, 648, 20, 32, "Input"],
Cell[1218, 44, 692, 23, 33, "Output"]
}, Open ]],
Cell[CellGroupData[{
Cell[1464, 55, 505, 14, 32, "Input"],
Cell[1972, 71, 511, 17, 46, "Output"]
Cell[1947, 72, 749, 24, 32, "Input"],
Cell[2699, 98, 579, 19, 33, "Output"]
}, Open ]],
Cell[CellGroupData[{
Cell[2520, 93, 648, 20, 32, "Input"],
Cell[3171, 115, 692, 23, 33, "Output"]
Cell[3315, 122, 694, 21, 32, "Input"],
Cell[4012, 145, 1369, 42, 54, "Output"]
}, Open ]],
Cell[CellGroupData[{
Cell[3900, 143, 892, 28, 32, InheritFromParent],
Cell[4795, 173, 1644, 49, 109, "Output"]
Cell[5418, 192, 547, 18, 32, "Input"],
Cell[5968, 212, 239, 7, 33, "Output"]
}, Open ]],
Cell[CellGroupData[{
Cell[6476, 227, 546, 18, 32, "Input"],
Cell[7025, 247, 240, 7, 33, "Output"]
Cell[6244, 224, 303, 8, 32, "Input"],
Cell[6550, 234, 273, 9, 33, "Output"]
}, Open ]],
Cell[CellGroupData[{
Cell[7302, 259, 329, 9, 32, "Input"],
Cell[7634, 270, 340, 10, 50, "Output"]
Cell[6860, 248, 366, 11, 32, "Input"],
Cell[7229, 261, 316, 10, 50, "Output"]
}, Open ]],
Cell[7560, 274, 1175, 32, 66, "Input"],
Cell[CellGroupData[{
Cell[8011, 285, 751, 24, 32, "Input"],
Cell[8765, 311, 579, 19, 33, "Output"]
Cell[8760, 310, 599, 19, 55, "Input"],
Cell[9362, 331, 299, 8, 33, "Output"]
}, Open ]],
Cell[CellGroupData[{
Cell[9381, 335, 693, 21, 32, "Input"],
Cell[10077, 358, 1369, 42, 98, "Output"]
Cell[9698, 344, 340, 9, 32, "Input"],
Cell[10041, 355, 289, 9, 33, "Output"]
}, Open ]],
Cell[CellGroupData[{
Cell[10367, 369, 382, 11, 32, "Input"],
Cell[10752, 382, 626, 20, 46, "Output"]
}, Open ]],
Cell[CellGroupData[{
Cell[11415, 407, 549, 18, 32, "Input"],
Cell[11967, 427, 195, 6, 33, "Output"]
}, Open ]],
Cell[CellGroupData[{
Cell[12199, 438, 283, 8, 32, "Input"],
Cell[12485, 448, 450, 16, 46, "Output"]
}, Open ]]
}
]
/programy/C/ix86/echo/DOC/plane_cut.pdf
Cannot display: file marked as a binary type.
svn:mime-type = application/octet-stream
/programy/C/ix86/echo/SW/sonar/sonar.kdevelop
187,8 → 187,8
<includestyle>3</includestyle>
<root>/usr/share/qt3</root>
<designerintegration>EmbeddedKDevDesigner</designerintegration>
<qmake></qmake>
<designer></designer>
<qmake>/usr/bin/qmake</qmake>
<designer>/usr/bin/designer</designer>
<designerpluginpaths/>
</qt>
<references/>
/programy/C/ix86/echo/SW/sonar/src/sonar
Cannot display: file marked as a binary type.
svn:mime-type = application/octet-stream
/programy/C/ix86/echo/SW/sonar/src/sonar.c
20,6 → 20,8
 
#define SOUND_SPEED 340.0 // sound speed in air in metrs per second
#define MAX_RANGE 10.0 // maximal working radius in meters
#define APERTURE 0.2 // distance between microphones
#define MAP_SIZE 100
 
static char *device = "plughw:0,0"; /* playback device */
static snd_pcm_format_t format = SND_PCM_FORMAT_S16; /* sample format */
211,6 → 213,8
double df; //frequency resolution
unsigned int frequency_bins; // number of output frequency bins
 
float density_map[MAP_SIZE][MAP_SIZE]; // Array to store two dimensional image of echos
 
double *inchirp;
fftw_complex *outchirp;
fftw_plan fft_plan_chirp;
359,6 → 363,13
correlationr[n]=abs(r);
}
 
printf("Building echo map\n"); // compute map from left and right correlation data
for (i=0;i < MAP_SIZE; i++)
{
for (j=0;j < MAP_SIZE; j++) density_map[i][j]=correlationl[(int)sqrt(i*i + j*j)]*correlationr[(int)sqrt(APERTURE*APERTURE - 2*APERTURE*i + i*i + j*j)];
}
 
 
printf("Searching echos\n");
r=0;
l=0;
395,6 → 406,12
}
fclose(out);
 
out=fopen("/tmp/plane_cut.txt","w");
for (i=0;i < MAP_SIZE; i++)
{
for (j=0;j < MAP_SIZE; j++) fprintf(out,"%6f", density_map);
}
 
out=fopen("/tmp/chirp.txt","w");
for (i=0; i <= (chirp_size - 1); i++)
{
413,10 → 430,6
}
fclose(out);
 
printf("Echo zacina na: %d vzorku.\n", delayl[1]);
printf("Casove na: %f s\n", ((float)delayl[1]/rate));
printf("vzdalenost: %f m\n", (SOUND_SPEED*(float)delayl[1]/rate));
 
free(correlationl);
free(correlationr);
free(L_signal);