(* 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[     78390,       1563]
NotebookOptionsPosition[     60657,       1226]
NotebookOutlinePosition[     77299,       1526]
CellTagsIndexPosition[     77256,       1523]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Muestreo", "Title",
 ShowGroupOpener->False,
 CellChangeTimes->{{3.4808722611251097`*^9, 3.480872269066564*^9}}],

Cell[CellGroupData[{

Cell["Teorema de Nyquist", "Section",
 CellChangeTimes->{{3.4808722756899433`*^9, 3.480872285527506*^9}}],

Cell[TextData[{
 "Se tiene una se\[NTilde]al cont\[IAcute]nua real ",
 Cell[BoxData[
  FormBox[
   RowBox[{"x", "(", "t", ")"}], TraditionalForm]],
  FormatType->"TraditionalForm"],
 " de ancho de banda limitado ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["\[Omega]", "m\[AAcute]x"], TraditionalForm]],
  FormatType->"TraditionalForm"]
}], "Text",
 CellChangeTimes->{{3.480872303297522*^9, 3.4808723342572927`*^9}, {
  3.4808723712424088`*^9, 3.4808724003230715`*^9}, {3.4808741381935163`*^9, 
  3.4808741806949472`*^9}, {3.4808816949198833`*^9, 3.4808816953689404`*^9}}],

Cell[BoxData[
 TemplateBox[{PanelBox[
    GraphicsBox[{{}, {
       InsetBox[
        GraphicsBox[
         GraphicsComplexBox[CompressedData["
1:eJw1m3k0lP/7/yUSISmVSBJCUiFbcVmzlDW7IkKSfc+WXYs9JJWdGbIvWcKr
JLxliZBU9n2ZGdsME+Y333N+n/nnPnPOnPt+LdfreT0e58x91sbVwI6WhoYm
Yj8Nzf9dxeD4IoVCQVWWk2artKPXfXsjnB8076HDZTL6F3rMYWDg0OJn6110
rOHG3MfPQXD6k+sxae4dFHyd5qzZsQSoedRKf/gvGc0ez+9OMU2HezFXCL/C
tpH/J/cXWoU5sJUU8BTBFpqsbRbYji6AXNZRzrQJIlK4m0M0EcbCW60rHj+e
baIck++CPe4FEOZk7SesuYEszs8qe6xmQ8D+Il+PlTUksWPRqrKYAtYhvfxD
2FVUvI9z28YrFFKaZtLeOhLQR+WP2YZMatAwJsRczIdDxWuNazz7XeEcm6Ky
YcYSqiAYyhbKpEGlyFPHyal5FH1CacKjpgLGvlbwSknNomvM9llpx1tgRjRF
HH2YQmunet5gfnTDkeBCKbF9E8j5v/eMbU1DICqFF81f/4N8w/hG2v+NQrjq
yvd6v58oupND4faZaeAwLE0wO9GP+g6rkrOc5qGS+PVwB38ncvJAn3J/LkH+
75nYhYhm1OUz8+rwUxzc1eeu/n0/D2EWTyebDuKhnilgsMU7F+5QVoX4f+Hh
6uQ+nlBTBBdOa0sNeOLgHOHjtlzLf5Cu4bDLubkEmrm/unVM+2H8bG51zbV5
UNNm379Z8xMimeuEOZenIN7qZ8jl2j+gXRVu/tx6DNp1TrPosU+Ah8JXRZ+n
Q7ByliO4P30KKKs8P6Qe9IC31wXr+OOzMHV190ne6xb4+YfNwL5jHt54jq2u
6FbCvcfX5xhuLQHNwdysfzffwpcL0s+/0ONAaWd/r3aMOwgyNs7naRAgufZZ
X8qEBJxufKRG/3QVOibm9XgNgoGGTFvoMbkGqWF/L79yTwGSfpPlV4EN0POU
OSOpkw2/Ja24BCI2QefW9jzcLwA3E7YjfH+I4CJpvStOrRfO5GlTutNbcCPk
VdPZgQIotcjCrPttwz2asKLu7hwwkX+i0dFEhufKHlLvrd9AhaUzn9zOP3iz
yN99jjURtphU9tcb7UKBCof9vcFgMOi7JnU6bQ8mVT/3vftzD/7/eYD/nQeD
6O73ElYU1MHeSut4Tg4EDTreH2PbQ/MHBW6TJdzAr1P+yU7zDurEzfhf+hMF
CxynWHID/6GADRW70JMpwLRD9t+4REbxSjr0//ZlQXG8ceOtiS1kxfzuykBf
HvR8F+17n0BCds2sprVNGMgqZmiruUpErkJ++0U/YiDeQtM7eGEDeaz+PtQR
mgd7tfRb2m/Wkd1BIW35a+8A9/m6Dv/NNeQeyZvQwR4H/zJGLOsZV5FUn0uO
0Y4zeFwkZ6wF4NGLo1UfM15eAZyv5PmQ8WXUHeZ98plUNDietjXmUlpEM+8W
Oi0YCkBj660ac+wcCtXyEjRmaQCbx7mF/sRpFGAffON3WjsEGGVWEy0mUa+v
6WBoYT+46CamNQn3olWZRP6jcoug7HHnUUZVK2roTyoeM14BEVpy1SOLahS2
zTO+a4yHkAGhAa4v2sg2ZFWHTMHDf1VWqhXPqoGVU7KMxhAPmW6WrfK1raBn
xPto22gFzN/UajnJ9kJUowjbB8lFMJd5rZZoPAnXmuI6BOv74crNLHz58DQk
pavqDwt0QIFQxi9/1znIZYoxXR5pAO73BdzSTIsQ833EqGsGA0n99XUz2GW4
nanhTDf0HA5m/iyJuomHU3fNPFjTFSFn8ugJo3kC3Du9cbLS/AGwWkiTrl1d
g/sbCWnON2JgR2B8P3fEOnRdVVmmqL+Fhyqs8psDG6ALH4zYpPJAsE069dxl
IpBl7s0sVWGg1Zss+TKQBEFLTtU/BjAw7atMs9O5Bc03qp0WOPIhrOvw1l0u
MoiMrnhwGGcBnY7P1X13/0Fm67kpTt5UGJAcTtrG7kD7o1R2FeanIOCCuJeI
uxAhxtN0d9EdFA8KJ7DeosB4x0RvoJMiKE6tdr4uo6A0PAPyruOEnoQCZoUH
e2jF8Gkhz187KOjNk7Ri20VN2TkaRmVhsH+plc256x8STfjoIPciCcarrD6F
RpHRybFFW2XJd3CAVdX4qPg2ok0T62z6LxemrgwUX50noT79sv02chjI+buG
L3hBRLfDz9S8Z8HC8dtN61jZTRQrqdgZHJ8PikkSddfW1lFSrMc+d+r8qm3W
bW6+XUPs6sarX92ToPTw4Gd1s1Xk4udpNSLmB+cdr2xoHSOgCB8rbueAbYWB
96WcqaEraOU1Ubm3JBDajht01eIXUfiJledvCrIgKJHd1FdmHrVZ5GR6Y2sg
K1PEzjR1BmnQHWidQq1wWSl93ZxxCslxhvtwNn+H2aAAMe6h74jnvnt5lekC
+Esmyks4tSO3pef6dlnLMI/DZ4m41aMLgOW7vY2Dsg2nc/Mjyeiu4IXuHxt4
EJQ9XZakWgp5ylllCjl4+FteJoyutMDgieo/zSsr0PxVNudHUBdcq7ft7uBe
ggQVi0K36gmgtNp5eKYNQPyHkQ+fZafhOt9Jn6+Xv0Fcj+1p+i+zkDvSx1Ld
jYD8xaJW5+ECLPaGlB2ZKIFtgX+9PuQlcJTKZnh1LBns7Ri487E4uNAomtEp
agXTm3OUwDQCTChafGylNYLUF/oZWaOrwCUpMErjEgl78e7G6hLroEd3Qttl
Jg3KO2e07wZR83YrtGF0KAdCgr6Z8o9sAv/zL+p1ghhIt6fPNRclwYO5ydZS
DizsRb4UpfHaAn4Zk+W2gwVw8thwr1DnNqS2OYuQXmdD6Vdysy3LP4i5FdYz
2JwGLf/ljLw22IHngz8eKq7EQNz1fWwGBbvgu3/+pCTRF/5zEp/iWNuDs7F9
p1qRAdheKIzpZqUghcg1afnv2hB0dFFrqW4XeQXZ3pwI8oGrqqlXH/zaRhqt
QaqKltlgcOQhX1TCFjLpljqr3JQPda6Rm2dlSWih/9SQMSsWMgK437aObaKq
d/K+2VcwcNB2kHj79QaaCNoMaL+ZC0Jno2R3t1fR/WPn+RSfR4OG2Pg/kQYC
ItXTqIx/toTUqEQj3V4c2tDzHfxibAoHVRskHWEZaYeo0nKoJgIrv894cNIC
ytcMlCq4UQzHrM5LZE/MoiMshq0e083AlnthQBnTha4cM83yObwETOXnXzP+
+4yq6VQGe7ZXYFjkYJxZbClaW90bDMjCw4MHIvYf9pIg+eBJ5o9EPFA6L1/h
XK0HxaMH7hBxOLC+zGLVeL0dHG/ytzmVLMOPMTuhLN8ZoLzu0NDR+ArNYT9T
CFzzcFrIVr7R4gMoJK2Gnnm/CIaJUxZ2VP4SeeKXbWiyAqcZ6Lc83EKgaBgD
Djg8fF7lM7dw/qFwrxfELsqswgRx/2e6815A/qhTQRhYB2j8nVr4LBP4GqVE
Y0U34aCnT7+mfT58Y837wRdFBNPm9XAGJizgIvBt37pIUGScId3igIH/Hq7+
IJ3dBqGPkd8DafJgNpPlphllB/zvs5jZRodDY2aQcIT6Hij3Pb4s5/MQanPP
yDMUUMAkNT1a4xwvSB+JGOn6SUHzw+dC8UHbCnzlHE39SXtoVWzPj8fKGuQN
TOPZZHeR8PkFsS8fQyDBKJ3dYOMfWiAsMcTdSoTOw+z3OyrISNhZ94Vc+xuQ
6JbL9THfRvZBlYKa13PBZRKTTj66hQ5d9tbpnS0APp/5iMwPRGQ6Wf1Ylw8L
v3RI4s3Wm+j1wvXp6wcKwPqJVlrl6Q1UNCUXKSiUDSerdFZGW9eQduxlkLyY
DAc1DNZZQ1fRMz/b6Iv3gmD05Ys2TyCgudXNLgd/MWj/usR+tn8FxXSfk3r5
3Bu8jmoyHFBfQiymbr884t7CSUvtCdG4eXRf1WqsPasKPonjlNVnZ9A+Y/vQ
q3ZfgKn2xFGWe1No6nQTzXJ2L+zNJ481+PShhcWW6qWpeUhNeV8Q1NGBnOXp
d6UVluHGjOOJ5+SPKFqXie7UFxxUf+v/qtuXgfYt3nySMYcHwtlbLSJ/sdCn
mJab+wkPO3qmfyi4T0AZTuRikcABYYSszcD7DT5vf2SifbEEoprXLe7dnwDB
k/rGgXGDoLDse0prcQqeiUyblrV1QdhZDeh0mgWSwOTYadnP4KD3IWLk5AIM
V5zWmX5ZDsW9bywgdwmkJy0OSu++gmSNM7clTXAwfzT2e5CmA0RS9DcS3Agg
P/c4/5aNOozkjq4aVK3CtwP1xrVXw4Ci2kD5w7QO9TW3U7NFX4FhnL5xov4G
2J4MemF4IgfEzDga+Ms24eQDzlsl3wqAfozJXIGOBCws/GwyAlhgZmlUDtPY
gsI2ckWZZwFMSTdei8veBtsnY7piUjkQtq8pPHWGDLEPnI4rsqWD3LGnew/P
78DxqKxgUkA8fDmX84w+eBeORbL4cNwKANYztTGcX/fgRfbZ/IYSM7Awu/aW
RpqCbjHKvTBKVIV+cbN/T6Z3kW9V8PaijCfwZmkMl9CRUb+Fe8xiRRY8+W7l
ulC3hU4PnfhqczMfVHjNpmZtSYjzTe5ewjIGzhxjv9LERER7cT//KQVhoMvq
sNTDzxvo9tqn5tSlXHjhPvElgW8NJScLZ061PIcc+7sX1yYIiCktUD1cxB7o
RtTIWQJ4FGU8cnt/pAb8u0u6uBm/jJTPiONL4mKgkdeZq3thAb1qH/nYzFQI
pRdsGo2l51Cx1WdslmMjwGNLqZD5buT/U9TOtGARBI8o0xqafEHHg1sxv4tW
4NuhJ/LMfRVIQCQwQCsYD194n0W/YwsD+edEhbldPNhCh5ydfC14FXDVaPFT
ee97zZHd7a/gSeB83Lh/BcI49scICc1A3eOyb7cq2qBysKG25uscKObp9ozG
1EEJzy3d9+aLcFjbiXD0cj6MCnFePE2zApJXSq+kakTCr4/Ih/QWD8fM877x
ZZyDfb8K+ZTYVkFUh2so/44r/HN7ZR5VvA4ODCenfq+8g7YnOZKfaTbB5HXs
P5OBPPBbXJE8Z0EEb1balTEqD5rtbgSV5ZGgZUxJnSkPA0MEzsXHxC34cUyS
Rjw+D+4urrkID+zAnYe0SWFNkUCI4smVPrMHoxxmZu7OLrBjlDfL9JgCQdm0
lAcG4qBZY/XRPpqCIg427L67eBH83aXvFF7bQz/eBZr4jDtS80WbsZxxGwk/
C31xSj8PTENpkFsjCX05ym14MQwDZ9V2zUvvEdFXFSFn3SUMGJiEV788somS
x49ETrHkg+FPk4SQK6uIZOjN0mXlCeMhpSqq/Xg0Zv3wenMkDUwkuvMeurKC
DI/hSHj/MDh5yiLxYdoiqrY/t5d9LRcsf/gMzB9uQ4+GQ61p9pbh2ZaXyLeZ
DyhIPyk5XwQPt6+x0u77LxJhBv66re/gQUyIpL07WAG3nl5fp6Xu9wvpfYst
9QugdZtfSulbEdwINFct1V8GhhT1Na/4BJAOw09zkHFwc26tf6tXH1SWgw49
/EQAu8ztx5JW94CZwV9NuHADOIIJQ/QxufAjO5R0jp4ILTt6hIteGLiEoyz5
GJLgOPN+x24yBlb3HI8HZ26B8+Ejpf9e5oO50b3UjJ5doHt8rfvqoBdENJTI
sp+hwIdoXX6xP5rgsns8KH12DznSv/vu9dAQBAw8BvkctpCsmkrkmmABiKEK
hrssJOQR9K6ngpr3p6cEGbqqN1GZ0ps8x+ECwG3adN5PIiCOdzqhl5xvg5DE
3/JdPxzy7BjINXK2heMiQdfGcEvoQzb9SOfLZDilwJ6d7leIPv1yuBfRhAcn
hYSDPJtvoaisystvEQ/pxq/Pd+c1wphStSdXNQ58Bn9yxJSuQFbtjz+WcX7Q
TFaPWD5DgEdHNXx+mx2m8uOgLOe9VZCVcgpiZH4MwVud58xMN2H7rPdh+6V8
4JEw9+CrIEKysu99V14sRDAvHp7fIMGTscEYw3MYiK77U/bddQ+sb8bSmhBs
wWM1/eX+HxSYTxQSs9ykKIgLadvMLlHQxA/9i1FWvxS6QJvjHXYPfdj5EVqS
ZwlPj1Zef6i9i/wckb1x6hMYYop8qXpwB4nO2918VZYAn+QfVT9qJyM/kaQd
erY30Cn6QRPrso1qc+/zeaznQFVD4pG/wluob+QrU2tdAdgo3+/l6iKi2Bg2
FHEeCw23kvs7vDeR1W/NV67yBbC2aXTQRWID7d3eWJ+LzQYti8BKoV9ryPTA
S5qSQykgOc0Ws5a8iljphTFnWEKgAVt36aARAcVkMq8FH7kGnwyex9uTV1BB
ecumz30P6Eps5S/xWEJLNHfsUozTwa51MZ+hfh4d3f9kXwqmEvR2eisUWGcR
STH4p01jC2y5D/HZv5hC/L/bRpXre+B5xlkZpvY+1DUUTZeMnQf+NpnfOT7/
IfkS/g3fQ8vgcw/bXw9NyMWMOf5iAQ7e/g77pjSbjbKOSsieHsODYerUNx/h
AvDZvSqZ3Y2HQ9nFV7O0P8EUJ5/QfkMcPLf7fe6seyd0lYkLpnxaAvI3Uclh
uQkQeuN3isI0BMejb9yKa5mCvltH8Lkp3bDTKfu9WGkW1Oev1afPfYas1PuP
sgjz4HiQ9/h3lwqI4nfKzvVdgrreuK33J9JBVO49LkAMBwea3DW5nJzBmC4a
l36HQPXobV88GWDnUj5X8btViGfROR5aGAIhmZYDGOIafPMgPFPSTQVBt2jz
99c24PuGcvxCVTbQqTcs5r3eBNvVNrYzrwtA7k3s1csEIhh2SRoXCWEhSe+7
9hfxLSDM3ItUzC+ADs3SVcXYbXiTmyybHpYDTmd47Mv6yGD87aLEgfp08Kn3
Z+s/sgNch2T1D9glgOUrjxtjD3dB09zT/QFTEFz2e2z9pnQPtlP4D7XE3wVj
Nzr+UzcpKNBZlmb9tSIEtiTc1iLvItM2JZ+7pe7A0ZMtrH+KjHY65CrMzbPg
+OXfHFzdW+irVIbMs8P58HRL2fw/fxIqjbjw4dMQBu6NxwTI8hLROr/dZfw7
DJTeLR70HNxA03mH1hel86CR8/CzEak1dG50OUnZIQZ6aLnbBjcJKCmQq6J/
/SF83J/V9Z8eHt3hHcgdUwLYWEwpkqtbRgrYL6KNPc/gaOa8jBfHInpf+LGN
kZrn/xIpIVds5lDpB0PrhzIfwXjad47nWQ/S7NcUS3NbhGqlXqnH9K2Ik5Lm
Fxi6AuSoxq1rx6tQq1wv9sYjPAS8vNH5SNINTn2v259MwUPq9kt4MVUDF9i9
J0eu4yGBl+nRO9Ov4JA5r2l1cQXMy/uanGhmQHC5aOOcYzuIPinWSEufg5QP
OzPq5fUwbbt91V18EcYvmt3cH1kAdUELHqEDy+D7eSsTtqLBreQmO3jh4b1f
psN0nQT0/x3lvrlDgCN1pGGd648g8Nu1S/pp64D54Ox+lPsdpFkPy/xe3AAW
hgjBD1F5oDucZJerRgS4uP0+swcDcfW+ZtkJJMjdxB5rbcLAXUmxzYbxLVgZ
VqJL+5EHafEzIYnNOzA+L744OxEFz8k4qyOH9uD+byGh1GduwFNm/zHGhgKL
G7duFx+SBdUuIZWQNxQ0q5LaQyPGD/z7XKs99ffQragS8Us6DuBW2lE2cXob
rYxGLkuz5kGG2eLV2/0klI7L8u6wwoDNEb98ER8iaulG01f3MCBpxGuYIbCJ
+Gy+aDPo5UOo53FhW7VVNNooSjZt8IZXRQePO+/iEXu0a9TZCH+FER62d3pm
KwjHZXj2pnEIuKYNlbK1LqJ4p981povZsLyfjpG1uQ0VP03+2t67DHWelTNk
kTqkW6brlc6OB1N2rzwHFI+EP5UlRm3j4d5ki8G5wHJwDFuvGUnAQ0tQ6fen
iQsgIm0xdEyvGHj7RJ6zCy4D0FgrtaglQY9nQMjdPhxIlAxfEqYxhWOrlfSe
xQR4x0jQV041h9H5Mk2VlxugnJ9Z2ymeC0XxgkJ5+E0o532lI6SLAduisHYH
RRKIVHIZ5TNiwU/5yVn0bAsMC6tZknvzYaPj8m2/hl24kDt4Yr+VDxQcdWNN
PkiB7cTLEowPdOHhsXG6avIe6it5SnSL0YfGipUAw8AtFODxcO/8ej54vnoT
DOdI6LCKeIbUKSxYlmXra3Ruopz7Rlc+HMAAV9LZ++oFBPRDOZ481GUKY3ek
wwXzcEhl9DFXxv57cLiWq47/xDKq5shUcJ5IgseSsSfItMVIyWB+O78MD4sG
d6UXt19B3K807eureOhisxNd1/oIMpqe/DL9ONATwVoQwlagTdQ9rDEmEJ6v
sxgkHCIAcc3nyUTGuEJ8J5PkuVur0HAfPlbE+IDeCI2Qp/ImEB3lJx8XUefP
S8nJeUOEcD55prXjWKjvcFr6NU4CN2dlWS11DPCJljgVWeyBVvHja6wCDyBZ
665DZCMFuHQVhqSPsMN1coNB1RcK4m3azWDpZQYhpuZzJ/dISLnbOoGRHQOT
hc5y57KJyKdYVKSKEwu0TyzvjgkTkLbdxYMFg6egR0Y79XfhCtre+IRV2PID
8fHMDa6h1+j2daPU31Rvf1FSXTea8B5Wt9uWRSvxsGv8snb5CQ50xoKTp0ru
QzWZmxwVQQAN+vqNdkY9MHnk9iyvdRMerW8WTpIL4Dvf0+BbJ0kQLy54aJIH
C8tfN2pf/d4DOu7O7lNHjeGessexOT4KOrocUh+/pQF76q5OdLokdM3rv7Pc
FAyMqr+aVdzcRJF6PXOCZhjw7sxIZu0hIN2WQ9vKuTagXb503o+MQ+rBJjky
LfrwNkEp7M+LclShtuzNQK3vDhJOmJ4hBs6eKBXeIOOBbkBjru4CNbf2a4Uo
toWBcqfE77KveGBZfGr3fJUJcnY06HLdqHy4MjdQvI0BfiWPnKY6EpxR9qgo
j8bAyM7EkWfxFFBZvEnSMxIGnYxUCW1PCnognfE7By8BRwuPa8QVkBCPCFd1
aDYGxv3C2MRvElG8WAqBOIABYRNDdy4MHrXZkjfPPDsDbzr0kHi+LzJ69/P4
KWreZiXc1+zho3JchExalKgm7FT9acs9RYRhhhjbrykYIF8JYot0IAE/KVT1
0gI1X6yXbBOuUmD3ZvS7G6OqMD/bnuBPIqLPgq9eIir/tJjlXQkJJqCXvHYf
bPW1wZ0xfHRAG4fE7xCH6ZweQqP6K5FruAL0LYamkKMTD1vJE8tCW1nQz7st
6DaJh7chDN/Pj6xA49HTRrzTXrC2L+yDhiQBrk6gbtdeflBXq1HKaSMC11Ka
R7ggFvTShptDFyjgeWz8wHLnmEJ51RXB9U0KGl9+HXBRr14hh+GhUljVHtpZ
upDNVHEHxDYsX6aY7CIm3pN1HkXB4G9H/iHPvoO8lENCkXUCNAycuCvfT0Z0
JZQ8g+p0SPmzzv3ZbxvZpn7TiO7JgaGCA9o9kltoT6HPrSarAMKwWRu/hojo
vCGf6giVF95/s+HrebKJWosnZrdNqDxRYfHppsIGWvnF2bCJssHm0tEU7ak1
ZHy/RXzbPwW0xN1MpzNWkXnMvr4IFELlcV3bfisCEpC6wffshBLIv/6l/YwV
hxi6iW5rC26wpRdWFfJ0CZWURp+zV30NMb6yB7175tEdmXD5nIuVcHJC8aEc
3yzSybjvzv2wBVx6a4rYs6dQuwOhmv1GD+htP5i+gu9D2X7NySXP5+GR5RPv
mu7/kIW7On356hKw8qiX6082oX+srCmqr3AQmNqLWAVyEeGyger9ETxE6ZV9
f9ubB7l5X04k/cCDYFJJ6/g2guXvf0PYbHEwVPSNtZSzE+xs99VtjyzBPZZ8
3mTBCZhdbsx+qzkEYQMX7cpLp0DuPbfYqb1uqMusPMkjOgvTj6KUxRRboFG2
wTL8zzxU3I6ySRutgHUdw9ZB6yUoD9ILeyn2BrbE3RvPnMLB6z3lWr+TbtAc
lb2UaUCADbcFy8+pssDs87R8OGkVBqX+Y4/ofQKfusoVYpfXQGxHS9F9PAVY
rXPu1F3egH4R6fvGodlAaGLePxO3CVWczWyvgwvAaFvnnPAsEZzu2V29JYwF
Yw/zH1Pnt6A1IED0YFMBfDTA3DoVvg1BCxZCd7A5YFOq8/NjOxmu2jqsWrK8
gWPMXpwHGHag9fDcZ8P6BLjQN8LfZbULIowpHga4IPicN3LzTu4eqMmJlCa8
sYKBf/NzgkYUlPX5GRspXh70nxc/uUS/h3bd7mvx492AzU6nn0+AjCpdAx+p
iGXBxNjJBYmfW2hhKpRrgZAH76drUxoiSSheV8U6pxMDITc6s0giRFTIf6v1
XzEGMv74Czwe20A0LMt6wnfzYHAl/xFFcQ2lOZ8SWLoeC9N6AUntFGq+3bK/
bUF4BKknu69a2uORNn+fqP6CNLhfmXG427WMJPGzjtVBT0HBsqBd/cIimow+
krfeUgB8ajpTGb5z6Lx43cV/2Q0w+ZpO0eVXD4qaY9xwNlqEf784+l7caUWL
L1b8jZxWIEnVYuhHXRXyLh74omWNh6HVsEy2LVM4YjC6jafmUfnQtlKGVA0U
zWjAGw08pGlUv1ph+AqjY/xl3UrUvrdbNxS3PA1JGeWTOe3tsHBbIJExcg5q
rxBrK1UbgOagnrAhzyKE7cRJL0lgQADbl1LVvAw3CrQ1DayfwfWCI+OTVnhY
2nWl66GVA7l725x6awQIZXDiClCh5tNW7GupuHVYOmLsoVv5FkIM1uXmxzYg
dEQ9pcUyD+R0Z4Km5IhQbBUuXv0ZA4UnZNXTo0iwxPfkW/Z/GOA1rvP/PbgF
Bcnq6XSbeSA1Ofrsa9UONFrlXzTziQZTSROFPZo9CKKcva8g4w5lv9vztU0o
INK4ZVLcex1aTFgYYvMpKCFn70mhLi9sdzwfN72zhz49SvoWdOQBXLM8EE4+
v43ShgaqRZdz4ZOalbvqXxJqC+l67KWNgTDfms75ECIyT89qsTyABYEBXG7u
pU1EftmqzemWD2mfvTeNdFfRMr7f0X3VB+rH0lEIIwHVyB553+A3pGBiZ2Xh
6byCBGLOHiXlBkO6SbL89K9F1Bt/qrnzRjZIvNXK5eVoR+r/dD2v1S2D3hX9
L0nddSjurbcIzwE84IJ/yOncTUI7NTkzRiQ8rAfrFzlllIHfCe5bH1/jYZSX
vvVR0ALYH352kOVECcT8Yy9RZVuGCdsK7uMiLyHdSUlnXxMOtmqmf8b4WECg
ZzetXw4B8t0myAn1JtD+q/Om3tMNWP+rYSVMnwspBx4rTk9vwmeLU/p3r2Hg
yUHVGmspEqiKdZjTsWHhmi0jZix4C25m2d0PWM6Hz7Svr9iV70L66ZrSVSFf
kFHs2zLc3aPyT4nh18v6MJvZ2vGJjsrfbPWlkhJ6EG19Qdc5agvB6PUI3+F8
SA1na7gsRkL6a9a1lcewEMwx5nNgcBNVnlS6nsaNofJMyCXZcgKKZoj/fqjG
AhrcbZcb6nEouD7kwZFDdyBm19FH/cIyMssn/eJnSwJsWWe/sEYJci/R05DD
4kHo7xcdvcAUYFtWN+PfwMPsSqfYgYwG6EiJVfkyjoMmw4RgPucV4P33Tmb3
fTAQ8AQZm30EwCg40HS9DVbYuiVwRUh5FdR+atyNN/YG2W9cIiHSm9C80u7/
39N8GH+l/3EygQjHjHHZi9T1GRAU+9U/RAJOW5NSY1MM4O04br7S34OK3yEm
J7QcQNC32eBGBQXEQr3UfhechIbIzOOfuqm+qtFdzELcDzeJ4laMjFto/QM5
s32nAGjZ3ltNvCeiV/+BvwuVv9wYNxMLJQnoI2egdyeXAGg9eWu417SCcrpV
4kJlfGHdSPZvze23qKUg+K3dEh6aH4Q00UkXQUraxu1X9VSe0jWLTHiEg9sJ
q0l7i3bAHSRNeuFPgIMKPszcSTdBebIle7p+EwrtxF5UTRXAYoimkxorCf42
6559yIeFoDWjHNPve5DrYyDz5KcJjHYbD6+LUtDBS/F2Kx9uAK/kNGbTjIQM
ly/hgIiBvZKBQxTKJgpeyvmX/QgDMSf37tEME1BHeKa9p6UtCH09mcjMhkfY
xeSgh5+0QVJn3MpLrAJZiWQS9KPxcIO50bTvUDQ416T7p+7gwX3vMtMSxwqw
9/mHd++LANYv29jbFXi4uCQicjHvJMR6vuGesiMCOwUhSQIGFDIlEj6UksCq
8nDn5VQMPBJW2dGMoADzWjLQ14tBl3AAySyIgu5X4S22zl8BqZQX4U8qSOj7
2FyAXBIGaMbQVYIREbFrEgISxzFA5xQ6UtaIRymlZh2Ou0fgu+7vy93dIeie
MkP8pT08OD0TPuHBiodKU6njd4V1YF7k0tjUYSJc+Bqa8yASA8cSFPaCLEmg
pzuebLyGgfXYW7r6IhSYVTJ3wd5Uh0M/rnc9oiUhzezLUwUCWBjG7N9zf0pA
Yrl2tJdIenCLp1z94X0ckv/99M/QL3tYahmYcZTAotF9V5qIX/AgVi28WuuR
Cansk9/fzuKB8T1+zax1BX5KO34eKvUB0z3bd6dECKAtfs+cwssF4o0M5pMf
iWAlLa49ew4LE62yhcqjFOjnCpoVwq0qVL91yPg1QUHvL5uJFb1dVlD+I1B0
9zOVzzJOVRlTx3eLh++fvBYBZYfefJ2LJOEjr9RPL0wWYov9ZRQ1Rc2vUKfV
FHsCeDe49qRFqgCvfJe6NJkIPJptzDpUvrVn7uEZdiWhGJqiFrZJKm/jPO5f
vYZHGZ+VLnh9V4EQx2KnHyL+cHy3ymWWur551ZGqb57iQVX5gGlhgSjYWitq
39cjgtLIBcXSEQzEhtH3fXOmwIEQIqYs5iq0Kao+8UykoCkPCZVeXyFQfi8X
4vSIiBg9TX9d3sRAY8rv4uE5PHL3KoosM55UGBJU+iHZ+hxpPVv8YvcPD7QB
NZX1Mzh4pLqwM9FhCFq3Pv9y1SKBNUm3NImWysvvBVV0TpLQyy91FhPU80mn
2pJq9JaAKoeXX5AZjYFOg+lUUhwO1T9v92cXtIH3HcQzEb5UDmYbINNS/Yyf
JPKomYMADTqBn29f31VgLCp+blNAhMzdonM83FjYz7MT1NpOgSeTXBYrDIzQ
7DIUV1BPQb0FcibKBUehReUyh10qEX3j4GM5Tc3P5I12IY4zBNQmv0896yML
uDkeYA4zfYUW/uaY0Kzhoaa1LeE2Hwn8fynn5FJ9+7cF+fJRVRL6dSdIip8B
Cx5vmpunpnEoFN/b5b5gCAWrCUHcoQmgf++KMc02Hnz6nFmYqdwq81/tz0O1
RIUPkcQlmwAiMB86ZapBXQ+N7yHnO9IpwJRU67njxw86yucPRifi0Z//0uZ0
/IXgwtSgbOrdR0ics4q2isonA6/eBYhI4+HWaW6BFYwqtJENjJ4tE1HZCnGO
TOX/4kNqdnFeBHReJXxxhk4TYugze30UCMB423KOLfYi3OmxEbbpI8LTF26e
6tTfo0e+A582KHCByynnQQ1ScN0+93SbTEH5zVOJnzReK8Qs+fzcqKP6i6x/
UliTBYTa1jS/v7OLztPTQsXVYOhiv+old2IHDQgbEXblEkCG1+VKwU8y8gzg
P+odlQ7+1UlR3UHbyMjLlXb9Yw7McX9evCG3hdJNg/86JRdAkgUwyP4hItfS
2UOSVN7lP6TV+T1iE3GfjRgm2xbAaJzl2waVDZRcF3SnbTgbXF5bHrg3v4Y+
bjorZlamgPGvTIW/uasoY7rpdAFnKFj6pQdL2xHQ6ct1mjF0KhB4fV9J+kkc
+spmH5op4QZxlyf8HV8uoaHMKPqGpjQ403ev/sKveeRqW3rJYLUCAm9vq8qI
zqJP8UcutUALiATn4+bfT6G3UZecW5l7oFLwRYPa/n5EO3OEtjhgHuKKcloU
tv9DWKy+TeX0EowEHs98J9GMNqLwCVXxOFhe35T1bs1Fh7592jf/k+q7Fzl+
lPHlwRlamV37IWr+NJisXi5EoHuRL/Uftc8EdqtEbKz8B7IjY67s80twTGzi
uAf3BLicDtjb93AIZAKy3T/nTYHvV6b2l+I9cJwJ32h8dhZWYvOOdju1gNYL
u2Gv/nlwE4/zOXKiEkRsOwZxxktgdGhh0qfxDVheMsxdPYyDd0lhFyS+u8Fa
u5hjjjYBNvMwVtwFUnCMk0x2iV2FDSKPwyG2J3Bv6tf6k7k1KNS5NEVXmAJh
v8r+KlzYgIfaI4tDD7LBfvvq4chnm3C+vKT3gHsB2GAvpQtMEMHvW9WB//v/
qUz4meNefFtQLKA2UtRRAJI/z5EPBG/DubABrjPUevizOXu4pYUMW+rhs1HS
b8CmhnA6a98OxI6TfIqnEoAdx5rcYr4Lzhcbgrytg4Hp2qHPje/2gNtx1IzD
8B68VPqtedGcgt7KdwS091+D6y4NHDlMe2i21puPJdENYsvzCl6IkFGpg+Il
gZNZ0FZba6D4Zwt1ePTzOE/kQaO5h4TECxKy2HlsdqMVAwnbDlXGl4koTs7G
/VI1Bo5z23QHTG+ga3NfUYxrHkyarP45cmMNsVDoY6oxsUAgFfl9oltF9Itt
m64bTkCXe99RyB2PGvGL7sYZklA+wNzhMrRM9SExx+nhaBiQp4+/IrWIyjeO
nK+j1ndNhneyUdgckmD8EeZq0gDYDa3llH29qGYen9ymvgg8grI8HE9bkauL
nm2e9QpY5op8PcNUTfWp/5zF7uBB9PBfR/qLkvBo9LUphZoP17+Kfjk/Xg0B
eXTmZjp4eHuHsTRlrBUkYw4tLt1cgcA80anMyWkQ5KH7WUBsB41m66vK/nOw
37inLCW+AeLM/uWoHVuEynlu78AYDNxpUsN0VS1D2Q3nmaunnkNOzkZbtREe
Ej7UiZgGy4NLdlSawQoBEk5JBx3WdoA7h2t1hJ+tg3/yaJFM0FvY6KRpdBnZ
AKlIcYFQrTwof876PPwqEf57WJm31ICBD22czamhJOi7/0BbrxcDtA+Cmh59
34K8XA+Bp/T5EPnCIs6qdAfwh2aSznyOBgX9FyUb/3bB3LPYbizBHbbct06V
6lMgQsRtIu+bAoS+ozi8LKIgey425+tHTsN0cZrPN+s95MRMW67iYw+8UvnL
By5uI8+MX0n7fudC/0fOw02TJHRmrgtHq4qBJBHDv+pRRKTMnlrNy4SFjKND
NwskN5F8K6qceJIPuQ75v3UMV5FH+IW3lvG+QOCf/TXDSkCiz91aUp4vKaQe
jG6I8F1BdJP3hlMLguCy9Dpdz/Qi0tL0SlQnZoHxvDOhULEdyUaOJJoVLwN3
Am/lKE89srpy63ELBQc9sryXuN6+REe1mQ6cIeKB+U5t8ZPVUlBPPIY9mEHl
JY9y+bueC6CVz19cElACLWzRzXfplyHSSwYSMl4CzUP+qz8qcfAgOTovT/Mu
lFebh/q/I1Dr49hTGzNjuG4w3DUUtgEv+qsPcOJygEk551bE2CZ8+3CRTvAK
lTdr+UUtr5Bgxi5JnMCOBW7vngXXx1vQUve3vZqcD9gz3VkW73chIIS2WYg6
/5ChfS41pD3IsVF2YSbqQ/7MB5F2Rgpi8ziV1nlCF5xkO+sev9hCOUOf9FY6
8wGz3WlSKEFCFwLTKzOPYCGuI+iZ3cgmeh1btyd9HgPy0eUc4jUE1GPTkbUi
dReEdsi8ka045ELgY949bw6dWUmDpleXEU3IB0efwkRQdH5Y/nmxBN32lLG1
y8ODBp+vebh8MgDN4OjjTTx4/Nkti1dvgMnNfT/n5nCw8ZAu4ZrNCqjnKGnW
f3kCan9aTVO38CCNl95/Kuq9gmhcZZmI/Cp4/BxW2WjyglIV4fcHxDfB8PBV
j1zffDD+4d8e9oIIOyWh8cksVP4bZNXr7SMBy/BRbNY9DAyFaTbE3tqD1/2G
/6mNOYALC7694D0F/AfnQ8yMuKm5mOjX1k9BnEUa7K6CNHDHaWUnlHULlTaV
nJ1cLQD2L5oeihVERE+pv+bPiwWMjmIxqxwBvfvz+MLvFGF4ytdadbhjBV1K
95S6beUDA2xRfWFJ79Dh7MXLMQt4+Kk6i048L4QTEmtKwk3U/nLrupONNQ5y
dU//OXT8Aeg1t3rHeRPA49h9s3lXTag7vVwSUb0J7CbtSt9+FsDWJZEpJUYS
1AnFFs1R+bbtadSJ+s49qD9CN2D9yRTeHtWUI1+hoB7RpPvZWWogXpSh5mJF
QicL5GrDVjHAau3JY0lPRFEnj9vFemHgFbqovv2HgA7f5RWwU7aDVN2yr0On
8EjN6NBg85GbQFNSpvPpSQVKOBLiNhyGh4hUPjfpuAggq82xau7iAXs0n4vu
0ApcIQX1dORGgBf6Ey+AwcNzys7MaOgZoC1rFQq/R4TvFCmCwBIGbukcY6gq
JMFV2e/u4u8wUI083YuCKfDymOxdXM9leO7qbHYvjII2VN8NilVcAvVDN85u
fSAhjLfNs1vPMcCWZKmha0FEwyIjB5hnMeBBPHHYvx2Pmq5eYh7QZoSkr16c
D26GI3MXvco31PH1RzLvqdDhIW5Zqeu9ox5Y2psuhTMRgf/AF6XZQAzwwRlv
fzMSFO9z4MVS/e46f1BrBT8FMiWTBCLjNYBbk/RwmoHq8142g+r8WJjSkZh2
jCUgL6aHd7QuGkAD9kaghAsOYc8Exc9l2EFYiOcX2iEsiqh2ILd/woP29p+d
RYkMUKY/+jV5Hg+Kn+7TedavAMfiB4ndN77wInAoYb8AAc4a4GmJdByAJV22
D/tABJca3VM3qH4qYuHIkztM9Wv6NKE+1y0Fz0lzmvFZCmLpFTZ6NzylYBDf
2tjYRuXllZKBp4JYCL/vzJGrS0A/2pxox3qkQTT4jv7vG9lI+5vGtMUEHvi+
bLumWRNAja3cb/SDElxcLm6W2CTC6bYEz6NU3vQNe9qo501CWTeVM8L+YEDn
MWMaRQ2PuAIZfS9ilWAv+PGbzEve4Pzmt5M6tZ8xVThccA7Gg3eGKmfLwmUY
efvQbP9NInAwy75sGaCet5NSN0QdKMBo/Phukoo0REZJTTxOpaCnB5fc3dQE
wcDyV9I3NyJ60KE137ONARFej4mcNTxatwzRC7drU3j1duRjj1Is6nLrNA8h
48HBN+31i984EHE9sFhyxxhM/mXrOamRID1qyE78ABZszk6Mt50mIXxBpCSG
6htsS6uBOtkEpGOQcb7S3gQ8+rN07rzGIVxC/yM1NmvoZCm6UCvzGqwvLnwr
xOPBxPutJYaNAGwjHut+V1YVgmcGU2mziRD4rP9xLifVD6tF1/lbKKATYiir
fZsVgqo7CMXNFOR3uZ7n2TIb9BN7zre+ISLv4cDA/Sew8E32qIo/PwHps4ff
e/HoGOgL3KbRfZWGtFJvnfEj4KHFE8Ogd5oEo1bWVb+o413uq+55oUlCDCrl
X+X2Y2FcwGi9BE/1438jurzat+G581P2zIg4mJWKc6Wjrsefbr2Nv71UL35T
H7OlSwuin89s0foQ4aqTq8DxPQwk2le8FUqhwMWjfEE3hgShsavpuv5bPHpE
y3Jib/wcnPx7GrdX6EEd//NPbtT9lEsOsdkRxcNNfKK51u8b8NONZX3fGhHV
achs+VHro7bS62b0YwJa0KPt2+O9CSic7YuVLAFWbLPed+8JQT9jzFXaLiJw
7rLGhlB9+CAtVvMsngJbejkOJ/70Kaw6Q+sygYLodfD4vrAuBY/NfZP+fUR0
+0B4tBb1/qsr+7WczQmoITlrnDlaATS0XIpFl4jAwHg2g53Kq0JxUvuSLfBI
mLdrndb7GhB0z6+5etjDF+sh8S7q+IcKxbbZHPHQHjIoffqzFISl61IDioCM
9wiHA3+WK7C0Rt0I5UlE8jUnHf2ofSWCxZi7ToiE6oONm+Kp+9Xk/kTt8QEC
9PJU+9tOtSo43hEqU04lwlxxTRsj1Uf/jsf+nflA9bGkc5MTchzwD0qq6zso
yEyghPO82EFYu8OsHVZARDQKdvyi1P2UbS30Vb1EQNmHKUHnWM7C3z6HTY2j
JJhgOh7XSO0fDGFGSo+ePQMuQb7wXqqfY9uOt4R+pOaV7e98TDY7pE4s5s9U
4NGRe5tMUhongac6PME+KxAdouM9ULaHB/KdMLH1HSJqzfn4s4d6/gVC1guv
XCJA7LUz4s0UXmgMGdVW/kwE3aftrHoCWEgTY5ScnKLA6MPApdnReQWisc/1
H38oKGaK71d+8LqCuHD0q72PRPS8aF0NR+0v7HFL3+UoRNijHJA1p95/v/GY
PIPgE0h0GGJ0pz5foS7n7n9JeKgs62n3WjwPOofU/Fj/4hEet9nxQ35d4VgF
ZjH9xlM0Qiz/JrWDB2ph5g+yk1B1NzNhmjr/Vb9638FTBGA16XeYkzwAyS7h
wS3viaDRMXHchgcLDdHfDtp2UyBYkkAZBTqwLAtkLeckoLH1ctf0O3TANvhc
UG4aDz+uCQ36qs4rjNcm/GiMwqPQuIdVjxIvgiCz2yuxB9ZoYWX5zzi1Pqoj
0mrZ5qj9m+fwDTVqPc0myZ5uGSLCiv3EtWFq/fkM3rC6R6ZAQU/Mf1NFmQr/
ez+Q5v9//vd+1P++/z8Eddkd
          "], {{{}, {
             Hue[0.67, 0.6, 0.6], 
             Opacity[0.2], 
             EdgeForm[None], 
             GraphicsGroupBox[
              PolygonBox[CompressedData["
1:eJwl13fclmMYxvG3obS0S0taVNp7J9pL2rT3pKkdEgrtpYESRSqiIaNsGe2t
oaW9zKbK98wfv895/I7r6X2f536u+7rf8nTu1/TJxAkJCYnwfJL/59gk/+dS
8nPmK17QyvzCYn+zA3/AzM1HmsN4TXMm72qW5YnMJfGz5Efk5dYaydnkf/R9
5PJyH30qeQ/a6dfwlnJea2nkscjHL2K89Td5DTmN9Z28Pj+DNbqS/B55BsrE
h/Kad42/0VuXUrcbbXlq/hzy8gsYp9uBerrTWK0rwd/BX+ilS6HbhTb8RWxH
Xf0prNIX54/jBWxDHf1JrLRWjD8W1xhbUVt/Ah9ZK8oX40/01N2p24nWPBUf
gzz8PMbqtqCW7jg+1BXhueTpKM1vYZFuGW8o3+06/MF78OR8R3yffDVvIeex
nlIeIFeVn5Xvlc/hOa8bbdbTL9D3NB/kqc3N1gaZ3eLamzWttzF/M1fEHrE+
hr8stzTX6/uZ7XlhMycfYQ7lD5vTeJfYd/wm3o79ZzbWLbXWQM4q/x7fp1xO
7q5PJm+P36FfxZvL91pLIT+D3Pwsxlifz6vLqaxv4g/zY/gg3hPPIU9FSX4D
b+kuopvuDr4NLfid/Gncw8/gWd1GPKQ7ivd1hfhCXEBXXVLdVjTnz+Bn1NAf
wXJ9Qd4MT+MnPKg/jGXW7ufZ5Skowf/Fm7rz6KJLwregKU/ORyMXP43Rujd4
NTmlz/1jvJ/Y33J1/SEs5ffpX4rPp1+ne9JsF5/DzMaHm0P4Q+Zk3tkszq9j
QewTPkZuZL5nvbdZn2cxz1l/yuzFy5qdrbc3E/PNeDTuqXj/upXWmsm55WRx
5shV5FFyTvkURnn967yqnMLaD7wa/xXv6Qrwz+W2cV2t3y1PQjF+DfOtL+H1
5MzWz/JOPBHfhCb8jjjfkIOfxEjdBlTVHcQSXf64tjiDjnF46jbGmScmjf2N
7PwERui+RxXdAbyryxefA6fRQXcLP8ee58PxHSrr9uOdOBf5aziF9rqb+Cmu
OR+Gb1FJtw+L497mDTEU36Ci/hcsinuE544zM84PNMAQfI0KXrMXb3tdTj4P
J9FOdwM/6uvHd4qvUF63B2/pc/Cs8kQU5VcxV3cCbXX/4oc4U+KIjn2FbPw4
Bsfn41XkO30vX/JyfDcW6rLzz+KciXvCehb5KbmGPEEuIl/BHK971mwYzwB9
L7Muz2QetzbY7MnLmG2stzOvmxt0deP+5C/EvjQ/0vc1m/J7Ys/yoWY/Xjme
f7xj7DH+Gwb596Pi5+jmWassJ4/nZ9yr8ZyIZ6R+F97k2fSfyo/HPWgts/wK
HuCXMTueQ7yOnDHO13jO8Gv4XleHJ4r3hKz8GAbq1qOMbicWxHOAv4pj8SzS
XcV3+toJCbcf/EOQhR/FANU6lNbtwPw4e/ksHEVr3RV8q6/F+8f9hlK67Xgj
7nueGZmQETXRL74/lPSabXjd6zLEOYwn4zqghH4rXrOWns/EEbTSXcY3cQbx
J/AJiuu2YJ4+HZ+Bw2ipu4SvY3/wW7FfeWZ+BH35WhTTbcZcXdp4v/LLKMwv
YbruEFro/sFXugf5zdhHPBM/jD58Lq8kJ/M9fcyL8k2Yo7sr3q/8WJxP1jPK
g+NnyS/JheR/MC32n9lAv1hfO66R/Ku+h1xabh5nm/m3+aWuejw34u+2OLvM
D/V9zEd5LvNG3Ntm/LFXyRxkvUO8B34IvWPP8pGxn8w51nuYFfkd5hrrneVi
cpHYq+ZGc7YujbXx8VzTrdW1jnNRziAPivcmj5cLyn9jqtcv4rXi+7V2kDfj
f+ELXTX+LwbyDPxX9OKr8UCcj3hVl5pPwQE01f2J9fqqvCdWoXCcj5ilTxVn
b1xDrEShOMcw01pKPhn78ajuD6yL+5tfxwCenh9Ed/4RCsY5hhnxDOLp5XG4
n/+FSbq3ec3Ylz7nPt6E/47P43vgK+QmccZavxZ7Wq4o99enkw+gm35E3Kf6
2fruZgWeNL7nuE5mJ17UvD/2l7nBnB5naJyDfJzcLPak/gmzVTx7zHR8mDkw
rrv5Iu9k3sf/xMTYV3HW696y9nDcI/Iv+u5yKfkR/UV8Fu9d/4H8SDwHrF2N
e56n5fvRNc4gXl5OYn0Fvy/OMUyLc5KnlV9AAf4HJuj2orHuAj7VVeBX4szg
d/F96BK/GwXiXMPUuA/5K9iDRrrz+ERfPvYz3kf+OMcwJfZ6PG/QCcuRL84b
TI7rzcuiI5Yhb5wtmJT49n81El7GbjTUncPaeL7wy/G98jT8F3TgS5EnzhJM
THz7z4aEu+TnkZ/8jpd0C/lDcXb4Bbt4A34WH8c5EO9fbixnt36J941rI/fV
p5b3or1+eJzT+ln6bma5+J3xd1rsbbMjL2LeG/dvPHfNCbr/AA3xp6U=
               "]]]}, {}, {}}, {{}, {}, {
             Hue[0.67, 0.6, 0.6], 
             LineBox[CompressedData["
1:eJwl12W4VVUXhuFDSZei0i0NKlJKSBqkhFIKSCONdIMipShYYAdYpBJKhyBK
SiMh3S0gIPXd4/p+PLwx9j5n77XmnOuQp3X3Bt0SJSQkjEySkBD6ZuKEhBVM
Ezk3LUZb6XrSH8wT0zJyO/qBeQ06QG5htpumQRd9OX0X/l99Vr4uP0v/mPwz
f4avhR1yOvOquq/ksfJFPj9el9OBTXjLPyv5PJgut8RfurToqrsml8Iv8lm5
NnbK4+DHJ0zQr9LlxQy5FUojKd42+1WfDzPll1EGyfCO2Wp9fsySW6MsFurP
6epglzwe92Cifo3uIcyW22CPLh3iQl+Xy2GRfF6ui91x3XFJ9xBG6dIjuW6S
/BtfAHPiu/gyZXUfym3lvXx6dJdvyNnM68mz5cflxfwFvh5KmrWX/9Kn56vx
X+tr8kP5t/T/0AJ4WfeGWSXaS+5PM8Q1oo3jmtOf5YZ0tDycpvD+d/m1+qZy
QVqcvqzrRX+M603Lye3pZPOn6MBYT2b7aAb0iM+u78r/p8/OP8fP0T8hL+Ev
8s9hj5zBvLpuqjxBvswXxGg5I1Lq3pN/5wvhJ7k99usyxtrW3ZTLY6l8Sa6P
vbE2kArv6//QFcZcuQMqIDU+MFunL4J5ckdUxDL9P7oG2BdrCWnwoX69rijm
y53wt+7euE66W3IlLJcvxzXGfjmj71lDN02eKF/hC2GM/KTZq/EzYq3yTfhf
+Eb8mNgnXj+ZbtA10xWjJWhr3YJY6/zjfAc6xexpOkgeTF8xP8Dfh5bxe+I+
0G5yX3rbPAetL3eO+xz3hr4uD6VPmq/gr+hflBvFOUA76P42u5d/iv8mzgR+
GD9Jf5UWxlh9ZX3v+Ayxt/im/MI4H7xuCr8x1hp+jn1o/oTuI7mzfJDPhN7y
HbkyVspX5edxINYt/tUVwThdptiDuo/kTXGt8IvcBYd096OP7q5cBavirJNf
wMFYb7Eu8bF+s+5hLJS7oip+1V/TNcahWF9xf/GJ/k/dI1gkd0O1uEb41GyL
/lEslrujOu5DJtyPB/CZ122N/Y4lcg/UwGr99TjbcTjWLR7E5/ptcU+wVO6J
w7oH4v7GQyH2KVkj34i9jSOxjpEZX+i360phmdwLR3QPop8uUawn3W+xn2P9
4Wh8bvfpad238mT5Gl8U4+X748wzbyYv4rOYf8nv4EvH9TRrIy/XJ+fL8x/r
n+EH86/qj9LMaKXrb1aedo/PRBPLOWmDeF7Rn2LP01HyMPqM96/lb+pfkpvH
96MdYx3RY3HN43VyJ/pdPHPocHmK2XVaDG/qq+j7xPXkC8bP4hfzWb3uK34n
XwYr5BTmFXSfyL3lY3wWDJCT4Fnd7/Kt2Es4HmsUN3TF4wzXPYhsuq/lXXxZ
rJT7oCb+0N+O74UTsUbjjMVU/W5dOayS+6JW7G3kRC7kxrR4hsQZjV/lfqiN
PPjGbE+cD1gt90cdrNPf0bXAyVjnyItv9Xvj3mCNPAB1sV5/V9cSp2LtIx++
0+/TVcBv8kAc12XFQF1S1NNtkOMPh1by6dgTyI/vdft1FbFWHoQTumwYpEsW
Z5duo5wonoPymdhb7suz8vfy5/J/fAlMkDPHc8X8RXlJnE/mP8TZxlfC73JK
84q6T+XB8kk+e5yv8V3MevD38Ln4hvzceG7EM5iv7/WbaGK0iDM79gDtFGcQ
PRv7ntaUX4m/08zr0BHyEPqF+U3+YbSW3zavSvvGuqJZ5ML0JbkbXRrnIh0r
F/De6fRAPGPiXNK3jWehPhVfif9MP0Q+xeeI3yknj8+v2ywnQRv5XOxh3JIf
wTuxB2JP6GbIB+Ocxzp5KBqiEGaaHYp9hPXyMDTCn/qkaKs/H3sJhTFLdzi+
IzbIw3FalzOeR7oU8f10W+RkaCdfiP2C2/KjmBh7CEV0s+UjfDVslFPHM033
uTxCPsPninNDTonc8YyT58XzwHxr3Fu0j30ez1P+Ypy9fC1+ur4uP5Kfqr9D
S8Y1002K30v7xfqm2eMz0RZyd7osfgcdJ4+gRb1/Dn9U3zz+LornBW0XZyLd
ZJ6GVpY7xtqIM4UOkUeanaW5MTz2iL4nn4rPwz/Pz+cbe902Pjk6yJfiOWBe
W54hT5Pv8o/hXTkHiul+lI/xNbBZfg3ndHnis+tSo4luu5wiPp/8T5wpKI6f
dMfjWYQ/5dfRFCUw1+xEPGewRR6FZngY88xOxrMBW+U30Bw79Cnj/NZfjrMI
j2C+7lRcF2yTR+O8Lm9cI12aOHt1O+PaxJ6Tr8TZhPjPRinde/F8iWuvWiCf
5mtiu5zWa6rovpTHyBf4fHhNTou85i/IC+KMNt/Fp0bnOMvNOvNX9Vn4OvzM
OPP41+J80ifiS8e+oO+bVY/nX5xvNJdclLaUe9DlcT/p+MT//z9gSe//HzkX
ppQ=
              "]]}}}], AspectRatio -> 
         NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> True, 
         AxesOrigin -> {0, 0}, Method -> {"AxesInFront" -> True}, PlotLabel -> 
         FormBox["\"x(t)\"", TraditionalForm], 
         PlotRange -> {{-2, 2}, {0., 0.9999996881951579}}, PlotRangeClipping -> 
         True, PlotRangePadding -> {
           Scaled[0.02], 
           Scaled[0.02]}], {192., -116.80842387373012`}, 
        ImageScaled[{0.5, 0.5}], {360., 222.49223594996212`}], 
       InsetBox[
        GraphicsBox[{
          GraphicsComplexBox[CompressedData["
1:eJxNlAs0VPsex8egDPIojz3Is5ySRyWc8fptOo4eXiV1UlFeOXJSlHTHqyh6
KY/hNkzXSKY50oOinGpPeUyGUInxisTkOds7ucntrnXu7LvX2muvz1q/7+/7
/333+v0NAiJ2BpNJJFLOj/e/37jP7pOLi0Y80t9PsVRUIcmGYNlg143UA4YS
XiGsCS9IN5Dwzipm4FqBvoTpuEP4tU96En58ihl2z1NXwh4ZPvrfr+tI2JX1
zGPLqJaEi/inW6P2USXsl5yl3nRbkzeIUorLpO9C/EHpuworNHjF5nYyo8YY
kMz0sM3n1HjvD0nV7YnjQ8el6ynF75fzBIHZ7yoozaAjH8qddlblhWQk8n5W
aIEjViaynTrKvMI0pSctAUIItPlwu6pKgZfdcJCysqgLTGJsF48WyvEMq6rW
jXn2Arvbu/q0kyxPsIT7W/upPvh8Rt3eFSHzvFJjZEj0fqhkrHEZ3L2Accap
1pu4Ilg/1D5twZrFWk+zMh1fD8IvlZ2Uhd3jWD+qcCypYRiOce/Nqa74hFWJ
t719PzsKu0OM2G9j67DEjhNlAd/EwG9ov2jp/QqGkQSwlcPB1uxFqVfOJzi7
mn2n7uMokKPVu4Ko42A/LWTq9g7DUkWvMwHiWfipy1E6pGwQknpbN0feXACb
my+h7ZoI7uee94qflEJ/N92/sCyzHyIKglT6d8uigkYjK5uwPvALY65MOSOH
elhKiVeH9MKFHdE0yzwFdHJsbiZW2AUyagxRwrwSWsjZLpOZJoS2+nPjycqq
aO5AndqmtBbwoQdYM6uWo5M+hdRKm2YIVxgxbPRVQymMXU7ZPq9Ar7g2e8mw
Oto93/Yv/yAe0B9v9lbO1URz1D3z6rXvwbGi8HJrCyr6v/+tSLYJMB/QkrDL
H7sYJpk6EkaerIxwWaUr4YzI1PT1bXoS3nne04xVri9hk33JPoVxBhJuFVEK
Mn0MJdwYMOC0XM9Iwn/vg4SzThzcnphL7MOSpLn8XyPbMXZ/j3Pe1zEY/+f1
oInrkVh97zxNbR6H8PxTjJV32sFaT2VWamYMoi2EMkbBCOp2aijEXukGOLbs
uLxRnpjP+BZV68JVwk/OvE2X95rwmxpet9WqoQd7+DtDnhYzBrqWW0wLVCsx
TndFtB0dh9DNkSWdw29BKY+vdSNeDHNTy0ypJAS9Mfjx8wlVDuxx8Gc/zCPy
nU9aLHHfQ/gh2jVze5B3WIa/CX3xH2IgkR4tBj6vACWdl+QVKThMhRV0mwoQ
tMJW99vKqUuws9byfDWf0L+8mCHXKyLOe7KpwCM79iNmZ3rsaIrNGExiNzvf
OFdhK/ZrqDfZ4dCwtifypFoTxPoamYVXicG29TZkvdZEpRIQ53yNYuifGCie
CSbOGxQ1+cXCjvBTbvrg5unSimkZyva424rheMiRoeqsImCzAoMSanHY5O4w
wclB0NRtsaUD0tnw9JFxc1ExoS9pSHd2sivGaP57hZxKHEpTlwoefEPQZ7wU
449PT8FgK2rf94mo16cdW4iYIuaLtOcatbj2YYlXDuSba47BqsxAx7f+tdi2
XJd+RAeHbfSu+Jayeiil7bB+NyAGX9fouh0PNVE3gSVuRS0BE7e1G7K3EfNR
R0Z0DMwIP3nuyKygsw07kDSpMkMVg7el8Ol5pywI89vEsBLh4PNcnh4cj6Dl
vaWKqhQmHDfTn8lhEfrKy69C2G1l2NEbqZwJJg5vv7Z4R3xCUF+lB678wSRg
edgeeveeqM/ba2UbmPwAhF0ZlnVFONQvropISGNhZH0Til8HDumatui0OhVV
yn8025jvBxv9XTUnJgi9h0rPl4qvRD4TkaZKUSV9mL7jLhp56Rg8i62K2Cnm
YwO23fUOijjIreqUSZYWgMfawcolX8QwvLg/7T5H88ft+KImUesuuH8VRIns
iXymi0LvUY3/bz80JuvlOEJs0XKI+4oiBnNmIF/NOgGanueVqMziIIqegOrj
CGpl2vikSCEP3IbyUq5lE/pR/9Q69nQ5puCof1XjEg4BpX8hja0IeqHwM3ty
LAVi5Cum6huJ+hbFkbs1jXfAweHf2wvLcdhqvDwOlbqF3cBejJ8V4GDYrC/r
TaGivDVW/WrBEbBMu5o7NEzol/FGjKp980H2e32sbysOzk7iNJVxBH0inu6w
4SeATNnq/jitdOxwYoYBbRgHkr83nWFIzP/bTUHy3BzRT0TXmOn8RuS9Xulo
knNvH3Y8u0l29PsoXDwelZrx6BVWKs8FL5kf90NMB3/fujrQZlvG5S+KYeP+
5nF/tiZa4Sy3wTj3Lnxo0mYoWRN+H2U4cwxDwi/F7WQ5R7Ed87ocFF0qJYZY
clbNrz/vBRLeTPu+gIP5u6CCqCMIeuXNvmsTiiyguXY2K2YS+nNbB+cNkh5j
wmWj5LVJOPypZEGPa0ZQuXGyZ+r4BQgOnbHfUk/UF9DWudU84MLRPyyE6c9x
oH9904Pq3sbCr14JYrzEIcw06zBZmor6rdvR8KgiCuZjyFPBnwl9efuesyl0
JtDMSZQtH3C4yDo0gQ0hqOJLBnOD6AyE7r3Fjd+Vg1l5+TG29+Gw5a/a7l90
qOhqRrn2ZsQdXKQojSdmiH4fqA/ECsqXgZUWamAkxqEjqqTgpjIVrZnnWzz3
PQwo1c1hnncOY96vLTGexOExuRcRrSHyDHO5bBf7jej3HyWtuEM=
           "], {{{}, {
              RGBColor[1, 0, 0], 
              Opacity[0.3], 
              EdgeForm[None], 
              GraphicsGroupBox[
               
               PolygonBox[{{10, 122, 145, 99, 148, 117, 140, 81, 120, 143, 95,
                 113, 136, 67, 78, 92, 110, 133, 55, 62, 73, 87, 105, 128, 40,
                 39, 38, 37, 36, 35, 34, 33, 32, 31, 30, 29, 28, 27, 54, 61, 
                72, 86, 104, 127, 26, 66, 97, 115, 138, 77, 119, 142, 91, 147,
                 109, 132, 53, 149, 121, 144, 98, 116, 139, 80, 94, 112, 135, 
                60, 71, 85, 103, 126, 25, 65, 76, 90, 108, 131, 52, 59, 70, 
                84, 102, 125, 24, 23, 22, 21, 20, 19, 18, 17, 16, 15, 14, 13, 
                12, 11}}]]}, {}, {}}, {{}, {}, {
              RGBColor[1, 0, 0], 
              
              LineBox[{1, 124, 101, 83, 69, 58, 51, 2, 3, 4, 5, 6, 7, 8, 9, 
               10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 
               125, 102, 84, 70, 59, 52, 131, 108, 90, 76, 65, 25, 126, 103, 
               85, 71, 60, 135, 112, 94, 80, 139, 116, 98, 144, 121, 149, 53, 
               132, 109, 147, 91, 142, 119, 77, 138, 115, 97, 66, 26, 127, 
               104, 86, 72, 61, 54, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 
               37, 38, 39, 40, 128, 105, 87, 73, 62, 55, 133, 110, 92, 78, 67,
                136, 113, 95, 143, 120, 81, 140, 117, 148, 99, 145, 122, 150, 
               41, 129, 106, 88, 74, 63, 56, 42, 43, 44, 45, 46, 47, 48, 49, 
               130, 107, 89, 75, 64, 57, 134, 111, 93, 79, 68, 137, 114, 96, 
               82, 141, 118, 100, 146, 123, 151, 50}]}}}], 
          InsetBox[
           Cell[
            TextData[
             Cell[
              BoxData[
               FormBox[
                SubscriptBox["\[Omega]", "m\[AAcute]x"], TraditionalForm]]]], 
            GeneratedCell -> False, CellAutoOverwrite -> False, CellBaseline -> 
            Baseline], {6.197150329149945, 0.03991492756487247}, {
           Left, Baseline}]}, AspectRatio -> 
         NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> True, 
         AxesOrigin -> {0, 0}, Method -> {"AxesInFront" -> True}, PlotLabel -> 
         FormBox["\"\[ScriptCapitalF]{x}(\[Omega])\"", TraditionalForm], 
         PlotRange -> {{-10, 10}, {0, 0.9997550133916491}}, PlotRangeClipping -> 
         True, PlotRangePadding -> {
           Scaled[0.02], {Automatic, 
            Scaled[0.02]}}], {576., -116.80842387373012`}, 
        ImageScaled[{0.5, 0.5}], {360., 222.49223594996212`}]}, {}}, 
     ContentSelectable -> True, PlotRangePadding -> {6, 5}]],
   "\"Se\[NTilde]al x(t) y su transformada de Fourier\""},
  "Labeled",
  DisplayFunction->(GridBox[{{
      ItemBox[#2, Alignment -> {Left, Inherited}, DefaultBaseStyle -> 
       "PanelLabel"]}, {
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, 
    GridBoxItemSize -> {"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
    BaselinePosition -> {2, 1}]& ),
  InterpretationFunction->(RowBox[{"Labeled", "[", 
     RowBox[{#, ",", 
       RowBox[{"{", #2, "}"}], ",", 
       RowBox[{"{", 
         RowBox[{"{", 
           RowBox[{"Top", ",", "Left"}], "}"}], "}"}], ",", 
       RowBox[{"DefaultLabelStyle", "\[Rule]", "\"PanelLabel\""}], ",", 
       RowBox[{"LabelStyle", "\[Rule]", 
         RowBox[{"{", "}"}]}], ",", 
       RowBox[{"RotateLabel", "\[Rule]", "False"}], ",", 
       RowBox[{"Spacings", "\[Rule]", "Automatic"}]}], "]"}]& )]], "Input",
 CellChangeTimes->{3.4808727487400403`*^9, 3.4808742318769283`*^9, 
  3.480874699751749*^9}],

Cell[CellGroupData[{

Cell[TextData[{
 "Se muestrea la se\[NTilde]al ",
 Cell[BoxData[
  FormBox[
   RowBox[{"x", "(", "t", ")"}], TraditionalForm]]],
 " para obtener ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{
     SuperscriptBox["x", "*"], "(", "n", ")"}], "=", 
    FormBox[
     RowBox[{"x", "(", 
      RowBox[{"n", " ", "T"}], ")"}],
     TraditionalForm]}], TraditionalForm]]],
 ", donde ",
 Cell[BoxData[
  FormBox["T", TraditionalForm]],
  FormatType->"TraditionalForm"],
 " es el intervalo de muestreo. ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["f", "s"], "=", 
    FractionBox["1", "T"]}], TraditionalForm]],
  FormatType->"TraditionalForm"],
 " es la frecuencia de muestreo en ",
 Cell[BoxData[
  FormBox["Hz", TraditionalForm]],
  FormatType->"TraditionalForm"],
 " y ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["\[Omega]", "S"], "=", 
    RowBox[{"2", " ", "\[Pi]", " ", 
     SubscriptBox["f", "s"]}]}], TraditionalForm]],
  FormatType->"TraditionalForm"],
 " es la frecuencia angular en ",
 Cell[BoxData[
  FormBox[
   FractionBox["rad", "s"], TraditionalForm]],
  FormatType->"TraditionalForm"],
 "."
}], "Text",
 CellGroupingRules->{GroupTogetherGrouping, 10000.},
 CellChangeTimes->{{3.480872754819388*^9, 3.4808728518939404`*^9}, {
  3.4808733800981536`*^9, 3.4808733984052005`*^9}, {3.4808734699922953`*^9, 
  3.480873490870489*^9}, {3.480881702821387*^9, 3.480881759771118*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`T$$ = 0.498, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`T$$], 1}, 0.1, 2}, {
      Hold[
       Dynamic[
        Style[
         StringJoin[
         "\!\(\*SubscriptBox[\(f\), \(s\)]\)=\!\(\*FractionBox[\(1\), \
\(T\)]\)=", 
          ToString[
           NumberForm[1/$CellContext`T$$, {4, 2}]]]]]], 
      Manipulate`Dump`ThisIsNotAControl}}, Typeset`size$$ = {
    442., {83., 88.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = False, $CellContext`T$601$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`T$$ = 1}, 
      "ControllerVariables" :> {
        Hold[$CellContext`T$$, $CellContext`T$601$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> Grid[{{
          Plot[
           $CellContext`xCont[$CellContext`t], {$CellContext`t, -2, 2}, 
           Filling -> Axis, PlotLabel -> "x(t)", Epilog -> {
             PointSize[Large], 
             Table[
              Point[{$CellContext`i, 
                $CellContext`xCont[$CellContext`i]}], {$CellContext`i, 
               Round[-2, $CellContext`T$$], 2, $CellContext`T$$}]}], 
          DiscretePlot[
           $CellContext`xCont[$CellContext`T$$ $CellContext`n], \
{$CellContext`n, 
            Ceiling[(-2)/$CellContext`T$$], 
            Floor[2/$CellContext`T$$]}, PlotRange -> {0, Full}, Filling -> 
           Axis, PlotStyle -> PointSize[Large], PlotLabel -> 
           "\!\(\*SuperscriptBox[\(x\), \(*\)]\)(n)"]}}], 
      "Specifications" :> {{{$CellContext`T$$, 1}, 0.1, 2, Exclusions -> {0.},
          Appearance -> "Labeled"}, 
        Dynamic[
         Style[
          StringJoin[
          "\!\(\*SubscriptBox[\(f\), \(s\)]\)=\!\(\*FractionBox[\(1\), \(T\)]\
\)=", 
           ToString[
            NumberForm[1/$CellContext`T$$, {4, 2}]]]]]}, 
      "Options" :> {ControlPlacement -> Top}, "DefaultOptions" :> {}],
     ImageSizeCache->{500., {155., 160.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    Initialization:>({$CellContext`xCont[
         Pattern[$CellContext`t, 
          Blank[]]] := Sinc[Pi $CellContext`t]^2, 
       Attributes[PlotRange] = {ReadProtected}}; Typeset`initDone$$ = True),
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.},
 CellChangeTimes->{3.4808733800991535`*^9, 3.4808741113479805`*^9, 
  3.480881809233899*^9}]
}, Closed]],

Cell[TextData[{
 "El teorema de Nyquist establece que la frecuencia de muestreo ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["f", "s"], TraditionalForm]]],
 " debe ser ",
 StyleBox["mayor",
  FontWeight->"Bold"],
 " al ",
 StyleBox["doble",
  FontWeight->"Bold"],
 " de la frecuencia m\[AAcute]xima ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    SubscriptBox["f", "m\[AAcute]x"], "=", 
    FractionBox[
     SubscriptBox["\[Omega]", "m\[AAcute]x"], 
     RowBox[{"2", "\[Pi]"}]]}], TraditionalForm]]],
 " para que la se\[NTilde]al continua pueda ser reconstruida posteriormente. \
Es decir, si se muestrea a m\[AAcute]s del doble de la frecuencia \
m\[AAcute]xima de la se\[NTilde]al, se tiene en la se\[NTilde]al discreta \
toda la informaci\[OAcute]n que conten\[IAcute]a la cont\[IAcute]nua y por lo \
tanto es posible volver a la se\[NTilde]al continua partiendo de la discreta."
}], "Text",
 CellChangeTimes->{{3.48087341029088*^9, 3.4808734485610695`*^9}, {
  3.480874120883526*^9, 3.4808741585556808`*^9}, {3.480874239580385*^9, 
  3.4808743610183744`*^9}, {3.480874725794238*^9, 3.4808747359658203`*^9}, {
  3.48178816254211*^9, 3.481788173278724*^9}}]
}, Closed]],

Cell[CellGroupData[{

Cell["Aliasing", "Section",
 CellChangeTimes->{{3.4808744754559193`*^9, 3.480874476283967*^9}}],

Cell["\<\
Se llama aliasing al fen\[OAcute]meno que ocurre cuando no se respeta el \
teorema de Nyquist y grupos de distintas frecuencias que conten\[IAcute]a la \
se\[NTilde]al continua se hacen inseparables e indistinguibles en la se\
\[NTilde]al muestreada. Es decir, algunas frecuencias aparentan ser otras.\
\>", "Text",
 CellChangeTimes->{{3.4808744780110655`*^9, 3.4808745930906477`*^9}, 
   3.480876096775674*^9, {3.481787415103359*^9, 3.481787415162362*^9}}],

Cell[CellGroupData[{

Cell["\<\
Siguiendo con el ejemplo anterior, vemos c\[OAcute]mo la transformada de \
Fourier empieza a perder su forma cuando la frecuencia de muestreo es menor a \
la de Nyquist:\
\>", "Text",
 CellChangeTimes->{{3.480876401384096*^9, 3.4808764054713306`*^9}, {
  3.4808773412208605`*^9, 3.4808773723376403`*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`T$$ = 0.5, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`T$$], 0.5}, 0.25, 1.25}, {
      Hold[
       Dynamic[
        Style[
         StringJoin[
         "\!\(\*SubscriptBox[\(f\), \(s\)]\)=\!\(\*FractionBox[\(1\), \
\(T\)]\)=", 
          ToString[
           NumberForm[1/$CellContext`T$$, {4, 2}]]]]]], 
      Manipulate`Dump`ThisIsNotAControl}}, Typeset`size$$ = {
    442., {90.5, 95.5}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = False, $CellContext`T$279437$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`T$$ = 0.5}, 
      "ControllerVariables" :> {
        Hold[$CellContext`T$$, $CellContext`T$279437$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> Grid[{{
          Show[
           Plot[
            $CellContext`xCont[$CellContext`t], {$CellContext`t, -2, 2}, 
            Filling -> Axis, PlotLabel -> "x(t)"], 
           DiscretePlot[
            $CellContext`xCont[$CellContext`t], {$CellContext`t, 
             Round[-2, $CellContext`T$$], 2, $CellContext`T$$}, Filling -> 
            Axis, FillingStyle -> Black, PlotStyle -> Directive[Black, 
              PointSize[Large]]], 
           Ticks -> {{{$CellContext`T$$, 
               "T=\!\(\*FractionBox[\(2  \[Pi]\), SubscriptBox[\(\[Omega]\), \
\(s\)]]\)"}}, Automatic}], 
          Plot[
           Evaluate[
            Join[{
              Abs[
               $CellContext`FxPer[$CellContext`t, 2 (Pi/$CellContext`T$$)]]}, {
              $CellContext`FxList[$CellContext`t, 
               2 (Pi/$CellContext`T$$)]}]], {$CellContext`t, -20, 20}, 
           PlotStyle -> Join[{
              Directive[Red]}, 
             ConstantArray[
              Directive[Blue, Dotted], 21]], Filling -> {1 -> Axis}, 
           FillingStyle -> Directive[Red, 
             Opacity[0.3]], PlotLabel -> "\[ScriptCapitalF]{x}(\[Omega])", 
           PlotRange -> {0, 1.5}]}}], 
      "Specifications" :> {{{$CellContext`T$$, 0.5}, 0.25, 1.25, 
         Exclusions -> {0.}, Appearance -> "Labeled"}, 
        Dynamic[
         Style[
          StringJoin[
          "\!\(\*SubscriptBox[\(f\), \(s\)]\)=\!\(\*FractionBox[\(1\), \(T\)]\
\)=", 
           ToString[
            NumberForm[1/$CellContext`T$$, {4, 2}]]]]]}, "Options" :> {}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{500., {163., 168.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    Initialization:>({$CellContext`xCont[
         Pattern[$CellContext`t, 
          Blank[]]] := Sinc[Pi $CellContext`t]^2, $CellContext`FxPer[
         Pattern[$CellContext`t, 
          Blank[]], 
         Pattern[$CellContext`per, 
          Blank[]]] := Sum[
         UnitTriangle[($CellContext`t - $CellContext`k $CellContext`per)/(2 
          Pi)], {$CellContext`k, -5, 5}], $CellContext`FxList[$CellContext`t, 
         Pattern[$CellContext`per, 
          Blank[]]] := Table[
         $CellContext`FxCont[$CellContext`t - $CellContext`k \
$CellContext`per], {$CellContext`k, -10, 10}], $CellContext`FxList[
         Pattern[$CellContext`t, 
          Blank[]], 
         Pattern[$CellContext`per, 
          Blank[]]] := Table[
         UnitTriangle[($CellContext`t - $CellContext`k $CellContext`per)/(2 
          Pi)], {$CellContext`k, -5, 5}], $CellContext`FxCont[
         Pattern[$CellContext`\[Omega], 
          Blank[]]] = ((Pi^2 Sign[2 Pi - $CellContext`\[Omega]])/
          2 - ((Pi $CellContext`\[Omega]) Sign[2 Pi - $CellContext`\[Omega]])/
         4 - ((Pi $CellContext`\[Omega]) Sign[$CellContext`\[Omega]])/
         2 + (Pi^2 Sign[2 Pi + $CellContext`\[Omega]])/
          2 + ((Pi $CellContext`\[Omega]) Sign[2 Pi + $CellContext`\[Omega]])/
          4)/Pi^2, Attributes[PlotRange] = {ReadProtected}}; 
     Typeset`initDone$$ = True),
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Input",
 CellChangeTimes->{3.4808822960552177`*^9, 3.481783964642004*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 "En el siguiente ejemplo se puede ver que cuando la frecuencia de muestreo \
es menor al doble de la frecuencia de una se\[NTilde]al senoidal, se puede \
encontrar otra se\[NTilde]al senoidal cont\[IAcute]nua que pasa por esos \
mismos puntos y de frecuencia menor (l\[IAcute]nea punteada). Esa frecuencia \
mayor entonces es un ",
 StyleBox["alias",
  FontSlant->"Italic"],
 " de la menor."
}], "Text",
 CellChangeTimes->{{3.480876101545947*^9, 3.4808761964253736`*^9}, {
  3.480877422801527*^9, 3.480877456154436*^9}, {3.481784017830046*^9, 
  3.4817840223463044`*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`frecMuestreo$$ = 2, $CellContext`frecSin$$ =
     1, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, 
    Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 
    1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`frecSin$$], 1, 
       "\!\(\*SubscriptBox[\(f\), \(m\[AAcute]x\)]\)"}, 0, 4}, {{
       Hold[$CellContext`frecMuestreo$$], 1.5, 
       "\!\(\*SubscriptBox[\(f\), \(s\)]\)"}, 0.1, 4}}, Typeset`size$$ = {
    691., {210., 218.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = False, $CellContext`frecSin$157619$$ = 
    0, $CellContext`frecMuestreo$157620$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`frecMuestreo$$ = 
        1.5, $CellContext`frecSin$$ = 1}, "ControllerVariables" :> {
        Hold[$CellContext`frecSin$$, $CellContext`frecSin$157619$$, 0], 
        Hold[$CellContext`frecMuestreo$$, $CellContext`frecMuestreo$157620$$, 
         0]}, "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> Show[
        Plot[{
          Cos[((2 Pi) $CellContext`t) $CellContext`frecSin$$], 
          
          Cos[((2 Pi) $CellContext`t) 
           Mod[$CellContext`frecSin$$, $CellContext`frecMuestreo$$, \
(-$CellContext`frecMuestreo$$)/2]]}, {$CellContext`t, -2, 2}, 
         PlotRange -> {-1.1, 1.1}, PlotStyle -> {Automatic, Dashed}, 
         ImageSize -> Large], 
        DiscretePlot[
         Cos[((2 Pi) $CellContext`t) $CellContext`frecSin$$], {$CellContext`t, 
          Ceiling[-2, 1/$CellContext`frecMuestreo$$], 2, 
          1/$CellContext`frecMuestreo$$}, PlotStyle -> Directive[Black, 
           PointSize[Large]]], Ticks -> {
          Table[{AddOns`i/$CellContext`frecMuestreo$$, 
            StringJoin[
             ToString[AddOns`i], "\!\(\*SubscriptBox[\(T\), \(s\)]\)"]}, {
           AddOns`i, 
            Ceiling[(-2) $CellContext`frecMuestreo$$], 
            Floor[2 $CellContext`frecMuestreo$$]}]}, PlotRangePadding -> 
        Scaled[0.03]], 
      "Specifications" :> {{{$CellContext`frecSin$$, 1, 
          "\!\(\*SubscriptBox[\(f\), \(m\[AAcute]x\)]\)"}, 0, 4, Appearance -> 
         "Labeled"}, {{$CellContext`frecMuestreo$$, 1.5, 
          "\!\(\*SubscriptBox[\(f\), \(s\)]\)"}, 0.1, 4, Appearance -> 
         "Labeled"}}, "Options" :> {}, "DefaultOptions" :> {}],
     ImageSizeCache->{749., {284., 289.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    Initialization:>({Attributes[PlotRange] = {ReadProtected}}; 
     Typeset`initDone$$ = True),
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.},
 CellChangeTimes->{{3.480876175645185*^9, 3.4808762012416487`*^9}, 
   3.4817844243472977`*^9, 3.481784876809177*^9, 3.4817878835901546`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell["\<\
En el siguiente ejemplo tambi\[EAcute]n se puede apreciar lo anterior. Adem\
\[AAcute]s se ve c\[OAcute]mo var\[IAcute]a la transformada de Fourier a \
medida que cambia la frecuencia de la senoide.\
\>", "Text",
 CellChangeTimes->{{3.4808762594139767`*^9, 3.4808763467809734`*^9}, {
  3.48087741324098*^9, 3.480877414404046*^9}, {3.4817848893308935`*^9, 
  3.481784901746603*^9}, {3.481787914720936*^9, 3.4817879181371307`*^9}}],

Cell[TextData[Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`f$$ = 1000, $CellContext`fs$$ = 16000, 
    Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, 
    Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 
    1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{
      Hold[
       Style["Frecuencia de la senoide", Bold]], 
      Manipulate`Dump`ThisIsNotAControl}, {{
       Hold[$CellContext`f$$], 1000, "f [Hz]"}, 1000, 10000, 1}, {
      Hold[
       Style["Frecuencia de muestreo", Bold]], 
      Manipulate`Dump`ThisIsNotAControl}, {{
       Hold[$CellContext`fs$$], 16000, 
       "\!\(\*SubscriptBox[\(f\), \(s\)]\)"}, {
      8000 -> "8 kHz", 16000 -> "16 kHz", 48000 -> "48 kHz"}}}, 
    Typeset`size$$ = {455., {227., 235.}}, Typeset`update$$ = 0, 
    Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`f$1964$$ =
     0, $CellContext`fs$1965$$ = False}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`f$$ = 1000, $CellContext`fs$$ = 16000}, 
      "ControllerVariables" :> {
        Hold[$CellContext`f$$, $CellContext`f$1964$$, 0], 
        Hold[$CellContext`fs$$, $CellContext`fs$1965$$, False]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> GraphicsColumn[{
         Show[
          Plot[
           
           Sin[((2 Pi) $CellContext`f$$) $CellContext`t], {$CellContext`t, 0, 
            0.001}, PlotRange -> {-1.1, 1.1}, PlotStyle -> {{
              RGBColor[0.25, 0.43, 0.82]}}], 
          ListPlot[
           Table[{$CellContext`t, 
             Sin[((2 Pi) $CellContext`f$$) $CellContext`t]}, {$CellContext`t, 
             0, 0.001, 1/$CellContext`fs$$}], PlotMarkers -> {Automatic}, 
           Filling -> Axis, FillingStyle -> RGBColor[0.25, 0.43, 0.82]], 
          If[$CellContext`f$$ > $CellContext`fs$$/2, 
           Plot[
            
            Sin[((2 Pi) ($CellContext`f$$ - $CellContext`fs$$)) \
$CellContext`t], {$CellContext`t, 0, 0.001}, PlotRange -> {-1.1, 1.1}, 
            PlotStyle -> {
              If[$CellContext`f$$ > $CellContext`fs$$, 
               RGBColor[0.6, 0.73, 0.36], 
               RGBColor[0.9, 0.42, 0.17]], 
              Dashing[{0.01, 0.01}]}], 
           Graphics[]], Frame -> True, FrameLabel -> {{None, None}, {
             TraditionalForm[
              Text[
               $CellContext`t[$CellContext`s]]], 
             Row[{$CellContext`sin, "(", 2 Pi, 
               Style["f ", Italic], $CellContext`t, ")"}]}}, 
          FrameTicks -> {Automatic, None}, AspectRatio -> 0.35, 
          ImageSize -> {350, 175}, ImagePadding -> {{20, 20}, {35, 35}}], 
         Graphics[{{
            RGBColor[0.25, 0.43, 0.82], 
            Arrowheads[Large], 
            Arrow[{{$CellContext`f$$, 0}, {$CellContext`f$$, 1}}], 
            Arrow[{{-$CellContext`f$$, 0}, {-$CellContext`f$$, 1}}]}, {
            RGBColor[0.9, 0.42, 0.17], 
            Arrowheads[Large], 
            
            Arrow[{{$CellContext`f$$ + $CellContext`fs$$, 
               0}, {$CellContext`f$$ + $CellContext`fs$$, 1}}], 
            
            Arrow[{{-$CellContext`f$$ + $CellContext`fs$$, 
               0}, {-$CellContext`f$$ + $CellContext`fs$$, 1}}]}, {
            RGBColor[0.6, 0.73, 0.36], 
            Arrowheads[Large], 
            
            Arrow[{{$CellContext`f$$ - $CellContext`fs$$, 
               0}, {$CellContext`f$$ - $CellContext`fs$$, 1}}], 
            
            Arrow[{{-$CellContext`f$$ - $CellContext`fs$$, 
               0}, {-$CellContext`f$$ - $CellContext`fs$$, 1}}]}, {
            RGBColor[0.49, 0, 0], 
            Arrowheads[Large], 
            
            Arrow[{{$CellContext`f$$ + 2 $CellContext`fs$$, 
               0}, {$CellContext`f$$ + 2 $CellContext`fs$$, 1}}], 
            
            Arrow[{{-$CellContext`f$$ + 2 $CellContext`fs$$, 
               0}, {-$CellContext`f$$ + 2 $CellContext`fs$$, 1}}]}, {Gray, 
            Arrowheads[Large], 
            
            Arrow[{{$CellContext`f$$ - 2 $CellContext`fs$$, 
               0}, {$CellContext`f$$ - 2 $CellContext`fs$$, 1}}], 
            
            Arrow[{{-$CellContext`f$$ - 2 $CellContext`fs$$, 
               0}, {-$CellContext`f$$ - 2 $CellContext`fs$$, 1}}]}, {Dashed, 
            Line[{{-$CellContext`fs$$, 0}, {-$CellContext`fs$$, 1}}], 
            Line[{{$CellContext`fs$$, 0}, {$CellContext`fs$$, 1}}]}, 
           Text[
           "\!\(\*SubscriptBox[\(f\), \(s\)]\)", {$CellContext`fs$$, 1.1}], 
           Text[
           "-\!\(\*SubscriptBox[\(f\), \(s\)]\)", {-$CellContext`fs$$, 1.1}]},
           Frame -> True, Axes -> True, 
          PlotRange -> {{-$CellContext`fs$$ - 2000, $CellContext`fs$$ + 
             2000}, {0, 1.2}}, FrameLabel -> {{None, None}, {
             Row[{
               Style["f", Italic], " (Hz)"}], 
             Row[{
               Style["S", Italic], "(", 
               Style["f", Italic], ")"}]}}, FrameTicks -> {Automatic, None}, 
          AspectRatio -> 0.35, PlotRangeClipping -> True, 
          ImageSize -> {350, 175}, ImagePadding -> {{20, 20}, {35, 35}}]}], 
      "Specifications" :> {
        Style[
        "Frecuencia de la senoide", 
         Bold], {{$CellContext`f$$, 1000, "f [Hz]"}, 1000, 10000, 1, 
         Appearance -> "Labeled", ImageSize -> Small, ControlType -> Slider}, 
        Delimiter, 
        Style[
        "Frecuencia de muestreo", 
         Bold], {{$CellContext`fs$$, 16000, 
          "\!\(\*SubscriptBox[\(f\), \(s\)]\)"}, {
         8000 -> "8 kHz", 16000 -> "16 kHz", 48000 -> "48 kHz"}}}, 
      "Options" :> {ControlPlacement -> Left}, "DefaultOptions" :> {}],
     ImageSizeCache->{807., {265., 270.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]],
 CellChangeTimes->{{3.4817856009445953`*^9, 3.4817856163984795`*^9}}]], "Text",
 CellChangeTimes->{3.480876348413067*^9, 3.4817856276501226`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell["\<\
En el ejemplo siguiente puede ver en l\[IAcute]nea punteada una senoide que a \
la frecuencia de muestreo elegida es siempre muestreada en sus \
ra\[IAcute]ces. Por lo tanto, se obtendr\[AAcute] la misma se\[NTilde]al \
discreta a partir de cualquier se\[NTilde]al si se le suma, o no, dicha \
senoide. 
En azul, la senoide de frecuencia elegida. En verde, la suma de la azul y la \
punteada.. Observe c\[OAcute]mo, si no se exigen restricciones al ancho de \
banda de la se\[NTilde]al continua, no se puede saber, a partir de la se\
\[NTilde]al discreta, qu\[EAcute] se\[NTilde]al continua representa.\
\>", "Text",
 CellChangeTimes->{{3.481004050535307*^9, 3.481004338579782*^9}, {
  3.4817851065633183`*^9, 3.481785114254758*^9}, {3.4817851631975574`*^9, 
  3.481785272527811*^9}, {3.481787941106445*^9, 3.481787948959894*^9}, {
  3.481788334037919*^9, 3.481788360676443*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`frecMuestreo$$ = 
    1.5, $CellContext`frecSeno$$ = 0.68, Typeset`show$$ = True, 
    Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`frecSeno$$], 1}, 0, 4}, {{
       Hold[$CellContext`frecMuestreo$$], 1}, 0, 4}}, Typeset`size$$ = {
    691., {210., 218.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = False, $CellContext`frecSeno$1132770$$ = 
    0, $CellContext`frecMuestreo$1132775$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`frecMuestreo$$ = 
        1, $CellContext`frecSeno$$ = 1}, "ControllerVariables" :> {
        Hold[$CellContext`frecSeno$$, $CellContext`frecSeno$1132770$$, 0], 
        Hold[$CellContext`frecMuestreo$$, $CellContext`frecMuestreo$1132775$$,
          0]}, "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> Plot[{
         Sin[((2 Pi) $CellContext`frecSeno$$) $CellContext`t], 
         Sin[(((2 Pi) 2) $CellContext`frecMuestreo$$) $CellContext`t], 
         Sin[((2 Pi) $CellContext`frecSeno$$) $CellContext`t] + 
         Sin[(((2 Pi) 
             2) $CellContext`frecMuestreo$$) $CellContext`t]}, \
{$CellContext`t, -2, 2}, PlotRange -> {-2.1, 2.1}, 
        PlotStyle -> {Automatic, Dashed, Automatic}, Epilog -> {
          PointSize[Large], 
          Point[
           Table[{$CellContext`tt, 
             
             Sin[((2 Pi) $CellContext`tt) $CellContext`frecSeno$$]}, \
{$CellContext`tt, 
             Round[-2, 1/$CellContext`frecMuestreo$$], 2, 
             1/$CellContext`frecMuestreo$$}]]}, ImageSize -> Large], 
      "Specifications" :> {{{$CellContext`frecSeno$$, 1}, 0, 4, Appearance -> 
         "Labeled"}, {{$CellContext`frecMuestreo$$, 1}, 0, 4, Appearance -> 
         "Labeled"}}, "Options" :> {}, "DefaultOptions" :> {}],
     ImageSizeCache->{749., {284., 289.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    Initialization:>({Attributes[PlotRange] = {ReadProtected}}; 
     Typeset`initDone$$ = True),
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Input"]
}, Closed]],

Cell[CellGroupData[{

Cell[TextData[{
 "En este puede escuchar el efecto del ",
 StyleBox["aliasing. ",
  FontSlant->"Italic"],
 "Vea lo que sucede cuando la frecuencia de muestreo baja el umbral de \
Nyquist."
}], "Text",
 CellChangeTimes->{{3.4808774791997633`*^9, 3.480877542908407*^9}}],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`f$$ = 1366, $CellContext`s$$ = 6210, 
    Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, 
    Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 
    1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`f$$], 440, "Frecuencia del tono"}, 50, 10000, 1}, {{
       Hold[$CellContext`s$$], 8000, "Frecuencia de muestreo"}, 50, 10000, 
      1}}, Typeset`size$$ = {300., {65., 73.}}, Typeset`update$$ = 0, 
    Typeset`initDone$$, Typeset`skipInitDone$$ = 
    True, $CellContext`f$27176$$ = 0, $CellContext`s$27177$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`f$$ = 440, $CellContext`s$$ = 8000}, 
      "ControllerVariables" :> {
        Hold[$CellContext`f$$, $CellContext`f$27176$$, 0], 
        Hold[$CellContext`s$$, $CellContext`s$27177$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> Play[
        Sin[((2 Pi) $CellContext`f$$) $CellContext`t], {$CellContext`t, 0, 1},
         SampleRate -> $CellContext`s$$], 
      "Specifications" :> {{{$CellContext`f$$, 440, "Frecuencia del tono"}, 
         50, 10000, 1, Appearance -> 
         "Labeled"}, {{$CellContext`s$$, 8000, "Frecuencia de muestreo"}, 50, 
         10000, 1, Appearance -> "Labeled"}}, "Options" :> {}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{509., {139., 144.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Input"]
}, Closed]]
}, Closed]]
}, Open  ]]
},
CellGrouping->Manual,
WindowSize->{1024, 707},
WindowMargins->{{Automatic, 1025}, {Automatic, -2}},
DockedCells->FEPrivate`If[
  FEPrivate`SameQ[FEPrivate`$ProductIDName, "MathematicaPlayer"], 
  FEPrivate`Join[{
    Cell[
     BoxData[
      GraphicsBox[
       RasterBox[CompressedData["
1:eJztXXdYFNfaz3O/f+79vudek3vTLKBIEaQpTRC7BgtqLCTWGxNjYsFookE0
NoxRY6oFuyIiWJCO9N4WWHrZpSy7VKkiBo2iy+5+Z/fsHg4zO7NLUZJ4fs/I
Mztz5j3v+87u+zvnPe+Meuu3L1v/P6+99poJ+Gf+t9dek+8LBwiBIHvu/Byd
ManLXMoSE+ExkQoZX+8W641rHWPUaDZZav+BZOoa6ZRVkhkftXrdrC3lg60h
JuGh667nVjNkJjbd4ywfjhzbcP7iQFUiICAgIHiVkHfVO0dHL0tnDFd/XNGH
q/g3bgrz84VFRVmnznAMrGRjDCSjxz6xmCFx3iFZtl/ickC6ZK/U6YtnS7Y/
c/6s23Zpt8V73aaOz8wdn+pbto4yqI2NG2qDCAgICAj+HIBTHn5GRrGhMV9H
r0hXr1hnbKGuQaGlQ6G9U5TJTJ7ZFJneaNnoMd0GZl1rjos3X+7efEn8uafk
k1OSlUfFi78RO30htl/5fOK8p2ZTmnXHNxlbVWVzh9osAgICAoI/ByANVVVU
5DpMKRs1pnS0fumYcTwDywIjh6IJixMcVrWNt5HTkL5Bt/7YR9OXi9yv1+7y
urfLu/1rryfbLnR/7iledUQ8b7vYcUXn+Ol1uhZ1EycLCwuH2iwCAgICgj8B
0AIQ2C9Yv0E4ckyNvmmh8YSs2U6chUvTlq9JcFnDc5pR9t4M/rw5/IULeDMd
M9Z9lrTVLWXLDs7Wr3O3uhVt3sn79Ev+2k2lLmvy5r+fY2JXZjO9qrh4qC0j
ICAgIPijQ4RB/vGAR72OUaHlpIqzhxsCL9QHXq4N9q4L8mryP9d051xT4IWm
oEtNARca75yvC79eG+Fbd9e3/q5vQ4TvvfDrjaE+94KuNgRfFvmdips8jZ+W
wd51VXl5bkCgIENDMwICAgKCvyoA9VSroOShbw7UjbXJ/+KzxqCrLSHhTZFJ
dbEZnRFRv4eGPQqP7IyK64yN74yL7wwP74iOackrbCkobs0taOXmt3FyHyRx
QPv6oIi68IhSz3NRK9bnht2tEgjwHiv4/JykpOgTJyI/3cBdubru7Pnq0tIh
sp7g1YUgNFTg4zPUWhAQvLpA0x9IQDUKyJlIKCxfuqbOYm7RQbfG8KC2pLzG
tIKWhHTeuXPtsUlPsoseZxU+zsp/xC14lMF9lJjSmc7pKK1oLxO2lQjasoub
knKqYzKqIlOrEzOrwuJDxtpfe2fMRSs7/wWLvZe5/DR/wS7HyTuNx/365lvh
7wxvWLuuLi1tqD1B8CoCcBDvtdfAxtfRAfsvqJcMMs0n+OsiIiLC1dX12LFj
PB6vfxJwGgIEVKuAqKKi6OB3FaZzBDPW5Xnsro2+W59e0JKc2ZGUGjppcqrD
NN4V7/a84of5JR25RR25hR0cLjjVEZ/Qnpp2PzWtOT6pNjqxKiy2PCymMjaJ
Fxrx7bsjdg1745dhbx/4xz+//Pv/nvjXsKi33m4Zrts9fkLzZa/B9QkBQZ9Q
sXFj+cqVciYaNqwqOXnQ5efl5Z09e3bQxRIQ/EEARlmBgYF79uzx8tI2mPMz
OKnXrqVcv56flFReVARmPVUCQSWPV87llsbF8QKDC095Zi9akW04JcveJXOB
a46He/XdoObY5N/iku9ncFPmL7ynY1ww0iB5xWp+cFhTblFrTmEzh9uSmtma
kNwaGdUYGlIXHCgM8C+/daPI93pxSFDW7ZtfvPPumRHjfN/R8X9nROUYPamh
kUxPr9vSuj787gv1DwGBlgBkBJiozNFx0CUTGiJ4FeDn5weYSMvGIj6//nYQ
d8VHZ/QND41491drK087uyAb23Rru6yJtlwbB96kqeWWtgJzxxqrWS02Mwr3
bK2/49MWGduWlH4vIztunnOVgUW1qW2Fnmmq/vikbV/yI2JqOTm1yZy6+OS6
qJi64BBRQED5rZulfr55167mBfjzbt3Ot5xeZ+oonjhdamYvNZkg0x/XbTmh
PibmhbpF4OMzWDn/qvx8ubQXlrQhGHKAeRDMzg36OhGhIYJXAWBO5Orq2tf8
c11ymuiLr/JMLTMMxsUYjeNaTOh0mCab5CiznCgzMpTpj5YZjJWNG5/n7iq6
ff1eVEJdQpowNSNyrnOpkWWpmS3PzK7c1DZ/jEnkRLuUI9/zoxOq4lMFEdGV
AcEVN2+X+PkW+Hhnel3m3bnTGp0iXXdIsnibZOpKqe08qYmtxNT6XkiI9qoC
FoAhAmxgHx3nDxumNnTAkS3awEd0Cgx38UEv5SOA8pJdu9CRyiNHUEegJTiF
LoH7PNXbk4AaFH3o0nCxcjlmZnjX8ryQykCYKULKI6PAcRAzgQJgQ8wIdvg6
OmiNA16LhKMYW3n6NHIpaAPtApeUL1gAdYZaIT/TL4S9QK1AG+hAIAfYCCRA
reiug5pQtIJqg66VvjUzg47quQoY6OMD+gI74CDdh7gyFFA0x/0DRIFNfit7
X4hucS85DI6ie4YJ7DQEfrkRERG91ODxduzYAY6jI3CcCY6Av2Afbwwkg+Og
PUzLA1EeHh6uCoCdhIQE1MWvv/4KW1IyJyzC1Z6CCwGoTWBgIPgI/lLsojTT
pke6KyjScOADb2AR9BiwEe8XmA+9ARqDffAX6QncBVwHrwLHQfCER6CLgBzQ
HuyjxQ7cz3gX4MJjx45BlcAOCsJ085F1LB2xeADvCBiFOxyZCQAkI53BFw/I
RzayZMyABNwK+LXRaAjlFOgOfKR8hbSEKC1d9MmGBxNtH9o6dE6Z0WUzWapn
IBujIzMykppPlJnZZbtvLb95XRQZL4hNKk9MCXCal2ZokWlmw1Fsmea2mSZW
EToGd2bNST3pWRoaURYUzPP1LfT25l65zLl0oTImqS456/mus5JPjkmct0om
L5WZTW07ea5PSqLwjkd4nJvwOI/CNdjB9+HZftAQCqTgYE/MHDANocVxxDuU
xkq+UwRtxA7gI+iazr9IMcgIqH2PFTBiq4RDw6EhUCCQIFQ3KaBcqKQShflw
XynEzAxpRXEd1EpOKL3dBfrq4XeFXWBDCoB+oWKwjVofQquZMmm45koOGjZM
LlNHB9Ec/XZQRjVMjqJ7hgkaaYgSw8EPGQYE/COIIaAZ+Iv/0mEEAx/BKRQe
QeQJVADswJYo4oGD4AjORCzCmU5B3sEVUBvf8GZ069T2qJbOcGmBGFC4hhwE
nYCirlDF5iCoIquRfHAKhGV0FZAAgjxkJXgEXIWPBCh+RqaBO4u6QFeBg2rN
R72zdMTkAdgRZB8AyGKoJXAFOILMhF82aD4kengKXM7iW9wKXDiLIZRTSI7a
XjRCJBLVnvR8OnWWxH6a2G6m2Hy6ZKy+TE9XamErnfQex8211Ne7IjyaFxFb
Eh3nPXvOTT3jAGPLO9gWaGJ5W8/44sjRN5a5ZF64WOzrV3DFK/X8uTy/myVx
KRXxaR37Lki2npKs2C+dtqZr6QZh78ptjUDhC//V49yEIgPiJkowR9G+rzSE
ekFkAQLmoNAQOgsb95RsqRbKkTTUEYh7yo5UjSm0AjlLnkJUNaDwFFSbfhZ2
B3coYZ8S6nGTYaeAjCinqOarpk6UflF71BdMfiodrnACOAKjvVquofifAlxz
5cxFNaVCrI2bD52P98XuKHYSROgTDcHoAQe38AgMWagBDDVwnxIH6DMd1AUe
HHAJLMKZTlGCMIj8au1ioiGWHjXSkNpTFIEwigpVY3VICugjlA+ZC51il0Pv
HX0Et5WyGgI+wnvNEr1ZOmLyAL0jaAK9JfInaAAu0Vi6BhrAoQt+EE6c4bXa
0xAwBE5y+10vV1NT0xAdI35vocx8Sre9i3juFrGVg1RXR2ppn+a2pcDnSmnQ
3cKQiILwyDMzZv48Su+0vvGp3hs44qlv/PNw3eO6erfWr088eTL70qXcsOiC
qITSmKR7Hhefu52RfHxEOuPj5tt9SMdBKH/vivhPCXrKpJAqPleePo0HMSEt
edJnGqLNWQYrKYd6h2fxMIhsRNLoasCZCOJfJU8NG8ZkCN4AJzgmrZgk99gY
GorP1yDUzrmQKIpWTCQCnYCSXXBmh5uGQHc4Dlxz+BVCk+KeSZ8qq6nMkSqm
PD1jA1ZH0X2uFn2iIRhG0A8c5tvxgAlTHzD5g8cBekumLpAEFuEsp2CncELB
MvRVSxzs5vSDhugCUUuW+AlYnn5HoNvV9shEQ/RMFwz+7L2zdMTkAXpHTAsx
cKoFbdSmbg1OSClfG3hT4OVa0hCkM8j1THlFjaiurq6trW1MSeuetkhq94Fk
+Tf3N53onDpfNtaQ47al9Oa1irsxpZExJVFx52fNPqVrcM5wvNrtvJHpWX2T
X94aecnCMvG7wwXR8fyk9PL4tFqPC4/czkjXH5HM21yf3OdnKGBwoyymKJdO
0GRHwTtqIxse+vqRlFPS34IFMGQNIg3BnCGM0vBaFAahObBreDlaWFEu4igI
F8VAOv9SKACnD7QPJFM2IX3m1Xt6ghslXxtSjQ2UzsEsQh+RKGHvCRQTDSHe
AUaBLtAMV22JCIuHe5kcGopmeXTfImWA5tCTymkjq6Nw+WrvL4T2NASnQjCL
whRLhQxxgJ62QpkrcBzP9gtV6X0W4RpPwaEvy7hXrQR2c/pBQ/SVC5hAU3sJ
e0cwgAOB9FkAEw3R5WhDgiwdMXlA7XFKwEfrO8hGmKnDQR+lwPtI7xGNMbSk
IXgjgEXgKqYJskZAGgJzoubgMKn1YsnSPR2up0p2nm6fPDvX3VUQ4Fcdm1QZ
l1yekHzDaV6YoXmkmbWazdQ6wnhCtIVV1jLn9N2uCefPlscnizg51enZdR7n
H7if7t70o2zu9par/n3SDUUhtAOPwzAiXxZX7MDB84ugIbhIzcNqHgaLhpRU
oojSMPbK47lCCAzUyikPNgGEjIxvKHnF671iTqcAHpaYogjpkYanxWCVAk0y
Pi3FV/DRpmZyiuaSmFZ06sQ9A3vBN7VVCihHCtkBMhe6cfiFeDkE2np8q1AM
X0iCN5HFURT5TNCehuiJr77SEB1CBhrShmtYTtFlUvByaIh+vN80JMRKHXDv
0UUNkIZYOuorDaGDcLUIr5FQ+2WgC2FKq8JVNnZD8FOgPaIttdlCjRCJRDUq
gP0n63ZIF2x/4npC4Ha26Kufcr/5QhToVx+fIkpKr0zJCJo3P8PQgmtum22m
2FQ7WSbW3PFWJU6zit03JZ79pTAyuja3qCY9q5bDrePkNHx74b7bSfHG49LF
X4udNtRmq0kdMEGZrVIELjxhguI/mhYJBy8ph6JTL00U8wh8jX6ANIR0AztQ
FM6V4KByXoBRiRBVj/v4KCeJlBo2VV9q5kdw/K9ITFHK8HpmHD4+TLxDqdnD
c3HQFnAthXfoBQ94JZ583Ye5/AC5VO7z3ik1HPQRgnwapeIFiuZKmYr7SMko
4glSlKBjd5Sw90IhE7SkITQVEmI/cO2TcpTKLngWDnQp8QdKAO0HkpQDYUeb
2RA+FAeNB5iUw6XBS6DV/UjKsSSsgGQgFmarKDIpH/uXlGPpqH80BJ1ASYXR
6x7VjhxcFZMmeo+Q19gNwU+hry76dtFlsgO9QgHS0MN9x6VzPn/+2Y+NOz0L
913IOexeH3SjKTGtPjVTmJYZNde5zMCy3NS23NRG8de23MS63Hhi9RRHkeva
TM/jKX5+uf53mnLym3MLmzNzmrLzmji5Tfs9H+4+I/74kGSJm8x+RdfSTTV5
BVqq1ysJphqyKlNYihiCNxisEgVY2QWPgFiKD9dhSKSklWDcQzFWOVNADMg8
WkbrIDgNoQkRZUlIrgler06pYeu9Yo56RykyPGbCs6g+nBJdlVUBZmZKpyku
lPsEy7z1kC+WklJTaNebaNRWKSDJOPAjOPVTgN8CNEhAHEq5EJdJKSbEaQip
LSdlVkeh7liYVEsaYqo96FOJAmXtGw50XWklCoiwBlKiwM5E9NkZDE3sJQrs
BQ84oBC4JKF2xZ8lfjIt3+NHWPyMPmosUUDUQAnOTB31j4bU1sZTdENJM7oQ
bWhIrSHID5AH0USsT69TgMDf5CN/m1yloOv9jyWz1ks+PvJw55nyPWdzj+1r
DLvdnpjakp5dz8mOn+dcrW9RPd5GvplYVxtNqJ9o27h2SdEvHlkB/qVhEcVh
d0uDQ1q4+fdzi9oz8zpyCjoyczu2He3c9pN4nYdk/hbptLUyc6dn81fXJado
oyF9mAp++2hHiC3uw/ZaFmzDJ0eUz4Mo6njxbBXKfcHROAzmeME2bIxioLIS
WCVN/tHMDAlheUUMsg6nISE2IcKDHqxwpmiCFnRQaTFavOjRR0cH5bgQK6G1
NiQN+RB9xC9U2qXqpWdZ6sgR+QM1K1fKdVA1BgEfTvHQ0zqwjFzIUIkntwtK
UNRsCxVUqEy1oQemsFIHBDQDRXM3pUDFFJIyXQVdyO0FXwygmMo58JTa0Qvk
LxZHoXU0egU4gjY0hE+FhL3jHlOFMyzTRXMEdBVcEYCn0HNDrqpC7sEt2GZZ
IWJKo7EXbMMlCfqzJ0zShLSCbWis2ksoE09U/wwLtgGQHLzymcnPQk0F2zsU
wAuzoaOYOhL2l4agOej+wpuO13jDXtRSvDZJOSZDmOgYTQm1B+XVpk3B4RLz
Gd3TVkpWHOjaerLB3bPghwMtkYG/JSQ9SM9uzs5NmK+kIZHRxBozq6YlcysO
78i84cNPSL6XlnEvLr4kNLwoOLiVW9CWU3ifk9uRV/woq+Dxp/t+X7VL+sEe
yexPpPbLpDaLZTYLxI7zqry8NWqI103BsTSMJHjQoER7cBZ/YkXt46t4ETge
glBMQ2tP8mdFe69T9KSnsKE46hE+HYk+sj9XgsIdVAzFUjQhoozSKasb8qCN
TVjwDfgKVSmgSI7P8oSKxB3uKDRrQwmrXnadPt3LLqzqTK1/8Ae7cOail89R
1rwQxeNLTiyvHqXogxKDeDEGquvAO8JNpnAZZdbD5Cg0BEIlEHT1tKEhGChQ
PKeEULXPe8IjCCj6oZYocMFQP1iPr+K6wSVpcJa+9s1CHGrFwnkNCKFQT+2l
CbGlFkhhrljBNt6MMqpHDxmBWA31R4pBaoC3g+5nbR5fhTcCPjPrij1KTPEA
3pFwAGtDoF9Y5A+LH5CNUDdKLzi0KVFgMgRPTuLfcHqmVCNwGqrl8Z/OXSIx
myK2X/h8weautYfuu/5c9P3+1siAR3HxD1Mz7mflRM53Lh5rxjOxEs6eLnD7
jHv1XEF4pCghpTktozklpSk2tvJueEFQUHN6dktmXms6tz2n6GFWwf3/7nm8
dPvTmRu6HVaJrRdLzGdLLabLLGdKJ0xt3/xlDSeTST16YS0Kvzw886MqpcOv
VfsyH41JOYqEHk1UKzKMqioa4OvjkMKY2kOggjeKRUIsXNMnAjDA4sJ71b9t
3Ag1wSuK4doNntPDzdRsF94Xg11QDt4F/sgqTJohTdRm4egaMjXGQbmJFOqh
DwbotxId6aU83ck0R+GiKF8ABI00BDkIpwD2qNvXZkzBrX8YXN0Gt9NB7/fF
yVSLftNQv6GxYJsFg+sWxEQPP/28e7zVM3OHbus5YkeXZ4u2ta7en394T1PY
rYfR0Q/iE9tSUv3nOCVbTCj5fFXOmR/ygoOFsQn1iUnC2PjqmNjGmJjau3cr
Q0Jy7vjfi0u6l8Spi0tv4uS1cwoebvjuscuurtmfPrVdKLZ4T2LuJB0/VWZs
JzOeJH9SyXJK20cbqgODhBUVFN3QyBYdQUkh/CDLEjYFfaKhl4CelwaoFiPQ
KWQ7ngViB+XRKnqt9csHvZxMbcwfCChrVWi9RllF0PsZ25cPjTQERpj4VEio
9Q+c5YU5lC4IDQ0EWvp54Hj5NKTx8VUWvAhXV2zcLB5rLDaxemxo0TbOttl8
Vp3DysIFm7MPudcGXGsJCWoJC2uMiAxZOC/tm23ZftfKgsOEkVGCiKiy8IjS
sPDCkJDioKDSO3cKb91Mu36tKiRSEJtWGZVSk5zdmpLzdN13Txdu67JZJjZ9
76nt3IdrtzzYe7j1hGfLxSvNV661el7o2Pvtgx27m05Rf614il6lpzLm4JVa
9GZMUEtDlFK0lww8TUQZbOOntKESuEZPf6eExveevVAAAoLrWRSt2NOVfZJP
yf7hXw+1dX0vExppyJX2Ji7tf+DalCQNIQ3Ra9sG0qk20l7QzAX3M1q+H3S8
fBoSanqZj8YLB64AhIjHa3XdLh6l1zVKr11Hv1HXQDTWtGb8ZJ7V/Jx5GzkH
vxb4Xay+4Su6dav61i3Ozz8WXvctvu1f4u8vCAgUBAYW37qVfv168rVrYMu4
ejXzypXYC+dLfG/zwxL4QbG1iZltabnPluwQO6zsdNnUeupiTXYOoyqCKsoB
EGHQ0rayiSLPQzkIV8O1CWsUGkIpIxCmhmrADF/dqXyjWu8JgnyJSnWqf+/3
1vK9Zy8ZUKvBcjhcBcM3+GgtPEt5WevLh0YaokyFhIM9/B4SGqK/jLR/L71k
ksbk0peQQBsSGqK/mkDtwf6B5dWmLBhEVzf53nruOKtzlF7NOLOaibaVVrZC
m0k8Q9N8HeNsI/u0mavjN3/Gu+lVfsOv3P92xR1/fsCdquBgUWxcbSa3Pr+o
LqegIT2zNia+MiiIc8Mv9qpXrNeVqCuXMq/5VIbHC6OSH1TV1kXEPp+8+vfl
m0T8skHReSCAMR9P36F6hiEcML840O39IwAuu7yc/zgDkdRQ/T8dQ/4fPQxi
vBK+xAxV//AHV48dg3unXjQGxdWi4mKB5/nwj9cH7tmTHxhUmZMjKCkRlpYK
i4srk5MLz5xNfn9VmPX84ElTOD//IORmN1VWtolEbXX1bU3N91va2lsVW3PL
g8bmjsam+w2NrbUNzVXCmoqKSj6/qozfJqp+9OBhe01N8axlT0xmNt64Myi2
ExD8uTDkNERA8IdFVWlpEZdLP44qFspzc8Ns5/jpG9wwNoqYM6dw3cYS96NZ
e49x9hzJ3Hck99BxsHEPHM13P8jf8U32VveUDV8lfOYWu37nTecl+6c6Rs9b
kL9kdan17DaL6Y8MrOvDyH+0SvAqAtYGD7UWBAR/MiAmCpjl9Mub/z45YozA
dq5k44nn+7ybvrsuOOIjOHpN+IOv6Mfrwh98ag9d/H37MeHGw/lr92Ws+zZ9
1cGi5bt8jO02vvF6pZFZnfGEJkPz+7oGNX43h9osAgICAoI/E8rS0o6OHO7x
+ptn39HvmuwiWbZXsun0E7eLD/Z6tRz0bvDwrj10tcbjSsO+i+0bj7as+7Z6
xYHyNYf5y3bxnT6vmvxhpJ55/CjdyrGGVXpG9Tp6Fd8dHWqDCAgICAj+PBAI
kn788cib7+7/v9dTdMdJHN6XzNkgWbZb8slPkq1nn3198fHuK527L993v/Rg
57nfPj32ePV3vy37pn353ntzNtZMcqk0nV5mZJU1Wi911Oji0XplI3XLFi0V
VlEL4QgICAgICNSiSiDITUw8NFLH45+vPzOxlk6cKZm0WDJtjWzWZtnifdI1
30s2/Nq98WT3phPP133/fOWhrkV7njq5ds5c/8hycfPUJTV2s/ijDXOGj4ob
PjJ+pA5nhG6OoXGFuqUoAgICAgICtcgIDV3/93+kDB8pNZkgHW8nM50msXPu
ctny++aDzz50k87cIlm0W7LIXeK8s9tp29MpH/9us/ypyezWo7+IioqFYAsK
Llm5OmXM2MC33ol8e0TcuyNzvTW/QY6AgICAgADiyv59B//1L5m+vsxgnNTM
utP1q7pU5ZPLovKKhx4nZXYrpFP+K53yUbfd8qcWzl2G03775AuKEF5sbMJS
lytv/Mf/P29HOi8ieTkCAgICAm1QJRBstbYSDB8p09Pres+pITqG3qbzKw+Z
zWLpxLkSG+cnxtO6jB3r45PUSuNcunRGR/fCsDdq1ckhICAgICCgICs5+ei/
/y3T0ev48isRwzvuqotKxLOWyl+UbT7tmZH9o8WrhAIBk8Di5OTjxkZx06eT
CREBAQEBgUb8vGVz24jRTZ7n2Js13wyQjbeXmTmKDa3aftXw/kwel/uzpYXo
0uXBU5OAgICA4C+IHA7n0tvD205d0Kbx74s/lBlNkBpb18TFa2zMz8uLcd1a
nZM7YB0JCAgICP6yuPT1zta9h7Vs3HLJS2Zs02ntWFFYqE378sLCCkJDBAQE
BAQMyMrI4B//Rfv2osrKbodZ9xcseXEqERAQEBC8OqgoLu5rFcGTlRu4HwzZ
/25JQEBAQPBHw/8DCp03+A==
        "], {{0, 0}, {557, 41}}, {0, 255}, ColorFunction -> RGBColor], 
       ImageSize -> {557, 41}, PlotRange -> {{0, 557}, {0, 41}}]], 
     "DockedCell", Background -> GrayLevel[0.866682], 
     CellFrame -> {{0, 0}, {0, 4}}, CellFrameColor -> 
     RGBColor[0.690074, 0.12871, 0.194598], CellMargins -> {{0, 0}, {-3, 0}}, 
     CellFrameMargins -> 0, ContextMenu -> None, 
     ComponentwiseContextMenu -> {}], 
    Cell[
     BoxData[
      GridBox[{{
         GraphicsBox[
          RasterBox[CompressedData["
1:eJztWl1Ik1EYFrqNEoLMbHPmNkRrEhJERj93ra4cJvbDRIsyMk1pc03tTL1w
aD+LfkQIJBkR/dBFdtHFDLywCykqoqgLIYRu6jbb8me933e+HT/P2fZN+sZ0
vg9n43zfec973nPe57zvOWNFDS2OhnU5OTlG+LyBj1S/ikAgEAgEAoFAIBAI
xEpFMBh8jUgPYG0z7d7MAOYedm/Bko4Ca5tp92YGSCokle5AUiGpdAeSCkml
O0RS/R1tjEajUIHvyIhdehPyLNZjrVSAgT5CK1Tmf32e+/qcdYEy+/4+vKTd
oQJN89PjojbaHcrCzE8qn0RGfIxrEjcF0SomD49hYqDDUUSGKtUKWRMYz42L
pFJDg1RPamGdlRWGuuDi2Yl+WHkoiy72W6jjgFeSm/wWKEAScCvtCxWpSzxt
1FPU9dJ76Lt8UnEmcVMQrWImUQE6nKJB7sgUKpb4LcpEtHiFpEpEKim2TI8n
IhXv4pAHXCAJEAPIq7d5JFAOYYEGKHEstTbQAJKSx+XH5ZKKE+CmIFq1ZC/E
SBVXoboJyMliKZKKgyapwLlK1ohHKgpYYfGRbnNpg4c8dP3prtckFQ0gUm5K
miKpVZxnRZP4KcSziiU1bjhOobpJ2TtIqnhITipYZ7byydJfoDzMpT9ZWMo1
EHbgBBLyhOWzlmakUtKQnB/VuUYkFbWNjZXIJHEKnFVL0t+IXSQVU4iRKkUk
JxVzhJI7hirpDpXOGzJ5eFLFvMNORxAlaJZhmtmZStQGAvSQA/FECSksH/kt
VLMyokw5qHDOFU3ipiBaxZmtTSo8U2lBI1LF/BWNXZ0Y1LckLo9IqQdYIWdA
9T0uvPT2J2qjrUr2lGMRSzrq4eiIVIxFGC5bMZO4KYhWcWYnSn8gv3j7k+vJ
GbVaSNXt9fo6O/XVib9Tpa+sClLdvtB0q+WSvjqRVGucVA/q6p9V1+irE0m1
xkk1cuLk2O49+upEUq1xUg1X14yZraSrS0ed+H+q9GFV/J+qx25/u9U40Nqa
aUMQ2YMrFRWf8g0vDh9JvUvgYjPR+8KIyA5AyiNeb1Pe5ql840xxSV97eyq9
Hp1y3nE602waYoXC19GRqInIGHC57lY53Lm53/O2RQ3Fr6qqNXUG609/LLX1
ulOiHyL74D/XeLPxvPiexHDtsuulyexbv2GqwLRgNP8xl/W7XAQE1IUQ1nHw
zNl5o2XYoc09RLbC5/E8te26V9+gfskY5SPkuss1abLc2Ljpm9E8Z7FFt++c
POroJoQWn1wotQAPj9XMFZp/m6y9bndGpoNYCZBikbNuoqBwsPY4IxIrQJu+
trYf5pLRfOOXotJw6d7Zsv0LtkOPzzb1ENKjolagueVD5YGodUfEZH2372Cm
p4X4X/wDFcRtOg==
           "], {{0, 0}, {199, 30}}, {0, 255}, ColorFunction -> RGBColor], 
          ImageSize -> {199, 30}, PlotRange -> {{0, 199}, {0, 30}}], 
         ButtonBox[
          GraphicsBox[
           RasterBox[CompressedData["
1:eJztlDFuhFAMRJHS5w45Re6RI+wFcoOUtNtR0lJSUlNSUtNS0m9JXjTKaPQh
UfpgCeT1n2+Px15ebu9vt6eqqp55Xnm+/I/L/p+1bbtt277vvJumIcKbnwWs
73vBsHVdE1bXNQ55Ho8HMOEd3L9tWRZ+6tRBrrjEMAwigHO/37M6SII40zRB
Q7QLkpQWjKOu63RqGHHVIoOYYAR16oucinYGxUo2jqMIzPNMnpQRPF2nMkeS
cCBDXsm7ZNZp6oZRS3wsIBFNIYM2iY8gYmJA8imqawHcOAKqio4KSp4O7Qjp
K1nOUygasaG2hoKSaud3krkArggZzyhhTohP3Uz7E0mNu9g98oj26exOSTon
fRUtn8IUJL+W80gyuz6OW3mgrSXXEv5dSaRTaRz9KQpY/knxtVomKdFQxvFT
JZFR6pFBJWT5tbEvR9+H3F6S+GOSMC+DTHtrHYyh32Qu855cdhn2CUundjY=

            "], {{0, 0}, {55, 14}}, {0, 255}, ColorFunction -> RGBColor], 
           ImageSize -> {55, 14}, PlotRange -> {{0, 55}, {0, 14}}], 
          ButtonData -> {
            URL["http://store.wolfram.com/view/app/playerpro/"], None}, 
          ButtonNote -> "http://store.wolfram.com/view/app/playerpro/"], 
         GraphicsBox[
          
          RasterBox[{{{132, 132, 132}, {156, 155, 155}}, {{138, 137, 137}, {
           171, 169, 169}}, {{138, 137, 137}, {171, 169, 169}}, {{138, 137, 
           137}, {171, 169, 169}}, {{138, 137, 137}, {171, 169, 169}}, {{138, 
           137, 137}, {171, 169, 169}}, {{138, 137, 137}, {171, 169, 169}}, {{
           138, 137, 137}, {171, 169, 169}}, {{138, 137, 137}, {171, 169, 
           169}}, {{138, 137, 137}, {171, 169, 169}}, {{138, 137, 137}, {171, 
           169, 169}}, {{138, 137, 137}, {171, 169, 169}}, {{138, 137, 137}, {
           171, 169, 169}}, {{135, 135, 135}, {167, 166, 166}}}, {{0, 0}, {2, 
           14}}, {0, 255}, ColorFunction -> RGBColor], ImageSize -> {2, 14}, 
          PlotRange -> {{0, 2}, {0, 14}}], 
         ButtonBox[
          GraphicsBox[
           RasterBox[CompressedData["
1:eJztlSGSg2AMhTuzfu+wB1qzR+gF9gbIWhwSW4lEV1ZWYyvxSPZb3vAmDdDq
zpCZdvKH5CUvfwhfx9+f48fhcPjk983vXy922eU9paqqcRx9HGcZhiE+PZ1O
KHVd24KOgt0WFKLQ27ZdJrper0JGcS5CVqs6n89yRpGl73tZBK6kkvv97kCe
ChOlLEvbVW2kiYPoxKcYRdwWld00jS2EcFSFMYXCqbOcBJzL5aJcxK7SFEFB
GQFn8AWupPUkMRfIJEK53W5d1z2hGVP7yohVbfanWoxAJQTfeywbT1+xK9mi
GQGTj8FT0uRAN3Tdjl3SlNANP5WoabIIRP+x52ojLEgXs8fxs7+R1cCXNFH6
SVJhKZwx0+BxBZ7nraGNpBSrEFlA1khgRDcCRg1navIWTeVKPVmliaeaL+c4
tCmcknRHfjtWaS6HNtYmC1wYjGJ+6eKjJcficWgVssz1nGbabFtD682gZaIO
MHXqkq/vyW3GFaQXliNuOhbz9lOHU3a6SrhWkCmnXC9pUoPBt1aQpquYrtJt
0f6Pazkd497W1MkSlxierkrrN254iz8oHqS0ByzxGzfOHx2yq9plYSl8l13e
Xf4ArlmHrg==
            "], {{0, 0}, {77, 14}}, {0, 255}, ColorFunction -> RGBColor], 
           ImageSize -> {77, 14}, PlotRange -> {{0, 77}, {0, 14}}], 
          ButtonData -> {
            URL[
            "http://www.wolfram.com/solutions/interactivedeployment/\
licensingterms.html"], None}, ButtonNote -> 
          "http://www.wolfram.com/solutions/interactivedeployment/\
licensingterms.html"]}}, ColumnsEqual -> False, 
       GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}]], 
     "DockedCell", Background -> GrayLevel[0.494118], 
     CellFrame -> {{0, 0}, {4, 0}}, CellFrameColor -> 
     RGBColor[0.690074, 0.12871, 0.194598], CellMargins -> 0, 
     CellFrameMargins -> {{0, 0}, {0, -1}}, ContextMenu -> None, 
     ComponentwiseContextMenu -> {}, 
     ButtonBoxOptions -> {ButtonFunction :> (FrontEndExecute[{
          NotebookLocate[#2]}]& ), Appearance -> None, ButtonFrame -> None, 
       Evaluator -> None, Method -> "Queued"}]}, 
   FEPrivate`If[
    FEPrivate`SameQ[
     FrontEnd`CurrentValue[
      FrontEnd`EvaluationNotebook[], ScreenStyleEnvironment], "SlideShow"], {
    Inherited}, {}]], Inherited],
ShowCellBracket->False,
ShowGroupOpener->True,
Magnification->1.2000000476837158`,
FrontEndVersion->"7.0 for Microsoft Windows (32-bit) (November 10, 2008)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[567, 22, 118, 2, 118, "Title"],
Cell[CellGroupData[{
Cell[710, 28, 105, 1, 102, "Section"],
Cell[818, 31, 572, 14, 38, "Text"],
Cell[1393, 47, 31209, 533, 247, "Input"],
Cell[CellGroupData[{
Cell[32627, 584, 1418, 48, 88, "Text",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}],
Cell[34048, 634, 3084, 69, 1435, "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}]
}, Closed]],
Cell[37147, 706, 1158, 28, 96, "Text"]
}, Closed]],
Cell[CellGroupData[{
Cell[38342, 739, 95, 1, 57, "Section"],
Cell[38440, 742, 467, 7, 62, "Text"],
Cell[CellGroupData[{
Cell[38932, 753, 314, 6, 62, "Text"],
Cell[39249, 761, 4610, 101, 421, "Input"]
}, Closed]],
Cell[CellGroupData[{
Cell[43896, 867, 588, 12, 57, "Text"],
Cell[44487, 881, 3324, 64, 711, "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}]
}, Closed]],
Cell[CellGroupData[{
Cell[47848, 950, 439, 7, 57, "Text"],
Cell[48290, 959, 6404, 135, 663, "Text"]
}, Closed]],
Cell[CellGroupData[{
Cell[54731, 1099, 889, 14, 104, "Text"],
Cell[55623, 1115, 2683, 53, 711, "Input"]
}, Closed]],
Cell[CellGroupData[{
Cell[58343, 1173, 268, 7, 33, "Text"],
Cell[58614, 1182, 2003, 39, 751, "Input"]
}, Closed]]
}, Closed]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)
(* NotebookSignature 2wDaGnIBG7FriCKHh78CFjAB *)