agent-gen-script.tcl

ns gpsr路由协议 在ns２平台下实现的 对大家很有好处

# This file is an example script for using the topology generator,
# the routing generator and the agents generator together as part
# of the scenario generator
# Created by Ahmed Helmy, June 98.

# source the generators code (this is not part of the release yet)
source topo-gen.tcl
source agent-gen.tcl
source route-gen.tcl

# setup the files that will contain the scripts generated
set topofile topo1.tcl
set agentfile agent1.tcl
set routefile route1.tcl

set hier_flag 1

# we remove the agentfile, to start afresh... the agentfile is
# opened in append mode and previous runs may cause problems
if { [file exists $agentfile] } {
	catch { [exec rm $agentfile] }
}

# generate the topology creation script
#puts {topology -outfile $topofile -num 50 -connection_prob 0.1}
#topology -outfile $topofile -nodes 15 -connection_prob 0.1

puts {topology -outfile $topofile -type transit_stub -nodes 50 -connection_prob 0.1}
topology -outfile $topofile -type transit_stub -nodes 50 -connection_prob 0.1

# set the route settings for unicast/mcast
puts {routing -outfile $routefile -unicast Session -multicast CtrMcast}
routing -outfile $routefile -unicast Session -multicast CtrMcast

# generate the agent creation script
# note that src and dest stub location info (for distribution of src and dest nodes)
# should be given only when topology generated is of type transit-stub

puts {agents -outfile $agentfile -transport TCP/Reno -src FTP \
	-sink TCPSink/DelAck -num 60% -srcstub 1-4,8,10 -deststub 5-7,9,11,12 -start 1-3 -stop 9-11}
agents -outfile $agentfile -transport TCP/Reno -src FTP \
    -sink TCPSink/DelAck -num 60% -srcstub 1-4,8,10 -deststub 5-7,9,11,12 -start 1-3 -stop 9-11

#puts {agents -outfile $agentfile -transport TCP -sink TCPSink -num 8}
#agents -outfile $agentfile -transport TCP -sink TCPSink -num 8

#puts {agents -outfile $agentfile -transport SRM/Deterministic -num 75% \
	-join 0-2 -src CBR/UDP -traffic Pareto -srcnum 20% \
	-start 3-10}
#agents -outfile $agentfile -transport SRM/Deterministic -num 75% \
	-join 0-2 -src CBR/UDP -traffic Pareto -srcnum 20% \
	-start 3-10 

#puts {agents -outfile $agentfile -transport SRM -src CBR/UDP \
	-traffic Expoo }
#agents -outfile $agentfile -transport SRM -src CBR/UDP \
	-traffic Expoo

mark-end $agentfile
# the marker merely serves as debugging aid to make sure that
# all the code was written to file, and was not disrupted due
# to failure or disk full... etc, it also contains all the 
# the command lines used to generate the code.

# now that we've generated the tcl scripts, source them and call
# the procs to start the simulations.
source $routefile
source $topofile
source $agentfile

set ns [new Simulator]

# set up hierarchical routing (if needed) or any other address format
#$ns set-address-format hierarchical

# comment out the ns trace for now... it consumes a lot of mem
# set f [open out.tr w]
# $ns trace-all $f
set nf [open out.nam w]
$ns namtrace-all $nf

# have to call these before the topology is generated, as
# artifact of current ns !!!
setup-mcastNaddr ns

# call the topology script
if {$hier_flag} {
	create-hier-topology ns node 1.5Mb
} else {
	create-topology ns node 1.5Mb
}

# set routing
create-routing ns

# call the agent script
generate-agents ns node

$ns at 3.0 "finish"

proc finish {} {
	global ns nf; #f
	$ns flush-trace
	# close $f
	close $nf

	puts "running nam..."
	exec nam out.nam &
	exit 0
}

$ns run