or_simulation2.tcl

ns2下模拟实现洋葱路由协议

#Create a simulator object
set ns [new Simulator]

#Open a trace file
set nf [open out_1.nam w]
$ns namtrace-all $nf
set tracefd [open or_1.tr w]
$ns trace-all $tracefd

#Define a 'finish' procedure
proc finish {} {
        global ns nf
        $ns flush-trace
        close $nf
        exec nam out_1.nam &
        exit 0
}

#Create 10 nodes
set n0 [$ns node]      
set n1 [$ns node]      
set n2 [$ns node]      
set n3 [$ns node]      
set n4 [$ns node]      
set n5 [$ns node]      
set n6 [$ns node]      
set n7 [$ns node]     
set n8 [$ns node]     
set n9 [$ns node]
      
$n0 set id 0
$n1 set id 1
$n2 set id 2
$n3 set id 3
$n4 set id 4
$n5 set id 5
$n6 set id 6
$n7 set id 7
$n8 set id 8
$n9 set id 9

$n2 color blue
$n3 color blue
$n6 color blue
$n7 color blue
$n0 color red
$n1 color red
$n4 color red
$n5 color red
$n8 color red
$n9 color red

#Connect the nodes with 10 links

$ns duplex-link $n0 $n3 2Mb 10ms DropTail

$ns duplex-link $n0 $n1 2Mb 10ms DropTail

$ns duplex-link $n1 $n4 2Mb 10ms DropTail

$ns duplex-link $n2 $n1 2Mb 10ms DropTail

$ns duplex-link $n1 $n3 2Mb 10ms DropTail

$ns duplex-link $n4 $n5 2Mb 10ms DropTail

$ns duplex-link $n4 $n6 2Mb 10ms DropTail

$ns duplex-link $n6 $n7 2Mb 10ms DropTail

$ns duplex-link $n7 $n9 2Mb 10ms DropTail

$ns duplex-link $n8 $n7 2Mb 10ms DropTail

$ns duplex-link $n5 $n8 2Mb 10ms DropTail

$ns duplex-link $n2 $n0 2Mb 10ms DropTail

$ns duplex-link $n3 $n6 2Mb 10ms DropTail

$ns duplex-link $n9 $n8 2Mb 10ms DropTail

#Create two mix agents and attach them to the nodes n0 and n2
set p0 [new Agent/Or]
$ns attach-agent $n0 $p0 

set p1 [new Agent/Or]
$ns attach-agent $n1 $p1

set p2 [new Agent/Or]
$ns attach-agent $n4 $p2

set p3 [new Agent/Or]
$ns attach-agent $n5 $p3

set p4 [new Agent/Or]
$ns attach-agent $n8 $p4

set p5 [new Agent/Or]
$ns attach-agent $n9 $p5

$p0 set class_ 0
$p1 set class_ 1
$p2 set class_ 2
$p3 set class_ 3

$ns color 0 black
$ns color 1 blue
$ns color 2 red
$ns color 3 green


#Connect the the agents
$ns connect $p0 $p1
$ns connect $p1 $p2
$ns connect $p2 $p3
$ns connect $p3 $p4
$ns connect $p4 $p5

#Schedule events

$ns at 0.0 "puts \"Starting Simulation...\n\""

$ns at 0.2 "$p0 send 4 5"
$ns at 0.3 "$p0 send 4 5"
$ns at 0.4 "$p1 send 5 8"
$ns at 0.5 "$p1 send 5 8"
$ns at 0.6 "$p0 send 4 5 8"
$ns at 0.7 "$p1 send 5 8 9"

$ns at 0.9 "puts \"NS Exiting...\""

$ns at 1.0 "finish"

#Run the simulation
$ns run