Skip to main content
. 2020 Jul 27;20(15):4171. doi: 10.3390/s20154171
Algorithm 6 CS (cs, A)

  1.  {

  2.   PA: = Ø;

  3.   C: = CA (cs, A);

  4.   for each c ∈ C do

  5.   {

  6.    PC: = (SELECT * FROM ‘P‘ WHERE SQRT(POWER(‘x‘-x(c),2) + POWER(‘y‘-y(c), 2)) <= r)

  7.    if (CIA(c, A) == 1) PA: = PA ∪ PC;

  8.    else

  9.    {

  10.     for each p∈ PC do

  11.     {

  12.      If (PIA(p, A) == 1) then PA: = ∪{p};

  13.     }

  14.    }

  15.   }

  16.   return PA;

  17.  }