Subversion Repositories svnkaklik

Rev

Rev 643 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log

Rev 643 Rev 646
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[     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
 
Line 461... Line 461...
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)",
Line 523... Line 564...
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