Modulaciones AM (Spanish)

Manipulate[
Column[{
Plot[(1+m*Sin[2 Pi f1 t])*Cos[2 Pi f2 t],{t,0,1},ImageSize->{350,175},ImagePadding->15,PlotRange->2.5],
Plot[Sin[2 Pi f1 t],{t,0,1},ImageSize->{350,175},ImagePadding->15]
},
Alignment->Center],
{{m,0.5,"índice de modulación"},0,1.5},Delimiter,{{f1,1,"frecuencia de la señal"},1,10},
{{f2,1,"frecuencia portadora"},1,100}]

THIS NOTEBOOK IS THE SOURCE CODE FROM

"Modulaciones AM (Spanish)" from The Wolfram Demonstrations Project
 http://demonstrations.wolfram.com/ModulacionesAMSpanish/

Contributed by: Jose F. Monserrat

A full-function Wolfram Mathematica 6 system is required to edit this notebook.
GET WOLFRAM MATHEMATICA 6 »

© The Wolfram Demonstrations Project & Contributors   |   Terms of Use   |   Make a new version of this Demonstration »