function[I43Upper, I43ttUpper, I43xxUpper, I43xtUpper, I43txUpper, I43x1Upper, I43x2Upper, I43t1Upper, I43t2Upper]=IDataTable43Upper(x1, x2, t1, t2, mR, mL, kappa)
I43Upper=@(omega,t)(-1).*(mR.^2+(-2).*omega.*(omega+((-1).*mR.^2+omega.^2).^(1/2))) ...
  .^(-1).*pi.^(-1).*((omega+((-1).*mR.^2+omega.^2).^(1/2)).*cos((( ...
  -1).*mR.^2+omega.^2).^(1/2).*xstar1+(-1).*omega.*(t1+(-1).*t2+ ...
  xstar2))+(omega+(-1).*((-1).*mR.^2+omega.^2).^(1/2)).*cos(((-1).* ...
  mR.^2+omega.^2).^(1/2).*xstar1+omega.*((-1).*t1+t2+xstar2))).* ...
  coth(kappa.^(-1).*omega.*pi);

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

I43xxUpper=@(omega,t)omega.*(mR.^2+(-2).*omega.*(omega+((-1).*mR.^2+omega.^2).^(1/2))) ...
  .^(-2).*pi.^(-1).*((mR.^4+4.*omega.^3.*(omega+((-1).*mR.^2+ ...
  omega.^2).^(1/2))+(-1).*mR.^2.*omega.*(5.*omega+3.*((-1).*mR.^2+ ...
  omega.^2).^(1/2))).*cos(((-1).*mR.^2+omega.^2).^(1/2).*xstar1+(-1) ...
  .*omega.*(t1+(-1).*t2+xstar2))+mR.^2.*(mR.^2+(-1).*omega.*(omega+( ...
  (-1).*mR.^2+omega.^2).^(1/2))).*cos(((-1).*mR.^2+omega.^2).^(1/2) ...
  .*xstar1+omega.*((-1).*t1+t2+xstar2))).*coth(kappa.^(-1).*omega.* ...
  pi);

I43xtUpper=@(omega,t)(-1).*omega.*(mR.^2+(-2).*omega.*(omega+((-1).*mR.^2+omega.^2).^( ...
  1/2))).^(-2).*pi.^(-1).*((mR.^4+4.*omega.^3.*(omega+((-1).*mR.^2+ ...
  omega.^2).^(1/2))+(-1).*mR.^2.*omega.*(5.*omega+3.*((-1).*mR.^2+ ...
  omega.^2).^(1/2))).*cos(((-1).*mR.^2+omega.^2).^(1/2).*xstar1+(-1) ...
  .*omega.*(t1+(-1).*t2+xstar2))+mR.^2.*((-1).*mR.^2+omega.*(omega+( ...
  (-1).*mR.^2+omega.^2).^(1/2))).*cos(((-1).*mR.^2+omega.^2).^(1/2) ...
  .*xstar1+omega.*((-1).*t1+t2+xstar2))).*coth(kappa.^(-1).*omega.* ...
  pi);

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

I43x1Upper=@(omega,t)(-1).*(mR.^2+(-2).*omega.*(omega+((-1).*mR.^2+omega.^2).^(1/2))) ...
  .^(-2).*pi.^(-1).*coth(kappa.^(-1).*omega.*pi).*((mR.^4+4.* ...
  omega.^3.*(omega+((-1).*mR.^2+omega.^2).^(1/2))+(-1).*mR.^2.* ...
  omega.*(5.*omega+3.*((-1).*mR.^2+omega.^2).^(1/2))).*sin(((-1).* ...
  mR.^2+omega.^2).^(1/2).*xstar1+(-1).*omega.*(t1+(-1).*t2+xstar2))+ ...
  mR.^2.*((-1).*mR.^2+omega.*(omega+((-1).*mR.^2+omega.^2).^(1/2))) ...
  .*sin(((-1).*mR.^2+omega.^2).^(1/2).*xstar1+omega.*((-1).*t1+t2+ ...
  xstar2)));

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

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

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