(* 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[     30215,        929]
NotebookOptionsPosition[     27566,        855]
NotebookOutlinePosition[     27945,        871]
CellTagsIndexPosition[     27902,        868]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 StyleBox[
  RowBox[{"Paquetes", " ", "de", " ", "Onda"}], "Title",
  FontColor->RGBColor[1, 0, 0]]], "Input",
 TextAlignment->Center,
 TextJustification->0],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  StyleBox[" ", "Subtitle",
   FontColor->RGBColor[0, 0, 1]], 
  StyleBox["Ondas", "Subtitle",
   FontColor->RGBColor[0, 0, 1]]}]], "Input",
 CellMargins->{{20, Inherited}, {Inherited, Inherited}}],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"A", "[", "x_", "]"}], " ", ":=", " ", 
    RowBox[{
     RowBox[{
      RowBox[{"x", "^", "2"}], " ", "/", "125"}], " ", "-", " ", 
     RowBox[{
      RowBox[{"Sin", "[", 
       RowBox[{"35", "*", "x"}], "]"}], " ", "/", "2"}], "+", " ", 
     RowBox[{"3", "*", 
      RowBox[{"Cos", "[", 
       RowBox[{"4", "*", "x"}], "]"}]}]}]}], "\[IndentingNewLine]", 
   RowBox[{"Plot", "[", " ", 
    RowBox[{
     RowBox[{"A", "[", "x", "]"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"x", ",", "0", ",", "2"}], "}"}], ",", " ", 
     "\[IndentingNewLine]", 
     RowBox[{"PlotRange", " ", "\[Rule]", " ", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "4"}], ",", "4"}], "}"}]}]}], "\[IndentingNewLine]", 
    "]"}]}]}]], "Input",
 CellChangeTimes->{3.523886009610145*^9}],

Cell[BoxData[{
 RowBox[{"v", "=", " ", "0.5"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"t", "=", "1"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Plot", "[", " ", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"A", "[", "x", "]"}], ",", 
     RowBox[{"A", "[", 
      RowBox[{"x", " ", "-", " ", 
       RowBox[{"v", "*", "t"}]}], "]"}]}], "}"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0", ",", "2"}], "}"}], ",", " ", "\[IndentingNewLine]", 
   RowBox[{"PlotRange", " ", "\[Rule]", " ", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"-", "4"}], ",", "4"}], "}"}]}], ",", " ", 
   "\[IndentingNewLine]", 
   RowBox[{"PlotStyle", " ", "\[Rule]", " ", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"RGBColor", "[", 
       RowBox[{"0", ",", "0", ",", "0"}], "]"}], ",", 
      RowBox[{"RGBColor", "[", 
       RowBox[{"1", ",", "0", ",", "0"}], "]"}]}], " ", "}"}]}]}], 
  "\[IndentingNewLine]", "]"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{3.523886032376481*^9}],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  StyleBox[
   RowBox[{"Dibujo", " ", "de", " ", "Ondas", " ", "Armonicas"}], "Subtitle",
   FontColor->RGBColor[0, 0, 1]]}]], "Input",
 CellMargins->{{18, Inherited}, {Inherited, Inherited}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Onda", "[", 
    RowBox[{"x_", ",", "t_"}], "]"}], " ", ":=", " ", 
   RowBox[{"Sin", "[", 
    RowBox[{"x", " ", "-", " ", 
     RowBox[{"v", "*", "t"}]}], "]"}]}], ";"}]], "Input"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"v", "=", "2"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"T", "=", " ", 
   RowBox[{"2", "*", 
    RowBox[{"\[Pi]", "/", "v"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   SubscriptBox["N", "f"], " ", "=", " ", "4"}], " ", 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[CapitalDelta]t", " ", "=", " ", 
   RowBox[{"2", "*", 
    RowBox[{"T", " ", "/", " ", 
     SubscriptBox["N", "f"]}]}]}], ";"}]}], "Input"],

Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"Onda", "[", 
      RowBox[{"x", ",", "t"}], "]"}], ",", " ", 
     RowBox[{"{", 
      RowBox[{"x", ",", "0", ",", 
       RowBox[{"5", " ", "\[Pi]"}]}], "}"}]}], "]"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"t", ",", "\"\<t\>\""}], "}"}], ",", "0", ",", "T"}], "}"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.52388605780039*^9, 3.523886104675759*^9}}],

Cell[BoxData[{
 RowBox[{
  StyleBox["Ejercicios", "Subtitle",
   FontSize->18,
   FontColor->RGBColor[0, 0, 1]], 
  StyleBox[":", "Subtitle",
   FontSize->18,
   FontColor->RGBColor[0, 0, 1]], "\[IndentingNewLine]", 
  RowBox[{"1.", 
   StyleBox[
    RowBox[{" ", 
     StyleBox[" ", "Text"]}]], 
   StyleBox["Hallar", "Text"], 
   StyleBox[" ", "Text"], 
   StyleBox["las", "Text"], 
   StyleBox[" ", "Text"], 
   StyleBox["velocidades", "Text"], 
   StyleBox["  ", "Text"], 
   StyleBox["de", "Text"], 
   StyleBox[" ", "Text"], 
   StyleBox["avance", "Text"], 
   StyleBox[" ", "Text"], 
   StyleBox["de", "Text"], 
   StyleBox[" ", "Text"], 
   StyleBox["la", "Text"], 
   StyleBox[" ", "Text"], 
   StyleBox["onda", "Text"], 
   StyleBox[" ", "Text"], 
   StyleBox[
    RowBox[{"(", 
     RowBox[{"grupo", " ", "o", " ", 
      RowBox[{"fase", "?"}]}], ")"}], "Text"]}]}], "\[IndentingNewLine]", 
 RowBox[{"  ", 
  RowBox[{
  "2.", "  ", "Que", " ", "pasa", " ", "si", " ", "en", " ", "lugar", " ", 
   "de", " ", 
   RowBox[{"Sin", "[", "x", "]"}], "se", " ", "pone", " ", 
   RowBox[{
    RowBox[{"Cos", "[", "x", "]"}], "?"}]}]}]}], "Input",
 CellMargins->{{6, Inherited}, {Inherited, Inherited}},
 TextAlignment->Left,
 TextJustification->0],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]", 
  StyleBox[
   RowBox[{
   "Construccion", " ", "de", " ", "paquetes", " ", "de", " ", "ondas"}], 
   "Subtitle",
   FontColor->RGBColor[0, 0, 1]]}]], "Input",
 CellMargins->{{19, Inherited}, {Inherited, Inherited}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", "Onda", "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Onda", "[", 
    RowBox[{"k_", ",", "\[Omega]_", ",", " ", "x_", ",", "t_"}], "]"}], " ", ":=",
    " ", 
   RowBox[{"Sin", "[", 
    RowBox[{
     RowBox[{"k", "*", "x"}], " ", "-", " ", 
     RowBox[{"\[Omega]", "*", "t"}]}], "]"}]}], ";"}]}], "Input"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"\[CapitalDelta]k", " ", "=", " ", 
   RowBox[{"k", "/", "10"}]}], " ", ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[CapitalDelta]\[Omega]", " ", "=", " ", 
   RowBox[{"\[Omega]", "/", "10"}]}], ";"}]}], "Input"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"k", "=", "1"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Omega]", " ", "=", "2"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Plot", "[", " ", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Onda", "[", 
      RowBox[{"k", ",", "\[Omega]", ",", "x", ",", "0"}], "]"}], ",", 
     RowBox[{"Onda", "[", 
      RowBox[{"k", ",", "\[Omega]", ",", "x", ",", "1"}], "]"}]}], " ", "}"}],
    ",", " ", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0", ",", 
     RowBox[{"4", "\[Pi]"}]}], "}"}], ",", " ", "\[IndentingNewLine]", 
   RowBox[{"PlotStyle", " ", "\[Rule]", " ", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"RGBColor", "[", 
       RowBox[{"0", ",", "0", ",", "0"}], "]"}], ",", 
      RowBox[{"RGBColor", "[", 
       RowBox[{"1", ",", "0", ",", "0"}], "]"}]}], " ", "}"}]}]}], 
  "\[IndentingNewLine]", "]"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{3.523886168357486*^9}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"\[CapitalDelta]k", " ", "=", " ", 
   RowBox[{"k", "/", "10"}]}], " ", ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"\[CapitalDelta]\[Omega]", " ", "=", " ", 
    RowBox[{"\[Omega]", "/", "10"}]}], ";"}], 
  "\[IndentingNewLine]"}]}], "Input"],

Cell[BoxData[
 RowBox[{"Plot", "[", " ", 
  RowBox[{
   RowBox[{
    RowBox[{"Onda", "[", 
     RowBox[{"k", ",", "\[Omega]", ",", "x", ",", "1"}], "]"}], "+", 
    RowBox[{"Onda", "[", 
     RowBox[{
      RowBox[{"k", "+", "\[CapitalDelta]k"}], ",", 
      RowBox[{"\[Omega]", " ", "+", " ", "\[CapitalDelta]\[Omega]"}], ",", 
      "x", ",", "1"}], "]"}]}], " ", ",", " ", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0", ",", 
     RowBox[{"45", "\[Pi]"}]}], "}"}]}], " ", "]"}]], "Input",
 CellChangeTimes->{3.523886179731724*^9}],

Cell[BoxData[{
 StyleBox["Ejercicios", "Subtitle",
  FontSize->18,
  FontColor->RGBColor[0, 0, 1]], "\[IndentingNewLine]", 
 RowBox[{" ", 
  RowBox[{"1.", 
   StyleBox[
    RowBox[{" ", 
     StyleBox[" ", "Text"]}]], 
   StyleBox["Hallar", "Text"], 
   StyleBox[" ", "Text"], 
   StyleBox["las", "Text"], 
   StyleBox[" ", "Text"], 
   StyleBox["velocidades", "Text"], 
   StyleBox["  ", "Text"], 
   StyleBox["de", "Text"], 
   StyleBox[" ", "Text"], 
   StyleBox["avance", "Text"], 
   StyleBox[" ", "Text"], 
   StyleBox["de", "Text"], 
   StyleBox[" ", "Text"], 
   StyleBox["la", "Text"], 
   StyleBox[" ", "Text"], 
   StyleBox["onda", "Text"], 
   StyleBox[" ", "Text"], 
   StyleBox[
    RowBox[{"(", 
     RowBox[{"grupo", " ", "o", " ", 
      RowBox[{"fase", "?"}]}], ")"}], "Text"]}]}], "\[IndentingNewLine]", 
 RowBox[{" ", 
  RowBox[{
  "2.", "  ", "Construir", " ", "un", " ", "paquete", " ", "de", " ", "ondas",
    " ", "sumando", " ", "muchas", " ", "ondas"}]}], "\[IndentingNewLine]", 
 RowBox[{" ", 
  RowBox[{"3.", "   ", "Avanza", " ", "el", " ", 
   RowBox[{"paquete", "?", " ", "A"}], " ", "que", " ", 
   RowBox[{"velocidad", "?"}]}]}]}], "Input",
 PageWidth->Infinity,
 CellDingbat->None,
 CellMargins->{{20, 0}, {Inherited, Inherited}},
 CellSize->{424, Inherited},
 TextAlignment->Left,
 TextJustification->0],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"Plot", "[", " ", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       RowBox[{"Onda", "[", 
        RowBox[{"k", ",", "\[Omega]", ",", "x", ",", "0"}], "]"}], "+", 
       RowBox[{"Onda", "[", 
        RowBox[{
         RowBox[{"k", "+", "\[CapitalDelta]k"}], ",", 
         RowBox[{"\[Omega]", " ", "+", " ", "\[CapitalDelta]\[Omega]"}], ",", 
         "x", ",", "0"}], "]"}]}], ",", 
      RowBox[{
       RowBox[{"Onda", "[", 
        RowBox[{"k", ",", "\[Omega]", ",", "x", ",", "1"}], "]"}], "+", 
       RowBox[{"Onda", "[", 
        RowBox[{
         RowBox[{"k", "+", "\[CapitalDelta]k"}], ",", 
         RowBox[{"\[Omega]", " ", "+", " ", "\[CapitalDelta]\[Omega]"}], ",", 
         "x", ",", "1"}], "]"}]}]}], " ", "}"}], ",", " ", 
    RowBox[{"{", 
     RowBox[{"x", ",", "0", ",", 
      RowBox[{"45", "\[Pi]"}]}], "}"}]}], " ", "]"}]}]], "Input",
 CellChangeTimes->{{3.52388675250571*^9, 3.523886756087155*^9}, {
   3.523891209906434*^9, 3.523891229762237*^9}, 3.523892234188174*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Manipulate", "[", 
   RowBox[{
    RowBox[{"Plot", "[", " ", 
     RowBox[{
      RowBox[{
       RowBox[{"Onda", "[", 
        RowBox[{"k", ",", "\[Omega]", ",", "x", ",", "t"}], "]"}], "+", 
       RowBox[{"Onda", "[", 
        RowBox[{
         RowBox[{"k", "+", "\[CapitalDelta]k"}], ",", 
         RowBox[{"\[Omega]", " ", "+", " ", "\[CapitalDelta]\[Omega]"}], ",", 
         "x", ",", "t"}], "]"}]}], " ", ",", " ", 
      RowBox[{"{", 
       RowBox[{"x", ",", "0", ",", 
        RowBox[{"45", " ", "\[Pi]"}]}], "}"}]}], " ", "]"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"t", ",", "0", ",", "\"\<t\>\""}], "}"}], ",", "0", ",", "T", 
      ",", 
      RowBox[{"\[CapitalDelta]t", "/", "100"}], ",", 
      RowBox[{"Appearance", "\[Rule]", "\"\<Labeled\>\""}]}], "}"}]}], "]"}], 
  "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.523886214459463*^9, 3.523886316598861*^9}, {
   3.523886416666482*^9, 3.523886489743458*^9}, {3.523886521501927*^9, 
   3.523886645727128*^9}, {3.523886702754169*^9, 3.523886775241036*^9}, 
   3.523892238357107*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Paquete", " ", "de", " ", "Ondas"}], "Subtitle",
   FontColor->RGBColor[0, 0, 1]], 
  StyleBox[" ", "Subtitle",
   FontColor->RGBColor[0, 0, 1]], "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.523891616279882*^9, 3.52389163205076*^9}, 
   3.523894054505018*^9}],

Cell[BoxData[
 RowBox[{"ClearAll", "[", 
  RowBox[{"k", ",", "\[Omega]", ",", "x", ",", "t", ",", "wavepacket"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.52389163492549*^9, 3.523891641480982*^9}, {
   3.523891737356762*^9, 3.523891738960786*^9}, {3.523891908844731*^9, 
   3.52389191022519*^9}, 3.523892162204172*^9}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"nondas", " ", "=", " ", "10"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"k", "=", "1"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Omega]", "=", "2"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[CapitalDelta]k", " ", "=", " ", 
   RowBox[{"k", "/", "nondas"}]}], " ", ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[CapitalDelta]\[Omega]", " ", "=", " ", 
   RowBox[{"\[Omega]", "/", "nondas"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.523891791469133*^9, 3.523891817985747*^9}, {
   3.523892464974027*^9, 3.523892490122958*^9}, 3.523892525429365*^9, 
   3.523892671964037*^9, {3.523892903883434*^9, 3.523892917754848*^9}, {
   3.523894027078242*^9, 3.523894028667371*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Delta]k", "=", "0.2"}], ";"}]], "Input",
 CellChangeTimes->{{3.523893999873525*^9, 3.523894002360838*^9}, {
  3.523894036525863*^9, 3.5238940367298*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Onda", "[", 
    RowBox[{"k_", ",", "\[Omega]_", ",", " ", "x_", ",", "t_"}], "]"}], " ", ":=",
    " ", 
   RowBox[{"Exp", "[", 
    RowBox[{"I", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"k", "*", "x"}], " ", "-", " ", 
       RowBox[{"\[Omega]", "*", "t"}]}], ")"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.523892557640225*^9, 3.52389256856097*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"wavepacket", "[", 
   RowBox[{"k_", ",", "\[Omega]_", ",", "x_", ",", "t_"}], "]"}], " ", ":=", 
  " ", 
  RowBox[{"Sum", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"Exp", "[", 
      RowBox[{"-", " ", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"i", " ", 
          RowBox[{"\[CapitalDelta]k", "/", "\[Delta]k"}]}], ")"}], "^", 
        "2"}]}], "]"}], " ", 
     RowBox[{"Onda", "[", 
      RowBox[{
       RowBox[{"k", "+", 
        RowBox[{"i", " ", "\[CapitalDelta]k"}]}], ",", 
       RowBox[{"\[Omega]", " ", "+", 
        RowBox[{"i", " ", "\[CapitalDelta]\[Omega]"}]}], ",", "x", ",", "t"}],
       "]"}]}], ",", " ", 
    RowBox[{"{", 
     RowBox[{"i", ",", 
      RowBox[{
       RowBox[{"-", "1"}], " ", "nondas"}], ",", " ", 
      RowBox[{"1", " ", "nondas"}], ",", "1"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.523893157864153*^9, 3.523893162952674*^9}, {
  3.523893242132788*^9, 3.523893244242204*^9}, {3.523893281266892*^9, 
  3.523893285331363*^9}, {3.523893336683049*^9, 3.523893345063952*^9}, {
  3.523893404354999*^9, 3.523893446327932*^9}, {3.523893505196639*^9, 
  3.5238935255619*^9}, {3.523893672054175*^9, 3.5238936978392*^9}, {
  3.523893805569996*^9, 3.523893808033802*^9}, {3.523893838255374*^9, 
  3.523893841288546*^9}, {3.523893914991282*^9, 3.523893944672572*^9}}],

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"Re", "[", 
    RowBox[{"wavepacket", "[", 
     RowBox[{"3", ",", "2", ",", "x", ",", "1"}], "]"}], "]"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{
      RowBox[{"-", "35"}], " ", "\[Pi]"}], ",", " ", 
     RowBox[{"35", " ", "\[Pi]"}]}], "}"}], ",", " ", 
   RowBox[{"PlotRange", "\[Rule]", " ", "All"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.523893639543907*^9, 3.523893658652108*^9}, {
  3.523893721865796*^9, 3.523893770492516*^9}}],

Cell[BoxData[
 StyleBox[
  RowBox[{"Paquete", " ", "de", " ", "Ondas", " ", "Gaussiano"}], "Subtitle",
  FontColor->RGBColor[0, 0, 1]]], "Input",
 CellChangeTimes->{{3.523891263535439*^9, 3.52389126737542*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"G", "[", "x_", "]"}], " ", ":=", " ", 
   StyleBox[
    RowBox[{
     FractionBox["1", 
      SqrtBox[
       RowBox[{"\[Sigma]", 
        SqrtBox["\[Pi]"]}]]], 
     SuperscriptBox["\[ExponentialE]", 
      RowBox[{"-", 
       FractionBox[
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"x", "-", "a"}], ")"}], "2"], 
        RowBox[{"2", 
         SuperscriptBox["\[Sigma]", "2"]}]]}]]}],
    FontSize->15]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Sigma]", " ", "=", " ", "2"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"a", " ", "=", " ", "5"}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Plot", "[", "  ", 
   RowBox[{
    RowBox[{"G", "[", "x", "]"}], " ", ",", " ", 
    RowBox[{"{", 
     RowBox[{"x", ",", 
      RowBox[{"-", "3"}], ",", "10"}], "}"}]}], "]"}], " "}]}], "Input",
 CellChangeTimes->{3.523886813195258*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   StyleBox["Ejercicios", "Subtitle",
    FontSize->18,
    FontColor->RGBColor[0, 0, 1]], "\[IndentingNewLine]", 
   RowBox[{"1.", "  ", "Comprobar", " ", "que", " ", 
    SuperscriptBox["G", "2"], " ", "esta", " ", "normalizado"}], 
   "\[IndentingNewLine]", 
   RowBox[{
   "3.", "  ", "Que", " ", "significan", " ", "\[Sigma]", " ", "y", " ", 
    "a"}]}], "  "}]], "Input",
 CellMargins->{{18, Inherited}, {Inherited, Inherited}}],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  StyleBox[
   RowBox[{"Transformacion", " ", "Fourier"}], "Subtitle",
   FontColor->RGBColor[0, 0, 1]]}]], "Input"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", 
   RowBox[{"x", ",", "k", ",", "Yx", ",", "Fk"}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Yx", "[", "x_", "]"}], " ", "=", " ", 
   RowBox[{"1", "/", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"x", "^", "2"}], " ", "+", " ", "2"}], ")"}]}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{3.523894092965699*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Yk", "[", "k_", "]"}], " ", "=", " ", 
  RowBox[{"Integrate", "[", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"Yx", "[", "x", "]"}], " ", "*", 
     RowBox[{"Exp", "[", 
      RowBox[{"I", "  ", "k", " ", "x"}], "]"}]}], ",", " ", 
    RowBox[{"{", 
     RowBox[{"x", ",", 
      RowBox[{"-", "Infinity"}], " ", ",", " ", "Infinity"}], "}"}]}], "]"}], 
  " "}]], "Input",
 CellChangeTimes->{{3.523886864981324*^9, 3.523886911227406*^9}}],

Cell[BoxData[{
 RowBox[{"Plot", "[", " ", 
  RowBox[{
   RowBox[{"Yx", "[", "x", "]"}], " ", ",", " ", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "5"}], ",", "5"}], "}"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Plot", "[", " ", 
   RowBox[{
    RowBox[{"Yk", "[", "k", "]"}], " ", ",", " ", 
    RowBox[{"{", 
     RowBox[{"k", ",", 
      RowBox[{"-", "5"}], ",", "5"}], "}"}]}], "]"}], " "}]}], "Input",
 CellChangeTimes->{{3.523886918927318*^9, 3.523886920871118*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Yk", "[", "k_", "]"}], " ", "=", " ", 
  RowBox[{"FourierTransform", "[", 
   RowBox[{
    RowBox[{"Yx", "[", "x", "]"}], ",", " ", "x", ",", " ", "k"}], "]"}], 
  "  "}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Plot", "[", " ", 
   RowBox[{
    RowBox[{"Yk", "[", "k", "]"}], " ", ",", " ", 
    RowBox[{"{", 
     RowBox[{"k", ",", 
      RowBox[{"-", "5"}], ",", "5"}], "}"}]}], "]"}], " "}]], "Input",
 CellChangeTimes->{3.523886934040951*^9}],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]", 
  "\[IndentingNewLine]"}]], "Input"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", 
   RowBox[{"x", ",", "k", ",", "\[Sigma]", ",", "a", ",", " ", "Gk"}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"G", "[", "x_", "]"}], " ", ":=", " ", 
  StyleBox[
   RowBox[{
    FractionBox["1", 
     SqrtBox[
      RowBox[{"\[Sigma]", 
       SqrtBox["\[Pi]"]}]]], 
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{"-", 
      FractionBox[
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"x", "-", "a"}], ")"}], "2"], 
       RowBox[{"2", 
        SuperscriptBox["\[Sigma]", "2"]}]]}]]}],
   FontSize->15]}]}], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Gk", "[", "k_", "]"}], " ", "=", " ", 
  RowBox[{"FourierTransform", "[", 
   RowBox[{
    RowBox[{"G", "[", "x", "]"}], ",", " ", "x", ",", " ", "k"}], "]"}], 
  "  "}]], "Input"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", 
   RowBox[{"x", ",", "k", ",", "\[Sigma]", ",", "a", ",", " ", "Gk"}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Gk", "[", "k_", "]"}], " ", ":=", " ", 
   RowBox[{"FourierTransform", "[", 
    RowBox[{
     RowBox[{"G", "[", "x", "]"}], ",", " ", "x", ",", " ", "k"}], "]"}]}], 
  "  "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Sigma]", "=", "1"}], " ", ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"a", " ", "=", " ", "0"}], " ", ";"}], 
  "\[IndentingNewLine]"}]}], "Input"],

Cell[BoxData[
 RowBox[{"Plot", "[", " ", 
  RowBox[{
   RowBox[{"G", "[", "x", "]"}], " ", ",", " ", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "3"}], ",", "3"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{3.523886956353563*^9}],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{"Gk", "[", "1.5", "]"}]}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Plot", "[", " ", 
   RowBox[{
    RowBox[{"Re", "[", 
     RowBox[{"Gk", "[", "k", "]"}], "]"}], " ", ",", " ", 
    RowBox[{"{", 
     RowBox[{"k", ",", 
      RowBox[{"-", "3"}], ",", "3"}], "}"}]}], "]"}], " "}]], "Input",
 CellChangeTimes->{3.523886963002105*^9}],

Cell[BoxData[{
 StyleBox["Ejercicios", "Subtitle",
  FontSize->18,
  FontColor->RGBColor[0, 0, 1]], "\[IndentingNewLine]", 
 RowBox[{"1.", "  ", "Comprobar", " ", "que", " ", 
  SuperscriptBox["Gk", "2"], " ", "esta", " ", 
  "normalizado"}], "\[IndentingNewLine]", 
 RowBox[{"3.", "  ", "Como", " ", "varian", " ", "los", " ", "anchos", " ", 
  "y", " ", "posiciones", " ", "de", " ", "la", " ", 
  RowBox[{"transformada", "?"}]}]}], "Input"],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  StyleBox[
   RowBox[{"Valores", " ", "Medios"}], "Subsubtitle",
   FontColor->RGBColor[1, 0, 0]]}]], "Input",
 CellChangeTimes->{{3.523887268663842*^9, 3.523887272702655*^9}}],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"\[Sigma]", "=", "1"}], " ", ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"a", " ", "=", " ", "2"}], ";"}]}]}]], "Input",
 CellChangeTimes->{{3.52388728756488*^9, 3.523887305978743*^9}}],

Cell[BoxData[
 RowBox[{"ClearAll", "[", 
  RowBox[{"\[Sigma]", ",", "a"}], "]"}]], "Input",
 CellChangeTimes->{{3.523887373765925*^9, 3.523887381447195*^9}}],

Cell[BoxData[
 RowBox[{"amed", " ", ":=", " ", 
  RowBox[{"Assuming", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"\[Sigma]", ">", "0"}], ",", 
      RowBox[{"Element", "[", 
       RowBox[{"\[Sigma]", ",", "Reals"}], "]"}]}], "}"}], ",", 
    RowBox[{"Integrate", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"G", "[", "x", "]"}], "*", "x", " ", "*", 
       RowBox[{"G", "[", "x", "]"}]}], ",", " ", 
      RowBox[{"{", 
       RowBox[{"x", ",", 
        RowBox[{"-", "Infinity"}], ",", " ", "Infinity"}], "}"}]}], "]"}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.523887182369591*^9, 3.523887233745694*^9}, {
  3.523887266446296*^9, 3.523887324770387*^9}, {3.52388755162822*^9, 
  3.52388756886904*^9}, {3.523887642804004*^9, 3.523887677329211*^9}, {
  3.523887771270765*^9, 3.52388778213794*^9}}],

Cell[BoxData[
 RowBox[{"a2med", " ", ":=", " ", 
  RowBox[{"Assuming", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"\[Sigma]", ">", "0"}], ",", 
      RowBox[{"Element", "[", 
       RowBox[{"\[Sigma]", ",", "Reals"}], "]"}]}], "}"}], ",", 
    RowBox[{"Integrate", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"G", "[", "x", "]"}], "*", 
       RowBox[{"x", "^", "2"}], "*", 
       RowBox[{"G", "[", "x", "]"}]}], ",", " ", 
      RowBox[{"{", 
       RowBox[{"x", ",", 
        RowBox[{"-", "Infinity"}], ",", " ", "Infinity"}], "}"}]}], "]"}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.523887343361184*^9, 3.523887355538905*^9}, {
   3.523887660791064*^9, 3.523887695177001*^9}, {3.523887812130992*^9, 
   3.5238878164938*^9}, 3.523887857003254*^9}],

Cell[BoxData["amed"], "Input",
 CellChangeTimes->{{3.523887334220395*^9, 3.523887362710698*^9}}],

Cell[BoxData["a2med"], "Input",
 CellChangeTimes->{{3.523887365183187*^9, 3.523887365902762*^9}}],

Cell[BoxData[
 RowBox[{"\[Sigma]x", " ", ":=", " ", 
  RowBox[{"a2med", " ", "-", " ", 
   RowBox[{
    RowBox[{"(", "amed", ")"}], "^", "2"}]}]}]], "Input",
 CellChangeTimes->{{3.523887420610522*^9, 3.523887430743811*^9}}],

Cell[BoxData["\[Sigma]x"], "Input",
 CellChangeTimes->{{3.523887434785412*^9, 3.523887436326958*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"P", "[", "x_", "]"}], " ", ":=", " ", 
  RowBox[{
   RowBox[{"-", "I"}], " ", "h", " ", "*", " ", 
   RowBox[{
    RowBox[{"G", "'"}], "[", "x", "]"}]}]}]], "Input",
 CellChangeTimes->{{3.523887937683236*^9, 3.523887969873364*^9}, {
   3.523888017557729*^9, 3.52388801886612*^9}, {3.523888058122041*^9, 
   3.523888067540842*^9}, 3.523888137467935*^9}],

Cell[BoxData[
 RowBox[{"P", "[", "2", "]"}]], "Input",
 CellChangeTimes->{{3.523887976149933*^9, 3.523887987983125*^9}}],

Cell[BoxData[
 RowBox[{"pmed", " ", ":=", " ", 
  RowBox[{"Assuming", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"\[Sigma]", ">", "0"}], ",", 
      RowBox[{"Element", "[", 
       RowBox[{"\[Sigma]", ",", "Reals"}], "]"}]}], "}"}], ",", 
    RowBox[{"Integrate", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"G", "[", "x", "]"}], "*", 
       RowBox[{"P", "[", "x", "]"}]}], ",", " ", 
      RowBox[{"{", 
       RowBox[{"x", ",", 
        RowBox[{"-", "Infinity"}], ",", " ", "Infinity"}], "}"}]}], "]"}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.523888084734476*^9, 3.52388810607704*^9}}],

Cell[BoxData["pmed"], "Input",
 CellChangeTimes->{{3.523888109998867*^9, 3.523888110431249*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"P2", "[", "x_", "]"}], " ", ":=", " ", 
  RowBox[{
   RowBox[{"-", "I"}], " ", "h", " ", "*", " ", 
   RowBox[{
    RowBox[{"P", "'"}], "[", "x", "]"}]}]}]], "Input",
 CellChangeTimes->{{3.523888146079685*^9, 3.52388815360877*^9}}],

Cell[BoxData[
 RowBox[{"p2med", " ", ":=", " ", 
  RowBox[{"Assuming", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"\[Sigma]", ">", "0"}], ",", 
      RowBox[{"Element", "[", 
       RowBox[{"\[Sigma]", ",", "Reals"}], "]"}]}], "}"}], ",", 
    RowBox[{"Integrate", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"G", "[", "x", "]"}], "*", 
       RowBox[{"P2", "[", "x", "]"}]}], ",", " ", 
      RowBox[{"{", 
       RowBox[{"x", ",", 
        RowBox[{"-", "Infinity"}], ",", " ", "Infinity"}], "}"}]}], "]"}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.523888160960415*^9, 3.523888164708568*^9}}],

Cell[BoxData["p2med"], "Input",
 CellChangeTimes->{{3.523888169641574*^9, 3.523888171151216*^9}}],

Cell[BoxData[
 RowBox[{"\[Sigma]p", " ", ":=", " ", 
  RowBox[{"p2med", " ", "-", " ", 
   RowBox[{
    RowBox[{"(", "pmed", ")"}], "^", "2"}]}]}]], "Input",
 CellChangeTimes->{{3.523888176246748*^9, 3.523888192600615*^9}}],

Cell[BoxData["\[Sigma]p"], "Input",
 CellChangeTimes->{{3.523888196971017*^9, 3.523888197806941*^9}}],

Cell[BoxData[
 RowBox[{"\[Sigma]x", " ", "\[Sigma]p"}]], "Input",
 CellChangeTimes->{{3.523888201544667*^9, 3.523888206015008*^9}}]
},
WindowToolbars->{"RulerBar", "EditBar"},
WindowSize->{981, 906},
WindowMargins->{{203, Automatic}, {Automatic, 76}},
FrontEndVersion->"7.0 for Linux x86 (32-bit) (November 10, 2008)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[545, 20, 171, 5, 60, "Input"],
Cell[719, 27, 244, 6, 63, "Input"],
Cell[966, 35, 865, 25, 121, "Input"],
Cell[1834, 62, 1002, 27, 165, "Input"],
Cell[2839, 91, 239, 5, 63, "Input"],
Cell[3081, 98, 229, 7, 32, "Input"],
Cell[3313, 107, 481, 15, 99, "Input"],
Cell[3797, 124, 497, 15, 32, "Input"],
Cell[4297, 141, 1250, 41, 81, "Input"],
Cell[5550, 184, 286, 7, 85, "Input"],
Cell[5839, 193, 382, 11, 55, "Input"],
Cell[6224, 206, 256, 6, 55, "Input"],
Cell[6483, 214, 945, 25, 143, "Input"],
Cell[7431, 241, 297, 8, 77, "Input"],
Cell[7731, 251, 531, 14, 32, "Input"],
Cell[8265, 267, 1338, 42, 103, "Input"],
Cell[9606, 311, 1069, 26, 77, "Input"],
Cell[10678, 339, 1131, 28, 77, "Input"],
Cell[11812, 369, 319, 8, 64, "Input"],
Cell[12134, 379, 319, 6, 32, "Input"],
Cell[12456, 387, 751, 16, 121, "Input"],
Cell[13210, 405, 190, 4, 32, InheritFromParent],
Cell[13403, 411, 422, 12, 32, "Input"],
Cell[13828, 425, 1357, 33, 32, "Input"],
Cell[15188, 460, 523, 13, 32, "Input"],
Cell[15714, 475, 210, 4, 46, "Input"],
Cell[15927, 481, 989, 32, 224, "Input"],
Cell[16919, 515, 470, 12, 81, "Input"],
Cell[17392, 529, 163, 4, 63, "Input"],
Cell[17558, 535, 393, 13, 55, "Input"],
Cell[17954, 550, 473, 13, 32, "Input"],
Cell[18430, 565, 502, 14, 55, "Input"],
Cell[18935, 581, 216, 6, 32, "Input"],
Cell[19154, 589, 270, 8, 32, "Input"],
Cell[19427, 599, 106, 2, 99, "Input"],
Cell[19536, 603, 609, 21, 135, "Input"],
Cell[20148, 626, 215, 6, 32, "Input"],
Cell[20366, 634, 585, 17, 121, "Input"],
Cell[20954, 653, 246, 7, 32, "Input"],
Cell[21203, 662, 93, 2, 55, "Input"],
Cell[21299, 666, 302, 9, 32, "Input"],
Cell[21604, 677, 443, 9, 81, "Input"],
Cell[22050, 688, 224, 5, 57, "Input"],
Cell[22277, 695, 278, 7, 77, "Input"],
Cell[22558, 704, 157, 3, 32, "Input"],
Cell[22718, 709, 829, 21, 32, "Input"],
Cell[23550, 732, 783, 21, 32, "Input"],
Cell[24336, 755, 96, 1, 32, "Input"],
Cell[24435, 758, 97, 1, 32, "Input"],
Cell[24535, 761, 223, 5, 32, "Input"],
Cell[24761, 768, 101, 1, 32, "Input"],
Cell[24865, 771, 387, 9, 32, "Input"],
Cell[25255, 782, 120, 2, 32, "Input"],
Cell[25378, 786, 623, 18, 32, "Input"],
Cell[26004, 806, 96, 1, 32, "Input"],
Cell[26103, 809, 266, 7, 32, "Input"],
Cell[26372, 818, 626, 18, 32, "Input"],
Cell[27001, 838, 97, 1, 32, "Input"],
Cell[27101, 841, 223, 5, 32, "Input"],
Cell[27327, 848, 101, 1, 32, "Input"],
Cell[27431, 851, 131, 2, 32, "Input"]
}
]
*)

(* End of internal cache information *)