NS2进阶实例10---无线场景下观察TCP滑动窗口大小的变化

ProhibidoAmor

   TCP/IP协议在现行网络中的重要地位，是不言而喻的啦！ 为此我将整理与之相关的一些列博客，希望详尽地对TCP协议进行测试，使得自己对TCP的实现机制有更为深刻的了解！
   同时这也将是一个NS2初学者进阶的必经阶段，一定要花费足够的的时间和精力，对TCP/IP的各种机制的仿真做详细的测试哦！  
   我的博文具体包括以下几个方面：
   1. 无线网络和有线网络中TCP拥塞控制（滑动窗口）的演示；
   2. 有线环境中TCP慢启动和快速恢复机制的具体演示；
   3. NS2中已实现的各种TCP版本， 将具体进行测试；
      将参考柯志亨老师的资料，具体给出详尽的TCL和注释，以及运行结果,少量的分析！
     （包括：Tahoe、Reno、New Reno、Sack、Vegas等；）
   4. TCP同步化现象的演示； （将参考柯老师的资料）
   5. TCP机制的影响因素；   （将参考柯老师的资料）

进阶实例10：

  
# 场景请看 运行结果的拓扑图，TCP建立在节点0和9之间，是无线场景哦！
#======================================
# Define options
#======================================
set val(chan)   Channel/WirelessChannel
set val(prop)   Propagation/TwoRayGround
set val(netif)  Phy/WirelessPhy
set val(mac)    Mac/802_11
set val(ifq)    Queue/DropTail/PriQueue
set val(ll)     LL
set val(ant)    Antenna/OmniAntenna
set val(ifqlen) 50
set val(nn)     10
set val(rp)     DSDV
set val(x)      500
set val(y)      400
set val(stop)   150
# Routine way of TCL code
set ns [new Simulator]
set tracefd [open fwd.tr w]
set windowVsTime2 [open fwdg.tr w]
set namtrace [open fwd.nam w]
$ns trace-all $tracefd
$ns namtrace-all-wireless $namtrace $val(x) $val(y)
set topo [new Topography]
$topo load_flatgrid $val(x) $val(y)
set god [create-god 10]
set chan_1_ [new $val(chan)]
set chan_2_ [new $val(chan)]
# Configure for Wireless Node
$ns node-config -adhocRouting $val(rp)\
                -llType $val(ll)\
                -macType $val(mac)\
                -ifqType $val(ifq)\
                -ifqLen $val(ifqlen)\
                -antType $val(ant)\
                -propType $val(prop)\
                -phyType $val(netif)\
                -channel $chan_1_\
                -topoInstance $topo\
                -agentTrace ON\
                -routerTrace ON\
                -macTrace ON\
                -movementTrace ON
   
# 创建节点，并且指定物理位置，二维平面上的哦！
for {set i 0} {$i

运行结果：
   拓扑图：


   效果图：


（比较简单，有问题的话，邮件联系我哦！）




   


本文来自ChinaUnix博客，如果查看原文请点：http://blog.chinaunix.net/u3/105477/showart_2092083.html