displayAnalysis[{-1.5,1.5},{-8,8},{PlotJoined->False},{PlotJoined->False,PlotRange:>{Min[0,ymin-.1],Max[1.1,ymax]}}];