返回信息流set dotrace 1
set stoptime 200.0
set owdelay 100ms
set myaddr "10.0.0.2"
set ns [new Simulator]
if { $dotrace } {
set allchan [open em-all.tr w]
$ns trace-all $allchan
set namchan [open em.nam w]
$ns namtrace-all $namchan
}
$ns use-scheduler RealTime
set bpf2 [new Network/Pcap/Live]; # used to read IP info
$bpf2 set promisc_ true
set dev2 [$bpf2 open readonly eth0]
#---------------------------------------------------
#
#config Quenue/JoBS
#
Queue/JoBS set drop_front_ false
Queue/JoBS set trace_hop_ true
Queue/JoBS set adc_resolution_type_ 0
Queue/JoBS set shared_buffer_ 1
Queue/JoBS set mean_pkt_size_ 4000
Queue/Demarker set demarker_arrvs1_ 0
Queue/Demarker set demarker_arrvs2_ 0
Queue/Demarker set demarker_arrvs3_ 0
Queue/Demarker set demarker_arrvs4_ 0
Queue/Marker set demarker_arrvs1_ 0
Queue/Marker set demarker_arrvs2_ 0
Queue/Marker set demarker_arrvs3_ 0
Queue/Marker set demarker_arrvs4_ 0
#***********
set bw 1000000
set delay 0.001
set buff 500
#***********
#---------------------------------------------------
set ipnet [new Network/IP]; # used to write IP pkts
$ipnet open writeonly
#
# try to filter out unwanted stuff like netbios pkts, dns, etc
#
$bpf2 filter "icmp and dst $myaddr"
set pfa1 [new Agent/Tap]
set pfa2 [new Agent/Tap]
set ipa [new Agent/Tap]
set echoagent [new Agent/PingResponder]
set dstaddr "192.168.11.154"
puts "install nets into taps..."
$pfa2 set fid_ 0
$ipa set fid_ 1
$pfa2 network $bpf2
$ipa network $ipnet
set node0 [$ns node]
set route_s [$ns node]
set node1 [$ns node]
set node2 [$ns node]
set route_d [$ns node]
$ns simplex-link $route_s $node2 1Mb 100ms JoBS
#config duplex-link JoBS
$ns queue-limit $route_s $node2 $buff
set l [$ns get-link $route_s $node2]
set q [$l queue]
$q init-rdcs -1 2 2 2
$q init-rlcs -1 2 2 2
$q init-alcs 0.01 -1 -1 -1
$q init-adcs 0.005 -1 -1 -1
$q init-arcs -1 -1 -1 500000
$q link [$l link]
$q trace-file jobstrace
$q sampling-period 1
$q id 1
$q initialize
$ns simplex-link $node0 $route_s 1Mb 100ms Marker
$ns queue-limit $node0 $route_s [expr $buff*10]
$ns queue-limit $route_s $node0 [expr $buff*10]
set q [$ns get-queue $node0 $route_s]
$q marker_type 2
$q marker_frc 0.1 0.2 0.3 0.4
$ns duplex-link $node2 $route_d 1Mb 0ms DropTail
$ns duplex-link $route_d $node1 1Mb 0ms Demark
$ns queue-limit $route_d $node1 [expr $buff*10]
$q trace-file e2e
#-------------------------------------------
#
#Add Error Model for links
#
###################################################
#Error Model for Link from node0 to route_s
###################################################
set em_node0_to_route_s [new ErrorModel]
$em_node0_to_route_s unit pkt
$em_node0_to_route_s set rate_ 0
$em_node0_to_route_s ranvar [new RandomVariable/Uniform]
$em_node0_to_route_s drop-target [new Agent/Null]
$ns lossmodel $em_node0_to_route_s $node0 $route_s
###################################################
#Error Model for Link from route_d to node1
###################################################
set em_route_d_to_node1 [new ErrorModel]
$em_route_d_to_node1 unit pkt
$em_route_d_to_node1 set rate_ 0.2
$em_route_d_to_node1 ranvar [new RandomVariable/Uniform]
$em_route_d_to_node1 drop-target [new Agent/Null]
$ns lossmodel $em_route_d_to_node1 $route_d $node1
#------------------------------------------------
$ns attach-agent $node0 $pfa2; # packet filter agent
$ns attach-agent $node1 $ipa; # ip agent (for sending)
$ns attach-agent $node2 $echoagent
$ns simplex-connect $pfa2 $echoagent
$ns simplex-connect $echoagent $ipa
puts " ........... listening for IBM eth0 $myaddr"
$ns run
----------------------------------------------------------------------
[root@localhost 20090730]# nse pingchen1356_5_tar_node_qu_test.tcl
warning: no class variable Scheduler/RealTime::adjust_new_width_interval_
see tcl-object.tcl in tclcl for info about this warning.
warning: no class variable Scheduler/RealTime::min_bin_width_
install nets into taps...
TapAgent(_o14): linked sock 5 as READABLE
get-node-id-by-addr:Cannot find node with given address
while executing
"error "get-node-id-by-addr:Cannot find node with given address""
(procedure "_o3" line 10)
(Simulator get-node-id-by-addr line 10)
invoked from within
"$self get-node-id-by-addr $addr"
(procedure "_o3" line 4)
(Simulator get-link line 4)
invoked from within
"$ns get-link $route_s $node2"
invoked from within
"set l [$ns get-link $route_s $node2]"
(file "pingchen1356_5_tar_node_qu_test.tcl" line 114)
这是一条镜像帖。来源：北邮人论坛 / communications / #10488同步于 2009/7/30
该镜像源已超过 30 天没有更新，可能在源站已被删除。
Communications机器人发帖
[求助]请帮忙看看我NS2的问题 不知道怎么搞得
seasonchen
2009/7/30镜像同步1 回复
订阅后，新回复会通过你的通知中心匿名送达。
1 条回复