Class: RExperimentAnalysis

Inherits:
Object
  • Object
show all
Defined in:
lib/flukso/plots.rb

Overview

The following classes provide some ideas. Not used.

Instance Method Summary collapse

Constructor Details

#initialize(path, datafile, loadlevel) ⇒ RExperimentAnalysis

Returns a new instance of RExperimentAnalysis.



147
148
149
150
151
152
153
 
# File 'lib/flukso/plots.rb', line 147

def initialize(path, datafile, loadlevel)
  @workingdir=path
  @datafile = File.expand_path(File.join(path, datafile))
  @loadlevel = loadlevel
  puts "Using data from file #{@datafile}" if $verbose
  @runner = RRunner.new(path)
end

Instance Method Details

#plotSingleRun ⇒ Object 



251
252
253
254
255
256
 
# File 'lib/flukso/plots.rb', line 251

def plotSingleRun
  methods.grep(/^plotSingleRun_/){|m|
    self.send(m)
  }
  sleep(1)
end

#plotSingleRun_perfPrefHistogram ⇒ Object 



239
240
241
242
243
244
245
246
247
248
249
 
# File 'lib/flukso/plots.rb', line 239

def plotSingleRun_perfPrefHistogram
  drawcmd=<<-END_OF_CMD
    hist(data$perfpref,
      main="Histogram of user preferences",
      xlab="Performance Preference",
      ylab="Frequency"
    )
  END_OF_CMD
  outfile="histperfpref-"+@loadlevel.to_s
  @runner.execute(@datafile, outfile, drawcmd)
end

#plotSingleRun_PerfPrefVsQueueTime ⇒ Object 



191
192
193
194
195
196
197
198
199
200
201
 
# File 'lib/flukso/plots.rb', line 191

def plotSingleRun_PerfPrefVsQueueTime()
  drawcmd=<<-END_OF_CMD
    plot(data$perfpref, data$qtime,
      main="Performance preference vs. queuetime",
      xlab="Performance Preference",
      ylab="absolute queuetime [s]"
    )
  END_OF_CMD
  outfile="perfprefvsqtime-"+@loadlevel.to_s
  @runner.execute(@datafile, outfile, drawcmd)
end

#plotSingleRun_Price ⇒ Object 



167
168
169
170
171
172
173
174
175
176
177
 
# File 'lib/flukso/plots.rb', line 167

def plotSingleRun_Price
  drawcmd=<<-END_OF_CMD
    plot(data$price,
      main="Price for all jobs",
      xlab="Job ID",
      ylab="price"
    )
  END_OF_CMD
  outfile="price-"+@loadlevel.to_s
  @runner.execute(@datafile, outfile, drawcmd)
end

#plotSingleRun_PriceHistogram ⇒ Object 



215
216
217
218
219
220
221
222
223
224
225
 
# File 'lib/flukso/plots.rb', line 215

def plotSingleRun_PriceHistogram
  drawcmd=<<-END_OF_CMD
    hist(data$pricert,
      main="Histogram of prices per second",
      xlab="Price per second",
      ylab="Frequency"
    )
  END_OF_CMD
  outfile="histpricepersecond-"+@loadlevel.to_s
  @runner.execute(@datafile, outfile, drawcmd)
end

#plotSingleRun_PricePerSecond ⇒ Object 



203
204
205
206
207
208
209
210
211
212
213
 
# File 'lib/flukso/plots.rb', line 203

def plotSingleRun_PricePerSecond
  drawcmd=<<-END_OF_CMD
    plot(data$pricert,
      main="Price per second for all jobs",
      xlab="Job ID",
      ylab="price/runtime [price/s]"
    )
  END_OF_CMD
  outfile="pricepersecond-"+@loadlevel.to_s
  @runner.execute(@datafile, outfile, drawcmd)
end

#plotSingleRun_PricePrefVsPrice ⇒ Object 



179
180
181
182
183
184
185
186
187
188
189
 
# File 'lib/flukso/plots.rb', line 179

def plotSingleRun_PricePrefVsPrice()
  drawcmd=<<-END_OF_CMD
    plot(data$pricepref, data$pricert,
      main="Price preference vs. price per second",
      xlab="Price Preference",
      ylab="price/runtime [price/s]"
    )
  END_OF_CMD
  outfile="priceprefvspricert-"+@loadlevel.to_s
  @runner.execute(@datafile, outfile, drawcmd)
end

#plotSingleRun_QueuetimeHistogram ⇒ Object 



227
228
229
230
231
232
233
234
235
236
237
 
# File 'lib/flukso/plots.rb', line 227

def plotSingleRun_QueuetimeHistogram
  drawcmd=<<-END_OF_CMD
    hist(data$qtime,
      main="Histogram of queuetimes",
      xlab="Queuetime [s]",
      ylab="Frequency"
    )
  END_OF_CMD
  outfile="histqueuetimes-"+@loadlevel.to_s
  @runner.execute(@datafile, outfile, drawcmd)
end

#plotSingleRun_Queuetimes ⇒ Object 



155
156
157
158
159
160
161
162
163
164
165
 
# File 'lib/flukso/plots.rb', line 155

def plotSingleRun_Queuetimes
  drawcmd=<<-END_OF_CMD
    plot(data$stime, data$qtime,
      main="Queuetime for all jobs",
      xlab="submittime",
      ylab="queuetime"
    )
  END_OF_CMD
  outfile="queuetimes-"+@loadlevel.to_s
  @runner.execute(@datafile, outfile, drawcmd)
end