Music.Theory.Tuning.Polansky_1985c

Larry Polansky. "Notes on Piano Study #5". _1/1, The Journal of the Just Intonation Newtork_, 1(4), Autumn 1985.

Documentation

ps5_jpr_r :: [[Rational]]

The tuning has four octaves, these ratios are per-octave.

ps5_jpr :: Tuning

Four-octave tuning.

import Data.List.Split

let r = [[   0,  84, 204, 316, 386, 498, 583, 702, 814, 884, 969,1088]
        ,[1200,1284,1404,1516,1586,1698,1783,1902,2014,2084,2169,2288]
        ,[2400,2453,2604,2716,2786,2871,2951,3102,3214,3241,3369,3488]
        ,[3600,3684,3804,3867,3986,4098,4151,4302,4414,4506,4569,4688]]
in chunksOf 12 (cents_i ps5_jpr) == r

let r = [[0,84,204,316,386,498,583,702,814,884,969,1088]
        ,[0,84,204,316,386,498,583,702,814,884,969,1088]
        ,[0,53,204,316,386,471,551,702,814,841,969,1088]
        ,[0,84,204,267,386,498,551,702,814,906,969,1088]]
chunksOf 12 (map (`mod` 1200) (cents_i ps5_jpr))