alpha=1
beta=2
N=7
ered=list()

for (n in 3:N){
  ered[[n]]=list()
  for (k in 2:(n-1)){
    print(paste("n=",n," k=",k," idő: ", date(),sep = ""))
    ered[[n]][[k]]=list()
    ered[[n]][[k]][[1]]=paste("n = ",n,", k = ",k, sep="")
    seged=baloldalisv(n,k,alpha,beta)
    ered[[n]][[k]][[2]]=seged
    ered[[n]][[k]][[3]]=seged[rovidtabl1(k),]
    sseged2=permmatrix(n,k)
    if (k==2){
      ered[[n]][[k]][[6]]=ered[[n]][[k]][[3]]
    }
    if (k>2){
      seged3=sseged2%*%seged3
      seged3=seged3/min(abs(seged3[abs(seged3)>0]))
      sseged4=oszlopegyez(seged3,seged)
      ered[[n]][[(k-1)]][[4]]=sseged4[[1]]
      ered[[n]][[k]][[5]]=sseged4[[2]]
      ered[[n]][[k]][[6]]=ered[[n]][[k]][[3]][,ered[[n]][[k]][[5]]]
    }
    seged3=t(sseged2)%*%seged
  }
}