- Polarization demonstration. Use webcam.
- Visible color range vs audible frequency range
- Linear functions
- do[x_] := x^2;\
xsize = 10;\
ysize = 10;\
Plot[{
do[x],
do[x]
}, {x, -xsize, xsize}, PlotRange -> {-ysize, ysize},PlotStyle -> {Red, Blue},
AspectRatio -> 1,
GridLines -> {Range[-xsize, xsize], Range[-ysize, ysize]}] - Derivatives
- do[x_] := x+1;
xsize = 10;
ysize = 10;
Manipulate[Plot[{
do[x],
do’[p] (x – p) + do[p]
}, {x, -xsize, xsize}, PlotRange -> {-ysize, ysize},
PlotStyle -> {Red, Blue}, AspectRatio -> 1,
GridLines -> {Range[-xsize, xsize], Range[-ysize, ysize]},
Epilog -> {Red, PointSize -> 0.02, Point[{p, do[p]}]}], {{p,
0}, -xsize, xsize}] - Harmonics must be integers
- Musical notes versus frequencies
- The circle of 5ths and vs well tempered scale
- Superimposition of the wave
- Beat simulation and beat demonstration
- Manipulate[
Column[{
Plot[Sin[f1 x], {x, 0, 10 Pi}, PlotRange -> {-2, 2},
ImageSize -> 400],
Plot[Sin[f2 x], {x, 0, 10 Pi}, PlotRange -> {-2, 2},
ImageSize -> 400],
Plot[Sin[f1 x] + Sin[f2 x], {x, 0, 10 Pi}, PlotRange -> {-2, 2},
ImageSize -> 400]
}], {{f1, 1}, 1, 5}, {{f2, 1}, 1, 5}] - Play[Sin[440 2 Pi t] + Sin[440 2 Pi t], {t, 0, 1}]
- Thin film interference. Double pane glass. Glass coating. Rear view mirror.
- Newton’s Ring
- Laser Interference pattern. Double slit experiment
- https://phet.colorado.edu/en/simulation/legacy/wave-interference
- Sound Interference
- https://phet.colorado.edu/en/simulation/legacy/sound
- Slit interference pattern
- http://demonstrations.wolfram.com/IntensityDistributionForMultipleSlitDiffraction/