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

