results.temp-rewards.compare.tcl

采用蚂蚁算法实现ad hoc网络路由协议,平台为ns2

source gatherresults.tcl

source swarmsimulations.tcl

set measuredmetrics {
	pdr(tot) 
	pdr(cost)
	pdr(appuni)
	pdr(appbrd)
	}

set confidenceInterval 0.95

set statsFileName "swarm.temp-rewards-compare"

set glob "log/temp-and-rewards*"

################################################

set seriesparameters { 
	"\$val(routingprotocol)"
	}

set plotparameters { 
	"\$val(temperature)"
	}

set runparameters { 
	"\$val(broadcastReward)"
	"\$val(seed)"
	"\$val(scenario)"
	"\$val(maxpause)"
	}
#gatherAndPlot


################################################

set seriesparameters { 
	"\$val(broadcastReward)"
	"\$val(routingprotocol)"
	}

set plotparameters { 
	"\$val(temperature)"
	}

set runparameters { 
	"\$val(unicastFailReward)"
	"\$val(seed)"
	"\$val(scenario)"
	"\$val(maxpause)"
	}
set plot_errors 0
#gatherAndPlot

################################################

set seriesparameters { 
	"\$val(temperature)"
	}

set plotparameters { 
	"\$val(broadcastReward)"
	}

set runparameters { 
	"\$val(unicastFailReward)"
	"\$val(seed)"
	"\$val(scenario)"
	"\$val(maxpause)"
	}
set plot_errors 0
#gatherAndPlot

################################################

set seriesparameters { 
	"\$val(broadcastReward)"
	"\$val(routingprotocol)"
	}

set plotparameters { 
	"[round [expr double(\$val(temperature))/-\$val(broadcastReward)] 0.05]"
	}

set runparameters { 
	"\$val(unicastFailReward)"
	"\$val(seed)"
	"\$val(scenario)"
	"\$val(maxpause)"
	}
set plot_errors 0
#gatherAndPlot


set seriesparameters { 
	"\$val(routingprotocol)"
	"\$val(numnodes)"
	}
set plot_errors 0
gatherAndPlot


set seriesparameters { 
	"\$val(broadcastReward)"
	"\$val(routingprotocol)"
	}
set plot_errors 0
set plotparameters { 
	"exp(double(\$val(broadcastReward) / \$val(temperature)))"
	}
gatherAndPlot

set plotparameters { 
	"[round \$mobility(avgDegree) 0.1]"
	}
gatherAndPlot