double dDplus_da(double a,
cosmo_info *cosmo){
double h_Hubble;
double Ez;
h_Hubble=((double *)ADaPS_fetch(cosmo,"h_Hubble"))[0];
Ez =H_z(z_of_a(a),cosmo)/(1e2*h_Hubble);
return(1.0/pow(a*Ez,3.0));
}
int main(int argc, char *argv[]){
char filename_properties[256];
char filename_profiles[256];
char filename_out_root[256];
char filename_out[256];
char filename_SSimPL[MAX_FILENAME_LENGTH];
char filename_halo_type[MAX_FILENAME_LENGTH];
int snap_number;
int snap_number_start;
int snap_number_stop;
int snap_number_step;
SID_init(&argc,&argv,NULL,NULL);
strcpy(filename_SSimPL, argv[1]);
strcpy(filename_halo_type,argv[2]);
snap_number_start =atoi(argv[3]);
snap_number_stop =atoi(argv[4]);
snap_number_step =atoi(argv[5]);
strcpy(filename_out_root, argv[6]);
int flag_use_profiles=FALSE;
if(SID.I_am_Master){
SID_log("Processing catalogs for snaps %d->%d...",SID_LOG_OPEN|SID_LOG_TIMER,snap_number_start,snap_number_stop);
for(snap_number=snap_number_start;snap_number<=snap_number_stop;snap_number++){
// Open halos
char filename_halos[256];
sprintf(filename_halos,"%s/halos/%s_%03d.catalog_groups",filename_SSimPL,filename_halo_type,snap_number);
FILE *fp_halos=NULL;
if((fp_halos=fopen(filename_halos,"r"))==NULL)
SID_trap_error("Could not open halo file {%s} for reading.",ERROR_IO_OPEN,filename_halos);
int n_groups_halos,group_offset_byte_size;
fread_verify(&n_groups_halos, sizeof(int),1,fp_halos);
fread_verify(&group_offset_byte_size,sizeof(int),1,fp_halos);
// Skip group sizes and offsets
fseeko(fp_halos,(off_t)(n_groups_halos*(sizeof(int)+group_offset_byte_size)),SEEK_CUR);
// Open catalogs
char filename_cat_root[256];
sprintf(filename_cat_root,"%s/catalogs/%s",filename_SSimPL,filename_halo_type);
fp_catalog_info fp_catalog_groups;
fp_catalog_info fp_catalog_subgroups;
fopen_catalog(filename_cat_root,
snap_number,
READ_CATALOG_GROUPS|READ_CATALOG_PROPERTIES|READ_CATALOG_PROPERTIES,
&fp_catalog_groups);
fopen_catalog(filename_cat_root,
snap_number,
READ_CATALOG_SUBGROUPS|READ_CATALOG_PROPERTIES|READ_CATALOG_PROPERTIES,
&fp_catalog_subgroups);
// Open SO files if they're available
fp_multifile_info fp_SO;
int flag_use_SO=fopen_multifile("%s/catalogs/%s_%03d.catalog_groups_SO",sizeof(float),&fp_SO,filename_SSimPL,filename_halo_type,snap_number);
if(flag_use_SO)
SID_log("SO files present.",SID_LOG_COMMENT);
// Sanity check
if(n_groups_halos!=fp_catalog_groups.n_halos_total)
SID_trap_error("Group counts in halo and catalog files don't match (ie. %d!=%d).",ERROR_LOGIC,n_groups_halos,fp_catalog_groups.n_halos_total);
// Process halos
SID_log("Processing snapshot #%03d...",SID_LOG_OPEN,snap_number);
SID_log("(%d groups, %d subgroups)...",SID_LOG_CONTINUE,fp_catalog_groups.n_halos_total,fp_catalog_subgroups.n_halos_total);
// Initialzie halo trend data structure
halo_trend_info halo_trend_data;
char filename_run[MAX_FILENAME_LENGTH];
sprintf(filename_run,"%s/run/run.txt",filename_SSimPL);
parameter_list_info *parameter_list=NULL;
init_parameter_list(¶meter_list);
add_parameter_to_list(parameter_list,"box_size",SID_DOUBLE, PARAMETER_MODE_DEFAULT);
add_parameter_to_list(parameter_list,"N_dark", SID_SIZE_T, PARAMETER_MODE_DEFAULT);
add_parameter_to_list(parameter_list,"m_dark", SID_DOUBLE, PARAMETER_MODE_DEFAULT);
read_gbpParam_file(filename_run,parameter_list);
fetch_parameter_data(parameter_list,"box_size",&(halo_trend_data.box_size));
fetch_parameter_data(parameter_list,"m_dark", &(halo_trend_data.m_p));
free_parameter_list(¶meter_list);
char filename_snaps[MAX_FILENAME_LENGTH];
sprintf(filename_snaps,"%s/run/a_list.txt",filename_SSimPL);
FILE *fp_snaps=fopen(filename_snaps,"r");
size_t line_length=0;
char *line=NULL;
halo_trend_data.n_snaps=count_lines_data(fp_snaps);
halo_trend_data.z_list =(double *)SID_malloc(sizeof(double)*halo_trend_data.n_snaps);
for (int i_snap=0;i_snap<halo_trend_data.n_snaps;i_snap++){
double a_i;
grab_next_line_data(fp_snaps,&line,&line_length);
grab_double(line,1,&a_i);
halo_trend_data.z_list[i_snap]=z_of_a(a_i);
}
SID_free(SID_FARG line);
fclose(fp_snaps);
// Initialize halo data structure
halo_info halo_data;
halo_data.flag_use_profiles = flag_use_profiles;
halo_data.flag_use_SO = flag_use_SO;
halo_data.snapshot = snap_number;
halo_data.properties_group =(halo_properties_info *)SID_malloc(sizeof(halo_properties_info));
halo_data.properties_subgroup=(halo_properties_info *)SID_malloc(sizeof(halo_properties_info));
halo_data.profiles_group =(halo_profile_info *)SID_malloc(sizeof(halo_profile_info));
halo_data.profiles_subgroup =(halo_profile_info *)SID_malloc(sizeof(halo_profile_info));
// Initialize trends
trend_info *trend_M_FoF=NULL;
init_trend(&trend_M_FoF,"SSFctn",&halo_trend_data,init_halo_trend_property_logM_FoF,free_halo_trend_property_logM_FoF,calc_halo_trend_property_index_logM_FoF);
init_halo_trend_coordinate(&halo_trend_data,trend_M_FoF,"SSFctn");
// Read halos and construct histograms
for(int i_group=0,i_subgroup=0;i_group<fp_catalog_groups.n_halos_total;i_group++){
int n_subgroups_group;
// Read group catalog
fread_catalog_file(&fp_catalog_groups,NULL,NULL,halo_data.properties_group,halo_data.profiles_group,i_group);
// Read number of subgroups
fread_verify(&n_subgroups_group,sizeof(int),1,fp_halos);
// Read SO masses (if available)
if(flag_use_SO)
fread_multifile(&fp_SO,halo_data.SO_data_group,i_group);
// Loop over subgroups
halo_data.n_sub =n_subgroups_group;
halo_data.np_sub =0;
halo_data.np_sub_largest=0;
for(int j_subgroup=0;j_subgroup<n_subgroups_group;i_subgroup++,j_subgroup++){
// Read subgroup properties
fread_catalog_file(&fp_catalog_subgroups,NULL,NULL,halo_data.properties_subgroup,halo_data.profiles_subgroup,i_subgroup);
int np_i=halo_data.properties_subgroup->n_particles;
halo_data.np_sub+=np_i;
if(np_i>halo_data.np_sub_largest)
halo_data.np_sub_largest=np_i;
// Add halo to subgroup trends
}
// Add halo to group trends
add_item_to_trend(trend_M_FoF,GBP_ADD_ITEM_TO_TREND_DEFAULT,&halo_data);
}
// Write results
char filename_out[MAX_FILENAME_LENGTH];
sprintf(filename_out,"%s_%03d",filename_out_root,snap_number);
write_trend_ascii(trend_M_FoF,filename_out);
free_trend(&trend_M_FoF);
// Clean-up
SID_free(SID_FARG halo_trend_data.z_list);
SID_free(SID_FARG halo_data.properties_group);
SID_free(SID_FARG halo_data.properties_subgroup);
SID_free(SID_FARG halo_data.profiles_group);
SID_free(SID_FARG halo_data.profiles_subgroup);
fclose(fp_halos);
fclose_catalog(&fp_catalog_groups);
fclose_catalog(&fp_catalog_subgroups);
fclose_multifile(&fp_SO);
SID_log("Done.",SID_LOG_CLOSE);
}
SID_log("Done.",SID_LOG_CLOSE);
}
SID_exit(ERROR_NONE);
}
double dn_dyn_dt_local(double a, void *cosmo_in) {
cosmo_info *cosmo = (cosmo_info *)cosmo_in;
return (1. / (a * H_convert(H_z(z_of_a(a), cosmo)) * t_dyn_z(z_of_a(a), cosmo)));
}
int main(int argc, char *argv[]) {
SID_Init(&argc, &argv, NULL);
// Parse arguments
char filename_cosmo[SID_MAX_FILENAME_LENGTH];
char filename_list_in[SID_MAX_FILENAME_LENGTH];
strcpy(filename_cosmo, argv[1]);
strcpy(filename_list_in, argv[2]);
// Read input list
char * line = NULL;
size_t line_length = 0;
FILE * fp_in = fopen(filename_list_in, "r");
int n_list = count_lines_data(fp_in);
double *a_list = (double *)SID_malloc(sizeof(double) * n_list);
for(int i_list = 0; i_list < n_list; i_list++) {
grab_next_line_data(fp_in, &line, &line_length);
grab_double(line, 1, &(a_list[i_list]));
}
SID_free(SID_FARG line);
double a_lo_table = a_list[0];
double a_hi_table = a_list[n_list - 1];
for(int i_list = 0; i_list < n_list; i_list++) {
a_lo_table = GBP_MIN(a_lo_table, a_list[i_list]);
a_hi_table = GBP_MAX(a_hi_table, a_list[i_list]);
}
a_lo_table = GBP_MIN(a_lo_table, 1e-4);
SID_log("Creating extended snapshot list...", SID_LOG_OPEN);
// Initialize cosmology
cosmo_info *cosmo = NULL;
read_gbpCosmo_file(&cosmo, filename_cosmo);
// Creeate interpolation tables
int n_table = 500;
double *a_table = (double *)SID_malloc(n_table * sizeof(double));
double *t_table = (double *)SID_malloc(n_table * sizeof(double));
double *n_dyn_table = (double *)SID_malloc(n_table * sizeof(double));
double da_table = (a_hi_table - a_lo_table) / (double)(n_table - 1);
for(int i_table = 0; i_table < n_table; i_table++) {
// Expansion factor
if(i_table == 0)
a_table[i_table] = a_lo_table;
else if(i_table == (n_table - 1))
a_table[i_table] = a_hi_table;
else
a_table[i_table] = a_table[0] + da_table * (double)i_table;
// Cosmic time
t_table[i_table] = t_age_a(a_table[i_table], &cosmo);
// Number of dynamical times
if(i_table == 0)
n_dyn_table[i_table] = 0.;
else
n_dyn_table[i_table] = delta_n_dyn(a_table[0], a_table[i_table], &cosmo);
}
interp_info *n_of_a_interp = NULL;
init_interpolate(a_table, n_dyn_table, n_table, gsl_interp_akima, &n_of_a_interp);
// Generate desired table
double a_last = 0.;
double z_last = 0.;
double t_last = 0.;
double n_last = 0.;
double a_i = 0.;
double z_i = 1.e22;
double t_i = 0.;
double n_i = 0.;
double da = 0.;
double dz = 0.;
double dt = 0.;
double dn = 0.;
int i_column = 1;
printf("# Table of times, etc. generated from expansion factors in {%s}\n", filename_list_in);
printf("# Column (%02d): snapshot number\n", i_column++);
printf("# (%02d): a:=expansion factor\n", i_column++);
printf("# (%02d): da\n", i_column++);
printf("# (%02d): z:=redshift\n", i_column++);
printf("# (%02d): dz\n", i_column++);
printf("# (%02d): t:=cosmic time [years]\n", i_column++);
printf("# (%02d): dt\n", i_column++);
printf("# (%02d): n_dyn:=No. of dynamical times\n", i_column++);
printf("# (%02d): dn_dyn\n", i_column++);
for(int i_list = 0; i_list < n_list; i_list++) {
a_last = a_i;
z_last = z_i;
t_last = t_i;
n_last = n_i;
a_i = a_list[i_list];
z_i = z_of_a(a_i);
t_i = t_age_a(a_i, &cosmo) / S_PER_YEAR;
n_i = interpolate(n_of_a_interp, a_i);
da = a_i - a_last;
dz = fabs(z_i - z_last);
dt = t_i - t_last;
dn = n_i - n_last;
printf("%03d %le %le %le %le %le %le %le %le\n", i_list, a_i, da, z_i, dz, t_i, dt, n_i, dn);
}
// Clean-up
SID_free(SID_FARG a_list);
SID_free(SID_FARG a_table);
SID_free(SID_FARG t_table);
SID_free(SID_FARG n_dyn_table);
free_interpolate(SID_FARG n_of_a_interp, NULL);
free_cosmo(&cosmo);
SID_log("Done.", SID_LOG_CLOSE);
SID_Finalize();
}
int compute_group_analysis(halo_properties_info *properties,
halo_profile_info *profile,
double (*p_i_fctn) (void *,int,int),
double (*v_i_fctn) (void *,int,int),
size_t (*id_i_fctn)(void *,int),
void *params,
double box_size,
double particle_mass,
int n_particles,
double expansion_factor,
double *x,
double *y,
double *z,
double *vx,
double *vy,
double *vz,
double *R,
size_t **R_index_in,
int flag_manual_centre,
int flag_compute_shapes,
cosmo_info *cosmo){
size_t *R_index;
int i,j;
int i_profile;
int j_profile;
int k_profile;
int n_profile;
size_t i_particle;
size_t j_particle;
size_t k_particle;
int next_bin_particle;
interp_info *V_R_interpolate;
interp_info *vir_interpolate;
int i_bin;
int n_in_bin;
double n_per_bin;
int n_cumulative;
double V1;
double V2;
double dV;
double dM;
double sigma_r_mean;
double sigma_t_mean;
double sigma_T_mean;
double sigma_P_mean;
double sigma_mean;
double x_COM_accumulator;
double y_COM_accumulator;
double z_COM_accumulator;
double vx_COM_accumulator;
double vy_COM_accumulator;
double vz_COM_accumulator;
double spin_x_accumulator;
double spin_y_accumulator;
double spin_z_accumulator;
double r_xy;
double v_tot,v_rad,v_tan;
double v_x_mean,v_y_mean,v_z_mean,v_rad_mean;
double shape_eigen_values[3];
double shape_eigen_vectors[3][3];
double x_COM,y_COM,z_COM,R_COM;
double r_c[MAX_PROFILE_BINS_P1];
double v_c[MAX_PROFILE_BINS_P1];
double r_interp[MAX_PROFILE_BINS];
double y_interp[MAX_PROFILE_BINS];
size_t n_bins_temp;
double V_max,R_max;
double Delta,Omega;
double norm;
int flag_interpolated=FALSE;
const gsl_interp_type *interp_type;
double sigma_cor,sigma_halo;
double M_cor,M_halo;
double x_vir,gamma;
double h_Hubble=((double *)ADaPS_fetch(cosmo,"h_Hubble"))[0];
double Omega_M =((double *)ADaPS_fetch(cosmo,"Omega_M"))[0];
double redshift=z_of_a(expansion_factor);
Delta=Delta_vir(redshift,cosmo);
Omega=1.;
// Initialize properties
properties->id_MBP =id_i_fctn(params,0);//id_array[index_MBP];
properties->n_particles =n_particles;
properties->position_COM[0]=0.;
properties->position_COM[1]=0.;
properties->position_COM[2]=0.;
properties->position_MBP[0]=(float)p_i_fctn(params,0,0);//(x_array[index_MBP]);
properties->position_MBP[1]=(float)p_i_fctn(params,1,0);//(y_array[index_MBP]);
properties->position_MBP[2]=(float)p_i_fctn(params,2,0);//(z_array[index_MBP]);
properties->velocity_COM[0]=0.;
properties->velocity_COM[1]=0.;
properties->velocity_COM[2]=0.;
properties->velocity_MBP[0]=(float)v_i_fctn(params,0,0);//(vx_array[index_MBP]);
properties->velocity_MBP[1]=(float)v_i_fctn(params,1,0);//(vy_array[index_MBP]);
properties->velocity_MBP[2]=(float)v_i_fctn(params,2,0);//(vz_array[index_MBP]);
properties->M_vir =0.;
properties->R_vir =0.;
properties->R_halo =0.;
properties->R_max =0.;
properties->V_max =0.;
properties->sigma_v =0.;
properties->spin[0] =0.;
properties->spin[1] =0.;
properties->spin[2] =0.;
properties->q_triaxial =1.;
properties->s_triaxial =1.;
for(i=0;i<3;i++){
for(j=0;j<3;j++)
properties->shape_eigen_vectors[i][j]=0.;
properties->shape_eigen_vectors[i][i]=1.;
}
// Set the number of profile bins and the number of particles per bin
profile->n_bins=MAX(MIN_PROFILE_BINS,MIN((int)((6.2*log10((double)n_particles)-3.5)+((double)n_particles/1000.)+1),MAX_PROFILE_BINS));
n_per_bin =(double)(n_particles)/(double)profile->n_bins;
// There's nothing to do if there are no particles
if(n_particles==0)
profile->n_bins=0;
else{
// Create a v_c(0)=0 bin
r_c[0]=0.;
v_c[0]=0.;
// Initialize profiles
for(i_bin=0;i_bin<profile->n_bins;i_bin++){
profile->bins[i_bin].r_med =0.;
profile->bins[i_bin].r_max =0.;
profile->bins[i_bin].n_particles =0;
profile->bins[i_bin].M_r =0.;
profile->bins[i_bin].rho =0.;
profile->bins[i_bin].overdensity =0.;
profile->bins[i_bin].position_COM[0] =0.;
profile->bins[i_bin].position_COM[1] =0.;
profile->bins[i_bin].position_COM[2] =0.;
profile->bins[i_bin].velocity_COM[0] =0.;
profile->bins[i_bin].velocity_COM[1] =0.;
profile->bins[i_bin].velocity_COM[2] =0.;
profile->bins[i_bin].sigma_rad =0.;
profile->bins[i_bin].sigma_tan =0.;
profile->bins[i_bin].sigma_tot =0.;
profile->bins[i_bin].spin[0] =0.;
profile->bins[i_bin].spin[1] =0.;
profile->bins[i_bin].spin[2] =0.;
profile->bins[i_bin].q_triaxial =1.;
profile->bins[i_bin].s_triaxial =1.;
for(i=0;i<3;i++){
for(j=0;j<3;j++)
profile->bins[i_bin].shape_eigen_vectors[i][j]=0.;
profile->bins[i_bin].shape_eigen_vectors[i][i]=1.;
}
}
// Fill temporary arrays for particle positions, radii (all w.r.t MBP) and velocities
// Also, enforce periodic box on particle positions
double x_cen;
double y_cen;
double z_cen;
x_cen=(double)properties->position_MBP[0];
y_cen=(double)properties->position_MBP[1];
z_cen=(double)properties->position_MBP[2];
if(flag_manual_centre){
double x_cen_manual;
double y_cen_manual;
double z_cen_manual;
// Compute a rough comoving centre
for(j_particle=0;j_particle<n_particles;j_particle++){
x[j_particle]=d_periodic(p_i_fctn(params,0,j_particle)-x_cen,box_size);//(double)(x_array[k_particle])-x_cen,box_size);
y[j_particle]=d_periodic(p_i_fctn(params,1,j_particle)-y_cen,box_size);//(double)(y_array[k_particle])-y_cen,box_size);
z[j_particle]=d_periodic(p_i_fctn(params,2,j_particle)-z_cen,box_size);//(double)(z_array[k_particle])-z_cen,box_size);
}
// Refine it with shrinking spheres
int n_iterations;
n_iterations=compute_centroid3D(NULL,
x,
y,
z,
n_particles,
1e-3, // 1 kpc
0.75,
30,
CENTROID3D_MODE_FACTOR|CENTROID3D_MODE_INPLACE,
&x_cen_manual,
&y_cen_manual,
&z_cen_manual);
x_cen+=x_cen_manual;
y_cen+=y_cen_manual;
z_cen+=z_cen_manual;
properties->position_MBP[0]=x_cen;
properties->position_MBP[1]=y_cen;
properties->position_MBP[2]=z_cen;
if(properties->position_MBP[0]< box_size) properties->position_MBP[0]+=box_size;
if(properties->position_MBP[1]< box_size) properties->position_MBP[1]+=box_size;
if(properties->position_MBP[2]< box_size) properties->position_MBP[2]+=box_size;
if(properties->position_MBP[0]>=box_size) properties->position_MBP[0]-=box_size;
if(properties->position_MBP[1]>=box_size) properties->position_MBP[1]-=box_size;
if(properties->position_MBP[2]>=box_size) properties->position_MBP[2]-=box_size;
}
for(j_particle=0;j_particle<n_particles;j_particle++){
// ... halo-centric particle positions ...
x[j_particle]=expansion_factor*d_periodic(p_i_fctn(params,0,j_particle)-x_cen,box_size);//((double)x_array[k_particle])-x_cen,box_size);
y[j_particle]=expansion_factor*d_periodic(p_i_fctn(params,1,j_particle)-y_cen,box_size);//((double)y_array[k_particle])-y_cen,box_size);
z[j_particle]=expansion_factor*d_periodic(p_i_fctn(params,2,j_particle)-z_cen,box_size);//((double)z_array[k_particle])-z_cen,box_size);
// ... velocities ...
vx[j_particle]=v_i_fctn(params,0,j_particle);//(double)(vx_array[k_particle]);
vy[j_particle]=v_i_fctn(params,1,j_particle);//(double)(vy_array[k_particle]);
vz[j_particle]=v_i_fctn(params,2,j_particle);//(double)(vz_array[k_particle]);
// ... particle radii ...
R[j_particle]=sqrt(x[j_particle]*x[j_particle]+y[j_particle]*y[j_particle]+z[j_particle]*z[j_particle]);
}
// Sort particles by radius
merge_sort((void *)R,(size_t)n_particles,R_index_in,SID_DOUBLE,SORT_COMPUTE_INDEX,SORT_COMPUTE_NOT_INPLACE);
R_index=(*R_index_in);
// Use the average of the central 30 particles for the MBP velocity if we are
// manually computing centres
if(flag_manual_centre){
double vx_cen_temp=0.;
double vy_cen_temp=0.;
double vz_cen_temp=0.;
int n_cen =0;
for(i_particle=0;i_particle<MIN(30,n_particles);i_particle++){
vx_cen_temp+=vx[i_particle];
vy_cen_temp+=vy[i_particle];
vz_cen_temp+=vz[i_particle];
n_cen++;
}
properties->velocity_MBP[0]=vx_cen_temp/(double)n_cen;
properties->velocity_MBP[1]=vy_cen_temp/(double)n_cen;
properties->velocity_MBP[2]=vz_cen_temp/(double)n_cen;
}
// We need the COM velocity at R_vir before we can get halo centric velocities. Thus,
// we need the overdensity profile first
x_COM_accumulator =0.;
y_COM_accumulator =0.;
z_COM_accumulator =0.;
vx_COM_accumulator =0.;
vy_COM_accumulator =0.;
vz_COM_accumulator =0.;
V2 =0.;
n_cumulative =0;
for(i_bin=0,i_particle=0;i_bin<profile->n_bins;i_bin++,i_particle+=n_in_bin){
V1=V2; // Volumes
// ... particle numbers ...
if(i_bin<profile->n_bins-1)
n_in_bin=(int)((double)(i_bin+1)*n_per_bin)-i_particle;
else
n_in_bin=n_particles-i_particle;
n_cumulative +=n_in_bin;
profile->bins[i_bin].n_particles =n_in_bin;
// ... mass profile ...
profile->bins[i_bin].M_r=particle_mass*(double)n_cumulative;
// ... binning radii ...
if(n_in_bin%2==1)
profile->bins[i_bin].r_med=(float)R[R_index[i_particle+n_in_bin/2]];
else
profile->bins[i_bin].r_med=0.5*(float)(R[R_index[i_particle+n_in_bin/2-1]]+R[R_index[i_particle+n_in_bin/2]]);
profile->bins[i_bin].r_max=(float)R[R_index[i_particle+n_in_bin-1]];
// ... COM positions and velocities ...
for(j_particle=0;j_particle<n_in_bin;j_particle++){
k_particle=R_index[i_particle+j_particle];
x_COM_accumulator += x[k_particle];
y_COM_accumulator += y[k_particle];
z_COM_accumulator += z[k_particle];
vx_COM_accumulator+=vx[k_particle];
vy_COM_accumulator+=vy[k_particle];
vz_COM_accumulator+=vz[k_particle];
}
profile->bins[i_bin].position_COM[0]=(float)(x_COM_accumulator/(double)n_cumulative);
profile->bins[i_bin].position_COM[1]=(float)(y_COM_accumulator/(double)n_cumulative);
profile->bins[i_bin].position_COM[2]=(float)(z_COM_accumulator/(double)n_cumulative);
profile->bins[i_bin].velocity_COM[0]=(float)(vx_COM_accumulator/(double)n_cumulative);
profile->bins[i_bin].velocity_COM[1]=(float)(vy_COM_accumulator/(double)n_cumulative);
profile->bins[i_bin].velocity_COM[2]=(float)(vz_COM_accumulator/(double)n_cumulative);
// ... density ...
V2=FOUR_THIRDS_PI*profile->bins[i_bin].r_max*profile->bins[i_bin].r_max*profile->bins[i_bin].r_max; // Volume
dV=V2-V1;
dM=particle_mass*(double)n_in_bin;
profile->bins[i_bin].rho =(float)(dM/dV);
profile->bins[i_bin].overdensity=(float)(profile->bins[i_bin].M_r/(V2*Omega*rho_crit_z(redshift,cosmo)));
/// ... triaxiality ...
if(flag_compute_shapes){
compute_triaxiality(x,
y,
z,
(double)profile->bins[i_bin].position_COM[0],
(double)profile->bins[i_bin].position_COM[1],
(double)profile->bins[i_bin].position_COM[2],
box_size,
n_cumulative,
R_index,
shape_eigen_values,
shape_eigen_vectors);
profile->bins[i_bin].q_triaxial=(float)(shape_eigen_values[1]/shape_eigen_values[0]);
profile->bins[i_bin].s_triaxial=(float)(shape_eigen_values[2]/shape_eigen_values[0]);
for(i=0;i<3;i++)
for(j=0;j<3;j++)
profile->bins[i_bin].shape_eigen_vectors[i][j]=(float)shape_eigen_vectors[i][j];
}
}
// Interpolate to get R_vir
flag_interpolated=FALSE;
properties->R_halo=profile->bins[profile->n_bins-1].r_max;
if(profile->n_bins>1){
// Remove any small-radius monotonic increases from the interpolation interval
j_profile=0;
while(profile->bins[j_profile].overdensity<=profile->bins[j_profile+1].overdensity && j_profile<profile->n_bins-2)
j_profile++;
// Only keep decreasing bins
n_bins_temp=0;
r_interp[n_bins_temp]=take_log10((double)profile->bins[j_profile].r_max);
y_interp[n_bins_temp]=take_log10((double)profile->bins[j_profile].overdensity);
n_bins_temp++;
for(i_profile=j_profile+1;i_profile<profile->n_bins;i_profile++){
if(take_log10((double)profile->bins[i_profile].overdensity)<y_interp[n_bins_temp-1]){
r_interp[n_bins_temp]=take_log10((double)profile->bins[i_profile].r_max);
y_interp[n_bins_temp]=take_log10((double)profile->bins[i_profile].overdensity);
n_bins_temp++;
}
}
if(n_bins_temp>1){
// Perform interpolation
if(y_interp[0]>=take_log10(Delta) && y_interp[n_bins_temp-1]<=take_log10(Delta)){
if(n_bins_temp>9)
interp_type=gsl_interp_cspline;
else
interp_type=gsl_interp_linear;
interp_type=gsl_interp_linear;
init_interpolate(y_interp,r_interp,n_bins_temp,interp_type,&vir_interpolate);
properties->R_vir =(float)take_alog10(interpolate(vir_interpolate,take_log10(Delta)));
free_interpolate(SID_FARG vir_interpolate,NULL);
flag_interpolated=TRUE;
}
else if(y_interp[0]<take_log10(Delta)){
properties->R_vir=(float)take_alog10(r_interp[0]);
flag_interpolated=FLAG_INTERP_MIN_BIN;
}
else{
properties->R_vir=(float)take_alog10(r_interp[n_bins_temp-1]);
flag_interpolated=FLAG_INTERP_MAX_BIN;
}
}
else{
properties->R_vir=(float)take_alog10(r_interp[0]);
flag_interpolated=FLAG_INTERP_MIN_BIN;
}
}
else{
properties->R_vir=profile->bins[0].r_max;
flag_interpolated=FLAG_INTERP_MIN_BIN;
}
// Set the interpolation method
if(n_bins_temp>9)
interp_type=gsl_interp_cspline;
else
interp_type=gsl_interp_linear;
interp_type=gsl_interp_linear;
// Compute v_COM(R_vir)
for(i_profile=0;i_profile<profile->n_bins;i_profile++)
r_interp[i_profile]=(double)profile->bins[i_profile].r_max;
if(flag_interpolated==TRUE){
for(i_profile=0;i_profile<profile->n_bins;i_profile++)
y_interp[i_profile]=(double)profile->bins[i_profile].velocity_COM[0];
init_interpolate(r_interp,y_interp,profile->n_bins,interp_type,&vir_interpolate);
properties->velocity_COM[0]=(float)interpolate(vir_interpolate,properties->R_vir);
free_interpolate(SID_FARG vir_interpolate,NULL);
for(i_profile=0;i_profile<profile->n_bins;i_profile++)
y_interp[i_profile]=(double)profile->bins[i_profile].velocity_COM[1];
init_interpolate(r_interp,y_interp,profile->n_bins,interp_type,&vir_interpolate);
properties->velocity_COM[1]=(float)interpolate(vir_interpolate,properties->R_vir);
free_interpolate(SID_FARG vir_interpolate,NULL);
for(i_profile=0;i_profile<profile->n_bins;i_profile++)
y_interp[i_profile]=(double)profile->bins[i_profile].velocity_COM[2];
init_interpolate(r_interp,y_interp,profile->n_bins,interp_type,&vir_interpolate);
properties->velocity_COM[2]=(float)interpolate(vir_interpolate,properties->R_vir);
free_interpolate(SID_FARG vir_interpolate,NULL);
}
else{
if(flag_interpolated==FLAG_INTERP_MIN_BIN) i_profile=0;
else if(flag_interpolated==FLAG_INTERP_MAX_BIN) i_profile=profile->n_bins-1;
else SID_trap_error("Unrecognized value for flag_interpolated {%d}.",flag_interpolated);
properties->velocity_COM[0]=(float)profile->bins[i_profile].velocity_COM[0];
properties->velocity_COM[1]=(float)profile->bins[i_profile].velocity_COM[1];
properties->velocity_COM[2]=(float)profile->bins[i_profile].velocity_COM[2];
}
// Compute halo-centric particle velocities
// Subtract COM mean and add Hubble flow
for(j_particle=0;j_particle<n_particles;j_particle++){
vx[j_particle]+=x[j_particle]*H_convert(H_z(redshift,cosmo))-(double)properties->velocity_COM[0];
vy[j_particle]+=y[j_particle]*H_convert(H_z(redshift,cosmo))-(double)properties->velocity_COM[1];
vz[j_particle]+=z[j_particle]*H_convert(H_z(redshift,cosmo))-(double)properties->velocity_COM[2];
}
// Compute remaining profiles ...
spin_x_accumulator=0.;
spin_y_accumulator=0.;
spin_z_accumulator=0.;
V2 =0.;
n_cumulative =0;
for(i_bin=0,i_particle=0;i_bin<profile->n_bins;i_bin++,i_particle+=n_in_bin){
V1=V2; // Volumes
// ... particle numbers ...
if(i_bin<profile->n_bins-1)
n_in_bin=(int)((double)(i_bin+1)*n_per_bin)-i_particle;
else
n_in_bin=n_particles-i_particle;
n_cumulative+=n_in_bin;
// ... spins and mean velocities ...
v_x_mean =0.;
v_y_mean =0.;
v_z_mean =0.;
v_rad_mean=0.;
for(j_particle=0;j_particle<n_in_bin;j_particle++){
k_particle=R_index[i_particle+j_particle];
// ... spins ...
spin_x_accumulator+=(double)(y[k_particle]*vz[k_particle]-z[k_particle]*vy[k_particle]);
spin_y_accumulator+=(double)(z[k_particle]*vx[k_particle]-x[k_particle]*vz[k_particle]);
spin_z_accumulator+=(double)(x[k_particle]*vy[k_particle]-y[k_particle]*vx[k_particle]);
// ... mean velocities (needed below for velocity dispersions) ...
if(R[k_particle]>0.){
v_rad =(x[k_particle]*vx[k_particle]+y[k_particle]*vy[k_particle]+z[k_particle]*vz[k_particle])/R[k_particle];
v_x_mean +=vx[k_particle];
v_y_mean +=vy[k_particle];
v_z_mean +=vz[k_particle];
v_rad_mean+=v_rad;
}
}
profile->bins[i_bin].spin[0]=(float)(spin_x_accumulator)/n_cumulative;
profile->bins[i_bin].spin[1]=(float)(spin_y_accumulator)/n_cumulative;
profile->bins[i_bin].spin[2]=(float)(spin_z_accumulator)/n_cumulative;
v_x_mean /=(double)n_in_bin;
v_y_mean /=(double)n_in_bin;
v_z_mean /=(double)n_in_bin;
v_rad_mean/=(double)n_in_bin;
// ... velocity dispersions ...
for(j_particle=0;j_particle<n_in_bin;j_particle++){
k_particle=R_index[i_particle+j_particle];
if(R[k_particle]>0.){
v_tot=sqrt(pow(vx[k_particle]-v_x_mean,2.)+pow(vy[k_particle]-v_y_mean,2.)+pow(vz[k_particle]-v_z_mean,2.));
v_rad=(x[k_particle]*(vx[k_particle]-v_x_mean)+y[k_particle]*(vy[k_particle]-v_y_mean)+z[k_particle]*(vz[k_particle]-v_z_mean))/R[k_particle];
v_tan=sqrt(v_tot*v_tot-v_rad*v_rad);
profile->bins[i_bin].sigma_tot+=(float)((v_tot)*(v_tot));
profile->bins[i_bin].sigma_rad+=(float)((v_rad-v_rad_mean)*(v_rad-v_rad_mean));
profile->bins[i_bin].sigma_tan+=(float)((v_tan)*(v_tan));
}
}
profile->bins[i_bin].sigma_tot=(float)sqrt((double)profile->bins[i_bin].sigma_tot/(double)n_in_bin);
profile->bins[i_bin].sigma_rad=(float)sqrt((double)profile->bins[i_bin].sigma_rad/(double)n_in_bin);
profile->bins[i_bin].sigma_tan=(float)sqrt((double)profile->bins[i_bin].sigma_tan/(double)n_in_bin);
// ... circular velocity; v_c(R) ...
r_c[i_bin+1]=profile->bins[i_bin].r_max;
v_c[i_bin+1]=sqrt(G_NEWTON*profile->bins[i_bin].M_r/(double)profile->bins[i_bin].r_max);
}
// Determine R_max and V_max from v_c(R)...
R_max=(double)r_c[1]; // default for a monotonically increasing V_c(r)
V_max=(double)v_c[1]; // default for a monotonically increasing V_c(r)
if(profile->n_bins>1){
// Remove any large-radius monotonic increases from the interpolation interval
k_profile=profile->n_bins;
while(v_c[k_profile-1]<=v_c[k_profile] && k_profile>1)
k_profile--;
if(v_c[0]<=v_c[1] && k_profile==1)
k_profile--;
// If the profile is not monotonically increasing ...
if(k_profile>0){
n_bins_temp=k_profile+1;
// ...find the maximum (call its index j_profile)
for(i_profile=0,j_profile=0;i_profile<n_bins_temp;i_profile++){
if(v_c[i_profile]>v_c[j_profile])
j_profile=i_profile;
}
// ...find bottom of range in which to search for maximum (call its index i_profile)
i_profile=j_profile-1;
while(v_c[i_profile]>=v_c[j_profile] && i_profile>0)
i_profile--;
// ...find top of range in which to search for maximum (call its index k_profile)
k_profile=j_profile+1;
while(v_c[k_profile]>=v_c[j_profile] && k_profile<n_bins_temp-1)
k_profile++;
// ... perform interpolation
V_max=(double)v_c[j_profile];
R_max=(double)r_c[j_profile];
if(i_profile<j_profile && j_profile<k_profile){
if(n_bins_temp>9)
interp_type=gsl_interp_cspline;
else
interp_type=gsl_interp_linear;
interp_type=gsl_interp_linear;
init_interpolate(r_c,v_c,n_bins_temp,gsl_interp_cspline,&V_R_interpolate);
interpolate_maximum(V_R_interpolate,
r_c[i_profile],
r_c[j_profile],
r_c[k_profile],
0.05,
&R_max,
&V_max);
free_interpolate(SID_FARG V_R_interpolate,NULL);
}
}
}
properties->R_max=(float)R_max;
properties->V_max=(float)V_max;
if(profile->n_bins>9)
interp_type=gsl_interp_cspline;
else
interp_type=gsl_interp_linear;
interp_type=gsl_interp_linear;
// Perform normal interpolation from profiles to get the rest of the global quantities
if(flag_interpolated==TRUE){
// ... COM positions ...
for(i_profile=0;i_profile<profile->n_bins;i_profile++)
y_interp[i_profile]=(double)profile->bins[i_profile].position_COM[0]/expansion_factor;
init_interpolate(r_interp,y_interp,profile->n_bins,interp_type,&vir_interpolate);
properties->position_COM[0]=(float)interpolate(vir_interpolate,properties->R_vir);
free_interpolate(SID_FARG vir_interpolate,NULL);
for(i_profile=0;i_profile<profile->n_bins;i_profile++)
y_interp[i_profile]=(double)profile->bins[i_profile].position_COM[1]/expansion_factor;
init_interpolate(r_interp,y_interp,profile->n_bins,interp_type,&vir_interpolate);
properties->position_COM[1]=(float)interpolate(vir_interpolate,properties->R_vir);
free_interpolate(SID_FARG vir_interpolate,NULL);
for(i_profile=0;i_profile<profile->n_bins;i_profile++)
y_interp[i_profile]=(double)profile->bins[i_profile].position_COM[2]/expansion_factor;
init_interpolate(r_interp,y_interp,profile->n_bins,interp_type,&vir_interpolate);
properties->position_COM[2]=(float)interpolate(vir_interpolate,properties->R_vir);
free_interpolate(SID_FARG vir_interpolate,NULL);
// ... M_vir ...
for(i_profile=0;i_profile<profile->n_bins;i_profile++)
y_interp[i_profile]=(double)profile->bins[i_profile].M_r;
init_interpolate(r_interp,y_interp,profile->n_bins,interp_type,&vir_interpolate);
properties->M_vir=interpolate(vir_interpolate,properties->R_vir);
free_interpolate(SID_FARG vir_interpolate,NULL);
// ... sigma_v ...
for(i_profile=0;i_profile<profile->n_bins;i_profile++)
y_interp[i_profile]=(double)profile->bins[i_profile].sigma_tot;
init_interpolate(r_interp,y_interp,profile->n_bins,interp_type,&vir_interpolate);
properties->sigma_v=(float)interpolate(vir_interpolate,properties->R_vir);
free_interpolate(SID_FARG vir_interpolate,NULL);
// ... spin ...
for(i_profile=0;i_profile<profile->n_bins;i_profile++)
y_interp[i_profile]=(double)profile->bins[i_profile].spin[0];
init_interpolate(r_interp,y_interp,profile->n_bins,interp_type,&vir_interpolate);
properties->spin[0]=(float)interpolate(vir_interpolate,properties->R_vir);
free_interpolate(SID_FARG vir_interpolate,NULL);
for(i_profile=0;i_profile<profile->n_bins;i_profile++)
y_interp[i_profile]=(double)profile->bins[i_profile].spin[1];
init_interpolate(r_interp,y_interp,profile->n_bins,interp_type,&vir_interpolate);
properties->spin[1]=(float)interpolate(vir_interpolate,properties->R_vir);
free_interpolate(SID_FARG vir_interpolate,NULL);
for(i_profile=0;i_profile<profile->n_bins;i_profile++)
y_interp[i_profile]=(double)profile->bins[i_profile].spin[2];
init_interpolate(r_interp,y_interp,profile->n_bins,interp_type,&vir_interpolate);
properties->spin[2]=(float)interpolate(vir_interpolate,properties->R_vir);
free_interpolate(SID_FARG vir_interpolate,NULL);
// ... triaxial axes ratios ...
for(i_profile=0;i_profile<profile->n_bins;i_profile++)
y_interp[i_profile]=(double)profile->bins[i_profile].q_triaxial;
init_interpolate(r_interp,y_interp,profile->n_bins,interp_type,&vir_interpolate);
properties->q_triaxial=(float)interpolate(vir_interpolate,properties->R_vir);
free_interpolate(SID_FARG vir_interpolate,NULL);
for(i_profile=0;i_profile<profile->n_bins;i_profile++)
y_interp[i_profile]=(double)profile->bins[i_profile].s_triaxial;
init_interpolate(r_interp,y_interp,profile->n_bins,interp_type,&vir_interpolate);
properties->s_triaxial=(float)interpolate(vir_interpolate,properties->R_vir);
free_interpolate(SID_FARG vir_interpolate,NULL);
// ... shape eigen vectors ...
for(i=0;i<3;i++){
for(j=0;j<3;j++){
for(i_profile=0;i_profile<profile->n_bins;i_profile++)
y_interp[i_profile]=(double)cos(profile->bins[i_profile].shape_eigen_vectors[i][j]);
init_interpolate(r_interp,y_interp,profile->n_bins,interp_type,&vir_interpolate);
properties->shape_eigen_vectors[i][j]=(float)acos(MAX(0,MIN(1.,interpolate(vir_interpolate,properties->R_vir))));
free_interpolate(SID_FARG vir_interpolate,NULL);
}
norm=sqrt(properties->shape_eigen_vectors[i][0]*properties->shape_eigen_vectors[i][0]+
properties->shape_eigen_vectors[i][1]*properties->shape_eigen_vectors[i][1]+
properties->shape_eigen_vectors[i][2]*properties->shape_eigen_vectors[i][2]);
for(j=0;j<3;j++)
properties->shape_eigen_vectors[i][j]/=norm;
}
}
// ... else apply defaults to faulty cases.
else{
if(flag_interpolated==FLAG_INTERP_MIN_BIN) i_profile=0;
else if(flag_interpolated==FLAG_INTERP_MAX_BIN) i_profile=profile->n_bins-1;
else SID_trap_error("Unrecognized value for flag_interpolated {%d}.",flag_interpolated);
// ... COM positions ...
properties->position_COM[0]=(double)(profile->bins[i_profile].position_COM[0])/expansion_factor;
properties->position_COM[1]=(double)(profile->bins[i_profile].position_COM[1])/expansion_factor;
properties->position_COM[2]=(double)(profile->bins[i_profile].position_COM[2])/expansion_factor;
// ... M_vir ...
properties->M_vir=(double)profile->bins[i_profile].M_r;
// ... sigma_v ...
properties->sigma_v=(float)profile->bins[i_profile].sigma_tot;
// ... spin ...
properties->spin[0]=(float)profile->bins[i_profile].spin[0];
properties->spin[1]=(float)profile->bins[i_profile].spin[1];
properties->spin[2]=(float)profile->bins[i_profile].spin[2];
// ... triaxial axes ratios ...
properties->q_triaxial=(float)profile->bins[i_profile].q_triaxial;
properties->s_triaxial=(float)profile->bins[i_profile].s_triaxial;
// ... shape eigen vectors ...
for(i=0;i<3;i++){
for(j=0;j<3;j++)
properties->shape_eigen_vectors[i][j]=(float)profile->bins[i_profile].shape_eigen_vectors[i][j];
norm=sqrt(properties->shape_eigen_vectors[i][0]*properties->shape_eigen_vectors[i][0]+
properties->shape_eigen_vectors[i][1]*properties->shape_eigen_vectors[i][1]+
properties->shape_eigen_vectors[i][2]*properties->shape_eigen_vectors[i][2]);
for(j=0;j<3;j++)
properties->shape_eigen_vectors[i][j]/=norm;
}
}
// Enforce periodic box on COM position
properties->position_COM[0]+=x_cen;
properties->position_COM[1]+=y_cen;
properties->position_COM[2]+=z_cen;
if(properties->position_COM[0]< box_size) properties->position_COM[0]+=box_size;
if(properties->position_COM[1]< box_size) properties->position_COM[1]+=box_size;
if(properties->position_COM[2]< box_size) properties->position_COM[2]+=box_size;
if(properties->position_COM[0]>=box_size) properties->position_COM[0]-=box_size;
if(properties->position_COM[1]>=box_size) properties->position_COM[1]-=box_size;
if(properties->position_COM[2]>=box_size) properties->position_COM[2]-=box_size;
// Perform unit conversions
// ... properties first ...
properties->position_COM[0]*=h_Hubble/M_PER_MPC;
properties->position_COM[1]*=h_Hubble/M_PER_MPC;
properties->position_COM[2]*=h_Hubble/M_PER_MPC;
properties->position_MBP[0]*=h_Hubble/M_PER_MPC;
properties->position_MBP[1]*=h_Hubble/M_PER_MPC;
properties->position_MBP[2]*=h_Hubble/M_PER_MPC;
properties->velocity_COM[0]*=1e-3;
properties->velocity_COM[1]*=1e-3;
properties->velocity_COM[2]*=1e-3;
properties->velocity_MBP[0]*=1e-3;
properties->velocity_MBP[1]*=1e-3;
properties->velocity_MBP[2]*=1e-3;
properties->M_vir *=h_Hubble/M_SOL;
properties->R_vir *=h_Hubble/M_PER_MPC;
properties->R_halo *=h_Hubble/M_PER_MPC;
properties->R_max *=h_Hubble/M_PER_MPC;
properties->V_max *=1e-3;
properties->sigma_v *=1e-3;
properties->spin[0] *=1e-3*h_Hubble/M_PER_MPC;
properties->spin[1] *=1e-3*h_Hubble/M_PER_MPC;
properties->spin[2] *=1e-3*h_Hubble/M_PER_MPC;
// ... then profiles ...
for(i_bin=0;i_bin<profile->n_bins;i_bin++){
profile->bins[i_bin].r_med *=h_Hubble/M_PER_MPC;
profile->bins[i_bin].r_max *=h_Hubble/M_PER_MPC;
profile->bins[i_bin].M_r *=h_Hubble/M_SOL;
profile->bins[i_bin].rho *=M_PER_MPC*M_PER_MPC*M_PER_MPC/(h_Hubble*h_Hubble*M_SOL);
profile->bins[i_bin].position_COM[0]*=h_Hubble/M_PER_MPC;
profile->bins[i_bin].position_COM[1]*=h_Hubble/M_PER_MPC;
profile->bins[i_bin].position_COM[2]*=h_Hubble/M_PER_MPC;
profile->bins[i_bin].velocity_COM[0]*=1e-3;
profile->bins[i_bin].velocity_COM[1]*=1e-3;
profile->bins[i_bin].velocity_COM[2]*=1e-3;
profile->bins[i_bin].sigma_rad *=1e-3;
profile->bins[i_bin].sigma_tan *=1e-3;
profile->bins[i_bin].sigma_tot *=1e-3;
profile->bins[i_bin].spin[0] *=1e-3*h_Hubble/M_PER_MPC;
profile->bins[i_bin].spin[1] *=1e-3*h_Hubble/M_PER_MPC;
profile->bins[i_bin].spin[2] *=1e-3*h_Hubble/M_PER_MPC;
}
}
return(flag_interpolated);
}
