Bài 2: Chạy mô phỏng truyền dữ liệu trong NS2

Chủ đề: "Mô phỏng mạng bằng công cụ NS2"

Như ở bài 1 chúng ta đã cùng nhau tạo ra 1 Topo mạng bao gồm: nguồn, đích, các kết nối, đường truyền, hàng đợi...Nhưng mô hình bạn xây dựng vẫn chưa thực hiện được chức năng mô phỏng quá trình gửi dữ liệu. Để thực hiện được điều này ta thêm dòng code dưới đây bên dưới câu lệnh khai báo chiều dài hàng đợi:

#Tham so tien trinh toi nguon s1 lambda1 = 100.0

set lambda1   100.0

#Tham so tien trinh phuc vu m1 = lambda / d

#trong do d =0,8

set m1        120.0

#Tham so tien trinh toi nguon s2 lambda2 = 100.0

set lambda2   100.0

#Tham so tien trinh phuc vu m2

set m2        120.0

#Tham so tien trinh toi nguon s3 lambda3 = 100.0

set lambda3   100.0

#Tham so tien trinh phuc vu m3

set m3        120.0

# Tien trinh toi co khoang thoi gian den tuan theo phan bo ham mu 

set InterArrivalTime1 [ new RandomVariable/Exponential]

            $InterArrivalTime1 set avg_ [expr 1/$lambda1]

# Tien trinh phuc vu co toc do tuan theo phan bo ham mu

set pktSize1 [ new RandomVariable/Exponential]

            $pktSize1 set avg_ [ expr 100000.0/(8*$m1)]

# Thu tuc bat dau gui du lieu

proc sendpacket1 {} {

        global ns tcp1 InterArrivalTime1 pktSize1 flag1

        set time [$ns now]

        if [expr $flag1 == 0] {             

               $ns  at  [ expr $time + [$InterArrivalTime1  value]] "sendpacket1"

               set bytes [ expr round ([$pktSize1  value])]

               $tcp1 send $bytes

         }                         

                                    }

# Tien trinh toi co toc do tuan theo phan bo ham mu

set InterArrivalTime2 [ new RandomVariable/Exponential]

 $InterArrivalTime2 set avg_ [expr 1/$lambda2]

# Tien trinh phuc vu co toc do tuan theo phan bo ham mu

set pktSize2 [ new RandomVariable/Exponential]

 $pktSize2 set avg_ [ expr 100000.0/(8*$m2)]

# Thu tuc bat dau gui du lieu

proc sendpacket2 {} {

        global ns tcp2 InterArrivalTime2 pktSize2 flag2

        set time [$ns now]

            if [expr $flag2 == 0] {

              $ns  at  [ expr $time + [$InterArrivalTime2  value]] "sendpacket2"

              set bytes [ expr round ([$pktSize2  value])]

              $tcp2 send $bytes

         }                         

                                    }

# Tien trinh toi co toc do tuan theo phan bo ham mu

set InterArrivalTime3 [ new RandomVariable/Exponential]

 $InterArrivalTime3 set avg_ [expr 1/$lambda3]

# Tien trinh phuc vu co toc do tuan theo phan bo ham mu

set pktSize3 [ new RandomVariable/Exponential]

 $pktSize3 set avg_ [ expr 100000.0/(8*$m3)]

# Thu tuc bat dau gui du lieu

proc sendpacket3 {} {

         global ns tcp3 InterArrivalTime3 pktSize3 flag3

               set time [$ns now]

         if [expr $flag3 == 0] {           

               $ns  at  [ expr $time + [$InterArrivalTime3  value]] "sendpacket3"

               set bytes [ expr round ([$pktSize3  value])]

               $tcp3 send $bytes

         }                         

                                    }

 Đồng thời ngay trước câu lệnh thiết lập thời gian mô phỏng các bạn thêm dòng lệnh:

$ns at 0.0 "sendpacket1"

$ns at 0.0 "sendpacket2"

$ns at 0.0 "sendpacket3"

Lưu lại file BTL.tcl và chạy thì ta được mô hình sau:

Tài liệu tham khảo tiếng Việt về mô phỏng trong NS2:
 -> Tài liệu 1: Tải về 
 -> Tài liệu 2: Tải về

Bài 3: Cách vẽ đồ thị bằng công cụ Xgraph bằng công cụ NS2
 -> Download file chạy .tcl và file .awk của Project này:
-> Download file .awk: Tải về
-> Download file .tcl: Tải về

Chú ý: Để máy tính hoạt động trơn tru và được bảo dưỡng tự động thường xuyên, các bạn nên cài một số phần mềm chăm sóc hệ thống. Mình đã và đang sử dụng phần mềm chăm sóc hệ thống Glary Utilities Pro và thấy rất tốt, các bạn có thể Download và cài đặt bản full có kèm theo Key (serial) đầy đủ ( đã test) rất đơn giản tại đây: Tải về 

- Để bảo vệ máy tính tốt hơn chống lại các phần mềm gián điệp, virus độc hại mà không ngốn quá nhiều tài nguyên máy tính ngay cả ở chế độ hoạt động và chế độ chờ, mình khuyến nghị các bạn cài đặt và sử dụng phần mềm diệt Virus Avast internet security( Kèm theo key/Serial đã test): Tại đây

Click Yes nếu bạn cảm thấy bài viết này hữu ích.- Thanks!