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); }