74 lines
1.6 KiB
C
74 lines
1.6 KiB
C
/*************************************************************************/
|
|
/*************************************************************************/
|
|
/*************************************************************************/
|
|
|
|
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;
|
|
|
|
}
|
|
|
|
/*************************************************************************/
|
|
/*************************************************************************/
|
|
/*************************************************************************/
|