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);

07. November 2014 von mga010
Kategorien: Deutsch, English | Schreibe einen Kommentar

Schreibe einen Kommentar

Pflichtfelder sind mit * markiert


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