Subversion Repositories svnkaklik

Rev

Rev 642 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log

Rev 642 Rev 643
Line 8... Line 8...
8 
(*CacheID: 234*)
 8 
(*CacheID: 234*)
9 
(* Internal cache information:
 9 
(* Internal cache information:
10 
NotebookFileLineBreakTest
 10 
NotebookFileLineBreakTest
11 
NotebookFileLineBreakTest
 11 
NotebookFileLineBreakTest
12 
NotebookDataPosition[       145,          7]
 12 
NotebookDataPosition[       145,          7]
13 
NotebookDataLength[     12573,        447]
 13 
NotebookDataLength[     14427,        524]
14 
NotebookOptionsPosition[     11462,        403]
 14 
NotebookOptionsPosition[     12951,        467]
15 
NotebookOutlinePosition[     11800,        418]
 15 
NotebookOutlinePosition[     13288,        482]
16 
CellTagsIndexPosition[     11757,        415]
 16 
CellTagsIndexPosition[     13245,        479]
17 
WindowFrame->Normal*)
 17 
WindowFrame->Normal*)
18 
 
 18 
 
19 
(* Beginning of Notebook Content *)
 19 
(* Beginning of Notebook Content *)
20 
Notebook[{
 20 
Notebook[{
21 
 
 21 
 
22 
Cell[CellGroupData[{
 22 
Cell[CellGroupData[{
23 
Cell[BoxData[
 23 
Cell[BoxData[
24 
 RowBox[{"Solve", "[",
- 
 
25 
  RowBox[{
 - 
 
26 
   RowBox[{"{",
- 
 
27 
    RowBox[{
 - 
 
28 
     SuperscriptBox["a", "2"], "==",
- 
 
29 
     RowBox[{
 - 
 
30 
      SuperscriptBox["y", "2"], "+",
- 
 
31 
      SuperscriptBox["x", "2"]}]}], "}"}], ",", "y"}], "]"}]], "Input",
 - 
 
32 
 CellChangeTimes->{{3.48025536079537*^9, 3.480255409441049*^9},
- 
 
33 
   3.4802557921624203`*^9, {3.480257620378004*^9, 3.4802576479939127`*^9}}],
 - 
 
34 
 
 - 
 
35 
Cell[BoxData[
 - 
 
36 
 RowBox[{"{",
- 
 
37 
  RowBox[{
 - 
 
38 
   RowBox[{"{",
- 
 
39 
    RowBox[{"y", "\[Rule]",
- 
 
40 
     RowBox[{"-",
- 
 
41 
      SqrtBox[
 - 
 
42 
       RowBox[{
 - 
 
43 
        SuperscriptBox["a", "2"], "-",
- 
 
44 
        SuperscriptBox["x", "2"]}]]}]}], "}"}], ",",
- 
 
45 
   RowBox[{"{",
- 
 
46 
    RowBox[{"y", "\[Rule]",
- 
 
47 
     SqrtBox[
 - 
 
48 
      RowBox[{
 - 
 
49 
       SuperscriptBox["a", "2"], "-",
- 
 
50 
       SuperscriptBox["x", "2"]}]]}], "}"}]}], "}"}]], "Output",
 - 
 
51 
 CellChangeTimes->{{3.480257640519597*^9, 3.4802576487436953`*^9}}]
 - 
 
52 
}, Open  ]],
 - 
 
53 
 
 - 
 
54 
Cell[CellGroupData[{
 - 
 
55 
 
 - 
 
56 
Cell[BoxData[
 - 
 
57 
 RowBox[{"Solve", "[",
- 
 
58 
  RowBox[{
 - 
 
59 
   RowBox[{"{",
- 
 
60 
    RowBox[{
 - 
 
61 
     SuperscriptBox["b", "2"], "==", " ",
- 
 
62 
     RowBox[{
 - 
 
63 
      SuperscriptBox["y", "2"], "+", " ",
- 
 
64 
      SuperscriptBox[
 - 
 
65 
       RowBox[{"(",
- 
 
66 
        RowBox[{"r", "-", "x"}], ")"}], "2"]}]}], "}"}], ",", " ", "x"}],
- 
 
67 
  "]"}]], "Input",
 - 
 
68 
 CellChangeTimes->{{3.480255415164916*^9, 3.480255478591317*^9},
- 
 
69 
   3.480255522060379*^9, {3.4802557847342453`*^9, 3.480255787857032*^9}, {
 - 
 
70 
   3.480257705501953*^9, 3.480257729524658*^9}}],
 - 
 
71 
 
 - 
 
72 
Cell[BoxData[
 - 
 
73 
 RowBox[{"{",
- 
 
74 
  RowBox[{
 - 
 
75 
   RowBox[{"{",
- 
 
76 
    RowBox[{"x", "\[Rule]",
- 
 
77 
     RowBox[{"r", "-",
- 
 
78 
      SqrtBox[
 - 
 
79 
       RowBox[{
 - 
 
80 
        SuperscriptBox["b", "2"], "-",
- 
 
81 
        SuperscriptBox["y", "2"]}]]}]}], "}"}], ",",
- 
 
82 
   RowBox[{"{",
- 
 
83 
    RowBox[{"x", "\[Rule]",
- 
 
84 
     RowBox[{"r", "+",
- 
 
85 
      SqrtBox[
 - 
 
86 
       RowBox[{
 - 
 
87 
        SuperscriptBox["b", "2"], "-",
- 
 
88 
        SuperscriptBox["y", "2"]}]]}]}], "}"}]}], "}"}]], "Output",
 - 
 
89 
 CellChangeTimes->{{3.480257724291691*^9, 3.4802577301500607`*^9}}]
 - 
 
90 
}, Open  ]],
 - 
 
91 
 
 - 
 
92 
Cell[CellGroupData[{
 - 
 
93 
 
 - 
 
94 
Cell[BoxData[
 - 
 
95 
 RowBox[{"Eliminate", "[",
24 
 RowBox[{"Eliminate", "[",
96 
  RowBox[{
 25 
  RowBox[{
97 
   RowBox[{"{",
26 
   RowBox[{"{",
98 
    RowBox[{
 27 
    RowBox[{
99 
     RowBox[{
 28 
     RowBox[{
Line 140... Line 69...
140 
}, Open  ]],
 69 
}, Open  ]],
141 
 
 70 
 
142 
Cell[CellGroupData[{
 71 
Cell[CellGroupData[{
143 
 
 72 
 
144 
Cell[BoxData[
 73 
Cell[BoxData[
145 
 RowBox[{"Solve", "[",
- 
 
146 
  RowBox[{
 - 
 
147 
   RowBox[{"{",
- 
 
148 
    RowBox[{
 - 
 
149 
     RowBox[{
 - 
 
150 
      RowBox[{"-",
- 
 
151 
       SuperscriptBox["b", "4"]}], "+",
- 
 
152 
      RowBox[{"2", " ",
- 
 
153 
       SuperscriptBox["b", "2"], " ",
- 
 
154 
       SuperscriptBox["r", "2"]}], "-",
- 
 
155 
      SuperscriptBox["r", "4"], "-",
- 
 
156 
      RowBox[{"4", " ",
- 
 
157 
       SuperscriptBox["r", "2"], " ",
- 
 
158 
       SuperscriptBox["y", "2"]}]}], "\[Equal]",
- 
 
159 
     RowBox[{
 - 
 
160 
      SuperscriptBox["a", "4"], "+",
- 
 
161 
      RowBox[{
 - 
 
162 
       SuperscriptBox["a", "2"], " ",
- 
 
163 
       RowBox[{"(",
- 
 
164 
        RowBox[{
 - 
 
165 
         RowBox[{
 - 
 
166 
          RowBox[{"-", "2"}], " ",
- 
 
167 
          SuperscriptBox["b", "2"]}], "-",
- 
 
168 
         RowBox[{"2", " ",
- 
 
169 
          SuperscriptBox["r", "2"]}]}], ")"}]}]}]}], "}"}], ",", "y"}], "]"}]],\
 - 
 
170 
 "Input",
 - 
 
171 
 CellChangeTimes->{{3.4802578175085773`*^9, 3.4802578662078457`*^9}, {
 - 
 
172 
  3.480257934799398*^9, 3.4802579576905527`*^9}}],
 - 
 
173 
 
 - 
 
174 
Cell[BoxData[
 - 
 
175 
 RowBox[{"{",
- 
 
176 
  RowBox[{
 - 
 
177 
   RowBox[{"{",
- 
 
178 
    RowBox[{"y", "\[Rule]",
- 
 
179 
     RowBox[{"-",
- 
 
180 
      FractionBox[
 - 
 
181 
       RowBox[{"\[ImaginaryI]", " ",
- 
 
182 
        SqrtBox[
 - 
 
183 
         RowBox[{
 - 
 
184 
          SuperscriptBox["a", "4"], "+",
- 
 
185 
          SuperscriptBox["b", "4"], "-",
- 
 
186 
          RowBox[{"2", " ",
- 
 
187 
           SuperscriptBox["b", "2"], " ",
- 
 
188 
           SuperscriptBox["r", "2"]}], "+",
- 
 
189 
          SuperscriptBox["r", "4"], "+",
- 
 
190 
          RowBox[{
 - 
 
191 
           SuperscriptBox["a", "2"], " ",
- 
 
192 
           RowBox[{"(",
- 
 
193 
            RowBox[{
 - 
 
194 
             RowBox[{
 - 
 
195 
              RowBox[{"-", "2"}], " ",
- 
 
196 
              SuperscriptBox["b", "2"]}], "-",
- 
 
197 
             RowBox[{"2", " ",
- 
 
198 
              SuperscriptBox["r", "2"]}]}], ")"}]}]}]]}],
- 
 
199 
       RowBox[{"2", " ", "r"}]]}]}], "}"}], ",",
- 
 
200 
   RowBox[{"{",
- 
 
201 
    RowBox[{"y", "\[Rule]",
- 
 
202 
     FractionBox[
 - 
 
203 
      RowBox[{"\[ImaginaryI]", " ",
- 
 
204 
       SqrtBox[
 - 
 
205 
        RowBox[{
 - 
 
206 
         SuperscriptBox["a", "4"], "+",
- 
 
207 
         SuperscriptBox["b", "4"], "-",
- 
 
208 
         RowBox[{"2", " ",
- 
 
209 
          SuperscriptBox["b", "2"], " ",
- 
 
210 
          SuperscriptBox["r", "2"]}], "+",
- 
 
211 
         SuperscriptBox["r", "4"], "+",
- 
 
212 
         RowBox[{
 - 
 
213 
          SuperscriptBox["a", "2"], " ",
- 
 
214 
          RowBox[{"(",
- 
 
215 
           RowBox[{
 - 
 
216 
            RowBox[{
 - 
 
217 
             RowBox[{"-", "2"}], " ",
- 
 
218 
             SuperscriptBox["b", "2"]}], "-",
- 
 
219 
            RowBox[{"2", " ",
- 
 
220 
             SuperscriptBox["r", "2"]}]}], ")"}]}]}]]}],
- 
 
221 
      RowBox[{"2", " ", "r"}]]}], "}"}]}], "}"}]], "Output",
 - 
 
222 
 CellChangeTimes->{{3.480257840241704*^9, 3.4802578671962*^9}, {
 - 
 
223 
  3.4802579391864157`*^9, 3.48025795830022*^9}}]
 - 
 
224 
}, Open  ]],
 - 
 
225 
 
 - 
 
226 
Cell[CellGroupData[{
 - 
 
227 
 
 - 
 
228 
Cell[BoxData[
 - 
 
229 
 RowBox[{"Eliminate", "[",
- 
 
230 
  RowBox[{
 - 
 
231 
   RowBox[{"{",
- 
 
232 
    RowBox[{
 - 
 
233 
     RowBox[{
 - 
 
234 
      SuperscriptBox["a", "2"], "==",
- 
 
235 
      RowBox[{
 - 
 
236 
       SuperscriptBox["y", "2"], "+",
- 
 
237 
       SuperscriptBox["x", "2"]}]}], ",",
- 
 
238 
     RowBox[{
 - 
 
239 
      SuperscriptBox["b", "2"], "==",
- 
 
240 
      RowBox[{
 - 
 
241 
       SuperscriptBox["y", "2"], "+", " ",
- 
 
242 
       SuperscriptBox[
 - 
 
243 
        RowBox[{"(",
- 
 
244 
         RowBox[{"r", "-", "x"}], ")"}], "2"]}]}]}], "}"}], ",", "y"}],
- 
 
245 
  "]"}]], "Input",
 - 
 
246 
 CellChangeTimes->{{3.48025799004694*^9, 3.480257990158451*^9}}],
 - 
 
247 
 
 - 
 
248 
Cell[BoxData[
 - 
 
249 
 RowBox[{
 - 
 
250 
  RowBox[{
 - 
 
251 
   SuperscriptBox["b", "2"], "-",
- 
 
252 
   SuperscriptBox["r", "2"], "+",
- 
 
253 
   RowBox[{"2", " ", "r", " ", "x"}]}], "\[Equal]",
- 
 
254 
  SuperscriptBox["a", "2"]}]], "Output",
 - 
 
255 
 CellChangeTimes->{3.480257991665391*^9}]
 - 
 
256 
}, Open  ]],
 - 
 
257 
 
 - 
 
258 
Cell[CellGroupData[{
 - 
 
259 
 
 - 
 
260 
Cell[BoxData[
 - 
 
261 
 RowBox[{"Solve", "[",
- 
 
262 
  RowBox[{
 - 
 
263 
   RowBox[{
 - 
 
264 
    RowBox[{
 - 
 
265 
     SuperscriptBox["b", "2"], "-",
- 
 
266 
     SuperscriptBox["r", "2"], "+",
- 
 
267 
     RowBox[{"2", " ", "r", " ", "x"}]}], "\[Equal]",
- 
 
268 
    SuperscriptBox["a", "2"]}], ",", "x"}], "]"}]], "Input",
 - 
 
269 
 CellChangeTimes->{{3.480257998664236*^9, 3.480258017542581*^9}}],
 - 
 
270 
 
 - 
 
271 
Cell[BoxData[
 - 
 
272 
 RowBox[{"{",
- 
 
273 
  RowBox[{"{",
- 
 
274 
   RowBox[{"x", "\[Rule]",
- 
 
275 
    FractionBox[
 - 
 
276 
     RowBox[{
 - 
 
277 
      SuperscriptBox["a", "2"], "-",
- 
 
278 
      SuperscriptBox["b", "2"], "+",
- 
 
279 
      SuperscriptBox["r", "2"]}],
- 
 
280 
     RowBox[{"2", " ", "r"}]]}], "}"}], "}"}]], "Output",
 - 
 
281 
 CellChangeTimes->{{3.4802580114774437`*^9, 3.480258018154606*^9}}]
 - 
 
282 
}, Open  ]],
 - 
 
283 
 
 - 
 
284 
Cell[CellGroupData[{
 - 
 
285 
 
 - 
 
286 
Cell[BoxData[
 - 
 
287 
 RowBox[{"Simplify", "[",
74 
 RowBox[{"Simplify", "[",
288 
  RowBox[{
 75 
  RowBox[{
289 
   RowBox[{
 76 
   RowBox[{
290 
    RowBox[{"-",
77 
    RowBox[{"-",
291 
     SuperscriptBox["b", "4"]}], "+",
78 
     SuperscriptBox["b", "4"]}], "+",
Line 305... Line 92...
305 
       RowBox[{
 92 
       RowBox[{
306 
        RowBox[{"-", "2"}], " ",
93 
        RowBox[{"-", "2"}], " ",
307 
        SuperscriptBox["b", "2"]}], "-",
94 
        SuperscriptBox["b", "2"]}], "-",
308 
       RowBox[{"2", " ",
95 
       RowBox[{"2", " ",
309 
        SuperscriptBox["r", "2"]}]}], ")"}]}]}]}], "]"}]], "Input",
 96 
        SuperscriptBox["r", "2"]}]}], ")"}]}]}]}], "]"}]], "Input",
310 
 CellChangeTimes->{{3.4802585314322577`*^9, 3.4802585376049767`*^9}}],
 97 
 CellChangeTimes->{{3.480258949696538*^9, 3.4802589666213627`*^9}}],
311 
 
 98 
 
312 
Cell[BoxData[
 99 
Cell[BoxData[
313 
 RowBox[{
 100 
 RowBox[{
314 
  RowBox[{
 101 
  RowBox[{
315 
   SuperscriptBox["a", "4"], "+",
102 
   SuperscriptBox["a", "4"], "+",
Line 326... Line 113...
326 
    SuperscriptBox["a", "2"], " ",
113 
    SuperscriptBox["a", "2"], " ",
327 
    RowBox[{"(",
114 
    RowBox[{"(",
328 
     RowBox[{
 115 
     RowBox[{
329 
      SuperscriptBox["b", "2"], "+",
116 
      SuperscriptBox["b", "2"], "+",
330 
      SuperscriptBox["r", "2"]}], ")"}]}]}]}]], "Output",
 117 
      SuperscriptBox["r", "2"]}], ")"}]}]}]}]], "Output",
331 
 CellChangeTimes->{3.480258538867161*^9}]
 118 
 CellChangeTimes->{3.480258967385964*^9}]
332 
}, Open  ]],
 119 
}, Open  ]],
333 
 
 120 
 
334 
Cell[CellGroupData[{
 121 
Cell[CellGroupData[{
335 
 
 122 
 
336 
Cell[BoxData[
 123 
Cell[BoxData[
Line 352... Line 139...
352 
      SuperscriptBox["a", "2"], " ",
139 
      SuperscriptBox["a", "2"], " ",
353 
      RowBox[{"(",
140 
      RowBox[{"(",
354 
       RowBox[{
 141 
       RowBox[{
355 
        SuperscriptBox["b", "2"], "+",
142 
        SuperscriptBox["b", "2"], "+",
356 
        SuperscriptBox["r", "2"]}], ")"}]}]}]}], ",", "y"}], "]"}]], "Input",
 143 
        SuperscriptBox["r", "2"]}], ")"}]}]}]}], ",", "y"}], "]"}]], "Input",
357 
 CellChangeTimes->{{3.48025855657006*^9, 3.4802585750239153`*^9}}],
 144 
 CellChangeTimes->{{3.4802589709519663`*^9, 3.480258994751276*^9}}],
358 
 
 145 
 
359 
Cell[BoxData[
 146 
Cell[BoxData[
360 
 RowBox[{"{",
147 
 RowBox[{"{",
361 
  RowBox[{
 148 
  RowBox[{
362 
   RowBox[{"{",
149 
   RowBox[{"{",
Line 396... Line 183...
396 
        RowBox[{"2", " ",
183 
        RowBox[{"2", " ",
397 
         SuperscriptBox["b", "2"], " ",
184 
         SuperscriptBox["b", "2"], " ",
398 
         SuperscriptBox["r", "2"]}], "-",
185 
         SuperscriptBox["r", "2"]}], "-",
399 
        SuperscriptBox["r", "4"]}]],
186 
        SuperscriptBox["r", "4"]}]],
400 
      RowBox[{"2", " ", "r"}]]}], "}"}]}], "}"}]], "Output",
 187 
      RowBox[{"2", " ", "r"}]]}], "}"}]}], "}"}]], "Output",
- 
 
 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",
401 
 CellChangeTimes->{3.480258576154297*^9}]
 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}]
402 
}, Open  ]]
 466 
}, Open  ]]
403 
},
 467 
},
404 
WindowSize->{640, 750},
 468 
WindowSize->{1434, 824},
405 
WindowMargins->{{144, Automatic}, {Automatic, 25}},
 469 
WindowMargins->{{0, Automatic}, {Automatic, 25}},
406 
FrontEndVersion->"7.0 for Linux x86 (64-bit) (February 25, 2009)",
 470 
FrontEndVersion->"7.0 for Linux x86 (64-bit) (February 25, 2009)",
407 
StyleDefinitions->"Default.nb"
 471 
StyleDefinitions->"Default.nb"
408 
]
 472 
]
409 
(* End of Notebook Content *)
 473 
(* End of Notebook Content *)
410 
 
 474 
 
Line 416... Line 480...
416 
CellTagsIndex->{}
 480 
CellTagsIndex->{}
417 
*)
 481 
*)
418 
(*NotebookFileOutline
 482 
(*NotebookFileOutline
419 
Notebook[{
 483 
Notebook[{
420 
Cell[CellGroupData[{
 484 
Cell[CellGroupData[{
421 
Cell[567, 22, 381, 10, 32, "Input"],
 485 
Cell[567, 22, 648, 20, 32, "Input"],
- 
 
 486 
Cell[1218, 44, 692, 23, 33, "Output"]
- 
 
 487 
}, Open  ]],
- 
 
 488 
Cell[CellGroupData[{
- 
 
 489 
Cell[1947, 72, 749, 24, 32, "Input"],
422 
Cell[951, 34, 476, 16, 46, "Output"]
 490 
Cell[2699, 98, 579, 19, 33, "Output"]
- 
 
 491 
}, Open  ]],
- 
 
 492 
Cell[CellGroupData[{
- 
 
 493 
Cell[3315, 122, 694, 21, 32, "Input"],
- 
 
 494 
Cell[4012, 145, 1369, 42, 54, "Output"]
- 
 
 495 
}, Open  ]],
- 
 
 496 
Cell[CellGroupData[{
- 
 
 497 
Cell[5418, 192, 547, 18, 32, "Input"],
- 
 
 498 
Cell[5968, 212, 239, 7, 33, "Output"]
423 
}, Open  ]],
 499 
}, Open  ]],
424 
Cell[CellGroupData[{
 500 
Cell[CellGroupData[{
425 
Cell[1464, 55, 505, 14, 32, "Input"],
 501 
Cell[6244, 224, 303, 8, 32, "Input"],
426 
Cell[1972, 71, 511, 17, 46, "Output"]
 502 
Cell[6550, 234, 273, 9, 33, "Output"]
427 
}, Open  ]],
 503 
}, Open  ]],
428 
Cell[CellGroupData[{
 504 
Cell[CellGroupData[{
429 
Cell[2520, 93, 648, 20, 32, "Input"],
 505 
Cell[6860, 248, 366, 11, 32, "Input"],
430 
Cell[3171, 115, 692, 23, 33, "Output"]
 506 
Cell[7229, 261, 316, 10, 50, "Output"]
431 
}, Open  ]],
 507 
}, Open  ]],
- 
 
 508 
Cell[7560, 274, 1175, 32, 66, "Input"],
432 
Cell[CellGroupData[{
 509 
Cell[CellGroupData[{
433 
Cell[3900, 143, 892, 28, 32, InheritFromParent],
 510 
Cell[8760, 310, 599, 19, 55, "Input"],
434 
Cell[4795, 173, 1644, 49, 109, "Output"]
 511 
Cell[9362, 331, 299, 8, 33, "Output"]
435 
}, Open  ]],
 512 
}, Open  ]],
436 
Cell[CellGroupData[{
 513 
Cell[CellGroupData[{
437 
Cell[6476, 227, 546, 18, 32, "Input"],
 514 
Cell[9698, 344, 340, 9, 32, "Input"],
438 
Cell[7025, 247, 240, 7, 33, "Output"]
 515 
Cell[10041, 355, 289, 9, 33, "Output"]
439 
}, Open  ]],
 516 
}, Open  ]],
440 
Cell[CellGroupData[{
 517 
Cell[CellGroupData[{
441 
Cell[7302, 259, 329, 9, 32, "Input"],
 518 
Cell[10367, 369, 382, 11, 32, "Input"],
442 
Cell[7634, 270, 340, 10, 50, "Output"]
 519 
Cell[10752, 382, 626, 20, 46, "Output"]
443 
}, Open  ]],
 520 
}, Open  ]],
444 
Cell[CellGroupData[{
 521 
Cell[CellGroupData[{
445 
Cell[8011, 285, 751, 24, 32, "Input"],
 522 
Cell[11415, 407, 549, 18, 32, "Input"],
446 
Cell[8765, 311, 579, 19, 33, "Output"]
 523 
Cell[11967, 427, 195, 6, 33, "Output"]
447 
}, Open  ]],
 524 
}, Open  ]],
448 
Cell[CellGroupData[{
 525 
Cell[CellGroupData[{
449 
Cell[9381, 335, 693, 21, 32, "Input"],
 526 
Cell[12199, 438, 283, 8, 32, "Input"],
450 
Cell[10077, 358, 1369, 42, 98, "Output"]
 527 
Cell[12485, 448, 450, 16, 46, "Output"]
451 
}, Open  ]]
 528 
}, Open  ]]
452 
}
 529 
}
453 
]
 530 
]
454 
*)
 531 
*)
455 
 
 532