#!/bin/sh#Run all simulations for a paper on modeling wireless linksif [ -z $1 ]; then GP="off"; QUIET=1else   if [ $1 = "gp" ]; then     GP="on"; QUIET=1   fi  if [ $1 = "xgraph" ]; then     GP="off"; QUIET=0  fifiNS=${NS:-../../../ns}# Fig: WLAN duplex$NS mtp.tcl -type wlan_duplex -stop 10 -quiet $QUIET./timeseq.cmd wlan_duplexif [ $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_1mbif [ $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_revif [ $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_revif [ $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_revif [ $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-500msif [ $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-5000msif [ $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-delaysif [ $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-delaysif [ $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-tfrcif [ $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-fb1if [ $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-fb3if [ $GP = "on" ]; then gv vho-tfrc-ovb-fb3.eps; fi