(***********************************************************************

                    Mathematica-Compatible Notebook

This notebook can be used on any computer system with Mathematica 4.0,
MathReader 4.0, or any compatible application. The data for the notebook 
starts with the line containing stars above.

To get the notebook into a Mathematica-compatible application, do one of 
the following:

* Save the data starting with the line of stars above into a file
  with a name ending in .nb, then open the file inside the application;

* Copy the data starting with the line of stars above to the
  clipboard, then use the Paste menu command inside the application.

Data for notebooks contains only printable 7-bit ASCII and can be
sent directly in email or through ftp in text mode.  Newlines can be
CR, LF or CRLF (Unix, Macintosh or MS-DOS style).

NOTE: If you modify the data for this notebook not in a Mathematica-
compatible application, you must delete the line below containing the 
word CacheID, otherwise Mathematica-compatible applications may try to 
use invalid cache data.

For more information on notebooks and Mathematica-compatible 
applications, contact Wolfram Research:
  web: http://www.wolfram.com
  email: info@wolfram.com
  phone: +1-217-398-0700 (U.S.)

Notebook reader applications are available free of charge from 
Wolfram Research.
***********************************************************************)

(*CacheID: 232*)


(*NotebookFileLineBreakTest
NotebookFileLineBreakTest*)
(*NotebookOptionsPosition[     20610,        599]*)
(*NotebookOutlinePosition[     21509,        628]*)
(*  CellTagsIndexPosition[     21465,        624]*)
(*WindowFrame->Normal*)



Notebook[{
Cell[TextData[StyleBox["\:7b2c 2 \:56de  2 \:6642\:9650\:76ee",
  FontSize->14,
  FontWeight->"Bold",
  FontColor->RGBColor[1, 0, 1]]], "Text",
  Editable->False,
  ShowCellBracket->False,
  CellMargins->{{10, Inherited}, {0, 2}}],

Cell[CellGroupData[{

Cell["\:300e\:65b9\:7a0b\:5f0f\:306e\:89e3\:304d\:65b9\:300f", "Title",
  ShowCellBracket->False,
  CellMargins->{{2, 2}, {Inherited, 2}},
  TextAlignment->Center],

Cell[TextData[{
  "\:65b9\:7a0b\:5f0f\:306e\:89e3\:3092\:5f97\:308b\:5fc5\:8981\:304c\:3042\
\:308b\:5834\:9762\:306f\:6570\:5b66\:3060\:3051\:3067\:306a\:304f\:69d8\:3005\
\:306a\:5206\:91ce\:3067\:898b\:53d7\:3051\:3089\:308c\:307e\:3059\:ff0e\:3053\
\:306e\:30ce\:30fc\:30c8\:30d6\:30c3\:30af\:3067\:306f\:ff0c\:305d\:306e\:300e\
\:65b9\:7a0b\:5f0f\:306e\:89e3\:304d\:65b9\:300f\:3092\:ff0c ",
  StyleBox["Mathematica",
    FontSlant->"Italic"],
  " \:3067\:7528\:3044\:3089\:308c\:308b\:65b9\:7a0b\:5f0f\:306e\:8868\:73fe\
\:6cd5\:3068\:5408\:308f\:305b\:3066\:5b66\:3073\:307e\:3059",
  "\:ff0e"
}], "Text",
  Editable->False,
  ShowCellBracket->False],

Cell[CellGroupData[{

Cell["\:65b9\:7a0b\:5f0f\:306e\:8868\:73fe\:6cd5", "Section"],

Cell["\<\
\:901a\:5e38\:ff0c\:6570\:5b66\:3067\:306f\:65b9\:7a0b\:5f0f\:3092\
\:7b49\:53f7\:300e = \:300f\:3092\:4f7f\:3063\:3066\:ff0c\:5de6\:8fba\:3068\
\:53f3\:8fba\:304c\:7b49\:3057\:3044\:3053\:3068\:3092\:8868\:3057\:307e\:3059\
\:ff0e\
\>", "Text",
  Editable->False,
  ShowCellBracket->False],

Cell["\:901a\:5e38\:ff0c\:6570\:5b66\:3067\:7528\:3044\:308b\:65b9\:7a0b\:5f0f\
", "Commentary"],

Cell["\:5de6\:8fba = \:53f3\:8fba", "Program",
  CellFrame->True,
  Background->GrayLevel[0.996109]],

Cell[TextData[{
  "\:3068\:3053\:308d\:304c ",
  StyleBox["Mathematica",
    FontSlant->"Italic"],
  " \:3067\:306f\:3053\:306e\:7b49\:53f7\:300e = \:300f\:306f\:ff0c\:5de6\
\:8fba\:306b\:53f3\:8fba\:3092\:5272\:308a\:5f53\:3066\:308b\:3053\:3068\:3092\
\:610f\:5473\:3059\:308b\:3053\:3068\:306b\:306a\:3063\:3066\:3044\:307e\:3059\
",
  "\:ff0e",
  "\:3067\:3059\:304b\:3089\:ff0c"
}], "Text",
  Editable->False,
  ShowCellBracket->False],

Cell["y = x+2", "Program",
  CellFrame->True,
  Background->GrayLevel[0.996109]],

Cell["\<\
\:3068\:3044\:3046\:3075\:3046\:306b\:3057\:3066\:3057\:307e\:3046\
\:3068 y \:306b x + 2 \:3092\:5272\:308a\:5f53\:3066\:3066\:3057\:307e\:3046\
\:306e\:3067\:ff0c\:300c y \:306b x + 2 \:3092\:4ee3\:5165\:3057\:306a\:3055\
\:3044\:300d\:3068\:3044\:3046\:547d\:4ee4\:3092\:3057\:305f\:3053\:3068\:306b\
\:306a\:3063\:3066\:3057\:307e\:3044\:307e\:3059\:ff0e\
\>", "Text",
  Editable->False,
  ShowCellBracket->False],

Cell[TextData[{
  "\:305d\:3053\:3067\:65b9\:7a0b\:5f0f\:3092\:8868\:73fe\:3059\:308b\:305f\
\:3081\:306b ",
  StyleBox["Mathematica",
    FontSlant->"Italic"],
  " \:3067\:306f\:ff0c\:7b49\:53f7\:3068\:3057\:3066\:300e == \:300f\:3092\
\:7528\:3044\:307e\:3059",
  "\:ff0e"
}], "Text",
  Editable->False,
  ShowCellBracket->False],

Cell[TextData[{
  StyleBox["Mathematica",
    FontSlant->"Italic"],
  " \:306e\:65b9\:7a0b\:5f0f"
}], "Commentary"],

Cell["\:5de6\:8fba == \:53f3\:8fba", "Program",
  CellFrame->True,
  Background->GrayLevel[0.996109]],

Cell["\:4f8b\:3048\:3070\:ff0cx \:306e\:4e8c\:6b21\:65b9\:7a0b\:5f0f\:306f\
\:4ee5\:4e0b\:306e\:3088\:3046\:306b\:8868\:3057\:307e\:3059\:ff0e", "Text",
  Editable->False,
  ShowCellBracket->False],

Cell[TextData[Cell[BoxData[
    \(x\^2 - 3\ x\  + 2\  \[Equal] \ 0\)]]], "Program",
  CellFrame->True,
  Background->GrayLevel[0.996109]],

Cell["\<\
\:3053\:306e\:3088\:3046\:306b\:ff0c x = y \:3068 x == y \:306e\
\:8a18\:8ff0\:304c\:7570\:306a\:308b\:610f\:5473\:3092\:6301\:3063\:3066\:3044\
\:308b\:3053\:3068\:306b\:6ce8\:610f\:3057\:3066\:304f\:3060\:3055\:3044\:ff0e\
\
\>", "Text",
  Editable->False,
  ShowCellBracket->False]
}, Open  ]],

Cell[CellGroupData[{

Cell["\:65b9\:7a0b\:5f0f\:3092\:89e3\:304f", "Section"],

Cell[TextData[{
  Cell[BoxData[
      \(x\^2 - 3\ x\  + 2\  \[Equal] \ 0\)]],
  " \:306e\:3088\:3046\:306a\:65b9\:7a0b\:5f0f\:3092\:89e3\:304f\:306b\:306f\
\:ff0c ",
  StyleBox["Solve",
    FontFamily->"Courier New"],
  " (\:30bd\:30eb\:30d6) \:95a2\:6570\:3092\:7528\:3044\:307e\:3059\:ff0e"
}], "Text",
  Editable->False,
  ShowCellBracket->False],

Cell[TextData[{
  StyleBox["Solve",
    FontFamily->"Courier New"],
  " [ \:65b9\:7a0b\:5f0f , \:89e3\:3092\:6c42\:3081\:305f\:3044\:5909\:6570 \
]"
}], "Program",
  CellFrame->True,
  Background->GrayLevel[0.996109]],

Cell["\:3055\:3063\:305d\:304f\:ff0c\:5148\:307b\:3069\:306e\:65b9\:7a0b\:5f0f\
\:3092 x \:306b\:3064\:3044\:3066\:89e3\:3044\:3066\:307f\:307e\:3057\:3087\
\:3046\:ff0e", "Text",
  Editable->False,
  ShowCellBracket->False],

Cell[BoxData[
    \(Solve[x\^2 - 3\ x\  + 2\  \[Equal] \ 0, x]\)], "Input"],

Cell[TextData[{
  " ",
  StyleBox["Solve",
    FontFamily->"Courier New"],
  " \:95a2\:6570\:3067\:5f97\:3089\:308c\:305f\:89e3\:306f\:77e2\:5370\:8a18\
\:53f7\:300e\[Rule]\:300f\:3092\:4f7f\:3063\:3066\:8868\:73fe\:3055\:308c\
\:307e\:3059\:ff0e\:3053\:3053\:3067\:306f { x \[Rule] 1 } \:3068 { x \[Rule] \
2 } \:306e\:4e8c\:3064\:306e\:89e3\:304c\:8fd4\:3063\:3066\:304d\:307e\:3057\
\:305f\:ff0e\:3053\:308c\:306f\:65b9\:7a0b\:5f0f\:3068\:3057\:3066\:4e0e\:3048\
\:305f ",
  Cell[BoxData[
      \(x\^2 - 3\ x\  + 2\  \[Equal] \ 0\)]],
  " \:306f x \:304c 1 \:3082\:3057\:304f\:306f 2 \:306e\:3068\:304d\:306b\
\:6210\:308a\:7acb\:3064\:ff0c\:3068\:3044\:3046\:3053\:3068\:3092\:8868\:3057\
\:3066\:3044\:307e\:3059\:ff0e"
}], "Text",
  Editable->False,
  ShowCellBracket->False],

Cell[TextData[{
  "\:3055\:3089\:306b\:ff0c\:89e3\:304c\:6570\:5024\:3067\:5f97\:3089\:308c\
\:306a\:3044\:3088\:3046\:306a\:65b9\:7a0b\:5f0f\:3082\:ff0c ",
  StyleBox["Solve",
    FontFamily->"Courier New"],
  " \:95a2\:6570\:306f\:8a08\:7b97\:304c\:53ef\:80fd\:3067\:3059\:ff0e"
}], "Text",
  Editable->False,
  ShowCellBracket->False],

Cell[BoxData[
    \(Solve[a\ x + b \[Equal] c, x]\)], "Input"],

Cell[TextData[{
  StyleBox["Solve",
    FontFamily->"Courier New"],
  " \:95a2\:6570\:306f\:ff0c\:9023\:7acb\:65b9\:7a0b\:5f0f\:3082\:89e3\:304f\
\:3053\:3068\:304c\:3067\:304d\:307e\:3059\:ff0e\:65b9\:7a0b\:5f0f\:304a\:3088\
\:3073\:89e3\:3092\:6c42\:3081\:305f\:3044\:5909\:6570\:3092\:305d\:308c\:305e\
\:308c\:30ab\:30f3\:30de\:3067\:533a\:5207\:308a\:ff0c\:6ce2\:62ec\:5f27\:300e\
 ",
  StyleBox["{ }",
    FontFamily->"Courier New"],
  " \:300f\:3067\:307e\:3068\:3081\:3066\:8a18\:8ff0\:3057\:307e\:3059\:ff0e"
}], "Text",
  Editable->False,
  ShowCellBracket->False],

Cell[BoxData[
    \(Solve[{a + b \[Equal] 5, a - 2  b \[Equal] \(-2\)}, {a, b}]\)], "Input"],

Cell[TextData[{
  "\:6b21\:306e\:4f8b\:3082\:9023\:7acb\:65b9\:7a0b\:5f0f\:3067\:3059\:304c\
\:ff0c\:4eca\:5ea6\:306f\:5f0f\:4e2d\:306e a \:3092\:6d88\:53bb\:3057\:3066\
\:ff0c y \:3092\:6c42\:3081\:307e\:3059\:ff0e\:3053\:306e\:5834\:5408\:ff0c \
",
  StyleBox["Solve",
    FontFamily->"Courier New"],
  " \:95a2\:6570\:306e\:7b2c3\:756a\:76ee\:306e\:5f15\:6570\:306b\:6d88\:53bb\
\:3057\:305f\:3044\:6587\:5b57\:3092\:4e0e\:3048\:307e\:3059\:ff0e"
}], "Text",
  Editable->False,
  ShowCellBracket->False],

Cell[BoxData[
    \(Solve[{x \[Equal] 2  a + 5, y \[Equal] \(-4\) a - 1}, y, a]\)], "Input"]
}, Open  ]],

Cell[CellGroupData[{

Cell["\:6570\:5024\:7684\:306b\:65b9\:7a0b\:5f0f\:3092\:89e3\:304f", "Section"],

Cell[TextData[{
  "\:7d9a\:3044\:3066\:ff0c\:4ee5\:4e0b\:306e2\:6b21\:65b9\:7a0b\:5f0f\:306e\
\:89e3\:3092 ",
  StyleBox["Solve",
    FontFamily->"Courier New"],
  " \:95a2\:6570\:3067\:6c42\:3081\:3066\:307f\:307e\:3057\:3087\:3046\:ff0e"
}], "Text",
  Editable->False,
  ShowCellBracket->False],

Cell[BoxData[
    \(Solve[2  x\^3 + 13  x\^2 - 13  x + 3 \[Equal] 0, x]\)], "Input"],

Cell[TextData[{
  " ",
  StyleBox["Solve",
    FontFamily->"Courier New"],
  " \:95a2\:6570\:306f\:3053\:306e\:3088\:3046\:306b\:53b3\:5bc6\:306a\:89e3\
\:3092\:4e0e\:3048\:3066\:304f\:308c\:307e\:3059\:304c\:ff0c\:5834\:5408\:306b\
\:3088\:3063\:3066\:306f\:304a\:304a\:3088\:305d\:306e\:6570\:5024\:89e3\:304c\
\:6b32\:3057\:3044\:3053\:3068\:3082\:3042\:308a\:307e\:3059\:ff0e\:305d\:306e\
\:3088\:3046\:306a\:6642\:306f ",
  StyleBox["NSolve",
    FontFamily->"Courier New"],
  " (\:30a8\:30cc\:30bd\:30eb\:30d6) \:95a2\:6570\:3092\:7528\:3044\:308b\
\:3053\:3068\:3067\:8fd1\:4f3c\:89e3\:3092\:5f97\:308b\:3053\:3068\:304c\:3067\
\:304d\:307e\:3059\:ff0e "
}], "Text",
  Editable->False,
  ShowCellBracket->False],

Cell[TextData[{
  " ",
  StyleBox["NSolve",
    FontFamily->"Courier New"],
  " \:95a2\:6570\:306e\:4f7f\:3044\:65b9\:306f ",
  StyleBox["Solve",
    FontFamily->"Courier New"],
  " \:95a2\:6570\:3068\:307b\:3068\:3093\:3069\:540c\:3058\:3067\:3059\:ff0e\
\:524d\:8ff0\:306e\:65b9\:7a0b\:5f0f\:3092 ",
  StyleBox["NSolve",
    FontFamily->"Courier New"],
  " \:95a2\:6570\:3067\:89e3\:3044\:3066\:307f\:307e\:3057\:3087\:3046\:ff0e"
}], "Text",
  Editable->False,
  ShowCellBracket->False],

Cell[CellGroupData[{

Cell[BoxData[
    \(NSolve[2  x\^3 + 13  x\^2 - 13  x + 3 \[Equal] 0, x]\)], "Input"],

Cell[BoxData[
    \({{x \[Rule] \(-7.405124837953327`\)}, {x \[Rule] 
          0.4051248379533272`}, {x \[Rule] 0.5`}}\)], "Output",
  CellOpen->False]
}, Open  ]],

Cell[TextData[{
  "\:307e\:305f\:ff0c ",
  StyleBox["Solve",
    FontFamily->"Courier New"],
  " \:95a2\:6570\:306f\:69d8\:3005\:306a\:65b9\:7a0b\:5f0f\:306e\:89e3\:3092\
\:6c42\:3081\:308b\:3053\:3068\:304c\:3067\:304d\:307e\:3059\:304c\:ff0c\:3042\
\:307e\:308a\:306b\:8907\:96d1\:306a\:3082\:306e\:30845\:6b21\:4ee5\:4e0a\
\:306e\:3082\:306e\:306a\:3069\:3067\:306f\:ff0c\:89e3\:304c\:5f97\:3089\:308c\
\:306a\:3044\:5834\:5408\:304c\:3042\:308a\:307e\:3059\:ff0e\:6b21\:306e5\
\:6b21\:65b9\:7a0b\:5f0f\:3092\:89e3\:3044\:3066\:307f\:307e\:3057\:3087\:3046\
\:ff0e"
}], "Text",
  Editable->False,
  ShowCellBracket->False],

Cell[BoxData[
    \(Solve[x\^5 - 4  x + 2 \[Equal] 0, x]\)], "Input"],

Cell[TextData[{
  "\:3053\:306e\:65b9\:7a0b\:5f0f ",
  Cell[BoxData[
      \(x\^5\)]],
  " - 4 x + 2 ==0 \:306b\:306f5\:3064\:306e\:89e3\:304c\:5b58\:5728\:3057\
\:307e\:3059\:304c\:ff0c ",
  StyleBox["Solve",
    FontFamily->"Courier New"],
  " \:95a2\:6570\:306f\:3053\:308c\:3089\:3092\:6b63\:78ba\:306b\:8868\:73fe\
\:3057\:3088\:3046\:3068\:3057\:3066\:ff0c ",
  StyleBox["Root",
    FontFamily->"Courier New"],
  " (\:30eb\:30fc\:30c8) \:95a2\:6570\:3092\:7528\:3044\:3066\:3044\:307e\
\:3059\:ff0e\:3053\:306e\:307e\:307e\:3060\:3068\:89e3\:304c\:3044\:304f\:3064\
\:306a\:306e\:304b\:5168\:304f\:898b\:5f53\:304c\:3064\:304d\:307e\:305b\:3093\
\:ff0e\:305d\:3053\:3067\:3053\:306e\:65b9\:7a0b\:5f0f\:3092 ",
  StyleBox["NSolve",
    FontFamily->"Courier New"],
  " \:95a2\:6570\:3092\:7528\:3044\:3066\:307f\:307e\:3057\:3087\:3046\:ff0e"
}], "Text",
  Editable->False,
  ShowCellBracket->False],

Cell[BoxData[
    \(NSolve[x\^5 - 4  x + 2 \[Equal] 0, x]\)], "Input"],

Cell[TextData[{
  "\:3053\:306e\:3088\:3046\:306b ",
  StyleBox["NSolve",
    FontFamily->"Courier New"],
  " \:95a2\:6570\:3067\:3042\:308c\:3070\:ff0c\:8fd1\:4f3c\:89e3\:3092\:7c21\
\:5358\:306b\:5f97\:308b\:3053\:3068\:304c\:3067\:304d\:307e\:3059\:ff0e"
}], "Text",
  Editable->False,
  ShowCellBracket->False]
}, Open  ]],

Cell[CellGroupData[{

Cell["\:7c21\:5358Q&A", "Section"],

Cell[CellGroupData[{

Cell["\<\
\:65b9\:7a0b\:5f0f\:3092\:89e3\:3044\:3066\:5f97\:3089\:308c\:305f\
\:89e3\:3092\:3055\:3089\:306b\:5229\:7528\:3059\:308b\:306b\:306f\:3069\:3046\
\:3057\:305f\:3089\:3044\:3044\:3067\:3059\:304b\:ff1f\
\>", "Subsection"],

Cell[TextData[{
  StyleBox["Solve",
    FontFamily->"Courier New"],
  " \:95a2\:6570\:3084 ",
  StyleBox["NSolve",
    FontFamily->"Courier New"],
  " \:95a2\:6570\:3092\:4f7f\:3063\:3066\:65b9\:7a0b\:5f0f\:3092\:89e3\:304f\
\:3068\:ff0c\:77e2\:5370\:8a18\:53f7\:300e\[Rule]\:300f\:3092\:4f7f\:3063\
\:305f\:5f62\:3067\:89e3\:304c\:8fd4\:3063\:3066\:304d\:307e\:3059\:ff0e\:77e2\
\:5370\:8a18\:53f7\:300e\[Rule]\:300f\:306f\:300e\:30eb\:30fc\:30eb\:300f\
\:3068\:3044\:3063\:3066\:77e2\:5370\:306e\:5de6\:5074\:306b\:3042\:308b\:3082\
\:306e\:3092\:53f3\:5074\:306e\:5f62\:306b\:7f6e\:304d\:63db\:3048\:308b\:3068\
\:3044\:3046\:610f\:5473\:306b\:306a\:308a\:307e\:3059\:ff0e"
}], "Text",
  Editable->False,
  ShowCellBracket->False],

Cell[BoxData[
    \(Solve[x\^2 - 5  x + 6 \[Equal] 0, x]\)], "Input"],

Cell["\<\
\:4e0a\:306e\:8a08\:7b97\:3067\:5f97\:3089\:308c\:305f x \:306e\
\:5024\:3060\:3051\:304c\:6b32\:3057\:3044\:5834\:5408\:306f\:ff0c\:65b9\:7a0b\
\:5f0f\:3092\:89e3\:304f\:3053\:3068\:3067\:5f97\:3089\:308c\:305f\:3053\:306e\
\:300e\:30eb\:30fc\:30eb\:300f\:3092\:4ee5\:4e0b\:306e\:3088\:3046\:306b x \
\:306b\:9069\:7528\:3057\:307e\:3059\:ff0e\
\>", "Text",
  Editable->False,
  ShowCellBracket->False],

Cell[BoxData[
    \(answer = x /. %\)], "Input"],

Cell[TextData[{
  " % \:306f\:76f4\:524d\:306b\:8a08\:7b97\:3057\:305f\:7d50\:679c\:3092\:610f\
\:5473\:3057\:3066\:3044\:307e\:3059\:ff0e\:3053\:3053\:3067\:3067\:3066\:304d\
\:305f\:300e",
  StyleBox["/.",
    FontFamily->"Courier New"],
  "\:300f(\:30b9\:30e9\:30c3\:30b7\:30e5\:ff0b\:30c9\:30c3\:30c8)\:306f\:30eb\
\:30fc\:30eb\:3092\:3042\:308b\:96c6\:5408\:306b\:9069\:7528\:3059\:308b\:3068\
\:304d\:306b\:4f7f\:3044\:307e\:3059\:ff0e\:8a73\:3057\:304f\:306f\:ff0c\:30ce\
\:30fc\:30c8\:30d6\:30c3\:30af\:300e\:30d1\:30bf\:30fc\:30f3\:30de\:30c3\:30c1\
\:30f3\:30b0\:300f\:3067\:767b\:5834\:3057\:307e\:3059\:306e\:3067\:ff0c\:4eca\
\:306e\:3068\:3053\:308d\:306f\:300c\:304a\:307e\:3058\:306a\:3044\:300d\:3060\
\:3068\:601d\:3063\:3066\:304f\:3060\:3055\:3044\:ff0e\:7d50\:679c\:ff0c2 \
\:3068 3 \:3068\:3044\:3046\:89e3\:306e\:5024\:304c\:51fa\:529b\:3055\:308c\
\:ff0c\:3053\:3053\:3067\:306f\:305d\:308c\:3089\:306b answer \:3068\:3044\
\:3046\:540d\:524d\:3092\:4ed8\:3051\:3066\:3042\:3052\:3066\:3044\:307e\:3059\
",
  "\:ff0e",
  " \:518d\:5ea6\:3053\:306e\:5024\:3092\:4f7f\:3046\:306b\:306f\:ff0c"
}], "Text",
  Editable->False,
  ShowCellBracket->False],

Cell[BoxData[
    \(answer\)], "Input"],

Cell["\<\
\:3068\:5148\:307b\:3069\:4ed8\:3051\:305f\:540d\:524d\:3092\:5165\
\:529b\:3059\:308b\:3053\:3068\:3067\:5229\:7528\:3067\:304d\:307e\:3059\:ff0e\
\
\>", "Text",
  Editable->False,
  ShowCellBracket->False]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
  "Solve \:3084 NSolve \:3092\:4f7f\:3063\:3066\:65b9\:7a0b\:5f0f\:3092\:89e3\
\:3053\:3046\:3068\:3059\:308b\:3068\:ff0c ",
  StyleBox["Mathematica",
    FontSlant->"Italic"],
  " \:304b\:3089\:30e1\:30c3\:30bb\:30fc\:30b8\:304c\:8868\:793a\:3055\:308c\
\:308b\:5834\:5408\:304c\:3042\:308a\:307e\:3059\:ff0e"
}], "Subsection"],

Cell[TextData[{
  "\:4ee5\:4e0b\:306e\:65b9\:7a0b\:5f0f\:3092 ",
  StyleBox["Solve",
    FontFamily->"Courier New"],
  " \:95a2\:6570\:3067\:89e3\:3044\:3066\:307f\:307e\:3057\:3087\:3046\:ff0e"
}], "Text",
  Editable->False,
  ShowCellBracket->False],

Cell[BoxData[
    \(Solve[Sin[x] \[Equal] 1\/2, x]\)], "Input"],

Cell[TextData[{
  " ",
  StyleBox["Mathematica",
    FontSlant->"Italic"],
  " \:304b\:3089\:306e\:30e1\:30c3\:30bb\:30fc\:30b8\:304c\:8868\:793a\:3055\
\:308c\:305f\:5f8c\:306b\:ff0c\:89e3\:304c1\:3064\:3060\:3051\:8fd4\:3055\
\:308c\:307e\:3059\:ff0e",
  StyleBox["Sin[x]==",
    FontFamily->"Courier New"],
  Cell[BoxData[
      \(TraditionalForm\`1\/2\)],
    FontFamily->"Courier New"],
  "\:306e\:3088\:3046\:306a\:65b9\:7a0b\:5f0f\:306e\:89e3\:306f\:7121\:9650\
\:306b\:5b58\:5728\:3057\:307e\:3059\:ff0e\:3053\:306e\:3088\:3046\:306a\:5834\
\:5408\:ff0c",
  StyleBox["Solve",
    FontFamily->"Courier New"],
  "\:95a2\:6570\:306f\:4ed6\:306b\:3082\:89e3\:304c\:5b58\:5728\:3059\:308b\
\:3053\:3068\:3092\:544a\:3052\:ff0c1\:3064\:3060\:3051\:89e3\:3092\:8868\
\:793a\:3059\:308b\:8a2d\:5b9a\:306b\:306a\:3063\:3066\:3044\:307e\:3059\:ff0e\
\:3053\:308c\:306f",
  StyleBox["NSolve",
    FontFamily->"Courier New"],
  "\:95a2\:6570\:3067\:3082\:540c\:69d8\:306e\:7d50\:679c\:3068\:306a\:308a\
\:307e\:3059\:ff0e"
}], "Text",
  Editable->False,
  ShowCellBracket->False],

Cell["\:307e\:305f\:ff0c\:6b21\:306e\:65b9\:7a0b\:5f0f\:306e\:5834\:5408\:3067\
\:306f\:3069\:3046\:3067\:3057\:3087\:3046\:ff0e", "Text",
  Editable->False,
  ShowCellBracket->False],

Cell[BoxData[
    \(NSolve[Cos[x] \[Equal] x, x]\)], "Input"],

Cell["\:5148\:307b\:3069\:3068\:306f\:7570\:306a\:308b\:30e1\:30c3\:30bb\:30fc\
\:30b8\:304c\:8868\:793a\:3055\:308c\:307e\:3059\:ff0e", "Text",
  Editable->False,
  ShowCellBracket->False],

Cell[TextData[{
  StyleBox["Sin[x]",
    FontFamily->"Courier New"],
  "\:3084",
  StyleBox["Cos[x]",
    FontFamily->"Courier New"],
  "\:306a\:3069\:306e\:6570\:5b66\:95a2\:6570\:306f\:4e00\:822c\:306b\:8d85\
\:8d8a\:95a2\:6570\:3068\:547c\:3070\:308c\:3066\:3044\:307e\:3059\:ff0e\:8d85\
\:8d8a\:95a2\:6570\:3092\:542b\:3093\:3060\:65b9\:7a0b\:5f0f\:306f\:4ee3\:6570\
\:7684\:306b\:89e3\:304f\:3053\:3068\:304c\:3067\:304d\:306a\:3044\:305f\:3081\
\:306b\:ff0c\:6b8b\:5ff5\:306a\:304c\:3089\:ff0c",
  StyleBox["Solve",
    FontFamily->"Courier New"],
  "\:3084",
  StyleBox["NSolve",
    FontFamily->"Courier New"],
  "\:3067\:306f\:89e3\:3092\:5f97\:3089\:308c\:307e\:305b\:3093\:ff0e\:3053\
\:306e\:3088\:3046\:306a\:5834\:5408\:306f\:6570\:5024\:7684\:306a\:8a08\:7b97\
\:65b9\:6cd5\:3092\:7528\:3044\:308b\:305f\:3081\:306b\:ff0c",
  StyleBox["FindRoot",
    FontFamily->"Courier New"],
  "(\:30d5\:30a1\:30a4\:30f3\:30c9\:30eb\:30fc\:30c8)\:95a2\:6570\:304c\:3088\
\:304f\:7528\:3044\:3089\:308c\:307e\:3059\:ff0e"
}], "Text",
  Editable->False,
  ShowCellBracket->False],

Cell[BoxData[
    \(FindRoot[Cos[x] \[Equal] x, {x, 1}]\)], "Input"],

Cell[TextData[{
  StyleBox["FindRoot",
    FontFamily->"Courier New"],
  " \:95a2\:6570\:306f Newton (\:30cb\:30e5\:30fc\:30c8\:30f3) \:6cd5\:3068\
\:3044\:3046\:624b\:6cd5\:3092\:4f7f\:3063\:3066\:65b9\:7a0b\:5f0f\:306e\:89e3\
\:3092\:5f97\:308b\:95a2\:6570\:3067\:3059\:ff0e"
}], "Text",
  Editable->False,
  ShowCellBracket->False],

Cell["\<\
FindRoot [ \:65b9\:7a0b\:5f0f , { \:89e3\:3092\:6c42\:3081\:305f\
\:3044\:5909\:6570 , \:521d\:671f\:5024 } ]\
\>", "Program",
  CellFrame->True,
  Background->GrayLevel[0.996109]],

Cell["\<\
\:3053\:306e\:4e2d\:306e\:521d\:671f\:5024\:304b\:3089\:30b9\:30bf\
\:30fc\:30c8\:3057\:3066\:ff0c\:65b9\:7a0b\:5f0f\:3092\:6e80\:305f\:3059\:89e3\
\:3092\:63a2\:3057\:307e\:3059\:ff0e\:4e0e\:3048\:308b\:521d\:671f\:5024\:306b\
\:3088\:3063\:3066\:6c42\:307e\:308b\:89e3\:304c\:5909\:308f\:308b\:6642\:304c\
\:3042\:308a\:307e\:3059\:306e\:3067\:ff0c\:521d\:671f\:5024\:306e\:8a2d\:5b9a\
\:306b\:6ce8\:610f\:304c\:5fc5\:8981\:3067\:3059\:ff0e\
\>", "Text",
  Editable->False,
  ShowCellBracket->False]
}, Open  ]]
}, Open  ]],

Cell["Copyright \[Copyright] CAT Inc., 2001, All rights reserved.", \
"Commentary",
  Editable->False,
  ShowCellBracket->False,
  TextAlignment->Center]
}, Open  ]]
},
FrontEndVersion->"4.0 for Macintosh",
ScreenRectangle->{{0, 800}, {0, 580}},
CellGrouping->Manual,
WindowSize->{640, 530},
WindowMargins->{{47, Automatic}, {Automatic, 12}},
StyleDefinitions -> "Report.nb",
MacintoshSystemPageSetup->"\<\
00<0001804P000000``28?oQonD3:`8h0dL5N`?P0080001804P000000``2:P01
0000I00000400`<300000BL?00400@0000000000000004P801T1T00000000000
00000000000000000000000000000000\>"
]


(***********************************************************************
Cached data follows.  If you edit this Notebook file directly, not using
Mathematica, you must remove the line containing CacheID at the top of 
the file.  The cache data will then be recreated when you save this file 
from within Mathematica.
***********************************************************************)

(*CellTagsOutline
CellTagsIndex->{}
*)

(*CellTagsIndex
CellTagsIndex->{}
*)

(*NotebookFileOutline
Notebook[{
Cell[1717, 49, 230, 6, 20, "Text"],

Cell[CellGroupData[{
Cell[1972, 59, 163, 3, 44, "Title"],
Cell[2138, 64, 657, 13, 42, "Text"],

Cell[CellGroupData[{
Cell[2820, 81, 61, 0, 67, "Section"],
Cell[2884, 83, 300, 7, 26, "Text"],
Cell[3187, 92, 96, 1, 21, "Commentary"],
Cell[3286, 95, 100, 2, 34, "Program"],
Cell[3389, 99, 440, 12, 42, "Text"],
Cell[3832, 113, 80, 2, 34, "Program"],
Cell[3915, 117, 427, 8, 40, "Text"],
Cell[4345, 127, 331, 10, 28, "Text"],
Cell[4679, 139, 115, 4, 21, "Commentary"],
Cell[4797, 145, 101, 2, 34, "Program"],
Cell[4901, 149, 197, 3, 26, "Text"],
Cell[5101, 154, 137, 3, 33, "Program"],
Cell[5241, 159, 294, 7, 26, "Text"]
}, Open  ]],

Cell[CellGroupData[{
Cell[5572, 171, 55, 0, 67, "Section"],
Cell[5630, 173, 349, 10, 28, "Text"],
Cell[5982, 185, 217, 7, 36, "Program"],
Cell[6202, 194, 224, 4, 26, "Text"],
Cell[6429, 200, 75, 1, 36, "Input"],
Cell[6507, 203, 781, 17, 57, "Text"],
Cell[7291, 222, 337, 8, 28, "Text"],
Cell[7631, 232, 62, 1, 32, "Input"],
Cell[7696, 235, 574, 13, 44, "Text"],
Cell[8273, 250, 92, 1, 32, "Input"],
Cell[8368, 253, 506, 11, 42, "Text"],
Cell[8877, 266, 92, 1, 32, "Input"]
}, Open  ]],

Cell[CellGroupData[{
Cell[9006, 272, 79, 0, 67, "Section"],
Cell[9088, 274, 296, 8, 28, "Text"],
Cell[9387, 284, 84, 1, 36, "Input"],
Cell[9474, 287, 718, 16, 58, "Text"],
Cell[10195, 305, 489, 14, 42, "Text"],

Cell[CellGroupData[{
Cell[10709, 323, 85, 1, 36, "Input"],
Cell[10797, 326, 152, 3, 19, "Output",
  CellOpen->False]
}, Open  ]],
Cell[10964, 332, 625, 13, 42, "Text"],
Cell[11592, 347, 69, 1, 36, "Input"],
Cell[11664, 350, 903, 21, 60, "Text"],
Cell[12570, 373, 70, 1, 36, "Input"],
Cell[12643, 376, 314, 8, 28, "Text"]
}, Open  ]],

Cell[CellGroupData[{
Cell[12994, 389, 34, 0, 67, "Section"],

Cell[CellGroupData[{
Cell[13053, 393, 232, 4, 40, "Subsection"],
Cell[13288, 399, 733, 15, 56, "Text"],
Cell[14024, 416, 69, 1, 36, "Input"],
Cell[14096, 419, 413, 8, 40, "Text"],
Cell[14512, 429, 48, 1, 32, "Input"],
Cell[14563, 432, 1171, 21, 70, "Text"],
Cell[15737, 455, 39, 1, 32, "Input"],
Cell[15779, 458, 217, 6, 26, "Text"]
}, Open  ]],

Cell[CellGroupData[{
Cell[16033, 469, 344, 7, 58, "Subsection"],
Cell[16380, 478, 251, 7, 28, "Text"],
Cell[16634, 487, 63, 1, 47, "Input"],
Cell[16700, 490, 1075, 27, 64, "Text"],
Cell[17778, 519, 183, 3, 26, "Text"],
Cell[17964, 524, 61, 1, 32, "Input"],
Cell[18028, 527, 189, 3, 26, "Text"],
Cell[18220, 532, 1079, 25, 74, "Text"],
Cell[19302, 559, 68, 1, 32, "Input"],
Cell[19373, 562, 334, 8, 28, "Text"],
Cell[19710, 572, 190, 5, 34, "Program"],
Cell[19903, 579, 511, 9, 40, "Text"]
}, Open  ]]
}, Open  ]],
Cell[20441, 592, 153, 4, 21, "Commentary"]
}, Open  ]]
}
]
*)




(***********************************************************************
End of Mathematica Notebook file.
***********************************************************************)