ivec(c(0, 1, 4, 6))
ivec(c(0, 1, 3, 7))
#### Z-related sextuple in 24edo:
sextuple <- matrix(
c(0, 1, 2, 6, 8, 10, 13, 16,
0, 1, 3, 7, 9, 11, 12, 17,
0, 1, 6, 8, 10, 13, 14, 16,
0, 1, 7, 9, 11, 12, 15, 17,
0, 1, 2, 4, 8, 10, 13, 18,
0, 2, 3, 4, 8, 10, 15, 18), nrow=6, byrow=TRUE)
apply(sextuple, 1, ivec, edo=24) # The ic-vectors are the 6 identical columns of the output matrix
Run the code above in your browser using DataLab