formatTest.frink

View or download formatTest.frink in plain text format


// This tests the new format functions.
formatTest[num, mindigits=2, maxdigits=30, html=false] :=
{
   if mindigits != maxdigits
   {
      //print[padRight["format" , maxdigits+15, " "]]
      if html
         print["   <TR><TD>"]
         
      print[padRight["formatSig" , maxdigits+15, " "]]
      if html
         print["<TD>"]
      print[padRight["formatSci" , maxdigits+15, " "]]
      if html
         print["<TD>"]
      print[padRight["formatEng" , maxdigits+15, " "]]
      if html
         print["<TD>"]
      print[padRight["formatFix" , maxdigits+15, " "]]
      println[]
   }
   for digits = mindigits to maxdigits
   {
      if html
         print["   <TR><TD>"]
      print[padRight[formatSig[num, 1, digits], maxdigits+15, " "]]
      if html
         print["<TD>"]
      print[padRight[formatSci[num, 1, digits], maxdigits+15, " "]]
      if html
         print["<TD>"]
      print[padRight[formatEng[num, 1, digits], maxdigits+15, " "]]
      if html
         print["<TD>"]
      print[padRight[formatFix[num, 1, digits], maxdigits+15, " "]]
      println[]
   }
}

formatTest[2/3]
println[]
formatTest[2/3000]
println[]
formatTest[2^20 (2/3 + 1/6i)]
println[]
formatTest[(10^20+1)/3, 10, 23]
println[]
formatTest[1,7,6]
for a = -20 to 20
   formatTest[-2/3 * 10^a, 6, 6, true]   


View or download formatTest.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 17649 days, 5 hours, 40 minutes ago.