(* Content-type: application/mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 6.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 145, 7] NotebookDataLength[ 198271, 4709] NotebookOptionsPosition[ 191035, 4476] NotebookOutlinePosition[ 191916, 4509] CellTagsIndexPosition[ 191834, 4504] WindowFrame->Normal ContainsDynamic->False*) (* Beginning of Notebook Content *) Notebook[{ Cell[BoxData[ StyleBox[ RowBox[{"3.5", " ", RowBox[{ StyleBox["Mathematica", FontSlant->"Italic"], ":", "\:30e9\:30d7\:30e9\:30b9\:5909\:63db"}]}], FontSize->18]], "Input"], Cell[BoxData[""], "Input"], Cell[BoxData[ RowBox[{"\:57fa\:672c\:7684\:306a\:95a2\:6570\:306e\:30e9\:30d7\:30e9\:30b9\ \:5909\:63db", " "}]], "Input", CellDingbat->"\[FilledSquare]", CellChangeTimes->{3.4105203341866264`*^9}, Background->RGBColor[ 0.4666666666666667, 0.8352941176470589, 0.8235294117647058]], Cell["\<\ (* \:51fa\:529b\:8868\:793a\:7528\:3000*)displayStart[expr_] := CellPrint[ExpressionCell[expr,\"Output\",CellFrame\[Rule]{{0,0},{2,2}}, Background \[Rule]RGBColor[0.8, 1., 0.8], CellMargins \[Rule] {{65,65},{2,2}},FontWeight\[Rule]\"Bold\"]];\ \>", "Input", CellChangeTimes->{{3.4106496107359242`*^9, 3.410649706403924*^9}}, CellTags->"compatibility-yes", CellLabel->"In[1]:="], Cell["(1)", "Input"], Cell[CellGroupData[{ Cell[TextData[{ "a=.;b=.;\[ScriptCapitalL]=LaplaceTransform;uni=UnitStep;\[ScriptCapitalL][{\ 1,uni[t],uni", StyleBox["[t+2],\nuni", FontFamily->"Courier New"], "[t-1],uni[t-2],uni[t-a]-uni[t-b],\nDiracDelta[t],DiracDelta[t-a]},t,s,\n\ Assumptions->a\[GreaterEqual]0&&-a<0&&b\[GreaterEqual]0&&-b<0]//Simplify//\ displayStart" }], "Input", CellChangeTimes->{{3.4097038188062677`*^9, 3.4097038242772675`*^9}, { 3.4097056888032675`*^9, 3.4097056959652677`*^9}, 3.4097058811802673`*^9, 3.4105208633166265`*^9, {3.4105209484846263`*^9, 3.4105209629036264`*^9}, { 3.4105215206066265`*^9, 3.410521624119626*^9}, 3.4106492305349245`*^9}, CellLabel->"In[2]:="], Cell[BoxData[ RowBox[{"{", RowBox[{ FractionBox["1", "s"], ",", FractionBox["1", "s"], ",", FractionBox["1", "s"], ",", FractionBox[ SuperscriptBox["\[ExponentialE]", RowBox[{"-", "s"}]], "s"], ",", FractionBox[ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "2"}], " ", "s"}]], "s"], ",", FractionBox[ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "a"}], " ", "s"}]], "-", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "b"}], " ", "s"}]]}], "s"], ",", "1", ",", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "a"}], " ", "s"}]]}], "}"}]], "Output", CellFrame->{{0, 0}, {2, 2}}, CellMargins->{{65, 65}, {2, 2}}, CellChangeTimes->{3.413949658891*^9}, FontWeight->"Bold", Background->RGBColor[0.8, 1., 0.8]] }, Open ]], Cell["(2)", "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"\[ScriptCapitalL]", "[", RowBox[{ RowBox[{"{", RowBox[{"t", ",", SuperscriptBox["t", "2"], ",", SuperscriptBox["t", "n"], ",", SuperscriptBox["\[ExponentialE]", RowBox[{"a", " ", "t"}]], ",", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "a"}], " ", "t"}]], ",", RowBox[{"t", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "a"}], " ", "t"}]]}], ",", RowBox[{ SuperscriptBox["t", "2"], SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "a"}], " ", "t"}]]}], ",", RowBox[{ SuperscriptBox["t", "n"], SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "a"}], " ", "t"}]]}]}], "}"}], ",", "t", ",", "s"}], "]"}], "//", "displayStart"}]], "Input", CellChangeTimes->{3.4097030231212673`*^9}, CellLabel->"In[3]:="], Cell[BoxData[ RowBox[{"{", RowBox[{ FractionBox["1", SuperscriptBox["s", "2"]], ",", FractionBox["2", SuperscriptBox["s", "3"]], ",", RowBox[{ SuperscriptBox["s", RowBox[{ RowBox[{"-", "1"}], "-", "n"}]], " ", RowBox[{"Gamma", "[", RowBox[{"1", "+", "n"}], "]"}]}], ",", FractionBox["1", RowBox[{ RowBox[{"-", "a"}], "+", "s"}]], ",", FractionBox["1", RowBox[{"a", "+", "s"}]], ",", FractionBox["1", SuperscriptBox[ RowBox[{"(", RowBox[{"a", "+", "s"}], ")"}], "2"]], ",", FractionBox["2", SuperscriptBox[ RowBox[{"(", RowBox[{"a", "+", "s"}], ")"}], "3"]], ",", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"a", "+", "s"}], ")"}], RowBox[{ RowBox[{"-", "1"}], "-", "n"}]], " ", RowBox[{"Gamma", "[", RowBox[{"1", "+", "n"}], "]"}]}]}], "}"}]], "Output", CellFrame->{{0, 0}, {2, 2}}, CellMargins->{{65, 65}, {2, 2}}, CellChangeTimes->{3.4139496651219997`*^9}, FontWeight->"Bold", Background->RGBColor[0.8, 1., 0.8]] }, Open ]], Cell["(3)", "Input"], Cell[BoxData[ RowBox[{ RowBox[{"\[ScriptCapitalL]", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Sin", "[", RowBox[{"\[Omega]", " ", "t"}], "]"}], ",", RowBox[{"Cos", "[", RowBox[{"\[Omega]", " ", "t"}], "]"}], ",", RowBox[{"t", " ", RowBox[{"Sin", "[", RowBox[{"\[Omega]", " ", "t"}], "]"}]}], ",", RowBox[{"t", " ", RowBox[{"Cos", "[", RowBox[{"\[Omega]", " ", "t"}], "]"}]}], ",", RowBox[{ SuperscriptBox["t", "2"], " ", RowBox[{"Sin", "[", RowBox[{"\[Omega]", " ", "t"}], "]"}]}], ",", RowBox[{ SuperscriptBox["t", "2"], " ", RowBox[{"Cos", "[", RowBox[{"\[Omega]", " ", "t"}], "]"}]}]}], "}"}], ",", "t", ",", "s", ",", RowBox[{"Assumptions", "\[Rule]", RowBox[{"\[Omega]", ">", "0"}]}]}], "]"}], "//", "displayStart"}]], "Input", CellLabel->"In[4]:="], Cell[BoxData[ RowBox[{"{", RowBox[{ FractionBox["\[Omega]", RowBox[{ SuperscriptBox["s", "2"], "+", SuperscriptBox["\[Omega]", "2"]}]], ",", FractionBox["s", RowBox[{ SuperscriptBox["s", "2"], "+", SuperscriptBox["\[Omega]", "2"]}]], ",", FractionBox[ RowBox[{"2", " ", "s", " ", "\[Omega]"}], SuperscriptBox[ RowBox[{"(", RowBox[{ SuperscriptBox["s", "2"], "+", SuperscriptBox["\[Omega]", "2"]}], ")"}], "2"]], ",", FractionBox[ RowBox[{ SuperscriptBox["s", "2"], "-", SuperscriptBox["\[Omega]", "2"]}], SuperscriptBox[ RowBox[{"(", RowBox[{ SuperscriptBox["s", "2"], "+", SuperscriptBox["\[Omega]", "2"]}], ")"}], "2"]], ",", RowBox[{"-", FractionBox[ RowBox[{"2", " ", "\[Omega]", " ", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", "3"}], " ", SuperscriptBox["s", "2"]}], "+", SuperscriptBox["\[Omega]", "2"]}], ")"}]}], SuperscriptBox[ RowBox[{"(", RowBox[{ SuperscriptBox["s", "2"], "+", SuperscriptBox["\[Omega]", "2"]}], ")"}], "3"]]}], ",", FractionBox[ RowBox[{"2", " ", RowBox[{"(", RowBox[{ SuperscriptBox["s", "3"], "-", RowBox[{"3", " ", "s", " ", SuperscriptBox["\[Omega]", "2"]}]}], ")"}]}], SuperscriptBox[ RowBox[{"(", RowBox[{ SuperscriptBox["s", "2"], "+", SuperscriptBox["\[Omega]", "2"]}], ")"}], "3"]]}], "}"}]], "Output", CellFrame->{{0, 0}, {2, 2}}, CellMargins->{{65, 65}, {2, 2}}, CellChangeTimes->{3.413949667961*^9}, FontWeight->"Bold", Background->RGBColor[0.8, 1., 0.8]], Cell["(4)", "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"\[ScriptCapitalL]", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "a"}], " ", "t"}]], RowBox[{"Sin", "[", RowBox[{"\[Omega]", " ", "t"}], "]"}]}], ",", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "a"}], " ", "t"}]], RowBox[{"Cos", "[", RowBox[{"\[Omega]", " ", "t"}], "]"}]}]}], "}"}], ",", "t", ",", "s"}], "]"}], "//", "Simplify"}], "//", "displayStart"}]], "Input", CellLabel->"In[5]:="], Cell[BoxData[ RowBox[{"{", RowBox[{ FractionBox["\[Omega]", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"a", "+", "s"}], ")"}], "2"], "+", SuperscriptBox["\[Omega]", "2"]}]], ",", FractionBox[ RowBox[{"a", "+", "s"}], RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"a", "+", "s"}], ")"}], "2"], "+", SuperscriptBox["\[Omega]", "2"]}]]}], "}"}]], "Output", CellFrame->{{0, 0}, {2, 2}}, CellMargins->{{65, 65}, {2, 2}}, CellChangeTimes->{3.4139496738450003`*^9}, FontWeight->"Bold", Background->RGBColor[0.8, 1., 0.8]] }, Open ]], Cell["", "PageBreak", PageBreakBelow->True], Cell["(5)", "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"\[ScriptCapitalL]", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Sinh", "[", RowBox[{"\[Omega]", " ", "t"}], "]"}], ",", RowBox[{"Cosh", "[", RowBox[{"\[Omega]", " ", "t"}], "]"}], ",", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "a"}], " ", "t"}]], RowBox[{"Sinh", "[", RowBox[{"\[Omega]", " ", "t"}], "]"}]}], ",", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "a"}], " ", "t"}]], RowBox[{"Cosh", "[", RowBox[{"\[Omega]", " ", "t"}], "]"}]}]}], "}"}], ",", "t", ",", "s"}], "]"}], "//", "displayStart"}]], "Input", CellLabel->"In[6]:="], Cell[BoxData[ RowBox[{"{", RowBox[{ FractionBox["\[Omega]", RowBox[{ SuperscriptBox["s", "2"], "-", SuperscriptBox["\[Omega]", "2"]}]], ",", FractionBox["s", RowBox[{ SuperscriptBox["s", "2"], "-", SuperscriptBox["\[Omega]", "2"]}]], ",", FractionBox["\[Omega]", RowBox[{ RowBox[{"(", RowBox[{"a", "+", "s", "-", "\[Omega]"}], ")"}], " ", RowBox[{"(", RowBox[{"a", "+", "s", "+", "\[Omega]"}], ")"}]}]], ",", FractionBox[ RowBox[{"a", "+", "s"}], RowBox[{ RowBox[{"(", RowBox[{"a", "+", "s", "-", "\[Omega]"}], ")"}], " ", RowBox[{"(", RowBox[{"a", "+", "s", "+", "\[Omega]"}], ")"}]}]]}], "}"}]], "Output", CellFrame->{{0, 0}, {2, 2}}, CellMargins->{{65, 65}, {2, 2}}, CellChangeTimes->{3.4139496773190002`*^9}, FontWeight->"Bold", Background->RGBColor[0.8, 1., 0.8]] }, Open ]], Cell["(6)", "Input"], Cell[CellGroupData[{ Cell["\<\ \[ScriptCapitalL][{Sin[\[Omega] t+\[Theta]]//TrigToExp,Cos[\[Omega] \ t+\[Theta]]//TrigToExp},t,s, Assumptions\[Rule]\[Omega]>0]//ExpToTrig//Simplify//displayStart\ \>", "Input", CellChangeTimes->{{3.410649892634924*^9, 3.4106499228929243`*^9}, { 3.4113603358598785`*^9, 3.411360339947879*^9}, 3.4113603868578787`*^9}, CellLabel->"In[7]:="], Cell[BoxData[ RowBox[{"{", RowBox[{ FractionBox[ RowBox[{ RowBox[{"\[Omega]", " ", RowBox[{"Cos", "[", "\[Theta]", "]"}]}], "+", RowBox[{"s", " ", RowBox[{"Sin", "[", "\[Theta]", "]"}]}]}], RowBox[{ SuperscriptBox["s", "2"], "+", SuperscriptBox["\[Omega]", "2"]}]], ",", FractionBox[ RowBox[{ RowBox[{"s", " ", RowBox[{"Cos", "[", "\[Theta]", "]"}]}], "-", RowBox[{"\[Omega]", " ", RowBox[{"Sin", "[", "\[Theta]", "]"}]}]}], RowBox[{ SuperscriptBox["s", "2"], "+", SuperscriptBox["\[Omega]", "2"]}]]}], "}"}]], "Output", CellFrame->{{0, 0}, {2, 2}}, CellMargins->{{65, 65}, {2, 2}}, CellChangeTimes->{3.4139496788129997`*^9}, FontWeight->"Bold", Background->RGBColor[0.8, 1., 0.8]] }, Open ]], Cell["", "Input"], Cell[BoxData[{ RowBox[{ RowBox[{"Clear", "[", "\[ScriptCapitalL]", "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"prn1", "[", RowBox[{"f_", " ", "[", "t_", "]"}], "]"}], ":=", RowBox[{ RowBox[{"LaplaceTransform", "[", RowBox[{ RowBox[{"f", "[", "t", "]"}], ",", "t", ",", "s"}], "]"}], "\[Rule]", RowBox[{"\[ScriptCapitalL]", "[", RowBox[{"f", "[", "t", "]"}], "]"}]}]}], ";", RowBox[{ RowBox[{"prn2", "[", "k_", "]"}], ":=", RowBox[{ RowBox[{"LaplaceTransform", "[", RowBox[{ RowBox[{ SuperscriptBox["t", "k"], " ", RowBox[{"f", "[", "t", "]"}]}], ",", "t", ",", "s"}], "]"}], "\[Rule]", RowBox[{"\[ScriptCapitalL]", "[", RowBox[{ SuperscriptBox["t", "k"], RowBox[{"f", "[", "t", "]"}]}], "]"}]}]}], ";"}]}], "Input", CellLabel->"In[8]:="], Cell["(7)", "Input"], Cell["\:7dda\:5f62\:6cd5\:5247", "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"LaplaceTransform", "[", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["c", "1"], RowBox[{ SubscriptBox["f", "1"], "[", "t", "]"}]}], "+", RowBox[{ SubscriptBox["c", "2"], " ", RowBox[{ SubscriptBox["f", "2"], "[", "t", "]"}]}]}], ",", "t", ",", "s"}], "]"}], "/.", RowBox[{"{", RowBox[{ RowBox[{"prn1", "[", RowBox[{ SubscriptBox["f", "1"], "[", "t", "]"}], "]"}], ",", RowBox[{"prn1", "[", RowBox[{ SubscriptBox["f", "2"], "[", "t", "]"}], "]"}]}], "}"}]}], "//", "displayStart"}]], "Input", CellLabel->"In[10]:="], Cell[BoxData[ RowBox[{ RowBox[{ SubscriptBox["c", "1"], " ", RowBox[{"\[ScriptCapitalL]", "[", RowBox[{ SubscriptBox["f", "1"], "[", "t", "]"}], "]"}]}], "+", RowBox[{ SubscriptBox["c", "2"], " ", RowBox[{"\[ScriptCapitalL]", "[", RowBox[{ SubscriptBox["f", "2"], "[", "t", "]"}], "]"}]}]}]], "Output", CellFrame->{{0, 0}, {2, 2}}, CellMargins->{{65, 65}, {2, 2}}, CellChangeTimes->{3.4139496958190002`*^9}, FontWeight->"Bold", Background->RGBColor[0.8, 1., 0.8]] }, Open ]], Cell["(8)", "Input"], Cell["\:5c0e\:95a2\:6570\:306e\:30e9\:30d7\:30e9\:30b9\:5909\:63db\:516c\:5f0f\ ", "Input"], Cell[CellGroupData[{ Cell["\<\ LaplaceTransform[{f'[t],f''[t],D[f[t],{t,3}]}, t,s]/.prn1[f[t]]//displayStart \ \>", "Input", CellChangeTimes->{ 3.4106499707869244`*^9, {3.4113609436238785`*^9, 3.4113609562518787`*^9}}, CellLabel->"In[11]:="], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"f", "[", "0", "]"}]}], "+", RowBox[{"s", " ", RowBox[{"\[ScriptCapitalL]", "[", RowBox[{"f", "[", "t", "]"}], "]"}]}]}], ",", RowBox[{ RowBox[{ RowBox[{"-", "s"}], " ", RowBox[{"f", "[", "0", "]"}]}], "+", RowBox[{ SuperscriptBox["s", "2"], " ", RowBox[{"\[ScriptCapitalL]", "[", RowBox[{"f", "[", "t", "]"}], "]"}]}], "-", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "0", "]"}]}], ",", RowBox[{ RowBox[{ RowBox[{"-", SuperscriptBox["s", "2"]}], " ", RowBox[{"f", "[", "0", "]"}]}], "+", RowBox[{ SuperscriptBox["s", "3"], " ", RowBox[{"\[ScriptCapitalL]", "[", RowBox[{"f", "[", "t", "]"}], "]"}]}], "-", RowBox[{"s", " ", RowBox[{ SuperscriptBox["f", "\[Prime]", MultilineFunction->None], "[", "0", "]"}]}], "-", RowBox[{ SuperscriptBox["f", "\[Prime]\[Prime]", MultilineFunction->None], "[", "0", "]"}]}]}], "}"}]], "Output", CellFrame->{{0, 0}, {2, 2}}, CellMargins->{{65, 65}, {2, 2}}, CellChangeTimes->{3.413949699403*^9}, FontWeight->"Bold", Background->RGBColor[0.8, 1., 0.8]] }, Open ]], Cell["(9)", "Input"], Cell["\:30e9\:30d7\:30e9\:30b9\:5909\:63db\:306e\:5c0e\:95a2\:6570", "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"F", "[", "s", "]"}], "=", RowBox[{"LaplaceTransform", "[", RowBox[{ RowBox[{"f", "[", "t", "]"}], ",", "t", ",", "s"}], "]"}]}], ";", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"D", "[", RowBox[{ RowBox[{"F", "[", "s", "]"}], ",", RowBox[{"{", RowBox[{"s", ",", "k"}], "}"}]}], "]"}], "/.", RowBox[{"prn2", "[", "k", "]"}]}], ",", RowBox[{"{", RowBox[{"k", ",", "1", ",", "5"}], "}"}]}], "]"}], "//", "displayStart"}]}]], "Input", CellLabel->"In[12]:="], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"-", RowBox[{"\[ScriptCapitalL]", "[", RowBox[{"t", " ", RowBox[{"f", "[", "t", "]"}]}], "]"}]}], ",", RowBox[{"\[ScriptCapitalL]", "[", RowBox[{ SuperscriptBox["t", "2"], " ", RowBox[{"f", "[", "t", "]"}]}], "]"}], ",", RowBox[{"-", RowBox[{"\[ScriptCapitalL]", "[", RowBox[{ SuperscriptBox["t", "3"], " ", RowBox[{"f", "[", "t", "]"}]}], "]"}]}], ",", RowBox[{"\[ScriptCapitalL]", "[", RowBox[{ SuperscriptBox["t", "4"], " ", RowBox[{"f", "[", "t", "]"}]}], "]"}], ",", RowBox[{"-", RowBox[{"\[ScriptCapitalL]", "[", RowBox[{ SuperscriptBox["t", "5"], " ", RowBox[{"f", "[", "t", "]"}]}], "]"}]}]}], "}"}]], "Output", CellFrame->{{0, 0}, {2, 2}}, CellMargins->{{65, 65}, {2, 2}}, CellChangeTimes->{3.413949709432*^9}, FontWeight->"Bold", Background->RGBColor[0.8, 1., 0.8]] }, Open ]], Cell["", "PageBreak", PageBreakBelow->True], Cell["(10)", "Input"], Cell["\:7a4d\:5206\:306e\:30e9\:30d7\:30e9\:30b9\:5909\:63db\:516c\:5f0f", \ "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"LaplaceTransform", "[", RowBox[{ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "t"], RowBox[{ RowBox[{"f", "[", "x", "]"}], RowBox[{"\[DifferentialD]", "x"}]}]}], ",", "t", ",", "s"}], "]"}], "/.", RowBox[{"prn1", "[", RowBox[{"f", "[", "t", "]"}], "]"}]}], "//", "displayStart"}]], "Input", CellLabel->"In[13]:="], Cell[BoxData[ FractionBox[ RowBox[{"\[ScriptCapitalL]", "[", RowBox[{"f", "[", "t", "]"}], "]"}], "s"]], "Output", CellFrame->{{0, 0}, {2, 2}}, CellMargins->{{65, 65}, {2, 2}}, CellChangeTimes->{3.413949711859*^9}, FontWeight->"Bold", Background->RGBColor[0.8, 1., 0.8]] }, Open ]], Cell["(11)", "Input"], Cell["\:5408\:6210\:7a4d\:ff08\:8a18\:53f7\:3000\[Wedge]\:3000\:3092\:4f7f\ \:3044\:307e\:3057\:305f\:ff0e)", "Input"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"f", "[", "t", "]"}], "\[Wedge]", RowBox[{"g", "[", "t", "]"}]}], "=", RowBox[{ SubsuperscriptBox["\[Integral]", "0", "t"], RowBox[{ RowBox[{"f", "[", RowBox[{"t", "-", "x"}], "]"}], " ", RowBox[{"g", "[", "x", "]"}], RowBox[{"\[DifferentialD]", "x"}]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"LaplaceTransform", "[", RowBox[{ RowBox[{ RowBox[{"f", "[", "t", "]"}], "\[Wedge]", RowBox[{"g", "[", "t", "]"}]}], ",", "t", ",", "s"}], "]"}], "/.", RowBox[{"{", RowBox[{ RowBox[{"prn1", "[", RowBox[{"f", "[", "t", "]"}], "]"}], ",", RowBox[{"prn1", "[", RowBox[{"g", "[", "t", "]"}], "]"}]}], "}"}]}], "//", "displayStart"}]}], "Input", CellLabel->"In[14]:="], Cell[BoxData[ RowBox[{ RowBox[{"\[ScriptCapitalL]", "[", RowBox[{"f", "[", "t", "]"}], "]"}], " ", RowBox[{"\[ScriptCapitalL]", "[", RowBox[{"g", "[", "t", "]"}], "]"}]}]], "Output", CellFrame->{{0, 0}, {2, 2}}, CellMargins->{{65, 65}, {2, 2}}, CellChangeTimes->{3.413949717045*^9}, FontWeight->"Bold", Background->RGBColor[0.8, 1., 0.8]] }, Open ]], Cell["(12)", "Input"], Cell["\:539f\:95a2\:6570\:306e t \:8ef8\:65b9\:5411\:3078\:306e\:5e73\:884c\ \:79fb\:52d5\:306b\:3088\:308b\:30e9\:30d7\:30e9\:30b9\:5909\:63db", "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"GraphicsRow", "[", RowBox[{"{", RowBox[{ RowBox[{"Plot", "[", RowBox[{ RowBox[{"If", "[", RowBox[{ RowBox[{"t", "<", RowBox[{"2", " ", "\[Pi]"}]}], ",", RowBox[{"Sin", "[", "t", "]"}], ",", "0"}], "]"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", RowBox[{"3", " ", "\[Pi]"}]}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", "Black"}]}], "]"}], ",", RowBox[{"Plot", "[", RowBox[{ RowBox[{ RowBox[{"UnitStep", "[", RowBox[{"t", "-", "\[Pi]"}], "]"}], " ", RowBox[{"Sin", "[", RowBox[{"t", "-", "\[Pi]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", RowBox[{"3", " ", "\[Pi]"}]}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", "Black"}]}], "]"}]}], "}"}], "\[IndentingNewLine]", "]"}], "]"}]], "Input", CellChangeTimes->{{3.4097089077682676`*^9, 3.4097089511262674`*^9}, { 3.4097100964842677`*^9, 3.4097101112422676`*^9}, {3.4097104553122673`*^9, 3.4097104722162676`*^9}}, CellLabel->"In[16]:="], Cell[BoxData[ GraphicsBox[{{}, {InsetBox[ GraphicsBox[{{}, {}, {GrayLevel[0], LineBox[CompressedData[" 1:eJxN1nk0lN//APAJ+ZBiNllCoZQkrbR8eF8pJVJakJRWLZaUrElFJIVChcpW KWtZioRbWaJFQogQwjBmHrtZ0O/5nfM9H+afe17nPmee97yXe0f16NndJ0Qo FErJDArl/9cAFeqrH1U3DKz/tzYt/5ZmmXESjKle/nvJ9W2JupR6hgdwbonZ K5Jrqoz5BsmM6/DpyY6krvTroL62w2I8/T6sveglep5cWz+mN4+kPwOG/uLM L6nPQJ8W8XgwPRfsPfNSzJ/mQt+rAPGB9I/w6Kadv+PNj/BzsYtMR1oDmBix nG/SGqC2SRAUuLcdot4LvGSt2yB3t7avuGM7ZG2ZdK9yaIOYCjvXQP92kCr4 Ie13uQ2O5JYcDMxqB7eOG3/Kk9qAGx66KpDaAa/luv92DLeBxHa1XwFfOmC1 uXuZcVg7/JtnohOwuRN8tq5Y6l7QAU8io374r2HBY7WjNqajnVDG8Xo5w5wF +wXxzysluqDH+MDNyydZIGptJDSa1wXL+cqGF2NY4NH/21cMdUHuwcdp5yk9 kPgl901TUBd80sjwP/KlBwbPruQ0yHXDQF7xSjjOht7UJcl4KQuY9KezCy+x Yd1uFz+njSzQdQjs3nCfDdEpdKGUGQu8lU0e6X5iw+Uqw3hFJxaI+VVKLF/R B3zOybuXMlggb/qzVWm8Dy5Erl9osbwHDJq5IYIILugMvM9gqfZCV1dBd0kq F0aUBZce6vRCaH+wYVgxF94/FNYY6vdCq+jiEfUhLuiD3uhh6164stTOdsdu Al6lH9jUH9ILbW9Pyu6S6IfHMmuCzUZ7QV2yoSOxrB/23HOf/ektG3hzMDWo uh+0Co+/iv/Ihi/0JH2nln64fPG+6KkaNlxQunBfb7Qf4GO5W3kvG0p0qKZf Fg3AxhTNiW/yfXDCclvWyLUByL98nj58rg+ePc67ss1oEFQZRgMn5DkQo+AR v2zXIBwYatCUV+dAaNjad9SDg9C964xnrjYH3C9m/W1wHwRMjG4s3MSBzXvS fE+nDELXqvTYPw4caBeJ9wmmDYGceOWsR/kcqPM89NBZZQjCxDP8lEs48Imr VLBbawie80WeB3/lQGZjtFBxyxAID8W2L/3NgStZEd6pnkPwq+ngWT8xLqgc ve75pXUIHKovVwaZcIHesCXqZd8Q7GIKbL5bcEHcXCwvkj8EF5mcdeI2XOCs vzpmyxiG4tnCmjVnuFBAu+jOMR4GU5Gc4Sc3uLD/vfMF6Yxh+Fb93PtLCRfM 9LQjB/OH4c21S2/rP3MBpbOz6z6S+xWRk5XVXFgSfWootm0Y7qdd9br6mwuj LkfP68iOwJZl7LIRARciF1i67PIZgRJDNxn5ZQScMUs9zAsagag0/4dlKwkA T4pF/N0RYIeKPT2iR0Dvt5SV/RkjkOZ6VPHgJgLQ5b+DYW0jAIm2eqetCJib urdDjzsCs5AHumhLALsuuaZVQL5PaJridYSAe8v35ugwR2FR6MuIjQ4E9DU/ d/tmPArNv4lTNZcI+CA5ecJjzygsNpRR3+ZHwP21eyznHx6FcvlNGsmBBGwK mdA96zUKmgRvXCeMgKh/d/Ok00bhOGUyYVccAc6nnrFe541C1d1XNosfE2AU Od5wqHQU3I8RW3uTCOCyk95ktIyCo+Kt12syCNj8QOhtThuDJos7T5veEqD4 cZfDqPIYBNloFTMwAcTg0wOxS8l9QaXoug8ExGzf9S/XaAwsY492bS4nwMX9 6bJ7u8YgLuDGNe3PBGxJFCgZHByDFd8WG4hUEtDPfzIR4j4Guavej5+tIaBs kYCz1n8MqMWWkxJ1BDyw2NnSHDYG959EMUMbCDBO5hdpJ49BnXWrp20zAQ+t za98bRqDiqrjY5JdBJy/9tjFjTUGw+MDF0RZBGx9yTusPDIG876yhaweAgb/ eWzoJM2DE9nnVT05BJSv5q2UnccDhezSQlWCgEd2O9QKF/PAXItml9tPwLbc MZE5hjzork9KSxoiQKXDbChnBw9e8xStKCMEDEkndtja8EDEsUnEeJT8vg1j NWIneZDgpPTCY4yAWHuzkjRXHkQWqBy4yyPgQnhCzt4rPPB7oCMexydge9Ho k/FbPFj4/fmLSAEBC3pN7z6J5kHW835LdyEBI7IJAWZJPECDXkKjcQKkYxxf KWbxwI4bUDxAWkNlXSerkAdKMzxUQycIMEgUlc2t4MGIJI+pMEmApca3zQE/ eBB1rPBROGnnlJgLe9p4IPPn2lsB6evL7Z+ocnjQ+UvW2eIvAfFZK2sJHg82 zTN8dY90nu6EaJEYHyRYv29/Il2VX776FpUPnf/8pHBI9xhEHrNR4sPRt3Nn TpIWKbaLWLKED/1Ftx9NkFbcqlU8upoP7O1bP7FJr/o8OlgCfIhhbL5ZTtp0 5we1CFM+aJrE/I4gfbwmZPcRKz48vm//aQdpH6v9fjrH+NCk8W3bKBlvZNPC rAlnPtjGiNqGkE6362/77M2H3TR9MQbpso63tJhAPhzRKDK8Tuaj5eR1w1Ph fAghqpm9ZL5G2bvP6cbyQXyy6tJG0jIuKgliKXz4e1Du0kUy38jzFSXhPR+o yUvQR7I+1uNXVpz9yod0WptYDVm/c1fMDuv/5MOesoIjX8n6JgZ14J/9fHAx U+0KIfshf/YL4tk4H5JPd0jvHSag5rb3fHcJAZSd3lgtQfaPWDTtMn2BAIp/ XtcyIPtLSbk547eWAATWM4qLuASsTXjekqEnAKJBkadN9qd9MhiY7hRAtly8 QQPZv77aUs4KBwSg8/CXBYPs7/uZdY+67QXwOdVGXJ/s//I3ThP+vgLwpSyy sm0n4Lf+eu3dwQL4khkyYvGbAP57sYML7gngcqnLet0WApZ+elBQkC6A4F/G rz/9JOBmY8XFkV8CiJiVnKReRcCTQ3dTi1kCcO+Rjwj9SkBB++GmO8MCKFy8 QYf1iTyfesc2LJ8thOtudj4nSwkwFy4S2G8Ugk4eO/LeGzL+ywOaa7cKYcOQ jabHawIuixbuF90jhHkf5ngbZxPwUmrvm7gzQsjlrrfKTCOAruTn2RAthKW6 j1bnxZLzQVv04GmSEF5XplJwDAF+4uWF57OFYGUdFZ55j5zn/jmic74KYWWI p4xNKAHVpdEhhpRxWDR/8Zs8HwLCz2YmptiPg8eDpfte7CPg0/G9pR6u49Cv /azYdRfZrzZj3ZuvjMNrn9saC03J82OzvnZr9Dj8dt1Zvw0RsFuhIpfxdRzO H683TtQkgFH8+4vP6gn4Z0l5TBSPvF/y/AkTNAGFpWJiKoNcuJauQZfbMQEq yrTYMDYXhu87WmXaT0Cm3lk3vRYu1Dry2jqjJ6DtXZtmzAfyfplLHTOnTMKd QlrUi+tcYJ4BVdWvk9ARufT2v6JcCMu19mf+nIQuX2vvHgEHZs083/lP5yRM bP+YEjDIAUr8k2Tu+CQ8qNIcuNnGgb4fkqsKlv0F/e4D0VVFHPLeqt1kdesv vL75It7AnQP5t9ZklS2ioBmJDnnfG/rAc7XhsXdaFFS34qjOuco+WNu4g5m/ koJy7m+IpJT0wcvFJ93T9SkofLDTgMjog6QP0Rsi91HQYJJz4exrfRDOm/xw JICCtm56k7RDqw9OH6+oGf9DQYn0O2sYzmyQt1d1auiloHjOpiTBETaUnfQS z+mnIN2hgNM1+9ig5qC53mGcgqJL6iet9dnw69yN2J+MGcg9S0r5lRQbdl02 Of160wwk+Y+lWO7TXtCNqZg8Gz8DvU/bz6N96wGRqgrNjgMiaPTA37F3vG5A wSH/GhwVQc36p2Tau7vBd7PFzuhTIugmX4Y6XNcNwryGCzvdRNDrxx1jvTnd MJzQjd+GiqDxZPWwRS7d0Ok60zLyvQhKekQ7Wd/RBeVyhn5bFoui97iTd/Fd J4Ta5TU+GxRFbkr+8VYWHeAxds57jfNMNNc60OJC+C/Yk63gFif5DzoQGDU+ fqcKTmtF+V17JIHa7ZXfd958Cc2pbb4r585CHygjD40uFGGjXQp1BRlSKLlO uJEpXYv/mZinRF02B1VVlHy9N9KCi77OLjSskEbqoSxvjY9/8CC7ySHqmzRK KWPvONX4B2vMSlUkfkgjUef7ko84f3CIsYnnw3ZpJP3p1axWRie2xQGrx4TS KDLQ90+xXScWvJxMTlsugxb/q3tXfKQT60b235OLlEEL4yofq8h24zNZeItz jAyaud+xJkmjG8dWhQ6XxMugHe2nvBes68Yz52jvPp8ug1pTn4qwbLpxbcDp OV/LZNAeKaPPZXHd+LxHu78fXwbd1lCofaPBwlbaZ/LcdahItPKgwzLNHuy3 +0WcwyoqeuB9v/eDXg9O8xgOPLyWikoGEhJNjXuwyAfffds3UtF2G6dHq4+R +5YRg8pbqUgeHW2zfdiDKVcKlpUeoqKjLu31c2b34pRq6QRGKBVZ+5oV5vzu xbVje4Ik7lDRGkW3IH9OL/6rFH12IoKKJuI2PTIS9OK9J9UNuqOpaKFw9Pp9 Bhv/Feo15T+lop35WfEhW9h476IjskcLqeidWMBAWhIbT3pk33jZR0Xmntk7 gw/2YRevDO1OgopQUbPc4dN9uMM7+bvCEBV5OL2MV3frw+WX4hT8+VT0YZ5a neutPhzufzN5nzgNPU0N/auX34c1wo5VCObTUDSNzt1G5+Co24ecdNRp6MkZ 7s4xJQ6WCt9PO65BQwt95v0NX8zB/ZE7939dRkNNK1YvDf+Xg/NjNvbEraeh 9Wo3xzJOcLB5EkNyyx4aukTMz7PN4eB3z6TTvSxpyESzvf5XIQevTpa0yNhP Q3qScc0mHzlYPu1vlNxhGtrU3+zX+5OD2zPZS3odaYh1ZSRkyyQHuxcWbwsL JOOT1Htw0IiLY2tdg36+oaH55vIlRBEXqzqaFdQX0JBNgNXR4FIufiK6qP8H pqHPh1aWMb5wceqqOqvqUhparjivarCBi/Nur1v8+TsNOSZnBLUNcHG12URp QQ8NSS1ouem7gMD7/vzg5/fR0I6mijZRDQI3XMzQfkPQ0O16s48eWgRuTbG7 +2qEhjKN+tZo6RK4T+LD8YwZdOQKvlvfbSeweGmgaLwCHRGKl7/HuxD4hq2d XqwSHd3wGfo4x43As4f1HB7OpyP/siLV014EZqj3VEctoiNL9cSR3qsEXnDV NPHOSjq6uabwl2I4gR/LL6wLW0NHEtTSVMFdAmu8HJcM1aOjizjnc3k0gbVb 088F69PREP/biE4CgTfoUw39TejI4Sx+o/mCwIW1rAtXzehopW5w3cUsAiPH 988v7yTjsdm6puAVgbc+OE/12UdH1x7YpP5TQOC9/NrWC0foSNh/yKriI4Hr b6czXI/TkRF1YHvIJwLbLAnceu4kHYX1C8/BVwIfttJ74eRER0utfPY6VxPY 6VW0r70XmY+f1kajTQQ+JbiftM+Hjn6FaRcsaCHwcbhXufkyHR3NWCSz4TeB bSvCVdQD6Gh2vRis/0Nga+k7xvQgOrI1L1WY30XgPXvCnGfcpKNtkrafhroJ vL35ZlHrbToqerMw+TSbwMZqwV2VEXSkS/H+MYtD4E0ng6SL7tHREu2+mhgu gdcPXDv08CEdHQyqMbo+QOA1uv6BN+PoyEb4KrtjkMArLl7N8E6kI+XWsMHl wwReMtN30vo5Hd0zPNN4Z5TAC7f7aGxLpaMD4mp+yWNkfcK8zfUy6Oh1OYy+ 4BFYqdbTXSOTzL+5ru5TPoHlFDxiZXPoaH3CVcMbAgLTD7mVieXSUa3kMzlb IYGlH7tyh97QkZvs2jzlcQLPYp2b21FAR2cjitUqSYtruxhUYzri3h2ydJog sMh5Z/v3H+hI5/zZvULSE68dQ1+W0tGzd72KnpME5gnPvI4rJ+t7UC2lg/Qw Ot0S+pmOVp38NcPgL4H7A06K+1bS0StDlup10n2fTix3+k5HQREqszBplsxx S9taOrLYeiS/k3TH3qO+pvV09Ojmg1VC0i3Rh5M2NNIRu/r9+b+kG1sOVWo2 01F2zXfvQdJ16gdH5X/T0amg6u21pKtPHVCR6CDrr1Pb/oR0Zfp+47FOOtIy 7d90nHTFoJVzF4uOShNMHOikS/Qs7/1g05Gx/mzbF2T873z2FpVw6eikg5Ps RtIF73d3ZQ/QkXdh6v1X5O/PE7eQfjxMR1slZDpUSOeY7tQNH6OjnmOsMXcy fy9u7zh0VUDGrxVeV0jmO+WHaaDLBB1FTZy9PETWI0lxe4YdhYEq8rmDcqRj nxhP6oszUF/Zy43aZD1jejZraEsy0C71cZoKWe97y43MlWYz0JYAXs7ECIFD 8iBWQGOgfcbex24METhoQr+sh8lAM4ssXNaS/XRt07/cBjkGeuPga1bVT2Cf L+sMcpUZqNK2za2a7E9Pmp590gIGup6XXbK+j8CulmtD76ozENOb0RXWS+Az v1e2uGqS75dReCJB9vv+4aW+K9YyEMyJWLKslcAPZVuP2q1joFcJLhJNvwj8 Wzdia+hGBjILSsl3ayTnzUtI7TNkoK/JFg+dfxDYffLz42fmDKQxPtvPmZzf /PlXguosGMjiOEPNh5zvCbTGaeY+BvIsm0xwKyHj93+oe+wAAz1W32iyrIjA 4RJOFSqnGMhGhe78/CVZb03VjB0ODCQ7mLFFNp3ACqY/wn2cGUhNumeOczKB 40P0bRsvMJB/i59XB3kevaBLE3evMhC3ZfWMljsE/qL0gjnnAQMZL7Oex3Qm MNXgGH9jLAMZfVi43PA0Oe92ci1nEhjIV8Hf1uY42W8Jl5+VP2OgY9sc5S1s CNyjsWvDtRwG+swast+1hZyXlQN2wq8MZLh9kXW0HHk+7H66eel3BronkMi5 QSPr5bpfc38tA+1ZK3XMXorAzNfvB183MlDQfLFPfya5WG1jeMD5bgZaYJah NfqHi2HL6tQeChNtO/St0zmdiyPHS+a3izKRyw8c/DiJi1nZlpGN4kykooC2 fYzj4ttq3pc+z2aigOR5Sr/ucHH733c70+WZqOyWV8RGNy6+lm8+7LKCiSzr 5Qx/rOPiCp0z+jw7JtrPPOJ7J5uDVbqFmf1Hyec9tPQzUzj4fGyIRs8JJmp4 4Bn3LoGDFedkyjQ6MNGcFtujGWEc7Ng71vbWg4ncz95xKjvDwdJPAwIvhzGR NqxT4Chz8B7FhG/imIk2dv2N3ODZh/vTWRT4wETbZ+z75uzYh28ZrljlUcpE GyS/x90+3IdLTuHI7s9MJB83S+3Rtj68Jrd5f3kDE/0kXgc0yvXhuXsV/9wY ZKKZB20+cLLYuDEkgjdbQxYFWizf8LKpFx+ZEajKCJFF+v6U/gd8FnbfNGT8 721ZFLRSoFnaw8LB/ocdT0TIItWS9z9afrJwzsyNubnRsshA2Tul4w0Li8/q N7NNkkUDV3oOr/Fi4TS6jedTLIv2sGf+EQx341H15d/0BmWRx7pjm0+0deFb xnU+tlZzUa2Lmo3s7T+4S+bWN0mmHGKHmBiMnGvF69l5O5N+y6F3G5QC97+v wXlr7lskdsih4Nvtv1gRNVjX121PbJcc+iqTvcPJvgavoq2yutcnh+wai9r3 SdXgpXqphwJ5ckjLrjP++d5qrOj/yMmeKo8MVf2zz3RWYYGi300N8t/f6vl0 iiblC/Y8fjhEzUgevTz9fNFA4mc8mm4QpmIsj86bNLOSt3zGg0gYPtdMHs03 aZHjBn/CvfYXYsSt5REvb0V5GbMCN2bZJ3edlUel4S1S3YvK8Nvtph+T4uSR a9ZhBwt4h7MMdxZGJMojFfXrjr9LMH6+bk/2lafy6IztHdE5UhhHahyIs0mV R8kPVIrX3C/EziIOHtK58mgiLfN0RUY+VssPXuxeKY9O9qdfPNSUg+UzQ5WP fZdHSsr5VfkLcrDM83DGrlp59Nxg+5HZ9tl4/G7MX81GebRP1rXkdn8mrjuX Ut/cKY+ybEYpe2Zl4GDNT9e3TMijBFbevT/7E/GVBZWXVlEUUPPlUPvEjnjs IVftOl9UAXmZtNpkNMbi4zMb7fgSCuh4drCfxYxobDPevK9LSgFlVnnphzLv YYuhNtMaaQUkZhW8BC+OwAZtPXrpTAX0Y+Rr4j8Pg/GaBo52jBw5bFvqD6/9 cA1rfRtQv66ogEwcxSReVl3CamUjCheUFRCWWX2gU+k8li/kyxxZoICS+o+M GT3Zj6VzJmaaqysgyv8+M1NnjG/QmPJ4wszBxZpTHoySZDGXTZkVNqdlhs6U WwNptdyVU/5yQeFdud6Uk3ZpRvkYTdlGwmTbH5spRzWJCKmHplyfUZCuf2TK e/etYNw/OeUdiXItJhemjP7tcn0RMmUNF/8473fT4q8vHKVqKP7nN1pRDxM6 pux1p+esaua8/3zqYvyGmeeU/vOF4g/SGtrKU88r21J1+VNOF9pIpuSq/OdG dpXOnMD5/5mu/POF5ZIF/9k80Ke4IXDK1z2bnHZzply/jMOYNFP9z7q3cwzK U6Z8x0ePEkxV+89iWk6Fl85O2fXoIdrpuinH/BEecpvmD/bRaVenme5QuzVm mrNct/t+nub+a7ps7fopOz6TLh2c5kjNNPrfaS5INTks1TBlqZfXhOrTnJIn WLlvmlkVXbG500w1u9ZXPM3rKlU3VE3z9WrbH6xp1miqllL8OWXzgy77NabZ vXXOs1XTXNaxbZPpNHNPdIVZTfNcln/zsWk2OKOq5TLNJ/qKPH2m+f8AVvqd cg== "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0}, PlotRange-> NCache[{{0, 3 Pi}, {-0.9999997369146433, 0.9999990558043061}}, {{ 0, 9.42477796076938}, {-0.9999997369146433, 0.9999990558043061}}], PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}], {192., -116.80842387373012`}, ImageScaled[{0.5, 0.5}], {360., 222.49223594996212`}], InsetBox[ GraphicsBox[{{{}, {}, {GrayLevel[0], LineBox[{{1.9234240736264038`*^-7, 0.}, {0.002890748297863383, 0.}, { 0.005781304253319404, 0.}, {0.011562416164231445`, 0.}, { 0.023124639986055528`, 0.}, {0.04624908762970369, 0.}, { 0.09249798291700002, 0.}, {0.18499577349159269`, 0.}, { 0.38555218227031457`, 0.}, {0.5728180575741768, 0.}, { 0.7564105197713116, 0.}, {0.9555638095979828, 0.}, { 1.1414265659497944`, 0.}, {1.3428501499311425`, 0.}, { 1.540600320805763, 0.}, {1.7250599582055242`, 0.}, { 1.9250804232348218`, 0.}, {2.11181035478926, 0.}, { 2.2948668732369706`, 0.}, {2.493484219314218, 0.}, { 2.6788110319166054`, 0.}, {2.8796986721485296`, 0.}, { 2.882780144447361, 0.}, {2.885861616746192, 0.}, {2.892024561343854, 0.}, {2.9043504505391793`, 0.}, {2.9290022289298285`, 0.}, { 2.978305785711128, 0.}, {2.981387258009959, 0.}, { 2.9844687303087905`, 0.}, {2.990631674906453, 0.}, { 3.0029575641017776`, 0.}, {3.0276093424924273`, 0.}, { 3.0769128992737262`, 0.}, {3.0797867069870124`, 0.}, { 3.082660514700299, 0.}, {3.088408130126872, 0.}, { 3.0999033609800186`, 0.}, {3.1228938226863105`, 0.}, { 3.125767630399597, 0.}, {3.1286414381128838`, 0.}, { 3.1343890535394565`, 0.}, {3.1372628612527427`, 0.}, { 3.138587303474752, 0.}}], LineBox[CompressedData[" 1:eJwV13k4lF8bB3AtZIuZZ0jEzFBJirKEUs4dUZYoJUtCos3ahiT9SiT7mkSW tFlClsp6JJSEkqUkKsJg5hFpQbzP+9dcn+vMzHOf+3ufM9fIO3tZui7k4+OL WsDH9//X3R3X5hWUhOBtZmdGTtpxlFChcbheWQjulbZYLUs4hW58XSX5cKMQ yG1sND1lexHdXLKsMUxLCK7+jt3gEH0Vpe77s3GPvhDEHI+z0VeOQVmjlXyf bIWg2/ovc5KXgu7S80uqHIUA2cdf+teXhu5rpx/PcBUCiR7JxAvDGSgn6PJb 11NCwBeVPG/zMQsVrTDKGA8Vgvy42fCI8mxUY9qKBJ4JQfBzjjJRVYQ+534N VFsmDE18U6kGZ6uRZ5heXrysMJTw9SmJIoz4TqR8nFIQhv3hX459WVyDVila aZZvEIbVObKbfFpr0MmMVxx9Y2HIEqw4yHKpRb8SCvbvDxCGGwWLr20Ir0e0 wIvKvt+EofUs9ghpaUIGe6Q7K/NFILdzRldCrB0t+bdClrZ+KbQ11jXfmOpF 1c2iVdsbxWBV1LC/4ssBNDH6ye1mqxjkNozuPt49gBSFc2XIDjFY7JkkdJs7 gCKNjP1Sv4mB+OtS4T7Gd2SPgzV+z4hBYkjgwAvH72i6cC47T1UclLZqJQpM fUdaCeM3pBLEYXV6SxZTcgidLMKGnrfEQcDW/f19xSGU9jbqZ12GOJh/O+7P 1hlC/EtVLE8/EocvufcWDtsNofbgE0ubG8Rhn4hBU0P6EDrt+y3oyl9xiFGU bi9THEbWKief+WygwaKWQ27r13LQFcuCdDd1GqT4J43UanNQnu/PEKdNNKj/ kXnH1IiDFtYGWpno0sDUzuO2xhFq/UD8hNxOGiwH56/2qRzE91/l+noHGjh7 f+taKjqCctrEMhlRNLANNKsq+TKC2n/vCxWMpcEmmXOhQdwRNC+b7PUvngZz 6fq3DaZH0P5jK/WGkmmwaubXtSTGKJqf0f5Ufo8Ge8qLMiINR9H+1Yclnato ULM4+Efe/VE051t8vXCMBhZ+xRZhh8aQ9/l8le8kDaD6s5TTiTHU75/9TnqS Bn4ehRkrz42hVxfTpYP+0uDFCoXOMxFjKC4oPNtKgA73cqPmtcvHkGL0kcZp Fh2S6QRvF8FFN2McPDaspNZP8ix+y3KRSJwt3UWRDqsCVszHreGi8QQL2+b1 dOjZqKEct5WLym/pctI302GLQvjvfFcuMr/PEDLcR4eLJOuZfQkX1TwQe3T+ AB1M1n7r6qniIo1sob35tnTQEUr/bPySi5bnzd+UcqKD/vjnKyMfuejb41Gl EXc6cP6bijSc4yKfqhe7okOo+oS0Uw4Z8FBa+5nQj2V0YJsvryOreUje3ayy q5IOdsHWzmH1PHR30erxDkyHJge1BsYbHspV77Ruq6eDqsyKtxMfeOhZjM6a pnd08MjOD/36g4fazP7VV3LoIMLuDQ9kk8hqoONv+Rgddn9q/LpIkUQfLuSr lJF0iOkye+m7jkR9OY6JpVN0eGwwprlOi0RjgrUu+QsIOIMCd9aYkEigPmRR hjQBpMyldxneJLpu76idJktAWMDky6XnSCT6U9stlUVAUEO1/InzJGKs5LTd XE3AgZV3pkYuk4h92fROrBoB4ZpVPTJxJMpavqozWpMAQVp97nQiiRQLZ4Wi tAm4gEuaXiWTSKXv0amwbQT8/Ns6tSGTRFu20bYHGRPg5oXL1haQqKp9+Oxl MwLUtMI6LxSRCNyfP7xkQcB1u52alaUk2plymhZgRUBwil3ukkoS7f/b3nf2 MAEz4w7WjS9J1BXziHHGhQAD2g+TyNckslMK2XnqGAHR4zOnUDOJnKy1Czw8 CFC2Dtjv2UYij9LkwKPnqX58tDH49YlEx6eT7lsFENATrVLJ7iWRC7rRsuMS Ac75q8W3fCGRfWMcc2UwAaJdi9HmARLZiMUaEaEE2JvXS7MGSbRvX7TngnAC jIXsX08Okcjkc3h1XwwB1WWrsk+MkshIIWywJZ4ALT7/DmEuifSPhYpV3yBA SWXs/S0eiTb/uOqQmkrAodD3Btd+kEhTKygkPJ0Au5nS4v4JEm28cDnf/w4B cn3RE6o/SaTEHzhn85CAG9tPdsf+ItEqkwDFXbkEHBRQuJL9m8on2t9cO5+A J6/Qr4I/JJJt9/NRfEzApLmW1r2/JJKS9k2TLCFgc+bl7denSUQ4nGtY/JSA dqEHUvYzJBLLOsObLCPgnOSmZ3KzJBIePrWsv5IAr/gXCi2UBVS89dowAbzE yQMe/0i08LTn0ee1BGw47bV/hvK/J+5RhfUEPKgZkfGbI9GfmZNP0l9R+R5S yOmn/BNO9EY1EaB+rGeB3jyJxoOPCQS2EFC6fVj+GuWx166qHu8ICI1nCmPK w+IuB+zbCdi783D5d8r9+50DTbsIuB2eoj5DuTfZ6f6WbgJG256fnqfc3evQ svYzAcXv3/lPUO5ceejX8i8EHA9tM2mn3Hb8IFOwn8p/Q/u3u5RbHtka/f5O wDrTcX0Xyo0T1p6DwwTUZxq7EZTrtA/c6BglwGibqH0BVX9NwP7qOh4Bx9w8 JHUpVz63HCz+QYB/VW5SKbX/ZwJ7xbJ+ErBTULyfSbnE1EIr7jcBnCPDv32o /hXE7Ha4PE3Vvy6us4rqd06HaYj3PwJu/vO6NEnlcV/GJN+RjwGN5bwJKcpp d43mtgkwYKyhUFeFyvMWZ4eiihAD9qycpTOpvG+oGpjLijLAMPhPyb8pEkU+ Q2nTdAZYGfkfuT5JotB/2xo4Egzgr97rvYmap6v6W3kfpBhQ5hZo9nacRAFv dPSeyjGgxf7ruTZqPv3o2kfvsxkQ8qy4bvMYic4c2BSVuJIBEv6MwegREp38 otZ7Zi31fHHpu4LUvNv+VA7cuIkBaGm80vo+EqVK9jk76jCgNNNb8FMPib5o xe+M0mWAWWhO+blu6rydn6GNbWdAc/beVM8OEvnMNWU9MGfA6lnRK57U+S1n /RfauZcBe10YCgHU+f4Hmh78Vgzwa5jLPFdH1R+UqnXkIAOyVuoar68mUZyg RyPzOAPsmITnw0Iq77Xy+bvdGCA5kW8o+YhE0qYdcQGeDFAQ4yz1zCZRRuQ2 ++6zDAjqvXK+n7qPCggxMvEyA3i9Ggt6Y0n0RrZAYmkKA4zW26yQ8CQRTe/I X900BhjUrlLdfoI6745SvSczGRAoHWRv50LNW+alB68eMMB5l/vyvXYk4iju 2XK1hAFNw5NH9xhS50Xth+NMMwPAZLVNshR1P1je26H8jgE3pgVLrtOpvM7Y rrVtZ4DlJpEjR0VIJPHk+cSTbgaEsha/HpjjIQXduODTQwxgm+Wv+zXAQ8hQ I5fDJwG7HFq/ez7ioYTZOta3RRLg3YHDsu7z0HDxgYRuAQlgSsOul+k8FKPg f7FJVAKuZq+Q7YnloW/zNRaPlktAQ8T5eN1zPHS13Pyn90YJsOqS2t6hw0ON G05u++MoAbYShwNji7mIOTTzeNxZAup91217nMNFp9MiFTmuEtCV4pdek8lF Mksfi3e7SYBor71zfjQXuY/8/lrhKwE+XrEeDSe5SOxecMilaAlYj3SkuXJc tE8ms1UAS4Du4HzCFr8xNP5omA/VSoDxAqtWT/cxFLF9o7pvvQRsFnqXHuM0 huqO44ShJglYni6scHvXGNJ8+tn21QcJ+Eg+Ce6WGkPL9ssMXJ+QgMWH7Gq5 RaOoOzL+j6iiJATvVd1S+GkEHV4QIs+IlIStQXzjKX+HkY/+pNHWGEm4pja9 tp4zjMKCnNxd4yWBXfe8o/fjMCrh1336NFkStsn55/SXDSMB4XEz+/uSMP4f x0nz/DDKI+z87mFJsBzlH5j+OYR+rVRt1Z6QBB+dIztcvw6iCKPOAHvrZdDu rWAnGTOABsUjWoUkpIATaaw3daoPbR59ZnH/ixRUb5ENsX3+HlWYmL68n74c vIqc3PaiGmQnaLxrwE4aNh+9ur7cOw9PdFX9oinKwNtgjfXPJd7isnU3UzP7 ZeBKom3P8U2f8PlYjpf84xUQy5+Be2X6MdtDYp5dsgJ6lIedpFT78atdKIr9 dAVIznrqGm7vx8v5EvNYVSvgxeZVp/471o+feAJHrnEFZMxOFp0p7sc/TZOc Zb6uABuVu/o7jAewt4ChFYMuC7n806d2uH/Hxy9kbOE/JQvzTa+eREYO4dDF P6qmzsiC0OK4B6dvD+GHkdu3D/rIwg52dJfJoyHMSf+282WALKz+8qOt/c0Q Plm3yup6qCy8XO9rbC4yjN2WZnstzZCFeq7V59bgYeyZ/viuZKssGG7S2dfu zcFRSguVBNqo9xveY9IvcXD+Y8vcX+2yMLxAdTVEcjD5YvJxV7csvLb4VXc2 m4O9hzfh5EFZ0NmK/bW/cvAptfKPcnOyoK7doC5rPoLPvqgVU1SRg3Af2QUb 5UZxj1Kj+YGNcuByosKjWHkU74hqjQrRkIOYBJuk1TqjWMK2R2xosxwEzbrN d1iO4hLelNhDIzm4EnRW6+i1UTwlvVZc2UkOqhL28G3jjmIf72hx1Xg5UHP3 2RuRO4Z7OxItHG7IAc2O9rDryRg20k2Njkqm1vdOYlrtGF4mkC1OpstBdbm0 lNmHMfw0pVa8MI+qz0A6bXARF/9pmBJXb5CD2PNY7J41F5+Xs6dp/ZWDa/ts B6R/cPHEcviyYVYOmhSWCvj95eKTEqsK187LgXJYSUz9Ah62FxmzkONnwlBq cIsqwcPw90L0YjoT/rv8ymOzOg8LdKSIvVdiQrxBt+s6Lx6+9PZS75t1TFA/ e3lRoA8P/2k6kt+gygSX95w6fJGHObXrzMs1mbD55q87tAgeflNYEZkJTMiW 7zo09ICH4yM+iXrbMGGV5IYA1x4eFg3FPScOMsHb1CP04TcevhqUlXfEgQmh dVEB3cM87OPvZmbtwoTGrmYxkSketjs+E67nzYRPCdEX00RJzN6xQmRpKPX5 roHScB0SJ6P5boFwJkRO3i2r2EZiQrc/hy+KCe78X05365N4kXquyc94JhS1 +U/3m5F4kKUb9imdCSFKRvQ1TiR+NGMnlPOUCdMbmiXcgkjs+f5nYn85E24c MdDvuUZi1dwoBblqJrCybH/oRJC40K5WN6aOCfuPyzaWJJC4qGytp887JvQV fSGe3CXxmdgX0wXtTLhZ0ccX9JDEmicOXeN0MeHtX8ODunkkLl0em2HfywS1 K9mmnsUkfub7p01/lAmH97h099SQ+LxFnGMAjwkGc50ji+tIvGXN+rHSH0zo 5rZaLX9J4opOR/61f6jndTprLGgmcUD+31jnGSZcC1p9p7OVxFtD4pmpc0xo 78ZHktpIXL3ppbY4Pwv4K5w+dHeR+NLSw3W7BFmQdH7m2qFuEsP36T1XRFhw dM+NoKYeEj9PUD05RWeBckGozYmvJK6bTEz9xGQBn+D5PXkcEgc3bVgrqcCC qxqtWtdHSWyU1VhqvpoF+mdnD+3lkvil5b+W5+tYIN2w82TWOIlDlZMOzqiy YLPNtt0qEyTetVBtWFOdBQKLytzvTJL49WOXBQ91WGDGCDlk/ovEYdfnIr/q smD3uIxK8G8Smx6+KbMCsUC1s3LTgz8kFt2s/mC/PlWvfoFPyV8Sv6G90Ygy ZMG8hgGZN03iyGHXmpe7WCC0vistZobE5jXzZgvMWLBAteuq4yyJxW4mf9xi wQL1msoM6X8kbvXSOHrWkgViY2IT1ZRjdjZPPLJigZ+es5/FHIn3sI5dGrJh Af2VjUYTZfpvPlF5exZ4yd1RUJ8ncVvLrZt2jizYZz1jeJVy3H3N1QnOLGgn Ntx+TnlfYMvjZlcWhJySVBqhLHHguN6SEyyIkE4Y/Ee5XWVhE7izoGhT2odZ yon8qdb+XixwP6c5N0j5wOdNA8WnWdAn6mpdSXlZaas39xwL3paYDgRQ7oo4 8U/xPJVnDv2eEuWbLovCnAJYsLCQm4ypem223l526xIL1ERWvdhOWVpCO+v9 FRa4hQjIF1D77R59u2FpCAs4Xj+Ll1BmnIop1L7OAo/+NTIWVL/MflmoOUew 4LFjiM8Vqp/BF8SLIqJZcHd5TGMm1e9qvlb1p3GUW98xHlF5/A6OKv6ayII1 7wes7lJ5bRQx1xRNZoHtnGfMNSrPLMnmTYfTWXBrqvoHfYrEPbcinoTfYUGT hrhMGTUPy9hm2k/usWAyYHSb2cT/56dJRySPBdrCQxe0SGo+C8LKNhWwwJwx lRRJzdu0pskWpyIWyBa6F7+l5tEdNeqWPmNBtzAfV2aYxPfqQiv7KlgAzZ5L FQZJ3Gu8a5swZkGHMldNcoDEe/e/1HOsZ4HlxV0RuI+av48h+Porqt9pPXU+ n6n5dzCCkiYWaBbzBGQ+kVjrRP12oTYW1N27+mhVJ4m9eFdrNTpYkFK1UjLi PYkfntlh4PCBBZc3+0b0vSWxTOCLHcW9VB5optCkicTzcc93HhplQVDpqUXq mMQ6yy+/usZjwe3sAzLTFSQ+fRuMi36wwGdjiUX+MxIPPMAmS/5Q+/u+hvnp MYldenvv2yxkQ7bt+xCjLBLzZeoNcRex4Yj0khavdBLfPpK2JoifDbaFCYbB KSTuHD708JEgG14Qt1rPxpPYeLIne6E4G7pfiyYdvULdh6VbR5JobCjz8334 4yKJr/ilKqsQbNgVrj1//DyJK/8dzLWWZEPrc3aorDd1Hwp+ystbQX2/yFq7 JHvqvpX7WHBAiQ1cf9HKXjUSP81Z8+ztWjbQYidHY9eT2F7Hp8ZkHRscFbfI aa4h8f19jHd6qmxIbL4TbShL3W9huycUNdnQspoheJufxId/P9f8jdhQ+1d/ iXwH9XsUTNt2ajsbRsWO1dS38HAO4Wg4qs8GNk803/YVD/9UmbXqM6T6sWNY 06KCh0NdtHxfmrLh5etVVqcyeLjwXU5ZkjUbKry6WYnHeNjK8e9zui0bJEM2 flR14uHpsZ2vw+3YsEPJctEzGx7eIfi9+9IhNqj17iy/aczDH/RYs8eOsEFv +6o1Cco8PJ8br6fjRe2vxrLCh8PF5iEBLz6EsMHtSUyS8EEullqomHM6lA0F ZU4pLXu4+MvF1hjRMDbc2CjWccmIi0+fU3CASDZ8LvRfnKPGxYkur/48iGfD rEi4OHMJF/foS6j6ZrDBZIfZ57D8MXxyPvemZDkbLmKbmWxyFGtcsLpUUMEG +RsWngr9o3j215yrcRUbHj0JWnC9cxRH8fZqXKxhg0Dg7EN21Sh+/Pl380AD G2KXyH71vz6K/1QYLCp5zwZOdYH+N+Yovub3ycOSy4Y284UXy7aOYBt8RvYd jw0n7GY+820YwcoCok0W42y4IHkwbbP8CH4Tv1Vp9yQbvuWx7S/xj2B6we1v O/9S/bllcs++mYNTvjtab+OXhytr3u13tePgAssBUJKTB34lmQXDJ4Zx13ou Y85MHiKfptTEOQ1iF5ObW8+Zy8PVidHvjRaDeOKYgeuYBWXVZNqU3iAWzUp+ 0m0pD74PtW6tkRvE+tJGtk9t5OFBltTFuQ/fcT5/epq3izwYvxUMv2D+HYf0 7lnbf0EeDu3+z+7nxgGsFVOi9ypHHvgu1o/zdX7FsQHafGE0BdhZnJwT6P8B L17nUXXRSwGWtNgYH7B4jc84O9BPdCrAlszsCZcUP3xrYMbhHOVY+sbzf3T8 cO3R5LzL/1//ID8b3umLCbf2nbcovyy6/LuI7ouLzpgENlFOnW2s5ws9h8ev ao2qdClA0qR2c8rZ09j9gVj9BGXZ2Nru9BTqz8zaPGKeskPpEt2GzmO4MtfY SeSDAgxVNCSN0Y9hkcKrMyspFw4o7twc6opznk2rWVE+JpX2X9tZZzzcOJj2 lLJ/TiUpmGqDaWZXx15Qxt9e21kR1linRX7LW8pLlnjXZoZa4Wtt9h3DlOP/ HQvdcs4SK35qE5H5qADttK6RrtRd2PyQt60iZcndckne1w2xT9/SB+qUd1zX BCEffdzQv0vflHKzsoXkuTQdzHMdjLam/NThg+19X3W8bDjo8xHKM2d3axdk KmG9k/LrvCmHsCM8Vz5cjl3Hqv0CKPOrRZZ0vL1e/T9jaSY9 "]]}, {}}, {{}, {}, {}}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0}, PlotRange-> NCache[{{0, 3 Pi}, {-0.9999989989744775, 0.9999997369146433}}, {{ 0, 9.42477796076938}, {-0.9999989989744775, 0.9999997369146433}}], PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}], {576., -116.80842387373012`}, ImageScaled[{0.5, 0.5}], {360., 222.49223594996212`}]}, {}}, ContentSelectable->True, PlotRangePadding->{6, 5}]], "Output", CellChangeTimes->{{3.409708927627268*^9, 3.4097089528452673`*^9}, 3.409710113594268*^9, 3.4097104738032675`*^9, 3.4113610765218787`*^9, 3.4113613151998787`*^9, 3.412146726000045*^9, 3.412165676889*^9, 3.413864817575271*^9, 3.413949723124*^9}, CellLabel->"Out[16]="] }, Open ]], Cell[CellGroupData[{ Cell["\<\ \[ScriptCapitalL]=LaplaceTransform;\[ScriptCapitalL][{UnitStep[t-a]*Sin[t-a],\ UnitStep[t-a]*(t-a), UnitStep[t-a]*(t-a)^2},t,s,Assumptions->a\[GreaterEqual]0&&-a<0]//Simplify //displayStart\ \>", "Input", CellChangeTimes->{3.410650035747924*^9, 3.411361949018879*^9, 3.4121467560840445`*^9, 3.4139677470846*^9}, CellLabel->"In[17]:="], Cell[BoxData[ RowBox[{"{", RowBox[{ FractionBox[ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "a"}], " ", "s"}]], RowBox[{"1", "+", SuperscriptBox["s", "2"]}]], ",", FractionBox[ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "a"}], " ", "s"}]], SuperscriptBox["s", "2"]], ",", FractionBox[ RowBox[{"2", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "a"}], " ", "s"}]]}], SuperscriptBox["s", "3"]]}], "}"}]], "Output", CellFrame->{{0, 0}, {2, 2}}, CellMargins->{{65, 65}, {2, 2}}, CellChangeTimes->{3.413949735082*^9}, FontWeight->"Bold", Background->RGBColor[0.8, 1., 0.8]] }, Open ]], Cell["", "Input"], Cell[BoxData["\:30e9\:30d7\:30e9\:30b9\:9006\:5909\:63db"], "Input", CellDingbat->"\[FilledSquare]", Background->RGBColor[ 0.4666666666666667, 0.8352941176470589, 0.8235294117647058]], Cell[BoxData[ RowBox[{ RowBox[{ SuperscriptBox["\[ScriptCapitalL]", "-"], "=", "InverseLaplaceTransform"}], ";"}]], "Input", CellLabel->"In[18]:="], Cell[BoxData[{ RowBox[{ RowBox[{ SuperscriptBox["\[ScriptCapitalL]", RowBox[{ RowBox[{"-", "1"}], " "}]], "\:306f\:ff0c\:30d9\:30ad\:4e57\:306e\:610f\:5473\:306b\:306a\:308a\:307e\ \:3059\:304b\:3089\:ff0cInverseLaplaceTransform", " ", "\:3092", " ", SuperscriptBox["\[ScriptCapitalL]", "-"]}], " "}], "\[IndentingNewLine]", "\:3068\:8a18\:53f7\:5316\:3057\:3066\:307f\ \:307e\:3057\:305f\:ff0e"}], "Input", CellChangeTimes->{{3.4108572413758345`*^9, 3.410857325555835*^9}, 3.410857855712835*^9, 3.4138655673822713`*^9}], Cell["", "PageBreak", PageBreakBelow->True], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ SuperscriptBox["\[ScriptCapitalL]", "-"], "[", RowBox[{ RowBox[{"{", RowBox[{ FractionBox["1", "s"], ",", FractionBox["1", SuperscriptBox["s", "2"]], ",", FractionBox[ RowBox[{"Gamma", "[", RowBox[{"1", "+", "n"}], "]"}], SuperscriptBox["s", RowBox[{"n", "+", "1"}]]], ",", FractionBox["1", RowBox[{"s", "-", "a"}]], ",", FractionBox["1", RowBox[{"s", "+", "a"}]], ",", FractionBox["a", RowBox[{ SuperscriptBox["s", "2"], "-", SuperscriptBox["a", "2"]}]], ",", FractionBox["s", RowBox[{ SuperscriptBox["s", "2"], "+", SuperscriptBox["a", "2"]}]], ",", FractionBox[ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "b"}], " ", "s"}]], RowBox[{"s", "-", "a"}]], ",", FractionBox[ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "b"}], " ", "s"}]], RowBox[{"s", "+", "a"}]]}], "}"}], ",", "s", ",", "t", ",", RowBox[{"Assumptions", "\[Rule]", RowBox[{ RowBox[{"b", "\[GreaterEqual]", "0"}], "&&", RowBox[{"t", "\[GreaterEqual]", "b"}]}]}]}], "]"}]], "Input", CellLabel->"In[19]:="], Cell[BoxData[ RowBox[{"{", RowBox[{"1", ",", "t", ",", SuperscriptBox["t", "n"], ",", SuperscriptBox["\[ExponentialE]", RowBox[{"a", " ", "t"}]], ",", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "a"}], " ", "t"}]], ",", RowBox[{ FractionBox["1", "2"], " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "a"}], " ", "t"}]], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "1"}], "+", SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "a", " ", "t"}]]}], ")"}]}], ",", RowBox[{"Cos", "[", RowBox[{"a", " ", "t"}], "]"}], ",", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"a", " ", RowBox[{"(", RowBox[{ RowBox[{"-", "b"}], "+", "t"}], ")"}]}]], " ", RowBox[{"HeavisideTheta", "[", RowBox[{ RowBox[{"-", "b"}], "+", "t"}], "]"}]}], ",", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "a"}], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "b"}], "+", "t"}], ")"}]}]], " ", RowBox[{"HeavisideTheta", "[", RowBox[{ RowBox[{"-", "b"}], "+", "t"}], "]"}]}]}], "}"}]], "Output", CellChangeTimes->{3.4097105102752676`*^9, 3.411361097664879*^9, 3.411361335322879*^9, 3.412165711263*^9, 3.413864832344271*^9, 3.413949742335*^9}, CellLabel->"Out[19]="] }, Open ]], Cell[BoxData[""], "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Clear", "[", "t", "]"}], ";", RowBox[{"(*", "\:3000", "\:4f8b\:ff11", "\:3000", "*)"}], " ", RowBox[{"InverseLaplaceTransform", "[", RowBox[{ FractionBox[ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "2"}], "s"}]], RowBox[{"s", RowBox[{"(", RowBox[{"1", "+", RowBox[{"2", "s"}]}], ")"}]}]], ",", "s", ",", "t"}], "]"}]}]], "Input", CellChangeTimes->{3.4097105541572676`*^9}, CellLabel->"In[20]:="], Cell[BoxData[ RowBox[{ RowBox[{"(", RowBox[{"1", "-", SuperscriptBox["\[ExponentialE]", FractionBox[ RowBox[{"2", "-", "t"}], "2"]]}], ")"}], " ", RowBox[{"HeavisideTheta", "[", RowBox[{ RowBox[{"-", "2"}], "+", "t"}], "]"}]}]], "Input", CellChangeTimes->{3.4138648456292715`*^9, 3.4139497477679996`*^9}, CellLabel->"Out[20]="] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{"%", ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "15"}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", "Black"}]}], "]"}]], "Input", CellChangeTimes->{{3.4097106131632676`*^9, 3.409710624382268*^9}, { 3.4097106692022676`*^9, 3.4097106788332677`*^9}}, CellLabel->"In[21]:="], Cell[BoxData[ GraphicsBox[{{}, {}, {GrayLevel[0], LineBox[CompressedData[" 1:eJxFzwkw1HscAPBdKkfjzOaWaymso7LI8fuJZBneUvTocCsRiVS858iG0EEb MpKzlCKS+0VyJB6TvFaSY9aV2L9tIznfb2feW9+Z73znM9/vfOf7VfEOcfbj w+FwASi5dXG4s1U9hW6B+y/6c2WuWA5cAP8bEnq9ZQau8hxBfcLgH0jnWYIl nf6LUcDzSKNjyA9GJc826jNf2IwWnn8xjO7OM/p4fmP1qOh9AZNnhZG6SW+d OZ6lgjyeCFhxeE43sGlwdFni+VOWfjNbfI3n7A+lYhHETbuLanosm2x6KF5x nc9n06PBwmZSLzc9bT1eQ3Zb53lpPrM8Kn+D5zrtHRsbLzcd6X/TkfZu06uf aXOpnE2f2h6bK7gFB3FkVVqoMhU0lZi324kihxmJdScFAWWblblUGRyMHd/9 ViXyMohl1hJ6VXEQBt2eeXw0DozGRphLkFBfV1UPF5AALJX2+x0xwsHmRee3 hMgUwOdWXsWwR/tW+B9adaYDWk/xkdFw1B8x7zrVkwPGA32iVGOQP6ZZFdk/ AIeEVAp9r+OgZyi5v4SZB7ZZ53yfvo+D5+s0NX6cKARJdelp7HYcpC7urRK3 KQEpRTG9fLJ4eH5gdHvAr+fAbn+AJEENDwW3dZSU3aoAgq3OLpokPMyjnu6+ S6wENCbxs70lHi7Rre9SqC/AH6rdk/QAPLR1pRY65L8EwXky6xr1eKh878Tk skE9cMqp0LE/zgfDGX67XiW+BtJ05vU79/mhmYWaQA6zEyQepVj0LW6Fvt36 jfozH0CYSb5H51VBaNMc8m7cfxBYY8uRwUxhaOZyzvB75giIM3PykjMWgfgy ZSmb9TFwoOxeVXSTGEzcOjITLTwOApfYsW9FJCCdv9CAUjYBlrTFh0kukrB7 Ts82bf8UMC19mpeRsQMqFzckpkdNg3lJO0/XFinYOp5Zmxn3FTBTPV0vCOyE w0F9jjkXZ4AtdokyQZaG/m0eXmzjb+Cbj2BYVYwMVNWtyHVnfQOH1KX5Eltk oWB1/62DCbNA4m+Nm88xOXjRMKuVtTEL5JPKqWSyAjyQjjkoh86BTG0T8R2n FWHXs8A/X3TNgU45S0NOmhJsw2qsjsiwgIlCy229j7ugGGfGusGDBUT5C8K9 ripDzk3jlKksFlCK22XmpqECdYZ3XhPqYQEh4olq5w4VeHKNnJyyzAK65rLl l06qwt+X9yzuU8LAhWHJN3Y4NRjJX97uBzCAcVJdKFlqkCl3g/jTDQOH9dqz KSR1KO+5Jhp2HgOvOKYrP3vUoeaETOLZaxgI1tk7+N6PCLMVxRUMMzBgzvLt dxPSgG0+ydf6ijH0v4yDSIEG/EMgt4JaiYHdscmXW4w0oSINPhxrxICWn0kT cVATmtG1feraMeD36gytKnQ3DJCvvpPdg4GmvH5fNmEPlKoMvzT7DwZ+lGz8 1KvZAxVWib0iQxjwIZYKZTtowXw8YXZxFANsrTvkynktGPHatTZpAgO1RStj C0naML+J+Un/KwbcrdWgqZIOJDguTNnOYkD+XGKdbrMObDHPMtTGMEAQDqpw OEaCg7Ro/0g2BnT1b7TKrZDg8XVTzgMOBtQnnNx0kdW+9urlIctl72RZInuV egdxvXVLnnQAd76aNsH1EKPybA3y8GQ9Ix85OWZA/OgqCcrWYA2FyJM9aidv rJGgqFlU/CPufPw0Ow+5Wnmmies+42cJVcgpX46tcv1XAfn5Z+T3I3oXS5Dp ERR+rXUSDBTo83+MfFAp5HE7ctfUMKUU2fjDPotB5DEn0wSudZOW+uaQo+kZ LVzLfo9bldogQd9CiulT5Pk2+m8+yFHT+TrPuPdFuo1HIJ+WXjjD9ZCe0pVk 5G27Dhdz3XHvUUEF8pXaKcUy5EbHIKM25GN2ZHeuK/kNugeQN6riM7guqV3w nEW+vNTbx3XuufqFDeQOKXmxcuR/Aay63s8= "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0}, ImageMargins->0., ImageSize->{253., 76.}, PlotRange->{{0, 15}, {0., 0.9984965605769042}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}]], "Output", CellChangeTimes->{3.409710626851268*^9, 3.4097106803212676`*^9, 3.4113611095018787`*^9, 3.4113613467128787`*^9, 3.4121657490550003`*^9, 3.4138648562162714`*^9, 3.41394975445*^9}, CellLabel->"Out[21]="] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", "\:3000", "\:4f8b\:ff12", "\:3000", "*)"}], " ", RowBox[{"InverseLaplaceTransform", "[", RowBox[{ RowBox[{ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"n", "=", "0"}], "10"], FractionBox[ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "2"}], "n", " ", "s"}]], "s"]}], "//", "Evaluate"}], ",", "s", ",", "t"}], "]"}]}]], "Input", CellChangeTimes->{{3.410857553546835*^9, 3.410857560020835*^9}}, CellLabel->"In[22]:="], Cell[BoxData[ RowBox[{"1", "+", RowBox[{"HeavisideTheta", "[", RowBox[{ RowBox[{"-", "20"}], "+", "t"}], "]"}], "+", RowBox[{"HeavisideTheta", "[", RowBox[{ RowBox[{"-", "18"}], "+", "t"}], "]"}], "+", RowBox[{"HeavisideTheta", "[", RowBox[{ RowBox[{"-", "16"}], "+", "t"}], "]"}], "+", RowBox[{"HeavisideTheta", "[", RowBox[{ RowBox[{"-", "14"}], "+", "t"}], "]"}], "+", RowBox[{"HeavisideTheta", "[", RowBox[{ RowBox[{"-", "12"}], "+", "t"}], "]"}], "+", RowBox[{"HeavisideTheta", "[", RowBox[{ RowBox[{"-", "10"}], "+", "t"}], "]"}], "+", RowBox[{"HeavisideTheta", "[", RowBox[{ RowBox[{"-", "8"}], "+", "t"}], "]"}], "+", RowBox[{"HeavisideTheta", "[", RowBox[{ RowBox[{"-", "6"}], "+", "t"}], "]"}], "+", RowBox[{"HeavisideTheta", "[", RowBox[{ RowBox[{"-", "4"}], "+", "t"}], "]"}], "+", RowBox[{"HeavisideTheta", "[", RowBox[{ RowBox[{"-", "2"}], "+", "t"}], "]"}]}]], "Output", CellChangeTimes->{ 3.4097107244342675`*^9, {3.410857897060835*^9, 3.4108579146878347`*^9}, 3.411361115945879*^9, 3.411361350818879*^9, 3.4121657674969997`*^9, 3.4138648709352713`*^9, 3.413949771573*^9}, CellLabel->"Out[22]="] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"%", "//", "TraditionalForm", " ", RowBox[{"(*", "\:3000", RowBox[{ "\:4f8b\:ff12\:306e", " ", "TraditionalForm", " ", "\:306e\:51fa\:529b\:4f8b"}], "*)"}]}]], "Input", CellChangeTimes->{{3.410857876639835*^9, 3.410857992598835*^9}}, CellLabel->"In[23]:="], Cell[BoxData[ FormBox[ RowBox[{ RowBox[{ InterpretationBox["\[Theta]", HeavisideTheta, Editable->False, Selectable->False], "(", RowBox[{"t", "-", "20"}], ")"}], "+", RowBox[{ InterpretationBox["\[Theta]", HeavisideTheta, Editable->False, Selectable->False], "(", RowBox[{"t", "-", "18"}], ")"}], "+", RowBox[{ InterpretationBox["\[Theta]", HeavisideTheta, Editable->False, Selectable->False], "(", RowBox[{"t", "-", "16"}], ")"}], "+", RowBox[{ InterpretationBox["\[Theta]", HeavisideTheta, Editable->False, Selectable->False], "(", RowBox[{"t", "-", "14"}], ")"}], "+", RowBox[{ InterpretationBox["\[Theta]", HeavisideTheta, Editable->False, Selectable->False], "(", RowBox[{"t", "-", "12"}], ")"}], "+", RowBox[{ InterpretationBox["\[Theta]", HeavisideTheta, Editable->False, Selectable->False], "(", RowBox[{"t", "-", "10"}], ")"}], "+", RowBox[{ InterpretationBox["\[Theta]", HeavisideTheta, Editable->False, Selectable->False], "(", RowBox[{"t", "-", "8"}], ")"}], "+", RowBox[{ InterpretationBox["\[Theta]", HeavisideTheta, Editable->False, Selectable->False], "(", RowBox[{"t", "-", "6"}], ")"}], "+", RowBox[{ InterpretationBox["\[Theta]", HeavisideTheta, Editable->False, Selectable->False], "(", RowBox[{"t", "-", "4"}], ")"}], "+", RowBox[{ InterpretationBox["\[Theta]", HeavisideTheta, Editable->False, Selectable->False], "(", RowBox[{"t", "-", "2"}], ")"}], "+", "1"}], TraditionalForm]], "Output", CellChangeTimes->{{3.410857901396835*^9, 3.410857917926835*^9}, 3.410857970007835*^9, 3.4113611234378786`*^9, 3.411361358240879*^9, 3.413864876067271*^9, 3.413949778243*^9}, CellLabel->"Out[23]//TraditionalForm="] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{"%", ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "10"}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", "Black"}]}], "]"}]], "Input", CellChangeTimes->{3.409710736752268*^9}, CellLabel->"In[24]:="], Cell[BoxData[ GraphicsBox[{{}, {}, {GrayLevel[0], LineBox[CompressedData[" 1:eJxFx31QEgYcxnEUZJxgAVJpIoJZKpJbu63yriXOOi2dKxO7szRBBacdTdMy dLNzLnM1s/TKyQWHWekfWr7dab6kqJcRUk3XpbLlibjLslTCfI29ud/vufve cx+e5ERkkj2BQPjm7/75699LyNsSL+wm/LvpwI9GxrynPFoC/7dGp0575fEQ XHuncOS4/zBYFvj0l9fpJrDc7GtqrH0JduTle7/YOQ0uoj/ia+ItYMlI1H2i fg6c1psvOeG9CGYo+4aDm5fAdd/SDrnsWwFHM3MbUjw/gBcbZpzbl9B6kt8e abINrBIlZqz9Dd2cm1peOYYeqE7vDJhGvxk4M2FYQZNyheR6B4LwPxOEnOoQ QYgzeudARKSRiz7uHasi70JrslMnPzmMvuL0mYrpaQfOUy8ffPcaTRgYFbYp iOAtGdKsKL4DeNx6LZraTgbvN6d8dyWNAo4YL/bjcBzBk92Ss301VLA/45l7 8DEnMLvKfP+S7xqwY6BVbLSgXyVt7j0lXgvWXxT5MB6jqy63ZvQY0flXeV2n J9GzZVGygzPoeGWBk9882nD9XgPJhuY8mRO8taevmiJcHDx6poKOfjak7RVx 0EWmori2AHTIVMx7TxGa/vxYTkcn+rk20S5GwAA3ne+J41rRUofMUYOBCU5I z26ilTuDP5b5GcLFLPBjpoCaGbAO3FqbpxQQ14Oz7fgH9L+jtfLIcPd9G8CO RkWovBEtbXqbltGP7ipKVCom0PIlzt2VWTQ7eajnrA0dSqT8pLF3WTVdeFK1 /WutA1oVkMQyUdC6wZIhIg3No84k7GWis4Ii3pxzQfu/2xFUsh9tvsUrVeeg 22Tu4YKX6FIfV1KLyBVcXC59IOZuBMeUxhpof6Ln99xcUHe4gU3mL7O0BWxw xRfb3PrF7uCaHzMZsq0ccIEoIYxoRf9RlqfYK/YAf27UVBf0oys3tY77DKNZ qYMeugm0fo24feMUOr9+KibVgo4nNVaXzKF3RSvmWxfQLlXCkPFl9GIOMYxM 4K6aJUzpYZ+7TUMPUbd3hbqim8uTd1z4FF3mq6zpD0PTMlk3Luahczt/Lgtr QX/lJrqp8+KBg+QPjjAK0Wq2xEtvRXt1374accQTXLxVy/+1Ay21kJ4+5G8C S+pmuYWX0H06yg9ty+jgFxt2x31Ad1i2LNhs6L8A7tqbFw== "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 1.}, ImageMargins->0., ImageSize->{270., 87.}, PlotRange->{{0, 10}, {1., 5.}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}]], "Output", CellChangeTimes->{3.4097107381522675`*^9, 3.411361128306879*^9, 3.4113613617258787`*^9, 3.412165788263*^9, 3.4138648790652714`*^9, 3.413949787552*^9}, CellLabel->"Out[24]="] }, Open ]], Cell[BoxData["\:7559\:6570\:3092\:7528\:3044\:305f\:30e9\:30d7\:30e9\:30b9\ \:9006\:5909\:63db"], "Input", CellDingbat->"\[FilledSquare]", Background->RGBColor[ 0.4666666666666667, 0.8352941176470589, 0.8235294117647058]], Cell["(*\:3000\:4f8b\:ff13\:3000*)", "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{" ", RowBox[{ RowBox[{"n", "=", "3"}], ";", RowBox[{"sol", "=", RowBox[{ RowBox[{"Solve", "[", RowBox[{ RowBox[{ SuperscriptBox["s", "n"], "\[Equal]", RowBox[{"-", "1"}]}], ",", "s"}], "]"}], "/.", RowBox[{ RowBox[{"(", RowBox[{"a_", "\[Rule]", "b_"}], ")"}], "\[RuleDelayed]", RowBox[{"(", RowBox[{"a", "\[Rule]", RowBox[{"ComplexExpand", "[", "b", "]"}]}], ")"}]}]}]}]}]}]], "Input",\ CellLabel->"In[25]:="], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"s", "\[Rule]", RowBox[{"-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"s", "\[Rule]", RowBox[{ FractionBox["1", "2"], "+", FractionBox[ RowBox[{"\[ImaginaryI]", " ", SqrtBox["3"]}], "2"]}]}], "}"}], ",", RowBox[{"{", RowBox[{"s", "\[Rule]", RowBox[{ FractionBox["1", "2"], "-", FractionBox[ RowBox[{"\[ImaginaryI]", " ", SqrtBox["3"]}], "2"]}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{3.409710791028268*^9, 3.411361135038879*^9, 3.411361368440879*^9, 3.412165799017*^9, 3.413864884850271*^9, 3.413949796204*^9}, CellLabel->"Out[25]="] }, Open ]], Cell["", "PageBreak", PageBreakBelow->True], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"n", "=."}], ";", RowBox[{ RowBox[{ RowBox[{"Sum", "[", RowBox[{ RowBox[{"Residue", "[", RowBox[{ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"s", " ", "t"}]], FractionBox["1", SuperscriptBox[ RowBox[{"(", RowBox[{ SuperscriptBox["s", "3"], "+", "1"}], ")"}], "2"]]}], ",", RowBox[{"{", RowBox[{"s", ",", RowBox[{"s", "/.", RowBox[{"sol", "[", RowBox[{"[", "k", "]"}], "]"}]}]}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"k", ",", "1", ",", "3"}], "}"}]}], "]"}], "//", "ComplexExpand"}], "//", "Simplify"}]}]], "Input", CellChangeTimes->{ 3.410650048976924*^9, {3.411361150818879*^9, 3.411361155999879*^9}}, CellLabel->"In[26]:="], Cell[BoxData[ RowBox[{ FractionBox["1", "9"], " ", SuperscriptBox["\[ExponentialE]", RowBox[{"-", "t"}]], " ", RowBox[{"(", RowBox[{"2", "+", "t", "-", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"3", " ", "t"}], "/", "2"}]], " ", RowBox[{"(", RowBox[{"2", "+", "t"}], ")"}], " ", RowBox[{"Cos", "[", FractionBox[ RowBox[{ SqrtBox["3"], " ", "t"}], "2"], "]"}]}], "-", RowBox[{ SqrtBox["3"], " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"3", " ", "t"}], "/", "2"}]], " ", RowBox[{"(", RowBox[{ RowBox[{"-", "2"}], "+", "t"}], ")"}], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{ SqrtBox["3"], " ", "t"}], "2"], "]"}]}]}], ")"}]}]], "Output", CellChangeTimes->{ 3.4097108150442677`*^9, {3.4113611384228787`*^9, 3.411361160480879*^9}, 3.4113613718528786`*^9, 3.4138648886592712`*^9, 3.413949799391*^9}, CellLabel->"Out[26]="] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{ SuperscriptBox["s", "n"], "+", "1"}], "=", RowBox[{"0", " ", "\:306e\:89e3\:3092", " ", SubscriptBox["\[Alpha]", "1"]}]}], ",", SubscriptBox["\[Alpha]", "2"], ",", SubscriptBox["\[Alpha]", "3"], ",", "\[CenterEllipsis]", ",", RowBox[{ RowBox[{ SubscriptBox["\[Alpha]", "n"], " ", "\:3068\:304a\:304f\:3068\:ff0c", FractionBox["1", RowBox[{ SuperscriptBox["s", "n"], "+", "1"}]]}], "=", RowBox[{ RowBox[{"-", FractionBox["1", "n"]}], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "1"}], "n"], FractionBox[ SubscriptBox["\[Alpha]", "k"], RowBox[{"s", "-", SubscriptBox["\[Alpha]", "k"]}]]}]}]}]}], "\[IndentingNewLine]", "\:304c\:6210\:308a\:7acb\:3064\:3053\:3068\:3092\:8abf\:3079\:307e\:3059\ \:ff0e\:3053\:306e\:7d50\:679c\:3092\:5229\:7528\:3059\:308b\:3068\:9006\:5909\ \:63db\:3092\:77ed\:6642\:9593\:306b\:6c42\:3081\:3089\:308c\:307e\:3059\:ff0e\ ", "\[IndentingNewLine]", "\:8a3c\:660e"}], "\:ff09"}], "\[IndentingNewLine]", RowBox[{"\:3000", RowBox[{ RowBox[{ SuperscriptBox["s", "n"], "+", "1"}], "=", RowBox[{ "0", "\:3000", "\:306b\:3064\:3044\:3066\:ff0c\:89e3\:3068\:4fc2\:6570\:306e\:95a2\:4fc2\ \:304c\:ff0c"}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ SubscriptBox["\[Alpha]", "1"], "+", SubscriptBox["\[Alpha]", "2"], "+", SubscriptBox["\[Alpha]", "3"], "+", "\[CenterEllipsis]", "+", SubscriptBox["\[Alpha]", "n"]}], "=", "0"}], ",", " ", RowBox[{ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "\[NotEqual]", "j"}], "n"], RowBox[{ SubscriptBox["\[Alpha]", "i"], SubscriptBox["\[Alpha]", "j"]}]}], "=", "0"}], ",", RowBox[{ RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{ RowBox[{"i", "\[NotEqual]", "j"}], ",", RowBox[{"j", "\[NotEqual]", "k"}], ",", RowBox[{"k", "\[NotEqual]", "i"}]}], "n"], RowBox[{ SubscriptBox["\[Alpha]", "i"], SubscriptBox["\[Alpha]", "j"], SubscriptBox["\[Alpha]", "k"]}]}], "=", "0"}]}], "\[IndentingNewLine]", RowBox[{" ", RowBox[{ ",", " ", "\[CenterEllipsis]", " ", ",", " ", RowBox[{ RowBox[{ SubscriptBox["\[Alpha]", "1"], SubscriptBox["\[Alpha]", "2"], SubscriptBox["\[Alpha]", "3"], SubscriptBox["\[CenterEllipsis]\[Alpha]", "n"]}], "=", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], "n"]}]}]}], "\[IndentingNewLine]", "\:3067\:3042\:308b\:3053\:3068\:3092\ \:7528\:3044\:308b\:3068\:ff0c", "\[IndentingNewLine]", RowBox[{ RowBox[{ SubscriptBox["\[Alpha]", "1"], RowBox[{"(", RowBox[{"s", "-", SubscriptBox["\[Alpha]", "2"]}], ")"}], RowBox[{"(", RowBox[{"s", "-", SubscriptBox["\[Alpha]", "3"]}], ")"}], "\[CenterEllipsis]", RowBox[{"(", RowBox[{"s", "-", SubscriptBox["\[Alpha]", "n"]}], ")"}]}], "+", RowBox[{ SubscriptBox["\[Alpha]", "2"], RowBox[{"(", RowBox[{"s", "-", SubscriptBox["\[Alpha]", "1"]}], ")"}], RowBox[{"(", RowBox[{"s", "-", SubscriptBox["\[Alpha]", "3"]}], ")"}], "\[CenterEllipsis]", RowBox[{"(", RowBox[{"s", "-", SubscriptBox["\[Alpha]", "n"]}], ")"}]}], "+", "\[CenterEllipsis]", "+", RowBox[{ SubscriptBox["\[Alpha]", "k"], RowBox[{"(", RowBox[{"s", "-", SubscriptBox["\[Alpha]", "1"]}], ")"}], RowBox[{"(", RowBox[{"s", "-", SubscriptBox["\[Alpha]", "2"]}], ")"}], "\[CenterEllipsis]", RowBox[{"(", RowBox[{"s", "-", SubscriptBox["\[Alpha]", RowBox[{"k", "-", "1"}]]}], ")"}], RowBox[{"(", RowBox[{"s", "-", SubscriptBox["\[Alpha]", RowBox[{"k", "+", "1"}]]}], ")"}], "\[CenterEllipsis]", RowBox[{"(", RowBox[{"s", "-", SubscriptBox["\[Alpha]", "n"]}], ")"}]}], "+", "\[IndentingNewLine]", RowBox[{ SubscriptBox["\[Alpha]", "n"], RowBox[{"(", RowBox[{"s", "-", SubscriptBox["\[Alpha]", "1"]}], ")"}], RowBox[{"(", RowBox[{"s", "-", SubscriptBox["\[Alpha]", "2"]}], ")"}], "\[CenterEllipsis]", RowBox[{"(", RowBox[{"s", "-", SubscriptBox["\[Alpha]", RowBox[{"n", "-", "1"}]]}], ")"}]}]}], "\n", RowBox[{"=", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ SubscriptBox["\[Alpha]", "1"], "+", SubscriptBox["\[Alpha]", "2"], "+", SubscriptBox["\[Alpha]", "3"], "+", "\[CenterEllipsis]", "+", SubscriptBox["\[Alpha]", "n"]}], ")"}], SuperscriptBox["s", RowBox[{"n", "-", "1"}]]}], "+", " ", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"i", "\[NotEqual]", "j"}], "n"], RowBox[{ SubscriptBox["\[Alpha]", "i"], SubscriptBox["\[Alpha]", "j"], SuperscriptBox["s", RowBox[{"n", "-", "2"}]]}]}], "+", "\[CenterEllipsis]", "+", RowBox[{"n", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"n", "-", "1"}]], SubscriptBox["\[Alpha]", "1"], SubscriptBox["\[Alpha]", "2"], SubscriptBox["\[Alpha]", "3"], SubscriptBox["\[CenterEllipsis]\[Alpha]", "n"]}]}], "=", RowBox[{ RowBox[{"-", "n"}], "\:3000", "\:ff0e"}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"\:306a\:304a\:ff0c", RowBox[{"(", RowBox[{"s", "-", SubscriptBox["\[Alpha]", "2"]}], ")"}], RowBox[{"(", RowBox[{"s", "-", SubscriptBox["\[Alpha]", "3"]}], ")"}], "\[CenterEllipsis]", RowBox[{"(", RowBox[{"s", "-", SubscriptBox["\[Alpha]", "n"]}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"s", "-", SubscriptBox["\[Alpha]", "1"]}], ")"}], RowBox[{"(", RowBox[{"s", "-", SubscriptBox["\[Alpha]", "3"]}], ")"}], "\[CenterEllipsis]", RowBox[{"(", RowBox[{"s", "-", SubscriptBox["\[Alpha]", "n"]}], ")"}]}], "+", "\[CenterEllipsis]", "+", RowBox[{ RowBox[{"(", RowBox[{"s", "-", SubscriptBox["\[Alpha]", "1"]}], ")"}], RowBox[{"(", RowBox[{"s", "-", SubscriptBox["\[Alpha]", "2"]}], ")"}], "\[CenterEllipsis]", RowBox[{"(", RowBox[{"s", "-", SubscriptBox["\[Alpha]", RowBox[{"k", "-", "1"}]]}], ")"}], RowBox[{"(", RowBox[{"s", "-", SubscriptBox["\[Alpha]", RowBox[{"k", "+", "1"}]]}], ")"}], "\[CenterEllipsis]", RowBox[{"(", RowBox[{"s", "-", SubscriptBox["\[Alpha]", "n"]}], ")"}]}], "+", "\[IndentingNewLine]", RowBox[{ RowBox[{"(", RowBox[{"s", "-", SubscriptBox["\[Alpha]", "1"]}], ")"}], RowBox[{"(", RowBox[{"s", "-", SubscriptBox["\[Alpha]", "2"]}], ")"}], "\[CenterEllipsis]", RowBox[{"(", RowBox[{"s", "-", SubscriptBox["\[Alpha]", RowBox[{"n", "-", "1"}]]}], ")"}]}]}], "\[IndentingNewLine]", RowBox[{"=", RowBox[{ RowBox[{ SuperscriptBox["ns", RowBox[{"n", "-", "1"}]], "+", "\[CenterEllipsis]", "+", RowBox[{ UnderoverscriptBox["\[Sum]", "k", RowBox[{"n", "-", "2"}]], RowBox[{ SubscriptBox["\[Alpha]", "1"], SubscriptBox["\[Alpha]", "2"], SubscriptBox["\[CenterEllipsis]\[Alpha]", "k"], SubscriptBox["\[Alpha]", RowBox[{"k", "+", "2"}]], SubscriptBox["\[CenterEllipsis]\[Alpha]", "n"]}]}]}], "=", RowBox[{ SuperscriptBox["ns", RowBox[{"n", "-", "1"}]], "\:3000", "\:3068\:306a\:308a\:307e\:3059\:ff0e"}]}]}]}], "Input", CellDingbat->"\[FilledSquare]", Background->RGBColor[ 0.4666666666666667, 0.8352941176470589, 0.8235294117647058]], Cell["\<\ \:7b49\:5f0f\:306e\:78ba\:8a8d\ \>", "Input"], Cell[BoxData[ RowBox[{ RowBox[{"nb", "[", "n_Integer", "]"}], ":=", RowBox[{"(", RowBox[{ RowBox[{"aa", "=", RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{ SuperscriptBox["x", "n"], "+", "1"}], "\[Equal]", "0"}], ",", "x"}], "]"}]}], ";", RowBox[{"\[Alpha]", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"aa", "[", RowBox[{"[", RowBox[{"k", ",", "1", ",", "2"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"k", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", FractionBox["1", "n"]}], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "1"}], "n"], FractionBox[ RowBox[{"\[Alpha]", "[", RowBox[{"[", "k", "]"}], "]"}], RowBox[{"s", "-", RowBox[{"\[Alpha]", "[", RowBox[{"[", "k", "]"}], "]"}]}]]}]}], "//", "ExpToTrig"}], "//", "Simplify"}]}], ")"}]}]], "Input", CellLabel->"In[27]:="], Cell[CellGroupData[{ Cell["Table[nb[k],{k,1,5}]", "Input", CellLabel->"In[28]:="], Cell[BoxData[ RowBox[{"{", RowBox[{ FractionBox["1", RowBox[{"1", "+", "s"}]], ",", FractionBox["1", RowBox[{"1", "+", SuperscriptBox["s", "2"]}]], ",", FractionBox["1", RowBox[{"1", "+", SuperscriptBox["s", "3"]}]], ",", FractionBox["1", RowBox[{"1", "+", SuperscriptBox["s", "4"]}]], ",", FractionBox["1", RowBox[{"1", "+", SuperscriptBox["s", "5"]}]]}], "}"}]], "Output", CellChangeTimes->{3.4097108416802673`*^9, 3.413864899347271*^9, 3.413949810148*^9}, CellLabel->"Out[28]="] }, Open ]], Cell["", "PageBreak", PageBreakBelow->True], Cell["(*\:3000\:4f8b\:ff14\:3000*)", "Input"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"n", "=", "3"}], ";", RowBox[{"aa", "=", RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{ SuperscriptBox["x", "n"], "+", "1"}], "\[Equal]", "0"}], ",", "x"}], "]"}]}], ";", RowBox[{"\[Alpha]", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"aa", "[", RowBox[{"[", RowBox[{"k", ",", "1", ",", "2"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"k", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"bb", "=", RowBox[{ RowBox[{"-", FractionBox["1", "n"]}], RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "1"}], "n"], FractionBox[ RowBox[{"\[Alpha]", "[", RowBox[{"[", "k", "]"}], "]"}], RowBox[{"s", "-", RowBox[{"\[Alpha]", "[", RowBox[{"[", "k", "]"}], "]"}]}]]}]}]}]}], "Input", CellLabel->"In[29]:="], Cell[BoxData[ RowBox[{ FractionBox["1", "3"], " ", RowBox[{"(", RowBox[{ FractionBox["1", RowBox[{"1", "+", "s"}]], "-", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"1", "/", "3"}]], RowBox[{ RowBox[{"-", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"1", "/", "3"}]]}], "+", "s"}]], "+", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"2", "/", "3"}]], RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"2", "/", "3"}]], "+", "s"}]]}], ")"}]}]], "Output", CellChangeTimes->{3.4097108535062675`*^9, 3.4113613905438786`*^9, 3.413864902137271*^9, 3.413949821906*^9}, CellLabel->"Out[30]="] }, Open ]], Cell[CellGroupData[{ Cell["InverseLaplaceTransform[bb,s,x]// ComplexExpand // Simplify", "Input", CellChangeTimes->{{3.4097108795152674`*^9, 3.409710913549268*^9}, { 3.409710964594268*^9, 3.4097109657602673`*^9}, {3.4097110320272675`*^9, 3.4097110473522673`*^9}, 3.4097110963332677`*^9}, CellLabel->"In[31]:="], Cell[BoxData[ RowBox[{ FractionBox["1", "3"], " ", RowBox[{"(", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"-", "x"}]], "-", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"x", "/", "2"}]], " ", RowBox[{"Cos", "[", FractionBox[ RowBox[{ SqrtBox["3"], " ", "x"}], "2"], "]"}]}], "+", RowBox[{ SqrtBox["3"], " ", SuperscriptBox["\[ExponentialE]", RowBox[{"x", "/", "2"}]], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{ SqrtBox["3"], " ", "x"}], "2"], "]"}]}]}], ")"}]}]], "Output", CellChangeTimes->{ 3.4097108577682676`*^9, {3.4097108946292677`*^9, 3.4097109199052677`*^9}, 3.4097109669652677`*^9, {3.4097110364532676`*^9, 3.4097110494872675`*^9}, 3.4097110981182675`*^9, 3.411361397117879*^9, 3.413864907076271*^9, 3.413949828418*^9}, CellLabel->"Out[31]="] }, Open ]], Cell["", "Input"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{ SuperscriptBox["s", "n"], "+", "1"}], "=", RowBox[{"0", " ", "\:306e\:89e3\:3092", " ", SubscriptBox["\[Alpha]", "1"]}]}], ",", SubscriptBox["\[Alpha]", "2"], ",", SubscriptBox["\[Alpha]", "3"], ",", "\[CenterEllipsis]", ",", RowBox[{ SubscriptBox["\[Alpha]", "n"], " ", "\:3068\:304a\:304f\:3068\:ff0c"}]}], "\n", RowBox[{ RowBox[{ FractionBox["1", SuperscriptBox[ RowBox[{"(", RowBox[{ SuperscriptBox["s", "n"], "+", "1"}], ")"}], "2"]], "=", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "1"}], "n"], RowBox[{"{", RowBox[{ FractionBox[ SubscriptBox["A", "k"], RowBox[{"s", "-", SubscriptBox["\[Alpha]", "k"]}]], "+", FractionBox[ SubscriptBox["B", "k"], SuperscriptBox[ RowBox[{"(", RowBox[{"s", "-", SubscriptBox["\[Alpha]", "k"]}], ")"}], "2"]]}], "}"}]}]}], ",", " ", RowBox[{ SubscriptBox["A", "k"], "=", RowBox[{ FractionBox[ RowBox[{"1", "-", "n"}], SuperscriptBox["n", "2"]], SubscriptBox["\[Alpha]", "k"]}]}], ",", " ", RowBox[{ SubscriptBox["B", "k"], "=", RowBox[{ FractionBox["1", SuperscriptBox["n", "2"]], SuperscriptBox[ SubscriptBox["\[Alpha]", "k"], "2"]}]}]}], "\n", \ "\:304c\:6210\:308a\:7acb\:3061\:307e\:3059\:ff0e\:3053\:306e\:7d50\:679c\ \:3092\:5229\:7528\:3059\:308b\:3068\:9006\:5909\:63db\:3092\:77ed\:6642\:9593\ \:306b\:6c42\:3081\:3089\:308c\:307e\:3059\:ff0e"}], "Input", CellDingbat->"\[FilledSquare]", Background->RGBColor[ 0.4666666666666667, 0.8352941176470589, 0.8235294117647058]], Cell["(*\:3000\:4f8b\:ff15\:3000*)", "Input"], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"n", "=", "3"}], ";", RowBox[{"aa", "=", RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{ SuperscriptBox["x", "n"], "+", "1"}], "\[Equal]", "0"}], ",", "x"}], "]"}]}], ";", RowBox[{"\[Alpha]", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"aa", "[", RowBox[{"[", RowBox[{"k", ",", "1", ",", "2"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"k", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"ww", "=", RowBox[{ UnderoverscriptBox["\[Sum]", RowBox[{"k", "=", "1"}], "n"], RowBox[{"(", RowBox[{ FractionBox[ RowBox[{ RowBox[{"(", RowBox[{"1", "-", "n"}], ")"}], " ", RowBox[{"\[Alpha]", "[", RowBox[{"[", "k", "]"}], "]"}]}], RowBox[{ SuperscriptBox["n", "2"], RowBox[{"(", RowBox[{"s", "-", RowBox[{"\[Alpha]", "[", RowBox[{"[", "k", "]"}], "]"}]}], ")"}]}]], "+", FractionBox[ SuperscriptBox[ RowBox[{"\[Alpha]", "[", RowBox[{"[", "k", "]"}], "]"}], "2"], RowBox[{ SuperscriptBox["n", "2"], SuperscriptBox[ RowBox[{"(", RowBox[{"s", "-", RowBox[{"\[Alpha]", "[", RowBox[{"[", "k", "]"}], "]"}]}], ")"}], "2"]}]]}], ")"}]}]}]}], "Input", CellLabel->"In[32]:="], Cell[BoxData[ RowBox[{ FractionBox["1", RowBox[{"9", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", "s"}], ")"}], "2"]}]], "+", FractionBox["2", RowBox[{"9", " ", RowBox[{"(", RowBox[{"1", "+", "s"}], ")"}]}]], "+", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"2", "/", "3"}]], RowBox[{"9", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ RowBox[{"-", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"1", "/", "3"}]]}], "+", "s"}], ")"}], "2"]}]], "-", FractionBox[ RowBox[{"2", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"1", "/", "3"}]]}], RowBox[{"9", " ", RowBox[{"(", RowBox[{ RowBox[{"-", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"1", "/", "3"}]]}], "+", "s"}], ")"}]}]], "-", FractionBox[ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"1", "/", "3"}]], RowBox[{"9", " ", SuperscriptBox[ RowBox[{"(", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"2", "/", "3"}]], "+", "s"}], ")"}], "2"]}]], "+", FractionBox[ RowBox[{"2", " ", SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"2", "/", "3"}]]}], RowBox[{"9", " ", RowBox[{"(", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"-", "1"}], ")"}], RowBox[{"2", "/", "3"}]], "+", "s"}], ")"}]}]]}]], "Output", CellChangeTimes->{3.409711147672268*^9, 3.4113614032748785`*^9, 3.413864912167271*^9, 3.4139498316870003`*^9}, CellLabel->"Out[33]="] }, Open ]], Cell[CellGroupData[{ Cell["InverseLaplaceTransform[ww,s,x]// ComplexExpand // Simplify", "Input", CellChangeTimes->{{3.4097111642652674`*^9, 3.4097112037422676`*^9}}, CellLabel->"In[34]:="], Cell[BoxData[ RowBox[{ FractionBox["1", "9"], " ", SuperscriptBox["\[ExponentialE]", RowBox[{"-", "x"}]], " ", RowBox[{"(", RowBox[{"2", "+", "x", "-", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"3", " ", "x"}], "/", "2"}]]}], "+", RowBox[{ SuperscriptBox[ RowBox[{"(", SuperscriptBox["\[ExponentialE]", "x"], ")"}], RowBox[{"3", "/", "2"}]], " ", "x"}]}], ")"}], " ", RowBox[{"Cos", "[", FractionBox[ RowBox[{ SqrtBox["3"], " ", "x"}], "2"], "]"}]}], "+", RowBox[{ SqrtBox["3"], " ", SuperscriptBox["\[ExponentialE]", "x"], " ", RowBox[{"(", RowBox[{ RowBox[{"2", " ", SuperscriptBox["\[ExponentialE]", RowBox[{"x", "/", "2"}]]}], "-", RowBox[{ SqrtBox[ SuperscriptBox["\[ExponentialE]", "x"]], " ", "x"}]}], ")"}], " ", RowBox[{"Sin", "[", FractionBox[ RowBox[{ SqrtBox["3"], " ", "x"}], "2"], "]"}]}]}], ")"}]}]], "Output", CellChangeTimes->{{3.409711155613268*^9, 3.409711167212268*^9}, { 3.409711198047268*^9, 3.4097112050742674`*^9}, 3.411361410415879*^9, 3.413864916984271*^9, 3.413949837462*^9}, CellLabel->"Out[34]="] }, Open ]], Cell["", "Input"], Cell[BoxData[ RowBox[{"\:5fae\:5206\:65b9\:7a0b\:5f0f\:3078\:306e\:5fdc\:7528", "\:3000\:3000"}]], "Input", CellDingbat->"\[FilledSquare]", Background->RGBColor[ 0.4666666666666667, 0.8352941176470589, 0.8235294117647058]], Cell["", "PageBreak", PageBreakBelow->True], Cell["(*\:3000\:4f8b\:ff11\:3000*)", "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"n", "=."}], ";", RowBox[{"ba", "=", RowBox[{ RowBox[{"LaplaceTransform", "[", RowBox[{ RowBox[{ RowBox[{ SubsuperscriptBox["\[Integral]", "0", "x"], RowBox[{ FractionBox[ RowBox[{"y", "[", "t", "]"}], SqrtBox[ RowBox[{"x", "-", "t"}]]], RowBox[{"\[DifferentialD]", "t"}]}]}], "-", SuperscriptBox["x", "n"]}], ",", "x", ",", "s"}], "]"}], "/.", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"LaplaceTransform", "[", RowBox[{ RowBox[{"y", "[", "x", "]"}], ",", "x", ",", "s"}], "]"}], "\[Rule]", "u"}], ",", RowBox[{ RowBox[{"y", "[", "0", "]"}], "\[Rule]", "0"}]}], "}"}]}]}]}]], "Input",\ CellLabel->"In[35]:="], Cell[BoxData[ RowBox[{ FractionBox[ RowBox[{ SqrtBox["\[Pi]"], " ", "u"}], SqrtBox["s"]], "-", RowBox[{ SuperscriptBox["s", RowBox[{ RowBox[{"-", "1"}], "-", "n"}]], " ", RowBox[{"Gamma", "[", RowBox[{"1", "+", "n"}], "]"}]}]}]], "Output", CellChangeTimes->{3.4097112176402674`*^9, 3.4113614149098787`*^9, 3.4138649257972713`*^9, 3.413949844106*^9}, CellLabel->"Out[35]="] }, Open ]], Cell[CellGroupData[{ Cell["Solve[ba==0,u]//Simplify", "Input", CellLabel->"In[36]:="], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{"u", "\[Rule]", FractionBox[ RowBox[{ SuperscriptBox["s", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "-", "n"}]], " ", RowBox[{"Gamma", "[", RowBox[{"1", "+", "n"}], "]"}]}], SqrtBox["\[Pi]"]]}], "}"}], "}"}]], "Output", CellChangeTimes->{3.413864929318271*^9, 3.413949846865*^9}, CellLabel->"Out[36]="] }, Open ]], Cell[CellGroupData[{ Cell["InverseLaplaceTransform[u/.%//Evaluate,s,x]", "Input", CellLabel->"In[37]:="], Cell[BoxData[ RowBox[{"{", FractionBox[ RowBox[{ SuperscriptBox["x", RowBox[{ RowBox[{"-", FractionBox["1", "2"]}], "+", "n"}]], " ", RowBox[{"Gamma", "[", RowBox[{"1", "+", "n"}], "]"}]}], RowBox[{ SqrtBox["\[Pi]"], " ", RowBox[{"Gamma", "[", RowBox[{ FractionBox["1", "2"], "+", "n"}], "]"}]}]], "}"}]], "Output", CellChangeTimes->{3.413864937684271*^9, 3.413949849691*^9}, CellLabel->"Out[37]="] }, Open ]], Cell["", "Input"], Cell["\:6f14\:7fd2\:554f\:984c\:ff13\:2212\:ff12 4. (2) (p.97) \:306e\:89e3\ \:7b54", "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"lt", "=", RowBox[{ RowBox[{"LaplaceTransform", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"y", "'"}], "[", "x", "]"}], "+", RowBox[{ SubsuperscriptBox["\[Integral]", "0", "x"], RowBox[{ RowBox[{"Cos", "[", RowBox[{"x", "-", "t"}], "]"}], " ", RowBox[{"y", "[", "t", "]"}], RowBox[{"\[DifferentialD]", "t"}]}]}], "-", RowBox[{"x", " ", RowBox[{"Sin", "[", "x", "]"}]}]}], ",", "x", ",", "s"}], "]"}], "/.", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"LaplaceTransform", "[", RowBox[{ RowBox[{"y", "[", "x", "]"}], ",", "x", ",", "s"}], "]"}], "\[Rule]", "u"}], ",", RowBox[{ RowBox[{"y", "[", "0", "]"}], "\[Rule]", "0"}]}], "}"}]}]}]], "Input", CellLabel->"In[38]:="], Cell[BoxData[ RowBox[{ RowBox[{"-", FractionBox[ RowBox[{"2", " ", "s"}], SuperscriptBox[ RowBox[{"(", RowBox[{"1", "+", SuperscriptBox["s", "2"]}], ")"}], "2"]]}], "+", RowBox[{"s", " ", "u"}], "+", FractionBox[ RowBox[{"s", " ", "u"}], RowBox[{"1", "+", SuperscriptBox["s", "2"]}]]}]], "Output", CellChangeTimes->{3.4097112326772676`*^9, 3.411361430040879*^9, 3.413864948696271*^9, 3.413949867815*^9}, CellLabel->"Out[38]="] }, Open ]], Cell[CellGroupData[{ Cell["Solve[lt==0,u]//Simplify", "Input", CellLabel->"In[39]:="], Cell[BoxData[ RowBox[{"{", RowBox[{"{", RowBox[{"u", "\[Rule]", FractionBox["2", RowBox[{"2", "+", RowBox[{"3", " ", SuperscriptBox["s", "2"]}], "+", SuperscriptBox["s", "4"]}]]}], "}"}], "}"}]], "Output", CellChangeTimes->{3.4097112369842677`*^9, 3.4113614337678785`*^9, 3.413864951347271*^9, 3.41394987309*^9}, CellLabel->"Out[39]="] }, Open ]], Cell[CellGroupData[{ Cell["InverseLaplaceTransform[u/.%//Evaluate,s,x]//Simplify", "Input", CellLabel->"In[40]:="], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"2", " ", RowBox[{"Sin", "[", "x", "]"}]}], "-", RowBox[{ SqrtBox["2"], " ", RowBox[{"Sin", "[", RowBox[{ SqrtBox["2"], " ", "x"}], "]"}]}]}], "}"}]], "Output", CellChangeTimes->{3.409711239988268*^9, 3.4113614373318787`*^9, 3.413864954118271*^9, 3.413949877932*^9}, CellLabel->"Out[40]="] }, Open ]], Cell["", "Input"], Cell[BoxData[{"\:ff12\:6b21\:304a\:304f\:308c\:8981\:7d20\:306e\:5fdc\:7b54\ \:95a2\:6570\:3068\:4f1d\:9054\:95a2\:6570", "\[IndentingNewLine]", RowBox[{ RowBox[{"(", "1", ")"}], "\:30a4\:30f3\:30d1\:30eb\:30b9\:5fdc\:7b54", "\:3000", RowBox[{"(", "2", ")"}], "\:30a4\:30f3\:30c7\:30a3\:30b7\:30e3\:30eb\:5fdc\:7b54", "\:3000", RowBox[{"(", "3", ")"}], "\:30e9\:30f3\:30d7\:5fdc\:7b54\:306e\:56f3\:793a"}]}], "Input", CellDingbat->"\[FilledSquare]", Background->RGBColor[ 0.4666666666666667, 0.8352941176470589, 0.8235294117647058]], Cell["(*\:3000\:4f8b\:ff11\:3000*)", "Input"], Cell[BoxData[ RowBox[{ RowBox[{ "\:ff12\:6b21\:304a\:304f\:308c\:8981\:7d20\:306e\:4f1d\:9054\:95a2\:6570\ \:304c", "\:3000", "G", RowBox[{"(", "s", ")"}]}], "=", RowBox[{ FractionBox["1", RowBox[{" ", RowBox[{ SuperscriptBox["s", "2"], "+", RowBox[{"3", " ", "s"}], "+", "1"}]}]], " ", "\:3067\:3042\:308b\:5834\:5408"}]}]], "Input"], Cell[BoxData[ RowBox[{ RowBox[{"r1", "=", RowBox[{ SuperscriptBox["\[ScriptCapitalL]", "-"], "[", RowBox[{ FractionBox["1", RowBox[{" ", RowBox[{ SuperscriptBox["s", "2"], "+", RowBox[{"3", " ", "s"}], "+", "1"}]}]], ",", "s", ",", "x"}], "]"}]}], ";", RowBox[{"r2", "=", RowBox[{ SuperscriptBox["\[ScriptCapitalL]", "-"], "[", RowBox[{ FractionBox["1", RowBox[{" ", RowBox[{"s", RowBox[{"(", RowBox[{ SuperscriptBox["s", "2"], "+", RowBox[{"3", " ", "s"}], "+", "1"}], ")"}]}]}]], ",", "s", ",", "x"}], "]"}]}], ";", RowBox[{"r3", "=", RowBox[{ SuperscriptBox["\[ScriptCapitalL]", "-"], "[", RowBox[{ FractionBox["1", RowBox[{" ", RowBox[{ SuperscriptBox["s", "2"], RowBox[{"(", RowBox[{ SuperscriptBox["s", "2"], "+", RowBox[{"3", " ", "s"}], "+", "1"}], ")"}]}]}]], ",", "s", ",", "x"}], "]"}]}], ";"}]], "Input", CellLabel->"In[41]:="], Cell["", "PageBreak", PageBreakBelow->True], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"GraphicsRow", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Plot", "[", RowBox[{"#1", ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "10"}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", "Black"}]}], "]"}], "&"}], ")"}], "/@", RowBox[{"{", RowBox[{"r1", ",", "r2", ",", "r3"}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"Epilog", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Text", "[", RowBox[{"\"\<(1)\>\"", ",", RowBox[{"{", RowBox[{"170", ",", RowBox[{"-", "20"}]}], "}"}]}], "]"}], ",", RowBox[{"Text", "[", RowBox[{"\"\<(2)\>\"", ",", RowBox[{"{", RowBox[{"520", ",", RowBox[{"-", "20"}]}], "}"}]}], "]"}], ",", RowBox[{"Text", "[", RowBox[{"\"\<(3)\>\"", ",", RowBox[{"{", RowBox[{"900", ",", RowBox[{"-", "20"}]}], "}"}]}], "]"}]}], "}"}]}]}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.4097112727212677`*^9, 3.4097112876502676`*^9}, { 3.409711321653268*^9, 3.4097113580912676`*^9}, {3.409711737443268*^9, 3.4097118449232674`*^9}, {3.4097118773552675`*^9, 3.409711885483268*^9}, { 3.4097119359682674`*^9, 3.4097119494182673`*^9}, {3.4097119810722675`*^9, 3.4097120552632675`*^9}, {3.4097122883402677`*^9, 3.4097123579732676`*^9}}, CellLabel->"In[42]:="], Cell[BoxData[ GraphicsBox[{{}, {InsetBox[ GraphicsBox[{{}, {}, {GrayLevel[0], LineBox[CompressedData[" 1:eJwV1nk0VesbB3DRdQ3pGhpMGcpNCdUtRdJ3R1GSSkRIpZCUyr1kSLpRIlMl QypxReaMRZIx83E2MmSOw8EhJ0lC/d7fH3u967P22ns965nWq2h7ycSOl4eH h0We/59Prtvybz57d1dQxluPTeSsaFYwMldwBDMidKyZ1xG/3hf7Kih4oI9p 1aTHcseTkmD53xQCMJsy//1zyh1c0HG9OCMfjZ6IfTpHNaPQPHcufFI+GQ0X ex/esEyCW5Xcps9ZKbisfJzPMecFpB+01I3rpeH7Nma0lGAKbFUovjGHTKRL xctMpKTBPU244EtbNv628MoNGXyJ3zs/KY/LF8DUY7dfVGEe2kveunLYBTh8 W7WnyTgfKYlR5WNZhVia47nwX38+jF2MT47qFeGi9ZPjK/heI0KwMGLY4R3e XFVqCdIohPjjal5uWxmmsh9PbLcqRlxt7JUx+RpMHk4VF+kpw9eoPJXeoBqI 1/+RWCFZDn2HuoGm2RrobqjU6zApB4dvxqywuRYx3OdO8pXl0NQx3hHgX49o FV4Lg/gKMDPneZU/N0L7YEDBDuo9xCFoI6LOxN9nk/zOX3kP7bXhO/zPEotk KovEv0fI1+QpT5oJOmDpopeLqrD13gc721QaB90T80IKq+BTq2q4+WQz7Dpj +4okavAi69Xa1IfNGJ0r6EzdWYOmKF2+P+ubMezm9Z+CXQ2UHCyKJLVa0CbS PBebW4NaPj91HokPOKf8YU7CuBYrdDrFG9+3wiXpbVuhUx0oJfvP+xZa8alM Qf9WcB0chbl1ZVvasFSnf46VUYeiDv5b+c/aUKYcKeI8WQdbt79mnni2Q0yc WpzjXI+MzIDOC+ofoSf1xqTTogGj4qNBhqc/ourY2txElwYouxnuWhf+EQdy llquDmrAs53CcQOzH3FW6N1ateIG3K8Jsres7ISy6R8n/pNjwG0glGtg3Y0n zzgh8TQD2fqT8X+GdsP0ebp9yRADn5MPm/KVdeNUz5KcqDkGzl0We1Ws3IMB LTUBL6VGWC7cv6Yx1QMzzaavK/5uRKxwna/Y3j6wHbdpLudlYpeOl/UNmz74 774t8UiIiS7nDRqfr/bBp0g0jkeCCcmmu0P1KX2w5m/r+nsNE/eijPbfEe2H GjX3c1aXiU2184oz6/txisWMfGDIBGMu7YedXj9Oty2wRU2YEDopkqbn1o8T Y17pr04x4fsnY+mvzn6s6wlyKbrGxGrz68MXp/vRNEjd8vRlouSOeknX0k8Q G7mpIRfIxPxYyJXC3Z+wLnzefGUkE67Zh1pckz5hbvGRsdZMJhxAR3NcBsDO XDn/posJnvhvhZ13B6C3EHeupZ+JqMWyXbUJA3gW1V3ZOsREdY29XHLrAKp+ 15F4NMnEOtP5eLsdg8jKGlyvwEejJF+xwvToIDKv8R4K/p2GhZQBS+/CIKJV H3SxhGnc6bmnvPrpIIZK2lnHl9Fgn1NO61nEQtr80RATJRo36owaGqRZiM9f aJVfR0NS3WWiaAsL7usc2B0baOybKtoUY8cC778/li7fQiPZ2yTPvIaFbf8W /kilaOj2XW3V/8RCg6i9zKAejY+6T2Y05lgYaZM9JGRAQ0iArbVMbYjk5WGI 4kEa5+97FzPDhvAhxSzXx4IG73R877vkIdilUfmqVjQemVfzZJYNwSWsm6fm BI1aWQm94K9D8Nuk/BvTlsaGpBdV+y2G0bL4z3qZCzQqBBlszSvD+OjDWWng TMP6wpTgusBhyKdmMGwv0wjavMuIv2gYF7/VClz4hwbnTTOzTJ6NNRHHrtR4 0fCTm+VmabJRqj7c7uVNQ/ZfOYm4I2w0qIa9kfehYaTvaObjy4bio2WuO2/S GHwR4ub8mI3dqkVBeb40rgnnRp7IY6PEa3mcwi0a6cyfHdrDbOwoi9nV4E9D f4vSnArPCEzf+fH/EUCj5+F+WWmpEaSERu3TC6Sx1Crc5rvhCGbp6TzfIBqJ bwt8hs+MoKVqblVYMI1dCr3PWq+N4Ht0okdoCA1n1vqB3IwRGGx6ddMhjEaf TYdAaQ35nlOtaXKPxtH2O+oNgyMYNvRXVL9P4/0RTdOOXyOwX5V5eo5Ys27Y gyU9CgduyqrCBzRS90TGcjVG8Wf5A4/z4TTkivUrFw6P4nD25uglD2mEbf82 KnhhFAm587HPiPmynouu8B/FpP6qrLURNNxUzLatjh9FouzFz0+J2f8ttlZ/ O4ruhqvegpE0rFbl/rujfRRNvl7e9sSMiDNJ+lOjmPnPUSyfmBKVaDBZOoZr HsOW34lzAsq+2Kwfw5VuYy+1KBpr+VwknfaM4Vx3xgMz4qhriruunhxD+qn6 isvEQt+YZ3w9xyBTv3qjD7H3pRsBoQ/H4Jww+OUG8SR7Y2bMyzEc2ji/0Y3Y 1ra3JaluDBzxJfwniVs6Q37kDI1B7eulcG1iA7NdCiWLOHggofNDmLiQMb63 XpaDCrbuMSaJT3XfE6f27RykFglX3SF+Wmp0b9CEgxO63ec1iMW05/MnL3Lw SL3gZCvJh19uatf8HQ6EGSfKnYi/qVnxCiZwsPWRfs40yadjktC65e84EGtI M/qHuEuh8KDiRw58p/zThkk9SiWkorVEx+Fjsu2vdFKvrcHVxXs3jOM387yw X6Seifzug0f0xyHDx6tsQBw027rx/LVxLNJPcMwn/fHT5baZW+Q49t7MMOoJ pXGFo+F1M3scF8onW+ZIPx3rDX//iD0Ou6whSJJ+q7bYw0nkm0Aqn6P5StKP 2k1TYjlyEyjKKPVecpeGQqXJiTrTCXw7KmTTcYfGaIro17mSCczojmzm8SPz p1QiJdA1gb1dabezybw0PrmEZTMTiK2Iz7b6l0ZuGCNQVe0zvgRvnLx/nYaP W5DiiejPEDcxjoh0J/VU9FPu1ZzEW53Pt0WcSDw77228vncStd5yueaONG5b PN2+ymQSLI92+RgHsj/CXhtYOU3i3su330TO0vjxk+PQ9mQST//Rdn1uTWOs y+xFIy8X4qUpH5ONaKR8t33p/AcXfXvKH4Ua0ji37PJrEVku5if5oy/tI/N9 ILD6gAYXy4dd7srtIfUoLGZXOXARGFvUp6VNoz5KeX1JPRd7yqVfupB9GZi7 dfPJDi5aZ4QE+daSfcncrfWTxYVb77RPyBqyn3633r/zFxc6Nq/mIuRoFLmF Ob7e/AVVTtVhl8g+TjedTX4Z8QUP3YwFDH8xESJapxJ3agqeLuHp0+ReUbB9 VZ6x8xSCCs/eKmUwMWhzCfNeU5CnzI4E1DGhnS5hah45BSFdpe9LKplg77f2 FmFMYWXvdBfrFRN6vuONHtpfscJP+yb7MRPfp/9wNVkxjYPSgZk+5B5j22n6 jq/+G6S3neDZ2t6IK5V+tpeUf2CqNKG9o7sBWZeXHJXcvwCegYH0rtk6xHk5 jW4y56ECPxQshH6rwc3Y+SNfOYuoZqGDQvrrq8HT3EcVefJRdvrWPBHX3mPt P/bupiq/UZG6pTb81RUYnI48JvyWn+p+VVTTfKAchqzz3vevCFDSU5e6IupL YTwYtkFOToga7Fa5vudyCUbLbW9UpwtTjRNOjLZbxVAXa12ld1KEsjbbwVVZ VwQhTJ/umlpKpfZw24dkC2Ewbjmz2kyUsrV0MXAVfY32srOLLFXFqBff55e7 a+Qj706FjcK0GNW6cLPaMiYX9r+59jEY4tRzrkAdH08Ozrh45S15JEGVcZsi Jx9nYaPDBobR6WWUVc5hp1/HX6JRXFXYVWs5tXY8I+r6hgy8ybgZo8q3gnIy 1LyaPZcKr0Uqh+u7V1Bv92hez65NhlCX5z7n3JXUxzpYZjGSwEpUDI+9JkkF 6MfXK0smInyd1OICMylqzfIOYdVTCQh7ZF91WkGasgws7jw7GA/L8BOMJcPS lEy11/UvgXH4vuf5bGyxDLWXG7F7euMzDLB03cv8ZamRyiVHuwSeIl5ns0zD 6VXUiwy2mN7LGKTfchVzUJOjLlkN1PYkR8Pf7MwBvmk56mGxtrdbUyQ0uuKS /RvkqYPTpZ2Gsw8RtT4mveGAAsXV9+zvPBUOn5LgqAMFCpRNA2NfStV9HJQx e16rpEgdMQwX3WB2D7udq6zEAhSpq+srDpkvD0OsrK1S/bQitSWv/7VkcjCU ypMijK1WU0EJHxQP+9xFmFqZSlPxakowzlMqwT8A9lOL6RqVNdRLAelNXcH+ sM36ohAQuoa6nLjNek/HLVTXCvgWza+hHsx/+St1jR8u6PWH1RALJgYvuBOL FhU8bSVmeD2v1ie2SD9fOElslWR06tNqPwyH1nOVFtZQ57vcH0oR85uFnQom 1k83WHlHwQ96vSt32fxcQ722zXe3W+WHIfPJA07EZlpfTbYQBzKrj7sT71qe qbaIuKnUw/U+sVJ7zOBjWT/YJnSmvSeWOXfEokXGDzccY2U2/iLvn20w15P2 g9Knq+t3EqdqaWmJEVdbHt6+n1iwslymV4rEb7To6Bni82mHPnkSx6qfCYwk zozRdc2W9INuknZUAnFv3HarG8RD8ssSs/7//7Dk3cbE6mKVpXXEcgqLRUdX kvgCnjS2Ezu848y8InbjdetmEU/sNum7RSztZTz2hdgjcWvNUeLiqbWzv4ib xh5kKxL/D/dVJdI= "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0}, PlotRange->{{0, 10}, {0., 0.2749330875399839}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}], {193.5, -116.80842387373012`}, ImageScaled[{0.5, 0.5}], {360., 222.49223594996212`}], InsetBox[ GraphicsBox[{{}, {}, {GrayLevel[0], LineBox[CompressedData[" 1:eJwV0ns0FGgfwPFh0pIIKdeYcUmEprSF8HvWZb2mWbUhJYUhk6gWkXKreFe8 ZMxOLqMSSWVDilqXCuVucpkWuRwil8aYYZAkeZ+ec37nOZ/znN853z8eMv3c oZOSBAIhBs+P+1YMfe1Ov//ZMPx/HBXrNzwSzZ0UAAz/mNNmf/NsVhtexpFI F4HbFpUfkT1nI8969nhd71X8zqNcW5GCWzUp2lKkROBk9ViVRW0EY5Hf9VVG KjDGk4tkjmnBoPzt7996WMB5r5C/qUUf9Apk9nxdvgGMgn1tDmkmEGQddmZR Owu463dQjJAZPH03nD9vdxMIw6dU7ajm8DWQNjDLyAHC5SfDrDFruCMxkLjo kAsEwul2b2lbsOem6X/uycN9LhrWJx1gMtOxdj4gH7jV243KpZ0g2W/Fc275 HjC6XczIYhrwlk+xZ7Qf4t6OUK2WQxDeqEURlRYC195lolPfDdT/etc6bfcI dsuqpO256w50I0ScYpQA1/OYSpfEcZBcvtQ+H/UYdmtQhwJGvODdsNuWeYdS 4Ex3HakM9oGIR7IV4p4nsPsAc1d3nh9QWeNrxXeeAiNJsVDbxR80I2pdZwPK gOHh9VR64ymosbswI1ouB45E0xed2kD4qX/EYFq7Asz65IQ/fwqG3poXYYJJ 7HGtnM6VECgsyHw9VVoJXLeqPwvVzoNziLMX364aGJKhV7j+4ZAuU5k+wXgF hFc9I2LXSCi7QA0JVa0Brvne1bTcKLjJ36s2F1UDnBWjjWPz0XC2Q4khdqgF roLpX0/cL4PSzSbJ2Z462M03O0i0iINl+WcP/7B6DZxzD5RhKQ4+Xrl7cOYO 9lIWm10dD88YMbdFAW+A4Pd89AztT/Aw220pXK4HwnWfDVLMRMhtyQme0m6G iW9RfYYHmTCfWW40lNwMKQpyPkGdTPiV0TratdQMjIHLaVauaSAgLrpV8lrA 4KLC8/MnWGBu7WyZmNAGZdLCB9x4NnSUfJM0ELWDHPy2mLIpC2JbjKk7vXiQ MPC1FdJz4UHp861/3+ABV9nTcmIqF7oybYn6bTzgafyzR802D/QYR6pVLd7B 0+dH/DbP5EELMd6UsPFfcOzlmTodyofN1v1K7Q3doGdG3Wpheh+KSxL7g0z7 oLHndLSlZRHwlfjJVJ8+UF80/lCSUQQG4VSbbew++MlquSF8oQjuWMnmji71 QUe4veFCaTGwmpP9Per7wWzTnSyaymMIH02ddfQchNH5f2y6OaWQI9sap+gw DPWC93pBlfhfQGeWIGQUgkz20WYcquDsmOFoWfEnUKTy97K838A6crzBkPkM ZGy5YUZqbYXrCq1Gud5z0CWTFEx27AR6v+srYttnUAJ1k+zGdxBcH08/Z/AV 9q/fWpe0phdK/1jvouq0AohXUaj4vg9yIwP5FHcCot01mE4uH4SrOd9+nxdI ILtXNpYXVYeBwBtG1ZeIqCozzd7Z8gNsPe8f4WokhTT20g8sHB+BjwsZh2Vf rEWaZVL7ZDxGgTp2OpoVLI1CidsDBYc/gvNH5nYtrXWIHE3RUbAaA/5r+uWm Iln03EuzXigxDqaK3VvsvOQQcSnZO7lpHNbBgs/AnDyiVDq8lDw/AY7THos6 bgrISqv1e4P2JPTW+Ul4GCuinl7tU7SqSSi/9uYEaUERWTsJHqb88gn8pcKG 375VQhsmo1J2Nn0C35DI8vWcjSi6wvnaKSs+7GBsf0vzUUaIFSpQK+BDu5Kx bJjFJrQmkKJlrjAFVcVXs42JmxE1ib3aGTgFkRJGB9sGN6MVtVefbzVOwbqB S/85W6aCNA9nt79QF8BYAZmdE6WK8pfD7sfSBcDepramwk0N8X12rokpFACT 49/oQ1JHlJGbgXmTAvBgH3+7fkId2TYef7aNPA1f7O8t5bzUQPNP+BzR0WkY HbONqEvQRKQDB06Kk6Yhz3qnBtdnC8oM3HBlU/U0FP03TJFhooVYdb/2xoxP Q4Kb737ighbqchaSFeSE8PNA7sMErjbqaFI/0mAmhEzD7CLufhIaWV4oobgJ IbYmJXN/BQkFuX+cKwwXwm8abvda9MgooXjqxVe2EH4523hMMZGM3HVWnfRL hJCjSddrWyCjId0zG/yahaD3+n668zEdpB7je0x2WAhMkzqjrpc66EG9ePje vBD859Z0NhvpIr/vlKjDMiKgl4pJiam6SK9WOXmXhgiaWqTjqr/polVVro6a iQiC7D4wm7Fp2RkUDWyF6orb3dj13z1ttmAfKTpdOYN9LqD3KBl7IrVtVm8F 779NYxpir3VjeqdgO47Lr1hg2w2p2Jz4rouqb+/q8sAed5/ZH4ht5XV0yBM7 qaPpaAR2rGSk4AR2V+3FMBZ2/GzxWl9sen7/owZsUch7y0DsywE5GjtWdVGI vEVeJLbeyAVDK2xjCfmSaOwmj4N7nbDP9wxWxf7op0m4+GJPmp79Nw47x9Q3 KQO7Lul36WRs2/v7MvOxvbJXlK//6NNWLijFFqfmk5nYpor1ta3YJvqjluwf fYm32nuxRfWXHNOxwyXDB8ew+6hyrpnY6pHOU2LsL0853hzsl3Nbl1axPSV0 z9zE/j/jY8Ec "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0}, PlotRange->{{0, 10}, {0., 0.9743177539421981}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}], {580.5, -116.80842387373012`}, ImageScaled[{0.5, 0.5}], {360., 222.49223594996212`}], InsetBox[ GraphicsBox[{{}, {}, {GrayLevel[0], LineBox[CompressedData[" 1:eJwV1Hk4lN0bB/DHWlGyJSSmKCWh7Y1k7oPIljZSqCwTSYXKGplS4c2et8ZS lqyVNGVPGktlp5A9I2uWDDP28Du/P57rPJ/re91nv84WO5dTl7gJgqjA3//b Z3fs+PdQHpHxL0pPyDhc0UQysSA5AUGQZEPi9pNXvpQEkEje2Mtco2EUslBU 3luBtnvYQis6pnfJzxihcnykYCCo9TxRHtFk5QlK2IpjOM5rktawXpC7hZ4v /22NAgLNTnxVpZMV0tb8s7D4H86dzuQc+kC+quV+bVYuBtdrmX7UryC/b2am cHTjgbB50tNZV0tecDbpmnRMACKxoXUpt4mcyNUVPKuXhOtz7owrd5CP1EVu m2lNxv2/pYyxmeRh2tFSjlMK7m/Zw+TuADmEsmTNXkwFglHgb1c7QlZTez83 GZqO895nV91Y5KbFy9EsuUwgaMsum3+zyR5fZdUm6C+BePvozVzTLFn6cXPN uO5rIBppJ1+o/yWXXPjXcawlC4i5rRrtYQTYKSGeUcdsIIKIvJYjPMC96NPA 8X0LhPDb5bva/NDMNN/M0aPj+V/ZLxK0BtK+qDmzhd4BoeZX/WbTOvB6LVg4 1YrN3GP8yV8YjKIG+acS3wOR0eZiGicKMl6lZpNOOUC4jh1c/0sc/pyPT2bt zQWiYPpEkPlGYOh6siYWsal8hYdnpSBq5ynyREUeEAY+X15VygBl/e6QP6H5 QETEqZ6skYNVnb8Ux+UKgaiPXFp3QB7aGB/dx4ax3/70eMy7DV6m0cpH6UVA iKfnxkxsB9MbphdHdIuBiBdoXZDeBaSzO7N+r/2Ix8t8UmS9G6a0eBeHW7BT /nZVFKvCkzVFT4YcPwEhIbtO/dpeyPE0unFTkgHEZSXNnNp9ED9yUIrti12g sSHr8AG43ijqOKVXCoTvgJr9cXUQja/knmwtA4KyrrfNAGBRKC/T9XA5ELet eONjEfTffXGClYidYkmYxmpDnuOd5xNOFUDk9bQ35elCQoeznks9djZdmtN0 BIKOnRv7s/cz3o/OR6qLemC5b/+hP4vYHR70kMsGoJu2pfeazRcg7FNbZt8Y grLU+qDxCux4ZUERwhiWl3+3jIV+BWLZ+GlX2TFIqk5wG5WrAqpr3b0zQyeB Q8tV6gmpAsLyJolVeQr0HWv6vs9jv+IU3aKfhjGeWfOipmogPG60RD01B3Ut 00PBgbVA5Dh62xadg0eCFLYvpxaoLe88H7dYws9279eutnVABFJ8T81ZwX2P VNmzmvVARO1yrzC7AI3Zf7kVJxrwfY7dXZ5rC6Kw5sI6lUYglsrkaXZ2oLk9 +lAgpRGoet1lfmL2EMbJZPt8w7muvdzzuxTYH9lyye7VNyAcSmvkIxzBv1rZ aM/FJqCuv5Tt4XcdMuj521/91wQEZ4OvtosLfKfp8GyrxXkxBxr2uoKC49li SY1mIFod9kmouUE1z30VQqwFqAz/smz9m8AZERL0MWwBIomspfP9Jmz+HjPE 9m8BdPvdtIbNLXBNzE4cGsN5sYmTQ4A7SGh1ijZ8+QHU0G07hIY8ASk4TBgs /QDCVDxt20MvcBKcrCnb1wqIP5/1QdEbitv5H+QltuLzFVxwveEDdh57Z5/5 tAHVREDt+HY/eJMd3HlVpQMYR+5Rdjy4CyOiIyFGth2ArEtr03/dBUUPI/KO 6A5gMuKbT2jfg8TDgkl98x1AWGt/kecOgKiqEAfLz52A2Ekxw5H3waMvfPKo dTcwXDptP40Ewjt9VvK28G5AH3vbjayCYCLzhBlPWTcwL5gmC9UFwWVXkfwS xZ/4vlhc1ckJBsulKN8D7J+Axjl6bpGPIEGwJkBEjwkMr0DPJ4HhQNa6bU29 wAQ0qzLDxR8BXdd3HZjwZAI1X/Nbh0EESH5/NFj7kgmEXIbmrcYIiKSZGAYJ 9wJp5wzTdCgSArbVC6109oJN9PvUoX3R4AjfYsZu9IFN3eBAuBF+V5Nnijof 9eH608xfCTFA45Xpqk7Bbm5ub5+OgcoqB9nMH9i7fz/KeRELO8z+Jl861A+E z4zA1lXxMHxZ8fVPrgGgKu+o4hl/Dlei/EoaIwaB2RzycCY2Gbink3s+ZWJ3 CwWvakyGWItKIrtsEBJPUNuu8r2Aahkx3VDOINgIxETsd3sBu9IzvhqeHQI1 YZ7cQpMUGPvQ1FgmNwzEAzXjFLE0uD6wsy/nzW9gWv32O9ibife1fXVp1W8g FClhpttfwum2IJW6/t/geiWGv9r5JajXDHkPSI8A0g/Q/jP7EnjoqcISgSPA 8jp/Zkz8NdB8t5A9L44C41ZofKntGygVk4rREB6H1fdJgs4v6LA/tLJEb9c4 IJJnJ7mWDmn8Xv0n9cdBuMOj/8g0HULmf6he8R0HG4ONtKGj7+BMT/SX2GGc e1YeCZx4ByMvhTmLjD/AUrxovNsgBwS23FfsUWcBusyvuCibD5WHI1Xv6LHA ZtsC74hRPjw8+/zg5lMsoM6pavB65gN3RMFRK2cWkMRXPS5qyIeF5THH1mcs IPRNwlUCCmC0yzyjgXsSIspFQlWnCqGWpriTUTsJhEVjghurGMKEa5SSbNhA o7BPmueVQuHBzbmm19kgaQgro02l0H/BBf7eZuP13tCKmywFzSwxM4unbBgO yTunu7sMhg2t/dbVs2GO/jCkMLUMdAPGG7w1OVBATk7QiCuHuen17qckpsHm qUzkJdpnsOs0+8RTOwMRSq9H9TuqwO3zfTsXxQUYCze1UEv6BnTXtaclDZfg voXotFb8D0i67TyiZkEgyurVobRnXXAv4e9JzhgXCltKlhC36QWiiYmKfXjQ P675ucz4fth+y8HLTIkPJXaUWbmeH4b+6adnBD/yI4PQnjwZsTEwGrjiF+W2 GvEdDbyjqsgC0/6IXbKyAkiNLha9yWwKRsrtqJVZguiMxn7rY64cUBH5sVn3 4joUsOrzolrDDAjAtG0XWwj1Vk6pD26ch6PjlrNbzYWR7K9ygY4Xi9BWRuGy VBZB0R48w5sPLENuUMUF0rQICitrStc0I5ADnzuzvl4U7d9wy8srmwvZ37id uzZWDEnrLPn3zXMjVcdd9Sa24kgsLlX1H11e1CCqLOiusQGlS53kE33Dhz68 uRenzCOB/hP3Hg/hW4VucymdqO2WQA71xufz76xGAl0+BtdzNqIT6m0uj6fX oIG0LdEJvpJo+qhXzfIZQRS9Q4q30FwKUfq6m0U71qKIWIevtiRpdCoyQ6lA XwhZRp+vXzskjbb2Lxiuz16P5o6kzieUbEILYgIHHsYLo74BHa+yQBnktmkq 97m5CErW2rOpznYzig0p/BotJ4qyHriLOO6WRVZSEUnHukVRoLm9Mc+0LDpU rFxpRBNDB7qSMgPr5NCUUPGSPEUc0XbGZdUZk9Ct2LNaBvIbkD8jlGZcSEJO Iuedj7M3oGObzFOrFbagbmQraceQQNrXv1qJBG9BXs7+lIvUjShBxk6hdnoL YnU8/4d8UhIplKc/MbXaipRN5nXaxaVQxO4ype8lW9HbxzLHt7ZIIQc277cq JXlk73NRzyRNGtnRp0jB4fKI11/11ZTTJlRZvTqg+K88erfXudyPLIOu6vZG VGFXDQjse4otXFz4/Ad2m97r5LfYZ7OuFLGwm9Zy7vZhD4XXTiosySNG7lNk CDKI3zzCJhS700W1RBzJIN2ejeQLy/Ko3jGx6JW2DBq0YBk7Y8/T3ZU+Y//b WHnOCzs2wyT2J/b3Um/3KGzFuBVvER0ZZJfS+foL9ky0t4YnNtUpYZPqijz6 3PqxQEdXBin88tx5GFtzKGuHNXal5YmDhti/khNo7tjCJlyn7bHfywZ5ZWAn qNj/+xR7SPGautARGaSTrklLwXahXclQxB6UE0+jY6/JdZLUxlYR+Vxag201 dXXuJvb34GcNbdiCYm6XQ7E9uD26B7CLejza0rClb5uOTmHbn71jwMAuYW+f X8Hm9QssaMf+H/zrszI= "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0}, PlotRange->{{0, 10}, {0., 7.06723678900676}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Scaled[0.02]}], {967.5, -116.80842387373012`}, ImageScaled[{0.5, 0.5}], {360., 222.49223594996212`}]}, {}}, ContentSelectable->True, Epilog->{ InsetBox[ FormBox["\"(1)\"", TraditionalForm], {170, -20}], InsetBox[ FormBox["\"(2)\"", TraditionalForm], {520, -20}], InsetBox[ FormBox["\"(3)\"", TraditionalForm], {900, -20}]}, ImageSize->{392., Automatic}, PlotRangePadding->{6, 5}]], "Output", CellChangeTimes->{ 3.4097119510572677`*^9, {3.409712002007268*^9, 3.4097120562412677`*^9}, { 3.409712305054268*^9, 3.4097123593692675`*^9}, 3.4113614961008787`*^9, 3.4138649657972713`*^9, 3.413949898446*^9}, CellLabel->"Out[42]="] }, Open ]], Cell["(*\:3000\:4f8b\:ff12\:3000*)", "Input"], Cell[BoxData[ RowBox[{ RowBox[{ "\:ff12\:6b21\:304a\:304f\:308c\:8981\:7d20\:306e\:4f1d\:9054\:95a2\:6570\ \:304c", "\:3000", "G", RowBox[{"(", "s", ")"}]}], "=", RowBox[{ FractionBox[ SuperscriptBox["k", "2"], RowBox[{" ", RowBox[{ SuperscriptBox["s", "2"], "+", RowBox[{"2", "\[Gamma]", " ", "k", " ", "s"}], "+", SuperscriptBox["k", "2"]}]}]], " ", "\:3067\:3042\:308b\:5834\:5408"}]}]], "Input"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"izu", "[", RowBox[{"k_", ",", "\[Gamma]_"}], "]"}], ":=", RowBox[{ SuperscriptBox["\[ScriptCapitalL]", "-"], "[", RowBox[{ FractionBox[ SuperscriptBox["k", "2"], RowBox[{" ", RowBox[{ SuperscriptBox["s", "2"], "+", RowBox[{"2", "\[Gamma]", " ", "k", " ", "s"}], "+", SuperscriptBox["k", "2"]}]}]], ",", "s", ",", "x"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"z1", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"izu", "[", RowBox[{"1", ",", "\[Gamma]"}], "]"}], "//", "ExpToTrig"}], ",", RowBox[{"{", RowBox[{"\[Gamma]", ",", "0.2", ",", "2", ",", "0.5"}], "}"}]}], "]"}]}], ";"}]}], "Input", CellLabel->"In[43]:="], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"uzu", "[", RowBox[{"k_", ",", "\[Gamma]_"}], "]"}], ":=", RowBox[{ SuperscriptBox["\[ScriptCapitalL]", "-"], "[", RowBox[{ FractionBox[ SuperscriptBox["k", "2"], RowBox[{"s", RowBox[{"(", RowBox[{ SuperscriptBox["s", "2"], "+", RowBox[{"2", "\[Gamma]", " ", "k", " ", "s"}], "+", SuperscriptBox["k", "2"]}], ")"}]}]], ",", "s", ",", "x"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"z2", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"uzu", "[", RowBox[{"1", ",", "\[Gamma]"}], "]"}], "//", "ExpToTrig"}], ",", RowBox[{"{", RowBox[{"\[Gamma]", ",", "0.2", ",", "2", ",", "0.5"}], "}"}]}], "]"}]}], ";"}]}], "Input", CellLabel->"In[45]:="], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"rzu", "[", RowBox[{"k_", ",", "\[Gamma]_"}], "]"}], ":=", RowBox[{ SuperscriptBox["\[ScriptCapitalL]", "-"], "[", RowBox[{ FractionBox[ SuperscriptBox["k", "2"], RowBox[{ SuperscriptBox["s", "2"], RowBox[{"(", RowBox[{ SuperscriptBox["s", "2"], "+", RowBox[{"2", "\[Gamma]", " ", "k", " ", "s"}], "+", SuperscriptBox["k", "2"]}], ")"}]}]], ",", "s", ",", "x"}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"z3", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"rzu", "[", RowBox[{"1", ",", "\[Gamma]"}], "]"}], "//", "ExpToTrig"}], ",", RowBox[{"{", RowBox[{"\[Gamma]", ",", "0.2", ",", "2", ",", "0.5"}], "}"}]}], "]"}]}], ";"}]}], "Input", CellLabel->"In[47]:="], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Show", "[", RowBox[{"GraphicsRow", "[", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"Plot", "[", RowBox[{"#1", ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "10"}], "}"}], ",", RowBox[{"PlotStyle", "\[Rule]", "Black"}]}], "]"}], "&"}], ")"}], "/@", RowBox[{"{", RowBox[{"z1", ",", "z2", ",", "z3"}], "}"}]}], ",", RowBox[{"Epilog", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Text", "[", RowBox[{"\"\<(1)\>\"", ",", RowBox[{"{", RowBox[{"250", ",", RowBox[{"-", "20"}]}], "}"}]}], "]"}], ",", RowBox[{"Text", "[", RowBox[{"\"\<(2)\>\"", ",", RowBox[{"{", RowBox[{"650", ",", RowBox[{"-", "20"}]}], "}"}]}], "]"}], ",", RowBox[{"Text", "[", RowBox[{"\"\<(3)\>\"", ",", RowBox[{"{", RowBox[{"1000", ",", RowBox[{"-", "20"}]}], "}"}]}], "]"}]}], "}"}]}]}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.409712733016268*^9, 3.409712772042268*^9}, { 3.4097128036212673`*^9, 3.4097128465202675`*^9}, {3.409713011436268*^9, 3.4097130175672674`*^9}, {3.4097138726512675`*^9, 3.4097138758592677`*^9}}, CellLabel->"In[49]:="], Cell[BoxData[ GraphicsBox[{{}, {InsetBox[ GraphicsBox[{{}, {}, {GrayLevel[0], LineBox[CompressedData[" 1:eJwV1nc81P8fAHC77HOkMu4OZRaKysrrbbSVMqOo7JWolFUkJaskKwqFQpT6 apB8bO5kr7sisu4osnf5fX7/8Hg+Hp97f97v13p/ZBwumTlzsLGxGeF//v/f gXLxX4bMESim+2pnUY5ATQfFxJriDrdnAtYdpNxhva78NoUSAK12o580tgTA 04pYMjclEn56+zhLECLBa7/fxUXyY+ALsj3ct54CHatuCVPkPNgg4OP46kcu bPg+qDBBLoF2uQyJXY8/wTNahu8vMhUWHsnqGnI0wFzKe+X+GCrsZIWNjTg1 wEHXxqH2ZSrcDQu2t6pvgN+ci5alHTRwXxapfRJNBa39J3QiI77CbFXz6xKR Rmh9s8ah8KcFJv7sXuMWa4YQ2o6ju851gPL9kG1Vi23w+k3kdy/Vb+ClvqGE HtQD48TxmKMXvoFaxGbZfVk9oHDtqL5iwje4wickHUjrgUw9/mdDy98gTDD4 XuEWOsRTY1xsa79DafUv/4b/6HBt6MH0obN9cO/BZfnKYQZk8DfeFjkwAGER 7yMsd/WC/v6gs6H2AxDfdRxTtOyFXm+VPX+uD4CevuG7H/69sKU9evRr/gCs h51JnMF64WGKyZF7hJ+wqiU49MmkD25vbxZa//4TfvJPBRef/wGu0Pb49+Uh qJaLLODVHgC25wul36OHIGC2IKvq8ACkcEn10rKHIEQ7o8Pr9AA0UF1Ied1D IHDCnpaAv1fRYu25s84wODCexOx+PwAsN4WCH+wjcLwWnXq28yd4xN8ob40b BQPfbx47RQeBY/55P5Y3CgKe3fVcMoOQat3A9qZqFG7Oind9VR0EmpSoUezc KNTxi8yoHh0ElZe59UdOM+EVz0CHTugg/P7c0VpFZsE7Yvlh77FB8B5RGip+ PQYk/aAXqkVDMGDP2FhJHYMG5WWvzV+GwJx+T7VpeAwiCvSxCeoQaDUyA0Yk xuGj8bVVh6Eh4HybQxCPGIfgT7zhlzYNQ0qwjP71c79A7++rB0LXhqFSdOtj bcIE6C1yG1oqjYBmbEP5AZUJOPZCZWRcYwRe8PgPnzo4AecV49su6o9AzHK3 mkfwBPw94XdL13wErPoT6lJZE3CrsJ+8EDQC4/mEudWKSbglnpDEpI4An0y4 Qr/WFOTYTal9sh6FBr2HajcPTEGp3IEI93OjcPd0+j5psyngbp+M4HMdBY64 T4fOeE6B36ffdyWvjcLKv9+uPU+nIOLMtciAR6Pwq9cyt4VjGo5ppqjLN45C /pJDkbfwNMRc43VqbxsFNzGfT4JS05BN5TDxpo/C8LGohmN7piEurni/38go 9JaWs+pdp+FAwJF67N8ofE1RUKr4Og0rl+kxh1WZEFWsuescYxqE2WIfT2kw 4XCrgfa/kWlIvNN86Z42E2o2nD2itz4N7g+iQyKMmVB2Lc79064ZONvJe7ba hgmFFst5RUkzwEeSydO4xQQvH553plkzoN0Zp8C4wwTlGNHSyTczYEGRv+8d xYQX1TtpO6gzQLhfJOX+iAnpux3Gc1dnYK96d8jTbCbcJzQqPzs/C3ujtW5x 1zChZJ/0+xPes4DuP9ywVM+EYftLsBY0C3m7b3T3NDJBt1DUwjoZf5569uy5 Diawjpy9Idg8C1y7FS7d/8kEMd/XGz5/nwXelpeZv4aZACls8W5js5DT9FRr L4sJSaPZL6q55uDQjtpXjyaZYHR7oiVAdw5ezucTfFaY4J0PtgpH5kBbU5mp 9ZcJqW0Phzut5uBnmMiBP+tMmCLvXVa7PAeaJtdzt3GzQOrQvdt9IXNQpFv9 IWsDCw55fxOMjp0DE3GiPYGPBellN2VHc+cguag78p0QC6hDrQWPPszBC7WA zSwCC+b45PYZ1MxBI6//SX5RFhyzqT/2pH8OZg1deiQ2s2BpXtjPTHwe9PSS MHsSC+SkHdbX5eZBBtmqclBYcMK4OLJw1zz8aLlw6ZEMC3LiT6dvPD4P89wx wSHbWNBakq/4wXYeHN/Omn3bzoK1gbV3jm7z4DekSJBTYIGZ2rP68tvzsG+G 0+KmEgtuWs2e8no4D1mnj47EKbMg78aB3q0Z85BxJOPyQxUWdGYnu9QXzIOD 8yX20B0sYPs6NnW1dB46Encnn93JApVZ3SDZhnnI5/HSVlBlgZXEfe7Wrnl4 JJ0/0Y87zGDgwY2heTC+fLfkrhoLCt12S6hMz0NaXc5zSXUW0B+EZ9P/zcPL fx9fp+Pm+titeldgAT5v8R8S3sUCtR+KJRoSC+CyveDgJdy23EFGPxUWIAS2 /yjDfXdHU9P9PQtACcfeLOF+a04+rWe0APf5HCpld7OgN9B3cOzkAkDvvy26 uDc+r/ZKtl+AF7/jywxwa1A3LRp7LYC+iPy7vbjtp1xvzQQswIll2vpW3FGb S/kzIxagcXvGq1/4+u/1BZKOJy6A9k/a51e4B5ztKavPF8Bz3629trgFYovy c4sWwHFiXWYRP8++Yo49VuULwBXwIDwMt8N3C4zz6wKMLIU5reHx4Ev7edGX sQC8tzcVu+J+Z+st1T+6AHsjDNSq8PjZSqzSTOYWgLZA6eXHzfktIqCUfRGe RPdUGOPxL3gspqgovAjOFfFDXnh+LGyedSdKLYIkNfJoOJ6/bHqphu++RchM 0voXiufbJOXQ4A/jRWiXemDtoojXo3VnnInZItiO2wvp4vVxoGdiQuHiIiw6 irx+h9fTZFLgk8TARYhx68+ylGNBktWGY5z3FmHG8i+BhdffaBcl98fzRXjV 5Or5Ha/X+4mFViZFi0A1/eWsJ82CvZY63KVfFuFN6o6ZGEkWRHSaOyTSF6HD 4su3NbzeFTvuSpkILUHg4p+8LXh/tMaLNpZILoFL59KfBUEW+JtlBigoLcGs rM2/Gn68n9pKujmMl2CtTiJOHe8/j9bfcSUBS5CDrh0/iPcvMS4AFCKWwHG6 OS0L7+9SU57JhIQlUNti/2tqkQn8LeRjPm+WQMtD69WZGSYUNJlxK4wsgVzx 1aDLo0ywiO3/L2FmCXxSv2WeHGLCmomXAwfbMjiYRnOQB5hw/OsdrE9iGYSz VlNiGEyYpH0KSDi5DLGGOsxX+LxKijqgyGG/DDdf9FYLNDBB/2h79yXPZdh1 kFPCHp93D6i/NI7dXYYwh61m7WVMUG8gTbKXLYP0s94m9kIm+NaGO1xSWIHO 71Izt/F5Sho+yLOgsQK5W9AZuMuERg7e/GC0AklPM95O4PN4O4qdjrRZgaCf /AZyAUxglCaGZkevwFPZgtwZFyYYFL1IZ/xZgevoaboiwvfb7GZ4fm0F5r5l EcR1mZA2oTw6unEVvB45/1jYw4R55Tc752RWISo9JC9ehQl5OR/LhCxWgWOY u05DnAkiaQ3fjD6tAimn2112bBTKS6Ju0mpW4cqzlwuHh0bBk24ie6ptFe6T dMwd+0ahdlObu/34KgR42T2+gt9nAXGMJX+pNUjKalHmLBmFn3fGxV+HrsG5 l5fWhu+MwlsfAfMtR/5CSEab8pg4fp+ligYUWv2F9MQ3c8tCozBaI5Fh6PQX Fvg5Y//yjILEVqVfXiF/Yb/Vyqm+hREIrzxwu/L9X7Dy33CcrRu/z4kh/3nI /oMFx+KtfQ9HYOW/adEvq/9g5qtorS7bCDwL8hxXt2ZDMiqPhH+XDIF6Be9S hB0b4rZgP1L+ZggquHK5+x3ZEE312fmIHPx7JXaYEuvDhooii0z/xQ0BKdPO eiySDZlPot2hrkOQWmNa86yMDfEcvKrbSxyCeEHNdKIsO0rR33lln+MghGWs nZr7zY6CQ+d14n/j328dA6gskBPt31XB+BnxHeSvuvhbKHOjbkue2ebNnTA8 n2zF/4UHbWATME7upsLREY8b8b4b0UUuRbu3w8VwYjhOhUTiQ0Ylwc3TxAxs vNohtKGQH5Emr4SZiFZg5Id0j/vF/Kilr+uvxIEKzML+hKXFZ36klXpz4eu1 Cqx8SVt5oIEffd28sPiNUYHF7xTpXBziRxVDMl5P0isx3WRMQUFCAEnbbF5P l63GYjykWu7cFUAEhU3CS6J1mKpIt7TROUH0uu0KgSe5ERuNHQ1LdBZEb4/a MNXKG7GnfItMpqcgmmGvFdIbacQEuLa8i/EXREUBpqKru79i4ws2B7sfCqLw DhVLYtNXLKe3z9u9RhCJTrpuebzahEnljmAPlIQQ45BNTgelFevctrBtUE0I cZ+4PR+yuxWLfsYTpblXCA2S3idIGbdiK6kKFgxDIYQVbMmVd23F6LHuLNmz QqjCuDH4RkEr9ujKBOHDfSFk1fmqQ12zDeOD+Qu9s0Iod8rf5N6+dszfQHHj hxUhVKYeoh52uB0bNTrz+gG7MGqQv9fvZtOOVR2uXDEUFkY3bf0i1gLbsUCz 2Ed5ysJonm3Deb0v7dgv5+211y4Io/51nitb9TuwrzGWiiItwmjO8NgF+V2d mM6De83jXcLIY29b6hvoxHIffr5a0yuMKkUDubaf6MTCk2Qqr48LowERLptO j06M1Lqw4w8HASl8lcw0zurEuhlVtZYkAspe1MtyI3RhhyZsF2UtCejQuv3T vO9dWLrY7Y6Q0wTEYXypPJDZhc3pvnrTe4aAfmOe3lqzXVhm1KprkgMBbbqq ejWArxtbUXhC5/UhIJcF8piIVjdW4NBXMhVFQO86CrTTHnRjHFHcScfvE9D2 S7mJmqnd2Om3Oy/nPyQgUR8Jz9Lsboyb7aayUwoB5Z2Zuxld0o3ZPyWl9eQQ UAk1aY/RYDdGoJ8LLq8gIHbhY84b1Xswl/WI05I1BGTCHBNy1+7ByuSLNP3r Ccg787nyB8MezN2PbWJXMwGJRft+2mTZg1URn9nlfCeglitL6uP+PdjV44P6 MQsEdO2A+Q9WWQ9Gr3Jit90hgvgN1HQM99KxKYNvEjfURJBjVH7WZz06tqHS VDNztwgSjHEkbzOiY3sxHddRLRFkSRcxrzKlYwmfCU2XD4ggFYpcp4YbHTMt LkuJthdBb1w/Zv1OpGMuGrvfvb4ggthD5set0+jYzXcvG9ucRFDVxLL9u0w6 VlAU/2+zpwhKOWfapfmKjvEVujllXxdBpk9Ie3wwOlaXI6b+JU4ExZqEF1UN 07Ef26KODDwSQRwE53qZMTo2n7XuwJmMm2Wq5jNBx7Y9H0888lQE6Zc8X/s2 T8fC0itWu/JEUN9/wz0sbgaWKr1303KBCFJOC6qs4mVgb5+8UpUqEkE+1GaR GEEGNpCadMHhgwjirNWc+S3GwPSTveonq3BrtXOxZBmYlfjggEidCHLm6ru2 X56BXUy0XtGkiqAxk3zXMCUG9uSR4c6gFhE0e0q//ZsaA1t5sOXRhl4RlHZA Sb5Ol4ERhe8XKPeLoI3Vw6xkfQamdJ+z7vigCFq+9p+xjQEDOx0zufSIhf9+ 2L4r/yADe3+vxp4yL4KcRP77EnmSgeUebdwSsSSC7MpG3/Ca4+cRaG+fWMXP /0Q9+JolAwuN6z/4mYOI7qZs/SBuy8CumI2yyfIQ0ULo+Z1HzzIwF7GJ0nu8 RPRru2C8hz0DM0lZUbUiENHMJ699lx0YGNiyj5WJEhHnecUwGycGtltqY5bc ZiLaI3+meacLA9ucuWnztDQR/cv/HPLUnYHxOUi1WcsQEbbF7I+WJwNbk5OL Lt9GROfm1P0qvRjY4Ev19WgVIlrfJsV4fImBdbnvK5lRJSKe7VOVYz4MrEFF /4rNbiLayUjrlr/MwEonjHdW7CEin7uZUqeuMLDCN8eY8tpEVKwU/djtKgPL 9DV7FqtHRGWX5swu+jGweA2bM3NARNsKQ0+cu8bA7syf23TGiIhsu/sf6l9n YP4fXVoqDxJR0vUmWX5/BuYZcDFS8Si+XgFhQy1ue92rRg+OE5H81mBjrwAG dvJv4N/5k0TU0T8xwBbIwIywWx/PWuDxSTUdDMO999Y932prImo1Tzoxg1vR 6IGK8hkiqgisUjENYmCS3EkjcfZE9PpHf8hj3EL1TzIWL+D7y+E+1YabPTLL xt6ZiLoNrHIWcM8dzRetdSOiIO/1MN5gBjYq8LZJxYuI3GR1pv5vRvPHiPhL RHQ66ujsIv7817hyg+XLRPw+C43vwF1uVrt67hoRtbPv6XyC+63Y1/d1AUR0 Qbml3Bx3dnf7pZ03iGifInZ6Cd9vcgpDKSGUiOzfh+ZG4Y6yHRhauU1EXfdT i/lwB0sxn16IICJlr/Tb/ng8Lv2YsG6IIiKBRUWpTjxeDplzImr3iehT1c9w adwWDquNiQ+J6JZRUI0FHm+d0Y3IMYWISlxPDsXg+dmZK7xCTSMiLQGF1lg8 fxQP8WL1DCL6YiX2JhjPL/eknOK/HCLSnfphv82XgS29UR50ysPzM12wvw+v l3HfXU8aC4jo6+/LyuHeDKx1Xp/w+D8ietKgd/QJXm/VHw/Q1j8QkeTSnWhB Dwb2IcAk3KWUiMwLTy16uTGwtL82SxqVRBRu6+25gNezC7ffQHMzERk4T8dr 2jEwCTK1Z7WNiD5qp9vpnWFgzVrSLYpdRBTcfblF0wbPt1ftl7DvRORZoVG5 aMHAeDo2pe1lEdHgw23Rdcfwev3tHu/4i4huZo/pWRxhYN485ZFxk0T0iP1H fTvev93aLv7jc0SEHFhhz/H+zsn8YJnOLoqyv6sbxu7F+72U73gjlyjivc3y fa7BwAQ67Y2XNoiioaxPr3PVGdjVDRs0zIREUT9JzuOeMgMz9rYm8EiKou2T +7MSpRnYsO4S7aKmKIo2EBCeYGNgKZYmVan7RFFz7ykd8b90zORSZkm9jig6 nDLbr75Mx4qfH86VMRBFrR/jP+hM07Fw3sd3uo6LIusf704/G8DnZ4822u8q ijJ8zKsqyugYfSp2n4eHKBJio05zfaJjMXyDqskXRZHxwQZh3f/o2Nz+KOnp K6LIR956z408OlaT/W0lOxQ/z+HaZRt8/jteDnovkCqKqgb2bQr2wO+P3T/e Kz0VRW9t9nCtO+HzfgZ9OJgpiq7diBm6eo6OFfnyfAx9gT8/sxSnbUHH1nwe fpp7J4p28H+7rrCfjiVdevm5t1EUJZ7RIDwRoGNUr47Kgr+iqImWZUV63oM9 2bG3isomhvbq528RSuvBfH6nVI1yiqEbcuVV0496MHEv+2oKnxh64nD6T8Kd HszBc6wmQVwMJYW7xR5z68HW3Nfrg9XEUPNZJtctlR5MzVWl2eSCGFKpbBE6 lNeN/XAnXyp0EkOuRgIX+DK7sRgvUYKQmxhyel78riKpGxvzXT3V4i2GRB5a hPKEd2NZwY1dp4LF0H0zy5VFu25sc7xnn1WyGEJ/CArBwt3Yetmr3+ebxNDp OUn70+5dWAtxB7+f9iZkEN9ny1zpwPQvXhxL09uENrZwaSX86cBe17+ur4JN qD0v85DWcAd2P3hXOOHgJjRrf2u7S1MHZjK69+8rs02IkH7tj01GB0YrMfgz 6Imv94zjfL5BB1Z73rrjZPom5I4q9DVD27HPr8PSdnCKo3dHN7KTmK1YELvy ya994mjKwLguBNEwvt7Aw97FmxFn3WrRsFkVNvJCJiEjeAuSp23xVkx7jyUo buUqsdyKNuieLH1an4TFpbrUX6BIoMNq6Cb35UywTbBrFmBKoJOPXbYERRWD 1H98kp7jEshuY7ZIaFkx9Ld9dKVOSCBX3aIw58licBImst+dk0CPhGzc2069 B++oOo11dknE8M9OU978AcJC1R5PS0kiQT7ZB01pHyHPi92p20wSXfhcOqIR UwpLxjnLGeW4RbkPXuSogODPGbdrKiVROH+WTc2mCmDbnSo4ViOJvnGMXORX qoAN5Acyuxsl0SkWM9jdtALEl/2P1PRIovzeuOtOaRWgUWjymDUliYp6d0ud VK8E701zWrvkpNDBrsxb7cerYCZ6sspSXgrJuT0ylj5XBX4cYyaBSlJIvaXU yNqnCoL/9J2vVpNCFkkGP1PiqyCaWn/PUk8K9Udw8ph1V0HujTR6gKUUUrG7 Fp5sWw1DI4b+VRFSKD+kQO+EVQ0YZjQ/V46WQjUrG6+XudRA5mnbpvj7Uqjj +xZT8es1YN/oK+uYKIWmij7XxCTXwLeizK+cWVJoo/UdFN5TA+1B/ygHyqVQ 9FTT7cfmtVAlUkqtn5NCo2XVP5FeHcg0HphTW5JC+gc3R0scrYPQ8DZSyqoU 0t7z2KLfug70F1lX3Dik0cPCT3rKV+qgtHcziZcgjSS//xCrza2Ddy/9Lh9V kUbPkg3fCxDq4fn+XZJNF6RR2cNXoV3N9VB1gu/2qpM0ev5kXf0Uox4Gzw2N K7lJo4OCxf6lQ/UgF5ZYetdbGi11nmu0XKqH7LplGxQkjX7MHPR6Q2mAHNOq lP8SpNEhk337Ji82QN35NLbBZGmU9W+dbHS9AUZ9r7oR0qSRugNv6p3QBpBP kNe6+EwaGU1NGXTEN8ALelSP/GtpZJYh4/TwQwPkXjAXT62XRuOPwtQfrzRA w+UdNxto0qi2LOpQPQcVWLe5RxeapNEmD7v5QT4qKL74+N68UxqFbLPeMiRB hbxxSUvBn9Io83ljPI8OFfKvDD8KXZFGYb9ctb5fpQIt/Mvq67/4+QiHdwwF UWE8Mcmxj42ElLuZ9fQwKqh8Oqyhs4GEHLt2rMXEUaFgraB9VpSEvA7l3d76 igqFd/xEXHeS0DPZ9MiaXir81rMLu6NOQr2vx+2jBqmwY854NkuDhBokDAv1 Wfj7HcS6BrRJaKBxy5fLs1TIhf9SbA+SUI1fw9BGXhqwFlJ5A46QkG/wvc+G QjRQeB0WmGxCQrLXnKU9RWnwQsrsbKcZCYXLld2LkKZB9vIU+cQ5EuogTKI/ 6jQYLqLHeTmQ0O3xCwVP99BAzq2CPdqZhGyu33yvo0OD590Phuo9Saj0v12v kBENMv5TfWngT0Jc12R8gi1okHrRS3XPQxISowz2vr9Cg2/bLDLME0iorvqX r+l1Gmzt1SVcTiahU1N/23sCaZBylH/m9VMSUtCQ5Xl/iwaJCvnvFfNJiA/q Yp7dp0Hnj4fyhwpJKCZ/54+3D2kglhSQ7FxEQtn59uJvE2gQz3Uk4PkHErr5 QO1IcCoN4n4y9aSqSch5jih9MIcGrSkthTp1JNRSzc/b/JIGwic/kmyoJFTV OrhknE+D++V32ZJa8HilOM2uv6ZBs5+3b3E7CemnVnEbv6WB4E6rwfYuEvKx c1a5/h8NYtK21wj3klB1klFF/kcafDUT3KPaj6/fG7jvVQkN+Pnmc0wGSSgs YLIt9TMNovxrIiJZJKR0aiT0EEYDqlrB0stfJPRPr+ApVyUNNjIfuddNkhC9 e+9kURUNIiwdj3HOk1BfRKhuTy0eb9Pes85LJMTZkxjqU0+DsiOW3vWrJER4 ki++0ECDHqPmEKV1EgqcNeV0o9FgZv+hh9EcZCQnL2dS10gDAa2K5xPcZCT+ rGmB0ITXw27tYlNeMro1wcV7uJkGZ+VVekQJZFQTuCMoqJUG1ynZLD9RMkok 1Ixeb8PjKyG90iNORjdF9rWdb6dBgVgSv44EGfVuvo72dtCgXkhY+ok0Gf3N vaWzhHtw4z3VfxQyMtlxvvZFJw3WONjR+W1k5D6kwDToosHmvwGnqhTIKP7n cg4V9+7FGYdtKmR0jJNzo343DY5Pe169q0pGGqNBohm43X4N32HtIiPJgdzm 37jDRuySj+4hI8oiAxR6aPC0vzu3QIuMuugeF0/g/sQwLRXSI6P6tio7B9zt HQ2NPkBG4bUWmx1xTzQZ9LUbkpHq9ozMk7g3NpROah4kozdMFTYV3HJVGmzJ R8joe2ic3gz+Pv2yApFlE3w9+sWzL3Cf/rBd7sxJMvI38nE5hPtKUbrmF3P8 +eumF7rw89zP33yQbE1GjhHN5idx52bHWd+yxd312fgTHo/qdF73ITsy0hKa 1hHE/SMlLPDABTJKIpnvN8Xjtxy/Gv3SiYyqlNvNbuLxFou9+pTXjYx23HUP S8XzoRox8drTE99/PrkjC8/XkVsuFU3eZBS9k8cktYUGTkH9bWqXySjys/bc DTy/N/1ODz30IyMh/sH2E3j+i92P8lgFkxFfq8vJT3i9tDhWb/4UQkZb06l/ T1JpMG6npyRxG49/U+G/brzeyGaqJj8iyeh0980tr2pooGPy0g7FkhGd4wha xuvV4iDl0vM4MiqSM2Vo4vUcpUOMd0kmo0INdOPqFxrkaEZnNaSSkdVJ+2R/ vB8qVLneK6eTkWY+ycAD75d52YWeyWwyOqt2wUH8PQ3O83+Tvv6OjF4d1foQ /4oGgdzmaoz3ZLSp1E2BKw+fD+uNSLeEjAZ5OVwdX9CANvvFcR3D66E/2fdX Jg329D7Li2gio6N+ecmyiTQgqLotvWklIzHDZF3teBr8DlE9RO8gI9o6Sx89 wOef3OdhxW9kxDs3cJMcicfbs5NMG8XjyTmaJRdMg6myVO+ZMbx/tG9xlPvj /S504YvEBBkpKCYuHvajQfi7CVvPWTJyI0GlujcNVoI5j/GwUZDZcF/K4XP4 PM5xuZzKTkGJvsd93c7QoLuZ+liVk4Jsn8htDbCmwTtKHMuKh4I2HOKa8zKl gUeN1N2XAhTEeKCUlaFPAwb/3srDWykosPG9wz4JGtRpPmb1SlDQqab9L1w3 4fm0WxP2laKgilA79UgCPv/eVNk/JlMQc7fMvkweGhw2N10b205Bqf52TNIM FT6luu2L3k1BdxIDC53rqJCilFbYdIyCdq1tXz7pRIW52YM5t49T0OUN3Bkq dlQwLZ95om1KQW8ueSgvWFKBx/xoTI4ZBXm++C115hAV/IKXPW7YUBCtLTbT WYkKZi3WijtdKchwUqL07ngDCPiJZcWEURBB2eXOoQsN4AYVqYbhFLRNkMdC 83QDVPN6xS/doSAFwd5LRNMGCEyvvuUUSUGDpezlz/UaYKz+8nm9OAq6+i7m r9hm/HtAok3691P89y1096PUegipiE05VkJBkwUahsfl6mG8ryJhuRQ/jzPP jcIt9WC1Ohv3soyC+j4FsbML1cOOvbaRnBV4PkaCxcOW6oD+Sj7wcx2+v5Oa ZRNf62B3MnZGpZOC8ppEL/jh3z+jF6dJ/H8oSE9HwDL1Yy0cl7TMoW2TQSnU Kq9xUg2kDKtWnJGXQaEf7o04EmtguHDj998KMij16feVTu4aCEZlBGEVGXS/ PWhb+u9qKHCWCzbfJYP+qVklNpVUA1/RtFnvfhm0taOWLd+sGuqN77NNWsmg HRs9Jp7drAID7/ozIpEyqOqIRBWjsgIypBy2fZ2XQfracnuV3EtgW/XLpBNn ZNHXj25Kfb5vIW4nPjnKZZGcWoJtgkoWuMxytVGV5dDpdYEoGw8/cHg7Q4l8 IIf0W8zjXkMy1kDbeLtsTQ69mIjOPu+ah3kZ/Yyj4nbqOaM86paHEcpK0rtx HzZdeunpkYedLvQoncItrZcUde1iHsZ88HV62185JHnswkT0lTyMxzLufCzu ruNCSu9D8jCj/s369v/kEFaScJ09JQ8btZ465om78erzhTuP87Co1gYbf9yZ Ftcv8qXlYe2VAX7xuJW7/QxF0/Mwh+zvBXW4p+QrI7dl52Gh7hmSautyiNfA M/ZAUR62bfC6kh5ufuGee9S3eViD7cl9R3AXmW4IPv4fvn8TdnNH3LI3io9Y fsjDMlQdo5Jx32zXC3Mqy8MMX+qmZONeC63XZX3B90cWe/EWd8uRTROeWB6m KlJb2Yh7S8jy3itV+P4in7bQce9IfNCyUJ2HXeO41jeC+/dW1rnA2jxMIujE rxncnT85WH/r8rDyWfnlddy+Vf2utxrysP8Bwd+0SQ== "]]}, {GrayLevel[0], LineBox[CompressedData[" 1:eJwVlXk4ld3Xxw0lEs4gv5I5IoqEkFhbSpFkjMoQT5kyP4hKicqcqUyVKYRS KU2SWzITMsU55zY7mZ1zTKEn73n/2tfn2tdee+/v+q61pJ19LC5zcXBw8HFy cPz/GqicPeUsagWCb1eLVrZbQW2XlImNlDuUWZmbxZDcYaO+KkJKKgTOzd5d jd0UAk+q4yU3S0WDThunLWMiCjx1A71WJDPgc492qfibdOhad3vAkCwGY59V 7uvHi2ALdUR+VvITbEz/O/Lb5wP0VX8JnJn4BLEnCZeHxT9CSWH6t+myCiBr fTT/0/wRTP1NHacMKoF8V/14i0wFpPJVpP5yxYDnlmQ6pbESSI8buZg/ayDz Bv1ayko15DZn+01LNkGqfctLSlcdLKa/UxyMa4KtwtdLi2XrwdC1ZbRztQlM 3LnTeQPrYYZ7xbqiqxlERtTsrwo3gJau6eHoyFaoNj0+IGXaCB2v/nDJz7eD TsNp0/EXzXCreZ+xqmMX8F/CnfVE26Go7MOe5w+7QMcTKh/Zt0Nn+lFuudYu GLxbaJGc0w6yrraVO7S7IWq9VrmQ1AHN3HeUOcg9cO8U/c9/DzpARJdKaq/v hb2ZTg3HEn/Ay1fRVE9lCvgH7E5Rdu6CKdJUnLETBZJW/Y/Tr3eBfJCxnsID ClzKlpAJZN+bc4Q/d3SVAi8svdp3NHZBclOcy/k6KswdzFa8rtQNQaMJzBN2 OPi3qVnUTXVDNn9LBPH4EByW8XXWNukFPd3rdmEOQ8AdeSJY0KkXaN5KGvNX h8BNg2JeFdgLOzpj6a0lQ6Bl4vj1ZVYvJKWbGEURhiFb3qWoZ64XIuTaBDeo w1D+JlLFKuonuMKPjBn/UZDoTlH7mdMHHHnLFdTYUWiuJf+ZeN0H6ZvEaM35 o+BXxWdOqe6DxiYXieLeUYh0WuWxG+oDBas/eZcPj8HA/276DIj3w4Sb/IsB znEQfilxYym5H8JaTL5/Fx2HhP9CObfl9sMOZf+5SrVx8HiwqYT7VT+cXKg8 8OjyOGz33NKU2twPxaEW72yaxmFyNfiPKQcFPJJDqzoS6UDvaeYVd6EA11Le IFZMh6jefwLN/SmQadPI8aqGDq/e7E5xu0mBZjGyQfwiHUqFHI9BKgWUnhU1 GNn+gp70T0pJtRSY+dzVUSM5Ac+CXjjSdlHhjsQqs0xrAsQ9Zc1O7KGC2G0J cq75BASYVASlHqCCiaG79a2ICbCe164fPkaF0o6//Tq/JuC8uOU2FU8qeI/v HS1/OQndvjabPr2jwpBDP+/XpknoP1WRqYxRwbIvSvn72CQorR+Du41U0Gr5 FTIuOgV4hqFiL4UK3GUFBJHIKdirdrSJ7y8VghStD8nkTQF3fyQplocGE083 2Sl/mYI8PMJmTpAGban/PDNcmAL3QlfjC5I0SL8hrXfVcRoMg1z5OvVosHW5 45+Ia9MwZ3bCxcWQBqE+YdEJD6eBlClUjJ+mgbPzYPezlmlQGfS1CrSjwb6T T670ac5AqK+Ep0kwDb6Sd2ZoE2ZBc/917E0JDdTjG6uOK81CGe+Z1fDXNCjk CR4zN5wFrRK1Uc33NIhb7VXxuDELPXW9mmZfaXB28EF95sQsaMgKLev20qDR 9thMIfcccP+yqjlEpYFO5wLxrcQc+NMTJbYP0UCqzsK+xWoOtN16lsInaTBV Qlhcr56DbarjsnvWaWAnW72TlzYH/SYpQaYbNGh/4gPCK3OwPJ+lbs+NQ3li W8y+/fPQ9mjFWZkfh1tBcdL2GfMwLf7hdt5OHFjzOifcy+fByL9ShVMch0vu 056B7fOwU49r9wkpHOSU5Wj1XAy4o1l+LHoPDlul78gPajGgaO2806QqDo1H klRuHmfAWtik1Tl1HO7ZZmmKWzDgR25DUPkhHLgSP564cIUBbpjFo306OFQ/ rzuzdpUBvLXdjUa6ONxs6LTJuMMASV+zaxaAw9rfGdefTxigOe1atccAh4+i az5BJQzIPRZ+nXUMh6BDW4K3f2BAu00KscSQ/X4v6SjLDgYY5EuK40Y4vI5W TmTRGND3tabS9hQO3gU66UmTDLjr+CK62gSHaZp1UTsXE2IfKG1YncGh5Lfz a28hJoQcT/5x2wwHN2HfjwJiTMh/Niz7yByHPQdCq18oMEFd6pdArgUOY6di Gk9pMOGXxuXcFEsc8lzTOqb0maCRSF70t8LhYkR+X7QpE3yWs0TBGgeJ7LIh hQtMaDEt3vubzbSKqokGVya8e9KkkXUWh8zeFoZLADvepjhLVRscbFl9vzff Zu/X+KWVsVlEkM5REM8Ea1XmdklbHLr3LvAey2TCrvrA0RA2Jx/nII4WMoFG uChcw2YzJ4Gd4W+ZoP1585cVNguGikpLVzNBJKqMKXoOh9Z0+b3VrUxYsHha r8TmmHJ1Vcd+JrgKEcwU2XyyQ1/77zgTEhql80TYzDNjqv+ExYTMnJUOBjte 7RY7oyMbTDDsKGB8ZHP4bndzKj8LrhZqbPdhM4Kgc9d2sKA+ssCCzOa/5yOc dsqxQGZuorKA/Z/KoET3j6osCHSbcN3D5mvJT/xs9FhglHnb9SFbD62XJSHL xixI1IlsZ7H1Wm76cPuhDQs0dnx9q8fm8vHaaPVLLNhGmJEPYevtz9mZ1OXL ggCRCshj5+OA+GCGfygL0MFOwQp2vkqtVotfp7LATs5Q+j07v56+PG/OPGUB t8en2Ex2/hXjyBVzr1gQlVWw7mWKQ+G3/c37mlgwejtbe4Ttn0uDhztbelgg peGlHGGMg8z6CYrHCAuEhtWCyGy/ZR10nipaZ0Hm+ttTXGw/2pn6sE7wLgAn T+/GRbZfRT1urNGFF2AJ1Vi+OopDam7qVjnlBdCwspDfxfb7fUKLYu7FBXj7 wC5JVROHT5ri70y9FyARCxgfYtfTmIMP/Lm+AMV9A2WhB3HQKSVb2aQtwKtw AjlsPw4TRnahAm0LEBMTkFAig4Ow38stn6kLMO9CgEZJHCCdI9ltcgGCTxjK doux76fnF37btAj853hm34vgYBAx2x6iswiZ/zvM/ZyPXS8lcF7eaBE+v/Wb PsLD9uePpLHus4uQbthU84ULB4bkoVUV/0UIIt3MjGP3n6zKmzL0okXwWNfz dJqhwe8loUALkSUgi3GcX2+mwW5x542N3UuQkZfTea+eBqbHyqNLVZdg2l0l j6uGBgXJtlm8p5dAyIkjq+UjDSxUchuqIpZA3yTGs6CABqVuB0WVmEuwuGBg HXuD3Z+pVhh36zJ88D7TUs7u71sfDXv59S9DqefLqaSdNHhz3ltskL4Mzjmy N5zJNOCmRIZUcK7A0kCM/gB7XuT3Vaj5aa6AiH2529FZKntuShUN5K1ARWZV wvcPVPDomEn8FPIbpkZefPBhzzO/ujvOPvJroPZNyeczUEBizJBnWW0NeKMZ HBmaFGjh4iu5gdYggT/Bx0eFAnIonhl9bg04H4SJbJGkQH/Fw7D82DW4Y7Vv fuS/ftB/XZjVP78Ggw3fW2wq+oH4qJFi8HEdbHTU9eKU+6HMd5vlDqP/4LEv PbaMpw9yr1+ZOmDDgdyVJJxHzXogPPuP+eIMJ1rX7ZtQKOkEjq4hVHmNGzmg 89e+EDtgT4BLsJXiZtSXlLtJ7X0zjC2lneX/woNsNr417VqtA+Nxj9BkP17E LRDaa2T8FUzHEpUkJLaih00t1d5XKmDqm3NYYyk/4ncI2vG0/i1IJvV53C/n RySOG4zh52/BysHU2uozPxooLTh/MOktVP3WVhxq5EezKSkDW+zeQvJ+YvfK KD+qVuz0v8t6AzppmLy86DZEz/wg2iTzBuI8xNrv3tuGrggXNzknvgZlYq+4 gaMAWtQTGojUew70eHr4w8sC6P7zI8NPhZ/Dk60rv35dEUANcUoG+FQJbNu0 401csABKiS/jK0organlc4a9SQIIXSmafswqhgIa7u1eK4Cyr6ar/i0tArGi cSxhryAak5IR8D5cCFthyYm2IIieXA3msy/KhWB9Bd73a4Jo+Om/h8rCc4Fu cOFlAqcQauXSypOzz4Wak1/XjgoJoc0TJXw+pFy4ZhGfUqwohLYSxwbCb+bA 9GW5uiAnIbQS+tLb6FMWtMZZKxDbhdDyqS0lGxcz4XBCVNtUjxBKP0g8HCue CUVJnwNqaUKo4f0VOytKBtxJlf56dUoI0Vskl7OsMkCiY3nfPBcBdZ8NaSWZ pENvf02dtQQByaVtO+VomAonZs+vyFgT0E85nh6KazJkCUd03bIlIKEbs4Ib +5JhUef5K9oFAtKZMnl4gZUEOTHrrqnOBNRTaS/7JTQJ1uQf9/H5EpBH2kiK ZFoivHDGPzFiCKisJu11WlE8EPocb1RVE5Ca+AGyzPw9cNmItN1VS0AZqFNL LPIeVO55rR7cwD7vrpQXJnkP3AM5ZlXbCChyr6BfpPldqCHl2hdQCchtBbeM rIiAgNMjenHLBETOKcyXyQmDvppLnOf3EVHyr1afMt9AYOhTRENViOhxhDSe Ux8AW76eUc85SERiW04O6IoHwCHssCtdi4i+zMoa3Gr1hwefCd/9jxORsdKp PSJqvnCmvDI91oGIJizDzZKQC9QXCB/4kkhE6nJgKnJPEwZkY4yGUogoRv8/ Xt8r+2Dp6YYzdxoRqY1w5m2vIoNs3tRDoydEJLflucL4H0UsPKt6vaeYiBo8 FxSeMk5iemmeDXM1RLTQUfG1Q9UBexdV6yC1REQkV13yuV8+WJFxy47I30QU p96cPHzLF8vc1tk5u05Epv6BKpf4/bCwxEHDz1wk5GPvOGQp5Y+ZpK8pnyWQ 0KtjSqcm9QOwkWcHNmKVSMjPISX69KVgTLDhcfaKEwkJq8lqhguHYZzRT885 XCYh7byue8NnwrBF4xJynRsJVZdq3Z+LCcP62z5EJvuQUN/znBwSx20sv7fT Z38oCXUpzPZH0W9jh+m86J90EtqWZvbRPj8Cc9kcONTWRkLeLu9cFMbvYaKS TT/Xf5BQ41H9p87kSKxNS7xdoYeERglh/7ugH4kd8qz7Ek4lIS/GEZvIx5EY T9f2R4cmSOhcE5m780wUVpDz3jqLk4xaqSZeZ0uisTGd381e6mRUZpQ8YHIg Dku3NqnJ1CQjEb+E5ryzcdh6b5oj4zAZPVKvCM67GYdxRC++XtQlI2/G48aM vDisPO9kkbQ+GR00u39ApzEOu8OXcbfnNBmdG7wv4WkXj8n+1Ea6rmQ0f1E2 vjrkPnZNOnt6hwcZven37GGk38fito4op3mRUeiK+WJ71X1sUTdGnPkvGV2R Nrdc5UrAavMpa/lhZOS1UwtlRyVgTWc1TYojyMhgJ0f9z2cJ2L6+8Mm/98hI hSnrK9GcgD3gV+qzjSej8slFL4fNidiUdWKEeiIZkXb1rX8jJ2J/9Lrq36SQ kZi8y6SuXCL22la+ajCVjOT/vbnErZGIlW+9IzSWwdbDVySQbpCI/R+twSCB "]], LineBox[{{5.494481569464167, -0.021084977472746284`}, { 5.496943935750519, -0.021085880276231882`}, { 5.499867995715562, -0.021086782588416383`}, { 5.503099851466398, -0.021087566290338807`}, { 5.503933835270362, -0.02108773223936446}, { 5.509771721898077, -0.02108847898451102}, { 5.512940860353125, -0.02108858168688355}, { 5.516443592329757, -0.021088448837755493`}, { 5.519779527545596, -0.021088082940303236`}, { 5.522281478957478, -0.021087655928200298`}}], LineBox[{{5.8646967890075175`, -0.019984877024599813`}, { 5.867578819827511, -0.01996828809085068}, { 5.870526351347959, -0.019951220023482544`}, { 5.873801386370678, -0.019932135089249778`}, { 5.92620194673419, -0.019610167295064897`}, { 5.929103907985575, -0.01959145710132908}, { 5.932150967299529, -0.019571715845112837`}}], LineBox[{{6.510440506001159, -0.014660152576397089`}, { 6.513068990278015, -0.014634910720645265`}, { 6.5192536591647325`, -0.014575486098904212`}, { 6.531622996938168, -0.01445651109922109}, { 6.5346544311884065`, -0.014427329402651934`}, { 6.53723115030111, -0.014402518096146113`}}], LineBox[{{5.383521188685446, -0.020901217344722497`}, { 5.386137452864694, -0.020908934808738296`}, { 5.389215410722633, -0.020917795201883565`}, { 5.391831674901882, -0.020925141067392426`}, { 5.395571393699279, -0.0209353466079569}, { 5.399372671653834, -0.020945366258861304`}, { 5.401527242154392, -0.02095088765575046}, { 5.405528587369713, -0.02096084015810389}, { 5.40768315787027, -0.020966037423504783`}, { 5.409683830477931, -0.02097076241578786}, { 5.414146869371944, -0.020980953476056902`}, { 5.41691703144409, -0.020987037312585333`}, { 5.41845601037306, -0.020990337548740925`}, { 5.421687866123896, -0.02099708341416987}}], LineBox[{{5.609049153921468, -0.02099538750621704}, { 5.61285212006752, -0.02098805096115687}, { 5.613185713589109, -0.020987394798640986`}, { 5.616354852044157, -0.0209810602198285}}], LineBox[{{5.805516906146974, -0.020302785244585418`}, { 5.808300685916287, -0.020288838386470887`}, { 5.8115757209390075`, -0.020272298908245254`}, { 5.814850755961727, -0.020255618150938137`}, { 5.8179620392333105`, -0.020239641323007204`}, { 5.819681432620236, -0.020230757898750618`}, { 5.824872363131248, -0.0202037060655072}, { 5.828605903057147, -0.020184034775682057`}, { 5.831225931075323, -0.020170123966587853`}, { 5.834828469600315, -0.020150854188244804`}, { 5.837776001120764, -0.0201349660324533}, { 5.842852305405976, -0.020107347583964583`}, { 5.844326071166202, -0.02009926911927403}, { 5.8484198649446, -0.020076687713230908`}, { 5.850876141211641, -0.020063039671468372`}, { 5.852677410474139, -0.020052984066171675`}}], LineBox[{{6.021202994016361, -0.018954232463215828`}, { 6.023952220465041, -0.018934003179966255`}, { 6.026701446913721, -0.018913708775188182`}, { 6.027037463479675, -0.018911223901463676`}, { 6.033269043430013, -0.01886496648148238}, { 6.036171004681398, -0.018843312957085953`}, { 6.039225700735487, -0.018820443542958455`}, { 6.0412112531706414`, -0.01880553675108033}}], LineBox[{{6.426483625863968, -0.015460835758088237`}, { 6.4271020927526425`, -0.015454985842835646`}, { 6.42905026345196, -0.015436553093920153`}, { 6.436997562971387, -0.015361274154365957`}, { 6.4388529636374034`, -0.015343680084067227`}, { 6.445037632524121, -0.015284982277163232`}, {