function[I44Upper, I44ttUpper, I44xxUpper, I44xtUpper, I44txUpper, I44x1Upper, I44x2Upper, I44t1Upper, I44t2Upper]=IDataTable44Upper(x1, x2, t1, t2, mR, mL, kappa)
I44Upper=@(omega,t)2.*omega.*((-1).*mR.^2+2.*omega.*(omega+((-1).*mR.^2+omega.^2).^( ...
  1/2))).^(-1).*pi.^(-1).*cos(omega.*(t1+(-1).*t2)+((-1).*mR.^2+ ...
  omega.^2).^(1/2).*((-1).*xstar1+xstar2)).*coth(kappa.^(-1).* ...
  omega.*pi);

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

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

I44xtUpper=@(omega,t)(-2).*omega.^2.*((-1).*mR.^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)+((-1).*mR.^2+omega.^2).^(1/2).*((-1).* ...
  xstar1+xstar2)).*coth(kappa.^(-1).*omega.*pi);

I44txUpper=@(omega,t)(-2).*omega.^2.*((-1).*mR.^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)+((-1).*mR.^2+omega.^2).^(1/2).*((-1).* ...
  xstar1+xstar2)).*coth(kappa.^(-1).*omega.*pi);

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

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

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

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