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

                    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[     22336,        899]*)
(*NotebookOutlinePosition[     23435,        942]*)
(*  CellTagsIndexPosition[     23305,        933]*)
(*WindowFrame->Normal*)



Notebook[{
Cell["\:57fa\:790e\:7684\:306a\:6f14\:7b97\:64cd\:4f5c\:ff12", "Title",
  Editable->False,
  TextAlignment->Center],

Cell["\:7c21\:5358\:306a\:8a08\:7b97\:3092\:5b66\:3076", "Subtitle",
  Editable->False,
  TextAlignment->Center],

Cell[TextData[{
  StyleBox["Mathematica",
    FontSlant->"Italic"],
  " \:3067\:306f\:ff0c\:6a19\:6e96\:3067\:7d44\:307f\:8fbc\:307e\:308c\:3066\
\:3044\:308b\:95a2\:6570\:3092\:4f7f\:3063\:3066\:ff0c\:307b\:3068\:3093\:3069\
\:5927\:62b5\:306e\:8a08\:7b97\:3092\:884c\:3046\:3053\:3068\:304c\:3067\:304d\
\:307e\:3059\:ff0e\:3053\:306e\:30ce\:30fc\:30c8\:30d6\:30c3\:30af\:3067\:306f\
\:ff0c\:305d\:308c\:3089\:306e\:95a2\:6570\:3092\:4f7f\:3063\:3066\:ff0c\:3044\
\:308d\:3044\:308d\:306a\:8a08\:7b97\:306b\:6311\:6226\:3057\:307e\:3059\:ff0e\
"
}], "Text",
  Editable->False,
  ShowCellBracket->False],

Cell[CellGroupData[{

Cell["\:8907\:7d20\:6570\:3068\:305d\:306e\:6f14\:7b97", "Section",
  Editable->False,
  CellTags->"1"],

Cell[TextData[{
  StyleBox["Mathematica",
    FontSlant->"Italic"],
  " \:306b\:304a\:3044\:3066\:3082\:ff0c\:901a\:5e38\:901a\:308a\:306e\:8907\
\:7d20\:6570\:306e\:6f14\:7b97\:304c\:884c\:3048\:307e\:3059\:ff0e\:307e\:305a\
\:ff0c\:865a\:6570\:5358\:4f4d\:306f\:5927\:6587\:5b57\:306e\:300c",
  StyleBox["I\:300d",
    FontFamily->"Courier"],
  " \:3067\:8868\:3059\:3053\:3068\:3092\:899a\:3048\:3066\:304f\:3060\:3055\
\:3044\:ff0e\:305d\:3057\:3066\:ff0c\:56db\:5247\:6f14\:7b97\:306f\:4ed6\:306e\
\:6570\:3068\:4f55\:3089\:5909\:308f\:3089\:305a\:884c\:3046\:3053\:3068\:304c\
\:3067\:304d\:307e\:3059\:ff0e"
}], "Text",
  Editable->False,
  ShowCellBracket->False],

Cell[CellGroupData[{

Cell[BoxData[
    \(\((1 + I)\) - \((2 - 3  I)\)\)], "Input",
  Editable->False,
  Selectable->False,
  ShowCellBracket->False],

Cell[BoxData[
    \(\(-1\) + 4\ \[ImaginaryI]\)], "Output",
  Editable->False,
  ShowCellBracket->False]
}, Open  ]],

Cell[TextData[{
  "\:51fa\:529b\:7d50\:679c\:306b\:306f\:865a\:6570\:5358\:4f4d\:304c ",
  StyleBox["\[ImaginaryI]",
    FontFamily->"Courier"],
  " \:3068\:8868\:793a\:3055\:308c\:3066\:3044\:308b\:3053\:3068\:306b\:6ce8\
\:610f\:3057\:3066\:304f\:3060\:3055\:3044\:ff0e"
}], "Text",
  Editable->False,
  ShowCellBracket->False],

Cell[CellGroupData[{

Cell[BoxData[
    \(\((1 + I)\) \((1 - I)\)\)], "Input",
  Editable->False,
  Selectable->False,
  ShowCellBracket->False],

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

Cell[TextData[{
  "\:8907\:7d20\:6570\:306e\:5b9f\:6570\:90e8\:3068\:865a\:6570\:90e8\:3068\
\:3092\:305d\:308c\:305e\:308c\:53d6\:308a\:51fa\:3059\:306b\:306f\:ff0c\:95a2\
\:6570 ",
  ButtonBox["Re",
    ButtonStyle->"RefGuideLink"],
  " \:3068 ",
  ButtonBox["Im",
    ButtonStyle->"RefGuideLink"],
  " \:3092\:4f7f\:3044\:307e\:3059\:ff0e"
}], "Text",
  Editable->False,
  ShowCellBracket->False],

Cell[CellGroupData[{

Cell[BoxData[
    \(Re[2 - 3  I]\)], "Input",
  Editable->False,
  Selectable->False,
  ShowCellBracket->False],

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

Cell[CellGroupData[{

Cell[BoxData[
    \(Im[2 - 3  I]\)], "Input",
  Editable->False,
  Selectable->False,
  ShowCellBracket->False],

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

Cell[TextData[{
  "\:305f\:3060\:3057\:ff0c\:6b21\:306e\:3088\:3046\:306a\:5834\:5408\:ff0c\
\:5b9f\:6570\:90e8\:3068\:3057\:3066 ",
  Cell[BoxData[
      \(TraditionalForm\`x\)]],
  " \:306e\:307f\:3092\:53d6\:308a\:51fa\:3059\:3053\:3068\:306f\:3067\:304d\
\:307e\:305b\:3093\:ff0e"
}], "Text",
  Editable->False,
  ShowCellBracket->False],

Cell[CellGroupData[{

Cell[BoxData[
    \(Re[x + y\ I]\)], "Input",
  Editable->False,
  Selectable->False,
  ShowCellBracket->False],

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

Cell[TextData[{
  "\:3053\:308c\:306f\:ff0c\:5909\:6570 ",
  Cell[BoxData[
      \(TraditionalForm\`x\)]],
  " \:3068 ",
  Cell[BoxData[
      \(TraditionalForm\`y\)]],
  " \:304c\:8907\:7d20\:6570\:3067\:3042\:308b\:5834\:5408\:3082\:8003\:3048\
\:308b\:5fc5\:8981\:304c\:3042\:308b\:305f\:3081\:3067\:3059\:ff0e\:305d\:308c\
\:305e\:308c\:306e\:5909\:6570\:304c\:5b9f\:6570\:3057\:304b\:53d6\:3089\:306a\
\:3044\:3068\:4eee\:5b9a\:3059\:308b\:5834\:5408\:306f\:ff0c\:6b21\:306e\:3088\
\:3046\:306b\:95a2\:6570 ",
  ButtonBox["ComplexExpand",
    ButtonStyle->"RefGuideLink"],
  " \:3092\:4f7f\:3063\:3066\:304f\:3060\:3055\:3044\:ff0e"
}], "Text",
  Editable->False,
  ShowCellBracket->False],

Cell[CellGroupData[{

Cell[BoxData[
    \(ComplexExpand[Re[x + y\ I]]\)], "Input",
  Editable->False,
  Selectable->False,
  ShowCellBracket->False],

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

Cell[TextData[{
  "\:95a2\:6570 ",
  StyleBox["ComplexExpand",
    FontFamily->"Courier"],
  " \:306f\:ff0c\:3059\:3079\:3066\:306e\:5909\:6570\:304c\:5b9f\:6570\:5024\
\:3057\:304b\:53d6\:3089\:306a\:3044\:3068\:3044\:3046\:4eee\:5b9a\:306e\:4e0b\
\:ff0c\:5f0f\:306e\:5c55\:958b\:3092\:884c\:3046\:306e\:3067\:ff0c\:4e0a\:8a18\
\:306e\:3088\:3046\:306b ",
  Cell[BoxData[
      \(TraditionalForm\`x\)]],
  " \:306e\:307f\:304c\:53d6\:308a\:51fa\:305b\:307e\:3059\:ff0e"
}], "Text",
  Editable->False,
  ShowCellBracket->False],

Cell[TextData[{
  "\:307e\:305f\:ff0c\:8907\:7d20\:6570\:306e\:504f\:89d2\:3092\:8a08\:7b97\
\:3059\:308b\:306b\:306f\:95a2\:6570 ",
  ButtonBox["Arg",
    ButtonStyle->"RefGuideLink"],
  " \:3092\:ff0c\:5171\:5f79\:306a\:8907\:7d20\:6570\:306e\:8a08\:7b97\:306b\
\:306f\:95a2\:6570 ",
  ButtonBox["Conjugate",
    ButtonStyle->"RefGuideLink"],
  " \:3092\:4f7f\:3044\:307e\:3059\:ff0e"
}], "Text",
  Editable->False,
  ShowCellBracket->False],

Cell[CellGroupData[{

Cell[BoxData[
    \(Arg[1\/2 + \(\(\@3\) \[ImaginaryI]\)\/2]\)], "Input",
  Editable->False,
  Selectable->False,
  ShowCellBracket->False],

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

Cell[CellGroupData[{

Cell[BoxData[
    \(Conjugate[1 - I]\)], "Input",
  Editable->False,
  Selectable->False,
  ShowCellBracket->False],

Cell[BoxData[
    \(1 + \[ImaginaryI]\)], "Output",
  Editable->False,
  ShowCellBracket->False]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["\:57fa\:790e\:7684\:306a\:6570\:5024\:95a2\:6570", "Section",
  Editable->False,
  CellTags->"2"],

Cell[TextData[{
  StyleBox["Mathematica",
    FontSlant->"Italic"],
  " \:3067\:306f\:ff0c\:6b21\:306e\:3088\:3046\:306a\:57fa\:790e\:7684\:306a\
\:6570\:5024\:95a2\:6570\:3092\:4f7f\:3046\:3053\:3068\:304c\:3067\:304d\:307e\
\:3059\:ff0e"
}], "Text",
  Editable->False,
  ShowCellBracket->False],

Cell[TextData[{
  "\:7d76\:5bfe\:5024\t\t\t\:ff1a ",
  ButtonBox["Abs",
    ButtonStyle->"RefGuideLink"]
}], "Text",
  Editable->False,
  ShowCellBracket->False],

Cell[TextData[{
  "\:7b26\:53f7\t\t\t\:ff1a ",
  ButtonBox["Sign",
    ButtonStyle->"RefGuideLink"]
}], "Text",
  Editable->False,
  ShowCellBracket->False],

Cell[TextData[{
  "\:6574\:6570\:3078\:306e\:307e\:308b\:3081\t\t\:ff1a ",
  ButtonBox["Round",
    ButtonStyle->"RefGuideLink"]
}], "Text",
  Editable->False,
  ShowCellBracket->False],

Cell[TextData[{
  "\:6574\:6570\:90e8\:5206\:306e\:53d6\:51fa\t\t\:ff1a ",
  ButtonBox["IntegerPart",
    ButtonStyle->"RefGuideLink"]
}], "Text",
  Editable->False,
  ShowCellBracket->False],

Cell[TextData[{
  "\:5c0f\:6570\:90e8\:5206\:306e\:53d6\:51fa\t\t\:ff1a ",
  ButtonBox["FractionalPart",
    ButtonStyle->"RefGuideLink"]
}], "Text",
  Editable->False,
  ShowCellBracket->False],

Cell[TextData[{
  "\:5f15\:6570\:672a\:6e80\:306e\:6700\:5927\:6574\:6570\t\:ff1a ",
  ButtonBox["Floor",
    ButtonStyle->"RefGuideLink"]
}], "Text",
  Editable->False,
  ShowCellBracket->False],

Cell[TextData[{
  "\:5f15\:6570\:4ee5\:4e0a\:306e\:6700\:5c0f\:6574\:6570\t\:ff1a ",
  ButtonBox["Ceiling",
    ButtonStyle->"RefGuideLink"]
}], "Text",
  Editable->False,
  ShowCellBracket->False],

Cell[TextData[{
  "\:5fae\:5c0f\:6570\:306e\:5207\:308a\:6368\:3066\t\:ff1a ",
  ButtonBox["Chop",
    ButtonStyle->"RefGuideLink"]
}], "Text",
  Editable->False,
  ShowCellBracket->False],

Cell[TextData[{
  "\:6700\:5927\:5024\t\t\t\:ff1a ",
  ButtonBox["Max",
    ButtonStyle->"RefGuideLink"]
}], "Text",
  Editable->False,
  ShowCellBracket->False],

Cell[TextData[{
  "\:6700\:5c0f\:5024\t\t\t\:ff1a ",
  ButtonBox["Min",
    ButtonStyle->"RefGuideLink"]
}], "Text",
  Editable->False,
  ShowCellBracket->False],

Cell[TextData[{
  "\:5270\:4f59\:306e\:8a08\:7b97\t\t\:ff1a ",
  ButtonBox["Mod",
    ButtonStyle->"RefGuideLink"]
}], "Text",
  Editable->False,
  ShowCellBracket->False],

Cell["\<\
\:305d\:308c\:305e\:308c\:4f7f\:3044\:65b9\:306f\:3068\:3066\:3082\:7c21\:5358\
\:3067\:ff0c\:76f4\:611f\:7684\:306b\:4f7f\:3046\:3053\:3068\:304c\:3067\:304d\
\:308b\:3068\:601d\:3044\:307e\:3059\:306e\:3067\:ff0c\:3044\:304f\:3064\:304b\
\:306e\:5b9f\:4f8b\:3092\:793a\:3059\:3060\:3051\:306b\:3057\:3066\:304a\:304d\
\:307e\:3059\:ff0e\
\>", "Text",
  Editable->False,
  ShowCellBracket->False],

Cell[CellGroupData[{

Cell[BoxData[
    \(Abs[\(-3\)]\)], "Input",
  Editable->False,
  Selectable->False,
  ShowCellBracket->False],

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

Cell[CellGroupData[{

Cell[BoxData[
    \(Sign[\(-123\)]\)], "Input",
  Editable->False,
  Selectable->False,
  ShowCellBracket->False],

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

Cell[CellGroupData[{

Cell[BoxData[
    \(Round[4.5]\)], "Input",
  Editable->False,
  Selectable->False,
  ShowCellBracket->False],

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

Cell[CellGroupData[{

Cell[BoxData[
    \(IntegerPart[1.5]\)], "Input",
  Editable->False,
  Selectable->False,
  ShowCellBracket->False],

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

Cell[CellGroupData[{

Cell[BoxData[
    \(FractionalPart[1.5]\)], "Input",
  Editable->False,
  Selectable->False,
  ShowCellBracket->False],

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

Cell[CellGroupData[{

Cell[BoxData[
    \(Floor[4.5]\)], "Input",
  Editable->False,
  Selectable->False,
  ShowCellBracket->False],

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

Cell[CellGroupData[{

Cell[BoxData[
    \(Ceiling[4.5]\)], "Input",
  Editable->False,
  Selectable->False,
  ShowCellBracket->False],

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

Cell[CellGroupData[{

Cell[BoxData[
    \(Chop[1 + 0.00000000001\ I]\)], "Input",
  Editable->False,
  Selectable->False,
  ShowCellBracket->False],

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

Cell[CellGroupData[{

Cell[BoxData[
    \(Max[3, 1, 4]\)], "Input",
  Editable->False,
  Selectable->False,
  ShowCellBracket->False],

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

Cell[CellGroupData[{

Cell[BoxData[
    \(Min[3, 1, 4]\)], "Input",
  Editable->False,
  Selectable->False,
  ShowCellBracket->False],

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

Cell[CellGroupData[{

Cell[BoxData[
    \(Mod[10, 3]\)], "Input",
  Editable->False,
  Selectable->False,
  ShowCellBracket->False],

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

Cell[TextData[{
  "\:306a\:304a\:ff0c\:3053\:308c\:4ee5\:5916\:306b\:3082\:4e00\:822c\:306b\
\:4f7f\:308f\:308c\:308b\:95a2\:6570\:304c ",
  StyleBox["Mathematica",
    FontSlant->"Italic"],
  " \:30d6\:30c3\:30af\:306e ",
  ButtonBox["3.2",
    ButtonStyle->"MainBookLink"],
  " \:7ae0\:3067\:7d39\:4ecb\:3055\:308c\:3066\:3044\:307e\:3059\:ff0e"
}], "Text",
  Editable->False,
  ShowCellBracket->False]
}, Closed]],

Cell[CellGroupData[{

Cell["\:521d\:7b49\:95a2\:6570\:306a\:3069", "Section",
  Editable->False,
  CellTags->"3"],

Cell[TextData[{
  "\:3082\:3061\:308d\:3093\:ff0c ",
  StyleBox["Mathematica",
    FontSlant->"Italic"],
  " \:3067\:3082\:521d\:7b49\:95a2\:6570\:3092\:59cb\:3081\:591a\:304f\:306e\
\:6570\:5b66\:95a2\:6570\:3092\:4f7f\:3046\:3053\:3068\:304c\:3067\:304d\:307e\
\:3059\:ff0e\:5927\:5909\:591a\:304f\:306e\:95a2\:6570\:304c\:4f7f\:3048\:308b\
\:305f\:3081\:ff0c\:305d\:306e\:3059\:3079\:3066\:306e\:7d39\:4ecb\:306f ",
  StyleBox["Mathematica",
    FontSlant->"Italic"],
  " \:30d6\:30c3\:30af\:306e ",
  ButtonBox["3.2",
    ButtonStyle->"MainBookLink"],
  " \:7ae0\:306b\:4efb\:305b\:ff0c\:3053\:3053\:3067\:306f\:4e09\:89d2\:95a2\
\:6570\:3068\:30eb\:30fc\:30c8\:306b\:3064\:3044\:3066\:306e\:307f\:8aac\:660e\
\:3057\:307e\:3059\:ff0e"
}], "Text",
  Editable->False,
  ShowCellBracket->False],

Cell[TextData[{
  "\:307e\:305a\:ff0c\:6839\:53f7\:306b\:3064\:3044\:3066\:3067\:3059\:304c\
\:ff0c ",
  StyleBox["Mathematica",
    FontSlant->"Italic"],
  " \:3067\:306f ",
  Cell[BoxData[
      \(TraditionalForm\`\@2\)]],
  " \:3092 ",
  StyleBox["Sqrt[2]",
    FontFamily->"Courier"],
  " \:3068\:8868\:73fe\:3057\:307e\:3059\:ff0e"
}], "Text",
  Editable->False,
  ShowCellBracket->False],

Cell[CellGroupData[{

Cell[BoxData[
    \(Sqrt[2]\)], "Input",
  Editable->False,
  Selectable->False,
  ShowCellBracket->False],

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

Cell[TextData[{
  "\:305d\:3057\:3066\:ff0c",
  ButtonBox["\:57fa\:790e\:7684\:306a\:6f14\:7b97\:64cd\:4f5c\:ff11",
    ButtonData:>{"bsicman1.nb", None},
    ButtonStyle->"Hyperlink"],
  "\:3067\:89e6\:308c\:305f\:901a\:308a\:ff0c\:305d\:306e\:8fd1\:4f3c\:5024\
\:3092\:8a08\:7b97\:3059\:308b\:306b\:306f\:95a2\:6570 ",
  StyleBox["N",
    FontFamily->"Courier"],
  " \:3092\:7528\:3044\:307e\:3059\:ff0e"
}], "Text",
  Editable->False,
  ShowCellBracket->False],

Cell[CellGroupData[{

Cell[BoxData[
    \(N[Sqrt[2]]\)], "Input",
  Editable->False,
  Selectable->False,
  ShowCellBracket->False],

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

Cell["\:6839\:53f7\:306e\:4e2d\:3092\:7c21\:5358\:5316\:3067\:304d\:308b\:5834\
\:5408\:306f\:ff0c\:81ea\:52d5\:7684\:306b\:7c21\:5358\:5316\:304c\:884c\:308f\
\:308c\:307e\:3059\:ff0e", "Text",
  Editable->False,
  ShowCellBracket->False],

Cell[CellGroupData[{

Cell[BoxData[
    \(Sqrt[8]\)], "Input",
  Editable->False,
  Selectable->False,
  ShowCellBracket->False],

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

Cell[TextData[{
  "\:3055\:3066\:ff0c\:4e09\:89d2\:95a2\:6570\:3067\:3059\:304c\:ff0c\:307e\
\:305a ",
  StyleBox["Mathematica",
    FontSlant->"Italic"],
  " \:3067\:306f\:5186\:5468\:7387 ",
  Cell[BoxData[
      \(TraditionalForm\`\[Pi]\)]],
  " \:306f ",
  StyleBox["Pi",
    FontFamily->"Courier"],
  " \:3068\:8868\:73fe\:3057\:307e\:3059\:ff0e"
}], "Text",
  Editable->False,
  ShowCellBracket->False],

Cell[CellGroupData[{

Cell[BoxData[
    \(Pi\)], "Input",
  Editable->False,
  Selectable->False,
  ShowCellBracket->False],

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

Cell["\<\
\:8fd1\:4f3c\:5024\:3092\:8a08\:7b97\:3059\:308b\:3068\:ff0c\:5b9f\:969b\:306e\
\:5186\:5468\:7387\:3092\:3069\:3053\:307e\:3067\:3082\:78ba\:8a8d\:3059\:308b\
\:3053\:3068\:304c\:3067\:304d\:307e\:3059\:ff0e\
\>", "Text",
  Editable->False,
  ShowCellBracket->False],

Cell[CellGroupData[{

Cell[BoxData[
    \(N[Pi]\)], "Input",
  Editable->False,
  Selectable->False,
  ShowCellBracket->False],

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

Cell[CellGroupData[{

Cell[BoxData[
    \(N[Pi, 100]\)], "Input",
  Editable->False,
  Selectable->False,
  ShowCellBracket->False],

Cell[BoxData[
    \(3.1415926535897932384626433832795028841971693993751058209749445923078164\
0628620899862803482534211706798214808651`100\)], "Output",
  Editable->False,
  ShowCellBracket->False]
}, Open  ]],

Cell[TextData[{
  StyleBox["Mathematica",
    FontSlant->"Italic"],
  " \:3067\:306f\:ff0c\:4e09\:89d2\:95a2\:6570\:3082\:307b\:3068\:3093\:3069\
\:306e\:3082\:306e\:304c\:4f7f\:3048\:307e\:3059\:304c\:ff0c\:57fa\:672c\:306f\
\:6b21\:306e\:ff13\:3064\:3067\:3059\:ff0e"
}], "Text",
  Editable->False,
  ShowCellBracket->False],

Cell[BoxData[
    RowBox[{"\:6b63\:5f26\:ff1a", 
      ButtonBox["Sin",
        ButtonStyle->"RefGuideLink"], "\:ff0c\:4f59\:5f26\:ff1a", 
      ButtonBox["Cos",
        ButtonStyle->"RefGuideLink"], "\:ff0c\:6b63\:63a5\:ff1a", 
      ButtonBox["Tan",
        ButtonStyle->"RefGuideLink"]}]], "SymbolicExpression",
  Editable->False,
  ShowCellBracket->False],

Cell["\<\
\:3053\:308c\:3089\:306e\:4e09\:89d2\:95a2\:6570\:3082\:6570\:306e\:6f14\:7b97\
\:3068\:540c\:3058\:304f\:ff0c\:53b3\:5bc6\:306a\:89d2\:304c\:4e0e\:3048\:3089\
\:308c\:308b\:3068\:53b3\:5bc6\:306a\:6570\:3092\:ff0c\:8fd1\:4f3c\:5024\:3067\
\:4e0e\:3048\:3089\:308c\:308b\:3068\:8fd1\:4f3c\:5024\:3067\:7d50\:679c\:3092\
\:8fd4\:3057\:307e\:3059\:ff0e\
\>", "Text",
  Editable->False,
  ShowCellBracket->False],

Cell[CellGroupData[{

Cell[BoxData[
    \(Sin[Pi]\)], "Input",
  Editable->False,
  Selectable->False,
  ShowCellBracket->False],

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

Cell[CellGroupData[{

Cell[BoxData[
    \(Sin[Pi/2]\)], "Input",
  Editable->False,
  Selectable->False,
  ShowCellBracket->False],

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

Cell[CellGroupData[{

Cell[BoxData[
    \(Cos[10]\)], "Input",
  Editable->False,
  Selectable->False,
  ShowCellBracket->False],

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

Cell[CellGroupData[{

Cell[BoxData[
    \(Cos[10. ]\)], "Input",
  Editable->False,
  Selectable->False,
  ShowCellBracket->False],

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

Cell[TextData[{
  "\:3053\:3053\:3067\:6ce8\:610f\:3059\:3079\:304d\:70b9\:306f\:ff0c ",
  StyleBox["Mathematica",
    FontSlant->"Italic"],
  " \:306e\:95a2\:6570\:306f\:300c",
  StyleBox["[",
    FontFamily->"Courier"],
  "\:300d\:3068\:300c",
  StyleBox["]",
    FontFamily->"Courier"],
  "\:300d\:3067\:5f15\:6570\:3092\:56f2\:3080\:5fc5\:8981\:304c\:3042\:308b\
\:3068\:3044\:3046\:3053\:3068\:3067\:3059\:ff0e\:6570\:5b66\:306e\:8868\:8a18\
\:3068\:306f\:591a\:5c11\:7570\:306a\:308a\:307e\:3059\:306e\:3067\:ff0c\:6ce8\
\:610f\:3057\:3066\:5165\:529b\:3057\:3066\:304f\:3060\:3055\:3044\:ff0e"
}], "Text",
  Editable->False,
  ShowCellBracket->False]
}, Closed]],

Cell[CellGroupData[{

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

Cell[TextData[{
  "\:3053\:306e\:30ce\:30fc\:30c8\:30d6\:30c3\:30af\:306e\:5185\:5bb9\:3092\
\:632f\:308a\:8fd4\:3063\:3066\:ff0c\:6b21\:306e\:8a08\:7b97\:3092 ",
  StyleBox["Mathematica",
    FontSlant->"Italic"],
  " \:3092\:4f7f\:3063\:3066\:3084\:3063\:3066\:307f\:307e\:3057\:3087\:3046\
\:ff0e"
}], "Text",
  Editable->False,
  ShowCellBracket->False],

Cell["\<\
(1)  \:8907\:7d20\:6570\:306e\:8a08\:7b97\:3092\:3044\:304f\:3064\:304b\:5b9f\
\:969b\:306b\:884c\:3044\:ff0c\:5b9f\:90e8\:3068\:865a\:90e8\:3092\:53d6\:308a\
\:51fa\:3057\:3066\:304f\:3060\:3055\:3044\:ff0e\
\>", "Text",
  Editable->False,
  ShowCellBracket->False],

Cell[TextData[{
  "(2)  ",
  StyleBox["Abs",
    FontFamily->"Courier"],
  " \:306a\:3069\:306e\:95a2\:6570\:3092\:3044\:304f\:3064\:3082\:4f7f\:3044\
\:ff0c ",
  StyleBox["Mathematica",
    FontSlant->"Italic"],
  " \:306b\:304a\:3051\:308b\:8a08\:7b97\:306b\:6163\:308c\:3066\:304f\:3060\
\:3055\:3044\:ff0e"
}], "Text",
  Editable->False,
  ShowCellBracket->False],

Cell[TextData[{
  "(3)  \:826f\:304f\:77e5\:3089\:308c\:3066\:3044\:308b\:4e09\:89d2\:95a2\
\:6570\:306e\:5024\:3092 ",
  StyleBox["Mathematica",
    FontSlant->"Italic"],
  " \:3092\:4f7f\:3063\:3066\:78ba\:8a8d\:3057\: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->{{306, Automatic}, {Automatic, 121}},
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[2579, 73, 103, 2, 54, "Section",
      CellTags->"1"]},
  "2"->{
    Cell[8135, 291, 103, 2, 34, "Section",
      CellTags->"2"]},
  "3"->{
    Cell[13953, 573, 91, 2, 34, "Section",
      CellTags->"3"]},
  "4"->{
    Cell[20903, 850, 91, 2, 34, "Section",
      CellTags->"4"]}
  }
*)

(*CellTagsIndex
CellTagsIndex->{
  {"1", 22990, 917},
  {"2", 23064, 920},
  {"3", 23139, 923},
  {"4", 23214, 926}
  }
*)

(*NotebookFileOutline
Notebook[{
Cell[1717, 49, 115, 2, 56, "Title"],
Cell[1835, 53, 112, 2, 41, "Subtitle"],
Cell[1950, 57, 604, 12, 67, "Text"],

Cell[CellGroupData[{
Cell[2579, 73, 103, 2, 54, "Section",
  CellTags->"1"],
Cell[2685, 77, 671, 14, 67, "Text"],

Cell[CellGroupData[{
Cell[3381, 95, 127, 4, 40, "Input"],
Cell[3511, 101, 104, 3, 49, "Output"]
}, Open  ]],
Cell[3630, 107, 329, 8, 29, "Text"],

Cell[CellGroupData[{
Cell[3984, 119, 122, 4, 40, "Input"],
Cell[4109, 125, 80, 3, 49, "Output"]
}, Open  ]],
Cell[4204, 131, 399, 12, 29, "Text"],

Cell[CellGroupData[{
Cell[4628, 147, 111, 4, 40, "Input"],
Cell[4742, 153, 80, 3, 49, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[4859, 161, 111, 4, 40, "Input"],
Cell[4973, 167, 85, 3, 49, "Output"]
}, Open  ]],
Cell[5073, 173, 341, 9, 29, "Text"],

Cell[CellGroupData[{
Cell[5439, 186, 111, 4, 40, "Input"],
Cell[5553, 192, 97, 3, 49, "Output"]
}, Open  ]],
Cell[5665, 198, 694, 17, 67, "Text"],

Cell[CellGroupData[{
Cell[6384, 219, 126, 4, 40, "Input"],
Cell[6513, 225, 80, 3, 49, "Output"]
}, Open  ]],
Cell[6608, 231, 527, 13, 48, "Text"],
Cell[7138, 246, 443, 12, 48, "Text"],

Cell[CellGroupData[{
Cell[7606, 262, 139, 4, 58, "Input"],
Cell[7748, 268, 87, 3, 60, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[7872, 276, 115, 4, 40, "Input"],
Cell[7990, 282, 96, 3, 49, "Output"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{
Cell[8135, 291, 103, 2, 34, "Section",
  CellTags->"2"],
Cell[8241, 295, 296, 8, 29, "Text"],
Cell[8540, 305, 161, 6, 29, "Text"],
Cell[8704, 313, 156, 6, 29, "Text"],
Cell[8863, 321, 185, 6, 29, "Text"],
Cell[9051, 329, 191, 6, 29, "Text"],
Cell[9245, 337, 194, 6, 29, "Text"],
Cell[9442, 345, 195, 6, 29, "Text"],
Cell[9640, 353, 197, 6, 29, "Text"],
Cell[9840, 361, 188, 6, 29, "Text"],
Cell[10031, 369, 161, 6, 29, "Text"],
Cell[10195, 377, 161, 6, 29, "Text"],
Cell[10359, 385, 171, 6, 29, "Text"],
Cell[10533, 393, 407, 8, 48, "Text"],

Cell[CellGroupData[{
Cell[10965, 405, 110, 4, 40, "Input"],
Cell[11078, 411, 80, 3, 49, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[11195, 419, 113, 4, 40, "Input"],
Cell[11311, 425, 85, 3, 49, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[11433, 433, 109, 4, 40, "Input"],
Cell[11545, 439, 80, 3, 49, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[11662, 447, 115, 4, 40, "Input"],
Cell[11780, 453, 80, 3, 49, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[11897, 461, 118, 4, 40, "Input"],
Cell[12018, 467, 83, 3, 49, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[12138, 475, 109, 4, 40, "Input"],
Cell[12250, 481, 80, 3, 49, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[12367, 489, 111, 4, 40, "Input"],
Cell[12481, 495, 80, 3, 49, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[12598, 503, 125, 4, 40, "Input"],
Cell[12726, 509, 80, 3, 49, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[12843, 517, 111, 4, 40, "Input"],
Cell[12957, 523, 80, 3, 49, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[13074, 531, 111, 4, 40, "Input"],
Cell[13188, 537, 80, 3, 49, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[13305, 545, 109, 4, 40, "Input"],
Cell[13417, 551, 80, 3, 49, "Output"]
}, Open  ]],
Cell[13512, 557, 404, 11, 48, "Text"]
}, Closed]],

Cell[CellGroupData[{
Cell[13953, 573, 91, 2, 34, "Section",
  CellTags->"3"],
Cell[14047, 577, 796, 18, 67, "Text"],
Cell[14846, 597, 393, 14, 29, "Text"],

Cell[CellGroupData[{
Cell[15264, 615, 106, 4, 40, "Input"],
Cell[15373, 621, 82, 3, 50, "Output"]
}, Open  ]],
Cell[15470, 627, 463, 12, 48, "Text"],

Cell[CellGroupData[{
Cell[15958, 643, 109, 4, 40, "Input"],
Cell[16070, 649, 98, 3, 49, "Output"]
}, Open  ]],
Cell[16183, 655, 239, 4, 29, "Text"],

Cell[CellGroupData[{
Cell[16447, 663, 106, 4, 40, "Input"],
Cell[16556, 669, 85, 3, 50, "Output"]
}, Open  ]],
Cell[16656, 675, 408, 14, 29, "Text"],

Cell[CellGroupData[{
Cell[17089, 693, 101, 4, 40, "Input"],
Cell[17193, 699, 84, 3, 49, "Output"]
}, Open  ]],
Cell[17292, 705, 277, 6, 29, "Text"],

Cell[CellGroupData[{
Cell[17594, 715, 104, 4, 40, "Input"],
Cell[17701, 721, 97, 3, 49, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[17835, 729, 109, 4, 40, "Input"],
Cell[17947, 735, 197, 4, 68, "Output"]
}, Open  ]],
Cell[18159, 742, 326, 8, 48, "Text"],
Cell[18488, 752, 359, 9, 41, "SymbolicExpression"],
Cell[18850, 763, 419, 8, 48, "Text"],

Cell[CellGroupData[{
Cell[19294, 775, 106, 4, 40, "Input"],
Cell[19403, 781, 80, 3, 49, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[19520, 789, 108, 4, 40, "Input"],
Cell[19631, 795, 80, 3, 49, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[19748, 803, 106, 4, 40, "Input"],
Cell[19857, 809, 86, 3, 49, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[19980, 817, 108, 4, 40, "Input"],
Cell[20091, 823, 103, 3, 49, "Output"]
}, Open  ]],
Cell[20209, 829, 657, 16, 67, "Text"]
}, Closed]],

Cell[CellGroupData[{
Cell[20903, 850, 91, 2, 34, "Section",
  CellTags->"4"],
Cell[20997, 854, 357, 9, 48, "Text"],
Cell[21357, 865, 276, 6, 29, "Text"],
Cell[21636, 873, 367, 12, 48, "Text"],
Cell[22006, 887, 314, 9, 29, "Text"]
}, Closed]]
}
]
*)




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