| Procedure ExpandCluster(P0, C) |
| CorePoints = CorePoints ∪ 0 |
| For each point in CorePoints do |
| ⋅id = / Assign to Cluster C / |
| For each point in do |
| If ⋅id = UNCLASSIFIED OUTLINE Then |
| ⋅id = / Assign to Cluster / |
| End If |
| Calculate -deviation density / see Definition 4 / |
| If && and is density-reachable Then / see Definition 6 / |
| CorePoints = CorePoints ∪ |
| Else |
| ⋅id = OUTLINE |
| End If |
| End For |
| End For |
| End Procedure |
