Advertisement
Guest User

Untitled

a guest
Oct 15th, 2019
150
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.50 KB | None | 0 0
  1. Dy:'diff(y,x)$
  2. F:Dy^2-9*y^2+2*y*sin(x)-x^2*exp(x)$
  3. DFy:diff(F, Dy)$
  4. S:diff(DFy,x)+diff(DFy,y)*Dy+diff(DFy,Dy)*'diff(y,x,2)$
  5. Fy:diff(F,y)$
  6. E:Fy-S;
  7. sol:ode2(E=0,y,x);
  8. Dsol:diff(sol, x);
  9. x1: 0$
  10. y1: 1$
  11. x2: 1$
  12. y2: -1$
  13. linEq1: subst([x=x1,y=y1],sol);
  14. linEq2: subst([Dy=diff(rhs(sol),x), y=rhs(sol),x=x2], DFy) = 0;
  15. con: solve([linEq1, linEq2], [%k1,%k2]);
  16.  
  17. lab3ans: subst([con], sol);
  18. lab2ans: bc2(sol, x=-0, y=1, x=1, y=-1);
  19. plot2d([rhs(lab2ans), rhs(lab3ans)],[x,0,1],[xlabel,"x"],[ylabel,"y(x)"]);
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement