Phạm Văn Tứ

PHỤ LỤC

1. Bảng các trường phụ thêm vào trong cấu trúc tệp vết phụ thuộc vào kiểu gói tin

2. Mô phỏng mạng MANET

# MANET_Simulation.

#

# Define options_

set val(prop) Propagation/TwoRayGround

set val(netif) Phy/WirelessPhy

set val(mac) Mac/802_11

set val(ifq) Queue/DropTail/PriQueue

set val(ll) LL

set val(ant) Antenna/OmniAntenna

set val(ifqlen) 50

set val(seed) 0.0

set val(nn) 50

set val(rp) DSDV

set val(x) 1500

set val(y) 1500

set val(cp) "…/tcp-50-2-10"

set val(sc) "…/scenario-50-30-10-600-1500-1500"

set val(stop) 600 ;# time of simulation end

set namtrace [open MANET.nam w]

set tracefd [open MANET.tr w]
$ns_ trace-all $tracefd

$ns_ namtrace-all-wireless $namtrace $val(x) $val(y)

set topo [new Topography]

# Create God

#

set god_ [create-god $val(nn)]

#Create nn mobilenodes and attach them to channel

$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) \

-channelType $val(chan) \

-topoInstance $topo \

-agentTrace ON \

-routerTrace ON \

-macTrace OFF \

-movementTrace ON
for {set i 0} {$i < $val(nn) } { incr i } {

set node_($i) [$ns_ node]

$node_($i) random-motion 0

}
#

# Define node movement model

#

puts "Loading connection pattern..."

# Define traffic model

#

puts "Loading scenario file..."

for {set i 0} {$i < $val(nn)} {incr i} {

#30 defines the node size for nam

$ns_ initial_node_pos $node_($i) 30

}
# Telling nodes when the simulation ends

for {set i 0} {$i < $val(nn)} {incr i} {

$ns_ at $val(stop) "$node_($i) reset";

}
$ns_ at $val(stop).0002 "puts \"ns_ EXITING...\" ; $ns_ halt"

puts $tracefd "M 0.0 sc $val(sc) cp $val(cp) seed $val(seed)"

puts $tracefd "M 0.0 prop $val(prop) ant $val(ant)"

#ending nam and the simulation

$ns_ at $val(stop) "$ns_ nam-end-wireless $val(stop)"

$ns_ at $val(stop) "stop"

proc stop {} {

global ns_ tracefd namtrace

$ns_ flush-trace

close $tracefd

close $namtrace

}
puts "Starting Simulation..."

$ns_ run

3. Tỷ lệ phân phát gói tin thành công

#!/usr/bin/perl

#

# Phạm Văn Tứ - K51MMT-UET-VNU.

# GVĐHD: Ths. Đoàn Minh Phương.

#

# Tỷ lệ phân phát gói tin thành công (Hiệu suất đường truyền)

# Là tỷ lệ giữa số các gói tin được phân phát thành công tới đích

# so với số các gói tin tạo ra bởi nguồn phát.

#

# Tư tưởng giải thuật:

# thì trường Trace level mới được gán nhãn AGT (gói tin tầng giao vận).Các nút trung gian khác thực hiện

# việc định tuyến, chuyển tiếp gói tin, hoạt động tại tầng Network nên Trace Level = RTR.

#

# - Do đó ta chỉ cần tính:

# + Tổng số gói tin các nút đích nhận được (dst_receive)

# ==> Tỷ lệ phân phát gói tin thành công = dst_receive*100/src_sent.

#

# type: perl Pkt_success_rate.pl

$dst_receive = 0; #Tổng số gói tin các nút đích nhận được

$productivity = 0; #Hiệu suất đường truyền.
open (DATA, "<$infile") || die "Loi mo file: $infile $!";

while (){

@x = split(' ');
# Nút nguồn gửi gói tin

if (($x[0] eq 's') && ($x[3] eq 'AGT') && ($x[6] eq 'tcp')) {

$src_sent++;

}

# Nút đích nhận được gói tin

$dst_receive++;

}

}
$productivity = $dst_receive*100/$src_sent;

print STDOUT "Tổng số gói tin các nút đích nhận được = $dst_receive \n\n";

print STDOUT "Tỷ lệ phân phát gói tin thành công = $productivity % \n";
close DATA;

exit(0);

4. Thời gian thiết lập kết nối

#!/usr/bin/perl

#

# Pham Van Tu - K51MMT - UET - VNU

#

# Tinh thoi gian thiet lap ket noi:

#

# Type: perl Connection_time.pl

$src=$ARGV[1];

$dst=$ARGV[2];

$start_time = 0; #Thoi diem nut nguon bat dau co yeu cau truyen

$end_time = 0; #Thoi diem nut nguon nhan duoc Ack

$connection_time = 0; #Thoi gian ket noi

$source = 0; #Dia chi nguon

$destination = 0; #Dia chi dich
open (DATA, "<$infile") || die "Loi mo file: $infile $!";

while (){

@x = split(' ');
# Lay thong tin tu file tep vet

$src_ = $x[2];

$source = $x[13];

$destination = $x[14];

# Xu ly xau(String) de lay ra truong so nham phuc vu cho viec so sanh.

# Loai bo 2 dau gach duoi "_" trong truong chi so nut nguon (_node-ID_)

$src_ = substr($src_, 1);

$src_ = substr($src_, 0, -1);

# Loai bo Port va dau [ truong dia chi nguon va dia chi dich.

$source = substr($source, 1);

$source = substr($source, 0, -2);

$destination = substr($destination, 0, -2);

if ((($x[0] eq "s") || ($x[0] eq "+")) && ($src_ == $src) && ($x[3] eq 'AGT') && ($x[6] eq 'tcp') && ($source == $src) && ($destination == $dst) && ($x[17] eq '[0')){

$start_time = $x[1];

}
# Nut nguon nhan duoc goi tin bien nhan (ACK)

if (($x[0] eq 'r') && ($src_ == $src) && ($x[3] eq 'AGT')&& ($x[6] eq 'ack') && ($source == $dst) && ($destination == $src) && ($x[17] eq '[0')){

$end_time = $x[1];

$connection_time = $end_time - $start_time;

last;

}
print STDOUT "\nThoi gian thiet lap ket noi tu nut $src toi nut $dst = $connection_time\n\n";

exit(0);