2. Wyniki symulacji wraz z komentarzami dla punktów 2.1-4
set ns [new Simulator]
set wyparam [open wynikl.txt w]
$ns trace-all Swyparam
# zdefiniowacie zmniennej pomocniczej pomoc, w której przechowywane będą
zmiany # parametrów
set pomoc [new Trace/Var]
Spomoc attach $wyparam
set nO [$ns node] set nl [$ns node] set n2 [$ns node]
$ns duplex-link SnO $nl 10Mb 5ms DropTail $ns duplex-link $nl $n2 10Mb lOms DropTail
set tcpl [new Agent/TCP] set sinkl [new Agent/TCPSInk]
$ns attach-agent $n0 Stcpl $ns attach-agent $n2 Sslnkl $ns connect $tcpl $sinkl
# zainicjowanie śledzenie zmian parametrów cwnd_ (rozmiar okna przeciążeniowego) oraz
# parametru ssthresh $tcpl tracę cwnd_ Spomoc Stcpl tracę ssthresh_ Spomoc
Stcpl set packetS!ze_ 1000 Stcpl set window_ 20
set ftpl [new Application/FTP]
Sftpl attach-agent Stcpl
$ns at 0.0 "Sftpl start"
$ns at 2.0 "$ns halt"
$ns run
$ns flush-trace close Swyparam exit
Część pliku wynikowego: ft0a_o60 ncwnd_vl f tO a o60 nssthresh v20