alpha=1 beta=2 N=7 ered7=list() for (n in 3:8){ ered7[[n]]=list() for (k in 2:min(5,(n-1))){ print(paste("n=",n," k=",k," idő: ", date(),sep = "")) ered7[[n]][[k]]=list() ered7[[n]][[k]][[1]]=paste("n = ",n,", k = ",k, sep="") seged=baloldalisv2(n,k,alpha,beta) ered7[[n]][[k]][[2]]=seged ered7[[n]][[k]][[3]]=seged[rovidtabl1(k),] a=permutations(n,n) b=permutations(n,k) no_cores=detectCores()-1 cl=makeCluster(no_cores) cl=makeCluster(no_cores) clusterExport(cl, "a") clusterExport(cl, "b") clusterExport(cl, "s1") clusterExport(cl, "s2") clusterExport(cl, "s3") clusterExport(cl, "s4") clusterExport(cl, "s5") clusterExport(cl, "s6") sseged2=parSapply(cl,c(1:dim(a)[1]),function(i){s5(a[i,],b)}) stopCluster(cl) if (k==2){ ered7[[n]][[k]][[6]]=ered7[[n]][[k]][[3]] } if (k>2){ seged3=sseged2%*%seged3 sseged4=oszlopegyez2(seged3,seged) ered7[[n]][[(k-1)]][[4]]=sseged4[[1]] ered7[[n]][[k]][[5]]=sseged4[[2]] ered7[[n]][[k]][[6]]=ered7[[n]][[k]][[3]][,ered7[[n]][[k]][[5]]] } seged3=t(sseged2)%*%seged print(date()) } } save(ered7,file="ered7.RData")