function[I42LRUpper, I42ttLRUpper, I42xxLRUpper, I42xtLRUpper, I42txLRUpper, I42x1LRUpper, I42x2LRUpper, I42t1LRUpper, I42t2LRUpper]=IDataTable42LRUpper(x1, x2, t1, t2, mR, mL, kappa)
I42LRUpper=@(omega,t)(omega+((-1).*mR.^2+omega.^2).^(1/2)).*((-1).*mR.^2+2.*omega.*( ...
  omega+((-1).*mR.^2+omega.^2).^(1/2))).^(-1).*pi.^(-1).*cos(((-1).* ...
  mR.^2+omega.^2).^(1/2).*xstar1+(-1).*omega.*(t1+(-1).*t2+xstar2)) ...
  .*csch(kappa.^(-1).*omega.*pi);

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

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

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

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

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

I42LRx2Upper=@(omega,t)omega.*(omega+((-1).*mR.^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(((-1).*mR.^2+omega.^2).^(1/2).* ...
  xstar1+(-1).*omega.*(t1+(-1).*t2+xstar2));

I42LRt1Upper=@(omega,t)omega.*(omega+((-1).*mR.^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(((-1).*mR.^2+omega.^2).^(1/2).* ...
  xstar1+(-1).*omega.*(t1+(-1).*t2+xstar2));

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