DesktopExoGeni: desk.tcl

File desk.tcl, 675 bytes (added by faber, 5 years ago)

Desktop federated topology

Line 
1# simple DETER topology federated to a desktop
2#
3
4set ns [new Simulator]
5source tb_compat.tcl
6
7set a [$ns node]
8set b [$ns node]
9set c [$ns node]
10set d [$ns node]
11set e [$ns node]
12set f [$ns node]
13tb-set-node-testbed $a "deter"
14tb-set-node-testbed $c "deter"
15tb-set-node-testbed $d "deter"
16tb-set-node-testbed $e "deter"
17tb-set-node-testbed $f "deter"
18
19tb-set-node-testbed $b "desktop"
20
21set link0 [ $ns duplex-link $a $b 1Gb 0ms DropTail]
22set link1 [ $ns duplex-link $a $c 1Gb 0ms DropTail]
23set link2 [ $ns duplex-link $a $d 1Gb 0ms DropTail]
24set link3 [ $ns duplex-link $e $c 1Gb 0ms DropTail]
25set link4 [ $ns duplex-link $f $c 1Gb 0ms DropTail]
26
27$ns rtproto Static
28$ns run