%!

% best integer 8 bit note sequence


/magic 1.05946309 store



100 1 240 {/curlow exch store

(\n\n) print
/wuz curlow store


(\n\n\n) print
curlow 20 string cvs print (  ) print
(0.00000) 20 string cvs print (  ) print
(0.00000) 20 string cvs print (  ) print



/rms 0 store

1 1 12 {/note exch store


/want wuz magic mul store
/got want round store
/err got want div 1 sub store 


/cents err .06 div 100 mul store  % 1/100th of 6%

(\n) print
want 20 string cvs print (  ) print
got 20 string cvs print (  ) print
err 20 string cvs print (  ) print
cents 20 string cvs print (  ) print

/wuz want store 

/rms rms cents dup mul add store



} for  % next note 


/rms rms 13 div sqrt store  % include first value


(\n    rms error in cents is  ) print rms ==

} for  % next trial 

(\n\n\n) print flush

% EOF