code/mathematica/mathematica.nb

(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 14.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    337834,       9329]
NotebookOptionsPosition[    287989,       8751]
NotebookOutlinePosition[    288408,       8768]
CellTagsIndexPosition[    288365,       8765]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[TextData[ButtonBox["\:77e2\:5439\:592a\:6717\:300e\:30b3\:30f3\:30d4\
\:30e5\:30fc\:30bf\:3067\:3068\:304f\:6570\:5b66\:300f\:ff08\:30aa\:30fc\:30e0\
\:793e, 2024\:ff09",
 BaseStyle->"Hyperlink",
 ButtonData->{
   URL["https://github.com/taroyabuki/comath"], None},
 ButtonNote->"https://github.com/taroyabuki/comath"]], "Text",ExpressionUUID->\
"35d1fb62-15d7-424b-812f-7e71fa6bdf0b"],

Cell[CellGroupData[{

Cell["1 \:5b9f\:884c\:74b0\:5883", "Chapter",
 PageBreakAbove->True,ExpressionUUID->"4093d2ad-bfc4-bb42-85f4-d2f6c1ae703b"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Clear", "[", "\"\<Global`*\>\"", "]"}], ";"}]], "Input",ExpressionU\
UID->"032a1b3f-e74e-6147-affa-2bbef39d050f"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"data", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"1", ",", " ", "7"}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"3", ",", " ", "1"}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"6", ",", " ", "6"}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"10", ",", " ", "14"}], "}"}]}], "}"}]}], ";"}], "\n", 
 RowBox[{"model", " ", "=", " ", 
  RowBox[{"LinearModelFit", "[", 
   RowBox[{"data", ",", " ", "X1", ",", " ", "X1"}], "]"}]}], "\n", 
 RowBox[{"model", "[", "\"\<BestFitParameters\>\"", "]"}]}], "Input",Expressio\
nUUID->"7f33e257-ce12-9141-b31b-0cc5846f3662"]
}, Closed]],

Cell[CellGroupData[{

Cell["2 \:6570\:3068\:5909\:6570", "Chapter",
 PageBreakAbove->True,ExpressionUUID->"03a8a952-5c92-e24a-bf77-d123a6d51f4c"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Clear", "[", "\"\<Global`*\>\"", "]"}], ";"}]], "Input",ExpressionU\
UID->"adef7d53-c80b-3b46-a7f0-a70030788ea1"],

Cell[BoxData[
 RowBox[{"2", " ", "*", " ", 
  RowBox[{"(", 
   RowBox[{"-", "3"}], ")"}]}]], "Input",ExpressionUUID->"d915f2a7-896d-9a41-\
8522-c2266123b5bb"],

Cell[BoxData[
 RowBox[{"2", " ", 
  RowBox[{"(", 
   RowBox[{"-", "3"}], ")"}]}]], "Input",ExpressionUUID->"4e52707c-008b-4c49-\
90a1-71ad052e0a2b"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{"1", " ", "+", " ", "2"}], ")"}], " ", "*", " ", "3"}]], "Input",Ex\
pressionUUID->"a7e04d6a-61c7-034c-b564-058b182802bf"],

Cell[BoxData[
 RowBox[{"2", "^", "10"}]], "Input",ExpressionUUID->"bb4455a1-c528-0145-bf65-481960b9d5eb"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "2"}], " ", "<", " ", 
  RowBox[{"-", "1"}]}]], "Input",ExpressionUUID->"619b25fd-f10c-dd4c-821d-\
1e5abc49e0fa"],

Cell[BoxData[
 RowBox[{
  RowBox[{"2", " ", "+", " ", "2"}], " ", "==", " ", "5"}]], "Input",Expressio\
nUUID->"1dfdf372-c928-c64f-adc4-54dfea9d82ef"],

Cell[BoxData[
 RowBox[{"If", "[", 
  RowBox[{
   RowBox[{"7", " ", "<", " ", "5"}], ",", " ", "10", ",", " ", "20"}], 
  "]"}]], "Input",ExpressionUUID->"5da71e61-b91f-c845-9176-0a5f811c30c4"],

Cell[BoxData[
 RowBox[{"x", "<", "1"}]], "Input",ExpressionUUID->"9dd570aa-eb99-e84d-a009-d9ef880882c1"],

Cell[BoxData[
 RowBox[{"x", " ", "==", " ", "y"}]], "Input",ExpressionUUID->"6a73922b-659f-9b48-8dab-d76620b0923d"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"x", "^", "2"}], " ", "-", " ", "1"}], " ", "==", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"x", " ", "+", " ", "1"}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"x", " ", "-", " ", "1"}], ")"}]}]}], " ", "//", " ", 
  "Simplify"}]], "Input",ExpressionUUID->"912a426e-8355-fc4a-ae21-\
34e315b9d51c"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Not", "[", 
   RowBox[{"0", " ", "<", " ", "1"}], "]"}], " ", 
  RowBox[{"(*", " ", "\:65b9\:6cd51", " ", "*)"}]}], "\n", 
 RowBox[{"!", " ", 
  RowBox[{"(", 
   RowBox[{"0", " ", "<", " ", "1"}], ")"}], "  ", 
  RowBox[{"(*", " ", "\:65b9\:6cd52", " ", "*)"}]}]}], "Input",ExpressionUUID->\
"712e2086-47cf-db41-b929-0a12e1e4b4de"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Or", "[", 
   RowBox[{
    RowBox[{"0", " ", "<", " ", "1"}], ",", " ", 
    RowBox[{"2", " ", ">", " ", "3"}]}], "]"}], "   ", 
  RowBox[{"(*", " ", "\:65b9\:6cd51", " ", "*)"}]}], "\n", 
 RowBox[{
  RowBox[{"(", 
   RowBox[{"0", " ", "<", " ", "1"}], ")"}], " ", "||", " ", 
  RowBox[{"(", 
   RowBox[{"2", " ", ">", " ", "3"}], ")"}], " ", 
  RowBox[{"(*", " ", "\:65b9\:6cd52", " ", "*)"}]}]}], "Input",ExpressionUUID->\
"eff1c56a-54ca-fb40-80e6-1b41e2e84fb9"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"And", "[", 
   RowBox[{
    RowBox[{"0", " ", "<", " ", "1"}], ",", " ", 
    RowBox[{"2", " ", ">", " ", "3"}]}], "]"}], "  ", 
  RowBox[{"(*", " ", "\:65b9\:6cd51", " ", "*)"}]}], "\n", 
 RowBox[{
  RowBox[{"(", 
   RowBox[{"0", " ", "<", " ", "1"}], ")"}], " ", "&&", " ", 
  RowBox[{"(", 
   RowBox[{"2", " ", ">", " ", "3"}], ")"}], " ", 
  RowBox[{"(*", " ", "\:65b9\:6cd52", " ", "*)"}]}]}], "Input",ExpressionUUID->\
"29f4d69c-0a69-a344-9164-d1f7f135e908"],

Cell[BoxData[
 RowBox[{"Not", "[", 
  RowBox[{"10", "<", "x"}], "]"}]], "Input",ExpressionUUID->"20394e8e-ab97-\
3c4a-9128-d39d41d0724a"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Clear", "[", "\"\<Global`*\>\"", "]"}], ";"}]], "Input",ExpressionU\
UID->"46612b71-5a25-3b4f-8eb7-47852cf046f2"],

Cell[BoxData[
 RowBox[{
  RowBox[{"x", " ", "=", " ", "5"}], ";", " ", 
  RowBox[{"x", " ", "==", " ", "5"}]}]], "Input",ExpressionUUID->"7b03a7df-\
b4e9-6749-977a-dae8534bb452"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"a", " ", "=", " ", 
   RowBox[{"1", " ", "+", " ", "2"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"b", " ", "=", " ", "9"}], ";"}], "\n", 
 RowBox[{"a", 
  RowBox[{"(", 
   RowBox[{"b", " ", "+", " ", "1"}], ")"}]}]}], "Input",ExpressionUUID->\
"e0f26768-b7c5-cd48-913f-c81d7f027318"],

Cell[BoxData[
 RowBox[{
  RowBox[{"a", " ", "=", " ", 
   RowBox[{"1", " ", "+", " ", "2"}]}], ";", " ", 
  RowBox[{"b", " ", "=", " ", "9"}], ";", " ", 
  RowBox[{"a", " ", "*", " ", 
   RowBox[{"(", 
    RowBox[{"b", " ", "+", " ", "1"}], ")"}]}]}]], "Input",ExpressionUUID->\
"d9dc3670-4b1f-934a-920d-593f5876e455"],

Cell[BoxData[
 RowBox[{"a", " ", "=", " ", 
  RowBox[{"1", " ", "+", " ", "2"}]}]], "Input",ExpressionUUID->"507c60bf-\
a4ad-d249-ac97-18d903733eb6"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"a", " ", "=", " ", "3"}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"Clear", "[", "a", "]"}], ";"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{"\:5909\:6570\:3092\:8a18\:53f7\:306b\:3059\:308b", "\:ff0e"}], 
   "*)"}]}], "\n", 
 RowBox[{"Expand", "[", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"a", " ", "+", " ", "1"}], ")"}], "^", "2"}], "]"}]}], "Input",Exp\
ressionUUID->"14e78dcb-2e94-c34b-b85b-73577c9f81ea"],

Cell[BoxData[
 RowBox[{
  RowBox[{"x1", " ", "=", " ", "2"}], ";", " ", 
  RowBox[{"x2", " ", "=", " ", "3"}], ";", " ", 
  RowBox[{"x1", " ", "+", " ", "x2"}]}]], "Input",ExpressionUUID->"704b3504-\
3a88-a944-bba3-6cca5c7e5d9d"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Subscript", "[", 
    RowBox[{"x", ",", " ", "1"}], "]"}], " ", "=", " ", "2"}], ";", " ", 
  RowBox[{
   RowBox[{"Subscript", "[", 
    RowBox[{"x", ",", " ", "2"}], "]"}], " ", "=", " ", "3"}], ";", " ", 
  RowBox[{
   RowBox[{"Subscript", "[", 
    RowBox[{"x", ",", " ", "1"}], "]"}], " ", "+", " ", 
   RowBox[{"Subscript", "[", 
    RowBox[{"x", ",", " ", "2"}], "]"}]}]}]], "Input",ExpressionUUID->\
"3635a271-b387-704a-a950-9dd03f7e76ca"],

Cell[BoxData[
 RowBox[{
  RowBox[{"x", " ", "=", " ", "1"}], ";", " ", 
  RowBox[{"y", " ", "=", " ", 
   RowBox[{"x", " ", "+", " ", "1"}]}], ";", " ", 
  RowBox[{"x", " ", "=", " ", "2"}], ";", " ", "y"}]], "Input",ExpressionUUID->\
"206c20c3-a64f-9344-8819-d2434a5ede37"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"x", " ", "=", " ", "1"}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"y", " ", ":=", " ", 
    RowBox[{"x", " ", "+", " ", "1"}]}], ";"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"y\:306f", 
     RowBox[{"\:300c", "2", "\:300d"}], "\:3067\:306f\:306a\:304f", 
     RowBox[{"\:300c", 
      RowBox[{"x", " ", "+", " ", "1"}], "\:300d"}], "\:306b\:306a\:308b"}], 
    "\:ff0e"}], "*)"}]}], "\n", 
 RowBox[{
  RowBox[{"x", " ", "=", " ", "2"}], ";"}], "\n", 
 RowBox[{"y", "           ", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"\:300c", 
      RowBox[{"x", " ", "+", " ", "1"}], "\:300d"}], "\:306f", 
     RowBox[{"\:300c", 
      RowBox[{"2", " ", "+", " ", "1"}], "\:300d"}], "\:3064\:307e\:308a3"}], 
    "\:ff0e"}], "*)"}]}]}], "Input",ExpressionUUID->"3814ef04-2032-9a4e-9f7e-\
232faed80dd1"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Clear", "[", "\"\<Global`*\>\"", "]"}], ";"}]], "Input",ExpressionU\
UID->"16cf987c-8343-f344-8e09-122ce2d8d784"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"f", " ", "=", " ", 
   RowBox[{
    RowBox[{"2", " ", "x"}], " ", "+", " ", "3"}]}], ";"}], "\n", 
 RowBox[{"f", " ", "/.", " ", 
  RowBox[{"x", " ", "->", " ", "5"}]}]}], "Input",ExpressionUUID->"f9c87ac4-\
65cb-3943-86c9-778d4e1fe620"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"g", " ", "=", " ", 
   RowBox[{"a", " ", "+", " ", "b"}]}], ";"}], "\n", 
 RowBox[{"g", " ", "/.", " ", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"a", " ", "->", " ", "x"}], ",", " ", 
    RowBox[{"b", " ", "->", " ", "y"}]}], "}"}]}]}], "Input",ExpressionUUID->\
"7aa43e70-d2d4-4b4f-8cb3-9a1af974fd25"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"f", " ", "=", " ", 
   RowBox[{"Function", "[", 
    RowBox[{"x", ",", " ", 
     RowBox[{
      RowBox[{"2", " ", "x"}], " ", "+", " ", "3"}]}], "]"}]}], ";"}], "\n", 
 RowBox[{"f", "[", "5", "]"}]}], "Input",ExpressionUUID->"2a283888-f4d3-634b-\
b6fb-eed59b9418b9"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "f", "]"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"f", "[", "x_", "]"}], " ", ":=", " ", 
  RowBox[{
   RowBox[{"2", " ", "x"}], " ", "+", " ", "3"}]}], "\n", 
 RowBox[{"f", "[", "5", "]"}]}], "Input",ExpressionUUID->"328bb4b1-7e02-8f42-\
bc3e-a03d2085bd61"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", 
   RowBox[{"f", ",", " ", "a"}], "]"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"f", " ", "=", " ", 
   RowBox[{"Function", "[", 
    RowBox[{"x", ",", " ", 
     RowBox[{
      RowBox[{"2", " ", "x"}], " ", "+", " ", "3"}]}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"g", " ", "=", " ", 
   RowBox[{"f", "[", "a", "]"}]}], ";"}], "\n", 
 RowBox[{"{", 
  RowBox[{
   RowBox[{"f", "[", "5", "]"}], ",", " ", 
   RowBox[{"g", " ", "/.", " ", 
    RowBox[{"a", " ", "->", " ", "5"}]}]}], "}"}]}], "Input",ExpressionUUID->\
"ee072a0d-8f5e-8345-a54d-b08d3f4a7d8f"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "f", "]"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"f", "[", "x_", "]"}], " ", ":=", " ", 
  RowBox[{"1", " ", "/", " ", "x"}]}], "\n", 
 RowBox[{"f", "[", "1", "]"}]}], "Input",ExpressionUUID->"4d721fcf-6f9d-d747-\
a145-1a56187f7d95"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"f1", "[", "x_", "]"}], " ", ":=", " ", 
   RowBox[{"Piecewise", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"1", "/", "x"}], ",", " ", 
        RowBox[{"x", " ", "!=", " ", "0"}]}], "}"}], "}"}], ",", " ", 
     "Undefined"}], "]"}]}], "\n"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"f2", "[", "0", "]"}], " ", "=", " ", "Undefined"}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"f2", "[", "x_", "]"}], " ", ":=", " ", 
   RowBox[{"1", "/", "x"}]}], "\n"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"f3", "[", "0", "]"}], " ", "=", " ", "Undefined"}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"f3", "[", 
    RowBox[{"x_", " ", "/;", " ", 
     RowBox[{"x", " ", "!=", " ", "0"}]}], "]"}], " ", ":=", " ", 
   RowBox[{"1", "/", "x"}]}], "\n"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"f4", "[", "x_", "]"}], " ", ":=", " ", 
   RowBox[{"If", "[", 
    RowBox[{
     RowBox[{"x", " ", "!=", " ", "0"}], ",", " ", 
     RowBox[{"1", "/", "x"}], ",", " ", "Undefined"}], "]"}]}], "\n"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"f5", "[", "x_", "]"}], " ", ":=", " ", 
   RowBox[{"Which", "[", 
    RowBox[{
     RowBox[{"x", " ", "!=", " ", "0"}], ",", " ", 
     RowBox[{"1", "/", "x"}], ",", " ", "True", ",", " ", "Undefined"}], 
    "]"}]}], "\n"}], "\n", 
 RowBox[{
  RowBox[{"{", 
   RowBox[{
    RowBox[{"f1", "[", "1", "]"}], ",", " ", 
    RowBox[{"f2", "[", "1", "]"}], ",", " ", 
    RowBox[{"f3", "[", "1", "]"}], ",", " ", 
    RowBox[{"f4", "[", "1", "]"}], ",", " ", 
    RowBox[{"f5", "[", "1", "]"}]}], "}"}], " ", 
  RowBox[{"(*", " ", "\:5168\:30661", " ", "*)"}]}], "\n", 
 RowBox[{
  RowBox[{"{", 
   RowBox[{
    RowBox[{"f1", "[", "0", "]"}], ",", " ", 
    RowBox[{"f2", "[", "0", "]"}], ",", " ", 
    RowBox[{"f3", "[", "0", "]"}], ",", " ", 
    RowBox[{"f4", "[", "0", "]"}], ",", " ", 
    RowBox[{"f5", "[", "0", "]"}]}], "}"}], " ", 
  RowBox[{"(*", " ", "\:5168\:3066Undefined", " ", "*)"}]}]}], "Input",Express\
ionUUID->"37a4b7a0-20e8-b147-b56d-1311434ba939"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Function", "[", 
   RowBox[{"x", ",", " ", 
    RowBox[{
     RowBox[{"2", " ", "x"}], " ", "+", " ", "3"}]}], "]"}], "[", "5", 
  "]"}]], "Input",ExpressionUUID->"4acb3664-49e9-c842-bcca-328b8b6f30a7"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "f", "]"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"f", "[", 
   RowBox[{"x_", ",", " ", "y_"}], "]"}], " ", ":=", " ", 
  RowBox[{"x", " ", "+", " ", "y"}]}], "\n", 
 RowBox[{"f", "[", 
  RowBox[{"2", ",", " ", "3"}], "]"}]}], "Input",ExpressionUUID->"7c20ecb0-\
69f5-b34b-b220-dbc5024768c1"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "g", "]"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"g", "[", "x_", "]"}], " ", ":=", " ", 
  RowBox[{
   RowBox[{"x", "[", 
    RowBox[{"[", "1", "]"}], "]"}], " ", "+", " ", 
   RowBox[{"x", "[", 
    RowBox[{"[", "2", "]"}], "]"}]}]}], "\n", 
 RowBox[{
  RowBox[{"x", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"2", ",", " ", "3"}], "}"}]}], ";", " ", 
  RowBox[{"g", "[", "x", "]"}]}]}], "Input",ExpressionUUID->"7068ed68-dc68-\
4248-a222-22b85d879ff3"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"g", "[", 
   RowBox[{"{", 
    RowBox[{"x1_", ",", " ", "x2_"}], "}"}], "]"}], " ", ":=", " ", 
  RowBox[{"x1", " ", "+", " ", "x2"}]}], "\n", 
 RowBox[{"g", "[", "x", "]"}]}], "Input",ExpressionUUID->"599b2dc7-37dc-f647-\
9838-462b21041373"],

Cell[BoxData[
 RowBox[{"Apply", "[", 
  RowBox[{"f", ",", " ", "x"}], "]"}]], "Input",ExpressionUUID->"6d467e35-\
d9b5-c442-9045-d41f611e17fe"],

Cell[BoxData[
 RowBox[{"g", "[", 
  RowBox[{"{", 
   RowBox[{"2", ",", " ", "3"}], "}"}], "]"}]], "Input",ExpressionUUID->\
"48e0c27f-1490-ae48-a941-37222699581f"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Clear", "[", "\"\<Global`*\>\"", "]"}], ";"}]], "Input",ExpressionU\
UID->"1835167c-e86f-7048-8abb-080bee4cdc5a"],

Cell[BoxData[
 RowBox[{"Expand", "[", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"x", "+", "1"}], ")"}], "^", "2"}], "]"}]], "Input",ExpressionUUID\
->"1005d4c0-e61b-914e-b344-0daaedcc1aa5"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Clear", "[", "\"\<Global`*\>\"", "]"}], ";"}]], "Input",ExpressionU\
UID->"0ffd8016-2a67-ae49-8cf1-626ffe87ba4e"],

Cell[BoxData[
 RowBox[{"N", "[", 
  RowBox[{
   RowBox[{"Sqrt", "[", "2", "]"}], ",", "30"}], "]"}]], "Input",ExpressionUUI\
D->"e0753c62-ce22-f341-b1d3-fa4b785f0201"],

Cell[BoxData[{
 RowBox[{"pi2", " ", "=", " ", 
  RowBox[{"FromDigits", "[", 
   RowBox[{
    RowBox[{"RealDigits", "[", 
     RowBox[{
      RowBox[{"N", "[", "Pi", "]"}], ",", " ", "2"}], "]"}], ",", " ", "2"}], 
   "]"}]}], "\n", 
 RowBox[{"pi10", " ", "=", " ", 
  RowBox[{"FromDigits", "[", 
   RowBox[{
    RowBox[{"RealDigits", "[", 
     RowBox[{
      RowBox[{"N", "[", "Pi", "]"}], ",", " ", "10"}], "]"}], ",", " ", 
    "10"}], "]"}]}], "\n", 
 RowBox[{
  RowBox[{"Abs", "[", 
   RowBox[{"Pi", " ", "-", " ", "pi2"}], "]"}], " ", "<", " ", 
  RowBox[{"Abs", "[", 
   RowBox[{"Pi", " ", "-", " ", "pi10"}], "]"}], " ", 
  RowBox[{"(*", " ", "True", " ", "*)"}]}]}], "Input",ExpressionUUID->\
"b3d4dd28-0ce6-884e-b9d8-41b2699d9659"],

Cell[BoxData[
 RowBox[{
  RowBox[{"0.1", " ", "+", " ", "0.2"}], " ", "==", " ", "0.3"}]], "Input",Exp\
ressionUUID->"f6e84e76-9bf5-6e42-b3d0-7429061a0a60"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Chop", "[", 
   RowBox[{"0.1", " ", "+", " ", "0.2", " ", "-", " ", "0.3"}], "]"}], " ", "==",
   " ", "0"}]], "Input",ExpressionUUID->"ab28cadc-e676-d04e-be6b-\
f99ad27c7c1e"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"1", "/", "10"}], "+", 
   RowBox[{"2", "/", "10"}]}], "==", 
  RowBox[{"3", "/", "10"}]}]], "Input",ExpressionUUID->"b3aa3c23-848a-5c4d-\
b6a3-15358ac5c585"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
     RowBox[{"\:300c", "\[OpenCurlyQuote]"}], "\:300d"}], 
    "\:306f\:30b7\:30f3\:30b0\:30eb\:30af\:30a9\:30fc\:30c8\:3067\:306f\:306a\
\:304f\:30d0\:30c3\:30af\:30af\:30a9\:30fc\:30c8"}], " ", "*)"}], "\n", 
  RowBox[{"Block", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"Internal`$EqualTolerance", " ", "=", " ", "0."}], "}"}], ",", 
    " ", 
    RowBox[{
     RowBox[{"0.1", " ", "+", " ", "0.2"}], " ", "==", " ", "0.3"}]}], "]"}], 
  " ", 
  RowBox[{"(*", " ", "False", " ", "*)"}]}]], "Input",ExpressionUUID->\
"2567c065-42ac-7e4b-ab41-e85ad1ed6d17"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Chop", "[", 
   RowBox[{"0.1", " ", "+", " ", "0.2", " ", "-", " ", "0.3"}], "]"}], " ", "==",
   " ", "0", " ", 
  RowBox[{"(*", " ", "True", " ", "*)"}]}]], "Input",ExpressionUUID->\
"fadfa89c-fb88-054c-b4ce-fa09a33c8dbd"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Clear", "[", "\"\<Global`*\>\"", "]"}], ";"}]], "Input",ExpressionU\
UID->"f76f9dda-e29f-6e48-a4a2-52e92bdf82e6"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "x", "]"}], ";"}], "\n", 
 RowBox[{"Simplify", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"Sin", "[", "x", "]"}], "^", "2"}], " ", "+", " ", 
   RowBox[{
    RowBox[{"Cos", "[", "x", "]"}], "^", "2"}]}], "]"}]}], "Input",ExpressionU\
UID->"d02b6319-b991-7f41-a9ec-083411c24584"],

Cell[BoxData[
 RowBox[{"FullSimplify", "[", 
  RowBox[{"Sqrt", "[", 
   RowBox[{"5", " ", "+", " ", 
    RowBox[{"2", " ", 
     RowBox[{"Sqrt", "[", "6", "]"}]}]}], "]"}], "]"}]], "Input",ExpressionUUI\
D->"435c9be1-9f97-e547-8ff9-43a17e8a9ebf"],

Cell[BoxData[
 RowBox[{"Simplify", "[", 
  RowBox[{
   RowBox[{"Sqrt", "[", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"x", " ", "-", " ", "1"}], ")"}], "^", "2"}], "]"}], ",", " ", 
   RowBox[{
    RowBox[{"x", " ", "-", " ", "1"}], " ", ">=", " ", "0"}]}], 
  "]"}]], "Input",ExpressionUUID->"4751a8e7-d366-0742-a472-11192b51926b"],

Cell[BoxData[
 RowBox[{"Reduce", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"Sqrt", "[", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"x", " ", "-", " ", "1"}], ")"}], "^", "2"}], "]"}], " ", "==",
     " ", 
    RowBox[{"x", " ", "-", " ", "1"}]}], ",", " ", "x", ",", " ", "Reals"}], 
  "]"}]], "Input",ExpressionUUID->"1fff8674-f7b7-8b4e-90b6-c27b6e809992"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", 
   RowBox[{"a", ",", " ", "b"}], "]"}], ";"}], "\n", 
 RowBox[{"Reduce", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"Sqrt", "[", "a", "]"}], " ", 
     RowBox[{"Sqrt", "[", "b", "]"}]}], " ", "==", " ", 
    RowBox[{"Sqrt", "[", 
     RowBox[{"a", " ", "b"}], "]"}]}], ",", " ", "Reals"}], "]"}]}], "Input",E\
xpressionUUID->"4ff966a3-ddfe-3746-be20-ec3fea61a032"]
}, Closed]],

Cell[CellGroupData[{

Cell["3 \:30c7\:30fc\:30bf\:69cb\:9020", "Chapter",
 PageBreakAbove->True,ExpressionUUID->"99af54ff-dbed-bc4d-92d7-8978e3bd56c2"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Clear", "[", "\"\<Global`*\>\"", "]"}], ";"}]], "Input",ExpressionU\
UID->"f881225e-288a-bd45-90b9-70c156a7cd47"],

Cell[BoxData[
 RowBox[{
  RowBox[{"v", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"2", ",", " ", "3", ",", " ", "5"}], "}"}]}], ";", " ", 
  RowBox[{"Length", "[", "v", "]"}]}]], "Input",ExpressionUUID->"f8a930f5-\
e6b4-f648-a929-3f2d78045eab"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"v", "[", 
    RowBox[{"[", "3", "]"}], "]"}], " ", "=", " ", "0.5"}], ";", " ", 
  "v"}]], "Input",ExpressionUUID->"323a646d-b103-8244-b043-1a474c9bfe0f"],

Cell[BoxData[
 RowBox[{"Range", "[", "5", "]"}]], "Input",ExpressionUUID->"b24100b7-caff-b844-83fd-5a0a47f7d4c5"],

Cell[BoxData[
 RowBox[{"Range", "[", 
  RowBox[{"0", ",", " ", "1", ",", " ", "0.1"}], "]"}]], "Input",ExpressionUUI\
D->"8202ea78-f906-014b-8864-29826a50278a"],

Cell[BoxData[
 RowBox[{"Subdivide", "[", 
  RowBox[{"0", ",", " ", "100", ",", " ", "4"}], "]"}]], "Input",ExpressionUUI\
D->"1fc8f27b-7d87-3c46-89b8-987278e33314"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"v", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"2", ",", " ", "3"}], "}"}]}], ";"}], "\n", 
 RowBox[{"1.1", " ", "v"}]}], "Input",ExpressionUUID->"c01c7b32-e2d5-b840-\
93b3-c3a6e8038ae7"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"u", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"10", ",", " ", "20"}], "}"}]}], ";", " ", 
  RowBox[{"v", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"2", ",", " ", "3"}], "}"}]}], ";"}], "\n", 
 RowBox[{"u", " ", "+", " ", "v"}]}], "Input",ExpressionUUID->"c4b15a11-a5d1-\
364b-a749-c7755e494d42"],

Cell[BoxData[
 RowBox[{"v", " ", "+", " ", "1"}]], "Input",ExpressionUUID->"fc4cceb0-c0a2-ff4e-95de-6af0239deaf4"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"u", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"10", ",", " ", "20"}], "}"}]}], ";", " ", 
  RowBox[{"v", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"2", ",", " ", "3"}], "}"}]}], ";"}], "\n", 
 RowBox[{"u", " ", ".", " ", "v"}]}], "Input",ExpressionUUID->"acfd69da-e465-\
3f4b-a270-f78676b5a3ed"],

Cell[BoxData[
 RowBox[{
  RowBox[{"a", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"2", ",", " ", "3", ",", " ", "4"}], "}"}]}], ";", " ", 
  RowBox[{"b", " ", "=", " ", "a"}], ";", " ", 
  RowBox[{
   RowBox[{"b", "[", 
    RowBox[{"[", "3", "]"}], "]"}], " ", "=", " ", "0.5"}], ";", " ", 
  "a"}]], "Input",ExpressionUUID->"7efad02a-0754-a541-b750-54d12b6dc2a3"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"v", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"2", ",", " ", 
     RowBox[{"-", "1"}], ",", " ", "3", ",", " ", 
     RowBox[{"-", "2"}]}], "}"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"Cases", "[", 
   RowBox[{"v", ",", " ", 
    RowBox[{"x_", " ", "/;", " ", 
     RowBox[{"x", " ", ">", " ", "0"}]}]}], "]"}], "         ", 
  RowBox[{
  "(*", " ", 
   "\:30d1\:30bf\:30fc\:30f3\:30de\:30c3\:30c1\:30f3\:30b0\:306b\:3088\:308b\
\:62bd\:51fa", " ", "*)"}]}], "\n", 
 RowBox[{
  RowBox[{"Select", "[", 
   RowBox[{"v", ",", " ", 
    RowBox[{"Function", "[", 
     RowBox[{"x", ",", " ", 
      RowBox[{"x", " ", ">", " ", "0"}]}], "]"}]}], "]"}], " ", 
  RowBox[{
  "(*", " ", "\:95a2\:6570\:306b\:3088\:308b\:62bd\:51fa", " ", 
   "*)"}]}], "\n", 
 RowBox[{
  RowBox[{"Select", "[", 
   RowBox[{"v", ",", " ", "Positive"}], "]"}], "           ", 
  RowBox[{
  "(*", " ", "\:7d44\:8fbc\:307f\:95a2\:6570\:306e\:5229\:7528", " ", 
   "*)"}]}]}], "Input",ExpressionUUID->"eaecc949-5b20-2e4e-9b9f-6ad48f4b0700"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"v", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"2", ",", " ", 
     RowBox[{"-", "1"}], ",", " ", "3", ",", " ", 
     RowBox[{"-", "2"}]}], "}"}]}], ";"}], "\n", 
 RowBox[{"UnitStep", "[", "v", "]"}]}], "Input",ExpressionUUID->"1492ee58-\
e18a-3b42-aa88-3f3075eec1c6"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"v", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"2", ",", " ", 
     RowBox[{"-", "1"}], ",", " ", "3", ",", " ", 
     RowBox[{"-", "2"}]}], "}"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"n", " ", "=", " ", 
    RowBox[{"Length", "[", "v", "]"}]}], ";"}], "      ", 
  RowBox[{"(*", " ", "v\:306e\:30b5\:30a4\:30ba", " ", "*)"}]}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"u", " ", "=", " ", 
    RowBox[{"Table", "[", 
     RowBox[{"Null", ",", " ", "n"}], "]"}]}], ";"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"Null\:306f", 
     RowBox[{"\:300c", "\:5024\:304c\:306a\:3044", "\:300d"}], 
     "\:3068\:3044\:3046\:3053\:3068"}], "\:ff0e"}], "*)"}]}], "\n", 
 RowBox[{
  RowBox[{"Do", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"u", "[", 
      RowBox[{"[", "i", "]"}], "]"}], " ", "=", " ", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"v", "[", 
         RowBox[{"[", "i", "]"}], "]"}], " ", "<", " ", "0"}], ",", " ", "0", 
       ",", " ", "1"}], "]"}]}], ",", " ", 
    RowBox[{"{", 
     RowBox[{"i", ",", " ", "1", ",", " ", "n"}], "}"}]}], "]"}], 
  ";"}]}], "Input",ExpressionUUID->"5c05c273-9319-994e-850d-d07598abf994"],

Cell[BoxData[
 RowBox[{"Table", "[", 
  RowBox[{
   RowBox[{"If", "[", 
    RowBox[{
     RowBox[{"x", " ", "<", " ", "0"}], ",", " ", "0", ",", " ", "1"}], "]"}],
    ",", " ", 
   RowBox[{"{", 
    RowBox[{"x", ",", " ", "v"}], "}"}]}], "]"}]], "Input",ExpressionUUID->\
"a3d8dfcc-2aac-1b45-a95c-944c170ee840"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"v", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"2", ",", " ", 
     RowBox[{"-", "1"}], ",", " ", "3", ",", " ", 
     RowBox[{"-", "2"}]}], "}"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"f", " ", "=", " ", 
   RowBox[{"Function", "[", 
    RowBox[{"x", ",", " ", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"x", " ", "<", " ", "0"}], ",", " ", "0", ",", " ", "1"}], 
      "]"}]}], "]"}]}], ";"}], "\n", 
 RowBox[{"Map", "[", 
  RowBox[{"f", ",", " ", "v"}], "]"}]}], "Input",ExpressionUUID->"b5946cb3-\
ab61-3e48-82b0-cb3abf62f15b"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"v", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"2", ",", " ", 
     RowBox[{"-", "1"}], ",", " ", "3", ",", " ", 
     RowBox[{"-", "2"}]}], "}"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"f", " ", "=", " ", 
   RowBox[{"Function", "[", 
    RowBox[{"x", ",", " ", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"x", " ", "<", " ", "0"}], ",", " ", "0", ",", " ", "1"}], 
      "]"}], ",", " ", "Listable"}], "]"}]}], ";"}], "\n", 
 RowBox[{"f", "[", "v", "]"}]}], "Input",ExpressionUUID->"9db12230-6aa6-f744-\
92b2-8413389a9ba4"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"u", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"1", ",", " ", "7", ",", " ", "2", ",", " ", "9"}], "}"}]}], ";", 
  " ", 
  RowBox[{"v", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"2", ",", " ", "3", ",", " ", "5", ",", " ", "7"}], "}"}]}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{"f", " ", "=", " ", 
   RowBox[{"Function", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"a", ",", " ", "b"}], "}"}], ",", " ", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"a", " ", "<", " ", "b"}], ",", " ", 
       RowBox[{"-", "1"}], ",", " ", "1"}], "]"}]}], "]"}]}], ";"}], "\n", 
 RowBox[{"MapThread", "[", 
  RowBox[{"f", ",", " ", 
   RowBox[{"{", 
    RowBox[{"u", ",", " ", "v"}], "}"}]}], "]"}]}], "Input",ExpressionUUID->\
"8df5ffdd-6fd6-e44b-8efc-c788a7c74a52"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Clear", "[", "\"\<Global`*\>\"", "]"}], ";"}]], "Input",ExpressionU\
UID->"ca62b515-e69f-d44e-b996-588cc069110d"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"x", " ", "=", " ", 
   RowBox[{"<|", 
    RowBox[{
     RowBox[{"\"\<apple\>\"", " ", "->", " ", "\"\<\:308a\:3093\:3054\>\""}], 
     ",", " ", 
     RowBox[{
     "\"\<orange\>\"", " ", "->", " ", "\"\<\:307f\:304b\:3093\>\""}]}], 
    "|>"}]}], ";"}], "\n", 
 RowBox[{"x", "[", "\"\<orange\>\"", "]"}]}], "Input",ExpressionUUID->\
"b2825c0d-0033-ff49-8d7f-760287c041b0"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"AppendTo", "[", 
   RowBox[{"x", ",", " ", 
    RowBox[{"\"\<grape\>\"", " ", "->", " ", "\"\<\:3076\:3069\:3046\>\""}]}],
    "]"}], ";"}], "\n", 
 RowBox[{"x", "[", "\"\<grape\>\"", "]"}]}], "Input",ExpressionUUID->\
"68388177-9d1b-5b40-93d8-326ebed7e85e"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"x", "[", "\"\<apple\>\"", "]"}], " ", "=."}], "\n", 
 RowBox[{"KeyExistsQ", "[", 
  RowBox[{"x", ",", " ", "\"\<apple\>\""}], "]"}]}], "Input",ExpressionUUID->\
"89815481-2094-a843-a3c0-9a17b73bcb1b"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "x", "]"}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"x", "[", "\"\<apple\>\"", "]"}], " ", "=", " ", 
   "\"\<\:308a\:3093\:3054\>\""}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"x", "[", "\"\<orange\>\"", "]"}], " ", "=", " ", 
    "\"\<\:307f\:304b\:3093\>\""}], ";"}], "\n"}], "\n", 
 RowBox[{
  RowBox[{"x", "[", "\"\<orange\>\"", "]"}], "            ", 
  RowBox[{"(*", " ", "\:307f\:304b\:3093", " ", "*)"}], "\n"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"x", "[", "\"\<grape\>\"", "]"}], " ", "=", " ", 
   "\"\<\:3076\:3069\:3046\>\""}], ";"}], "\n", 
 RowBox[{
  RowBox[{"x", "[", "\"\<grape\>\"", "]"}], "             ", 
  RowBox[{"(*", " ", "\:3076\:3069\:3046", " ", "*)"}], "\n"}], "\n", 
 RowBox[{
  RowBox[{"x", "[", "\"\<apple\>\"", "]"}], " ", "=."}], "\n", 
 RowBox[{
  RowBox[{"Head", "[", 
   RowBox[{"x", "[", "\"\<apple\>\"", "]"}], "]"}], " ", "=!=", " ", "x", " ", 
  RowBox[{"(*", " ", "False", " ", "*)"}]}]}], "Input",ExpressionUUID->\
"54557410-5850-bf49-871b-a00655c4f46c"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Clear", "[", "\"\<Global`*\>\"", "]"}], ";"}]], "Input",ExpressionU\
UID->"b7df5bef-02a2-8a4a-aff8-ada5cc40a2d1"],

Cell[BoxData[
 RowBox[{"df", " ", "=", " ", 
  RowBox[{"Transpose", "[", 
   RowBox[{"Dataset", "[", 
    RowBox[{"<|", 
     RowBox[{
      RowBox[{"\"\<name\>\"", " ", "->", " ", 
       RowBox[{"{", 
        RowBox[{"\"\<A\>\"", ",", " ", "\"\<B\>\"", ",", " ", "\"\<C\>\""}], 
        "}"}]}], ",", "\n", "                         ", 
      RowBox[{"\"\<english\>\"", " ", "->", " ", 
       RowBox[{"{", 
        RowBox[{"60", ",", " ", "90", ",", " ", "70"}], "}"}]}], ",", "\n", 
      "                         ", 
      RowBox[{"\"\<math\>\"", " ", "->", " ", 
       RowBox[{"{", 
        RowBox[{"70", ",", " ", "80", ",", " ", "90"}], "}"}]}], ",", "\n", 
      "                         ", 
      RowBox[{"\"\<gender\>\"", " ", "->", " ", 
       RowBox[{"{", 
        RowBox[{"\"\<f\>\"", ",", " ", "\"\<m\>\"", ",", " ", "\"\<m\>\""}], 
        "}"}]}]}], "|>"}], "]"}], "]"}]}]], "Input",ExpressionUUID->"8b529753-\
7269-6d46-abed-c152c01e49e7"],

Cell[BoxData[
 RowBox[{"df", " ", "=", " ", 
  RowBox[{"Dataset", "[", 
   RowBox[{"{", "\n", "   ", 
    RowBox[{
     RowBox[{"<|", 
      RowBox[{
       RowBox[{"\"\<name\>\"", " ", "->", " ", "\"\<A\>\""}], ",", " ", 
       RowBox[{"\"\<english\>\"", " ", "->", " ", "60"}], ",", " ", 
       RowBox[{"\"\<math\>\"", " ", "->", " ", "70"}], ",", " ", 
       RowBox[{"\"\<gender\>\"", " ", "->", " ", "\"\<f\>\""}]}], "|>"}], ",",
      "\n", "   ", 
     RowBox[{"<|", 
      RowBox[{
       RowBox[{"\"\<name\>\"", " ", "->", " ", "\"\<B\>\""}], ",", " ", 
       RowBox[{"\"\<english\>\"", " ", "->", " ", "90"}], ",", " ", 
       RowBox[{"\"\<math\>\"", " ", "->", " ", "80"}], ",", " ", 
       RowBox[{"\"\<gender\>\"", " ", "->", " ", "\"\<m\>\""}]}], "|>"}], ",",
      "\n", "   ", 
     RowBox[{"<|", 
      RowBox[{
       RowBox[{"\"\<name\>\"", " ", "->", " ", "\"\<C\>\""}], ",", " ", 
       RowBox[{"\"\<english\>\"", " ", "->", " ", "70"}], ",", " ", 
       RowBox[{"\"\<math\>\"", " ", "->", " ", "90"}], ",", " ", 
       RowBox[{"\"\<gender\>\"", " ", "->", " ", "\"\<m\>\""}]}], "|>"}]}], 
    "}"}], "]"}]}]], "Input",ExpressionUUID->"3938056f-1d39-9244-95ea-\
c97ab65c28cc"],

Cell[BoxData[
 RowBox[{"df", "[", 
  RowBox[{"All", ",", " ", 
   RowBox[{"{", 
    RowBox[{"\"\<english\>\"", ",", " ", "\"\<math\>\""}], "}"}]}], 
  "]"}]], "Input",ExpressionUUID->"9148f8c3-1070-2a4c-8a1f-16d154cbf36c"],

Cell[BoxData[
 RowBox[{"Normal", "[", 
  RowBox[{"df", "[", 
   RowBox[{"[", 
    RowBox[{"All", ",", " ", "\"\<english\>\""}], "]"}], "]"}], 
  "]"}]], "Input",ExpressionUUID->"ac3ce9ad-bd5c-b04d-9a61-3b9a73182360"],

Cell[BoxData[
 RowBox[{"m", " ", "=", " ", 
  RowBox[{"Values", "[", 
   RowBox[{"Normal", "[", 
    RowBox[{"df", "[", 
     RowBox[{"[", 
      RowBox[{"All", ",", " ", 
       RowBox[{"{", 
        RowBox[{"2", ",", " ", "3"}], "}"}]}], "]"}], "]"}], "]"}], 
   "]"}]}]], "Input",ExpressionUUID->"1b1edddc-0e51-5a40-b850-a1214fdecc63"],

Cell[BoxData[
 RowBox[{
  RowBox[{"{", 
   RowBox[{"english", ",", " ", "math"}], "}"}], " ", "=", " ", 
  RowBox[{"Transpose", "[", "m", "]"}]}]], "Input",ExpressionUUID->"aa2a8f70-\
8373-3c48-b14d-3c4dd0e99f11"]
}, Closed]],

Cell[CellGroupData[{

Cell["4 \:53ef\:8996\:5316\:3068\:65b9\:7a0b\:5f0f", "Chapter",
 PageBreakAbove->True,ExpressionUUID->"e5536d4f-3c36-364a-abd0-3e7e34377d87"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Clear", "[", "\"\<Global`*\>\"", "]"}], ";"}]], "Input",ExpressionU\
UID->"41043b15-d62c-5347-86bb-6686a3555e57"],

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"x", "^", "2"}], " ", "+", " ", 
    RowBox[{"2", " ", "x"}], " ", "-", " ", "4"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"x", ",", " ", 
     RowBox[{"-", "5"}], ",", " ", "3"}], "}"}]}], "]"}]], "Input",ExpressionU\
UID->"ef85a2d3-8948-834c-8196-718d13745984"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"x", " ", "=", " ", 
   RowBox[{"Subdivide", "[", 
    RowBox[{
     RowBox[{"-", "5"}], ",", " ", "3", ",", " ", "100"}], "]"}]}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{"y", " ", "=", " ", 
   RowBox[{
    RowBox[{"x", "^", "2"}], " ", "+", " ", 
    RowBox[{"2", " ", "x"}], " ", "-", " ", "4"}]}], ";"}], "\n", 
 RowBox[{"ListLinePlot", "[", 
  RowBox[{"Transpose", "[", 
   RowBox[{"{", 
    RowBox[{"x", ",", " ", "y"}], "}"}], "]"}], "]"}]}], "Input",ExpressionUUI\
D->"9bc3cbba-f060-8c4b-b838-e8e43fe48580"],

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"Sin", "[", 
    RowBox[{"102", " ", "x"}], "]"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"x", ",", " ", "0", ",", " ", 
     RowBox[{"2", " ", "Pi"}]}], "}"}], ",", " ", 
   RowBox[{"PlotPoints", " ", "->", " ", "100"}]}], "]"}]], "Input",Expression\
UUID->"45304477-8de8-2443-8a97-d5ed3202a675"],

Cell[BoxData[
 RowBox[{"Plot3D", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"x", "^", "2"}], " ", "+", " ", 
    RowBox[{"y", "^", "2"}]}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"x", ",", " ", 
     RowBox[{"-", "1"}], ",", " ", "1"}], "}"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"y", ",", " ", 
     RowBox[{"-", "1"}], ",", " ", "1"}], "}"}], ",", " ", 
   RowBox[{"AxesLabel", " ", "->", " ", 
    RowBox[{"{", 
     RowBox[{"\"\<x\>\"", ",", " ", "\"\<y\>\""}], "}"}]}]}], "]"}]], "Input",\
ExpressionUUID->"ed3515a4-76c3-6d44-b8e8-511a795266eb"],

Cell[BoxData[
 RowBox[{"ContourPlot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"x", "^", "2"}], " ", "+", " ", 
    RowBox[{"y", "^", "2"}]}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"x", ",", " ", 
     RowBox[{"-", "1"}], ",", " ", "1"}], "}"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"y", ",", " ", 
     RowBox[{"-", "1"}], ",", " ", "1"}], "}"}]}], "]"}]], "Input",ExpressionU\
UID->"9ceb7832-9add-5748-b692-130962b165ff"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", 
   RowBox[{"x", ",", " ", "y"}], "]"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"reg1", " ", "=", " ", 
   RowBox[{"ImplicitRegion", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"x", "^", "2"}], " ", "+", " ", 
       RowBox[{"y", "^", "2"}]}], " ", "==", " ", "1"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"x", ",", " ", "y"}], "}"}]}], "]"}]}], ";"}], "\n", 
 RowBox[{"Region", "[", 
  RowBox[{"reg1", ",", " ", 
   RowBox[{"Axes", " ", "->", " ", "True"}]}], "]"}]}], "Input",ExpressionUUID\
->"66ff1a9e-2751-8e42-9bc9-28cdd82c9834"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"reg2", " ", "=", " ", 
   RowBox[{"ImplicitRegion", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"x", "^", "2"}], " ", "+", " ", 
       RowBox[{"y", "^", "2"}]}], " ", "<=", " ", "1"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"x", ",", " ", "y"}], "}"}]}], "]"}]}], ";"}], "\n", 
 RowBox[{"Region", "[", 
  RowBox[{"reg2", ",", " ", 
   RowBox[{"Axes", " ", "->", " ", "True"}]}], "]"}]}], "Input",ExpressionUUID\
->"c1fa2d50-3564-9442-a141-3f157c0ef8f9"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"reg", " ", "=", " ", 
   RowBox[{"ImplicitRegion", "[", 
    RowBox[{
     RowBox[{"Or", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"2", " ", "x"}], " ", "+", " ", 
         RowBox[{"3", " ", "y"}]}], " ", "==", " ", "8"}], ",", " ", 
       RowBox[{
        RowBox[{
         RowBox[{"5", " ", "x"}], " ", "-", " ", 
         RowBox[{"7", " ", "y"}]}], " ", "==", " ", 
        RowBox[{"-", "9"}]}]}], "]"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"x", ",", " ", "y"}], "}"}]}], "]"}]}], ";"}], "\n", 
 RowBox[{"Region", "[", 
  RowBox[{"reg", ",", " ", 
   RowBox[{"Axes", " ", "->", " ", "True"}]}], "]"}]}], "Input",ExpressionUUID\
->"9c3651dc-5671-2b48-a798-1e4d56fb5532"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"reg", " ", "=", " ", 
   RowBox[{"ImplicitRegion", "[", 
    RowBox[{
     RowBox[{"And", "[", 
      RowBox[{
       RowBox[{"y", " ", "<=", " ", "x"}], ",", " ", 
       RowBox[{"y", " ", ">=", " ", 
        RowBox[{"x", "^", "2"}]}]}], "]"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"x", ",", " ", "y"}], "}"}]}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"RegionPlot", "[", "reg", "]"}], 
  "                                                    ", 
  RowBox[{"(*", " ", "\:2460", " ", "*)"}]}], "\n", 
 RowBox[{
  RowBox[{"Plot", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"x", ",", " ", 
      RowBox[{"x", "^", "2"}]}], "}"}], ",", " ", 
    RowBox[{"{", 
     RowBox[{"x", ",", " ", "0", ",", " ", "1"}], "}"}], ",", " ", 
    RowBox[{"Filling", " ", "->", " ", 
     RowBox[{"{", 
      RowBox[{"1", " ", "->", " ", 
       RowBox[{"{", "2", "}"}]}], "}"}]}], ",", " ", 
    RowBox[{"AspectRatio", " ", "->", " ", "1"}]}], "]"}], " ", 
  RowBox[{"(*", " ", "\:2461", " ", "*)"}]}]}], "Input",ExpressionUUID->\
"4674e51b-3804-3640-bf5c-0b390adab078"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"RegionMeasure", "[", "reg1", "]"}], ",", " ", 
   RowBox[{"RegionMeasure", "[", "reg2", "]"}]}], "}"}]], "Input",ExpressionUU\
ID->"0c4741f7-0404-c94c-85e3-26ca0a4a35cf"],

Cell[BoxData[
 RowBox[{"RegionMeasure", "[", "reg", "]"}]], "Input",ExpressionUUID->"43fc497f-20bb-0741-8d62-e0e3a6ac0793"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "x", "]"}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{"a", ",", " ", "b"}], "}"}], " ", "=", " ", 
   RowBox[{"Sort", "[", 
    RowBox[{"SolveValues", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"x", " ", "==", " ", 
        RowBox[{"x", "^", "2"}]}], "}"}], ",", " ", "x"}], "]"}], "]"}]}], 
  ";"}], "\n", 
 RowBox[{"Integrate", "[", 
  RowBox[{
   RowBox[{"x", " ", "-", " ", 
    RowBox[{"x", "^", "2"}]}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"x", ",", " ", "a", ",", " ", "b"}], "}"}]}], "]"}]}], "Input",Exp\
ressionUUID->"3e4f3b36-3200-bd45-b49b-47780d4a84d2"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Manipulate", "[", "\n", " ", 
   RowBox[{
    RowBox[{"ContourPlot", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"x", "^", "3"}], " ", "+", " ", 
        RowBox[{"y", "^", "3"}], " ", "-", " ", 
        RowBox[{"3", " ", "x", " ", "y"}]}], " ", "==", " ", "c"}], ",", " ", 
      RowBox[{"{", 
       RowBox[{"x", ",", " ", 
        RowBox[{"-", "2"}], ",", " ", "2"}], "}"}], ",", " ", 
      RowBox[{"{", 
       RowBox[{"y", ",", " ", 
        RowBox[{"-", "2"}], ",", " ", "2"}], "}"}]}], "]"}], ",", "\n", " ", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"c", ",", " ", "0"}], "}"}], ",", " ", 
      RowBox[{"-", "1"}], ",", " ", "1"}], "}"}]}], "]"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"c\:306f", "-", 
     RowBox[{"1", "\:4ee5\:4e0a1\:4ee5\:4e0b\:3067"}]}], "\:ff0c", 
    "\:521d\:671f\:5024\:306f0"}], " ", "*)"}]}]], "Input",ExpressionUUID->\
"5b1099b2-bbdf-ca42-b7e6-0d4496f6a203"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Clear", "[", "\"\<Global`*\>\"", "]"}], ";"}]], "Input",ExpressionU\
UID->"17fbabc9-89f3-514d-bc0b-af98938a58ca"],

Cell[BoxData[
 RowBox[{"SolveValues", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"x", "^", "2"}], " ", "+", " ", 
     RowBox[{"2", " ", "x"}], " ", "-", " ", "4"}], " ", "==", " ", "0"}], 
   ",", " ", "x"}], "]"}]], "Input",ExpressionUUID->"d410721c-d098-6149-bdae-\
330c9629e698"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"{", 
   RowBox[{"a", ",", " ", "b"}], "}"}], " ", "=", " ", 
  RowBox[{"SolveValues", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"x", "^", "2"}], " ", "+", " ", 
      RowBox[{"2", " ", "x"}], " ", "-", " ", "4"}], " ", "==", " ", "0"}], 
    ",", " ", "x"}], "]"}]}], "\n", 
 RowBox[{
  RowBox[{"a", " ", "+", " ", "b"}], "\n"}], "\n", 
 RowBox[{"tmp", " ", "=", " ", 
  RowBox[{"Solve", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"x", "^", "2"}], " ", "+", " ", 
      RowBox[{"2", " ", "x"}], " ", "-", " ", "4"}], " ", "==", " ", "0"}], 
    ",", " ", "x"}], "]"}]}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{"a", ",", " ", "b"}], "}"}], " ", "=", " ", 
   RowBox[{"x", " ", "/.", " ", "tmp"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"a", " ", "+", " ", "b"}], "\n"}], "\n", 
 RowBox[{"tmp", " ", "=", " ", 
  RowBox[{"Reduce", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"x", "^", "2"}], " ", "+", " ", 
      RowBox[{"2", " ", "x"}], " ", "-", " ", "4"}], " ", "==", " ", "0"}], 
    ",", " ", "x"}], "]"}]}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{"a", ",", " ", "b"}], "}"}], " ", "=", " ", 
   RowBox[{"x", " ", "/.", " ", 
    RowBox[{"{", 
     RowBox[{"ToRules", "[", "tmp", "]"}], "}"}]}]}], ";"}], "\n", 
 RowBox[{"a", " ", "+", " ", "b"}]}], "Input",ExpressionUUID->"3c0e881a-1060-\
d040-b3cc-ba88385a030d"],

Cell[BoxData[
 RowBox[{
  RowBox[{"n", " ", "=", " ", "3"}], ";", " ", 
  RowBox[{"Simplify", "[", 
   RowBox[{"Total", "[", 
    RowBox[{"SolveValues", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"x", "^", "n"}], " ", "+", " ", 
        RowBox[{"2", " ", "x"}], " ", "-", " ", "4"}], " ", "==", " ", "0"}], 
      ",", " ", "x"}], "]"}], "]"}], "]"}]}]], "Input",ExpressionUUID->\
"6851f60f-9913-3d4d-8714-bbb153f58862"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Clear", "[", "\"\<Global`*\>\"", "]"}], ";"}]], "Input",ExpressionU\
UID->"69dbe638-0bf9-6e4e-9de7-31855f85fa9c"],

Cell[BoxData[
 RowBox[{"sol", " ", "=", " ", 
  RowBox[{"SolveValues", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"2", " ", "x"}], " ", "+", " ", 
        RowBox[{"3", " ", "y"}]}], " ", "==", " ", "8"}], ",", " ", 
      RowBox[{
       RowBox[{
        RowBox[{"5", " ", "x"}], " ", "-", " ", 
        RowBox[{"7", " ", "y"}]}], " ", "==", " ", 
       RowBox[{"-", "9"}]}]}], "}"}], ",", " ", 
    RowBox[{"{", 
     RowBox[{"x", ",", " ", "y"}], "}"}]}], "]"}]}]], "Input",ExpressionUUID->\
"f9ed3095-e342-7c4e-a1d9-3d2644bad47e"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{"{", 
     RowBox[{"x1", ",", " ", "y1"}], "}"}], "}"}], " ", "=", " ", "sol"}], 
  ";", " ", 
  RowBox[{"x1", " ", "+", " ", "y1"}]}]], "Input",ExpressionUUID->"3373fd44-\
5dbb-b045-bd84-33e2d6e6a96c"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Clear", "[", "\"\<Global`*\>\"", "]"}], ";"}]], "Input",ExpressionU\
UID->"be985c64-ba28-014b-8cad-9aafbd68ef40"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"f", "[", "x_", "]"}], " ", ":=", " ", 
  RowBox[{
   RowBox[{"2", "^", "x"}], " ", "+", " ", 
   RowBox[{"Sin", "[", "x", "]"}]}]}], "\n", 
 RowBox[{"FindRoot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"f", "[", "x", "]"}], " ", "==", " ", "0"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"x", ",", " ", "0"}], "}"}]}], "]"}]}], "Input",ExpressionUUID->\
"3cea2890-ade9-4b45-8439-37c3ae286b7b"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Clear", "[", "\"\<Global`*\>\"", "]"}], ";"}]], "Input",ExpressionU\
UID->"9c79b06b-1689-1641-9f6b-83335a70ef06"],

Cell[BoxData[
 RowBox[{"Reduce", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"x", "^", "2"}], " ", "+", " ", 
     RowBox[{"2", " ", "x"}], " ", "-", " ", "4"}], " ", "<", " ", "0"}], ",",
    " ", "x"}], "]"}]], "Input",ExpressionUUID->"51c840a7-d5cf-3848-b3cb-\
481d81608bc3"]
}, Closed]],

Cell[CellGroupData[{

Cell["5 \:8ad6\:7406\:5f0f", "Chapter",
 PageBreakAbove->True,ExpressionUUID->"f8044a0e-db80-4145-8d3e-5f470b532e88"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Clear", "[", "\"\<Global`*\>\"", "]"}], ";"}]], "Input",ExpressionU\
UID->"0ce29f1b-d470-2844-abf8-4347adef398a"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"expr", " ", "=", " ", 
   RowBox[{"Exists", "[", 
    RowBox[{"x", ",", " ", 
     RowBox[{"Element", "[", 
      RowBox[{"x", ",", " ", "Reals"}], "]"}], ",", " ", 
     RowBox[{
      RowBox[{"x", "^", "2"}], " ", "==", " ", "2"}]}], "]"}]}], ";"}], "\n", 
 RowBox[{"Reduce", "[", "expr", "]"}]}], "Input",ExpressionUUID->"14f50d07-\
508b-5f4b-bc76-6062eb1a183f"],

Cell[BoxData[
 RowBox[{"Reduce", "[", 
  RowBox[{"Implies", "[", 
   RowBox[{
    RowBox[{"x", " ", ">", " ", "10"}], ",", " ", 
    RowBox[{"x", " ", ">", " ", "11"}]}], "]"}], "]"}]], "Input",ExpressionUUI\
D->"84d1613e-74f5-e74a-8ec8-e29bcf0717ea"],

Cell[BoxData[
 RowBox[{"Reduce", "[", 
  RowBox[{"ForAll", "[", 
   RowBox[{"x", ",", " ", 
    RowBox[{"Element", "[", 
     RowBox[{"x", ",", " ", "Reals"}], "]"}], ",", " ", 
    RowBox[{"Implies", "[", 
     RowBox[{
      RowBox[{"x", " ", ">", " ", "10"}], ",", " ", 
      RowBox[{"x", " ", ">", " ", "11"}]}], "]"}]}], "]"}], "]"}]], "Input",Ex\
pressionUUID->"6437b8ef-a8ef-4744-8ae1-b258d57a2043"],

Cell[BoxData[
 RowBox[{
  RowBox[{"BooleanConvert", "[", 
   RowBox[{
    RowBox[{"Implies", "[", 
     RowBox[{"A", ",", " ", "B"}], "]"}], ",", " ", "\"\<OR\>\""}], "]"}], 
  " ", 
  RowBox[{"(*", " ", "\:542b\:610f", " ", "*)"}]}]], "Input",ExpressionUUID->\
"7249ca78-d1c6-7b40-afbd-626ba0941042"],

Cell[BoxData[
 RowBox[{
  RowBox[{"BooleanConvert", "[", 
   RowBox[{
    RowBox[{"And", "[", 
     RowBox[{"A", ",", " ", "B"}], "]"}], ",", " ", "\"\<OR\>\""}], "]"}], 
  " ", 
  RowBox[{"(*", " ", "\:8ad6\:7406\:7a4d", " ", "*)"}]}]], "Input",ExpressionU\
UID->"94d74021-5806-4a48-8015-06efd6150bd9"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{"BooleanConvert", "[", 
     RowBox[{"Not", "[", "A", "]"}], "]"}], " ", "==", " ", 
    RowBox[{"BooleanConvert", "[", 
     RowBox[{"Nand", "[", 
      RowBox[{"A", ",", " ", "A"}], "]"}], "]"}]}], ",", "\n", " ", 
   RowBox[{
    RowBox[{"BooleanConvert", "[", 
     RowBox[{"Or", "[", 
      RowBox[{"A", ",", " ", "B"}], "]"}], "]"}], " ", "==", " ", 
    RowBox[{"BooleanConvert", "[", 
     RowBox[{"Nand", "[", 
      RowBox[{
       RowBox[{"Not", "[", "A", "]"}], ",", " ", 
       RowBox[{"Not", "[", "B", "]"}]}], "]"}], "]"}]}]}], "}"}]], "Input",Exp\
ressionUUID->"9b34cf4e-3485-0442-86a4-1c9abaab057d"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Clear", "[", "\"\<Global`*\>\"", "]"}], ";"}]], "Input",ExpressionU\
UID->"e0b050fd-52d8-a14f-a40c-2ae85555cf32"],

Cell[BoxData[
 RowBox[{"Reduce", "[", 
  RowBox[{"Exists", "[", 
   RowBox[{"x", ",", " ", 
    RowBox[{"Element", "[", 
     RowBox[{"x", ",", " ", "Reals"}], "]"}], ",", " ", 
    RowBox[{
     RowBox[{"x", "^", "2"}], " ", "==", " ", "2"}]}], "]"}], "]"}]], "Input",\
ExpressionUUID->"dbd18f2b-4e77-bb44-a2db-27e307e46715"],

Cell[BoxData[
 RowBox[{"Reduce", "[", 
  RowBox[{
   RowBox[{"Exists", "[", 
    RowBox[{"x", ",", " ", 
     RowBox[{
      RowBox[{"x", "^", "2"}], " ", "==", " ", "2"}]}], "]"}], ",", " ", 
   "Reals"}], "]"}]], "Input",ExpressionUUID->"92a735de-0318-b54f-8fdd-\
81460dd35a2f"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Reduce", "[", 
   RowBox[{"Exists", "[", 
    RowBox[{"x", ",", " ", 
     RowBox[{"Element", "[", 
      RowBox[{"x", ",", " ", "Rationals"}], "]"}], ",", " ", 
     RowBox[{
      RowBox[{"x", "^", "2"}], " ", "==", " ", "2"}]}], "]"}], "]"}], " ", 
  RowBox[{"(*", " ", "False", " ", "*)"}]}], "\n", 
 RowBox[{
  RowBox[{"Reduce", "[", 
   RowBox[{
    RowBox[{"Exists", "[", 
     RowBox[{"x", ",", " ", 
      RowBox[{
       RowBox[{"x", "^", "2"}], " ", "==", " ", "2"}]}], "]"}], ",", " ", 
    "Rationals"}], "]"}], "             ", 
  RowBox[{"(*", " ", "False", " ", "*)"}]}]}], "Input",ExpressionUUID->\
"49f2e052-4b16-fd4b-b88c-d4d9fb9c9ade"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Clear", "[", "\"\<Global`*\>\"", "]"}], ";"}]], "Input",ExpressionU\
UID->"de9a5ab4-75f2-7a40-8048-b45efd1d279b"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"expr", " ", "=", " ", 
   RowBox[{"ForAll", "[", 
    RowBox[{"b", ",", " ", 
     RowBox[{"Element", "[", 
      RowBox[{"b", ",", " ", "Reals"}], "]"}], ",", " ", 
     RowBox[{"Exists", "[", 
      RowBox[{"n", ",", " ", 
       RowBox[{"Element", "[", 
        RowBox[{"n", ",", " ", "Integers"}], "]"}], ",", " ", 
       RowBox[{"n", " ", ">", " ", "b"}]}], "]"}]}], "]"}]}], ";"}], "\n", 
 RowBox[{"Reduce", "[", "expr", "]"}]}], "Input",ExpressionUUID->"2649e4c4-\
c2f2-9b42-b176-4ee227543652"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"expr1", " ", "=", " ", 
   RowBox[{"ForAll", "[", 
    RowBox[{"b", ",", "\n", "   ", 
     RowBox[{"Element", "[", 
      RowBox[{"b", ",", " ", "Reals"}], "]"}], ",", " ", 
     RowBox[{"Exists", "[", 
      RowBox[{"n", ",", " ", 
       RowBox[{"And", "[", 
        RowBox[{
         RowBox[{"Element", "[", 
          RowBox[{"n", ",", " ", "Integers"}], "]"}], ",", " ", 
         RowBox[{"n", " ", ">", " ", "b"}]}], "]"}]}], "]"}]}], "]"}]}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{"Reduce", "[", "expr1", "]"}], " ", 
  RowBox[{"(*", " ", "True", " ", "*)"}], "\n"}], "\n", 
 RowBox[{
  RowBox[{"expr2", " ", "=", " ", 
   RowBox[{"ForAll", "[", 
    RowBox[{"b", ",", "\n", "   ", 
     RowBox[{"Implies", "[", 
      RowBox[{
       RowBox[{"Element", "[", 
        RowBox[{"b", ",", " ", "Reals"}], "]"}], ",", " ", 
       RowBox[{"Exists", "[", 
        RowBox[{"n", ",", " ", 
         RowBox[{"Element", "[", 
          RowBox[{"n", ",", " ", "Integers"}], "]"}], ",", " ", 
         RowBox[{"n", " ", ">", " ", "b"}]}], "]"}]}], "]"}]}], "]"}]}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{"Reduce", "[", "expr2", "]"}], " ", 
  RowBox[{"(*", " ", "\:5931\:6557", " ", "*)"}]}]}], "Input",ExpressionUUID->\
"c297c1b3-ec78-5144-9097-6376151e6f30"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Clear", "[", "\"\<Global`*\>\"", "]"}], ";"}]], "Input",ExpressionU\
UID->"82250f1c-f537-d14a-ad51-5b21d43caa0f"],

Cell[BoxData[
 RowBox[{"Reduce", "[", 
  RowBox[{"Exists", "[", 
   RowBox[{"x", ",", " ", 
    RowBox[{
     RowBox[{
      RowBox[{"a", " ", "x"}], " ", "+", " ", "b"}], " ", "==", " ", "0"}]}], 
   "]"}], "]"}]], "Input",ExpressionUUID->"33118184-1b27-234e-8c93-\
42a483860254"],

Cell[BoxData[
 RowBox[{"Reduce", "[", 
  RowBox[{"Exists", "[", 
   RowBox[{"x", ",", " ", 
    RowBox[{"Element", "[", 
     RowBox[{"x", ",", " ", "Reals"}], "]"}], ",", " ", 
    RowBox[{
     RowBox[{
      RowBox[{"x", "^", "2"}], " ", "+", " ", 
      RowBox[{"a", "^", "2"}]}], " ", "==", " ", "0"}]}], "]"}], 
  "]"}]], "Input",ExpressionUUID->"c618e54a-a2aa-fe45-9c54-767db0579eb4"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Reduce", "[", 
   RowBox[{"Exists", "[", 
    RowBox[{"x", ",", " ", 
     RowBox[{"Element", "[", 
      RowBox[{"x", ",", " ", "Reals"}], "]"}], ",", " ", 
     RowBox[{
      RowBox[{
       RowBox[{"x", "^", "2"}], " ", "+", " ", 
       RowBox[{"a", "^", "2"}]}], " ", "<", " ", "0"}]}], "]"}], "]"}], " ", 
  RowBox[{"(*", " ", "False", " ", "*)"}]}]], "Input",ExpressionUUID->\
"080598f3-0ccb-5242-af99-160e7031c068"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Reduce", "[", 
   RowBox[{
    RowBox[{"Exists", "[", 
     RowBox[{"x", ",", " ", 
      RowBox[{"Element", "[", 
       RowBox[{"x", ",", " ", "Reals"}], "]"}], ",", " ", 
      RowBox[{
       RowBox[{
        RowBox[{"x", "^", "2"}], " ", "+", " ", 
        RowBox[{"a", "^", "2"}]}], " ", "<", " ", "0"}]}], "]"}], ",", " ", 
    "Complexes"}], "]"}], " ", "//", " ", "Simplify"}]], "Input",ExpressionUUI\
D->"9866c0ea-6bdb-c849-955c-d0bb5f96f70f"],

Cell[BoxData[
 RowBox[{"Reduce", "[", 
  RowBox[{
   RowBox[{"Not", "[", 
    RowBox[{"Exists", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"n", ",", " ", "a", ",", " ", "b", ",", " ", "c"}], "}"}], ",",
       " ", 
      RowBox[{"And", "[", 
       RowBox[{
        RowBox[{"n", " ", ">=", " ", "3"}], ",", " ", 
        RowBox[{
         RowBox[{
          RowBox[{"a", "^", "n"}], " ", "+", " ", 
          RowBox[{"b", "^", "n"}]}], " ", "==", " ", 
         RowBox[{"c", "^", "n"}]}]}], "]"}]}], "]"}], "]"}], ",", "\n", " ", 
   "PositiveIntegers"}], "]"}]], "Input",ExpressionUUID->"600d320b-edd0-db48-\
9d89-471bf79cbf24"],

Cell[BoxData[
 RowBox[{"Reduce", "[", 
  RowBox[{
   RowBox[{"Not", "[", 
    RowBox[{"Exists", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", " ", "b", ",", " ", "c"}], "}"}], ",", " ", 
      RowBox[{
       RowBox[{
        RowBox[{"a", "^", "4"}], " ", "+", " ", 
        RowBox[{"b", "^", "4"}]}], " ", "==", " ", 
       RowBox[{"c", "^", "4"}]}]}], "]"}], "]"}], ",", " ", 
   "PositiveIntegers"}], "]"}]], "Input",ExpressionUUID->"45e17605-65d1-d548-\
bfeb-040aec8cfcf7"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Reduce", "[", 
   RowBox[{
    RowBox[{"Not", "[", 
     RowBox[{"Exists", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"a", ",", " ", "b", ",", " ", "c"}], "}"}], ",", " ", 
       RowBox[{
        RowBox[{
         RowBox[{"a", "^", "4"}], " ", "+", " ", 
         RowBox[{"b", "^", "4"}]}], " ", "==", " ", 
        RowBox[{"c", "^", "2"}]}]}], "]"}], "]"}], ",", " ", 
    "PositiveIntegers"}], "]"}], " ", 
  RowBox[{"(*", " ", "\:5931\:6557", " ", "*)"}]}]], "Input",ExpressionUUID->\
"a18542b8-bada-2447-8368-9c944ed2c995"]
}, Closed]],

Cell[CellGroupData[{

Cell["6 1\:6b21\:5143\:306e\:30c7\:30fc\:30bf", "Chapter",
 PageBreakAbove->True,ExpressionUUID->"fecc08d7-cd0e-c64b-a1af-b04f2ecf09ee"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Clear", "[", "\"\<Global`*\>\"", "]"}], ";"}]], "Input",ExpressionU\
UID->"f806e420-da7f-ae41-bfbf-f721a1bd63de"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"a", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
    "36", ",", " ", "43", ",", " ", "53", ",", " ", "55", ",", " ", "56", ",",
      " ", "56", ",", " ", "57", ",", " ", "60", ",", " ", "61", ",", " ", 
     "73"}], "}"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"b", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
    "34", ",", " ", "39", ",", " ", "39", ",", " ", "49", ",", " ", "50", ",",
      " ", "52", ",", " ", "52", ",", " ", "55", ",", " ", "83", ",", " ", 
     "97"}], "}"}]}], ";"}], "\n", 
 RowBox[{"Histogram", "[", "a", "]"}]}], "Input",ExpressionUUID->"6c7d3af0-\
d1b4-5c48-a911-f9e991ef7576"],

Cell[BoxData[
 RowBox[{"HistogramList", "[", 
  RowBox[{"a", ",", " ", 
   RowBox[{"{", 
    RowBox[{"20", ",", " ", "80", ",", " ", "20"}], "}"}]}], "]"}]], "Input",E\
xpressionUUID->"decf0d2c-aaba-7a45-9882-fadda9ecce8c"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"x", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
    "7", ",", " ", "3", ",", " ", "1", ",", " ", "3", ",", " ", "4", ",", " ",
      "7", ",", " ", "7", ",", " ", "7", ",", " ", "10", ",", " ", "3"}], 
    "}"}]}], ";"}], "\n", 
 RowBox[{"f", " ", "=", " ", 
  RowBox[{"Counts", "[", "x", "]"}]}]}], "Input",ExpressionUUID->"bc1daa45-\
4d2f-0b4e-830c-ca0a9143cf26"],

Cell[BoxData[
 RowBox[{"BoxWhiskerChart", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"a", ",", " ", "b"}], "}"}], ",", " ", "\"\<Outliers\>\"", ",", 
   " ", 
   RowBox[{"ChartLabels", " ", "->", " ", 
    RowBox[{"{", 
     RowBox[{"\"\<A\>\"", ",", " ", "\"\<B\>\""}], "}"}]}]}], "]"}]], "Input",\
ExpressionUUID->"96106678-85ef-6e43-b0cf-ed73da9cc575"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Clear", "[", "\"\<Global`*\>\"", "]"}], ";"}]], "Input",ExpressionU\
UID->"ddeba7a2-09ea-3d45-9b77-fe3529320b74"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"a", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
    "36", ",", " ", "43", ",", " ", "53", ",", " ", "55", ",", " ", "56", ",",
      " ", "56", ",", " ", "57", ",", " ", "60", ",", " ", "61", ",", " ", 
     "73"}], "}"}]}], ";"}], "\n", 
 RowBox[{"Mean", "[", "a", "]"}]}], "Input",ExpressionUUID->"3038ece2-9d7e-\
be41-96ca-d67aff4b299a"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"b", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
    "34", ",", " ", "39", ",", " ", "39", ",", " ", "49", ",", " ", "50", ",",
      " ", "52", ",", " ", "52", ",", " ", "55", ",", " ", "83", ",", " ", 
     "97"}], "}"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"Total", "[", "b", "]"}], "/", 
  RowBox[{"Length", "[", "b", "]"}]}]}], "Input",ExpressionUUID->"e30e401d-\
db1c-b143-8583-65e7af28e49d"],

Cell[BoxData[
 RowBox[{"Mean", "[", 
  RowBox[{"a", " ", "-", " ", 
   RowBox[{"Mean", "[", "a", "]"}]}], "]"}]], "Input",ExpressionUUID->\
"9510c711-d589-7e48-adee-67ca1867ec0b"],

Cell[BoxData[
 RowBox[{"Variance", "[", "a", "]"}]], "Input",ExpressionUUID->"463bf4ee-53f1-8649-8e02-3e1b871fbac4"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Total", "[", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"b", " ", "-", " ", 
       RowBox[{"Mean", "[", "b", "]"}]}], ")"}], "^", "2"}], "]"}], "/", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"Length", "[", "b", "]"}], " ", "-", " ", "1"}], ")"}]}], " ", "//",
   " ", "N"}]], "Input",ExpressionUUID->"179aa62b-01d4-8e4b-817f-\
95636682035b"],

Cell[BoxData[
 RowBox[{"z", " ", "=", " ", 
  RowBox[{"Standardize", "[", "a", "]"}]}]], "Input",ExpressionUUID->\
"c10ca64f-4705-134d-857f-b65e7a769b22"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"Mean", "[", "z", "]"}], ",", " ", 
   RowBox[{"StandardDeviation", "[", "z", "]"}]}], "}"}]], "Input",ExpressionU\
UID->"e69e6a21-dd6f-2e42-888e-f9264f17eb76"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{"a", " ", "-", " ", 
    RowBox[{"Mean", "[", "a", "]"}]}], ")"}], "/", 
  RowBox[{"StandardDeviation", "[", "a", "]"}]}]], "Input",ExpressionUUID->\
"844afbf1-627e-ab4a-9ce8-54ae889b71bf"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"StandardDeviation", "[", "a", "]"}], " ", "z"}], " ", "+", " ", 
  RowBox[{"Mean", "[", "a", "]"}]}]], "Input",ExpressionUUID->"3b5f04de-7509-\
c54a-a699-cc52e1d1c54a"],

Cell[BoxData[
 RowBox[{
  RowBox[{"10", " ", "*", " ", "z"}], " ", "+", " ", "50"}]], "Input",Expressi\
onUUID->"eb6b295b-ba1d-cb46-98a9-1e13f42f57c1"]
}, Closed]],

Cell[CellGroupData[{

Cell["7 2\:6b21\:5143\:306e\:30c7\:30fc\:30bf", "Chapter",
 PageBreakAbove->True,ExpressionUUID->"0d734c38-316d-cd44-9a20-112ef652c940"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Clear", "[", "\"\<Global`*\>\"", "]"}], ";"}]], "Input",ExpressionU\
UID->"a281aa2c-e673-2c4b-8423-27555af82f9a"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"x", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
    "35", ",", " ", "45", ",", " ", "55", ",", " ", "65", ",", " ", "75"}], 
    "}"}]}], ";", " ", 
  RowBox[{"y", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
    "114", ",", " ", "124", ",", " ", "143", ",", " ", "158", ",", " ", 
     "166"}], "}"}]}], ";"}], "\n", 
 RowBox[{"ListPlot", "[", 
  RowBox[{"Transpose", "[", 
   RowBox[{"{", 
    RowBox[{"x", ",", " ", "y"}], "}"}], "]"}], "]"}]}], "Input",ExpressionUUI\
D->"e9341309-eb57-354b-a7c9-5d00782ac7b0"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Clear", "[", "\"\<Global`*\>\"", "]"}], ";"}]], "Input",ExpressionU\
UID->"d03f2402-970b-1847-a774-92efdfbdf423"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"x", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
    "35", ",", " ", "45", ",", " ", "55", ",", " ", "65", ",", " ", "75"}], 
    "}"}]}], ";", " ", 
  RowBox[{"y", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
    "114", ",", " ", "124", ",", " ", "143", ",", " ", "158", ",", " ", 
     "166"}], "}"}]}], ";"}], "\n", 
 RowBox[{"Covariance", "[", 
  RowBox[{"x", ",", " ", "y"}], "]"}]}], "Input",ExpressionUUID->"07d46f4b-\
ab67-c24d-86e6-6a64627f7e67"],

Cell[BoxData[
 RowBox[{"Covariance", "[", 
  RowBox[{"Transpose", "[", 
   RowBox[{"{", 
    RowBox[{"x", ",", " ", "y"}], "}"}], "]"}], "]"}]], "Input",ExpressionUUID\
->"f8921658-4f90-754f-9dba-1909267c8ead"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"(", 
    RowBox[{"x", " ", "-", " ", 
     RowBox[{"Mean", "[", "x", "]"}]}], ")"}], " ", ".", " ", 
   RowBox[{"(", 
    RowBox[{"y", " ", "-", " ", 
     RowBox[{"Mean", "[", "y", "]"}]}], ")"}]}], "/", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"Length", "[", "x", "]"}], " ", "-", " ", "1"}], ")"}]}]], "Input",\
ExpressionUUID->"ef2373a7-c87e-fe4e-9bb2-941c6c727ff7"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Correlation", "[", 
   RowBox[{"x", ",", " ", "y"}], "]"}], " ", "//", " ", "N"}]], "Input",Expres\
sionUUID->"2bf314d2-f3df-f244-9eaa-9de0872cc388"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Clear", "[", "\"\<Global`*\>\"", "]"}], ";"}]], "Input",ExpressionU\
UID->"15a148d0-a50e-0b4e-8437-6d0a09b9b37b"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"x", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
    "35", ",", " ", "45", ",", " ", "55", ",", " ", "65", ",", " ", "75"}], 
    "}"}]}], ";", " ", 
  RowBox[{"y", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
    "114", ",", " ", "124", ",", " ", "143", ",", " ", "158", ",", " ", 
     "166"}], "}"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"data", " ", "=", " ", 
    RowBox[{"Thread", "[", 
     RowBox[{"{", 
      RowBox[{"x", ",", " ", "y"}], "}"}], "]"}]}], ";"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{"x", ",", " ", "y\:3092\:5217\:3068\:3059\:308b\:884c\:5217"}], 
   " ", "*)"}]}], "\n", 
 RowBox[{"model", " ", "=", " ", 
  RowBox[{"LinearModelFit", "[", 
   RowBox[{"data", ",", " ", "X", ",", " ", "X"}], "]"}]}]}], "Input",Expressi\
onUUID->"ac130e68-08db-3f49-b7d0-d2917c24ca47"],

Cell[BoxData[
 RowBox[{"model", "[", "40", "]"}]], "Input",ExpressionUUID->"83178c6e-ff52-0049-88ec-fd2ba0b0b24b"],

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{
   RowBox[{"ListPlot", "[", "data", "]"}], ",", " ", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"model", "[", "x", "]"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"x", ",", " ", "35", ",", " ", "75"}], "}"}]}], "]"}]}], 
  "]"}]], "Input",ExpressionUUID->"56a7a7e2-9cde-fb44-9d6e-1a3a0d048b71"],

Cell[BoxData[
 RowBox[{"L", " ", "=", " ", 
  RowBox[{"Total", "[", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"y", " ", "-", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"a", " ", "x"}], " ", "+", " ", "b"}], ")"}]}], ")"}], "^", 
    "2"}], "]"}]}]], "Input",ExpressionUUID->"73a1a780-38ea-f844-bc54-\
d775224cb8e7"],

Cell[BoxData[{
 RowBox[{"sol", " ", "=", " ", 
  RowBox[{"SolveAlways", "[", 
   RowBox[{
    RowBox[{"L", " ", "==", " ", 
     RowBox[{
      RowBox[{"p", " ", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"a", " ", "-", " ", "q"}], ")"}], "^", "2"}]}], " ", "+", 
      " ", 
      RowBox[{"r", " ", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"b", " ", "-", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"s", " ", "a"}], " ", "+", " ", "t"}], ")"}]}], ")"}], 
        "^", "2"}]}], " ", "+", " ", "u"}]}], ",", " ", 
    RowBox[{"{", 
     RowBox[{"a", ",", " ", "b"}], "}"}]}], "]"}]}], "\n", 
 RowBox[{
  RowBox[{"{", 
   RowBox[{"q", ",", " ", 
    RowBox[{
     RowBox[{"s", " ", "q"}], " ", "+", " ", "t"}]}], "}"}], " ", "/.", " ", 
  RowBox[{"sol", "[", 
   RowBox[{"[", "1", "]"}], "]"}]}]}], "Input",ExpressionUUID->"16900ac7-38cc-\
5d41-8a51-e4e62832a482"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"a", " ", "=", " ", 
   RowBox[{
    RowBox[{"Covariance", "[", 
     RowBox[{"x", ",", " ", "y"}], "]"}], "/", 
    RowBox[{"Variance", "[", "x", "]"}]}]}], ";", " ", 
  RowBox[{"b", " ", "=", " ", 
   RowBox[{
    RowBox[{"Mean", "[", "y", "]"}], " ", "-", " ", 
    RowBox[{"a", " ", 
     RowBox[{"Mean", "[", "x", "]"}]}]}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"{", 
   RowBox[{"a", ",", " ", "b"}], "}"}], " ", "//", " ", "N"}]}], "Input",Expre\
ssionUUID->"c950fdfc-e639-e346-ba54-bb68d7c51362"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Clear", "[", "\"\<Global`*\>\"", "]"}], ";"}]], "Input",ExpressionU\
UID->"04eedff8-4b69-454b-b8a9-2bc1c95574e1"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"anscombe", " ", "=", " ", 
   RowBox[{"ExampleData", "[", 
    RowBox[{"{", 
     RowBox[{
     "\"\<Statistics\>\"", ",", " ", "\"\<AnscombeRegressionLines\>\""}], 
     "}"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"x1", " ", "=", " ", 
   RowBox[{"anscombe", "[", 
    RowBox[{"[", 
     RowBox[{"All", ",", " ", "1"}], "]"}], "]"}]}], ";", " ", 
  RowBox[{"y1", " ", "=", " ", 
   RowBox[{"anscombe", "[", 
    RowBox[{"[", 
     RowBox[{"All", ",", " ", "5"}], "]"}], "]"}]}], ";", " ", 
  RowBox[{"data", " ", "=", " ", 
   RowBox[{"Thread", "[", 
    RowBox[{"{", 
     RowBox[{"x1", ",", " ", "y1"}], "}"}], "]"}]}], ";"}], "\n", 
 RowBox[{"Correlation", "[", 
  RowBox[{"x1", ",", " ", "y1"}], "]"}], "\n", 
 RowBox[{"model", " ", "=", " ", 
  RowBox[{"LinearModelFit", "[", 
   RowBox[{"data", ",", " ", "X", ",", " ", "X"}], "]"}]}], "\n", 
 RowBox[{"Show", "[", 
  RowBox[{
   RowBox[{"ListPlot", "[", "data", "]"}], ",", " ", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"model", "[", "x", "]"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"x", ",", " ", "0", ",", " ", "21"}], "}"}]}], "]"}]}], 
  "]"}]}], "Input",ExpressionUUID->"1e83b299-15a4-f644-b286-74e3b7f24390"]
}, Closed]],

Cell[CellGroupData[{

Cell["8 \:78ba\:7387\:5909\:6570\:3068\:78ba\:7387\:5206\:5e03", "Chapter",
 PageBreakAbove->True,ExpressionUUID->"9b23ad6c-34b2-884a-af69-645ddfff5db7"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Clear", "[", "\"\<Global`*\>\"", "]"}], ";"}]], "Input",ExpressionU\
UID->"36d21eb2-6aeb-b144-82e1-e1e7eccdf3a2"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"dist", " ", "=", " ", 
   RowBox[{"DiscreteUniformDistribution", "[", 
    RowBox[{"{", 
     RowBox[{"1", ",", " ", "6"}], "}"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"PDF", "[", "dist", "]"}], "[", "2", "]"}]}], "Input",ExpressionUUID\
->"9139039e-ce38-3a41-99ce-c26b899f5664"],

Cell[BoxData[
 RowBox[{"Probability", "[", 
  RowBox[{
   RowBox[{"X", " ", "==", " ", "2"}], ",", " ", 
   RowBox[{"Distributed", "[", 
    RowBox[{"X", ",", " ", "dist"}], "]"}]}], "]"}]], "Input",ExpressionUUID->\
"10eef290-b0b7-8346-97e4-a00f16fd404e"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"data", " ", "=", " ", 
   RowBox[{"RandomVariate", "[", 
    RowBox[{"dist", ",", " ", "1000"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"Histogram", "[", "data", "]"}], " ", 
  RowBox[{
  "(*", " ", "\:7d50\:679c\:306f\:5272\:611b", " ", "*)"}]}]}], "Input",Expres\
sionUUID->"a7183fab-77ae-5743-ace2-350309afddd9"],

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{
   RowBox[{"Histogram", "[", 
    RowBox[{"data", ",", " ", 
     RowBox[{"{", 
      RowBox[{"0.5", ",", " ", "6.5", ",", " ", "1"}], "}"}], ",", " ", 
     "\"\<PDF\>\""}], "]"}], ",", "\n", " ", 
   RowBox[{"DiscretePlot", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"PDF", "[", "dist", "]"}], "[", "x", "]"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"x", ",", " ", "1", ",", " ", "6"}], "}"}]}], "]"}]}], 
  "]"}]], "Input",ExpressionUUID->"dc39f088-fe6d-d84e-8816-914940614d0b"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"dist", " ", "=", " ", 
   RowBox[{"BernoulliDistribution", "[", 
    RowBox[{"3", "/", "10"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"data", " ", "=", " ", 
   RowBox[{"RandomVariate", "[", 
    RowBox[{"dist", ",", " ", "1000"}], "]"}]}], ";"}], "\n", 
 RowBox[{"Counts", "[", "data", "]"}]}], "Input",ExpressionUUID->"70816a60-\
d104-2e42-afa7-2c48885ec956"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"dist", " ", "=", " ", 
   RowBox[{"BinomialDistribution", "[", 
    RowBox[{"10", ",", " ", 
     RowBox[{"3", "/", "10"}]}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"PDF", "[", "dist", "]"}], "[", "3", "]"}]}], "Input",ExpressionUUID\
->"6af21e82-ffde-8f4a-a1eb-7ca8a0d06d4c"],

Cell[BoxData[
 RowBox[{"Probability", "[", 
  RowBox[{
   RowBox[{"X", " ", "==", " ", "3"}], ",", " ", 
   RowBox[{"Distributed", "[", 
    RowBox[{"X", ",", " ", "dist"}], "]"}]}], "]"}]], "Input",ExpressionUUID->\
"702c8542-3714-7c44-a24f-c8bdfdabc592"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"dist", " ", "=", " ", 
   RowBox[{"BinomialDistribution", "[", 
    RowBox[{"n", ",", " ", "p"}], "]"}]}], ";"}], "\n", 
 RowBox[{"PDF", "[", "dist", "]"}]}], "Input",ExpressionUUID->"f1602e55-a4ea-\
ae4b-8c00-84b1de10729f"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"n", " ", "=", " ", "10"}], ";", " ", 
  RowBox[{"p", " ", "=", " ", 
   RowBox[{"3", "/", "10"}]}], ";", " ", 
  RowBox[{"dist", " ", "=", " ", 
   RowBox[{"BinomialDistribution", "[", 
    RowBox[{"n", ",", " ", "p"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"data", " ", "=", " ", 
   RowBox[{"RandomVariate", "[", 
    RowBox[{"dist", ",", " ", "1000"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"Histogram", "[", "data", "]"}], " ", 
  RowBox[{
  "(*", " ", "\:7d50\:679c\:306f\:5272\:611b", " ", "*)"}]}]}], "Input",Expres\
sionUUID->"a0830d81-2eb9-ce40-85b9-b2751e8dc9e9"],

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{
   RowBox[{"Histogram", "[", 
    RowBox[{"data", ",", " ", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "0.5"}], ",", " ", 
       RowBox[{"n", " ", "+", " ", "0.5"}], ",", " ", "1"}], "}"}], ",", " ", 
     "\"\<PDF\>\""}], "]"}], ",", "\n", " ", 
   RowBox[{"DiscretePlot", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"PDF", "[", "dist", "]"}], "[", "x", "]"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"x", ",", " ", "0", ",", " ", "n"}], "}"}]}], "]"}]}], 
  "]"}]], "Input",ExpressionUUID->"3a932ae9-8b76-a845-b282-a5021e6c40bf"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"dist", " ", "=", " ", 
   RowBox[{"BinomialDistribution", "[", 
    RowBox[{"10", ",", " ", 
     RowBox[{"3", "/", "10"}]}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"CDF", "[", "dist", "]"}], "[", "3", "]"}]}], "Input",ExpressionUUID\
->"a0da6f49-aca6-c248-a061-126b67069da3"],

Cell[BoxData[
 RowBox[{"Probability", "[", 
  RowBox[{
   RowBox[{"X", " ", "<=", " ", "3"}], ",", " ", 
   RowBox[{"Distributed", "[", 
    RowBox[{"X", ",", " ", "dist"}], "]"}]}], "]"}]], "Input",ExpressionUUID->\
"da77fb64-d92b-4d4f-a4f2-6951348b9ce5"],

Cell[BoxData[
 RowBox[{"Sum", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"PDF", "[", "dist", "]"}], "[", "k", "]"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"k", ",", " ", "0", ",", " ", "3"}], "}"}]}], "]"}]], "Input",Expr\
essionUUID->"c3e1d4b2-f968-bf41-a18a-7bc9c57d67a4"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Clear", "[", "\"\<Global`*\>\"", "]"}], ";"}]], "Input",ExpressionU\
UID->"4285e87d-8ccb-f54a-9d72-6e03456505ee"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"dist", " ", "=", " ", 
   RowBox[{"UniformDistribution", "[", 
    RowBox[{"{", 
     RowBox[{"0", ",", " ", "360"}], "}"}], "]"}]}], ";"}], "\n", 
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{"CDF", "[", "dist", "]"}], "[", "200", "]"}], ",", " ", 
   RowBox[{
    RowBox[{"CDF", "[", "dist", "]"}], "[", "150", "]"}], ",", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"CDF", "[", "dist", "]"}], "[", "200", "]"}], " ", "-", " ", 
    RowBox[{
     RowBox[{"CDF", "[", "dist", "]"}], "[", "150", "]"}]}]}], 
  "}"}]}], "Input",ExpressionUUID->"0c112c5b-1c5a-054d-bf91-d521803671b9"],

Cell[BoxData[
 RowBox[{"Probability", "[", 
  RowBox[{
   RowBox[{"150", " ", "<=", " ", "X", " ", "<=", " ", "200"}], ",", " ", 
   RowBox[{"Distributed", "[", 
    RowBox[{"X", ",", " ", "dist"}], "]"}]}], "]"}]], "Input",ExpressionUUID->\
"d63bc2d9-a588-2345-b825-12b9d6cfde08"],

Cell[BoxData[
 RowBox[{"Integrate", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"PDF", "[", "dist", "]"}], "[", "x", "]"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"x", ",", " ", "150", ",", " ", "200"}], "}"}]}], "]"}]], "Input",\
ExpressionUUID->"b531260c-ecdd-7640-9c7d-ef07504b2136"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Integrate", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"PDF", "[", "dist", "]"}], "[", "t", "]"}], ",", " ", 
    RowBox[{"{", 
     RowBox[{"t", ",", " ", "0", ",", " ", "x"}], "}"}], ",", "\n", " ", 
    RowBox[{"Assumptions", " ", "->", " ", 
     RowBox[{"Element", "[", 
      RowBox[{"x", ",", " ", "Reals"}], "]"}]}]}], "]"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{"x\:306f\:5b9f\:6570\:3068\:4eee\:5b9a\:3059\:308b", "\:ff0e"}], 
   "*)"}]}]], "Input",ExpressionUUID->"c5cb6388-1fb6-314a-9172-9eaa36e99cb7"],

Cell[BoxData[
 RowBox[{"D", "[", 
  RowBox[{
   RowBox[{"x", "/", "360"}], ",", " ", "x"}], "]"}]], "Input",ExpressionUUID->\
"eee7901a-e8cc-264d-92b4-62d292215c79"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"data", " ", "=", " ", 
   RowBox[{"RandomVariate", "[", 
    RowBox[{"dist", ",", " ", "1000"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"Histogram", "[", "data", "]"}], " ", 
  RowBox[{
  "(*", " ", "\:7d50\:679c\:306f\:5272\:611b", " ", "*)"}]}]}], "Input",Expres\
sionUUID->"bf483c29-ab78-164f-aedb-df3b0091686f"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"data", " ", "=", " ", 
   RowBox[{"RandomVariate", "[", 
    RowBox[{"dist", ",", " ", "1000"}], "]"}]}], ";"}], "\n", 
 RowBox[{"Show", "[", 
  RowBox[{
   RowBox[{"Histogram", "[", 
    RowBox[{"data", ",", " ", 
     RowBox[{"{", 
      RowBox[{"\"\<Raw\>\"", ",", " ", "\"\<Sturges\>\""}], "}"}], ",", " ", 
     "\"\<PDF\>\""}], "]"}], ",", "\n", " ", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"PDF", "[", "dist", "]"}], "[", "x", "]"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"x", ",", " ", "0", ",", " ", "360"}], "}"}]}], "]"}]}], 
  "]"}]}], "Input",ExpressionUUID->"0e7a4182-ac1d-6843-a1f4-1f52d21614f9"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"dist", " ", "=", " ", 
   RowBox[{"NormalDistribution", "[", 
    RowBox[{"6", ",", " ", "2"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"CDF", "[", "dist", "]"}], "[", 
    RowBox[{"6", " ", "+", " ", 
     RowBox[{"3", " ", "2"}]}], "]"}], " ", "-", " ", 
   RowBox[{
    RowBox[{"CDF", "[", "dist", "]"}], "[", 
    RowBox[{"6", " ", "-", " ", 
     RowBox[{"3", " ", "2"}]}], "]"}]}], " ", "//", " ", "N"}]}], "Input",Expr\
essionUUID->"db13f4a4-e112-5440-9124-de6f2c65f645"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Probability", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"6", " ", "-", " ", 
      RowBox[{"3", " ", "2"}]}], " ", "<=", " ", "X", " ", "<=", " ", 
     RowBox[{"6", " ", "+", " ", 
      RowBox[{"3", " ", "2"}]}]}], ",", " ", 
    RowBox[{"Distributed", "[", 
     RowBox[{"X", ",", " ", "dist"}], "]"}]}], "]"}], " ", "//", " ", 
  "N"}]], "Input",ExpressionUUID->"09188c10-4b86-d844-ba85-63ef207f9549"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Integrate", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"PDF", "[", "dist", "]"}], "[", "x", "]"}], ",", " ", 
    RowBox[{"{", 
     RowBox[{"x", ",", " ", 
      RowBox[{"6", " ", "-", " ", 
       RowBox[{"3", " ", "2"}]}], ",", " ", 
      RowBox[{"6", " ", "+", " ", 
       RowBox[{"3", " ", "2"}]}]}], "}"}]}], "]"}], " ", "//", " ", 
  "N"}]], "Input",ExpressionUUID->"c6897533-1597-174b-b187-273971b2fb3c"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", 
   RowBox[{"mu", ",", " ", "sigma", ",", " ", "x"}], "]"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"dist", " ", "=", " ", 
   RowBox[{"NormalDistribution", "[", 
    RowBox[{"mu", ",", " ", "sigma"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{"a", ",", " ", "b"}], "}"}], " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"mu", " ", "-", " ", 
      RowBox[{"3", " ", "sigma"}]}], ",", " ", 
     RowBox[{"mu", " ", "+", " ", 
      RowBox[{"3", " ", "sigma"}]}]}], "}"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"CDF", "[", "dist", "]"}], "[", "b", "]"}], " ", "-", " ", 
    RowBox[{
     RowBox[{"CDF", "[", "dist", "]"}], "[", "a", "]"}]}], " ", "//", " ", 
   "N"}], "                    ", 
  RowBox[{"(*", " ", "\:65b9\:6cd51", " ", "*)"}]}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"Probability", "[", 
    RowBox[{
     RowBox[{"a", " ", "<=", " ", "X", " ", "<=", " ", "b"}], ",", " ", 
     RowBox[{"Distributed", "[", 
      RowBox[{"X", ",", " ", "dist"}], "]"}]}], "]"}], " ", "//", " ", "N"}], 
  " ", 
  RowBox[{"(*", " ", "\:65b9\:6cd52", " ", "*)"}]}], "\n", 
 RowBox[{
  RowBox[{"Integrate", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"PDF", "[", "dist", "]"}], "[", "x", "]"}], ",", " ", 
    RowBox[{"{", 
     RowBox[{"x", ",", " ", "a", ",", " ", "b"}], "}"}]}], "]"}], " ", "//", 
  " ", "N", "             ", 
  RowBox[{"(*", " ", "\:65b9\:6cd53", " ", "*)"}]}]}], "Input",ExpressionUUID->\
"65ef5e25-2739-5b46-a141-218af633e23c"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"dist", " ", "=", " ", 
   RowBox[{"NormalDistribution", "[", 
    RowBox[{"mu", ",", " ", "sigma"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"PDF", "[", "dist", "]"}], "[", "x", "]"}]}], "Input",ExpressionUUID\
->"6ea4e00c-4f31-1b43-a819-82493217ddf5"],

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"PDF", "[", 
       RowBox[{"NormalDistribution", "[", 
        RowBox[{"0", ",", " ", "1"}], "]"}], "]"}], "[", "x", "]"}], ",", 
     "\n", "      ", 
     RowBox[{
      RowBox[{"PDF", "[", 
       RowBox[{"NormalDistribution", "[", 
        RowBox[{"2", ",", " ", "1"}], "]"}], "]"}], "[", "x", "]"}]}], "}"}], 
   ",", " ", 
   RowBox[{"{", 
    RowBox[{"x", ",", " ", 
     RowBox[{"-", "6"}], ",", " ", "6"}], "}"}]}], "]"}]], "Input",ExpressionU\
UID->"e6772e3e-265f-fd4d-8892-60c6f3bea449"],

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"PDF", "[", 
       RowBox[{"NormalDistribution", "[", 
        RowBox[{"0", ",", " ", "1"}], "]"}], "]"}], "[", "x", "]"}], ",", 
     "\n", "      ", 
     RowBox[{
      RowBox[{"PDF", "[", 
       RowBox[{"NormalDistribution", "[", 
        RowBox[{"0", ",", " ", "2"}], "]"}], "]"}], "[", "x", "]"}]}], "}"}], 
   ",", " ", 
   RowBox[{"{", 
    RowBox[{"x", ",", " ", 
     RowBox[{"-", "6"}], ",", " ", "6"}], "}"}]}], "]"}]], "Input",ExpressionU\
UID->"2b437bdb-2b7b-7449-9903-17ab76d2c7d1"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Clear", "[", "\"\<Global`*\>\"", "]"}], ";"}]], "Input",ExpressionU\
UID->"f4cce70c-4483-cf47-a104-f98d6e7e11e9"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Xs", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"0", ",", " ", "100", ",", " ", "1000", ",", " ", "10000"}], 
    "}"}]}], ";", " ", 
  RowBox[{"Ps", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"0.9", ",", " ", "0.08", ",", " ", "0.015", ",", " ", "0.005"}], 
    "}"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"tmp", " ", "=", " ", 
   RowBox[{"Piecewise", "[", 
    RowBox[{"Thread", "[", 
     RowBox[{"{", 
      RowBox[{"Ps", ",", " ", 
       RowBox[{"Thread", "[", 
        RowBox[{"x", " ", "==", " ", "Xs"}], "]"}]}], "}"}], "]"}], "]"}]}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"dist", " ", "=", " ", 
    RowBox[{"ProbabilityDistribution", "[", 
     RowBox[{"tmp", ",", " ", 
      RowBox[{"{", 
       RowBox[{"x", ",", " ", "0", ",", " ", "10000", ",", " ", "1"}], "}"}], 
      ",", " ", 
      RowBox[{
      "(*", " ", "\:78ba\:7387\:5206\:5e03\:306e\:5b9a\:7fa9", " ", "*)"}], 
      "\n", "   ", 
      RowBox[{"Method", " ", "->", " ", "\"\<Normalize\>\""}]}], "]"}]}], 
   ";"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{
   "\:5ff5\:306e\:305f\:3081\:5408\:8a08\:30921\:306b\:3059\:308b", 
    "\:ff0e"}], "*)"}]}], "\n", 
 RowBox[{
  RowBox[{"data", " ", "=", " ", 
   RowBox[{"RandomVariate", "[", 
    RowBox[{"dist", ",", " ", "1000"}], "]"}]}], ";"}], "\n", 
 RowBox[{"Counts", "[", "data", "]"}]}], "Input",ExpressionUUID->"13d95af8-\
03c0-a84e-8818-e69a65cf6e81"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"dist", " ", "=", " ", 
    RowBox[{"ProbabilityDistribution", "[", 
     RowBox[{
      RowBox[{"Abs", "[", "x", "]"}], ",", " ", 
      RowBox[{"{", 
       RowBox[{"x", ",", " ", 
        RowBox[{"-", "2"}], ",", " ", "2"}], "}"}], ",", " ", 
      RowBox[{
      "(*", " ", "\:78ba\:7387\:5206\:5e03\:306e\:5b9a\:7fa9", " ", "*)"}], 
      "\n", "   ", 
      RowBox[{"Method", " ", "->", " ", "\"\<Normalize\>\""}]}], "]"}]}], 
   ";"}], " ", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
    "\[OpenCurlyDoubleQuote]", "\:5168\:78ba\:7387", 
     "\[CloseCurlyDoubleQuote]"}], 
    "\:304c1\:306b\:306a\:3089\:306a\:3044\:5834\:5408\:306e\:5099\:3048"}], 
   " ", "*)"}]}], "\n", 
 RowBox[{
  RowBox[{"data", " ", "=", " ", 
   RowBox[{"RandomVariate", "[", 
    RowBox[{"dist", ",", " ", "1000"}], "]"}]}], ";"}], "\n", 
 RowBox[{"Histogram", "[", "data", "]"}]}], "Input",ExpressionUUID->"4f291301-\
8230-5f49-b024-fa96c9a26fba"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", 
   RowBox[{"f", ",", " ", "F", ",", " ", "t", ",", " ", "x"}], "]"}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"f", "[", "x_", "]"}], " ", ":=", " ", 
   RowBox[{"RealAbs", "[", "x", "]"}]}], "                            ", 
  RowBox[{"(*", " ", "\:624b\:98061", " ", "*)"}]}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"F", "[", "x_", "]"}], " ", ":=", " ", 
   RowBox[{"Evaluate", "[", 
    RowBox[{"Integrate", "[", 
     RowBox[{
      RowBox[{"f", "[", "t", "]"}], ",", " ", 
      RowBox[{"{", 
       RowBox[{"t", ",", " ", 
        RowBox[{"-", "1"}], ",", " ", "x"}], "}"}]}], "]"}], "]"}]}], " ", 
  RowBox[{"(*", " ", "\:624b\:98062", " ", "*)"}]}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"Finv", " ", "=", " ", 
    RowBox[{"InverseFunction", "[", "F", "]"}]}], ";"}], 
  "                     ", 
  RowBox[{"(*", " ", "\:624b\:98063", " ", "*)"}]}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"data", " ", "=", " ", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"Finv", "[", 
       RowBox[{"RandomReal", "[", "]"}], "]"}], ",", " ", 
      RowBox[{"{", "1000", "}"}]}], "]"}]}], ";"}], "      ", 
  RowBox[{"(*", " ", "\:624b\:98064", " ", "*)"}]}], "\n", 
 RowBox[{
  RowBox[{"Histogram", "[", "data", "]"}], "                                ", 
  RowBox[{"(*", " ", "\:624b\:98065", " ", "*)"}]}]}], "Input",ExpressionUUID->\
"8ee6ffa5-d50b-034b-9005-6e4698f9468d"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"distY", " ", "=", " ", 
   RowBox[{"UniformDistribution", "[", 
    RowBox[{"{", 
     RowBox[{"0", ",", " ", "1"}], "}"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"distX", " ", "=", " ", 
   RowBox[{"TransformedDistribution", "[", "\n", "   ", 
    RowBox[{
     RowBox[{"Piecewise", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", 
           RowBox[{"Sqrt", "[", 
            RowBox[{"1", " ", "-", " ", 
             RowBox[{"2", " ", "Y"}]}], "]"}]}], ",", " ", 
          RowBox[{"Y", " ", "<=", " ", 
           RowBox[{"1", "/", "2"}]}]}], "}"}], "}"}], ",", " ", 
       RowBox[{"Sqrt", "[", 
        RowBox[{
         RowBox[{"-", "1"}], " ", "+", " ", 
         RowBox[{"2", " ", "Y"}]}], "]"}]}], "]"}], ",", "\n", "   ", 
     RowBox[{"Distributed", "[", 
      RowBox[{"Y", ",", " ", "distY"}], "]"}]}], "]"}]}], ";"}], "\n", 
 RowBox[{"PDF", "[", "distX", "]"}]}], "Input",ExpressionUUID->"5f21e4f4-00cd-\
3b4c-a049-8552ce2c2253"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"distX", " ", "=", " ", 
   RowBox[{"DiscreteUniformDistribution", "[", 
    RowBox[{"{", 
     RowBox[{"1", ",", " ", "6"}], "}"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"distY", " ", "=", " ", 
   RowBox[{"TransformedDistribution", "[", 
    RowBox[{
     RowBox[{"Mod", "[", 
      RowBox[{
       RowBox[{"X", "^", "3"}], ",", " ", "4"}], "]"}], ",", " ", 
     RowBox[{"Distributed", "[", 
      RowBox[{"X", ",", " ", "distX"}], "]"}]}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"data", " ", "=", " ", 
   RowBox[{"RandomVariate", "[", 
    RowBox[{"distY", ",", " ", "1000"}], "]"}]}], ";"}], "\n", 
 RowBox[{"Histogram", "[", "data", "]"}]}], "Input",ExpressionUUID->"c6c9e3a6-\
5cee-7747-8f81-5d4263229ca4"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"distX", " ", "=", " ", 
   RowBox[{"UniformDistribution", "[", 
    RowBox[{"{", 
     RowBox[{"0", ",", " ", "1"}], "}"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"distY", " ", "=", " ", 
   RowBox[{"TransformedDistribution", "[", 
    RowBox[{
     RowBox[{"X", "^", "2"}], ",", " ", 
     RowBox[{"Distributed", "[", 
      RowBox[{"X", ",", " ", "distX"}], "]"}]}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"data", " ", "=", " ", 
   RowBox[{"RandomVariate", "[", 
    RowBox[{"distY", ",", " ", "1000"}], "]"}]}], ";"}], "\n", 
 RowBox[{"Histogram", "[", "data", "]"}]}], "Input",ExpressionUUID->"a536dfd8-\
0133-cb4a-97bf-dd4f8f2d9f83"],

Cell[BoxData[
 RowBox[{"PDF", "[", "distY", "]"}]], "Input",ExpressionUUID->"42700943-6289-0b43-aa45-9cb848d43af8"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"distX", " ", "=", " ", 
   RowBox[{"ProbabilityDistribution", "[", 
    RowBox[{
     RowBox[{"Abs", "[", "x", "]"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"x", ",", " ", 
       RowBox[{"-", "1"}], ",", " ", "1"}], "}"}]}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"distY", " ", "=", " ", 
   RowBox[{"TransformedDistribution", "[", 
    RowBox[{
     RowBox[{"X", "^", "2"}], ",", " ", 
     RowBox[{"Distributed", "[", 
      RowBox[{"X", ",", " ", "distX"}], "]"}]}], "]"}]}], ";"}], "\n", 
 RowBox[{"PDF", "[", "distY", "]"}]}], "Input",ExpressionUUID->"0146c7f4-f34c-\
134e-b7f9-263680ab5357"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"dist", " ", "=", " ", 
   RowBox[{"NormalDistribution", "[", 
    RowBox[{"mu", ",", " ", "sigma"}], "]"}]}], ";", " ", 
  RowBox[{"Clear", "[", 
   RowBox[{"a", ",", " ", "b"}], "]"}], ";"}], "\n", 
 RowBox[{"TransformedDistribution", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"a", " ", "X"}], " ", "+", " ", "b"}], ",", " ", 
   RowBox[{"Distributed", "[", 
    RowBox[{"X", ",", " ", "dist"}], "]"}]}], "]"}]}], "Input",ExpressionUUID->\
"8ac8e76b-125a-3d4a-a4cf-c5b1e5b8145a"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Clear", "[", "\"\<Global`*\>\"", "]"}], ";"}]], "Input",ExpressionU\
UID->"82b3b662-547e-d447-aee2-5799f7aa1b68"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Xs", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"0", ",", " ", "100", ",", " ", "1000", ",", " ", "10000"}], 
    "}"}]}], ";", " ", 
  RowBox[{"Ps", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"0.9", ",", " ", "0.08", ",", " ", "0.015", ",", " ", "0.005"}], 
    "}"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"tmp", " ", "=", " ", 
   RowBox[{"Piecewise", "[", 
    RowBox[{"Thread", "[", 
     RowBox[{"{", 
      RowBox[{"Ps", ",", " ", 
       RowBox[{"Thread", "[", 
        RowBox[{"x", " ", "==", " ", "Xs"}], "]"}]}], "}"}], "]"}], "]"}]}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{"dist", " ", "=", " ", 
   RowBox[{"ProbabilityDistribution", "[", 
    RowBox[{"tmp", ",", " ", 
     RowBox[{"{", 
      RowBox[{"x", ",", " ", "0", ",", " ", "10000", ",", " ", "1"}], "}"}]}],
     "]"}]}], ";"}], "\n", 
 RowBox[{"Expectation", "[", 
  RowBox[{"X", ",", " ", 
   RowBox[{"Distributed", "[", 
    RowBox[{"X", ",", " ", "dist"}], "]"}]}], "]"}]}], "Input",ExpressionUUID->\
"93902b17-b5b6-c54e-846c-c1959136e317"],

Cell[BoxData[
 RowBox[{"Mean", "[", "dist", "]"}]], "Input",ExpressionUUID->"9b8aabfa-2c61-484f-a309-3200de2f2f8f"],

Cell[BoxData[
 RowBox[{"Sum", "[", 
  RowBox[{
   RowBox[{"x", " ", 
    RowBox[{
     RowBox[{"PDF", "[", "dist", "]"}], "[", "x", "]"}]}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"x", ",", " ", "Xs"}], "}"}]}], "]"}]], "Input",ExpressionUUID->\
"ded0d482-1d51-6549-8576-d54d7db32828"],

Cell[BoxData[
 RowBox[{"Xs", " ", ".", " ", "Ps"}]], "Input",ExpressionUUID->"ee0825b1-e761-f949-b92f-20bed2c9f476"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Mean", "[", 
   RowBox[{"RandomVariate", "[", 
    RowBox[{"dist", ",", " ", "500000"}], "]"}], "]"}], " ", "//", " ", 
  "N"}]], "Input",ExpressionUUID->"ef339804-45c1-d947-ac00-76323d4c8cef"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", 
   RowBox[{"n", ",", " ", "p"}], "]"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"dist", " ", "=", " ", 
   RowBox[{"BinomialDistribution", "[", 
    RowBox[{"n", ",", " ", "p"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"Expectation", "[", 
   RowBox[{"X", ",", " ", 
    RowBox[{"Distributed", "[", 
     RowBox[{"X", ",", " ", "dist"}], "]"}]}], "]"}], "       ", 
  RowBox[{"(*", " ", "\:65b9\:6cd51", " ", "*)"}]}], "\n", 
 RowBox[{
  RowBox[{"Mean", "[", "dist", "]"}], "                                 ", 
  RowBox[{"(*", " ", "\:65b9\:6cd52", " ", "*)"}]}], "\n", 
 RowBox[{
  RowBox[{"Sum", "[", 
   RowBox[{
    RowBox[{"x", " ", 
     RowBox[{
      RowBox[{"PDF", "[", "dist", "]"}], "[", "x", "]"}]}], ",", " ", 
    RowBox[{"{", 
     RowBox[{"x", ",", " ", "0", ",", " ", "n"}], "}"}]}], "]"}], " ", "//", 
  " ", "Simplify", " ", 
  RowBox[{"(*", " ", "\:65b9\:6cd53", " ", "*)"}]}]}], "Input",ExpressionUUID->\
"13018da3-69fe-de49-9944-64daf1c7d68b"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"dist", " ", "=", " ", 
   RowBox[{"ProbabilityDistribution", "[", 
    RowBox[{
     RowBox[{"Abs", "[", "x", "]"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"x", ",", " ", 
       RowBox[{"-", "1"}], ",", " ", "1"}], "}"}]}], "]"}]}], ";"}], "\n", 
 RowBox[{"Integrate", "[", 
  RowBox[{
   RowBox[{"x", " ", 
    RowBox[{
     RowBox[{"PDF", "[", "dist", "]"}], "[", "x", "]"}]}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"x", ",", " ", 
     RowBox[{"-", "1"}], ",", " ", "1"}], "}"}]}], "]"}]}], "Input",Expression\
UUID->"6d4fd331-e826-5b4b-bba1-e5bfc91fa491"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Xs", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"0", ",", " ", "100", ",", " ", "1000", ",", " ", "10000"}], 
    "}"}]}], ";", " ", 
  RowBox[{"Ps", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"0.9", ",", " ", "0.08", ",", " ", "0.015", ",", " ", "0.005"}], 
    "}"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"tmp", " ", "=", " ", 
   RowBox[{"Piecewise", "[", 
    RowBox[{"Thread", "[", 
     RowBox[{"{", 
      RowBox[{"Ps", ",", " ", 
       RowBox[{"Thread", "[", 
        RowBox[{"x", " ", "==", " ", "Xs"}], "]"}]}], "}"}], "]"}], "]"}]}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{"dist", " ", "=", " ", 
   RowBox[{"ProbabilityDistribution", "[", 
    RowBox[{"tmp", ",", " ", 
     RowBox[{"{", 
      RowBox[{"x", ",", " ", "0", ",", " ", "10000", ",", " ", "1"}], "}"}]}],
     "]"}]}], ";"}], "\n", 
 RowBox[{"Variance", "[", "dist", "]"}]}], "Input",ExpressionUUID->"7058f358-\
ec87-ee47-82a6-aa9c0b700945"],

Cell[BoxData[
 RowBox[{"Expectation", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{"X", " ", "-", " ", 
      RowBox[{"Mean", "[", "dist", "]"}]}], ")"}], "^", "2"}], ",", " ", 
   RowBox[{"Distributed", "[", 
    RowBox[{"X", ",", " ", "dist"}], "]"}]}], "]"}]], "Input",ExpressionUUID->\
"ba721b33-190c-e44e-9e00-b9d26ed7745b"],

Cell[BoxData[
 RowBox[{"Sum", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"x", " ", "-", " ", 
       RowBox[{"Mean", "[", "dist", "]"}]}], ")"}], "^", "2"}], " ", 
    RowBox[{
     RowBox[{"PDF", "[", "dist", "]"}], "[", "x", "]"}]}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"x", ",", " ", "Xs"}], "}"}]}], "]"}]], "Input",ExpressionUUID->\
"e6f294d3-109c-2448-88bf-8d5afd145a00"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"Xs", " ", "-", " ", 
      RowBox[{"Xs", " ", ".", " ", "Ps"}]}], ")"}], "^", "2"}], ")"}], " ", 
  ".", " ", "Ps"}]], "Input",ExpressionUUID->"96458bb8-50ef-d046-8683-\
a25774c8c173"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", 
   RowBox[{"n", ",", " ", "p"}], "]"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"dist", " ", "=", " ", 
   RowBox[{"BinomialDistribution", "[", 
    RowBox[{"n", ",", " ", "p"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"Variance", "[", "dist", "]"}], 
  "                                              ", 
  RowBox[{"(*", " ", "\:65b9\:6cd51", " ", "*)"}]}], "\n", 
 RowBox[{
  RowBox[{"Expectation", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"X", " ", "-", " ", 
       RowBox[{"Mean", "[", "dist", "]"}]}], ")"}], "^", "2"}], ",", " ", 
    RowBox[{"Distributed", "[", 
     RowBox[{"X", ",", " ", "dist"}], "]"}]}], "]"}], "       ", 
  RowBox[{"(*", " ", "\:65b9\:6cd52", " ", "*)"}]}], "\n", 
 RowBox[{
  RowBox[{"Sum", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"x", " ", "-", " ", 
        RowBox[{"Mean", "[", "dist", "]"}]}], ")"}], "^", "2"}], " ", 
     RowBox[{
      RowBox[{"PDF", "[", "dist", "]"}], "[", "x", "]"}]}], ",", " ", 
    RowBox[{"{", 
     RowBox[{"x", ",", " ", "0", ",", " ", "n"}], "}"}]}], "]"}], " ", "//", 
  " ", "Simplify", " ", 
  RowBox[{"(*", " ", "\:65b9\:6cd53", " ", "*)"}]}]}], "Input",ExpressionUUID->\
"cc9ed21d-6230-4f48-bbe2-6cb0d1964b43"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"dist", " ", "=", " ", 
   RowBox[{"ProbabilityDistribution", "[", 
    RowBox[{
     RowBox[{"Abs", "[", "x", "]"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"x", ",", " ", 
       RowBox[{"-", "1"}], ",", " ", "1"}], "}"}]}], "]"}]}], ";"}], "\n", 
 RowBox[{"Integrate", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"x", " ", "-", " ", 
       RowBox[{"Mean", "[", "dist", "]"}]}], ")"}], "^", "2"}], " ", 
    RowBox[{
     RowBox[{"PDF", "[", "dist", "]"}], "[", "x", "]"}]}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"x", ",", " ", 
     RowBox[{"-", "1"}], ",", " ", "1"}], "}"}]}], "]"}]}], "Input",Expression\
UUID->"24a61856-0a01-5a4a-8ecd-613fbc3817c1"]
}, Closed]],

Cell[CellGroupData[{

Cell["9 \:591a\:6b21\:5143\:306e\:78ba\:7387\:5206\:5e03", "Chapter",
 PageBreakAbove->True,ExpressionUUID->"0e66f8e7-5853-6b48-9c8f-752021956c94"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Clear", "[", "\"\<Global`*\>\"", "]"}], ";"}]], "Input",ExpressionU\
UID->"8a2e986f-d869-be41-9fe2-2eb5e4365b2c"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"distX", " ", "=", " ", 
   RowBox[{"DiscreteUniformDistribution", "[", 
    RowBox[{"{", 
     RowBox[{"1", ",", " ", "6"}], "}"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"dist", " ", "=", " ", 
   RowBox[{"TransformedDistribution", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Max", "[", 
        RowBox[{"X1", ",", " ", "X2"}], "]"}], ",", " ", 
       RowBox[{"Min", "[", 
        RowBox[{"X1", ",", " ", "X2"}], "]"}]}], "}"}], ",", "\n", "   ", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Distributed", "[", 
        RowBox[{"X1", ",", " ", "distX"}], "]"}], ",", " ", 
       RowBox[{"Distributed", "[", 
        RowBox[{"X2", ",", " ", "distX"}], "]"}]}], "}"}]}], "]"}]}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{"probs", " ", "=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"{", "\n", "   ", 
      RowBox[{
       RowBox[{"Probability", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"{", 
           RowBox[{"X", ",", " ", "Y"}], "}"}], " ", "==", " ", 
          RowBox[{"{", 
           RowBox[{"x", ",", " ", "y"}], "}"}]}], ",", " ", 
         RowBox[{"Distributed", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"X", ",", " ", "Y"}], "}"}], ",", " ", "dist"}], "]"}]}], 
        "]"}], ",", " ", 
       RowBox[{"(*", " ", "\:78ba\:7387", " ", "*)"}], "\n", "   ", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"X", ",", " ", "Y"}], "}"}], " ", "==", " ", 
        RowBox[{"{", 
         RowBox[{"x", ",", " ", "y"}], "}"}]}]}], "}"}], ",", 
     "                                        ", 
     RowBox[{"(*", " ", "\:6761\:4ef6", " ", "*)"}], "\n", "  ", 
     RowBox[{"{", 
      RowBox[{"x", ",", " ", "1", ",", " ", "6"}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"y", ",", " ", "1", ",", " ", "6"}], "}"}]}], "]"}]}], 
  "\n"}], "\n", 
 RowBox[{
  RowBox[{"dist", " ", "=", " ", 
   RowBox[{"ProbabilityDistribution", "[", 
    RowBox[{
     RowBox[{"Piecewise", "[", 
      RowBox[{"Flatten", "[", 
       RowBox[{"probs", ",", " ", "1"}], "]"}], "]"}], ",", " ", 
     RowBox[{"(*", " ", "\:4f5c\:308a\:76f4\:3057", " ", "*)"}], "\n", "   ", 
     RowBox[{"{", 
      RowBox[{"X", ",", " ", "1", ",", " ", "6", ",", " ", "1"}], "}"}], ",", 
     " ", 
     RowBox[{"{", 
      RowBox[{"Y", ",", " ", "1", ",", " ", "6", ",", " ", "1"}], "}"}]}], 
    "]"}]}], ";"}]}], "Input",ExpressionUUID->"4c8eb28c-7dda-1f4d-abf1-\
522d96af21e8"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"PDF", "[", 
    RowBox[{"MarginalDistribution", "[", 
     RowBox[{"dist", ",", " ", "1"}], "]"}], "]"}], "[", "x", "]"}], " ", "//",
   " ", "Simplify"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"PDF", "[", 
    RowBox[{"MarginalDistribution", "[", 
     RowBox[{"dist", ",", " ", "2"}], "]"}], "]"}], "[", "y", "]"}], " ", "//",
   " ", "Simplify"}]}], "Input",ExpressionUUID->"2fc9b1d2-7c20-2d49-adf7-\
2e2aac291450"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"CDF", "[", "dist", "]"}], "[", 
     RowBox[{"{", 
      RowBox[{"x", ",", " ", "y"}], "}"}], "]"}], ",", " ", 
    RowBox[{"{", 
     RowBox[{"y", ",", " ", "1", ",", " ", "6"}], "}"}], ",", " ", 
    RowBox[{"{", 
     RowBox[{"x", ",", " ", "1", ",", " ", "6"}], "}"}]}], "]"}], " ", "//", 
  " ", "TableForm"}]], "Input",ExpressionUUID->"618fee2a-fd86-7848-8ccd-\
67187facce1b"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Clear", "[", "\"\<Global`*\>\"", "]"}], ";"}]], "Input",ExpressionU\
UID->"cec49fc5-c80c-e34e-bf98-71aa06ddb733"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"c", " ", "=", " ", 
   RowBox[{
    RowBox[{"Counts", "[", 
     RowBox[{"Flatten", "[", 
      RowBox[{
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Max", "[", 
            RowBox[{"x", ",", " ", "y"}], "]"}], ",", " ", 
           RowBox[{"Min", "[", 
            RowBox[{"x", ",", " ", "y"}], "]"}]}], "}"}], ",", " ", 
         RowBox[{"{", 
          RowBox[{"x", ",", " ", "1", ",", " ", "6"}], "}"}], ",", " ", 
         RowBox[{"{", 
          RowBox[{"y", ",", " ", "1", ",", " ", "6"}], "}"}]}], "]"}], ",", 
       " ", "1"}], "]"}], "]"}], "/", "36"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"dist", " ", "=", " ", 
    RowBox[{"ProbabilityDistribution", "[", 
     RowBox[{
      RowBox[{"Piecewise", "[", 
       RowBox[{"KeyValueMap", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"{", 
           RowBox[{"#2", ",", " ", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{"X", ",", " ", "Y"}], "}"}], " ", "==", " ", "#1"}]}], 
           "}"}], " ", "&"}], ",", " ", "c"}], "]"}], "]"}], ",", "\n", "   ", 
      RowBox[{"{", 
       RowBox[{"X", ",", " ", "1", ",", " ", "6", ",", " ", "1"}], "}"}], ",",
       " ", 
      RowBox[{"{", 
       RowBox[{"Y", ",", " ", "1", ",", " ", "6", ",", " ", "1"}], "}"}]}], 
     "]"}]}], ";"}], "\n"}], "\n", 
 RowBox[{
  RowBox[{"Mean", "[", "dist", "]"}], "                ", 
  RowBox[{"(*", " ", "\:5e73\:5747", " ", "*)"}]}], "\n", 
 RowBox[{
  RowBox[{"Variance", "[", "dist", "]"}], "            ", 
  RowBox[{"(*", " ", "\:5206\:6563", " ", "*)"}]}], "\n", 
 RowBox[{
  RowBox[{"StandardDeviation", "[", "dist", "]"}], "   ", 
  RowBox[{"(*", " ", "\:6a19\:6e96\:504f\:5dee", " ", "*)"}]}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"Covariance", "[", "dist", "]"}], "[", 
   RowBox[{"[", 
    RowBox[{"1", ",", " ", "2"}], "]"}], "]"}], "  ", 
  RowBox[{"(*", " ", "\:5171\:5206\:6563", " ", "*)"}]}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"Correlation", "[", "dist", "]"}], "[", 
   RowBox[{"[", 
    RowBox[{"1", ",", " ", "2"}], "]"}], "]"}], " ", 
  RowBox[{"(*", " ", "\:76f8\:95a2\:4fc2\:6570", " ", "*)"}]}]}], "Input",Expr\
essionUUID->"74316d23-ddcf-3547-96dd-844b7084e214"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{"uX", ",", " ", "uY"}], "}"}], " ", "=", " ", 
   RowBox[{"Mean", "[", "dist", "]"}]}], ";", " ", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"sX", ",", " ", "sY"}], "}"}], " ", "=", " ", 
   RowBox[{"StandardDeviation", "[", "dist", "]"}]}], ";"}], "\n", 
 RowBox[{"Expectation", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"X", ",", " ", "Y", ",", "           ", 
     RowBox[{"(*", " ", "\:5e73\:5747", " ", "*)"}], "\n", "   ", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"X", " ", "-", " ", "uX"}], ")"}], "^", "2"}], ",", " ", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"Y", " ", "-", " ", "uY"}], ")"}], "^", "2"}], ",", "   ", 
     RowBox[{"(*", " ", "\:5206\:6563", " ", "*)"}], "\n", "   ", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"X", " ", "-", " ", "uX"}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{"Y", " ", "-", " ", "uY"}], ")"}]}], ",", "        ", 
     RowBox[{"(*", " ", "\:5171\:5206\:6563", " ", "*)"}], "\n", "   ", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"X", " ", "-", " ", "uX"}], ")"}], " ", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"Y", " ", "-", " ", "uY"}], ")"}], "/", "sX"}], "/", 
       "sY"}]}]}], "}"}], ",", " ", 
   RowBox[{"(*", " ", "\:76f8\:95a2\:4fc2\:6570", " ", "*)"}], "\n", "  ", 
   RowBox[{"Distributed", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"X", ",", " ", "Y"}], "}"}], ",", " ", "dist"}], "]"}]}], 
  "]"}]}], "Input",ExpressionUUID->"51a5bba9-53f5-dc46-ae05-781c067c9068"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Sum", "[", 
   RowBox[{
    RowBox[{"x", " ", 
     RowBox[{"Probability", "[", 
      RowBox[{
       RowBox[{"X", " ", "==", " ", "x"}], ",", " ", 
       RowBox[{"Distributed", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"X", ",", " ", "Y"}], "}"}], ",", " ", "dist"}], "]"}]}], 
      "]"}]}], ",", " ", 
    RowBox[{"{", 
     RowBox[{"x", ",", " ", "1", ",", " ", "6"}], "}"}]}], "]"}], " ", 
  RowBox[{"(*", " ", "\:5e73\:5747", " ", "*)"}]}], "\n", 
 RowBox[{
  RowBox[{"Sum", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"x", " ", "-", " ", "uX"}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{"y", " ", "-", " ", "uY"}], ")"}], " ", 
     RowBox[{
      RowBox[{"PDF", "[", "dist", "]"}], "[", 
      RowBox[{"{", 
       RowBox[{"x", ",", " ", "y"}], "}"}], "]"}]}], ",", " ", 
    RowBox[{"{", 
     RowBox[{"x", ",", " ", "1", ",", " ", "6"}], "}"}], ",", " ", 
    RowBox[{"{", 
     RowBox[{"y", ",", " ", "1", ",", " ", "6"}], "}"}]}], "]"}], "   ", 
  RowBox[{"(*", " ", "\:5171\:5206\:6563", " ", "*)"}]}]}], "Input",Expression\
UUID->"d8e1169b-5460-7442-aabb-f6f0b3ad754d"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Clear", "[", "\"\<Global`*\>\"", "]"}], ";"}]], "Input",ExpressionU\
UID->"0920aceb-1c1f-bc4b-bc78-95edba327424"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"dist", " ", "=", " ", 
   RowBox[{"DiscreteUniformDistribution", "[", 
    RowBox[{"{", 
     RowBox[{"1", ",", " ", "6"}], "}"}], "]"}]}], ";"}], "\n", 
 RowBox[{"Probability", "[", 
  RowBox[{
   RowBox[{"Conditioned", "[", 
    RowBox[{
     RowBox[{"X", " ", "==", " ", "2"}], ",", " ", 
     RowBox[{"X", " ", "<=", " ", "3"}]}], "]"}], ",", " ", 
   RowBox[{"Distributed", "[", 
    RowBox[{"X", ",", " ", "dist"}], "]"}]}], "]"}]}], "Input",ExpressionUUID->\
"b27be223-5bdb-734f-8f08-3002c4d26685"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"c", " ", "=", " ", 
   RowBox[{
    RowBox[{"Counts", "[", 
     RowBox[{"Flatten", "[", 
      RowBox[{
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Max", "[", 
            RowBox[{"x", ",", " ", "y"}], "]"}], ",", " ", 
           RowBox[{"Min", "[", 
            RowBox[{"x", ",", " ", "y"}], "]"}]}], "}"}], ",", " ", 
         RowBox[{"{", 
          RowBox[{"x", ",", " ", "1", ",", " ", "6"}], "}"}], ",", " ", 
         RowBox[{"{", 
          RowBox[{"y", ",", " ", "1", ",", " ", "6"}], "}"}]}], "]"}], ",", 
       " ", "1"}], "]"}], "]"}], "/", "36"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"dist", " ", "=", " ", 
   RowBox[{"ProbabilityDistribution", "[", 
    RowBox[{
     RowBox[{"Piecewise", "[", 
      RowBox[{"KeyValueMap", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"{", 
          RowBox[{"#2", ",", " ", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"X", ",", " ", "Y"}], "}"}], " ", "==", " ", "#1"}]}], 
          "}"}], " ", "&"}], ",", " ", "c"}], "]"}], "]"}], ",", "\n", "   ", 
     RowBox[{"{", 
      RowBox[{"X", ",", " ", "1", ",", " ", "6", ",", " ", "1"}], "}"}], ",", 
     " ", 
     RowBox[{"{", 
      RowBox[{"Y", ",", " ", "1", ",", " ", "6", ",", " ", "1"}], "}"}]}], 
    "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"rule", " ", "=", " ", 
    RowBox[{"Distributed", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"X", ",", " ", "Y"}], "}"}], ",", " ", "dist"}], "]"}]}], 
   ";"}], "\n"}], "\n", 
 RowBox[{"Table", "[", 
  RowBox[{
   RowBox[{"Probability", "[", 
    RowBox[{
     RowBox[{"Conditioned", "[", 
      RowBox[{
       RowBox[{"X", " ", "==", " ", "x"}], ",", " ", 
       RowBox[{"Y", " ", "==", " ", "3"}]}], "]"}], ",", " ", "rule"}], "]"}],
    ",", " ", 
   RowBox[{"{", 
    RowBox[{"x", ",", " ", "1", ",", " ", "6"}], "}"}]}], "]"}]}], "Input",Exp\
ressionUUID->"fe9dcc84-9583-3443-9704-d64b363bac36"],

Cell[BoxData[
 RowBox[{"Table", "[", "\n", " ", 
  RowBox[{
   RowBox[{
    RowBox[{"Probability", "[", 
     RowBox[{
      RowBox[{"And", "[", 
       RowBox[{
        RowBox[{"X", " ", "==", " ", "x"}], ",", " ", 
        RowBox[{"Y", " ", "==", " ", "3"}]}], "]"}], ",", " ", "rule"}], 
     "]"}], "/", 
    RowBox[{"Probability", "[", 
     RowBox[{
      RowBox[{"Y", " ", "==", " ", "3"}], ",", " ", "rule"}], "]"}]}], ",", 
   " ", 
   RowBox[{"{", 
    RowBox[{"x", ",", " ", "1", ",", " ", "6"}], "}"}]}], "]"}]], "Input",Expr\
essionUUID->"4d2bf4f2-efd5-6a45-a2f7-5248786e9ed4"],

Cell[BoxData[
 RowBox[{"Expectation", "[", 
  RowBox[{
   RowBox[{"Conditioned", "[", 
    RowBox[{"X", ",", " ", 
     RowBox[{"Y", " ", "==", " ", "3"}]}], "]"}], ",", " ", "rule"}], 
  "]"}]], "Input",ExpressionUUID->"4269ae4b-e373-f74f-96c7-01d2a3c4b277"],

Cell[BoxData[
 RowBox[{"Sum", "[", 
  RowBox[{
   RowBox[{"x", " ", 
    RowBox[{"Probability", "[", 
     RowBox[{
      RowBox[{"Conditioned", "[", 
       RowBox[{
        RowBox[{"X", " ", "==", " ", "x"}], ",", " ", 
        RowBox[{"Y", " ", "==", " ", "3"}]}], "]"}], ",", " ", "rule"}], 
     "]"}]}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"x", ",", " ", "1", ",", " ", "6"}], "}"}]}], "]"}]], "Input",Expr\
essionUUID->"e6ad7c4d-51a6-1448-bc16-9399b7ee8951"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"Probability", "[", 
     RowBox[{
      RowBox[{"And", "[", 
       RowBox[{
        RowBox[{"X", " ", "<=", " ", "x"}], ",", " ", 
        RowBox[{"Y", " ", "<=", " ", "y"}]}], "]"}], ",", " ", "rule"}], 
     "]"}], ",", " ", 
    RowBox[{"{", 
     RowBox[{"x", ",", " ", "1", ",", " ", "6"}], "}"}], ",", " ", 
    RowBox[{"{", 
     RowBox[{"y", ",", " ", "1", ",", " ", "6"}], "}"}]}], "]"}], " ", "==", 
  "\n", "  ", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"Probability", "[", 
      RowBox[{
       RowBox[{"X", " ", "<=", " ", "x"}], ",", " ", "rule"}], "]"}], " ", 
     RowBox[{"Probability", "[", 
      RowBox[{
       RowBox[{"Y", " ", "<=", " ", "y"}], ",", " ", "rule"}], "]"}]}], ",", 
    "\n", "  ", 
    RowBox[{"{", 
     RowBox[{"x", ",", " ", "1", ",", " ", "6"}], "}"}], ",", " ", 
    RowBox[{"{", 
     RowBox[{"y", ",", " ", "1", ",", " ", "6"}], "}"}]}], "]"}]}]], "Input",E\
xpressionUUID->"2c4c07fc-b9fd-8941-b806-e10f4bdd3067"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"distU", " ", "=", " ", 
   RowBox[{"DiscreteUniformDistribution", "[", 
    RowBox[{"{", 
     RowBox[{"1", ",", " ", "6"}], "}"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"distXY", " ", "=", " ", 
   RowBox[{"TransformedDistribution", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Mod", "[", 
        RowBox[{"U", ",", " ", "2"}], "]"}], ",", " ", 
       RowBox[{"Mod", "[", 
        RowBox[{"U", ",", " ", "3"}], "]"}]}], "}"}], ",", "\n", "   ", 
     RowBox[{"Distributed", "[", 
      RowBox[{"U", ",", " ", "distU"}], "]"}]}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"rule", " ", "=", " ", 
   RowBox[{"Distributed", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"X", ",", " ", "Y"}], "}"}], ",", " ", "distXY"}], "]"}]}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"Probability", "[", 
     RowBox[{
      RowBox[{"And", "[", 
       RowBox[{
        RowBox[{"X", " ", "<=", " ", "x"}], ",", " ", 
        RowBox[{"Y", " ", "<=", " ", "y"}]}], "]"}], ",", " ", "rule"}], 
     "]"}], ",", " ", 
    RowBox[{"{", 
     RowBox[{"x", ",", " ", "0", ",", " ", "1"}], "}"}], ",", " ", 
    RowBox[{"{", 
     RowBox[{"y", ",", " ", "0", ",", " ", "2"}], "}"}]}], "]"}], " ", "==", 
  "\n", " ", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"Probability", "[", 
      RowBox[{
       RowBox[{"X", " ", "<=", " ", "x"}], ",", " ", "rule"}], "]"}], " ", 
     RowBox[{"Probability", "[", 
      RowBox[{
       RowBox[{"Y", " ", "<=", " ", "y"}], ",", " ", "rule"}], "]"}]}], ",", 
    "\n", "  ", 
    RowBox[{"{", 
     RowBox[{"x", ",", " ", "0", ",", " ", "1"}], "}"}], ",", " ", 
    RowBox[{"{", 
     RowBox[{"y", ",", " ", "0", ",", " ", "2"}], "}"}]}], "]"}]}]}], "Input",\
ExpressionUUID->"0af64da3-f548-d747-bab4-a2b35a19c3e1"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"distX", " ", "=", " ", 
   RowBox[{"BinomialDistribution", "[", 
    RowBox[{"3", ",", " ", 
     RowBox[{"1", "/", "2"}]}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"distXY", " ", "=", " ", 
   RowBox[{"TransformedDistribution", "[", "\n", "   ", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"X", ",", " ", 
       RowBox[{"Piecewise", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{"1", ",", " ", 
            RowBox[{"Or", "[", 
             RowBox[{
              RowBox[{"X", " ", "==", " ", "0"}], ",", " ", 
              RowBox[{"X", " ", "==", " ", "3"}]}], "]"}]}], "}"}], "}"}], 
         ",", " ", "2"}], "]"}]}], "}"}], ",", " ", 
     RowBox[{"Distributed", "[", 
      RowBox[{"X", ",", " ", "distX"}], "]"}]}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"Covariance", "[", "distXY", "]"}], "[", 
  RowBox[{"[", 
   RowBox[{"1", ",", " ", "2"}], "]"}], "]"}]}], "Input",ExpressionUUID->\
"b23a3b26-8871-404a-8164-a6c1b0cdf859"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"rule", " ", "=", " ", 
   RowBox[{"Distributed", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"X", ",", " ", "Y"}], "}"}], ",", " ", "distXY"}], "]"}]}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"Probability", "[", 
     RowBox[{
      RowBox[{"And", "[", 
       RowBox[{
        RowBox[{"X", " ", "<=", " ", "x"}], ",", " ", 
        RowBox[{"Y", " ", "<=", " ", "y"}]}], "]"}], ",", " ", "rule"}], 
     "]"}], ",", " ", 
    RowBox[{"{", 
     RowBox[{"x", ",", " ", "0", ",", " ", "3"}], "}"}], ",", " ", 
    RowBox[{"{", 
     RowBox[{"y", ",", " ", "1", ",", " ", "2"}], "}"}]}], "]"}], " ", "==", 
  "\n", " ", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"Probability", "[", 
      RowBox[{
       RowBox[{"X", " ", "<=", " ", "x"}], ",", " ", "rule"}], "]"}], " ", 
     RowBox[{"Probability", "[", 
      RowBox[{
       RowBox[{"Y", " ", "<=", " ", "y"}], ",", " ", "rule"}], "]"}]}], ",", 
    "\n", "  ", 
    RowBox[{"{", 
     RowBox[{"x", ",", " ", "0", ",", " ", "3"}], "}"}], ",", " ", 
    RowBox[{"{", 
     RowBox[{"y", ",", " ", "1", ",", " ", "2"}], "}"}]}], "]"}]}]}], "Input",\
ExpressionUUID->"a2d7cc24-5c00-6e40-8279-b8059c652a9a"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Clear", "[", "\"\<Global`*\>\"", "]"}], ";"}]], "Input",ExpressionU\
UID->"e0a736b0-0fad-3349-808f-5f1ab5cdaeab"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"c", " ", "=", " ", 
   RowBox[{
    RowBox[{"Counts", "[", 
     RowBox[{"Flatten", "[", 
      RowBox[{
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Max", "[", 
            RowBox[{"x", ",", " ", "y"}], "]"}], ",", " ", 
           RowBox[{"Min", "[", 
            RowBox[{"x", ",", " ", "y"}], "]"}]}], "}"}], ",", " ", 
         RowBox[{"{", 
          RowBox[{"x", ",", " ", "1", ",", " ", "6"}], "}"}], ",", " ", 
         RowBox[{"{", 
          RowBox[{"y", ",", " ", "1", ",", " ", "6"}], "}"}]}], "]"}], ",", 
       " ", "1"}], "]"}], "]"}], "/", "36"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"dist", " ", "=", " ", 
   RowBox[{"ProbabilityDistribution", "[", 
    RowBox[{
     RowBox[{"Piecewise", "[", 
      RowBox[{"KeyValueMap", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"{", 
          RowBox[{"#2", ",", " ", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"X", ",", " ", "Y"}], "}"}], " ", "==", " ", "#1"}]}], 
          "}"}], " ", "&"}], ",", " ", "c"}], "]"}], "]"}], ",", "\n", "   ", 
     RowBox[{"{", 
      RowBox[{"X", ",", " ", "1", ",", " ", "6", ",", " ", "1"}], "}"}], ",", 
     " ", 
     RowBox[{"{", 
      RowBox[{"Y", ",", " ", "1", ",", " ", "6", ",", " ", "1"}], "}"}]}], 
    "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"rule", " ", "=", " ", 
    RowBox[{"Distributed", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"X", ",", " ", "Y"}], "}"}], ",", " ", "dist"}], "]"}]}], 
   ";"}], "\n"}], "\n", 
 RowBox[{
  RowBox[{"{", 
   RowBox[{
    RowBox[{"Expectation", "[", 
     RowBox[{
      RowBox[{"X", " ", "+", " ", "Y"}], ",", " ", "rule"}], "]"}], ",", "\n",
     " ", 
    RowBox[{
     RowBox[{"Expectation", "[", 
      RowBox[{"X", ",", " ", "rule"}], "]"}], " ", "+", " ", 
     RowBox[{"Expectation", "[", 
      RowBox[{"Y", ",", " ", "rule"}], "]"}]}]}], "}"}], " ", 
  RowBox[{"(*", " ", "\:5e73\:57471", " ", "*)"}], "\n"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{"distX", ",", " ", "distY"}], "}"}], " ", "=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"MarginalDistribution", "[", 
      RowBox[{"dist", ",", " ", "i"}], "]"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"i", ",", " ", "2"}], "}"}]}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"distXplusY", " ", "=", " ", 
    RowBox[{"TransformedDistribution", "[", 
     RowBox[{
      RowBox[{"X", " ", "+", " ", "Y"}], ",", " ", "rule"}], "]"}]}], ";"}], 
  "\n"}], "\n", 
 RowBox[{
  RowBox[{"{", 
   RowBox[{
    RowBox[{"Mean", "[", "distXplusY", "]"}], ",", " ", 
    RowBox[{
     RowBox[{"Mean", "[", "distX", "]"}], " ", "+", " ", 
     RowBox[{"Mean", "[", "distY", "]"}]}]}], "}"}], " ", 
  RowBox[{"(*", " ", "\:5e73\:57472", " ", "*)"}]}], "\n", 
 RowBox[{
  RowBox[{"{", 
   RowBox[{
    RowBox[{"Variance", "[", "distXplusY", "]"}], ",", "\n", " ", 
    RowBox[{
     RowBox[{"Variance", "[", "distX", "]"}], " ", "+", " ", 
     RowBox[{"Variance", "[", "distY", "]"}], " ", "+", " ", 
     RowBox[{"2", " ", 
      RowBox[{
       RowBox[{"Covariance", "[", "dist", "]"}], "[", 
       RowBox[{"[", 
        RowBox[{"1", ",", " ", "2"}], "]"}], "]"}]}]}]}], "}"}], " ", 
  RowBox[{"(*", " ", "\:5206\:6563", " ", "*)"}]}]}], "Input",ExpressionUUID->\
"90207190-b8eb-8940-b43f-c39af6347e39"],

Cell[BoxData[
 RowBox[{"Manipulate", "[", "\n", " ", 
  RowBox[{
   RowBox[{
    RowBox[{"distY", " ", "=", " ", 
     RowBox[{"BinomialDistribution", "[", 
      RowBox[{"n", ",", " ", "p"}], "]"}]}], ";", "\n", " ", 
    RowBox[{"mu", " ", "=", " ", 
     RowBox[{"Mean", "[", "distY", "]"}]}], ";", " ", 
    RowBox[{"sigma", " ", "=", " ", 
     RowBox[{"StandardDeviation", "[", "distY", "]"}]}], ";", "\n", " ", 
    RowBox[{"distZ", " ", "=", " ", 
     RowBox[{"NormalDistribution", "[", 
      RowBox[{"mu", ",", " ", "sigma"}], "]"}]}], ";", "\n", " ", 
    RowBox[{"Show", "[", 
     RowBox[{
      RowBox[{"DiscretePlot", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"PDF", "[", "distY", "]"}], "[", "x", "]"}], ",", " ", 
        RowBox[{"{", 
         RowBox[{"x", ",", " ", "0", ",", " ", "n"}], "}"}]}], "]"}], ",", 
      " ", 
      RowBox[{"Plot", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"PDF", "[", "distZ", "]"}], "[", "x", "]"}], ",", " ", 
        RowBox[{"{", 
         RowBox[{"x", ",", " ", "0", ",", " ", "n"}], "}"}]}], "]"}]}], 
     "]"}]}], ",", "\n", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"n", ",", " ", "15"}], "}"}], ",", " ", "1", ",", " ", "40", 
     ",", " ", "1"}], "}"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"p", ",", " ", 
       RowBox[{"4", "/", "10"}]}], "}"}], ",", " ", "0", ",", " ", "1"}], 
    "}"}]}], "]"}]], "Input",ExpressionUUID->"a85d1a5a-07e4-e74c-aff7-\
28c38bfb6c8b"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"distX", " ", "=", " ", 
   RowBox[{"UniformDistribution", "[", "]"}]}], ";", " ", 
  RowBox[{"distZ", " ", "=", " ", 
   RowBox[{"NormalDistribution", "[", "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"data", " ", "=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"Total", "[", 
       RowBox[{"RandomVariate", "[", 
        RowBox[{"distX", ",", " ", "12"}], "]"}], "]"}], " ", "-", " ", "6"}],
      ",", " ", 
     RowBox[{"{", "10000", "}"}]}], "]"}]}], ";"}], "\n", 
 RowBox[{"Show", "[", 
  RowBox[{
   RowBox[{"Histogram", "[", 
    RowBox[{"data", ",", " ", "Automatic", ",", " ", "\"\<PDF\>\""}], "]"}], 
   ",", " ", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"PDF", "[", "distZ", "]"}], "[", "x", "]"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"x", ",", " ", 
       RowBox[{"-", "4"}], ",", " ", "4"}], "}"}]}], "]"}]}], "]"}]}], "Input",\
ExpressionUUID->"add2519f-280a-2446-aca6-ed028941e1b5"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Clear", "[", "\"\<Global`*\>\"", "]"}], ";"}]], "Input",ExpressionU\
UID->"13329d90-acf2-484f-a058-582923233836"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"dist1", " ", "=", " ", 
   RowBox[{"NormalDistribution", "[", 
    RowBox[{"0", ",", " ", "2"}], "]"}]}], ";", " ", 
  RowBox[{"dist2", " ", "=", " ", 
   RowBox[{"NormalDistribution", "[", 
    RowBox[{"1", ",", " ", "1"}], "]"}]}], ";"}], "\n", 
 RowBox[{"TransformedDistribution", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"X1", " ", "+", " ", "X2", " ", "+", " ", "2"}], ",", " ", 
     RowBox[{"X1", " ", "+", " ", 
      RowBox[{"3", " ", "X2"}], " ", "+", " ", "3"}]}], "}"}], ",", "\n", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Distributed", "[", 
      RowBox[{"X1", ",", " ", "dist1"}], "]"}], ",", " ", 
     RowBox[{"Distributed", "[", 
      RowBox[{"X2", ",", " ", "dist2"}], "]"}]}], "}"}]}], "]"}]}], "Input",Ex\
pressionUUID->"e36e475e-cb7f-2e44-b5c9-45f4b7cb86b0"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"mu", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"3", ",", " ", "6"}], "}"}]}], ";", " ", 
  RowBox[{"Sigma", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"5", ",", " ", "7"}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"7", ",", " ", "13"}], "}"}]}], "}"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"dist", " ", "=", " ", 
   RowBox[{"MultinormalDistribution", "[", 
    RowBox[{"mu", ",", " ", "Sigma"}], "]"}]}], ";"}], "\n", 
 RowBox[{"Plot3D", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"PDF", "[", "dist", "]"}], "[", 
    RowBox[{"{", 
     RowBox[{"Y1", ",", " ", "Y2"}], "}"}], "]"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"Y1", ",", " ", 
     RowBox[{"-", "8"}], ",", " ", "14"}], "}"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"Y2", ",", " ", 
     RowBox[{"-", "5"}], ",", " ", "17"}], "}"}], ",", "\n", " ", 
   RowBox[{"PlotPoints", " ", "->", " ", "100"}], ",", " ", 
   RowBox[{"PlotRange", " ", "->", " ", "All"}], ",", " ", 
   RowBox[{"AxesLabel", " ", "->", " ", "Automatic"}]}], "]"}]}], "Input",Expr\
essionUUID->"91861360-b415-f044-9cfe-e5ee49414b37"],

Cell[BoxData[
 RowBox[{"ContourPlot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"PDF", "[", "dist", "]"}], "[", 
    RowBox[{"{", 
     RowBox[{"Y1", ",", " ", "Y2"}], "}"}], "]"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"Y1", ",", " ", 
     RowBox[{"-", "8"}], ",", " ", "14"}], "}"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"Y2", ",", " ", 
     RowBox[{"-", "5"}], ",", " ", "17"}], "}"}], ",", "\n", " ", 
   RowBox[{"PlotPoints", " ", "->", " ", "50"}], ",", " ", 
   RowBox[{"FrameLabel", " ", "->", " ", "Automatic"}]}], "]"}]], "Input",Expr\
essionUUID->"a2e5f077-d514-8849-b464-7f92b4b668a0"],

Cell[BoxData[
 RowBox[{"sol", " ", "=", " ", 
  RowBox[{
   RowBox[{"Solve", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Y1", " ", "==", " ", 
        RowBox[{"X1", " ", "+", " ", "X2", " ", "+", " ", "2"}]}], ",", " ", 
       RowBox[{"Y2", " ", "==", " ", 
        RowBox[{"X1", " ", "+", " ", 
         RowBox[{"3", " ", "X2"}], " ", "+", " ", "3"}]}]}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"X1", ",", " ", "X2"}], "}"}]}], "]"}], "[", 
   RowBox[{"[", "1", "]"}], "]"}]}]], "Input",ExpressionUUID->"b5fb0f72-12a3-\
2744-afb8-de05b4977d16"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"J", " ", "=", " ", 
   RowBox[{"D", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"{", 
       RowBox[{"X1", ",", " ", "X2"}], "}"}], " ", "/.", " ", "sol"}], ",", 
     " ", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{"Y1", ",", " ", "Y2"}], "}"}], "}"}]}], "]"}]}], ";"}], "\n", 
 RowBox[{"absj", " ", "=", " ", 
  RowBox[{"Abs", "[", 
   RowBox[{"Det", "[", "J", "]"}], "]"}]}]}], "Input",ExpressionUUID->\
"0a66bfc3-0291-5046-a844-a57c2ea705fd"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"f1", " ", "=", " ", 
   RowBox[{"PDF", "[", "dist1", "]"}]}], ";", " ", 
  RowBox[{"f2", " ", "=", " ", 
   RowBox[{"PDF", "[", "dist2", "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"PDF", "[", "dist", "]"}], "[", 
     RowBox[{"{", 
      RowBox[{"Y1", ",", " ", "Y2"}], "}"}], "]"}], " ", "==", " ", 
    RowBox[{
     RowBox[{"f1", "[", "X1", "]"}], " ", 
     RowBox[{"f2", "[", "X2", "]"}], " ", "absj"}]}], " ", "/.", " ", "sol"}],
   " ", "//", " ", "Simplify"}]}], "Input",ExpressionUUID->"49822caa-e8fe-\
7b49-9917-c39bb05ddf78"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"MarginalDistribution", "[", 
    RowBox[{"dist", ",", " ", "1"}], "]"}], ",", " ", 
   RowBox[{"MarginalDistribution", "[", 
    RowBox[{"dist", ",", " ", "2"}], "]"}]}], "}"}]], "Input",ExpressionUUID->\
"916998fd-fce5-bf49-9ce0-c88b65c5ee5e"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"dist", " ", "=", " ", 
   RowBox[{"MultinormalDistribution", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"u1", ",", " ", "u2"}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"v1", ",", " ", "0"}], "}"}], ",", " ", 
       RowBox[{"{", 
        RowBox[{"0", ",", " ", "v2"}], "}"}]}], "}"}]}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"d1", " ", "=", " ", 
   RowBox[{"MarginalDistribution", "[", 
    RowBox[{"dist", ",", " ", "1"}], "]"}]}], ";", " ", 
  RowBox[{"d2", " ", "=", " ", 
   RowBox[{"MarginalDistribution", "[", 
    RowBox[{"dist", ",", " ", "2"}], "]"}]}], ";"}], "\n", 
 RowBox[{"Simplify", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"CDF", "[", "dist", "]"}], "[", 
     RowBox[{"{", 
      RowBox[{"x1", ",", " ", "x2"}], "}"}], "]"}], " ", "==", " ", 
    RowBox[{
     RowBox[{
      RowBox[{"CDF", "[", "d1", "]"}], "[", "x1", "]"}], " ", 
     RowBox[{
      RowBox[{"CDF", "[", "d2", "]"}], "[", "x2", "]"}]}]}], ",", "\n", " ", 
   RowBox[{"And", "[", 
    RowBox[{
     RowBox[{"v1", " ", ">=", " ", "0"}], ",", " ", 
     RowBox[{"v2", " ", ">=", " ", "0"}]}], "]"}]}], "]"}]}], "Input",Expressi\
onUUID->"6e537b4a-d381-3044-b7f9-f4755d406ac3"]
}, Closed]],

Cell[CellGroupData[{

Cell["10 \:63a8\:6e2c\:7d71\:8a08", "Chapter",
 PageBreakAbove->True,ExpressionUUID->"9c2a77d0-d9eb-7b4f-985f-1827af33a45b"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Clear", "[", "\"\<Global`*\>\"", "]"}], ";"}]], "Input",ExpressionU\
UID->"b7f23483-6464-984a-879c-99b751277485"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"dist", " ", "=", " ", 
   RowBox[{"NormalDistribution", "[", 
    RowBox[{"2", ",", " ", "3"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"data1", " ", "=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"Mean", "[", 
      RowBox[{"RandomVariate", "[", 
       RowBox[{"dist", ",", " ", "5"}], "]"}], "]"}], ",", " ", "10000"}], 
    "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"data2", " ", "=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"Mean", "[", 
      RowBox[{"RandomVariate", "[", 
       RowBox[{"dist", ",", " ", "50"}], "]"}], "]"}], ",", " ", "10000"}], 
    "]"}]}], ";"}], "\n", 
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Mean", "[", "data1", "]"}], ",", " ", 
     RowBox[{"Variance", "[", "data1", "]"}]}], "}"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Mean", "[", "data2", "]"}], ",", " ", 
     RowBox[{"Variance", "[", "data2", "]"}]}], "}"}]}], "}"}]}], "Input",Expr\
essionUUID->"da947cd1-15e7-4a4d-9299-f082237699ec"],

Cell[BoxData[
 RowBox[{"Histogram", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"data1", ",", " ", "data2"}], "}"}], ",", " ", 
   RowBox[{"ChartLayout", " ", "->", " ", "\"\<Row\>\""}]}], "]"}]], "Input",E\
xpressionUUID->"60daa451-acf1-b04c-a2f7-23cd0adbfe2e"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"dist", " ", "=", " ", 
   RowBox[{"NormalDistribution", "[", 
    RowBox[{"2", ",", " ", "3"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"data1", " ", "=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"Variance", "[", 
      RowBox[{"RandomVariate", "[", 
       RowBox[{"dist", ",", " ", "5"}], "]"}], "]"}], ",", " ", "10000"}], 
    "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"data2", " ", "=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"Variance", "[", 
      RowBox[{"RandomVariate", "[", 
       RowBox[{"dist", ",", " ", "50"}], "]"}], "]"}], ",", " ", "10000"}], 
    "]"}]}], ";"}], "\n", 
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Mean", "[", "data1", "]"}], ",", " ", 
     RowBox[{"Variance", "[", "data1", "]"}]}], "}"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Mean", "[", "data2", "]"}], ",", " ", 
     RowBox[{"Variance", "[", "data2", "]"}]}], "}"}]}], "}"}]}], "Input",Expr\
essionUUID->"f9a170cc-f3ca-1a48-aa55-d291dd2e78b8"],

Cell[BoxData[
 RowBox[{"Histogram", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"data1", ",", " ", "data2"}], "}"}], ",", " ", 
   RowBox[{"ChartLayout", " ", "->", " ", "\"\<Row\>\""}]}], "]"}]], "Input",E\
xpressionUUID->"b1c9637e-ce78-e643-8908-d65438dda928"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Clear", "[", "\"\<Global`*\>\"", "]"}], ";"}]], "Input",ExpressionU\
UID->"98843023-6ac1-8f44-aafc-193428ff40f5"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"n", " ", "=", " ", "4"}], ";", " ", 
  RowBox[{"mu", " ", "=", " ", "5"}], ";", " ", 
  RowBox[{"sigma", " ", "=", " ", "7"}], ";", " ", 
  RowBox[{"dist", " ", ":=", " ", 
   RowBox[{"NormalDistribution", "[", 
    RowBox[{"mu", ",", " ", "sigma"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"f", "[", "x_", "]"}], " ", ":=", " ", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"n", " ", "-", " ", "1"}], ")"}], " ", 
   RowBox[{
    RowBox[{"Variance", "[", "x", "]"}], "/", 
    RowBox[{"sigma", "^", "2"}]}]}]}], "\n", 
 RowBox[{
  RowBox[{"data", " ", "=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"f", "[", 
      RowBox[{"RandomVariate", "[", 
       RowBox[{"dist", ",", " ", "n"}], "]"}], "]"}], ",", " ", "10000"}], 
    "]"}]}], ";"}], "\n", 
 RowBox[{"Show", "[", 
  RowBox[{
   RowBox[{"Histogram", "[", 
    RowBox[{"data", ",", " ", "Automatic", ",", " ", "\"\<PDF\>\""}], "]"}], 
   ",", "\n", " ", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"PDF", "[", 
       RowBox[{"ChiSquareDistribution", "[", 
        RowBox[{"n", " ", "-", " ", "1"}], "]"}], "]"}], "[", "x", "]"}], ",",
      " ", 
     RowBox[{"{", 
      RowBox[{"x", ",", " ", "0", ",", " ", 
       RowBox[{"Max", "[", "data", "]"}]}], "}"}]}], "]"}]}], "]"}]}], "Input",\
ExpressionUUID->"2427b13a-ce46-1c47-b2fb-d171e2e8a21f"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"n", " ", "=", " ", "4"}], ";", " ", 
  RowBox[{"mu", " ", "=", " ", "5"}], ";", " ", 
  RowBox[{"sigma", " ", "=", " ", "7"}], ";", " ", 
  RowBox[{"ndist", " ", "=", " ", 
   RowBox[{"NormalDistribution", "[", 
    RowBox[{"mu", ",", " ", "sigma"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"t", " ", "=", " ", 
   RowBox[{"Function", "[", 
    RowBox[{
     RowBox[{"{", "x", "}"}], ",", " ", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"Mean", "[", "x", "]"}], " ", "-", " ", "mu"}], ")"}], "/", 
      RowBox[{"Sqrt", "[", 
       RowBox[{
        RowBox[{"Variance", "[", "x", "]"}], "/", "n"}], "]"}]}]}], "]"}]}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{"data", " ", "=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"t", "[", 
      RowBox[{"RandomVariate", "[", 
       RowBox[{"ndist", ",", " ", "n"}], "]"}], "]"}], ",", " ", "10000"}], 
    "]"}]}], ";"}], "\n", 
 RowBox[{"Show", "[", 
  RowBox[{
   RowBox[{"Histogram", "[", 
    RowBox[{"data", ",", " ", "Automatic", ",", " ", "\"\<PDF\>\""}], "]"}], 
   ",", "\n", " ", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"PDF", "[", 
       RowBox[{"StudentTDistribution", "[", 
        RowBox[{"n", " ", "-", " ", "1"}], "]"}], "]"}], "[", "x", "]"}], ",",
      " ", 
     RowBox[{"{", 
      RowBox[{"x", ",", " ", 
       RowBox[{"-", "4.5"}], ",", " ", "4.5"}], "}"}]}], "]"}]}], 
  "]"}]}], "Input",ExpressionUUID->"06e2fa29-935a-5447-96eb-56cd7a700d41"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"m", " ", "=", " ", "5"}], ";", " ", 
  RowBox[{"muX", " ", "=", " ", "2"}], ";", " ", 
  RowBox[{"sigmaX", " ", "=", " ", "3"}], ";", " ", 
  RowBox[{"distX", " ", "=", " ", 
   RowBox[{"NormalDistribution", "[", 
    RowBox[{"muX", ",", " ", "sigmaX"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"n", " ", "=", " ", "7"}], ";", " ", 
  RowBox[{"muY", " ", "=", " ", "3"}], ";", " ", 
  RowBox[{"sigmaY", " ", "=", " ", "2"}], ";", " ", 
  RowBox[{"distY", " ", "=", " ", 
   RowBox[{"NormalDistribution", "[", 
    RowBox[{"muY", ",", " ", "sigmaY"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"f", "[", 
   RowBox[{"x_", ",", " ", "y_"}], "]"}], " ", ":=", " ", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{"Variance", "[", "x", "]"}], "/", 
     RowBox[{"sigmaX", "^", "2"}]}], ")"}], "/", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"Variance", "[", "y", "]"}], "/", 
     RowBox[{"sigmaY", "^", "2"}]}], ")"}]}]}], "\n", 
 RowBox[{
  RowBox[{"data", " ", "=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"f", "[", 
      RowBox[{
       RowBox[{"RandomVariate", "[", 
        RowBox[{"distX", ",", " ", "m"}], "]"}], ",", " ", 
       RowBox[{"RandomVariate", "[", 
        RowBox[{"distY", ",", " ", "n"}], "]"}]}], "]"}], ",", " ", 
     RowBox[{"{", "10000", "}"}]}], "]"}]}], ";"}], "\n", 
 RowBox[{"Show", "[", 
  RowBox[{
   RowBox[{"Histogram", "[", 
    RowBox[{"data", ",", " ", "Automatic", ",", " ", "\"\<PDF\>\""}], "]"}], 
   ",", "\n", " ", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"PDF", "[", 
       RowBox[{"FRatioDistribution", "[", 
        RowBox[{
         RowBox[{"m", " ", "-", " ", "1"}], ",", " ", 
         RowBox[{"n", " ", "-", " ", "1"}]}], "]"}], "]"}], "[", "x", "]"}], 
     ",", " ", 
     RowBox[{"{", 
      RowBox[{"x", ",", " ", "0", ",", " ", "7"}], "}"}]}], "]"}]}], 
  "]"}]}], "Input",ExpressionUUID->"7eb65926-ecda-3840-916c-f67973c084ab"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", 
   RowBox[{"k", ",", " ", "T"}], "]"}], ";"}], "\n", 
 RowBox[{"TransformedDistribution", "[", 
  RowBox[{
   RowBox[{"T", "^", "2"}], ",", " ", 
   RowBox[{"Distributed", "[", 
    RowBox[{"T", ",", " ", 
     RowBox[{"StudentTDistribution", "[", "k", "]"}]}], "]"}]}], 
  "]"}]}], "Input",ExpressionUUID->"c6acb8d5-b31e-e048-a38f-dad32da8a289"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Clear", "[", "\"\<Global`*\>\"", "]"}], ";"}]], "Input",ExpressionU\
UID->"a8ab1284-53d3-a141-b073-1b303bd1ae46"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"n", " ", "=", " ", "15"}], ";", " ", 
  RowBox[{"p0", " ", "=", " ", 
   RowBox[{"4", "/", "10"}]}], ";", " ", 
  RowBox[{"dist", " ", "=", " ", 
   RowBox[{"BinomialDistribution", "[", 
    RowBox[{"n", ",", " ", "p0"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"tmp", " ", "=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"PDF", "[", "dist", "]"}], "[", "x", "]"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"x", ",", " ", "0", ",", " ", "n"}], "}"}]}], "]"}]}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{"Total", "[", 
   RowBox[{"Cases", "[", 
    RowBox[{"tmp", ",", " ", 
     RowBox[{"p_", " ", "/;", " ", 
      RowBox[{"p", " ", "<=", " ", 
       RowBox[{
        RowBox[{"PDF", "[", "dist", "]"}], "[", "2", "]"}]}]}]}], "]"}], 
   "]"}], " ", "//", " ", "N"}]}], "Input",ExpressionUUID->"bc44ec86-99e0-\
514e-8f4f-14978ab775da"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"CDF", "[", "dist", "]"}], "[", "2", "]"}], " ", "//", " ", 
  "N"}]], "Input",ExpressionUUID->"256ece54-1868-3f41-a2e5-6001d8e0332f"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"n", " ", "=", " ", "15"}], ";", " ", 
  RowBox[{"p0", " ", "=", " ", 
   RowBox[{"4", "/", "10"}]}], ";", " ", 
  RowBox[{"dist", " ", "=", " ", 
   RowBox[{"NormalDistribution", "[", 
    RowBox[{
     RowBox[{"n", " ", "p"}], ",", " ", 
     RowBox[{"Sqrt", "[", 
      RowBox[{"n", " ", "p", " ", 
       RowBox[{"(", 
        RowBox[{"1", " ", "-", " ", "p"}], ")"}]}], "]"}]}], "]"}]}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{"2", " ", 
   RowBox[{
    RowBox[{"CDF", "[", 
     RowBox[{"dist", " ", "/.", " ", 
      RowBox[{"p", " ", "->", " ", "p0"}]}], "]"}], "[", "2", "]"}]}], " ", "//",
   " ", "N"}]}], "Input",ExpressionUUID->"df23b8cf-f38b-1b4b-8509-\
336389bb2272"],

Cell[BoxData[
 RowBox[{
  RowBox[{"alpha", " ", "=", " ", 
   RowBox[{"5", "/", "100"}]}], ";", " ", 
  RowBox[{
   RowBox[{"InverseCDF", "[", 
    RowBox[{
     RowBox[{"dist", " ", "/.", " ", 
      RowBox[{"{", 
       RowBox[{"p", " ", "->", " ", "p0"}], "}"}]}], ",", " ", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"alpha", "/", "2"}], ",", " ", 
       RowBox[{"1", " ", "-", " ", 
        RowBox[{"alpha", "/", "2"}]}]}], "}"}]}], "]"}], " ", "//", " ", 
   "N"}]}]], "Input",ExpressionUUID->"f056c68b-999b-5a40-a74d-beb6b8ffbda1"],

Cell[BoxData[
 RowBox[{"N", "[", 
  RowBox[{"Reduce", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"InverseCDF", "[", 
      RowBox[{"dist", ",", " ", 
       RowBox[{"alpha", "/", "2"}]}], "]"}], " ", "<=", " ", "2", " ", "<=", 
     " ", 
     RowBox[{"InverseCDF", "[", 
      RowBox[{"dist", ",", " ", 
       RowBox[{"1", " ", "-", " ", 
        RowBox[{"alpha", "/", "2"}]}]}], "]"}]}], ",", " ", "p"}], "]"}], 
  "]"}]], "Input",ExpressionUUID->"6163fa4d-6510-3341-986e-7ea731855664"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"pvalue", "[", "p0_", "]"}], " ", ":=", " ", 
  RowBox[{"With", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"c", " ", "=", " ", 
      RowBox[{
       RowBox[{
        RowBox[{"CDF", "[", "dist", "]"}], "[", "2", "]"}], " ", "/.", " ", 
       RowBox[{"p", " ", "->", " ", "p0"}]}]}], "}"}], ",", " ", 
    RowBox[{"2", " ", 
     RowBox[{"Min", "[", 
      RowBox[{"c", ",", " ", 
       RowBox[{"1", " ", "-", " ", "c"}]}], "]"}]}]}], "]"}]}], "\n", 
 RowBox[{
  RowBox[{"Plot", "[", 
   RowBox[{
    RowBox[{"pvalue", "[", "p0", "]"}], ",", " ", 
    RowBox[{"{", 
     RowBox[{"p0", ",", " ", "0", ",", " ", "1"}], "}"}]}], "]"}], 
  "\n"}], "\n", 
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"InverseCDF", "[", 
      RowBox[{"dist", ",", " ", 
       RowBox[{"alpha", "/", "2"}]}], "]"}], ",", " ", 
     RowBox[{"InverseCDF", "[", 
      RowBox[{"dist", ",", " ", 
       RowBox[{"1", " ", "-", " ", 
        RowBox[{"alpha", "/", "2"}]}]}], "]"}], ",", " ", "2"}], "}"}], ",", 
   "\n", " ", 
   RowBox[{"{", 
    RowBox[{"p", ",", " ", "0", ",", " ", "1"}], "}"}], ",", " ", 
   RowBox[{"PlotStyle", " ", "->", " ", 
    RowBox[{"{", 
     RowBox[{"Dashed", ",", " ", "Thick", ",", " ", "Dotted"}], "}"}]}]}], 
  "]"}]}], "Input",ExpressionUUID->"7ee7ec50-f817-6f43-ab2c-0dab60eec17f"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Clear", "[", "\"\<Global`*\>\"", "]"}], ";"}]], "Input",ExpressionU\
UID->"baa5a86d-b37b-7e4e-8bc3-42d0bf22835d"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"x", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
    "24.2", ",", " ", "25.3", ",", " ", "26.2", ",", " ", "25.7", ",", " ", 
     "24.4", ",", " ", "25.1", ",", " ", "25.6"}], "}"}]}], ";", " ", 
  RowBox[{"mu0", " ", "=", " ", "25"}], ";"}], "\n", 
 RowBox[{"TTest", "[", 
  RowBox[{"x", ",", " ", "mu0"}], "]"}]}], "Input",ExpressionUUID->"8ec8b55d-\
1d6a-9349-b3aa-a72f440817fe"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"m", " ", "=", " ", 
   RowBox[{"Mean", "[", "x", "]"}]}], ";", " ", 
  RowBox[{"s2", " ", "=", " ", 
   RowBox[{"Variance", "[", "x", "]"}]}], ";", " ", 
  RowBox[{"n", " ", "=", " ", 
   RowBox[{"Length", "[", "x", "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"t", " ", ":=", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"m", " ", "-", " ", "mu0"}], ")"}], "/", 
    RowBox[{"Sqrt", "[", 
     RowBox[{"s2", "/", "n"}], "]"}]}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"dist", " ", "=", " ", 
   RowBox[{"StudentTDistribution", "[", 
    RowBox[{"n", " ", "-", " ", "1"}], "]"}]}], ";", " ", 
  RowBox[{"c", " ", "=", " ", 
   RowBox[{
    RowBox[{"CDF", "[", "dist", "]"}], "[", "t", "]"}]}], ";"}], "\n", 
 RowBox[{"2", " ", 
  RowBox[{"Min", "[", 
   RowBox[{"c", ",", " ", 
    RowBox[{"1", " ", "-", " ", "c"}]}], "]"}]}]}], "Input",ExpressionUUID->\
"ae6a675f-660c-d64f-86a1-35d75047980f"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"alpha", " ", "=", " ", 
   RowBox[{"5", "/", "100"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"{", 
   RowBox[{"a", ",", " ", "b"}], "}"}], " ", "=", " ", 
  RowBox[{
   RowBox[{"InverseCDF", "[", 
    RowBox[{"dist", ",", " ", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"alpha", "/", "2"}], ",", " ", 
       RowBox[{"1", " ", "-", " ", 
        RowBox[{"alpha", "/", "2"}]}]}], "}"}]}], "]"}], " ", "//", " ", 
   "N"}]}]}], "Input",ExpressionUUID->"788ec9fd-8d32-d74e-a2ce-b2c740f3cd5e"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Needs", "[", "\"\<HypothesisTesting`\>\"", "]"}], " ", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"\:300c", "`", "\:300d"}], 
    "\:306f\:30b7\:30f3\:30b0\:30eb\:30af\:30a9\:30fc\:30c8\:3067\:306f\:306a\
\:304f\:30d0\:30c3\:30af\:30af\:30a9\:30fc\:30c8"}], " ", "*)"}]}], "\n", 
 RowBox[{"MeanCI", "[", "x", "]"}]}], "Input",ExpressionUUID->"07730999-78e1-\
ad46-afb3-a599cfaa40ef"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Clear", "[", "mu0", "]"}], ";", " ", 
  RowBox[{"Reduce", "[", 
   RowBox[{
    RowBox[{"a", " ", "<=", " ", "t", " ", "<=", " ", "b"}], ",", " ", 
    "mu0"}], "]"}]}]], "Input",ExpressionUUID->"080d59f9-5c7b-6847-9d3e-\
d160a5097a32"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"dist", " ", "=", " ", 
   RowBox[{"StudentTDistribution", "[", 
    RowBox[{"n", " ", "-", " ", "1"}], "]"}]}], ";"}], "\n", 
 RowBox[{"Reduce", "[", 
  RowBox[{
   RowBox[{"InverseCDF", "[", 
    RowBox[{"dist", ",", " ", 
     RowBox[{"alpha", "/", "2"}]}], "]"}], " ", "<=", " ", "t", " ", "<=", 
   " ", 
   RowBox[{"InverseCDF", "[", 
    RowBox[{"dist", ",", " ", 
     RowBox[{"1", " ", "-", " ", 
      RowBox[{"alpha", "/", "2"}]}]}], "]"}]}], "]"}]}], "Input",ExpressionUUI\
D->"f062678f-983f-7940-b4cf-e138151377b7"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"x", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"25", ",", " ", "24", ",", " ", "25", ",", " ", "26"}], "}"}]}], 
  ";", " ", 
  RowBox[{"y", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
    "23", ",", " ", "18", ",", " ", "22", ",", " ", "28", ",", " ", "17", ",",
      " ", "25", ",", " ", "19", ",", " ", "16"}], "}"}]}], ";"}], "\n", 
 RowBox[{"TTest", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"x", ",", " ", "y"}], "}"}], ",", " ", "0", ",", " ", 
   RowBox[{"AlternativeHypothesis", " ", "->", " ", "\"\<Greater\>\""}], ",", 
   "\n", " ", 
   RowBox[{"VerifyTestAssumptions", " ", "->", " ", 
    RowBox[{"\"\<EqualVariance\>\"", " ", "->", " ", "False"}]}]}], 
  "]"}]}], "Input",ExpressionUUID->"8fb667b1-61cf-8540-bc60-1303e85a212b"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"alpha", " ", "=", " ", 
   RowBox[{"5", "/", "100"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"m", " ", "=", " ", 
   RowBox[{"Length", "[", "x", "]"}]}], ";", " ", 
  RowBox[{"n", " ", "=", " ", 
   RowBox[{"Length", "[", "y", "]"}]}], ";", " ", 
  RowBox[{"sx2", " ", "=", " ", 
   RowBox[{"Variance", "[", "x", "]"}]}], ";", " ", 
  RowBox[{"sy2", " ", "=", " ", 
   RowBox[{"Variance", "[", "y", "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"s2", " ", "=", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"m", " ", "-", " ", "1"}], ")"}], " ", "sx2"}], " ", "+", " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"n", " ", "-", " ", "1"}], ")"}], " ", "sy2"}]}], ")"}], "/", 
    RowBox[{"(", 
     RowBox[{"m", " ", "+", " ", "n", " ", "-", " ", "2"}], ")"}]}]}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"T", " ", "=", " ", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"Mean", "[", "x", "]"}], " ", "-", " ", 
       RowBox[{"Mean", "[", "y", "]"}], " ", "-", " ", "d"}], ")"}], "/", 
     RowBox[{"Sqrt", "[", 
      RowBox[{"s2", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"1", "/", "m"}], " ", "+", " ", 
         RowBox[{"1", "/", "n"}]}], ")"}]}], "]"}]}]}], ";"}], " ", 
  RowBox[{"(*", " ", "t\:7d71\:8a08\:91cf", " ", "*)"}]}], "\n", 
 RowBox[{"t", " ", ":=", " ", 
  RowBox[{"T", " ", "/.", " ", 
   RowBox[{"d", " ", "->", " ", "0", "                                  ", 
    RowBox[{"(*", " ", "t\:5024", " ", "*)"}]}]}]}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"df", " ", "=", " ", 
    RowBox[{"m", " ", "+", " ", "n", " ", "-", " ", "2"}]}], ";"}], 
  "                                   ", 
  RowBox[{"(*", " ", "\:81ea\:7531\:5ea6", " ", "*)"}]}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"dist", " ", ":=", " ", 
    RowBox[{"StudentTDistribution", "[", "df", "]"}]}], ";"}], 
  "                 ", 
  RowBox[{"(*", " ", "t\:5206\:5e03", " ", "*)"}]}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"P", " ", ":=", " ", 
    RowBox[{"1", " ", "-", " ", 
     RowBox[{
      RowBox[{"CDF", "[", "dist", "]"}], "[", "t", "]"}]}]}], ";"}], 
  "                            ", 
  RowBox[{"(*", " ", "P\:5024", " ", "*)"}]}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"a", " ", ":=", " ", 
    RowBox[{"InverseCDF", "[", 
     RowBox[{"dist", ",", " ", 
      RowBox[{"1", " ", "-", " ", "alpha"}]}], "]"}]}], ";"}], 
  "                 ", 
  RowBox[{
  "(*", " ", "\:63a1\:629e\:57df\:306e\:4e0a\:9650", " ", "*)"}]}], "\n", 
 RowBox[{
  RowBox[{"interval", " ", ":=", " ", 
   RowBox[{"Reduce", "[", 
    RowBox[{
     RowBox[{"T", " ", "<=", " ", "a"}], ",", " ", "d"}], "]"}]}], 
  "                     ", 
  RowBox[{"(*", " ", "\:4fe1\:983c\:533a\:9593", " ", "*)"}]}], "\n", 
 RowBox[{
  RowBox[{"{", 
   RowBox[{"t", ",", " ", "P", ",", " ", "a", ",", " ", "interval"}], "}"}], 
  " ", "//", " ", "N"}]}], "Input",ExpressionUUID->"91be08f6-d2c5-2548-9f6e-\
3f170c37cdab"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"T", " ", "=", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"Mean", "[", "x", "]"}], " ", "-", " ", 
      RowBox[{"Mean", "[", "y", "]"}], " ", "-", " ", "d"}], ")"}], "/", 
    RowBox[{"Sqrt", "[", 
     RowBox[{
      RowBox[{"sx2", "/", "m"}], " ", "+", " ", 
      RowBox[{"sy2", "/", "n"}]}], "]"}]}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"df", " ", "=", " ", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"sx2", "/", "m"}], " ", "+", " ", 
        RowBox[{"sy2", "/", "n"}]}], ")"}], "^", "2"}], "/", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"sx2", "/", "m"}], ")"}], "^", "2"}], "/", 
        RowBox[{"(", 
         RowBox[{"m", " ", "-", " ", "1"}], ")"}]}], " ", "+", " ", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"sy2", "/", "n"}], ")"}], "^", "2"}], "/", 
        RowBox[{"(", 
         RowBox[{"n", " ", "-", " ", "1"}], ")"}]}]}], ")"}]}], " ", "//", 
    " ", "N"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"{", 
   RowBox[{"t", ",", " ", "P", ",", " ", "a", ",", " ", "interval"}], "}"}], 
  " ", "//", " ", "N"}]}], "Input",ExpressionUUID->"2011bdb8-c8c1-cd49-83d4-\
e67981bf54b4"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"x", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"25", ",", " ", "24", ",", " ", "25", ",", " ", "26"}], "}"}]}], 
  ";", " ", 
  RowBox[{"y", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
    "23", ",", " ", "18", ",", " ", "22", ",", " ", "28", ",", " ", "17", ",",
      " ", "25", ",", " ", "19", ",", " ", "16"}], "}"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"VarianceTest", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"x", ",", " ", "y"}], "}"}], ",", " ", "1", ",", " ", 
    "\"\<HypothesisTestData\>\""}], "]"}], "[", "\"\<TestDataTable\>\"", 
  "]"}]}], "Input",ExpressionUUID->"bf51b747-50d5-e44f-962b-cd2bb0a45eba"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"m", " ", "=", " ", 
   RowBox[{"Length", "[", "x", "]"}]}], ";", " ", 
  RowBox[{"n", " ", "=", " ", 
   RowBox[{"Length", "[", "y", "]"}]}], ";", " ", 
  RowBox[{"dist", " ", "=", " ", 
   RowBox[{"FRatioDistribution", "[", 
    RowBox[{
     RowBox[{"m", " ", "-", " ", "1"}], ",", " ", 
     RowBox[{"n", " ", "-", " ", "1"}]}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"F", " ", "=", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"Variance", "[", "x", "]"}], "/", 
     RowBox[{"Variance", "[", "y", "]"}]}], "/", "r"}]}], ";", " ", 
  RowBox[{"f", " ", "=", " ", 
   RowBox[{"F", " ", "/.", " ", 
    RowBox[{"r", " ", "->", " ", "1"}]}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"c", " ", "=", " ", 
   RowBox[{
    RowBox[{"CDF", "[", "dist", "]"}], "[", "f", "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"{", 
   RowBox[{"f", ",", " ", 
    RowBox[{"2", " ", 
     RowBox[{"Min", "[", 
      RowBox[{"c", ",", " ", 
       RowBox[{"1", " ", "-", " ", "c"}]}], "]"}]}]}], "}"}], " ", "//", " ", 
  "N"}]}], "Input",ExpressionUUID->"b246ea0c-25b4-7c46-8a7e-3757cbe48377"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"alpha", " ", "=", " ", 
   RowBox[{"5", "/", "100"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"{", 
   RowBox[{"a", ",", " ", "b"}], "}"}], " ", "=", " ", 
  RowBox[{
   RowBox[{"InverseCDF", "[", 
    RowBox[{"dist", ",", " ", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"alpha", "/", "2"}], ",", " ", 
       RowBox[{"1", " ", "-", " ", 
        RowBox[{"alpha", "/", "2"}]}]}], "}"}]}], "]"}], " ", "//", " ", 
   "N"}]}]}], "Input",ExpressionUUID->"4e316ddd-2086-a14d-8937-4c2150f082ab"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Needs", "[", "\"\<HypothesisTesting`\>\"", "]"}], " ", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"\:300c", "`", "\:300d"}], 
    "\:306f\:30b7\:30f3\:30b0\:30eb\:30af\:30a9\:30fc\:30c8\:3067\:306f\:306a\
\:304f\:30d0\:30c3\:30af\:30af\:30a9\:30fc\:30c8"}], " ", "*)"}]}], "\n", 
 RowBox[{"VarianceRatioCI", "[", 
  RowBox[{"x", ",", " ", "y"}], "]"}]}], "Input",ExpressionUUID->"f4502aa7-\
a347-c742-8aae-05f073a917e7"],

Cell[BoxData[
 RowBox[{"Reduce", "[", 
  RowBox[{
   RowBox[{"a", " ", "<=", " ", "F", " ", "<=", " ", "b"}], ",", " ", "r"}], 
  "]"}]], "Input",ExpressionUUID->"441e4fa4-5727-b243-ac92-bcd2f65e87c0"]
}, Closed]],

Cell[CellGroupData[{

Cell["11 \:7dda\:5f62\:56de\:5e30\:5206\:6790", "Chapter",
 PageBreakAbove->True,ExpressionUUID->"c91ec311-1c88-5b46-a8e4-be1b6c15b51e"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Clear", "[", "\"\<Global`*\>\"", "]"}], ";"}]], "Input",ExpressionU\
UID->"1b6ac649-8506-6e41-acc4-55d712b4de45"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"data", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"1", ",", " ", "2", ",", " ", "3"}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"1", ",", " ", "3", ",", " ", "6"}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"2", ",", " ", "5", ",", " ", "3"}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"3", ",", " ", "7", ",", " ", "6"}], "}"}]}], "}"}]}], 
  ";"}], "\n", 
 RowBox[{"model", " ", "=", " ", 
  RowBox[{"LinearModelFit", "[", 
   RowBox[{"data", ",", " ", 
    RowBox[{"{", 
     RowBox[{"X1", ",", " ", "X2"}], "}"}], ",", " ", 
    RowBox[{"{", 
     RowBox[{"X1", ",", " ", "X2"}], "}"}]}], "]"}]}], "\n", 
 RowBox[{"model", "[", "\"\<BestFitParameters\>\"", "]"}]}], "Input",Expressio\
nUUID->"8dbff96b-984c-1c44-8d79-9e28944010e8"],

Cell[BoxData[
 RowBox[{"model", "[", 
  RowBox[{"1.5", ",", " ", "4"}], "]"}]], "Input",ExpressionUUID->"14187048-\
f0b3-0d4b-960e-781d699f6b2a"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"x1", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"1", ",", " ", "3", ",", " ", "6", ",", " ", "10"}], "}"}]}], ";",
   " ", 
  RowBox[{"y", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"7", ",", " ", "1", ",", " ", "6", ",", " ", "14"}], "}"}]}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{"e", " ", "=", " ", 
   RowBox[{"y", " ", "-", " ", 
    RowBox[{"(", 
     RowBox[{"b0", " ", "+", " ", 
      RowBox[{"b1", " ", "x1"}]}], ")"}]}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"L", " ", "=", " ", 
    RowBox[{"e", " ", ".", " ", "e"}]}], ";"}], " ", 
  RowBox[{"(*", " ", "\:5185\:7a4d", " ", "*)"}]}], "\n", 
 RowBox[{"FindMinimum", "[", 
  RowBox[{"L", ",", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"b0", ",", " ", "0"}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"b1", ",", " ", "0"}], "}"}]}], "}"}]}], "]"}]}], "Input",Expres\
sionUUID->"eecf2b4c-eb01-ce43-b206-852b8907b95a"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Minimize", "[", 
   RowBox[{"L", ",", " ", 
    RowBox[{"{", 
     RowBox[{"b0", ",", " ", "b1"}], "}"}]}], "]"}], " ", 
  RowBox[{
  "(*", " ", "\:89e3\:6790\:7684\:306a\:7d50\:679c", " ", "*)"}]}]], "Input",E\
xpressionUUID->"1143820e-5540-404e-bc8c-52a117a1c322"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"L", " ", "=", " ", 
    RowBox[{"Total", "[", 
     RowBox[{"Abs", "[", "e", "]"}], "]"}]}], ";"}], " ", 
  RowBox[{
  "(*", " ", "\:5dee\:306e\:7d76\:5bfe\:5024\:306e\:548c", " ", 
   "*)"}]}], "\n", 
 RowBox[{
  RowBox[{"Minimize", "[", 
   RowBox[{"L", ",", " ", 
    RowBox[{"{", 
     RowBox[{"b0", ",", " ", "b1"}], "}"}]}], "]"}], " ", "//", " ", 
  "N"}]}], "Input",ExpressionUUID->"581eb2ae-ab8b-2242-9cb1-bf45d15e737f"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"e", " ", "=", " ", 
   RowBox[{"x1", " ", "-", " ", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"y", " ", "-", " ", "b0"}], ")"}], "/", "b1"}]}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"L", " ", "=", " ", 
   RowBox[{"e", " ", ".", " ", "e"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"Minimize", "[", 
   RowBox[{"L", ",", " ", 
    RowBox[{"{", 
     RowBox[{"b0", ",", " ", "b1"}], "}"}]}], "]"}], " ", "//", " ", 
  "N"}]}], "Input",ExpressionUUID->"0fda485e-78e9-ee4e-a79a-286d7650b670"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"line", " ", "=", " ", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"x1", ",", " ", "y"}], "}"}], ",", " ", 
     RowBox[{"ImplicitRegion", "[", 
      RowBox[{
       RowBox[{"y", " ", "==", " ", 
        RowBox[{"b0", " ", "+", " ", 
         RowBox[{"b1", " ", "x1"}]}]}], ",", " ", 
       RowBox[{"{", 
        RowBox[{"x1", ",", " ", "y"}], "}"}]}], "]"}]}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"L", " ", "=", " ", 
   RowBox[{"Sum", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"RegionDistance", "[", 
       RowBox[{"line", ",", " ", "p"}], "]"}], "^", "2"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"p", ",", " ", 
       RowBox[{"Thread", "[", 
        RowBox[{"{", 
         RowBox[{"x1", ",", " ", "y"}], "}"}], "]"}]}], "}"}]}], "]"}]}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"Minimize", "[", 
    RowBox[{"L", ",", " ", 
     RowBox[{"{", 
      RowBox[{"b0", ",", " ", "b1"}], "}"}]}], "]"}], " ", "//", " ", 
   "Simplify"}], " ", "//", " ", "N"}]}], "Input",ExpressionUUID->"47241243-\
da90-b44c-a21c-1aeacc95f5ba"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"data", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"1", ",", " ", "2", ",", " ", "3"}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"1", ",", " ", "3", ",", " ", "6"}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"2", ",", " ", "5", ",", " ", "3"}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"3", ",", " ", "7", ",", " ", "6"}], "}"}]}], "}"}]}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{"X", " ", "=", " ", 
   RowBox[{"DesignMatrix", "[", 
    RowBox[{"data", ",", " ", 
     RowBox[{"{", 
      RowBox[{"X1", ",", " ", "X2"}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"X1", ",", " ", "X2"}], "}"}]}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"y", " ", "=", " ", 
   RowBox[{"data", "[", 
    RowBox[{"[", 
     RowBox[{"All", ",", " ", 
      RowBox[{"-", "1"}]}], "]"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"Inverse", "[", 
   RowBox[{
    RowBox[{"Transpose", "[", "X", "]"}], " ", ".", " ", "X"}], "]"}], " ", 
  ".", " ", 
  RowBox[{"Transpose", "[", "X", "]"}], " ", ".", " ", "y"}]}], "Input",Expres\
sionUUID->"18913373-bd30-a84b-b937-525b517037f3"],

Cell[BoxData[
 RowBox[{
  RowBox[{"PseudoInverse", "[", "X", "]"}], " ", ".", " ", "y"}]], "Input",Exp\
ressionUUID->"f68b037a-a0f1-8f45-af49-c5bdf3037577"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"b", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"b0", ",", " ", "b1", ",", " ", "b2"}], "}"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"L", " ", "=", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"y", " ", "-", " ", 
      RowBox[{"X", " ", ".", " ", "b"}]}], ")"}], " ", ".", " ", 
    RowBox[{"(", 
     RowBox[{"y", " ", "-", " ", 
      RowBox[{"X", " ", ".", " ", "b"}]}], ")"}]}]}], ";"}], "\n", 
 RowBox[{"Reduce", "[", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"D", "[", 
     RowBox[{"L", ",", " ", 
      RowBox[{"{", "b", "}"}]}], "]"}], " ", "==", " ", 
    RowBox[{"0", " ", "b"}]}], "}"}], "]"}]}], "Input",ExpressionUUID->\
"f7a4c7ce-da11-0045-8ed0-079f02ccccae"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"D", "[", 
    RowBox[{"L", ",", " ", 
     RowBox[{"{", "b", "}"}]}], "]"}], " ", "==", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"-", "2"}], " ", 
     RowBox[{
      RowBox[{"Transpose", "[", "X", "]"}], " ", ".", " ", "y"}]}], " ", "+", 
    " ", 
    RowBox[{"2", " ", 
     RowBox[{
      RowBox[{"Transpose", "[", "X", "]"}], " ", ".", " ", "X", " ", ".", " ",
       "b"}]}]}]}], " ", "//", " ", "Simplify"}]], "Input",ExpressionUUID->\
"ef3a978d-ff69-0e4d-aebf-acc4f9160493"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Clear", "[", "\"\<Global`*\>\"", "]"}], ";"}]], "Input",ExpressionU\
UID->"84ac3216-b757-ec4f-bc7a-867dbbdafcf4"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"data", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"1", ",", " ", "2", ",", " ", "3"}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"1", ",", " ", "3", ",", " ", "6"}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"2", ",", " ", "5", ",", " ", "3"}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"3", ",", " ", "7", ",", " ", "6"}], "}"}]}], "}"}]}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{"model", " ", "=", " ", 
   RowBox[{"LinearModelFit", "[", 
    RowBox[{"data", ",", " ", 
     RowBox[{"{", 
      RowBox[{"X1", ",", " ", "X2"}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"X1", ",", " ", "X2"}], "}"}]}], "]"}]}], ";"}], "\n", 
 RowBox[{"model", "[", "\"\<RSquared\>\"", "]"}]}], "Input",ExpressionUUID->\
"47777c8f-902a-2248-af0c-0daa06919d2a"],

Cell[BoxData[
 RowBox[{"model", "[", "\"\<AdjustedRSquared\>\"", "]"}]], "Input",ExpressionU\
UID->"61b55443-952b-2442-b7ce-56e1c4bd54d1"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"x1", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"1", ",", " ", "3", ",", " ", "6", ",", " ", "10"}], "}"}]}], ";",
   " ", 
  RowBox[{"y", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"7", ",", " ", "1", ",", " ", "6", ",", " ", "14"}], "}"}]}], ";",
   " ", 
  RowBox[{"data", " ", "=", " ", 
   RowBox[{"Thread", "[", 
    RowBox[{"{", 
     RowBox[{"x1", ",", " ", "y"}], "}"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"X", " ", "=", " ", 
   RowBox[{"DesignMatrix", "[", 
    RowBox[{"data", ",", " ", "X1", ",", " ", "X1"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"yh", " ", "=", " ", 
   RowBox[{"X", " ", ".", " ", 
    RowBox[{"PseudoInverse", "[", "X", "]"}], " ", ".", " ", "y"}]}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{"eh", " ", "=", " ", 
   RowBox[{"y", " ", "-", " ", "yh"}]}], ";", " ", 
  RowBox[{"fh", " ", "=", " ", 
   RowBox[{"yh", " ", "-", " ", 
    RowBox[{"Mean", "[", "y", "]"}]}]}], ";", " ", 
  RowBox[{"g", " ", "=", " ", 
   RowBox[{"y", " ", "-", " ", 
    RowBox[{"Mean", "[", "y", "]"}]}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"R2", " ", "=", " ", 
   RowBox[{"1", " ", "-", " ", 
    RowBox[{
     RowBox[{"eh", " ", ".", " ", "eh"}], "/", 
     RowBox[{"g", " ", ".", " ", "g"}]}]}]}], ";", " ", 
  RowBox[{"N", "[", "R2", "]"}]}]}], "Input",ExpressionUUID->"85ae40aa-3630-\
fc42-8ece-b71346257421"],

Cell[BoxData[
 RowBox[{
  RowBox[{"{", 
   RowBox[{
    RowBox[{
     RowBox[{"Mean", "[", "eh", "]"}], " ", "==", " ", "0"}], ",", 
    "                                ", 
    RowBox[{"(*", " ", "\:7279\:5fb41", " ", "*)"}], "\n", " ", 
    RowBox[{
     RowBox[{"Mean", "[", "yh", "]"}], " ", "==", " ", 
     RowBox[{"Mean", "[", "y", "]"}]}], ",", "                          ", 
    RowBox[{"(*", " ", "\:7279\:5fb42", " ", "*)"}], "\n", " ", 
    RowBox[{
     RowBox[{"g", " ", ".", " ", "g"}], " ", "==", " ", 
     RowBox[{
      RowBox[{"fh", " ", ".", " ", "fh"}], " ", "+", " ", 
      RowBox[{"eh", " ", ".", " ", "eh"}]}]}], ",", "                   ", 
    RowBox[{"(*", " ", "\:7279\:5fb43", " ", "*)"}], "\n", " ", 
    RowBox[{"R2", " ", "==", " ", 
     RowBox[{
      RowBox[{"fh", " ", ".", " ", "fh"}], "/", 
      RowBox[{"g", " ", ".", " ", "g"}]}]}], ",", 
    "                          ", 
    RowBox[{"(*", " ", "\:7279\:5fb44", " ", "*)"}], "\n", " ", 
    RowBox[{"R2", " ", "==", " ", 
     RowBox[{
      RowBox[{"Correlation", "[", 
       RowBox[{"y", ",", " ", "yh"}], "]"}], "^", "2"}]}], ",", 
    "                   ", 
    RowBox[{"(*", " ", "\:7279\:5fb45", " ", "*)"}], "\n", " ", 
    RowBox[{"0", " ", "<=", " ", "R2", " ", "<=", " ", "1"}], ",", 
    "                                 ", 
    RowBox[{"(*", " ", "\:7279\:5fb46", " ", "*)"}], "\n", " ", 
    RowBox[{
     RowBox[{
      RowBox[{"Correlation", "[", 
       RowBox[{"y", ",", " ", "yh"}], "]"}], "^", "2"}], " ", "==", " ", 
     RowBox[{
      RowBox[{"Correlation", "[", 
       RowBox[{"y", ",", " ", "x1"}], "]"}], "^", "2"}]}]}], "}"}], " ", 
  RowBox[{"(*", " ", "\:7279\:5fb47", " ", "*)"}]}]], "Input",ExpressionUUID->\
"e0143c73-1cc2-6f42-9dc9-ef8383931ea6"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Clear", "[", "\"\<Global`*\>\"", "]"}], ";"}]], "Input",ExpressionU\
UID->"26a8501d-2355-f642-98c6-5ac1aa2340b4"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"data", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"1", ",", " ", "2", ",", " ", "3"}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"1", ",", " ", "3", ",", " ", "6"}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"2", ",", " ", "5", ",", " ", "3"}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"3", ",", " ", "7", ",", " ", "6"}], "}"}]}], "}"}]}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{"n", " ", ":=", " ", 
   RowBox[{"Length", "[", "data", "]"}]}], 
  "                                  ", 
  RowBox[{
  "(*", " ", "\:30b5\:30f3\:30d7\:30eb\:30b5\:30a4\:30ba", " ", 
   "*)"}]}], "\n", 
 RowBox[{
  RowBox[{"p", " ", ":=", " ", 
   RowBox[{"Length", "[", 
    RowBox[{"data", "[", 
     RowBox[{"[", "1", "]"}], "]"}], "]"}]}], "                             ", 
  RowBox[{"(*", " ", "\:5909\:6570\:306e\:500b\:6570", " ", "*)"}]}], "\n", 
 RowBox[{
  RowBox[{"vars", " ", ":=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"Subscript", "[", 
      RowBox[{"x", ",", " ", "i"}], "]"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"i", ",", " ", 
       RowBox[{"p", " ", "-", " ", "1"}]}], "}"}]}], "]"}]}], "         ", 
  RowBox[{"(*", " ", 
   RowBox[{"\:5165\:529b\:5909\:6570", 
    RowBox[{"\:ff08", "\:8a18\:53f7", "\:ff09"}]}], "*)"}]}], "\n", 
 RowBox[{
  RowBox[{"X", " ", ":=", " ", 
   RowBox[{"DesignMatrix", "[", 
    RowBox[{"data", ",", " ", "vars", ",", " ", "vars"}], "]"}]}], 
  "                ", 
  RowBox[{"(*", " ", "\:8a08\:753b\:884c\:5217", " ", "*)"}]}], "\n", 
 RowBox[{
  RowBox[{"y", " ", ":=", " ", 
   RowBox[{"data", "[", 
    RowBox[{"[", 
     RowBox[{"All", ",", " ", 
      RowBox[{"-", "1"}]}], "]"}], "]"}]}], "                               ", 
  RowBox[{
  "(*", " ", "\:51fa\:529b\:5909\:6570\:306e\:5b9f\:73fe\:5024", " ", 
   "*)"}]}], "\n", 
 RowBox[{
  RowBox[{"beta", " ", ":=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"Subscript", "[", 
      RowBox[{"\[Beta]", ",", " ", 
       RowBox[{"i", " ", "-", " ", "1"}]}], "]"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"i", ",", " ", "p"}], "}"}]}], "]"}]}], "   ", 
  RowBox[{"(*", " ", "\:56de\:5e30\:4fc2\:6570", " ", "*)"}]}], "\n", 
 RowBox[{
  RowBox[{"epsilon", " ", ":=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"Subscript", "[", 
      RowBox[{"\[Epsilon]", ",", " ", "i"}], "]"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"i", ",", " ", "n"}], "}"}]}], "]"}]}], " ", 
  RowBox[{"(*", " ", "\:8aa4\:5dee\:9805", " ", "*)"}]}], "\n", 
 RowBox[{"Y", " ", ":=", " ", 
  RowBox[{
   RowBox[{"X", " ", ".", " ", "beta"}], " ", "+", " ", "epsilon", 
   "                            ", 
   RowBox[{"(*", " ", 
    RowBox[{"\:51fa\:529b\:5909\:6570", 
     RowBox[{"\:ff08", "\:78ba\:7387\:5909\:6570", "\:ff09"}]}], 
    "*)"}]}]}], "\n", 
 RowBox[{"betah", " ", ":=", " ", 
  RowBox[{
   RowBox[{"PseudoInverse", "[", "X", "]"}], " ", ".", " ", "Y", 
   "                      ", 
   RowBox[{
   "(*", " ", "\:56de\:5e30\:4fc2\:6570\:306e\:63a8\:5b9a\:91cf", " ", 
    "*)"}]}]}], "\n", 
 RowBox[{"betah", " ", "//", " ", "Simplify"}]}], "Input",ExpressionUUID->\
"531ea944-5dbf-b045-9c0f-e6ae78cd6eac"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "sigma", "]"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"udist", " ", "=", " ", 
   RowBox[{"UniformDistribution", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       RowBox[{"-", 
        RowBox[{"Sqrt", "[", "3", "]"}]}], " ", "sigma"}], ",", " ", 
      RowBox[{
       RowBox[{"Sqrt", "[", "3", "]"}], " ", "sigma"}]}], "}"}], "]"}]}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{"udists", " ", "=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"Distributed", "[", 
      RowBox[{"v", ",", " ", "udist"}], "]"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"v", ",", " ", "epsilon"}], "}"}]}], "]"}]}], ";"}], "\n", 
 RowBox[{"Expectation", "[", 
  RowBox[{"betah", ",", " ", "udists"}], "]"}]}], "Input",ExpressionUUID->\
"6feb0548-bbd3-ee42-ad42-ba283267cd8b"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"ndist", " ", "=", " ", 
   RowBox[{"NormalDistribution", "[", 
    RowBox[{"0", ",", " ", "sigma"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"ndists", " ", "=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"Distributed", "[", 
      RowBox[{"v", ",", " ", "ndist"}], "]"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"v", ",", " ", "epsilon"}], "}"}]}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"TransformedDistribution", "[", 
   RowBox[{"betah", ",", " ", "ndists"}], "]"}], " ", "==", "\n", " ", 
  RowBox[{"MultinormalDistribution", "[", 
   RowBox[{"beta", ",", " ", 
    RowBox[{
     RowBox[{"sigma", "^", "2"}], " ", 
     RowBox[{"Inverse", "[", 
      RowBox[{
       RowBox[{"Transpose", "[", "X", "]"}], " ", ".", " ", "X"}], "]"}]}]}], 
   "]"}]}]}], "Input",ExpressionUUID->"1ec510c5-f8d5-774b-9fc6-011ee65aaaee"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"model", " ", ":=", " ", 
   RowBox[{"LinearModelFit", "[", 
    RowBox[{"data", ",", " ", "vars", ",", " ", "vars"}], "]"}]}], 
  ";"}], "\n", 
 RowBox[{"model", "[", "\"\<EstimatedVariance\>\"", "]"}]}], "Input",Expressio\
nUUID->"8ea4eed1-952f-2d48-a786-1f6b7306e8b4"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"e", " ", ":=", " ", 
   RowBox[{"Y", " ", "-", " ", 
    RowBox[{"X", " ", ".", " ", "betah"}]}]}], ";", " ", 
  RowBox[{"RSS", " ", ":=", " ", 
   RowBox[{"e", " ", ".", " ", "e"}]}], ";", " ", 
  RowBox[{"s2", " ", ":=", " ", 
   RowBox[{"RSS", "/", 
    RowBox[{"(", 
     RowBox[{"n", " ", "-", " ", "p"}], ")"}]}]}]}], "\n", 
 RowBox[{"s2", " ", "//", " ", "Simplify"}]}], "Input",ExpressionUUID->\
"2cb12b63-1717-1949-aadb-502bee946838"],

Cell[BoxData[
 RowBox[{"Expectation", "[", 
  RowBox[{"s2", ",", " ", "udists"}], "]"}]], "Input",ExpressionUUID->\
"0c90096a-080f-d244-b6bc-4dda8c2e94f2"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"tmp", " ", "=", " ", 
   RowBox[{"Block", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"sigma", " ", "=", " ", "2"}], "}"}], ",", "\n", "   ", 
     RowBox[{
      RowBox[{"dist", " ", "=", " ", 
       RowBox[{"TransformedDistribution", "[", 
        RowBox[{
         RowBox[{"Simplify", "[", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"n", " ", "-", " ", "p"}], ")"}], "  ", 
           RowBox[{"s2", "/", 
            RowBox[{"sigma", "^", "2"}]}]}], "]"}], ",", " ", "ndists"}], 
        "]"}]}], ";", "\n", "   ", 
      RowBox[{"RandomVariate", "[", 
       RowBox[{"dist", ",", " ", "10000"}], "]"}]}]}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"cdist", " ", "=", " ", 
   RowBox[{"ChiSquareDistribution", "[", 
    RowBox[{"n", " ", "-", " ", "p"}], "]"}]}], ";"}], "\n", 
 RowBox[{"Show", "[", 
  RowBox[{
   RowBox[{"Histogram", "[", 
    RowBox[{"tmp", ",", " ", "Automatic", ",", " ", "\"\<PDF\>\""}], "]"}], 
   ",", "\n", " ", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"PDF", "[", "cdist", "]"}], "[", "x", "]"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"x", ",", " ", "0", ",", " ", "5"}], "}"}], ",", " ", 
     RowBox[{"PlotRange", " ", "->", " ", 
      RowBox[{"{", 
       RowBox[{"0", ",", " ", "2"}], "}"}]}]}], "]"}]}], "]"}]}], "Input",Expr\
essionUUID->"8e1ba2e7-ac23-654b-8a07-c3b48a6187e1"],

Cell[BoxData[{
 RowBox[{"uh", " ", ":=", " ", 
  RowBox[{
   RowBox[{"Transpose", "[", "A", "]"}], " ", ".", " ", "betah"}]}], "\n", 
 RowBox[{"M", " ", ":=", " ", 
  RowBox[{
   RowBox[{"Transpose", "[", "A", "]"}], " ", ".", " ", 
   RowBox[{"Inverse", "[", 
    RowBox[{
     RowBox[{"Transpose", "[", "X", "]"}], " ", ".", " ", "X"}], "]"}], " ", 
   ".", " ", "A"}]}], "\n", 
 RowBox[{"r", " ", ":=", " ", 
  RowBox[{"MatrixRank", "[", "A", "]"}]}], "\n", 
 RowBox[{"F", " ", ":=", " ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"uh", " ", "-", " ", "u"}], ")"}], " ", ".", " ", 
     RowBox[{"Inverse", "[", "M", "]"}], " ", ".", " ", 
     RowBox[{"(", 
      RowBox[{"uh", " ", "-", " ", "u"}], ")"}]}], "/", "r"}], "/", 
   "s2"}]}], "\n", 
 RowBox[{"fdist", " ", ":=", " ", 
  RowBox[{"FRatioDistribution", "[", 
   RowBox[{"r", ",", " ", 
    RowBox[{"n", " ", "-", " ", "p"}]}], "]"}]}], "\n", 
 RowBox[{
  RowBox[{"pvalue", " ", ":=", " ", 
   RowBox[{"1", " ", "-", " ", 
    RowBox[{"CDF", "[", 
     RowBox[{"fdist", ",", " ", "F"}], "]"}]}]}], "\n"}], "\n", 
 RowBox[{"Y", " ", ":=", " ", "y", " ", 
  RowBox[{"(*", " ", 
   RowBox[{
   "\:3053\:306e\:5148", "\:ff0c", 
    "\:5b9f\:73fe\:5024\:306e\:307f\:3092\:6271\:3046", "\:ff0e"}], 
   "*)"}]}], "\n", 
 RowBox[{
  RowBox[{"A", " ", "=", " ", 
   RowBox[{"Transpose", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"0", ",", " ", "1", ",", " ", "0"}], "}"}], ",", " ", 
      RowBox[{"{", 
       RowBox[{"0", ",", " ", "0", ",", " ", "1"}], "}"}]}], "}"}], "]"}]}], 
  ";", " ", 
  RowBox[{"u", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"0", ",", " ", "0"}], "}"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"{", 
   RowBox[{"F", ",", " ", "pvalue"}], "}"}], " ", "//", " ", "N"}]}], "Input",\
ExpressionUUID->"38af91de-59ed-c94a-a5ca-f932bdccdb1a"],

Cell[BoxData[
 RowBox[{"model", "[", "\"\<ParameterTable\>\"", "]"}]], "Input",ExpressionUUI\
D->"6e720f4c-2c39-4c46-90c7-fb9245f439a9"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"u", " ", "=", " ", 
   RowBox[{"{", "0", "}"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"A", " ", "=", " ", 
   RowBox[{"Transpose", "[", 
    RowBox[{"{", 
     RowBox[{"{", 
      RowBox[{"1", ",", " ", "0", ",", " ", "0"}], "}"}], "}"}], "]"}]}], ";",
   " ", 
  RowBox[{"pvalue", " ", "//", " ", "N", " ", 
   RowBox[{"(*", " ", 
    RowBox[{"k", " ", "=", " ", "0"}], " ", "*)"}]}]}], "\n", 
 RowBox[{
  RowBox[{"A", " ", "=", " ", 
   RowBox[{"Transpose", "[", 
    RowBox[{"{", 
     RowBox[{"{", 
      RowBox[{"0", ",", " ", "1", ",", " ", "0"}], "}"}], "}"}], "]"}]}], ";",
   " ", 
  RowBox[{"pvalue", " ", "//", " ", "N", " ", 
   RowBox[{"(*", " ", 
    RowBox[{"k", " ", "=", " ", "1"}], " ", "*)"}]}]}], "\n", 
 RowBox[{
  RowBox[{"A", " ", "=", " ", 
   RowBox[{"Transpose", "[", 
    RowBox[{"{", 
     RowBox[{"{", 
      RowBox[{"0", ",", " ", "0", ",", " ", "1"}], "}"}], "}"}], "]"}]}], ";",
   " ", 
  RowBox[{"pvalue", " ", "//", " ", "N", " ", 
   RowBox[{"(*", " ", 
    RowBox[{"k", " ", "=", " ", "2"}], " ", "*)"}]}]}]}], "Input",ExpressionUU\
ID->"512aca60-ae2b-4a46-8cff-e01e853c838c"],

Cell[BoxData[{
 RowBox[{"s", " ", ":=", " ", 
  RowBox[{"Sqrt", "[", 
   RowBox[{"s2", " ", 
    RowBox[{"Diagonal", "[", 
     RowBox[{"Inverse", "[", 
      RowBox[{
       RowBox[{"Transpose", "[", "X", "]"}], " ", ".", " ", "X"}], "]"}], 
     "]"}]}], "]"}]}], "\n", 
 RowBox[{"s", " ", "//", " ", "N"}]}], "Input",ExpressionUUID->"f21b2e6c-f4f1-\
a340-b900-178686317d29"],

Cell[BoxData[{
 RowBox[{"t", " ", ":=", " ", 
  RowBox[{"betah", "/", "s"}]}], "\n", 
 RowBox[{"t", " ", "//", " ", "N"}]}], "Input",ExpressionUUID->"36071ae7-d414-\
4e44-b356-8509c5db1430"],

Cell[BoxData[{
 RowBox[{"tdist", " ", ":=", " ", 
  RowBox[{"StudentTDistribution", "[", 
   RowBox[{"n", " ", "-", " ", "p"}], "]"}]}], "\n", 
 RowBox[{
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"2", " ", 
     RowBox[{"Min", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"CDF", "[", "tdist", "]"}], "[", "v", "]"}], ",", " ", 
       RowBox[{"1", " ", "-", " ", 
        RowBox[{
         RowBox[{"CDF", "[", "tdist", "]"}], "[", "v", "]"}]}]}], "]"}]}], 
    ",", " ", 
    RowBox[{"{", 
     RowBox[{"v", ",", " ", "t"}], "}"}]}], "]"}], " ", "//", " ", 
  "N"}]}], "Input",ExpressionUUID->"af71b118-bc5f-e946-864f-c239b7f0cd7d"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"data", " ", "=", " ", 
   RowBox[{"Transpose", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
       "35", ",", " ", "45", ",", " ", "55", ",", " ", "65", ",", " ", "75"}],
        "}"}], ",", " ", 
      RowBox[{"{", 
       RowBox[{
       "114", ",", " ", "124", ",", " ", "143", ",", " ", "158", ",", " ", 
        "166"}], "}"}]}], "}"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"alpha", " ", "=", " ", 
   RowBox[{"5", "/", "100"}]}], ";", " ", 
  RowBox[{"level", " ", ":=", " ", 
   RowBox[{"ConfidenceLevel", " ", "->", " ", 
    RowBox[{"1", " ", "-", " ", "alpha"}]}]}]}], "\n", 
 RowBox[{"model", "[", 
  RowBox[{"\"\<ParameterConfidenceIntervalTable\>\"", ",", " ", "level"}], 
  "]"}]}], "Input",ExpressionUUID->"41f7f4c0-e0ea-b741-91f8-0a4a480cff26"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"tmp", " ", "=", " ", 
   RowBox[{"InverseCDF", "[", 
    RowBox[{"tdist", ",", " ", 
     RowBox[{"1", " ", "-", " ", 
      RowBox[{"alpha", "/", "2"}]}]}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"betah", " ", "-", " ", 
      RowBox[{"s", " ", "tmp"}]}], ",", " ", 
     RowBox[{"betah", " ", "+", " ", 
      RowBox[{"s", " ", "tmp"}]}]}], "}"}], " ", "//", " ", "Transpose"}], 
  " ", "//", " ", "N"}]}], "Input",ExpressionUUID->"4dddfd01-46b3-8644-867c-\
ce66fa23a517"],

Cell[BoxData[{
 RowBox[{"cond", " ", ":=", " ", 
  RowBox[{"F", " ", "<=", " ", 
   RowBox[{"InverseCDF", "[", 
    RowBox[{"fdist", ",", " ", 
     RowBox[{"1", " ", "-", " ", "alpha"}]}], "]"}]}]}], "\n", 
 RowBox[{"confint", " ", ":=", " ", 
  RowBox[{"Reduce", "[", "cond", "]"}]}], "\n", 
 RowBox[{
  RowBox[{"A", " ", "=", " ", 
   RowBox[{"Transpose", "[", 
    RowBox[{"{", 
     RowBox[{"{", 
      RowBox[{"1", ",", " ", "0"}], "}"}], "}"}], "]"}]}], ";", " ", 
  RowBox[{"u", " ", "=", " ", 
   RowBox[{"{", "beta0", "}"}]}], ";", " ", 
  RowBox[{"confint", " ", "//", " ", "N", " ", 
   RowBox[{"(*", " ", 
    RowBox[{"k", " ", "=", " ", "0"}], " ", "*)"}]}]}], "\n", 
 RowBox[{
  RowBox[{"A", " ", "=", " ", 
   RowBox[{"Transpose", "[", 
    RowBox[{"{", 
     RowBox[{"{", 
      RowBox[{"0", ",", " ", "1"}], "}"}], "}"}], "]"}]}], ";", " ", 
  RowBox[{"u", " ", "=", " ", 
   RowBox[{"{", "beta1", "}"}]}], ";", " ", 
  RowBox[{"confint", " ", "//", " ", "N", " ", 
   RowBox[{"(*", " ", 
    RowBox[{"k", " ", "=", " ", "1"}], " ", "*)"}]}]}]}], "Input",ExpressionUU\
ID->"21ba80fe-9882-f343-bce1-369a9d1ff6cf"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"tmp", " ", "=", " ", 
   RowBox[{"model", "[", 
    RowBox[{"\"\<ParameterConfidenceIntervals\>\"", ",", " ", "level"}], 
    "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"g1", " ", "=", " ", 
   RowBox[{"Graphics", "[", 
    RowBox[{"{", 
     RowBox[{"Gray", ",", " ", 
      RowBox[{"Apply", "[", 
       RowBox[{"Rectangle", ",", " ", 
        RowBox[{"Transpose", "[", "tmp", "]"}]}], "]"}]}], "}"}], "]"}]}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{"g2", " ", "=", " ", 
   RowBox[{"Graphics", "[", 
    RowBox[{"model", "[", 
     RowBox[{"\"\<ParameterConfidenceRegion\>\"", ",", " ", "level"}], "]"}], 
    "]"}]}], ";"}], "\n", 
 RowBox[{"Show", "[", 
  RowBox[{"g1", ",", " ", "g2", ",", " ", 
   RowBox[{"AspectRatio", " ", "->", " ", "1"}], ",", " ", 
   RowBox[{"Frame", " ", "->", " ", "True"}]}], "]"}]}], "Input",ExpressionUUI\
D->"13a38f1a-cd73-1949-8ad9-2dfea6f7b795"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"A", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"1", ",", " ", "0"}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"0", ",", " ", "1"}], "}"}]}], "}"}]}], ";", " ", 
  RowBox[{"u", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"beta0", ",", " ", "beta1"}], "}"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"g3", " ", "=", " ", 
   RowBox[{"RegionPlot", "[", 
    RowBox[{"ImplicitRegion", "[", 
     RowBox[{
      RowBox[{"N", "[", "cond", "]"}], ",", " ", 
      RowBox[{"Evaluate", "[", "u", "]"}]}], "]"}], "]"}]}], ";"}], "\n", 
 RowBox[{"Show", "[", 
  RowBox[{"g1", ",", " ", "g3", ",", " ", 
   RowBox[{"AspectRatio", " ", "->", " ", "1"}], ",", " ", 
   RowBox[{"Frame", " ", "->", " ", "True"}]}], "]"}]}], "Input",ExpressionUUI\
D->"1db8d7ee-2d46-b749-8e90-965e68cdfd08"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"data", " ", "=", " ", 
   RowBox[{"Transpose", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
       "35", ",", " ", "45", ",", " ", "55", ",", " ", "65", ",", " ", "75"}],
        "}"}], ",", " ", 
      RowBox[{"{", 
       RowBox[{
       "114", ",", " ", "124", ",", " ", "143", ",", " ", "158", ",", " ", 
        "166"}], "}"}]}], "}"}], "]"}]}], ";"}], "\n", 
 RowBox[{"g", " ", "=", " ", 
  RowBox[{"Show", "[", 
   RowBox[{
    RowBox[{"ListPlot", "[", "data", "]"}], ",", " ", 
    RowBox[{"Plot", "[", 
     RowBox[{
      RowBox[{"model", "[", "x1", "]"}], ",", " ", 
      RowBox[{"{", 
       RowBox[{"x1", ",", " ", "35", ",", " ", "75"}], "}"}]}], "]"}], ",", 
    "\n", "  ", 
    RowBox[{"Plot", "[", 
     RowBox[{
      RowBox[{"Evaluate", "[", 
       RowBox[{"model", "[", 
        RowBox[{"\"\<MeanPredictionBands\>\"", ",", " ", "level"}], "]"}], 
       "]"}], ",", "\n", "   ", 
      RowBox[{"Evaluate", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"vars", "[", 
          RowBox[{"[", "1", "]"}], "]"}], ",", " ", "35", ",", " ", "75"}], 
        "}"}], "]"}], ",", " ", 
      RowBox[{"PlotStyle", " ", "->", " ", "Dashed"}]}], "]"}]}], 
   "]"}]}]}], "Input",ExpressionUUID->"040b786f-8fa4-7542-855f-e8bf848b3d14"],

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{
   RowBox[{"ListPlot", "[", "data", "]"}], ",", " ", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"model", "[", "x1", "]"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"x1", ",", " ", "35", ",", " ", "75"}], "}"}]}], "]"}], ",", 
   "\n", "   ", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"Evaluate", "[", 
      RowBox[{"model", "[", 
       RowBox[{"\"\<SinglePredictionBands\>\"", ",", " ", "level"}], "]"}], 
      "]"}], ",", "\n", "     ", 
     RowBox[{"Evaluate", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"vars", "[", 
         RowBox[{"[", "1", "]"}], "]"}], ",", " ", "35", ",", " ", "75"}], 
       "}"}], "]"}], ",", " ", 
     RowBox[{"PlotStyle", " ", "->", " ", "Dashed"}]}], "]"}]}], 
  "]"}]], "Input",ExpressionUUID->"fdc7ad12-75a2-794e-be5f-a41970bcd894"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"A", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", "1", "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"vars", "[", 
       RowBox[{"[", "1", "]"}], "]"}], "}"}]}], "}"}]}], ";", " ", 
  RowBox[{"u", " ", "=", " ", 
   RowBox[{"{", "Yp", "}"}]}], ";"}], "\n", 
 RowBox[{"Show", "[", 
  RowBox[{"g", ",", " ", 
   RowBox[{"RegionPlot", "[", 
    RowBox[{
     RowBox[{"Evaluate", "[", "cond", "]"}], ",", "\n", "  ", 
     RowBox[{"Evaluate", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"vars", "[", 
         RowBox[{"[", "1", "]"}], "]"}], ",", " ", "35", ",", " ", "75"}], 
       "}"}], "]"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"Yp", ",", " ", "0", ",", " ", "200"}], "}"}], ",", " ", 
     RowBox[{"BoundaryStyle", " ", "->", " ", "None"}]}], "]"}]}], 
  "]"}]}], "Input",ExpressionUUID->"d89897aa-cbeb-7f45-bfdb-6cfcd309f655"]
}, Closed]],

Cell[CellGroupData[{

Cell["12 \:95a2\:6570\:306e\:6975\:9650\:3068\:9023\:7d9a\:6027", "Chapter",
 PageBreakAbove->True,ExpressionUUID->"017f9dd8-32c7-f041-aac0-da9ea0c9efb2"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Clear", "[", "\"\<Global`*\>\"", "]"}], ";"}]], "Input",ExpressionU\
UID->"3e6036a1-3323-5a4e-a685-d6f1915ea857"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"f", "[", "x_", "]"}], " ", ":=", " ", 
  RowBox[{
   RowBox[{"2", " ", "x"}], " ", "-", " ", "3"}]}], "\n", 
 RowBox[{"Limit", "[", 
  RowBox[{
   RowBox[{"f", "[", "x", "]"}], ",", " ", 
   RowBox[{"x", " ", "->", " ", "1"}]}], "]"}]}], "Input",ExpressionUUID->\
"70e8b16e-a8db-4c49-84c6-5ab0bd760951"],

Cell[BoxData[
 RowBox[{"Limit", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"2", " ", "x"}], " ", "-", " ", "3"}], ",", " ", 
   RowBox[{"x", " ", "->", " ", "1"}]}], "]"}]], "Input",ExpressionUUID->\
"4ee87785-2607-0946-b1a8-04daa7e9de52"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"f", "[", "x_", "]"}], " ", ":=", " ", 
  RowBox[{"Piecewise", "[", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"x", "^", "2"}], ",", " ", 
       RowBox[{"x", " ", "!=", " ", "2"}]}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"3", ",", " ", 
       RowBox[{"x", " ", "==", " ", "2"}]}], "}"}]}], "}"}], "]"}]}], "\n", 
 RowBox[{"Limit", "[", 
  RowBox[{
   RowBox[{"f", "[", "x", "]"}], ",", " ", 
   RowBox[{"x", " ", "->", " ", "2"}]}], "]"}]}], "Input",ExpressionUUID->\
"16054311-9645-7844-8bcf-eeb2d21ddb73"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"g", "[", "x_", "]"}], " ", ":=", " ", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{"x", "^", "2"}], " ", "-", " ", "2"}], ")"}], "/", 
   RowBox[{"(", 
    RowBox[{"x", " ", "-", " ", 
     RowBox[{"Sqrt", "[", "2", "]"}]}], ")"}]}]}], "\n", 
 RowBox[{"Limit", "[", 
  RowBox[{
   RowBox[{"g", "[", "x", "]"}], ",", " ", 
   RowBox[{"x", " ", "->", " ", 
    RowBox[{"Sqrt", "[", "2", "]"}]}]}], "]"}]}], "Input",ExpressionUUID->\
"1004343c-2377-284d-b726-8e99090b8971"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"A", " ", ":=", " ", 
   RowBox[{"ForAll", "[", 
    RowBox[{"epsilon", ",", " ", 
     RowBox[{"epsilon", " ", ">", " ", "0"}], ",", " ", 
     RowBox[{"Exists", "[", 
      RowBox[{"delta", ",", " ", 
       RowBox[{"delta", " ", ">", " ", "0"}], ",", " ", "B"}], "]"}]}], 
    "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"B", " ", ":=", " ", 
   RowBox[{"ForAll", "[", 
    RowBox[{"x", ",", " ", 
     RowBox[{"Element", "[", 
      RowBox[{"x", ",", " ", "Reals"}], "]"}], ",", "\n", "  ", 
     RowBox[{"Implies", "[", 
      RowBox[{
       RowBox[{"0", " ", "<", " ", 
        RowBox[{"Norm", "[", 
         RowBox[{"x", " ", "-", " ", "a"}], "]"}], " ", "<", " ", "delta"}], 
       ",", " ", 
       RowBox[{
        RowBox[{"Norm", "[", 
         RowBox[{
          RowBox[{"f", "[", "x", "]"}], " ", "-", " ", "alpha"}], "]"}], " ", 
        "<", " ", "epsilon"}]}], "]"}]}], "]"}]}], "\n"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"f", "[", "x_", "]"}], " ", ":=", " ", 
   RowBox[{
    RowBox[{"2", " ", "x"}], " ", "-", " ", "3"}]}], ";", " ", 
  RowBox[{"a", " ", "=", " ", "1"}], ";", " ", 
  RowBox[{"alpha", " ", "=", " ", 
   RowBox[{"-", "1"}]}], ";"}], "\n", 
 RowBox[{"Reduce", "[", 
  RowBox[{"A", ",", " ", "Reals"}], "]"}]}], "Input",ExpressionUUID->\
"97480b9a-9996-e14b-b1b7-90abfaf345d1"],

Cell[BoxData[
 RowBox[{"Simplify", "[", 
  RowBox[{
   RowBox[{"Reduce", "[", 
    RowBox[{"B", ",", " ", "Reals"}], "]"}], ",", " ", 
   RowBox[{"epsilon", " ", ">", " ", "0"}]}], "]"}]], "Input",ExpressionUUID->\
"f8eebaac-b40d-5046-9348-38483998ef02"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "alpha", "]"}], ";"}], "\n", 
 RowBox[{"Reduce", "[", 
  RowBox[{"A", ",", " ", "Reals"}], "]"}]}], "Input",ExpressionUUID->\
"f47d729e-3954-9647-986f-1b8cdaf79ed5"],

Cell[BoxData[
 RowBox[{"Limit", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", " ", "+", " ", 
      RowBox[{"1", "/", "x"}]}], ")"}], "^", "x"}], ",", " ", 
   RowBox[{"x", " ", "->", " ", "Infinity"}]}], "]"}]], "Input",ExpressionUUID\
->"9a0ed22a-7d37-234c-9838-d1bd136635e2"],

Cell[BoxData[
 RowBox[{"Limit", "[", 
  RowBox[{
   RowBox[{"1", "/", 
    RowBox[{"x", "^", "2"}]}], ",", " ", 
   RowBox[{"x", " ", "->", " ", "0"}]}], "]"}]], "Input",ExpressionUUID->\
"107780ab-f87b-2e48-9d6e-79a385e148eb"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"Limit", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"RealAbs", "[", "x", "]"}], "/", "x"}], ",", " ", 
     RowBox[{"x", " ", "->", " ", "0"}], ",", " ", 
     RowBox[{"Direction", " ", "->", " ", "\"\<FromAbove\>\""}]}], "]"}], ",",
    "\n", " ", 
   RowBox[{"Limit", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"RealAbs", "[", "x", "]"}], "/", "x"}], ",", " ", 
     RowBox[{"x", " ", "->", " ", "0"}], ",", " ", 
     RowBox[{"Direction", " ", "->", " ", "\"\<FromBelow\>\""}]}], "]"}]}], 
  "}"}]], "Input",ExpressionUUID->"ddc3646d-88af-d84f-aeb9-b2a243379480"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Clear", "[", "\"\<Global`*\>\"", "]"}], ";"}]], "Input",ExpressionU\
UID->"c852a955-1514-6a48-8402-0971f0dfeadb"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", 
   RowBox[{"f", ",", " ", "g", ",", " ", "x"}], "]"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"f", "[", "x_", "]"}], " ", ":=", " ", 
  RowBox[{"Piecewise", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"RealAbs", "[", "x", "]"}], "/", "x"}], ",", " ", 
       RowBox[{"x", " ", "!=", " ", "0"}]}], "}"}], "}"}], ",", " ", 
    "Undefined"}], "]"}]}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"g", "[", "x_", "]"}], " ", ":=", " ", 
   RowBox[{"Piecewise", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"x", "^", "2"}], " ", "-", " ", "2"}], ")"}], "/", 
         RowBox[{"(", 
          RowBox[{"x", " ", "-", " ", 
           RowBox[{"Sqrt", "[", "2", "]"}]}], ")"}]}], ",", " ", 
        RowBox[{"x", " ", "!=", " ", 
         RowBox[{"Sqrt", "[", "2", "]"}]}]}], "}"}], "}"}], ",", " ", 
     "Undefined"}], "]"}]}], "\n"}], "\n", 
 RowBox[{
  RowBox[{"ResourceFunction", "[", "\"\<EnhancedPlot\>\"", "]"}], "[", 
  RowBox[{
   RowBox[{"f", "[", "x", "]"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"x", ",", " ", 
     RowBox[{"-", "1"}], ",", " ", "1"}], "}"}], ",", " ", 
   RowBox[{"\"\<FindExceptions\>\"", " ", "->", " ", "True"}]}], "]"}], "\n", 
 RowBox[{
  RowBox[{"ResourceFunction", "[", "\"\<EnhancedPlot\>\"", "]"}], "[", 
  RowBox[{
   RowBox[{"g", "[", "x", "]"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"x", ",", " ", "0", ",", " ", "2"}], "}"}], ",", "  ", 
   RowBox[{"\"\<FindExceptions\>\"", " ", "->", " ", "True"}]}], 
  "]"}]}], "Input",ExpressionUUID->"38327dda-7b31-fd45-8c8b-a43d1057b4f9"],

Cell[BoxData[{
 RowBox[{"FunctionContinuous", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"f", "[", "x", "]"}], ",", " ", 
     RowBox[{"x", " ", "!=", " ", "0"}]}], "}"}], ",", " ", "x"}], 
  "]"}], "\n", 
 RowBox[{"FunctionContinuous", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"g", "[", "x", "]"}], ",", " ", 
     RowBox[{"x", " ", "!=", " ", 
      RowBox[{"Sqrt", "[", "2", "]"}]}]}], "}"}], ",", " ", "x"}], 
  "]"}]}], "Input",ExpressionUUID->"ce74d5f8-ca1f-9341-b639-1bf51cb7e1aa"]
}, Closed]],

Cell[CellGroupData[{

Cell["13 \:5fae\:5206", "Chapter",
 PageBreakAbove->True,ExpressionUUID->"1847cfb3-e181-3b42-bae2-c73cc55fa45e"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Clear", "[", "\"\<Global`*\>\"", "]"}], ";"}]], "Input",ExpressionU\
UID->"1b7d4925-e7cf-254c-a770-77f10c49c0b9"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"f", "[", "x_", "]"}], " ", ":=", " ", 
  RowBox[{"x", "^", "3"}]}], "\n", 
 RowBox[{
  RowBox[{"f", "'"}], "[", "1", "]"}]}], "Input",ExpressionUUID->"d706823b-\
4408-f043-956d-05fe471cc50b"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"a", " ", "=", " ", "1"}], ";"}], "\n", 
 RowBox[{"Limit", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"f", "[", 
       RowBox[{"a", " ", "+", " ", "h"}], "]"}], " ", "-", " ", 
      RowBox[{"f", "[", "a", "]"}]}], ")"}], "/", "h"}], ",", " ", 
   RowBox[{"h", " ", "->", " ", "0"}]}], "]"}]}], "Input",ExpressionUUID->\
"306af12b-8ac4-524b-b7f2-8d9d5e3251b8"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"f", "[", "x_", "]"}], " ", ":=", " ", 
  RowBox[{"x", "^", "3"}]}], "\n", 
 RowBox[{
  RowBox[{"f", "'"}], "[", "x", "]"}]}], "Input",ExpressionUUID->"2b9e493b-\
6e57-3147-acaf-d0bea138f72a"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"f", "[", "x_", "]"}], " ", ":=", " ", 
  RowBox[{"x", "^", "3"}]}], "\n", 
 RowBox[{
  RowBox[{"f1", " ", "=", " ", 
   RowBox[{"f", "'"}]}], "          ", 
  RowBox[{"(*", " ", "\:65b9\:6cd51", " ", "*)"}]}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"Derivative", "[", "1", "]"}], "[", "f", "]"}], " ", 
  RowBox[{"(*", " ", "\:65b9\:6cd52", " ", "*)"}]}], "\n", 
 RowBox[{
  RowBox[{"f2", " ", "=", " ", 
   RowBox[{
    RowBox[{"f", "'"}], "[", "x", "]"}]}], "       ", 
  RowBox[{"(*", " ", "\:65b9\:6cd51", " ", "*)"}]}], "\n", 
 RowBox[{
  RowBox[{"D", "[", 
   RowBox[{
    RowBox[{"f", "[", "x", "]"}], ",", " ", "x"}], "]"}], "       ", 
  RowBox[{"(*", " ", "\:65b9\:6cd52", " ", "*)"}]}]}], "Input",ExpressionUUID->\
"332fef29-e549-574f-af0f-7312058e1996"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"f1", "[", "1", "]"}], ",", " ", 
   RowBox[{"f2", " ", "/.", " ", 
    RowBox[{"x", " ", "->", " ", "1"}]}]}], "}"}]], "Input",ExpressionUUID->\
"2deb7c73-4b31-0642-a5f1-ba312ff73473"],

Cell[BoxData[
 RowBox[{"D", "[", 
  RowBox[{
   RowBox[{"x", "^", "3"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"x", ",", " ", "2"}], "}"}]}], "]"}]], "Input",ExpressionUUID->\
"a25da413-1a9f-0d48-aaaf-d36b165dd7d7"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", 
   RowBox[{"a", ",", " ", "b", ",", " ", "f", ",", " ", "g"}], "]"}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{"f", "[", "t_", "]"}], " ", ":=", " ", 
  RowBox[{"t", "^", "2"}]}], "\n", 
 RowBox[{
  RowBox[{"g", "[", "x_", "]"}], " ", ":=", " ", 
  RowBox[{
   RowBox[{"a", " ", "x"}], " ", "+", " ", "b"}]}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"Composition", "[", 
     RowBox[{"f", ",", " ", "g"}], "]"}], "'"}], "[", "x", "]"}], 
  "                ", 
  RowBox[{"(*", " ", "\:2460", " ", "*)"}]}], "\n", 
 RowBox[{
  RowBox[{"D", "[", 
   RowBox[{
    RowBox[{"f", "[", 
     RowBox[{"g", "[", "x", "]"}], "]"}], ",", " ", "x"}], "]"}], 
  "                        ", 
  RowBox[{"(*", " ", "\:2461", " ", "*)"}]}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{"D", "[", 
      RowBox[{
       RowBox[{"f", "[", "t", "]"}], ",", " ", "t"}], "]"}], " ", "/.", " ", 
     RowBox[{"t", " ", "->", " ", 
      RowBox[{"g", "[", "x", "]"}]}]}], ")"}], " ", 
   RowBox[{"D", "[", 
    RowBox[{
     RowBox[{"g", "[", "x", "]"}], ",", " ", "x"}], "]"}]}], " ", 
  RowBox[{"(*", " ", "\:2462", " ", "*)"}]}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"f", "'"}], "[", 
   RowBox[{"g", "[", "x", "]"}], "]"}], " ", 
  RowBox[{
   RowBox[{"g", "'"}], "[", "x", "]"}], "                       ", 
  RowBox[{"(*", " ", "\:2463", " ", "*)"}]}]}], "Input",ExpressionUUID->\
"7879efe4-a8d4-6049-9c45-c199b6251989"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Clear", "[", "\"\<Global`*\>\"", "]"}], ";"}]], "Input",ExpressionU\
UID->"90d4546a-b8d0-1347-9096-c39318e6f17f"],

Cell[BoxData[
 RowBox[{"tmp", " ", "=", " ", 
  RowBox[{"Series", "[", 
   RowBox[{
    RowBox[{"Sin", "[", "x", "]"}], ",", " ", 
    RowBox[{"{", 
     RowBox[{"x", ",", " ", "0", ",", " ", "5"}], "}"}]}], "]"}]}]], "Input",E\
xpressionUUID->"7757404c-43b1-4b40-ae9a-0f7028213706"],

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"Evaluate", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Normal", "[", "tmp", "]"}], ",", " ", 
      RowBox[{"Sin", "[", "x", "]"}]}], "}"}], "]"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"x", ",", " ", 
     RowBox[{"-", "Pi"}], ",", " ", "Pi"}], "}"}]}], "]"}]], "Input",Expressio\
nUUID->"5bb0b3b7-9c16-914c-8ee3-515d58fe43ce"],

Cell[BoxData[
 RowBox[{
  RowBox[{"a", " ", "=", " ", "0"}], ";", " ", 
  RowBox[{"Sum", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"Derivative", "[", "k", "]"}], "[", "Sin", "]"}], "[", "a", 
      "]"}], " ", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"x", " ", "-", " ", "a"}], ")"}], "^", "k"}], "/", 
      RowBox[{"k", "!"}]}]}], ",", " ", 
    RowBox[{"{", 
     RowBox[{"k", ",", " ", "0", ",", " ", "5"}], "}"}]}], "]"}]}]], "Input",E\
xpressionUUID->"51fa91a3-d2c9-7b4a-8687-b38a4e0c15e0"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"f", "[", "x_", "]"}], " ", ":=", " ", 
  RowBox[{"Sqrt", "[", 
   RowBox[{"1", " ", "+", " ", "x"}], "]"}]}], "\n", 
 RowBox[{"Series", "[", 
  RowBox[{
   RowBox[{"f", "[", "x", "]"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"x", ",", " ", "0", ",", " ", "7"}], "}"}]}], "]"}]}], "Input",Exp\
ressionUUID->"455cf222-08b9-1646-8850-faeedfb8c3ff"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"fn", "[", 
   RowBox[{"n_", ",", " ", "a_", ",", " ", "x_"}], "]"}], " ", ":=", " ", 
  RowBox[{"Sum", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"Derivative", "[", "k", "]"}], "[", "f", "]"}], "[", "a", 
      "]"}], " ", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"x", " ", "-", " ", "a"}], ")"}], "^", "k"}], "/", 
      RowBox[{"k", "!"}]}]}], ",", " ", 
    RowBox[{"{", 
     RowBox[{"k", ",", " ", "0", ",", " ", "n"}], "}"}], ",", "\n", "  ", 
    RowBox[{"GenerateConditions", " ", "->", " ", "True"}]}], "]"}]}], "\n", 
 RowBox[{"Reduce", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"f", "[", "x", "]"}], " ", "==", " ", 
    RowBox[{"fn", "[", 
     RowBox[{"Infinity", ",", " ", "0", ",", " ", "x"}], "]"}]}], ",", " ", 
   "Reals"}], "]"}]}], "Input",ExpressionUUID->"a8cee5ef-703a-5e48-91e6-\
13aa1ef368fe"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"f", "[", "x_", "]"}], " ", ":=", " ", 
  RowBox[{"Piecewise", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Exp", "[", 
        RowBox[{
         RowBox[{"-", "1"}], "/", 
         RowBox[{"x", "^", "2"}]}], "]"}], ",", " ", 
       RowBox[{"x", " ", "!=", " ", "0"}]}], "}"}], "}"}], ",", " ", "0"}], 
   "]"}]}], "\n", 
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"f", "[", "x", "]"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"x", ",", " ", 
     RowBox[{"-", "1"}], ",", " ", "1"}], "}"}]}], "]"}], "\n", 
 RowBox[{"Reduce", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"f", "[", "x", "]"}], " ", "==", " ", 
    RowBox[{"fn", "[", 
     RowBox[{"Infinity", ",", " ", "0", ",", " ", "x"}], "]"}]}], ",", " ", 
   "Reals"}], "]"}]}], "Input",ExpressionUUID->"c811c6e0-f697-2b4e-8fb9-\
78b2aef83af2"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Derivative", "[", "k", "]"}], "[", "f", "]"}], "[", "0", 
  "]"}]], "Input",ExpressionUUID->"f26ee2e3-e610-084a-bd9c-854e78c41d13"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"f", "[", "x_", "]"}], " ", ":=", " ", 
  RowBox[{
   RowBox[{"x", "^", "3"}], " ", "-", " ", 
   RowBox[{"12", " ", "x"}]}]}], "\n", 
 RowBox[{
  RowBox[{"ResourceFunction", "[", "\"\<LocalExtrema\>\"", "]"}], "[", 
  RowBox[{
   RowBox[{"f", "[", "x", "]"}], ",", " ", "x"}], "]"}]}], "Input",ExpressionU\
UID->"3e407748-a4ff-ba4d-b24d-5200f62b0e6d"],

Cell[BoxData[{
 RowBox[{"sol", " ", "=", " ", 
  RowBox[{"SolveValues", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"f", "'"}], "[", "x", "]"}], " ", "==", " ", "0"}], ",", " ", 
    "x"}], "]"}]}], "\n", 
 RowBox[{"Series", "[", 
  RowBox[{
   RowBox[{"f", "[", "x", "]"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"x", ",", " ", 
     RowBox[{"sol", "[", 
      RowBox[{"[", "1", "]"}], "]"}], ",", " ", "2"}], "}"}]}], 
  "]"}]}], "Input",ExpressionUUID->"acd600ec-2d95-4643-b91c-08493cbd67f4"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", 
   RowBox[{"a", ",", " ", "delta"}], "]"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"f", "[", "x_", "]"}], " ", ":=", " ", 
  RowBox[{"Piecewise", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Exp", "[", 
        RowBox[{
         RowBox[{"-", "1"}], "/", 
         RowBox[{"x", "^", "2"}]}], "]"}], ",", " ", 
       RowBox[{"x", " ", "!=", " ", "0"}]}], "}"}], "}"}], ",", " ", "0"}], 
   "]"}]}], "\n", 
 RowBox[{"Reduce", "[", 
  RowBox[{
   RowBox[{"Exists", "[", 
    RowBox[{"delta", ",", " ", 
     RowBox[{"delta", " ", ">", " ", "0"}], ",", " ", 
     RowBox[{"ForAll", "[", 
      RowBox[{"x", ",", " ", 
       RowBox[{"Element", "[", 
        RowBox[{"x", ",", " ", "Reals"}], "]"}], ",", "\n", "   ", 
       RowBox[{"Implies", "[", 
        RowBox[{
         RowBox[{"0", " ", "<", " ", 
          RowBox[{"Norm", "[", 
           RowBox[{"x", " ", "-", " ", "a"}], "]"}], " ", "<", " ", "delta"}],
          ",", " ", 
         RowBox[{
          RowBox[{"f", "[", "a", "]"}], " ", "<", " ", 
          RowBox[{"f", "[", "x", "]"}]}]}], "]"}]}], "]"}]}], "]"}], ",", " ",
    "Reals"}], "]"}]}], "Input",ExpressionUUID->"881d2220-d3bf-384a-bb73-\
2b107d5f41b8"]
}, Closed]],

Cell[CellGroupData[{

Cell["14 \:7a4d\:5206", "Chapter",
 PageBreakAbove->True,ExpressionUUID->"d87e9d2e-bba4-8147-a747-fa0ca31bbc14"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Clear", "[", "\"\<Global`*\>\"", "]"}], ";"}]], "Input",ExpressionU\
UID->"851bad71-6157-0148-8421-f68500f46fa5"],

Cell[BoxData[
 RowBox[{"Integrate", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"-", 
     RowBox[{"x", "^", "2"}]}], " ", "+", " ", 
    RowBox[{"4", " ", "x"}], " ", "+", " ", "1"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"x", ",", " ", "1", ",", " ", "4"}], "}"}]}], "]"}]], "Input",Expr\
essionUUID->"daa924f2-f767-8a42-b22c-d433699f34bd"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"f", "[", "x_", "]"}], " ", ":=", " ", 
  RowBox[{
   RowBox[{"-", 
    RowBox[{"x", "^", "2"}]}], " ", "+", " ", 
   RowBox[{"4", " ", "x"}], " ", "+", " ", "1"}]}], "\n", 
 RowBox[{
  RowBox[{"Clear", "[", "x", "]"}], ";", " ", 
  RowBox[{"a", " ", "=", " ", "1"}], ";", " ", 
  RowBox[{"b", " ", "=", " ", "4"}], ";", " ", 
  RowBox[{"h", " ", "=", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"b", " ", "-", " ", "a"}], ")"}], "/", "n"}]}], ";"}], "\n", 
 RowBox[{"s", " ", "=", " ", 
  RowBox[{
   RowBox[{"Sum", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"f", "[", 
       RowBox[{"a", " ", "+", " ", 
        RowBox[{"k", " ", "h"}]}], "]"}], " ", "h"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"k", ",", " ", "1", ",", " ", "n"}], "}"}]}], "]"}], " ", "//", 
   " ", "Expand"}]}], "\n", 
 RowBox[{"Limit", "[", 
  RowBox[{"s", ",", " ", 
   RowBox[{"n", " ", "->", " ", "Infinity"}]}], "]"}]}], "Input",ExpressionUUI\
D->"cf0b39fb-b6be-764e-8f70-179628af7d18"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Clear", "[", "\"\<Global`*\>\"", "]"}], ";"}]], "Input",ExpressionU\
UID->"6ad99637-439d-9b4d-b3b3-55a4340cb0c9"],

Cell[BoxData[
 RowBox[{"Integrate", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"-", 
     RowBox[{"t", "^", "2"}]}], " ", "+", " ", 
    RowBox[{"4", " ", "t"}], " ", "+", " ", "1"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"t", ",", " ", "a", ",", " ", "x"}], "}"}]}], "]"}]], "Input",Expr\
essionUUID->"50786c22-59e5-5d43-9627-1e8c449b9c63"],

Cell[BoxData[
 RowBox[{"Integrate", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"-", 
     RowBox[{"x", "^", "2"}]}], " ", "+", " ", 
    RowBox[{"4", " ", "x"}], " ", "+", " ", "1"}], ",", " ", "x"}], 
  "]"}]], "Input",ExpressionUUID->"65f5d669-9e1d-4b4d-8678-85918c55de06"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", 
   RowBox[{"x", ",", " ", "y"}], "]"}], ";"}], "\n", 
 RowBox[{"DSolveValue", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"y", "'"}], "[", "x", "]"}], " ", "==", " ", 
    RowBox[{
     RowBox[{"-", 
      RowBox[{"x", "^", "2"}]}], " ", "+", " ", 
     RowBox[{"4", " ", "x"}], " ", "+", " ", "1"}]}], ",", " ", 
   RowBox[{"y", "[", "x", "]"}], ",", " ", "x"}], "]"}]}], "Input",ExpressionU\
UID->"1e61dd7f-02f2-d14e-a041-865901828fce"],

Cell[BoxData[
 RowBox[{"DSolveValue", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"y", "'"}], "[", "x", "]"}], " ", "==", " ", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{"x", "^", "2"}]}], " ", "+", " ", 
       RowBox[{"4", " ", "x"}], " ", "+", " ", "1"}]}], ",", " ", 
     RowBox[{
      RowBox[{"y", "[", "0", "]"}], " ", "==", " ", "1"}]}], "}"}], ",", " ", 
   RowBox[{"y", "[", "x", "]"}], ",", " ", "x"}], "]"}]], "Input",ExpressionUU\
ID->"85d2b70d-83f5-174d-a1dd-029cd7b531ea"],

Cell[BoxData[
 RowBox[{"tmp", " ", "=", " ", 
  RowBox[{"DSolveValue", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"y", "'"}], "[", "x", "]"}], " ", "==", " ", 
     RowBox[{
      RowBox[{"-", "x"}], " ", 
      RowBox[{"y", "[", "x", "]"}]}]}], ",", " ", 
    RowBox[{"y", "[", "x", "]"}], ",", " ", "x"}], "]"}]}]], "Input",Expressio\
nUUID->"cb566618-e870-7242-9b2a-a1477719b7c7"],

Cell[BoxData[
 RowBox[{"Reduce", "[", 
  RowBox[{
   RowBox[{"Integrate", "[", 
    RowBox[{"tmp", ",", " ", 
     RowBox[{"{", 
      RowBox[{"x", ",", " ", 
       RowBox[{"-", "Infinity"}], ",", " ", "Infinity"}], "}"}]}], "]"}], " ",
    "==", " ", "1"}], "]"}]], "Input",ExpressionUUID->"f850e51b-2017-0e40-\
a10d-5fcd2e949a3e"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", 
   RowBox[{"a", ",", " ", "f", ",", " ", "t", ",", " ", "x"}], "]"}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{"Function", "[", 
   RowBox[{"x", ",", " ", 
    RowBox[{"Evaluate", "[", 
     RowBox[{"Integrate", "[", 
      RowBox[{
       RowBox[{"f", "[", "t", "]"}], ",", " ", 
       RowBox[{"{", 
        RowBox[{"t", ",", " ", "a", ",", " ", "x"}], "}"}]}], "]"}], "]"}]}], 
   "]"}], "'"}]}], "Input",ExpressionUUID->"b5cc5caf-962d-c640-95e6-\
02eb4eacfc0c"],

Cell[BoxData[
 RowBox[{"D", "[", 
  RowBox[{
   RowBox[{"Integrate", "[", 
    RowBox[{
     RowBox[{"f", "[", "t", "]"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"t", ",", " ", "a", ",", " ", "x"}], "}"}]}], "]"}], ",", " ", 
   "x"}], "]"}]], "Input",ExpressionUUID->"4ef632e9-026b-5b44-9ef0-\
59e38f179012"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"F", " ", "=", " ", 
   RowBox[{"Integrate", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"-", 
       RowBox[{"x", "^", "2"}]}], " ", "+", " ", 
      RowBox[{"4", " ", "x"}], " ", "+", " ", "1"}], ",", " ", "x"}], "]"}]}],
   ";"}], "\n", 
 RowBox[{
  RowBox[{"(", 
   RowBox[{"F", " ", "/.", " ", 
    RowBox[{"x", " ", "->", " ", "4"}]}], ")"}], " ", "-", " ", 
  RowBox[{"(", 
   RowBox[{"F", " ", "/.", " ", 
    RowBox[{"x", " ", "->", " ", "1"}]}], ")"}]}]}], "Input",ExpressionUUID->\
"ebc8b83e-c013-e44e-95e4-8462133cb36c"],

Cell[BoxData[
 RowBox[{"Integrate", "[", 
  RowBox[{
   RowBox[{"Log", "[", 
    RowBox[{"Sin", "[", "x", "]"}], "]"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"x", ",", " ", "0", ",", " ", 
     RowBox[{"Pi", "/", "2"}]}], "}"}]}], "]"}]], "Input",ExpressionUUID->\
"81a10620-3de0-744a-86d9-d9520bb09f61"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"f", "[", "x_", "]"}], " ", ":=", " ", 
  RowBox[{"1", "/", 
   RowBox[{"(", 
    RowBox[{"2", " ", "+", " ", 
     RowBox[{"Cos", "[", "x", "]"}]}], ")"}]}]}], "\n", 
 RowBox[{
  RowBox[{"F1x", " ", "=", " ", 
   RowBox[{"Integrate", "[", 
    RowBox[{
     RowBox[{"f", "[", "x", "]"}], ",", " ", "x"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"(", 
   RowBox[{"F1x", " ", "/.", " ", 
    RowBox[{"x", " ", "->", " ", 
     RowBox[{"2", " ", "Pi"}]}]}], ")"}], " ", "-", " ", 
  RowBox[{"(", 
   RowBox[{"F1x", " ", "/.", " ", 
    RowBox[{"x", " ", "->", " ", "0"}]}], ")"}], " ", 
  RowBox[{"(*", " ", "\:4e0d\:6b63\:89e3", " ", "*)"}]}]}], "Input",Expression\
UUID->"820c3fbb-46c5-3144-90f2-21bd23ed0838"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"F2x", " ", "=", " ", 
   RowBox[{"Integrate", "[", 
    RowBox[{
     RowBox[{"f", "[", "t", "]"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"t", ",", " ", "0", ",", " ", "x"}], "}"}], ",", " ", 
     RowBox[{"GenerateConditions", " ", "->", " ", "True"}]}], "]"}]}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{"(", 
   RowBox[{"F2x", " ", "/.", " ", 
    RowBox[{"x", " ", "->", " ", 
     RowBox[{"2", " ", "Pi"}]}]}], ")"}], " ", "-", " ", 
  RowBox[{"(", 
   RowBox[{"F2x", " ", "/.", " ", 
    RowBox[{"x", " ", "->", " ", "0"}]}], ")"}], " ", 
  RowBox[{"(*", " ", "\:6b63\:89e3", " ", "*)"}]}]}], "Input",ExpressionUUID->\
"1c2d437b-a13e-d840-9da7-eef5528fdb78"],

Cell[BoxData[
 RowBox[{"GraphicsRow", "[", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"Plot", "[", 
     RowBox[{"F1x", ",", " ", 
      RowBox[{"{", 
       RowBox[{"x", ",", " ", "0", ",", " ", 
        RowBox[{"2", " ", "Pi"}]}], "}"}]}], "]"}], ",", " ", 
    RowBox[{"Plot", "[", 
     RowBox[{"F2x", ",", " ", 
      RowBox[{"{", 
       RowBox[{"x", ",", " ", "0", ",", " ", 
        RowBox[{"2", " ", "Pi"}]}], "}"}]}], "]"}]}], "}"}], "]"}]], "Input",E\
xpressionUUID->"19f83c5a-6ded-c146-888c-5f06e735e6db"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Clear", "[", "\"\<Global`*\>\"", "]"}], ";"}]], "Input",ExpressionU\
UID->"2a484aab-ad42-454b-8865-03e0197c4641"],

Cell[BoxData[
 RowBox[{"Integrate", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"p", " ", "x"}], " ", "+", " ", "q"}], ")"}], "^", "100"}], ",",
    " ", "x"}], "]"}]], "Input",ExpressionUUID->"1e56c264-b4ba-b84d-b8ad-\
bfe24ec405ba"],

Cell[BoxData[{
 RowBox[{"tmp", " ", "=", " ", 
  RowBox[{"IntegrateChangeVariables", "[", "\n", "  ", 
   RowBox[{
    RowBox[{
     RowBox[{"Inactive", "[", "Integrate", "]"}], "[", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"p", " ", "x"}], " ", "+", " ", "q"}], ")"}], "^", "100"}], 
      ",", " ", "x"}], "]"}], ",", " ", "u", ",", " ", 
    RowBox[{"u", " ", "==", " ", 
     RowBox[{
      RowBox[{"p", " ", "x"}], " ", "+", " ", "q"}]}]}], "]"}]}], "\n", 
 RowBox[{
  RowBox[{"Activate", "[", "tmp", "]"}], " ", "/.", " ", 
  RowBox[{"u", " ", "->", " ", 
   RowBox[{
    RowBox[{"p", " ", "x"}], " ", "+", " ", "q"}]}]}]}], "Input",ExpressionUUI\
D->"9d7292f1-a291-0d4d-8470-328dc43d915a"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", 
   RowBox[{"x", ",", " ", "y"}], "]"}], ";"}], "\n", 
 RowBox[{"IntegrateChangeVariables", "[", "\n", " ", 
  RowBox[{
   RowBox[{
    RowBox[{"Inactive", "[", "Integrate", "]"}], "[", 
    RowBox[{"1", ",", " ", 
     RowBox[{"{", 
      RowBox[{"x", ",", " ", "0", ",", " ", "t"}], "}"}]}], "]"}], ",", " ", 
   "y", ",", " ", 
   RowBox[{"x", " ", "==", " ", 
    RowBox[{"Sqrt", "[", "y", "]"}]}]}], "]"}]}], "Input",ExpressionUUID->\
"eb22a7b4-4e51-c040-9c10-83a4e44cff7e"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Clear", "[", "\"\<Global`*\>\"", "]"}], ";"}]], "Input",ExpressionU\
UID->"6f011233-9c06-274d-9786-120e6f9fb6e8"],

Cell[BoxData[
 RowBox[{"Integrate", "[", 
  RowBox[{
   RowBox[{"1", "/", 
    RowBox[{"x", "^", "a"}]}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"x", ",", " ", "0", ",", " ", "1"}], "}"}]}], "]"}]], "Input",Expr\
essionUUID->"5cd10e62-7854-4542-af3a-1bf7f1d3c90c"],

Cell[BoxData[
 RowBox[{"Integrate", "[", 
  RowBox[{
   RowBox[{"1", "/", 
    RowBox[{"x", "^", "a"}]}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"x", ",", " ", "1", ",", " ", "Infinity"}], "}"}]}], 
  "]"}]], "Input",ExpressionUUID->"debae180-42be-ee48-bdc3-a1fb1b868fb2"],

Cell[BoxData[
 RowBox[{"Integrate", "[", 
  RowBox[{
   RowBox[{"Exp", "[", 
    RowBox[{"-", 
     RowBox[{"x", "^", "2"}]}], "]"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"x", ",", " ", 
     RowBox[{"-", "Infinity"}], ",", " ", "Infinity"}], "}"}]}], 
  "]"}]], "Input",ExpressionUUID->"d4df11e5-c791-524e-a6a2-ecaaed689924"]
}, Closed]],

Cell[CellGroupData[{

Cell["15 \:591a\:5909\:6570\:95a2\:6570\:306e\:5fae\:5206\:7a4d\:5206", \
"Chapter",
 PageBreakAbove->True,ExpressionUUID->"5fa96266-def7-2b4f-b903-435ceeeba913"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Clear", "[", "\"\<Global`*\>\"", "]"}], ";"}]], "Input",ExpressionU\
UID->"539524db-3512-af43-994a-be846999a797"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"x", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"x1", ",", " ", "x2"}], "}"}]}], ";", " ", 
  RowBox[{
   RowBox[{"f", "[", 
    RowBox[{"{", 
     RowBox[{"x1_", ",", " ", "x2_"}], "}"}], "]"}], " ", ":=", " ", 
   RowBox[{"x1", " ", 
    RowBox[{
     RowBox[{"x2", "^", "2"}], "/", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"x1", "^", "2"}], " ", "+", " ", 
       RowBox[{"x2", "^", "2"}]}], ")"}]}]}]}]}], "\n", 
 RowBox[{"Limit", "[", 
  RowBox[{
   RowBox[{"f", "[", "x", "]"}], ",", " ", 
   RowBox[{"x", " ", "->", " ", 
    RowBox[{"{", 
     RowBox[{"0", ",", " ", "0"}], "}"}]}]}], "]"}]}], "Input",ExpressionUUID->\
"360b38c1-90b4-e348-a962-723b8ff1ba06"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"A", " ", ":=", " ", 
   RowBox[{"ForAll", "[", 
    RowBox[{"epsilon", ",", " ", 
     RowBox[{"epsilon", " ", ">", " ", "0"}], ",", " ", 
     RowBox[{"Exists", "[", 
      RowBox[{"delta", ",", " ", 
       RowBox[{"delta", " ", ">", " ", "0"}], ",", " ", "B"}], "]"}]}], 
    "]"}]}], ";"}], "\n", 
 RowBox[{"B", " ", ":=", " ", 
  RowBox[{"ForAll", "[", 
   RowBox[{
    RowBox[{"Evaluate", "[", "x", "]"}], ",", " ", 
    RowBox[{"Element", "[", 
     RowBox[{"x", ",", " ", "Reals"}], "]"}], ",", "\n", "  ", 
    RowBox[{"Implies", "[", 
     RowBox[{
      RowBox[{"0", " ", "<", " ", 
       RowBox[{"Norm", "[", 
        RowBox[{"x", " ", "-", " ", "a"}], "]"}], " ", "<", " ", "delta"}], 
      ",", " ", 
      RowBox[{
       RowBox[{"Norm", "[", 
        RowBox[{
         RowBox[{"f", "[", "x", "]"}], " ", "-", " ", "alpha"}], "]"}], " ", 
       "<", " ", "epsilon"}]}], "]"}]}], "]"}]}]}], "Input",ExpressionUUID->\
"5606d567-e432-9a4d-bdb8-e092e26fc3d7"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"a", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"0", ",", " ", "0"}], "}"}]}], ";", " ", 
  RowBox[{"alpha", " ", "=", " ", "0"}], ";"}], "\n", 
 RowBox[{"Reduce", "[", 
  RowBox[{"A", ",", " ", "Reals"}], "]"}]}], "Input",ExpressionUUID->\
"8b03464a-d61a-6849-b506-8dc7ff1e2bbe"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "alpha", "]"}], ";"}], "\n", 
 RowBox[{"Reduce", "[", 
  RowBox[{"A", ",", " ", "Reals"}], "]"}]}], "Input",ExpressionUUID->\
"7c064527-a5b8-1c42-ba79-a6ffadc3232e"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", 
   RowBox[{"x", ",", " ", "y"}], "]"}], ";", " ", 
  RowBox[{
   RowBox[{"f", "[", 
    RowBox[{"x_", ",", " ", "y_"}], "]"}], " ", ":=", " ", 
   RowBox[{
    RowBox[{"x", "^", "2"}], " ", 
    RowBox[{"y", "/", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"x", "^", "4"}], " ", "+", " ", 
       RowBox[{"y", "^", "2"}]}], ")"}]}]}]}]}], "\n", 
 RowBox[{"Limit", "[", 
  RowBox[{
   RowBox[{"f", "[", 
    RowBox[{"x", ",", " ", "y"}], "]"}], ",", " ", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"x", ",", " ", "y"}], "}"}], " ", "->", " ", 
    RowBox[{"{", 
     RowBox[{"0", ",", " ", "0"}], "}"}]}]}], "]"}]}], "Input",ExpressionUUID->\
"2ed54faf-bf1d-9843-bb72-2f113b5dfcba"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", 
   RowBox[{"x", ",", " ", "y", ",", " ", "r", ",", " ", "theta"}], "]"}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{"{", 
   RowBox[{
    RowBox[{"Limit", "[", 
     RowBox[{
      RowBox[{"Limit", "[", 
       RowBox[{
        RowBox[{"f", "[", 
         RowBox[{"x", ",", " ", "y"}], "]"}], ",", " ", 
        RowBox[{"x", " ", "->", " ", "0"}]}], "]"}], ",", " ", 
      RowBox[{"y", " ", "->", " ", "0"}]}], "]"}], ",", "        ", 
    RowBox[{"(*", " ", "\:2460", " ", "*)"}], "\n", " ", 
    RowBox[{"Limit", "[", 
     RowBox[{
      RowBox[{"Limit", "[", 
       RowBox[{
        RowBox[{"f", "[", 
         RowBox[{"x", ",", " ", "y"}], "]"}], ",", " ", 
        RowBox[{"y", " ", "->", " ", "0"}]}], "]"}], ",", " ", 
      RowBox[{"x", " ", "->", " ", "0"}]}], "]"}], ",", "        ", 
    RowBox[{"(*", " ", "\:2461", " ", "*)"}], "\n", " ", 
    RowBox[{"Limit", "[", 
     RowBox[{
      RowBox[{"f", "[", 
       RowBox[{
        RowBox[{"r", " ", 
         RowBox[{"Cos", "[", "theta", "]"}]}], ",", " ", 
        RowBox[{"r", " ", 
         RowBox[{"Sin", "[", "theta", "]"}]}]}], "]"}], ",", " ", 
      RowBox[{"r", " ", "->", " ", "0"}]}], "]"}], ",", " ", 
    RowBox[{"(*", " ", "\:2462", " ", "*)"}], "\n", " ", 
    RowBox[{"Limit", "[", 
     RowBox[{
      RowBox[{"f", "[", 
       RowBox[{"x", ",", " ", 
        RowBox[{"x", "^", "2"}]}], "]"}], ",", " ", 
      RowBox[{"x", " ", "->", " ", "0"}]}], "]"}]}], "}"}], 
  "                     ", 
  RowBox[{"(*", " ", "\:2463", " ", "*)"}]}]}], "Input",ExpressionUUID->\
"1f47d088-0b52-c742-a999-8c93c7f2c35a"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"f", "[", 
   RowBox[{"{", 
    RowBox[{"x1_", ",", " ", "x2_"}], "}"}], "]"}], " ", ":=", " ", 
  RowBox[{"Piecewise", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"{", 
      RowBox[{"0", ",", " ", 
       RowBox[{"x1", " ", "==", " ", "x2", " ", "==", " ", "0"}]}], "}"}], 
     "}"}], ",", " ", 
    RowBox[{"x1", " ", 
     RowBox[{
      RowBox[{"x2", "^", "2"}], "/", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"x1", "^", "2"}], " ", "+", " ", 
        RowBox[{"x2", "^", "2"}]}], ")"}]}]}]}], "]"}]}], "\n", 
 RowBox[{
  RowBox[{"x", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"x1", ",", " ", "x2"}], "}"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"FunctionContinuous", "[", 
   RowBox[{
    RowBox[{"f", "[", "x", "]"}], ",", " ", "x"}], "]"}], "           ", 
  RowBox[{"(*", " ", "\:65b9\:6cd51", " ", "*)"}]}], "\n", 
 RowBox[{
  RowBox[{"Limit", "[", 
   RowBox[{
    RowBox[{"f", "[", "x", "]"}], ",", " ", 
    RowBox[{"x", " ", "->", " ", 
     RowBox[{"{", 
      RowBox[{"0", ",", " ", "0"}], "}"}]}]}], "]"}], " ", "==", " ", 
  RowBox[{"f", "[", 
   RowBox[{"{", 
    RowBox[{"0", ",", " ", "0"}], "}"}], "]"}], " ", 
  RowBox[{"(*", " ", "\:65b9\:6cd52", " ", "*)"}]}]}], "Input",ExpressionUUID->\
"7f524b19-9789-0d47-9a74-7d11db9dac5c"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"f", "[", 
   RowBox[{"x_", ",", " ", "y_"}], "]"}], " ", ":=", " ", 
  RowBox[{"Piecewise", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"{", 
      RowBox[{"0", ",", " ", 
       RowBox[{"x", " ", "==", " ", "y", " ", "==", " ", "0"}]}], "}"}], 
     "}"}], ",", " ", 
    RowBox[{
     RowBox[{"x", "^", "2"}], " ", 
     RowBox[{"y", "/", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"x", "^", "4"}], " ", "+", " ", 
        RowBox[{"y", "^", "2"}]}], ")"}]}]}]}], "]"}]}], "\n", 
 RowBox[{
  RowBox[{"Clear", "[", 
   RowBox[{"x", ",", " ", "y"}], "]"}], ";", " ", 
  RowBox[{"FunctionContinuous", "[", 
   RowBox[{
    RowBox[{"f", "[", 
     RowBox[{"x", ",", " ", "y"}], "]"}], ",", " ", 
    RowBox[{"{", 
     RowBox[{"x", ",", " ", "y"}], "}"}]}], "]"}]}]}], "Input",ExpressionUUID->\
"87a89ddb-9888-ab4c-b6ef-0367d0998dc6"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Clear", "[", "\"\<Global`*\>\"", "]"}], ";"}]], "Input",ExpressionU\
UID->"ae4343b9-e40c-ed47-a064-41364f4e8b94"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"f", "[", 
   RowBox[{"x_", ",", " ", "y_"}], "]"}], " ", ":=", " ", 
  RowBox[{"2", " ", "-", " ", 
   RowBox[{"x", "^", "2"}], " ", "-", " ", 
   RowBox[{"y", "^", "2"}]}]}], "\n", 
 RowBox[{"{", 
  RowBox[{
   RowBox[{"D", "[", 
    RowBox[{
     RowBox[{"f", "[", 
      RowBox[{"x", ",", " ", "y"}], "]"}], ",", " ", "x"}], "]"}], ",", " ", 
   RowBox[{"D", "[", 
    RowBox[{
     RowBox[{"f", "[", 
      RowBox[{"x", ",", " ", "y"}], "]"}], ",", " ", "y"}], "]"}]}], 
  "}"}]}], "Input",ExpressionUUID->"6192af20-7526-8744-b493-e53894d760fc"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"f", "[", 
   RowBox[{"x_", ",", " ", "y_"}], "]"}], " ", ":=", " ", 
  RowBox[{"2", " ", "-", " ", 
   RowBox[{"x", "^", "2"}], " ", "-", " ", 
   RowBox[{"y", "^", "2"}]}]}], "\n", 
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{"Derivative", "[", 
     RowBox[{"1", ",", " ", "0"}], "]"}], "[", "f", "]"}], ",", " ", 
   RowBox[{
    RowBox[{"Derivative", "[", 
     RowBox[{"0", ",", " ", "1"}], "]"}], "[", "f", "]"}]}], "}"}]}], "Input",\
ExpressionUUID->"d56e139b-e322-2b4d-a79c-17fac7808877"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"g", "[", 
   RowBox[{"{", 
    RowBox[{"x1_", ",", " ", "x2_"}], "}"}], "]"}], " ", ":=", " ", 
  RowBox[{"2", " ", "-", " ", 
   RowBox[{"x1", "^", "2"}], " ", "-", " ", 
   RowBox[{"x2", "^", "2"}]}]}], "\n", 
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{"Derivative", "[", 
     RowBox[{"{", 
      RowBox[{"1", ",", " ", "0"}], "}"}], "]"}], "[", "g", "]"}], ",", " ", 
   RowBox[{
    RowBox[{"Derivative", "[", 
     RowBox[{"{", 
      RowBox[{"0", ",", " ", "1"}], "}"}], "]"}], "[", "g", "]"}]}], 
  "}"}]}], "Input",ExpressionUUID->"6873bdd5-7e1b-d449-bdae-6c2729f6d718"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"D", "[", 
   RowBox[{
    RowBox[{"f", "[", 
     RowBox[{"x", ",", " ", "y"}], "]"}], ",", " ", 
    RowBox[{"{", 
     RowBox[{"{", 
      RowBox[{"x", ",", " ", "y"}], "}"}], "}"}]}], "]"}], "  ", 
  RowBox[{"(*", " ", "\:65b9\:6cd51", " ", "*)"}]}], "\n", 
 RowBox[{
  RowBox[{"Grad", "[", 
   RowBox[{
    RowBox[{"f", "[", 
     RowBox[{"x", ",", " ", "y"}], "]"}], ",", " ", 
    RowBox[{"{", 
     RowBox[{"x", ",", " ", "y"}], "}"}]}], "]"}], " ", 
  RowBox[{"(*", " ", "\:65b9\:6cd52", " ", "*)"}]}]}], "Input",ExpressionUUID->\
"53b22afa-de79-a54e-a075-3b73128e7e30"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"f", "[", 
   RowBox[{"x_", ",", " ", "y_"}], "]"}], " ", ":=", " ", 
  RowBox[{
   RowBox[{"2", " ", 
    RowBox[{"x", "^", "3"}]}], " ", "+", " ", 
   RowBox[{"5", " ", "x", " ", "y"}], " ", "+", " ", 
   RowBox[{"2", " ", 
    RowBox[{"y", "^", "2"}]}]}]}], "\n", 
 RowBox[{
  RowBox[{"D", "[", 
   RowBox[{
    RowBox[{"f", "[", 
     RowBox[{"x", ",", " ", "y"}], "]"}], ",", " ", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"x", ",", " ", "y"}], "}"}], ",", " ", "2"}], "}"}]}], "]"}], 
  " ", "//", " ", "MatrixForm"}]}], "Input",ExpressionUUID->"e37dc807-622a-\
3949-9101-6ea94e44a72d"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", 
   RowBox[{"f", ",", " ", "F"}], "]"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"f", "[", 
   RowBox[{"{", 
    RowBox[{"x1_", ",", " ", "x2_"}], "}"}], "]"}], " ", ":=", " ", 
  RowBox[{"Sqrt", "[", 
   RowBox[{
    RowBox[{"x1", "^", "2"}], " ", "+", " ", 
    RowBox[{"x2", "^", "2"}]}], "]"}]}], "\n", 
 RowBox[{
  RowBox[{"x", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"x1", ",", " ", "x2"}], "}"}]}], ";", " ", 
  RowBox[{"a", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"1", ",", " ", "1"}], "}"}]}], ";", " ", 
  RowBox[{"h", " ", "=", " ", 
   RowBox[{"x", " ", "-", " ", "a"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"F", "[", "t_", "]"}], " ", ":=", " ", 
  RowBox[{"f", "[", 
   RowBox[{"a", " ", "+", " ", 
    RowBox[{"t", " ", "h"}]}], "]"}]}], "\n", 
 RowBox[{"expr", " ", ":=", " ", 
  RowBox[{
   RowBox[{"Normal", "[", 
    RowBox[{"Series", "[", 
     RowBox[{
      RowBox[{"F", "[", "t", "]"}], ",", " ", 
      RowBox[{"{", 
       RowBox[{"t", ",", " ", "0", ",", " ", "2"}], "}"}]}], "]"}], "]"}], 
   " ", "/.", " ", 
   RowBox[{"t", " ", "->", " ", "1"}]}]}], "\n", 
 RowBox[{"expr", " ", "//", " ", "Simplify"}]}], "Input",ExpressionUUID->\
"3a70f2a7-c525-774a-b9b8-501370b14969"],

Cell[BoxData[
 RowBox[{"Block", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"h", " ", "=", " ", 
     RowBox[{"{", 
      RowBox[{"h1", ",", " ", "h2"}], "}"}]}], "}"}], ",", " ", 
   RowBox[{"expr", " ", "/.", " ", 
    RowBox[{"Thread", "[", 
     RowBox[{"h", " ", "->", " ", 
      RowBox[{"Map", "[", 
       RowBox[{"HoldForm", ",", " ", 
        RowBox[{"x", " ", "-", " ", "a"}]}], "]"}]}], "]"}]}]}], 
  "]"}]], "Input",ExpressionUUID->"9c5eefbd-dd05-794f-a93d-64ed913b4c19"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"gradf", " ", "=", " ", 
   RowBox[{
    RowBox[{"D", "[", 
     RowBox[{
      RowBox[{"f", "[", "x", "]"}], ",", " ", 
      RowBox[{"{", "x", "}"}]}], "]"}], " ", "/.", " ", 
    RowBox[{"Thread", "[", 
     RowBox[{"x", " ", "->", " ", "a"}], "]"}]}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"H", " ", "=", " ", 
   RowBox[{
    RowBox[{"D", "[", 
     RowBox[{
      RowBox[{"f", "[", "x", "]"}], ",", " ", 
      RowBox[{"{", 
       RowBox[{"x", ",", " ", "2"}], "}"}]}], "]"}], " ", "/.", " ", 
    RowBox[{"Thread", "[", 
     RowBox[{"x", " ", "->", " ", "a"}], "]"}]}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"f", "[", "a", "]"}], " ", "+", " ", 
   RowBox[{"gradf", " ", ".", " ", 
    RowBox[{"(", 
     RowBox[{"x", " ", "-", " ", "a"}], ")"}]}], " ", "+", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"x", " ", "-", " ", "a"}], ")"}], " ", ".", " ", "H", " ", ".", 
     " ", 
     RowBox[{"(", 
      RowBox[{"x", " ", "-", " ", "a"}], ")"}]}], "/", "2"}]}], " ", "//", 
  " ", "Simplify"}]}], "Input",ExpressionUUID->"8f678449-a8ca-2c40-ac3a-\
76d882b0e8ae"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"x", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"x1", ",", " ", "x2"}], "}"}]}], ";", " ", 
  RowBox[{
   RowBox[{"f", "[", 
    RowBox[{"{", 
     RowBox[{"x1_", ",", " ", "x2_"}], "}"}], "]"}], " ", ":=", " ", 
   RowBox[{
    RowBox[{"2", " ", 
     RowBox[{"x1", "^", "3"}]}], " ", "+", " ", 
    RowBox[{"x1", " ", 
     RowBox[{"x2", "^", "2"}]}], " ", "+", " ", 
    RowBox[{"5", " ", 
     RowBox[{"x1", "^", "2"}]}], " ", "+", " ", 
    RowBox[{"x2", "^", "2"}]}]}]}], "\n", 
 RowBox[{
  RowBox[{"ResourceFunction", "[", "\"\<LocalExtrema\>\"", "]"}], "[", 
  RowBox[{
   RowBox[{"f", "[", "x", "]"}], ",", " ", "x"}], "]"}]}], "Input",ExpressionU\
UID->"f16a3a42-2742-4f41-9824-b8ea74076dde"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"points", " ", ":=", " ", 
    RowBox[{"Solve", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"D", "[", 
        RowBox[{
         RowBox[{"f", "[", "x", "]"}], ",", " ", 
         RowBox[{"{", "x", "}"}]}], "]"}], " ", "==", " ", 
       RowBox[{"0", " ", "x"}]}], ",", " ", "x", ",", " ", "Reals"}], "]"}]}],
    ";"}], " ", 
  RowBox[{"(*", " ", "\:505c\:7559\:70b9", " ", "*)"}]}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"H", " ", ":=", " ", 
    RowBox[{"D", "[", 
     RowBox[{
      RowBox[{"f", "[", "x", "]"}], ",", " ", 
      RowBox[{"{", 
       RowBox[{"x", ",", " ", "2"}], "}"}]}], "]"}]}], ";"}], 
  "                           ", 
  RowBox[{"(*", " ", "\:30d8\:30c3\:30bb\:884c\:5217", " ", "*)"}]}], "\n", 
 RowBox[{"Table", "[", 
  RowBox[{
   RowBox[{"With", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"h", " ", "=", " ", 
       RowBox[{"H", " ", "/.", " ", "p"}]}], "}"}], ",", 
     "                        ", 
     RowBox[{
     "(*", " ", 
      "\:505c\:7559\:70b9\:3067\:306e\:30d8\:30c3\:30bb\:884c\:5217", " ", 
      "*)"}], "\n", "  ", 
     RowBox[{"{", 
      RowBox[{"p", ",", " ", 
       RowBox[{
        RowBox[{"f", "[", "x", "]"}], " ", "/.", " ", "p"}], ",", " ", 
       RowBox[{"Which", "[", "\n", "    ", 
        RowBox[{
         RowBox[{"PositiveDefiniteMatrixQ", "[", "h", "]"}], ",", " ", 
         RowBox[{"-", "1"}], ",", "             ", 
         RowBox[{"(*", " ", "\:6975\:5c0f", " ", "*)"}], "\n", "    ", 
         RowBox[{"NegativeDefiniteMatrixQ", "[", "h", "]"}], ",", " ", "1", 
         ",", "              ", 
         RowBox[{"(*", " ", "\:6975\:5927", " ", "*)"}], "\n", "    ", 
         RowBox[{"IndefiniteMatrixQ", "[", "h", "]"}], ",", " ", "0", ",", 
         "                    ", 
         RowBox[{
         "(*", " ", "\:6975\:5024\:3067\:306f\:306a\:3044", " ", "*)"}], "\n",
          "    ", "True", ",", " ", "Null"}], "]"}]}], "}"}]}], "]"}], ",", 
   "                              ", 
   RowBox[{"(*", " ", "\:4e0d\:660e", " ", "*)"}], "\n", " ", 
   RowBox[{"{", 
    RowBox[{"p", ",", " ", "points"}], "}"}]}], "]"}]}], "Input",ExpressionUUI\
D->"3e43ef03-2779-9743-837d-8b420dce5193"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"x", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"x1", ",", " ", "x2"}], "}"}]}], ";", " ", 
  RowBox[{
   RowBox[{"f", "[", 
    RowBox[{"{", 
     RowBox[{"x1_", ",", " ", "x2_"}], "}"}], "]"}], " ", ":=", " ", 
   RowBox[{
    RowBox[{"x1", "^", "2"}], " ", "+", " ", 
    RowBox[{"x2", "^", "4"}]}]}]}], "\n", 
 RowBox[{
  RowBox[{"PositiveDefiniteMatrixQ", "[", 
   RowBox[{"H", " ", "/.", " ", 
    RowBox[{"Thread", "[", 
     RowBox[{"x", " ", "->", " ", 
      RowBox[{"{", 
       RowBox[{"0", ",", " ", "0"}], "}"}]}], "]"}]}], "]"}], " ", 
  RowBox[{"(*", " ", "False", " ", "*)"}]}], "\n", 
 RowBox[{
  RowBox[{"ResourceFunction", "[", "\"\<LocalExtrema\>\"", "]"}], "[", 
  RowBox[{
   RowBox[{"f", "[", "x", "]"}], ",", " ", "x"}], "]"}]}], "Input",ExpressionU\
UID->"38d63dbc-c28b-4b45-9edc-fdbcceaaf1af"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Clear", "[", "\"\<Global`*\>\"", "]"}], ";"}]], "Input",ExpressionU\
UID->"8a4ebfa1-3982-1e41-b152-7fcfafedcca8"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"d", " ", "=", " ", 
   RowBox[{"ImplicitRegion", "[", 
    RowBox[{
     RowBox[{"And", "[", 
      RowBox[{
       RowBox[{"0", " ", "<=", " ", "x", " ", "<=", " ", "1"}], ",", " ", 
       RowBox[{"0", " ", "<=", " ", "y", " ", "<=", " ", "x"}]}], "]"}], ",", 
     " ", 
     RowBox[{"{", 
      RowBox[{"x", ",", " ", "y"}], "}"}]}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"f", "[", 
   RowBox[{"x_", ",", " ", "y_"}], "]"}], " ", ":=", " ", 
  RowBox[{
   RowBox[{"x", "^", "2"}], " ", "+", " ", 
   RowBox[{"y", "^", "2"}]}]}], "\n", 
 RowBox[{"Integrate", "[", 
  RowBox[{
   RowBox[{"f", "[", 
    RowBox[{"x", ",", " ", "y"}], "]"}], ",", " ", 
   RowBox[{"Element", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"x", ",", " ", "y"}], "}"}], ",", " ", "d"}], "]"}]}], 
  "]"}]}], "Input",ExpressionUUID->"412006eb-4ba2-4d4f-a752-363bf8927390"],

Cell[BoxData[
 RowBox[{"Integrate", "[", 
  RowBox[{
   RowBox[{"Integrate", "[", 
    RowBox[{
     RowBox[{"f", "[", 
      RowBox[{"x", ",", " ", "y"}], "]"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"y", ",", " ", "0", ",", " ", "x"}], "}"}]}], "]"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"x", ",", " ", "0", ",", " ", "1"}], "}"}]}], "]"}]], "Input",Expr\
essionUUID->"53a3a71f-ca8d-a84d-b19f-257adf18627b"],

Cell[BoxData[
 RowBox[{"Integrate", "[", 
  RowBox[{
   RowBox[{"Integrate", "[", 
    RowBox[{
     RowBox[{"f", "[", 
      RowBox[{"x", ",", " ", "y"}], "]"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"x", ",", " ", "y", ",", " ", "1"}], "}"}]}], "]"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"y", ",", " ", "0", ",", " ", "1"}], "}"}]}], "]"}]], "Input",Expr\
essionUUID->"3afea9ac-15eb-ab46-8f7e-739a6565eba0"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", 
   RowBox[{"u", ",", " ", "v", ",", " ", "x", ",", " ", "y"}], "]"}], 
  ";"}], "\n", 
 RowBox[{"lhs", " ", "=", " ", 
  RowBox[{
   RowBox[{"Inactive", "[", "Integrate", "]"}], "[", 
   RowBox[{
    RowBox[{"f", "[", 
     RowBox[{"x", ",", " ", "y"}], "]"}], ",", " ", 
    RowBox[{"Element", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"x", ",", " ", "y"}], "}"}], ",", " ", "d"}], "]"}]}], 
   "]"}]}], "\n", 
 RowBox[{"rhs", " ", "=", " ", 
  RowBox[{"IntegrateChangeVariables", "[", 
   RowBox[{"lhs", ",", " ", 
    RowBox[{"{", 
     RowBox[{"u", ",", " ", "v"}], "}"}], ",", " ", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"x", " ", "==", " ", 
       RowBox[{"2", " ", "u"}]}], ",", " ", 
      RowBox[{"y", " ", "==", " ", 
       RowBox[{"3", " ", "v"}]}]}], "}"}]}], "]"}]}], "\n", 
 RowBox[{"{", 
  RowBox[{
   RowBox[{"Activate", "[", "lhs", "]"}], ",", " ", 
   RowBox[{"Activate", "[", "rhs", "]"}]}], "}"}]}], "Input",ExpressionUUID->\
"284578d3-bac4-2849-a9ab-4397a5733dc0"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"f", "[", 
   RowBox[{"x_", ",", " ", "y_"}], "]"}], " ", ":=", " ", 
  RowBox[{
   RowBox[{"x", "^", "2"}], " ", "+", " ", 
   RowBox[{"y", "^", "2"}]}]}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{"x", ",", " ", "y"}], "}"}], " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"2", " ", "u"}], ",", " ", 
     RowBox[{"3", " ", "v"}]}], "}"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"J", " ", "=", " ", 
   RowBox[{"D", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"x", ",", " ", "y"}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{"u", ",", " ", "v"}], "}"}], "}"}]}], "]"}]}], ";"}], "\n", 
 RowBox[{"detJ", " ", "=", " ", 
  RowBox[{"Det", "[", "J", "]"}]}], "\n", 
 RowBox[{"Integrate", "[", 
  RowBox[{
   RowBox[{"Integrate", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"f", "[", 
       RowBox[{"x", ",", " ", "y"}], "]"}], " ", 
      RowBox[{"Abs", "[", "detJ", "]"}]}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"v", ",", " ", "0", ",", " ", 
       RowBox[{"2", " ", 
        RowBox[{"u", "/", "3"}]}]}], "}"}]}], "]"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"u", ",", " ", "0", ",", " ", 
     RowBox[{"1", "/", "2"}]}], "}"}]}], "]"}]}], "Input",ExpressionUUID->\
"7c606411-bd35-a942-a494-7ca8aeaa515f"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{"x", ",", " ", "y"}], "}"}], " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"r", " ", 
      RowBox[{"Cos", "[", "theta", "]"}]}], ",", " ", 
     RowBox[{"r", " ", 
      RowBox[{"Sin", "[", "theta", "]"}]}]}], "}"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"J", " ", "=", " ", 
   RowBox[{"D", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"x", ",", " ", "y"}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{"r", ",", " ", "theta"}], "}"}], "}"}]}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"Det", "[", "J", "]"}], " ", "//", " ", "Simplify"}]}], "Input",Expr\
essionUUID->"810ecc05-03dc-a340-be85-a51208d834c7"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", 
   RowBox[{"x", ",", " ", "y"}], "]"}], ";"}], "\n", 
 RowBox[{"lhs", " ", "=", " ", 
  RowBox[{
   RowBox[{"Inactive", "[", "Integrate", "]"}], "[", 
   RowBox[{
    RowBox[{"Exp", "[", 
     RowBox[{"-", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"x", "^", "2"}], " ", "+", " ", 
        RowBox[{"y", "^", "2"}]}], ")"}]}], "]"}], ",", "\n", "  ", 
    RowBox[{"{", 
     RowBox[{"y", ",", " ", 
      RowBox[{"-", "Infinity"}], ",", " ", "Infinity"}], "}"}], ",", " ", 
    RowBox[{"{", 
     RowBox[{"x", ",", " ", 
      RowBox[{"-", "Infinity"}], ",", " ", "Infinity"}], "}"}]}], 
   "]"}]}], "\n", 
 RowBox[{"rhs", " ", "=", " ", 
  RowBox[{"IntegrateChangeVariables", "[", 
   RowBox[{"lhs", ",", " ", 
    RowBox[{"{", 
     RowBox[{"r", ",", " ", "theta"}], "}"}], ",", " ", 
    RowBox[{"\"\<Cartesian\>\"", " ", "->", " ", "\"\<Polar\>\""}]}], 
   "]"}]}], "\n", 
 RowBox[{"{", 
  RowBox[{
   RowBox[{"Activate", "[", "lhs", "]"}], ",", " ", 
   RowBox[{"Activate", "[", "rhs", "]"}]}], "}"}]}], "Input",ExpressionUUID->\
"517203bf-ca7b-9943-8d8f-802f16b9d3af"]
}, Closed]],

Cell[CellGroupData[{

Cell["16 \:30d9\:30af\:30c8\:30eb", "Chapter",
 PageBreakAbove->True,ExpressionUUID->"6b2aeadc-ee94-b341-af86-aebd40d4095a"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Clear", "[", "\"\<Global`*\>\"", "]"}], ";"}]], "Input",ExpressionU\
UID->"70b577ed-bc27-9a44-8c9d-0a51f5eaa88f"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"a", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"1", "/", "10"}], " ", "+", " ", 
      RowBox[{"2", "/", "10"}]}], ",", " ", 
     RowBox[{
      RowBox[{"1", "/", "10"}], " ", "+", " ", 
      RowBox[{"2", "/", "10"}], " ", "-", " ", 
      RowBox[{"3", "/", "10"}]}]}], "}"}]}], ";", " ", 
  RowBox[{"b", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"3", "/", "10"}], ",", " ", "0"}], "}"}]}], ";"}], "\n", 
 RowBox[{"a", " ", "==", " ", "b"}]}], "Input",ExpressionUUID->"45917cd0-4096-\
b649-9de3-283d05d07bdc"],

Cell[BoxData[
 RowBox[{
  RowBox[{"100", " ", 
   RowBox[{"{", 
    RowBox[{"1", ",", " ", "2"}], "}"}]}], " ", "+", " ", 
  RowBox[{"10", " ", 
   RowBox[{"{", 
    RowBox[{"3", ",", " ", "1"}], "}"}]}]}]], "Input",ExpressionUUID->\
"34a50002-26ca-c04b-890d-0277e857bbc5"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"a", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"3", ",", " ", "4"}], "}"}]}], ";"}], "\n", 
 RowBox[{"Norm", "[", "a", "]"}]}], "Input",ExpressionUUID->"15fbb706-29e8-\
d643-8070-faa14ac62774"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Clear", "[", 
   RowBox[{"x", ",", " ", "y"}], "]"}], ";", " ", 
  RowBox[{"a", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"x", ",", " ", "y"}], "}"}]}], ";", " ", 
  RowBox[{"Sqrt", "[", 
   RowBox[{"a", " ", ".", " ", "a"}], "]"}]}]], "Input",ExpressionUUID->\
"21f2f23d-1ab3-b84b-a533-8a8d65b9cd77"],

Cell[BoxData[
 RowBox[{"Simplify", "[", 
  RowBox[{
   RowBox[{"Norm", "[", 
    RowBox[{"{", 
     RowBox[{"x", ",", " ", "y"}], "}"}], "]"}], ",", " ", 
   RowBox[{"Element", "[", 
    RowBox[{
     RowBox[{"x", " ", "|", " ", "y"}], ",", " ", "Reals"}], "]"}]}], 
  "]"}]], "Input",ExpressionUUID->"489d5f8c-5e67-1447-976b-5c9730a8987d"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"a", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"3", ",", " ", "4"}], "}"}]}], ";"}], "\n", 
 RowBox[{"Normalize", "[", "a", "]"}]}], "Input",ExpressionUUID->"9b30a09f-\
801e-b947-9445-2a58528f2374"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"a", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"1", ",", " ", "0"}], "}"}]}], ";", " ", 
  RowBox[{"b", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"1", ",", " ", "1"}], "}"}]}], ";"}], "\n", 
 RowBox[{"ArcCos", "[", 
  RowBox[{
   RowBox[{"a", " ", ".", " ", "b"}], "/", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"Norm", "[", "a", "]"}], " ", 
     RowBox[{"Norm", "[", "b", "]"}]}], ")"}]}], "]"}]}], "Input",ExpressionUU\
ID->"877ec9aa-a978-3342-a833-f584a6b59216"],

Cell[BoxData[
 RowBox[{"VectorAngle", "[", 
  RowBox[{"a", ",", " ", "b"}], "]"}]], "Input",ExpressionUUID->"95469eca-\
b9e6-3c45-944e-d9d6bb3aa187"]
}, Closed]],

Cell[CellGroupData[{

Cell["17 \:884c\:5217", "Chapter",
 PageBreakAbove->True,ExpressionUUID->"68ec85bc-8bb7-4140-9033-d0919d2de8d8"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Clear", "[", "\"\<Global`*\>\"", "]"}], ";"}]], "Input",ExpressionU\
UID->"b28b929f-30c3-d245-8e19-e0d80e5bf438"],

Cell[BoxData[
 RowBox[{"MatrixForm", "[", 
  RowBox[{"A", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"1", ",", " ", "2", ",", " ", "0"}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"0", ",", " ", "3", ",", " ", "4"}], "}"}]}], "}"}]}], 
  "]"}]], "Input",ExpressionUUID->"7df47873-0223-8e42-a215-bedae7fdbd2e"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Clear", "[", "\"\<Global`*\>\"", "]"}], ";"}]], "Input",ExpressionU\
UID->"e65fb823-8a2f-0948-a181-05e66db54618"],

Cell[BoxData[
 RowBox[{
  RowBox[{"x", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"5", ",", " ", "7"}], "}"}]}], ";", " ", 
  RowBox[{
   RowBox[{"DiagonalMatrix", "[", "x", "]"}], " ", "//", " ", 
   "MatrixForm"}]}]], "Input",ExpressionUUID->"629b3c80-0da7-ce42-b02f-\
39c08d1ae01e"],

Cell[BoxData[
 RowBox[{"SymmetricMatrixQ", "[", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"1", ",", " ", "2"}], "}"}], ",", " ", 
    RowBox[{"{", 
     RowBox[{"2", ",", " ", "3"}], "}"}]}], "}"}], "]"}]], "Input",ExpressionU\
UID->"acf6375f-11ee-2843-82c7-5bf95606ded8"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Clear", "[", "\"\<Global`*\>\"", "]"}], ";"}]], "Input",ExpressionU\
UID->"b366d19f-0b11-fb49-99d4-5d12ffbd1e15"],

Cell[BoxData[
 RowBox[{"MatrixForm", "[", 
  RowBox[{"A", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"11", ",", " ", "12", ",", " ", "13"}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"21", ",", " ", "22", ",", " ", "23"}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"31", ",", " ", "32", ",", " ", "33"}], "}"}]}], "}"}]}], 
  "]"}]], "Input",ExpressionUUID->"f6d1ab9e-d8fd-3b48-86c2-52c4a4dbef32"],

Cell[BoxData[
 RowBox[{
  RowBox[{"A", "[", 
   RowBox[{"[", 
    RowBox[{
     RowBox[{"1", " ", ";;", " ", "2"}], ",", " ", 
     RowBox[{"1", " ", ";;", " ", "2"}]}], "]"}], "]"}], " ", "//", " ", 
  "MatrixForm"}]], "Input",ExpressionUUID->"4195b055-5982-c349-ae35-\
6eb237032ab5"],

Cell[BoxData[
 RowBox[{"A", "[", 
  RowBox[{"[", 
   RowBox[{"All", ",", " ", "3"}], "]"}], "]"}]], "Input",ExpressionUUID->\
"dfdcf05e-60b8-e043-adca-c3c6435cc422"],

Cell[BoxData[
 RowBox[{"A", "[", 
  RowBox[{"[", 
   RowBox[{"All", ",", " ", 
    RowBox[{"{", "3", "}"}]}], "]"}], "]"}]], "Input",ExpressionUUID->\
"0ece3846-9eed-4f4e-a871-8ed8c3e3a20b"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"A", "[", 
   RowBox[{"[", 
    RowBox[{"2", ",", " ", "All"}], "]"}], "]"}], " ", 
  RowBox[{"(*", " ", "\:65b9\:6cd51", " ", "*)"}]}], "\n", 
 RowBox[{
  RowBox[{"A", "[", 
   RowBox[{"[", "2", "]"}], "]"}], "      ", 
  RowBox[{"(*", " ", "\:65b9\:6cd52", " ", "*)"}]}]}], "Input",ExpressionUUID->\
"acd28f2d-2c7b-1745-b7da-abd3e121f237"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"A", "[", 
   RowBox[{"[", 
    RowBox[{
     RowBox[{"{", "2", "}"}], ",", " ", "All"}], "]"}], "]"}], " ", 
  RowBox[{"(*", " ", "\:65b9\:6cd51", " ", "*)"}]}], "\n", 
 RowBox[{
  RowBox[{"A", "[", 
   RowBox[{"[", 
    RowBox[{"{", "2", "}"}], "]"}], "]"}], "      ", 
  RowBox[{"(*", " ", "\:65b9\:6cd52", " ", "*)"}]}]}], "Input",ExpressionUUID->\
"e710b170-624e-ba4e-b2fa-20c9b55fdf19"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Clear", "[", "\"\<Global`*\>\"", "]"}], ";"}]], "Input",ExpressionU\
UID->"11d645f8-2a65-6d44-a041-63a17f743f09"],

Cell[BoxData[
 RowBox[{"10", " ", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"2", ",", " ", "3"}], "}"}], ",", " ", 
    RowBox[{"{", 
     RowBox[{"5", ",", " ", "7"}], "}"}]}], "}"}]}]], "Input",ExpressionUUID->\
"9deb9467-a824-3d4e-a675-bce9d04f9009"],

Cell[BoxData[
 RowBox[{
  RowBox[{"{", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"10", ",", " ", "20"}], "}"}], ",", " ", 
    RowBox[{"{", 
     RowBox[{"30", ",", " ", "40"}], "}"}]}], "}"}], " ", "+", " ", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"2", ",", " ", "3"}], "}"}], ",", " ", 
    RowBox[{"{", 
     RowBox[{"4", ",", " ", "5"}], "}"}]}], "}"}]}]], "Input",ExpressionUUID->\
"5fbfbe1c-8bd2-c147-9c7a-d1c0d48ef20e"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Clear", "[", "\"\<Global`*\>\"", "]"}], ";"}]], "Input",ExpressionU\
UID->"dedfdf56-1c7c-d343-945f-3363b88f80d0"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"A", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"2", ",", " ", "3"}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"5", ",", " ", "7"}], "}"}]}], "}"}]}], ";", " ", 
  RowBox[{"B", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"1", ",", " ", "2"}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"3", ",", " ", "4"}], "}"}]}], "}"}]}], ";"}], "\n", 
 RowBox[{"A", " ", ".", " ", "B"}]}], "Input",ExpressionUUID->"1e3c625a-b644-\
474c-b099-953efbd7b782"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"A", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"2", ",", " ", "3"}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"5", ",", " ", "7"}], "}"}]}], "}"}]}], ";", " ", 
  RowBox[{"B", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"1", ",", " ", "2", ",", " ", "3"}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"4", ",", " ", "5", ",", " ", "6"}], "}"}]}], "}"}]}], ";", " ", 
  RowBox[{"S", " ", "=", " ", 
   RowBox[{"A", " ", ".", " ", "B"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{"p", ",", " ", "q"}], "}"}], " ", "=", " ", 
   RowBox[{"Dimensions", "[", "A", "]"}]}], ";", " ", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"r", ",", " ", "s"}], "}"}], " ", "=", " ", 
   RowBox[{"Dimensions", "[", "B", "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"S1", " ", "=", " ", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"A", "[", 
          RowBox[{"[", 
           RowBox[{"i", ",", " ", "All"}], "]"}], "]"}], " ", ".", " ", 
         RowBox[{"B", "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", " ", "j"}], "]"}], "]"}]}], ",", " ", 
        RowBox[{"{", 
         RowBox[{"j", ",", " ", "1", ",", " ", "s"}], "}"}]}], "]"}], ",", 
      " ", 
      RowBox[{"{", 
       RowBox[{"i", ",", " ", "1", ",", " ", "p"}], "}"}]}], "]"}]}], ";"}], 
  " ", 
  RowBox[{"(*", " ", "\:2460", " ", "*)"}]}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"S2", " ", "=", " ", 
    RowBox[{"Sum", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"A", "[", 
        RowBox[{"[", 
         RowBox[{"All", ",", " ", 
          RowBox[{"{", "j", "}"}]}], "]"}], "]"}], " ", ".", " ", 
       RowBox[{"B", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"{", "j", "}"}], ",", " ", "All"}], "]"}], "]"}]}], ",", 
      " ", 
      RowBox[{"{", 
       RowBox[{"j", ",", " ", "1", ",", " ", "q"}], "}"}]}], "]"}]}], ";"}], 
  "                 ", 
  RowBox[{"(*", " ", "\:2461", " ", "*)"}]}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"S3", " ", "=", " ", 
    RowBox[{"Transpose", "[", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"A", " ", ".", " ", "b"}], ",", " ", 
       RowBox[{"{", 
        RowBox[{"b", ",", " ", 
         RowBox[{"Transpose", "[", "B", "]"}]}], "}"}]}], "]"}], "]"}]}], 
   ";"}], "                    ", 
  RowBox[{"(*", " ", "\:2462", " ", "*)"}]}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"S4", " ", "=", " ", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"a", " ", ".", " ", "B"}], ",", " ", 
      RowBox[{"{", 
       RowBox[{"a", ",", " ", "A"}], "}"}]}], "]"}]}], ";"}], 
  "                                          ", 
  RowBox[{"(*", " ", "\:2463", " ", "*)"}]}], "\n", 
 RowBox[{"{", 
  RowBox[{
   RowBox[{"S", " ", "==", " ", "S1"}], ",", " ", 
   RowBox[{"S", " ", "==", " ", "S2"}], ",", " ", 
   RowBox[{"S", " ", "==", " ", "S3"}], ",", " ", 
   RowBox[{"S", " ", "==", " ", "S4"}]}], "}"}]}], "Input",ExpressionUUID->\
"e7722652-4cfe-3248-9138-33a50a23b30a"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", 
   RowBox[{
   "a1", ",", " ", "a2", ",", " ", "x1", ",", " ", "x2", ",", " ", "p", ",", 
    " ", "q", ",", " ", "r", ",", " ", "s"}], "]"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"x", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"x1", ",", " ", "x2"}], "}"}]}], ";", " ", 
  RowBox[{"a", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"a1", ",", " ", "a2"}], "}"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"G", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"p", ",", " ", "q"}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"q", ",", " ", "s"}], "}"}]}], "}"}]}], ";", " ", 
  RowBox[{"A", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"p", ",", " ", "q"}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"r", ",", " ", "s"}], "}"}]}], "}"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"D", "[", 
   RowBox[{
    RowBox[{"a", " ", ".", " ", "x"}], ",", " ", 
    RowBox[{"{", "x", "}"}]}], "]"}], " ", "==", " ", "a"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"D", "[", 
    RowBox[{
     RowBox[{"x", " ", ".", " ", "G", " ", ".", " ", "x"}], ",", " ", 
     RowBox[{"{", "x", "}"}]}], "]"}], " ", "==", " ", 
   RowBox[{"2", " ", 
    RowBox[{"G", " ", ".", " ", "x"}]}]}], " ", "//", " ", "Simplify"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"D", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"A", " ", ".", " ", "x"}], ")"}], " ", ".", " ", 
      RowBox[{"(", 
       RowBox[{"A", " ", ".", " ", "x"}], ")"}]}], ",", " ", 
     RowBox[{"{", "x", "}"}]}], "]"}], " ", "==", " ", 
   RowBox[{"2", " ", 
    RowBox[{
     RowBox[{"Transpose", "[", "A", "]"}], " ", ".", " ", "A", " ", ".", " ", 
     "x"}]}]}], " ", "//", " ", "Simplify"}]}], "Input",ExpressionUUID->\
"c3c52fc9-375a-f344-a7ee-84a313ab6436"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Clear", "[", "\"\<Global`*\>\"", "]"}], ";"}]], "Input",ExpressionU\
UID->"82d9af60-e357-304d-ba58-54209d60c984"],

Cell[BoxData[
 RowBox[{"Det", "[", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"3", ",", " ", "2"}], "}"}], ",", " ", 
    RowBox[{"{", 
     RowBox[{"1", ",", " ", "2"}], "}"}]}], "}"}], "]"}]], "Input",ExpressionU\
UID->"2ac72db7-f1fd-644b-b4a6-f3302276eb52"],

Cell[BoxData[
 RowBox[{"RegionMeasure", "[", 
  RowBox[{"Parallelepiped", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"0", ",", " ", "0"}], "}"}], ",", " ", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"3", ",", " ", "1"}], "}"}], ",", " ", 
      RowBox[{"{", 
       RowBox[{"2", ",", " ", "2"}], "}"}]}], "}"}]}], "]"}], "]"}]], "Input",\
ExpressionUUID->"e2c8f22e-8443-2f4d-95a0-1e187d34ce8e"],

Cell[BoxData[
 RowBox[{"RegionMeasure", "[", 
  RowBox[{"Parallelepiped", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"0", ",", " ", "0", ",", " ", "0"}], "}"}], ",", " ", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"2", ",", " ", "1", ",", " ", "0"}], "}"}], ",", " ", 
      RowBox[{"{", 
       RowBox[{"0", ",", " ", "2", ",", " ", "1"}], "}"}], ",", " ", 
      RowBox[{"{", 
       RowBox[{"1", ",", " ", "1", ",", " ", "1"}], "}"}]}], "}"}]}], "]"}], 
  "]"}]], "Input",ExpressionUUID->"805060b1-f729-ad4b-852c-4c7b140ae7f6"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Clear", "[", "\"\<Global`*\>\"", "]"}], ";"}]], "Input",ExpressionU\
UID->"7289e1d2-725c-ff4e-94b8-ce3b4166ad3a"],

Cell[BoxData[
 RowBox[{"Inverse", "[", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"2", ",", " ", "3"}], "}"}], ",", " ", 
    RowBox[{"{", 
     RowBox[{"5", ",", " ", "7"}], "}"}]}], "}"}], "]"}]], "Input",ExpressionU\
UID->"5942ee18-23ce-e342-a9bc-46ab401c5aeb"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Clear", "[", "\"\<Global`*\>\"", "]"}], ";"}]], "Input",ExpressionU\
UID->"45c3bc3c-2456-e24b-a223-3606942811cf"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"A", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"3", ",", " ", "2"}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"1", ",", " ", "2"}], "}"}]}], "}"}]}], ";", " ", 
  RowBox[{"b", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"8", ",", " ", "4"}], "}"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"Inverse", "[", "A", "]"}], " ", ".", " ", "b"}]}], "Input",Expressi\
onUUID->"6b2feece-74e3-2a4a-bca8-d8df794adc7d"],

Cell[BoxData[
 RowBox[{"RowReduce", "[", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"4", ",", " ", "2", ",", " ", "8"}], "}"}], ",", " ", 
    RowBox[{"{", 
     RowBox[{"2", ",", " ", "1", ",", " ", "4"}], "}"}]}], "}"}], 
  "]"}]], "Input",ExpressionUUID->"4687c562-a49e-a645-b1d9-4eb61de9dc60"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"A", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"2", ",", " ", "0", ",", " ", "2"}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"0", ",", " ", "2", ",", " ", 
       RowBox[{"-", "2"}]}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"2", ",", " ", "2", ",", " ", "0"}], "}"}]}], "}"}]}], 
  ";"}], "\n", 
 RowBox[{"MatrixRank", "[", "A", "]"}]}], "Input",ExpressionUUID->"010a502d-\
36c6-674b-a491-63769c37bc48"]
}, Closed]],

Cell[CellGroupData[{

Cell["18 \:30d9\:30af\:30c8\:30eb\:7a7a\:9593", "Chapter",
 PageBreakAbove->True,ExpressionUUID->"7848717c-3b4c-2c4a-97c3-16e73d4224ac"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Clear", "[", "\"\<Global`*\>\"", "]"}], ";"}]], "Input",ExpressionU\
UID->"cbe0ef8d-0c18-4442-a24f-c614ffe8cf61"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"a1", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"3", ",", " ", "1"}], "}"}]}], ";", " ", 
  RowBox[{"a2", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"2", ",", " ", "2"}], "}"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"ResourceFunction", "[", "\"\<LinearlyIndependent\>\"", "]"}], "[", 
  RowBox[{"{", 
   RowBox[{"a1", ",", " ", "a2"}], "}"}], "]"}]}], "Input",ExpressionUUID->\
"44511808-ddf0-5947-9e4e-634f1b49df80"],

Cell[BoxData[
 RowBox[{"Reduce", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"c1", " ", "a1"}], " ", "+", " ", 
    RowBox[{"c2", " ", "a2"}]}], " ", "==", " ", 
   RowBox[{"{", 
    RowBox[{"0", ",", " ", "0"}], "}"}]}], "]"}]], "Input",ExpressionUUID->\
"9859d4c0-6cd2-5145-8333-666a81e59503"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Clear", "[", "\"\<Global`*\>\"", "]"}], ";"}]], "Input",ExpressionU\
UID->"55348069-8f73-2d45-9dc5-638b645ec0b5"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"A", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"1", ",", " ", "0", ",", " ", "1"}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"1", ",", " ", "1", ",", " ", "0"}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"0", ",", " ", "1", ",", " ", 
       RowBox[{"-", "1"}]}], "}"}]}], "}"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"ResourceFunction", "[", "\"\<ColumnSpace\>\"", "]"}], "[", "A", 
   "]"}], "[", "\"\<Basis\>\"", "]"}]}], "Input",ExpressionUUID->"a92f3e9b-\
ef5c-2f4c-9df6-d61bcde00bec"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"A", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"1", ",", " ", "0", ",", " ", "1"}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"1", ",", " ", "1", ",", " ", "0"}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"0", ",", " ", "1", ",", " ", 
       RowBox[{"-", "1"}]}], "}"}]}], "}"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"tmp", " ", "=", " ", 
   RowBox[{
    RowBox[{"ResourceFunction", "[", "\"\<ColumnSpace\>\"", "]"}], "[", "A", 
    "]"}]}], ";"}], "\n", 
 RowBox[{"Qt", " ", "=", " ", 
  RowBox[{"Orthogonalize", "[", 
   RowBox[{"tmp", "[", "\"\<Basis\>\"", "]"}], "]"}]}]}], "Input",ExpressionUU\
ID->"3d0df85d-2a99-8145-816c-2ae639322de9"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Q", " ", "=", " ", 
   RowBox[{"Transpose", "[", "Qt", "]"}]}], ";"}], "\n", 
 RowBox[{"Qt", " ", ".", " ", "Q"}]}], "Input",ExpressionUUID->"40c4dfa8-f719-\
6e43-800f-eb037838bab3"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"A", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"1", ",", " ", "2"}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"1", ",", " ", "2"}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"0", ",", " ", "0"}], "}"}]}], "}"}]}], ";", " ", 
  RowBox[{"B", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"1", ",", " ", "0"}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"1", ",", " ", "1"}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"0", ",", " ", "1"}], "}"}]}], "}"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"{", 
     RowBox[{"tQa", ",", " ", "Ra"}], "}"}], " ", "=", " ", 
    RowBox[{"QRDecomposition", "[", "A", "]"}]}], ";", " ", 
   RowBox[{"Qa", " ", "=", " ", 
    RowBox[{"Transpose", "[", "tQa", "]"}]}], ";"}], " ", 
  RowBox[{"(*", " ", "\:8ee2\:7f6e\:304c\:5fc5\:8981", " ", "*)"}]}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"{", 
     RowBox[{"tQb", ",", " ", "Rb"}], "}"}], " ", "=", " ", 
    RowBox[{"QRDecomposition", "[", "B", "]"}]}], ";", " ", 
   RowBox[{"Qb", " ", "=", " ", 
    RowBox[{"Transpose", "[", "tQb", "]"}]}], ";"}], " ", 
  RowBox[{"(*", " ", "\:8ee2\:7f6e\:304c\:5fc5\:8981", " ", "*)"}]}], "\n", 
 RowBox[{"{", 
  RowBox[{
   RowBox[{"MatrixForm", "[", "Qa", "]"}], ",", " ", 
   RowBox[{"MatrixForm", "[", "Ra", "]"}], ",", " ", 
   RowBox[{"A", " ", "==", " ", 
    RowBox[{"Qa", " ", ".", " ", "Ra"}]}], ",", "\n", " ", 
   RowBox[{"MatrixForm", "[", "Qb", "]"}], ",", " ", 
   RowBox[{"MatrixForm", "[", "Rb", "]"}], ",", " ", 
   RowBox[{"B", " ", "==", " ", 
    RowBox[{"Qb", " ", ".", " ", "Rb"}]}]}], "}"}]}], "Input",ExpressionUUID->\
"119ce51a-323e-5143-aa76-a7a46d25007a"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"qrd", "[", "A_", "]"}], " ", ":=", " ", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"m", ",", " ", "n", ",", " ", 
       RowBox[{"u", " ", "=", " ", 
        RowBox[{"Transpose", "[", "A", "]"}]}], ",", " ", 
       RowBox[{"idx", " ", "=", " ", 
        RowBox[{"{", "}"}]}], ",", " ", "s", ",", " ", "Q"}], "}"}], ",", 
     "\n", "  ", 
     RowBox[{
      RowBox[{
       RowBox[{"{", 
        RowBox[{"m", ",", " ", "n"}], "}"}], " ", "=", " ", 
       RowBox[{"Dimensions", "[", "A", "]"}]}], ";", "\n", "  ", 
      RowBox[{"Do", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"Do", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"u", "[", 
             RowBox[{"[", "i", "]"}], "]"}], " ", "=", " ", 
            RowBox[{"Simplify", "[", 
             RowBox[{
              RowBox[{"u", "[", 
               RowBox[{"[", "i", "]"}], "]"}], " ", "-", " ", 
              RowBox[{
               RowBox[{
                RowBox[{"A", "[", 
                 RowBox[{"[", 
                  RowBox[{"All", ",", " ", "i"}], "]"}], "]"}], " ", ".", " ", 
                RowBox[{"u", "[", 
                 RowBox[{"[", "j", "]"}], "]"}]}], " ", 
               RowBox[{"u", "[", 
                RowBox[{"[", "j", "]"}], "]"}]}]}], "]"}]}], ",", " ", 
           RowBox[{"{", 
            RowBox[{"j", ",", " ", "1", ",", " ", 
             RowBox[{"i", " ", "-", " ", "1"}]}], "}"}]}], "]"}], ";", "\n", 
         "   ", 
         RowBox[{"s", " ", "=", " ", 
          RowBox[{"Chop", "[", 
           RowBox[{"Norm", "[", 
            RowBox[{"u", "[", 
             RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}]}], ";", "\n", "   ", 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{"s", " ", "!=", " ", "0"}], ",", " ", 
           RowBox[{
            RowBox[{
             RowBox[{"u", "[", 
              RowBox[{"[", "i", "]"}], "]"}], " ", "/=", " ", "s"}], ";", " ", 
            RowBox[{"AppendTo", "[", 
             RowBox[{"idx", ",", " ", "i"}], "]"}]}]}], "]"}]}], ",", " ", 
        RowBox[{"{", 
         RowBox[{"i", ",", " ", "1", ",", " ", "n"}], "}"}]}], "]"}], ";", 
      "\n", "  ", 
      RowBox[{"Q", " ", "=", " ", 
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"Length", "[", "idx", "]"}], " ", "!=", " ", "0"}], ",", 
         " ", 
         RowBox[{"Transpose", "[", 
          RowBox[{"u", "[", 
           RowBox[{"[", "idx", "]"}], "]"}], "]"}], ",", " ", 
         RowBox[{"IdentityMatrix", "[", "m", "]"}]}], "]"}]}], ";", "\n", 
      "  ", 
      RowBox[{"{", 
       RowBox[{"Q", ",", " ", 
        RowBox[{
         RowBox[{"Transpose", "[", "Q", "]"}], " ", ".", " ", "A"}]}], 
       "}"}]}]}], "]"}]}], "\n"}], "\n", 
 RowBox[{
  RowBox[{"A", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"1", ",", " ", "2"}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"1", ",", " ", "2"}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"0", ",", " ", "0"}], "}"}]}], "}"}]}], ";", " ", 
  RowBox[{"B", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"1", ",", " ", "0"}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"1", ",", " ", "1"}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"0", ",", " ", "1"}], "}"}]}], "}"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"Map", "[", 
    RowBox[{"MatrixForm", ",", " ", 
     RowBox[{"qrd", "[", "A", "]"}]}], "]"}], " ", "//", " ", "Simplify"}], 
  " ", 
  RowBox[{"(*", " ", "\:52d5\:4f5c\:78ba\:8a8d", " ", "*)"}]}], "\n", 
 RowBox[{
  RowBox[{"Map", "[", 
   RowBox[{"MatrixForm", ",", " ", 
    RowBox[{"qrd", "[", "B", "]"}]}], "]"}], " ", "//", " ", "Simplify", " ", 
  RowBox[{"(*", " ", "\:52d5\:4f5c\:78ba\:8a8d", " ", "*)"}]}]}], "Input",ExpressionUUID->"dd8c3a46-42e7-564f-8bee-73c3314648d3"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"B", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"1", ",", " ", "0"}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"1", ",", " ", "1"}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"0", ",", " ", "1"}], "}"}]}], "}"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"{", 
     RowBox[{"Q", ",", " ", "R"}], "}"}], " ", "=", " ", 
    RowBox[{"qrd", "[", "B", "]"}]}], ";"}], "                              ", 
  RowBox[{"(*", " ", "QR\:5206\:89e3", " ", "*)"}]}], "\n", 
 RowBox[{
  RowBox[{"tol", " ", "=", " ", 
   RowBox[{"10", "^", 
    RowBox[{"-", "10"}]}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"e", " ", "=", " ", 
   RowBox[{"IdentityMatrix", "[", 
    RowBox[{
     RowBox[{"Dimensions", "[", "Q", "]"}], "[", 
     RowBox[{"[", "2", "]"}], "]"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"{", 
   RowBox[{
    RowBox[{
     RowBox[{"Chop", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"N", "[", 
         RowBox[{
          RowBox[{"Transpose", "[", "Q", "]"}], " ", ".", " ", "Q"}], "]"}], 
        " ", "-", " ", "e"}], ",", " ", "tol"}], "]"}], " ", "==", " ", 
     RowBox[{"0", " ", "e"}]}], ",", "   ", 
    RowBox[{"(*", " ", "\:2460", " ", "*)"}], "\n", " ", 
    RowBox[{"UpperTriangularMatrixQ", "[", 
     RowBox[{"R", ",", " ", 
      RowBox[{"Tolerance", " ", "->", " ", "tol"}]}], "]"}], ",", " ", 
    RowBox[{"(*", " ", "\:2461", " ", "*)"}], "\n", " ", 
    RowBox[{
     RowBox[{"Chop", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"N", "[", "B", "]"}], " ", "-", " ", 
        RowBox[{"Q", " ", ".", " ", "R"}]}], ",", " ", "tol"}], "]"}], " ", "==",
      " ", 
     RowBox[{"0", " ", "B"}]}]}], "}"}], "              ", 
  RowBox[{"(*", " ", "\:2462", " ", "*)"}]}], "\n", 
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "\:8aa4\:3063\:305f\:8ee2\:7f6e\:3092\:691c\:51fa\:3067\:304d\:306a\:3044\
\:304b\:3089", "\:ff0c", 
    "\:2460\:3067OrthogonalMatrixQ\:306f\:4f7f\:3048\:306a\:3044", "\:ff0e"}],
    "*)"}]}]}], "Input",ExpressionUUID->"894d64f4-1625-964b-aa3a-\
7d870e2f9ac2"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Clear", "[", "\"\<Global`*\>\"", "]"}], ";"}]], "Input",ExpressionU\
UID->"9c908dc0-9608-3e4c-9109-029cdb001a42"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"A", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"1", ",", " ", "0"}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"1", ",", " ", "1"}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"0", ",", " ", "1"}], "}"}]}], "}"}]}], ";"}], "\n", 
 RowBox[{"NullSpace", "[", 
  RowBox[{"Transpose", "[", "A", "]"}], "]"}], "\n", 
 RowBox[{
  RowBox[{"NullSpace", "[", 
   RowBox[{"Transpose", "[", 
    RowBox[{"N", "[", "A", "]"}], "]"}], "]"}], " ", 
  RowBox[{
  "(*", " ", "\:6b63\:898f\:76f4\:4ea4\:57fa\:5e95", " ", "*)"}]}]}], "Input",\
ExpressionUUID->"78b3b059-9ba5-764b-a9a8-574fdb88a98c"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"A", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"1", ",", " ", "0"}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"1", ",", " ", "1"}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"0", ",", " ", "1"}], "}"}]}], "}"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"basis1", " ", "=", " ", 
    RowBox[{"Orthogonalize", "[", 
     RowBox[{"Transpose", "[", "A", "]"}], "]"}]}], ";"}], "            ", 
  RowBox[{"(*", " ", "\:5217\:7a7a\:9593", " ", "*)"}]}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"basis2", " ", "=", " ", 
    RowBox[{"Orthogonalize", "[", 
     RowBox[{"NullSpace", "[", 
      RowBox[{"Transpose", "[", "A", "]"}], "]"}], "]"}]}], ";"}], " ", 
  RowBox[{"(*", " ", "\:76f4\:4ea4\:88dc\:7a7a\:9593", " ", "*)"}]}], "\n", 
 RowBox[{"MatrixForm", "[", 
  RowBox[{"Q", " ", "=", " ", 
   RowBox[{"Transpose", "[", 
    RowBox[{"Join", "[", 
     RowBox[{"basis1", ",", " ", "basis2"}], "]"}], "]"}]}], "]"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"Transpose", "[", "Q", "]"}], " ", ".", " ", "Q"}], " ", "==", " ", 
  RowBox[{"IdentityMatrix", "[", "3", "]"}]}]}], "Input",ExpressionUUID->\
"1475807b-ece0-c841-a47c-4710c97317e1"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"A", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"a", ",", " ", "b"}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"c", ",", " ", "d"}], "}"}]}], "}"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"f", "[", "x_", "]"}], " ", ":=", " ", 
  RowBox[{"A", " ", ".", " ", "x"}]}], "\n", 
 RowBox[{
  RowBox[{"R", " ", "=", " ", 
   RowBox[{"ParametricRegion", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"x", ",", " ", "y"}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"x", ",", " ", "s", ",", " ", 
         RowBox[{"s", " ", "+", " ", "u"}]}], "}"}], ",", " ", 
       RowBox[{"{", 
        RowBox[{"y", ",", " ", "t", ",", " ", 
         RowBox[{"t", " ", "+", " ", "u"}]}], "}"}]}], "}"}]}], "]"}]}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{"Rp", " ", "=", " ", 
   RowBox[{"TransformedRegion", "[", 
    RowBox[{"R", ",", " ", "f"}], "]"}]}], ";"}], "\n", 
 RowBox[{"{", 
  RowBox[{
   RowBox[{"RegionMeasure", "[", "Rp", "]"}], ",", " ", 
   RowBox[{
    RowBox[{"Abs", "[", 
     RowBox[{"Det", "[", "A", "]"}], "]"}], " ", 
    RowBox[{"u", "^", "2"}]}]}], "}"}]}], "Input",ExpressionUUID->"3df88ab4-\
2f50-8642-940d-4102f940f81c"]
}, Closed]],

Cell[CellGroupData[{

Cell["19 \:56fa\:6709\:5024\:3068\:56fa\:6709\:30d9\:30af\:30c8\:30eb", \
"Chapter",
 PageBreakAbove->True,ExpressionUUID->"4cbc7ce6-75da-744a-9aa4-c2e0631769c7"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Clear", "[", "\"\<Global`*\>\"", "]"}], ";"}]], "Input",ExpressionU\
UID->"f03a899a-72ab-9f49-b616-d7b8cc05bd80"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"A", " ", "=", " ", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"5", ",", " ", "6", ",", " ", "3"}], "}"}], ",", " ", 
      RowBox[{"{", 
       RowBox[{"0", ",", " ", "9", ",", " ", "2"}], "}"}], ",", " ", 
      RowBox[{"{", 
       RowBox[{"0", ",", " ", "6", ",", " ", "8"}], "}"}]}], "}"}]}], ";"}], 
  " ", 
  RowBox[{"(*", " ", 
   RowBox[{"\:56fa\:6709\:30d9\:30af\:30c8\:30eb", 
    RowBox[{"\:ff08", "\:7d76\:5bfe\:5024\:306e\:964d\:9806", "\:ff09"}]}], 
   " ", "*)"}]}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{"vals", ",", " ", "vecs"}], "}"}], " ", "=", " ", 
   RowBox[{"Eigensystem", "[", 
    RowBox[{"N", "[", "A", "]"}], "]"}]}], "       ", 
  RowBox[{"(*", " ", 
   RowBox[{"\:8fd1\:4f3c\:5024", "\:ff1a", 
    RowBox[{"\:56fa\:6709\:30d9\:30af\:30c8\:30eb", 
     RowBox[{"\:ff08", "\:6b63\:898f", "\:ff09"}]}]}], " ", "*)"}]}], "\n", 
 RowBox[{
  RowBox[{"{", 
   RowBox[{"vals", ",", " ", "vecs"}], "}"}], " ", "=", " ", 
  RowBox[{"Eigensystem", "[", "A", "]"}], "          ", 
  RowBox[{"(*", " ", 
   RowBox[{"\:53b3\:5bc6\:5024", "\:ff1a", 
    RowBox[{"\:56fa\:6709\:30d9\:30af\:30c8\:30eb", 
     RowBox[{"\:ff08", "\:975e\:6b63\:898f", "\:ff09"}]}]}], 
   "*)"}]}]}], "Input",ExpressionUUID->"6d859e74-ca66-7a48-8ed3-9a98e5ae7423"],

Cell[BoxData[
 RowBox[{
  RowBox[{"V", " ", "=", " ", 
   RowBox[{"Transpose", "[", "vecs", "]"}]}], ";", " ", 
  RowBox[{
   RowBox[{"A", " ", ".", " ", "V"}], " ", "==", " ", 
   RowBox[{"V", " ", ".", " ", 
    RowBox[{"DiagonalMatrix", "[", "vals", "]"}]}]}]}]], "Input",ExpressionUUI\
D->"7d99f02c-06cd-544b-84bc-827097029a90"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"A", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"5", ",", " ", "6", ",", " ", "3"}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"0", ",", " ", "9", ",", " ", "2"}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"0", ",", " ", "6", ",", " ", "8"}], "}"}]}], "}"}]}], ";", " ", 
  RowBox[{"n", " ", "=", " ", 
   RowBox[{"Length", "[", "A", "]"}]}], ";"}], "\n", 
 RowBox[{"SolveValues", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"Det", "[", 
     RowBox[{
      RowBox[{"x", " ", 
       RowBox[{"IdentityMatrix", "[", "n", "]"}]}], " ", "-", " ", "A"}], 
     "]"}], " ", "==", " ", "0"}], ",", " ", "x"}], "]"}]}], "Input",Expressio\
nUUID->"830e2a3a-7128-1d49-b1d5-e0d373878a21"],

Cell[BoxData[
 RowBox[{"NullSpace", "[", 
  RowBox[{
   RowBox[{"5", " ", 
    RowBox[{"IdentityMatrix", "[", "n", "]"}]}], " ", "-", " ", "A"}], 
  "]"}]], "Input",ExpressionUUID->"1ef468b3-b812-2940-8bbd-b72b2ea73b51"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Clear", "[", "\"\<Global`*\>\"", "]"}], ";"}]], "Input",ExpressionU\
UID->"b719a5a3-9140-5f4f-a31b-03bb8a24128a"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"S", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"2", ",", " ", "2", ",", " ", 
       RowBox[{"-", "2"}]}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"2", ",", " ", "5", ",", " ", 
       RowBox[{"-", "4"}]}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "2"}], ",", " ", 
       RowBox[{"-", "4"}], ",", " ", "5"}], "}"}]}], "}"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{"Q", ",", " ", "L", ",", " ", "V"}], "}"}], " ", "=", " ", 
   RowBox[{"SingularValueDecomposition", "[", "S", "]"}]}], ";"}], "\n", 
 RowBox[{"{", 
  RowBox[{
   RowBox[{"MatrixForm", "[", "Q", "]"}], ",", " ", 
   RowBox[{"MatrixForm", "[", "L", "]"}], ",", "\n", " ", 
   RowBox[{"S", " ", "==", " ", 
    RowBox[{"Q", " ", ".", " ", "L", " ", ".", " ", 
     RowBox[{"Transpose", "[", "Q", "]"}]}], " ", "==", " ", 
    RowBox[{"V", " ", ".", " ", "L", " ", ".", " ", 
     RowBox[{"Transpose", "[", "V", "]"}]}]}]}], "}"}]}], "Input",ExpressionUU\
ID->"fbfd95d6-4e5d-144f-9901-b6e305fbfdda"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"S", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"2", ",", " ", "2", ",", " ", 
       RowBox[{"-", "2"}]}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"2", ",", " ", "5", ",", " ", 
       RowBox[{"-", "4"}]}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", "2"}], ",", " ", 
       RowBox[{"-", "4"}], ",", " ", "5"}], "}"}]}], "}"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"{", 
     RowBox[{"vals", ",", " ", "vecs"}], "}"}], " ", "=", " ", 
    RowBox[{"Eigensystem", "[", "S", "]"}]}], ";"}], "           ", 
  RowBox[{"(*", " ", "\:2460", " ", "*)"}]}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"Q", " ", "=", " ", 
    RowBox[{"Transpose", "[", 
     RowBox[{"Orthogonalize", "[", "vecs", "]"}], "]"}]}], ";"}], "      ", 
  RowBox[{"(*", " ", 
   RowBox[{"\:2461", ",", " ", "\:2462"}], " ", "*)"}]}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"L", " ", "=", " ", 
    RowBox[{"DiagonalMatrix", "[", "vals", "]"}]}], ";"}], "                ", 
  RowBox[{"(*", " ", "\:2463", " ", "*)"}]}], "\n", 
 RowBox[{
  RowBox[{"Chop", "[", 
   RowBox[{
    RowBox[{"N", "[", "S", "]"}], " ", "-", " ", 
    RowBox[{"Q", " ", ".", " ", "L", " ", ".", " ", 
     RowBox[{"Transpose", "[", "Q", "]"}]}]}], "]"}], " ", "==", " ", 
  RowBox[{"0", " ", "S", " ", 
   RowBox[{
   "(*", " ", "\:8fd1\:4f3c\:7684\:306a\:6bd4\:8f03", " ", 
    "*)"}]}]}]}], "Input",ExpressionUUID->"fd290468-36ec-8743-9bc9-\
6bd5e84813a3"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Clear", "[", "\"\<Global`*\>\"", "]"}], ";"}]], "Input",ExpressionU\
UID->"b84b1d74-7e33-9248-bfea-6e682113293c"],

Cell[BoxData[
 RowBox[{"PositiveSemidefiniteMatrixQ", "[", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"4", ",", " ", "2"}], "}"}], ",", " ", 
    RowBox[{"{", 
     RowBox[{"2", ",", " ", "1"}], "}"}]}], "}"}], "]"}]], "Input",ExpressionU\
UID->"2ff73ca1-3ea8-2e48-b9e0-ee2624ea9d20"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"A", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"4", ",", " ", "2"}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"2", ",", " ", "1"}], "}"}]}], "}"}]}], ";"}], "\n", 
 RowBox[{"AllTrue", "[", 
  RowBox[{
   RowBox[{"Eigenvalues", "[", "A", "]"}], ",", " ", "NonNegative"}], 
  "]"}]}], "Input",ExpressionUUID->"72ae7dc1-dc2f-6348-a634-d07e7093cdc9"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"x1", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"1", ",", " ", "3", ",", " ", "6", ",", " ", "10"}], "}"}]}], ";",
   " ", 
  RowBox[{"y", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"7", ",", " ", "1", ",", " ", "6", ",", " ", "14"}], "}"}]}], ";",
   " ", 
  RowBox[{"X", " ", "=", " ", 
   RowBox[{"Transpose", "[", 
    RowBox[{"{", 
     RowBox[{"x1", ",", " ", "y"}], "}"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"n", " ", "=", " ", 
   RowBox[{"Length", "[", "X", "]"}]}], ";", " ", 
  RowBox[{"M", " ", "=", " ", 
   RowBox[{
    RowBox[{"ConstantArray", "[", 
     RowBox[{"1", ",", " ", 
      RowBox[{"{", 
       RowBox[{"n", ",", " ", "n"}], "}"}]}], "]"}], "/", "n"}]}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{"A", " ", "=", " ", 
   RowBox[{"X", " ", "-", " ", 
    RowBox[{"M", " ", ".", " ", "X"}]}]}], ";"}], "\n", 
 RowBox[{"MatrixForm", "[", 
  RowBox[{"S", " ", "=", " ", 
   RowBox[{
    RowBox[{"Transpose", "[", "A", "]"}], " ", ".", " ", "A"}]}], "]"}], "\n", 
 RowBox[{"v", " ", "=", " ", 
  RowBox[{
   RowBox[{"Eigenvectors", "[", 
    RowBox[{
     RowBox[{"N", "[", "S", "]"}], ",", " ", "1"}], "]"}], "[", 
   RowBox[{"[", "1", "]"}], "]"}], " ", 
  RowBox[{
  "(*", " ", 
   "\:6700\:5927\:56fa\:6709\:5024\:306b\:5bfe\:5fdc\:3059\:308b\:56fa\:6709\
\:30d9\:30af\:30c8\:30eb", " ", "*)"}]}]}], "Input",ExpressionUUID->"db7c2a62-\
d41e-f049-8b18-92b0ad4b95a6"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Reduce", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"Det", "[", 
      RowBox[{"{", 
       RowBox[{"v", ",", " ", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"xp", " ", "-", " ", 
           RowBox[{"Mean", "[", "x1", "]"}]}], ",", " ", 
          RowBox[{"yp", " ", "-", " ", 
           RowBox[{"Mean", "[", "y", "]"}]}]}], "}"}]}], "}"}], "]"}], " ", "==",
      " ", "0"}], ",", " ", "yp"}], "]"}], " ", "//", " ", "N"}]], "Input",Exp\
ressionUUID->"55dacc3a-2e9c-bc46-89ea-17e36b5d0e9c"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"{", 
     RowBox[{"U", ",", " ", "L", ",", " ", "V"}], "}"}], " ", "=", " ", 
    RowBox[{"SingularValueDecomposition", "[", "A", "]"}]}], ";"}], " ", 
  RowBox[{"(*", " ", "\:7279\:7570\:5024\:5206\:89e3", " ", "*)"}]}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"V", "[", 
    RowBox[{"[", 
     RowBox[{"All", ",", " ", "1"}], "]"}], "]"}], " ", "//", " ", "N"}], 
  "                           ", 
  RowBox[{"(*", " ", 
   RowBox[{"V\:306e\:7b2c1\:5217", 
    RowBox[{"\:ff08", "\:6c42\:3081\:308b\:3082\:306e", "\:ff09"}]}], 
   "*)"}]}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"s2", " ", "=", " ", 
    RowBox[{
     RowBox[{"Diagonal", "[", "L", "]"}], "^", "2"}]}], ";"}], 
  "                        ", 
  RowBox[{"(*", " ", "\:7279\:7570\:5024\:306e2\:4e57", " ", "*)"}]}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"Accumulate", "[", "s2", "]"}], "/", 
   RowBox[{"Total", "[", "s2", "]"}]}], " ", "//", " ", "N", "              ", 
  RowBox[{"(*", " ", 
   RowBox[{"\:7d2f\:7a4d\:5bc4\:4e0e\:7387", 
    RowBox[{"\:ff08", "\:5f8c\:8ff0", "\:ff09"}]}], "*)"}]}]}], "Input",Expres\
sionUUID->"8f572937-cc3b-4340-ac1e-592fe23a3032"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"X", " ", "=", " ", 
   RowBox[{"N", "[", 
    RowBox[{"Transpose", "[", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"1", ",", " ", "3", ",", " ", "6", ",", " ", "10"}], "}"}], 
       ",", " ", 
       RowBox[{"{", 
        RowBox[{"7", ",", " ", "1", ",", " ", "6", ",", " ", "14"}], "}"}]}], 
      "}"}], "]"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"t", " ", "=", " ", "Transpose"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"MatrixForm", "[", 
   RowBox[{"P", " ", "=", " ", 
    RowBox[{"PrincipalComponents", "[", "X", "]"}]}], "]"}], 
  "                 ", 
  RowBox[{
  "(*", " ", "\:4e3b\:6210\:5206\:30b9\:30b3\:30a2", " ", "*)"}]}], "\n", 
 RowBox[{
  RowBox[{"r", " ", "=", " ", 
   RowBox[{"MatrixRank", "[", "P", "]"}]}], ";", " ", 
  RowBox[{"Pr", " ", "=", " ", 
   RowBox[{"P", "[", 
    RowBox[{"[", 
     RowBox[{"All", ",", " ", 
      RowBox[{";;", " ", "r"}]}], "]"}], "]"}]}], ";", " ", 
  RowBox[{"tPr", " ", "=", " ", 
   RowBox[{"t", "[", "Pr", "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"MatrixForm", "[", 
   RowBox[{"tVr1", " ", "=", " ", 
    RowBox[{
     RowBox[{"Inverse", "[", 
      RowBox[{"tPr", " ", ".", " ", "Pr"}], "]"}], " ", ".", " ", "tPr", " ", 
     ".", " ", "X"}]}], "]"}], "         ", 
  RowBox[{"(*", " ", 
   RowBox[{"\:4e3b\:6210\:5206", 
    RowBox[{"\:ff08", "\:65b9\:6cd51", "\:ff09"}]}], "*)"}]}], "\n", 
 RowBox[{
  RowBox[{"MatrixForm", "[", 
   RowBox[{"tVr2", " ", "=", " ", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"PseudoInverse", "[", "P", "]"}], " ", ".", " ", "X"}], ")"}], 
     "[", 
     RowBox[{"[", 
      RowBox[{
       RowBox[{";;", " ", "r"}], ",", " ", "All"}], "]"}], "]"}]}], "]"}], 
  " ", 
  RowBox[{"(*", " ", 
   RowBox[{"\:4e3b\:6210\:5206", 
    RowBox[{"\:ff08", "\:65b9\:6cd52", "\:ff09"}]}], "*)"}]}], "\n", 
 RowBox[{
  RowBox[{"tVr1", "[", 
   RowBox[{"[", "1", "]"}], "]"}], "                        ", 
  RowBox[{"(*", " ", 
   RowBox[{"\:7b2c1\:4e3b\:6210\:5206", 
    RowBox[{"\:ff08", "\:6c42\:3081\:308b\:3082\:306e", "\:ff09"}], 
    RowBox[{"\:ff08", "\:65b9\:6cd51", "\:ff09"}]}], "*)"}]}], "\n", 
 RowBox[{
  RowBox[{"tVr2", "[", 
   RowBox[{"[", "1", "]"}], "]"}], "                        ", 
  RowBox[{"(*", " ", 
   RowBox[{"\:7b2c1\:4e3b\:6210\:5206", 
    RowBox[{"\:ff08", "\:6c42\:3081\:308b\:3082\:306e", "\:ff09"}], 
    RowBox[{"\:ff08", "\:65b9\:6cd52", "\:ff09"}]}], "*)"}]}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"s2", " ", "=", " ", 
    RowBox[{"Diagonal", "[", 
     RowBox[{
      RowBox[{"Transpose", "[", "P", "]"}], " ", ".", " ", "P"}], "]"}]}], 
   ";"}], " ", 
  RowBox[{"(*", " ", "\:7279\:7570\:5024\:306e2\:4e57", " ", "*)"}]}], "\n", 
 RowBox[{
  RowBox[{"Accumulate", "[", "s2", "]"}], "/", 
  RowBox[{"Total", "[", "s2", "]"}], "         ", 
  RowBox[{"(*", " ", 
   RowBox[{"\:7d2f\:7a4d\:5bc4\:4e0e\:7387", 
    RowBox[{"\:ff08", "\:5f8c\:8ff0", "\:ff09"}]}], "*)"}]}]}], "Input",Expres\
sionUUID->"a4fa6844-5dc5-4d4e-9e9b-df6b3090e2c1"]
}, Closed]],

Cell[CellGroupData[{

Cell["20 \:7279\:7570\:5024\:5206\:89e3\:3068\:64ec\:4f3c\:9006\:884c\:5217", \
"Chapter",
 PageBreakAbove->True,ExpressionUUID->"e0e3b92b-9fb4-be42-979c-2c7dc40fb39d"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Clear", "[", "\"\<Global`*\>\"", "]"}], ";"}]], "Input",ExpressionU\
UID->"8962c80b-263d-294d-a1e0-a23cb3eda190"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"A", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"1", ",", " ", "0"}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"1", ",", " ", "1"}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"0", ",", " ", "1"}], "}"}]}], "}"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"{", 
    RowBox[{"U", ",", " ", "S", ",", " ", "V"}], "}"}], " ", "=", " ", 
   RowBox[{"SingularValueDecomposition", "[", "A", "]"}]}], ";", " ", 
  RowBox[{"tV", " ", "=", " ", 
   RowBox[{"Transpose", "[", "V", "]"}]}], ";"}], "\n", 
 RowBox[{"{", 
  RowBox[{
   RowBox[{"Map", "[", 
    RowBox[{"MatrixForm", ",", " ", 
     RowBox[{"{", 
      RowBox[{"U", ",", " ", "S", ",", " ", "tV"}], "}"}]}], "]"}], ",", " ", 
   RowBox[{"A", " ", "==", " ", 
    RowBox[{"U", " ", ".", " ", "S", " ", ".", " ", "tV"}]}]}], 
  "}"}]}], "Input",ExpressionUUID->"546d7da6-afa7-ac44-b141-149043f68104"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
  "url", " ", "=", " ", 
   "\"\<https://github.com/taroyabuki/comath/raw/main/images/boy.jpg\>\""}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"A", " ", "=", " ", 
    RowBox[{"ImageData", "[", 
     RowBox[{"ColorConvert", "[", 
      RowBox[{
       RowBox[{"Import", "[", "url", "]"}], ",", " ", "\"\<Grayscale\>\""}], 
      "]"}], "]"}]}], ";"}], " ", 
  RowBox[{
  "(*", " ", "\:753b\:50cf\:306e\:884c\:5217\:3078\:306e\:5909\:63db", " ", 
   "*)"}]}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"{", 
     RowBox[{"U", ",", " ", "S", ",", " ", "V"}], "}"}], " ", "=", " ", 
    RowBox[{"SingularValueDecomposition", "[", "A", "]"}]}], ";"}], 
  "             ", 
  RowBox[{"(*", " ", "\:7279\:7570\:5024\:5206\:89e3", " ", "*)"}]}], "\n", 
 RowBox[{
  RowBox[{"k", " ", "=", " ", "52"}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"Ak", " ", "=", " ", 
    RowBox[{
     RowBox[{"U", "[", 
      RowBox[{"[", 
       RowBox[{"All", ",", " ", 
        RowBox[{";;", " ", "k"}]}], "]"}], "]"}], " ", ".", " ", 
     RowBox[{"S", "[", 
      RowBox[{"[", 
       RowBox[{
        RowBox[{";;", " ", "k"}], ",", " ", 
        RowBox[{";;", " ", "k"}]}], "]"}], "]"}], " ", ".", " ", 
     RowBox[{"Transpose", "[", 
      RowBox[{"V", "[", 
       RowBox[{"[", 
        RowBox[{"All", ",", " ", 
         RowBox[{";;", " ", "k"}]}], "]"}], "]"}], "]"}]}]}], ";"}], " ", 
  RowBox[{"(*", " ", "\:8fd1\:4f3c", " ", "*)"}]}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"B", " ", "=", " ", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"Ak", " ", "-", " ", 
       RowBox[{"Min", "[", "Ak", "]"}]}], ")"}], "/", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"Max", "[", "Ak", "]"}], " ", "-", " ", 
       RowBox[{"Min", "[", "Ak", "]"}]}], ")"}]}]}], ";"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{"\:6570\:5024\:30920\:ff5e1\:306b\:3059\:308b", "\:ff0e"}], 
   "*)"}]}], "\n", 
 RowBox[{"GraphicsRow", "[", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"Image", "[", "A", "]"}], ",", " ", 
    RowBox[{"Image", "[", "B", "]"}]}], "}"}], "]"}]}], "Input",ExpressionUUID\
->"ca4a273a-51a4-964e-8bdb-ab1ec4c95c15"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"nonzero", "[", 
   RowBox[{"x_", ",", " ", 
    RowBox[{"tol_", " ", ":", " ", 
     RowBox[{"10", "^", 
      RowBox[{"-", "10"}]}]}]}], "]"}], " ", ":=", " ", 
  RowBox[{
   RowBox[{"Chop", "[", 
    RowBox[{"x", ",", " ", "tol"}], "]"}], " ", "!=", " ", "0"}]}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"svd2", "[", "A_", "]"}], " ", ":=", " ", 
   RowBox[{"Module", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"diag", " ", "=", " ", "DiagonalMatrix"}], ",", " ", 
       RowBox[{"eye", " ", "=", " ", "IdentityMatrix"}], ",", " ", 
       RowBox[{"t", " ", "=", " ", "Transpose"}], ",", "\n", "   ", 
       RowBox[{"gs", " ", "=", " ", "Orthogonalize"}], ",", " ", "m", ",", 
       " ", "n", ",", " ", "G", ",", " ", "vals", ",", " ", "vecs", ",", " ", 
       "s", ",", " ", "r", ",", " ", "Sr", ",", " ", "S", ",", " ", "Vr", ",",
        " ", "V", ",", " ", "Ur", ",", " ", "U"}], "}"}], ",", "\n", "  ", 
     RowBox[{
      RowBox[{
       RowBox[{"{", 
        RowBox[{"m", ",", " ", "n"}], "}"}], " ", "=", " ", 
       RowBox[{"Dimensions", "[", "A", "]"}]}], ";", " ", 
      RowBox[{"G", " ", "=", " ", 
       RowBox[{
        RowBox[{"t", "[", "A", "]"}], " ", ".", " ", "A"}]}], ";", 
      "                      ", 
      RowBox[{"(*", " ", "\:2460", " ", "*)"}], "\n", "  ", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"vals", ",", " ", "vecs"}], "}"}], " ", "=", " ", 
       RowBox[{"Eigensystem", "[", "G", "]"}]}], ";", 
      "                             ", 
      RowBox[{"(*", " ", "\:2461", " ", "*)"}], "\n", "  ", 
      RowBox[{"s", " ", "=", " ", 
       RowBox[{"Sqrt", "[", 
        RowBox[{"Select", "[", 
         RowBox[{"vals", ",", " ", "nonzero"}], "]"}], "]"}]}], ";", " ", 
      RowBox[{"r", " ", "=", " ", 
       RowBox[{"Length", "[", "s", "]"}]}], ";", "            ", 
      RowBox[{"(*", " ", "\:2462", " ", "*)"}], "\n", "  ", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{"r", " ", "!=", " ", "0"}], ",", "\n", "   ", 
        RowBox[{
         RowBox[{"Sr", " ", "=", " ", 
          RowBox[{"diag", "[", 
           RowBox[{"s", ",", " ", "0", ",", " ", 
            RowBox[{"{", 
             RowBox[{"r", ",", " ", "r"}], "}"}]}], "]"}]}], ";", 
         "                                  ", 
         RowBox[{"(*", " ", "\:2463", " ", "*)"}], "\n", "   ", 
         RowBox[{"Vr", " ", "=", " ", 
          RowBox[{"t", "[", 
           RowBox[{"gs", "[", 
            RowBox[{"Take", "[", 
             RowBox[{"vecs", ",", " ", "r"}], "]"}], "]"}], "]"}]}], ";", 
         "                                ", 
         RowBox[{"(*", " ", "\:2464", " ", "*)"}], "\n", "   ", 
         RowBox[{"Ur", " ", "=", " ", 
          RowBox[{"A", " ", ".", " ", "Vr", " ", ".", " ", 
           RowBox[{"diag", "[", 
            RowBox[{
             RowBox[{"1", "/", "s"}], ",", " ", "0", ",", " ", 
             RowBox[{"{", 
              RowBox[{"r", ",", " ", "r"}], "}"}]}], "]"}]}]}], ";", 
         "                       ", 
         RowBox[{"(*", " ", "\:2465", " ", "*)"}], "\n", "   ", 
         RowBox[{"S", " ", "=", " ", 
          RowBox[{"diag", "[", 
           RowBox[{"s", ",", " ", "0", ",", " ", 
            RowBox[{"{", 
             RowBox[{"m", ",", " ", "n"}], "}"}]}], "]"}]}], ";", 
         "                                   ", 
         RowBox[{"(*", " ", "\:2466", " ", "*)"}], "\n", "   ", 
         RowBox[{"V", " ", "=", " ", 
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{"n", " ", "==", " ", "r"}], ",", " ", "Vr", ",", " ", 
            RowBox[{"Join", "[", 
             RowBox[{"Vr", ",", " ", 
              RowBox[{"t", "[", 
               RowBox[{"gs", "[", 
                RowBox[{"NullSpace", "[", 
                 RowBox[{"t", "[", "Vr", "]"}], "]"}], "]"}], "]"}], ",", " ",
               "2"}], "]"}]}], "]"}]}], ";", " ", 
         RowBox[{"(*", " ", "\:2467", " ", "*)"}], "\n", "   ", 
         RowBox[{"U", " ", "=", " ", 
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{"m", " ", "==", " ", "r"}], ",", " ", "Ur", ",", " ", 
            RowBox[{"Join", "[", 
             RowBox[{"Ur", ",", " ", 
              RowBox[{"t", "[", 
               RowBox[{"gs", "[", 
                RowBox[{"NullSpace", "[", 
                 RowBox[{"t", "[", "Ur", "]"}], "]"}], "]"}], "]"}], ",", " ",
               "2"}], "]"}]}], "]"}]}]}], ",", " ", 
        RowBox[{"(*", " ", "\:2468", " ", "*)"}], "\n", "   ", 
        RowBox[{"(*", " ", "else", " ", "*)"}], "\n", "   ", 
        RowBox[{
         RowBox[{"S", " ", "=", " ", 
          RowBox[{"0", " ", "A"}]}], ";", " ", 
         RowBox[{"V", " ", "=", " ", 
          RowBox[{"eye", "[", "n", "]"}]}], ";", " ", 
         RowBox[{"U", " ", "=", " ", 
          RowBox[{"eye", "[", "m", "]"}]}], ";", "\n", "   ", 
         RowBox[{"Sr", " ", "=", " ", 
          RowBox[{"{", 
           RowBox[{"{", "0", "}"}], "}"}]}], ";", " ", 
         RowBox[{"Vr", " ", "=", " ", 
          RowBox[{"V", "[", 
           RowBox[{"[", 
            RowBox[{"All", ",", " ", 
             RowBox[{"{", "1", "}"}]}], "]"}], "]"}]}], ";", " ", 
         RowBox[{"Ur", " ", "=", " ", 
          RowBox[{"U", "[", 
           RowBox[{"[", 
            RowBox[{"All", ",", " ", 
             RowBox[{"{", "1", "}"}]}], "]"}], "]"}]}]}]}], "]"}], ";", "\n", 
      "  ", 
      RowBox[{"{", 
       RowBox[{
       "Ur", ",", " ", "Sr", ",", " ", "Vr", ",", " ", "U", ",", " ", "S", 
        ",", " ", "V"}], "}"}]}]}], "]"}]}], "\n"}], "\n", 
 RowBox[{
  RowBox[{"A", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"1", ",", " ", "0"}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"1", ",", " ", "1"}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"0", ",", " ", "1"}], "}"}]}], "}"}]}], ";", " ", 
  RowBox[{"Map", "[", 
   RowBox[{"MatrixForm", ",", " ", 
    RowBox[{"svd2", "[", "A", "]"}]}], "]"}], " ", 
  RowBox[{"(*", " ", "\:52d5\:4f5c\:78ba\:8a8d", " ", "*)"}]}]}], "Input",Expr\
essionUUID->"43fa1abf-835a-8342-b5c8-a3144e22790b"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"tol", " ", "=", " ", 
   RowBox[{"10", "^", 
    RowBox[{"-", "10"}]}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"isOrtho", "[", "A_", "]"}], " ", ":=", " ", 
  RowBox[{"With", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"e", " ", "=", " ", 
      RowBox[{"IdentityMatrix", "[", 
       RowBox[{
        RowBox[{"Dimensions", "[", "A", "]"}], "[", 
        RowBox[{"[", "2", "]"}], "]"}], "]"}]}], "}"}], ",", "\n", "  ", 
    RowBox[{
     RowBox[{"Chop", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"Transpose", "[", "A", "]"}], " ", ".", " ", "A"}], " ", "-",
         " ", "e"}], ",", " ", "tol"}], "]"}], " ", "==", " ", 
     RowBox[{"0", " ", "e"}]}]}], "]"}]}], "\n", 
 RowBox[{
  RowBox[{"isDiagDesc", "[", "A_", "]"}], " ", ":=", " ", 
  RowBox[{"With", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"d", " ", "=", " ", 
      RowBox[{"Diagonal", "[", "A", "]"}]}], "}"}], ",", " ", 
    RowBox[{"d", " ", "==", " ", 
     RowBox[{"Sort", "[", 
      RowBox[{
       RowBox[{"Abs", "[", "d", "]"}], ",", " ", "Greater"}], "]"}]}]}], 
   "]"}]}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"t", " ", "=", " ", "Transpose"}], ";"}], "\n"}], "\n", 
 RowBox[{
  RowBox[{"A", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"1", ",", " ", "0"}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"1", ",", " ", "1"}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"0", ",", " ", "1"}], "}"}]}], "}"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"{", 
     RowBox[{
     "Ur", ",", " ", "Sr", ",", " ", "Vr", ",", " ", "U", ",", " ", "S", ",", 
      " ", "V"}], "}"}], " ", "=", " ", 
    RowBox[{"svd2", "[", "A", "]"}]}], ";"}], "                   ", 
  RowBox[{"(*", " ", "\:7279\:7570\:5024\:5206\:89e3", " ", "*)"}]}], "\n", 
 RowBox[{
  RowBox[{"{", 
   RowBox[{
    RowBox[{"isOrtho", "[", "Ur", "]"}], ",", " ", 
    RowBox[{"isOrtho", "[", "Vr", "]"}], ",", " ", 
    RowBox[{"isOrtho", "[", "U", "]"}], ",", " ", 
    RowBox[{"isOrtho", "[", "V", "]"}], ",", " ", 
    RowBox[{"(*", " ", "\:2460", " ", "*)"}], "\n", " ", 
    RowBox[{"SquareMatrixQ", "[", "U", "]"}], ",", " ", 
    RowBox[{"SquareMatrixQ", "[", "V", "]"}], ",", "               ", 
    RowBox[{"(*", " ", "\:2461", " ", "*)"}], "\n", " ", 
    RowBox[{"isDiagDesc", "[", "Sr", "]"}], ",", " ", 
    RowBox[{"isDiagDesc", "[", "S", "]"}], ",", "                    ", 
    RowBox[{"(*", " ", "\:2462", " ", "*)"}], "\n", " ", 
    RowBox[{
     RowBox[{"Chop", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"N", "[", "A", "]"}], " ", "-", " ", 
        RowBox[{"Ur", " ", ".", " ", "Sr", " ", ".", " ", 
         RowBox[{"t", "[", "Vr", "]"}]}]}], ",", " ", "tol"}], "]"}], " ", "==",
      " ", 
     RowBox[{"0", " ", "A"}]}], ",", "         ", 
    RowBox[{"(*", " ", 
     RowBox[{"\:2463", "-", "1"}], " ", "*)"}], "\n", " ", 
    RowBox[{
     RowBox[{"Chop", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"N", "[", "A", "]"}], " ", "-", " ", 
        RowBox[{"U", " ", ".", " ", "S", " ", ".", " ", 
         RowBox[{"t", "[", "V", "]"}]}]}], ",", " ", "tol"}], "]"}], " ", "==",
      " ", 
     RowBox[{"0", " ", "A"}]}]}], "}"}], "            ", 
  RowBox[{"(*", " ", 
   RowBox[{"\:2463", "-", "2"}], " ", "*)"}]}]}], "Input",ExpressionUUID->\
"6348a778-6319-b947-b5eb-f2a06836bed1"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Clear", "[", "\"\<Global`*\>\"", "]"}], ";"}]], "Input",ExpressionU\
UID->"c2cf749b-34d7-4b47-8ada-fe8f3fc4926c"],

Cell[BoxData[
 RowBox[{
  RowBox[{"A", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"1", ",", " ", "0"}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"1", ",", " ", "1"}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"0", ",", " ", "1"}], "}"}]}], "}"}]}], ";", " ", 
  RowBox[{"PseudoInverse", "[", "A", "]"}]}]], "Input",ExpressionUUID->\
"3186cf9f-6f22-394e-a9c5-370c31165901"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"A", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"1", ",", " ", "0"}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"1", ",", " ", "1"}], "}"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"0", ",", " ", "1"}], "}"}]}], "}"}]}], ";", " ", 
  RowBox[{"b", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{"2", ",", " ", "0", ",", " ", "2"}], "}"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"PseudoInverse", "[", "A", "]"}], " ", ".", " ", "b"}]}], "Input",Ex\
pressionUUID->"db343569-4c60-d74c-bdb3-ffb60381f4bf"]
}, Closed]]
},
WindowSize->{582, 655.5},
WindowMargins->{{663.5, Automatic}, {Automatic, 179}},
FrontEndVersion->"14.0 for Microsoft Windows (64-bit) (2023\:5e7412\:670812\
\:65e5)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"6a139ab9-02ff-4242-923f-9a60bdd9f877"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 390, 7, 35, "Text",ExpressionUUID->"35d1fb62-15d7-424b-812f-7e71fa6bdf0b"],
Cell[CellGroupData[{
Cell[973, 31, 123, 1, 69, "Chapter",ExpressionUUID->"4093d2ad-bfc4-bb42-85f4-d2f6c1ae703b",
 PageBreakAbove->True],
Cell[1099, 34, 148, 3, 28, "Input",ExpressionUUID->"032a1b3f-e74e-6147-affa-2bbef39d050f"],
Cell[1250, 39, 660, 17, 67, "Input",ExpressionUUID->"7f33e257-ce12-9141-b31b-0cc5846f3662"]
}, Closed]],
Cell[CellGroupData[{
Cell[1947, 61, 123, 1, 58, "Chapter",ExpressionUUID->"03a8a952-5c92-e24a-bf77-d123a6d51f4c",
 PageBreakAbove->True],
Cell[2073, 64, 148, 3, 28, "Input",ExpressionUUID->"adef7d53-c80b-3b46-a7f0-a70030788ea1"],
Cell[2224, 69, 158, 4, 28, "Input",ExpressionUUID->"d915f2a7-896d-9a41-8522-c2266123b5bb"],
Cell[2385, 75, 148, 4, 28, "Input",ExpressionUUID->"4e52707c-008b-4c49-90a1-71ad052e0a2b"],
Cell[2536, 81, 173, 4, 28, "Input",ExpressionUUID->"a7e04d6a-61c7-034c-b564-058b182802bf"],
Cell[2712, 87, 105, 1, 28, "Input",ExpressionUUID->"bb4455a1-c528-0145-bf65-481960b9d5eb"],
Cell[2820, 90, 152, 4, 28, "Input",ExpressionUUID->"619b25fd-f10c-dd4c-821d-1e5abc49e0fa"],
Cell[2975, 96, 150, 3, 28, "Input",ExpressionUUID->"1dfdf372-c928-c64f-adc4-54dfea9d82ef"],
Cell[3128, 101, 192, 4, 28, "Input",ExpressionUUID->"5da71e61-b91f-c845-9176-0a5f811c30c4"],
Cell[3323, 107, 104, 1, 28, "Input",ExpressionUUID->"9dd570aa-eb99-e84d-a009-d9ef880882c1"],
Cell[3430, 110, 115, 1, 28, "Input",ExpressionUUID->"6a73922b-659f-9b48-8dab-d76620b0923d"],
Cell[3548, 113, 366, 11, 28, "Input",ExpressionUUID->"912a426e-8355-fc4a-ae21-34e315b9d51c"],
Cell[3917, 126, 367, 9, 48, "Input",ExpressionUUID->"712e2086-47cf-db41-b929-0a12e1e4b4de"],
Cell[4287, 137, 500, 13, 48, "Input",ExpressionUUID->"eff1c56a-54ca-fb40-80e6-1b41e2e84fb9"],
Cell[4790, 152, 500, 13, 48, "Input",ExpressionUUID->"29f4d69c-0a69-a344-9164-d1f7f135e908"],
Cell[5293, 167, 137, 3, 28, "Input",ExpressionUUID->"20394e8e-ab97-3c4a-9128-d39d41d0724a"],
Cell[5433, 172, 148, 3, 28, "Input",ExpressionUUID->"46612b71-5a25-3b4f-8eb7-47852cf046f2"],
Cell[5584, 177, 178, 4, 28, "Input",ExpressionUUID->"7b03a7df-b4e9-6749-977a-dae8534bb452"],
Cell[5765, 183, 316, 9, 67, "Input",ExpressionUUID->"e0f26768-b7c5-cd48-913f-c81d7f027318"],
Cell[6084, 194, 318, 8, 28, "Input",ExpressionUUID->"d9dc3670-4b1f-934a-920d-593f5876e455"],
Cell[6405, 204, 149, 3, 28, "Input",ExpressionUUID->"507c60bf-a4ad-d249-ac97-18d903733eb6"],
Cell[6557, 209, 450, 13, 67, "Input",ExpressionUUID->"14e78dcb-2e94-c34b-b85b-73577c9f81ea"],
Cell[7010, 224, 229, 5, 28, "Input",ExpressionUUID->"704b3504-3a88-a944-bba3-6cca5c7e5d9d"],
Cell[7242, 231, 493, 13, 48, "Input",ExpressionUUID->"3635a271-b387-704a-a950-9dd03f7e76ca"],
Cell[7738, 246, 274, 6, 28, "Input",ExpressionUUID->"206c20c3-a64f-9344-8819-d2434a5ede37"],
Cell[8015, 254, 868, 25, 86, "Input",ExpressionUUID->"3814ef04-2032-9a4e-9f7e-232faed80dd1"],
Cell[8886, 281, 148, 3, 28, "Input",ExpressionUUID->"16cf987c-8343-f344-8e09-122ce2d8d784"],
Cell[9037, 286, 273, 7, 48, "Input",ExpressionUUID->"f9c87ac4-65cb-3943-86c9-778d4e1fe620"],
Cell[9313, 295, 338, 9, 48, "Input",ExpressionUUID->"7aa43e70-d2d4-4b4f-8cb3-9a1af974fd25"],
Cell[9654, 306, 303, 8, 48, "Input",ExpressionUUID->"2a283888-f4d3-634b-b6fb-eed59b9418b9"],
Cell[9960, 316, 303, 8, 67, "Input",ExpressionUUID->"328bb4b1-7e02-8f42-bc3e-a03d2085bd61"],
Cell[10266, 326, 605, 18, 86, "Input",ExpressionUUID->"ee072a0d-8f5e-8345-a54d-b08d3f4a7d8f"],
Cell[10874, 346, 279, 7, 67, "Input",ExpressionUUID->"4d721fcf-6f9d-d747-a145-1a56187f7d95"],
Cell[11156, 355, 2090, 61, 295, "Input",ExpressionUUID->"37a4b7a0-20e8-b147-b56d-1311434ba939"],
Cell[13249, 418, 237, 6, 28, "Input",ExpressionUUID->"4acb3664-49e9-c842-bcca-328b8b6f30a7"],
Cell[13489, 426, 337, 9, 67, "Input",ExpressionUUID->"7c20ecb0-69f5-b34b-b220-dbc5024768c1"],
Cell[13829, 437, 502, 15, 67, "Input",ExpressionUUID->"7068ed68-dc68-4248-a222-22b85d879ff3"],
Cell[14334, 454, 278, 7, 48, "Input",ExpressionUUID->"599b2dc7-37dc-f647-9838-462b21041373"],
Cell[14615, 463, 143, 3, 28, "Input",ExpressionUUID->"6d467e35-d9b5-c442-9045-d41f611e17fe"],
Cell[14761, 468, 163, 4, 28, "Input",ExpressionUUID->"48e0c27f-1490-ae48-a941-37222699581f"],
Cell[14927, 474, 148, 3, 28, "Input",ExpressionUUID->"1835167c-e86f-7048-8abb-080bee4cdc5a"],
Cell[15078, 479, 188, 5, 28, "Input",ExpressionUUID->"1005d4c0-e61b-914e-b344-0daaedcc1aa5"],
Cell[15269, 486, 148, 3, 28, "Input",ExpressionUUID->"0ffd8016-2a67-ae49-8cf1-626ffe87ba4e"],
Cell[15420, 491, 167, 4, 28, "Input",ExpressionUUID->"e0753c62-ce22-f341-b1d3-fa4b785f0201"],
Cell[15590, 497, 741, 21, 67, "Input",ExpressionUUID->"b3d4dd28-0ce6-884e-b9d8-41b2699d9659"],
Cell[16334, 520, 156, 3, 28, "Input",ExpressionUUID->"f6e84e76-9bf5-6e42-b3d0-7429061a0a60"],
Cell[16493, 525, 211, 5, 28, "Input",ExpressionUUID->"ab28cadc-e676-d04e-be6b-f99ad27c7c1e"],
Cell[16707, 532, 204, 6, 28, "Input",ExpressionUUID->"b3aa3c23-848a-5c4d-b6a3-15358ac5c585"],
Cell[16914, 540, 630, 17, 67, "Input",ExpressionUUID->"2567c065-42ac-7e4b-ab41-e85ad1ed6d17"],
Cell[17547, 559, 259, 6, 28, "Input",ExpressionUUID->"fadfa89c-fb88-054c-b4ce-fa09a33c8dbd"],
Cell[17809, 567, 148, 3, 28, "Input",ExpressionUUID->"f76f9dda-e29f-6e48-a4a2-52e92bdf82e6"],
Cell[17960, 572, 325, 9, 48, "Input",ExpressionUUID->"d02b6319-b991-7f41-a9ec-083411c24584"],
Cell[18288, 583, 246, 6, 28, "Input",ExpressionUUID->"435c9be1-9f97-e547-8ff9-43a17e8a9ebf"],
Cell[18537, 591, 337, 9, 28, "Input",ExpressionUUID->"4751a8e7-d366-0742-a472-11192b51926b"],
Cell[18877, 602, 363, 10, 28, "Input",ExpressionUUID->"1fff8674-f7b7-8b4e-90b6-c27b6e809992"],
Cell[19243, 614, 426, 12, 48, "Input",ExpressionUUID->"4ff966a3-ddfe-3746-be20-ec3fea61a032"]
}, Closed]],
Cell[CellGroupData[{
Cell[19706, 631, 129, 1, 58, "Chapter",ExpressionUUID->"99af54ff-dbed-bc4d-92d7-8978e3bd56c2",
 PageBreakAbove->True],
Cell[19838, 634, 148, 3, 28, "Input",ExpressionUUID->"f881225e-288a-bd45-90b9-70c156a7cd47"],
Cell[19989, 639, 246, 6, 28, "Input",ExpressionUUID->"f8a930f5-e6b4-f648-a929-3f2d78045eab"],
Cell[20238, 647, 201, 5, 28, "Input",ExpressionUUID->"323a646d-b103-8244-b043-1a474c9bfe0f"],
Cell[20442, 654, 113, 1, 28, "Input",ExpressionUUID->"b24100b7-caff-b844-83fd-5a0a47f7d4c5"],
Cell[20558, 657, 160, 3, 28, "Input",ExpressionUUID->"8202ea78-f906-014b-8864-29826a50278a"],
Cell[20721, 662, 164, 3, 28, "Input",ExpressionUUID->"1fc8f27b-7d87-3c46-89b8-987278e33314"],
Cell[20888, 667, 225, 6, 48, "Input",ExpressionUUID->"c01c7b32-e2d5-b840-93b3-c3a6e8038ae7"],
Cell[21116, 675, 337, 9, 48, "Input",ExpressionUUID->"c4b15a11-a5d1-364b-a749-c7755e494d42"],
Cell[21456, 686, 114, 1, 28, "Input",ExpressionUUID->"fc4cceb0-c0a2-ff4e-95de-6af0239deaf4"],
Cell[21573, 689, 337, 9, 48, "Input",ExpressionUUID->"acfd69da-e465-3f4b-a270-f78676b5a3ed"],
Cell[21913, 700, 366, 9, 28, "Input",ExpressionUUID->"7efad02a-0754-a541-b750-54d12b6dc2a3"],
Cell[22282, 711, 1046, 30, 105, "Input",ExpressionUUID->"eaecc949-5b20-2e4e-9b9f-6ad48f4b0700"],
Cell[23331, 743, 307, 8, 48, "Input",ExpressionUUID->"1492ee58-e18a-3b42-aa88-3f3075eec1c6"],
Cell[23641, 753, 1221, 36, 86, "Input",ExpressionUUID->"5c05c273-9319-994e-850d-d07598abf994"],
Cell[24865, 791, 312, 9, 28, "Input",ExpressionUUID->"a3d8dfcc-2aac-1b45-a95c-944c170ee840"],
Cell[25180, 802, 581, 17, 67, "Input",ExpressionUUID->"b5946cb3-ab61-3e48-82b0-cb3abf62f15b"],
Cell[25764, 821, 573, 16, 67, "Input",ExpressionUUID->"9db12230-6aa6-f744-92b2-8413389a9ba4"],
Cell[26340, 839, 811, 24, 67, "Input",ExpressionUUID->"8df5ffdd-6fd6-e44b-8efc-c788a7c74a52"],
Cell[27154, 865, 148, 3, 28, "Input",ExpressionUUID->"ca62b515-e69f-d44e-b996-588cc069110d"],
Cell[27305, 870, 409, 11, 48, "Input",ExpressionUUID->"b2825c0d-0033-ff49-8d7f-760287c041b0"],
Cell[27717, 883, 294, 7, 50, "Input",ExpressionUUID->"68388177-9d1b-5b40-93d8-326ebed7e85e"],
Cell[28014, 892, 236, 5, 48, "Input",ExpressionUUID->"89815481-2094-a843-a3c0-9a17b73bcb1b"],
Cell[28253, 899, 1077, 28, 219, "Input",ExpressionUUID->"54557410-5850-bf49-871b-a00655c4f46c"],
Cell[29333, 929, 148, 3, 28, "Input",ExpressionUUID->"b7df5bef-02a2-8a4a-aff8-ada5cc40a2d1"],
Cell[29484, 934, 961, 22, 86, "Input",ExpressionUUID->"8b529753-7269-6d46-abed-c152c01e49e7"],
Cell[30448, 958, 1205, 26, 105, "Input",ExpressionUUID->"3938056f-1d39-9244-95ea-c97ab65c28cc"],
Cell[31656, 986, 222, 5, 28, "Input",ExpressionUUID->"9148f8c3-1070-2a4c-8a1f-16d154cbf36c"],
Cell[31881, 993, 216, 5, 28, "Input",ExpressionUUID->"ac3ce9ad-bd5c-b04d-9a61-3b9a73182360"],
Cell[32100, 1000, 338, 9, 28, "Input",ExpressionUUID->"1b1edddc-0e51-5a40-b850-a1214fdecc63"],
Cell[32441, 1011, 213, 5, 28, "Input",ExpressionUUID->"aa2a8f70-8373-3c48-b14d-3c4dd0e99f11"]
}, Closed]],
Cell[CellGroupData[{
Cell[32691, 1021, 141, 1, 58, "Chapter",ExpressionUUID->"e5536d4f-3c36-364a-abd0-3e7e34377d87",
 PageBreakAbove->True],
Cell[32835, 1024, 148, 3, 28, "Input",ExpressionUUID->"41043b15-d62c-5347-86bb-6686a3555e57"],
Cell[32986, 1029, 336, 9, 28, "Input",ExpressionUUID->"ef85a2d3-8948-834c-8196-718d13745984"],
Cell[33325, 1040, 548, 16, 67, "Input",ExpressionUUID->"9bc3cbba-f060-8c4b-b838-e8e43fe48580"],
Cell[33876, 1058, 357, 9, 28, "Input",ExpressionUUID->"45304477-8de8-2443-8a97-d5ed3202a675"],
Cell[34236, 1069, 553, 15, 48, "Input",ExpressionUUID->"ed3515a4-76c3-6d44-b8e8-511a795266eb"],
Cell[34792, 1086, 428, 12, 28, "Input",ExpressionUUID->"9ceb7832-9add-5748-b692-130962b165ff"],
Cell[35223, 1100, 603, 17, 67, "Input",ExpressionUUID->"66ff1a9e-2751-8e42-9bc9-28cdd82c9834"],
Cell[35829, 1119, 514, 14, 48, "Input",ExpressionUUID->"c1fa2d50-3564-9442-a141-3f157c0ef8f9"],
Cell[36346, 1135, 746, 21, 48, "Input",ExpressionUUID->"9c3651dc-5671-2b48-a798-1e4d56fb5532"],
Cell[37095, 1158, 1103, 30, 105, "Input",ExpressionUUID->"4674e51b-3804-3640-bf5c-0b390adab078"],
Cell[38201, 1190, 222, 5, 28, "Input",ExpressionUUID->"0c4741f7-0404-c94c-85e3-26ca0a4a35cf"],
Cell[38426, 1197, 123, 1, 28, "Input",ExpressionUUID->"43fc497f-20bb-0741-8d62-e0e3a6ac0793"],
Cell[38552, 1200, 653, 20, 67, "Input",ExpressionUUID->"3e4f3b36-3200-bd45-b49b-47780d4a84d2"],
Cell[39208, 1222, 994, 27, 67, "Input",ExpressionUUID->"5b1099b2-bbdf-ca42-b7e6-0d4496f6a203"],
Cell[40205, 1251, 148, 3, 28, "Input",ExpressionUUID->"17fbabc9-89f3-514d-bc0b-af98938a58ca"],
Cell[40356, 1256, 295, 8, 28, "Input",ExpressionUUID->"d410721c-d098-6149-bdae-330c9629e698"],
Cell[40654, 1266, 1436, 44, 200, "Input",ExpressionUUID->"3c0e881a-1060-d040-b3cc-ba88385a030d"],
Cell[42093, 1312, 444, 12, 28, "Input",ExpressionUUID->"6851f60f-9913-3d4d-8714-bbb153f58862"],
Cell[42540, 1326, 148, 3, 28, "Input",ExpressionUUID->"69dbe638-0bf9-6e4e-9de7-31855f85fa9c"],
Cell[42691, 1331, 588, 17, 28, "Input",ExpressionUUID->"f9ed3095-e342-7c4e-a1d9-3d2644bad47e"],
Cell[43282, 1350, 266, 8, 28, "Input",ExpressionUUID->"3373fd44-5dbb-b045-bd84-33e2d6e6a96c"],
Cell[43551, 1360, 148, 3, 28, "Input",ExpressionUUID->"be985c64-ba28-014b-8cad-9aafbd68ef40"],
Cell[43702, 1365, 428, 12, 48, "Input",ExpressionUUID->"3cea2890-ade9-4b45-8439-37c3ae286b7b"],
Cell[44133, 1379, 148, 3, 28, "Input",ExpressionUUID->"9c79b06b-1689-1641-9f6b-83335a70ef06"],
Cell[44284, 1384, 289, 8, 28, "Input",ExpressionUUID->"51c840a7-d5cf-3848-b3cb-481d81608bc3"]
}, Closed]],
Cell[CellGroupData[{
Cell[44610, 1397, 117, 1, 58, "Chapter",ExpressionUUID->"f8044a0e-db80-4145-8d3e-5f470b532e88",
 PageBreakAbove->True],
Cell[44730, 1400, 148, 3, 28, "Input",ExpressionUUID->"0ce29f1b-d470-2844-abf8-4347adef398a"],
Cell[44881, 1405, 401, 10, 48, "Input",ExpressionUUID->"14f50d07-508b-5f4b-bc76-6062eb1a183f"],
Cell[45285, 1417, 251, 6, 28, "Input",ExpressionUUID->"84d1613e-74f5-e74a-8ec8-e29bcf0717ea"],
Cell[45539, 1425, 407, 10, 28, "Input",ExpressionUUID->"6437b8ef-a8ef-4744-8ae1-b258d57a2043"],
Cell[45949, 1437, 301, 8, 28, "Input",ExpressionUUID->"7249ca78-d1c6-7b40-afbd-626ba0941042"],
Cell[46253, 1447, 303, 8, 28, "Input",ExpressionUUID->"94d74021-5806-4a48-8015-06efd6150bd9"],
Cell[46559, 1457, 681, 18, 67, "Input",ExpressionUUID->"9b34cf4e-3485-0442-86a4-1c9abaab057d"],
Cell[47243, 1477, 148, 3, 28, "Input",ExpressionUUID->"e0b050fd-52d8-a14f-a40c-2ae85555cf32"],
Cell[47394, 1482, 326, 8, 28, "Input",ExpressionUUID->"dbd18f2b-4e77-bb44-a2db-27e307e46715"],
Cell[47723, 1492, 280, 8, 28, "Input",ExpressionUUID->"92a735de-0318-b54f-8fdd-81460dd35a2f"],
Cell[48006, 1502, 691, 19, 67, "Input",ExpressionUUID->"49f2e052-4b16-fd4b-b88c-d4d9fb9c9ade"],
Cell[48700, 1523, 148, 3, 28, "Input",ExpressionUUID->"de9a5ab4-75f2-7a40-8048-b45efd1d279b"],
Cell[48851, 1528, 538, 13, 67, "Input",ExpressionUUID->"2649e4c4-c2f2-9b42-b176-4ee227543652"],
Cell[49392, 1543, 1291, 35, 200, "Input",ExpressionUUID->"c297c1b3-ec78-5144-9097-6376151e6f30"],
Cell[50686, 1580, 148, 3, 28, "Input",ExpressionUUID->"82250f1c-f537-d14a-ad51-5b21d43caa0f"],
Cell[50837, 1585, 281, 8, 28, "Input",ExpressionUUID->"33118184-1b27-234e-8c93-42a483860254"],
Cell[51121, 1595, 391, 10, 28, "Input",ExpressionUUID->"c618e54a-a2aa-fe45-9c54-767db0579eb4"],
Cell[51515, 1607, 459, 12, 28, "Input",ExpressionUUID->"080598f3-0ccb-5242-af99-160e7031c068"],
Cell[51977, 1621, 488, 13, 48, "Input",ExpressionUUID->"9866c0ea-6bdb-c849-955c-d0bb5f96f70f"],
Cell[52468, 1636, 642, 18, 48, "Input",ExpressionUUID->"600d320b-edd0-db48-9d89-471bf79cbf24"],
Cell[53113, 1656, 497, 14, 48, "Input",ExpressionUUID->"45e17605-65d1-d548-bfeb-040aec8cfcf7"],
Cell[53613, 1672, 578, 16, 67, "Input",ExpressionUUID->"a18542b8-bada-2447-8368-9c944ed2c995"]
}, Closed]],
Cell[CellGroupData[{
Cell[54228, 1693, 136, 1, 58, "Chapter",ExpressionUUID->"fecc08d7-cd0e-c64b-a1af-b04f2ecf09ee",
 PageBreakAbove->True],
Cell[54367, 1696, 148, 3, 28, "Input",ExpressionUUID->"f806e420-da7f-ae41-bfbf-f721a1bd63de"],
Cell[54518, 1701, 645, 16, 67, "Input",ExpressionUUID->"6c7d3af0-d1b4-5c48-a911-f9e991ef7576"],
Cell[55166, 1719, 223, 5, 28, "Input",ExpressionUUID->"decf0d2c-aaba-7a45-9882-fadda9ecce8c"],
Cell[55392, 1726, 403, 10, 48, "Input",ExpressionUUID->"bc1daa45-4d2f-0b4e-830c-ca0a9143cf26"],
Cell[55798, 1738, 358, 9, 28, "Input",ExpressionUUID->"96106678-85ef-6e43-b0cf-ed73da9cc575"],
Cell[56159, 1749, 148, 3, 28, "Input",ExpressionUUID->"ddeba7a2-09ea-3d45-9b77-fe3529320b74"],
Cell[56310, 1754, 378, 9, 48, "Input",ExpressionUUID->"3038ece2-9d7e-be41-96ca-d67aff4b299a"],
Cell[56691, 1765, 435, 11, 48, "Input",ExpressionUUID->"e30e401d-db1c-b143-8583-65e7af28e49d"],
Cell[57129, 1778, 179, 4, 28, "Input",ExpressionUUID->"9510c711-d589-7e48-adee-67ca1867ec0b"],
Cell[57311, 1784, 116, 1, 28, "Input",ExpressionUUID->"463bf4ee-53f1-8649-8e02-3e1b871fbac4"],
Cell[57430, 1787, 395, 12, 28, "Input",ExpressionUUID->"179aa62b-01d4-8e4b-817f-95636682035b"],
Cell[57828, 1801, 154, 3, 28, "Input",ExpressionUUID->"c10ca64f-4705-134d-857f-b65e7a769b22"],
Cell[57985, 1806, 211, 5, 28, "Input",ExpressionUUID->"e69e6a21-dd6f-2e42-888e-f9264f17eb76"],
Cell[58199, 1813, 240, 6, 28, "Input",ExpressionUUID->"844afbf1-627e-ab4a-9ce8-54ae889b71bf"],
Cell[58442, 1821, 215, 5, 28, "Input",ExpressionUUID->"3b5f04de-7509-c54a-a699-cc52e1d1c54a"],
Cell[58660, 1828, 151, 3, 28, "Input",ExpressionUUID->"eb6b295b-ba1d-cb46-98a9-1e13f42f57c1"]
}, Closed]],
Cell[CellGroupData[{
Cell[58848, 1836, 136, 1, 58, "Chapter",ExpressionUUID->"0d734c38-316d-cd44-9a20-112ef652c940",
 PageBreakAbove->True],
Cell[58987, 1839, 148, 3, 28, "Input",ExpressionUUID->"a281aa2c-e673-2c4b-8423-27555af82f9a"],
Cell[59138, 1844, 553, 16, 48, "Input",ExpressionUUID->"e9341309-eb57-354b-a7c9-5d00782ac7b0"],
Cell[59694, 1862, 148, 3, 28, "Input",ExpressionUUID->"d03f2402-970b-1847-a774-92efdfbdf423"],
Cell[59845, 1867, 493, 14, 48, "Input",ExpressionUUID->"07d46f4b-ab67-c24d-86e6-6a64627f7e67"],
Cell[60341, 1883, 210, 5, 28, "Input",ExpressionUUID->"f8921658-4f90-754f-9dba-1909267c8ead"],
Cell[60554, 1890, 417, 12, 28, "Input",ExpressionUUID->"ef2373a7-c87e-fe4e-9bb2-941c6c727ff7"],
Cell[60974, 1904, 184, 4, 28, "Input",ExpressionUUID->"2bf314d2-f3df-f244-9eaa-9de0872cc388"],
Cell[61161, 1910, 148, 3, 28, "Input",ExpressionUUID->"15a148d0-a50e-0b4e-8437-6d0a09b9b37b"],
Cell[61312, 1915, 844, 24, 67, "Input",ExpressionUUID->"ac130e68-08db-3f49-b7d0-d2917c24ca47"],
Cell[62159, 1941, 114, 1, 28, "Input",ExpressionUUID->"83178c6e-ff52-0049-88ec-fd2ba0b0b24b"],
Cell[62276, 1944, 354, 9, 28, "Input",ExpressionUUID->"56a7a7e2-9cde-fb44-9d6e-1a3a0d048b71"],
Cell[62633, 1955, 332, 10, 28, "Input",ExpressionUUID->"73a1a780-38ea-f844-bc54-d775224cb8e7"],
Cell[62968, 1967, 916, 28, 67, "Input",ExpressionUUID->"16900ac7-38cc-5d41-8a51-e4e62832a482"],
Cell[63887, 1997, 537, 15, 48, "Input",ExpressionUUID->"c950fdfc-e639-e346-ba54-bb68d7c51362"],
Cell[64427, 2014, 148, 3, 28, "Input",ExpressionUUID->"04eedff8-4b69-454b-b8a9-2bc1c95574e1"],
Cell[64578, 2019, 1232, 34, 143, "Input",ExpressionUUID->"1e83b299-15a4-f644-b286-74e3b7f24390"]
}, Closed]],
Cell[CellGroupData[{
Cell[65847, 2058, 153, 1, 58, "Chapter",ExpressionUUID->"9b23ad6c-34b2-884a-af69-645ddfff5db7",
 PageBreakAbove->True],
Cell[66003, 2061, 148, 3, 28, "Input",ExpressionUUID->"36d21eb2-6aeb-b144-82e1-e1e7eccdf3a2"],
Cell[66154, 2066, 321, 8, 48, "Input",ExpressionUUID->"9139039e-ce38-3a41-99ce-c26b899f5664"],
Cell[66478, 2076, 256, 6, 28, "Input",ExpressionUUID->"10eef290-b0b7-8346-97e4-a00f16fd404e"],
Cell[66737, 2084, 355, 9, 48, "Input",ExpressionUUID->"a7183fab-77ae-5743-ace2-350309afddd9"],
Cell[67095, 2095, 538, 14, 48, "Input",ExpressionUUID->"dc39f088-fe6d-d84e-8816-914940614d0b"],
Cell[67636, 2111, 401, 10, 67, "Input",ExpressionUUID->"70816a60-d104-2e42-afa7-2c48885ec956"],
Cell[68040, 2123, 316, 8, 48, "Input",ExpressionUUID->"6af21e82-ffde-8f4a-a1eb-7ca8a0d06d4c"],
Cell[68359, 2133, 256, 6, 28, "Input",ExpressionUUID->"702c8542-3714-7c44-a24f-c8bdfdabc592"],
Cell[68618, 2141, 260, 6, 48, "Input",ExpressionUUID->"f1602e55-a4ea-ae4b-8c00-84b1de10729f"],
Cell[68881, 2149, 619, 16, 86, "Input",ExpressionUUID->"a0830d81-2eb9-ce40-85b9-b2751e8dc9e9"],
Cell[69503, 2167, 599, 16, 48, "Input",ExpressionUUID->"3a932ae9-8b76-a845-b282-a5021e6c40bf"],
Cell[70105, 2185, 316, 8, 48, "Input",ExpressionUUID->"a0da6f49-aca6-c248-a061-126b67069da3"],
Cell[70424, 2195, 256, 6, 28, "Input",ExpressionUUID->"da77fb64-d92b-4d4f-a4f2-6951348b9ce5"],
Cell[70683, 2203, 274, 7, 28, "Input",ExpressionUUID->"c3e1d4b2-f968-bf41-a18a-7bc9c57d67a4"],
Cell[70960, 2212, 148, 3, 28, "Input",ExpressionUUID->"4285e87d-8ccb-f54a-9d72-6e03456505ee"],
Cell[71111, 2217, 623, 17, 67, "Input",ExpressionUUID->"0c112c5b-1c5a-054d-bf91-d521803671b9"],
Cell[71737, 2236, 281, 6, 28, "Input",ExpressionUUID->"d63bc2d9-a588-2345-b825-12b9d6cfde08"],
Cell[72021, 2244, 284, 7, 28, "Input",ExpressionUUID->"b531260c-ecdd-7640-9c7d-ef07504b2136"],
Cell[72308, 2253, 552, 13, 67, "Input",ExpressionUUID->"c5cb6388-1fb6-314a-9172-9eaa36e99cb7"],
Cell[72863, 2268, 165, 4, 28, "Input",ExpressionUUID->"eee7901a-e8cc-264d-92b4-62d292215c79"],
Cell[73031, 2274, 355, 9, 48, "Input",ExpressionUUID->"bf483c29-ab78-164f-aedb-df3b0091686f"],
Cell[73389, 2285, 680, 18, 67, "Input",ExpressionUUID->"0e7a4182-ac1d-6843-a1f4-1f52d21614f9"],
Cell[74072, 2305, 542, 15, 48, "Input",ExpressionUUID->"db13f4a4-e112-5440-9124-de6f2c65f645"],
Cell[74617, 2322, 442, 11, 28, "Input",ExpressionUUID->"09188c10-4b86-d844-ba85-63ef207f9549"],
Cell[75062, 2335, 450, 12, 28, "Input",ExpressionUUID->"c6897533-1597-174b-b187-273971b2fb3c"],
Cell[75515, 2349, 1575, 45, 124, "Input",ExpressionUUID->"65ef5e25-2739-5b46-a141-218af633e23c"],
Cell[77093, 2396, 291, 7, 48, "Input",ExpressionUUID->"6ea4e00c-4f31-1b43-a819-82493217ddf5"],
Cell[77387, 2405, 605, 18, 48, "Input",ExpressionUUID->"e6772e3e-265f-fd4d-8892-60c6f3bea449"],
Cell[77995, 2425, 605, 18, 48, "Input",ExpressionUUID->"2b437bdb-2b7b-7449-9903-17ab76d2c7d1"],
Cell[78603, 2445, 148, 3, 28, "Input",ExpressionUUID->"f4cce70c-4483-cf47-a104-f98d6e7e11e9"],
Cell[78754, 2450, 1436, 41, 148, "Input",ExpressionUUID->"13d95af8-03c0-a84e-8818-e69a65cf6e81"],
Cell[80193, 2493, 981, 27, 110, "Input",ExpressionUUID->"4f291301-8230-5f49-b024-fa96c9a26fba"],
Cell[81177, 2522, 1442, 39, 143, "Input",ExpressionUUID->"8ee6ffa5-d50b-034b-9005-6e4698f9468d"],
Cell[82622, 2563, 1041, 28, 105, "Input",ExpressionUUID->"5f21e4f4-00cd-3b4c-a049-8552ce2c2253"],
Cell[83666, 2593, 758, 20, 105, "Input",ExpressionUUID->"c6c9e3a6-5cee-7747-8f81-5d4263229ca4"],
Cell[84427, 2615, 683, 18, 86, "Input",ExpressionUUID->"a536dfd8-0133-cb4a-97bf-dd4f8f2d9f83"],
Cell[85113, 2635, 115, 1, 28, "Input",ExpressionUUID->"42700943-6289-0b43-aa45-9cb848d43af8"],
Cell[85231, 2638, 643, 17, 67, "Input",ExpressionUUID->"0146c7f4-f34c-134e-b7f9-263680ab5357"],
Cell[85877, 2657, 515, 13, 48, "Input",ExpressionUUID->"8ac8e76b-125a-3d4a-a4cf-c5b1e5b8145a"],
Cell[86395, 2672, 148, 3, 28, "Input",ExpressionUUID->"82b3b662-547e-d447-aee2-5799f7aa1b68"],
Cell[86546, 2677, 1054, 30, 86, "Input",ExpressionUUID->"93902b17-b5b6-c54e-846c-c1959136e317"],
Cell[87603, 2709, 115, 1, 28, "Input",ExpressionUUID->"9b8aabfa-2c61-484f-a309-3200de2f2f8f"],
Cell[87721, 2712, 286, 8, 28, "Input",ExpressionUUID->"ded0d482-1d51-6549-8576-d54d7db32828"],
Cell[88010, 2722, 116, 1, 28, "Input",ExpressionUUID->"ee0825b1-e761-f949-b92f-20bed2c9f476"],
Cell[88129, 2725, 228, 5, 28, "Input",ExpressionUUID->"ef339804-45c1-d947-ac00-76323d4c8cef"],
Cell[88360, 2732, 1013, 27, 105, "Input",ExpressionUUID->"13018da3-69fe-de49-9944-64daf1c7d68b"],
Cell[89376, 2761, 603, 17, 48, "Input",ExpressionUUID->"6d4fd331-e826-5b4b-bba1-e5bfc91fa491"],
Cell[89982, 2780, 954, 27, 86, "Input",ExpressionUUID->"7058f358-ec87-ee47-82a6-aa9c0b700945"],
Cell[90939, 2809, 344, 9, 28, "Input",ExpressionUUID->"ba721b33-190c-e44e-9e00-b9d26ed7745b"],
Cell[91286, 2820, 413, 12, 28, "Input",ExpressionUUID->"e6f294d3-109c-2448-88bf-8d5afd145a00"],
Cell[91702, 2834, 268, 8, 28, "Input",ExpressionUUID->"96458bb8-50ef-d046-8683-a25774c8c173"],
Cell[91973, 2844, 1291, 36, 143, "Input",ExpressionUUID->"cc9ed21d-6230-4f48-bbe2-6cb0d1964b43"],
Cell[93267, 2882, 730, 21, 48, "Input",ExpressionUUID->"24a61856-0a01-5a4a-8ecd-613fbc3817c1"]
}, Closed]],
Cell[CellGroupData[{
Cell[94034, 2908, 147, 1, 58, "Chapter",ExpressionUUID->"0e66f8e7-5853-6b48-9c8f-752021956c94",
 PageBreakAbove->True],
Cell[94184, 2911, 148, 3, 28, "Input",ExpressionUUID->"8a2e986f-d869-be41-9fe2-2eb5e4365b2c"],
Cell[94335, 2916, 2497, 68, 251, "Input",ExpressionUUID->"4c8eb28c-7dda-1f4d-abf1-522d96af21e8"],
Cell[96835, 2986, 467, 13, 48, "Input",ExpressionUUID->"2fc9b1d2-7c20-2d49-adf7-2e2aac291450"],
Cell[97305, 3001, 470, 13, 28, "Input",ExpressionUUID->"618fee2a-fd86-7848-8ccd-67187facce1b"],
Cell[97778, 3016, 148, 3, 28, "Input",ExpressionUUID->"cec49fc5-c80c-e34e-bf98-71aa06ddb733"],
Cell[97929, 3021, 2291, 62, 257, "Input",ExpressionUUID->"74316d23-ddcf-3547-96dd-844b7084e214"],
Cell[100223, 3085, 1571, 41, 132, "Input",ExpressionUUID->"51a5bba9-53f5-dc46-ae05-781c067c9068"],
Cell[101797, 3128, 1168, 33, 86, "Input",ExpressionUUID->"d8e1169b-5460-7442-aabb-f6f0b3ad754d"],
Cell[102968, 3163, 148, 3, 28, "Input",ExpressionUUID->"0920aceb-1c1f-bc4b-bc78-95edba327424"],
Cell[103119, 3168, 541, 14, 48, "Input",ExpressionUUID->"b27be223-5bdb-734f-8f08-3002c4d26685"],
Cell[103663, 3184, 2021, 59, 200, "Input",ExpressionUUID->"fe9dcc84-9583-3443-9704-d64b363bac36"],
Cell[105687, 3245, 590, 17, 67, "Input",ExpressionUUID->"4d2bf4f2-efd5-6a45-a2f7-5248786e9ed4"],
Cell[106280, 3264, 259, 6, 28, "Input",ExpressionUUID->"4269ae4b-e373-f74f-96c7-01d2a3c4b277"],
Cell[106542, 3272, 469, 13, 28, "Input",ExpressionUUID->"e6ad7c4d-51a6-1448-bc16-9399b7ee8951"],
Cell[107014, 3287, 1057, 30, 86, "Input",ExpressionUUID->"2c4c07fc-b9fd-8941-b806-e10f4bdd3067"],
Cell[108074, 3319, 1861, 54, 162, "Input",ExpressionUUID->"0af64da3-f548-d747-bab4-a2b35a19c3e1"],
Cell[109938, 3375, 1024, 28, 105, "Input",ExpressionUUID->"b23a3b26-8871-404a-8164-a6c1b0cdf859"],
Cell[110965, 3405, 1257, 37, 105, "Input",ExpressionUUID->"a2d7cc24-5c00-6e40-8279-b8059c652a9a"],
Cell[112225, 3444, 148, 3, 28, "Input",ExpressionUUID->"e0a736b0-0fad-3349-808f-5f1ab5cdaeab"],
Cell[112376, 3449, 3419, 99, 352, "Input",ExpressionUUID->"90207190-b8eb-8940-b43f-c39af6347e39"],
Cell[115798, 3550, 1521, 41, 143, "Input",ExpressionUUID->"a85d1a5a-07e4-e74c-aff7-28c38bfb6c8b"],
Cell[117322, 3593, 997, 28, 86, "Input",ExpressionUUID->"add2519f-280a-2446-aca6-ed028941e1b5"],
Cell[118322, 3623, 148, 3, 28, "Input",ExpressionUUID->"13329d90-acf2-484f-a058-582923233836"],
Cell[118473, 3628, 845, 21, 86, "Input",ExpressionUUID->"e36e475e-cb7f-2e44-b5c9-45f4b7cb86b0"],
Cell[119321, 3651, 1149, 31, 86, "Input",ExpressionUUID->"91861360-b415-f044-9cfe-e5ee49414b37"],
Cell[120473, 3684, 603, 15, 48, "Input",ExpressionUUID->"a2e5f077-d514-8849-b464-7f92b4b668a0"],
Cell[121079, 3701, 583, 15, 28, "Input",ExpressionUUID->"b5fb0f72-12a3-2744-afb8-de05b4977d16"],
Cell[121665, 3718, 497, 15, 48, "Input",ExpressionUUID->"0a66bfc3-0291-5046-a844-a57c2ea705fd"],
Cell[122165, 3735, 611, 17, 67, "Input",ExpressionUUID->"49822caa-e8fe-7b49-9917-c39bb05ddf78"],
Cell[122779, 3754, 296, 7, 28, "Input",ExpressionUUID->"916998fd-fce5-bf49-9ce0-c88b65c5ee5e"],
Cell[123078, 3763, 1273, 36, 105, "Input",ExpressionUUID->"6e537b4a-d381-3044-b7f9-f4755d406ac3"]
}, Closed]],
Cell[CellGroupData[{
Cell[124388, 3804, 124, 1, 58, "Chapter",ExpressionUUID->"9c2a77d0-d9eb-7b4f-985f-1827af33a45b",
 PageBreakAbove->True],
Cell[124515, 3807, 148, 3, 28, "Input",ExpressionUUID->"b7f23483-6464-984a-879c-99b751277485"],
Cell[124666, 3812, 1047, 31, 105, "Input",ExpressionUUID->"da947cd1-15e7-4a4d-9299-f082237699ec"],
Cell[125716, 3845, 264, 6, 28, "Input",ExpressionUUID->"60daa451-acf1-b04c-a2f7-23cd0adbfe2e"],
Cell[125983, 3853, 1055, 31, 86, "Input",ExpressionUUID->"f9a170cc-f3ca-1a48-aa55-d291dd2e78b8"],
Cell[127041, 3886, 264, 6, 28, "Input",ExpressionUUID->"b1c9637e-ce78-e643-8908-d65438dda928"],
Cell[127308, 3894, 148, 3, 28, "Input",ExpressionUUID->"98843023-6ac1-8f44-aafc-193428ff40f5"],
Cell[127459, 3899, 1380, 39, 105, "Input",ExpressionUUID->"2427b13a-ce46-1c47-b2fb-d171e2e8a21f"],
Cell[128842, 3940, 1514, 44, 105, "Input",ExpressionUUID->"06e2fa29-935a-5447-96eb-56cd7a700d41"],
Cell[130359, 3986, 1974, 54, 200, "Input",ExpressionUUID->"7eb65926-ecda-3840-916c-f67973c084ab"],
Cell[132336, 4042, 396, 10, 67, "Input",ExpressionUUID->"c6acb8d5-b31e-e048-a38f-dad32da8a289"],
Cell[132735, 4054, 148, 3, 28, "Input",ExpressionUUID->"a8ab1284-53d3-a141-b073-1b303bd1ae46"],
Cell[132886, 4059, 904, 26, 67, "Input",ExpressionUUID->"bc44ec86-99e0-514e-8f4f-14978ab775da"],
Cell[133793, 4087, 180, 4, 28, "Input",ExpressionUUID->"256ece54-1868-3f41-a2e5-6001d8e0332f"],
Cell[133976, 4093, 715, 21, 67, "Input",ExpressionUUID->"df23b8cf-f38b-1b4b-8509-336389bb2272"],
Cell[134694, 4116, 546, 15, 67, "Input",ExpressionUUID->"f056c68b-999b-5a40-a74d-beb6b8ffbda1"],
Cell[135243, 4133, 490, 13, 48, "Input",ExpressionUUID->"6163fa4d-6510-3341-986e-7ea731855664"],
Cell[135736, 4148, 1367, 39, 143, "Input",ExpressionUUID->"7ee7ec50-f817-6f43-ab2c-0dab60eec17f"],
Cell[137106, 4189, 148, 3, 28, "Input",ExpressionUUID->"baa5a86d-b37b-7e4e-8bc3-42d0bf22835d"],
Cell[137257, 4194, 420, 10, 48, "Input",ExpressionUUID->"8ec8b55d-1d6a-9349-b3aa-a72f440817fe"],
Cell[137680, 4206, 930, 26, 86, "Input",ExpressionUUID->"ae6a675f-660c-d64f-86a1-35d75047980f"],
Cell[138613, 4234, 529, 15, 48, "Input",ExpressionUUID->"788ec9fd-8d32-d74e-a2ce-b2c740f3cd5e"],
Cell[139145, 4251, 418, 9, 48, "Input",ExpressionUUID->"07730999-78e1-ad46-afb3-a599cfaa40ef"],
Cell[139566, 4262, 271, 7, 28, "Input",ExpressionUUID->"080d59f9-5c7b-6847-9d3e-d160a5097a32"],
Cell[139840, 4271, 563, 15, 67, "Input",ExpressionUUID->"f062678f-983f-7940-b4cf-e138151377b7"],
Cell[140406, 4288, 787, 19, 67, "Input",ExpressionUUID->"8fb667b1-61cf-8540-bc60-1303e85a212b"],
Cell[141196, 4309, 3023, 86, 257, "Input",ExpressionUUID->"91be08f6-d2c5-2548-9f6e-3f170c37cdab"],
Cell[144222, 4397, 1295, 40, 105, "Input",ExpressionUUID->"2011bdb8-c8c1-cd49-83d4-e67981bf54b4"],
Cell[145520, 4439, 666, 17, 48, "Input",ExpressionUUID->"bf51b747-50d5-e44f-962b-cd2bb0a45eba"],
Cell[146189, 4458, 1106, 31, 105, "Input",ExpressionUUID->"b246ea0c-25b4-7c46-8a7e-3757cbe48377"],
Cell[147298, 4491, 529, 15, 48, "Input",ExpressionUUID->"4e316ddd-2086-a14d-8937-4c2150f082ab"],
Cell[147830, 4508, 455, 10, 48, "Input",ExpressionUUID->"f4502aa7-a347-c742-8aae-05f073a917e7"],
Cell[148288, 4520, 201, 4, 28, "Input",ExpressionUUID->"441e4fa4-5727-b243-ac92-bcd2f65e87c0"]
}, Closed]],
Cell[CellGroupData[{
Cell[148526, 4529, 136, 1, 58, "Chapter",ExpressionUUID->"c91ec311-1c88-5b46-a8e4-be1b6c15b51e",
 PageBreakAbove->True],
Cell[148665, 4532, 148, 3, 28, "Input",ExpressionUUID->"1b6ac649-8506-6e41-acc4-55d712b4de45"],
Cell[148816, 4537, 835, 22, 67, "Input",ExpressionUUID->"8dbff96b-984c-1c44-8d79-9e28944010e8"],
Cell[149654, 4561, 145, 3, 28, "Input",ExpressionUUID->"14187048-f0b3-0d4b-960e-781d699f6b2a"],
Cell[149802, 4566, 961, 29, 86, "Input",ExpressionUUID->"eecf2b4c-eb01-ce43-b206-852b8907b95a"],
Cell[150766, 4597, 301, 8, 28, "Input",ExpressionUUID->"1143820e-5540-404e-bc8c-52a117a1c322"],
Cell[151070, 4607, 477, 14, 48, "Input",ExpressionUUID->"581eb2ae-ab8b-2242-9cb1-bf45d15e737f"],
Cell[151550, 4623, 523, 15, 67, "Input",ExpressionUUID->"0fda485e-78e9-ee4e-a79a-286d7650b670"],
Cell[152076, 4640, 1120, 34, 67, "Input",ExpressionUUID->"47241243-da90-b44c-a21c-1aeacc95f5ba"],
Cell[153199, 4676, 1168, 34, 86, "Input",ExpressionUUID->"18913373-bd30-a84b-b937-525b517037f3"],
Cell[154370, 4712, 156, 3, 28, "Input",ExpressionUUID->"f68b037a-a0f1-8f45-af49-c5bdf3037577"],
Cell[154529, 4717, 713, 21, 67, "Input",ExpressionUUID->"f7a4c7ce-da11-0045-8ed0-079f02ccccae"],
Cell[155245, 4740, 532, 16, 28, "Input",ExpressionUUID->"ef3a978d-ff69-0e4d-aebf-acc4f9160493"],
Cell[155780, 4758, 148, 3, 28, "Input",ExpressionUUID->"84ac3216-b757-ec4f-bc7a-867dbbdafcf4"],
Cell[155931, 4763, 850, 23, 67, "Input",ExpressionUUID->"47777c8f-902a-2248-af0c-0daa06919d2a"],
Cell[156784, 4788, 138, 2, 28, "Input",ExpressionUUID->"61b55443-952b-2442-b7ce-56e1c4bd54d1"],
Cell[156925, 4792, 1378, 39, 124, "Input",ExpressionUUID->"85ae40aa-3630-fc42-8ece-b71346257421"],
Cell[158306, 4833, 1777, 41, 167, "Input",ExpressionUUID->"e0143c73-1cc2-6f42-9dc9-ef8383931ea6"],
Cell[160086, 4876, 148, 3, 28, "Input",ExpressionUUID->"26a8501d-2355-f642-98c6-5ac1aa2340b4"],
Cell[160237, 4881, 3249, 89, 238, "Input",ExpressionUUID->"531ea944-5dbf-b045-9c0f-e6ae78cd6eac"],
Cell[163489, 4972, 823, 24, 86, "Input",ExpressionUUID->"6feb0548-bbd3-ee42-ad42-ba283267cd8b"],
Cell[164315, 4998, 882, 23, 86, "Input",ExpressionUUID->"1ec510c5-f8d5-774b-9fc6-011ee65aaaee"],
Cell[165200, 5023, 306, 7, 48, "Input",ExpressionUUID->"8ea4eed1-952f-2d48-a786-1f6b7306e8b4"],
Cell[165509, 5032, 479, 12, 48, "Input",ExpressionUUID->"2cb12b63-1717-1949-aadb-502bee946838"],
Cell[165991, 5046, 155, 3, 28, "Input",ExpressionUUID->"0c90096a-080f-d244-b6bc-4dda8c2e94f2"],
Cell[166149, 5051, 1415, 38, 143, "Input",ExpressionUUID->"8e1ba2e7-ac23-654b-8a07-c3b48a6187e1"],
Cell[167567, 5091, 1874, 54, 200, "Input",ExpressionUUID->"38af91de-59ed-c94a-a5ca-f932bdccdb1a"],
Cell[169444, 5147, 136, 2, 28, "Input",ExpressionUUID->"6e720f4c-2c39-4c46-90c7-fb9245f439a9"],
Cell[169583, 5151, 1147, 34, 105, "Input",ExpressionUUID->"512aca60-ae2b-4a46-8cff-e01e853c838c"],
Cell[170733, 5187, 377, 10, 48, "Input",ExpressionUUID->"f21b2e6c-f4f1-a340-b900-178686317d29"],
Cell[171113, 5199, 190, 4, 48, "Input",ExpressionUUID->"36071ae7-d414-4e44-b356-8509c5db1430"],
Cell[171306, 5205, 647, 18, 67, "Input",ExpressionUUID->"af71b118-bc5f-e946-864f-c239b7f0cd7d"],
Cell[171956, 5225, 831, 22, 86, "Input",ExpressionUUID->"41f7f4c0-e0ea-b741-91f8-0a4a480cff26"],
Cell[172790, 5249, 558, 16, 48, "Input",ExpressionUUID->"4dddfd01-46b3-8644-867c-ce66fa23a517"],
Cell[173351, 5267, 1130, 30, 124, "Input",ExpressionUUID->"21ba80fe-9882-f343-bce1-369a9d1ff6cf"],
Cell[174484, 5299, 918, 25, 86, "Input",ExpressionUUID->"13a38f1a-cd73-1949-8ad9-2dfea6f7b795"],
Cell[175405, 5326, 852, 23, 67, "Input",ExpressionUUID->"1db8d7ee-2d46-b749-8e90-965e68cdfd08"],
Cell[176260, 5351, 1323, 37, 105, "Input",ExpressionUUID->"040b786f-8fa4-7542-855f-e8bf848b3d14"],
Cell[177586, 5390, 856, 23, 67, "Input",ExpressionUUID->"fdc7ad12-75a2-794e-be5f-a41970bcd894"],
Cell[178445, 5415, 912, 25, 86, "Input",ExpressionUUID->"d89897aa-cbeb-7f45-bfdb-6cfcd309f655"]
}, Closed]],
Cell[CellGroupData[{
Cell[179394, 5445, 154, 1, 58, "Chapter",ExpressionUUID->"017f9dd8-32c7-f041-aac0-da9ea0c9efb2",
 PageBreakAbove->True],
Cell[179551, 5448, 148, 3, 28, "Input",ExpressionUUID->"3e6036a1-3323-5a4e-a685-d6f1915ea857"],
Cell[179702, 5453, 339, 9, 48, "Input",ExpressionUUID->"70e8b16e-a8db-4c49-84c6-5ab0bd760951"],
Cell[180044, 5464, 237, 6, 28, "Input",ExpressionUUID->"4ee87785-2607-0946-b1a8-04daa7e9de52"],
Cell[180284, 5472, 594, 17, 48, "Input",ExpressionUUID->"16054311-9645-7844-8bcf-eeb2d21ddb73"],
Cell[180881, 5491, 516, 15, 48, "Input",ExpressionUUID->"1004343c-2377-284d-b726-8e99090b8971"],
Cell[181400, 5508, 1351, 37, 143, "Input",ExpressionUUID->"97480b9a-9996-e14b-b1b7-90abfaf345d1"],
Cell[182754, 5547, 254, 6, 28, "Input",ExpressionUUID->"f8eebaac-b40d-5046-9348-38483998ef02"],
Cell[183011, 5555, 214, 5, 48, "Input",ExpressionUUID->"f47d729e-3954-9647-986f-1b8cdaf79ed5"],
Cell[183228, 5562, 297, 8, 28, "Input",ExpressionUUID->"9a0ed22a-7d37-234c-9838-d1bd136635e2"],
Cell[183528, 5572, 227, 6, 28, "Input",ExpressionUUID->"107780ab-f87b-2e48-9d6e-79a385e148eb"],
Cell[183758, 5580, 625, 16, 48, "Input",ExpressionUUID->"ddc3646d-88af-d84f-aeb9-b2a243379480"],
Cell[184386, 5598, 148, 3, 28, "Input",ExpressionUUID->"c852a955-1514-6a48-8402-0971f0dfeadb"],
Cell[184537, 5603, 1724, 48, 181, "Input",ExpressionUUID->"38327dda-7b31-fd45-8c8b-a43d1057b4f9"],
Cell[186264, 5653, 524, 15, 48, "Input",ExpressionUUID->"ce74d5f8-ca1f-9341-b639-1bf51cb7e1aa"]
}, Closed]],
Cell[CellGroupData[{
Cell[186825, 5673, 112, 1, 58, "Chapter",ExpressionUUID->"1847cfb3-e181-3b42-bae2-c73cc55fa45e",
 PageBreakAbove->True],
Cell[186940, 5676, 148, 3, 28, "Input",ExpressionUUID->"1b7d4925-e7cf-254c-a770-77f10c49c0b9"],
Cell[187091, 5681, 227, 6, 48, "Input",ExpressionUUID->"d706823b-4408-f043-956d-05fe471cc50b"],
Cell[187321, 5689, 428, 12, 48, "Input",ExpressionUUID->"306af12b-8ac4-524b-b7f2-8d9d5e3251b8"],
Cell[187752, 5703, 227, 6, 48, "Input",ExpressionUUID->"2b9e493b-6e57-3147-acaf-d0bea138f72a"],
Cell[187982, 5711, 801, 22, 124, "Input",ExpressionUUID->"332fef29-e549-574f-af0f-7312058e1996"],
Cell[188786, 5735, 236, 6, 28, "Input",ExpressionUUID->"2deb7c73-4b31-0642-a5f1-ba312ff73473"],
Cell[189025, 5743, 217, 6, 28, "Input",ExpressionUUID->"a25da413-1a9f-0d48-aaaf-d36b165dd7d7"],
Cell[189245, 5751, 1488, 46, 143, "Input",ExpressionUUID->"7879efe4-a8d4-6049-9c45-c199b6251989"],
Cell[190736, 5799, 148, 3, 28, "Input",ExpressionUUID->"90d4546a-b8d0-1347-9096-c39318e6f17f"],
Cell[190887, 5804, 283, 7, 28, "Input",ExpressionUUID->"7757404c-43b1-4b40-ae9a-0f7028213706"],
Cell[191173, 5813, 399, 11, 28, "Input",ExpressionUUID->"5bb0b3b7-9c16-914c-8ee3-515d58fe43ce"],
Cell[191575, 5826, 555, 17, 28, "Input",ExpressionUUID->"51fa91a3-d2c9-7b4a-8687-b38a4e0c15e0"],
Cell[192133, 5845, 382, 10, 48, "Input",ExpressionUUID->"455cf222-08b9-1646-8850-faeedfb8c3ff"],
Cell[192518, 5857, 910, 26, 86, "Input",ExpressionUUID->"a8cee5ef-703a-5e48-91e6-13aa1ef368fe"],
Cell[193431, 5885, 874, 27, 67, "Input",ExpressionUUID->"c811c6e0-f697-2b4e-8fb9-78b2aef83af2"],
Cell[194308, 5914, 178, 4, 28, "Input",ExpressionUUID->"f26ee2e3-e610-084a-bd9c-854e78c41d13"],
Cell[194489, 5920, 387, 10, 48, "Input",ExpressionUUID->"3e407748-a4ff-ba4d-b24d-5200f62b0e6d"],
Cell[194879, 5932, 511, 15, 48, "Input",ExpressionUUID->"acd600ec-2d95-4643-b91c-08493cbd67f4"],
Cell[195393, 5949, 1261, 36, 86, "Input",ExpressionUUID->"881d2220-d3bf-384a-bb73-2b107d5f41b8"]
}, Closed]],
Cell[CellGroupData[{
Cell[196691, 5990, 112, 1, 58, "Chapter",ExpressionUUID->"d87e9d2e-bba4-8147-a747-fa0ca31bbc14",
 PageBreakAbove->True],
Cell[196806, 5993, 148, 3, 28, "Input",ExpressionUUID->"851bad71-6157-0148-8421-f68500f46fa5"],
Cell[196957, 5998, 341, 9, 28, "Input",ExpressionUUID->"daa924f2-f767-8a42-b22c-d433699f34bd"],
Cell[197301, 6009, 1015, 29, 86, "Input",ExpressionUUID->"cf0b39fb-b6be-764e-8f70-179628af7d18"],
Cell[198319, 6040, 148, 3, 28, "Input",ExpressionUUID->"6ad99637-439d-9b4d-b3b3-55a4340cb0c9"],
Cell[198470, 6045, 341, 9, 28, "Input",ExpressionUUID->"50786c22-59e5-5d43-9627-1e8c449b9c63"],
Cell[198814, 6056, 273, 7, 28, "Input",ExpressionUUID->"65f5d669-9e1d-4b4d-8678-85918c55de06"],
Cell[199090, 6065, 499, 14, 48, "Input",ExpressionUUID->"1e61dd7f-02f2-d14e-a041-865901828fce"],
Cell[199592, 6081, 545, 15, 28, "Input",ExpressionUUID->"85d2b70d-83f5-174d-a1dd-029cd7b531ea"],
Cell[200140, 6098, 399, 11, 28, "Input",ExpressionUUID->"cb566618-e870-7242-9b2a-a1477719b7c7"],
Cell[200542, 6111, 333, 9, 28, "Input",ExpressionUUID->"f850e51b-2017-0e40-a10d-5fcd2e949a3e"],
Cell[200878, 6122, 511, 15, 48, "Input",ExpressionUUID->"b5cc5caf-962d-c640-95e6-02eb4eacfc0c"],
Cell[201392, 6139, 314, 9, 28, "Input",ExpressionUUID->"4ef632e9-026b-5b44-9ef0-59e38f179012"],
Cell[201709, 6150, 570, 17, 48, "Input",ExpressionUUID->"ebc8b83e-c013-e44e-95e4-8462133cb36c"],
Cell[202282, 6169, 306, 8, 28, "Input",ExpressionUUID->"81a10620-3de0-744a-86d9-d9520bb09f61"],
Cell[202591, 6179, 748, 21, 67, "Input",ExpressionUUID->"820c3fbb-46c5-3144-90f2-21bd23ed0838"],
Cell[203342, 6202, 702, 19, 48, "Input",ExpressionUUID->"1c2d437b-a13e-d840-9da7-eef5528fdb78"],
Cell[204047, 6223, 515, 14, 28, "Input",ExpressionUUID->"19f83c5a-6ded-c146-888c-5f06e735e6db"],
Cell[204565, 6239, 148, 3, 28, "Input",ExpressionUUID->"2a484aab-ad42-454b-8865-03e0197c4641"],
Cell[204716, 6244, 265, 8, 28, "Input",ExpressionUUID->"1e56c264-b4ba-b84d-b8ad-bfe24ec405ba"],
Cell[204984, 6254, 740, 20, 67, "Input",ExpressionUUID->"9d7292f1-a291-0d4d-8470-328dc43d915a"],
Cell[205727, 6276, 528, 14, 67, "Input",ExpressionUUID->"eb22a7b4-4e51-c040-9c10-83a4e44cff7e"],
Cell[206258, 6292, 148, 3, 28, "Input",ExpressionUUID->"6f011233-9c06-274d-9786-120e6f9fb6e8"],
Cell[206409, 6297, 265, 7, 28, "Input",ExpressionUUID->"5cd10e62-7854-4542-af3a-1bf7f1d3c90c"],
Cell[206677, 6306, 273, 7, 28, "Input",ExpressionUUID->"debae180-42be-ee48-bdc3-a1fb1b868fb2"],
Cell[206953, 6315, 329, 9, 28, "Input",ExpressionUUID->"d4df11e5-c791-524e-a6a2-ecaaed689924"]
}, Closed]],
Cell[CellGroupData[{
Cell[207319, 6329, 162, 2, 58, "Chapter",ExpressionUUID->"5fa96266-def7-2b4f-b903-435ceeeba913",
 PageBreakAbove->True],
Cell[207484, 6333, 148, 3, 28, "Input",ExpressionUUID->"539524db-3512-af43-994a-be846999a797"],
Cell[207635, 6338, 713, 22, 48, "Input",ExpressionUUID->"360b38c1-90b4-e348-a962-723b8ff1ba06"],
Cell[208351, 6362, 1009, 27, 67, "Input",ExpressionUUID->"5606d567-e432-9a4d-bdb8-e092e26fc3d7"],
Cell[209363, 6391, 317, 8, 48, "Input",ExpressionUUID->"8b03464a-d61a-6849-b506-8dc7ff1e2bbe"],
Cell[209683, 6401, 214, 5, 48, "Input",ExpressionUUID->"7c064527-a5b8-1c42-ba79-a6ffadc3232e"],
Cell[209900, 6408, 738, 23, 48, "Input",ExpressionUUID->"2ed54faf-bf1d-9843-bb72-2f113b5dfcba"],
Cell[210641, 6433, 1634, 44, 124, "Input",ExpressionUUID->"1f47d088-0b52-c742-a999-8c93c7f2c35a"],
Cell[212278, 6479, 1305, 39, 105, "Input",ExpressionUUID->"7f524b19-9789-0d47-9a74-7d11db9dac5c"],
Cell[213586, 6520, 882, 27, 48, "Input",ExpressionUUID->"87a89ddb-9888-ab4c-b6ef-0367d0998dc6"],
Cell[214471, 6549, 148, 3, 28, "Input",ExpressionUUID->"ae4343b9-e40c-ed47-a064-41364f4e8b94"],
Cell[214622, 6554, 585, 17, 48, "Input",ExpressionUUID->"6192af20-7526-8744-b493-e53894d760fc"],
Cell[215210, 6573, 538, 15, 48, "Input",ExpressionUUID->"d56e139b-e322-2b4d-a79c-17fac7808877"],
Cell[215751, 6590, 622, 18, 48, "Input",ExpressionUUID->"6873bdd5-7e1b-d449-bdae-6c2729f6d718"],
Cell[216376, 6610, 614, 18, 67, "Input",ExpressionUUID->"53b22afa-de79-a54e-a075-3b73128e7e30"],
Cell[216993, 6630, 653, 20, 48, "Input",ExpressionUUID->"e37dc807-622a-3949-9101-6ea94e44a72d"],
Cell[217649, 6652, 1253, 37, 124, "Input",ExpressionUUID->"3a70f2a7-c525-774a-b9b8-501370b14969"],
Cell[218905, 6691, 486, 13, 28, "Input",ExpressionUUID->"9c5eefbd-dd05-794f-a93d-64ed913b4c19"],
Cell[219394, 6706, 1134, 34, 67, "Input",ExpressionUUID->"8f678449-a8ca-2c40-ac3a-76d882b0e8ae"],
Cell[220531, 6742, 739, 21, 48, "Input",ExpressionUUID->"f16a3a42-2742-4f41-9824-b8ea74076dde"],
Cell[221273, 6765, 2229, 57, 191, "Input",ExpressionUUID->"3e43ef03-2779-9743-837d-8b420dce5193"],
Cell[223505, 6824, 857, 24, 67, "Input",ExpressionUUID->"38d63dbc-c28b-4b45-9edc-fdbcceaaf1af"],
Cell[224365, 6850, 148, 3, 28, "Input",ExpressionUUID->"8a4ebfa1-3982-1e41-b152-7fcfafedcca8"],
Cell[224516, 6855, 898, 26, 67, "Input",ExpressionUUID->"412006eb-4ba2-4d4f-a752-363bf8927390"],
Cell[225417, 6883, 419, 11, 28, "Input",ExpressionUUID->"53a3a71f-ca8d-a84d-b19f-257adf18627b"],
Cell[225839, 6896, 419, 11, 28, "Input",ExpressionUUID->"3afea9ac-15eb-ab46-8f7e-739a6565eba0"],
Cell[226261, 6909, 1058, 31, 86, "Input",ExpressionUUID->"284578d3-bac4-2849-a9ab-4397a5733dc0"],
Cell[227322, 6942, 1314, 41, 124, "Input",ExpressionUUID->"7c606411-bd35-a942-a494-7ca8aeaa515f"],
Cell[228639, 6985, 721, 22, 67, "Input",ExpressionUUID->"810ecc05-03dc-a340-be85-a51208d834c7"],
Cell[229363, 7009, 1133, 32, 124, "Input",ExpressionUUID->"517203bf-ca7b-9943-8d8f-802f16b9d3af"]
}, Closed]],
Cell[CellGroupData[{
Cell[230533, 7046, 124, 1, 58, "Chapter",ExpressionUUID->"6b2aeadc-ee94-b341-af86-aebd40d4095a",
 PageBreakAbove->True],
Cell[230660, 7049, 148, 3, 28, "Input",ExpressionUUID->"70b577ed-bc27-9a44-8c9d-0a51f5eaa88f"],
Cell[230811, 7054, 595, 17, 48, "Input",ExpressionUUID->"45917cd0-4096-b649-9de3-283d05d07bdc"],
Cell[231409, 7073, 273, 8, 28, "Input",ExpressionUUID->"34a50002-26ca-c04b-890d-0277e857bbc5"],
Cell[231685, 7083, 231, 6, 48, "Input",ExpressionUUID->"15fbb706-29e8-d643-8070-faa14ac62774"],
Cell[231919, 7091, 339, 9, 28, "Input",ExpressionUUID->"21f2f23d-1ab3-b84b-a533-8a8d65b9cd77"],
Cell[232261, 7102, 340, 9, 29, "Input",ExpressionUUID->"489d5f8c-5e67-1447-976b-5c9730a8987d"],
Cell[232604, 7113, 236, 6, 48, "Input",ExpressionUUID->"9b30a09f-801e-b947-9445-2a58528f2374"],
Cell[232843, 7121, 509, 15, 48, "Input",ExpressionUUID->"877ec9aa-a978-3342-a833-f584a6b59216"],
Cell[233355, 7138, 149, 3, 28, "Input",ExpressionUUID->"95469eca-b9e6-3c45-944e-d9d6bb3aa187"]
}, Closed]],
Cell[CellGroupData[{
Cell[233541, 7146, 112, 1, 58, "Chapter",ExpressionUUID->"68ec85bc-8bb7-4140-9033-d0919d2de8d8",
 PageBreakAbove->True],
Cell[233656, 7149, 148, 3, 28, "Input",ExpressionUUID->"b28b929f-30c3-d245-8e19-e0d80e5bf438"],
Cell[233807, 7154, 354, 9, 28, "Input",ExpressionUUID->"7df47873-0223-8e42-a215-bedae7fdbd2e"],
Cell[234164, 7165, 148, 3, 28, "Input",ExpressionUUID->"e65fb823-8a2f-0948-a181-05e66db54618"],
Cell[234315, 7170, 287, 8, 28, "Input",ExpressionUUID->"629b3c80-0da7-ce42-b02f-39c08d1ae01e"],
Cell[234605, 7180, 290, 8, 28, "Input",ExpressionUUID->"acf6375f-11ee-2843-82c7-5bf95606ded8"],
Cell[234898, 7190, 148, 3, 28, "Input",ExpressionUUID->"b366d19f-0b11-fb49-99d4-5d12ffbd1e15"],
Cell[235049, 7195, 451, 11, 28, "Input",ExpressionUUID->"f6d1ab9e-d8fd-3b48-86c2-52c4a4dbef32"],
Cell[235503, 7208, 285, 8, 28, "Input",ExpressionUUID->"4195b055-5982-c349-ae35-6eb237032ab5"],
Cell[235791, 7218, 165, 4, 28, "Input",ExpressionUUID->"dfdcf05e-60b8-e043-adca-c3c6435cc422"],
Cell[235959, 7224, 190, 5, 28, "Input",ExpressionUUID->"0ece3846-9eed-4f4e-a871-8ed8c3e3a20b"],
Cell[236152, 7231, 376, 10, 48, "Input",ExpressionUUID->"acd28f2d-2c7b-1745-b7da-abd3e121f237"],
Cell[236531, 7243, 427, 12, 48, "Input",ExpressionUUID->"e710b170-624e-ba4e-b2fa-20c9b55fdf19"],
Cell[236961, 7257, 148, 3, 28, "Input",ExpressionUUID->"11d645f8-2a65-6d44-a041-63a17f743f09"],
Cell[237112, 7262, 271, 8, 28, "Input",ExpressionUUID->"9deb9467-a824-3d4e-a675-bce9d04f9009"],
Cell[237386, 7272, 448, 14, 28, "Input",ExpressionUUID->"5fbfbe1c-8bd2-c147-9c7a-d1c0d48ef20e"],
Cell[237837, 7288, 148, 3, 28, "Input",ExpressionUUID->"dedfdf56-1c7c-d343-945f-3363b88f80d0"],
Cell[237988, 7293, 567, 17, 48, "Input",ExpressionUUID->"1e3c625a-b644-474c-b099-953efbd7b782"],
Cell[238558, 7312, 3153, 95, 181, "Input",ExpressionUUID->"e7722652-4cfe-3248-9138-33a50a23b30a"],
Cell[241714, 7409, 1843, 55, 143, "Input",ExpressionUUID->"c3c52fc9-375a-f344-a7ee-84a313ab6436"],
Cell[243560, 7466, 148, 3, 28, "Input",ExpressionUUID->"82d9af60-e357-304d-ba58-54209d60c984"],
Cell[243711, 7471, 277, 8, 28, "Input",ExpressionUUID->"2ac72db7-f1fd-644b-b4a6-f3302276eb52"],
Cell[243991, 7481, 425, 12, 28, "Input",ExpressionUUID->"e2c8f22e-8443-2f4d-95a0-1e187d34ce8e"],
Cell[244419, 7495, 561, 14, 48, "Input",ExpressionUUID->"805060b1-f729-ad4b-852c-4c7b140ae7f6"],
Cell[244983, 7511, 148, 3, 28, "Input",ExpressionUUID->"7289e1d2-725c-ff4e-94b8-ce3b4166ad3a"],
Cell[245134, 7516, 281, 8, 28, "Input",ExpressionUUID->"5942ee18-23ce-e342-a9bc-46ab401c5aeb"],
Cell[245418, 7526, 148, 3, 28, "Input",ExpressionUUID->"45c3bc3c-2456-e24b-a223-3606942811cf"],
Cell[245569, 7531, 485, 14, 48, "Input",ExpressionUUID->"6b2feece-74e3-2a4a-bca8-d8df794adc7d"],
Cell[246057, 7547, 314, 8, 28, "Input",ExpressionUUID->"4687c562-a49e-a645-b1d9-4eb61de9dc60"],
Cell[246374, 7557, 497, 14, 48, "Input",ExpressionUUID->"010a502d-36c6-674b-a491-63769c37bc48"]
}, Closed]],
Cell[CellGroupData[{
Cell[246908, 7576, 136, 1, 58, "Chapter",ExpressionUUID->"7848717c-3b4c-2c4a-97c3-16e73d4224ac",
 PageBreakAbove->True],
Cell[247047, 7579, 148, 3, 28, "Input",ExpressionUUID->"cbe0ef8d-0c18-4442-a24f-c614ffe8cf61"],
Cell[247198, 7584, 455, 12, 48, "Input",ExpressionUUID->"44511808-ddf0-5947-9e4e-634f1b49df80"],
Cell[247656, 7598, 292, 8, 28, "Input",ExpressionUUID->"9859d4c0-6cd2-5145-8333-666a81e59503"],
Cell[247951, 7608, 148, 3, 28, "Input",ExpressionUUID->"55348069-8f73-2d45-9dc5-638b645ec0b5"],
Cell[248102, 7613, 591, 16, 48, "Input",ExpressionUUID->"a92f3e9b-ef5c-2f4c-9df6-d61bcde00bec"],
Cell[248696, 7631, 734, 20, 67, "Input",ExpressionUUID->"3d0df85d-2a99-8145-816c-2ae639322de9"],
Cell[249433, 7653, 218, 5, 48, "Input",ExpressionUUID->"40c4dfa8-f719-6e43-800f-eb037838bab3"],
Cell[249654, 7660, 1781, 48, 143, "Input",ExpressionUUID->"119ce51a-323e-5143-aa76-a7a46d25007a"],
Cell[251438, 7710, 3933, 106, 238, "Input",ExpressionUUID->"dd8c3a46-42e7-564f-8bee-73c3314648d3"],
Cell[255374, 7818, 2128, 61, 162, "Input",ExpressionUUID->"894d64f4-1625-964b-aa3a-7d870e2f9ac2"],
Cell[257505, 7881, 148, 3, 28, "Input",ExpressionUUID->"9c908dc0-9608-3e4c-9109-029cdb001a42"],
Cell[257656, 7886, 670, 19, 86, "Input",ExpressionUUID->"78b3b059-9ba5-764b-a9a8-574fdb88a98c"],
Cell[258329, 7907, 1234, 33, 124, "Input",ExpressionUUID->"1475807b-ece0-c841-a47c-4710c97317e1"],
Cell[259566, 7942, 1254, 38, 105, "Input",ExpressionUUID->"3df88ab4-2f50-8642-940d-4102f940f81c"]
}, Closed]],
Cell[CellGroupData[{
Cell[260857, 7985, 162, 2, 58, "Chapter",ExpressionUUID->"4cbc7ce6-75da-744a-9aa4-c2e0631769c7",
 PageBreakAbove->True],
Cell[261022, 7989, 148, 3, 28, "Input",ExpressionUUID->"f03a899a-72ab-9f49-b616-d7b8cc05bd80"],
Cell[261173, 7994, 1350, 35, 124, "Input",ExpressionUUID->"6d859e74-ca66-7a48-8ed3-9a98e5ae7423"],
Cell[262526, 8031, 332, 8, 28, "Input",ExpressionUUID->"7d99f02c-06cd-544b-84bc-827097029a90"],
Cell[262861, 8041, 764, 21, 48, "Input",ExpressionUUID->"830e2a3a-7128-1d49-b1d5-e0d373878a21"],
Cell[263628, 8064, 220, 5, 28, "Input",ExpressionUUID->"1ef468b3-b812-2940-8bbd-b72b2ea73b51"],
Cell[263851, 8071, 148, 3, 28, "Input",ExpressionUUID->"b719a5a3-9140-5f4f-a31b-03bb8a24128a"],
Cell[264002, 8076, 1102, 29, 86, "Input",ExpressionUUID->"fbfd95d6-4e5d-144f-9901-b6e305fbfdda"],
Cell[265107, 8107, 1533, 44, 105, "Input",ExpressionUUID->"fd290468-36ec-8743-9bc9-6bd5e84813a3"],
Cell[266643, 8153, 148, 3, 28, "Input",ExpressionUUID->"b84b1d74-7e33-9248-bfea-6e682113293c"],
Cell[266794, 8158, 301, 8, 28, "Input",ExpressionUUID->"2ff73ca1-3ea8-2e48-b9e0-ee2624ea9d20"],
Cell[267098, 8168, 428, 12, 48, "Input",ExpressionUUID->"72ae7dc1-dc2f-6348-a634-d07e7093cdc9"],
Cell[267529, 8182, 1433, 42, 105, "Input",ExpressionUUID->"db7c2a62-d41e-f049-8b18-92b0ad4b95a6"],
Cell[268965, 8226, 544, 15, 28, "Input",ExpressionUUID->"55dacc3a-2e9c-bc46-89ea-17e36b5d0e9c"],
Cell[269512, 8243, 1196, 32, 86, "Input",ExpressionUUID->"8f572937-cc3b-4340-ac1e-592fe23a3032"],
Cell[270711, 8277, 3056, 85, 240, "Input",ExpressionUUID->"a4fa6844-5dc5-4d4e-9e9b-df6b3090e2c1"]
}, Closed]],
Cell[CellGroupData[{
Cell[273804, 8367, 168, 2, 58, "Chapter",ExpressionUUID->"e0e3b92b-9fb4-be42-979c-2c7dc40fb39d",
 PageBreakAbove->True],
Cell[273975, 8371, 148, 3, 28, "Input",ExpressionUUID->"8962c80b-263d-294d-a1e0-a23cb3eda190"],
Cell[274126, 8376, 946, 26, 67, "Input",ExpressionUUID->"546d7da6-afa7-ac44-b141-149043f68104"],
Cell[275075, 8404, 2163, 65, 200, "Input",ExpressionUUID->"ca4a273a-51a4-964e-8bdb-ab1ec4c95c15"],
Cell[277241, 8471, 6157, 145, 485, "Input",ExpressionUUID->"43fa1abf-835a-8342-b5c8-a3144e22790b"],
Cell[283401, 8618, 3409, 93, 295, "Input",ExpressionUUID->"6348a778-6319-b947-b5eb-f2a06836bed1"],
Cell[286813, 8713, 148, 3, 28, "Input",ExpressionUUID->"c2cf749b-34d7-4b47-8ada-fe8f3fc4926c"],
Cell[286964, 8718, 427, 12, 28, "Input",ExpressionUUID->"3186cf9f-6f22-394e-a9c5-370c31165901"],
Cell[287394, 8732, 579, 16, 48, "Input",ExpressionUUID->"db343569-4c60-d74c-bdb3-ffb60381f4bf"]
}, Closed]]
}
]
*)

(* End of internal cache information *)
