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: