Please help i am trying to simulate a diff-serv network that has 16 source and 16 destination nodes uses TSW3CM marker. i have filled all the policy and policer enteries when i run the code it gives error: no policy table entry found but all the entries are allready filled . Plese tell me if there is any lmit of assigning a number of aggregates to a single code point. the code is given below plzzzzzzz review it help me set ns [new Simulator] set cir 100 set pir 1000 set flows 80 set testTime 10.0 set packetSize 512 # setting up trace files set tf [open my.tr w] $ns trace-all $tf set nf [open my.nam w] $ns namtrace-all $nf # Set up the network topology shown at the top of this file: set s1 [$ns node] set s2 [$ns node] set s3 [$ns node] set s4 [$ns node] set s5 [$ns node] set s6 [$ns node] set s7 [$ns node] set s8 [$ns node] set s9 [$ns node] set s10 [$ns node] set s11 [$ns node] set s12 [$ns node] set s13 [$ns node] set s14 [$ns node] set s15 [$ns node] set s16 [$ns node] set e1 [$ns node] set c [$ns node] set e2 [$ns node] set d1 [$ns node] set d2 [$ns node] set d3 [$ns node] set d4 [$ns node] set d5 [$ns node] set d6 [$ns node] set d7 [$ns node] set d8 [$ns node] set d9 [$ns node] set d10 [$ns node] set d11 [$ns node] set d12 [$ns node] set d13 [$ns node] set d14 [$ns node] set d15 [$ns node] set d16 [$ns node] $ns duplex-link $s1 $e1 10Mb 1ms DropTail $ns queue-limit $s1 $e1 50 $ns duplex-link $s2 $e1 10Mb 1ms DropTail $ns queue-limit $s2 $e1 50 $ns duplex-link $s3 $e1 10Mb 1ms DropTail $ns queue-limit $s3 $e1 50 $ns duplex-link $s4 $e1 10Mb 1ms DropTail $ns queue-limit $s4 $e1 50 $ns duplex-link $s5 $e1 10Mb 1ms DropTail $ns queue-limit $s5 $e1 50 $ns duplex-link $s6 $e1 10Mb 1ms DropTail $ns queue-limit $s6 $e1 50 $ns duplex-link $s7 $e1 10Mb 1ms DropTail $ns queue-limit $s7 $e1 50 $ns duplex-link $s8 $e1 10Mb 1ms DropTail $ns queue-limit $s8 $e1 50 $ns duplex-link $s9 $e1 10Mb 1ms DropTail $ns queue-limit $s9 $e1 50 $ns duplex-link $s10 $e1 10Mb 1ms DropTail $ns queue-limit $s10 $e1 50 $ns duplex-link $s11 $e1 10Mb 1ms DropTail $ns queue-limit $s11 $e1 50 $ns duplex-link $s12 $e1 10Mb 1ms DropTail $ns queue-limit $s12 $e1 50 $ns duplex-link $s13 $e1 10Mb 1ms DropTail $ns queue-limit $s13 $e1 50 $ns duplex-link $s14 $e1 10Mb 1ms DropTail $ns queue-limit $s14 $e1 50 $ns duplex-link $s15 $e1 10Mb 1ms DropTail $ns queue-limit $s15 $e1 50 $ns duplex-link $s16 $e1 10Mb 1ms DropTail $ns queue-limit $s16 $e1 50 $ns simplex-link $e1 $c 4.5Mb 5ms dsRED/edge $ns queue-limit $e1 $c 50 $ns simplex-link $c $e1 4.5Mb 5ms dsRED/core $ns queue-limit $c $e1 50 $ns simplex-link $c $e2 45Mb 5ms dsRED/core $ns queue-limit $c $e2 50 $ns simplex-link $e2 $c 45Mb 5ms dsRED/edge $ns queue-limit $e2 $c 50 $ns duplex-link $e2 $d1 10Mb 1ms DropTail $ns queue-limit $e2 $d1 50 $ns duplex-link $e2 $d2 10Mb 1ms DropTail $ns queue-limit $e2 $d2 50 $ns duplex-link $e2 $d3 10Mb 1ms DropTail $ns queue-limit $e2 $d3 50 $ns duplex-link $e2 $d4 10Mb 1ms DropTail $ns queue-limit $e2 $d4 50 $ns duplex-link $e2 $d5 10Mb 1ms DropTail $ns queue-limit $e2 $d5 50 $ns duplex-link $e2 $d6 10Mb 1ms DropTail $ns queue-limit $e2 $d6 50 $ns duplex-link $e2 $d7 10Mb 1ms DropTail $ns queue-limit $e2 $d7 50 $ns duplex-link $e2 $d8 10Mb 1ms DropTail $ns queue-limit $e2 $d8 50 $ns duplex-link $e2 $d9 10Mb 1ms DropTail $ns queue-limit $e2 $d9 50 $ns duplex-link $e2 $d10 10Mb 1ms DropTail $ns queue-limit $e2 $d10 50 $ns duplex-link $e2 $d11 10Mb 1ms DropTail $ns queue-limit $e2 $d11 50 $ns duplex-link $e2 $d12 10Mb 1ms DropTail $ns queue-limit $e2 $d12 50 $ns duplex-link $e2 $d13 10Mb 1ms DropTail $ns queue-limit $e2 $d13 50 $ns duplex-link $e2 $d14 10Mb 1ms DropTail $ns queue-limit $e2 $d14 50 $ns duplex-link $e2 $d15 10Mb 1ms DropTail $ns queue-limit $e2 $d15 50 $ns duplex-link $e2 $d16 10Mb 1ms DropTail $ns queue-limit $e2 $d16 50 set qE1C [[$ns link $e1 $c] queue] set qE2C [[$ns link $e2 $c] queue] set qCE1 [[$ns link $c $e1] queue] set qCE2 [[$ns link $c $e2] queue] # Set DS RED parameters from Edge1 to Core: $qE1C meanPktSize $packetSize $qE1C set numQueues_ 1 $qE1C setNumPrec 3 $qE1C addPolicyEntry [$s1 id] [$d1 id] TSW3CM 10 $cir $pir $qE1C addPolicyEntry [$s2 id] [$d2 id] TSW3CM 10 $cir $pir $qE1C addPolicyEntry [$s3 id] [$d3 id] TSW3CM 10 $cir $pir $qE1C addPolicyEntry [$s4 id] [$d4 id] TSW3CM 10 $cir $pir $qE1C addPolicyEntry [$s5 id] [$d5 id] TSW3CM 10 $cir $pir $qE1C addPolicyEntry [$s6 id] [$d6 id] TSW3CM 10 $cir $pir $qE1C addPolicyEntry [$s7 id] [$d7 id] TSW3CM 10 $cir $pir $qE1C addPolicyEntry [$s8 id] [$d8 id] TSW3CM 10 $cir $pir $qE1C addPolicyEntry [$s9 id] [$d9 id] TSW3CM 10 $cir $pir $qE1C addPolicyEntry [$s10 id] [$d10 id] TSW3CM 10 $cir $pir $qE1C addPolicyEntry [$s11 id] [$d11 id] TSW3CM 10 $cir $pir $qE1C addPolicyEntry [$s12 id] [$d12 id] TSW3CM 10 $cir $pir $qE1C addPolicyEntry [$s13 id] [$d13 id] TSW3CM 10 $cir $pir $qE1C addPolicyEntry [$s14 id] [$d14 id] TSW3CM 10 $cir $pir $qE1C addPolicyEntry [$s15 id] [$d15 id] TSW3CM 10 $cir $pir $qE1C addPolicyEntry [$s16 id] [$d16 id] TSW3CM 10 $cir $pir $qE1C addPolicerEntry TSW3CM 10 11 12 $qE1C addPHBEntry 10 0 0 $qE1C addPHBEntry 11 0 1 $qE1C addPHBEntry 12 0 2 $qE1C configQ 0 0 20 40 0.02 $qE1C configQ 0 1 10 20 0.10 $qE1C configQ 0 2 5 10 0.20 # Set DS RED parameters from Edge2 to Core: $qE2C meanPktSize $packetSize $qE2C set numQueues_ 1 $qE2C setNumPrec 3 $qE2C addPolicyEntry [$d1 id] [$s1 id] TSW3CM 10 $cir $pir $qE2C addPolicyEntry [$d2 id] [$s2 id] TSW3CM 10 $cir $pir $qE2C addPolicyEntry [$d3 id] [$s3 id] TSW3CM 10 $cir $pir $qE2C addPolicyEntry [$d4 id] [$s4 id] TSW3CM 10 $cir $pir $qE2C addPolicyEntry [$d5 id] [$s5 id] TSW3CM 10 $cir $pir $qE2C addPolicyEntry [$d6 id] [$s6 id] TSW3CM 10 $cir $pir $qE2C addPolicyEntry [$d7 id] [$s7 id] TSW3CM 10 $cir $pir $qE2C addPolicyEntry [$d8 id] [$s8 id] TSW3CM 10 $cir $pir $qE2C addPolicyEntry [$d9 id] [$s9 id] TSW3CM 10 $cir $pir $qE2C addPolicyEntry [$d10 id] [$s10 id] TSW3CM 10 $cir $pir $qE2C addPolicyEntry [$d11 id] [$s11 id] TSW3CM 10 $cir $pir $qE2C addPolicyEntry [$d12 id] [$s12 id] TSW3CM 10 $cir $pir $qE2C addPolicyEntry [$d13 id] [$s13 id] TSW3CM 10 $cir $pir $qE2C addPolicyEntry [$d14 id] [$s14 id] TSW3CM 10 $cir $pir $qE2C addPolicyEntry [$d15 id] [$s15 id] TSW3CM 10 $cir $pir $qE2C addPolicyEntry [$d16 id] [$s16 id] TSW3CM 10 $cir $pir $qE2C addPolicerEntry TSW3CM 10 11 12 $qE2C addPHBEntry 10 0 0 $qE2C addPHBEntry 11 0 1 $qE2C addPHBEntry 12 0 2 $qE2C configQ 0 0 20 40 0.02 $qE2C configQ 0 1 10 20 0.10 $qE2C configQ 0 2 5 10 0.20 # Set DS RED parameters from Core to Edge1: $qCE1 meanPktSize $packetSize $qCE1 set numQueues_ 1 $qCE1 setNumPrec 3 $qCE1 addPHBEntry 10 0 0 $qCE1 addPHBEntry 11 0 1 $qCE1 addPHBEntry 12 0 2 $qCE1 configQ 0 0 20 40 0.02 $qCE1 configQ 0 1 10 20 0.10 $qCE1 configQ 0 2 5 10 0.20 # Set DS RED parameters from Core to Edge2: $qCE2 meanPktSize $packetSize $qCE2 set numQueues_ 1 $qCE2 setNumPrec 3 $qCE2 addPHBEntry 10 0 0 $qCE2 addPHBEntry 11 0 1 $qCE2 addPHBEntry 12 0 2 $qCE2 configQ 0 0 20 40 0.02 $qCE2 configQ 0 1 10 20 0.10 $qCE2 configQ 0 2 5 10 0.20 # Set up one TCP connection between each source and the destination: for {set j 1} {$j<=$flows} { incr j } { set tcp1($j) [new Agent/TCP] $tcp1($j) set t_seqno_ 0 $tcp1($j) set seqno_ 3 $tcp1($j) set packetSize_ $packetSize $ns attach-agent $s1 $tcp1($j) set ftp1($j) [new Application/FTP] $ftp1($j) attach-agent $tcp1($j) set null1($j) [new Agent/Null] $ns attach-agent $d1 $null1($j) $ns connect $tcp1($j) $null1($j) } for {set j 1} {$j<=$flows} { incr j } { set tcp2($j) [new Agent/TCP] $tcp2($j) set t_seqno_ 0 $tcp2($j) set seqno_ 3 $tcp2($j) set packetSize_ $packetSize $ns attach-agent $s2 $tcp2($j) set ftp2($j) [new Application/FTP] $ftp2($j) attach-agent $tcp2($j) set null2($j) [new Agent/Null] $ns attach-agent $d2 $null2($j) $ns connect $tcp2($j) $null2($j) } for {set j 1} {$j<=$flows} { incr j } { set tcp3($j) [new Agent/TCP] $tcp3($j) set t_seqno_ 0 $tcp3($j) set seqno_ 3 $tcp3($j) set packetSize_ $packetSize $ns attach-agent $s3 $tcp3($j) set ftp3($j) [new Application/FTP] $ftp3($j) attach-agent $tcp3($j) set null3($j) [new Agent/Null] $ns attach-agent $d3 $null3($j) $ns connect $tcp3($j) $null3($j) } for {set j 1} {$j<=$flows} { incr j } { set tcp4($j) [new Agent/TCP] $tcp4($j) set t_seqno_ 0 $tcp4($j) set seqno_ 3 $tcp4($j) set packetSize_ $packetSize $ns attach-agent $s4 $tcp4($j) set ftp4($j) [new Application/FTP] $ftp4($j) attach-agent $tcp4($j) set null4($j) [new Agent/Null] $ns attach-agent $d4 $null4($j) $ns connect $tcp4($j) $null4($j) } for {set j 1} {$j<=$flows} { incr j } { set tcp5($j) [new Agent/TCP] $tcp5($j) set t_seqno_ 0 $tcp5($j) set seqno_ 3 $tcp5($j) set packetSize_ $packetSize $ns attach-agent $s5 $tcp5($j) set ftp5($j) [new Application/FTP] $ftp5($j) attach-agent $tcp5($j) set null5($j) [new Agent/Null] $ns attach-agent $d5 $null5($j) $ns connect $tcp5($j) $null5($j) } for {set j 1} {$j<=$flows} { incr j } { set tcp6($j) [new Agent/TCP] $tcp6($j) set t_seqno_ 0 $tcp6($j) set seqno_ 3 $tcp6($j) set packetSize_ $packetSize $ns attach-agent $s6 $tcp6($j) set ftp6($j) [new Application/FTP] $ftp6($j) attach-agent $tcp6($j) set null6($j) [new Agent/Null] $ns attach-agent $d6 $null6($j) $ns connect $tcp6($j) $null6($j) } for {set j 1} {$j<=$flows} { incr j } { set tcp7($j) [new Agent/TCP] $tcp7($j) set t_seqno_ 0 $tcp7($j) set seqno_ 3 $tcp7($j) set packetSize_ $packetSize $ns attach-agent $s7 $tcp7($j) set ftp7($j) [new Application/FTP] $ftp7($j) attach-agent $tcp7($j) set null7($j) [new Agent/Null] $ns attach-agent $d7 $null7($j) $ns connect $tcp7($j) $null7($j) } for {set j 1} {$j<=$flows} { incr j } { set tcp8($j) [new Agent/TCP] $tcp8($j) set t_seqno_ 0 $tcp8($j) set seqno_ 3 $tcp8($j) set packetSize_ $packetSize $ns attach-agent $s8 $tcp8($j) set ftp8($j) [new Application/FTP] $ftp8($j) attach-agent $tcp8($j) set null8($j) [new Agent/Null] $ns attach-agent $d8 $null8($j) $ns connect $tcp8($j) $null8($j) } for {set j 1} {$j<=$flows} { incr j } { set tcp9($j) [new Agent/TCP] $tcp9($j) set t_seqno_ 0 $tcp9($j) set seqno_ 3 $tcp9($j) set packetSize_ $packetSize $ns attach-agent $s9 $tcp9($j) set ftp9($j) [new Application/FTP] $ftp9($j) attach-agent $tcp9($j) set null9($j) [new Agent/Null] $ns attach-agent $d9 $null9($j) $ns connect $tcp9($j) $null9($j) } for {set j 1} {$j<=$flows} { incr j } { set tcp10($j) [new Agent/TCP] $tcp10($j) set t_seqno_ 0 $tcp10($j) set seqno_ 3 $tcp10($j) set packetSize_ $packetSize $ns attach-agent $s10 $tcp10($j) set ftp10($j) [new Application/FTP] $ftp10($j) attach-agent $tcp10($j) set null10($j) [new Agent/Null] $ns attach-agent $d10 $null10($j) $ns connect $tcp10($j) $null10($j) } for {set j 1} {$j<=$flows} { incr j } { set tcp11($j) [new Agent/TCP] $tcp11($j) set t_seqno_ 0 $tcp11($j) set seqno_ 3 $tcp11($j) set packetSize_ $packetSize $ns attach-agent $s11 $tcp11($j) set ftp11($j) [new Application/FTP] $ftp11($j) attach-agent $tcp11($j) set null11($j) [new Agent/Null] $ns attach-agent $d11 $null11($j) $ns connect $tcp11($j) $null11($j) } for {set j 1} {$j<=$flows} { incr j } { set tcp12($j) [new Agent/TCP] $tcp12($j) set t_seqno_ 0 $tcp12($j) set seqno_ 3 $tcp12($j) set packetSize_ $packetSize $ns attach-agent $s12 $tcp12($j) set ftp12($j) [new Application/FTP] $ftp12($j) attach-agent $tcp12($j) set null12($j) [new Agent/Null] $ns attach-agent $d12 $null12($j) $ns connect $tcp12($j) $null12($j) } for {set j 1} {$j<=$flows} { incr j } { set tcp13($j) [new Agent/TCP] $tcp13($j) set t_seqno_ 0 $tcp13($j) set seqno_ 3 $tcp13($j) set packetSize_ $packetSize $ns attach-agent $s13 $tcp13($j) set ftp13($j) [new Application/FTP] $ftp13($j) attach-agent $tcp13($j) set null13($j) [new Agent/Null] $ns attach-agent $d13 $null13($j) $ns connect $tcp13($j) $null13($j) } for {set j 1} {$j<=$flows} { incr j } { set tcp14($j) [new Agent/TCP] $tcp14($j) set t_seqno_ 0 $tcp14($j) set seqno_ 3 $tcp14($j) set packetSize_ $packetSize $ns attach-agent $s14 $tcp14($j) set ftp14($j) [new Application/FTP] $ftp14($j) attach-agent $tcp14($j) set null14($j) [new Agent/Null] $ns attach-agent $d14 $null14($j) $ns connect $tcp14($j) $null14($j) } for {set j 1} {$j<=$flows} { incr j } { set tcp15($j) [new Agent/TCP] $tcp15($j) set t_seqno_ 0 $tcp15($j) set seqno_ 3 $tcp15($j) set packetSize_ $packetSize $ns attach-agent $s15 $tcp15($j) set ftp15($j) [new Application/FTP] $ftp15($j) attach-agent $tcp15($j) set null15($j) [new Agent/Null] $ns attach-agent $d15 $null15($j) $ns connect $tcp15($j) $null15($j) } for {set j 1} {$j<=$flows} { incr j } { set tcp16($j) [new Agent/TCP] $tcp16($j) set t_seqno_ 0 $tcp16($j) set seqno_ 3 $tcp16($j) set packetSize_ $packetSize $ns attach-agent $s12 $tcp16($j) set ftp16($j) [new Application/FTP] $ftp16($j) attach-agent $tcp16($j) set null16($j) [new Agent/Null] $ns attach-agent $d16 $null16($j) $ns connect $tcp16($j) $null16($j) } proc finish {} { global ns tf nf $ns flush-trace close $tf close $nf exec nam my.nam & exit 0 } $qE1C printPolicyTable $qE1C printPolicerTable for {set j 1} {$j<=$flows} {incr j} { $ns at 0.0 "$ftp1($j) start" $ns at 0.0 "$ftp2($j) start" $ns at 0.0 "$ftp3($j) start" $ns at 0.0 "$ftp4($j) start" $ns at 0.0 "$ftp5($j) start" $ns at 0.0 "$ftp6($j) start" $ns at 0.0 "$ftp7($j) start" $ns at 0.0 "$ftp8($j) start" $ns at 0.0 "$ftp9($j) start" $ns at 0.0 "$ftp10($j) start" $ns at 0.0 "$ftp11($j) start" $ns at 0.0 "$ftp12($j) start" $ns at 0.0 "$ftp13($j) start" $ns at 0.0 "$ftp14($j) start" $ns at 0.0 "$ftp15($j) start" $ns at 0.0 "$ftp16($j) start" $ns at 1.0 "$qE1C printStats" $ns at 9.0 "$qE1C printStats" $ns at $testTime "$ftp1($j) stop" $ns at $testTime "$ftp2($j) stop" $ns at $testTime "$ftp3($j) stop" $ns at $testTime "$ftp4($j) stop" $ns at $testTime "$ftp5($j) stop" $ns at $testTime "$ftp6($j) stop" $ns at $testTime "$ftp7($j) stop" $ns at $testTime "$ftp8($j) stop" $ns at $testTime "$ftp9($j) stop" $ns at $testTime "$ftp10($j) stop" $ns at $testTime "$ftp11($j) stop" $ns at $testTime "$ftp12($j) stop" $ns at $testTime "$ftp13($j) stop" $ns at $testTime "$ftp14($j) stop" $ns at $testTime "$ftp15($j) stop" $ns at $testTime "$ftp16($j) stop" $ns at [expr $testTime + 1.0] "finish" } $ns run