set ns [new Simulator] # preamble initialization;
{\bfseries{}Queue/JoBS set drop_front_ false} # use drop-tail;
{\bfseries{}Queue/JoBS set trace_hop_ true} # enable statistic traces;
{\bfseries{}Queue/JoBS set adc_resolution_type_ 0} # see ``commands at a glance'';
{\bfseries{}Queue/JoBS set shared_buffer_ 1} # all classes share a common buffer;
{\bfseries{}Queue/JoBS set mean_pkt_size_ 4000}# we expect to receive 500-Byte pkts;
{\bfseries{}Queue/Demarker set demarker_arrvs1_ 0}# reset arrivals everywhere;
{\bfseries{}Queue/Demarker set demarker_arrvs2_ 0}
{\bfseries{}Queue/Demarker set demarker_arrvs3_ 0}
{\bfseries{}Queue/Demarker set demarker_arrvs4_ 0}
{\bfseries{}Queue/Marker set marker_arrvs1_ 0}
{\bfseries{}Queue/Marker set marker_arrvs2_ 0}
{\bfseries{}Queue/Marker set marker_arrvs3_ 0}
{\bfseries{}Queue/Marker set marker_arrvs4_ 0}
set router(1) [$ns node] # set first router;
set router(2) [$ns node] # set second router;
set source [$ns node] # set source;
set sink [$ns node] # set traffic sink;
set bw 10000000 # 10 Mbps;
set delay 0.001 # 1 ms;
set buff 500 # 500 packets;
Tom Henderson
2011-11-05