Bielefeld Augmented Reality Tracker

#!/usr/bin/env Rscript

#Dieses Skript erzeugt ein Histogramm, das die Erkennungen über den Nummern der Marker aufträgt.

#Argumente einlesen

args <- commandArgs(TRUE)

if(length(args) == 3){

cat("dateiname=\"",args[1],"\"\n",sep="")

cat("vergleichsdatei=\"",args[2],"\"\n",sep="")

cat("basisname=\"",args[3],"\"\n",sep="")

dateiname <- args[1]

vergleichsdatei <- args[2]

basisname <- args[3]

}else

{

cat("Fehler: Bitte zwei Eingabedateinamen und einen Basisnamen für die Ausgabedateien angeben!","\n")

quit()

}

##Hilsfunktionen##

#Extrahiert die Markerid aus einer Gruppierung

extrahiereMid <- function(gruppierung){

    return(gruppierung$V2[1])

}

#Gruppiert den übergebenen Datensatz anhand der Markerids und bestimmt die Anzahl der Erkennungen jedes Markers

gruppierenUndZusammenfassen <- function(datensatz){

    gruppiert <- split(datensatz,datensatz$V2)

    markerids <- unlist(lapply(gruppiert,extrahiereMid))

    zahlDerErkennungen <- unlist(lapply(gruppiert,nrow))

    frame <- data.frame(Markerid=markerids,Erkennungen=zahlDerErkennungen)

    return(frame)

}

#Plottet ein Histogramm aus den übergebenen Daten und speichert es als SVG

histogrammPlotten <- function(frame,dateiname,bibliotheksbez){

    # Datei öffnen

    svg(filename=paste("markernummernhist_",bibliotheksbez,"_",dateiname,".svg",sep=""))

    # Plotten

    plot(frame,t="h")

    # Datei schreiben

    dev.off()

}

##Hauptprogramm##

#Einlesen der Datensätze

source("./share/hauptdatensaetze_laden.r")

#Gruppieren und Zusammenfassen

frameBart <- gruppierenUndZusammenfassen(bart)

frameAlvar <- gruppierenUndZusammenfassen(alvar)

frameAruco <- gruppierenUndZusammenfassen(aruco)

frameBlender <- gruppierenUndZusammenfassen(blender)

histogrammPlotten(frameBart,dateiname,"bart")

histogrammPlotten(frameAlvar,dateiname,"alvar")

histogrammPlotten(frameAruco,dateiname,"aruco")

histogrammPlotten(frameBlender,dateiname,"vergleichsdaten")

return(0)