Subversion Repositories svnkaklik

Rev

Rev 643 | Go to most recent revision | Only display areas with differences | Ignore whitespace | Details | Blame | Last modification | View Log

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