function [Fy] = F(x,y)
 Fy(1)=-1/(2*y(1));
end		

