set ns [new Simulator]
$ns multicast

$ns color 1 Yellow
$ns color 2 Red
$ns color 3 Blue

set nf [open out.nam w]
$ns namtrace-all $nf

proc finish { } {
                 global ns nf
                 $ns flush-trace
                 close $nf
                 exec nam out.nam &
                 exit 0
                }

set asterisco [Node allocaddr]
set stellina [Node allocaddr]
set punto [Node allocaddr]

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]
set n10 [$ns node]

$ns duplex-link $n0 $n1 1.5Mb 10ms DropTail
$ns duplex-link $n0 $n5 1.5Mb 10ms DropTail
$ns duplex-link $n0 $n6 1.5Mb 10ms DropTail
$ns duplex-link $n1 $n3 1.5Mb 10ms DropTail
$ns duplex-link $n1 $n2 1.5Mb 10ms DropTail
$ns duplex-link $n2 $n3 1.5Mb 10ms DropTail
$ns duplex-link $n3 $n4 1.5Mb 10ms DropTail
$ns duplex-link $n4 $n5 1.5Mb 10ms DropTail
$ns duplex-link $n4 $n8 1.5Mb 10ms DropTail
$ns duplex-link $n5 $n7 1.5Mb 10ms DropTail
$ns duplex-link $n6 $n7 1.5Mb 10ms DropTail
$ns duplex-link $n7 $n8 1.5Mb 10ms DropTail
$ns duplex-link $n7 $n9 1.5Mb 10ms DropTail
$ns duplex-link $n7 $n10 1.5Mb 10ms DropTail
$ns duplex-link $n8 $n9 1.5Mb 10ms DropTail
$ns duplex-link $n9 $n10 1.5Mb 10ms DropTail



set mproto detailedDM
set mrthandle [$ns mrtproto $mproto { } ]

set udp01 [new Agent/UDP]
$ns attach-agent $n0 $udp01
set src01 [new Application/Traffic/CBR]
$src01 attach-agent $udp01
$udp01 set dst_ $asterisco
$udp01 set fid_ 1

set udp02 [new Agent/UDP]
$ns attach-agent $n0 $udp02
set src02 [new Application/Traffic/CBR]
$src02 attach-agent $udp02
$udp02 set dst_ $stellina
$udp02 set fid_ 2

set udp03 [new Agent/UDP]
$ns attach-agent $n0 $udp03
set src03 [new Application/Traffic/CBR]
$src03 attach-agent $udp03
$udp03 set dst_ $punto
$udp03 set fid_ 3

set rec2 [new Agent/LossMonitor]
$ns attach-agent $n2 $rec2
set rec3 [new Agent/LossMonitor]
$ns attach-agent $n3 $rec3
set rec4 [new Agent/LossMonitor]
$ns attach-agent $n4 $rec4
set rec5 [new Agent/LossMonitor]
$ns attach-agent $n5 $rec5
set rec7 [new Agent/LossMonitor]
$ns attach-agent $n7 $rec7
set rec8 [new Agent/LossMonitor]
$ns attach-agent $n8 $rec8
set rec9 [new Agent/LossMonitor]
$ns attach-agent $n9 $rec9
set rec10 [new Agent/LossMonitor]
$ns attach-agent $n10 $rec10

#set mcastmonitor1 [$ns McastMonitor]
#$mcastmonitor1 set period_ 0.02
#$mcastmonitor1 trace-tree $src01 $asterisco

#set mcastmonitor2 [$ns McastMonitor]
#$mcastmonitor2 set period_ 0.02
#$mcastmonitor2 trace-tree $src02 $stellina

#set mcastmonitor3 [$ns McastMonitor]
#$mcastmonitor3 set period_ 0.02
#$mcastmonitor3 trace-tree $src03 $punto

$ns at 0.3 "$src02 start"
$ns at 0.6 "$n2 join-group $rec2 $stellina"
$ns at 0.6 "$n2 color red"
$ns at 0.6 "$n8 join-group $rec8 $stellina"
$ns at 0.6 "$n8 color red"
$ns at 0.6 "$n9 join-group $rec9 $stellina"
$ns at 0.6 "$n9 color red"
$ns at 0.6 "$n10 join-group $rec10 $stellina"
$ns at 0.6 "$n10 color red"

$ns at 1.3 "$src01 start"
$ns at 1.6 "$n3 join-group $rec3 $asterisco"
$ns at 1.6 "$n3 color yellow"
$ns at 1.6 "$n4 join-group $rec4 $asterisco"
$ns at 1.6 "$n4 color yellow"

$ns at 2.3 "$src03 start"
$ns at 2.6 "$n4 join-group $rec4 $punto"
$ns at 2.6 "$n4 add-mark color blue"
$ns at 2.6 "$n5 join-group $rec5 $punto"
$ns at 2.6 "$n5 color blue"
$ns at 2.6 "$n7 join-group $rec7 $punto"
$ns at 2.6 "$n7 color blue"

$ns at 3.3 "finish"
$ns run