Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- e=0;
- x=Table[i,{i,-5,5,0.1}];
- g[i_]:=g[i]=x[[i]]^2-2*e;
- 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]);
- y[0]=0;
- y[1]=0.001;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement