Subversion Repositories svnkaklik

Rev

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

Rev 646 Rev 649
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[     15724,        569]
 13 
NotebookDataLength[     13289,        440]
14 
NotebookOptionsPosition[     14134,        508]
 14 
NotebookOptionsPosition[     12408,        404]
15 
NotebookOutlinePosition[     14471,        523]
 15 
NotebookOutlinePosition[     12745,        419]
16 
CellTagsIndexPosition[     14428,        520]
 16 
CellTagsIndexPosition[     12702,        416]
17 
WindowFrame->Normal*)
 17 
WindowFrame->Normal*)
18 
 
 18 
 
19 
(* Beginning of Notebook Content *)
 19 
(* Beginning of Notebook Content *)
20 
Notebook[{
 20 
Notebook[{
21 
 
 21 
 
Line 24... Line 24...
24 
 RowBox[{"Eliminate", "[",
24 
 RowBox[{"Eliminate", "[",
25 
  RowBox[{
 25 
  RowBox[{
26 
   RowBox[{"{",
26 
   RowBox[{"{",
27 
    RowBox[{
 27 
    RowBox[{
28 
     RowBox[{
 28 
     RowBox[{
29 
      SuperscriptBox["a", "2"], "==",
29 
      SuperscriptBox["a", "2"], "\[Equal]",
30 
      RowBox[{
 30 
      RowBox[{
31 
       SuperscriptBox["y", "2"], "+",
- 
 
32 
       SuperscriptBox["x", "2"]}]}], ",",
- 
 
33 
     RowBox[{
 - 
 
34 
      SuperscriptBox["b", "2"], "==",
- 
 
35 
      RowBox[{
 - 
 
36 
       SuperscriptBox["y", "2"], "+", " ",
- 
 
37 
       SuperscriptBox[
 31 
       SuperscriptBox[
38 
        RowBox[{"(",
32 
        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",
 - 
 
97 
 CellChangeTimes->{{3.480258949696538*^9, 3.4802589666213627`*^9}}],
 - 
 
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",
 - 
 
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"], "+",
- 
 
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",
 - 
 
144 
 CellChangeTimes->{{3.4802589709519663`*^9, 3.480258994751276*^9}}],
 - 
 
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"}]]}]}], "}"}], ",",
33 
         RowBox[{"x", "-", "xl"}], ")"}], "2"], "+",
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"]}], "+",
34 
       SuperscriptBox["y", "2"]}]}], ",",
183 
        RowBox[{"2", " ",
- 
 
184 
         SuperscriptBox["b", "2"], " ",
- 
 
185 
         SuperscriptBox["r", "2"]}], "-",
- 
 
186 
        SuperscriptBox["r", "4"]}]],
- 
 
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[{
 35 
     RowBox[{
199 
      SuperscriptBox["a", "2"], "==",
36 
      SuperscriptBox["b", "2"], "\[Equal]",
200 
      RowBox[{
 37 
      RowBox[{
201 
       SuperscriptBox["y", "2"], "+",
- 
 
202 
       SuperscriptBox["x", "2"]}]}], ",",
- 
 
203 
     RowBox[{
 - 
 
204 
      SuperscriptBox["b", "2"], "==",
- 
 
205 
      RowBox[{
 - 
 
206 
       SuperscriptBox["y", "2"], "+", " ",
- 
 
207 
       SuperscriptBox[
 38 
       SuperscriptBox[
208 
        RowBox[{"(",
39 
        RowBox[{"(",
209 
         RowBox[{"r", "-", "x"}], ")"}], "2"]}]}]}], "}"}], ",", "y"}],
40 
         RowBox[{"x", "-", "xr"}], ")"}], "2"], "+",
210 
  "]"}]], "Input",
 41 
       SuperscriptBox["y", "2"]}]}]}], "}"}], ",", "y"}], "]"}]], "Input",
211 
 CellChangeTimes->{{3.480259014363867*^9, 3.480259014483967*^9}}],
 42 
 CellChangeTimes->{{3.4803530692940283`*^9, 3.4803530717437077`*^9}, {
- 
 
 43 
  3.480353102304743*^9, 3.480353124780987*^9}, {3.480353158763401*^9,
- 
 
 44 
  3.480353266751618*^9}, {3.480353358354301*^9, 3.480353358968121*^9}}],
212 
 
 45 
 
213 
Cell[BoxData[
 46 
Cell[BoxData[
214 
 RowBox[{
 47 
 RowBox[{
215 
  RowBox[{
 48 
  RowBox[{
216 
   SuperscriptBox["b", "2"], "-",
49 
   SuperscriptBox["b", "2"], "-",
- 
 
 50 
   RowBox[{"2", " ", "x", " ", "xl"}], "+",
217 
   SuperscriptBox["r", "2"], "+",
51 
   SuperscriptBox["xl", "2"], "+",
218 
   RowBox[{"2", " ", "r", " ", "x"}]}], "\[Equal]",
52 
   RowBox[{"2", " ", "x", " ", "xr"}], "-",
- 
 
 53 
   SuperscriptBox["xr", "2"]}], "\[Equal]",
219 
  SuperscriptBox["a", "2"]}]], "Output",
 54 
  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}}],
 55 
 CellChangeTimes->{3.480353267873107*^9, 3.480353360763659*^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  ]],
 56 
}, Open  ]],
246 
 
 57 
 
247 
Cell[CellGroupData[{
 58 
Cell[CellGroupData[{
248 
 
 59 
 
249 
Cell[BoxData[
 60 
Cell[BoxData[
250 
 RowBox[{"Solve", "[",
61 
 RowBox[{"Solve", "[",
251 
  RowBox[{
 62 
  RowBox[{
252 
   RowBox[{
 63 
   RowBox[{
253 
    RowBox[{
 64 
    RowBox[{
254 
     SuperscriptBox["a", "2"], "+",
65 
     SuperscriptBox["b", "2"], "-",
255 
     RowBox[{"r", " ",
66 
     RowBox[{"2", " ", "x", " ", "xl"}], "+",
256 
      RowBox[{"(",
67 
     SuperscriptBox["xl", "2"], "+",
257 
       RowBox[{"r", "-",
68 
     RowBox[{"2", " ", "x", " ", "xr"}], "-",
258 
        RowBox[{"2", " ", "x"}]}], ")"}]}]}], "\[Equal]",
69 
     SuperscriptBox["xr", "2"]}], "\[Equal]",
259 
    SuperscriptBox["b", "2"]}], ",", "x"}], "]"}]], "Input",
 70 
    SuperscriptBox["a", "2"]}], ",", "x"}], "]"}]], "Input",
260 
 CellChangeTimes->{{3.480259057756564*^9, 3.480259075038864*^9}}],
 71 
 CellChangeTimes->{{3.480353384264968*^9, 3.4803534038301287`*^9}}],
261 
 
 72 
 
262 
Cell[BoxData[
 73 
Cell[BoxData[
263 
 RowBox[{"{",
74 
 RowBox[{"{",
264 
  RowBox[{"{",
75 
  RowBox[{"{",
265 
   RowBox[{"x", "\[Rule]",
76 
   RowBox[{"x", "\[Rule]",
266 
    FractionBox[
 77 
    FractionBox[
267 
     RowBox[{
 78 
     RowBox[{
- 
 
 79 
      RowBox[{"-",
268 
      SuperscriptBox["a", "2"], "-",
80 
       SuperscriptBox["a", "2"]}], "+",
269 
      SuperscriptBox["b", "2"], "+",
81 
      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"], "-",
82 
      SuperscriptBox["xl", "2"], "-",
283 
       SuperscriptBox["b", "2"], "+",
83 
      SuperscriptBox["xr", "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", " ",
84 
     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[{"(",
85 
      RowBox[{"(",
328 
          RowBox[{"r", "-", "x"}], ")"}], "2"]}]}]}], "}"}], ",", "a"}],
86 
       RowBox[{"xl", "-", "xr"}], ")"}]}]]}], "}"}], "}"}]], "Output",
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}}]
 87 
 CellChangeTimes->{3.480353405169127*^9}]
341 
}, Open  ]],
 88 
}, Open  ]],
342 
 
 89 
 
343 
Cell[CellGroupData[{
 90 
Cell[CellGroupData[{
344 
 
 91 
 
345 
Cell[BoxData[
 92 
Cell[BoxData[
346 
 RowBox[{"Simplify", "[",
93 
 RowBox[{"FullSimplify", "[",
347 
  RowBox[{
 94 
  FractionBox[
348 
   RowBox[{
 95 
   RowBox[{
- 
 
 96 
    RowBox[{"-",
349 
    SuperscriptBox["r", "2"], "-",
97 
     SuperscriptBox["a", "2"]}], "+",
350 
    RowBox[{"2", " ", "r", " ", "x"}], "+",
98 
    SuperscriptBox["b", "2"], "+",
351 
    SuperscriptBox["x", "2"], "+",
99 
    SuperscriptBox["xl", "2"], "-",
352 
    SuperscriptBox["y", "2"]}], "\[Equal]",
100 
    SuperscriptBox["xr", "2"]}],
- 
 
 101 
   RowBox[{"2", " ",
- 
 
 102 
    RowBox[{"(",
353 
   SuperscriptBox["b", "2"]}], "]"}]], "Input",
 103 
     RowBox[{"xl", "-", "xr"}], ")"}]}]], "]"}]], "Input",
354 
 CellChangeTimes->{{3.4802636687522917`*^9, 3.48026368255702*^9}}],
 104 
 CellChangeTimes->{{3.480353414741691*^9, 3.480353459715658*^9}}],
355 
 
 105 
 
356 
Cell[BoxData[
 106 
Cell[BoxData[
357 
 RowBox[{
 107 
 FractionBox[
358 
  RowBox[{
 108 
  RowBox[{
- 
 
 109 
   RowBox[{"-",
- 
 
 110 
    SuperscriptBox["a", "2"]}], "+",
359 
   SuperscriptBox["b", "2"], "+",
111 
   SuperscriptBox["b", "2"], "+",
360 
   RowBox[{"2", " ", "r", " ", "x"}]}], "\[Equal]",
- 
 
361 
  RowBox[{
 - 
 
362 
   SuperscriptBox["r", "2"], "+",
112 
   SuperscriptBox["xl", "2"], "-",
363 
   SuperscriptBox["x", "2"], "+",
113 
   SuperscriptBox["xr", "2"]}],
364 
   SuperscriptBox["y", "2"]}]}]], "Output",
 - 
 
365 
 CellChangeTimes->{3.480263685526928*^9}]
 - 
 
366 
}, Open  ]],
 - 
 
367 
 
 - 
 
368 
Cell[CellGroupData[{
 - 
 
369 
 
 - 
 
370 
Cell[BoxData[
 - 
 
371 
 RowBox[{"Solve", "[",
114 
  RowBox[{"2", " ",
372 
  RowBox[{
 - 
 
373 
   RowBox[{
 115 
   RowBox[{"(",
374 
    RowBox[{
 - 
 
375 
     SuperscriptBox["b", "2"], "+",
- 
 
376 
     RowBox[{"2", " ", "r", " ", "x"}]}], "\[Equal]",
116 
    RowBox[{"xl", "-", "xr"}], ")"}]}]]], "Output",
377 
    RowBox[{
 - 
 
378 
     SuperscriptBox["r", "2"], "+",
- 
 
379 
     SuperscriptBox["x", "2"], "+",
- 
 
380 
     SuperscriptBox["y", "2"]}]}], ",", "b"}], "]"}]], "Input",
 - 
 
381 
 CellChangeTimes->{{3.480263691906734*^9, 3.480263707606902*^9}}],
 117 
 CellChangeTimes->{{3.4803534378225803`*^9, 3.4803534603115587`*^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  ]],
 118 
}, Open  ]],
405 
 
 119 
 
406 
Cell[CellGroupData[{
 120 
Cell[CellGroupData[{
407 
 
 121 
 
408 
Cell[BoxData[
 122 
Cell[BoxData[
409 
 RowBox[{"Eliminate", "[",
123 
 RowBox[{"Eliminate", "[",
410 
  RowBox[{
 124 
  RowBox[{
411 
   RowBox[{"{",
125 
   RowBox[{"{",
412 
    RowBox[{
 126 
    RowBox[{
413 
     RowBox[{
 127 
     RowBox[{
414 
      SuperscriptBox["a", "2"], "==",
128 
      SuperscriptBox["a", "2"], "\[Equal]",
415 
      RowBox[{
 129 
      RowBox[{
416 
       SuperscriptBox["y", "2"], "+",
130 
       SuperscriptBox[
- 
 
 131 
        RowBox[{"(",
- 
 
 132 
         RowBox[{"x", "-", "xl"}], ")"}], "2"], "+",
417 
       SuperscriptBox["x", "2"]}]}], ",",
133 
       SuperscriptBox["y", "2"]}]}], ",",
418 
     RowBox[{
 134 
     RowBox[{
419 
      SuperscriptBox["b", "2"], "==",
135 
      SuperscriptBox["b", "2"], "\[Equal]",
420 
      RowBox[{
 136 
      RowBox[{
421 
       SuperscriptBox["y", "2"], "+", " ",
- 
 
422 
       SuperscriptBox[
 137 
       SuperscriptBox[
423 
        RowBox[{"(",
138 
        RowBox[{"(",
424 
         RowBox[{"r", "-", "x"}], ")"}], "2"]}]}]}], "}"}], ",", "b"}],
139 
         RowBox[{"x", "-", "xr"}], ")"}], "2"], "+",
425 
  "]"}]], "Input",
 140 
       SuperscriptBox["y", "2"]}]}]}], "}"}], ",", "x"}], "]"}]], "Input",
426 
 CellChangeTimes->{{3.4802637422228947`*^9, 3.480263742630278*^9}}],
 141 
 CellChangeTimes->{{3.48035354117004*^9, 3.4803535430443707`*^9}}],
427 
 
 142 
 
428 
Cell[BoxData[
 143 
Cell[BoxData[
429 
 RowBox[{
 144 
 RowBox[{
430 
  RowBox[{
 145 
  RowBox[{
- 
 
 146 
   RowBox[{"-",
- 
 
 147 
    SuperscriptBox["b", "4"]}], "+",
- 
 
 148 
   RowBox[{"2", " ",
- 
 
 149 
    SuperscriptBox["b", "2"], " ",
- 
 
 150 
    SuperscriptBox["xl", "2"]}], "-",
- 
 
 151 
   SuperscriptBox["xl", "4"], "-",
- 
 
 152 
   RowBox[{"4", " ",
- 
 
 153 
    SuperscriptBox["b", "2"], " ", "xl", " ", "xr"}], "+",
- 
 
 154 
   RowBox[{"4", " ",
- 
 
 155 
    SuperscriptBox["xl", "3"], " ", "xr"}], "+",
- 
 
 156 
   RowBox[{"2", " ",
- 
 
 157 
    SuperscriptBox["b", "2"], " ",
- 
 
 158 
    SuperscriptBox["xr", "2"]}], "-",
- 
 
 159 
   RowBox[{"6", " ",
431 
   SuperscriptBox["x", "2"], "+",
160 
    SuperscriptBox["xl", "2"], " ",
- 
 
 161 
    SuperscriptBox["xr", "2"]}], "+",
- 
 
 162 
   RowBox[{"4", " ", "xl", " ",
- 
 
 163 
    SuperscriptBox["xr", "3"]}], "-",
- 
 
 164 
   SuperscriptBox["xr", "4"], "-",
- 
 
 165 
   RowBox[{"4", " ",
- 
 
 166 
    SuperscriptBox["xl", "2"], " ",
- 
 
 167 
    SuperscriptBox["y", "2"]}], "+",
- 
 
 168 
   RowBox[{"8", " ", "xl", " ", "xr", " ",
- 
 
 169 
    SuperscriptBox["y", "2"]}], "-",
- 
 
 170 
   RowBox[{"4", " ",
- 
 
 171 
    SuperscriptBox["xr", "2"], " ",
432 
   SuperscriptBox["y", "2"]}], "\[Equal]",
172 
    SuperscriptBox["y", "2"]}]}], "\[Equal]",
- 
 
 173 
  RowBox[{
- 
 
 174 
   SuperscriptBox["a", "4"], "+",
- 
 
 175 
   RowBox[{
433 
  SuperscriptBox["a", "2"]}]], "Output",
 176 
    SuperscriptBox["a", "2"], " ",
- 
 
 177 
    RowBox[{"(",
- 
 
 178 
     RowBox[{
- 
 
 179 
      RowBox[{
- 
 
 180 
       RowBox[{"-", "2"}], " ",
- 
 
 181 
       SuperscriptBox["b", "2"]}], "-",
- 
 
 182 
      RowBox[{"2", " ",
- 
 
 183 
       SuperscriptBox["xl", "2"]}], "+",
- 
 
 184 
      RowBox[{"4", " ", "xl", " ", "xr"}], "-",
- 
 
 185 
      RowBox[{"2", " ",
- 
 
 186 
       SuperscriptBox["xr", "2"]}]}], ")"}]}]}]}]], "Output",
434 
 CellChangeTimes->{3.48026374413827*^9}]
 187 
 CellChangeTimes->{3.480353544000967*^9}]
435 
}, Open  ]],
 188 
}, Open  ]],
436 
 
 189 
 
437 
Cell[CellGroupData[{
 190 
Cell[CellGroupData[{
438 
 
 191 
 
439 
Cell[BoxData[
 192 
Cell[BoxData[
440 
 RowBox[{"Solve", "[",
193 
 RowBox[{"Solve", "[",
441 
  RowBox[{
 194 
  RowBox[{
442 
   RowBox[{
 195 
   RowBox[{
443 
    RowBox[{
 196 
    RowBox[{
- 
 
 197 
     RowBox[{"-",
- 
 
 198 
      SuperscriptBox["b", "4"]}], "+",
- 
 
 199 
     RowBox[{"2", " ",
- 
 
 200 
      SuperscriptBox["b", "2"], " ",
- 
 
 201 
      SuperscriptBox["xl", "2"]}], "-",
- 
 
 202 
     SuperscriptBox["xl", "4"], "-",
- 
 
 203 
     RowBox[{"4", " ",
- 
 
 204 
      SuperscriptBox["b", "2"], " ", "xl", " ", "xr"}], "+",
- 
 
 205 
     RowBox[{"4", " ",
- 
 
 206 
      SuperscriptBox["xl", "3"], " ", "xr"}], "+",
- 
 
 207 
     RowBox[{"2", " ",
- 
 
 208 
      SuperscriptBox["b", "2"], " ",
- 
 
 209 
      SuperscriptBox["xr", "2"]}], "-",
- 
 
 210 
     RowBox[{"6", " ",
444 
     SuperscriptBox["x", "2"], "+",
211 
      SuperscriptBox["xl", "2"], " ",
- 
 
 212 
      SuperscriptBox["xr", "2"]}], "+",
- 
 
 213 
     RowBox[{"4", " ", "xl", " ",
- 
 
 214 
      SuperscriptBox["xr", "3"]}], "-",
- 
 
 215 
     SuperscriptBox["xr", "4"], "-",
- 
 
 216 
     RowBox[{"4", " ",
- 
 
 217 
      SuperscriptBox["xl", "2"], " ",
- 
 
 218 
      SuperscriptBox["y", "2"]}], "+",
- 
 
 219 
     RowBox[{"8", " ", "xl", " ", "xr", " ",
- 
 
 220 
      SuperscriptBox["y", "2"]}], "-",
- 
 
 221 
     RowBox[{"4", " ",
- 
 
 222 
      SuperscriptBox["xr", "2"], " ",
445 
     SuperscriptBox["y", "2"]}], "\[Equal]",
223 
      SuperscriptBox["y", "2"]}]}], "\[Equal]",
- 
 
 224 
    RowBox[{
- 
 
 225 
     SuperscriptBox["a", "4"], "+",
- 
 
 226 
     RowBox[{
- 
 
 227 
      SuperscriptBox["a", "2"], " ",
- 
 
 228 
      RowBox[{"(",
- 
 
 229 
       RowBox[{
- 
 
 230 
        RowBox[{
- 
 
 231 
         RowBox[{"-", "2"}], " ",
- 
 
 232 
         SuperscriptBox["b", "2"]}], "-",
- 
 
 233 
        RowBox[{"2", " ",
- 
 
 234 
         SuperscriptBox["xl", "2"]}], "+",
- 
 
 235 
        RowBox[{"4", " ", "xl", " ", "xr"}], "-",
- 
 
 236 
        RowBox[{"2", " ",
446 
    SuperscriptBox["a", "2"]}], ",", "a"}], "]"}]], "Input",
 237 
         SuperscriptBox["xr", "2"]}]}], ")"}]}]}]}], ",", "y"}],
- 
 
 238 
  "]"}]], "Input",
447 
 CellChangeTimes->{{3.480263751875348*^9, 3.480263763613769*^9}}],
 239 
 CellChangeTimes->{{3.480353625922577*^9, 3.4803536373630657`*^9}}],
448 
 
 240 
 
449 
Cell[BoxData[
 241 
Cell[BoxData[
450 
 RowBox[{"{",
242 
 RowBox[{"{",
451 
  RowBox[{
 243 
  RowBox[{
452 
   RowBox[{"{",
244 
   RowBox[{"{",
453 
    RowBox[{"a", "\[Rule]",
245 
    RowBox[{"y", "\[Rule]",
454 
     RowBox[{"-",
246 
     RowBox[{"-",
- 
 
 247 
      FractionBox[
- 
 
 248 
       SqrtBox[
- 
 
 249 
        RowBox[{
- 
 
 250 
         SuperscriptBox["a", "4"], "+",
- 
 
 251 
         SuperscriptBox["b", "4"], "-",
- 
 
 252 
         RowBox[{"2", " ",
- 
 
 253 
          SuperscriptBox["b", "2"], " ",
- 
 
 254 
          SuperscriptBox["xl", "2"]}], "+",
- 
 
 255 
         SuperscriptBox["xl", "4"], "+",
- 
 
 256 
         RowBox[{"4", " ",
- 
 
 257 
          SuperscriptBox["b", "2"], " ", "xl", " ", "xr"}], "-",
- 
 
 258 
         RowBox[{"4", " ",
- 
 
 259 
          SuperscriptBox["xl", "3"], " ", "xr"}], "-",
- 
 
 260 
         RowBox[{"2", " ",
- 
 
 261 
          SuperscriptBox["b", "2"], " ",
- 
 
 262 
          SuperscriptBox["xr", "2"]}], "+",
- 
 
 263 
         RowBox[{"6", " ",
- 
 
 264 
          SuperscriptBox["xl", "2"], " ",
- 
 
 265 
          SuperscriptBox["xr", "2"]}], "-",
- 
 
 266 
         RowBox[{"4", " ", "xl", " ",
- 
 
 267 
          SuperscriptBox["xr", "3"]}], "+",
- 
 
 268 
         SuperscriptBox["xr", "4"], "+",
- 
 
 269 
         RowBox[{
- 
 
 270 
          SuperscriptBox["a", "2"], " ",
- 
 
 271 
          RowBox[{"(",
- 
 
 272 
           RowBox[{
- 
 
 273 
            RowBox[{
- 
 
 274 
             RowBox[{"-", "2"}], " ",
- 
 
 275 
             SuperscriptBox["b", "2"]}], "-",
- 
 
 276 
            RowBox[{"2", " ",
- 
 
 277 
             SuperscriptBox["xl", "2"]}], "+",
- 
 
 278 
            RowBox[{"4", " ", "xl", " ", "xr"}], "-",
- 
 
 279 
            RowBox[{"2", " ",
- 
 
 280 
             SuperscriptBox["xr", "2"]}]}], ")"}]}]}]],
- 
 
 281 
       SqrtBox[
- 
 
 282 
        RowBox[{
- 
 
 283 
         RowBox[{
- 
 
 284 
          RowBox[{"-", "4"}], " ",
- 
 
 285 
          SuperscriptBox["xl", "2"]}], "+",
- 
 
 286 
         RowBox[{"8", " ", "xl", " ", "xr"}], "-",
- 
 
 287 
         RowBox[{"4", " ",
- 
 
 288 
          SuperscriptBox["xr", "2"]}]}]]]}]}], "}"}], ",",
- 
 
 289 
   RowBox[{"{",
- 
 
 290 
    RowBox[{"y", "\[Rule]",
- 
 
 291 
     FractionBox[
455 
      SqrtBox[
 292 
      SqrtBox[
456 
       RowBox[{
 293 
       RowBox[{
- 
 
 294 
        SuperscriptBox["a", "4"], "+",
- 
 
 295 
        SuperscriptBox["b", "4"], "-",
- 
 
 296 
        RowBox[{"2", " ",
- 
 
 297 
         SuperscriptBox["b", "2"], " ",
- 
 
 298 
         SuperscriptBox["xl", "2"]}], "+",
457 
        SuperscriptBox["x", "2"], "+",
299 
        SuperscriptBox["xl", "4"], "+",
- 
 
 300 
        RowBox[{"4", " ",
- 
 
 301 
         SuperscriptBox["b", "2"], " ", "xl", " ", "xr"}], "-",
- 
 
 302 
        RowBox[{"4", " ",
458 
        SuperscriptBox["y", "2"]}]]}]}], "}"}], ",",
303 
         SuperscriptBox["xl", "3"], " ", "xr"}], "-",
- 
 
 304 
        RowBox[{"2", " ",
- 
 
 305 
         SuperscriptBox["b", "2"], " ",
- 
 
 306 
         SuperscriptBox["xr", "2"]}], "+",
- 
 
 307 
        RowBox[{"6", " ",
- 
 
 308 
         SuperscriptBox["xl", "2"], " ",
- 
 
 309 
         SuperscriptBox["xr", "2"]}], "-",
- 
 
 310 
        RowBox[{"4", " ", "xl", " ",
- 
 
 311 
         SuperscriptBox["xr", "3"]}], "+",
- 
 
 312 
        SuperscriptBox["xr", "4"], "+",
- 
 
 313 
        RowBox[{
- 
 
 314 
         SuperscriptBox["a", "2"], " ",
459 
   RowBox[{"{",
315 
         RowBox[{"(",
- 
 
 316 
          RowBox[{
- 
 
 317 
           RowBox[{
- 
 
 318 
            RowBox[{"-", "2"}], " ",
- 
 
 319 
            SuperscriptBox["b", "2"]}], "-",
- 
 
 320 
           RowBox[{"2", " ",
- 
 
 321 
            SuperscriptBox["xl", "2"]}], "+",
- 
 
 322 
           RowBox[{"4", " ", "xl", " ", "xr"}], "-",
460 
    RowBox[{"a", "\[Rule]",
323 
           RowBox[{"2", " ",
- 
 
 324 
            SuperscriptBox["xr", "2"]}]}], ")"}]}]}]],
461 
     SqrtBox[
 325 
      SqrtBox[
462 
      RowBox[{
 326 
       RowBox[{
- 
 
 327 
        RowBox[{
- 
 
 328 
         RowBox[{"-", "4"}], " ",
463 
       SuperscriptBox["x", "2"], "+",
329 
         SuperscriptBox["xl", "2"]}], "+",
- 
 
 330 
        RowBox[{"8", " ", "xl", " ", "xr"}], "-",
- 
 
 331 
        RowBox[{"4", " ",
464 
       SuperscriptBox["y", "2"]}]]}], "}"}]}], "}"}]], "Output",
 332 
         SuperscriptBox["xr", "2"]}]}]]]}], "}"}]}], "}"}]], "Output",
465 
 CellChangeTimes->{3.480263765039091*^9}]
 333 
 CellChangeTimes->{3.4803536794619617`*^9}]
466 
}, Open  ]],
 334 
}, Open  ]],
467 
 
 335 
 
468 
Cell[CellGroupData[{
 336 
Cell[CellGroupData[{
469 
 
 337 
 
470 
Cell[BoxData[
 338 
Cell[BoxData[
471 
 RowBox[{"FullSimplify", "[",
339 
 RowBox[{"FullSimplify", "[",
472 
  FractionBox[
 340 
  FractionBox[
473 
   SqrtBox[
 341 
   SqrtBox[
474 
    RowBox[{
 342 
    RowBox[{
475 
     RowBox[{"-",
- 
 
476 
      SuperscriptBox["a", "4"]}], "+",
343 
     SuperscriptBox["a", "4"], "+",
477 
     RowBox[{"2", " ",
- 
 
478 
      SuperscriptBox["a", "2"], " ",
- 
 
479 
      SuperscriptBox["b", "2"]}], "-",
- 
 
480 
     SuperscriptBox["b", "4"], "+",
344 
     SuperscriptBox["b", "4"], "-",
481 
     RowBox[{"2", " ",
345 
     RowBox[{"2", " ",
482 
      SuperscriptBox["a", "2"], " ",
346 
      SuperscriptBox["b", "2"], " ",
483 
      SuperscriptBox["r", "2"]}], "+",
347 
      SuperscriptBox["xl", "2"]}], "+",
- 
 
 348 
     SuperscriptBox["xl", "4"], "+",
- 
 
 349 
     RowBox[{"4", " ",
- 
 
 350 
      SuperscriptBox["b", "2"], " ", "xl", " ", "xr"}], "-",
- 
 
 351 
     RowBox[{"4", " ",
- 
 
 352 
      SuperscriptBox["xl", "3"], " ", "xr"}], "-",
484 
     RowBox[{"2", " ",
353 
     RowBox[{"2", " ",
485 
      SuperscriptBox["b", "2"], " ",
354 
      SuperscriptBox["b", "2"], " ",
- 
 
 355 
      SuperscriptBox["xr", "2"]}], "+",
- 
 
 356 
     RowBox[{"6", " ",
- 
 
 357 
      SuperscriptBox["xl", "2"], " ",
486 
      SuperscriptBox["r", "2"]}], "-",
358 
      SuperscriptBox["xr", "2"]}], "-",
- 
 
 359 
     RowBox[{"4", " ", "xl", " ",
- 
 
 360 
      SuperscriptBox["xr", "3"]}], "+",
487 
     SuperscriptBox["r", "4"]}]],
361 
     SuperscriptBox["xr", "4"], "+",
- 
 
 362 
     RowBox[{
- 
 
 363 
      SuperscriptBox["a", "2"], " ",
- 
 
 364 
      RowBox[{"(",
- 
 
 365 
       RowBox[{
- 
 
 366 
        RowBox[{
- 
 
 367 
         RowBox[{"-", "2"}], " ",
- 
 
 368 
         SuperscriptBox["b", "2"]}], "-",
- 
 
 369 
        RowBox[{"2", " ",
- 
 
 370 
         SuperscriptBox["xl", "2"]}], "+",
- 
 
 371 
        RowBox[{"4", " ", "xl", " ", "xr"}], "-",
- 
 
 372 
        RowBox[{"2", " ",
- 
 
 373 
         SuperscriptBox["xr", "2"]}]}], ")"}]}]}]],
- 
 
 374 
   SqrtBox[
- 
 
 375 
    RowBox[{
- 
 
 376 
     RowBox[{
- 
 
 377 
      RowBox[{"-", "4"}], " ",
- 
 
 378 
      SuperscriptBox["xl", "2"]}], "+",
488 
   RowBox[{"2", " ", "r"}]], "]"}]], "Input",
 379 
     RowBox[{"8", " ", "xl", " ", "xr"}], "-",
- 
 
 380 
     RowBox[{"4", " ",
489 
 CellChangeTimes->{{3.480334626025627*^9, 3.480334632855236*^9}, {
 381 
      SuperscriptBox["xr", "2"]}]}]]], "]"}]], "Input",
490 
  3.4803347434308167`*^9, 3.480334744290421*^9}}],
 382 
 CellChangeTimes->{{3.480353699507608*^9, 3.4803537093257113`*^9}}],
491 
 
 383 
 
492 
Cell[BoxData[
 384 
Cell[BoxData[
493 
 FractionBox[
 385 
 FractionBox[
494 
  SqrtBox[
 386 
  SqrtBox[
495 
   RowBox[{
 387 
   RowBox[{
496 
    RowBox[{"-",
- 
 
497 
     RowBox[{"(",
- 
 
498 
      RowBox[{"a", "-", "b", "-", "r"}], ")"}]}], " ",
- 
 
499 
    RowBox[{"(",
388 
    RowBox[{"(",
- 
 
 389 
     RowBox[{"a", "-", "b", "+", "xl", "-", "xr"}], ")"}], " ",
- 
 
 390 
    RowBox[{"(",
500 
     RowBox[{"a", "+", "b", "-", "r"}], ")"}], " ",
391 
     RowBox[{"a", "+", "b", "+", "xl", "-", "xr"}], ")"}], " ",
501 
    RowBox[{"(",
392 
    RowBox[{"(",
502 
     RowBox[{"a", "-", "b", "+", "r"}], ")"}], " ",
393 
     RowBox[{"a", "-", "b", "-", "xl", "+", "xr"}], ")"}], " ",
503 
    RowBox[{"(",
394 
    RowBox[{"(",
504 
     RowBox[{"a", "+", "b", "+", "r"}], ")"}]}]],
395 
     RowBox[{"a", "+", "b", "-", "xl", "+", "xr"}], ")"}]}]],
- 
 
 396 
  RowBox[{"2", " ",
- 
 
 397 
   SqrtBox[
- 
 
 398 
    RowBox[{"-",
- 
 
 399 
     SuperscriptBox[
- 
 
 400 
      RowBox[{"(",
505 
  RowBox[{"2", " ", "r"}]]], "Output",
 401 
       RowBox[{"xl", "-", "xr"}], ")"}], "2"]}]]}]]], "Output",
506 
 CellChangeTimes->{3.480334634541192*^9, 3.4803347455989037`*^9}]
 402 
 CellChangeTimes->{3.480353711776017*^9}]
507 
}, Open  ]]
 403 
}, Open  ]]
508 
},
 404 
},
509 
WindowSize->{1434, 824},
 405 
WindowSize->{1440, 826},
510 
WindowMargins->{{0, Automatic}, {Automatic, 25}},
 406 
WindowMargins->{{0, Automatic}, {Automatic, 25}},
511 
FrontEndVersion->"7.0 for Linux x86 (64-bit) (February 25, 2009)",
 407 
FrontEndVersion->"7.0 for Linux x86 (64-bit) (February 25, 2009)",
512 
StyleDefinitions->"Default.nb"
 408 
StyleDefinitions->"Default.nb"
513 
]
 409 
]
514 
(* End of Notebook Content *)
 410 
(* End of Notebook Content *)
Line 521... Line 417...
521 
CellTagsIndex->{}
 417 
CellTagsIndex->{}
522 
*)
 418 
*)
523 
(*NotebookFileOutline
 419 
(*NotebookFileOutline
524 
Notebook[{
 420 
Notebook[{
525 
Cell[CellGroupData[{
 421 
Cell[CellGroupData[{
526 
Cell[567, 22, 648, 20, 32, "Input"],
 422 
Cell[567, 22, 760, 21, 32, "Input"],
527 
Cell[1218, 44, 692, 23, 33, "Output"]
 423 
Cell[1330, 45, 345, 9, 33, "Output"]
528 
}, Open  ]],
 - 
 
529 
Cell[CellGroupData[{
 - 
 
530 
Cell[1947, 72, 749, 24, 32, "Input"],
 - 
 
531 
Cell[2699, 98, 579, 19, 33, "Output"]
 - 
 
532 
}, Open  ]],
 - 
 
533 
Cell[CellGroupData[{
 - 
 
534 
Cell[3315, 122, 694, 21, 32, "Input"],
 - 
 
535 
Cell[4012, 145, 1369, 42, 54, "Output"]
 - 
 
536 
}, Open  ]],
 424 
}, Open  ]],
537 
Cell[CellGroupData[{
 425 
Cell[CellGroupData[{
538 
Cell[5418, 192, 547, 18, 32, "Input"],
 426 
Cell[1712, 59, 418, 11, 32, "Input"],
539 
Cell[5968, 212, 239, 7, 33, "Output"]
 427 
Cell[2133, 72, 434, 14, 53, "Output"]
540 
}, Open  ]],
 428 
}, Open  ]],
541 
Cell[CellGroupData[{
 429 
Cell[CellGroupData[{
542 
Cell[6244, 224, 303, 8, 32, "Input"],
 430 
Cell[2604, 91, 400, 12, 59, "Input"],
543 
Cell[6550, 234, 273, 9, 33, "Output"]
 431 
Cell[3007, 105, 357, 11, 53, "Output"]
544 
}, Open  ]],
 432 
}, Open  ]],
545 
Cell[CellGroupData[{
 433 
Cell[CellGroupData[{
546 
Cell[6860, 248, 366, 11, 32, "Input"],
 434 
Cell[3401, 121, 613, 19, 32, "Input"],
547 
Cell[7229, 261, 316, 10, 50, "Output"]
 435 
Cell[4017, 142, 1424, 44, 33, "Output"]
548 
}, Open  ]],
 436 
}, Open  ]],
549 
Cell[7560, 274, 1175, 32, 66, "Input"],
 - 
 
550 
Cell[CellGroupData[{
 437 
Cell[CellGroupData[{
551 
Cell[8760, 310, 599, 19, 55, "Input"],
 438 
Cell[5478, 191, 1592, 47, 32, "Input"],
552 
Cell[9362, 331, 299, 8, 33, "Output"]
 439 
Cell[7073, 240, 3226, 92, 121, "Output"]
553 
}, Open  ]],
 440 
}, Open  ]],
554 
Cell[CellGroupData[{
 441 
Cell[CellGroupData[{
555 
Cell[9698, 344, 340, 9, 32, "Input"],
 - 
 
556 
Cell[10041, 355, 289, 9, 33, "Output"]
 - 
 
557 
}, Open  ]],
 - 
 
558 
Cell[CellGroupData[{
 - 
 
559 
Cell[10367, 369, 382, 11, 32, "Input"],
 442 
Cell[10336, 337, 1475, 44, 79, "Input"],
560 
Cell[10752, 382, 626, 20, 46, "Output"]
 443 
Cell[11814, 383, 578, 18, 63, "Output"]
561 
}, Open  ]],
 - 
 
562 
Cell[CellGroupData[{
 - 
 
563 
Cell[11415, 407, 549, 18, 32, "Input"],
 - 
 
564 
Cell[11967, 427, 195, 6, 33, "Output"]
 - 
 
565 
}, Open  ]],
 - 
 
566 
Cell[CellGroupData[{
 - 
 
567 
Cell[12199, 438, 283, 8, 32, "Input"],
 - 
 
568 
Cell[12485, 448, 450, 16, 46, "Output"]
 - 
 
569 
}, Open  ]],
 - 
 
570 
Cell[CellGroupData[{
 - 
 
571 
Cell[12972, 469, 684, 20, 66, "Input"],
 - 
 
572 
Cell[13659, 491, 459, 14, 51, "Output"]
 - 
 
573 
}, Open  ]]
 444 
}, Open  ]]
574 
}
 445 
}
575 
]
 446 
]
576 
*)
 447 
*)
577 
 
 448 
 
578 
(* End of internal cache information *)
 449 
(* End of internal cache information *)
- 
 
 450