这是《NS与网络模拟》第七章的一个例子,展示了安装路由协议的一般流程,不过书上的步骤是针对ns2.26的,在ns2.31下安装需要有些修 改。下面根据网上搜索到的信息和实际操作总结如下:
首先确认已经获得下列文件(随书光盘里有,或者在网上搜索):
mflood源 码:mflood.cc,mflood.h,mflood-seqtable.cc,mflood-seqtable.h,mflood- packet.h。
mflood测试代码:cbr-50n-30c-1p,scene-50n-0p-40s-400t- 1200-1200,getNodeRecv.awk,getRatio.awk,mflood-3nodes.tcl,mflood- scene.tcl。
1、在ns-2.31目录下建立mflood文件夹,把上述文件统统放进去。
2、修改 ns-lib.tcl(在ns2.31\tcl\lib\):(红色表示添加部分 )
OMNIMCAST {
eval $node addr $args
set ragent [$self create-omnimcast-agent $node]
}
MFlood {
set ragent [$self create-mflood-agent $node]
}
DumbAgent {
set ragent [$self create-dumb-agent $node]
}
另外在空白处加入:
Simulator instproc create-tora-agent { node } {
set ragent [new Agent/TORA [$node id]]
$node set ragent_ $ragent
return $ragent
}
Simulator instproc create-mflood-agent {node} {
set ragent [new Agent/MFlood [$node id]]
$node set ragent_ $ragent
return $ragent
}
3、 修改ns-packet.tcl(在 ns2.31\tcl\lib\ ):
foreach prot {
...
MFlood
AODV
...
}
4、修改 packet.h(在ns2.31\common\):
enum packet_t {
⋯⋯
PT_AODV,
PT_MFLOOD,
⋯⋯
}
p_info() {
⋯⋯
name_[PT_AODV]= "AODV";
name_[PT_MFLOOD]="MFlood";
⋯⋯
}
5、修改 Makefile(在ns2.31\)
在 OBJ_CC 中增加一行:
mflood/mflood.o mflood/mflood-seqtable.o \
6、在mflood.cc(在 刚建立的文件加ns2.31\mflood\)中加入 :
...
uptarget_ = (NsObject*)TclObject::lookup(argv[2]);
if (uptarget_ == 0) {
tcl.resultf("no such object %s", argv[2]);
return (TCL_ERROR);
}
return (TCL_OK);
}
else if (strcasecmp (argv[1], "port-dmux") == 0) {
TclObject *obj;
port_dmux_ = (NsObject *) obj;
return TCL_OK;
}
}
return Agent::command(argc, argv);
}
并且修改:
MFlood::MFlood(nsaddr_t id) : Agent(PT_MFLOOD) , port_dmux_(0) {
index_ = id;
logtarget = 0;
myseq_ = 0;
}
7、 修改 mflood.h(在 ns2.31\mflood\):
NsObject *uptarget_;
NsObject *port_dmux_;
8、在 ns2.31\下make,可能会有一些warning,不用去管它。
9、测试:(进入mflood\)
a) 测试mflood-3nodes.tcl
ns mflood-3nodes.tcl
输出:
num_nodes is set 3
INITIALIZE THE LIST xListHead
Starting Simulation ...
channel.cc:sendUp - Calc highestAntennaZ_ and distCST_
highestAntennaZ_ = 1.5, distCST_ = 550.0
SORTING LISTS ...DONE!
NS EXITING ...
b)测试mflood- sceen.tcl
首先修改mflood-sceen.tcl文件:(将文件名改成同目录下的scene-50n-0p-40s-400t- 1200-1200)
#set val(sc) "../scene-50n-0p-2s-400t-1200-1200"
set val(sc) "scene-50n-0p-40s-400t-1200-1200"
#set val(sc) "../scene/jscene-50n-0p-2s-400t-1200-1200-1"
然后输入:
ns mflood-sceen.tcl
输出类似上面的,会生成57兆左右的trace文 件。
其他的数据分析应该没什么问题了。