(* Content-type: application/mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 6.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[     56250,       1513]
NotebookOptionsPosition[     53654,       1427]
NotebookOutlinePosition[     54266,       1450]
CellTagsIndexPosition[     54223,       1447]
WindowFrame->Normal
ContainsDynamic->True *)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 StyleBox[
  RowBox[{"1.1", ".5", " ", 
   RowBox[{
    StyleBox["Mathematica",
     FontSlant->"Italic"], ":", "\:7279\:6b8a\:95a2\:6570\:306e\:4f8b"}]}],
  FontSize->18]], "Input",
 CellChangeTimes->{{3.4092879577057257`*^9, 3.4092879657027254`*^9}},
 FontFamily->"Courier New"],

Cell["\<\
log(1+x) \:306e\:30de\:30af\:30ed\:30fc\:30ea\:30f3\:5c55\:958b\:306e\:7b2c n \
\:9805\:307e\:3067\:306e\:30b0\:30e9\:30d5\:3092\:56f3\:793a\:3057\:3066\:ff0c\
\:53ce\:675f\:534a\:5f84
\:3092\:78ba\:8a8d\:3057\:307e\:3057\:3087\:3046\:ff0e

Manipulate \:306e\:66f4\:65b0\:52d5\:4f5c\:3092\:5236\:5fa1\:3059\:308b\:305f\
\:3081\:ff0c Module[{f,str},.....] \:3092\:9664\:3044\:3066\:ff0c
 Manipulate \:306e\:30aa\:30d7\:30b7\:30e7\:30f3 TrackedSymbols :> {n} \:3092\
\:4f7f\:3046\:65b9\:6cd5\:3082\:3042\:308a\:307e\:3059\:ff0e
Normal \:306f\:5270\:4f59\:9805\:306e\:524a\:9664\:ff0e Evaluate \:306f Plot \
\:306e\:7b2c 1 \:5f15\:6570\:304c\:30ea\:30b9\:30c8\:306e\:5f62\:3067
 \:3042\:308b\:3082\:306e\:3092\:671f\:5f85\:3057\:3066\:3044\:308b\:306e\
\:3067\:ff0c\:524d\:3082\:3063\:3066\:5f37\:5236\:7684\:306b\:30ea\:30b9\:30c8\
\:306e\:5f62\:306b\:306a\:304a\:3059\:6307\:793a\:3067\:3059\:ff0e
ListLinePlot \:306f\:53ce\:675f\:534a\:5f84\:3092\:78ba\:8a8d\:3059\:308b\
\:305f\:3081\:306b\:7834\:7dda\:3092\:56f3\:793a\:3057\:3066\:3044\:307e\:3059\
\:ff0e
\:30de\:30af\:30ed\:30fc\:30ea\:30f3\:5c55\:958b\:5f0f\:3092\:80cc\:666f\:8272\
\:3092\:3064\:3051\:3066\:8868\:793a\:3059\:308b\:3088\:3046\:306b\:3057\:3066\
\:3044\:307e\:3059\:ff0e\
\>", "Input",
 CellDingbat->"\[FilledSquare]",
 CellChangeTimes->{
  3.4092860460277257`*^9, {3.4092860760877256`*^9, 3.4092861843187256`*^9}, {
   3.4092862609597254`*^9, 3.4092863436917257`*^9}, {3.4092863998417253`*^9, 
   3.4092864017927256`*^9}, {3.4092874969527254`*^9, 3.409287497920726*^9}, {
   3.409287583960726*^9, 3.4092875919877253`*^9}, {3.4092876273867254`*^9, 
   3.4092876350207253`*^9}, {3.4092877439457254`*^9, 3.409287805248726*^9}, {
   3.4092878937397256`*^9, 3.4092879098417253`*^9}, {3.4093548003400583`*^9, 
   3.4093549226450577`*^9}, {3.4093549859980583`*^9, 
   3.4093552300720577`*^9}, {3.409355264642058*^9, 3.409355268018058*^9}, {
   3.409355298501058*^9, 3.4093553353070583`*^9}, {3.4105175290798264`*^9, 
   3.4105175331088266`*^9}, {3.4105175672238264`*^9, 
   3.4105175922648263`*^9}, {3.4105176248568263`*^9, 3.410517721201826*^9}, {
   3.410847223773635*^9, 3.4108472259996347`*^9}, {3.411018496575*^9, 
   3.41101850763*^9}, 3.411018644672*^9, {3.411018682988*^9, 
   3.4110186845810003`*^9}, 3.411018891895*^9, {3.411018925692*^9, 
   3.411018960619*^9}, {3.41101944083*^9, 3.411019483097*^9}, {
   3.411019589526*^9, 3.4110196486610003`*^9}, {3.411019748527*^9, 
   3.411019752273*^9}, {3.411019881132*^9, 3.411019895999*^9}, {
   3.411019965549*^9, 3.4110199667279997`*^9}, {3.411020014934*^9, 
   3.411020016776*^9}, {3.411020097009*^9, 3.4110201041619997`*^9}},
 FontFamily->"Courier New",
 Background->RGBColor[
  0.4666666666666667, 0.8352941176470589, 0.8235294117647058]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Clear", "[", "x", "]"}], ";", 
  RowBox[{"Manipulate", "[", 
   RowBox[{
    RowBox[{"Module", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"f", ",", "str"}], "}"}], ",", 
      RowBox[{
       RowBox[{
        RowBox[{"f", "[", "x_", "]"}], ":=", 
        RowBox[{"Log", "[", 
         RowBox[{"1", "+", "x"}], "]"}]}], ";", 
       RowBox[{"Show", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Plot", "[", 
            RowBox[{
             RowBox[{
              RowBox[{"{", 
               RowBox[{
                RowBox[{"f", "[", "x", "]"}], ",", 
                RowBox[{"str", "=", 
                 RowBox[{
                  RowBox[{"Series", "[", 
                   RowBox[{
                    RowBox[{"f", "[", "x", "]"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"x", ",", "0", ",", "n"}], "}"}]}], "]"}], "//", 
                  "Normal"}]}]}], "}"}], "//", "Evaluate"}], ",", 
             RowBox[{"{", 
              RowBox[{"x", ",", 
               RowBox[{"-", "1"}], ",", "2"}], "}"}], ",", 
             RowBox[{"PlotRange", "\[Rule]", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"-", "4"}], ",", "2"}], "}"}]}], ",", 
             RowBox[{"AxesLabel", "\[Rule]", 
              RowBox[{"{", 
               RowBox[{"\"\<x\>\"", ",", "\"\<y\>\""}], "}"}]}], ",", 
             RowBox[{"PlotStyle", "\[Rule]", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"Hue", "[", "0", "]"}], ",", 
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"Hue", "[", "0.7", "]"}], ",", 
                  RowBox[{"Thickness", "[", "0.01", "]"}]}], "}"}]}], 
               "}"}]}]}], "]"}], ",", "\[IndentingNewLine]", 
           RowBox[{"ListLinePlot", "[", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"1", ",", 
                 RowBox[{"-", "4"}]}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"1", ",", "2"}], "}"}]}], "}"}], ",", 
             RowBox[{"PlotStyle", "\[Rule]", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"Dashing", "[", 
                 RowBox[{"{", 
                  RowBox[{"0.05", ",", "0.01"}], "}"}], "]"}], ",", "Black"}],
                "}"}]}]}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", 
         RowBox[{"Epilog", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"Text", "[", 
             RowBox[{
              RowBox[{"Style", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{"ToString", "[", "n", "]"}], "<>", 
                 "\"\< \:9805\>\""}], ",", "12"}], "]"}], ",", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{"OddQ", "[", "n", "]"}], ",", 
                RowBox[{"{", 
                 RowBox[{"1.3", ",", "1.5"}], "}"}], ",", 
                RowBox[{"{", 
                 RowBox[{"1.5", ",", 
                  RowBox[{"-", "2"}]}], "}"}]}], "]"}]}], "]"}], 
            "\[IndentingNewLine]", ",", 
            RowBox[{"Text", "[", 
             RowBox[{
              RowBox[{"Style", "[", 
               RowBox[{"\"\<y=log(1+x)\>\"", ",", "20"}], "]"}], ",", 
              RowBox[{"{", 
               RowBox[{"1.5", ",", "0.5"}], "}"}]}], "]"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"Text", "[", 
             RowBox[{
              RowBox[{"Style", "[", 
               RowBox[{
                RowBox[{"\"\<y= \>\"", "<>", 
                 RowBox[{"ToString", "[", 
                  RowBox[{"str", ",", "StandardForm"}], "]"}]}], ",", 
                RowBox[{"RGBColor", "[", 
                 RowBox[{"0", ",", "0", ",", "1"}], "]"}], ",", 
                "\[IndentingNewLine]", 
                RowBox[{"Background", "\[Rule]", "background"}]}], "]"}], ",",
               
              RowBox[{"{", 
               RowBox[{"0.5", ",", 
                RowBox[{"-", "3"}]}], "}"}]}], "]"}]}], "}"}]}]}], "]"}]}]}], 
     "]"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"n", ",", "5", ",", "\"\<\:7b2cn\:9805\>\""}], "}"}], ",", "1",
       ",", "14", ",", "1", ",", 
      RowBox[{"Appearance", "\[Rule]", "\"\<Labeled\>\""}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"background", ",", "Cyan", ",", "\"\<\:80cc\:666f\:8272\>\""}],
        "}"}], ",", "Cyan"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.409278445689726*^9, 3.4092784533577256`*^9}, 
   3.409278489236726*^9, {3.409278529741726*^9, 3.409278583597726*^9}, {
   3.4092788288177257`*^9, 3.4092788526917257`*^9}, {3.4092789069957256`*^9, 
   3.4092789112857256`*^9}, {3.4092791662137256`*^9, 
   3.4092791730617256`*^9}, {3.4092796796067257`*^9, 3.409279680493726*^9}, {
   3.4092812085637255`*^9, 3.409281212453726*^9}, {3.4092812643537254`*^9, 
   3.4092813013607254`*^9}, {3.4092814520967255`*^9, 
   3.4092814610277257`*^9}, {3.4092816483107257`*^9, 3.4092817409577255`*^9}, 
   3.4092817849347258`*^9, {3.4092818908837256`*^9, 3.4092819199837255`*^9}, {
   3.409281964854726*^9, 3.4092819689617257`*^9}, {3.4092822950087256`*^9, 
   3.4092822982897253`*^9}, {3.4092825613467255`*^9, 3.409282581866726*^9}, {
   3.4092827816177254`*^9, 3.4092828195207253`*^9}, {3.4092829091287255`*^9, 
   3.4092829804777255`*^9}, 3.4092830830407257`*^9, {3.4092831619637256`*^9, 
   3.4092831799037256`*^9}, {3.4092848606417255`*^9, 
   3.4092848614237256`*^9}, {3.4092849829947257`*^9, 
   3.4092850686607256`*^9}, {3.4092867159737253`*^9, 
   3.4092867668427258`*^9}, {3.4092868471437254`*^9, 
   3.4092869516477256`*^9}, {3.4092870779617257`*^9, 
   3.4092870812177258`*^9}, {3.4092871173437257`*^9, 
   3.4092871537927256`*^9}, {3.4092871877877254`*^9, 
   3.4092872207687254`*^9}, {3.4092872748777256`*^9, 
   3.4092872895077257`*^9}, {3.409353811607058*^9, 3.409353848591058*^9}, {
   3.409353903378058*^9, 3.409353923110058*^9}, {3.4093539845270576`*^9, 
   3.409353995603058*^9}, {3.4093540336630583`*^9, 3.409354044216058*^9}, {
   3.4093541042440577`*^9, 3.409354111824058*^9}, 3.409354743971058*^9, {
   3.409387623572671*^9, 3.4093876530126705`*^9}, {3.410391642951825*^9, 
   3.410391729738825*^9}, {3.410391760386825*^9, 3.4103917770158253`*^9}, {
   3.410391819314825*^9, 3.4103918206598253`*^9}, {3.4103920092258253`*^9, 
   3.4103920135228252`*^9}, {3.4104091497078*^9, 3.4104091538018*^9}, {
   3.4104299318459997`*^9, 3.410429932882*^9}, {3.4105121906314263`*^9, 
   3.4105122375524263`*^9}, {3.4105123129664264`*^9, 
   3.4105123435634265`*^9}, {3.4105126679974265`*^9, 
   3.4105126951984262`*^9}, {3.4105128568974266`*^9, 3.4105128582584267`*^9}, 
   3.410512890108426*^9, 3.4105145100854263`*^9, {3.4110406811312*^9, 
   3.4110407221182003`*^9}},
 FontFamily->"Courier New",
 FontColor->GrayLevel[0],
 CellLabel->"In[1]:="],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`background$$ = RGBColor[
    0, 1, 1], $CellContext`n$$ = 5, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`n$$], 5, "\:7b2cn\:9805"}, 1, 14, 1}, {{
       Hold[$CellContext`background$$], 
       RGBColor[0, 1, 1], "\:80cc\:666f\:8272"}, 
      RGBColor[0, 1, 1]}}, Typeset`size$$ = {360., {116., 121.}}, 
    Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = 
    True, $CellContext`n$219$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`background$$ = 
        RGBColor[0, 1, 1], $CellContext`n$$ = 5}, "ControllerVariables" :> {
        Hold[$CellContext`n$$, $CellContext`n$219$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> 
      Module[{$CellContext`f$, $CellContext`str$}, $CellContext`f$[
           Pattern[$CellContext`x, 
            Blank[]]] := Log[1 + $CellContext`x]; Show[{
           Plot[
            Evaluate[{
              $CellContext`f$[$CellContext`x], $CellContext`str$ = Normal[
                Series[
                 $CellContext`f$[$CellContext`x], {$CellContext`x, 
                  0, $CellContext`n$$}]]}], {$CellContext`x, -1, 2}, 
            PlotRange -> {-4, 2}, AxesLabel -> {"x", "y"}, PlotStyle -> {
              Hue[0], {
               Hue[0.7], 
               Thickness[0.01]}}], 
           ListLinePlot[{{1, -4}, {1, 2}}, PlotStyle -> {
              Dashing[{0.05, 0.01}], Black}]}, Epilog -> {
            Text[
             Style[
              StringJoin[
               ToString[$CellContext`n$$], " \:9805"], 12], 
             If[
              OddQ[$CellContext`n$$], {1.3, 1.5}, {1.5, -2}]], 
            Text[
             Style["y=log(1+x)", 20], {1.5, 0.5}], 
            Text[
             Style[
              StringJoin["y= ", 
               ToString[$CellContext`str$, StandardForm]], 
              RGBColor[0, 0, 1], Background -> $CellContext`background$$], {
             0.5, -3}]}]], 
      "Specifications" :> {{{$CellContext`n$$, 5, "\:7b2cn\:9805"}, 1, 14, 1, 
         Appearance -> "Labeled"}, {{$CellContext`background$$, 
          RGBColor[0, 1, 1], "\:80cc\:666f\:8272"}, 
         RGBColor[0, 1, 1]}}, "Options" :> {}, "DefaultOptions" :> {}],
     ImageSizeCache->{408., {178., 183.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{3.411351786816879*^9, 3.4138027827056465`*^9, 
  3.4138504774640713`*^9, 3.4139254773214483`*^9},
 FontColor->GrayLevel[0],
 CellLabel->"Out[1]="]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  TagBox[
   StyleBox[
    DynamicModuleBox[{$CellContext`background$$ = RGBColor[
     0.9999847409781033, 0.7974212252994584, 0.], $CellContext`n$$ = 5, 
     Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, 
     Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 
     1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{
        Hold[$CellContext`n$$], 5, "\:7b2cn\:9805"}, 1, 14, 1}, {{
        Hold[$CellContext`background$$], 
        RGBColor[0, 1, 1], "\:80cc\:666f\:8272"}, 
       RGBColor[0, 1, 1]}}, Typeset`size$$ = {240., {78., 81.0625}}, 
     Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = 
     True, $CellContext`n$69$$ = 0}, 
     DynamicBox[Manipulate`ManipulateBoxes[
      1, StandardForm, 
       "Variables" :> {$CellContext`background$$ = 
         RGBColor[0, 1, 1], $CellContext`n$$ = 5}, "ControllerVariables" :> {
         Hold[$CellContext`n$$, $CellContext`n$69$$, 0]}, 
       "OtherVariables" :> {
        Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
         Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
         Typeset`specs$$, Typeset`size$$, Typeset`update$$, 
         Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> 
       Module[{$CellContext`f$, $CellContext`str$}, $CellContext`f$[
            Pattern[$CellContext`x, 
             Blank[]]] := Log[1 + $CellContext`x]; Show[{
            Plot[
             Evaluate[{
               $CellContext`f$[$CellContext`x], $CellContext`str$ = Normal[
                 Series[
                  $CellContext`f$[$CellContext`x], {$CellContext`x, 
                   0, $CellContext`n$$}]]}], {$CellContext`x, -1, 2}, 
             PlotRange -> {-4, 2}, AxesLabel -> {"x", "y"}, PlotStyle -> {
               Hue[0], {
                Hue[0.7], 
                Thickness[0.01]}}], 
            ListLinePlot[{{1, -4}, {1, 2}}, PlotStyle -> {
               Dashing[{0.05, 0.01}], Black}]}, Epilog -> {
             Text[
              Style[
               StringJoin[
                ToString[$CellContext`n$$], " \:9805"], 12], 
              If[
               OddQ[$CellContext`n$$], {1.3, 1.5}, {1.5, -2}]], 
             Text[
              Style["y=log(1+x)", 20], {1.5, 0.5}], 
             Text[
              Style[
               StringJoin["y= ", 
                ToString[$CellContext`str$, StandardForm]], 
               RGBColor[0, 0, 1], Background -> $CellContext`background$$], {
              0.5, -3}]}]], 
       "Specifications" :> {{{$CellContext`n$$, 5, "\:7b2cn\:9805"}, 1, 14, 1,
           Appearance -> "Labeled"}, {{$CellContext`background$$, 
           RGBColor[0, 1, 1], "\:80cc\:666f\:8272"}, 
          RGBColor[0, 1, 1]}}, "Options" :> {}, "DefaultOptions" :> {}],
      ImageSizeCache->{281., {127.625, 131.375}},
      SingleEvaluation->True],
     Deinitialization:>None,
     DynamicModuleValues:>{},
     SynchronousInitialization->True,
     UnsavedVariables:>{Typeset`initDone$$},
     UntrackedVariables:>{Typeset`size$$}], "Manipulate",
    Deployed->True,
    StripOnInput->False],
   Manipulate`InterpretManipulate[1]], 
  GraphicsBox[{InsetBox[
     GraphicsBox[
      RasterBox[{{180, 180, 180, 180, 180, 180, 180}, {180, 180, 180, 241, 
       180, 180, 180}, {180, 180, 180, 241, 180, 180, 180}, {180, 241, 241, 
       241, 241, 241, 180}, {180, 180, 182, 241, 180, 180, 180}, {180, 180, 
       180, 241, 180, 180, 180}, {180, 180, 180, 180, 180, 180, 181}}, {{
       1.281548086521185, -0.5512957698318754}, {4.962007268556342, 
       3.6446642519078365`}}, {0, 255},
       ColorFunction->GrayLevel],
      AspectRatio->0.8599999999999995,
      Background->None,
      BaselinePosition->Bottom,
      ImageMargins->0.,
      ImageSize->{50., 43.},
      PlotRange->{{0, 7}, {0, 7}}], {71.57519584549101, 21.586919125024792`}, 
     ImageScaled[{0., 0.}], {19.17365120745716, 23.694256973547162`}, {{
     0.38347302414912665`, 0.}, {-1.6923715769040222`*^-14, 
     0.5510292319429575}},
     ContentSelectable->True], InsetBox[
     GraphicsBox[
      RasterBox[{{{255, 0}, {180, 1}, {180, 92}, {180, 171}, {180, 230}, {180,
        230}, {180, 171}, {180, 92}, {180, 1}, {255, 0}}, {{180, 1}, {180, 
       128}, {180, 255}, {180, 255}, {180, 255}, {180, 255}, {180, 255}, {180,
        255}, {180, 128}, {180, 1}}, {{180, 92}, {180, 255}, {180, 255}, {180,
        255}, {240, 255}, {240, 255}, {180, 255}, {180, 255}, {180, 255}, {
       180, 92}}, {{180, 171}, {180, 255}, {180, 255}, {180, 255}, {240, 
       255}, {240, 255}, {180, 255}, {180, 255}, {180, 255}, {180, 171}}, {{
       180, 230}, {180, 255}, {240, 255}, {240, 255}, {240, 255}, {240, 
       255}, {240, 255}, {240, 255}, {180, 255}, {180, 230}}, {{180, 230}, {
       180, 255}, {240, 255}, {240, 255}, {240, 255}, {240, 255}, {240, 
       255}, {240, 255}, {180, 255}, {180, 230}}, {{180, 171}, {180, 255}, {
       180, 255}, {180, 255}, {240, 255}, {240, 255}, {180, 255}, {180, 
       255}, {180, 255}, {180, 171}}, {{180, 92}, {180, 255}, {180, 255}, {
       180, 255}, {240, 255}, {240, 255}, {180, 255}, {180, 255}, {180, 
       255}, {180, 92}}, {{180, 1}, {180, 128}, {180, 255}, {180, 255}, {180, 
       255}, {180, 255}, {180, 255}, {180, 255}, {180, 128}, {180, 1}}, {{255,
        0}, {180, 1}, {180, 92}, {180, 171}, {180, 230}, {180, 230}, {180, 
       171}, {180, 92}, {180, 1}, {255, 0}}}, {{0, 0}, {10, 10}}, {0, 255},
       ColorFunction->GrayLevel],
      ImageSize->{22., 22.},
      PlotRange->{{0, 10}, {0, 10}}], 
     Scaled[{0.16226473541443198`, 0.3027470539543795}], Center, 
     Scaled[{0.15016494759260016`, 0.08423948204211233}], {{
     0.30032989518514946`, 6.427674077274027*^-14}, {-5.099457833493709*^-14, 
     0.1684789640842895}}], 
    {GrayLevel[0.], AbsolutePointSize[3], AbsoluteThickness[0.5], Opacity[1], 
     Dashing[{}], Arrowheads[0.04], EdgeForm[None], 
     StyleBox[InsetBox[Cell["\<\
\:30a2\:30a4\:30b3\:30f3
\:ff08\:30a2\:30cb\:30e1\:30fc
 \:30b7\:30e7\:30f3\:30b3
 \:30f3\:30c8\:30ed\:30fc
 \:30eb\:306e\:8868\:793a
\:30fb\:975e\:8868\:793a\:ff09\
\>"], {88.93990902812331, 1.4866016655242031`}, {-1., 0.}],
      FontColor->GrayLevel[0.]]}, 
    {GrayLevel[0.], AbsolutePointSize[3], AbsoluteThickness[0.5], Opacity[1], 
     Dashing[{}], Arrowheads[0.04], EdgeForm[None], 
     StyleBox[InsetBox[Cell["\<\
\:30e1\:30cb\:30e5\:30fc
(\:81ea\:52d5\:5b9f\:884c\:ff09\
\>"], {89.40489643280593, -69.80064394682472}, {-1., 0.}],
      FontColor->GrayLevel[0.]]}, InsetBox[
     GraphicsBox[{},
      PlotRange->{{0, 1}, {0, 1}}], {86.62720005929711, -26.83684904416605}, 
     Center, {25.736396579791673`, 55.17468688200391}], 
    {GrayLevel[0.], AbsolutePointSize[3], AbsoluteThickness[0.5], Opacity[1], 
     Dashing[{}], Arrowheads[0.04], EdgeForm[None], 
     StyleBox[
      ArrowBox[{{-5.664556962025344, -13.898734177215147`}, \
{-27.24683544303798, 3.7594936708861155`}}],
      FontColor->GrayLevel[0.]]}, InsetBox[Cell["\<\
\:3053\:308c\:3089\:3082\:4f7f\:7528
\:3057\:3066\:307f\:3088\:3046\:ff01\
\>"], {86.27208593971893, -102.20056930944286`}, {-1., 0.}, 
     Offset[{121.00000000000001`, 35.59402815702684}, {0., 0.}], {{
     1.0000000000000144`, 0.}, {1.4246300122352544`*^-14, 
     2.966169013085569}}], InsetBox[
     GraphicsBox[{},
      PlotRange->{{0, 1}, {0, 1}}], Scaled[{0.5, 0.5}], Center, 
     Scaled[{0.5, 0.5}]], 
    {Arrowheads[{{0.17099999999999999`, 1, {
         GraphicsBox[{
           EdgeForm[None], 
           Dashing[{}], 
           
           PolygonBox[{{-1, 0.5}, {0, 
             0}, {-1, -0.5}, {-0.6, 0}, {-1, 0.5}}]}], 0.59}}}], 
     ArrowBox[{{82.33780062933172, -40.63052076466715}, {73.54236543455443, 
      8.413645352669619}}]}},
   AspectRatio->2.466666666666667,
   Background->None,
   ContentSelectable->True,
   ImageMargins->0.,
   ImagePadding->0.,
   ImageSize->{82., 206.},
   PlotRange->{{69.469602339436, 139.8157529908666}, {-111.99999999999986`, 
    43.}},
   PlotRangePadding->None]}]], "Input",
 CellChangeTimes->{3.4113512806028786`*^9, 3.411351320799879*^9, 
  3.411351356099879*^9}],

Cell["", "PageBreak",
 PageBreakBelow->True],

Cell[BoxData[{"\:30aa\:30a4\:30e9\:30fc\:5b9a\:6570\:306e\:5b9a\:7fa9", "\
\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   StyleBox["Mathematica",
    FontFamily->"Courier New",
    FontSlant->"Italic"], 
   StyleBox[" ",
    FontFamily->"Courier New"], 
   StyleBox[
    RowBox[{
     StyleBox["\:3067",
      FontFamily->"Courier New"], "\:30aa\:30a4\:30e9\:30fc\:5b9a\:6570"}]], 
   " ", "\:306f\:ff0c", "\:3000", 
   RowBox[{
    UnderscriptBox["lim", 
     RowBox[{"n", "\[Rule]", "\[Infinity]"}]], 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       UnderoverscriptBox["\[Sum]", 
        RowBox[{"k", "=", "1"}], "n"], 
       FractionBox["1", "k"]}], "-", 
      RowBox[{"log", "  ", "n"}]}], ")"}]}]}], "  ", "=", " ", 
  "EulerGamma"}], "\[IndentingNewLine]", \
"\:3068\:5b9a\:7fa9\:3055\:308c\:3066\:3044\:307e\:3059\:ff0e", "\
\[IndentingNewLine]", 
 RowBox[{"\:3000", 
  StyleBox[
   RowBox[{
   "\:306a\:304a\:ff0c\:7b2c\:ff4e\:9805\:307e\:3067\:306e\:548c", "\:3000"}],
   
   FontFamily->"Courier New"]}], "\[IndentingNewLine]", 
 StyleBox[
  RowBox[{"        ", 
   RowBox[{
    RowBox[{
     RowBox[{"HarmonicNumber", "[", "n", "]"}], "=", 
     RowBox[{
      UnderoverscriptBox["\[Sum]", 
       RowBox[{"k", "=", "1"}], "n"], 
      FractionBox["1", "k"]}]}], ",", 
    RowBox[{
     RowBox[{"HarmonicNumber", "[", 
      RowBox[{"n", ",", "s"}], "]"}], "=", 
     RowBox[{
      UnderoverscriptBox["\[Sum]", 
       RowBox[{"k", "=", "1"}], "n"], 
      FractionBox["1", 
       SuperscriptBox["k", "s"]]}]}]}], "\:3000"}],
  FontFamily->"Courier New"], "\[IndentingNewLine]", 
 StyleBox["\:304c\:7528\:610f\:3055\:308c\:3066\:3044\:307e\:3059\:ff0e",
  FontFamily->"Courier New"]}], "Input",
 CellDingbat->"\[FilledSquare]",
 CellChangeTimes->{{3.409355420423058*^9, 3.409355428405058*^9}, 
   3.409355607008058*^9, {3.4101725809063997`*^9, 3.4101725861334*^9}},
 FontFamily->"Courier New",
 Background->RGBColor[
  0.4666666666666667, 0.8352941176470589, 0.8235294117647058]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", "  ", 
   RowBox[{
    UnderoverscriptBox["\[Sum]", 
     RowBox[{"k", "=", "1"}], "9"], 
    RowBox[{
     FractionBox["1", "k"], "  ", "\:306e\:8a08\:7b97\:4f8b"}]}], 
   "\:3000\:3000", "*)"}], "   ", "\[IndentingNewLine]", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"Sum", "[", 
     RowBox[{
      FractionBox["1", "k"], ",", 
      RowBox[{"{", 
       RowBox[{"k", ",", "1", ",", "9"}], "}"}]}], "]"}], ",", 
    RowBox[{
     UnderoverscriptBox["\[Sum]", 
      RowBox[{"k", "=", "1"}], "9"], 
     FractionBox["1", "k"]}], ",", 
    RowBox[{
     FractionBox["1", "1"], "+", 
     FractionBox["1", "2"], "+", 
     FractionBox["1", "3"], "+", 
     FractionBox["1", "4"], "+", 
     FractionBox["1", "5"], "+", 
     FractionBox["1", "6"], "+", 
     FractionBox["1", "7"], "+", 
     FractionBox["1", "8"], "+", 
     FractionBox["1", "9"]}], ",", 
    RowBox[{"HarmonicNumber", "[", "9", "]"}], ",", 
    RowBox[{
     RowBox[{"HarmonicNumber", "[", "9", "]"}], "//", "N"}]}], 
   "}"}]}]], "Input",
 CellChangeTimes->{{3.409355652765058*^9, 3.4093556585060577`*^9}},
 FontFamily->"Courier New",
 CellLabel->"In[2]:="],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   FractionBox["7129", "2520"], ",", 
   FractionBox["7129", "2520"], ",", 
   FractionBox["7129", "2520"], ",", 
   FractionBox["7129", "2520"], ",", "2.828968253968254`"}], "}"}]], "Output",\

 CellChangeTimes->{3.4093556674580584`*^9, 3.4104301473282003`*^9, 
  3.4104306899653997`*^9, 3.410515555083826*^9, 3.411011008259*^9, 
  3.411011812337*^9, 3.411351029867879*^9, 3.411351382190879*^9, 
  3.413803065175647*^9, 3.413850487788071*^9, 3.413925486441448*^9},
 FontFamily->"Courier New",
 FontWeight->"Bold",
 CellLabel->"Out[2]="]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
  "(*", "  ", 
   "\:30aa\:30a4\:30e9\:30fc\:5b9a\:6570\:306e\:5024\:306e\:8868\:793a", "  ",
    "*)"}], " ", "\[IndentingNewLine]", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"EulerGamma", "//", "N"}], ",", 
    RowBox[{"N", "[", 
     RowBox[{"EulerGamma", ",", "32"}], "]"}], ",", 
    RowBox[{"N", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"HarmonicNumber", "[", 
        SuperscriptBox["10", "5"], "]"}], "-", 
       RowBox[{"Log", "[", 
        SuperscriptBox["10", "5"], "]"}]}], ",", "18"}], "]"}]}], 
   "}"}]}]], "Input",
 FontFamily->"Courier New",
 CellLabel->"In[3]:="],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "0.5772156649015329`", ",", 
   "0.577215664901532860606512090082402422575155745097`32.", ",", 
   "0.57722066489319952727326209009`18."}], "}"}]], "Output",
 CellChangeTimes->{3.4093557953210583`*^9, 3.4104301547702*^9, 
  3.4104306937444*^9, 3.4105155588628263`*^9, 3.411011011942*^9, 
  3.411011815822*^9, 3.411351034098879*^9, 3.411351388945879*^9, 
  3.413803073565647*^9, 3.4138504933580713`*^9, 3.413925490509448*^9},
 FontFamily->"Courier New",
 FontWeight->"Bold",
 CellLabel->"Out[3]="]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.4105165176458263`*^9, 3.4105165193288264`*^9}}],

Cell[BoxData[{
 RowBox[{"\:7279\:6b8a\:95a2\:6570", 
  RowBox[{"(", 
   RowBox[{"Special", " ", "Functions"}], 
   ")"}]}], "\[IndentingNewLine]", \
"\:306f\:7d1a\:6570\:306e\:548c\:3084\:5fae\:5206\:65b9\:7a0b\:5f0f\:306e\
\:89e3\:ff0c\:7a4d\:5206\:7d50\:679c\:306a\:3069\:3067", \
"\[IndentingNewLine]", 
 RowBox[{"\:521d\:7b49\:95a2\:6570", 
  RowBox[{
  "\:ff08", 
   "\:4ee3\:6570\:95a2\:6570\:ff0c\:6307\:6570\:30fb\:5bfe\:6570\:30fb\:4e09\
\:89d2\:30fb\:9006\:4e09\:89d2\:95a2\:6570\:3084\:3053\:308c\:3089\:306e\:5408\
\:6210\:95a2\:6570", "\:ff09"}]}], "\[IndentingNewLine]", 
 RowBox[{"\:3067\:306f\:8868\:305b\:306a\:3044\:95a2\:6570\:3067\:3059\:ff0e",
   "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"\:3000", "\:4f8b"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Zeta", " ", "\:95a2\:6570\:ff1a", "\:3000", "\[Zeta]", 
   RowBox[{"(", "x", ")"}]}], "=", 
  RowBox[{
   UnderoverscriptBox["\[Sum]", 
    RowBox[{"n", "=", "1"}], "\[Infinity]"], 
   RowBox[{
    FractionBox["1", 
     SuperscriptBox["n", "x"]], 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"x", ">", "1"}], ")"}], "  \:3000", "[", 
     RowBox[{
      RowBox[{
      "\:53c2\:7167\:ff1a\:6f14\:7fd2\:554f\:984c", "\:3000", "\:ff11"}], 
      "\:2212", 
      RowBox[{"\:ff11", "  ", "3.", " ", 
       RowBox[{"(", 
        RowBox[{"p", ".9"}], ")"}], " ", "\:306e\:89e3\:7b54"}]}], 
     "]"}]}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"\:8aa4\:5dee\:95a2\:6570\:ff1aErf", "[", "x", "]"}], "=", 
   RowBox[{
    FractionBox["2", 
     SqrtBox["\[Pi]"]], 
    RowBox[{
     SubsuperscriptBox["\[Integral]", "0", "x"], 
     RowBox[{
      SuperscriptBox["e", 
       RowBox[{"-", 
        SuperscriptBox["t", "2"]}]], 
      RowBox[{"\[DifferentialD]", "t"}]}]}]}]}], ",", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
   "\:7a4d\:5206\:6b63\:5f26\:95a2\:6570\:ff1aSinIntegral", "[", "x", "]"}], 
   "=", 
   RowBox[{
    SubsuperscriptBox["\[Integral]", "0", "x"], 
    RowBox[{
     FractionBox[
      RowBox[{"sin", " ", "t"}], "t"], 
     RowBox[{"\[DifferentialD]", "t"}]}]}]}], ",", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
   "\:7a4d\:5206\:4f59\:5f26\:95a2\:6570\:ff1aCosIntegral", "[", "x", "]"}], 
   "=", 
   RowBox[{"-", 
    RowBox[{
     SubsuperscriptBox["\[Integral]", "x", "\[Infinity]"], 
     RowBox[{
      FractionBox[
       RowBox[{"cos", " ", "t"}], "t"], 
      RowBox[{"\[DifferentialD]", "t"}]}]}]}]}]}], "\[IndentingNewLine]", 
 RowBox[{"\:3000", 
  RowBox[{
   StyleBox[
    RowBox[{"\:4ee5\:964d\:ff0c", 
     StyleBox["Mathematica",
      FontFamily->"Courier New",
      FontSlant->"Italic"]}]], 
   StyleBox[" ",
    FontFamily->"Courier New"], 
   StyleBox[
    RowBox[{
     StyleBox[
      "\:306b\:7528\:610f\:3055\:308c\:3066\:3044\:308b\:3044\:308d\:3044\
\:308d\:306e",
      FontFamily->"Courier New"], 
     "\:7279\:6b8a\:95a2\:6570\:3092\:5229\:7528\:3057\:307e\:3059\:ff0e"}]]}]\
}]}], "Input",
 CellDingbat->"\[FilledSquare]",
 CellChangeTimes->{{3.4110190648380003`*^9, 3.411019077293*^9}},
 FontFamily->"Courier New",
 Background->RGBColor[
  0.4666666666666667, 0.8352941176470589, 0.8235294117647058]],

Cell["", "PageBreak",
 PageBreakBelow->True],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    UnderoverscriptBox["\[Sum]", 
     RowBox[{"n", "=", "1"}], "\[Infinity]"], 
    FractionBox["1", 
     SuperscriptBox["n", "1.2"]]}], ",", 
   RowBox[{
    UnderoverscriptBox["\[Sum]", 
     RowBox[{"n", "=", "1"}], "\[Infinity]"], 
    FractionBox["1", 
     SuperscriptBox["n", "2"]]}], ",", 
   RowBox[{
    UnderoverscriptBox["\[Sum]", 
     RowBox[{"n", "=", "1"}], "\[Infinity]"], 
    FractionBox["1", 
     SuperscriptBox["n", "3.0"]]}], ",", 
   RowBox[{
    UnderoverscriptBox["\[Sum]", 
     RowBox[{"n", "=", "1"}], "\[Infinity]"], 
    FractionBox["1", 
     SuperscriptBox["n", "4"]]}], ",", 
   RowBox[{
    RowBox[{
     UnderoverscriptBox["\[Sum]", 
      RowBox[{"n", "=", "1"}], "\[Infinity]"], 
     FractionBox["1", 
      SuperscriptBox["n", "5"]]}], "//", "N"}], ",", 
   RowBox[{
    RowBox[{"Zeta", "[", "10", "]"}], "//", "N"}]}], "}"}]], "Input",
 FontFamily->"Courier New",
 CellLabel->"In[4]:="],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"5.591582441177752`", ",", 
   FractionBox[
    SuperscriptBox["\[Pi]", "2"], "6"], ",", "1.2020569031595942`", ",", 
   FractionBox[
    SuperscriptBox["\[Pi]", "4"], "90"], ",", "1.0369277551433698`", ",", 
   "1.0009945751278178`"}], "}"}]], "Output",
 CellChangeTimes->{3.4093559814470577`*^9, 3.4104301751952*^9, 
  3.4104306984034*^9, 3.4105155654688263`*^9, 3.4110110186949997`*^9, 
  3.41101182074*^9, 3.411351040210879*^9, 3.413803089945647*^9, 
  3.413850508633071*^9, 3.4139255121704483`*^9},
 FontFamily->"Courier New",
 FontWeight->"Bold",
 CellLabel->"Out[4]="]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    UnderoverscriptBox["\[Sum]", 
     RowBox[{"n", "=", "0"}], "\[Infinity]"], 
    FractionBox[
     RowBox[{
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"-", "1"}], ")"}], "n"], 
      SuperscriptBox["x", 
       RowBox[{
        RowBox[{"2", "n"}], "+", "1"}]]}], 
     RowBox[{
      RowBox[{"n", "!"}], 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"2", "n"}], "+", "1"}], ")"}]}]]}], ",", 
   RowBox[{
    UnderoverscriptBox["\[Sum]", 
     RowBox[{"n", "=", "0"}], "\[Infinity]"], 
    FractionBox[
     RowBox[{
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"-", "1"}], ")"}], "n"], 
      SuperscriptBox["x", 
       RowBox[{
        RowBox[{"2", "n"}], "+", "1"}]]}], 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"2", "n"}], "+", "1"}], ")"}], "!"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"2", "n"}], "+", "1"}], ")"}]}]]}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{
    UnderoverscriptBox["\[Sum]", 
     RowBox[{"n", "=", "1"}], "\[Infinity]"], 
    FractionBox[
     RowBox[{
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"-", "1"}], ")"}], 
       RowBox[{"n", "-", "1"}]], 
      SuperscriptBox["x", 
       RowBox[{"2", "n"}]]}], 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"2", "n"}], ")"}], "!"}], " ", 
      RowBox[{"(", 
       RowBox[{"2", "n"}], ")"}]}]]}], ",", 
   RowBox[{"Series", "[", 
    RowBox[{
     RowBox[{"CosIntegral", "[", "x", "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "0", ",", "10"}], "}"}]}], "]"}]}], "}"}]], "Input",
 FontFamily->"Courier New",
 CellLabel->"In[5]:="],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    FractionBox["1", "2"], " ", 
    SqrtBox["\[Pi]"], " ", 
    RowBox[{"Erf", "[", "x", "]"}]}], ",", 
   RowBox[{"SinIntegral", "[", "x", "]"}], ",", 
   RowBox[{"EulerGamma", "-", 
    RowBox[{"CosIntegral", "[", "x", "]"}], "+", 
    RowBox[{"Log", "[", "x", "]"}]}], ",", 
   InterpretationBox[
    RowBox[{
     RowBox[{"(", 
      RowBox[{"EulerGamma", "+", 
       RowBox[{"Log", "[", "x", "]"}]}], ")"}], "-", 
     FractionBox[
      SuperscriptBox["x", "2"], "4"], "+", 
     FractionBox[
      SuperscriptBox["x", "4"], "96"], "-", 
     FractionBox[
      SuperscriptBox["x", "6"], "4320"], "+", 
     FractionBox[
      SuperscriptBox["x", "8"], "322560"], "-", 
     FractionBox[
      SuperscriptBox["x", "10"], "36288000"], "+", 
     InterpretationBox[
      SuperscriptBox[
       RowBox[{"O", "[", "x", "]"}], "11"],
      SeriesData[$CellContext`x, 0, {}, 0, 11, 1],
      Editable->False]}],
    SeriesData[$CellContext`x, 0, {EulerGamma + Log[$CellContext`x], 0, 
      Rational[-1, 4], 0, 
      Rational[1, 96], 0, 
      Rational[-1, 4320], 0, 
      Rational[1, 322560], 0, 
      Rational[-1, 36288000]}, 0, 11, 1],
    Editable->False]}], "}"}]], "Output",
 CellChangeTimes->{3.409356206049058*^9, 3.4104302046152*^9, 
  3.4104307050034*^9, 3.4105155720568266`*^9, 3.4110110276870003`*^9, 
  3.4110118272200003`*^9, 3.4113510475768785`*^9, 3.4138031003536468`*^9, 
  3.413850517621071*^9, 3.4139255198834476`*^9},
 FontFamily->"Courier New",
 FontWeight->"Bold",
 CellLabel->"Out[5]="]
}, Open  ]],

Cell["", "Input",
 CellChangeTimes->{3.409356227468058*^9},
 FontFamily->"Courier New"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   UnderoverscriptBox["\[Sum]", 
    RowBox[{"k", "=", "1"}], "\[Infinity]"], 
   RowBox[{
    FractionBox["1", 
     RowBox[{
      RowBox[{"2", "k"}], "+", "1"}]], "\:3000", 
    "\:306f\:53ce\:675f\:3057\:307e\:305b\:3093\:ff0e", "\:3000", 
    "\:4f8b\:3048\:3070\:ff0c", "\:3000", 
    RowBox[{
     UnderoverscriptBox["\[Sum]", 
      RowBox[{"k", "=", "1"}], "n"], 
     RowBox[{
      FractionBox["1", 
       RowBox[{
        RowBox[{"2", "k"}], "+", "1"}]], " \:3000", "\:304c", "\:3000", 
      "n"}]}]}]}], "\[GreaterFullEqual]", 
  RowBox[{
  "10", " ", "\:306b\:3064\:3044\:3066\:ff0c"}]}], "\[IndentingNewLine]", 
 RowBox[{"\:6b21\:306e", 
  RowBox[{"(", "1", ")"}], "\:301c", 
  RowBox[{"(", "6", ")"}], 
  "\:306e\:624b\:9806\:306b\:3057\:305f\:304c\:3063\:3066\:6c42\:3081\:3066\
\:307f\:307e\:3057\:3087\:3046\:ff0e"}]}], "Input",
 CellDingbat->"\[FilledSquare]",
 CellChangeTimes->{{3.409356277752058*^9, 3.409356316114058*^9}, {
  3.4093564816160583`*^9, 3.409356511396058*^9}, {3.411019098566*^9, 
  3.411019103064*^9}},
 FontFamily->"Courier New",
 Background->RGBColor[
  0.4666666666666667, 0.8352941176470589, 0.8235294117647058]],

Cell[BoxData[
 RowBox[{"\:3000", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"(", "1", ")"}], "\:3000", "\:30b7\:30b0\:30de\:306f\:ff0c", 
     "\:3000", "n"}], "=", 
    RowBox[{
     SuperscriptBox["10", "5"], "\:3000", 
     "\:7a0b\:5ea6\:3092\:8d85\:3048\:308b\:3068\:8a08\:7b97\:6642\:9593\:304c\
\:304b\:304b\:308b\:3088\:3046\:306b"}]}], "\[IndentingNewLine]", 
   "\:3000\:3000\:3000", "\:306a\:308a\:307e\:3059\:ff0e"}]}]], "Input",
 CellChangeTimes->{
  3.409356568618058*^9, {3.4105159409868264`*^9, 3.4105159450758266`*^9}},
 FontFamily->"Courier New"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    UnderoverscriptBox["\[Sum]", 
     RowBox[{"k", "=", "1"}], 
     SuperscriptBox["10", "5"]], 
    FractionBox["1", 
     RowBox[{
      RowBox[{"2", "k"}], "+", "1"}]]}], "//", "N"}], "//", 
  "Timing"}]], "Input",
 CellChangeTimes->{3.409356576391058*^9},
 FontFamily->"Courier New",
 CellLabel->"In[6]:="],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"13.822000000000001`", ",", "5.73822274547291`"}], "}"}]], "Output",\

 CellChangeTimes->{3.409356549805058*^9, 3.409356594378058*^9, 
  3.4104098877888002`*^9, 3.4104302530312*^9, 3.4104307246724*^9, 
  3.410515594017826*^9, 3.4110110505220003`*^9, 3.41101184763*^9, 
  3.4113510691268787`*^9, 3.413803120970647*^9, 3.4138505389930716`*^9, 
  3.413925559995448*^9},
 FontFamily->"Courier New",
 FontWeight->"Bold",
 CellLabel->"Out[6]="]
}, Open  ]],

Cell["\<\
\:3000(2)\:3000\:6b21\:306e\:3088\:3046\:306b\:ff4e\:3092\:5148\:306b\:6c7a\
\:3081\:3066\:304a\:304f\:3068\:8a08\:7b97\:6642\:9593\:304c\:65e9\:304f\:306a\
\:308a\:307e\:3059\:ff0e\
\>", "Input",
 CellChangeTimes->{{3.410515949548826*^9, 3.4105159543558264`*^9}},
 FontFamily->"Courier New"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"n", "=", 
   SuperscriptBox["10", "10"]}], ";", 
  RowBox[{
   RowBox[{
    RowBox[{
     UnderoverscriptBox["\[Sum]", 
      RowBox[{"k", "=", "1"}], "n"], 
     FractionBox["1", 
      RowBox[{
       RowBox[{"2", "k"}], "+", "1"}]]}], "//", "N"}], "//", 
   "Timing"}]}]], "Input",
 FontFamily->"Courier New",
 CellLabel->"In[7]:="],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0.03100000000000068`", ",", "11.49468047803094`"}], 
  "}"}]], "Output",
 CellChangeTimes->{3.409356677035058*^9, 3.4104099055678*^9, 
  3.4104302651202*^9, 3.4104307301094*^9, 3.4105155986308265`*^9, 
  3.411011056433*^9, 3.411011854113*^9, 3.411351074625879*^9, 
  3.413803121114647*^9, 3.4138505468920712`*^9, 3.413925563589448*^9},
 FontFamily->"Courier New",
 FontWeight->"Bold",
 CellLabel->"Out[7]="]
}, Open  ]],

Cell[BoxData[
 RowBox[{"\:3000", 
  RowBox[{
   RowBox[{"(", "3", ")"}], "\:3000", 
   RowBox[{
    UnderoverscriptBox["\[Sum]", 
     RowBox[{"k", "=", "1"}], "n"], 
    RowBox[{
     FractionBox["1", 
      RowBox[{
       RowBox[{"2", "k"}], "+", "1"}]], "\:3000", 
     "\:3092\:5b9f\:884c\:3059\:308b\:3068\:6b21\:306e\:3088\:3046\:306a\:5f0f\
\:304c\:3048\:3089\:308c\:307e\:3059\:ff0e"}]}]}]}]], "Input",
 CellChangeTimes->{{3.4105159579628267`*^9, 3.4105159595878267`*^9}},
 FontFamily->"Courier New"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"n", "=."}], ";", 
  RowBox[{"eq1", "=", 
   RowBox[{
    UnderoverscriptBox["\[Sum]", 
     RowBox[{"k", "=", "1"}], "n"], 
    FractionBox["1", 
     RowBox[{
      RowBox[{"2", "k"}], "+", "1"}]]}]}]}]], "Input",
 FontFamily->"Courier New",
 CellLabel->"In[8]:="],

Cell[BoxData[
 RowBox[{
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "2"}], "+", "EulerGamma", "+", 
     RowBox[{"Log", "[", "4", "]"}]}], ")"}]}], "+", 
  RowBox[{
   FractionBox["1", "2"], " ", 
   RowBox[{"PolyGamma", "[", 
    RowBox[{"0", ",", 
     RowBox[{
      FractionBox["3", "2"], "+", "n"}]}], "]"}]}]}]], "Output",
 CellChangeTimes->{3.409356735587058*^9, 3.409396081389671*^9, 
  3.4104302796392*^9, 3.4104307385564003`*^9, 3.4105156145128264`*^9, 
  3.4110110675810003`*^9, 3.411011860613*^9, 3.411351087321879*^9, 
  3.4138031348096466`*^9, 3.413850555788071*^9, 3.413925571114448*^9},
 FontFamily->"Courier New",
 FontWeight->"Bold",
 CellLabel->"Out[8]="]
}, Open  ]],

Cell["", "PageBreak",
 PageBreakBelow->True],

Cell[BoxData[
 RowBox[{"\:3000", 
  RowBox[{
   RowBox[{
    RowBox[{"(", "4", ")"}], "\:3000", "\:3053\:306e\:5f0f", " ", 
    RowBox[{"(", "eq1", ")"}], 
    "\:3092\:4f7f\:3063\:3066\:5024\:3092\:8abf\:3079\:308b\:3053\:3068\:304c\
\:3067\:304d\:307e\:3059\:ff0e"}], "\[IndentingNewLine]", "\:3000\:3000 ", 
   RowBox[{"\:7279\:6b8a\:95a2\:6570", "\:3000", 
    RowBox[{"PolyGamma", "[", 
     RowBox[{"0", ",", "n"}], "]"}], " ", 
    "\:306f\:ff0c\:30ac\:30f3\:30de\:95a2\:6570", 
    RowBox[{"\:ff08", "\:7279\:6b8a\:95a2\:6570", "\:ff09"}]}], 
   "\[IndentingNewLine]", "\:3000\:3000 ", 
   RowBox[{"\[CapitalGamma]", 
    RowBox[{"(", "x", ")"}], " ", "\:306b\:3064\:3044\:3066"}], 
   "\[IndentingNewLine]", "\:3000\:3000 ", 
   RowBox[{
    RowBox[{"\[CurlyPhi]", 
     RowBox[{"(", "x", ")"}]}], "=", 
    RowBox[{
     RowBox[{"\[CapitalGamma]", "'"}], 
     RowBox[{
      RowBox[{"(", "x", ")"}], "/", "\[CapitalGamma]"}], 
     RowBox[{"(", "x", ")"}], " ", 
     "\:306e\:ff4e\:6b21\:5c0e\:95a2\:6570\:3068\:5b9a\:7fa9\:3055\:308c\:3066\
\:3044\:307e\:3059\:ff0e"}]}], "\n", "\:3000     ", 
   RowBox[{
    RowBox[{"\:305f\:3060\:3057\:ff0cPolyGamma", "[", "x", "]"}], "=", 
    RowBox[{
     RowBox[{"PolyGamma", "[", 
      RowBox[{"0", ",", "x"}], "]"}], "=", 
     RowBox[{
      RowBox[{
       SuperscriptBox["\[CurlyPhi]", 
        RowBox[{"(", "0", ")"}]], 
       RowBox[{"(", "x", ")"}]}], "=", 
      RowBox[{"\[CurlyPhi]", 
       RowBox[{"(", "x", ")"}], " ", 
       RowBox[{
       "\:3067\:3059\:ff0e", "\[IndentingNewLine]", "              ", "[", 
        RowBox[{
        "\:53c2\:7167\:ff1a", "\:3000", 
         "\:30ac\:30f3\:30de\:95a2\:6570\:ff0c\:7b2c\:ff15\:7ae0"}], 
        "]"}]}]}]}]}]}]}]], "Input",
 CellChangeTimes->{{3.4104302976302*^9, 3.4104303225872*^9}, {
  3.4105159703798265`*^9, 3.4105159717368264`*^9}, {3.4110117086280003`*^9, 
  3.411011755092*^9}},
 FontFamily->"Courier New"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"eq1", "/.", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"n", "\[Rule]", 
       RowBox[{"4.9", "*", 
        SuperscriptBox["10", "8"]}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"n", "->", 
       RowBox[{"5", "*", 
        SuperscriptBox["10", "8"]}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"n", "\[Rule]", 
       RowBox[{"5.1", "*", 
        SuperscriptBox["10", "8"]}]}], "}"}]}], "}"}]}], "//", "N"}]], "Input",\

 CellChangeTimes->{{3.411011377244*^9, 3.411011391098*^9}, {3.411011428203*^9,
   3.411011541429*^9}, {3.411011602021*^9, 3.411011629927*^9}},
 FontFamily->"Courier New",
 CellLabel->"In[9]:="],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "9.986712988565595`", ",", "9.996814342203946`", ",", 
   "10.006715655832426`"}], "}"}]], "Output",
 CellChangeTimes->{
  3.409356871879058*^9, 3.4104303472562*^9, 3.4104307511224003`*^9, 
   3.4105156316798267`*^9, 3.411011587652*^9, {3.4110116226070004`*^9, 
   3.4110116335*^9}, 3.411011867652*^9, 3.4113510952748785`*^9, 
   3.4138031555406466`*^9, 3.4138505630730715`*^9, 3.413925579037448*^9},
 FontFamily->"Courier New",
 FontWeight->"Bold",
 CellLabel->"Out[9]="]
}, Open  ]],

Cell[BoxData[
 RowBox[{"\:3000", 
  RowBox[{
   RowBox[{"(", "5", ")"}], "\:3000", 
   RowBox[{
    UnderoverscriptBox["\[Sum]", 
     RowBox[{"k", "=", "1"}], "n"], 
    RowBox[{
     FractionBox["1", 
      RowBox[{
       RowBox[{"2", "k"}], "+", "1"}]], 
     "\:304c\:ff11\:ff10\:3092\:8d85\:3048\:308b\:ff4e\:3092\:898b\:3064\:3051\
\:3066\:307f\:307e\:3057\:3087\:3046\:ff0e"}]}]}]}]], "Input",
 CellChangeTimes->{{3.4093569985830584`*^9, 3.409357049048058*^9}, {
   3.4105158207188263`*^9, 3.4105158428238263`*^9}, 3.410515885529826*^9, {
   3.410515975595826*^9, 3.4105159800528264`*^9}, {3.41101155651*^9, 
   3.411011558377*^9}},
 FontFamily->"Courier New"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"n", "=."}], ";", 
  RowBox[{"FindRoot", "[", 
   RowBox[{
    RowBox[{"eq1", "-", "10"}], ",", 
    RowBox[{"{", 
     RowBox[{"n", ",", 
      RowBox[{"5", "*", 
       SuperscriptBox["10", "8"]}]}], "}"}], ",", 
    RowBox[{"WorkingPrecision", "\[Rule]", "18"}]}], "]"}]}]], "Input",
 FontFamily->"Courier New",
 CellLabel->"In[10]:="],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"n", "\[Rule]", "5.031958278053339688498823993`18.*^8"}], 
  "}"}]], "Output",
 CellChangeTimes->{3.4093570713480577`*^9, 3.4104307636544*^9, 
  3.4105156384198265`*^9, 3.4110118739779997`*^9, 3.411351103950879*^9, 
  3.4138031649266467`*^9, 3.413850568308071*^9, 3.413925582695448*^9},
 FontFamily->"Courier New",
 FontWeight->"Bold",
 CellLabel->"Out[10]="]
}, Open  ]],

Cell[BoxData[
 RowBox[{"\:3000", 
  RowBox[{
   RowBox[{
    RowBox[{"(", "6", ")"}], " \:3000", 
    "\:4e0b\:56f3\:306e\:5ea7\:6a19\:5185\:3067\:306e\:30af\:30ea\:30c3\:30af\
\:306b\:3088\:3063\:3066\:ff0c\:ff11\:ff10\:3092\:8d85\:3048\:308b\:ff4e\:306e\
\:6982\:6570\:3092\:5224\:65ad\:3057\:3066"}], "\[IndentingNewLine]", 
   "\:3000\:3000\:3000", 
   RowBox[{
   "\:307f\:307e\:3057\:3087\:3046\:ff0e\:30af\:30ea\:30c3\:30af\:4f4d\:7f6e\
\:304c", " ", 
    RowBox[{"{", 
     RowBox[{"n", ",", 
      RowBox[{
       UnderoverscriptBox["\[Sum]", 
        RowBox[{"k", "=", "1"}], "n"], 
       FractionBox["1", 
        RowBox[{
         RowBox[{"2", "k"}], "+", "1"}]]}]}], "}"}], " ", 
    "\:306e\:5024\:3092\:53d6\:5f97\:3057\:307e\:3059\:ff0e"}], 
   "\[IndentingNewLine]", "\:3000\:3000\:3000", 
   RowBox[{
   "n", " ", 
    "\:306e\:5024\:3092\:8868\:793a\:3055\:3057\:3066\:3044\:307e\:3059\:ff0e\
", "             "}]}]}]], "Input",
 CellChangeTimes->{{3.4108486336776347`*^9, 3.410848923224635*^9}, {
   3.410855041771835*^9, 3.410855050348835*^9}, 3.4108553588548346`*^9}],

Cell[BoxData[
 RowBox[{"\:3000\:3000", 
  RowBox[{
  "(", "\:7df4\:7fd2\:ff1a\:ff12\:3092\:8d85\:3048\:308b\:ff4e\:3092\:898b\
\:3064\:3051\:6613\:3044\:3088\:3046\:306b\:8ef8\:306e\:7bc4\:56f2\:3092\:5909\
\:66f4\:3057\:3066\:4e0b\:3055\:3044\:ff0e", ")"}]}]], "Input",
 CellChangeTimes->{{3.4108489775956345`*^9, 3.410848993543635*^9}, {
   3.410849036063635*^9, 3.410849081201635*^9}, {3.410849133337635*^9, 
   3.410849137247635*^9}, 3.4108531176568346`*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"DynamicModule", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"pt", "=", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"6", "*", 
         SuperscriptBox["10", "8"]}], " ", ",", "6"}], "}"}]}], ",", "eq1"}], 
    "}"}], ",", 
   RowBox[{
    RowBox[{"eq1", "=", 
     RowBox[{
      UnderoverscriptBox["\[Sum]", 
       RowBox[{"k", "=", "1"}], "n"], 
      FractionBox["1", 
       RowBox[{
        RowBox[{"2", "k"}], "+", "1"}]]}]}], ";", 
    RowBox[{"ClickPane", "[", 
     RowBox[{
      RowBox[{"Dynamic", "@", 
       RowBox[{"Show", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Plot", "[", 
           RowBox[{"eq1", ",", 
            RowBox[{"{", 
             RowBox[{"n", ",", "0", ",", 
              SuperscriptBox["10", "9"]}], "}"}], ",", 
            RowBox[{"PlotRange", "\[Rule]", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"-", "1"}], ",", "11"}], "}"}]}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"ImageSize", "\[Rule]", 
             RowBox[{"{", 
              RowBox[{"360", ",", "140"}], "}"}]}], ",", 
            RowBox[{"PlotStyle", "\[Rule]", "Black"}]}], "]"}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{"(*", " ", 
           RowBox[{
            RowBox[{"[", 
             RowBox[{"PlotStyle", "\[Rule]", 
              RowBox[{"Black", " ", "\:30aa\:30d7\:30b7\:30e7\:30f3"}]}], 
             "]"}], "\:3092\:4ee5\:964d\:306e\:30d7\:30ed\:30b0\:30e9\:30e0\
\:3067\:3082", "\[IndentingNewLine]", 
            "\:307b\:3068\:3093\:3069\:4f7f\:3063\:3066\:3044\:307e\:3059\
\:304c\:ff0c\:3053\:308c\:306f\:672c\:66f8\:304c\:30e2\:30ce\:30af\:30ed\:5370\
\:5237\:306e\:305f\:3081\:3067\:ff0c", "\[IndentingNewLine]", 
            "\:9069\:5b9c\:524a\:9664\:3057\:3066\:3082\:69cb\:3044\:307e\
\:305b\:3093\:ff0e"}], "*)"}], "\[IndentingNewLine]", 
          RowBox[{"Graphics", "[", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"Dashing", "[", "0.01", "]"}], ",", " ", 
             RowBox[{"Line", "[", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"{", 
                 RowBox[{"0", ",", "10"}], "}"}], ",", 
                RowBox[{"{", 
                 RowBox[{
                  SuperscriptBox["10", "10"], ",", "10"}], "}"}]}], "}"}], 
              "]"}], ",", "\[IndentingNewLine]", "Red", ",", 
             RowBox[{"PointSize", "\[Rule]", "0.03"}], ",", 
             RowBox[{"Point", "[", "pt", "]"}], ",", 
             RowBox[{"Inset", "[", 
              RowBox[{
               RowBox[{"Style", "[", 
                RowBox[{
                 RowBox[{"pt", "[", 
                  RowBox[{"[", "1", "]"}], "]"}], ",", "14"}], "]"}], ",", 
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"8", "*", 
                  SuperscriptBox["10", "8"]}], ",", "4"}], "}"}]}], "]"}], 
             ",", "\[IndentingNewLine]", 
             RowBox[{"{", 
              RowBox[{"Black", ",", 
               RowBox[{"Arrowheads", "[", "Large", "]"}], ",", 
               RowBox[{"Arrow", "[", 
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"{", 
                   RowBox[{
                    RowBox[{"pt", "[", 
                    RowBox[{"[", "1", "]"}], "]"}], ",", "0"}], "}"}], ",", 
                  RowBox[{"{", 
                   RowBox[{
                    RowBox[{"pt", "[", 
                    RowBox[{"[", "1", "]"}], "]"}], ",", 
                    RowBox[{"eq1", "/.", 
                    RowBox[{"{", 
                    RowBox[{"n", "->", 
                    RowBox[{"pt", "[", 
                    RowBox[{"[", "1", "]"}], "]"}]}], "}"}]}]}], "}"}]}], 
                 "}"}], "]"}]}], "}"}]}], "}"}], "]"}]}], "}"}], "]"}]}], ",",
       
      RowBox[{
       RowBox[{"(", 
        RowBox[{"pt", "=", "#"}], ")"}], "&"}]}], "]"}]}]}], 
  "\[IndentingNewLine]", "\:3000\:3000\:3000\:3000\:3000\:3000\:3000", 
  "]"}]], "Input",
 CellChangeTimes->{
  3.409387980441671*^9, 3.410428276245*^9, {3.4105133992144265`*^9, 
   3.410513401837426*^9}, {3.4105166393818264`*^9, 3.410516647274826*^9}, 
   3.410516787128826*^9, {3.410848235974635*^9, 3.410848248101635*^9}, 
   3.4108484080626345`*^9, {3.410849187061635*^9, 3.4108491954606347`*^9}, {
   3.410853328930835*^9, 3.4108533334708347`*^9}, {3.410854972883835*^9, 
   3.410855027280835*^9}, {3.410855062070835*^9, 3.410855214954835*^9}, {
   3.4108552585928345`*^9, 3.410855338902835*^9}, {3.411019180152*^9, 
   3.411019183837*^9}},
 FontFamily->"Courier New",
 FontColor->GrayLevel[0],
 CellLabel->"In[11]:="],

Cell[BoxData[
 DynamicModuleBox[{$CellContext`pt$$ = {2.349468415847575*^8, 
  2.7071369975389654`}, $CellContext`eq1$$ = 
  Rational[1, 2] (-2 + EulerGamma + Log[4]) + 
  Rational[1, 2] PolyGamma[0, Rational[3, 2] + $CellContext`n]}, 
  TagBox[
   DynamicBox[ToBoxes[
     Show[{
       Plot[$CellContext`eq1$$, {$CellContext`n, 0, 10^9}, 
        PlotRange -> {-1, 11}, ImageSize -> {360, 140}, PlotStyle -> Black], 
       Graphics[{
         Dashing[0.01], 
         Line[{{0, 10}, {10^10, 10}}], Red, PointSize -> 0.03, 
         Point[$CellContext`pt$$], 
         Inset[
          Style[
           Part[$CellContext`pt$$, 1], 14], {8 10^8, 4}], {Black, 
          Arrowheads[Large], 
          Arrow[{{
             Part[$CellContext`pt$$, 1], 0}, {
             Part[$CellContext`pt$$, 1], 
             
             ReplaceAll[$CellContext`eq1$$, {$CellContext`n -> 
               Part[$CellContext`pt$$, 1]}]}}]}}]}], StandardForm],
    ImageSizeCache->{288., {55., 57.}}],
   EventHandlerTag[{"MouseClicked" :> (($CellContext`pt$$ = #)& )[
       MousePosition["EventHandlerAutomatic"]], PassEventsDown -> Automatic, 
     PassEventsUp -> True}]],
  DynamicModuleValues:>{}]], "Output",
 CellChangeTimes->{
  3.410428335906*^9, 3.4104307672584*^9, 3.410511605060026*^9, 
   3.4105134071164265`*^9, 3.4105156527668266`*^9, {3.410848240037635*^9, 
   3.410848249221635*^9}, 3.410849202217635*^9, 3.4108533388588347`*^9, 
   3.4108549971518345`*^9, 3.410855028117835*^9, 3.410855218778835*^9, 
   3.4108553490838346`*^9, 3.41101188281*^9, 3.4113511183578787`*^9, 
   3.4138031776186466`*^9, 3.4138505784880714`*^9, 3.4139255887844477`*^9},
 FontFamily->"Courier New",
 FontWeight->"Bold",
 CellLabel->"Out[11]="]
}, Open  ]],

Cell[BoxData["\:3000"], "Input",
 CellChangeTimes->{3.410849248959635*^9}]
},
WindowToolbars->"RulerBar",
WindowSize->{771, 645},
WindowMargins->{{321, Automatic}, {Automatic, 34}},
PrintingCopies->1,
PrintingPageRange->{5, 5},
PrintingOptions->{"PrintCellBrackets"->False,
"PrintMultipleHorizontalPages"->False,
"PrintRegistrationMarks"->False,
"PrintingMargins"->{{113.3125, 113.3125}, {99.1875, 99.1875}}},
FrontEndVersion->"6.0 for Microsoft Windows (32-bit) (2007\:5e746\:670819\
\:65e5)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[568, 21, 294, 8, 36, "Input"],
Cell[865, 31, 2774, 45, 183, "Input"],
Cell[CellGroupData[{
Cell[3664, 80, 7019, 157, 244, "Input"],
Cell[10686, 239, 3225, 70, 378, "Output"]
}, Open  ]],
Cell[13926, 312, 8157, 168, 378, "Input"],
Cell[22086, 482, 44, 1, 1, "PageBreak",
 PageBreakBelow->True],
Cell[22133, 485, 2000, 58, 197, "Input"],
Cell[CellGroupData[{
Cell[24158, 547, 1167, 36, 107, "Input"],
Cell[25328, 585, 577, 14, 45, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[25942, 604, 625, 20, 54, "Input"],
Cell[26570, 626, 538, 12, 31, "Output"]
}, Open  ]],
Cell[27123, 641, 96, 1, 31, "Input"],
Cell[27222, 644, 3177, 92, 324, "Input"],
Cell[30402, 738, 44, 1, 1, "PageBreak",
 PageBreakBelow->True],
Cell[CellGroupData[{
Cell[30471, 743, 981, 32, 52, "Input"],
Cell[31455, 777, 614, 14, 48, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[32106, 796, 1711, 62, 97, "Input"],
Cell[33820, 860, 1567, 44, 82, "Output"]
}, Open  ]],
Cell[35402, 907, 87, 2, 31, "Input"],
Cell[35492, 911, 1192, 32, 91, "Input"],
Cell[36687, 945, 571, 14, 52, "Input"],
Cell[CellGroupData[{
Cell[37283, 963, 359, 13, 57, "Input"],
Cell[37645, 978, 477, 11, 31, "Output"]
}, Open  ]],
Cell[38137, 992, 302, 6, 31, "Input"],
Cell[CellGroupData[{
Cell[38464, 1002, 370, 14, 52, "Input"],
Cell[38837, 1018, 447, 10, 31, "Output"]
}, Open  ]],
Cell[39299, 1031, 509, 14, 52, "Input"],
Cell[CellGroupData[{
Cell[39833, 1049, 300, 11, 52, "Input"],
Cell[40136, 1062, 721, 20, 45, "Output"]
}, Open  ]],
Cell[40872, 1085, 44, 1, 1, "PageBreak",
 PageBreakBelow->True],
Cell[40919, 1088, 1937, 48, 134, "Input"],
Cell[CellGroupData[{
Cell[42881, 1140, 684, 21, 33, "Input"],
Cell[43568, 1163, 514, 12, 31, "Output"]
}, Open  ]],
Cell[44097, 1178, 668, 17, 52, "Input"],
Cell[CellGroupData[{
Cell[44790, 1199, 372, 12, 33, "Input"],
Cell[45165, 1213, 398, 9, 33, "Output"]
}, Open  ]],
Cell[45578, 1225, 1090, 27, 96, "Input"],
Cell[46671, 1254, 462, 8, 33, "Input"],
Cell[CellGroupData[{
Cell[47158, 1266, 4677, 115, 275, "Input"],
Cell[51838, 1383, 1723, 38, 155, "Output"]
}, Open  ]],
Cell[53576, 1424, 74, 1, 31, "Input"]
}
]
*)

(* End of internal cache information *)