[ruby-dev:5631] Re: Integer#format

ごとけんです

In message "[ruby-dev:5542] Re: Integer#format"
    on 99/02/24, Yukihiro Matsumoto <[e-mail]> writes:

>|> そうですねえ．でも，やっぱりformatが必要なときにはformatを使っ
>|> てくださいませ．
>|
>|`format' についてはそうかもしれませんが，ちょっと基数変換をしたい，っ
>|ていう時には Numeric#to_hex_str とか #to_oct_str とかあったらいいなと
>|思う事は良くあります．
>
>ま，それは否定しません．で，どこまでが必要とされているんだか
>を見極めるのは結構微妙なんですよね．基数変換だけが必要なのか，
>フォーマットまで必要なのかってのは微妙ですよねえ．

参考までに Mathematica の関連する関数を紹介します．
Mathematica で引数は [] で与えるので省略可能な引数部分を 
<> で囲んであらわします．また {} は一般にリストを意味します．

= 表示精度の制御

 ScientificForm[expr<,tot>]   科学表記を最大tot桁まで表示
 NumberForm[expr<,tot>]       近似実数を最大tot桁まで表示
 EngineeringForm[expr<,tot>]  工業表記を最大tot桁まで表示
 AccountingForm[expr]         標準会計形式．

実行例
In[1]:= {6.7^-4, 6.7^6, 6.7^8}
                                        6
Out[1]= {0.00049625, 90458.4, 4.06068 10 }
In[2]:= ScientificForm[%]
                                   -4             4             6
Out[2]//ScientificForm= {4.9625  10  , 9.04584  10 , 4.06068  10 }
In[3]:= EngineeringForm[%]
                                    -6             3             6
Out[3]//EngineeringForm= {496.25  10  , 90.4584  10 , 4.06068  10 }
In[4]:= AccountingForm[%]
Out[4]//AccountingForm= {0.00049625, 90458.4, 4060677.}
In[6]:= AccountingForm[{5.6, -6.7, 10.^7}]
Out[6]//AccountingForm= {5.6, (6.7), 10000000.}

Mathematica の関数にはオプションがあり，-> で与えます．

= 数のフォーマットに与えるオプション

  オプション名,     デフォルト，意味
  DigitBlock,       Infinity,   指定された間隔で桁を区切る
  NumberSeparator,  {",", " "}, 桁の区切り文字列
  NumberPoint,      {"."},      小数点に使う文字列
  NumberSigns,      {"-", ""},  正負の符号に使う文字列
  NumberPadding,    {"", ""},   数の左右端に与える挿入文字列
  SignPadding,      False,      符号の後に空白を入れるか否か
  NumberFormat,     Automatic,  数の最終形式を作成する関数
  ExponentFunction, Automatic,  指数の使用を決定する関数

実行例
In[7]:= NumberForm[30!, DigitBlock->3]
Out[7]//NumberForm= 265,252,859,812,191,058,636,308,480,000,000
In[8]:= NumberForm[30!, DigitBlock->5, NumberSeparator->" "]
Out[8]//NumberForm= 265 25285 98121 91058 63630 84800 00000
In[13]:= NumberForm[{4.5, -6.8}, NumberSigns->{"-","+"}, NumberPoint->"|"]
Out[13]//NumberForm= {+4|5, -6|8}
In[14]:= {8.^5, 11.^7, 13.^9}
                            7            10
Out[14]= {32768., 1.94872 10 , 1.06045 10  }
In[15]:= NumberForm[%, ExponentFunction -> (If[-10<#<10, Null, #]&)]
                                                     10
Out[15]//NumberForm= {32768., 19487171., 1.06045  10  }
In[18]:= NumberForm[%, ExponentFunction->(3 Quotient[#, 3]&)]
                                3             6             9
Out[18]//NumberForm= {32.768  10 , 19.4872  10 , 10.6045  10 }
In[19]:= FortranForm[%]
Out[19]//FortranForm= List(32768.,1.9487171e7,1.0604499373e10)
In[20]:= TeXForm[%]
Out[20]//TeXForm= \{ 32768.,1.94872\,{{10}^7},1.06045\,{{10}^{10}}\} 

= 出力の数字を揃える制御

  PaddedFrom[expr,tot]        必要に応じて数の左に桁埋めの
                              文字を挿入し，tot 桁に収める
  PaddedForm[expr,{tot,frac}] 小数点以下を frac に揃え
                              tot 桁に収める
  NumberForm[expr,{tot,frac}] 小数点以下を frac に揃え，
                              最大 tot 桁に収める
  ColumnForm[{expr1, ...}]    expri を行にして表示

実行例
# 今は時間無いので例は省略(_ _; 知りたければまた聞いてください．

= 10以外の底を使って数を表示
  BaseForm[expr, b]  b進数で表示(b は 2..36)

実行例
In[22]:= BaseForm[1234.5678, 32]
Out[22]//BaseForm= 16i.i5
                         32
In[23]:= BaseForm[1234.5678,16]
Out[23]//BaseForm= 4d2.915b
                           16

まぁこんな感じ．名前を選ぶ程度の参考にはなるかも．
数字を指定した桁で区切るというのは便利かも知れませんね．
「19,800円」みたいに．

-- gotoken