(* Content-type: application/mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 7.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[      5133,        133]
NotebookOptionsPosition[      4748,        115]
NotebookOutlinePosition[      5111,        131]
CellTagsIndexPosition[      5068,        128]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"f", "[", "dB_", "]"}], ":=", 
    RowBox[{"If", " ", "[", 
     RowBox[{
      RowBox[{"dB", "\[GreaterEqual]", 
       RowBox[{"-", "0.0001"}]}], ",", " ", "9", ",", "\[IndentingNewLine]", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{"dB", "<", 
         RowBox[{"-", "36"}]}], ",", "0", ",", "\[IndentingNewLine]", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{"dB", "\[GreaterEqual]", 
           RowBox[{"-", "12"}]}], ",", " ", 
          RowBox[{"8", "+", 
           RowBox[{"Ceiling", "[", 
            RowBox[{"dB", "/", "3"}], "]"}]}], ",", "\[IndentingNewLine]", 
          " ", 
          RowBox[{"6", "+", 
           RowBox[{"Ceiling", "[", 
            RowBox[{"dB", "/", "6"}], "]"}]}]}], "]"}]}], "]"}]}], "]"}]}], 
   ";"}], "\n"}]], "Input",
 CellChangeTimes->{{3.667542601598064*^9, 3.667542679179571*^9}, {
  3.667542752690218*^9, 3.667542775353302*^9}, {3.667543408544273*^9, 
  3.667543422121401*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"f", "[", "dB", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"dB", ",", 
     RowBox[{"-", "45"}], ",", "0"}], "}"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.667542685547172*^9, 3.667542713019808*^9}, {
  3.667542793200061*^9, 3.6675427962136097`*^9}, {3.6675428264562674`*^9, 
  3.667542901452735*^9}, {3.667543353440959*^9, 3.667543353624638*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJxN0Xs0FHgUB/AxTB4xxvs1XoPSqBRqphgz3krYvJNUShkVDSmM0FshNpoV
Vo1SKlla0WxS5FXJCB1NDywiFIMoZOzuWf1u95x77vmce/+6X/2gcI9gLAaD
qf+3/5trW12+zSc4PsYsVGnBO55lPHh5zAH2kTgwSS9NNBINlgtrlehkgfuk
tyhU7gJn2OwhRzuBhSWJAUI8uM3YeXlgpgNy8gbTbcP64C45SeeKUnvkgH2s
PAwVXMya9WbW2yEvU1CPcXcB072MfA612iKPSOrsLW0B5z1QjR5pBotIUtkh
z8GVY0PvA2rB69NKgh3KwRbPLKNUs8F9Ry1Oe2aBM1ev+C2dA57I0uHJZIDv
7hWbEyWDTXENJweOgskMj8z7O8HW1tPZ/O1gD6sr3P5tYDZ1pFjZH9y06tzT
gx7gcP0akbEd+KQuE8ewAWdpE2R96eDHGoEapyzBiooz5n+bg8uwZsxLhuBG
jCC8hAR+J0o43KAHxs2+ODFJBPtMMPM2q4BDxwgFIUrghNGK2wkK4MJhHO+O
3E/5DBY9ql0MbhnwrH8rDZ7u5bZJLwLje5zf6EmASd2j3RQseG0nZ8ANA974
jjYSLLJZsJAe+Tp5NmMGnNsukKqZAn9uijLQGQVb1ylYxw6AzQKOPQktBi+d
EDpvjQIX1T6WY+PA/qYG1uopDOT3tgX8dk0woSvykjaDjuxjGvMLp8Ea+feE
eEl5d3DfwzNyk2Zgk+/pSm9VwZUuShfb5cFuORdVm6XAak98OjbiwN1DalkN
YuCbigI/exHtx/8YEeuzNapnwBxBHrHsE5gXfVX3RifYafKeSeR18CtWI4Ue
BtaUSHzg9cUKOZBDoYfGgi/I9ku1cyyR1e7xblKvrEduuxZWpVm8Dvl03cdl
JjTw+v6gi5ZNVGRju8FEbBpY9Ur4/qebwanNZj3LzcESc5O+6crg/MY9awZl
wYzMDkVbHFh+Ju1YmBi4c7uzMHuOsmApRlEdZnvDNJhtwnsxMQkur8lOKugH
j2+Js/PtAF+tLGRLBIO9dF/9WTq+FnnERD7rrCJYEBrmGaC7Bjl8VvblASsL
ZJ+qFqNYR3PkYDsDmUcvzJAPNUaNiHuDP3u2zr+jgvd0rVQoJ4JJRu8v5ePB
XaHJpDQM2O17ub3M3OoFExhVqT17Tk2DV+jiz2KmwLkl626zx8GxbemjrGGw
39SAeUgfeKMc10ezCEwz9I9pivxpPxxILp5ehex7d9fbtAQwxXDLvAHFFNk0
4o6pQfQK5GeGm/DqGSbINfw39JclZGReLJN1rnkZciDzSVSfJxjrpx1rLTBG
9nLfGDecA77ueCQ+KxDsXpM6P0IHf6NdS3TQB79gm1YLFcD5vL/EcrHgFD9M
/tjM0gUrMw5/dbB1mgDv4CT35A6DXda8PD7eC7beXev6QbQE2SyjQv21BvhM
wg7OfT9DZHFj/yKDYAPkhBbPmvMsEnLtqP+cgTdYSj6IyqOCb+V9eHWCDHZd
yYx0I4J1psg15ipg4cNPBA08uPpU8XbRIvAF14PFvfP6C1ZnEFPiDfEN4OvP
UrKp58E8p5unU4ngptq6iJ5beshJPU72eKYucoylxFXfOG3k16QTgzlZWsgU
Geyq7jIN5L791fkEe3A6P1HFpk0duT+x202QDaaZMZJYQeCPMsJrNEdwZu/l
amkyeIj/lT+qBaZXune+kvvpvvDGpwfzagsmMoYy52e4Y2B7//huLAGcpztX
t2ulKvIXvANdy0EZ2UWUcr91qyLyVLpnuWQGAdnOySIkJlMOeVvIQ9eb7YuR
j5x1NBcoyyBLaC5eMmYhjfzrLb66tLcUcr6VsZrsOnBZc6KKvDa4fodASVEM
/Hp8taLKB8kF6zFmVXvxWnfAOpaZi/WjwLtPTEmswIFvP/cTUS8uQjbqmDc6
+RSLTKtzzcmbnXv0w8eZnO/k/inkdK2qB2HcUeQNLIUkJd4Asvj5p4UHuV3I
lb3EKBVeB/JgRPfxQ1w+cn6jubsGrwH5nhWeEsd9hBx2Yae4Pq8CeVML83Iy
9w9k3JKH+1bxbiCzv+odvMW9jCxwSFP4yE1DZjWvXFrRUlz1v0mMfwAlRkqG

     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{All, All},
  PlotRangeClipping->True,
  PlotRangePadding->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.667542705553397*^9, 3.667542713344948*^9}, {
   3.667542756377108*^9, 3.6675428644740667`*^9}, {3.6675428945778723`*^9, 
   3.6675429017084513`*^9}, 3.6675433540772123`*^9, {3.66754341782261*^9, 
   3.667543423084831*^9}}]
}, Open  ]]
},
WindowSize->{640, 750},
WindowMargins->{{480, Automatic}, {Automatic, 244}},
ShowSelection->True,
FrontEndVersion->"7.0 for Mac OS X x86 (32-bit) (February 18, 2009)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[545, 20, 1017, 27, 88, "Input"],
Cell[CellGroupData[{
Cell[1587, 51, 456, 10, 27, "Input"],
Cell[2046, 63, 2686, 49, 245, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)