%
%   ODENEX1B.M   Function evaluation for ODE step in ODENEX1.M
%
%   Evaluate  y' = -(3xy^2 + 2y)/(2yx^2 + x)   
%
%   File prepared by J. R. White, UMass-Lowell (July 2003)
%
     function yp = odefile(x,y)
     yp = -(3*x*y^2 + 2*y)/(2*y*x^2 + x);
%
%   end of function