Logistics fix

code/RDownScriptalphabeta.m

@@ -31,9 +31,10 @@ SetOptions[InputNotebook[], AutoGeneratedPackage -> Automatic]
 
 
 mysxscase=rootpath<>"/SXS/BBH_SKS_d14.3_q1.22_sA_0_0_0.330_sB_0_0_-0.440";
-tshift=19;
-npoints=200;
 ntones=1;
+tshift=19;
+npoints=1000;
+(*n=1:19, n=2:12, n=3:8, n=4:5, n=5:3, n=6:1, n=7:0 (not sure; is that really a minimum???) *)
 allspectrum = {x0,x1,x2,x3,x4,x5,x6,x7};
 spectrum = allspectrum[[;;ntones+1]];
 \[Omega]fact=0.1;
@@ -163,10 +164,10 @@ ampandphs = Transpose[{Re[Sqrt[comp\[Beta]s * Conjugate[comp\[Beta]s]]], Mod[Arg
 Join[mismatchlist, ampandphs], {j,npoints}], {k, Length[combinations]}];
 
 
-Export[rootpath<>"plots/params_n="<>ToString[ntones]<>".fits", params]
-Export[rootpath<>"plots/freq_bfitpars_mmatch_as_n="<>ToString[ntones]<>".fits", tab\[Alpha]s]
-Export[rootpath<>"plots/freq_bfitpars_mmatch_abs_n="<>ToString[ntones]<>".fits", tab\[Alpha]\[Beta]s]
-Export[rootpath<>"plots/freq_bfitpars_mmatch_bs_n="<>ToString[ntones]<>".fits", tab\[Beta]s]
+Export[rootpath<>"plots/n="<>ToString[ntones]<>"_params.fits", params]
+Export[rootpath<>"plots/n="<>ToString[ntones]<>"_as.fits", tab\[Alpha]s]
+Export[rootpath<>"plots/n="<>ToString[ntones]<>"_abs.fits", tab\[Alpha]\[Beta]s]
+Export[rootpath<>"plots/n="<>ToString[ntones]<>"_bs.fits", tab\[Beta]s]