many thanks for replying.
I could not operate your code as well.I am writing like Team Nutma but I have a problem yet for simpler cases which is not my case.
DefManifold[M, dim, IndexRange[a,m]];
DefMetric[-1, metric[-a,-b], PD, PrintAs -> "η",FlatMetric -> True, SymbolOfCovD -> {",","∂"}];
SetOptions[SymmetryOf, ConstantMetric -> True];
DefTensor[H[-a, -b], M, Symmetric[{-a, -b}], PrintAs -> "h"];
DefTensor[xi[a], M, PrintAs -> "ξ"];
Sterms = AllContractions[ H[a, b] PD[c]@PD[d]@H[e, f] ]
IT is the error:
ParallelCombine::nopar: No parallel kernels available; proceeding with sequential evaluation. >>
I will attach the pic of my text as well. I hope to solve this with your help.
Best