SHARE
TWEET

Untitled

a guest Jul 22nd, 2019 72 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. e=0;
  2. x=Table[i,{i,-5,5,0.1}];
  3. g[i_]:=g[i]=x[[i]]^2-2*e;
  4. y[i_]:=y[i]= (2 y[i - 1] - y[i - 2] + 5g[i - 1]y[i - 1] + g[i - 2]y[i - 2])/(1 - g[i]);
  5. y[0]=0;
  6. y[1]=0.001;
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top