TopdlLibrary: out.tcl

set ns [new Simulator]
source tb_compat.tcl

set r(0) [$ns node]
tb-set-node-os ${r(0)} FBSD8-STD

set r(1) [$ns node]
tb-set-node-os ${r(1)} FBSD8-STD

set r(2) [$ns node]
tb-set-node-os ${r(2)} FBSD8-STD

set r(3) [$ns node]
tb-set-node-os ${r(3)} FBSD8-STD

set leaf0 [$ns node]
tb-set-node-os ${leaf0} Ubuntu1204-64-STD

set leaf1 [$ns node]
tb-set-node-os ${leaf1} Ubuntu1204-64-STD

set leaf2 [$ns node]
tb-set-node-os ${leaf2} Ubuntu1204-64-STD

set leaf3 [$ns node]
tb-set-node-os ${leaf3} Ubuntu1204-64-STD

set leaf4 [$ns node]
tb-set-node-os ${leaf4} Ubuntu1204-64-STD

set leaf5 [$ns node]
tb-set-node-os ${leaf5} Ubuntu1204-64-STD

set leaf6 [$ns node]
tb-set-node-os ${leaf6} Ubuntu1204-64-STD

set leaf7 [$ns node]
tb-set-node-os ${leaf7} Ubuntu1204-64-STD

set leaf8 [$ns node]
tb-set-node-os ${leaf8} Ubuntu1204-64-STD

set leaf9 [$ns node]
tb-set-node-os ${leaf9} Ubuntu1204-64-STD

set leaf10 [$ns node]
tb-set-node-os ${leaf10} Ubuntu1204-64-STD

set leaf11 [$ns node]
tb-set-node-os ${leaf11} Ubuntu1204-64-STD

set rlink0 [$ns make-lan "${r(0)} ${r(1)}" 100000.000000kb 0.000000ms ]

set rlink1 [$ns make-lan "${r(0)} ${r(2)}" 100000.000000kb 0.000000ms ]

set rlink2 [$ns make-lan "${r(0)} ${r(3)}" 100000.000000kb 0.000000ms ]

set rlink3 [$ns make-lan "${r(1)} ${r(2)}" 100000.000000kb 0.000000ms ]

set rlink4 [$ns make-lan "${r(1)} ${r(3)}" 100000.000000kb 0.000000ms ]

set rlink5 [$ns make-lan "${r(2)} ${r(3)}" 100000.000000kb 0.000000ms ]

set llink0 [$ns make-lan "${r(0)} ${leaf0}" 100000.000000kb 0.000000ms ]

set llink1 [$ns make-lan "${r(0)} ${leaf1}" 100000.000000kb 0.000000ms ]

set llink2 [$ns make-lan "${r(0)} ${leaf2}" 100000.000000kb 0.000000ms ]

set llink3 [$ns make-lan "${r(0)} ${leaf3}" 100000.000000kb 0.000000ms ]

set llink4 [$ns make-lan "${r(1)} ${leaf4}" 100000.000000kb 0.000000ms ]

set llink5 [$ns make-lan "${r(1)} ${leaf5}" 100000.000000kb 0.000000ms ]

set llink6 [$ns make-lan "${r(1)} ${leaf6}" 100000.000000kb 0.000000ms ]

set llink7 [$ns make-lan "${r(1)} ${leaf7}" 100000.000000kb 0.000000ms ]

set llink8 [$ns make-lan "${r(2)} ${leaf8}" 100000.000000kb 0.000000ms ]

set llink9 [$ns make-lan "${r(2)} ${leaf9}" 100000.000000kb 0.000000ms ]

set llink10 [$ns make-lan "${r(2)} ${leaf10}" 100000.000000kb 0.000000ms ]

set llink11 [$ns make-lan "${r(2)} ${leaf11}" 100000.000000kb 0.000000ms ]

set new-link0 [$ns make-lan "${leaf0} ${leaf7}" 100000.000000kb 0.000000ms ]

set new-link1 [$ns make-lan "${leaf4} ${leaf11}" 100000.000000kb 0.000000ms ]

set new-link2 [$ns make-lan "${leaf3} ${leaf8}" 100000.000000kb 0.000000ms ]

$ns rtproto Static
$ns run