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

                    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[     18271,        520]*)
(*NotebookOutlinePosition[     19273,        559]*)
(*  CellTagsIndexPosition[     19164,        551]*)
(*WindowFrame->Normal*)



Notebook[{
Cell["\:7f6e\:63db\:3068\:306f Part\:ff11", "Title",
  Editable->False,
  TextAlignment->Center],

Cell["\:8ce2\:3044\:30d7\:30ed\:30b0\:30e9\:30df\:30f3\:30b0\:3092\:76ee\:6307\
\:3059", "Subtitle",
  Editable->False,
  TextAlignment->Center],

Cell["\<\
\:3053\:306e\:30ce\:30fc\:30c8\:30d6\:30c3\:30af\:3067\:306f\:ff0c\:7f6e\:63db\
\:ff08Replace: \:30ea\:30d7\:30ec\:30fc\:30b9\:ff09\:3092\:5b66\:3093\:3067\
\:3044\:304d\:307e\:3059\:ff0e\:7f6e\:63db\:306b\:95a2\:3059\:308b\:64cd\:4f5c\
\:3092\:899a\:3048\:308b\:3068\:610f\:5916\:306b\:30d7\:30ed\:30b0\:30e9\:30df\
\:30f3\:30b0\:304c\:7c21\:5358\:306b\:3067\:304d\:308b\:3088\:3046\:306b\:306a\
\:308a\:307e\:3059\:306e\:3067\:ff0c\:305c\:3072\:3053\:306e\:7f6e\:63db\:306b\
\:3064\:3044\:3066\:306e\:7406\:89e3\:3092\:6df1\:3081\:3066\:304f\:3060\:3055\
\:3044\:ff0e\
\>", "Text",
  Editable->False,
  ShowCellBracket->False],

Cell[CellGroupData[{

Cell["\:7f6e\:63db\:306e\:57fa\:672c\:ff08\:30ef\:30fc\:30d7\:30ed\:3089\:3057\
\:3044\:64cd\:4f5c\:ff09", "Section",
  Editable->False,
  CellTags->"1"],

Cell["\<\
\:7f6e\:63db\:3068\:3044\:3046\:306e\:306f\:6587\:5b57\:901a\:308a\:300c\:3042\
\:308b\:30d1\:30bf\:30fc\:30f3\:306b\:5408\:3046\:6587\:5b57\:5217\:3092\:5225\
\:306e\:6587\:5b57\:5217\:3067\:7f6e\:304d\:63db\:3048\:308b\:300d\:3053\:3068\
\:3092\:6307\:3057\:307e\:3059\:ff0e\:3053\:308c\:306f\:666e\:901a\:306e\:30ef\
\:30fc\:30d7\:30ed\:30bd\:30d5\:30c8\:306a\:3069\:3067\:4f7f\:308f\:308c\:308b\
\:6a5f\:80fd\:3068\:540c\:3058\:3067\:3059\:ff0e\
\>", "Text",
  Editable->False,
  ShowCellBracket->False],

Cell["\<\
\:4f8b\:3048\:3070\:6b21\:306e\:4f8b\:3092\:898b\:3066\:304f\:3060\:3055\:3044\
\:ff0e\:5909\:6570 MyText \:306b\:306f\:3042\:308b\:30e1\:30c3\:30bb\:30fc\
\:30b8\:304c\:5272\:308a\:5f53\:3066\:3089\:308c\:3066\:3044\:307e\:3059\:ff0e\
\
\>", "Text",
  Editable->False,
  ShowCellBracket->False],

Cell[BoxData[
    \(\(MyText = "\<\:660e\:65e5\:306e5\:6642\:304b\:3089\:6797\:7530\:3055\
\:3093\:3068\:304a\:4f1a\:3044\:3059\:308b\:3093\:3067\:3059\:304b\:ff1f\:6797\
\:7530\:3055\:3093\:306b\:306f\:4eca\:5ea6\:306e\:4ef6\:3067\:3044\:308d\:3044\
\:308d\:3068\:624b\:4f1d\:3063\:3066\:3082\:3089\:3063\:305f\:306e\:3067\:ff0c\
\:3088\:308d\:3057\:304f\:4f1d\:3048\:3066\:304f\:3060\:3055\:3044\:ff0e\:3061\
\:306a\:307f\:306b\:6797\:7530\:3055\:3093\:306e\:597d\:7269\:306f\:7f8a\:7fb9\
\:3067\:3059\:ff0e\>";\)\)], "InputOnly",
  Editable->False,
  Selectable->False,
  ShowCellBracket->False],

Cell[TextData[{
  "\:3057\:304b\:3057\:3053\:3053\:3067\:5927\:304d\:306a\:9593\:9055\:3044\
\:306b\:6c17\:3065\:3044\:305f\:3068\:3057\:307e\:3059\:ff0e\:5b9f\:306f\:3053\
\:308c\:304b\:3089\:4f1a\:3046\:306e\:306f\:300c\:6797\:7530\:3055\:3093\:300d\
\:3067\:306f\:306a\:304f\:300c\:68ee\:5ddd\:3055\:3093\:300d\:3060\:3063\:305f\
\:306e\:3067\:3059\:ff0e\:3059\:3079\:3066\:306e\:6587\:3092\:66f8\:304d\:63db\
\:3048\:308b\:306a\:3093\:3066\:3053\:3068\:306f\:6642\:9593\:304c\:3082\:3063\
\:305f\:3044\:306a\:3044\:3067\:3059\:3057\:ff0c\:6587\:305d\:306e\:3082\:306e\
\:306f\:4f7f\:3048\:308b\:306e\:3060\:304b\:3089\:540d\:524d\:3092\:66f8\:304d\
\:63db\:3048\:308b\:3060\:3051\:3067\:6e08\:307e\:305b\:305f\:3044\:3068\:601d\
\:3046\:306e\:306f\:5f53\:7136\:3067\:3059\:ff0e\:305d\:3053\:3067",
  "\:ff0c",
  "\:6587\:4e2d\:306e\:300c\:6797\:7530\:300d\:3068\:3044\:3046\:6587\:5b57\
\:5217\:3092\:300c\:68ee\:5ddd\:300d\:306b\:66f8\:304d\:63db\:3048\:308b\:30eb\
\:30fc\:30eb\:3092\:4f7f\:3063\:3066\:540d\:524d\:306e\:66f8\:304d\:63db\:3048\
\:3092\:884c\:3063\:3066\:307f\:307e\:3059\:ff0e\:305d\:306e\:305f\:3081\:306e\
\:95a2\:6570\:3068\:3057\:3066 ",
  ButtonBox["StringReplace",
    ButtonStyle->"RefGuideLink"],
  " \:3068\:3044\:3046\:95a2\:6570\:3092\:4f7f\:3044\:307e\:3059\:ff0e"
}], "Text",
  Editable->False,
  ShowCellBracket->False],

Cell[CellGroupData[{

Cell[BoxData[
    \(StringReplace[
      MyText, "\<\:6797\:7530\>" \[Rule] "\<\:68ee\:5ddd\>"]\)], "Input",
  Editable->False,
  Selectable->False,
  ShowCellBracket->False],

Cell[BoxData[
    \("\:660e\:65e5\:306e5\:6642\:304b\:3089\:68ee\:5ddd\:3055\:3093\:3068\
\:304a\:4f1a\:3044\:3059\:308b\:3093\:3067\:3059\:304b\:ff1f\:68ee\:5ddd\:3055\
\:3093\:306b\:306f\:4eca\:5ea6\:306e\:4ef6\:3067\:3044\:308d\:3044\:308d\:3068\
\:624b\:4f1d\:3063\:3066\:3082\:3089\:3063\:305f\:306e\:3067\:ff0c\:3088\:308d\
\:3057\:304f\:4f1d\:3048\:3066\:304f\:3060\:3055\:3044\:ff0e\:3061\:306a\:307f\
\:306b\:68ee\:5ddd\:3055\:3093\:306e\:597d\:7269\:306f\:7f8a\:7fb9\:3067\:3059\
\:ff0e"\)], "Output",
  Editable->False,
  ShowCellBracket->False]
}, Open  ]],

Cell["\<\
StringReplace \:95a2\:6570\:306e\:ff12\:756a\:76ee\:306b\:6587\:5b57\:5217\
\:3092\:66f8\:304d\:63db\:3048\:308b\:305f\:3081\:306e\:30eb\:30fc\:30eb\:3092\
\:6307\:5b9a\:3057\:3066\:3044\:307e\:3059\:ff0e\:77e2\:5370\:8a18\:53f7\:306f\
\:307e\:305a\:ff0c \:2015 (\:30cf\:30a4\:30d5\:30f3)\:3092\:5165\:529b\:3057\
\:ff0c\:305d\:306e\:5f8c\:306b\:7d9a\:3051\:3066\:ff1e(\:5927\:5c0f\:8a18\
\:53f7)\:3092\:5165\:529b\:3057\:307e\:3059\:ff0e\:305d\:306e\:307e\:307e\
\:3067\:306f \:300c\:2015\:ff1e\:300d\:3068\:3044\:3046\:6587\:5b57\:5217\
\:306b\:306a\:3063\:3066\:3044\:307e\:3059\:304c\:ff0c\:3055\:3089\:306b\:305d\
\:306e\:5f8c\:306b\:4f55\:304b\:6587\:5b57\:5217\:3092\:5165\:529b\:3059\:308b\
\:3068\:3044\:307e\:306e\:300c\:2015\:ff1e\:300d\:306e\:90e8\:5206\:304c\:81ea\
\:52d5\:7684\:306b\:300c\[Rule] \:300d\:3068\:66f8\:304d\:63db\:308f\:308a\
\:307e\:3059\:ff0e\
\>", "Text",
  Editable->False,
  ShowCellBracket->False],

Cell["\<\
\:3082\:3046\:4e00\:5ea6\:3044\:307e\:306e\:6587\:5b57\:5217\:3067\:5b9f\:9a13\
\:3057\:3066\:307f\:307e\:3057\:3087\:3046\:ff0e\:3044\:307e\:306e\:5909\:6570\
 MyText \:3067\:306f\:300c\:6797\:7530\:300d\:3068\:3044\:3046\:540d\:524d\
\:304c\:4f7f\:308f\:308c\:3066\:3044\:308b\:306e\:3067\:ff0c\:3053\:308c\:3092\
\:81ea\:5206\:306e\:540d\:524d\:306b\:5909\:66f4\:3057\:3066\:307f\:307e\:3057\
\:3087\:3046\:ff0e\:8d64\:5b57\:3067\:8a18\:8ff0\:3055\:308c\:3066\:3044\:308b\
\:90e8\:5206\:3092\:81ea\:5206\:306e\:540d\:524d\:306b\:3057\:3066\:307f\:3066\
\:304f\:3060\:3055\:3044\:ff0e\
\>", "Text",
  Editable->False,
  ShowCellBracket->False],

Cell[CellGroupData[{

Cell[BoxData[
    RowBox[{"StringReplace", "[", " ", 
      RowBox[{"MyText", ",", " ", 
        RowBox[{"\"\<\:6797\:7530\>\"", "\[Rule]", "\"\<\!\(\*
StyleBox[\\\"\:30b8\:30e7\:30f3\:30bd\:30f3\\\",\\nFontColor->RGBColor[1, 0, \
0]]\)\>\""}]}], "]"}]], "Input",
  Editable->False,
  Selectable->False,
  ShowCellBracket->False],

Cell[BoxData["\<\"\:660e\:65e5\:306e5\:6642\:304b\:3089\\!\\(\\* \
StyleBox[\\\"\:30b8\:30e7\:30f3\:30bd\:30f3\\\",\\nFontColor->RGBColor[1, 0, \
0]]\\)\:3055\:3093\:3068\:304a\:4f1a\:3044\:3059\:308b\:3093\:3067\:3059\:304b\
\:ff1f\\!\\(\\* \
StyleBox[\\\"\:30b8\:30e7\:30f3\:30bd\:30f3\\\",\\nFontColor->RGBColor[1, 0, \
0]]\\)\:3055\:3093\:306b\:306f\:4eca\:5ea6\:306e\:4ef6\:3067\:3044\:308d\:3044\
\:308d\:3068\:624b\:4f1d\:3063\:3066\:3082\:3089\:3063\:305f\:306e\:3067\:ff0c\
\:3088\:308d\:3057\:304f\:4f1d\:3048\:3066\:304f\:3060\:3055\:3044\:ff0e\:3061\
\:306a\:307f\:306b\\!\\(\\* \
StyleBox[\\\"\:30b8\:30e7\:30f3\:30bd\:30f3\\\",\\nFontColor->RGBColor[1, 0, \
0]]\\)\:3055\:3093\:306e\:597d\:7269\:306f\:7f8a\:7fb9\:3067\:3059\:ff0e\"\>"]\
, "Output",
  Editable->False,
  ShowCellBracket->False]
}, Open  ]],

Cell["\:3069\:3046\:3067\:3059\:304b\:ff1f \:304d\:3061\:3093\:3068\:540d\
\:524d\:304c\:66f8\:304d\:63db\:308f\:3063\:3066\:3044\:307e\:3059\:304b\:ff1f\
 ", "Text",
  Editable->False,
  ShowCellBracket->False]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
  StyleBox["Mathematica",
    FontSlant->"Italic"],
  " \:3067\:306e\:7f6e\:63db"
}], "Section",
  Editable->False,
  CellTags->"2"],

Cell[TextData[{
  "\:524d\:7bc0\:3067\:306f\:6587\:5b57\:5217\:306e\:7f6e\:304d\:63db\:3048\
\:3092\:884c\:3063\:3066\:307f\:307e\:3057\:305f\:ff0e",
  StyleBox["Mathematica",
    FontSlant->"Italic"],
  " \:3067\:4f7f\:3046\:7f6e\:63db\:306f\:6587\:5b57\:5217\:306b\:5bfe\:3057\
\:3066\:884c\:3046\:5834\:5408\:3088\:308a\:3082",
  "\:ff0c",
  "\:6570\:5b66\:7684\:306a\:5f0f\:ff08 ",
  StyleBox["Mathematica",
    FontSlant->"Italic"],
  " \:3067\:306f\:3082\:3063\:3071\:3089\:300e\:30ea\:30b9\:30c8\:300f\:ff09\
\:306b\:5bfe\:3057\:3066\:884c\:3046\:5834\:5408\:306e\:65b9\:304c\:591a\:3044\
\:304b\:3082\:3057\:308c\:307e\:305b\:3093\:ff0e ",
  StyleBox["Mathematica",
    FontSlant->"Italic"],
  " \:306e\:5f0f\:306b\:5bfe\:3059\:308b\:7f6e\:63db\:306f ",
  ButtonBox["Replace",
    ButtonStyle->"RefGuideLink"],
  " \:95a2\:6570\:3092\:4f7f\:3044\:307e\:3059\:ff0e"
}], "Text",
  Editable->False,
  ShowCellBracket->False],

Cell[TextData[{
  "\:4ee5\:4e0b\:306f ",
  Cell[BoxData[
      \(TraditionalForm\`x\^2\)]],
  "\:3068\:3044\:3046\:6587\:5b57\:5217\:3092\:5358\:306b ",
  Cell[BoxData[
      \(TraditionalForm\`x\)]],
  " \:3060\:3051\:306b\:66f8\:304d\:63db\:3048\:308b\:3068\:3044\:3046\:64cd\
\:4f5c\:3092\:3057\:3066\:3044\:307e\:3059",
  "\:ff0e"
}], "Text",
  Editable->False,
  ShowCellBracket->False],

Cell[CellGroupData[{

Cell[BoxData[
    \(Replace[x\^2, x\^2 \[Rule] x]\)], "Input",
  Editable->False,
  Selectable->False,
  ShowCellBracket->False],

Cell[BoxData[
    \(x\)], "Output",
  Editable->False,
  ShowCellBracket->False]
}, Open  ]],

Cell["\:540c\:3058\:7f6e\:63db\:64cd\:4f5c\:3092\:9055\:3046\:5f0f\:306b\:5bfe\
\:3057\:3066\:884c\:3063\:3066\:307f\:307e\:3059\:ff0e", "Text",
  Editable->False,
  ShowCellBracket->False],

Cell[CellGroupData[{

Cell[BoxData[
    \(Replace[\ a\ x\^2 + b\ x\^2, x\^2 \[Rule] x]\)], "Input",
  Editable->False,
  Selectable->False,
  ShowCellBracket->False],

Cell[BoxData[
    \(a\ x\^2 + b\ x\^2\)], "Output",
  Editable->False,
  ShowCellBracket->False]
}, Open  ]],

Cell[TextData[{
  "\:3055\:304d\:307b\:3069\:306e\:4f8b\:306e\:3088\:3046\:306b\:3046\:307e\
\:304f\:7f6e\:63db\:3055\:308c\:3066\:3044\:307e\:305b\:3093\:ff0e\:3053\:306e\
\:7406\:7531\:306f a ",
  Cell[BoxData[
      \(TraditionalForm\`x\^2\)]],
  "+b ",
  Cell[BoxData[
      \(TraditionalForm\`x\^2\)]],
  "\:3068\:3044\:3046\:306e\:304c\:3072\:3068\:3064\:306e\:5f0f\:3067\:306f\
\:306a\:304f",
  "\:ff0c",
  "\:5f0f\:306e\:96c6\:5408\:3067\:3042\:308b\:30ea\:30b9\:30c8\:5f0f\:3068\
\:306a\:3063\:3066\:3044\:308b\:304b\:3089\:3067\:3059\:ff0e\:3053\:306e\:3088\
\:3046\:306a\:5f0f(\:30ea\:30b9\:30c8)\:306b\:5bfe\:3057\:3066\:7f6e\:63db\
\:3092\:884c\:3046\:306b\:306f ",
  ButtonBox["ReplaceAll",
    ButtonStyle->"RefGuideLink"],
  " \:95a2\:6570\:3092\:4f7f\:3044\:307e\:3059\:ff0e"
}], "Text",
  Editable->False,
  ShowCellBracket->False],

Cell[CellGroupData[{

Cell[BoxData[
    \(ReplaceAll[\ a\ x\^2 + b\ x\^2, x\^2 \[Rule] x]\)], "Input",
  Editable->False,
  Selectable->False,
  ShowCellBracket->False],

Cell[BoxData[
    \(a\ x + b\ x\)], "Output",
  Editable->False,
  ShowCellBracket->False]
}, Open  ]],

Cell["\<\
ReplaceAll \:95a2\:6570\:306f\:30ea\:30b9\:30c8\:5185\:306e\:5404\:8981\:7d20\
\:306b\:5bfe\:3057\:3066\:7f6e\:63db\:3092\:884c\:3063\:3066\:3044\:304d\:307e\
\:3059\:ff0e\:5358\:9805\:5f0f\:306e\:96c6\:307e\:308a\:3067\:3042\:308b\:4e0b\
\:8a18\:306e\:3088\:3046\:306a\:96c6\:5408\:306b\:5bfe\:3057\:3066\:3082\:540c\
\:3058 ReplaceAll \
\:95a2\:6570\:3092\:4f7f\:3046\:3053\:3068\:304c\:3067\:304d\:307e\:3059\:ff0e\
\
\>", "Text",
  Editable->False,
  ShowCellBracket->False],

Cell[BoxData[
    \(\(vars = {x\^2, y\^2, a\ b\^2, \(2  z\)\/w\^2};\)\)], "InputOnly",
  Editable->False,
  Selectable->False,
  ShowCellBracket->False],

Cell[TextData[{
  "\:4eca\:5ea6\:306f\:4f55\:304b\:306e\:ff12\:4e57\:306b\:306a\:3063\:3066\
\:3044\:308b\:3082\:306e (",
  Cell[BoxData[
      \(TraditionalForm\`\[Placeholder]\^\[Placeholder]\)]],
  ")\:306e\:6307\:6570\:3092\:53d6\:308a\:9664\:304f\:3068\:3044\:3046\:64cd\
\:4f5c\:3092\:8003\:3048\:307e\:3059",
  "\:ff0e"
}], "Text",
  Editable->False,
  ShowCellBracket->False],

Cell[CellGroupData[{

Cell[BoxData[
    \(ReplaceAll[vars, x_\^y_ \[Rule] x]\)], "Input",
  Editable->False,
  Selectable->False,
  ShowCellBracket->False],

Cell[BoxData[
    \({x, y, a\ b, 2\ w\ z}\)], "Output",
  Editable->False,
  ShowCellBracket->False]
}, Open  ]],

Cell[TextData[{
  "\:3053\:3053\:3067\:ff12\:756a\:76ee\:306e\:5f15\:6570\:306b\:6307\:5b9a\
\:3057\:3066\:3044\:308b\:300e",
  Cell[BoxData[
      \(TraditionalForm\`x_\^y_\)]],
  " \:300f\:306b\:3064\:3044\:3066\:8aac\:660e\:3057\:307e\:3059\:ff0e\:4e0b\
\:7dda(\:ff3f)\:306f ",
  StyleBox["Mathematica",
    FontSlant->"Italic"],
  " \:3067\:306f ",
  ButtonBox["Blank",
    ButtonStyle->"RefGuideLink"],
  " \:3068\:3044\:3046\:30aa\:30d6\:30b8\:30a7\:30af\:30c8\:3092\:8868\:3057\
\:3066\:3044\:307e\:3059\:ff0eBlank \:3068\:306f",
  StyleBox["Mathematica",
    FontSlant->"Italic"],
  "\:306e\:4efb\:610f\:306e\:6570\:5f0f\:3092\:8868\:3059\:3053\:3068\:3092\
\:610f\:5473\:3057\:3066\:3044\:307e\:3059\:ff0e\:6570\:5b66\:3067\:8a00\:3046\
\:3068\:3053\:308d\:306e\:300e\:5909\:6570\:300f\:3068\:540c\:3058\:3088\:3046\
\:306a\:610f\:5473\:3060\:3068\:8003\:3048\:3066\:304f\:3060\:3055\:3044\:ff0e\
\:3064\:307e\:308a\:300e",
  Cell[BoxData[
      \(TraditionalForm\`x_\^y_\)]],
  " \:300f\:3068\:3044\:3046\:306e\:306f\:ff0c\:6307\:6570\:3092\:6301\:3064\
\:4efb\:610f\:306e\:5909\:6570\:3068\:3044\:3046\:3053\:3068\:306b\:306a\:308a\
\:307e\:3059\:ff0e\:3067\:306f\:3053\:3053\:3067\:ff0c\:4f8b\:3048\:3070",
  "\:ff0c"
}], "Text",
  Editable->False,
  ShowCellBracket->False],

Cell[BoxData[
    \(x_\^y_ \[Rule] x\)], "SymbolicExpression",
  Editable->False,
  ShowCellBracket->False],

Cell["\:3068\:3044\:3046\:30eb\:30fc\:30eb\:3092", "Text",
  Editable->False,
  ShowCellBracket->False],

Cell[BoxData[
    RowBox[{\(x_\^y_\), "\[Rule]", " ", 
      StyleBox[\(x*y\),
        FontColor->RGBColor[1, 0, 0]]}]], "SymbolicExpression",
  Editable->False,
  ShowCellBracket->False],

Cell["\:306b\:5909\:66f4\:3057\:305f\:3089\:3069\:3046\:306a\:308b\:3067\:3057\
\:3087\:3046\:304b\:ff1f", "Text",
  Editable->False,
  ShowCellBracket->False],

Cell[CellGroupData[{

Cell[BoxData[
    RowBox[{"ReplaceAll", "[", " ", 
      RowBox[{"vars", ",", 
        StyleBox[\(x_\^y_ \[Rule] x*y\),
          FontColor->RGBColor[1, 0, 0]]}], "]"}]], "Input",
  Editable->False,
  Selectable->False,
  ShowCellBracket->False],

Cell[BoxData[
    \({2\ x, 2\ y, 2\ a\ b, \(-4\)\ w\ z}\)], "Output",
  Editable->False,
  ShowCellBracket->False]
}, Open  ]],

Cell["\<\
\:6307\:6570\:3092\:6301\:3064\:5358\:9805\:306e\:6307\:6570\:90e8\:5206\:304c\
\:5143\:306e\:5909\:6570\:306b\:639b\:3051\:3089\:308c\:3066\:3044\:308b\:3088\
\:3046\:306b\:306a\:308a\:307e\:3057\:305f\:ff0e\
\>", "Text",
  Editable->False,
  ShowCellBracket->False],

Cell["\<\
\:7df4\:7fd2\:3068\:3057\:3066\:6b21\:306e\:30eb\:30fc\:30eb\:3092\:30ea\:30b9\
\:30c8 vars \
\:306b\:9069\:7528\:3057\:3066\:307f\:3066\:304f\:3060\:3055\:3044\:ff0e\
\>", "Text",
  Editable->False,
  ShowCellBracket->False],

Cell[BoxData[
    \(x_\^y_ \[Rule] x\/y\)], "SymbolicExpression",
  Editable->False,
  ShowCellBracket->False]
}, Closed]],

Cell[CellGroupData[{

Cell["\:6f14\:7fd2\:3068\:307e\:3068\:3081", "Section",
  Editable->False,
  CellTags->"3"],

Cell[TextData[{
  "(1) \:5909\:6570 x \:306e\:ff12\:6b21\:65b9\:7a0b\:5f0f a ",
  Cell[BoxData[
      \(TraditionalForm\`x\^2\)]],
  "+b ",
  Cell[BoxData[
      \(TraditionalForm\`x\)]],
  " + c \:3092",
  "\:ff0c",
  "\:5909\:6570 ",
  Cell[BoxData[
      \(TraditionalForm\`y\)]],
  " \:306b\:95a2\:3059\:308b\:ff12\:6b21\:65b9\:7a0b\:5f0f\:306b\:66f8\:304d\
\:63db\:3048\:308b\:51e6\:7406\:3092\:66f8\:304d\:306a\:3055\:3044\:ff0e"
}], "Text",
  Editable->False,
  ShowCellBracket->False],

Cell[TextData[{
  "(2) \:4e0b\:8a18\:306e\:30ea\:30b9\:30c8\:306b\:5bfe\:3057\:3066",
  "\:ff0c",
  "\:6307\:6570\:3092\:6301\:3064\:9805\:306e\:5bfe\:6570\:3092\:3068\:308b\
\:51e6\:7406\:3092\:8003",
  Cell[BoxData[
      FormBox[
        RowBox[{"\:3048", 
          FormBox["\:306a\:3055\:3044\:ff0e\:3059\:306a\:308f\:3061\:ff0c",
            "TraditionalForm"], \(x\^y\)}], TraditionalForm]]],
  " \:3092 y Log[x] \:306b\:66f8\:304d\:63db\:3048\:308b\:3088\:3046\:306a\
\:51e6\:7406\:3092\:8003\:3048\:306a\:3055\:3044\:ff0e"
}], "Text",
  Editable->False,
  ShowCellBracket->False],

Cell[BoxData[
    \(\(vars = {x\^y, a\^2 + b\^2, Exp[x\^4], f[x\ y\^3]};\)\)], "InputOnly",
  Editable->False,
  Selectable->False,
  ShowCellBracket->False]
}, Closed]]
},
FrontEndVersion->"4.0 for Microsoft Windows",
ScreenRectangle->{{0, 1280}, {0, 951}},
WindowToolbars->{},
WindowSize->{500, 500},
WindowMargins->{{184, Automatic}, {Automatic, -1}},
StyleDefinitions -> "DemoText.nb"
]


(***********************************************************************
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->{
  "1"->{
    Cell[2626, 73, 153, 3, 54, "Section",
      CellTags->"1"]},
  "2"->{
    Cell[9368, 222, 148, 6, 34, "Section",
      CellTags->"2"]},
  "3"->{
    Cell[16918, 475, 91, 2, 34, "Section",
      CellTags->"3"]}
  }
*)

(*CellTagsIndex
CellTagsIndex->{
  {"1", 18924, 538},
  {"2", 18998, 541},
  {"3", 19073, 544}
  }
*)

(*NotebookFileOutline
Notebook[{
Cell[1717, 49, 96, 2, 56, "Title"],
Cell[1816, 53, 144, 3, 41, "Subtitle"],
Cell[1963, 58, 638, 11, 67, "Text"],

Cell[CellGroupData[{
Cell[2626, 73, 153, 3, 54, "Section",
  CellTags->"1"],
Cell[2782, 78, 517, 9, 48, "Text"],
Cell[3302, 89, 305, 7, 48, "Text"],
Cell[3610, 98, 598, 10, 128, "InputOnly"],
Cell[4211, 110, 1356, 22, 124, "Text"],

Cell[CellGroupData[{
Cell[5592, 136, 174, 5, 40, "Input"],
Cell[5769, 143, 556, 9, 87, "Output"]
}, Open  ]],
Cell[6340, 155, 942, 15, 105, "Text"],
Cell[7285, 172, 655, 11, 67, "Text"],

Cell[CellGroupData[{
Cell[7965, 187, 329, 8, 40, "Input"],
Cell[8297, 197, 808, 13, 87, "Output"]
}, Open  ]],
Cell[9120, 213, 211, 4, 29, "Text"]
}, Closed]],

Cell[CellGroupData[{
Cell[9368, 222, 148, 6, 34, "Section",
  CellTags->"2"],
Cell[9519, 230, 929, 22, 86, "Text"],
Cell[10451, 254, 391, 12, 29, "Text"],

Cell[CellGroupData[{
Cell[10867, 270, 128, 4, 41, "Input"],
Cell[10998, 276, 80, 3, 49, "Output"]
}, Open  ]],
Cell[11093, 282, 189, 3, 29, "Text"],

Cell[CellGroupData[{
Cell[11307, 289, 143, 4, 41, "Input"],
Cell[11453, 295, 96, 3, 49, "Output"]
}, Open  ]],
Cell[11564, 301, 849, 21, 67, "Text"],

Cell[CellGroupData[{
Cell[12438, 326, 146, 4, 41, "Input"],
Cell[12587, 332, 90, 3, 49, "Output"]
}, Open  ]],
Cell[12692, 338, 488, 10, 67, "Text"],
Cell[13183, 350, 152, 4, 60, "InputOnly"],
Cell[13338, 356, 383, 10, 29, "Text"],

Cell[CellGroupData[{
Cell[13746, 370, 133, 4, 40, "Input"],
Cell[13882, 376, 100, 3, 49, "Output"]
}, Open  ]],
Cell[13997, 382, 1286, 29, 105, "Text"],
Cell[15286, 413, 107, 3, 41, "SymbolicExpression"],
Cell[15396, 418, 103, 2, 29, "Text"],
Cell[15502, 422, 187, 5, 41, "SymbolicExpression"],
Cell[15692, 429, 159, 3, 29, "Text"],

Cell[CellGroupData[{
Cell[15876, 436, 245, 7, 40, "Input"],
Cell[16124, 445, 114, 3, 49, "Output"]
}, Open  ]],
Cell[16253, 451, 277, 6, 29, "Text"],
Cell[16533, 459, 235, 6, 29, "Text"],
Cell[16771, 467, 110, 3, 54, "SymbolicExpression"]
}, Closed]],

Cell[CellGroupData[{
Cell[16918, 475, 91, 2, 34, "Section",
  CellTags->"3"],
Cell[17012, 479, 492, 16, 48, "Text"],
Cell[17507, 497, 588, 14, 48, "Text"],
Cell[18098, 513, 157, 4, 49, "InputOnly"]
}, Closed]]
}
]
*)




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