Ns2 Simulirati ethernet lan pomoću n čvorova i postaviti prozor zagušenja višestrukog prikaza prometa za različito izvorno odredište?

```

// ns-2 skripta za simulaciju Ethernet LAN-a s n čvorova.

// Prozor zagušenja prometne parcele bit će postavljen na različite

// parovi izvor-odredište.

// Uvoz potrebnih paketa.

uvoz ns_lib;

import tcl_lib;

// Stvaranje mreže.

postaviti sim_time 100s; // Vrijeme simulacije u sekundama

postavi num_nodes 10; // Broj čvorova u mreži

postaviti ifq 1000; // Veličina reda čekanja sučelja u paketima

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

# Stvorite čvor.

postavi čvor($i) [novi agent/TCP izvor];

# Spojite čvor na mrežu.

$ns agent za pričvršćivanje $node($i)

# Postavite MAC adresu čvora.

$node($i) postavlja MAC

# Postavite IP adresu čvora.

$node($i) set addr_

# Postavite veličinu prozora zagušenja čvora.

$node($i) postavi cwnd_ 20

}

Konfigurirajte izvore i odvode prometa.

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

# Postavite izvorni promet za svaki čvor.

$node($i) set traffic_type CBR

$node($i) postavi start_time_ 0s

$node($i) postavi cbr_rate_ 100Kbps

$node($i) postavi rtt_ 50ms

# Postavite odredišnu IP adresu za svaki izvor.

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

# Postavite sink promet za svaki čvor.

postavi sink($i) [novi agent/Null]

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

$ns agent za pričvršćivanje $sink($i)

}

Stvorite Ethernet preklopnik.

postavi prekidač [novi CMUcsma]

Pričvrstite prekidač na čvorove.

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

$ns povezivanje $čvor($i) $sklopka

}

Pokrenite simulaciju.

$ns na 0,1 "$node(0) počni slati"

$ns na 1.1 "$node(1) počni slati"

$ns na 2.1 "$node(2) počni slati"

$ns na 3.1 "$node(3) počni slati"

$ns na 4.1 "$node(4) počni slati"

$ns na 5.1 "$node(5) počni slati"

$ns na 6.1 "$node(6) počni slati"

$ns na 7.1 "$node(7) počni slati"

$ns na 8.1 "$node(8) počni slati"

$ns na 9.1 "$node(9) počni slati"

$ns trčati

Rezultati iscrtavanja

postavi dijagram [novi dijagram/Xgraf -širina 640 -visina 480]

Odaberite stil ispisa.

$plot set stilskih traka

Postavite oznake X i Y osi.

$plot set xlabel "Vrijeme (s)"

$plot set ylabel "Veličina prozora zagušenja"

Dodajte tragove za različite čvorove za iscrtavanje prozora zagušenja.

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

$plot add $node($i) cwnd_

}

Postavite legendu za crtež.

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

$plot add Legend $node($i)

}

Postavite automatsku skalu za dijagram.

$plot postavljen autoscale uključen

Spremite crtež kao PNG sliku.

$plot save graph.png

```