function [h,finish,dir]= mycheck( t,y)
h=[y(1)];
finish=[1]; 
dir=[0];
end

