%
%
function [f1,f2]=bobs_fop0_a(u,s,t,flg)
%
%  s = [x y]'
%
x = s(1); y = s(2); 
%
if flg == 1
   f1 = [t+u; x];  
elseif flg == 2
   f1 = 0.5*(x*x+y*y); f2 = [x y];
elseif flg == 3
    f1 = [0 0 ; 1 0];
    f2 = [1; 0];
end;
      