diatonic_scale <- c(0, 2, 4, 5, 7, 9, 11)
melodic_minor <- c(0, 2, 3, 5, 7, 9, 11)
vl_generators(diatonic_scale)
vl_generators(melodic_minor)
vl_generators(j(dia))
maj7 <- c(0, 4, 7, 11)
vl_generators(maj7)
Run the code above in your browser using DataLab