Return to Answer

added 128 characters in body

edited Dec 3, 2015 at 12:25

11.6k
28
68

diff = Function[{expr}, Subtract @@ (expr /. {{#1 -> #3}, {#1 -> #2}})] & longComplexExpr[x] // diff[x, 1, 3] (* - longComplexExpr[1] + longComplexExpr[3] *)

So for integrals:

Integrate[x^2, x] // diff[x, 1, 3] (* 26/3 *) Integrate[x^2, {x, 1, 3}] (* 26/3 *)

diff = Function[{expr}, Subtract @@ (expr /. {{#1 -> #3}, {#1 -> #2}})] & longComplexExpr[x] // diff[x, 1, 3] (* - longComplexExpr[1] + longComplexExpr[3] *)

diff = Function[{expr}, Subtract @@ (expr /. {{#1 -> #3}, {#1 -> #2}})] & longComplexExpr[x] // diff[x, 1, 3] (* - longComplexExpr[1] + longComplexExpr[3] *)

So for integrals:

Integrate[x^2, x] // diff[x, 1, 3] (* 26/3 *) Integrate[x^2, {x, 1, 3}] (* 26/3 *)

Source Link

answered Dec 3, 2015 at 12:17

LLlAMnYP

11.6k
28
68

diff = Function[{expr}, Subtract @@ (expr /. {{#1 -> #3}, {#1 -> #2}})] & longComplexExpr[x] // diff[x, 1, 3] (* - longComplexExpr[1] + longComplexExpr[3] *)