37.5.1 Singled Homed Example

	 Trace set show_sctphdr_ 1 # this needs to be set for tracing SCTP packets;

	 set ns [new Simulator]
	 set allchan [open all.tr w]
	 $ns trace-all $allchan

	 proc finish {} {
	    exit 0
	 }

	 set n0 [$ns node]
	 set n1 [$ns node]
	 $ns duplex-link $n0 $n1 .5Mb 200ms DropTail

	 # NOTE: The debug files (in this example, they would be debug.SctpAgent.0
	 #       and debug.SctpAgent.1) contain a lot of useful info. They can be 
	 #       used to trace every packet sent, received, and processed.
	 #
	 set sctp0 [new Agent/SCTP]
	 $ns attach-agent $n0 $sctp0
	 $sctp0 set debugMask_ 0x00303000 # refer to sctpDebug.h for mask mappings;
	 $sctp0 set debugFileIndex_ 0

	 set trace_ch [open trace.sctp w]
	 $sctp0 set trace_all_ 0 # do not trace all variables on one line;
	 $sctp0 trace cwnd_      # trace cwnd for all destinations;
	 $sctp0 attach $trace_ch

	 set sctp1 [new Agent/SCTP]
	 $ns attach-agent $n1 $sctp1
	 $sctp1 set debugMask_ -1         # use -1 to turn on all debugging;
	 $sctp1 set debugFileIndex_ 1

	 $ns connect $sctp0 $sctp1

	 set ftp0 [new Application/FTP]
	 $ftp0 attach-agent $sctp0

	 $ns at 0.5 "$ftp0 start"
	 $ns at 4.5 "$ftp0 stop"
	 $ns at 5.0 "finish"

	 $ns run



Tom Henderson 2014-12-17