1 | (* Content-type: application/mathematica *)
|
---|
2 |
|
---|
3 | (*** Wolfram Notebook File ***)
|
---|
4 | (* http://www.wolfram.com/nb *)
|
---|
5 |
|
---|
6 | (* CreatedBy='Mathematica 7.0' *)
|
---|
7 |
|
---|
8 | (*CacheID: 234*)
|
---|
9 | (* Internal cache information:
|
---|
10 | NotebookFileLineBreakTest
|
---|
11 | NotebookFileLineBreakTest
|
---|
12 | NotebookDataPosition[ 145, 7]
|
---|
13 | NotebookDataLength[ 5133, 133]
|
---|
14 | NotebookOptionsPosition[ 4748, 115]
|
---|
15 | NotebookOutlinePosition[ 5111, 131]
|
---|
16 | CellTagsIndexPosition[ 5068, 128]
|
---|
17 | WindowFrame->Normal*)
|
---|
18 |
|
---|
19 | (* Beginning of Notebook Content *)
|
---|
20 | Notebook[{
|
---|
21 | Cell[BoxData[
|
---|
22 | RowBox[{
|
---|
23 | RowBox[{
|
---|
24 | RowBox[{
|
---|
25 | RowBox[{"f", "[", "dB_", "]"}], ":=",
|
---|
26 | RowBox[{"If", " ", "[",
|
---|
27 | RowBox[{
|
---|
28 | RowBox[{"dB", "\[GreaterEqual]",
|
---|
29 | RowBox[{"-", "0.0001"}]}], ",", " ", "9", ",", "\[IndentingNewLine]",
|
---|
30 | RowBox[{"If", "[",
|
---|
31 | RowBox[{
|
---|
32 | RowBox[{"dB", "<",
|
---|
33 | RowBox[{"-", "36"}]}], ",", "0", ",", "\[IndentingNewLine]",
|
---|
34 | RowBox[{"If", "[",
|
---|
35 | RowBox[{
|
---|
36 | RowBox[{"dB", "\[GreaterEqual]",
|
---|
37 | RowBox[{"-", "12"}]}], ",", " ",
|
---|
38 | RowBox[{"8", "+",
|
---|
39 | RowBox[{"Ceiling", "[",
|
---|
40 | RowBox[{"dB", "/", "3"}], "]"}]}], ",", "\[IndentingNewLine]",
|
---|
41 | " ",
|
---|
42 | RowBox[{"6", "+",
|
---|
43 | RowBox[{"Ceiling", "[",
|
---|
44 | RowBox[{"dB", "/", "6"}], "]"}]}]}], "]"}]}], "]"}]}], "]"}]}],
|
---|
45 | ";"}], "\n"}]], "Input",
|
---|
46 | CellChangeTimes->{{3.667542601598064*^9, 3.667542679179571*^9}, {
|
---|
47 | 3.667542752690218*^9, 3.667542775353302*^9}, {3.667543408544273*^9,
|
---|
48 | 3.667543422121401*^9}}],
|
---|
49 |
|
---|
50 | Cell[CellGroupData[{
|
---|
51 |
|
---|
52 | Cell[BoxData[
|
---|
53 | RowBox[{"Plot", "[",
|
---|
54 | RowBox[{
|
---|
55 | RowBox[{"f", "[", "dB", "]"}], ",",
|
---|
56 | RowBox[{"{",
|
---|
57 | RowBox[{"dB", ",",
|
---|
58 | RowBox[{"-", "45"}], ",", "0"}], "}"}], ",",
|
---|
59 | RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]], "Input",
|
---|
60 | CellChangeTimes->{{3.667542685547172*^9, 3.667542713019808*^9}, {
|
---|
61 | 3.667542793200061*^9, 3.6675427962136097`*^9}, {3.6675428264562674`*^9,
|
---|
62 | 3.667542901452735*^9}, {3.667543353440959*^9, 3.667543353624638*^9}}],
|
---|
63 |
|
---|
64 | Cell[BoxData[
|
---|
65 | GraphicsBox[{{}, {},
|
---|
66 | {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
|
---|
67 | 1:eJxN0Xs0FHgUB/AxTB4xxvs1XoPSqBRqphgz3krYvJNUShkVDSmM0FshNpoV
|
---|
68 | Vo1SKlla0WxS5FXJCB1NDywiFIMoZOzuWf1u95x77vmce/+6X/2gcI9gLAaD
|
---|
69 | qf+3/5trW12+zSc4PsYsVGnBO55lPHh5zAH2kTgwSS9NNBINlgtrlehkgfuk
|
---|
70 | tyhU7gJn2OwhRzuBhSWJAUI8uM3YeXlgpgNy8gbTbcP64C45SeeKUnvkgH2s
|
---|
71 | PAwVXMya9WbW2yEvU1CPcXcB072MfA612iKPSOrsLW0B5z1QjR5pBotIUtkh
|
---|
72 | z8GVY0PvA2rB69NKgh3KwRbPLKNUs8F9Ry1Oe2aBM1ev+C2dA57I0uHJZIDv
|
---|
73 | 7hWbEyWDTXENJweOgskMj8z7O8HW1tPZ/O1gD6sr3P5tYDZ1pFjZH9y06tzT
|
---|
74 | gx7gcP0akbEd+KQuE8ewAWdpE2R96eDHGoEapyzBiooz5n+bg8uwZsxLhuBG
|
---|
75 | jCC8hAR+J0o43KAHxs2+ODFJBPtMMPM2q4BDxwgFIUrghNGK2wkK4MJhHO+O
|
---|
76 | 3E/5DBY9ql0MbhnwrH8rDZ7u5bZJLwLje5zf6EmASd2j3RQseG0nZ8ANA974
|
---|
77 | jjYSLLJZsJAe+Tp5NmMGnNsukKqZAn9uijLQGQVb1ylYxw6AzQKOPQktBi+d
|
---|
78 | EDpvjQIX1T6WY+PA/qYG1uopDOT3tgX8dk0woSvykjaDjuxjGvMLp8Ea+feE
|
---|
79 | eEl5d3DfwzNyk2Zgk+/pSm9VwZUuShfb5cFuORdVm6XAak98OjbiwN1DalkN
|
---|
80 | YuCbigI/exHtx/8YEeuzNapnwBxBHrHsE5gXfVX3RifYafKeSeR18CtWI4Ue
|
---|
81 | BtaUSHzg9cUKOZBDoYfGgi/I9ku1cyyR1e7xblKvrEduuxZWpVm8Dvl03cdl
|
---|
82 | JjTw+v6gi5ZNVGRju8FEbBpY9Ur4/qebwanNZj3LzcESc5O+6crg/MY9awZl
|
---|
83 | wYzMDkVbHFh+Ju1YmBi4c7uzMHuOsmApRlEdZnvDNJhtwnsxMQkur8lOKugH
|
---|
84 | j2+Js/PtAF+tLGRLBIO9dF/9WTq+FnnERD7rrCJYEBrmGaC7Bjl8VvblASsL
|
---|
85 | ZJ+qFqNYR3PkYDsDmUcvzJAPNUaNiHuDP3u2zr+jgvd0rVQoJ4JJRu8v5ePB
|
---|
86 | XaHJpDQM2O17ub3M3OoFExhVqT17Tk2DV+jiz2KmwLkl626zx8GxbemjrGGw
|
---|
87 | 39SAeUgfeKMc10ezCEwz9I9pivxpPxxILp5ehex7d9fbtAQwxXDLvAHFFNk0
|
---|
88 | 4o6pQfQK5GeGm/DqGSbINfw39JclZGReLJN1rnkZciDzSVSfJxjrpx1rLTBG
|
---|
89 | 9nLfGDecA77ueCQ+KxDsXpM6P0IHf6NdS3TQB79gm1YLFcD5vL/EcrHgFD9M
|
---|
90 | /tjM0gUrMw5/dbB1mgDv4CT35A6DXda8PD7eC7beXev6QbQE2SyjQv21BvhM
|
---|
91 | wg7OfT9DZHFj/yKDYAPkhBbPmvMsEnLtqP+cgTdYSj6IyqOCb+V9eHWCDHZd
|
---|
92 | yYx0I4J1psg15ipg4cNPBA08uPpU8XbRIvAF14PFvfP6C1ZnEFPiDfEN4OvP
|
---|
93 | UrKp58E8p5unU4ngptq6iJ5beshJPU72eKYucoylxFXfOG3k16QTgzlZWsgU
|
---|
94 | Geyq7jIN5L791fkEe3A6P1HFpk0duT+x202QDaaZMZJYQeCPMsJrNEdwZu/l
|
---|
95 | amkyeIj/lT+qBaZXune+kvvpvvDGpwfzagsmMoYy52e4Y2B7//huLAGcpztX
|
---|
96 | t2ulKvIXvANdy0EZ2UWUcr91qyLyVLpnuWQGAdnOySIkJlMOeVvIQ9eb7YuR
|
---|
97 | j5x1NBcoyyBLaC5eMmYhjfzrLb66tLcUcr6VsZrsOnBZc6KKvDa4fodASVEM
|
---|
98 | /Hp8taLKB8kF6zFmVXvxWnfAOpaZi/WjwLtPTEmswIFvP/cTUS8uQjbqmDc6
|
---|
99 | +RSLTKtzzcmbnXv0w8eZnO/k/inkdK2qB2HcUeQNLIUkJd4Asvj5p4UHuV3I
|
---|
100 | lb3EKBVeB/JgRPfxQ1w+cn6jubsGrwH5nhWeEsd9hBx2Yae4Pq8CeVML83Iy
|
---|
101 | 9w9k3JKH+1bxbiCzv+odvMW9jCxwSFP4yE1DZjWvXFrRUlz1v0mMfwAlRkqG
|
---|
102 |
|
---|
103 | "]]}},
|
---|
104 | AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
|
---|
105 | Axes->True,
|
---|
106 | AxesOrigin->{0, 0},
|
---|
107 | PlotRange->{All, All},
|
---|
108 | PlotRangeClipping->True,
|
---|
109 | PlotRangePadding->{Automatic, Automatic}]], "Output",
|
---|
110 | CellChangeTimes->{{3.667542705553397*^9, 3.667542713344948*^9}, {
|
---|
111 | 3.667542756377108*^9, 3.6675428644740667`*^9}, {3.6675428945778723`*^9,
|
---|
112 | 3.6675429017084513`*^9}, 3.6675433540772123`*^9, {3.66754341782261*^9,
|
---|
113 | 3.667543423084831*^9}}]
|
---|
114 | }, Open ]]
|
---|
115 | },
|
---|
116 | WindowSize->{640, 750},
|
---|
117 | WindowMargins->{{480, Automatic}, {Automatic, 244}},
|
---|
118 | ShowSelection->True,
|
---|
119 | FrontEndVersion->"7.0 for Mac OS X x86 (32-bit) (February 18, 2009)",
|
---|
120 | StyleDefinitions->"Default.nb"
|
---|
121 | ]
|
---|
122 | (* End of Notebook Content *)
|
---|
123 |
|
---|
124 | (* Internal cache information *)
|
---|
125 | (*CellTagsOutline
|
---|
126 | CellTagsIndex->{}
|
---|
127 | *)
|
---|
128 | (*CellTagsIndex
|
---|
129 | CellTagsIndex->{}
|
---|
130 | *)
|
---|
131 | (*NotebookFileOutline
|
---|
132 | Notebook[{
|
---|
133 | Cell[545, 20, 1017, 27, 88, "Input"],
|
---|
134 | Cell[CellGroupData[{
|
---|
135 | Cell[1587, 51, 456, 10, 27, "Input"],
|
---|
136 | Cell[2046, 63, 2686, 49, 245, "Output"]
|
---|
137 | }, Open ]]
|
---|
138 | }
|
---|
139 | ]
|
---|
140 | *)
|
---|
141 |
|
---|
142 | (* End of internal cache information *)
|
---|
143 |
|
---|