function[I43Lower, I43ttLower, I43xxLower, I43xtLower, I43txLower, I43x1Lower, I43x2Lower, I43t1Lower, I43t2Lower]=IDataTable43ULower (x1, x2, t1, t2, mR, mL, kappa)
I43Lower=@(omega,t)2.*exp(1).^((-1).*(mR.^2+(-1).*omega.^2).^(1/2).*xstar1).*mR.^(-2) ...
  .*pi.^(-1).*cos(omega.*(t1+(-1).*t2)).*coth(kappa.^(-1).*omega.* ...
  pi).*(omega.*cos(omega.*xstar2)+(-1).*((mR+(-1).*omega).*(mR+ ...
  omega)).^(1/2).*sin(omega.*xstar2));

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

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

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

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

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

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

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

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