Matlab - Dibujar un "momento o torque"

clear all

clf

theta=-0.3:pi/500:pi;

d=2;

r1=6;

x1=r1*cos(theta);

y1=r1*sin(theta);

hold on

plot([x1 x1(end)-d/2  x1(end)+d/2   ],[y1 y1(end) abs(y1(end))-d  ],'b')

r2=r1-d;

x2=r2*cos(theta);

y2=r2*sin(theta);

x2=x2(1:end-1);

y2=y2(1:end-1);

plot([x2 x2(end)+d/2  x2(end)-d/2],[y2 y2(end)   y2(end)-d ],'b')

plot([x1(1) x2(1)],[y1(1) y2(1)],'b')

%grid on

 axis('image')

 hold off

>>flechass