(48G/S) Closest Standard-Resistor Values

[John Keith]

This is a very useful program, and I wrote a more compact version several years ago which is for the 48G and later, because it uses DOLIST::

Code:


\<< DUP MANT { 1. 1.1 1.2 1.3 1.5 1.6 1.8 2. 2.2 2.4 2.7 3. 3.3 3.6 3.9 4.3 4.7
5.1 5.6 6.2 6.8 7.5 8.2 9.1 10. } \-> r m L1
  \<< L1 1.
    \<< m >
    \>> DOLIST 1. POS DUP 'L1' SWAP GET m / SWAP 1. - 'L1' SWAP GET m / INV DUP2 <
{ DROP r * } { SWAP DROP r SWAP / } IFTE -2. RND
  \>>
\>>