yohai/phigrape
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

first commit

Browse source
This commit is contained in:
Yohai 2019-08-25 16:22:03 +08:00
commit aaf40315c8
15 changed files with 17524 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

74
def_DEN_STAR.c Normal file
View file

@ -0,0 +1,74 @@
/*************************************************************************/
/*************************************************************************/
/*************************************************************************/
void DEF_DEN_STAR(double x_star, double y_star, double z_star, double x_gas[][3], double m_gas[], double h_gas[], double *DEN_star)
{
//int NB_STAR=0;
//int sosed_tmp[N_GAS_MAX];
double Xij, Yij, Zij, Rij, tmp=0.0, tmp2;
/* DEF DEN dlja odnoj STAR chastici */
//NB_STAR = 0;
tmp = 0.0;
tmp2 = 0.0;
for(j=0;j<N_GAS;j++) // GAS
{
tmp2 = SQR(x_star) + SQR(y_star);
if( (ABS(z_star) < 1e-2) && (tmp2 < 0.2) ) // zamenity na h & (2*R0)^2 = 0.1936
{
Xij = x_star - x_gas[j][0];
Yij = y_star - x_gas[j][1];
Zij = z_star - x_gas[j][2];
Rij = sqrt(Xij*Xij + Yij*Yij + Zij*Zij);
if( Rij < (2.0*h_gas[j]) )
{
// sosed_tmp[NB_STAR] = j;
// NB_STAR++;
tmp = tmp + m_gas[j] * W(Rij,h_gas[j]);
}
}
// sosed_tmp[j] = j;
} /* j */
//printf("%06d \t %.8E \n",NB_STAR, tmp);
// my_sort(0, N-1, d, sosed_tmp);
// tmp = my_select(0, N_GAS-1, NB-1, d, sosed_tmp); d[NB-1] = tmp;
/* SPH style */
/*
tmp = 0.0;
for(k=0;k<NB_STAR;k++)
{
j = sosed_tmp[k];
Rij = sqrt(d[k]);
tmp = tmp + m[j] * W(Rij,h_gas[j]);
}
*/
*DEN_star = tmp;
}
/*************************************************************************/
/*************************************************************************/
/*************************************************************************/