noshot 0.1.0__py3-none-any.whl

noshot/data/AIDS CN NLP/CN/6. TCP Flow And Congestion Control/TCP Flow Control/flow.tcl

@@ -0,0 +1,163 @@
+#How to run
+#==========
+#save this file as flow.tcl in desktop folder
+#open desktop right-click and choose 'Open in Terminal'
+#run this command
+#ns flow.tcl
+
+#nam file, xgraph and awk file will be executed automatically
+
+#creating a simulator object
+set ns [ new Simulator ]
+#creating trace file
+set tf [open flow.tr w]
+$ns trace-all $tf
+#creating nam file
+set nf [open flow.nam w]
+$ns namtrace-all $nf
+
+#creating variables for throughput files
+set ft1 [open "Sender1_throughput" "w"]
+set ft2 [open "Sender2_throughput" "w"]
+set ft3 [open "Sender3_throughput" "w"]
+set ft4 [open "Total_throughput" "w"]
+
+#creating variables for bandwidth files
+set fb1 [open "Bandwidth1" "w"] 
+set fb2 [open "Bandwidth2" "w"]
+set fb3 [open "Bandwidth3" "w"]
+set fb4 [open "TotalBandwidth" "w"]
+
+#finish procedure to call nam and xgraph
+proc finish {} {
+ global ns nf ft1 ft2 ft3 ft4 fb1 fb2 fb3 fb4 
+ $ns flush-trace
+ #closing all files
+ close $nf
+ close $ft1 
+ close $ft2
+ close $ft3
+ close $ft4 
+ close $fb1 
+ close $fb2 
+ close $fb3 
+ close $fb4 
+ #executing graphs
+ exec xgraph Sender1_throughput Sender2_throughput Sender3_throughput Total_throughput &
+ exec xgraph Bandwidth1 Bandwidth2 Bandwidth3 TotalBandwidth &
+ puts "running nam..." 
+ exec nam flow.nam &
+ exec awk -f analysis.awk flow.tr &
+ exit 0
+}
+
+#record procedure to calculate total bandwidth and throughput
+proc record {} {
+ global null1 null2 null3 ft1 ft2 ft3 ft4 fb1 fb2 fb3 fb4 
+ global ftp1 smtp1 http1
+
+ set ns [Simulator instance]
+ set time 0.1
+ set now [$ns now]
+ 
+ set bw0 [$null1 set bytes_]
+ set bw1 [$null2 set bytes_]
+ set bw2 [$null3 set bytes_]
+
+ set totbw [expr $bw0 + $bw1 + $bw2]
+ puts $ft4 "$now [expr $totbw/$time*8/1000000]"
+
+ puts $ft1 "$now [expr $bw0/$time*8/1000000]"
+ puts $ft2 "$now [expr $bw1/$time*8/1000000]"
+ puts $ft3 "$now [expr $bw2/$time*8/1000000]"
+
+ puts $fb1 "$now [expr $bw0]"
+ puts $fb2 "$now [expr $bw1]"
+ puts $fb3 "$now [expr $bw2]"
+ puts $fb4 "$now [expr $totbw]"
+
+ $null1 set bytes_ 0
+ $null2 set bytes_ 0
+ $null3 set bytes_ 0
+
+ $ns at [expr $now+$time] "record"
+ }
+ 
+#creating 10 nodes
+for {set i 0} {$i < 10} {incr i} {
+ set n($i) [$ns node]
+}
+
+#creating duplex links
+$ns duplex-link $n(0) $n(1) 1Mb 10ms DropTail
+$ns duplex-link $n(0) $n(3) 1.5Mb 10ms RED
+$ns duplex-link $n(1) $n(2) 1Mb 10ms DropTail
+$ns duplex-link $n(2) $n(7) 2Mb 10ms RED
+$ns duplex-link $n(7) $n(8) 2Mb 10ms DropTail
+$ns duplex-link $n(8) $n(9) 2Mb 10ms RED
+$ns duplex-link $n(3) $n(5) 1Mb 10ms DropTail
+$ns duplex-link $n(5) $n(6) 1Mb 10ms RED
+$ns duplex-link $n(6) $n(4) 1Mb 10ms DropTail
+$ns duplex-link $n(4) $n(7) 1Mb 10ms RED
+
+#orienting links
+$ns duplex-link-op $n(0) $n(1) orient right-up
+$ns duplex-link-op $n(1) $n(2) orient right
+$ns duplex-link-op $n(0) $n(3) orient right-down
+$ns duplex-link-op $n(2) $n(7) orient right-down
+$ns duplex-link-op $n(7) $n(8) orient right-up
+$ns duplex-link-op $n(5) $n(6) orient right
+$ns duplex-link-op $n(6) $n(4) orient left-up
+$ns duplex-link-op $n(3) $n(5) orient right-down
+$ns duplex-link-op $n(4) $n(7) orient right-up
+$ns duplex-link-op $n(8) $n(9) orient right-down
+
+proc ftp_traffic {node0 node9 } { 
+ global ns null1 tcp1 ftp1
+ set tcp1 [new Agent/TCP] 
+ set null1 [new Agent/TCPSink] 
+ $ns attach-agent $node0 $tcp1
+ $ns attach-agent $node9 $null1
+ $ns connect $tcp1 $null1
+ set ftp1 [new Application/FTP] 
+ $ftp1 attach-agent $tcp1  
+ $ns at 1.0 "$ftp1 start" 
+ $ns at 3.2 "$ftp1 stop"  
+ }  
+ftp_traffic $n(0) $n(8)
+
+proc smtp_traffic {node0 node3 } { 
+ global ns null2 tcp2 smtp1
+ set tcp2 [new Agent/TCP] 
+ set null2 [new Agent/TCPSink] 
+ $ns attach-agent $node0 $tcp2
+ $ns attach-agent $node3 $null2
+ $ns connect $tcp2 $null2
+ set smtp1 [new Application/Traffic/Exponential] 
+ $smtp1 attach-agent $tcp2 
+ $ns at 2.0 "$smtp1 start" 
+ $ns at 3.8 "$smtp1 stop"  
+ }  
+smtp_traffic $n(3) $n(6)
+ 
+proc http_traffic {node1 node7 } {  
+ global ns null3 tcp3 http1
+ set tcp3 [new Agent/TCP] 
+ set null3 [new Agent/TCPSink] 
+ $ns attach-agent $node1 $tcp3
+ $ns attach-agent $node7 $null3
+ $ns connect $tcp3 $null3
+ set http1 [new Application/Traffic/Exponential] 
+ $http1 attach-agent $tcp3  
+ $ns at 0.2 "$http1 start" 
+ $ns at 3.2 "$http1 stop"  }  
+http_traffic $n(0) $n(7)
+ 
+#scheduling events
+$ns at 0.5 "record"
+$ns at 0.2 "$ns trace-annotate \"Starting HTTP from 0 to 7\""
+$ns at 1.0 "$ns trace-annotate \"Starting FTP from 0 to 8\""
+$ns at 2.0 "$ns trace-annotate \"Starting SMTP from 3 to 6\""
+$ns at 5.0 "finish"
+$ns run
+

noshot/data/AIDS CN NLP/CN/7. Link State And Distance Vector Routing/DV.tcl

@@ -0,0 +1,111 @@
+#How to run
+#==========
+#save this file as DV.tcl in desktop folder
+#also save analysis.awk file in the same location
+#open desktop right-click and choose 'Open in Terminal'
+#run this command
+#ns DV.tcl
+
+#both nam and awk file will be executed automatically
+
+set ns [new Simulator]
+$ns rtproto DV
+$ns color 1 green
+set node0 [$ns node]
+set node1 [$ns node]
+set node2 [$ns node]
+set node3 [$ns node]
+set node4 [$ns node]
+
+set node5 [$ns node]
+set node6 [$ns node]
+set tf [open out_dv.tr w]
+$ns trace-all $tf
+set nf [open out_dv.nam w]
+$ns namtrace-all $nf
+
+set ft [open "dvr_th" "w"]
+$node0 label "node 0"
+$node1 label "node 1"
+$node2 label "node 2"
+$node3 label "node 3"
+$node4 label "node 4"
+
+$node5 label "node 5"
+$node6 label "node 6"
+$ns duplex-link $node0 $node1 1.5Mb 10ms DropTail
+$ns duplex-link $node1 $node2 1.5Mb 10ms DropTail
+$ns duplex-link $node2 $node3 1.5Mb 10ms DropTail
+$ns duplex-link $node3 $node4 1.5Mb 10ms DropTail
+
+$ns duplex-link $node4 $node5 1.5Mb 10ms DropTail
+$ns duplex-link $node5 $node6 1.5Mb 10ms DropTail
+$ns duplex-link $node6 $node0 1.5Mb 10ms DropTail
+$ns duplex-link-op $node0 $node1 orient left-down
+$ns duplex-link-op $node1 $node2 orient left-down
+$ns duplex-link-op $node2 $node3 orient right-down
+$ns duplex-link-op $node3 $node4 orient right
+$ns duplex-link-op $node4 $node5 orient right-up
+$ns duplex-link-op $node5 $node6 orient left-up
+$ns duplex-link-op $node6 $node0 orient left-up
+
+set tcp2 [new Agent/TCP]
+$tcp2 set class_ 1
+$ns attach-agent $node0 $tcp2
+set sink2 [new Agent/TCPSink]
+$ns attach-agent $node3 $sink2
+$ns connect $tcp2 $sink2
+set traffic_ftp2 [new Application/FTP]
+
+$traffic_ftp2 attach-agent $tcp2
+proc record {} {
+global sink2 tf ft
+global ftp
+set ns [Simulator instance]
+set time 0.1
+set now [$ns now]
+set bw0 [$sink2 set bytes_]
+puts $ft "$now [expr $bw0/$time*8/1000000]"
+$sink2 set bytes_ 0
+$ns at [expr $now+$time] "record"
+}
+
+proc finish {} {
+global ns nf
+$ns flush-trace
+close $nf
+exec nam out_dv.nam &
+exec xgraph dvr_th &
+exec awk -f analysis.awk out_dv.tr &
+exit 0
+}
+
+$ns at 0.55 "record"
+$ns at 0.5 "$node0 color \"Green\""
+$ns at 0.5 "$node3 color \"Green\""
+$ns at 0.5 "$ns trace-annotate \"Starting FTP node0 to node6\""
+$ns at 0.5 "$node0 label-color green"
+$ns at 0.5 "$node3 label-color green"
+$ns at 0.5 "$traffic_ftp2 start"
+$ns at 0.5 "$node1 label-color green"
+
+$ns at 0.5 "$node2 label-color green"
+$ns at 0.5 "$node4 label-color blue"
+$ns at 0.5 "$node5 label-color blue"
+$ns at 0.5 "$node6 label-color blue"
+$ns rtmodel-at 2.0 down $node2 $node3
+
+$ns at 2.0 "$node4 label-color green"
+$ns at 2.0 "$node5 label-color green"
+$ns at 2.0 "$node6 label-color green"
+$ns at 2.0 "$node1 label-color blue"
+$ns at 2.0 "$node2 label-color blue"
+
+$ns rtmodel-at 3.0 up $node2 $node3
+$ns at 3.0 "$traffic_ftp2 start"
+$ns at 4.9 "$traffic_ftp2 stop"
+$ns at 5.0 "finish"
+$ns run
+
+
+

noshot/data/AIDS CN NLP/CN/7. Link State And Distance Vector Routing/LS.tcl

@@ -0,0 +1,106 @@
+#How to run
+#==========
+#save this file as LS.tcl in desktop folder
+#also save analysis.awk file in the same location
+#open desktop right-click and choose 'Open in Terminal'
+#run this command
+#ns LS.tcl
+
+#both nam and awk file will be executed automatically
+
+set ns [new Simulator]
+$ns rtproto LS
+$ns color 1 green
+set node0 [$ns node]
+set node1 [$ns node]
+set node2 [$ns node]
+set node3 [$ns node]
+set node4 [$ns node]
+set node5 [$ns node]
+set node6 [$ns node]
+set tf [open out_ls.tr w]
+$ns trace-all $tf
+set nf [open out_ls.nam w]
+$ns namtrace-all $nf
+set ft [open "lsr_th" "w"]
+$node0 label "node 0"
+$node1 label "node 1"
+$node2 label "node 2"
+$node3 label "node 3"
+$node4 label "node 4"
+$node5 label "node 5"
+$node6 label "node 6"
+$ns duplex-link $node0 $node1 1.5Mb 10ms DropTail
+$ns duplex-link $node1 $node2 1.5Mb 10ms DropTail
+$ns duplex-link $node2 $node3 1.5Mb 10ms DropTail
+$ns duplex-link $node3 $node4 1.5Mb 10ms DropTail
+$ns duplex-link $node4 $node5 1.5Mb 10ms DropTail
+$ns duplex-link $node5 $node6 1.5Mb 10ms DropTail
+$ns duplex-link $node6 $node0 1.5Mb 10ms DropTail
+
+$ns duplex-link-op $node0 $node1 orient left-down
+$ns duplex-link-op $node1 $node2 orient left-down
+$ns duplex-link-op $node2 $node3 orient right-down
+$ns duplex-link-op $node3 $node4 orient right
+$ns duplex-link-op $node4 $node5 orient right-up
+$ns duplex-link-op $node5 $node6 orient left-up
+$ns duplex-link-op $node6 $node0 orient left-up
+
+set tcp2 [new Agent/TCP]
+$tcp2 set class_ 1
+$ns attach-agent $node0 $tcp2
+set sink2 [new Agent/TCPSink]
+$ns attach-agent $node3 $sink2
+$ns connect $tcp2 $sink2
+
+set traffic_ftp2 [new Application/FTP]
+$traffic_ftp2 attach-agent $tcp2
+proc record {} {
+global sink2 tf ft
+global ftp
+
+set ns [Simulator instance]
+set time 0.1
+set now [$ns now]
+set bw0 [$sink2 set bytes_]
+puts $ft "$now [expr $bw0/$time*8/1000000]"
+$sink2 set bytes_ 0
+$ns at [expr $now+$time] "record"
+}
+
+proc finish {} {
+global ns nf
+$ns flush-trace
+close $nf
+exec nam out_ls.nam &
+exec xgraph lsr_th &
+exec awk -f analysis.awk out_ls.tr &
+exit 0
+}
+
+$ns at 0.55 "record"
+$ns at 0.5 "$node0 color \"Green\""
+$ns at 0.5 "$node3 color \"Green\""
+$ns at 0.5 "$ns trace-annotate \"Starting FTP node0 to node3\""
+$ns at 0.5 "$node0 label-color green"
+$ns at 0.5 "$node3 label-color green"
+
+$ns at 0.5 "$traffic_ftp2 start"
+$ns at 0.5 "$node1 label-color green"
+$ns at 0.5 "$node2 label-color green"
+$ns at 0.5 "$node4 label-color blue"
+$ns at 0.5 "$node5 label-color blue"
+$ns at 0.5 "$node6 label-color blue"
+$ns rtmodel-at 2.0 down $node2 $node3
+$ns at 2.0 "$node4 label-color green"
+$ns at 2.0 "$node5 label-color green"
+$ns at 2.0 "$node6 label-color green"
+$ns at 2.0 "$node1 label-color blue"
+$ns at 2.0 "$node2 label-color blue"
+$ns rtmodel-at 3.0 up $node2 $node3
+$ns at 3.0 "$traffic_ftp2 start"
+$ns at 4.9 "$traffic_ftp2 stop"
+$ns at 5.0 "finish"
+$ns run
+
+

noshot/data/AIDS CN NLP/CN/7. Link State And Distance Vector Routing/analysis.awk

@@ -0,0 +1,36 @@
+BEGIN {
+recvdSize = 0
+startTime = 0.5
+stopTime = 5.0
+}
+
+{
+event = $1
+time = $2
+node_id = $3
+pkt_size = $6
+level = $4
+
+if (event == "s") {
+if (time < startTime) {
+startTime = time
+}
+}
+
+if (event == "r") {
+if (time > stopTime) {
+stopTime = time
+}
+recvdSize += pkt_size
+}
+}
+
+END{
+print("")
+printf("Average Throughput[kbps] = %.2f",(recvdSize/(stopTime-startTime))*(8/1000))
+print("")
+printf("StartTime = %.2f",startTime)
+print("")
+printf("StopTime  = %.2f",stopTime)
+print("")
+}

noshot/data/AIDS CN NLP/CN/8. Multicast And Broadcast Routing/analysis.awk

@@ -0,0 +1,20 @@
+BEGIN{
+	r1=d1=total=0
+	ratio=tp1=0.0
+}
+
+{
+	if($1 =="r" && $5=="cbr")r1++
+	if($1 =="d" && $5=="cbr")d1++
+}
+
+END{
+	total = r1+d1
+	ratio = (r1)*100/total
+	tp1 = (r1+d1)*8/1000000
+	print("")
+	print("Packets Received:",r1)
+	print("Packets Dropped:",d1)
+	print("Packets Delivery Ratio:",ratio,"%")
+	print("UDP Throughput:",tp1,"Mbps")
+}

noshot/data/AIDS CN NLP/CN/8. Multicast And Broadcast Routing/broadcast.tcl

@@ -0,0 +1,76 @@
+#How to run
+#==========
+#save this file as broadcast.tcl in desktop folder
+#also save analysis.awk file in the same location
+#open desktop right-click and choose 'Open in Terminal'
+#run this command
+#ns broadcast.tcl
+
+#both nam and awk file will be executed automatically
+
+set ns [new Simulator -multicast on]
+
+set tf [open broadcast.tr w]
+$ns trace-all $tf
+
+set namfile [open broadcast.nam w]
+$ns namtrace-all $namfile
+
+set n0 [$ns node]
+set n1 [$ns node]
+set n2 [$ns node]
+set n3 [$ns node]
+set n4 [$ns node]
+
+$ns duplex-link $n0 $n1 1Mb 10ms DropTail
+$ns duplex-link $n0 $n2 1Mb 10ms DropTail
+$ns duplex-link $n1 $n3 1Mb 10ms DropTail
+$ns duplex-link $n2 $n4 1Mb 10ms DropTail
+
+set mproto DM
+set mrthandle [$ns mrtproto $mproto {}]
+
+set group [Node allocaddr]
+
+set udp [new Agent/UDP]
+$ns attach-agent $n0 $udp
+
+$udp set dst_addr_ $group
+$udp set dst_port_ 0
+
+set cbr [new Application/Traffic/CBR]
+$cbr attach-agent $udp
+
+set rcvr1 [new Agent/Null]
+set rcvr2 [new Agent/Null]
+set rcvr3 [new Agent/Null]
+set rcvr4 [new Agent/Null]
+
+$ns attach-agent $n1 $rcvr1
+$ns attach-agent $n2 $rcvr2
+$ns attach-agent $n3 $rcvr3
+$ns attach-agent $n4 $rcvr4
+
+$ns at 0.0 "$n1 join-group $rcvr1 $group"
+$ns at 0.0 "$n2 join-group $rcvr2 $group"
+$ns at 0.0 "$n3 join-group $rcvr3 $group"
+$ns at 0.0 "$n4 join-group $rcvr4 $group"
+
+$ns at 0.5 "$cbr start"
+$ns at 2.0 "$cbr stop"
+
+$ns at 2.5 "finish"
+
+proc finish {} {
+    global ns tf namfile
+    $ns flush-trace
+    close $tf
+    close $namfile
+    puts "Executing nam..."
+    exec nam broadcast.nam &
+    exec awk -f analysis.awk broadcast.tr &
+    exit 0
+}
+
+$ns run
+

noshot/data/AIDS CN NLP/CN/8. Multicast And Broadcast Routing/multicast.tcl

@@ -0,0 +1,103 @@
+#How to run
+#==========
+#save this file as multicast.tcl in desktop folder
+#also save analysis.awk file in the same location
+#open desktop right-click and choose 'Open in Terminal'
+#run this command
+#ns multicast.tcl
+
+#both nam and awk file will be executed automatically
+
+set ns [new Simulator -multicast on]
+set tf [open multicast.tr w]
+$ns trace-all $tf
+
+set fd [open multicast.nam w]
+$ns namtrace-all $fd
+
+set n0 [$ns node]
+set n1 [$ns node]
+set n2 [$ns node]
+set n3 [$ns node]
+set n4 [$ns node]
+set n5 [$ns node]
+set n6 [$ns node]
+set n7 [$ns node]
+
+$ns duplex-link $n0 $n2 1.5Mb 10ms DropTail
+$ns duplex-link $n1 $n2 1.5Mb 10ms DropTail
+$ns duplex-link $n2 $n3 1.5Mb 10ms DropTail
+$ns duplex-link $n3 $n4 1.5Mb 10ms DropTail
+$ns duplex-link $n3 $n7 1.5Mb 10ms DropTail
+$ns duplex-link $n4 $n5 1.5Mb 10ms DropTail
+$ns duplex-link $n4 $n6 1.5Mb 10ms DropTail
+
+set mproto DM
+set mrthandle [$ns mrtproto $mproto {}]
+
+set group1 [Node allocaddr]
+
+set group2 [Node allocaddr]
+
+set udp0 [new Agent/UDP]
+$ns attach-agent $n0 $udp0
+$udp0 set dst_addr_ $group1
+$udp0 set dst_port_ 0
+set cbr1 [new Application/Traffic/CBR]
+$cbr1 attach-agent $udp0
+
+set udp1 [new Agent/UDP]
+$ns attach-agent $n1 $udp1
+$udp1 set dst_addr_ $group2
+$udp1 set dst_port_ 0
+set cbr2 [new Application/Traffic/CBR]
+$cbr2 attach-agent $udp1
+
+set rcvr1 [new Agent/Null]
+$ns attach-agent $n5 $rcvr1
+$ns at 1.0 "$n5 join-group $rcvr1 $group1"
+set rcvr2 [new Agent/Null]
+$ns attach-agent $n6 $rcvr2
+$ns at 1.5 "$n6 join-group $rcvr2 $group1"
+
+set rcvr3 [new Agent/Null]
+$ns attach-agent $n7 $rcvr3
+$ns at 2.0 "$n7 join-group $rcvr3 $group1"
+
+set rcvr4 [new Agent/Null]
+$ns attach-agent $n5 $rcvr1
+$ns at 2.5 "$n5 join-group $rcvr4 $group2"
+
+set rcvr5 [new Agent/Null]
+$ns attach-agent $n6 $rcvr2
+$ns at 3.0 "$n6 join-group $rcvr5 $group2"
+
+set rcvr6 [new Agent/Null]
+$ns attach-agent $n7 $rcvr3
+
+$ns at 3.5 "$n7 join-group $rcvr6 $group2"
+$ns at 4.0 "$n5 leave-group $rcvr1 $group1"
+$ns at 4.5 "$n6 leave-group $rcvr2 $group1"
+$ns at 5.0 "$n7 leave-group $rcvr3 $group1"
+$ns at 5.5 "$n5 leave-group $rcvr4 $group2"
+$ns at 6.0 "$n6 leave-group $rcvr5 $group2"
+$ns at 6.5 "$n7 leave-group $rcvr6 $group2"
+
+$ns at 0.5 "$cbr1 start"
+$ns at 9.5 "$cbr1 stop"
+$ns at 0.5 "$cbr2 start"
+$ns at 9.5 "$cbr2 stop"
+
+$ns at 10.0 "finish"
+proc finish {} {
+global ns tf
+$ns flush-trace
+close $tf
+puts "Executing nam..."
+exec nam multicast.nam &
+exec awk -f analysis.awk multicast.tr &
+exit 0
+}
+
+$ns set-animation-rate 3.0ms
+$ns run