1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
|
# Generated by sgb2ns, created by Polly Huang
# GRAPH (#nodes #edges id uu vv ww xx yy zz):
# 10 28 geo(0,{10,10,3,0.200,0.000,0.000}) 10
set graph_type random
proc create-nodes {nsns node} {
upvar $node n
upvar $nsns ns
global verbose
if {$verbose} {
puts "creating nodes..."
}
for {set i 0} {$i < 10} {incr i} {
set n($i) [$ns node]
}
return 10
}
proc create-links {nsns node linkBW} {
upvar $node n
upvar $nsns ns
global verbose
# EDGES (from-node to-node length a b):
if {$verbose} {
puts -nonewline "Creating links 0..."
flush stdout
}
$ns duplex-link $n(0) $n(9) $linkBW 4ms DropTail
$ns duplex-link $n(0) $n(4) $linkBW 6ms DropTail
$ns duplex-link $n(0) $n(2) $linkBW 4ms DropTail
$ns duplex-link $n(1) $n(8) $linkBW 7ms DropTail
$ns duplex-link $n(2) $n(6) $linkBW 7ms DropTail
$ns duplex-link $n(3) $n(9) $linkBW 2ms DropTail
$ns duplex-link $n(3) $n(8) $linkBW 7ms DropTail
$ns duplex-link $n(3) $n(5) $linkBW 7ms DropTail
$ns duplex-link $n(4) $n(7) $linkBW 7ms DropTail
$ns duplex-link $n(4) $n(6) $linkBW 4ms DropTail
if {$verbose} { puts -nonewline "10..."; flush stdout }
$ns duplex-link $n(5) $n(9) $linkBW 7ms DropTail
$ns duplex-link $n(5) $n(7) $linkBW 4ms DropTail
$ns duplex-link $n(7) $n(9) $linkBW 6ms DropTail
$ns duplex-link $n(8) $n(9) $linkBW 7ms DropTail
if {$verbose} {
puts -nonewline "14..."
flush stdout
puts "starting"
}
return 14
}
|
