Ошибочная модель набора на ссылке n2 к n3

набор loss_module [новый ErrorMode] $loss_module установил rate_ 0.1

Создайте экземпляр Средства моделирования

набор не уточнено [новое Средство моделирования] Синий цвет $ns красного цвета $ns

Откройте файл трассировки NAM

$set nf [открывают out.nam w] $ns namtrace-весь $nf

Откройте Файл трассировки

набор tf [открывается, out.tr w] устанавливают windowVsTime2 [открывают WindowVsTimeNReno w] трассировка $ns - весь $tf

Определите процедуру 'конца'

конец proc {} {глобальный нс nf tf трассировка сброса $ns близкие $nf устраиваются должностное лицо $tf nam out.nam и выходят 0}

Создайте четыре узла

набор n0 [узел $ns] установил n1 [узел $ns] установил n2 [узел $ns] установил n3 [узел $ns]

$ns в 0,1 "n1 маркируют \"CBR \"" $ns в 1,0 "n0 маркировка \"FTP \""

Создайте ссылки между узлами

Мбит дуплексной ссылки $ns за 2$n0$n2 10 мс Мбит дуплексной ссылки $ns DropTail за 2$n1$n2 10 мс Мбит симплексной ссылки $ns DropTail за 0,07$n2$n3 20 мс Мбит симплексной ссылки $ns DropTail за 0,07$n3$n2 20 мс Droptail

Размер очереди набора для ссылки n2-n3 к 10

Предел очереди $ns 10$n2$n3

Moniter очередь для ссылки n2-n3 для NAM

Симплексная ссылка $ns op $n2$n3 queuePos 0.5

Ошибочная модель набора на ссылке n3 к n2

набор loss_module [новый ErrorModel] $loss_module установил rate_ 0,2$loss_module ranvar [новый RandomVariable/Uniform] цель отбрасывания $loss_module [новый Агент/Пустой указатель] $ns lossmodel $loss_module$n2$n3

отсоедините агент приемника и tcp

$ns на уровне 624,5 "$n0$tcp агента отсоединения $ns; $n3$sink агента отсоединения $ns"

$ns на уровне 625,0 выполненных $ns "конца"

---

Ошибка, которую я получаю после выполнения вышеупомянутого кода, следующие:

недопустимое название команды

"ErrorMode"

при выполнении

"ErrorMode создают _o3"

вызванный из

"выгода "$className создает $o$args" сообщение"

вызванный из

"если [выгода "$className создает $o$args" сообщение] {

если [представляют соответствие в виде строки "__ FAILED_SHADOW_OBJECT _" $msg] {

удалите $o

возвратитесь""

}

глобальный errorInfo

ошибка "$ класса..."

(procedure "new" line 3)

invoked from within

"новый ErrorMode"

invoked from within

"набор loss_module [новый ErrorMode]"

(file "u.tcl" line 2)