figure()
for m=1:16
  subplot(2,8,m)
  fplot(@sin,[-1 1])
end


