c=Sqrt[(1/2)^2+1/2*((1)^2-(1/2)^2)*(1+(2/Pi)*ArcTan[(x+(8*Tan[(Pi/((1)^2-(1/2)^2))*((3/4)^2-1/2*((1/2)^2+1^2))]))/(8)])];

Plot[c,  {x,-800, 800}]

v0=3/4;

x1=10+1/2;
x3=x1;
x2=-x1;
x4=x2;
x1Start=-800-3/5;
x1End=800+2/5;
x2Start=-800-2/5;
x2End=800+3/5;

xstar[y_]:=NIntegrate[c/(c^2-v0^2), {x,  x4,y}, WorkingPrecision->30];

T=0;

aoft=-(NIntegrate[1/(c+v0), {x, x2, x1}, WorkingPrecision->30])-(NIntegrate[c/(c^2-v0^2), {x, x2, x4}, WorkingPrecision->30])+(NIntegrate[c/(c^2-v0), {x, x3, x1}, WorkingPrecision->30]);

tin[y_]:=T-NIntegrate[v0/(c^2-v0^2), {x,  x2,y}, WorkingPrecision->30]+aoft;

XLargeStep=Abs[( -800-2/5-(800+3/5))/(1001)];
Xtended1Step=Abs[( -8000-2/5-(8000+3/5))/(1001)];
Xtended2Step=Abs[( -80000-2/5-(80000+3/5))/(1001)];

datsmall=Table[{N[xstar[x], 30],N[tin[x], 30],N[x, 30]},{x, -800-3/5, x2, 100 }];

Export["C://Users//dudlra13//Dropbox//BH//BEC//Massive//DensityDensity//InputData//XandT//X1Small.txt",datsmall,"Table","FieldSeparators"->" "]

datmed=Table[{N[xstar[x], 30],N[tin[x], 30],N[x, 30]},{x, -800-3/5, x2, 10 }];

Export["C://Users//dudlra13//Dropbox//BH//BEC//Massive//DensityDensity//InputData//XandT//X1Med.txt",datmed,"Table","FieldSeparators"->" "]

datlarge=Table[{N[xstar[x], 30],N[tin[x], 30],N[x, 30]},{x, -800-3/5, x2, 4 }];

Export["C://Users//dudlra13//Dropbox//BH//BEC//Massive//DensityDensity//InputData//XandT//X1Large.txt",datlarge,"Table","FieldSeparators"->" "]

datxlarge=Table[{N[xstar[x], 30],N[tin[x], 30],N[x, 30]},{x, -800-3/5, x2, XLargeStep}];

Export["C://Users//dudlra13//Dropbox//BH//BEC//Massive//DensityDensity//InputData//XandT//X1XLarge.txt",datxlarge,"Table","FieldSeparators"->" "]

"C://Users//dudlra13//Dropbox//BH//BEC//Massive//DensityDensity//InputData//XandT//X1XLarge.txt"

datxtended1=Table[{N[xstar[x], 30],N[tin[x], 30],N[x, 30]},{x, -8000-3/5, x2, Xtended1Step}];

Export["C://Users//dudlra13//Dropbox//BH//BEC//Massive//DensityDensity//InputData//XandT//X1Xtended1.txt",datxtended1,"Table","FieldSeparators"->" "]

"C://Users//dudlra13//Dropbox//BH//BEC//Massive//DensityDensity//InputData//XandT//X1Xtended1.txt"

datxtended2=Table[{N[xstar[x], 30],N[tin[x], 30],N[x, 30]},{x, -80000-3/5, x2, Xtended2Step}];

Export["C://Users//dudlra13//Dropbox//BH//BEC//Massive//DensityDensity//InputData//XandT//X1Xtended2.txt",datxtended2,"Table","FieldSeparators"->" "]

"C://Users//dudlra13//Dropbox//BH//BEC//Massive//DensityDensity//InputData//XandT//X1Xtended2.txt"

dat2single=Table[{N[xstar[x], 30],N[tin[x], 30],N[x, 30]},{x, -601+1/3, -601, 400 }];

Export["C://Users//dudlra13//Dropbox//BH//BEC//Massive//DensityDensity//InputData//XandT//X1PrimeSingle.txt",dat2single,"Table","FieldSeparators"->" "]

"C://Users//dudlra13//Dropbox//BH//BEC//Massive//DensityDensity//InputData//XandT//X1PrimeSingle.txt"

dat2small=Table[{N[xstar[x], 30],N[tin[x], 30],N[x, 30]},{x, -800-2/5, x2,100 }];

Export["C://Users//dudlra13//Dropbox//BH//BEC//Massive//DensityDensity//InputData//XandT//X1PrimeSmall.txt",dat2small,"Table","FieldSeparators"->" "]

"C://Users//dudlra13//Dropbox//BH//BEC//Massive//DensityDensity//InputData//XandT//X1PrimeSmall.txt"

dat2med=Table[{N[xstar[x], 30],N[tin[x], 30],N[x, 30]},{x, -800-2/5, x2,10 }];

Export["C://Users//dudlra13//Dropbox//BH//BEC//Massive//DensityDensity//InputData//XandT//X1PrimeMed.txt",dat2med,"Table","FieldSeparators"->" "]

"C://Users//dudlra13//Dropbox//BH//BEC//Massive//DensityDensity//InputData//XandT//X1PrimeMed.txt"

dat2large=Table[{N[xstar[x], 30],N[tin[x], 30],N[x, 30]},{x, -800-2/5, x2,4}];

Export["C://Users//dudlra13//Dropbox//BH//BEC//Massive//DensityDensity//InputData//XandT//X1PrimeLarge.txt",dat2large,"Table","FieldSeparators"->" "]

"C://Users//dudlra13//Dropbox//BH//BEC//Massive//DensityDensity//InputData//XandT//X1PrimeLarge.txt"

dat2xlarge=Table[{N[xstar[x], 30],N[tin[x], 30],N[x, 30]},{x, -800-2/5, x2,XLargeStep}];

Export["C://Users//dudlra13//Dropbox//BH//BEC//Massive//DensityDensity//InputData//XandT//X1PrimeXLarge.txt",dat2xlarge,"Table","FieldSeparators"->" "]

"C://Users//dudlra13//Dropbox//BH//BEC//Massive//DensityDensity//InputData//XandT//X1PrimeXLarge.txt"

dat2xtended1=Table[{N[xstar[x], 30],N[tin[x], 30],N[x, 30]},{x, -8000-2/5, x2, Xtended1Step}];

Export["C://Users//dudlra13//Dropbox//BH//BEC//Massive//DensityDensity//InputData//XandT//X1PrimeXtended1.txt",dat2xtended1,"Table","FieldSeparators"->" "]

"C://Users//dudlra13//Dropbox//BH//BEC//Massive//DensityDensity//InputData//XandT//X1PrimeXtended1.txt"

dat2xtended2=Table[{N[xstar[x], 30],N[tin[x], 30],N[x, 30]},{x, -80000-2/5, x2, Xtended2Step}];

Export["C://Users//dudlra13//Dropbox//BH//BEC//Massive//DensityDensity//InputData//XandT//X1PrimeXtended2.txt",dat2xtended2,"Table","FieldSeparators"->" "]

"C://Users//dudlra13//Dropbox//BH//BEC//Massive//DensityDensity//InputData//XandT//X1PrimeXtended2.txt"