Subversion Repositories svnkaklik

Rev

Rev 646 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log

Rev Author Line No. Line
642 kaklik 1 
(* Content-type: application/mathematica *)
2 
 
3 
(*** Wolfram Notebook File ***)
4 
(* http://www.wolfram.com/nb *)
5 
 
6 
(* CreatedBy='Mathematica 7.0' *)
7 
 
8 
(*CacheID: 234*)
9 
(* Internal cache information:
10 
NotebookFileLineBreakTest
11 
NotebookFileLineBreakTest
12 
NotebookDataPosition[       145,          7]
649 kaklik 13 
NotebookDataLength[     13289,        440]
14 
NotebookOptionsPosition[     12408,        404]
15 
NotebookOutlinePosition[     12745,        419]
16 
CellTagsIndexPosition[     12702,        416]
642 kaklik 17 
WindowFrame->Normal*)
18 
 
19 
(* Beginning of Notebook Content *)
20 
Notebook[{
21 
 
22 
Cell[CellGroupData[{
23 
Cell[BoxData[
24 
 RowBox[{"Eliminate", "[",
25 
  RowBox[{
26 
   RowBox[{"{",
27 
    RowBox[{
28 
     RowBox[{
649 kaklik 29 
      SuperscriptBox["a", "2"], "\[Equal]",
642 kaklik 30 
      RowBox[{
649 kaklik 31 
       SuperscriptBox[
32 
        RowBox[{"(",
33 
         RowBox[{"x", "-", "xl"}], ")"}], "2"], "+",
34 
       SuperscriptBox["y", "2"]}]}], ",",
642 kaklik 35 
     RowBox[{
649 kaklik 36 
      SuperscriptBox["b", "2"], "\[Equal]",
642 kaklik 37 
      RowBox[{
38 
       SuperscriptBox[
39 
        RowBox[{"(",
649 kaklik 40 
         RowBox[{"x", "-", "xr"}], ")"}], "2"], "+",
41 
       SuperscriptBox["y", "2"]}]}]}], "}"}], ",", "y"}], "]"}]], "Input",
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}}],
642 kaklik 45 
 
46 
Cell[BoxData[
47 
 RowBox[{
48 
  RowBox[{
649 kaklik 49 
   SuperscriptBox["b", "2"], "-",
50 
   RowBox[{"2", " ", "x", " ", "xl"}], "+",
51 
   SuperscriptBox["xl", "2"], "+",
52 
   RowBox[{"2", " ", "x", " ", "xr"}], "-",
53 
   SuperscriptBox["xr", "2"]}], "\[Equal]",
54 
  SuperscriptBox["a", "2"]}]], "Output",
55 
 CellChangeTimes->{3.480353267873107*^9, 3.480353360763659*^9}]
642 kaklik 56 
}, Open  ]],
57 
 
58 
Cell[CellGroupData[{
59 
 
60 
Cell[BoxData[
649 kaklik 61 
 RowBox[{"Solve", "[",
642 kaklik 62 
  RowBox[{
63 
   RowBox[{
64 
    RowBox[{
649 kaklik 65 
     SuperscriptBox["b", "2"], "-",
66 
     RowBox[{"2", " ", "x", " ", "xl"}], "+",
67 
     SuperscriptBox["xl", "2"], "+",
68 
     RowBox[{"2", " ", "x", " ", "xr"}], "-",
69 
     SuperscriptBox["xr", "2"]}], "\[Equal]",
70 
    SuperscriptBox["a", "2"]}], ",", "x"}], "]"}]], "Input",
71 
 CellChangeTimes->{{3.480353384264968*^9, 3.4803534038301287`*^9}}],
642 kaklik 72 
 
73 
Cell[BoxData[
649 kaklik 74 
 RowBox[{"{",
75 
  RowBox[{"{",
76 
   RowBox[{"x", "\[Rule]",
77 
    FractionBox[
642 kaklik 78 
     RowBox[{
649 kaklik 79 
      RowBox[{"-",
80 
       SuperscriptBox["a", "2"]}], "+",
642 kaklik 81 
      SuperscriptBox["b", "2"], "+",
649 kaklik 82 
      SuperscriptBox["xl", "2"], "-",
83 
      SuperscriptBox["xr", "2"]}],
84 
     RowBox[{"2", " ",
85 
      RowBox[{"(",
86 
       RowBox[{"xl", "-", "xr"}], ")"}]}]]}], "}"}], "}"}]], "Output",
87 
 CellChangeTimes->{3.480353405169127*^9}]
642 kaklik 88 
}, Open  ]],
89 
 
90 
Cell[CellGroupData[{
91 
 
92 
Cell[BoxData[
649 kaklik 93 
 RowBox[{"FullSimplify", "[",
94 
  FractionBox[
642 kaklik 95 
   RowBox[{
649 kaklik 96 
    RowBox[{"-",
97 
     SuperscriptBox["a", "2"]}], "+",
98 
    SuperscriptBox["b", "2"], "+",
99 
    SuperscriptBox["xl", "2"], "-",
100 
    SuperscriptBox["xr", "2"]}],
101 
   RowBox[{"2", " ",
102 
    RowBox[{"(",
103 
     RowBox[{"xl", "-", "xr"}], ")"}]}]], "]"}]], "Input",
104 
 CellChangeTimes->{{3.480353414741691*^9, 3.480353459715658*^9}}],
642 kaklik 105 
 
106 
Cell[BoxData[
649 kaklik 107 
 FractionBox[
642 kaklik 108 
  RowBox[{
649 kaklik 109 
   RowBox[{"-",
110 
    SuperscriptBox["a", "2"]}], "+",
111 
   SuperscriptBox["b", "2"], "+",
112 
   SuperscriptBox["xl", "2"], "-",
113 
   SuperscriptBox["xr", "2"]}],
114 
  RowBox[{"2", " ",
115 
   RowBox[{"(",
116 
    RowBox[{"xl", "-", "xr"}], ")"}]}]]], "Output",
117 
 CellChangeTimes->{{3.4803534378225803`*^9, 3.4803534603115587`*^9}}]
643 kaklik 118 
}, Open  ]],
119 
 
120 
Cell[CellGroupData[{
121 
 
122 
Cell[BoxData[
123 
 RowBox[{"Eliminate", "[",
124 
  RowBox[{
125 
   RowBox[{"{",
126 
    RowBox[{
127 
     RowBox[{
649 kaklik 128 
      SuperscriptBox["a", "2"], "\[Equal]",
643 kaklik 129 
      RowBox[{
649 kaklik 130 
       SuperscriptBox[
131 
        RowBox[{"(",
132 
         RowBox[{"x", "-", "xl"}], ")"}], "2"], "+",
133 
       SuperscriptBox["y", "2"]}]}], ",",
643 kaklik 134 
     RowBox[{
649 kaklik 135 
      SuperscriptBox["b", "2"], "\[Equal]",
643 kaklik 136 
      RowBox[{
137 
       SuperscriptBox[
138 
        RowBox[{"(",
649 kaklik 139 
         RowBox[{"x", "-", "xr"}], ")"}], "2"], "+",
140 
       SuperscriptBox["y", "2"]}]}]}], "}"}], ",", "x"}], "]"}]], "Input",
141 
 CellChangeTimes->{{3.48035354117004*^9, 3.4803535430443707`*^9}}],
643 kaklik 142 
 
143 
Cell[BoxData[
144 
 RowBox[{
145 
  RowBox[{
649 kaklik 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", " ",
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"], " ",
172 
    SuperscriptBox["y", "2"]}]}], "\[Equal]",
643 kaklik 173 
  RowBox[{
649 kaklik 174 
   SuperscriptBox["a", "4"], "+",
643 kaklik 175 
   RowBox[{
649 kaklik 176 
    SuperscriptBox["a", "2"], " ",
643 kaklik 177 
    RowBox[{"(",
649 kaklik 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",
187 
 CellChangeTimes->{3.480353544000967*^9}]
643 kaklik 188 
}, Open  ]],
189 
 
190 
Cell[CellGroupData[{
191 
 
192 
Cell[BoxData[
193 
 RowBox[{"Solve", "[",
194 
  RowBox[{
195 
   RowBox[{
196 
    RowBox[{
649 kaklik 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", " ",
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"], " ",
223 
      SuperscriptBox["y", "2"]}]}], "\[Equal]",
224 
    RowBox[{
225 
     SuperscriptBox["a", "4"], "+",
226 
     RowBox[{
227 
      SuperscriptBox["a", "2"], " ",
643 kaklik 228 
      RowBox[{"(",
649 kaklik 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", " ",
237 
         SuperscriptBox["xr", "2"]}]}], ")"}]}]}]}], ",", "y"}],
238 
  "]"}]], "Input",
239 
 CellChangeTimes->{{3.480353625922577*^9, 3.4803536373630657`*^9}}],
643 kaklik 240 
 
241 
Cell[BoxData[
242 
 RowBox[{"{",
243 
  RowBox[{
244 
   RowBox[{"{",
649 kaklik 245 
    RowBox[{"y", "\[Rule]",
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]",
643 kaklik 291 
     FractionBox[
292 
      SqrtBox[
293 
       RowBox[{
649 kaklik 294 
        SuperscriptBox["a", "4"], "+",
295 
        SuperscriptBox["b", "4"], "-",
643 kaklik 296 
        RowBox[{"2", " ",
649 kaklik 297 
         SuperscriptBox["b", "2"], " ",
298 
         SuperscriptBox["xl", "2"]}], "+",
299 
        SuperscriptBox["xl", "4"], "+",
300 
        RowBox[{"4", " ",
301 
         SuperscriptBox["b", "2"], " ", "xl", " ", "xr"}], "-",
302 
        RowBox[{"4", " ",
303 
         SuperscriptBox["xl", "3"], " ", "xr"}], "-",
643 kaklik 304 
        RowBox[{"2", " ",
649 kaklik 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[{
643 kaklik 314 
         SuperscriptBox["a", "2"], " ",
315 
         RowBox[{"(",
649 kaklik 316 
          RowBox[{
317 
           RowBox[{
318 
            RowBox[{"-", "2"}], " ",
319 
            SuperscriptBox["b", "2"]}], "-",
320 
           RowBox[{"2", " ",
321 
            SuperscriptBox["xl", "2"]}], "+",
322 
           RowBox[{"4", " ", "xl", " ", "xr"}], "-",
323 
           RowBox[{"2", " ",
324 
            SuperscriptBox["xr", "2"]}]}], ")"}]}]}]],
643 kaklik 325 
      SqrtBox[
326 
       RowBox[{
649 kaklik 327 
        RowBox[{
328 
         RowBox[{"-", "4"}], " ",
329 
         SuperscriptBox["xl", "2"]}], "+",
330 
        RowBox[{"8", " ", "xl", " ", "xr"}], "-",
331 
        RowBox[{"4", " ",
332 
         SuperscriptBox["xr", "2"]}]}]]]}], "}"}]}], "}"}]], "Output",
333 
 CellChangeTimes->{3.4803536794619617`*^9}]
643 kaklik 334 
}, Open  ]],
335 
 
336 
Cell[CellGroupData[{
337 
 
338 
Cell[BoxData[
646 kaklik 339 
 RowBox[{"FullSimplify", "[",
340 
  FractionBox[
341 
   SqrtBox[
342 
    RowBox[{
649 kaklik 343 
     SuperscriptBox["a", "4"], "+",
344 
     SuperscriptBox["b", "4"], "-",
646 kaklik 345 
     RowBox[{"2", " ",
649 kaklik 346 
      SuperscriptBox["b", "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"}], "-",
646 kaklik 353 
     RowBox[{"2", " ",
649 kaklik 354 
      SuperscriptBox["b", "2"], " ",
355 
      SuperscriptBox["xr", "2"]}], "+",
356 
     RowBox[{"6", " ",
357 
      SuperscriptBox["xl", "2"], " ",
358 
      SuperscriptBox["xr", "2"]}], "-",
359 
     RowBox[{"4", " ", "xl", " ",
360 
      SuperscriptBox["xr", "3"]}], "+",
361 
     SuperscriptBox["xr", "4"], "+",
362 
     RowBox[{
646 kaklik 363 
      SuperscriptBox["a", "2"], " ",
649 kaklik 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"]}], "+",
379 
     RowBox[{"8", " ", "xl", " ", "xr"}], "-",
380 
     RowBox[{"4", " ",
381 
      SuperscriptBox["xr", "2"]}]}]]], "]"}]], "Input",
382 
 CellChangeTimes->{{3.480353699507608*^9, 3.4803537093257113`*^9}}],
646 kaklik 383 
 
384 
Cell[BoxData[
385 
 FractionBox[
386 
  SqrtBox[
387 
   RowBox[{
388 
    RowBox[{"(",
649 kaklik 389 
     RowBox[{"a", "-", "b", "+", "xl", "-", "xr"}], ")"}], " ",
646 kaklik 390 
    RowBox[{"(",
649 kaklik 391 
     RowBox[{"a", "+", "b", "+", "xl", "-", "xr"}], ")"}], " ",
646 kaklik 392 
    RowBox[{"(",
649 kaklik 393 
     RowBox[{"a", "-", "b", "-", "xl", "+", "xr"}], ")"}], " ",
394 
    RowBox[{"(",
395 
     RowBox[{"a", "+", "b", "-", "xl", "+", "xr"}], ")"}]}]],
396 
  RowBox[{"2", " ",
397 
   SqrtBox[
398 
    RowBox[{"-",
399 
     SuperscriptBox[
400 
      RowBox[{"(",
401 
       RowBox[{"xl", "-", "xr"}], ")"}], "2"]}]]}]]], "Output",
402 
 CellChangeTimes->{3.480353711776017*^9}]
642 kaklik 403 
}, Open  ]]
404 
},
649 kaklik 405 
WindowSize->{1440, 826},
643 kaklik 406 
WindowMargins->{{0, Automatic}, {Automatic, 25}},
642 kaklik 407 
FrontEndVersion->"7.0 for Linux x86 (64-bit) (February 25, 2009)",
408 
StyleDefinitions->"Default.nb"
409 
]
410 
(* End of Notebook Content *)
411 
 
412 
(* Internal cache information *)
413 
(*CellTagsOutline
414 
CellTagsIndex->{}
415 
*)
416 
(*CellTagsIndex
417 
CellTagsIndex->{}
418 
*)
419 
(*NotebookFileOutline
420 
Notebook[{
421 
Cell[CellGroupData[{
649 kaklik 422 
Cell[567, 22, 760, 21, 32, "Input"],
423 
Cell[1330, 45, 345, 9, 33, "Output"]
642 kaklik 424 
}, Open  ]],
425 
Cell[CellGroupData[{
649 kaklik 426 
Cell[1712, 59, 418, 11, 32, "Input"],
427 
Cell[2133, 72, 434, 14, 53, "Output"]
642 kaklik 428 
}, Open  ]],
429 
Cell[CellGroupData[{
649 kaklik 430 
Cell[2604, 91, 400, 12, 59, "Input"],
431 
Cell[3007, 105, 357, 11, 53, "Output"]
642 kaklik 432 
}, Open  ]],
433 
Cell[CellGroupData[{
649 kaklik 434 
Cell[3401, 121, 613, 19, 32, "Input"],
435 
Cell[4017, 142, 1424, 44, 33, "Output"]
642 kaklik 436 
}, Open  ]],
437 
Cell[CellGroupData[{
649 kaklik 438 
Cell[5478, 191, 1592, 47, 32, "Input"],
439 
Cell[7073, 240, 3226, 92, 121, "Output"]
642 kaklik 440 
}, Open  ]],
441 
Cell[CellGroupData[{
649 kaklik 442 
Cell[10336, 337, 1475, 44, 79, "Input"],
443 
Cell[11814, 383, 578, 18, 63, "Output"]
642 kaklik 444 
}, Open  ]]
445 
}
446 
]
447 
*)
448 
 
449 
(* End of internal cache information *)
649 kaklik 450