| 1 | set ns [new Simulator] |
|---|
| 2 | source tb_compat.tcl |
|---|
| 3 | |
|---|
| 4 | foreach node {n1 n2 n3} { |
|---|
| 5 | set $node [$ns node] |
|---|
| 6 | tb-set-node-os $node FC6-STD |
|---|
| 7 | } |
|---|
| 8 | |
|---|
| 9 | set link1 [$ns duplex-link $n1 $n2 1000Mb 0ms DropTail] |
|---|
| 10 | set link2 [$ns duplex-link $n2 $n3 1000Mb 0ms DropTail] |
|---|
| 11 | |
|---|
| 12 | $ns rtproto Static |
|---|
| 13 | $ns run |
|---|
