12/01/16

Script NS Simulator

Gambar : Dekstop NS / Nam Simulator.

contoh listing NS Simulator yang kami SAVE dengan nama File Lucid-dsdv-8.tcl
Pengetikan Listing / Script menggunakan Editor Text.


sbb:

Phy/WirelessPhy set freq_ 2.472e9
Phy/WirelessPhy set RXThresh_ 2.025e-12; # >300m radius
Phy/WirelessPhy set CSThresh_ [expr 0.9*[Phy/WirelessPhy set RXThresh_]]
Phy/WirelessPhy set bandwidth_ 11.0e6
Mac/802_11 set dataRate_ 11Mb
Mac/802_11 set basicRate_ 2Mb
Antenna/OmniAntenna set Z_ 1.5
Antenna/OmniAntenna set Gt_ 1
Antenna/OmniAntenna set Gr_ 1
set val(chan) Channel/WirelessChannel ;
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) 30 ;
set val(nn) 8 ;
set val(rp) DSDV ;
set val(x) 1000 ;
set val(y) 1000 ;
set val(stop) 110 ;
set ns [new Simulator]
set tracefd [open LUCID_DSDV8.tr w]
set winFile [open CwMdsdv_8 w]
set namtracefd [open namwrls-lucid.nam w]
$ns trace-all $tracefd
$ns use-newtrace
$ns namtrace-all-wireless $namtracefd $val(x) $val(y)
set topo [new Topography]
$topo load_flatgrid $val(x) $val(y)
create-god $val(nn)
$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 OFF \
for {set i 0} {$i < $val(nn) } {incr i} {
set node_($i) [$ns node]
}
$node_(0) set X_ 200.0
$node_(0) set Y_ 200.0
$node_(0) set Z_ 0.0
$node_(4) set X_ 500.0
$node_(4) set Y_ 200.0
$node_(4) set Z_ 0.0
$node_(7) set X_ 800.0
$node_(7) set Y_ 200.0
$node_(7) set Z_ 0.0
$node_(3) set X_ 500.0
$node_(3) set Y_ 460.0
$node_(3) set Z_ 0.0
$node_(2) set X_ 200.0
$node_(2) set Y_ 460.0
$node_(2) set Z_ 0.0
$node_(5) set X_ 650.0
$node_(5) set Y_ 330.0
$node_(5) set Z_ 0.0
$node_(6) set X_ 800.0
$node_(6) set Y_ 460.0
$node_(6) set Z_ 0.0
$node_(1) set X_ 350.0
$node_(1) set Y_ 330.0
$node_(1) set Z_ 0.0
$ns at 5.0 "$node_(0) setdest 800.0 460.0 3.0"
$ns at 7.0 "$node_(4) setdest 350.0 330.0 3.0"
$ns at 15.0 "$node_(1) setdest 450.0 330.0 3.0"
$ns at 25.0 "$node_(3) setdest 650.0 330.0 3.0"
$ns at 25.0 "$node_(5) setdest 500.0 460.0 3.0"
$ns at 30.0 "$node_(6) setdest 800.0 200.0 3.0"
$ns at 30.0 "$node_(7) setdest 800.0 460.0 3.0"
$ns at 40.0 "$node_(6) setdest 200.0 460.0 3.0"
$ns at 40.0 "$node_(2) setdest 800.0 460.0 3.0"
$ns at 50.0 "$node_(0) setdest 500.0 460.0 3.0"
$ns at 75.0 "$node_(6) setdest 200.0 200.0 3.0"
$ns at 100.0 "$node_(0) setdest 800.0 460.0 3.0"
set tcp [new Agent/TCP]
set sink [new Agent/TCPSink]
$ns attach-agent $node_(0) $tcp
$ns attach-agent $node_(6) $sink
$ns connect $tcp $sink
set ftp [new Application/FTP]
$ftp attach-agent $tcp
$ns at 0.1 "$ftp start"
for {set i 0} {$i < $val(nn) } {incr i} {
$ns initial_node_pos $node_($i) 60
}
for {set i 0} {$i < $val(nn) } {incr i} {
$ns at $val(stop) "$node_($i) reset"
}
$ns at $val(stop) "stop"
proc plotWindow {tcpSource file} {
global ns
set time 0.1
set now [$ns now]
set cwnd [$tcpSource set cwnd_]
puts $file "$now $cwnd"
$ns at [expr $now+$time] "plotWindow $tcpSource $file" }
$ns at 0.1 "plotWindow $tcp $winFile"
proc stop {} {
global ns tracefd namtracefd
$ns flush-trace
close $tracefd
close $namtracefd
exec nam namwrls-lucid.nam &
exit 0
}
$ns run

==================Semoga-Bermanfat=========

1 komentar:

Rosnida Zainab mengatakan...

Assalamu Alaikum wr-wb, perkenalkan nama saya ibu Rosnida zainab asal Kalimantan Timur, saya ingin mempublikasikan KISAH KESUKSESAN saya menjadi seorang PNS. saya ingin berbagi kesuksesan keseluruh pegawai honorer di instansi pemerintahan manapun, saya mengabdikan diri sebagai guru disebuah desa terpencil, dan disini daerah tempat saya mengajar hanya dialiri listrik tenaga surya, saya melakukan ini demi kepentingan anak murid saya yang ingin menggapai cita-cita, Sudah 9 tahun saya jadi tenaga honor belum diangkat jadi PNS Bahkan saya sudah 4 kali mengikuti ujian, dan membayar 70 jt namun hailnya nol uang pun tidak kembali, bahkan saya sempat putus asah, pada suatu hari sekolah tempat saya mengajar mendapat tamu istimewa dari salah seorang pejabat tinggi dari kantor BKN pusat karena saya sendiri mendapat penghargaan pengawai honorer teladan, disinilah awal perkenalan saya dengan beliau, dan secara kebetulan beliau menitipkan nomor hp pribadinya dan 3 bln kemudian saya pun coba menghubungi beliau dan beliau menyuruh saya mengirim berkas saya melalui email, Satu minggu kemudian saya sudah ada panggilan ke jakarta untuk ujian, alhamdulillah berkat bantuan beliau saya pun bisa lulus dan SK saya akhirnya bisa keluar,dan saya sangat berterimah kasih ke pada beliau dan sudah mau membantu saya, itu adalah kisah nyata dari saya, jika anda ingin seperti saya, anda bisa Hubungi Bpk Drs Tauhid SH Msi No Hp 0853-1144-2258. siapa tau beliau masih bisa membantu anda, Wassalamu Alaikum Wr Wr ..