noshot 0.1.0__py3-none-any.whl

noshot/data/AIDS CN NLP/CN/4. Wired Network/wired.tcl

@@ -0,0 +1,81 @@
+#How to run
+#==========
+#save this file as wired.tcl in desktop folder
+#also save wired.awk file in the same location
+#open desktop right-click and choose 'Open in Terminal'
+#run this command
+#ns wired.tcl
+
+#both nam and awk file will be executed automatically
+
+#create a simulator object 
+set ns [new Simulator]
+
+#create a trace file, this file is for logging purpose 
+set tracefile [open wired.tr w]
+$ns trace-all $tracefile
+
+#create a animation infomration or NAM file creation
+set namfile [open wired.nam w]
+$ns namtrace-all $namfile
+
+#create nodes
+set n0 [$ns node]
+set n1 [$ns node]
+set n2 [$ns node]
+set n3 [$ns node]
+set n4 [$ns node]
+set n5 [$ns node]
+
+#creation of link between nodes with DropTail Queue
+#Droptail means Dropping the tail.
+$ns duplex-link $n0 $n1 5Mb 2ms DropTail
+$ns duplex-link $n2 $n1 10Mb 5ms DropTail
+$ns duplex-link $n1 $n4 3Mb 10ms DropTail
+$ns duplex-link $n4 $n3 100Mb 2ms DropTail
+$ns duplex-link $n4 $n5 4Mb 10ms DropTail
+
+#creation of Agents
+#node 0 to Node 3
+set udp [new Agent/UDP]
+set null [new Agent/Null]
+$ns attach-agent $n0 $udp
+$ns attach-agent $n3 $null
+$ns connect $udp $null
+
+#creation of TCP Agent
+set tcp [new Agent/TCP]
+set sink [new Agent/TCPSink]
+$ns attach-agent $n2 $tcp
+$ns attach-agent $n5 $sink
+$ns connect $tcp $sink
+
+#creation of Application CBR, FTP
+#CBR - Constant Bit Rate (Example nmp3 files that have a CBR or 192kbps, 320kbps, etc.)
+#FTP - File Transfer Protocol (Ex: To download a file from a network)
+set cbr [new Application/Traffic/CBR]
+$cbr attach-agent $udp
+
+set ftp [new Application/FTP]
+$ftp attach-agent $tcp
+
+#Start the traffic 
+$ns at 1.0 "$cbr start"
+$ns at 2.0 "$ftp start"
+
+$ns at 10.0 "finish"
+
+#the following procedure will be called at 10.0 seconds 
+proc finish {} {
+ global ns tracefile namfile
+ $ns flush-trace
+ close $tracefile
+ close $namfile
+ puts "Executing nam file"
+ exec nam wired.nam &
+ exec awk -f wired.awk wired.tr &
+ exit 0
+}
+
+puts "Simulation is starting..."
+$ns run

noshot/data/AIDS CN NLP/CN/5. Wireless Network/wireless.awk

@@ -0,0 +1,27 @@
+BEGIN {
+	rec=sen=drp=0
+	res=start=end=0.0
+}
+
+{
+	if($1 == "s")sen++
+	if($1 == "r"){
+		if(rec==0)start = $2
+		rec++		
+		res += $8
+		end = $2
+	}
+	if($1 == "D")drp++
+}
+
+END {
+	print("")
+	print("Wireless-Network")
+	print("Number Of Packets Sent : ", sen)
+	print("Number Of Packets Recieved : ", rec)
+	print("Number Of Packets Dropped  : ", drp)
+	print("Start Of Simulation (in sec) : ", start)
+	print("End Of Simulation (in sec)   : ", end)
+	print("Total Throughput : ",((res*8) / ((end-start)*1000000))," Mbps")
+	print("Packet Delivery Ratio: ",rec*100/sen,"%")
+}

noshot/data/AIDS CN NLP/CN/5. Wireless Network/wireless.tcl

@@ -0,0 +1,153 @@
+#How to run
+#==========
+#save this file as wireless.tcl in desktop folder
+#also save wireless.awk file in the same location
+#open desktop right-click and choose 'Open in Terminal'
+#run this command
+#ns wireless.tcl
+
+#both nam and awk file will be executed automatically
+
+
+#Example of Wireless networks
+#Step 1 initialize variables
+#Step 2 - Create a Simulator object
+#step 3 - Create Tracing and animation file
+#step 4 - topography
+#step 5 - GOD - General Operations Director
+#step 6 - Create nodes
+#Step 7 - Create Channel (Communication PATH)
+#step 8 - Position of the nodes (Wireless nodes needs a location)
+#step 9 - Any mobility codes (if the nodes are moving)
+#step 10 - TCP, UDP Traffic
+#run the simulation
+
+#initialize the variables
+set val(chan)           Channel/WirelessChannel    ;#Channel Type
+set val(prop)           Propagation/TwoRayGround   ;# radio-propagation model
+set val(netif)          Phy/WirelessPhy            ;# network interface type WAVELAN DSSS 2.4GHz
+set val(mac)            Mac/802_11                 ;# MAC type
+set val(ifq)            Queue/DropTail/PriQueue    ;# interface queue type
+set val(ll)             LL                         ;# link layer type
+set val(ant)            Antenna/OmniAntenna        ;# antenna model
+set val(ifqlen)         50                         ;# max packet in ifq
+set val(nn)             6                          ;# number of mobilenodes
+set val(rp)             AODV                       ;# routing protocol
+set val(x)  500   ;# in metres
+set val(y)  500   ;# in metres
+#Adhoc OnDemand Distance Vector
+
+#creation of Simulator
+set ns [new Simulator]
+
+#creation of Trace and namfile 
+set tracefile [open wireless.tr w]
+$ns trace-all $tracefile
+
+#Creation of Network Animation file
+set namfile [open wireless.nam w]
+$ns namtrace-all-wireless $namfile $val(x) $val(y)
+
+#create topography
+set topo [new Topography]
+$topo load_flatgrid $val(x) $val(y)
+
+#GOD Creation - General Operations Director
+create-god $val(nn)
+
+set channel1 [new $val(chan)]
+set channel2 [new $val(chan)]
+set channel3 [new $val(chan)]
+
+#configure the node
+$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)   -topoInstance $topo   -agentTrace ON   -macTrace ON   -routerTrace ON   -movementTrace ON   -channel $channel1 
+
+set n0 [$ns node]
+set n1 [$ns node]
+set n2 [$ns node]
+set n3 [$ns node]
+set n4 [$ns node]
+set n5 [$ns node]
+
+$n0 random-motion 0
+$n1 random-motion 0
+$n2 random-motion 0
+$n3 random-motion 0
+$n4 random-motion 0
+$n5 random-motion 0
+
+$ns initial_node_pos $n0 20
+$ns initial_node_pos $n1 20
+$ns initial_node_pos $n2 20
+$ns initial_node_pos $n3 20
+$ns initial_node_pos $n4 20
+$ns initial_node_pos $n5 50
+
+#initial coordinates of the nodes 
+$n0 set X_ 10.0
+$n0 set Y_ 20.0
+$n0 set Z_ 0.0
+
+$n1 set X_ 210.0
+$n1 set Y_ 230.0
+$n1 set Z_ 0.0
+
+$n2 set X_ 100.0
+$n2 set Y_ 200.0
+$n2 set Z_ 0.0
+
+$n3 set X_ 150.0
+$n3 set Y_ 230.0
+$n3 set Z_ 0.0
+
+$n4 set X_ 430.0
+$n4 set Y_ 320.0
+$n4 set Z_ 0.0
+
+$n5 set X_ 270.0
+$n5 set Y_ 120.0
+$n5 set Z_ 0.0
+#Dont mention any values above than 500 because in this example, we use X and Y as 500,500
+
+#mobility of the nodes
+#At what Time? Which node? Where to? at What Speed?
+$ns at 1.0 "$n1 setdest 490.0 340.0 25.0"
+$ns at 1.0 "$n4 setdest 300.0 130.0 5.0"
+$ns at 1.0 "$n5 setdest 190.0 440.0 15.0"
+#the nodes can move any number of times at any location during the simulation (runtime)
+$ns at 20.0 "$n5 setdest 100.0 200.0 30.0"
+
+#creation of agents
+set tcp [new Agent/TCP]
+set sink [new Agent/TCPSink]
+$ns attach-agent $n0 $tcp
+$ns attach-agent $n5 $sink
+$ns connect $tcp $sink
+set ftp [new Application/FTP]
+$ftp attach-agent $tcp
+$ns at 1.0 "$ftp start"
+
+set udp [new Agent/UDP]
+set null [new Agent/Null]
+$ns attach-agent $n2 $udp
+$ns attach-agent $n3 $null
+$ns connect $udp $null
+set cbr [new Application/Traffic/CBR]
+$cbr attach-agent $udp
+$ns at 1.0 "$cbr start"
+
+$ns at 30.0 "finish"
+
+proc finish {} {
+ global ns tracefile namfile
+ $ns flush-trace
+ close $tracefile
+ close $namfile
+ puts "Executing nam file"
+ exec nam wireless.nam &
+ exec awk -f wireless.awk wireless.tr &
+ exit 0
+}
+
+puts "Starting Simulation"
+$ns run

noshot/data/AIDS CN NLP/CN/6. TCP Flow And Congestion Control/TCP Congestion Control/Sack And Vegas/analysis.awk

@@ -0,0 +1,27 @@
+BEGIN{
+st1=ft1=0
+throughput1=0
+delay1=flag1=data1=0
+}
+ 
+{
+if($1=="r"&&$4==5){
+data1+=$6
+if(flag1==0){
+st1=$2
+flag1=1}
+if(flag1==1){
+ft1=$2}}
+}
+
+END{
+delay1=ft1-st1
+throughput1=data1/delay1
+print("")
+print("**********HTTP***********")
+print("Start time =",st1) 
+print("End time =",ft1) 
+print("Data:",data1) 
+print("Throughput:",throughput1) 
+print("Delay:",delay1) 
+}

noshot/data/AIDS CN NLP/CN/6. TCP Flow And Congestion Control/TCP Congestion Control/Sack And Vegas/sack.tcl

@@ -0,0 +1,86 @@
+#How to run
+#==========
+#save this file as sack.tcl in desktop folder
+#open desktop right-click and choose 'Open in Terminal'
+#run this command
+#ns sack.tcl
+
+#nam file, xgraph and awk file will be executed automatically
+
+#creating a simulator object
+set ns [ new Simulator ]
+$ns color 3 Green
+#creating trace file
+set tf [open sack.tr w]
+$ns trace-all $tf
+
+#creating nam file
+set nf [open sack.nam w]
+$ns namtrace-all $nf
+
+set ft3 [open sack_Sender_throughput w]
+
+#finish procedure to call nam and xgraph
+proc finish {} {
+ global ns nf ft3 
+ $ns flush-trace
+ close $nf
+ close $ft3
+ exec xgraph sack_Sender_throughput &
+ puts "running nam..." 
+ exec nam sack.nam &
+ exec awk -f analysis.awk sack.tr &
+ exit 0
+}
+#record procedure to calculate total bandwidth and throughput
+proc record {} {
+ global null3 ft3 
+ global http1
+ set ns [Simulator instance]
+ set time 0.1
+ set now [$ns now]
+ set bw2 [$null3 set bytes_]
+ puts $ft3 "$now [expr $bw2/$time*8/1000000]"
+ $null3 set bytes_ 0
+ $ns at [expr $now+$time] "record"
+ }
+#creating 10 nodes
+for {set i 0} {$i < 6} {incr i} {
+ set n($i) [$ns node]
+}
+#creating duplex links
+$ns duplex-link $n(0) $n(1) 10Kb 10ms DropTail
+$ns duplex-link $n(0) $n(3) 100Kb 10ms RED
+$ns duplex-link $n(1) $n(2) 50Kb 10ms DropTail
+$ns duplex-link $n(2) $n(5) 200Kb 10ms RED
+$ns duplex-link $n(3) $n(4) 70Kb 10ms DropTail
+$ns duplex-link $n(4) $n(5) 100Kb 10ms DropTail
+
+#orienting links
+$ns duplex-link-op $n(0) $n(1) orient right
+$ns duplex-link-op $n(1) $n(2) orient right-down
+$ns duplex-link-op $n(0) $n(3) orient left-down
+$ns duplex-link-op $n(3) $n(4) orient right-down
+$ns duplex-link-op $n(4) $n(5) orient right
+$ns duplex-link-op $n(2) $n(5) orient left-down
+ 
+
+set tcp3 [new Agent/TCP/Sack1] 
+set null3 [new Agent/TCPSink] 
+$ns attach-agent $n(0) $tcp3
+$ns attach-agent $n(5) $null3
+$ns connect $tcp3 $null3
+set http1 [new Application/Traffic/Exponential] 
+$http1 attach-agent $tcp3  
+ 
+ 
+#scheduling events
+$ns at 0.5 "record"
+$ns at 0.2 "$ns trace-annotate \"Starting HTTP from 0 to 5\""
+$ns at 0.2 "$n(0) color \"green\""
+$ns at 0.2 "$n(5) color \"green\""
+$ns at 0.2 "$http1 start" 
+$ns at 3.2 "$http1 stop"  
+$ns at 5.0 "finish"
+$ns run
+

noshot/data/AIDS CN NLP/CN/6. TCP Flow And Congestion Control/TCP Congestion Control/Sack And Vegas/vegas.tcl

@@ -0,0 +1,86 @@
+#How to run
+#==========
+#save this file as vegas.tcl in desktop folder
+#open desktop right-click and choose 'Open in Terminal'
+#run this command
+#ns vegas.tcl
+
+#nam file, xgraph and awk file will be executed automatically
+
+#creating a simulator object
+set ns [ new Simulator ]
+$ns color 3 Green
+#creating trace file
+set tf [open vegas.tr w]
+$ns trace-all $tf
+
+#creating nam file
+set nf [open vegas.nam w]
+$ns namtrace-all $nf
+
+set ft3 [open vegas_Sender_throughput w]
+
+#finish procedure to call nam and xgraph
+proc finish {} {
+ global ns nf ft3 
+ $ns flush-trace
+ close $nf
+ close $ft3
+ exec xgraph vegas_Sender_throughput &
+ puts "running nam..." 
+ exec nam vegas.nam &
+ exec awk -f analysis.awk vegas.tr &
+ exit 0
+}
+#record procedure to calculate total bandwidth and throughput
+proc record {} {
+ global null3 ft3 
+ global http1
+ set ns [Simulator instance]
+ set time 0.1
+ set now [$ns now]
+ set bw2 [$null3 set bytes_]
+ puts $ft3 "$now [expr $bw2/$time*8/1000000]"
+ $null3 set bytes_ 0
+ $ns at [expr $now+$time] "record"
+ }
+#creating 10 nodes
+for {set i 0} {$i < 6} {incr i} {
+ set n($i) [$ns node]
+}
+#creating duplex links
+$ns duplex-link $n(0) $n(1) 10Kb 10ms DropTail
+$ns duplex-link $n(0) $n(3) 100Kb 10ms RED
+$ns duplex-link $n(1) $n(2) 50Kb 10ms DropTail
+$ns duplex-link $n(2) $n(5) 200Kb 10ms RED
+$ns duplex-link $n(3) $n(4) 70Kb 10ms DropTail
+$ns duplex-link $n(4) $n(5) 100Kb 10ms DropTail
+
+#orienting links
+$ns duplex-link-op $n(0) $n(1) orient right
+$ns duplex-link-op $n(1) $n(2) orient right-down
+$ns duplex-link-op $n(0) $n(3) orient left-down
+$ns duplex-link-op $n(3) $n(4) orient right-down
+$ns duplex-link-op $n(4) $n(5) orient right
+$ns duplex-link-op $n(2) $n(5) orient left-down
+ 
+
+set tcp3 [new Agent/TCP/Vegas] 
+set null3 [new Agent/TCPSink] 
+$ns attach-agent $n(0) $tcp3
+$ns attach-agent $n(5) $null3
+$ns connect $tcp3 $null3
+set http1 [new Application/Traffic/Exponential] 
+$http1 attach-agent $tcp3  
+ 
+ 
+#scheduling events
+$ns at 0.5 "record"
+$ns at 0.2 "$ns trace-annotate \"Starting HTTP from 0 to 5\""
+$ns at 0.2 "$n(0) color \"green\""
+$ns at 0.2 "$n(5) color \"green\""
+$ns at 0.2 "$http1 start" 
+$ns at 3.2 "$http1 stop"  
+$ns at 5.0 "finish"
+$ns run
+

noshot/data/AIDS CN NLP/CN/6. TCP Flow And Congestion Control/TCP Congestion Control/Tahoe And Reno/analysis.awk

@@ -0,0 +1,28 @@
+BEGIN{
+start = end = th = dly = 0
+flag = data = 0
+}
+ 
+{
+if($1=="r"&&$4==5){
+	data+=$6
+	if(flag==0){
+		start=$2
+		flag=1
+	}	
+	if(flag==1) 
+		end=$2
+}
+}
+
+END{
+dly = end - start
+th = data/dly
+print("")
+print("**********HTTP***********")
+print("Start time:",start)
+print("End time:",end)
+print("Data =",data)
+print("Throughput =",th)
+print("Delay =",dly)
+}

noshot/data/AIDS CN NLP/CN/6. TCP Flow And Congestion Control/TCP Congestion Control/Tahoe And Reno/reno.tcl

@@ -0,0 +1,78 @@
+#How to run
+#==========
+#save this file as reno.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 reno.tcl
+
+#both nam and awk file will be executed automatically
+
+set ns [ new Simulator ]
+$ns color 3 Green
+set tf [open reno.tr w]
+$ns trace-all $tf
+
+set nf [open reno.nam w]
+$ns namtrace-all $nf
+
+set ft3 [open reno_Sender_throughput w]
+
+proc finish {} {
+ global ns nf ft3 
+ $ns flush-trace
+ close $nf
+ close $ft3
+ exec xgraph reno_Sender_throughput &
+ puts "running nam..." 
+ exec nam reno.nam &
+ exec awk -f analysis.awk reno.tr &
+ exit 0
+}
+
+proc record {} {
+ global null3 ft3 
+ global http1
+ set ns [Simulator instance]
+ set time 0.1
+ set now [$ns now]
+ set bw2 [$null3 set bytes_]
+ puts $ft3 "$now [expr $bw2/$time*8/1000000]"
+ $null3 set bytes_ 0
+ $ns at [expr $now+$time] "record"
+ }
+
+for {set i 0} {$i < 6} {incr i} {
+ set n($i) [$ns node]
+}
+
+$ns duplex-link $n(0) $n(1) 10Kb 10ms DropTail
+$ns duplex-link $n(0) $n(3) 100Kb 10ms RED
+$ns duplex-link $n(1) $n(2) 50Kb 10ms DropTail
+$ns duplex-link $n(2) $n(5) 200Kb 10ms RED
+$ns duplex-link $n(3) $n(4) 70Kb 10ms DropTail
+$ns duplex-link $n(4) $n(5) 100Kb 10ms DropTail
+
+$ns duplex-link-op $n(0) $n(1) orient right
+$ns duplex-link-op $n(1) $n(2) orient right-down
+$ns duplex-link-op $n(0) $n(3) orient left-down
+$ns duplex-link-op $n(3) $n(4) orient right-down
+$ns duplex-link-op $n(4) $n(5) orient right
+$ns duplex-link-op $n(2) $n(5) orient left-down
+ 
+set tcp3 [new Agent/TCP/Reno] 
+set null3 [new Agent/TCPSink] 
+$ns attach-agent $n(0) $tcp3
+$ns attach-agent $n(5) $null3
+$ns connect $tcp3 $null3
+set http1 [new Application/Traffic/Exponential] 
+$http1 attach-agent $tcp3  
+
+$ns at 0.5 "record"
+$ns at 0.2 "$ns trace-annotate \"Starting HTTP from 0 to 5\""
+$ns at 0.2 "$n(0) color \"green\""
+$ns at 0.2 "$n(5) color \"green\""
+$ns at 0.2 "$http1 start" 
+$ns at 3.2 "$http1 stop"  
+$ns at 5.0 "finish"
+$ns run

noshot/data/AIDS CN NLP/CN/6. TCP Flow And Congestion Control/TCP Congestion Control/Tahoe And Reno/tahoe.tcl

@@ -0,0 +1,79 @@
+#How to run
+#==========
+#save this file as tahoe.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 tahoe.tcl
+
+#both nam and awk file will be executed automatically
+
+set ns [ new Simulator ]
+$ns color 3 Green
+set tf [open tahoe.tr w]
+$ns trace-all $tf
+
+set nf [open tahoe.nam w]
+$ns namtrace-all $nf
+
+set ft3 [open tahoe_Sender_throughput w]
+
+proc finish {} {
+ global ns nf ft3 
+ $ns flush-trace
+ close $nf
+ close $ft3
+ exec xgraph tahoe_Sender_throughput &
+ puts "running nam..." 
+ exec nam tahoe.nam &
+ exec awk -f analysis.awk tahoe.tr &
+ exit 0
+}
+
+proc record {} {
+ global null3 ft3 
+ global http1
+ set ns [Simulator instance]
+ set time 0.1
+ set now [$ns now]
+ set bw2 [$null3 set bytes_]
+ puts $ft3 "$now [expr $bw2/$time*8/1000000]"
+ $null3 set bytes_ 0
+ $ns at [expr $now+$time] "record"
+ }
+
+for {set i 0} {$i < 6} {incr i} {
+ set n($i) [$ns node]
+}
+
+$ns duplex-link $n(0) $n(1) 10Kb 10ms DropTail
+$ns duplex-link $n(0) $n(3) 100Kb 10ms RED
+$ns duplex-link $n(1) $n(2) 50Kb 10ms DropTail
+$ns duplex-link $n(2) $n(5) 200Kb 10ms RED
+$ns duplex-link $n(3) $n(4) 70Kb 10ms DropTail
+$ns duplex-link $n(4) $n(5) 100Kb 10ms DropTail
+
+$ns duplex-link-op $n(0) $n(1) orient right
+$ns duplex-link-op $n(1) $n(2) orient right-down
+$ns duplex-link-op $n(0) $n(3) orient left-down
+$ns duplex-link-op $n(3) $n(4) orient right-down
+$ns duplex-link-op $n(4) $n(5) orient right
+$ns duplex-link-op $n(2) $n(5) orient left-down
+ 
+
+set tcp3 [new Agent/TCP]
+set null3 [new Agent/TCPSink]
+$ns attach-agent $n(0) $tcp3
+$ns attach-agent $n(5) $null3
+$ns connect $tcp3 $null3
+set http1 [new Application/Traffic/Exponential]
+$http1 attach-agent $tcp3
+ 
+$ns at 0.5 "record"
+$ns at 0.2 "$ns trace-annotate \"Starting HTTP from 0 to 5\""
+$ns at 0.2 "$n(0) color \"green\""
+$ns at 0.2 "$n(5) color \"green\""
+$ns at 0.2 "$http1 start"
+$ns at 3.2 "$http1 stop" 
+$ns at 5.0 "finish"
+$ns run

noshot/data/AIDS CN NLP/CN/6. TCP Flow And Congestion Control/TCP Flow Control/analysis.awk

@@ -0,0 +1,27 @@
+BEGIN{
+st1=ft1=0
+throughput1=0
+delay1=flag1=data1=0
+}
+ 
+{
+if($1=="r"&&$4==5){
+data1+=$6
+if(flag1==0){
+st1=$2
+flag1=1}
+if(flag1==1){
+ft1=$2}}
+}
+
+END{
+delay1=ft1-st1
+throughput1=data1/delay1
+print("")
+print("**********HTTP***********")
+print("Start time =",st1) 
+print("End time =",ft1) 
+print("Data:",data1) 
+print("Throughput:",throughput1) 
+print("Delay:",delay1) 
+}