From eac63fe4271f9e6f5e6cef4a5dc6a1c47f421e08 Mon Sep 17 00:00:00 2001 From: Razvan Deaconescu Date: Tue, 10 Aug 2010 13:45:44 +0300 Subject: [PATCH] TestSpecs: add multiple internal-limitation clients experiments and upload-limited only experiments --- TestSpecs/test-scenario-pre-post-nop-many.cfg | 16 ++++ TestSpecs/test-scenario-pre-post-nop-many.r | 73 +++++++++++++++++++ TestSpecs/test-scenario-pre-post-nop-ul.cfg | 9 +++ TestSpecs/test-scenario-pre-post-nop-ul.r | 66 +++++++++++++++++ 4 files changed, 164 insertions(+) create mode 100644 TestSpecs/test-scenario-pre-post-nop-many.cfg create mode 100644 TestSpecs/test-scenario-pre-post-nop-many.r create mode 100644 TestSpecs/test-scenario-pre-post-nop-ul.cfg create mode 100644 TestSpecs/test-scenario-pre-post-nop-ul.r diff --git a/TestSpecs/test-scenario-pre-post-nop-many.cfg b/TestSpecs/test-scenario-pre-post-nop-many.cfg new file mode 100644 index 0000000..cc37a31 --- /dev/null +++ b/TestSpecs/test-scenario-pre-post-nop-many.cfg @@ -0,0 +1,16 @@ +# Scenario01ct +# Description: +# * 1 seeder +# * 1 leecher +# * client-wise limitation (upload-only) +# +# Hostname SSHport User RemoteFolder NetInterface Download(Mbps) DownloadBurst(K) Upload(Mbps) UploadBurst(K) PreRunScript PostRunScript ClientType TorrentFile Periods +p2p-next-01.grid.pub.ro 10522 p2p /home/p2p/george eth0 8 100 8 100 pre-run_nop.sh post-run_nop.sh hrktorrent_seeder_limit Data.100M.ct.torrent (10,60) (60,100) (120,200) (200,230) (250,600) +p2p-next-03.grid.pub.ro 10522 p2p /home/p2p/george eth0 8 100 8 100 pre-run_nop.sh post-run_nop.sh hrktorrent_leecher_limit Data.100M.ct.torrent (10,30) (40,70) (80,110) (130,160) (180,250) (300,600) +p2p-next-04.grid.pub.ro 10522 p2p /home/p2p/george eth0 8 100 8 100 pre-run_nop.sh post-run_nop.sh hrktorrent_leecher_limit Data.100M.ct.torrent (10,30) (40,70) (80,110) (130,160) (180,250) (300,600) +p2p-next-05.grid.pub.ro 10522 p2p /home/p2p/george eth0 8 100 8 100 pre-run_nop.sh post-run_nop.sh hrktorrent_leecher_limit Data.100M.ct.torrent (10,30) (40,70) (80,110) (130,160) (180,250) (300,600) +p2p-next-06.grid.pub.ro 10522 p2p /home/p2p/george eth0 8 100 8 100 pre-run_nop.sh post-run_nop.sh hrktorrent_leecher_limit Data.100M.ct.torrent (10,30) (40,70) (80,110) (130,160) (180,250) (300,600) +p2p-next-07.grid.pub.ro 10522 p2p /home/p2p/george eth0 8 100 8 100 pre-run_nop.sh post-run_nop.sh hrktorrent_leecher_limit Data.100M.ct.torrent (10,30) (40,70) (80,110) (130,160) (180,250) (300,600) +p2p-next-08.grid.pub.ro 10522 p2p /home/p2p/george eth0 8 100 8 100 pre-run_nop.sh post-run_nop.sh hrktorrent_leecher_limit Data.100M.ct.torrent (10,30) (40,70) (80,110) (130,160) (180,250) (300,600) +p2p-next-09.grid.pub.ro 10522 p2p /home/p2p/george eth0 8 100 8 100 pre-run_nop.sh post-run_nop.sh hrktorrent_leecher_limit Data.100M.ct.torrent (10,30) (40,70) (80,110) (130,160) (180,250) (300,600) +p2p-next-10.grid.pub.ro 10522 p2p /home/p2p/george eth0 8 100 8 100 pre-run_nop.sh post-run_nop.sh hrktorrent_leecher_limit Data.100M.ct.torrent (10,30) (40,70) (80,110) (130,160) (180,250) (300,600) diff --git a/TestSpecs/test-scenario-pre-post-nop-many.r b/TestSpecs/test-scenario-pre-post-nop-many.r new file mode 100644 index 0000000..8f18372 --- /dev/null +++ b/TestSpecs/test-scenario-pre-post-nop-many.r @@ -0,0 +1,73 @@ +# +# Copyright: George Milescu 2010 - george.milescu@gmail.com +# +# R script used to plot the results of a scenario + +# import ggplot2 +library(ggplot2) + +# Read transmitted command line arguments +args <- commandArgs(trailingOnly = TRUE) + +# The data files are located in the target folder. Also, the graph will be saved in the target folder. +target_folder <- args[2] +campaign_name <- args[3] +rm(args) + +# read data from the data file +seeder=read.table(paste(target_folder, "p2p-next-01-105.log.data", sep="/"), header=T, sep=" ") +leecher=read.table(paste(target_folder, "p2p-next-03-105.log.data", sep="/"), header=T, sep=" ") +leecher=read.table(paste(target_folder, "p2p-next-04-105.log.data", sep="/"), header=T, sep=" ") +leecher=read.table(paste(target_folder, "p2p-next-05-105.log.data", sep="/"), header=T, sep=" ") +leecher=read.table(paste(target_folder, "p2p-next-06-105.log.data", sep="/"), header=T, sep=" ") +leecher=read.table(paste(target_folder, "p2p-next-07-105.log.data", sep="/"), header=T, sep=" ") +leecher=read.table(paste(target_folder, "p2p-next-08-105.log.data", sep="/"), header=T, sep=" ") +leecher=read.table(paste(target_folder, "p2p-next-09-105.log.data", sep="/"), header=T, sep=" ") +leecher=read.table(paste(target_folder, "p2p-next-10-105.log.data", sep="/"), header=T, sep=" ") + + +# transform KB/s to Mbit/s +leecher$dlspeed <- leecher$dlspeed*8/1000 + + +# plot dlspeed-percent data +p <- ggplot() + +geom_point(aes(x=leecher$percent, y=leecher$dlspeed, label="Leecher"), size=1) + +theme_bw() + +scale_x_continuous("Percent", limits=c(0, 100), breaks=seq(0, 100, 10)) + +scale_y_continuous("Download speed (Mbit/s)", limits=c(0, 8), breaks=seq(0, 8, 0.5)) + +coord_cartesian() + +scale_colour_manual("Legend") + +opts(title=paste(campaign_name, "test-scenario-pre-post-nop-many: a test swarm (1 Seeder, 8 Leechers), all peers have an 8 Mbit/s BW (upload-only)", sep="\n")) + +# plot data as an eps file +postscript(paste(target_folder, "test-scenario-pre-post-nop-dlspeed-percent.eps", sep="/")) +print(p) +dev.off() + +# plot data as an png file +png(paste(target_folder, "test-scenario-pre-post-nop-dlspeed-percent.png", sep="/"), width = 1280, height = 800) +print(p) +dev.off() + + + +# plot dlspeed-time data +p <- ggplot() + +geom_point(aes(x=leecher$time, y=leecher$dlspeed, label="Leecher"), size=1) + +theme_bw() + +scale_x_continuous("Time(s)") + +scale_y_continuous("Download speed (Mbit/s)", limits=c(0, 8), breaks=seq(0, 8, 0.5)) + +coord_cartesian() + +scale_colour_manual("Legend") + +opts(title=paste(campaign_name, "test-scenario-pre-post-nop-many: a test swarm (1 Seeder, 1 Leecher), all peers have an 8 Mbit/s BW upload-only", sep="\n")) + +# plot data as an eps file +postscript(paste(target_folder, "test-scenario-pre-post-nop-dlspeed-time.eps", sep="/")) +print(p) +dev.off() + +# plot data as an png file +png(paste(target_folder, "test-scenario-pre-post-nop-dlspeed-time.png", sep="/"), width = 1280, height = 800) +print(p) +dev.off() diff --git a/TestSpecs/test-scenario-pre-post-nop-ul.cfg b/TestSpecs/test-scenario-pre-post-nop-ul.cfg new file mode 100644 index 0000000..a0afc1c --- /dev/null +++ b/TestSpecs/test-scenario-pre-post-nop-ul.cfg @@ -0,0 +1,9 @@ +# Scenario01ct +# Description: +# * 1 seeder +# * 1 leecher +# * client-wise limitation (upload-only) +# +# Hostname SSHport User RemoteFolder NetInterface Download(Mbps) DownloadBurst(K) Upload(Mbps) UploadBurst(K) PreRunScript PostRunScript ClientType TorrentFile Periods +p2p-next-08.grid.pub.ro 10322 p2p /home/p2p/george eth0 0 100 8 100 pre-run_nop.sh post-run_nop.sh hrktorrent_seeder_limit Data.100M.ct.torrent (10,60) (60,100) (120,200) (200,230) (250,600) +p2p-next-08.grid.pub.ro 10522 p2p /home/p2p/george eth0 0 100 8 100 pre-run_nop.sh post-run_nop.sh hrktorrent_leecher_limit Data.100M.ct.torrent (10,30) (40,70) (80,110) (130,160) (180,250) (300,600) diff --git a/TestSpecs/test-scenario-pre-post-nop-ul.r b/TestSpecs/test-scenario-pre-post-nop-ul.r new file mode 100644 index 0000000..ac59769 --- /dev/null +++ b/TestSpecs/test-scenario-pre-post-nop-ul.r @@ -0,0 +1,66 @@ +# +# Copyright: George Milescu 2010 - george.milescu@gmail.com +# +# R script used to plot the results of a scenario + +# import ggplot2 +library(ggplot2) + +# Read transmitted command line arguments +args <- commandArgs(trailingOnly = TRUE) + +# The data files are located in the target folder. Also, the graph will be saved in the target folder. +target_folder <- args[2] +campaign_name <- args[3] +rm(args) + +# read data from the data file +seeder=read.table(paste(target_folder, "p2p-next-08-103.log.data", sep="/"), header=T, sep=" ") +leecher=read.table(paste(target_folder, "p2p-next-08-105.log.data", sep="/"), header=T, sep=" ") + + +# transform KB/s to Mbit/s +leecher$dlspeed <- leecher$dlspeed*8/1000 + + +# plot dlspeed-percent data +p <- ggplot() + +geom_point(aes(x=leecher$percent, y=leecher$dlspeed, label="Leecher"), size=1) + +theme_bw() + +scale_x_continuous("Percent", limits=c(0, 100), breaks=seq(0, 100, 10)) + +scale_y_continuous("Download speed (Mbit/s)", limits=c(0, 8), breaks=seq(0, 8, 0.5)) + +coord_cartesian() + +scale_colour_manual("Legend") + +opts(title=paste(campaign_name, "test-scenario-pre-post-nop: a test swarm (1 Seeder, 1 Leecher), all peers have an 8 Mbit/s BW (upload-only)", sep="\n")) + +# plot data as an eps file +postscript(paste(target_folder, "test-scenario-pre-post-nop-dlspeed-percent.eps", sep="/")) +print(p) +dev.off() + +# plot data as an png file +png(paste(target_folder, "test-scenario-pre-post-nop-dlspeed-percent.png", sep="/"), width = 1280, height = 800) +print(p) +dev.off() + + + +# plot dlspeed-time data +p <- ggplot() + +geom_point(aes(x=leecher$time, y=leecher$dlspeed, label="Leecher"), size=1) + +theme_bw() + +scale_x_continuous("Time(s)") + +scale_y_continuous("Download speed (Mbit/s)", limits=c(0, 8), breaks=seq(0, 8, 0.5)) + +coord_cartesian() + +scale_colour_manual("Legend") + +opts(title=paste(campaign_name, "test-scenario-pre-post-nop: a test swarm (1 Seeder, 1 Leecher), all peers have an 8 Mbit/s BW upload-only", sep="\n")) + +# plot data as an eps file +postscript(paste(target_folder, "test-scenario-pre-post-nop-dlspeed-time.eps", sep="/")) +print(p) +dev.off() + +# plot data as an png file +png(paste(target_folder, "test-scenario-pre-post-nop-dlspeed-time.png", sep="/"), width = 1280, height = 800) +print(p) +dev.off() -- 2.20.1