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
|
#
# 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: 1999/09/09 03:29:48 $
#
# @(#) $Header: /cvsroot/nsnam/ns-2/tcl/ex/srm-chain-session.tcl,v 1.6 1999/09/09 03:29:48 salehi 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 Deterministic
}
source ../mcast/srm-nam.tcl ;# to separate control messages.
#source ../mcast/srm-debug.tcl ;# to trace delay compute fcn. details.
set ns [new SessionSim]
$ns trace-all [open out.tr w]
# make the nodes
set nmax 5
for {set i 0} {$i <= $nmax} {incr i} {
set n($i) [$ns node]
}
# now the links
set chainMax [expr $nmax - 1]
set j 0
for {set i 1} {$i <= $chainMax} {incr i} {
$ns duplex-link $n($i) $n($j) 1.5Mb 10ms DropTail
set j $i
}
$ns duplex-link $n([expr $nmax - 2]) $n($nmax) 1.5Mb 10ms DropTail
#$ns queue-limit $n(0) $n(1) 2 ;# q-limit is 1 more than max #packets in q.
#$ns queue-limit $n(1) $n(0) 2
set group [Node allocaddr]
# now the multicast, and the agents
set srmStats [open srmStatsSes.tr w]
set srmEvents [open srmEventsSes.tr w]
#$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 insert-loss $loss_module 0 1
set fid 0
for {set i 0} {$i <= 5} {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) trace $srmEvents
$srm($i) log $srmStats
$ns at 1.0 "$srm($i) start"
$ns attach-agent $n($i) $srm($i)
set sessionhelper($i) [$ns create-session $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.04
$s attach-agent $srm(0)
$srm(0) set tg_ $s
$srm(0) set app_fid_ 0
$srm(0) set packetSize_ $packetSize
$ns at 3.5 "$srm(0) start-source"
proc distDump {} {
global srm
foreach i [array names srm] {
puts "distances [$srm($i) distances?]"
}
puts "---"
}
$ns at 3.3 "distDump"
proc finish src {
$src stop
global prog ns srmStats srmEvents srm
$ns flush-trace ;# NB> Did not really close out.tr...:-)
close $srmStats
close $srmEvents
set avg_info [open ses-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
exit 0
}
$ns at 4.0 "finish $s"
$ns run
|
