ft[ϵ_,δ_]:=1-(((Sqrt[((1-ϵ)/(1+ϵ))]) (1-(2/3) ϵ (1-1.4` δ Abs[δ])))/(1+2 (Sqrt[(2/3)]) (Sqrt[ϵ (1-1.4` δ Abs[δ])])));

ft[ϵ_,δ_]:=1-(((Sqrt[((1-ϵ)/(1+ϵ))]) (1-0.67` ϵ (1-1.4` δ Abs[δ])))/(1+1.6370705543744901` (Sqrt[ϵ (1-1.4` δ Abs[δ])])));

th=0.005;

Plot[{(((((ft[3ϵ/4,δ/2])/(1-ft[3ϵ/4,δ/2]))))/((((ft[3ϵ/4,0.0/2])/(1-ft[3ϵ/4,0.0/2])))))/.ϵ->2/3,(((((ft[3ϵ/4,δ/2])/(1-ft[3ϵ/4,δ/2]))))/((((ft[3ϵ/4,0.0/2])/(1-ft[3ϵ/4,0.0/2])))))/.ϵ->1/2,(((((ft[3ϵ/4,δ/2])/(1-ft[3ϵ/4,δ/2]))))/((((ft[3ϵ/4,0.0/2])/(1-ft[3ϵ/4,0.0/2])))))/.ϵ->1/3,(((((ft[3ϵ/4,δ/2])/(1-ft[3ϵ/4,δ/2]))))/((((ft[3ϵ/4,0.0/2])/(1-ft[3ϵ/4,0.0/2])))))/.ϵ->1/4},{δ,-0.8,0.8},PlotStyle->Reverse[{{Thickness[th],Lighter[Gray]},{Thickness[th],Gray},{Thickness[th],Darker[Gray]},{Thickness[th],Black}}],AspectRatio->0.8,Frame->True,FrameLabel->{"δ","Bootstrap enhancement factor\nnormalized to δ = 0"},PlotRange->{{0.78,1.23}},GridLines->Automatic,PlotLabels->{"2/3","1/2","1/3","1/4"},Epilog->Style[Text["ϵ", {1.1,0.95}],15,Darker[Gray]]]

exportdata=Table[{δ,(((((ft[3ϵ/4,δ/2])/(1-ft[3ϵ/4,δ/2]))))/((((ft[3ϵ/4,0.0/2])/(1-ft[3ϵ/4,0.0/2])))))/.ϵ->2/3,(((((ft[3ϵ/4,δ/2])/(1-ft[3ϵ/4,δ/2]))))/((((ft[3ϵ/4,0.0/2])/(1-ft[3ϵ/4,0.0/2])))))/.ϵ->1/2,(((((ft[3ϵ/4,δ/2])/(1-ft[3ϵ/4,δ/2]))))/((((ft[3ϵ/4,0.0/2])/(1-ft[3ϵ/4,0.0/2])))))/.ϵ->1/3,(((((ft[3ϵ/4,δ/2])/(1-ft[3ϵ/4,δ/2]))))/((((ft[3ϵ/4,0.0/2])/(1-ft[3ϵ/4,0.0/2])))))/.ϵ->1/4},{δ,-0.8,0.8,0.05}];

Export["figure_3_data.csv",SetPrecision[exportdata,5],"CSV"]