Subversion Repositories svnkaklik

Rev

Rev 642 | Go to most recent revision | Show entire file | Regard 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", "[",
74 
 RowBox[{"Simplify", "[",
146 
  RowBox[{
 - 
 
147 
   RowBox[{"{",
- 
 
148 
    RowBox[{
 75 
  RowBox[{
149 
     RowBox[{
 76 
   RowBox[{
150 
      RowBox[{"-",
77 
    RowBox[{"-",
151 
       SuperscriptBox["b", "4"]}], "+",
78 
     SuperscriptBox["b", "4"]}], "+",
152 
      RowBox[{"2", " ",
79 
    RowBox[{"2", " ",
Line 164... Line 91...
164 
        RowBox[{
 91 
      RowBox[{
165 
         RowBox[{
 92 
       RowBox[{
166 
          RowBox[{"-", "2"}], " ",
93 
        RowBox[{"-", "2"}], " ",
167 
          SuperscriptBox["b", "2"]}], "-",
94 
        SuperscriptBox["b", "2"]}], "-",
168 
         RowBox[{"2", " ",
95 
       RowBox[{"2", " ",
169 
          SuperscriptBox["r", "2"]}]}], ")"}]}]}]}], "}"}], ",", "y"}], "]"}]],\
 96 
        SuperscriptBox["r", "2"]}]}], ")"}]}]}]}], "]"}]], "Input",
170 
 "Input",
 - 
 
171 
 CellChangeTimes->{{3.4802578175085773`*^9, 3.4802578662078457`*^9}, {
 97 
 CellChangeTimes->{{3.480258949696538*^9, 3.4802589666213627`*^9}}],
172 
  3.480257934799398*^9, 3.4802579576905527`*^9}}],
 - 
 
173 
 
 98 
 
174 
Cell[BoxData[
 99 
Cell[BoxData[
175 
 RowBox[{"{",
- 
 
176 
  RowBox[{
 100 
 RowBox[{
177 
   RowBox[{"{",
- 
 
178 
    RowBox[{"y", "\[Rule]",
- 
 
179 
     RowBox[{"-",
- 
 
180 
      FractionBox[
 - 
 
181 
       RowBox[{"\[ImaginaryI]", " ",
- 
 
182 
        SqrtBox[
 - 
 
183 
         RowBox[{
 101 
  RowBox[{
184 
          SuperscriptBox["a", "4"], "+",
102 
   SuperscriptBox["a", "4"], "+",
185 
          SuperscriptBox["b", "4"], "-",
103 
   SuperscriptBox["b", "4"], "+",
- 
 
 104 
   SuperscriptBox["r", "4"], "+",
- 
 
 105 
   RowBox[{"4", " ",
- 
 
 106 
    SuperscriptBox["r", "2"], " ",
- 
 
 107 
    SuperscriptBox["y", "2"]}]}], "\[Equal]",
- 
 
 108 
  RowBox[{
186 
          RowBox[{"2", " ",
109 
   RowBox[{"2", " ",
187 
           SuperscriptBox["b", "2"], " ",
110 
    SuperscriptBox["b", "2"], " ",
188 
           SuperscriptBox["r", "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",
- 
 
 118 
 CellChangeTimes->{3.480258967385964*^9}]
- 
 
 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"], "+",
189 
          SuperscriptBox["r", "4"], "+",
130 
     SuperscriptBox["r", "4"], "+",
- 
 
 131 
     RowBox[{"4", " ",
- 
 
 132 
      SuperscriptBox["r", "2"], " ",
- 
 
 133 
      SuperscriptBox["y", "2"]}]}], "\[Equal]",
190 
          RowBox[{
 134 
    RowBox[{
- 
 
 135 
     RowBox[{"2", " ",
- 
 
 136 
      SuperscriptBox["b", "2"], " ",
- 
 
 137 
      SuperscriptBox["r", "2"]}], "+",
- 
 
 138 
     RowBox[{"2", " ",
191 
           SuperscriptBox["a", "2"], " ",
139 
      SuperscriptBox["a", "2"], " ",
192 
           RowBox[{"(",
140 
      RowBox[{"(",
193 
            RowBox[{
 141 
       RowBox[{
- 
 
 142 
        SuperscriptBox["b", "2"], "+",
- 
 
 143 
        SuperscriptBox["r", "2"]}], ")"}]}]}]}], ",", "y"}], "]"}]], "Input",
- 
 
 144 
 CellChangeTimes->{{3.4802589709519663`*^9, 3.480258994751276*^9}}],
- 
 
 145 
 
- 
 
 146 
Cell[BoxData[
- 
 
 147 
 RowBox[{"{",
194 
             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", " ",
195 
              RowBox[{"-", "2"}], " ",
158 
          SuperscriptBox["a", "2"], " ",
196 
              SuperscriptBox["b", "2"]}], "-",
159 
          SuperscriptBox["b", "2"]}], "-",
- 
 
 160 
         SuperscriptBox["b", "4"], "+",
197 
             RowBox[{"2", " ",
161 
         RowBox[{"2", " ",
- 
 
 162 
          SuperscriptBox["a", "2"], " ",
198 
              SuperscriptBox["r", "2"]}]}], ")"}]}]}]]}],
163 
          SuperscriptBox["r", "2"]}], "+",
- 
 
 164 
         RowBox[{"2", " ",
- 
 
 165 
          SuperscriptBox["b", "2"], " ",
- 
 
 166 
          SuperscriptBox["r", "2"]}], "-",
- 
 
 167 
         SuperscriptBox["r", "4"]}]],
199 
       RowBox[{"2", " ", "r"}]]}]}], "}"}], ",",
168 
       RowBox[{"2", " ", "r"}]]}]}], "}"}], ",",
200 
   RowBox[{"{",
169 
   RowBox[{"{",
201 
    RowBox[{"y", "\[Rule]",
170 
    RowBox[{"y", "\[Rule]",
202 
     FractionBox[
 171 
     FractionBox[
203 
      RowBox[{"\[ImaginaryI]", " ",
- 
 
204 
       SqrtBox[
 172 
      SqrtBox[
205 
        RowBox[{
 173 
       RowBox[{
206 
         SuperscriptBox["a", "4"], "+",
174 
        RowBox[{"-",
207 
         SuperscriptBox["b", "4"], "-",
175 
         SuperscriptBox["a", "4"]}], "+",
208 
         RowBox[{"2", " ",
176 
        RowBox[{"2", " ",
209 
          SuperscriptBox["b", "2"], " ",
- 
 
210 
          SuperscriptBox["r", "2"]}], "+",
- 
 
211 
         SuperscriptBox["r", "4"], "+",
- 
 
212 
         RowBox[{
 - 
 
213 
          SuperscriptBox["a", "2"], " ",
177 
         SuperscriptBox["a", "2"], " ",
214 
          RowBox[{"(",
- 
 
215 
           RowBox[{
 - 
 
216 
            RowBox[{
 - 
 
217 
             RowBox[{"-", "2"}], " ",
- 
 
218 
             SuperscriptBox["b", "2"]}], "-",
178 
         SuperscriptBox["b", "2"]}], "-",
- 
 
 179 
        SuperscriptBox["b", "4"], "+",
- 
 
 180 
        RowBox[{"2", " ",
- 
 
 181 
         SuperscriptBox["a", "2"], " ",
- 
 
 182 
         SuperscriptBox["r", "2"]}], "+",
219 
            RowBox[{"2", " ",
183 
        RowBox[{"2", " ",
- 
 
 184 
         SuperscriptBox["b", "2"], " ",
220 
             SuperscriptBox["r", "2"]}]}], ")"}]}]}]]}],
185 
         SuperscriptBox["r", "2"]}], "-",
- 
 
 186 
        SuperscriptBox["r", "4"]}]],
221 
      RowBox[{"2", " ", "r"}]]}], "}"}]}], "}"}]], "Output",
 187 
      RowBox[{"2", " ", "r"}]]}], "}"}]}], "}"}]], "Output",
222 
 CellChangeTimes->{{3.480257840241704*^9, 3.4802578671962*^9}, {
 188 
 CellChangeTimes->{3.480258995585805*^9}]
223 
  3.4802579391864157`*^9, 3.48025795830022*^9}}]
 - 
 
224 
}, Open  ]],
 189 
}, Open  ]],
225 
 
 190 
 
226 
Cell[CellGroupData[{
 191 
Cell[CellGroupData[{
227 
 
 192 
 
228 
Cell[BoxData[
 193 
Cell[BoxData[
Line 241... Line 206...
241 
       SuperscriptBox["y", "2"], "+", " ",
206 
       SuperscriptBox["y", "2"], "+", " ",
242 
       SuperscriptBox[
 207 
       SuperscriptBox[
243 
        RowBox[{"(",
208 
        RowBox[{"(",
244 
         RowBox[{"r", "-", "x"}], ")"}], "2"]}]}]}], "}"}], ",", "y"}],
209 
         RowBox[{"r", "-", "x"}], ")"}], "2"]}]}]}], "}"}], ",", "y"}],
245 
  "]"}]], "Input",
 210 
  "]"}]], "Input",
246 
 CellChangeTimes->{{3.48025799004694*^9, 3.480257990158451*^9}}],
 211 
 CellChangeTimes->{{3.480259014363867*^9, 3.480259014483967*^9}}],
247 
 
 212 
 
248 
Cell[BoxData[
 213 
Cell[BoxData[
249 
 RowBox[{
 214 
 RowBox[{
250 
  RowBox[{
 215 
  RowBox[{
251 
   SuperscriptBox["b", "2"], "-",
216 
   SuperscriptBox["b", "2"], "-",
252 
   SuperscriptBox["r", "2"], "+",
217 
   SuperscriptBox["r", "2"], "+",
253 
   RowBox[{"2", " ", "r", " ", "x"}]}], "\[Equal]",
218 
   RowBox[{"2", " ", "r", " ", "x"}]}], "\[Equal]",
254 
  SuperscriptBox["a", "2"]}]], "Output",
 219 
  SuperscriptBox["a", "2"]}]], "Output",
255 
 CellChangeTimes->{3.480257991665391*^9}]
 220 
 CellChangeTimes->{3.48025901538303*^9}]
256 
}, Open  ]],
 221 
}, Open  ]],
257 
 
 222 
 
258 
Cell[CellGroupData[{
 223 
Cell[CellGroupData[{
259 
 
 224 
 
260 
Cell[BoxData[
 225 
Cell[BoxData[
261 
 RowBox[{"Solve", "[",
226 
 RowBox[{"Simplify", "[",
262 
  RowBox[{
 - 
 
263 
   RowBox[{
 227 
  RowBox[{
264 
    RowBox[{
 228 
   RowBox[{
265 
     SuperscriptBox["b", "2"], "-",
229 
    SuperscriptBox["b", "2"], "-",
266 
     SuperscriptBox["r", "2"], "+",
230 
    SuperscriptBox["r", "2"], "+",
267 
     RowBox[{"2", " ", "r", " ", "x"}]}], "\[Equal]",
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]",
268 
    SuperscriptBox["a", "2"]}], ",", "x"}], "]"}]], "Input",
 259 
    SuperscriptBox["b", "2"]}], ",", "x"}], "]"}]], "Input",
269 
 CellChangeTimes->{{3.480257998664236*^9, 3.480258017542581*^9}}],
 260 
 CellChangeTimes->{{3.480259057756564*^9, 3.480259075038864*^9}}],
270 
 
 261 
 
271 
Cell[BoxData[
 262 
Cell[BoxData[
272 
 RowBox[{"{",
263 
 RowBox[{"{",
273 
  RowBox[{"{",
264 
  RowBox[{"{",
274 
   RowBox[{"x", "\[Rule]",
265 
   RowBox[{"x", "\[Rule]",
Line 276... Line 267...
276 
     RowBox[{
 267 
     RowBox[{
277 
      SuperscriptBox["a", "2"], "-",
268 
      SuperscriptBox["a", "2"], "-",
278 
      SuperscriptBox["b", "2"], "+",
269 
      SuperscriptBox["b", "2"], "+",
279 
      SuperscriptBox["r", "2"]}],
270 
      SuperscriptBox["r", "2"]}],
280 
     RowBox[{"2", " ", "r"}]]}], "}"}], "}"}]], "Output",
 271 
     RowBox[{"2", " ", "r"}]]}], "}"}], "}"}]], "Output",
281 
 CellChangeTimes->{{3.4802580114774437`*^9, 3.480258018154606*^9}}]
 272 
 CellChangeTimes->{3.4802590759762087`*^9}]
282 
}, Open  ]],
 273 
}, Open  ]],
283 
 
 274 
 
284 
Cell[CellGroupData[{
 - 
 
285 
 
 - 
 
286 
Cell[BoxData[
 275 
Cell[BoxData[
287 
 RowBox[{"Simplify", "[",
276 
 RowBox[{"ParametricPlot", "[",
288 
  RowBox[{
 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[
289 
   RowBox[{
 287 
       RowBox[{
290 
    RowBox[{"-",
288 
        RowBox[{"-",
291 
     SuperscriptBox["b", "4"]}], "+",
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"]}], "+",
292 
    RowBox[{"2", " ",
297 
        RowBox[{"2", " ",
293 
     SuperscriptBox["b", "2"], " ",
298 
         SuperscriptBox["b", "2"], " ",
294 
     SuperscriptBox["r", "2"]}], "-",
299 
         SuperscriptBox["0.1", "2"]}], "-",
295 
    SuperscriptBox["r", "4"], "-",
300 
        SuperscriptBox["0.1", "4"]}]], "0.2"]}], "}"}], ",",
296 
    RowBox[{"4", " ",
301 
   RowBox[{"{",
297 
     SuperscriptBox["r", "2"], " ",
302 
    RowBox[{"a", ",", "0", ",", "10"}], "}"}], ",", " ",
- 
 
 303 
   RowBox[{"{",
298 
     SuperscriptBox["y", "2"]}]}], "\[Equal]",
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", "[",
299 
   RowBox[{
 314 
   RowBox[{
300 
    SuperscriptBox["a", "4"], "+",
315 
    RowBox[{"{",
301 
    RowBox[{
 316 
     RowBox[{
- 
 
 317 
      RowBox[{
302 
     SuperscriptBox["a", "2"], " ",
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[
303 
     RowBox[{"(",
327 
         RowBox[{"(",
- 
 
 328 
          RowBox[{"r", "-", "x"}], ")"}], "2"]}]}]}], "}"}], ",", "a"}],
- 
 
 329 
   "]"}]}]], "Input",
- 
 
 330 
 CellChangeTimes->{{3.480263655197631*^9, 3.480263663686249*^9}}],
- 
 
 331 
 
- 
 
 332 
Cell[BoxData[
304 
      RowBox[{
 333 
 RowBox[{
305 
       RowBox[{
 334 
  RowBox[{
306 
        RowBox[{"-", "2"}], " ",
335 
   SuperscriptBox["r", "2"], "-",
- 
 
 336 
   RowBox[{"2", " ", "r", " ", "x"}], "+",
307 
        SuperscriptBox["b", "2"]}], "-",
337 
   SuperscriptBox["x", "2"], "+",
308 
       RowBox[{"2", " ",
338 
   SuperscriptBox["y", "2"]}], "\[Equal]",
309 
        SuperscriptBox["r", "2"]}]}], ")"}]}]}]}], "]"}]], "Input",
 339 
  SuperscriptBox["b", "2"]}]], "Output",
310 
 CellChangeTimes->{{3.4802585314322577`*^9, 3.4802585376049767`*^9}}],
 340 
 CellChangeTimes->{{3.480263658468478*^9, 3.480263664271557*^9}}]
- 
 
 341 
}, Open  ]],
- 
 
 342 
 
- 
 
 343 
Cell[CellGroupData[{
311 
 
 344 
 
312 
Cell[BoxData[
 345 
Cell[BoxData[
- 
 
 346 
 RowBox[{"Simplify", "[",
313 
 RowBox[{
 347 
  RowBox[{
314 
  RowBox[{
 348 
   RowBox[{
315 
   SuperscriptBox["a", "4"], "+",
349 
    SuperscriptBox["r", "2"], "-",
316 
   SuperscriptBox["b", "4"], "+",
350 
    RowBox[{"2", " ", "r", " ", "x"}], "+",
317 
   SuperscriptBox["r", "4"], "+",
351 
    SuperscriptBox["x", "2"], "+",
318 
   RowBox[{"4", " ",
- 
 
319 
    SuperscriptBox["r", "2"], " ",
352 
    SuperscriptBox["y", "2"]}], "\[Equal]",
320 
    SuperscriptBox["y", "2"]}]}], "\[Equal]",
353 
   SuperscriptBox["b", "2"]}], "]"}]], "Input",
- 
 
 354 
 CellChangeTimes->{{3.4802636687522917`*^9, 3.48026368255702*^9}}],
- 
 
 355 
 
- 
 
 356 
Cell[BoxData[
321 
  RowBox[{
 357 
 RowBox[{
322 
   RowBox[{"2", " ",
- 
 
323 
    SuperscriptBox["b", "2"], " ",
- 
 
324 
    SuperscriptBox["r", "2"]}], "+",
- 
 
325 
   RowBox[{"2", " ",
- 
 
326 
    SuperscriptBox["a", "2"], " ",
- 
 
327 
    RowBox[{"(",
- 
 
328 
     RowBox[{
 358 
  RowBox[{
329 
      SuperscriptBox["b", "2"], "+",
359 
   SuperscriptBox["b", "2"], "+",
- 
 
 360 
   RowBox[{"2", " ", "r", " ", "x"}]}], "\[Equal]",
- 
 
 361 
  RowBox[{
- 
 
 362 
   SuperscriptBox["r", "2"], "+",
- 
 
 363 
   SuperscriptBox["x", "2"], "+",
330 
      SuperscriptBox["r", "2"]}], ")"}]}]}]}]], "Output",
 364 
   SuperscriptBox["y", "2"]}]}]], "Output",
331 
 CellChangeTimes->{3.480258538867161*^9}]
 365 
 CellChangeTimes->{3.480263685526928*^9}]
332 
}, Open  ]],
 366 
}, Open  ]],
333 
 
 367 
 
334 
Cell[CellGroupData[{
 368 
Cell[CellGroupData[{
335 
 
 369 
 
336 
Cell[BoxData[
 370 
Cell[BoxData[
337 
 RowBox[{"Solve", "[",
371 
 RowBox[{"Solve", "[",
338 
  RowBox[{
 372 
  RowBox[{
339 
   RowBox[{
 373 
   RowBox[{
340 
    RowBox[{
 374 
    RowBox[{
341 
     SuperscriptBox["a", "4"], "+",
- 
 
342 
     SuperscriptBox["b", "4"], "+",
375 
     SuperscriptBox["b", "2"], "+",
343 
     SuperscriptBox["r", "4"], "+",
- 
 
344 
     RowBox[{"4", " ",
- 
 
345 
      SuperscriptBox["r", "2"], " ",
- 
 
346 
      SuperscriptBox["y", "2"]}]}], "\[Equal]",
376 
     RowBox[{"2", " ", "r", " ", "x"}]}], "\[Equal]",
347 
    RowBox[{
 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]",
348 
     RowBox[{"2", " ",
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[{
349 
      SuperscriptBox["b", "2"], " ",
399 
       SuperscriptBox["r", "2"], "-",
- 
 
 400 
       RowBox[{"2", " ", "r", " ", "x"}], "+",
350 
      SuperscriptBox["r", "2"]}], "+",
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[{
351 
     RowBox[{"2", " ",
411 
   RowBox[{"{",
- 
 
 412 
    RowBox[{
- 
 
 413 
     RowBox[{
352 
      SuperscriptBox["a", "2"], " ",
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[
353 
      RowBox[{"(",
423 
        RowBox[{"(",
- 
 
 424 
         RowBox[{"r", "-", "x"}], ")"}], "2"]}]}]}], "}"}], ",", "b"}],
- 
 
 425 
  "]"}]], "Input",
- 
 
 426 
 CellChangeTimes->{{3.4802637422228947`*^9, 3.480263742630278*^9}}],
- 
 
 427 
 
- 
 
 428 
Cell[BoxData[
354 
       RowBox[{
 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[{
355 
        SuperscriptBox["b", "2"], "+",
444 
     SuperscriptBox["x", "2"], "+",
- 
 
 445 
     SuperscriptBox["y", "2"]}], "\[Equal]",
356 
        SuperscriptBox["r", "2"]}], ")"}]}]}]}], ",", "y"}], "]"}]], "Input",
 446 
    SuperscriptBox["a", "2"]}], ",", "a"}], "]"}]], "Input",
357 
 CellChangeTimes->{{3.48025855657006*^9, 3.4802585750239153`*^9}}],
 447 
 CellChangeTimes->{{3.480263751875348*^9, 3.480263763613769*^9}}],
358 
 
 448 
 
359 
Cell[BoxData[
 449 
Cell[BoxData[
360 
 RowBox[{"{",
450 
 RowBox[{"{",
361 
  RowBox[{
 451 
  RowBox[{
362 
   RowBox[{"{",
452 
   RowBox[{"{",
363 
    RowBox[{"y", "\[Rule]",
453 
    RowBox[{"a", "\[Rule]",
364 
     RowBox[{"-",
454 
     RowBox[{"-",
365 
      FractionBox[
 - 
 
366 
       SqrtBox[
 455 
      SqrtBox[
367 
        RowBox[{
 456 
       RowBox[{
368 
         RowBox[{"-",
- 
 
369 
          SuperscriptBox["a", "4"]}], "+",
- 
 
370 
         RowBox[{"2", " ",
- 
 
371 
          SuperscriptBox["a", "2"], " ",
- 
 
372 
          SuperscriptBox["b", "2"]}], "-",
- 
 
373 
         SuperscriptBox["b", "4"], "+",
457 
        SuperscriptBox["x", "2"], "+",
374 
         RowBox[{"2", " ",
- 
 
375 
          SuperscriptBox["a", "2"], " ",
- 
 
376 
          SuperscriptBox["r", "2"]}], "+",
- 
 
377 
         RowBox[{"2", " ",
- 
 
378 
          SuperscriptBox["b", "2"], " ",
- 
 
379 
          SuperscriptBox["r", "2"]}], "-",
458 
        SuperscriptBox["y", "2"]}]]}]}], "}"}], ",",
380 
         SuperscriptBox["r", "4"]}]],
- 
 
381 
       RowBox[{"2", " ", "r"}]]}]}], "}"}], ",",
- 
 
382 
   RowBox[{"{",
459 
   RowBox[{"{",
383 
    RowBox[{"y", "\[Rule]",
460 
    RowBox[{"a", "\[Rule]",
384 
     FractionBox[
 - 
 
385 
      SqrtBox[
 461 
     SqrtBox[
386 
       RowBox[{
 462 
      RowBox[{
387 
        RowBox[{"-",
- 
 
388 
         SuperscriptBox["a", "4"]}], "+",
- 
 
389 
        RowBox[{"2", " ",
- 
 
390 
         SuperscriptBox["a", "2"], " ",
- 
 
391 
         SuperscriptBox["b", "2"]}], "-",
- 
 
392 
        SuperscriptBox["b", "4"], "+",
463 
       SuperscriptBox["x", "2"], "+",
393 
        RowBox[{"2", " ",
- 
 
394 
         SuperscriptBox["a", "2"], " ",
- 
 
395 
         SuperscriptBox["r", "2"]}], "+",
- 
 
396 
        RowBox[{"2", " ",
- 
 
397 
         SuperscriptBox["b", "2"], " ",
- 
 
398 
         SuperscriptBox["r", "2"]}], "-",
- 
 
399 
        SuperscriptBox["r", "4"]}]],
- 
 
400 
      RowBox[{"2", " ", "r"}]]}], "}"}]}], "}"}]], "Output",
 464 
       SuperscriptBox["y", "2"]}]]}], "}"}]}], "}"}]], "Output",
401 
 CellChangeTimes->{3.480258576154297*^9}]
 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