share/contrib/diffequations/tests/rtestode_murphy_1_6.mac

   1 (load("contrib_ode"),0);
   2 0$
   3
   4 /* ODE tests - Murphy equations 1.501 - 1.600
   5
   6   Reference:
   7     G M Murphy, Ordinary Differential Equations and Their
   8     Solutions, Van Nostrand, 1960
   9
  10   First Order and of First Degree, p 224 ff
  11
  12 */
  13 /* Don't kill(all); It messes up trigsimp */
  14
  15 /* Print ode number*/
  16 (pn_(n_):=print("Murphy ODE 1.",n_),true);
  17 true;
  18
  19 /* 593 - Abel eqn of 2nd kind */
  20 (pn_(593),ans:contrib_ode(eqn:x^7*y*'diff(y,x)=2*(1+x^2)+5*x^3*y,y,x));
  21 false;