liesmuster <- function(datei,n) {
   einsnullfolge <- strsplit(readLines(datei)[n],'\t')[[1]]
   list(Typ=einsnullfolge[1],Muster=matrix(as.numeric(strsplit(einsnullfolge[2],"")[[1]]),100))
}

visualisiere <- function(muster) {
   image(1-muster$Muster,main=paste(c("Typ",muster$Typ),collapse=" "),xaxt="n",yaxt="n")
}

par(mfrow=c(5,4),mai=c(0.05,0.05,0.3,0.05))

for(i in 1:20) {
   visualisiere(liesmuster("lernbeispiele.txt",i))
}

#dev.print(pdf,file="mustermix.pdf")

for(i in 1:20*4+20) {
   visualisiere(liesmuster("lernbeispiele.txt",i))
}

#dev.print(pdf,file="musterD.pdf")


for(i in 1:20*4+21) {
   visualisiere(liesmuster("lernbeispiele.txt",i))
}

#dev.print(pdf,file="musterA.pdf")


for(i in 1:20*4+22) {
   visualisiere(liesmuster("lernbeispiele.txt",i))
}

#dev.print(pdf,file="musterB.pdf")

for(i in 1:20*4+23) {
   visualisiere(liesmuster("lernbeispiele.txt",i))
}

#dev.print(pdf,file="musterC.pdf")


for(i in 1:20) {
   visualisiere(liesmuster("testdaten.txt",i))
}

#dev.print(pdf,file="mustertest.pdf")