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.

I have a "simple" system of PDEs, one can be solved easily. But I cant seem to get it work in Mathematica. I am not sure whether I'm having a syntex problem or it's just not doable in Mathematica.

FF = f[a, b, c, d]

eq1 = D[FF, d] + (1 - a)*D[FF, a]/d == 0

eq2 = D[FF, c] + (b - (a - 1)*d)*D[FF, a]/(c*d) == 0

eq3 = D[FF, b] + D[FF, a]/d == 0

DSolve[{eq1, eq2, eq3}, {FF}, {a, b, c, d}]

DSolve does solve them individually, but can not solve them as a system, which is something I really need.

DSolve[eq1, f, {a, b, c, d}]
(* {{f -> Function[{a, b, c, d}, C[1][b, c][-(-1 + a) d]]}} *)
DSolve[eq2, f, {a, b, c, d}]
(* {{f -> Function[{a, b, c, d}, C[1][b, d][c (b + d - a d)]]}} *)
DSolve[eq3, f, {a, b, c, d}]
(* {{f -> Function[{a, b, c, d}, C[1][c, d][b - a d]]}} *)

Here is how it works in Maple: Maple works fine

Thanks

share|improve this question
1  
Post the code. Asking readers to download something... just no. There is information in the help area on code formatting, and when you are editing the question basic formatting information is on your right, and a "?" button that leads to details. –  rasher May 3 '14 at 7:38

Your Answer

 
discard

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

Browse other questions tagged or ask your own question.