%
%  HORIZONTAL_CYL_1A.M   Function evaluation for Root Finding Exercise 
%
%  The volume of fluid in a horizontal cylindrical tank is given by:
%      V = L*(R*R*acos((R-h)/R)-(R-h)*sqrt(2*R*h-h*h))
%  where V = volume, R = radius, h = height of fluid, and L = length of tank.
%
%
      function f = horizontal_cyl_1a(h)
      global R L Vol
      f = Vol - L*(R*R*acos((R-h)/R)-(R-h)*sqrt(2*R*h-h*h));
%
%  end of function



