function [value,isterminal,direction] = events_figure13(t,u)

value(1)=u(7)-77.2;
isterminal(1)=0;
direction(1)=-1;
