tcl - TCL の絶対値

Question

expr ステートメントの絶対値を取得する関数は何ですか。たとえばexpr [$a - $b ]。これで、解は -ve または +正の数になります。しかし、私は+ve値を出したいです。

みたいに使いたいif { |$diff_a| > 0 & |$diff_b| >0 } { …… 。

私はtcl 8.4を使用しています。

Answer 1

「abs」コマンドはTclの数式内でのみ使用できるため、正しい例は次のようになります。

if {[expr abs($diff_a)] > 0} {...}

詳細については、上記の回答で指定されている expr の man ページを参照してください。

Answer 2

abs次の関数を使用します。

if {abs($diff_a) > 0 ...} ...

abs式のコンテキストでのみ機能することに注意してください(例: を呼び出すことによってexpr) が、 への最初の引数がif式として評価されることにも注意してください。

abstcl 8.4 より前のバージョンでは、exprの man ページに記載されています。8.5 以降、mathfuncのman ページにあります。