【SICP练习】84 练习2.56

最新推荐文章于 2024-11-09 22:20:21 发布

转载最新推荐文章于 2024-11-09 22:20:21 发布 · 554 阅读

0 ·

CC 4.0 BY-SA版权

原文链接：https://my.oschina.net/nomasp/blog/503426

本文分享了在Scheme语言中实现微积分求导的过程及代码。通过定义一系列辅助函数，如检查表达式类型、提取基底和指数等，最终实现了对数值、变量、和、积和指数运算的求导。代码示例展示了如何使用递归处理复杂数学表达式的求导问题。

这道题的代码略长啊。不过我也是因此而知道Edwin上的代码居然可以复制到word上，以前还想当然的以为不能复制的，毕竟在Edwin上粘贴用的Ctrl+Y，而不是Ctrl+V。在这里我就只将书上没有的代码贴出来了。

(define (deriv exp var) (cond ((number? exp) 0) ((variable? exp) (if (same-variable? exp var) 1 0)) ((sum? exp) (make-sum (deriv (addend exp) var) (deriv (augend exp) var))) ((product? exp) (make-sum (make-product (multiplier exp) (deriv (multiplicand exp) var)) (make-product (deriv (multiplier exp) var) (multiiplicand exp)))) ((exponentiation? exp) (let ((n (exponent exp)) (u (base exp))) (make-product n (make-product (make-exponentiation u (- u 1)) (deriv u var))))) (else (error "unknown expression type -- DERIV" exp))))
(define (make-exponentiation base exponent) (cond ((= exponent 0) 1) ((= exponent 1) base) (else (list '** base exponent))))
(define (exponentiation? x) (and (pair? x) (eq? (car x) '**)))
(define (base exp) (cadr exp))
(define (exponent exp) (caddr exp))

转载于:https://my.oschina.net/nomasp/blog/503426