Take the 2-minute tour ×
Mathematica Stack Exchange is a question and answer site for users of Mathematica. It's 100% free, no registration required.

The best way to show what I want is by giving an example:

How to go from

Exp[-a[x, y]] (g[x, y]*Derivative[1, 0][f][x, y])/h[x, y] + 
Exp[-a[x, y]] (f[x, y]*Derivative[1, 0][g][x, y])/h[x, y] - 
Exp[-a[x, y]] (f[x, y]*g[x, y]*Derivative[1, 0][h][x, y])/h[x, y]^2

to

Exp[-a[x, y]] D[f[x, y]*g[x, y]/h[x, y], x]

If the Exp were not there, i.e. the expression is a full derivative, then integrating would work 1

expr = With[{anti = 
Integrate[(g[x, y]*Derivative[1, 0][f][x, y])/
h[x, y] + (f[x, y]*Derivative[1, 0][g][x, y])/
h[x, y] - (f[x, y]*g[x, y]*Derivative[1, 0][h][x, y])/h[x, y]^2,
x]}, HoldForm[D[anti, x]]]        
share|improve this question
    
DSolve[Exp[-a[x, y]] (g[x, y]*Derivative[1, 0][f][x, y])/h[x, y] + Exp[-a[x, y]] (f[x, y]*Derivative[1, 0][g][x, y])/h[x, y] - Exp[-a[x, y]] (f[x, y]*g[x, y]*Derivative[1, 0][h][x, y])/ h[x, y]^2 == Exp[-a[x, y]] Derivative[1, 0][z][x, y], z, {x, y}]. –  b.gatessucks Mar 25 '13 at 12:26
add comment

1 Answer 1

Extending my comment to @MichaelE2's answer, you could consider

 simp[exp_] := Simplify[exp, 
    TransformationFunctions -> {
(Block[{x}, Defer[D[#, x]] &[Integrate[#, x]]] &), Collect[#, _^_] &}]
share|improve this answer
add comment

Your Answer

 
discard

By posting your answer, you agree to the privacy policy and terms of service.

Not the answer you're looking for? Browse other questions tagged or ask your own question.