Ns2 Simulirati ethernet lan z uporabo n vozlišč in nastaviti okno prezasedenosti prometnih ploskev za različne izvorne destinacije?

// skript ns-2 za simulacijo Ethernet LAN z n vozlišči.

// Okno prometnih zastojev bo nastavljeno za drugačno

// pari izvor-cilj.

// Uvoz potrebnih paketov.

uvoz ns_lib;

uvoz tcl_lib;

// Ustvarite mrežo.

nastavi sim_time 100s; // Čas simulacije v sekundah

nastavite num_nodes 10; // Število vozlišč v omrežju

nastavite ifq 1000; // Velikost čakalne vrste vmesnika v paketih

za {set i 0} {$i <$num_nodes} {incr i} {

# Ustvarite vozlišče.

nastavite vozlišče($i) [novi agent/vir TCP];

# Povežite vozlišče z omrežjem.

$ns agent za pritrjevanje $node($i)

# Nastavite naslov MAC vozlišča.

$node($i) nastavi MAC

# Nastavite naslov IP vozlišča.

$node($i) set addr_

# Nastavite velikost okna zastojev vozlišča.

$node($i) nastavi cwnd_ 20

}

Konfigurirajte vire in ponore prometa.

za {set i 0} {$i <$num_nodes} {incr i} {

# Nastavite izvorni promet za vsako vozlišče.

$node($i) nastavi promet_tip CBR

$node($i) nastavi start_time_ 0s

$node($i) nastavi cbr_rate_ 100Kbps

$node($i) nastavi rtt_ 50ms

# Nastavite ciljni naslov IP za vsak vir.

$node($i) nastavi packetDest_ 10.$i.2.1

# Nastavite ponorni promet za vsako vozlišče.

nastavi ponor($i) [nov agent/nič]

$sink($i) set addr_ 10.$i.2.1

$ns agent za pritrjevanje $sink($i)

}

Ustvarite stikalo Ethernet.

nastavite stikalo [novo CMUcsma]

Pritrdite stikalo na vozlišča.

za {set i 0} {$i <$num_nodes} {incr i} {

$ns povezava $vozlišče($i) $stikalo

}

Zaženite simulacijo.

$ns pri 0,1 "$node(0) začni pošiljati"

$ns pri 1.1 "$node(1) začni pošiljati"

$ns pri 2.1 "$node(2) začni pošiljati"

$ns pri 3.1 "$node(3) začni pošiljati"

$ns pri 4.1 "$node(4) začni pošiljati"

$ns pri 5.1 "$node(5) začni pošiljati"

$ns pri 6.1 "$node(6) začni pošiljati"

$ns pri 7.1 "$node(7) začni pošiljati"

$ns pri 8.1 "$node(8) začni pošiljati"

$ns pri 9.1 "$node(9) začni pošiljati"

$ns teči

Izris rezultatov

nastavite izris [novi izris/Xgraf -širina 640 -višina 480]

Izberite slog izrisa.

vrstice slogov nabora $plot

Nastavite oznake osi X in Y.

$plot set xlabel "Čas (s)"

$plot set ylabel "Velikost okna zastojev"

Dodajte sledi za različna vozlišča, da narišete okno zastojev.

za {set i 0} {$i <$num_nodes} {incr i} {

$plot add $node($i) cwnd_

}

Nastavite legendo za risbo.

za {set i 0} {$i <$num_nodes} {incr i} {

$plot add Legend $node($i)

}

Nastavite samodejno merilo za risbo.

$plot je vklopil samodejno merilo

Shranite izris kot sliko PNG.

$plot save graph.png

```