(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 9.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 157, 7] NotebookDataLength[ 12114, 368] NotebookOptionsPosition[ 10608, 322] NotebookOutlinePosition[ 10990, 338] CellTagsIndexPosition[ 10947, 335] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[BoxData[ RowBox[{"1", "+", "1"}]], "Input", CellChangeTimes->{{3.6331480691748085`*^9, 3.6331480842386703`*^9}, { 3.633148126393081*^9, 3.633148127351136*^9}}], Cell[BoxData[ RowBox[{"Sin", "[", "25.", "]"}]], "Input", CellChangeTimes->{{3.6331485245318537`*^9, 3.6331485363685303`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"1", ",", "6", ",", "5"}], "}"}]], "Input", CellChangeTimes->{{3.633148558268783*^9, 3.6331485730236273`*^9}}], Cell[BoxData[ RowBox[{"(", RowBox[{"5", "-", RowBox[{"(", RowBox[{"3", "+", RowBox[{"Sin", "[", "x", "]"}]}], ")"}]}], ")"}]], "Input", CellChangeTimes->{{3.633148590981654*^9, 3.633148601136235*^9}}], Cell[BoxData[ RowBox[{"myvar", "=", "5"}]], "Input", CellChangeTimes->{{3.6331487013179655`*^9, 3.6331487097034445`*^9}}], Cell[BoxData[ SqrtBox["2"]], "Input", CellChangeTimes->{3.633148798722536*^9}], Cell[BoxData[ SqrtBox["4"]], "Input", CellChangeTimes->{{3.633148853299658*^9, 3.633148854056701*^9}}], Cell[BoxData[ SqrtBox["2."]], "Input", CellChangeTimes->{{3.633148909960899*^9, 3.6331489115119877`*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"N", "[", RowBox[{ SqrtBox["2"], ",", "100"}], "]"}], ";"}]], "Input", CellChangeTimes->{{3.633148993006649*^9, 3.633149004617313*^9}, { 3.6331490439295616`*^9, 3.6331490446256013`*^9}, {3.6331491438182745`*^9, 3.633149188688841*^9}, {3.633149253729561*^9, 3.6331492622730503`*^9}, { 3.6331493192983117`*^9, 3.633149339657476*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"var", "=", "5"}], ";"}]], "Input", CellChangeTimes->{{3.6331493631138177`*^9, 3.6331493676560774`*^9}}], Cell[BoxData[ RowBox[{"var", " ", "=", "5"}]], "Input", CellChangeTimes->{{3.633149444348464*^9, 3.633149448631709*^9}}], Cell[BoxData[ RowBox[{"(*", RowBox[{"vari", "=", "5"}], "*)"}]], "Input", CellChangeTimes->{{3.633149513406414*^9, 3.633149531096426*^9}}], Cell[BoxData[{"vari", "\[IndentingNewLine]", "var"}], "Input", CellChangeTimes->{{3.6331495457322626`*^9, 3.633149550630543*^9}}], Cell[BoxData[{ RowBox[{ SqrtBox["6"], RowBox[{"(*", RowBox[{"ctrl", "+", "2"}], "*)"}], ";"}], "\[IndentingNewLine]", RowBox[{ SuperscriptBox["5", "6"], " ", RowBox[{"(*", RowBox[{"ctrl", "+", "6"}], "*)"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ FractionBox["7", "6"], RowBox[{"(*", RowBox[{"ctrl", "+", "/"}], "*)"}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"\[Integral]", RowBox[{ SuperscriptBox["t", "7"], "*", SuperscriptBox["E", "t"], RowBox[{"\[DifferentialD]", "t"}]}]}]}], "Input", CellChangeTimes->{{3.6331496283139863`*^9, 3.633149753090123*^9}, { 3.6331498372179346`*^9, 3.6331498384900074`*^9}, {3.633149882926549*^9, 3.633149916186452*^9}}], Cell[BoxData[ RowBox[{"DSolve", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"y", "''"}], "[", "t", "]"}], "+", RowBox[{"3", "*", RowBox[{ RowBox[{"y", "'"}], "[", "t", "]"}]}], "+", RowBox[{"6", "*", RowBox[{"y", "[", "t", "]"}]}]}], "==", RowBox[{"Sin", "[", "t", "]"}]}], ",", RowBox[{"y", "[", "t", "]"}], ",", "t"}], "]"}]], "Input", CellChangeTimes->{{3.633150056114455*^9, 3.633150060135685*^9}, { 3.633150275745017*^9, 3.6331503147472477`*^9}, {3.6331510932767773`*^9, 3.633151122324439*^9}}], Cell[BoxData[""], "Input", CellChangeTimes->{3.6331502015687747`*^9}], Cell[BoxData[{ RowBox[{"vari", "=", "5"}], "\[IndentingNewLine]", RowBox[{"Solve", "[", RowBox[{"vari", "\[Equal]", "5"}], "]"}]}], "Input", CellChangeTimes->{{3.6331509319995527`*^9, 3.633150936937835*^9}, { 3.6331509850815887`*^9, 3.633150992049988*^9}}], Cell[BoxData[ RowBox[{"Solve", "[", RowBox[{ RowBox[{"varib", "+", "3"}], "\[Equal]", "5"}], "]"}]], "Input", CellChangeTimes->{{3.6331509425531564`*^9, 3.6331509614342365`*^9}}], Cell[BoxData[{ RowBox[{"vari", "=", "6"}], "\[IndentingNewLine]", RowBox[{"vari", "\[Equal]", "5"}]}], "Input", CellChangeTimes->{{3.6331509998614345`*^9, 3.633151001777544*^9}, { 3.6331510340893917`*^9, 3.633151036818548*^9}}], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{"DSolve", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"y", "'"}], "[", "t", "]"}], "\[Equal]", "6"}], ",", RowBox[{"y", "[", "t", "]"}], ",", "t"}], "]"}]}]], "Input", CellChangeTimes->{{3.633151129140829*^9, 3.633151156707405*^9}, { 3.6331511945865717`*^9, 3.633151251163808*^9}}], Cell[BoxData[ RowBox[{"Solve", "[", RowBox[{ RowBox[{ RowBox[{"5", "+", "y"}], "\[Equal]", "3"}], ",", "y"}], "]"}]], "Input", CellChangeTimes->{{3.633151301497687*^9, 3.63315130312178*^9}, { 3.633151341076951*^9, 3.6331513635312347`*^9}, {3.6331514371544456`*^9, 3.6331514484670935`*^9}}], Cell[BoxData[ RowBox[{"Solve", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"x", "+", "y"}], "\[Equal]", "3"}], ",", RowBox[{ RowBox[{"x", "-", "y"}], "\[Equal]", "5"}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.6331514830740724`*^9, 3.6331515116747084`*^9}}], Cell[BoxData[ RowBox[{"1", " ", "2"}]], "Input", CellChangeTimes->{{3.633151702050597*^9, 3.6331517032026634`*^9}}], Cell[BoxData[ RowBox[{"\[Integral]", RowBox[{ RowBox[{"Sin", "[", "x", "]"}], "*", RowBox[{"Cos", "[", "x", "]"}], RowBox[{"\[DifferentialD]", "x"}]}]}]], "Input", CellChangeTimes->{{3.6331517103300705`*^9, 3.6331517726026325`*^9}}], Cell[BoxData[ RowBox[{"myLap", "=", RowBox[{"LaplaceTransform", "[", RowBox[{ SuperscriptBox[ RowBox[{"(", RowBox[{"Sin", "[", "t", "]"}], ")"}], "4"], ",", "t", ",", "s"}], "]"}]}]], "Input", CellChangeTimes->{{3.633152084498472*^9, 3.6331521127280865`*^9}, { 3.6331521954578185`*^9, 3.6331522326929483`*^9}, {3.6331522884601383`*^9, 3.6331522940994606`*^9}}], Cell[BoxData[ RowBox[{"myInvLap", "=", RowBox[{"InverseLaplaceTransform", "[", RowBox[{"myLap", ",", "s", ",", "t"}], "]"}]}]], "Input", CellChangeTimes->{{3.6331522988927345`*^9, 3.6331523090833178`*^9}, { 3.6331525291239033`*^9, 3.633152536227309*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"t", "=", "5"}], ";"}], "\[IndentingNewLine]", RowBox[{"Plot", "[", RowBox[{ RowBox[{"Sin", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", RowBox[{"6", "Pi"}]}], "}"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}], ",", RowBox[{"PlotLabel", "\[Rule]", "\"\\""}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Thick", ",", "Dashed", ",", "Red"}], "}"}]}]}], "]"}]}], "Input", CellChangeTimes->{{3.6331527662224646`*^9, 3.6331527683545866`*^9}, 3.633152808821901*^9, {3.6331530184148893`*^9, 3.6331530289174895`*^9}, { 3.6331530630044394`*^9, 3.6331530676607056`*^9}, {3.6331531043748055`*^9, 3.633153133581476*^9}, {3.633153305670319*^9, 3.633153329078658*^9}, { 3.6331534422301297`*^9, 3.6331534682406178`*^9}}], Cell[BoxData[{ RowBox[{"DSolve", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"y", "'"}], "[", "t", "]"}], "+", RowBox[{"5", "*", RowBox[{"y", "[", "t", "]"}]}]}], "\[Equal]", RowBox[{"Sin", "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"y", "[", "0", "]"}], "\[Equal]", "3"}]}], "}"}], ",", RowBox[{"y", "[", "t", "]"}], ",", "t"}], "]"}], "\[IndentingNewLine]", RowBox[{"ClearAll", "[", "t", "]"}], "\[IndentingNewLine]", RowBox[{"sol", "=", RowBox[{ RowBox[{"y", "[", "t", "]"}], "/.", RowBox[{ RowBox[{"DSolve", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{ RowBox[{"y", "'"}], "[", "t", "]"}], "+", RowBox[{"5", "*", RowBox[{"y", "[", "t", "]"}]}]}], "\[Equal]", RowBox[{"Sin", "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"y", "[", "0", "]"}], "\[Equal]", "3"}]}], "}"}], ",", RowBox[{"y", "[", "t", "]"}], ",", "t"}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}]}]}], "Input", CellChangeTimes->{{3.6331538092741237`*^9, 3.6331538744318504`*^9}, { 3.633154055752221*^9, 3.633154089969178*^9}, 3.633154351528139*^9, { 3.633154446151551*^9, 3.6331544835786915`*^9}, {3.633154571120699*^9, 3.6331546011514163`*^9}}], Cell[BoxData[ RowBox[{"a", "/.", RowBox[{"a", "\[Rule]", "3"}]}]], "Input", CellChangeTimes->{{3.6331539884433713`*^9, 3.6331539912035294`*^9}}], Cell[BoxData[ RowBox[{"b", "/.", RowBox[{"{", RowBox[{ RowBox[{"a", "\[Rule]", "3"}], ",", RowBox[{"b", "\[Rule]", "2"}]}], "}"}]}]], "Input", CellChangeTimes->{{3.633154003140212*^9, 3.633154031019807*^9}}], Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{"sol", ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", RowBox[{"6", "Pi"}]}], "}"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ",", "\"\\""}], "}"}]}], ",", RowBox[{"PlotLabel", "\[Rule]", "\"\\""}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"{", RowBox[{"Thick", ",", "Dashed", ",", "Red"}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.6331541392079945`*^9, 3.6331541407910852`*^9}}], Cell[BoxData[ RowBox[{"TreeForm", "[", RowBox[{"{", RowBox[{"1", ",", "2", ",", "5", ",", RowBox[{"{", RowBox[{"3", ",", "1"}], "}"}], ",", "6"}], "}"}], "]"}]], "Input", CellChangeTimes->{{3.6331541878817787`*^9, 3.633154201284545*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"{", RowBox[{"1", ",", "2", ",", "5", ",", RowBox[{"{", RowBox[{"3", ",", "1"}], "}"}], ",", "6"}], "}"}], "[", RowBox[{"[", RowBox[{"4", ",", "3"}], "]"}], "]"}]], "Input", CellChangeTimes->{{3.633154252333465*^9, 3.6331542641411405`*^9}, { 3.6331543042774363`*^9, 3.633154323965562*^9}}] }, WindowSize->{1280, 761}, WindowMargins->{{Automatic, 18}, {Automatic, 19}}, Magnification->2.0000009536743164`, FrontEndVersion->"8.0 for Microsoft Windows (64-bit) (February 23, 2011)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[557, 20, 168, 3, 57, "Input"], Cell[728, 25, 128, 2, 57, "Input"], Cell[859, 29, 150, 3, 57, "Input"], Cell[1012, 34, 220, 6, 57, "Input"], Cell[1235, 42, 123, 2, 57, "Input"], Cell[1361, 46, 80, 2, 65, "Input"], Cell[1444, 50, 104, 2, 65, "Input"], Cell[1551, 54, 107, 2, 65, "Input"], Cell[1661, 58, 381, 8, 73, "Input"], Cell[2045, 68, 139, 3, 57, "Input"], Cell[2187, 73, 122, 2, 57, "Input"], Cell[2312, 77, 143, 3, 57, "Input"], Cell[2458, 82, 130, 1, 92, "Input"], Cell[2591, 85, 748, 22, 628, "Input"], Cell[3342, 109, 574, 16, 250, "Input"], Cell[3919, 127, 70, 1, 120, "Input"], Cell[3992, 130, 265, 5, 250, "Input"], Cell[4260, 137, 186, 4, 172, "Input"], Cell[4449, 143, 233, 4, 250, "Input"], Cell[4685, 149, 361, 9, 246, "Input"], Cell[5049, 160, 306, 7, 166, "Input"], Cell[5358, 169, 369, 11, 166, "Input"], Cell[5730, 182, 117, 2, 120, "Input"], Cell[5850, 186, 248, 6, 178, "Input"], Cell[6101, 194, 394, 10, 132, "Input"], Cell[6498, 206, 265, 5, 120, "Input"], Cell[6766, 213, 921, 20, 274, "Input"], Cell[7690, 235, 1380, 38, 274, "Input"], Cell[9073, 275, 149, 3, 120, "Input"], Cell[9225, 280, 225, 6, 120, "Input"], Cell[9453, 288, 540, 13, 198, "Input"], Cell[9996, 303, 257, 6, 120, "Input"], Cell[10256, 311, 348, 9, 120, "Input"] } ] *) (* End of internal cache information *)