AdHoc简单仿真.docVIP

[一個簡單的802.11b ad-hoc網路實驗] 資料來源：/pipermail/ns-users/2004-March/040068.html [模擬網路的架構圖] n0 --------------------- n1 (802.11b ad-hoc network) [TCL程式碼] # wireless.tcl # A simple example for wireless simulation #====================================================================== # Define options #====================================================================== set val(chan) Channel/WirelessChannel ;# channel type set val(prop) Propagation/TwoRayGround ;# radio-propagationmodel set val(netif) Phy/WirelessPhy ;# network interface type set val(mac) Mac/802_11 ;# MAC type set val(ifq) Queue/DropTail/PriQueue ;# interface queue type set val(ll) LL ;# link layer type set val(ant) Antenna/OmniAntenna ;# antenna model set val(ifqlen) 50 ;# max packet in ifq set val(nn) 2 ;# number of mobilenodes set val(rp) DSDV ;# routing protocol # ===================================================================== # Main Program (主程式) # ===================================================================== # 產生一個模擬的物件 set ns_ [new Simulator] #定義一個記錄檔,用來記錄封包傳送的過程 set tracefd [open simple.tr w] $ns_ trace-all $tracefd #開啟一個NAM trace file set nf [open out.nam w] $ns_ namtrace-all-wireless $nf 500 500 # set up topography object #建立一個拓樸物件 set topo [new Topography] # 拓樸的範圍為 500m x 500m $topo load_flatgrid 500 500 # # Create God # create-god $val(nn) set chan_1_ [new $val(chan)] # # Create the specified number of mobilenodes [$val(nn)] and attach them # to the channel. # Here two nodes are created : node(0) and node(1) # configure node # 設置節點參數 $ns_ node-config -adhocRouting $val(rp) \ -llType $val(ll) \ -macType $val(mac) \ -ifqType $val(ifq) \ -ifqLen $val(ifqlen) \ -antTyp