Cadena de osciladores

Quit

Cadena infinita

quit

Posición

tab:=Table[x[a,t],{a,0,9}];

tab

Do[
x[a_,t_]:= b a + δx[a,t]
,{a,0,9}
];

tab

Solución

δx[a_,t_]:=A Cos[κ b a +ω[κ]t+δ];
tab

Animación

ω0=2;
A=1/2;
δ=0;
κ= 1/3;
b=3;

ω[κ]= 2 ω0 Sin[κ b/2] ;
tabp[t_]:=Join[{Orange},Table[Disk[{x[a,t],0},1],{a,0,9}]] //N;

Animate[Graphics[{Polygon[{{-5,-5},{30,5}}], tabp[t] }],{t,0,50}]

Cadena finita

Quit

Posición

tab:=Table[x[a,t],{a,0,9}];

tab

Do[
x[a_,t_]:= b a + δx[a,t]
,{a,0,9}
];

tab

Solución

δx[a_,t_]:=A (Cos[κ b a -ω[κ]t-δ]-Cos[κ b a +ω[κ]t+δ]);
tab

Animación

ω0=1/2;
A=1/3;
δ=0;
κ= π/(b 9) 7;
b=3;

ω[κ]= 2 ω0 Sin[κ b/2] ;
tabp[t_]:=Join[{Orange},Table[Disk[{x[a,t],0},1],{a,0,9}]] //N;

Animate[Graphics[{Polygon[{{-5,-5},{30,5}}], tabp[t] }],{t,0,50}]