#=================================== # Mobile node parameter setup
#=================================== $ns node-config -adhocRouting $val(rp) \\ -llType $val(ll) \\ -macType $val(mac) \\ -ifqType $val(ifq) \\ -ifqLen $val(ifqlen) \\ -antType $val(ant) \\ -propType $val(prop) \\ -phyType $val(netif) \\ -channel $chan \\ -topoInstance $topo \\ -agentTrace ON \\ -routerTrace ON \\ -macTrace ON \\ -movementTrace ON
#=================================== # Nodes Definition
#=================================== #Create 17 nodes set n0 [$ns node] $n0 set X_ 0 $n0 set Y_ 0 $n0 set Z_ 0.0
$ns initial_node_pos $n0 20 set n1 [$ns node] $n1 set X_ 142 $n1 set Y_ 189 $n1 set Z_ 0.0
$ns initial_node_pos $n1 20 set n2 [$ns node] $n2 set X_ 163 $n2 set Y_ 406
$n2 set Z_ 0.0
$ns initial_node_pos $n2 20 set n3 [$ns node] $n3 set X_ 299 $n3 set Y_ 265
$n3 set Z_ 0.0
$ns initial_node_pos $n3 20 set n4 [$ns node] $n4 set X_ 347 $n4 set Y_ 117
17
$n4 set Z_ 0.0
$ns initial_node_pos $n4 20 set n5 [$ns node] $n5 set X_ 22 $n5 set Y_ 590
$n5 set Z_ 0.0
$ns initial_node_pos $n5 20 set n6 [$ns node] $n6 set X_ 121 $n6 set Y_ 591
$n6 set Z_ 0.0
$ns initial_node_pos $n6 20 set n7 [$ns node] $n7 set X_ 244
$n7 set Y_ 587 $n7 set Z_ 0.0
$ns initial_node_pos $n7 20 set n8 [$ns node] $n8 set X_ 360
$n8 set Y_ 463 $n8 set Z_ 0.0
$ns initial_node_pos $n8 20 set n9 [$ns node] $n9 set X_ 409 $n9 set Y_ 423
$n9 set Z_ 0.0
$ns initial_node_pos $n9 20 set n10 [$ns node] $n10 set X_ 465 $n10 set Y_ 377
$n10 set Z_ 0.0
$ns initial_node_pos $n10 20 set n11 [$ns node] $n11 set X_ 491
$n11 set Y_ 351 $n11 set Z_ 0.0
$ns initial_node_pos $n11 20 set n12 [$ns node] $n12 set X_ 518
$n12 set Y_ 319 $n12 set Z_ 0.0
$ns initial_node_pos $n12 20 set n13 [$ns node] $n13 set X_ 457
18
$n13 set Y_ 237 $n13 set Z_ 0.0
$ns initial_node_pos $n13 20 set n14 [$ns node] $n14 set X_ 461 $n14 set Y_ 201 $n14 set Z_ 0.0
$ns initial_node_pos $n14 20 set n15 [$ns node] $n15 set X_ 461 $n15 set Y_ 164 $n15 set Z_ 0.0
$ns initial_node_pos $n15 20 set n16 [$ns node]
$n16 set X_ 463 $n16 set Y_ 98 $n16 set Z_ 0.0
$ns initial_node_pos $n16 20
#=================================== # Termination
#=================================== #Define a 'finish' procedure proc finish {} {
global ns tracefile namfile $ns flush-trace close $tracefile close $namfile exec nam out.nam & exit 0 }
for {set i 0} {$i < $val(nn) } { incr i } { $ns at $val(stop) \}
$ns at $val(stop) \$ns at $val(stop) \
$ns at $val(stop) \$ns run
19
致谢
在毕业设计即将完成之际，我的心情无法平静，回首两年专升本阶段的学习生活，有成功的喜悦，也有失败和挫折，所有的这些将使我铭记一生。从开始进入设计到毕业设计的顺利进行和即将完成，很多可敬的师长，亲人，同学，朋友给了我无私的帮助，在这里请接收我诚挚的谢意。
首先感谢我的导师，**老师。江老师渊博的学识，严谨的治学态度和忘我的工作精神是我终身学习的榜样。在论文写作期间，论文的选题，资料查询，开题，研究和撰写的每一个环节，无不得到江老师的悉心指导和帮助。在毕设即将完成之际，谨向最尊敬的导师表示最真挚的感谢。
还要感谢我的父母，是你们的支持才能使我有接受高等教育的机会。你们的支持和帮助使我能不畏困难努力学习，克服一个又一个难题，你们是我未来奋斗的动力和精神寄托。
路漫漫其修远兮，吾将上下而求索。我愿在未来的工作和学习中，以更加丰厚的成果来答谢曾经关心，帮助和支持过我的老师，家人，同学和朋友。 衷心的感谢大家！
注：
（1）新算法的描述部分已经删去，因为新算法不是本人原创。而且设计新算法协议远超出本科生的要求范围，选题时请注意辅导老师的意向和学校规则。
（2）TCL代码用NSG2软件生成，需要JRE的环境。
（3）另外在NS2平台上模拟TPSN需要修改MAC层协议，没有老师指导很难完成，我的设计最后也是因为学校答辩组老师没人懂，所以后期模拟时老师说随便弄弄做个样子结果吧，答辩时候也是勉强过关。希望学会MAC层修改的同学们可以联系作者，共同进步。381675291@qq.com 衷心感谢！
20