Hi,
I'm not sure if this is the correct group for this question, if not please suggest a better group.
I'm running Mathematica 13.0.1.0 with up to 8 kernels and would like to parallelize
If[MemberQ[symitems, list[[#]]], {}, list[[#]]] & /@ Range[2, len]
to get it to run faster but so far every attempt has resulted in significantly longer computation times. "len" is the length of "list." Both "symitems" and "list" are lists of lists of lists where "symitems" are all possible symmetry mappings (which range from S(2)xS(2)xS(2)xS(1) to S(5)xS(5)xS(5)xS(4)) of "list[[1]]." I've never understood when or how to use any of Mathematica's "Share" functions, which might be the source of my problems. When "symitems" and "list" are short, the serial code is acceptably fast, however as they get larger the serial code become extremely slow (there is nothing I can do to speed up "MemberQ"). I've tried:
ParallelMap[If[MemberQ[symitems, list[[#]]], {}, list[[#]]] &, Range[2, len]]
ParallelTable[If[MemberQ[symitems, list[[j]]], {}, list[[j]]], {j,2, len}]
ParallelTable[If[MemberQ[symitems, list[[j]]], {}, list[[j]]], {j,2, len},Method->"CoarsestGrained"]
What else can I try?
Thanks,
Troy