Pendulum Waves

I have seen the following with real physical objects. I thought I could try to do this in Euler Math Toolbox (EMT). It is not exactly accurate since the frequency of the pendulum is inverse proportional to the square root of the length of the pendulum. But that does not really matter.

fr=(10:0.1:11)';
t=0:0.002:100;
x=sin(fr*t*2*pi);
function showx (x) ...
$ markersize(20);
$ for k=1 to cols(x);
$    plot2d(x[,k]',1:rows(x),
$       a=-1,b=1,c=1,d=rows(x),>points,
$       style="o#",color=green,<grid);
$    wait(0);
$    until testkey();
$ end;
$ endfunction
clg;
showx(x);

Schreibe einen Kommentar

Deine E-Mail-Adresse wird nicht veröffentlicht. Erforderliche Felder sind mit * markiert.

Diese Website verwendet Akismet, um Spam zu reduzieren. Erfahre mehr darüber, wie deine Kommentardaten verarbeitet werden.