Working Kerr effect; PDM; speedups; removed unused files

[4yp.git] / plotp.m

function plotp(x)
  if length(x) > 100
    plot(angle(x(1:100)))
  else
    plot(angle(x(1:end)))
  end
end