NS2网络模拟(5)-homework01.tcl

  1: #NS2_有线部分\homework01.tcl

  2:

  3: #创建两个结点，深圳到北京的TCP连接，图形将数据显示出来，计算吞吐率，画图分析

  4: #tcp上层用ftp

  5: #udp上层用cbr

  6: #Create a simulator object

  7: set ns [new Simulator]

  8:

  9: set nf [open SZ2BJ.nam w]

 10: $ns namtrace-all $nf

 11:

 12: set nd [open SZ2BJ.tr w]

 13: $ns namtrace-all $nd

 14:

 15: proc finish {} {

 16:     global ns nf nd

 17:     $ns flush-trace

 18:     close $nf

 19:     close $nd

 20:     exec nam SZ2BJ.nam &

 21:     exit 0

 22: }

 23:

 24:

 25: #$ns node-config     -addressType    hierarchical

 26:

 27: #Create two nodes

 28: set Node_Shenzhen [$ns node]

 29: $Node_Shenzhen color red

 30: $Node_Shenzhen shape hexagon

 31: #$Node_Shenzhen label "ShenZhen"

 32:

 33: set Node_Beijing  [$ns node]

 34: $Node_Beijing color red

 35: #$Node_Beijing lable "BeiJing"

 36: #Create a duplex link between the nodes

 37: $ns duplex-link $Node_Shenzhen $Node_Beijing 1Mb 500ms DropTail

 38:

 39: #$ns queue-limit $2 $n3 10

 40:

 41: #TCP

 42: set Agent_Sender [new Agent/TCP]

 43: $Agent_Sender set class_    2

 44: $Agent_Sender set addr_     192.168.1.100

 45: $Agent_Sender set dst_addr- 192.168.1.200

 46: $Agent_Sender set size_     1492

 47: $Agent_Sender set defttl_   256

 48: $ns attach-agent $Node_Shenzhen $Agent_Sender

 49:

 50: set Agent_Receiver [new Agent/NULL]

 51: $ns attach-agent $Node_Beijing $Agent_Receiver

 52:

 53: $ns connect $Agent_Sender $Agent_Receiver

 54:

 55: #Simulated Application

 56: set App_Ftp [new Application/FTP]

 57: $App_Ftp attach-agent $Agent_Sender

 58:

 59:

 60: #start and stop FTP

 61: $ns at 1.0 "App_Ftp start"

 62: $ns at 4.0 "App_Ftp stop"

 63:

 64: $ns at 5.0 "finish"

 65:

 66: $ns run

 67: