File:Stehende welle 2.gif

% GNU Octave/Matlab
% mik81
% 
% Stehende Welle
 
steps = 1/80
speed = (1/steps)/5
 
timebase = (0.: steps : 3.);
wave = sin( 2. * pi * timebase);

__gnuplot_set__ size square 0.5,0.5;

 
for phi=steps:steps:1
  hinlaufend = sin (2. * pi * timebase - 2. * pi * phi);
  ruecklaufend = sin (2. * pi * timebase + 2. * pi * phi)/2;
  sum = hinlaufend + ruecklaufend;
 
  axis([0, 3, -2.2, +2.2]);
  plot(timebase, hinlaufend, ";;"
    , timebase, ruecklaufend, ";;"
    , timebase, sum, ";;"
    , [.5, 1., 1.5, 2., 2.5], [0, 0, 0, 0, 0], "o6"
    , [.5, 1., 1.5, 2., 2.5], [hinlaufend(40), hinlaufend(80), hinlaufend(120), hinlaufend(160), hinlaufend(200)], "o6"
    , [.5, 1., 1.5, 2., 2.5], [ruecklaufend(40), ruecklaufend(80), ruecklaufend(120), ruecklaufend(160), ruecklaufend(200	)], "o6");
%    , [.25, .75, 1.25, 1.75, 2.25, 2.75], [sum(20), sum(60), sum(100), sum(140), sum(180), sum(220)]/2, "*6");
  axis ("nolabel");
  clear filename;
  filename = sprintf("./wave2%05i.png", phi/steps);
  printf("%s", filename);
  printf("\n");
 
  print(filename, "-dpng", "-landscape");
  clearplot;
end