PtoRg([1,4,8,23],1/2,10,1000)



[[[1, 4, 8, 23, 54], [2, 2, -2, 1, -1]], [.1146788991, .8928571429], [.50000000\
00, .5000000000], HFloat(.790230562450963125)]


                         PtoRg([1,4,8,14],1/2,10,1000)



FAIL


                         PtoRg([3,9,11,21],1/2,10,1000)



[[[3, 9, 11], [0, 2, 1]], [.2647058824, .8333333333], [.5000000000, .5000000000
], .6180339880]


                         PtoRg([3,9,11,22],1/2,10,1000)



[[[3, 9, 11, 23, 34, 62], [0, 2, 1, 1, 0, -1]], [.2296296296, .9069767442], [.3\
576564438, .6423435562], 1.]


[[[3, 9, 11, 23, 34, 62], [0, 2, 1, 1, 0, -1]], [.2296296296, .9069767442], [.3\
576564438, .6423435562], 1.]


                        PtoRg([12,21,36,62],1/2,10,1000)



[[[12, 21, 36, 62, 107, 185, 320, 554], [6, -9, 1, 5, -4, 1, 1, -1]], [.\
7142857143e-1, .9654690149], [.5000000000, .5000000000], HFloat(.81745926547001\
1909)]