clf();

function [A]=pot(arg);
  A=sin(50*arg)/(50*arg);
endfunction

s=1/100;
for i=1:99,
  plot([s,s+1/100],[pot(s),pot(s+1/100)]);
  s=s+1/100;
end,

