module KMeansCrystal