我正在使用实现MIT SCHEME的SCMUTILS包。我正在从Emacs运行它,并且在使用函数时遇到问题,你能帮我吗?
我的代码是:
(define ((((delta eta) f) q) t)
(let ((fmas (f (+ q (* 0.001 eta))))
(efe (f q)))
(/ (- (fmas t) (efe t)) 0.001)))
(define ((G q) t)
(dot-product (q t) (q t)))
(((((delta test-path) G) test-path) 5))
其中测试路径为:
(define (test-path t)
(up (+ (* 4 t) 7)
(+ (* 3 t) 5)
(+ (* 2 t) 1)))
我收到此错误:
Loading "mecanica"...
;Application of a number not allowed 2501.2500000000273 (())
可能有什么问题?
起初,我认为 scheme 不能将像 test-path
这样的结构除以一个数字,所以我把点积放在一个返回数字的函数上;但这不起作用。
我尝试在delta-eta
函数中打印表达式,但在执行此部分时出现错误:
(/ (- (fmas t) (efe t)) 0.001)))
如果我去掉商部分,就没有错误。
我肯定错过了一些东西。希望你能帮到忙。谢谢!
假设这个
(define ((((delta eta) f) q) t)
(let ((fmas (f (+ q (* 0.001 eta))))
(efe (f q)))
(/ (- (fmas t) (efe t)) 0.001)))
相当于这个
(define (delta eta)
(lambda (f)
(lambda (q)
(lambda (t)
(let ((fmas (f (+ q (* 0.001 eta))))
(efe (f q)))
(/ (- (fmas t) (efe t)) 0.001))))))
然后(((((delta test-path) G) test-path) 5))
0.001
乘以(* 0.001 eta)
test-path
.同样在G
内部,它期望q
作为一个过程,但是,fmas
正在从G
将数字传递给G
中检索程序。因此,这将尝试应用计算的传递t
数。