script-wired.sh

#INPUT: output file AND number of iterations

outputDirectory="out/"
rm -rf $outputDirectory
rm -rf Output/
mkdir -p $outputDirectory


param=3

iteration_float=3.0;
under="_";


###################   FILES   ###################
outFileName="$outputDirectory""OUT"
outFileExt=".out"
outFile="$outputDirectory""OUT.out"
tempFile="$outputDirectory""TEMPFILE.tmp"
graphData="$outputDirectory""GRAPH.graph"
graphFileName="out/GRAPH.graph"
tclFile="tcl-wired.tcl"
awkFile="awk-wired.awk"
traceFile="TRACE.tr"


###################   Parameters starting/default values   ###################
nNodesInit=20
nFlowsInit=10
pcktRateInit=100


defFactor=1

(( nNodesDef =  $defFactor * $nNodesInit ))
(( nFlowsDef =  $defFactor * $nFlowsInit ))
(( pcktRateDef = $defFactor * $pcktRateInit ))

nNodes=$nNodesDef
nFlows=$nFlowsDef
pcktRate=$pcktRateDef
txRange=$txRangeDef

iteration=$(printf %.0f $iteration_float);


echo '================='
echo '===== Wired ======'
echo '================='


# echo 'Which parameter do you want to vary?'
# echo '1. # of Nodes'
# echo '2. # of flows'
# echo '3. Packet rate'
# read param
# param=1

# echo 'Please enter the # of iteration'
# read nIter
nDataSet=5




if [ "$param" == "1" ]; then
	nNodes=$nNodesInit
	echo "Varying #Nodes"
elif [ "$param" == "2" ]; then
	nFlows=$nFlowsInit
	echo "Varying #Flows"
elif [ "$param" == "3" ]; then
	pcktRate=$pcktRateInit
	echo "Varying #PktRate"
fi


round=1

while [ $round -le $nDataSet ]
do
	###############################START A ROUND

	echo "#####################################################################"
	echo "                         ROUND : $round                              "
	echo "#####################################################################"

	l=0;thr=0.0;del=0.0;s_packet=0.0;r_packet=0.0;d_packet=0.0;del_ratio=0.0;
	dr_ratio=0.0;time=0.0;total_retransmit=0.0;rTotalDelay=0.0; 

	i=0
	while [ $i -lt $iteration ]
	do
		#################START AN ITERATION
		# echo "                             EXECUTING $(($i+1)) th ITERATION"

		ns $tclFile $nNodes $nFlows $pcktRate
		echo "SIMULATION COMPLETE. BUILDING STAT..."

		awk -f $awkFile $traceFile > $tempFile


		# ======================================================================
		# UPDATING THE VALUES IN EACH ITERATION
		# ======================================================================
		l=0
		while read val
		do

			l=$(($l+1))

			if [ "$l" == "1" ]; then
				thr=$(echo "scale=5; $thr+$val/$iteration_float" | bc)
				#		echo -ne "throughput: $thr "
			elif [ "$l" == "2" ]; then
				del=$(echo "scale=5; $del+$val/$iteration_float" | bc)
				#		echo -ne "delay: "
			elif [ "$l" == "3" ]; then
				s_packet=$(echo "scale=5; $s_packet+$val/$iteration_float" | bc)
				#		echo -ne "send packet: "
			elif [ "$l" == "4" ]; then
				r_packet=$(echo "scale=5; $r_packet+$val/$iteration_float" | bc)
				#		echo -ne "received packet: "
			elif [ "$l" == "5" ]; then
				d_packet=$(echo "scale=5; $d_packet+$val/$iteration_float" | bc)
				#		echo -ne "drop packet: "
			elif [ "$l" == "6" ]; then
				del_ratio=$(echo "scale=5; $del_ratio+$val/$iteration_float" | bc)
				#		echo -ne "delivery ratio: "
			elif [ "$l" == "7" ]; then
				dr_ratio=$(echo "scale=5; $dr_ratio+$val/$iteration_float" | bc)
				#		echo -ne "drop ratio: "
			elif [ "$l" == "8" ]; then
				time=$(echo "scale=5; $time+$val/$iteration_float" | bc)
				#		echo -ne "time: "
			elif [ "$l" == "9" ]; then
				rTotalDelay=$(echo "scale=5; $rTotalDelay+$val/$iteration_float" | bc)
			fi

			# echo "val: $val"
		done < $tempFile

		i=$(($i+1))
	done


	########## OUTPUT FILE GENERATION
	
	output_file="$outFileName$under$round$outFileExt"
	echo "" > $output_file # clearing the output file

			
	echo "# of Nodes:                   $nNodes " >> $output_file
	echo "# of flows:                   $nFlows " >> $output_file
	echo "Packet size:                  $pcktRate " >> $output_file


	echo "" >> $output_file
	echo "" >> $output_file
	echo "" >> $output_file


	echo "Throughput:                   $thr " >> $output_file
	echo "AverageDelay:                 $del " >> $output_file
	echo "Sent Packets:                 $s_packet " >> $output_file
	echo "Received Packets:             $r_packet " >> $output_file
	echo "Dropped Packets:              $d_packet " >> $output_file
	echo "PacketDeliveryRatio:          $del_ratio " >> $output_file
	echo "PacketDropRatio:              $dr_ratio " >> $output_file
	echo "Total time:                   $time " >> $output_file
	echo "Total Delay: 					$rTotalDelay " >> $output_file
	# ==========================================================================
##############################
	cat $output_file
############################
	round=$(($round+1))
#
	########Plotting Graph

	if [ "$param" == "1" ]; then
		echo -ne "$nNodes " >> $graphData
		nNodes=$(($nNodesInit*$round))
	elif [ "$param" == "2" ]; then
		echo -ne "$nFlows " >> $graphData
		nFlows=$(($nFlowsInit*$round))
	elif [ "$param" == "3" ]; then
		echo -ne "$pcktRate " >> $graphData
		pcktRate=$(($pcktRateInit*$round))
	fi

	# echo "throughput: $thr delay: $del deliver_rat: $del_ratio drop_rat: $dr_ratio" >> $graphData

	echo "$thr $del $del_ratio $dr_ratio" >> $graphData	
	#####################END A ROUND
done

if [ "$param" == "1" ]; then
	param="No of nodes"
elif [ "$param" == "2" ]; then
	param="No of flows"
elif [ "$param" == "3" ]; then
	param="Packet Rate"
fi

startParam=2
arr[0]=""
# arr[1]=""
arr[$(( $startParam + 0 ))]="Throughput"
arr[$(( $startParam + 1 ))]="Average Delay"
arr[$(( $startParam + 2 ))]="Packet Delivery Ratio"
arr[$(( $startParam + 3 ))]="Packet Drop Ratio"

arr2[0]=""
# arr2[1]=""
arr2[$(( $startParam + 0 ))]="Throughput ( bit/second )"
arr2[$(( $startParam + 1 ))]="Average Delay ( second )"
arr2[$(( $startParam + 2 ))]="Packet Delivery Ratio ( % )"
arr2[$(( $startParam + 3 ))]="Packet Drop Ratio ( % )"

i=$(( $startParam + 3 ))
while [ $i -ge $startParam ]
do
	gnuplot -persist -e "set terminal png size 700,500; set output '$outputDirectory${arr[$i]}VS$param.png'; set title 'Wired : ${arr[$i]} vs $param'; set xlabel '$param'; set ylabel '${arr2[$i]}'; plot '$graphFileName' using 1:$i with lines"
	i=$(($i-1))
done

# mv $outputDirectory "Output"