[x, y, z] = meshgrid([-2:0.4:+2]);
r = (x.^2 + y.^2 + z.^2).^0.5;
u = 1e6.*(-y./(r.^2));
v = 1e6.*(+x./(r.^2));
w = 1;
figure;
hold on
grid on
quiver3(x, y, z, u, v, z*0,0.5);
title('hilo infinito con corriente');
xlabel('x');
ylabel('y');
zlabel('z');
t = -2:pi/50:2;
plot3(t*0,t*0,t,'y');

%%la esfera es por defecto, no tiene abssolutamente nada 
%%que ver copn el ejemplo
%%solo para que funcione rapido el grafico
r = 0.001;
[a,b,c] = sphere();
surf(a*r,b*r,c*r);