res = (beforeputtingconfheads
(* Dirty case of scalar functions *)
/. f_?ScalarFunctionQ[ex_] :> ConfHead[metric1, metric2][f[ex]]
res = (beforeputtingconfheads
(* Recurse into isolated Scalar subexpressions *)
/. Scalar[ex_] :> Scalar[Conformal[metricbase][metric1, metric2]@ex]
(* Dirty case of scalar functions *)
/. f_?ScalarFunctionQ[ex_] :> ConfHead[metric1, metric2][f[ex]]
res = (beforeputtingconfheads
(* Recurse into isolated Scalar subexpressions *)
/. Scalar[ex_] :> Scalar[Conformal[metricbase][metric1, metric2]@ex]
(* Dirty case of scalar functions *)
(* Also recurse into the argument of a ScalarFunction *)
/. f_?ScalarFunctionQ[ex_] :> ConfHead[metric1, metric2][f[Conformal[metricbase][metric1, metric2]@ex]]
f_?ScalarFunctionQ[args___] :> ConfHead[metric1, metric2][ f@@(Conformal[metricbase][metric1, metric2]/@{args}) ]
(* Not really satisfactory but minimalist for scalar functions *)
ConfHead[metric1, metric2][f_?ScalarFunctionQ[expr_]] :> Simplify[confa2^((ConformalWeight[f])/2), Assumptions -> confa > 0] f[expr]
(* Not really satisfactory but minimalist for scalar functions *)
ConfHead[metric1, metric2][f_?ScalarFunctionQ[args___]] :> Simplify[confa2^((ConformalWeight[f])/2), Assumptions -> confa > 0] f[args]
--
You received this message because you are subscribed to the Google Groups "xAct Tensor Computer Algebra" group.
To unsubscribe from this group and stop receiving emails from it, send an email to xact+uns...@googlegroups.com.
For more options, visit https://groups.google.com/groups/opt_out.
(* Dirty case of scalar functions *)
/. f_?ScalarFunctionQ[ex___] :> ConfHead[metric1, metric2][f[ex]]
(* Not really satisfactory but minimalist for scalar functions *)
ConfHead[metric1, metric2][f_?ScalarFunctionQ[args___]] :> Simplify[confa2^((ConformalWeight[f])/2), Assumptions -> confa > 0] f[args]