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
56
57
58
59
60
61
62
63
64
65
66
67
|
#!/usr/bin/ns
source scaling-defaults.tcl
# Usage tree.tcl -rand 1.0 -det 0.05 -seed -size $max >! tmp.dat
# defaults
set size 10
set det 0.0
set rand 1.0
set delay 10.0
if {$argc == 0} {
puts "Usage: $argv0 \[-det $det\] \[-rand $rand\] \[-seed\] \[-size $size\] \[-delay $delay\]"
exit 1
}
# regexp {^(.+)\..*$} $argv0 match ext
for {set i 0} {$i < $argc} {incr i} {
set opt [lindex $argv $i]
if {$opt == "-size"} {
set size [lindex $argv [incr i]]
} elseif {$opt == "-det"} {
set det [lindex $argv [incr i]]
} elseif {$opt == "-rand"} {
set rand [lindex $argv [incr i]]
} elseif {$opt == "-delay"} {
set delay [lindex $argv [incr i]]
} elseif {$opt == "-seed"} {
ns-random 0
}
}
# S
# |
# X Packet loss occurs here
# |
# | Delta_
# |
# R
# / \
# R R
# / \ / \ delta_
# R R R R
# .
# .
# .
#
set ns [new Simulator]
set tree [new Topology/BTree $size]
$tree set det_ $det
$tree set rand_ $rand
$tree set delay_ $delay
puts "D = [$tree set det_]"
puts "R = [$tree set rand_]"
puts "Delay = [$tree set delay_]"
puts "Size = $size"
$ns at 0.0 "$tree flood 1"
$ns run
|
