1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
|
#!/bin/sh
#Run all simulations for a paper on modeling wireless links
if [ -z $1 ]; then
GP="off"; QUIET=1
else
if [ $1 = "gp" ]; then
GP="on"; QUIET=1
fi
if [ $1 = "xgraph" ]; then
GP="off"; QUIET=0
fi
fi
NS=${NS:-../../../ns}
# Fig: WLAN duplex
$NS mtp.tcl -type wlan_duplex -stop 10 -quiet $QUIET
./timeseq.cmd wlan_duplex
if [ $GP = "on" ]; then gv wlan_duplex.eps; fi
# Fig: WLAN duplex, 1Mbps
$NS mtp.tcl -type wlan_duplex -stop 10 -quiet $QUIET -bwUL 1000000 \
-bwDL 1000000
./timeseq.cmd wlan_duplex_1mb
if [ $GP = "on" ]; then gv wlan_duplex_1mb.eps; fi
# Fig: WLAN duplex with reverse TCP
$NS mtp.tcl -type wlan_duplex -flowsRev 1 -stop 10 -quiet $QUIET
./timeseq.cmd wlan_duplex_rev
if [ $GP = "on" ]; then gv wlan_duplex_rev.eps; fi
# Fig: WLAN complex
$NS mtp.tcl -type wlan_complex -stop 10 -quiet $QUIET
./timeseq.cmd wlan_complex
if [ $GP = "on" ]; then gv wlan_complex.eps; fi
# Fig: WLAN complex with reverse TCP
$NS mtp.tcl -type wlan_complex -flowsRev 1 -stop 10 -quiet $QUIET
./timeseq.cmd wlan_complex_rev
if [ $GP = "on" ]; then gv wlan_complex_rev.eps; fi
# Fig: WLAN as 802.3 with reverse TCP
$NS mtp.tcl -type wlan_ether -flowsRev 1 -stop 10 -quiet $QUIET
./timeseq.cmd wlan_ether_rev
if [ $GP = "on" ]; then gv wlan_ether_rev.eps; fi
# Fig: GPRS Latency 500ms
$NS mtp.tcl -flows 0 -pingInt 0.5 -stop 500 -allocLenDL 'U(0.16,0.19)' \
-allocHoldDL 'U(2,5)' -allocLenUL 'U(0.5,0.6)' \
-allocHoldUL 'U(0.01,0.4)' -quiet $QUIET
./pingplot.cmd sim-latency-500ms
if [ $GP = "on" ]; then gv sim-latency-500ms.eps; fi
# Fig: GPRS Latency 5s
$NS mtp.tcl -flows 0 -pingInt 5 -stop 5000 -allocLenDL 'U(0.16,0.19)' \
-allocHoldDL 'U(2,5)' -allocLenUL 'U(0.5,0.6)' \
-allocHoldUL 'U(0.01,0.4)' -quiet $QUIET
./pingplot.cmd sim-latency-5000ms
if [ $GP = "on" ]; then gv sim-latency-5000ms.eps; fi
# Fig: delay jitter due to handovers
$NS mtp.tcl -delayInt 'E(3)' -delayLen 'E(3)' -quiet $QUIET
./timeseq.cmd spike-delays
if [ $GP = "on" ]; then gv spike-delays.eps; fi
# Fig: delay jitter due to ARQ
$NS mtp.tcl -delayInt 'E(0.3)' -delayLen 'E(0.3)' -quiet $QUIET
./timeseq.cmd arq-delays
if [ $GP = "on" ]; then gv arq-delays.eps; fi
# Fig: Vertical handover from GPRS to WLAN
$NS mtp.tcl -flows 0 -flowsTfrc 1 -vhoTarget wlan_duplex -quiet $QUIET \
-stop 60 -srcTrace bs -dstTrace ms
./timeseq.cmd vho-tfrc
if [ $GP = "on" ]; then gv vho-tfrc.eps; fi
# Fig: Second vertical handover from GPRS to WLAN
$NS mtp.tcl -flows 0 -flowsTfrc 1 -vhoTarget wlan_duplex -quiet $QUIET \
-stop 60 -gprsbuf 30 -wlan_duplex_buf 100 -tfrcFB 1 \
-srcTrace bs -dstTrace ms
./timeseq.cmd vho-tfrc-ovb-fb1
if [ $GP = "on" ]; then gv vho-tfrc-ovb-fb1.eps; fi
# Running this one with: Agent/TFRCSink set NumFeedback_ 3
# The sender increases its sending rate slighly faster.
# The sender has drops from 11-16 seconds.
# The sender starts slowing down.
# It takes a long time for the sender to forget about this old history.
$NS mtp.tcl -flows 0 -flowsTfrc 1 -vhoTarget wlan_duplex -quiet $QUIET \
-stop 60 -gprsbuf 30 -wlan_duplex_buf 100 -tfrcFB 3 \
-srcTrace bs -dstTrace ms
./timeseq.cmd vho-tfrc-ovb-fb3
if [ $GP = "on" ]; then gv vho-tfrc-ovb-fb3.eps; fi
|
