2020-04-07-am2

zhangqq
2020,6,8
悦来

(Altair HyperWorks^{TM} 二次开发培训)

• TCL编程基础
• HyperMesh二次开发
• Tk界面开发
• 后处理二次开发

---

hypot(arg1, arg2)

求勾股定理第三边的函数

set a 3
set b 4
set c [expr {hypot($a, $b)}]
puts $c

输出：5.0
(为什么是浮点数?)

比较大小

有数值和字符串等比较，凡比较运算后均返回布尔值。

• 数字比较

set a 2
set b 2.0
set c [expr {$a == $b}]
puts $c

输出：1
说明整型和浮点型还是按照数值大小来比较的

• 字符串比较

set a Hello
set c [expr {$a eq "hello"}]; #也可以用 ==
puts $c

输出：0
(注意：TCL中一般字符串如果没有空格是可以不用引号引住的，但是在这里比较的时候，在expr内必须要用空格或是大括号括住字符串)