Tag Info

New answers tagged

0

Mapping Hold or HoldForm over all the elements effectively freezes the expression for easier manipulation. (This method was used in R. Maeder's Programming in Mathematica, page 137.) x = 12.; Replace[Map[HoldForm, Defer[Sin[x]^2 + Cos[x]^2], Infinity] , HoldForm[x] -> HoldForm[12]] == Sin[x]^2 + Cos[x]^2 Sin[12]^2+Cos[12]^2==1. And in a table: ...


1

Your can use Replace* inside Hold or Deffer like this: x = 12; test = Defer[Sin[x]^2 + Cos[x]^2] == Sin[x]^2 + Cos[x]^2 Sin[x]^2 + Cos[x]^2 == 1. Block[{x}, test /. x -> y] /. y -> x Sin[12.]^2 + Cos[12.]^2 == 1. Just idea, no doubt better approach can be found.



Top 50 recent answers are included