function[I21LRUpper, I21ttLRUpper, I21xxLRUpper, I21xtLRUpper, I21txLRUpper, I21x1LRUpper, I21x2LRUpper, I21t1LRUpper, I21t2LRUpper]=IDataTable21LRUpper(x1, x2, t1, t2, mR, mL, kappa)
I21LRUpper=@(omega,t)mR.^2.*omega.^(-1).*(mL.^2+omega.^2).^(-1/2).*((-1).*mR.^2+2.* ...
  omega.*(omega+((-1).*mR.^2+omega.^2).^(1/2))).^(-1).*pi.^(-1).* ...
  cos(omega.*(t1+(-1).*t2)).*csch(kappa.^(-1).*omega.*pi).*((mL.^2+ ...
  omega.^2).^(1/2).*cos(omega.*xstar1).*cos((mL.^2+omega.^2).^(1/2) ...
  .*xstar2)+(-1).*omega.*sin(omega.*xstar1).*sin((mL.^2+omega.^2).^( ...
  1/2).*xstar2));

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

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

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

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

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

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

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

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