Hi,
I want to define a tensor function which take some tensor as a parameter and give me a tensor.
for example if I want to define project tensor pT[v][a,b] which should give met[a,b] - p[a]p[b](p[c] p[-c])
where P[a] is a vector on manifold M. PT i want to define such that i can call for different values of p.
DefManifold[M3, 3, {i1, i2, i3, i4, i5, i6, i7}];
DefMetric[-1, met[-i1, -i2], CD, {";", "\[Del]"}, PrintAs -> "g"];
DefTensor[p[i1], M3];
DefTensor[q[i2], M3];
DefTensor[PT[-i1, -i2], M3, Symmetric[{-i1, -i2}]];
PTDef = PT[p][-i1, -i2] ==
met[-i1, -i2] - p[-i1] p[-i2] 1/(p[-i3] p[i3]);
PTRule = ToRule[PTDef, MetricOn -> All, ContractMetrics -> True];
AutomaticRules[PT, PTRule];
But this does not work. If anyone can give me suggestion or hint then it will be very helpful.
Best,
Shubham