similarUnits.frink

Download or view similarUnits.frink in plain text format


/** This file contains routines that find similar units to a value that you
    may have.
*/
similarUnits[x, maxNum=20] :=
{
   result = ""
   values = unitsWithValues[x]
   numFound = 0
   ratios = new array
   
   for [name, value] = values
   {
      if value == x
      {
         result = result + "1 $name\t(exact match)\n"
         numFound = numFound + 1
      } else
      {
         if realSignum[value] == 0
            next
         ratio = x / value
         ratios.push[ [name, value, ratio] ]
      }
   }

   if numFound >= maxNum
      return result

   // Sorting function
   // This sorts integer and rational first, with smaller ratios being first
   sortFunc = {|a,b|
                    r1 = a@2
                    r2 = b@2

                    if isIntegerOrRational[r1]
                       if isIntegerOrRational[r2]
                          // Both integer or rational
                          return numerator[r1]*denominator[r1] <=> numerator[r2]*denominator[r2]
                       else  // r1 is rational and thus closer
                          return -1
                    else
                       if isIntegerOrRational[r2] // Only r2 rational
                          return 1
                       else     // Neither rational, return closest to 1
                          return abs[log[abs[r1]]] <=> abs[log[abs[r2]]]
               }

   sort[ratios, sortFunc]

   for i = 0 to min[maxNum - numFound, length[ratios]-1]         
   {
      [name, value, ratio] = ratios@i
      result = result + "$ratio $name\n"
   }

   return result
}

isIntegerOrRational[n] := isInteger[n] or isRational[n]


Download or view similarUnits.frink in plain text format

This is a program written in the programming language Frink.
For more information, view the Frink Documentation or see More Sample Frink Programs.

Alan Eliasen was born 19966 days, 14 hours, 34 minutes ago.