...
Code Block | ||
---|---|---|
| ||
h = ReadList[Environment["PBS_NODEFILE"], "String"];
Map[LaunchKernels[KernelConfiguration[#,"KernelCommand" -> "/apps/scientific/mathematica/13.2.1/Executables/wolfram"]]&, h]
t=AbsoluteTiming[Table[Length@FactorInteger[10^50+i], {i,20}]]
Print["Vrijeme racunanja na jednoj jezgri=", t]
t=AbsoluteTiming[ParallelTable[Length@FactorInteger[10^50+i], {i,20}]]
Print["Vrijeme racunanja na osam jezgra=", t]
CloseKernels[]
|