 function x=f04 (x)
   x= x*x;
 end
