Tag Info

New answers tagged

4

One more subtle variation: Sum[Defer[# - #2] & @@ (1/(2 i + {-1, 1})), {i, 6}] (1/11 - 1/13) + (1/9 - 1/11) + (1/7 - 1/9) + (1/5 - 1/7) + (1/3 - 1/5) + (1 - 1/3)


5

Another way of doing it (something similar to Kuba's great answer) is: Sum[HoldForm[#1 - #2] &[1/(2 i - 1), 1/(2 i + 1)], {i, 1, 6}] May be also something different: Sum[(1/(2 i - 1) - 1/(2 i + 1) // Trace)[[-2]], {i, 1, 6}]


5

HoldForm[# - #2] & @@@ Table[{1/(2 i - 1), 1/(2 i + 1)}, {i, 1, 6}] // Total


3

I would work with nested With: With[{f := 1-2+a x + b}, With[{stringf = ToString[HoldForm[f], TraditionalForm]}, Manipulate[ Plot[f, {x, -10, 10}, PlotRange -> {{-10, 10}, {-10, 10}}, PlotLabel -> "Linear function " <> stringf], {{a, 1}, -5, 5}, {{b, 0}, -5, 5}, TrackedSymbols :> {a, b}]]] which gives (now properly held and ...


7

Analysis Let's get Manipulate and Plot out of the picture so that we do not complicate things. All we need to know and consider is that Manipulate scopes its variables in a manner similar to Module. Now observe: Module[{a, b}, holdedf = a*x + b // HoldForm; Row @ {"Linear function", holdedf} ] Linear functiona$7986 x+b$7986 The Symbols a and b ...



Top 50 recent answers are included