function[I21LRLower, I21LRttLower, I21LRxxLower, I21LRxtLower, I21LRtxLower, I21LRx1Lower, I21LRx2Lower, I21LRt1Lower, I21LRt2Lower]=IDataTable21LRULower (x1, x2, t1, t2, mR, mL, kappa)
I21LRLower=@(omega,t)mR.^(-2).*omega.^(-1).*(mL.^2+omega.^2).^(-1/2).*pi.^(-1).*cos( ...
  omega.*(t1+(-1).*t2)).*csch(kappa.^(-1).*omega.*pi).*(cos(omega.* ...
  xstar1).*((mL.^2+omega.^2).^(1/2).*((-1).*mR.^2+2.*omega.^2).*cos( ...
  (mL.^2+omega.^2).^(1/2).*xstar2)+(-2).*omega.^2.*((mR+(-1).*omega) ...
  .*(mR+omega)).^(1/2).*sin((mL.^2+omega.^2).^(1/2).*xstar2))+ ...
  omega.*sin(omega.*xstar1).*((-2).*((mR+(-1).*omega).*(mR+omega).*( ...
  mL.^2+omega.^2)).^(1/2).*cos((mL.^2+omega.^2).^(1/2).*xstar2)+( ...
  mR.^2+(-2).*omega.^2).*sin((mL.^2+omega.^2).^(1/2).*xstar2)));

I21LRttLower=@(omega,t)mR.^(-2).*omega.*(mL.^2+omega.^2).^(-1/2).*pi.^(-1).*cos(omega.*( ...
  t1+(-1).*t2)).*csch(kappa.^(-1).*omega.*pi).*(cos(omega.*xstar1).* ...
  ((mL.^2+omega.^2).^(1/2).*((-1).*mR.^2+2.*omega.^2).*cos((mL.^2+ ...
  omega.^2).^(1/2).*xstar2)+(-2).*omega.^2.*((mR+(-1).*omega).*(mR+ ...
  omega)).^(1/2).*sin((mL.^2+omega.^2).^(1/2).*xstar2))+omega.*sin( ...
  omega.*xstar1).*((-2).*((mR+(-1).*omega).*(mR+omega).*(mL.^2+ ...
  omega.^2)).^(1/2).*cos((mL.^2+omega.^2).^(1/2).*xstar2)+(mR.^2+( ...
  -2).*omega.^2).*sin((mL.^2+omega.^2).^(1/2).*xstar2)));

I21LRxxLower=@(omega,t)mR.^(-2).*pi.^(-1).*cos(omega.*(t1+(-1).*t2)).*csch(kappa.^(-1).* ...
  omega.*pi).*(omega.*cos(omega.*xstar1).*((mR.^2+(-2).*omega.^2).* ...
  cos((mL.^2+omega.^2).^(1/2).*xstar2)+2.*((mR+(-1).*omega).*(mR+ ...
  omega).*(mL.^2+omega.^2)).^(1/2).*sin((mL.^2+omega.^2).^(1/2).* ...
  xstar2))+sin(omega.*xstar1).*(2.*omega.^2.*((mR+(-1).*omega).*(mR+ ...
  omega)).^(1/2).*cos((mL.^2+omega.^2).^(1/2).*xstar2)+(mL.^2+ ...
  omega.^2).^(1/2).*((-1).*mR.^2+2.*omega.^2).*sin((mL.^2+omega.^2) ...
  .^(1/2).*xstar2)));

I21LRxtLower=@(omega,t)mR.^(-2).*omega.*(mL.^2+omega.^2).^(-1/2).*pi.^(-1).*csch(kappa.^( ...
  -1).*omega.*pi).*sin(omega.*(t1+(-1).*t2)).*(sin(omega.*xstar1).*( ...
  (mR.^2+(-2).*omega.^2).*(mL.^2+omega.^2).^(1/2).*cos((mL.^2+ ...
  omega.^2).^(1/2).*xstar2)+2.*omega.^2.*((mR+(-1).*omega).*(mR+ ...
  omega)).^(1/2).*sin((mL.^2+omega.^2).^(1/2).*xstar2))+omega.*cos( ...
  omega.*xstar1).*((-2).*((mR+(-1).*omega).*(mR+omega).*(mL.^2+ ...
  omega.^2)).^(1/2).*cos((mL.^2+omega.^2).^(1/2).*xstar2)+(mR.^2+( ...
  -2).*omega.^2).*sin((mL.^2+omega.^2).^(1/2).*xstar2)));

I21LRtxLower=@(omega,t)(-1).*mR.^(-2).*pi.^(-1).*csch(kappa.^(-1).*omega.*pi).*sin( ...
  omega.*(t1+(-1).*t2)).*(cos(omega.*xstar1).*((-2).*omega.^2.*((mR+ ...
  (-1).*omega).*(mR+omega)).^(1/2).*cos((mL.^2+omega.^2).^(1/2).* ...
  xstar2)+(mR.^2+(-2).*omega.^2).*(mL.^2+omega.^2).^(1/2).*sin(( ...
  mL.^2+omega.^2).^(1/2).*xstar2))+omega.*sin(omega.*xstar1).*(( ...
  mR.^2+(-2).*omega.^2).*cos((mL.^2+omega.^2).^(1/2).*xstar2)+2.*(( ...
  mR+(-1).*omega).*(mR+omega).*(mL.^2+omega.^2)).^(1/2).*sin((mL.^2+ ...
  omega.^2).^(1/2).*xstar2)));

I21LRx1Lower=@(omega,t)mR.^(-2).*(mL.^2+omega.^2).^(-1/2).*pi.^(-1).*cos(omega.*(t1+(-1) ...
  .*t2)).*csch(kappa.^(-1).*omega.*pi).*(sin(omega.*xstar1).*(( ...
  mR.^2+(-2).*omega.^2).*(mL.^2+omega.^2).^(1/2).*cos((mL.^2+ ...
  omega.^2).^(1/2).*xstar2)+2.*omega.^2.*((mR+(-1).*omega).*(mR+ ...
  omega)).^(1/2).*sin((mL.^2+omega.^2).^(1/2).*xstar2))+omega.*cos( ...
  omega.*xstar1).*((-2).*((mR+(-1).*omega).*(mR+omega).*(mL.^2+ ...
  omega.^2)).^(1/2).*cos((mL.^2+omega.^2).^(1/2).*xstar2)+(mR.^2+( ...
  -2).*omega.^2).*sin((mL.^2+omega.^2).^(1/2).*xstar2)));

I21LRx2Lower=@(omega,t)mR.^(-2).*omega.^(-1).*pi.^(-1).*cos(omega.*(t1+(-1).*t2)).*csch( ...
  kappa.^(-1).*omega.*pi).*(cos(omega.*xstar1).*((-2).*omega.^2.*(( ...
  mR+(-1).*omega).*(mR+omega)).^(1/2).*cos((mL.^2+omega.^2).^(1/2).* ...
  xstar2)+(mR.^2+(-2).*omega.^2).*(mL.^2+omega.^2).^(1/2).*sin(( ...
  mL.^2+omega.^2).^(1/2).*xstar2))+omega.*sin(omega.*xstar1).*(( ...
  mR.^2+(-2).*omega.^2).*cos((mL.^2+omega.^2).^(1/2).*xstar2)+2.*(( ...
  mR+(-1).*omega).*(mR+omega).*(mL.^2+omega.^2)).^(1/2).*sin((mL.^2+ ...
  omega.^2).^(1/2).*xstar2)));

I21LRt1Lower=@(omega,t)mR.^(-2).*(mL.^2+omega.^2).^(-1/2).*pi.^(-1).*csch(kappa.^(-1).* ...
  omega.*pi).*sin(omega.*(t1+(-1).*t2)).*(cos(omega.*xstar1).*(( ...
  mR.^2+(-2).*omega.^2).*(mL.^2+omega.^2).^(1/2).*cos((mL.^2+ ...
  omega.^2).^(1/2).*xstar2)+2.*omega.^2.*((mR+(-1).*omega).*(mR+ ...
  omega)).^(1/2).*sin((mL.^2+omega.^2).^(1/2).*xstar2))+omega.*sin( ...
  omega.*xstar1).*(2.*((mR+(-1).*omega).*(mR+omega).*(mL.^2+ ...
  omega.^2)).^(1/2).*cos((mL.^2+omega.^2).^(1/2).*xstar2)+(-1).*( ...
  mR.^2+(-2).*omega.^2).*sin((mL.^2+omega.^2).^(1/2).*xstar2)));

I21LRt2Lower=@(omega,t)mR.^(-2).*(mL.^2+omega.^2).^(-1/2).*pi.^(-1).*csch(kappa.^(-1).* ...
  omega.*pi).*sin(omega.*(t1+(-1).*t2)).*(cos(omega.*xstar1).*(( ...
  mL.^2+omega.^2).^(1/2).*((-1).*mR.^2+2.*omega.^2).*cos((mL.^2+ ...
  omega.^2).^(1/2).*xstar2)+(-2).*omega.^2.*((mR+(-1).*omega).*(mR+ ...
  omega)).^(1/2).*sin((mL.^2+omega.^2).^(1/2).*xstar2))+omega.*sin( ...
  omega.*xstar1).*((-2).*((mR+(-1).*omega).*(mR+omega).*(mL.^2+ ...
  omega.^2)).^(1/2).*cos((mL.^2+omega.^2).^(1/2).*xstar2)+(mR.^2+( ...
  -2).*omega.^2).*sin((mL.^2+omega.^2).^(1/2).*xstar2)));
