File: sk-30-1-1-1-1-6-64.tcl

package info (click to toggle)
ns2 2.35%2Bdfsg-2.1
  • links: PTS, VCS
  • area: main
  • in suites: stretch
  • size: 78,780 kB
  • ctags: 27,490
  • sloc: cpp: 172,923; tcl: 107,130; perl: 6,391; sh: 6,143; ansic: 5,846; makefile: 816; awk: 525; csh: 355
file content (31 lines) | stat: -rw-r--r-- 763 bytes parent folder | download | duplicates (8)
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
#
# nodes: 30, send rate: 0.167
# seed: 0.0
#
#
# node 7 is ready to send data type 0 at time 0.036182026954452516
#
set src_(0) [new Agent/Diff_Sink]
$ns_ attach-agent $node_(7) $src_(0)
$ns_ put-in-list $src_(0)
$src_(0) set packetSize_ 64
$src_(0) set interval_ 0.167
$src_(0) data-type 0
$src_(0) always-max-rate
$src_(0) $opt(duplicate)
$node_(7) color red
$ns_ at 0.036182026954452516 "$src_(0) ready"

#
# node 3 expresses interest type 0 at time 0.036182026954452516
#
set sk_(0) [new Agent/Diff_Sink]
$ns_ attach-agent $node_(3) $sk_(0)
$ns_ put-in-list $sk_(0)
$sk_(0) set packetSize_ 64
$sk_(0) set interval_ 0.167
$sk_(0) data-type 0
$sk_(0) always-max-rate
$sk_(0) $opt(duplicate)
$node_(3) color blue
$ns_ at 0.036182026954452516 "$sk_(0) announce"