在開始使用 ns2 之前, 先簡介一下 OTcl 的語法, 因為 ns2 是以 OTcl 為前端, 撰寫 OTcl script 來模擬你想要模擬的網路情況. 雖然你也許不會 OTcl 也可以使用 ns2, 但是我相信如果你會 OTcl 語法, 將可以使你使用 ns2 更方便. 以下將會以非常簡單的方式去簡介一下 OTcl 語法. → 設定變數 # 設定 x 變數，x 值為100(注意這100是字串) set x 100 # 設定 y 變數，y 值為200 set y 200 # 透過 expr 將 $x $y 當成數字作數學運算, 並設定 z 變數為300 set z [expr $x+$y] # 設定 a = b = 100 set a [set b 100] # 設定一個陣列叫 array_, 並把 array_(1) 的值設為27 set array_(1) 21 → 基本的 if else 和迴圈的寫法 if 的範例 範例說明 : 如果變數 k 大於4, 則顯示出 "k > 4", 反之則顯示 "k < =4 ", 要注意的是 if 後面接的是大括號 "{", 不同於我們在 C 語言中所寫的 "(" , 要切記. if { $k>4 } { puts " k > 4 " } else { puts " k < = 4 " } while 的範例 範例說明 : 下面程式, 代表一個 while 如在 i 大於等於0的情況下, 則將 b 的值和 i 相加並再回傳給 b, 然後 i 再減 1. set b 0 set i 100 while {$i > = 0} { set b [expr $b+$i] incr i -1 } for 的範例 for {set i 100} {$i > =0} {incr i -1} { # for 迴圈內所要執行的程式碼 } → 副程式的寫法 # 定義一個叫做 show 的 procedure proc show {} { ... # 副程式內容 ... } # 範例: (計算x階乘的procedure) proc fac {x} { if {$x < 0} { error "Invalid argument $x: must be a positive integer" } elseif {$x < = 1} { return 1 } else { return [expr $x * [fac [expr $x-1]]] } } → 總結 OTcl 語法大概就介紹到這邊, 底下並不會再介紹有關於物件導向的語法. 想要更進一步的探索 OTcl, 可以到 http://bmrc.berkeley.edu/research/cmt/cmtdoc/otcl/此網頁獲得更多更詳細的 OTcl 知識.