# Create a ns object set ns new Simulator $ns color 1 Blue $ns color 2 Red
# Open the Trace files set TraceFile open outtcp.tr w $ns trace-all $TraceFile
# Open the NAM trace file set NamFile open outtcp.nam w $ns namtrace-all $NamFile
# Create six nodes set n0 $ns node set n1 $ns node set n2 $ns node set n3 $ns node set n4 $ns node set n5 $ns node $ns duplex-link $n0 $n2 2Mb 10ms DropTail $ns duplex-link $n1 $n2 2Mb 10ms DropTail $ns duplex-link $n2 $n3 0.25Mb 100ms DropTail # bottleneck link $ns duplex-link $n3 $n4 2Mb 10ms DropTail $ns duplex-link $n3 $n5 2Mb 10ms DropTail $ns queue-limit $n2 $n3 20 $ns duplex-link-op $n0 $n2 orient right-down $ns duplex-link-op $n1 $n2 orient right-up $ns duplex-link-op $n2 $n3 orient right $ns duplex-link-op $n3 $n4 orient right-up $ns duplex-link-op $n3 $n5 orient right-down #TCP N0 and N4 set tcp1 new Agent/TCP/Newreno $ns attach-agent $n0 $tcp1 set sink1 new Agent/TCPSink/DelAck $ns attach-agent $n4 $sink1 $ns connect $tcp1 $sink1 $tcp1 set fid_ 1 $tcp1 set window_ 8000 $tcp1 set packetSize_ 600 #TCP N0 and N4 set ftp1 new Application/FTP $ftp1 attach-agent $tcp1 $ftp1 set type_ FTP #TCP N1 and N5 set tcp2 new Agent/TCP/Newreno $ns attach-agent $n1 $tcp2 set sink2 new Agent/TCPSink/DelAck $ns attach-agent $n5 $sink2 $ns connect $tcp2 $sink2 $tcp2 set fid_ 2 $tcp2 set window_ 8000 $tcp2 set packetSize_ 600 #FTP TCP N1 and N5 set ftp2 new Application/FTP $ftp2 attach-agent $tcp2 $ftp2 set type_ FTP $ns at 0.1 "$ftp1 start" $ns at 10.0 "$ftp2 start" $ns at 50.0 "$ftp1 stop" $ns at 45.0 "$ftp2 stop"
proc finish {} {
global ns TraceFile NamFile
$ns flush-trace
close $TraceFile
close $NamFile
exec nam outtcp.nam &
exit 0} $ns at 60.0 "finish" $ns run }