Resumen

 

Este diagrama fue creado con Mathematica

Mathematica code

ax=-2;bx=2;ay=-2.2;by=-0.2;r=0.08;dx=bx-ax;dy=by-ay;
a=Graphics[{EdgeForm[Thickness[0.012]],White,Rectangle[{ax,ay},{bx,by}]}];
b=Plot[{2(x+1)^2},{x,-2,0},PlotStyle->{Thickness[.01],Blue}];
c=Plot[{4(x-1)^2},{x,1-1/Sqrt[2],1+1/Sqrt[2]},PlotStyle->{Thickness[.01],Red}];
fnmin[x_]:=-Sqrt[x/2]-1;fnmax[x_]:=Sqrt[x/2]-1;
fmmin[x_]:=1-Sqrt[x/4];fmmax[x_]:=1+Sqrt[x/4];
l1=1/6;l2=3/6;l3=5/6;l4=7/6;l5=9/6;
ni=Graphics[{Dashed,Thickness[.006],{Blue,Line[{{fnmin[l1],l1},{fnmax[l1],l1}}],Line[{{fnmin[l2],l2},{fnmax[l2],l2}}],Line[{{fnmin[l3],l3},{fnmax[l3],l3}}],Line[{{fnmin[l4],l4},{fnmax[l4],l4}}],Line[{{fnmin[l5],l5},{fnmax[l5],l5}}]},{Red,Line[{{fmmin[2l1],2l1},{fmmax[2l1],2l1}}],Line[{{fmmin[2l2],2l2},{fmmax[2l2],2l2}}],Line[{{fmmin[2l3],2l3},{fmmax[2l3],2l3}}]}}];
osc1[t_]:=-1+(fnmax[l3]-fnmin[l3])/2 Cos[4 t];osc2[t_]:=1+(fmmax[2l2]-fmmin[2l2])/2 Cos[8t];
p[x_,v_,t_]:=x+v t;n[x_,v_,t_,a_,b_]:=Floor[(p[x,v,t]-a)/(b-a)];pospar[x_,v_,t_,a_,b_]:=p[x,v,t]-n[x,v,t,a,b](b-a);
trax[t_,vx_,x0_]:=pospar[x0,vx,t,ax,bx](-1)^n[x0,vx,t,ax,bx]+(bx+ax)/2(1-(-1)^n[x0,vx,t,ax,bx]);tray[t_,vy_,y0_]:=pospar[y0,vy,t,ay,by](-1)^n[y0,vy,t,ay,by]+(by+ay)/2(1-(-1)^n[y0,vy,t,ay,by]);
v1=0.8*3/Sqrt[2];v2=2 v1/0.8;

g[s_]:=Show[a,b,c,ni,Graphics[{{Black,Disk[{osc1[s],l3},r],Disk[{osc2[s],2l2},r]},EdgeForm[{Thick,Black}],{Blue,Disk[{trax[s,v1 Cos[0.7],ax+0.1dx],tray[s,v1 Sin[0.7],ay+0.7 dy]},r],Disk[{trax[s,-v1 Cos[0.5],ax+0.5dx],tray[s,v1 Sin[0.5],ay+0.1dy]},r],Disk[{trax[s,-v1 Sin[0.6],ax+0.7dx],tray[s,-v1 Cos[0.6],by-0.1dy]},r]},{Red,Disk[{trax[s,v2 Sin[0.4],ax+0.3dx],tray[s,v2 Cos[0.4],ay+0.3dy]},r],Disk[{trax[s,-v2 Cos[0.55],bx-0.1ax],tray[s,-v2 Sin[0.55],by-0.2dy]},r]},{White,Line[{{ax-1.1r,ay-1.1r},{bx+1.1r,ay-1.1r}}]}}]]

Licencia

Yo, el titular de los derechos de autor de esta obra, la publico en los términos de la siguiente licencia:

Este archivo se encuentra bajo la licencia Creative Commons Genérica de Atribución/Compartir-Igual 3.0.

Eres libre:

• de compartir – de copiar, distribuir y transmitir el trabajo
• de remezclar – de adaptar el trabajo

Bajo las siguientes condiciones:

• atribución – Debes otorgar el crédito correspondiente, proporcionar un enlace a la licencia e indicar si realizaste algún cambio. Puedes hacerlo de cualquier manera razonable pero no de manera que sugiera que el licenciante te respalda a ti o al uso que hagas del trabajo.
• compartir igual – En caso de mezclar, transformar o modificar este trabajo, deberás distribuir el trabajo resultante bajo la misma licencia o una compatible como el original.

https://creativecommons.org/licenses/by-sa/3.0CC BY-SA 3.0 Creative Commons Attribution-Share Alike 3.0 truetrue