# Two hexachords on the same number of hyperplanes but with different fingerprints
hex1 <- c(0, 1, 3, 5, 8, 9)
hex2 <- c(0, 1, 3, 5, 6, 9)
countsvzeroes(hex1) == countsvzeroes(hex2)
svzero_fingerprint(hex1)
svzero_fingerprint(hex2)
# Their brightness graphs make their difference more apparent:
brightnessgraph(hex1)
brightnessgraph(hex2)
Run the code above in your browser using DataLab