contourplot(Re(me(10,com(x,y))),x=-15..15,y=-15..15,thickness=2,coloring=[blue,red],contours=[seq(3*i,i=-10..10)],scaling=CONSTRAINED,title=`multipole, p=10`);