Hi I am implementing QoS for that I am using class based queue for wirless network. i made three types of traffic classess. I am taking Queue/CBQ/WRR as interface queue. then i am defining 3 priority classes and insert them into queue object. (IN cbq_example.tcl, they insert classess into cbqlink, because i m usnig wireless network which does not use Link object.) before that i am classsifing all packets by Classiffie/Hash/Fid. my code is like this ############################ # The root class set topclass [new CBQClass] $topclass setparams none 0 1 auto 8 2 0 # Highest priority class set class1 [new CBQClass] set queue1 [new Queue/DropTail] $class1 install-queue $queue1 $class1 setparams $topclass true 0.5 auto 1 1 0
# Medium priority class set class2 [new CBQClass] set queue2 [new Queue/DropTail] $class2 install-queue $queue2 $class2 setparams $topclass true 0.3 auto 2 1 0 # Low Priority class set class3 [new CBQClass] set queue3 [new Queue/DropTail] $class3 install-queue $queue3 $class3 setparams $topclass true 0.2 auto 3 1 0 ####################################################### for {set i 0} {$i < $val(nn)} {incr i} { # create nodes set node_($i) [$ns_ node] $node_($i) color "$i" $node_($i) shape "circle" # set parameters of link [$node_($i) getLL 0] set bandwidth_ 1000000 [$node_($i) getLL 0] set delay_ 0.001 #getIFQ return interface queue object, i defined this method into mobilenode.tcl, and getLL return link layer object [$node_($i) getIFQ 0] link [$node_($i) getLL 0] [$node_($i) getLL 0] ifq [$node_($i) getIFQ 0] # Insert priority classes into CBQ object [$node_($i) getIFQ 0] insert-class $topclass [$node_($i) getIFQ 0] insert-class $class1 [$node_($i) getIFQ 0] insert-class $class2 [$node_($i) getIFQ 0] insert-class $class3 #i wrote bind method into mobilenode.tcl(as mentioned below) $node_($i) bind $class1 0 $node_($i) bind $class2 1 $node_($i) bind $class2 2 $node_($i) bind $class2 3 $node_($i) bind $class3 4 ##### bind method in mobile.tcl $self instvar hashClassifier_ set $hClassifier_ hashClassifier_ set slot [$hashClassifier_ installNext $cbqClass] $hashClassifier_ set-hash auto 0 0 $fid $slot ############################################ i would be very thank ful if anybody solve my problem. Thank you. bye --------------------------------- Do you Yahoo!? Get on board. You're invited to try the new Yahoo! Mail.