这个是运行在NS上的tcl语言，用于编写脚本，这是熟悉tcl语言的一个小例子-This is running on NS on the tcl language used to write the scr ipt, which is familiar with the language of a small example tcl