Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Mder[f_, x_, 0] := f[x]
- Mder[f_, x_, 1] := Limit[(f[x + h]/f[x])^(1/h), h -> 0]
- Mder[f_, x_, n_Integer /; n > 1] := Nest[Mder[f, x, 1], x, n]
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
