% P3 Checks TanLine

  clc

  L = 1;
  R = 30;
  xRoots = TanLine(L,R);
  fprintf('\n\nThere are %1d roots between L = %10.6f and R = %10.6f:\n\n',length(xRoots),L,R)
  fprintf('   %20.15f\n',xRoots)

  L = .001;
  R = pi/2;
  xRoots = TanLine(L,R);
  fprintf('\n\nThere are %1d roots between L = %10.6f and R = %10.6f:\n\n',length(xRoots),L,R)
  fprintf('   %20.15f\n',xRoots)

  L = pi/2;
  R = pi+pi/2;
  xRoots = TanLine(L,R);
  fprintf('\n\nThere are %1d roots between L = %10.6f and R = %10.6f:\n\n',length(xRoots),L,R)
  fprintf('   %20.15f\n',xRoots)

  L = 50;
  R = 50.001;
  xRoots = TanLine(L,R);
  fprintf('\n\nThere are %1d roots between L = %10.6f and R = %10.6f:\n\n',length(xRoots),L,R)
  fprintf('   %20.15f\n',xRoots)




