# tcpudp.tcl

#create scheduler

#turn tracing on

#create topology
#nodes

#links

#udp
#create udp agenet 

#and a cbr application

#create and attach null agents

#schedule the start of cbr traffic

#tcp
#create and attach a TCP agent source/sink

#attach an ftp application to the TCP agent

#schedule ftp application

#wrap up
proc finish {} {
	global ns ns_f nam_f
	$ns flush-trace
	close $ns_f
	close $nam_f

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

$ns at 5.0 "finish"
$ns run