Bode+plot+Example

Bode+plot+Example - (* Content-type:...

Info iconThis preview shows pages 1–3. Sign up to view the full content.

View Full Document Right Arrow Icon
(* 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[ 53234, 1022] NotebookOptionsPosition[ 52559, 997] NotebookOutlinePosition[ 53088, 1016] CellTagsIndexPosition[ 53045, 1013] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["\<\ Bode Plots for RC Low-Pass Filter \ \>", "Section", CellChangeTimes->{{3.456772757477298*^9, 3.4567727627548866`*^9}, { 3.457657540762216*^9, 3.457657546270136*^9}, {3.4576972822520494`*^9, 3.4576972860374928`*^9}, {3.4578734790444765`*^9, 3.4578734863750176`*^9}, {3.4579198589651456`*^9, 3.457919868669099*^9}, { 3.4893548093919425`*^9, 3.489354810960032*^9}, {3.489354967826004*^9, 3.489354969432096*^9}, {3.489355155044712*^9, 3.4893551631421757`*^9}, 3.4893553329238863`*^9, {3.489355737222011*^9, 3.4893557467755575`*^9}, { 3.4905550226689014`*^9, 3.4905550236129556`*^9}, {3.4905567868638077`*^9, 3.4905568080310183`*^9}, {3.491219158732914*^9, 3.4912191643492355`*^9}, { 3.513091699862682*^9, 3.5130917287071323`*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"R", "=", "1"}], ";", RowBox[{"c", "=", "0.2"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"H", "[", "\[Omega]_", "]"}], ":=", FractionBox["1", RowBox[{"1", "+", RowBox[{ "\[ImaginaryI]", "*", "\[Omega]", "*", "R", "*", "c"}]}]]}], "\[IndentingNewLine]", RowBox[{"M", "=", RowBox[{"20", "*", RowBox[{"Log", "[", RowBox[{"10", ",", RowBox[{"Abs", "[", RowBox[{"H", "[", "\[Omega]", "]"}], "]"}]}], "]"}]}]}], "\[IndentingNewLine]", RowBox[{"LogLinearPlot", "[", RowBox[{"M", ",", RowBox[{"{", RowBox[{"\[Omega]", ",", SuperscriptBox["10", RowBox[{"-", "2"}]], ",", SuperscriptBox["10", "3"]}], "}"}], ",",
Background image of page 1

Info iconThis preview has intentionally blurred sections. Sign up to view the full version.

View Full DocumentRight Arrow Icon
RowBox[{"GridLines", "\[Rule]", "Automatic"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\<\[Omega]\>\"", ",", "\"\<M(dB)\>\""}], "}"}]}]}], "]"}], "\[IndentingNewLine]", RowBox[{"LogLinearPlot", "[", RowBox[{ RowBox[{ RowBox[{"Arg", "[", RowBox[{"H", "[", "\[Omega]", "]"}], "]"}], "*", FractionBox["180", "\[Pi]"]}], ",", RowBox[{"{", RowBox[{"\[Omega]", ",", SuperscriptBox["10", RowBox[{"-", "2"}]], ",", SuperscriptBox["10", "3"]}], "}"}], ",", RowBox[{"GridLines", "\[Rule]", "Automatic"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{"\"\<\[Omega]\>\"", ",", "\"\<Phase(\[Degree])\>\""}], "}"}]}]}], "]"}]}], "Input", CellChangeTimes->CompressedData[" 1:eJwdy1kowwEAx/GZzDxNlsjxMFcsUXixWP65U+4YtZUraUwpVxReFPYg5Mhd HiRXGGHLNtdmzMoRizJF+09uQ678f3v49nn6cgorM0voNBqNQwUZCXOZ8SqS YAYKsiC7uF9gVZPE20RSHtxzTlIyN0nCL1xlM7/cpBFR+tP2tbD+WiSppjSM D3ZDH9n3KNQ6TY3BAf75Mtz7M69A6cWXHOpbErZg64lUKbSzELOHdB0c2bA3 wIK7BRMc+hi4hY1iDxL+3FsfYMNJqrOIkh2W6wrXOkrdYON2jiesc3n1g3TJ YhBkTsbz4M2MAx8yfPtiIa/nMQUKdNw0eOqYnAV7X6qFtp8hL4LbEZ5lULZq KodGbmcFTOyJ61qiVLR5D8MRve8KNIZaFXDe6VsF+dGjahgi4migV/3uMTSr
Background image of page 2
Image of page 3
This is the end of the preview. Sign up to access the rest of the document.

Page1 / 17

Bode+plot+Example - (* Content-type:...

This preview shows document pages 1 - 3. Sign up to view the full document.

View Full Document Right Arrow Icon
Ask a homework question - tutors are online