| 642 |
kaklik |
1 |
(* Content-type: application/mathematica *)
|
|
|
2 |
|
|
|
3 |
(*** Wolfram Notebook File ***)
|
|
|
4 |
(* http://www.wolfram.com/nb *)
|
|
|
5 |
|
|
|
6 |
(* CreatedBy='Mathematica 7.0' *)
|
|
|
7 |
|
|
|
8 |
(*CacheID: 234*)
|
|
|
9 |
(* Internal cache information:
|
|
|
10 |
NotebookFileLineBreakTest
|
|
|
11 |
NotebookFileLineBreakTest
|
|
|
12 |
NotebookDataPosition[ 145, 7]
|
| 643 |
kaklik |
13 |
NotebookDataLength[ 14427, 524]
|
|
|
14 |
NotebookOptionsPosition[ 12951, 467]
|
|
|
15 |
NotebookOutlinePosition[ 13288, 482]
|
|
|
16 |
CellTagsIndexPosition[ 13245, 479]
|
| 642 |
kaklik |
17 |
WindowFrame->Normal*)
|
|
|
18 |
|
|
|
19 |
(* Beginning of Notebook Content *)
|
|
|
20 |
Notebook[{
|
|
|
21 |
|
|
|
22 |
Cell[CellGroupData[{
|
|
|
23 |
Cell[BoxData[
|
|
|
24 |
RowBox[{"Eliminate", "[",
|
|
|
25 |
RowBox[{
|
|
|
26 |
RowBox[{"{",
|
|
|
27 |
RowBox[{
|
|
|
28 |
RowBox[{
|
|
|
29 |
SuperscriptBox["a", "2"], "==",
|
|
|
30 |
RowBox[{
|
|
|
31 |
SuperscriptBox["y", "2"], "+",
|
|
|
32 |
SuperscriptBox["x", "2"]}]}], ",",
|
|
|
33 |
RowBox[{
|
|
|
34 |
SuperscriptBox["b", "2"], "==",
|
|
|
35 |
RowBox[{
|
|
|
36 |
SuperscriptBox["y", "2"], "+", " ",
|
|
|
37 |
SuperscriptBox[
|
|
|
38 |
RowBox[{"(",
|
|
|
39 |
RowBox[{"r", "-", "x"}], ")"}], "2"]}]}]}], "}"}], ",", "x"}],
|
|
|
40 |
"]"}]], "Input",
|
|
|
41 |
CellChangeTimes->{{3.48025742799592*^9, 3.480257444164321*^9}, {
|
|
|
42 |
3.480257523613083*^9, 3.4802575457893877`*^9}, {3.4802575824866943`*^9,
|
|
|
43 |
3.480257595868989*^9}}],
|
|
|
44 |
|
|
|
45 |
Cell[BoxData[
|
|
|
46 |
RowBox[{
|
|
|
47 |
RowBox[{
|
|
|
48 |
RowBox[{"-",
|
|
|
49 |
SuperscriptBox["b", "4"]}], "+",
|
|
|
50 |
RowBox[{"2", " ",
|
|
|
51 |
SuperscriptBox["b", "2"], " ",
|
|
|
52 |
SuperscriptBox["r", "2"]}], "-",
|
|
|
53 |
SuperscriptBox["r", "4"], "-",
|
|
|
54 |
RowBox[{"4", " ",
|
|
|
55 |
SuperscriptBox["r", "2"], " ",
|
|
|
56 |
SuperscriptBox["y", "2"]}]}], "\[Equal]",
|
|
|
57 |
RowBox[{
|
|
|
58 |
SuperscriptBox["a", "4"], "+",
|
|
|
59 |
RowBox[{
|
|
|
60 |
SuperscriptBox["a", "2"], " ",
|
|
|
61 |
RowBox[{"(",
|
|
|
62 |
RowBox[{
|
|
|
63 |
RowBox[{
|
|
|
64 |
RowBox[{"-", "2"}], " ",
|
|
|
65 |
SuperscriptBox["b", "2"]}], "-",
|
|
|
66 |
RowBox[{"2", " ",
|
|
|
67 |
SuperscriptBox["r", "2"]}]}], ")"}]}]}]}]], "Output",
|
|
|
68 |
CellChangeTimes->{3.480257547792871*^9, 3.4802575969300547`*^9}]
|
|
|
69 |
}, Open ]],
|
|
|
70 |
|
|
|
71 |
Cell[CellGroupData[{
|
|
|
72 |
|
|
|
73 |
Cell[BoxData[
|
|
|
74 |
RowBox[{"Simplify", "[",
|
|
|
75 |
RowBox[{
|
|
|
76 |
RowBox[{
|
|
|
77 |
RowBox[{"-",
|
|
|
78 |
SuperscriptBox["b", "4"]}], "+",
|
|
|
79 |
RowBox[{"2", " ",
|
|
|
80 |
SuperscriptBox["b", "2"], " ",
|
|
|
81 |
SuperscriptBox["r", "2"]}], "-",
|
|
|
82 |
SuperscriptBox["r", "4"], "-",
|
|
|
83 |
RowBox[{"4", " ",
|
|
|
84 |
SuperscriptBox["r", "2"], " ",
|
|
|
85 |
SuperscriptBox["y", "2"]}]}], "\[Equal]",
|
|
|
86 |
RowBox[{
|
|
|
87 |
SuperscriptBox["a", "4"], "+",
|
|
|
88 |
RowBox[{
|
|
|
89 |
SuperscriptBox["a", "2"], " ",
|
|
|
90 |
RowBox[{"(",
|
|
|
91 |
RowBox[{
|
|
|
92 |
RowBox[{
|
|
|
93 |
RowBox[{"-", "2"}], " ",
|
|
|
94 |
SuperscriptBox["b", "2"]}], "-",
|
|
|
95 |
RowBox[{"2", " ",
|
|
|
96 |
SuperscriptBox["r", "2"]}]}], ")"}]}]}]}], "]"}]], "Input",
|
| 643 |
kaklik |
97 |
CellChangeTimes->{{3.480258949696538*^9, 3.4802589666213627`*^9}}],
|
| 642 |
kaklik |
98 |
|
|
|
99 |
Cell[BoxData[
|
|
|
100 |
RowBox[{
|
|
|
101 |
RowBox[{
|
|
|
102 |
SuperscriptBox["a", "4"], "+",
|
|
|
103 |
SuperscriptBox["b", "4"], "+",
|
|
|
104 |
SuperscriptBox["r", "4"], "+",
|
|
|
105 |
RowBox[{"4", " ",
|
|
|
106 |
SuperscriptBox["r", "2"], " ",
|
|
|
107 |
SuperscriptBox["y", "2"]}]}], "\[Equal]",
|
|
|
108 |
RowBox[{
|
|
|
109 |
RowBox[{"2", " ",
|
|
|
110 |
SuperscriptBox["b", "2"], " ",
|
|
|
111 |
SuperscriptBox["r", "2"]}], "+",
|
|
|
112 |
RowBox[{"2", " ",
|
|
|
113 |
SuperscriptBox["a", "2"], " ",
|
|
|
114 |
RowBox[{"(",
|
|
|
115 |
RowBox[{
|
|
|
116 |
SuperscriptBox["b", "2"], "+",
|
|
|
117 |
SuperscriptBox["r", "2"]}], ")"}]}]}]}]], "Output",
|
| 643 |
kaklik |
118 |
CellChangeTimes->{3.480258967385964*^9}]
|
| 642 |
kaklik |
119 |
}, Open ]],
|
|
|
120 |
|
|
|
121 |
Cell[CellGroupData[{
|
|
|
122 |
|
|
|
123 |
Cell[BoxData[
|
|
|
124 |
RowBox[{"Solve", "[",
|
|
|
125 |
RowBox[{
|
|
|
126 |
RowBox[{
|
|
|
127 |
RowBox[{
|
|
|
128 |
SuperscriptBox["a", "4"], "+",
|
|
|
129 |
SuperscriptBox["b", "4"], "+",
|
|
|
130 |
SuperscriptBox["r", "4"], "+",
|
|
|
131 |
RowBox[{"4", " ",
|
|
|
132 |
SuperscriptBox["r", "2"], " ",
|
|
|
133 |
SuperscriptBox["y", "2"]}]}], "\[Equal]",
|
|
|
134 |
RowBox[{
|
|
|
135 |
RowBox[{"2", " ",
|
|
|
136 |
SuperscriptBox["b", "2"], " ",
|
|
|
137 |
SuperscriptBox["r", "2"]}], "+",
|
|
|
138 |
RowBox[{"2", " ",
|
|
|
139 |
SuperscriptBox["a", "2"], " ",
|
|
|
140 |
RowBox[{"(",
|
|
|
141 |
RowBox[{
|
|
|
142 |
SuperscriptBox["b", "2"], "+",
|
|
|
143 |
SuperscriptBox["r", "2"]}], ")"}]}]}]}], ",", "y"}], "]"}]], "Input",
|
| 643 |
kaklik |
144 |
CellChangeTimes->{{3.4802589709519663`*^9, 3.480258994751276*^9}}],
|
| 642 |
kaklik |
145 |
|
|
|
146 |
Cell[BoxData[
|
|
|
147 |
RowBox[{"{",
|
|
|
148 |
RowBox[{
|
|
|
149 |
RowBox[{"{",
|
|
|
150 |
RowBox[{"y", "\[Rule]",
|
|
|
151 |
RowBox[{"-",
|
|
|
152 |
FractionBox[
|
|
|
153 |
SqrtBox[
|
|
|
154 |
RowBox[{
|
|
|
155 |
RowBox[{"-",
|
|
|
156 |
SuperscriptBox["a", "4"]}], "+",
|
|
|
157 |
RowBox[{"2", " ",
|
|
|
158 |
SuperscriptBox["a", "2"], " ",
|
|
|
159 |
SuperscriptBox["b", "2"]}], "-",
|
|
|
160 |
SuperscriptBox["b", "4"], "+",
|
|
|
161 |
RowBox[{"2", " ",
|
|
|
162 |
SuperscriptBox["a", "2"], " ",
|
|
|
163 |
SuperscriptBox["r", "2"]}], "+",
|
|
|
164 |
RowBox[{"2", " ",
|
|
|
165 |
SuperscriptBox["b", "2"], " ",
|
|
|
166 |
SuperscriptBox["r", "2"]}], "-",
|
|
|
167 |
SuperscriptBox["r", "4"]}]],
|
|
|
168 |
RowBox[{"2", " ", "r"}]]}]}], "}"}], ",",
|
|
|
169 |
RowBox[{"{",
|
|
|
170 |
RowBox[{"y", "\[Rule]",
|
|
|
171 |
FractionBox[
|
|
|
172 |
SqrtBox[
|
|
|
173 |
RowBox[{
|
|
|
174 |
RowBox[{"-",
|
|
|
175 |
SuperscriptBox["a", "4"]}], "+",
|
|
|
176 |
RowBox[{"2", " ",
|
|
|
177 |
SuperscriptBox["a", "2"], " ",
|
|
|
178 |
SuperscriptBox["b", "2"]}], "-",
|
|
|
179 |
SuperscriptBox["b", "4"], "+",
|
|
|
180 |
RowBox[{"2", " ",
|
|
|
181 |
SuperscriptBox["a", "2"], " ",
|
|
|
182 |
SuperscriptBox["r", "2"]}], "+",
|
|
|
183 |
RowBox[{"2", " ",
|
|
|
184 |
SuperscriptBox["b", "2"], " ",
|
|
|
185 |
SuperscriptBox["r", "2"]}], "-",
|
|
|
186 |
SuperscriptBox["r", "4"]}]],
|
|
|
187 |
RowBox[{"2", " ", "r"}]]}], "}"}]}], "}"}]], "Output",
|
| 643 |
kaklik |
188 |
CellChangeTimes->{3.480258995585805*^9}]
|
|
|
189 |
}, Open ]],
|
|
|
190 |
|
|
|
191 |
Cell[CellGroupData[{
|
|
|
192 |
|
|
|
193 |
Cell[BoxData[
|
|
|
194 |
RowBox[{"Eliminate", "[",
|
|
|
195 |
RowBox[{
|
|
|
196 |
RowBox[{"{",
|
|
|
197 |
RowBox[{
|
|
|
198 |
RowBox[{
|
|
|
199 |
SuperscriptBox["a", "2"], "==",
|
|
|
200 |
RowBox[{
|
|
|
201 |
SuperscriptBox["y", "2"], "+",
|
|
|
202 |
SuperscriptBox["x", "2"]}]}], ",",
|
|
|
203 |
RowBox[{
|
|
|
204 |
SuperscriptBox["b", "2"], "==",
|
|
|
205 |
RowBox[{
|
|
|
206 |
SuperscriptBox["y", "2"], "+", " ",
|
|
|
207 |
SuperscriptBox[
|
|
|
208 |
RowBox[{"(",
|
|
|
209 |
RowBox[{"r", "-", "x"}], ")"}], "2"]}]}]}], "}"}], ",", "y"}],
|
|
|
210 |
"]"}]], "Input",
|
|
|
211 |
CellChangeTimes->{{3.480259014363867*^9, 3.480259014483967*^9}}],
|
|
|
212 |
|
|
|
213 |
Cell[BoxData[
|
|
|
214 |
RowBox[{
|
|
|
215 |
RowBox[{
|
|
|
216 |
SuperscriptBox["b", "2"], "-",
|
|
|
217 |
SuperscriptBox["r", "2"], "+",
|
|
|
218 |
RowBox[{"2", " ", "r", " ", "x"}]}], "\[Equal]",
|
|
|
219 |
SuperscriptBox["a", "2"]}]], "Output",
|
|
|
220 |
CellChangeTimes->{3.48025901538303*^9}]
|
|
|
221 |
}, Open ]],
|
|
|
222 |
|
|
|
223 |
Cell[CellGroupData[{
|
|
|
224 |
|
|
|
225 |
Cell[BoxData[
|
|
|
226 |
RowBox[{"Simplify", "[",
|
|
|
227 |
RowBox[{
|
|
|
228 |
RowBox[{
|
|
|
229 |
SuperscriptBox["b", "2"], "-",
|
|
|
230 |
SuperscriptBox["r", "2"], "+",
|
|
|
231 |
RowBox[{"2", " ", "r", " ", "x"}]}], "\[Equal]",
|
|
|
232 |
SuperscriptBox["a", "2"]}], "]"}]], "Input",
|
|
|
233 |
CellChangeTimes->{{3.480259022777849*^9, 3.480259039864859*^9}}],
|
|
|
234 |
|
|
|
235 |
Cell[BoxData[
|
|
|
236 |
RowBox[{
|
|
|
237 |
RowBox[{
|
|
|
238 |
SuperscriptBox["a", "2"], "+",
|
|
|
239 |
RowBox[{"r", " ",
|
|
|
240 |
RowBox[{"(",
|
|
|
241 |
RowBox[{"r", "-",
|
|
|
242 |
RowBox[{"2", " ", "x"}]}], ")"}]}]}], "\[Equal]",
|
|
|
243 |
SuperscriptBox["b", "2"]}]], "Output",
|
|
|
244 |
CellChangeTimes->{3.480259042740219*^9}]
|
|
|
245 |
}, Open ]],
|
|
|
246 |
|
|
|
247 |
Cell[CellGroupData[{
|
|
|
248 |
|
|
|
249 |
Cell[BoxData[
|
|
|
250 |
RowBox[{"Solve", "[",
|
|
|
251 |
RowBox[{
|
|
|
252 |
RowBox[{
|
|
|
253 |
RowBox[{
|
|
|
254 |
SuperscriptBox["a", "2"], "+",
|
|
|
255 |
RowBox[{"r", " ",
|
|
|
256 |
RowBox[{"(",
|
|
|
257 |
RowBox[{"r", "-",
|
|
|
258 |
RowBox[{"2", " ", "x"}]}], ")"}]}]}], "\[Equal]",
|
|
|
259 |
SuperscriptBox["b", "2"]}], ",", "x"}], "]"}]], "Input",
|
|
|
260 |
CellChangeTimes->{{3.480259057756564*^9, 3.480259075038864*^9}}],
|
|
|
261 |
|
|
|
262 |
Cell[BoxData[
|
|
|
263 |
RowBox[{"{",
|
|
|
264 |
RowBox[{"{",
|
|
|
265 |
RowBox[{"x", "\[Rule]",
|
|
|
266 |
FractionBox[
|
|
|
267 |
RowBox[{
|
|
|
268 |
SuperscriptBox["a", "2"], "-",
|
|
|
269 |
SuperscriptBox["b", "2"], "+",
|
|
|
270 |
SuperscriptBox["r", "2"]}],
|
|
|
271 |
RowBox[{"2", " ", "r"}]]}], "}"}], "}"}]], "Output",
|
|
|
272 |
CellChangeTimes->{3.4802590759762087`*^9}]
|
|
|
273 |
}, Open ]],
|
|
|
274 |
|
|
|
275 |
Cell[BoxData[
|
|
|
276 |
RowBox[{"ParametricPlot", "[",
|
|
|
277 |
RowBox[{
|
|
|
278 |
RowBox[{"{",
|
|
|
279 |
RowBox[{
|
|
|
280 |
FractionBox[
|
|
|
281 |
RowBox[{
|
|
|
282 |
SuperscriptBox["a", "2"], "-",
|
|
|
283 |
SuperscriptBox["b", "2"], "+",
|
|
|
284 |
SuperscriptBox["0.1", "2"]}], "0.2"], ",", " ",
|
|
|
285 |
FractionBox[
|
|
|
286 |
SqrtBox[
|
|
|
287 |
RowBox[{
|
|
|
288 |
RowBox[{"-",
|
|
|
289 |
SuperscriptBox["a", "4"]}], "+",
|
|
|
290 |
RowBox[{"2", " ",
|
|
|
291 |
SuperscriptBox["a", "2"], " ",
|
|
|
292 |
SuperscriptBox["b", "2"]}], "-",
|
|
|
293 |
SuperscriptBox["b", "4"], "+",
|
|
|
294 |
RowBox[{"2", " ",
|
|
|
295 |
SuperscriptBox["a", "2"], " ",
|
|
|
296 |
SuperscriptBox["0.1", "2"]}], "+",
|
|
|
297 |
RowBox[{"2", " ",
|
|
|
298 |
SuperscriptBox["b", "2"], " ",
|
|
|
299 |
SuperscriptBox["0.1", "2"]}], "-",
|
|
|
300 |
SuperscriptBox["0.1", "4"]}]], "0.2"]}], "}"}], ",",
|
|
|
301 |
RowBox[{"{",
|
|
|
302 |
RowBox[{"a", ",", "0", ",", "10"}], "}"}], ",", " ",
|
|
|
303 |
RowBox[{"{",
|
|
|
304 |
RowBox[{"b", ",", "0", ",", "10"}], "}"}]}], "]"}]], "Input",
|
|
|
305 |
CellChangeTimes->{{3.480260726697213*^9, 3.480260795029454*^9}, {
|
|
|
306 |
3.4802610157613573`*^9, 3.480261151606037*^9}, {3.480261184002676*^9,
|
|
|
307 |
3.480261316392874*^9}, {3.48026136441684*^9, 3.48026148678514*^9}}],
|
|
|
308 |
|
|
|
309 |
Cell[CellGroupData[{
|
|
|
310 |
|
|
|
311 |
Cell[BoxData[
|
|
|
312 |
RowBox[{"\[IndentingNewLine]",
|
|
|
313 |
RowBox[{"Eliminate", "[",
|
|
|
314 |
RowBox[{
|
|
|
315 |
RowBox[{"{",
|
|
|
316 |
RowBox[{
|
|
|
317 |
RowBox[{
|
|
|
318 |
SuperscriptBox["a", "2"], "==",
|
|
|
319 |
RowBox[{
|
|
|
320 |
SuperscriptBox["y", "2"], "+",
|
|
|
321 |
SuperscriptBox["x", "2"]}]}], ",",
|
|
|
322 |
RowBox[{
|
|
|
323 |
SuperscriptBox["b", "2"], "==",
|
|
|
324 |
RowBox[{
|
|
|
325 |
SuperscriptBox["y", "2"], "+", " ",
|
|
|
326 |
SuperscriptBox[
|
|
|
327 |
RowBox[{"(",
|
|
|
328 |
RowBox[{"r", "-", "x"}], ")"}], "2"]}]}]}], "}"}], ",", "a"}],
|
|
|
329 |
"]"}]}]], "Input",
|
|
|
330 |
CellChangeTimes->{{3.480263655197631*^9, 3.480263663686249*^9}}],
|
|
|
331 |
|
|
|
332 |
Cell[BoxData[
|
|
|
333 |
RowBox[{
|
|
|
334 |
RowBox[{
|
|
|
335 |
SuperscriptBox["r", "2"], "-",
|
|
|
336 |
RowBox[{"2", " ", "r", " ", "x"}], "+",
|
|
|
337 |
SuperscriptBox["x", "2"], "+",
|
|
|
338 |
SuperscriptBox["y", "2"]}], "\[Equal]",
|
|
|
339 |
SuperscriptBox["b", "2"]}]], "Output",
|
|
|
340 |
CellChangeTimes->{{3.480263658468478*^9, 3.480263664271557*^9}}]
|
|
|
341 |
}, Open ]],
|
|
|
342 |
|
|
|
343 |
Cell[CellGroupData[{
|
|
|
344 |
|
|
|
345 |
Cell[BoxData[
|
|
|
346 |
RowBox[{"Simplify", "[",
|
|
|
347 |
RowBox[{
|
|
|
348 |
RowBox[{
|
|
|
349 |
SuperscriptBox["r", "2"], "-",
|
|
|
350 |
RowBox[{"2", " ", "r", " ", "x"}], "+",
|
|
|
351 |
SuperscriptBox["x", "2"], "+",
|
|
|
352 |
SuperscriptBox["y", "2"]}], "\[Equal]",
|
|
|
353 |
SuperscriptBox["b", "2"]}], "]"}]], "Input",
|
|
|
354 |
CellChangeTimes->{{3.4802636687522917`*^9, 3.48026368255702*^9}}],
|
|
|
355 |
|
|
|
356 |
Cell[BoxData[
|
|
|
357 |
RowBox[{
|
|
|
358 |
RowBox[{
|
|
|
359 |
SuperscriptBox["b", "2"], "+",
|
|
|
360 |
RowBox[{"2", " ", "r", " ", "x"}]}], "\[Equal]",
|
|
|
361 |
RowBox[{
|
|
|
362 |
SuperscriptBox["r", "2"], "+",
|
|
|
363 |
SuperscriptBox["x", "2"], "+",
|
|
|
364 |
SuperscriptBox["y", "2"]}]}]], "Output",
|
|
|
365 |
CellChangeTimes->{3.480263685526928*^9}]
|
|
|
366 |
}, Open ]],
|
|
|
367 |
|
|
|
368 |
Cell[CellGroupData[{
|
|
|
369 |
|
|
|
370 |
Cell[BoxData[
|
|
|
371 |
RowBox[{"Solve", "[",
|
|
|
372 |
RowBox[{
|
|
|
373 |
RowBox[{
|
|
|
374 |
RowBox[{
|
|
|
375 |
SuperscriptBox["b", "2"], "+",
|
|
|
376 |
RowBox[{"2", " ", "r", " ", "x"}]}], "\[Equal]",
|
|
|
377 |
RowBox[{
|
|
|
378 |
SuperscriptBox["r", "2"], "+",
|
|
|
379 |
SuperscriptBox["x", "2"], "+",
|
|
|
380 |
SuperscriptBox["y", "2"]}]}], ",", "b"}], "]"}]], "Input",
|
|
|
381 |
CellChangeTimes->{{3.480263691906734*^9, 3.480263707606902*^9}}],
|
|
|
382 |
|
|
|
383 |
Cell[BoxData[
|
|
|
384 |
RowBox[{"{",
|
|
|
385 |
RowBox[{
|
|
|
386 |
RowBox[{"{",
|
|
|
387 |
RowBox[{"b", "\[Rule]",
|
|
|
388 |
RowBox[{"-",
|
|
|
389 |
SqrtBox[
|
|
|
390 |
RowBox[{
|
|
|
391 |
SuperscriptBox["r", "2"], "-",
|
|
|
392 |
RowBox[{"2", " ", "r", " ", "x"}], "+",
|
|
|
393 |
SuperscriptBox["x", "2"], "+",
|
|
|
394 |
SuperscriptBox["y", "2"]}]]}]}], "}"}], ",",
|
|
|
395 |
RowBox[{"{",
|
|
|
396 |
RowBox[{"b", "\[Rule]",
|
|
|
397 |
SqrtBox[
|
|
|
398 |
RowBox[{
|
|
|
399 |
SuperscriptBox["r", "2"], "-",
|
|
|
400 |
RowBox[{"2", " ", "r", " ", "x"}], "+",
|
|
|
401 |
SuperscriptBox["x", "2"], "+",
|
|
|
402 |
SuperscriptBox["y", "2"]}]]}], "}"}]}], "}"}]], "Output",
|
|
|
403 |
CellChangeTimes->{3.480263708377795*^9}]
|
|
|
404 |
}, Open ]],
|
|
|
405 |
|
|
|
406 |
Cell[CellGroupData[{
|
|
|
407 |
|
|
|
408 |
Cell[BoxData[
|
|
|
409 |
RowBox[{"Eliminate", "[",
|
|
|
410 |
RowBox[{
|
|
|
411 |
RowBox[{"{",
|
|
|
412 |
RowBox[{
|
|
|
413 |
RowBox[{
|
|
|
414 |
SuperscriptBox["a", "2"], "==",
|
|
|
415 |
RowBox[{
|
|
|
416 |
SuperscriptBox["y", "2"], "+",
|
|
|
417 |
SuperscriptBox["x", "2"]}]}], ",",
|
|
|
418 |
RowBox[{
|
|
|
419 |
SuperscriptBox["b", "2"], "==",
|
|
|
420 |
RowBox[{
|
|
|
421 |
SuperscriptBox["y", "2"], "+", " ",
|
|
|
422 |
SuperscriptBox[
|
|
|
423 |
RowBox[{"(",
|
|
|
424 |
RowBox[{"r", "-", "x"}], ")"}], "2"]}]}]}], "}"}], ",", "b"}],
|
|
|
425 |
"]"}]], "Input",
|
|
|
426 |
CellChangeTimes->{{3.4802637422228947`*^9, 3.480263742630278*^9}}],
|
|
|
427 |
|
|
|
428 |
Cell[BoxData[
|
|
|
429 |
RowBox[{
|
|
|
430 |
RowBox[{
|
|
|
431 |
SuperscriptBox["x", "2"], "+",
|
|
|
432 |
SuperscriptBox["y", "2"]}], "\[Equal]",
|
|
|
433 |
SuperscriptBox["a", "2"]}]], "Output",
|
|
|
434 |
CellChangeTimes->{3.48026374413827*^9}]
|
|
|
435 |
}, Open ]],
|
|
|
436 |
|
|
|
437 |
Cell[CellGroupData[{
|
|
|
438 |
|
|
|
439 |
Cell[BoxData[
|
|
|
440 |
RowBox[{"Solve", "[",
|
|
|
441 |
RowBox[{
|
|
|
442 |
RowBox[{
|
|
|
443 |
RowBox[{
|
|
|
444 |
SuperscriptBox["x", "2"], "+",
|
|
|
445 |
SuperscriptBox["y", "2"]}], "\[Equal]",
|
|
|
446 |
SuperscriptBox["a", "2"]}], ",", "a"}], "]"}]], "Input",
|
|
|
447 |
CellChangeTimes->{{3.480263751875348*^9, 3.480263763613769*^9}}],
|
|
|
448 |
|
|
|
449 |
Cell[BoxData[
|
|
|
450 |
RowBox[{"{",
|
|
|
451 |
RowBox[{
|
|
|
452 |
RowBox[{"{",
|
|
|
453 |
RowBox[{"a", "\[Rule]",
|
|
|
454 |
RowBox[{"-",
|
|
|
455 |
SqrtBox[
|
|
|
456 |
RowBox[{
|
|
|
457 |
SuperscriptBox["x", "2"], "+",
|
|
|
458 |
SuperscriptBox["y", "2"]}]]}]}], "}"}], ",",
|
|
|
459 |
RowBox[{"{",
|
|
|
460 |
RowBox[{"a", "\[Rule]",
|
|
|
461 |
SqrtBox[
|
|
|
462 |
RowBox[{
|
|
|
463 |
SuperscriptBox["x", "2"], "+",
|
|
|
464 |
SuperscriptBox["y", "2"]}]]}], "}"}]}], "}"}]], "Output",
|
|
|
465 |
CellChangeTimes->{3.480263765039091*^9}]
|
| 642 |
kaklik |
466 |
}, Open ]]
|
|
|
467 |
},
|
| 643 |
kaklik |
468 |
WindowSize->{1434, 824},
|
|
|
469 |
WindowMargins->{{0, Automatic}, {Automatic, 25}},
|
| 642 |
kaklik |
470 |
FrontEndVersion->"7.0 for Linux x86 (64-bit) (February 25, 2009)",
|
|
|
471 |
StyleDefinitions->"Default.nb"
|
|
|
472 |
]
|
|
|
473 |
(* End of Notebook Content *)
|
|
|
474 |
|
|
|
475 |
(* Internal cache information *)
|
|
|
476 |
(*CellTagsOutline
|
|
|
477 |
CellTagsIndex->{}
|
|
|
478 |
*)
|
|
|
479 |
(*CellTagsIndex
|
|
|
480 |
CellTagsIndex->{}
|
|
|
481 |
*)
|
|
|
482 |
(*NotebookFileOutline
|
|
|
483 |
Notebook[{
|
|
|
484 |
Cell[CellGroupData[{
|
| 643 |
kaklik |
485 |
Cell[567, 22, 648, 20, 32, "Input"],
|
|
|
486 |
Cell[1218, 44, 692, 23, 33, "Output"]
|
| 642 |
kaklik |
487 |
}, Open ]],
|
|
|
488 |
Cell[CellGroupData[{
|
| 643 |
kaklik |
489 |
Cell[1947, 72, 749, 24, 32, "Input"],
|
|
|
490 |
Cell[2699, 98, 579, 19, 33, "Output"]
|
| 642 |
kaklik |
491 |
}, Open ]],
|
|
|
492 |
Cell[CellGroupData[{
|
| 643 |
kaklik |
493 |
Cell[3315, 122, 694, 21, 32, "Input"],
|
|
|
494 |
Cell[4012, 145, 1369, 42, 54, "Output"]
|
| 642 |
kaklik |
495 |
}, Open ]],
|
|
|
496 |
Cell[CellGroupData[{
|
| 643 |
kaklik |
497 |
Cell[5418, 192, 547, 18, 32, "Input"],
|
|
|
498 |
Cell[5968, 212, 239, 7, 33, "Output"]
|
| 642 |
kaklik |
499 |
}, Open ]],
|
|
|
500 |
Cell[CellGroupData[{
|
| 643 |
kaklik |
501 |
Cell[6244, 224, 303, 8, 32, "Input"],
|
|
|
502 |
Cell[6550, 234, 273, 9, 33, "Output"]
|
| 642 |
kaklik |
503 |
}, Open ]],
|
|
|
504 |
Cell[CellGroupData[{
|
| 643 |
kaklik |
505 |
Cell[6860, 248, 366, 11, 32, "Input"],
|
|
|
506 |
Cell[7229, 261, 316, 10, 50, "Output"]
|
| 642 |
kaklik |
507 |
}, Open ]],
|
| 643 |
kaklik |
508 |
Cell[7560, 274, 1175, 32, 66, "Input"],
|
| 642 |
kaklik |
509 |
Cell[CellGroupData[{
|
| 643 |
kaklik |
510 |
Cell[8760, 310, 599, 19, 55, "Input"],
|
|
|
511 |
Cell[9362, 331, 299, 8, 33, "Output"]
|
| 642 |
kaklik |
512 |
}, Open ]],
|
|
|
513 |
Cell[CellGroupData[{
|
| 643 |
kaklik |
514 |
Cell[9698, 344, 340, 9, 32, "Input"],
|
|
|
515 |
Cell[10041, 355, 289, 9, 33, "Output"]
|
|
|
516 |
}, Open ]],
|
|
|
517 |
Cell[CellGroupData[{
|
|
|
518 |
Cell[10367, 369, 382, 11, 32, "Input"],
|
|
|
519 |
Cell[10752, 382, 626, 20, 46, "Output"]
|
|
|
520 |
}, Open ]],
|
|
|
521 |
Cell[CellGroupData[{
|
|
|
522 |
Cell[11415, 407, 549, 18, 32, "Input"],
|
|
|
523 |
Cell[11967, 427, 195, 6, 33, "Output"]
|
|
|
524 |
}, Open ]],
|
|
|
525 |
Cell[CellGroupData[{
|
|
|
526 |
Cell[12199, 438, 283, 8, 32, "Input"],
|
|
|
527 |
Cell[12485, 448, 450, 16, 46, "Output"]
|
| 642 |
kaklik |
528 |
}, Open ]]
|
|
|
529 |
}
|
|
|
530 |
]
|
|
|
531 |
*)
|
|
|
532 |
|
|
|
533 |
(* End of internal cache information *)
|