#!/bin/csh -f 

set ns_dir = "../../"
set res_dir = "./"
set util_dir = "../utils/"

foreach exp (udp tcp) 

  echo "Experiment: all flows ${exp} for topology in Figure 8"
  ${ns_dir}ns Simple3Links.${exp}.tcl
  
  # bandwidth of flow 1 along link 1 (see Figure 8)
  grep " 0 2 " out.tr | awk '{print $1, $2, $6, $8}' | grep "-" | grep "0 0" | awk '{print $2, $3}' >! t
  ${util_dir}parse_bwidth t ${exp}.b00.dat 0 200

  @ n = `cat t | wc -l`
  # result in kbps (1 packet 8 Kb => bwdth in kbps = $n * 8 / 10)
  @ n1 = ($n * 8) / 10
  echo "  Throughput of flow 1 on link 1 in kbps (Table 4) = "$n1

  # bandwidth of flow 2 along link 1 (see Figure 8)
  grep " 0 2 " out.tr | awk '{print $1, $2, $6, $8}' | grep "-" | grep "0 1" | awk '{print $2, $3}' >! t
  ${util_dir}parse_bwidth t ${exp}.b10.dat 0 200

  @ n = `cat t | wc -l`
  # result in kbps (1 packet 8 Kb => bwdth in kbps = $n * 8 / 10)
  @ n1 = ($n * 8) / 10
  echo "  Throughput of flow 2 on link 1 in kbps (Table 4) = "$n1

  # bandwidth of flow 1 along link 2 (see Figure 8)
  grep " 2 3 " out.tr | awk '{print $1, $2, $6, $8}' | grep "-" | grep "0 0" | awk '{print $2, $3}' >! t
  ${util_dir}parse_bwidth t ${exp}.b01.dat 0 200

  @ n = `cat t | wc -l`
  # result in kbps (1 packet 8 Kb => bwdth in kbps = $n * 8 / 10)
  @ n1 = ($n * 8) / 10
  echo "  Throughput of flow 1 on link 2 in kbps (Table 4) = "$n1

  # bandwidth of flow 2 along link 2 (see Figure 8)
  grep " 2 3 " out.tr | awk '{print $1, $2, $6, $8}' | grep "-" | grep "0 1" | awk '{print $2, $3}' >! t
  ${util_dir}parse_bwidth t ${exp}.b11.dat 0 200

  @ n = `cat t | wc -l`
  # result in kbps (1 packet 8 Kb => bwdth in kbps = $n * 8 / 10)
  @ n1 = ($n * 8) / 10
  echo "  Throughput of flow 2 on link 2 in kbps (Table 4) = "$n1

  # bandwidth of flow 3 along link 2 (see Figure 8)
  grep " 2 3 " out.tr | awk '{print $1, $2, $6, $8}' | grep "-" | grep "0 2" | awk '{print $2, $3}' >! t
  ${util_dir}parse_bwidth t ${exp}.b21.dat 0 200

  @ n = `cat t | wc -l`
  # result in kbps (1 packet 8 Kb => bwdth in kbps = $n * 8 / 10)
  @ n1 = ($n * 8) / 10
  echo "  Throughput of flow 3 on link 2 in kbps (Table 4) = "$n1

end
rm t
rm out.tr

# use gnuplot to draw figures
echo "making link1.udp.ps and link2.udp.ps"
gnuplot Simple3Links.udp.g
echo "making link1.tcp.ps and link2.tcp.ps"
gnuplot Simple3Links.tcp.g


echo "DONE"
