Notebook[List[Cell[BoxData[List[FormBox[RowBox[List["\[NoBreak]", RowBox[List[RowBox[List["OMA", "(", RowBox[List[RowBox[List["f", " ", "1"]], ",", "fc", ",", "fo", ",", "Q", ",", "Pavg", ",", "ERdB"]], ")"]], ":=", RowBox[List[RowBox[List["P", "\[NoBreak]\[NoBreak]", "1", RowBox[List[RowBox[List["(", RowBox[List["Pavg", ",", "ERdB"]], ")"]], "\[CenterDot]", RowBox[List["MSR", "(", RowBox[List[RowBox[List["f", " ", "1"]], ",", "fo", ",", "Q"]], ")"]]]]]], "-", RowBox[List["P", " ", "0", RowBox[List[RowBox[List["(", RowBox[List["Pavg", ",", "ERdB"]], ")"]], "\[CenterDot]", RowBox[List["MSR", "(", RowBox[List[RowBox[List[RowBox[List["f", " ", "1"]], "-", "fc"]], ",", "fo", ",", "Q"]], ")"]]]]]]]]]]]], TraditionalForm], FormBox[RowBox[List[RowBox[List["OMADB", "(", RowBox[List[RowBox[List["f", " ", "1"]], ",", "fc", ",", "fo", ",", "Q", ",", "ERdB"]], ")"]], ":=", RowBox[List["10", "\[CenterDot]", RowBox[List["(", RowBox[List["OMA", "(", RowBox[List[RowBox[List["f", " ", "1"]], ",", "fc", ",", "fo", ",", "Q", ",", "Pavg", ",", "ERdB"]], ")"]], ")"]]]]]], TraditionalForm], FormBox[RowBox[List[RowBox[List["EROutDB", "(", RowBox[List[RowBox[List["f", " ", "1"]], ",", "fc", ",", "fo", ",", "Q", ",", "ERdB"]], ")"]], ":=", RowBox[List["10", "\[CenterDot]", RowBox[List["log", "[", FractionBox[RowBox[List["(", RowBox[List["P", "\[NoBreak]\[NoBreak]", "1", RowBox[List[RowBox[List["(", RowBox[List["1", ",", "ERdB"]], ")"]], "\[CenterDot]", RowBox[List["MSR", "(", RowBox[List[RowBox[List["f", " ", "1"]], ",", "fo", ",", "Q"]], ")"]]]]]], ")"]], RowBox[List["(", RowBox[List["P", "\[NoBreak]\[NoBreak]", "0", RowBox[List[RowBox[List["(", RowBox[List["1", ",", "ERdB"]], ")"]], "\[CenterDot]", RowBox[List["MSR", "(", RowBox[List[RowBox[List[RowBox[List["f", " ", "1"]], "-", "fc"]], ",", "fo", ",", "Q"]], ")"]]]]]], ")"]]], "]"]]]]]], TraditionalForm], FormBox[RowBox[List[RowBox[List[StyleBox["Contrast", Rule[FontSlant, "Plain"]], "(", RowBox[List[RowBox[List["f", " ", "1"]], ",", "fc", ",", "fo", ",", "Q"]], ")"]], ":=", RowBox[List["10", "\[CenterDot]", RowBox[List["log", "(", FractionBox[RowBox[List["MSR", "(", RowBox[List[RowBox[List["f", " ", "1"]], ",", "fo", ",", "Q"]], ")"]], RowBox[List["MSR", "(", RowBox[List[RowBox[List[RowBox[List["f", " ", "1"]], "-", "fc"]], ",", "fo", ",", "Q"]], ")"]]], ")"]]]]]], TraditionalForm], FormBox[RowBox[List["Pavg", ":=", "5"]], TraditionalForm], FormBox[RowBox[List[RowBox[List["fo", ":=", RowBox[List["187.7", "\[CenterDot]", SuperscriptBox["10", "12"]]]]], "   "]], TraditionalForm], FormBox[RowBox[List["FWHM", ":=", RowBox[List["20", "\[CenterDot]", SuperscriptBox["10", "9"]]]]], TraditionalForm], FormBox[RowBox[List["Q", ":=", RowBox[List[FractionBox["fo", "FWHM"], "=", RowBox[List["9.385", "\[Times]", SuperscriptBox["10", "3"]]]]]]], TraditionalForm]]], "Input"]]]