Advertisement
Guest User

nikooo_=Ninja

a guest
Jun 25th, 2018
84
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.44 KB | None | 0 0
  1. function plotslope
  2. x=-1:0.3:4;
  3. y=2-:0.3:3;
  4. axis([-1,4,-2,3])
  5. function z = ff(x,y)
  6. z = (1+y)*cos(3*x+pi/7);
  7. end
  8. hold on
  9. delta =0.1;
  10. for k=1:length(x)
  11. for m=1:length(y)
  12. plot(x(k),y(m),'k')
  13. eps=delta/(sqrt(1+ff(x(k),y(m))^2));
  14. plot([x(k)-eps,x(k)+eps],[y(m)-eps*ff(x(k),y(m)),y(m)+eps*ff(x(k),y(m))],'b')
  15. end
  16. end
  17. [x0,y0]=ginput(1);
  18. diff_eq=dsolve('Dy=(1+y)*cos(3*x+pi/7)','y(x0)=y0','x');
  19. x=-1:0.3:4;
  20. plot(x,eval(diff_eq),'r')
  21. end
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement