|
@@ -1,3 +1,18 @@
|
|
|
+# StarPU --- Runtime system for heterogeneous multicore architectures.
|
|
|
+#
|
|
|
+# Copyright (C) 2016 Inria
|
|
|
+#
|
|
|
+# StarPU is free software; you can redistribute it and/or modify
|
|
|
+# it under the terms of the GNU Lesser General Public License as published by
|
|
|
+# the Free Software Foundation; either version 2.1 of the License, or (at
|
|
|
+# your option) any later version.
|
|
|
+#
|
|
|
+# StarPU is distributed in the hope that it will be useful, but
|
|
|
+# WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
|
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
|
|
|
+#
|
|
|
+# See the GNU Lesser General Public License in COPYING.LGPL for more details.
|
|
|
+
|
|
|
<div id="table-of-contents">
|
|
|
<h2>Table of Contents</h2>
|
|
|
<div id="text-table-of-contents">
|
|
@@ -26,7 +41,7 @@ opts_chunk$set(echo=FALSE)
|
|
|
|
|
|
|
|
|
```{r Install_R_libraries}
|
|
|
-InstalledPackage <- function(package)
|
|
|
+InstalledPackage <- function(package)
|
|
|
{
|
|
|
available <- suppressMessages(suppressWarnings(sapply(package, require, quietly = TRUE, character.only = TRUE, warn.conflicts = FALSE)))
|
|
|
missing <- package[!available]
|
|
@@ -39,12 +54,12 @@ CRANChoosen <- function()
|
|
|
return(getOption("repos")["CRAN"] != "@CRAN@")
|
|
|
}
|
|
|
|
|
|
-UsePackage <- function(package, defaultCRANmirror = "http://cran.at.r-project.org")
|
|
|
+UsePackage <- function(package, defaultCRANmirror = "http://cran.at.r-project.org")
|
|
|
{
|
|
|
if(!InstalledPackage(package))
|
|
|
{
|
|
|
if(!CRANChoosen())
|
|
|
- {
|
|
|
+ {
|
|
|
chooseCRANmirror()
|
|
|
if(!CRANChoosen())
|
|
|
{
|
|
@@ -60,8 +75,8 @@ UsePackage <- function(package, defaultCRANmirror = "http://cran.at.r-project.or
|
|
|
|
|
|
# Now install desired libraries
|
|
|
libraries <- c("ggplot2", "plyr", "data.table", "RColorBrewer")
|
|
|
-for(libr in libraries)
|
|
|
-{
|
|
|
+for(libr in libraries)
|
|
|
+{
|
|
|
if(!UsePackage(libr))
|
|
|
{
|
|
|
stop("Error!", libr)
|
|
@@ -74,7 +89,7 @@ for(libr in libraries)
|
|
|
library(ggplot2)
|
|
|
library(plyr)
|
|
|
library(data.table)
|
|
|
- library(RColorBrewer)
|
|
|
+ library(RColorBrewer)
|
|
|
|
|
|
# Defining non-computation states:
|
|
|
def_states<-c("Initializing","Deinitializing","Overhead","Nothing","Sleeping","Freeing","Allocating","WritingBack","FetchingInput","PushingOutput","Callback","Progressing","Unpartitioning","AllocatingReuse","Reclaiming","DriverCopy","DriverCopyAsync","Scheduling","Executing")
|
|
@@ -170,7 +185,7 @@ exactly happened during the StarPU execution.
|
|
|
|
|
|
In order to run this analysis you need to have R installed:
|
|
|
|
|
|
- sudo apt-get install r-base
|
|
|
+ sudo apt-get install r-base
|
|
|
|
|
|
Easiest way to transform *paje* traces generated by StarPU to *.csv* is to use *pjdump* program (<https://github.com/schnorr/pajeng>), so we encourage users to install it.
|
|
|
|
|
@@ -195,9 +210,9 @@ behavior at a certain part of the trace, we strongly suggest to zoom
|
|
|
on the interval it occurred.
|
|
|
|
|
|
```{r Gantt1}
|
|
|
-ggplot(df,aes(x=Start,xend=End, y=factor(ResourceId), yend=factor(ResourceId),color=Value)) +
|
|
|
- theme_bw() + scale_color_manual(name="State",values=getPalette(colourCount)) +
|
|
|
- geom_segment(size=8) + ylab("Resource") + xlab("Time [ms]") +
|
|
|
+ggplot(df,aes(x=Start,xend=End, y=factor(ResourceId), yend=factor(ResourceId),color=Value)) +
|
|
|
+ theme_bw() + scale_color_manual(name="State",values=getPalette(colourCount)) +
|
|
|
+ geom_segment(size=8) + ylab("Resource") + xlab("Time [ms]") +
|
|
|
facet_wrap(~Origin,ncol=1,scale="free_y")
|
|
|
```
|
|
|
|
|
@@ -216,9 +231,9 @@ different from the previous one.
|
|
|
df1$End <- df1$Start+df1$Duration
|
|
|
|
|
|
# Plot
|
|
|
- ggplot(df1,aes(x=Start,xend=End, y=factor(ResourceId), yend=factor(ResourceId),color=Value)) +
|
|
|
- theme_bw() + scale_color_manual(name="State",values=getPalette(colourCount)) +
|
|
|
- geom_segment(size=8) + ylab("Resource") + xlab("Time [ms]") +
|
|
|
+ ggplot(df1,aes(x=Start,xend=End, y=factor(ResourceId), yend=factor(ResourceId),color=Value)) +
|
|
|
+ theme_bw() + scale_color_manual(name="State",values=getPalette(colourCount)) +
|
|
|
+ geom_segment(size=8) + ylab("Resource") + xlab("Time [ms]") +
|
|
|
facet_wrap(~Origin,ncol=1,scale="free_y")
|
|
|
```
|
|
|
|