Advertisement
Guest User

Untitled

a guest
Dec 16th, 2018
194
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Octave 0.34 KB | None | 0 0
  1. function [y,t] = euler(yz, y0, t0, dt, steps)
  2. ys = [y0];
  3. ts = [t0];
  4. u1 = yz+1;
  5. u2 = yz-1;
  6. u = u1;
  7. for i=2:steps
  8.     ts(i) = ts(i-1)+dt;
  9.     if (yz-ys(i-1))>0
  10.         u=u1;
  11.     else
  12.         u=u2;
  13.     end
  14.    ys(i)=ys(i-1)+dt*(3*u-3*ys(i-1));
  15.    end
  16.    y=ys;
  17.    t=ts;
  18.    endfunction
  19.  
  20. [y,t] = euler(20, 0, 0, 0.1, 50);
  21. plot(t,y)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement