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
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
|
#
# Copyright (C) 1997 by USC/ISI
# All rights reserved.
#
# Redistribution and use in source and binary forms are permitted
# provided that the above copyright notice and this paragraph are
# duplicated in all such forms and that any documentation, advertising
# materials, and other materials related to such distribution and use
# acknowledge that the software was developed by the University of
# Southern California, Information Sciences Institute. The name of the
# University may not be used to endorse or promote products derived from
# this software without specific prior written permission.
#
# THIS SOFTWARE IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR IMPLIED
# WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF
# MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
#
#
# Maintainer: Kannan Varadhan <kannan@isi.edu>
# Version Date: $Date: 2000/02/18 10:41:50 $
#
# @(#) $Header: /cvsroot/nsnam/ns-2/tcl/ex/srm-star.tcl,v 1.12 2000/02/18 10:41:50 polly Exp $ (USC/ISI)
#
if [string match {*.tcl} $argv0] {
set prog [string range $argv0 0 [expr [string length $argv0] - 5]]
} else {
set prog $argv0
}
if {[llength $argv] > 0} {
set srmSimType [lindex $argv 0]
} else {
set srmSimType Probabilistic
}
source ../mcast/srm-nam.tcl ;# to separate control messages.
#source ../mcast/srm-debug.tcl ;# to trace delay compute fcn. details.
set ns [new Simulator -multicast on]
$ns trace-all [open out.tr w]
$ns namtrace-all [open out.nam w]
# make the nodes
set nmax 8
for {set i 0} {$i <= $nmax} {incr i} {
set n($i) [$ns node]
}
# now the links
for {set i 1} {$i <= $nmax} {incr i} {
$ns duplex-link $n($i) $n(0) 1.5Mb 10ms DropTail
}
set group [Node allocaddr]
set cmc [$ns mrtproto CtrMcast {}]
$ns at 0.3 "$cmc switch-treetype $group"
# now the multicast, and the agents
set srmStats [open srmStats.tr w]
set srmEvents [open srmEvents.tr w]
set fid 0
for {set i 1} {$i <= $nmax} {incr i} {
set srm($i) [new Agent/SRM/$srmSimType]
$srm($i) set dst_addr_ $group
$srm($i) set dst_port_ 0
$srm($i) set fid_ [incr fid]
$srm($i) log $srmStats
$srm($i) trace $srmEvents
$ns at 1.0 "$srm($i) start"
$ns attach-agent $n($i) $srm($i)
}
# Attach a data source to srm(1)
set packetSize 800
set s [new Application/Traffic/CBR]
$s set packetSize_ $packetSize
$s set interval_ 0.02
$s attach-agent $srm(1)
$srm(1) set tg_ $s
$srm(1) set app_fid_ 0
$srm(1) set packetSize_ $packetSize
$ns at 3.5 "$srm(1) start-source"
#$ns rtmodel-at 3.519 down $n(0) $n(1) ;# this ought to drop exactly one
#$ns rtmodel-at 3.521 up $n(0) $n(1) ;# data packet?
set loss_module [new SRMErrorModel]
$loss_module drop-packet 2 10 1
$loss_module drop-target [$ns set nullAgent_]
$ns at 1.25 "$ns lossmodel $loss_module $n(1) $n(0)"
$ns at 4.0 "finish $s"
proc distDump interval {
global ns srm
foreach i [array names srm] {
set dist [$srm($i) distances?]
if {$dist != ""} {
puts "[format %7.4f [$ns now]] distances $dist"
}
}
$ns at [expr [$ns now] + $interval] "distDump $interval"
}
#$ns at 0.0 "distDump 1"
proc finish src {
global prog ns env srmStats srmEvents srm nmax
$src stop
$ns flush-trace ;# NB> Did not really close out.tr...:-)
close $srmStats
close $srmEvents
set avg_info [open srm-avg-info w]
puts $avg_info "avg:\trep-delay\treq-delay\trep-dup\t\treq-dup"
foreach index [lsort -integer [array name srm]] {
set tmplist [$srm($index) array get stats_]
puts $avg_info "$index\t[format %7.4f [lindex $tmplist 1]]\t\t[format %7.4f [lindex $tmplist 5]]\t\t[format %7.4f [lindex $tmplist 9]]\t\t[format %7.4f [lindex $tmplist 13]]"
}
flush $avg_info
close $avg_info
#puts "converting output to nam format..."
#exec awk -f ../nam-demo/nstonam.awk out.tr > $prog-nam.tr
if [info exists env(DISPLAY)] {
puts "running nam..."
exec nam out.nam &
} else {
exec cat srmStats.tr >@stdout
}
exit 0
}
$ns run
|
