maihudson: "Mathematica code: S[n_, t_] := Sin[n*3 Pi/50 t]; Manipulate[ Show[ Table[ Plot[ 100 - n (20*Abs[S[n,t]] .02)*Exp[-(x - 4
Daniel Escudeiro Saved to All
![maihudson: "Mathematica code: S[n_, t_] := Sin[n*3 Pi/50 t]; Manipulate[ Show[ Table[ Plot[ 100 - n (20*Abs[S[n,t]] .02)*Exp[-(x - 4](https://dspncdn.com/a1/media/692x/4b/2e/cf/4b2ecf25eedc0ae65411d1ad34307f93.jpg)
