// 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]