AspectRatio

Automatic]

ploteq1 = EdgeworthBowley[ownpars, Factor

{1, 2}, PlotPoints

50]

(*l = 0*)

SetFunction[withoutl, shel] =