n=200
x = linspace(-12,12,n);
points = ""
for k=1:n,
    points = points + string(x(k))+","+string(besselj(1,x(k))/x(k))+" ";
end
polyline = "<polyline "+"points=''"+points+"''/>";
            
