f0(x,y0,y1)=y1
f1(x,y0,y1)=-1*y0
#MMiddlePoint([f0(x,y0,y1);f1(x,y0,y1)],[1,0],0,6.28,50)
m=MMiddlePoint([f0(x,y0,y1);f1(x,y0,y1)],[1,0],0,6.28,50)
