TCL基础教程——数学计算.pdfVIP

博观而约取，厚积而薄发。——苏轼

TCL基础教程——数学计算

博观而约取，厚积而薄发。——苏轼

————————————————————————————————作者：

————————————————————————————————日期：

2

博观而约取，厚积而薄发。——苏轼

个人收集整理勿做商业用途

TCL基础教程——（3)数学计算

对于TCL来说，其实并没有自己的数学运算方法，而是使用了C的计算功能，在TCL进行

计算的时候，使用expr来调用如expr7。2/4

[ppcorn＠localhostppcorn]＄catmath1.tcl

＃！/usr/bin/tclsh

setvalue[expr7。2/4］

puts＄value

［ppcorn＠localhostppcorn］$。/math1.tcl

1。8

上面的程序计算了除以4的结果为，请特别注意中括号[］的用法，它表示括号内内容的值.

此方法以后我们会频繁的用到.在这个程序中，就是把赋值给value，然后输出value的值。

再看一个程序

［ppcorn@localhostppcorn］$catmath2。tcl

＃！/usr/bin/tclsh

setvalue［expr5/4］

puts$value

setvalue1［expr5。0/4］

puts$value1

value和value1分别得到的值是多少?

可能有人会脱口而出,都是1。25，那么看一下实际效果呢？

[ppcorn@localhostppcorn]＄。/math2.tcl

1

1。25

或许有人会觉得奇怪，为什么呢？这就是因为expr在计算的时候，会认为5是整数类型，

4也是整数类型，自然结果就是整数类型，为1,而5。0是浮点数类型，4是整数类型，这样计算

的结果取精确度高的，为浮点数，于是得到了。

那么如何让两个整数相除得到一个浮点数呢？总不能总是在整数后面加0吧?对的，在TCL

中提供了内置的double方法，完成从整数到浮点数的转换.

[ppcorn＠localhostppcorn］＄catmath3.tcl

#！/usr/bin/tclsh

3

博观而约取，厚积而薄发。——苏轼

个人收集整理勿做商业用途

setvalue［exprdouble（5)/4］

puts＄value

setvalue1［expr5.0/4]

puts$value1

[ppc