alpha=1 beta=2 N=7 ered12=list() for (n in 4:8){ ered12[[n]]=list() for (k in 3:min(6,(n-1))){ print(paste("n=",n," k=",k," idő: ", date(),sep = "")) ered12[[n]][[k]]=list() ered12[[n]][[k]][[1]]=paste("n = ",n,", k = ",k, sep="") seged=baloldalisv(n,k,alpha,beta) ered12[[n]][[k]][[2]]=seged ered12[[n]][[k]][[3]]=seged[rovidtabl1(k),] a=permutations(n,n) b=permutations(n,k) if (k>3){ 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, "s5b") clusterExport(cl, "seged3") seged3=t(parSapply(cl,c(1:dim(b)[1]),function(i){t(s5b(a,b[i,]))%*%seged3})) stopCluster(cl) ered12[[n]][[k]][[4]]=seged3 } 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, "seged") seged3=parSapply(cl,c(1:dim(a)[1]),function(i){s5(a[i,],b)%*%seged}) stopCluster(cl) seged3=t(seged3) print(date()) } } save(ered12,file="ered12.RData")