3 Tcl书写表达式及expr命令
Tcl提供了有效的数学运算和逻辑运算功能。通过expr可以实现对数学表达式的分析和计算。
3.1 数学与逻辑运算符
| 运算符 | 说明 |
|---|---|
| - + ~ ! | 一元减（取负）、一元加（取正）、按位反、逻辑非 |
| * / % | 乘、除、取余 |
| + - | 加、减（二元操作符） |
| << >> | 左移、右移（二元操作符） |
| < <= >= > | 小于、小于等于、大于等于、大于 |
| == != | 布尔等于、不等于 |
| & | 按位与 |
| ^ | 按位异或 |
| | | 按位或 |
| && | 逻辑与 |
| || | 逻辑或 |
| x?y:z | 三元表达式，x满足为y，不满足为z |
3.2 数学函数
| 函数名 | 说明 | 举例 |
|---|---|---|
| abs(arg) | 取绝 | set a -10 # a = -10 ; set a [expr abs($a)] |
| acos(arg) | 反余弦 | |
| asin(arg) | 反正弦 | |
| atan(arg) | 反正切 | |
| atan2 | 比值取反正切 | |
| ceil(arg) | 向上取整 | |
| cos(arg) | 余弦 | |
| cosh(arg) | 双曲余弦 | |
| double(arg) | 转换双精度 | |
| exp(arg) | exp运算e的幂 | |
| floor(arg) | 向下取整，与ceil相对 | |
| fmod | 取余（结果为浮点型） | |
| hypot(x,y) | 根据直角三角形两直角边长度计算出斜边长度 | |
| int(arg) | 取整 | |
| log(arg) | 自然对数 | |
| log10(arg) | 以10为底的度数 | |
| pow | 幂运算 | |
| rand() | 取0-1之间的随机实数 | set a [expr 10*[expr rand()]] |
| round(arg) | 四舍五入取整 | set a [expr round(10.5)] |
| sin(arg) | ||
| sinh(arg) | ||
| sqrt(arg) | 求二次根 | |
| srand(arg) | 以整数arg为随机数生成器的种子产生随机数 | |
| tan(arg) | ||
| tanh(arg) |
3.3算数运算举例
set var1 5
set var2 3
set res [expr $var1 /$var2] #var1和var2都是整数结果为整数
=>1
set var1 5.0
set res [expr $var1 /$var2] # var1是浮点数，所以结果为浮点数
=>1.66666666667
set var1 3
incr var1 2 # incr a b 将b加到a上，a，b必须都是整数，
# 更改a原有的值
=>5
puts $var1
=>5
incr var1 -4 # var1加上-4，var1的值现在为1
=>1
3.4 incr命令
incr命令根据指定的步长来增加或减少参数的值。当步长为负时，减少参数值；当步长为正时，增加参数值。默认步长+1。
incr varName ?step?
set a 10
incr a
=> a=11
set a 10
incr a -1
=> a=9