GSM and CDMA commented.

Author: Pythonista7

sim5GSM/delay02.tr

@@ -1,12 +1,12 @@
 0 0
 0.90000000000000002 0
-1.8 0.21743731175107556
-2.7000000000000002 0.10003994705387001
-3.6000000000000001 0.10006443551776058
-4.5 0.10105382617951546
-5.4000000000000004 0.10106279533240513
-6.3000000000000007 0.10003349870122927
-7.2000000000000011 0.099937694651735964
-8.1000000000000014 0.172498403827784
-9.0000000000000018 0
-9.9000000000000021 0.15189541949795782
+1.8 0.21368027108869092
+2.7000000000000002 0.099997771965741722
+3.6000000000000001 0.10003332937774238
+4.5 0.099975553555631355
+5.4000000000000004 0.099988888893058361
+6.3000000000000007 0.10004444645466343
+7.2000000000000011 0.10001333729718226
+8.1000000000000014 0.099953356012890848
+9.0000000000000018 0.11375561552268065
+9.9000000000000021 0.10004672543729083

sim5GSM/gsm_code.tcl

@@ -128,45 +128,71 @@ $ns connect $udp0 $sink
 #Start sending traffic from udp0
 $ns at 1.00 "$cbr1 start"
 
+#temporary holder var to carry over values of 
+#		holdtime (lastPktTime_) i.e - Time when the last packet was received  
+#		holdseq (npkts_) i.e - No of packets
+#		holdrate (bytes_) i.e - no of bytes
 set holdtime 0
 set holdseq 0
 set holdrate1 0
 
+#proc to record all the requried values to calculate throughput and meansure performance
 proc record {} {
+# import all necessary trace file references and holder vars from global namespace
 global sink f0 f1 f2 holdtime holdseq holdrate1
 set ns [Simulator instance]
+#Record values for every 0.9 seconds
 set time 0.9
+#Store all the instance variables (bytes_,nlost_,lastPktTime_,npkts_) 
+#				into an objects (i.e-bw0,bw1,bw2,bw3) and also get current time ($ns now)
 set bw0 [$sink set bytes_]
 set bw1 [$sink set nlost_]
 set bw2 [$sink set lastPktTime_]
 set bw3 [$sink set npkts_]
 set now [$ns now]
-
+#Write the current time and through-put into f0 trace file.
+#	throughput = (no_of_bytes in current 0.9 sec) + bytes from all prev instances{which we get from holdrate var}) / (2*time in sec)
 puts $f0 "$now [expr (($bw0+$holdrate1)*8)/(2*$time*1000000)]"
+
+#Here f1 is the trace file for loss
+#		loss = nlost_{i.e referenced by bw1} / current time duration{which is 0.9 seconds}
 puts $f1 "$now [expr $bw1/$time]"
+
+#Here we write to the f2 file which traces delay
+#	if no of packets(bw3) > sum of all prev no of packets 
 if { $bw3 > $holdseq } {
+#	calculate delay as (lastPktTime_ - previous_lastPktTime)/(current npkts - previous npkts)
 puts $f2 "$now [expr ($bw2 - $holdtime)/($bw3 - $holdseq)]"
 } else {
+#	else directly calculate and write delay into $f2 as (current npkts - previous npkts)
 puts $f2 "$now [expr ($bw3 - $holdseq)]"
 }
 
+#reset instance var for next 0.9s
 $sink set bytes_ 0
 $sink set nlost_ 0
 
+#record  lastPktTime(stored in bw2) into holdtime  , npkts(stored in bw3) into holdseq and no of bytes byte_(stored in bw0) into holdrate
 set holdtime $bw2
 set holdseq $bw3
 set holdrate1 $bw0
 
+#Recursively call this proc every 0.9 seconds
 $ns at [expr $now+$time] "record"
 }
 
+#Start recording values from 0.0 seconds by calling the "record" proc
 $ns at 0.0 "record"
+#mark sender node with blue square
 $ns at 1.0 "$node_(4) add-mark m blue square"
+#mark reciever node with magenta square
 $ns at 1.0 "$node_(20) add-mark m magenta square"
+#Add lables to sender and receiver 
 $ns at 1.0 "$node_(4) label SENDER"
 $ns at 1.0 "$node_(20) label RCV"
 $ns at 0.01 "$ns trace-annotate \"Network Deployment\""
 
+#Finish proc to close all f0,f1,f2 file handles and run the nam
 proc finish {} {
 global ns tracefd f0 f1 f2
 $ns flush-trace
@@ -178,6 +204,6 @@ exit 0
 }
 
 
-
+#End simulation at 10 seconds
 $ns at 10 "finish"
 $ns run

sim5GSM/lost02.tr

@@ -7,6 +7,6 @@
 5.4000000000000004 0.0
 6.3000000000000007 0.0
 7.2000000000000011 0.0
-8.1000000000000014 2.2222222222222223
-9.0000000000000018 0.0
+8.1000000000000014 0.0
+9.0000000000000018 1.1111111111111112
 9.9000000000000021 0.0