File:Turbo ax momento.png

import graph;

scale(5);
size(1700,0);
real desp=5*2.3/2;
path w0,c0,u,w3,c3;
real i=0;
currentpen=linewidth(3mm);

guide alabe=(0.7,0)..(0.7,-0.5)..(-0.25,-3)..(-1,-4);
guide sup=(-1.1,0)--(13,0);
for(i=0;i<6;i=i+1){
	draw(shift((2.3*i,0))*alabe);
}

//cero
draw(shift((0,0.05))*sup,linetype("10 10")+red+linewidth(2mm));
label(scale(6)*Label("0"),(-1.5,0),red);
//tres
draw(shift((0,-4.01))*sup,linetype("10 10")+red+linewidth(2mm));
label(scale(6)*Label("3"),(-1.5,-3.75),red);

//linea de corriente
draw(shift(desp,0)*alabe,blue+linewidth(2.5mm));
//0
w0=(0,0)--3*dir(alabe,0);
draw(shift((0.7+desp,0)-3*dir(alabe,0))*w0,red+blue+linewidth(2mm),\
		Arrow(50,15));
label(scale(6)*Label("$\vec{w_0}$"),(desp+1.2,-1)-point(w0,1),red+blue);
u=(0,0)--(-3,0);
draw(shift((0.7+desp,0))*u,blue+green+linewidth(2mm),Arrow(50,15));
label(scale(6)*Label("$\vec{u}$"),(desp-1.3,0.5),blue+green);
c0=(0,0)--3*dir(alabe,0)+(-3,0);
draw(shift((0.7+desp,0)-3*dir(alabe,0)-(-3,0))*c0,blue+linewidth(2mm),\
		Arrow(50,15));
label(scale(6)*Label("$\vec{c_0}$"),(desp+0.3,-1)-point(c0,1),blue);
//3
w3=(0,0)--5*dir(alabe,3);
draw(shift((-1+desp,-4))*w3,red+blue+linewidth(2mm),Arrow(50,15));
label(scale(6)*Label("$\vec{w_3}$"),(desp-1,-5),red+blue);
draw(shift((-1+desp,-4))*u,blue+green+linewidth(2mm),Arrow(50,15));
label(scale(6)*Label("$\vec{u}$"),(desp-2.6,-3.5),green+blue);
c3=(0,0)--5*dir(alabe,3)+(-3,0);
draw(shift((-1+desp,-4))*c3,blue+linewidth(2mm),Arrow(50,15));
label(scale(6)*Label("$\vec{c_3}$"),(desp-4,-5.3),blue);

label(scale(6)*Label("$\vec{u_0}=\vec{u_3}=\vec{u}$"),(1.6*desp,-5),\
			green+blue);