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

                    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[     23826,        620]*)
(*NotebookOutlinePosition[     25118,        671]*)
(*  CellTagsIndexPosition[     24946,        660]*)
(*WindowFrame->Normal*)



Notebook[{
Cell["\:30a4\:30f3\:30bf\:30e9\:30af\:30c6\:30a3\:30d6\:5165\:529b\:ff12", \
"Title",
  Editable->False,
  TextAlignment->Center],

Cell["\:9ad8\:5ea6\:306a\:30a4\:30f3\:30bf\:30e9\:30af\:30c6\:30a3\:30d6\:5165\
\:529b\:65b9\:6cd5", "Subtitle",
  Editable->False,
  TextAlignment->Center],

Cell["\<\
\:30ce\:30fc\:30c8\:30d6\:30c3\:30af\:306b\:7d30\:5de5\:3092\:884c\:3063\:3066\
\:ff0c\:9ad8\:5ea6\:306a\:5165\:529b\:30c0\:30a4\:30a2\:30ed\:30b0\:3068\:3057\
\:3066\:4f7f\:3046\:65b9\:6cd5\:3092\:5b66\:3073\:307e\:3059\:ff0e\
\>", "Text",
  Editable->False,
  ShowCellBracket->False],

Cell[CellGroupData[{

Cell["\:30ce\:30fc\:30c8\:30d6\:30c3\:30af\:3092\:30c0\:30a4\:30a2\:30ed\:30b0\
\:3068\:3057\:3066\:4f7f\:3046", "Section",
  Editable->False,
  CellTags->"1"],

Cell[TextData[{
  "\:307e\:305a\:306f\:ff0c\:30c0\:30a4\:30a2\:30ed\:30b0\:3068\:3057\:3066\
\:30ce\:30fc\:30c8\:30d6\:30c3\:30af\:3092\:958b\:304f\:65b9\:6cd5\:3092\:8003\
\:3048\:307e\:3059\:ff0e\:30ce\:30fc\:30c8\:30d6\:30c3\:30af\:81ea\:4f53\:306f\
\:ff0c ",
  StyleBox["NotebookCreate",
    FontFamily->"Courier"],
  " \:306b\:3088\:308a\:65b0\:898f\:4f5c\:6210\:3059\:308b\:3053\:3068\:304c\
\:51fa\:6765\:307e\:3059\:ff0e\:ff08",
  StyleBox["NotebookCreate",
    FontFamily->"Courier"],
  " \:306f\:ff0c\:65b0\:898f\:30ce\:30fc\:30c8\:30d6\:30c3\:30af\:304c\:9078\
\:629e\:3055\:308c\:308b\:307e\:3067\:8a55\:4fa1\:304c\:7d42\:4e86\:3057\:306a\
\:3044\:3053\:3068\:304c\:3042\:308a\:307e\:3059\:306e\:3067\:ff0c\:540c\:6642\
\:306b ",
  StyleBox["SetSelectedNotebook",
    FontFamily->"Courier"],
  " \:3082\:4f7f\:7528\:3057\:3066\:304a\:304d\:307e\:3059\:ff09"
}], "Text",
  Editable->False,
  ShowCellBracket->False],

Cell[BoxData[{
    \(\(nb = NotebookCreate[];\)\), "\[IndentingNewLine]", 
    \(\(SetSelectedNotebook[nb];\)\)}], "InputOnly",
  Editable->False,
  ShowCellBracket->False],

Cell["\<\
\:3057\:304b\:3057\:ff0c\:3053\:308c\:3067\:306f\:5927\:304d\:306a\:30ce\:30fc\
\:30c8\:30d6\:30c3\:30af\:304c\:958b\:3044\:3066\:3057\:307e\:3044\:307e\:3059\
\:3057\:ff0c\:901a\:5e38\:306e\:30ce\:30fc\:30c8\:30d6\:30c3\:30af\:3068\:5916\
\:898b\:3082\:5909\:308f\:3089\:305a\:533a\:5225\:304c\:96e3\:3057\:304f\:306a\
\:308a\:307e\:3059\:ff0e\:305d\:3053\:3067\:ff0c\:30aa\:30d7\:30b7\:30e7\:30f3\
\:3092\:4f7f\:7528\:3057\:3066\:7d30\:5de5\:3092\:884c\:3044\:307e\:3059\:ff0e\
\
\>", "Text",
  Editable->False,
  ShowCellBracket->False],

Cell[TextData[{
  "\:307e\:305a\:306f\:ff0c\:5927\:304d\:3055\:3092\:8abf\:6574\:3057\:307e\
\:3059\:ff0e\:5927\:304d\:3055\:306e\:6307\:5b9a\:306b\:306f\:30aa\:30d7\:30b7\
\:30e7\:30f3 ",
  ButtonBox["WindowSize",
    ButtonStyle->"RefGuideLink"],
  " \:3092\:4f7f\:3044\:307e\:3059\:ff0e\:5927\:304d\:3055\:306f\:3068\:308a\
\:3042\:3048\:305a 300 \:ff58 100 \:306b\:3057\:3066\:304a\:304d\:307e\:3059\
\:ff0e"
}], "Text",
  Editable->False,
  ShowCellBracket->False],

Cell[BoxData[{
    \(\(nb = 
        NotebookCreate[
          WindowSize \[Rule] {300, 100}];\)\), "\[IndentingNewLine]", 
    \(\(SetSelectedNotebook[nb];\)\)}], "InputOnly",
  Editable->False,
  ShowCellBracket->False],

Cell[TextData[{
  "\:30c0\:30a4\:30a2\:30ed\:30b0\:3068\:3057\:3066\:4f7f\:3046\:306e\:3067\
\:3059\:304b\:3089\:ff0c\:30b9\:30af\:30ed\:30fc\:30eb\:30d0\:30fc\:306a\:3069\
\:306f\:4e0d\:8981\:3067\:3059\:ff0e\:305d\:3053\:3067\:ff0c\:30aa\:30d7\:30b7\
\:30e7\:30f3 ",
  ButtonBox["WindowElements",
    ButtonStyle->"RefGuideLink"],
  " \:3092\:7528\:3044\:3066\:ff0c\:305d\:308c\:3089\:306e\:8981\:7d20\:3092\
\:6392\:9664\:3057\:307e\:3059\:ff0e"
}], "Text",
  Editable->False,
  ShowCellBracket->False],

Cell[BoxData[{
    \(\(nb = 
        NotebookCreate[WindowSize \[Rule] {300, 100}, 
          WindowElements \[Rule] {}];\)\), "\[IndentingNewLine]", 
    \(\(SetSelectedNotebook[nb];\)\)}], "InputOnly",
  Editable->False,
  ShowCellBracket->False],

Cell[TextData[{
  "\:307e\:305f\:ff0c\:30bf\:30a4\:30c8\:30eb\:306b\:300c\:540d\:79f0\:672a\
\:5b9a\:7fa9\:300d\:3068\:8868\:793a\:3055\:308c\:308b\:306e\:3082\:5165\:529b\
\:30c0\:30a4\:30a2\:30ed\:30b0\:3089\:3057\:304f\:3042\:308a\:307e\:305b\:3093\
\:306e\:3067\:ff0c\:305d\:308c\:3082\:30aa\:30d7\:30b7\:30e7\:30f3 ",
  ButtonBox["WindowTitle",
    ButtonStyle->"RefGuideLink"],
  " \:3092\:4f7f\:3044\:8a2d\:5b9a\:3057\:307e\:3059\:ff0e"
}], "Text",
  Editable->False,
  ShowCellBracket->False],

Cell[BoxData[{
    \(\(nb = 
        NotebookCreate[WindowSize \[Rule] {300, 100}, 
          WindowElements \[Rule] {}, 
          WindowTitle \[Rule] \
"\<\:5165\:529b\:30c0\:30a4\:30a2\:30ed\:30b0\>"];\)\), \
"\[IndentingNewLine]", 
    \(\(SetSelectedNotebook[nb];\)\)}], "InputOnly",
  Editable->False,
  ShowCellBracket->False],

Cell[TextData[{
  "\:305d\:306e\:4ed6\:ff0c\:5165\:529b\:30c0\:30a4\:30a2\:30ed\:30b0\:3089\
\:3057\:3044\:8a2d\:5b9a\:3092\:30aa\:30d7\:30b7\:30e7\:30f3 ",
  ButtonBox["WindowFloating",
    ButtonStyle->"RefGuideLink"],
  " \:3084 ",
  ButtonBox["WindowFrame",
    ButtonStyle->"RefGuideLink"],
  " \:306a\:3069\:4f7f\:3044\:884c\:3044\:307e\:3059\:ff0e"
}], "Text",
  Editable->False,
  ShowCellBracket->False],

Cell[BoxData[{
    \(\(nb = 
        NotebookCreate[WindowSize \[Rule] {300, 100}, 
          WindowElements \[Rule] {}, 
          WindowTitle \[Rule] \
"\<\:5165\:529b\:30c0\:30a4\:30a2\:30ed\:30b0\>", 
          WindowFrameElements \[Rule] {"\<CloseBox\>"}, 
          WindowFrame \[Rule] "\<Palette\>"];\)\), "\[IndentingNewLine]", 
    \(\(SetSelectedNotebook[nb];\)\)}], "InputOnly",
  Editable->False,
  ShowCellBracket->False]
}, Closed]],

Cell[CellGroupData[{

Cell["\:8aac\:660e\:3068\:5165\:529b\:30bb\:30eb\:306e\:6e96\:5099", "Section",
  Editable->False,
  CellTags->"2"],

Cell[TextData[{
  "\:6b21\:306b\:ff0c\:958b\:3044\:305f\:30ce\:30fc\:30c8\:30d6\:30c3\:30af\
\:306b\:306f\:4efb\:610f\:306e ",
  StyleBox["Mathematica",
    FontSlant->"Italic"],
  " \:306e\:5f0f\:3092\:8aac\:660e\:3068\:3057\:3066\:66f8\:304d\:8fbc\:3080\
\:65b9\:6cd5\:3092\:8003\:3048\:307e\:3059\:ff0e\:30ce\:30fc\:30c8\:30d6\:30c3\
\:30af\:306e\:66f8\:304d\:63db\:3048\:306f\:ff0c\:30ce\:30fc\:30c8\:30d6\:30c3\
\:30af\:3092\:5168\:4f53\:3092 ",
  ButtonBox["NotebookPut",
    ButtonStyle->"RefGuideLink"],
  " \:3067\:884c\:3046\:65b9\:6cd5\:3082\:3042\:308a\:307e\:3059\:304c\:ff0c\
\:65b0\:898f\:4f5c\:6210\:3055\:308c\:305f\:30ce\:30fc\:30c8\:30d6\:30c3\:30af\
\:306e\:5834\:5408\:ff0c ",
  ButtonBox["NotebookWrite",
    ButtonStyle->"RefGuideLink"],
  " \:3067\:9806\:306b\:66f8\:304d\:8fbc\:3093\:3067\:3044\:304f\:65b9\:304c\
\:697d\:3067\:3059\:ff0e"
}], "Text",
  Editable->False,
  ShowCellBracket->False],

Cell["\<\
\:3053\:308c\:306f\:6b21\:306e\:3088\:3046\:306b\:4f7f\:3044\:307e\:3059\:ff0e\
\:3082\:3061\:308d\:3093\:ff0c\:30bb\:30eb\:5f0f\:3092\:76f4\:63a5\:6307\:5b9a\
\:3057\:3066\:3082\:826f\:3044\:3067\:3057\:3087\:3046\:ff0e\
\>", "Text",
  Editable->False,
  ShowCellBracket->False],

Cell[BoxData[
    \(NotebookWrite[
      nb, "\<\:4efb\:610f\:306e\:6b63\:306e\:6574\:6570\[Alpha]\:3092\:5165\
\:529b\:3057\:3066\:304f\:3060\:3055\:3044.\>"]\)], "InputOnly",
  Editable->False,
  ShowCellBracket->False],

Cell["\<\
\:8aac\:660e\:306e\:6b21\:306e\:884c\:306b\:306f\:ff0c\:5165\:529b\:30bb\:30eb\
\:3092\:6e96\:5099\:3057\:307e\:3059\:ff0e\:5165\:529b\:30bb\:30eb\:306b\:306f\
\:76ee\:5370\:3068\:3057\:3066\:30bb\:30eb\:30bf\:30b0\:3092\:4ed8\:3051\:3066\
\:304a\:304d\:307e\:3059\:ff0e\:5f93\:3063\:3066\:ff0c\:76f4\:63a5\:30bb\:30eb\
\:5f0f\:3092\:5165\:529b\:3059\:308b\:3053\:3068\:306b\:306a\:308a\:307e\:3059\
\:ff0e\
\>", "Text",
  Editable->False,
  ShowCellBracket->False],

Cell[BoxData[
    \(NotebookWrite[nb, 
      Cell["\<\>", "\<Input\>", CellTags \[Rule] "\<input\>"]]\)], "InputOnly",\

  Editable->False,
  ShowCellBracket->False],

Cell["\<\
\:3053\:308c\:3067\:ff0c\:8aac\:660e\:3068\:5165\:529b\:30bb\:30eb\:306e\:6e96\
\:5099\:306f\:7d42\:308f\:308a\:307e\:3057\:305f\:ff0e\:6b8b\:3063\:3066\:3044\
\:308b\:5fc5\:8981\:306a\:8981\:7d20\:306f\:ff0c\:5165\:529b\:304c\:7d42\:308f\
\:308a\:307e\:3057\:305f\:ff0c\:30c7\:30fc\:30bf\:3092\:8aad\:307f\:3068\:3063\
\:3066\:3082\:3089\:3063\:3066\:69cb\:3044\:307e\:305b\:3093\:3088\:ff0c\:3068\
\:3044\:3046 OK \:30dc\:30bf\:30f3\:3067\:3059\:ff0eOK \:30dc\:30bf\:30f3\
\:304c\:62bc\:3055\:308c\:305f\:5834\:5408\:306b\:5b9f\:969b\:306e\:8aad\:307f\
\:8fbc\:307f\:64cd\:4f5c\:3092\:884c\:3044\:307e\:3059\:ff0e\:305d\:306e\:4f5c\
\:696d\:3092\:884c\:3046\:95a2\:6570\:3092\:4fbf\:5b9c\:4e0a readinputcell \
\:3068\:3057\:3066\:304a\:304d\:307e\:3059\:ff0e\:3053\:3053\:3067\:306f\:ff0c\
\:305d\:306e\:30dc\:30bf\:30f3\:306e\:4f5c\:308a\:65b9\:3060\:3051\:5b66\:3073\
\:307e\:3059\:ff0e\
\>", "Text",
  Editable->False,
  ShowCellBracket->False],

Cell["\<\
\:30dc\:30bf\:30f3\:306e\:30bb\:30eb\:5f0f\:3092\:66f8\:304d\:8fbc\:3080\:306b\
\:306f\:ff0c\:30dc\:30bf\:30f3\:306e\:5f0f\:3092\:77e5\:3089\:306a\:304f\:3066\
\:306f\:3044\:3051\:306a\:3044\:ff0c\:305d\:3046\:8003\:3048\:308b\:65b9\:3082\
\:3044\:308b\:304b\:3082\:3057\:308c\:307e\:305b\:3093\:ff0e\:3057\:304b\:3057\
\:306a\:304c\:3089\:ff0c\:30e1\:30cb\:30e5\:30fc\:304b\:3089\:9069\:5f53\:306a\
\:30dc\:30bf\:30f3\:3092\:4f5c\:6210\:3057\:ff0c\:305d\:306e\:30bb\:30eb\:5f0f\
\:3092\:8868\:793a\:3057\:ff0c\:305d\:308c\:3092\:30b3\:30d4\:30fc\:3059\:308b\
\:3060\:3051\:3067\:3059\:ff0e\:30dc\:30bf\:30f3\:306e\:5185\:90e8\:306b\:3064\
\:3044\:3066\:8a73\:3057\:304f\:77e5\:3063\:3066\:3044\:308b\:5fc5\:8981\:306f\
\:3042\:308a\:307e\:305b\:3093\:ff0e\
\>", "Text",
  Editable->False,
  ShowCellBracket->False],

Cell[BoxData[
    \(NotebookWrite[nb, 
      Cell[BoxData[
          ButtonBox["\<OK\>", ButtonFunction \[RuleDelayed] readinputcell[], 
            ButtonEvaluator \[Rule] Automatic, Active \[Rule] True, 
            ButtonStyle \[Rule] None]], "\<Input\>"]]\)], "InputOnly",
  Editable->False,
  ShowCellBracket->False]
}, Closed]],

Cell[CellGroupData[{

Cell["\:5b9f\:969b\:306e\:5165\:529b\:64cd\:4f5c\:3092\:884c\:3046", "Section",
  Editable->False,
  CellTags->"3"],

Cell[TextData[{
  "\:5b9f\:969b\:306e\:5165\:529b\:64cd\:4f5c\:3092\:884c\:3046\:95a2\:6570 \
readinputcell \:3092\:5b9a\:7fa9\:3057\:307e\:3057\:3087\:3046\:ff0e\:3053\
\:306e\:95a2\:6570\:306e\:5f79\:76ee\:306f\:ff0c\:30bb\:30eb\:30bf\:30b0 \
\:300cinput\:300d\:306e\:4ed8\:3044\:3066\:3044\:308b\:30bb\:30eb\:304b\:3089\
\:5f0f\:3092\:8aad\:307f\:8fbc\:3080\:3053\:3068\:3067\:3059\:ff0e\:73fe\:5728\
\:306e\:9078\:629e\:7bc4\:56f2\:304b\:3089\:30c7\:30fc\:30bf\:3092\:8aad\:307f\
\:8fbc\:3080\:95a2\:6570\:306f ",
  ButtonBox["NotebookRead",
    ButtonStyle->"RefGuideLink"],
  " \:3067\:3059\:304b\:3089\:ff0c\:6b21\:306e\:3088\:3046\:306b\:5b9a\:7fa9\
\:3059\:308b\:3053\:3068\:304c\:51fa\:6765\:307e\:3059\:ff0e"
}], "Text",
  Editable->False,
  ShowCellBracket->False],

Cell[BoxData[
    \(readinputcell[] := \((NotebookFind[nb, "\<input\>", Cell, CellTags]; 
        SelectionMove[nb, All, CellContents]; 
        NotebookRead[nb])\)\)], "InputOnly",
  Editable->False,
  ShowCellBracket->False],

Cell["\<\
\:3053\:306e\:95a2\:6570\:304c\:884c\:3063\:3066\:3044\:308b\:3053\:3068\:306f\
\:ff0c\:300c\:76ee\:5370\:3092\:4ed8\:3051\:305f\:30bb\:30eb\:3092\:63a2\:3057\
\:51fa\:3059\:300d\:ff0c\:300c\:73fe\:5728\:306e\:9078\:629e\:7bc4\:56f2\:3092\
\:30bb\:30eb\:306e\:4e2d\:8eab\:306b\:79fb\:52d5\:3059\:308b\:300d\:ff0c\:305d\
\:3057\:3066\:300c\:305d\:306e\:7bc4\:56f2\:3092\:8aad\:307f\:3068\:308b\:300d\
\:3067\:3059\:ff0e\
\>", "Text",
  Editable->False,
  ShowCellBracket->False]
}, Closed]],

Cell[CellGroupData[{

Cell["\:95a2\:6570\:306e\:5f85\:3061\:5b9f\:73fe\:3059\:308b", "Section",
  Editable->False,
  CellTags->"4"],

Cell[TextData[{
  "\:7d44\:8fbc\:95a2\:6570\:306e ",
  StyleBox["Input",
    FontFamily->"Courier"],
  " \:306f\:ff0c\:5165\:529b\:30c0\:30a4\:30a2\:30ed\:30b0\:306b\:304a\:3044\
\:3066\:4f55\:304b\:304c\:5165\:529b\:3055\:308c\:308b\:307e\:3067\:ff0c\:8a55\
\:4fa1\:3092\:4e00\:6642\:505c\:6b62\:3057\:3066\:3044\:307e\:3059\:ff0e\:3053\
\:308c\:3068\:540c\:3058\:3053\:3068\:3092\:81ea\:4f5c\:306e ",
  StyleBox["Input",
    FontFamily->"Courier"],
  " \:95a2\:6570\:3067\:5b9f\:73fe\:3059\:308b\:306b\:306f\:ff0c\:95a2\:6570 \
",
  ButtonBox["Dialog",
    Active->True,
    ButtonStyle->"RefGuideLink"],
  " \:3092\:7528\:3044\:307e\:3059\:ff0e"
}], "Text",
  Editable->False,
  ShowCellBracket->False],

Cell[TextData[{
  StyleBox["Dialog",
    FontFamily->"Courier"],
  " \:304c\:5b9f\:884c\:3055\:308c\:308b\:3068\:ff0c\:73fe\:5728\:8a55\:4fa1\
\:3057\:3066\:3044\:308b\:90e8\:5206\:306f\:305d\:306e\:307e\:307e\:3067\:ff0c\
\:65b0\:3057\:3044\:30ab\:30fc\:30cd\:30eb\:304c\:8d77\:52d5\:3057\:305f\:3088\
\:3046\:306a\:72b6\:614b\:306b\:306a\:308a\:307e\:3059\:ff0e\:3053\:306e\:5185\
\:90e8\:306e\:30eb\:30fc\:30d7\:3067 ",
  StyleBox["Return",
    FontFamily->"Courier"],
  " \:306a\:3044\:3057\:306f ",
  StyleBox["ExitDialog",
    FontFamily->"Courier"],
  " \:3092\:4f7f\:7528\:3059\:308b\:3068\:ff0c\:5185\:90e8\:30eb\:30fc\:30d7\
\:306f\:7d42\:4e86\:3057\:ff0c",
  StyleBox["Dialog",
    FontFamily->"Courier"],
  " \:95a2\:6570\:306f\:7d42\:4e86\:3057\:307e\:3059\:ff0e"
}], "Text",
  Editable->False,
  ShowCellBracket->False],

Cell[TextData[{
  "\:305d\:3053\:3067\:ff0c\:5165\:529b\:30c0\:30a4\:30a2\:30ed\:30b0\:306e\
\:6e96\:5099\:304c\:51fa\:6765\:305f\:6bb5\:968e\:3067\:4e0a\:8ff0\:306e ",
  StyleBox["Dialog",
    FontFamily->"Courier"],
  " \:3092\:547c\:3073\:51fa\:3057\:ff0c\:30e6\:30fc\:30b6\:304c OK \:30dc\
\:30bf\:30f3\:3092\:30af\:30ea\:30c3\:30af\:3057\:305f\:6642\:70b9\:3067\:518d\
\:958b\:3059\:308b\:3088\:3046\:306b\:95a2\:6570\:3092\:4f5c\:308b\:3053\:3068\
\:3067\:ff0c\:7d44\:8fbc\:95a2\:6570\:306e\:3088\:3046\:306a ",
  StyleBox["Input",
    FontFamily->"Courier"],
  " \:95a2\:6570\:3092\:4f5c\:308b\:3053\:3068\:304c\:51fa\:6765\:307e\:3059\
\:ff0e"
}], "Text",
  Editable->False,
  ShowCellBracket->False]
}, Closed]],

Cell[CellGroupData[{

Cell["\:307e\:3068\:3081\:3066\:95a2\:6570\:3068\:3059\:308b", "Section",
  Editable->False,
  CellTags->"5"],

Cell["\<\
\:3053\:308c\:307e\:3067\:306b\:500b\:3005\:306b\:6e96\:5099\:3057\:3066\:304d\
\:305f\:9053\:5177\:3092\:4f7f\:7528\:3057\:3066\:ff0c\:30aa\:30ea\:30b8\:30ca\
\:30eb\:306e\:5165\:529b\:30c0\:30a4\:30a2\:30ed\:30b0\:3092\:5b9f\:73fe\:3059\
\:308b\:95a2\:6570 myInput \:3092\:4f5c\:3063\:3066\:307f\:307e\:3057\:3087\
\:3046\:ff0e\:307e\:305a\:ff0c\:3069\:306e\:3088\:3046\:306a\:6a5f\:80fd\:306b\
\:3059\:308b\:304b\:3092\:5b9a\:7fa9\:3057\:3066\:304a\:304d\:307e\:3059\:ff0e\
\
\>", "Text",
  Editable->False,
  ShowCellBracket->False],

Cell[BoxData[
    \(myInput[
        intro]\ \:ff1a\ \:8aac\:660e\:6587\ intro\ \:3092\:4f34\:3046\:5165\
\:529b\:30c0\:30a4\:30a2\:30ed\:30b0\:3092\:8868\:793a\:3057\:ff0c\:30e6\:30fc\
\:30b6\:304c\:5165\:529b\:3057\:305f\:5f0f\:3092\:8fd4\:3057\:307e\:3059\:ff0e\
\)], "SymbolicExpression",
  Editable->False,
  ShowCellBracket->False],

Cell["\<\
\:3053\:3053\:307e\:3067\:306b\:5b66\:3093\:3060\:3053\:3068\:3092\:57fa\:790e\
\:3068\:3059\:308b\:95a2\:6570\:5b9a\:7fa9\:3092\:9806\:306b\:884c\:3044\:307e\
\:3059\:ff0e\:82e5\:5e72\:8aac\:660e\:3057\:3066\:3044\:306a\:3044\:3053\:3068\
\:3082\:542b\:3093\:3067\:3044\:307e\:3059\:304c\:ff0c\:30d5\:30ed\:30f3\:30c8\
\:30a8\:30f3\:30c9\:306b\:6df1\:304f\:95a2\:308f\:308b\:90e8\:5206\:306e\:30d7\
\:30ed\:30b0\:30e9\:30e0\:306f\:ff0c\:5b9f\:969b\:306e\:8a08\:7b97\:3092\:884c\
\:3046\:30ab\:30fc\:30cd\:30eb\:3068\:306f\:7570\:306a\:308a\:ff0c\:4f7f\:3048\
\:308b\:95a2\:6570\:3084\:64cd\:4f5c\:306b\:5236\:7d04\:304c\:3042\:308a\:307e\
\:3059\:306e\:3067\:ff0c\:5b9f\:7528\:306b\:8010\:3048\:3046\:308b\:95a2\:6570\
\:3092\:4f5c\:308b\:3068\:4e0b\:8a18\:306e\:3088\:3046\:306b\:306a\:308a\:307e\
\:3059\:ff0e\
\>", "Text",
  Editable->False,
  ShowCellBracket->False],

Cell["\<\
\:5165\:529b\:30c0\:30a4\:30a2\:30ed\:30b0\:81ea\:4f53\:3092\:8868\:3059\:5909\
\:6570\:3092\:4ed6\:306e\:5909\:6570\:3068\:540c\:540d\:306b\:306a\:3089\:306a\
\:3044\:3088\:3046\:306b\:53d6\:308a\:307e\:3059\:ff0e\
\>", "Commentary",
  Editable->False,
  ShowCellBracket->False],

Cell[BoxData[
    \(Private`inputnb =. \)], "InputOnly",
  Editable->False,
  ShowCellBracket->False],

Cell["\<\
OK \:306e\:3042\:3068\:ff0c\:307e\:305a\:5165\:529b\:30c0\:30a4\:30a2\:30ed\
\:30b0\:3092\:6d88\:3057\:ff0c\:505c\:6b62\:3057\:3066\:3044\:305f myInput \
\:306e\:51e6\:7406\:3092\:518d\:958b\:3057\:307e\:3059\:ff0e\
\>", "Commentary",
  Editable->False,
  ShowCellBracket->False],

Cell[BoxData[
    \(quitdialog[] := \((SetOptions[Private`inputnb, 
          Visible \[Rule] 
            False]; \[IndentingNewLine]ExitDialog[])\)\)], "InputOnly",
  Editable->False,
  ShowCellBracket->False],

Cell["\:5b9f\:969b\:306b\:5165\:529b\:30c0\:30a4\:30a2\:30ed\:30b0\:304b\:3089\
\:5f0f\:3092\:8aad\:307f\:3068\:308b\:95a2\:6570\:3067\:3059\:ff0e", \
"Commentary",
  Editable->False,
  ShowCellBracket->False],

Cell[BoxData[
    \(readinputcell[] := \((\[IndentingNewLine]SelectionMove[Private`inputnb, 
          Previous, CellContents]; \[IndentingNewLine]NotebookRead[
          Private`inputnb])\)\)], "InputOnly",
  Editable->False,
  ShowCellBracket->False],

Cell["\:672c\:4f53\:306b\:306a\:308a\:307e\:3059\:ff0e", "Commentary",
  Editable->False,
  ShowCellBracket->False],

Cell[BoxData[
    \(myInput[intro_] := 
      Module[{inp}, \[IndentingNewLine]Private`inputnb = 
          NotebookCreate[WindowSize \[Rule] {300, 120}, 
            WindowElements \[Rule] {}, 
            WindowTitle \[Rule] "\<\:5165\:529b\:30c0\:30a4\:30a2\:30ed\:30b0\
\>", WindowFrameElements \[Rule] {}, 
            WindowFrame \[Rule] "\<Palette\>"]; \
\[IndentingNewLine]SetSelectedNotebook[
          Private`inputnb]; \[IndentingNewLine]NotebookWrite[Private`inputnb, 
          Cell[intro, "\<Text\>", TextAlignment \[Rule] 0, \ 
            Selectable \[Rule] False, 
            ShowCellBracket \[Rule] False]]; \[IndentingNewLine]NotebookWrite[
          Private`inputnb, 
          Cell["\<\>", "\<Input\>", CellTags \[Rule] "\<input\>", 
            CellFrame \[Rule] True, 
            ShowCellBracket \[Rule] False]]; \[IndentingNewLine]NotebookWrite[
          Private`inputnb, 
          Cell[BoxData[
              ButtonBox["\<OK\>", 
                ButtonFunction \[RuleDelayed] 
                  FrontEndExecute[{FrontEnd`SelectionMove[
                        FrontEnd`InputNotebook[], All, ButtonCell], 
                      FrontEnd`NotebookApply[FrontEnd`InputNotebook[], 
                        Cell[BoxData[
                            RowBox[{"\<quitdialog\>", "\<[\>", "\<]\>"}]], \
"\<Input\>"], All], FrontEnd`SelectionEvaluate[FrontEnd`InputNotebook[], 
                        All]}], Active \[Rule] True, 
                ButtonStyle \[Rule] None]], "\<Input\>", 
            ShowCellBracket \[Rule] False, 
            TextAlignment \[Rule] 1]]; \[IndentingNewLine]SelectionMove[
          Private`inputnb, Before, 
          Notebook]; \[IndentingNewLine]Dialog[]; \[IndentingNewLine]inp = 
          readinputcell[]; \[IndentingNewLine]NotebookClose[
          Private`inputnb]; \[IndentingNewLine]Return[inp]]\)], "InputOnly",
  Editable->False,
  ShowCellBracket->False],

Cell[TextData[{
  "\:30d7\:30ed\:30b0\:30e9\:30e0\:4e2d\:306b ",
  Cell[BoxData[
      \(TraditionalForm\`Private`\)]],
  " \:3068\:3044\:3046\:90e8\:5206\:304c\:6570\:591a\:304f\:51fa\:3066\:304d\
\:307e\:3059\:304c\:ff0c\:3053\:308c\:306b\:3064\:3044\:3066\:306f\:4ed6\:306e\
\:95a2\:6570\:3084\:30d7\:30ed\:30b0\:30e9\:30e0\:3067\:4f7f\:7528\:3055\:308c\
\:3066\:3044\:308b\:5909\:6570\:3068\:91cd\:306a\:3089\:306a\:3044\:3088\:3046\
\:306b\:3059\:308b\:305f\:3081\:306e\:3082\:306e\:3067\:3059\:ff0e"
}], "Text",
  Editable->False,
  ShowCellBracket->False],

Cell["\:3053\:306e\:95a2\:6570\:306e\:4f7f\:3044\:65b9\:306f\:ff0c\:4f8b\:3048\
\:3070\:6b21\:306e\:3088\:3046\:306b\:306a\:308a\:307e\:3059\:ff0e", "Text",
  Editable->False,
  ShowCellBracket->False],

Cell[CellGroupData[{

Cell[BoxData[
    \(num = 
      myInput["\<\:6b63\:306e\:6574\:6570\:3092\:5165\:529b\:3057\:3066\:304f\
\:3060\:3055\:3044.\>"]\)], "Input",
  Editable->False,
  ShowCellBracket->False],

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

Cell[TextData[{
  "\:3053\:306e\:95a2\:6570\:304c\:8fd4\:3057\:305f\:5024\:306f\:ff0c\:30bb\
\:30eb\:306b\:5165\:529b\:3055\:308c\:305f\:5185\:5bb9\:3067\:3059\:304c\:ff0c\
\:30bb\:30eb\:5f0f\:306e\:5185\:90e8\:3092\:53d6\:308a\:51fa\:3057\:3066\:3044\
\:308b\:306b\:3059\:304e\:307e\:305b\:3093\:ff0e\:3064\:307e\:308a\:ff0c\:5fc5\
\:8981\:306b\:5fdc\:3058\:3066 ",
  ButtonBox["ToExpression",
    ButtonStyle->"RefGuideLink"],
  " \:306a\:3069\:306e\:95a2\:6570\:3092\:7528\:3044\:3066\:ff0c\:4f7f\:3044\
\:3084\:3059\:3044\:5f62\:306b\:5909\:66f4\:3059\:308b\:5fc5\:8981\:304c\:3042\
\:308a\:307e\:3059\:ff0e"
}], "Text",
  Editable->False,
  ShowCellBracket->False]
}, Closed]],

Cell[CellGroupData[{

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

Cell["\:3053\:306e\:30ce\:30fc\:30c8\:30d6\:30c3\:30af\:3092\:632f\:308a\:8fd4\
\:308a\:306a\:304c\:3089\:6b21\:306e\:6f14\:7fd2\:3092\:3057\:3066\:307f\:3066\
\:304f\:3060\:3055\:3044\:ff0e", "Text",
  Editable->False,
  ShowCellBracket->False],

Cell["\<\
(1)  \:5b9f\:969b\:306b\:4e0a\:8a18 myInput \:3092\:5b9a\:7fa9\:3057\:ff0c\
\:4f7f\:3063\:3066\:307f\:3066\:304f\:3060\:3055\:3044\:ff0e\
\>", "Text",
  Editable->False,
  ShowCellBracket->False],

Cell["\<\
(2)  \:4e0a\:8a18\:95a2\:6570 myInput \:306b\:51fa\:3066\:304d\:3066\:3044\
\:308b\:7d44\:8fbc\:95a2\:6570\:3084\:4ed5\:7d44\:307f\:306b\:3064\:3044\:3066\
\:ff0c\:524d\:534a\:306e\:7ae0\:3067\:8aac\:660e\:3057\:305f\:3082\:306e\:3067\
\:306a\:3044\:3082\:306e\:306b\:3064\:3044\:3066\:30d8\:30eb\:30d7\:30d6\:30e9\
\:30a6\:30b6\:3067\:8abf\:3079\:3066\:304f\:3060\:3055\:3044\:ff0e\
\>", "Text",
  Editable->False,
  ShowCellBracket->False]
}, Closed]]
},
FrontEndVersion->"4.0 for Microsoft Windows",
ScreenRectangle->{{0, 1280}, {0, 951}},
WindowToolbars->{},
WindowSize->{500, 500},
WindowMargins->{{138, Automatic}, {Automatic, 9}},
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[2328, 69, 159, 3, 54, "Section",
      CellTags->"1"]},
  "2"->{
    Cell[7326, 207, 115, 2, 34, "Section",
      CellTags->"2"]},
  "3"->{
    Cell[11678, 310, 115, 2, 34, "Section",
      CellTags->"3"]},
  "4"->{
    Cell[13328, 351, 109, 2, 34, "Section",
      CellTags->"4"]},
  "5"->{
    Cell[15729, 417, 109, 2, 34, "Section",
      CellTags->"5"]},
  "6"->{
    Cell[22809, 592, 91, 2, 34, "Section",
      CellTags->"6"]}
  }
*)

(*CellTagsIndex
CellTagsIndex->{
  {"1", 24478, 638},
  {"2", 24552, 641},
  {"3", 24627, 644},
  {"4", 24703, 647},
  {"5", 24779, 650},
  {"6", 24855, 653}
  }
*)

(*NotebookFileOutline
Notebook[{
Cell[1717, 49, 129, 3, 56, "Title"],
Cell[1849, 54, 156, 3, 41, "Subtitle"],
Cell[2008, 59, 295, 6, 29, "Text"],

Cell[CellGroupData[{
Cell[2328, 69, 159, 3, 54, "Section",
  CellTags->"1"],
Cell[2490, 74, 926, 20, 86, "Text"],
Cell[3419, 96, 172, 4, 68, "InputOnly"],
Cell[3594, 102, 549, 10, 67, "Text"],
Cell[4146, 114, 469, 11, 48, "Text"],
Cell[4618, 127, 221, 6, 68, "InputOnly"],
Cell[4842, 135, 505, 11, 48, "Text"],
Cell[5350, 148, 248, 6, 88, "InputOnly"],
Cell[5601, 156, 500, 10, 48, "Text"],
Cell[6104, 168, 333, 9, 108, "InputOnly"],
Cell[6440, 179, 412, 11, 48, "Text"],
Cell[6855, 192, 434, 10, 128, "InputOnly"]
}, Closed]],

Cell[CellGroupData[{
Cell[7326, 207, 115, 2, 34, "Section",
  CellTags->"2"],
Cell[7444, 211, 921, 20, 86, "Text"],
Cell[8368, 233, 289, 6, 29, "Text"],
Cell[8660, 241, 221, 5, 48, "InputOnly"],
Cell[8884, 248, 475, 9, 48, "Text"],
Cell[9362, 259, 165, 5, 68, "InputOnly"],
Cell[9530, 266, 959, 15, 105, "Text"],
Cell[10492, 283, 825, 13, 86, "Text"],
Cell[11320, 298, 321, 7, 148, "InputOnly"]
}, Closed]],

Cell[CellGroupData[{
Cell[11678, 310, 115, 2, 34, "Section",
  CellTags->"3"],
Cell[11796, 314, 776, 14, 86, "Text"],
Cell[12575, 330, 226, 5, 108, "InputOnly"],
Cell[12804, 337, 487, 9, 48, "Text"]
}, Closed]],

Cell[CellGroupData[{
Cell[13328, 351, 109, 2, 34, "Section",
  CellTags->"4"],
Cell[13440, 355, 705, 18, 67, "Text"],
Cell[14148, 375, 833, 20, 67, "Text"],
Cell[14984, 397, 708, 15, 67, "Text"]
}, Closed]],

Cell[CellGroupData[{
Cell[15729, 417, 109, 2, 34, "Section",
  CellTags->"5"],
Cell[15841, 421, 546, 10, 67, "Text"],
Cell[16390, 433, 337, 7, 60, "SymbolicExpression"],
Cell[16730, 442, 881, 14, 86, "Text"],
Cell[17614, 458, 289, 6, 23, "Commentary"],
Cell[17906, 466, 101, 3, 48, "InputOnly"],
Cell[18010, 471, 289, 6, 23, "Commentary"],
Cell[18302, 479, 211, 5, 88, "InputOnly"],
Cell[18516, 486, 209, 4, 23, "Commentary"],
Cell[18728, 492, 252, 5, 108, "InputOnly"],
Cell[18983, 499, 115, 2, 23, "Commentary"],
Cell[19101, 503, 1918, 36, 688, "InputOnly"],
Cell[21022, 541, 562, 11, 48, "Text"],
Cell[21587, 554, 201, 3, 29, "Text"],

Cell[CellGroupData[{
Cell[21813, 561, 187, 5, 40, "Input"],
Cell[22003, 568, 85, 3, 49, "Output"]
}, Open  ]],
Cell[22103, 574, 669, 13, 67, "Text"]
}, Closed]],

Cell[CellGroupData[{
Cell[22809, 592, 91, 2, 34, "Section",
  CellTags->"6"],
Cell[22903, 596, 245, 4, 29, "Text"],
Cell[23151, 602, 205, 5, 29, "Text"],
Cell[23359, 609, 451, 8, 48, "Text"]
}, Closed]]
}
]
*)




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