Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- f[0] = 1; f[1] = x;
- f[m_] := f[m] = Module[{fnp1, n = m - 1},
- fnp1 /. Solve[ D[f[n], x] == f[n - 1] +
- A*fnp1, fnp1][[1]]];
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement