(* 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[      5466,        202]
NotebookOptionsPosition[      4502,        165]
NotebookOutlinePosition[      4893,        182]
CellTagsIndexPosition[      4850,        179]
WindowFrame->Normal
ContainsDynamic->False*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Exercises (10)", "Title"],

Cell["\<\
Assigned: April 2
Due: April 9\
\>", "Subsubtitle",
 CellChangeTimes->{{3.447695610981518*^9, 3.447695624345271*^9}}],

Cell[CellGroupData[{

Cell["Fourier Spectrum and Power Spectrum", "Section"],

Cell[TextData[{
 "Compute and display the Fourier transform (using ",
 StyleBox["ListPlotComplex[\[Ellipsis]]",
  FontWeight->"Bold"],
 ") and the power spectrum (using ",
 StyleBox["ListPlot[Log[Abs[\[Ellipsis]]]] ",
  FontWeight->"Bold"],
 "or",
 StyleBox[" ListPlot[Abs[\[Ellipsis]]]",
  FontWeight->"Bold"],
 ") for the following data sequences. "
}], "Text"],

Cell[BoxData[
 RowBox[{"nX", " ", "=", " ", 
  RowBox[{
   RowBox[{"2", "^", "10"}], " ", 
   RowBox[{"(*", " ", 
    RowBox[{"1", "k", " ", "Samples"}], " ", "*)"}]}]}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"x1", " ", "=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"Mod", "[", 
      RowBox[{
       RowBox[{"\[Theta]", " ", "0.2123"}], ",", "1"}], "]"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"\[Theta]", ",", " ", "0", ",", " ", 
       RowBox[{"nX", " ", "-", "1"}]}], "}"}]}], "]"}]}], ";"}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"x2", " ", "=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Mod", "[", 
         RowBox[{
          RowBox[{"\[Theta]", " ", "0.2123"}], ",", 
          RowBox[{"2", "\[Pi]"}]}], "]"}], " ", "<", " ", "\[Pi]"}], ",", " ",
        "1", ",", " ", 
       RowBox[{"-", "1"}]}], "]"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"\[Theta]", ",", " ", "0", ",", " ", 
       RowBox[{"nX", " ", "-", "1"}]}], "}"}]}], "]"}]}], ";"}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"x3", " ", "=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"Sqrt", "[", 
      RowBox[{"Abs", "[", 
       RowBox[{"Sin", "[", 
        RowBox[{"\[Theta]", " ", "0.2123"}], "]"}], "]"}], "]"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"\[Theta]", ",", " ", "0", ",", " ", 
       RowBox[{"nX", " ", "-", "1"}]}], "}"}]}], "]"}]}], ";"}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"x1a", " ", "=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"Mod", "[", 
      RowBox[{
       RowBox[{"\[Theta]", " ", "0.02123"}], ",", "1"}], "]"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"\[Theta]", ",", " ", "0", ",", " ", 
       RowBox[{"nX", " ", "-", "1"}]}], "}"}]}], "]"}]}], ";"}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"x2a", " ", "=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Mod", "[", 
         RowBox[{
          RowBox[{"\[Theta]", " ", "0.02123"}], ",", 
          RowBox[{"2", "\[Pi]"}]}], "]"}], " ", "<", " ", "\[Pi]"}], ",", " ",
        "1", ",", " ", 
       RowBox[{"-", "1"}]}], "]"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"\[Theta]", ",", " ", "0", ",", " ", 
       RowBox[{"nX", " ", "-", "1"}]}], "}"}]}], "]"}]}], ";"}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"x3a", " ", "=", " ", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"Sqrt", "[", 
      RowBox[{"Abs", "[", 
       RowBox[{"Sin", "[", 
        RowBox[{"\[Theta]", " ", "0.02123"}], "]"}], "]"}], "]"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"\[Theta]", ",", " ", "0", ",", " ", 
       RowBox[{"nX", " ", "-", "1"}]}], "}"}]}], "]"}]}], ";"}]], "Input"]
}, Closed]],

Cell[CellGroupData[{

Cell["If I Had a Million Dollars", "Section"],

Cell[TextData[{
 "Using the same procedure used in class, import the sound track \"",
 StyleBox["Million_Dollar_64kb.aif",
  FontFamily->"Lucida Grande"],
 "\" and create a frequency spectrogram."
}], "Text"]
}, Closed]],

Cell[CellGroupData[{

Cell["Band Pass Filter", "Section"],

Cell["\<\
Apply a band-pass filter to the signal above, and re-display the spectrogram.\
\
\>", "Text"]
}, Closed]]
}, Open  ]]
},
WindowSize->{936, 889},
WindowMargins->{{Automatic, 224}, {128, Automatic}},
PrintingCopies->1,
PrintingPageRange->{1, Automatic},
FrontEndVersion->"6.0 for Mac OS X x86 (32-bit) (May 21, 2008)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[590, 23, 31, 0, 73, "Title"],
Cell[624, 25, 127, 4, 45, "Subsubtitle"],
Cell[CellGroupData[{
Cell[776, 33, 54, 0, 69, "Section"],
Cell[833, 35, 363, 11, 43, "Text"],
Cell[1199, 48, 180, 5, 28, "Input"],
Cell[1382, 55, 355, 10, 28, "Input"],
Cell[1740, 67, 546, 16, 28, "Input"],
Cell[2289, 85, 399, 11, 28, "Input"],
Cell[2691, 98, 357, 10, 28, "Input"],
Cell[3051, 110, 548, 16, 28, "Input"],
Cell[3602, 128, 401, 11, 28, "Input"]
}, Closed]],
Cell[CellGroupData[{
Cell[4040, 144, 45, 0, 39, "Section"],
Cell[4088, 146, 208, 5, 29, "Text"]
}, Closed]],
Cell[CellGroupData[{
Cell[4333, 156, 35, 0, 39, "Section"],
Cell[4371, 158, 103, 3, 27, "Text"]
}, Closed]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)