主页 / 问题 / 817798
Accepted
Kotysh
Asked:2020-04-23 00:41:18 +0000 UTC2020-04-23 00:41:18 +0000 UTC

Racket 或 Scheme 找到简单函数的导数

  • 772

大家好！我需要用 Racket 语言实现一个函数，该函数用一个变量计算简单数学表达式的导数。该函数必须有 2 个参数 - 具有 Scheme 语言标准语法的数学表达式，包含数字、原子（常量和变量）和函数 +、-、*、/、expt（数字 e 的取幂）。第二个参数是需要区分的变量。表达式中的其他字符被视为常量。
也许有人遇到过类似的问题并且知道如何解决或从哪里开始？或者也许有一些文章专门讨论函数式语言的差异化。我在谷歌上搜索过，找不到类似的东西。对函数式语言中的算法感兴趣，可以是 Lisp、Scheme

lisp

1 个回答

  1. Best Answer

    找到了这个问题的详细解决方案 http://www.cyberforum.ru/lisp/thread1758457.html

    这是 Lisp 代码的样子

    (defun deriv (f x)
  (cond ((numberp f) 0)
        ((eq f x) 1)
        ((eq (car f) '+) `(+ ,(deriv (cadr f) x) ,(deriv (caddr f) x)))
        ((eq (car f) '-) `(- ,(deriv (cadr f) x) ,(deriv (caddr f) x)))
        ((eq (car f) '*) `(+ (* ,(caddr f) ,(deriv (cadr f) x)) (* ,(cadr f) ,(deriv (caddr f) x))))
        ((eq (car f) 'sin) `(* (cos ,(cadr f)) ,(deriv (cadr f) x)))
        ((eq (car f) 'cos) `(* (- (cos ,(cadr f)) ,(deriv (cadr f) x))))
        ((eq (car f) 'exp) `(* (exp ,(cadr f)) (deriv (cadr f) x)))
        ((eq (car f) '^) `(* (* ,(caddr f) (^ ,(cadr f) (- ,(caddr f) 1))) ,(deriv (cadr f) x)))))
    • 0

相关问题