SIK - Temat G - przykłady

Przykład skryptu dla symulatora NS-2:

set ns [new Simulator]
  # tworzymy obiekt symulatora (singleton)

$ns namtrace-all [open ns01a.nam w]
$ns trace-all [open ns01a.tr w]
  # włączamy zapis log-ów do plików o podanych nazwach
  # w pliku .tr będą wszystkie "zdarzenia" pojawiające się w sieci ...

set n1 [$ns node]
set n2 [$ns node]
  # tworzymy 2 węzły

$ns duplex-link $n1 $n2 100Mb 50ms DropTail
  # tworzymy dwukierunkowe połączenie między węzłami
  # 100Mb - przepustowość, 50ms - opóźnienie, DropTail - typ kolejki pakietów

set udp [new Agent/UDP]
$udp set fid_ 2
$udp set packetSize_ 5000
  # definicja "agenta" UDP

set null [new Agent/Null]
  # definicja "agenta" Null (tylko przyjmuje pakiety)

$ns attach-agent $n1 $udp
$ns attach-agent $n2 $null
  # połączenie agentów z węzłami

$ns connect $udp $null
  # utworzenie "powiązania" między dwoma agentami

set cbr [new Application/Traffic/CBR]
$cbr set packetSize_ 5555
$cbr set rate_ 100Kb
  # tworzymy aplikacje CBR = Constant Bit Rate
  # wysyła pakiety ze stałą częstotliwością ...
  # jest to tak dobrane, aby wysyłać dane z prędkością 100Kb/s (property "rate_")

$cbr attach-agent $udp
  # łączymy aplikacje z agentem udp

$ns at 0.2 "$cbr start"
$ns at 2.8 "$cbr stop"
$ns at 3.0 "$ns halt"
  # kiedy co się włącza...

$ns run
$ns flush-trace
puts "koniec symulacji"
  # uruchomienie symulacji
  # po zakończeniu symulacji powinny powstac pliki .tr/.nam,
  # które można analizować/ oglądać animację ...