当前位置：文江博客话题详情

PLT[球拍/方案] 复利 +累加器 - 如何

发布于 2024-09-08 23:57:26 字数 262 浏览 2 评论 0原文

我又在摆弄一项（应该很容易）的任务。

复利...（公式已知）方案...（一年内一切都完美无缺）

问题：需要累加器... 我的程序必须能够记住前一个计算的结果，并将其作为下一个计算的蓝图。

我的问题来了：如何在没有列表的情况下设置accu过程....？还是我现在就错了，我必须使用它们？

不知何故，我将不得不一次又一次地调用递归过程......

提前非常感谢，诚挚的， Andreas_P

Andreas_P

原文

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

如果没有 2024-09-15 23:57:26

读你的问题让我有点头晕。我有很多答案给你，但我感觉你不太确定你的问题是什么。

我给你的真正建议是如何设计程序的慷慨帮助。具体来说，您需要从第一步开始，决定您的程序接收和生成什么，并编写一行描述如何将输入映射到输出。

一如既往，对任何冒犯表示歉意。

回复收藏 0 原文

深海里的那抹蓝 2024-09-15 23:57:26

您的意思是：

(define (fv n pv r)
  (if (= n 0)
      pv
      (fv (- n 1) (* pv (+ 1 r)) r)))

其中 pv 的值被周期末尾的值替换，并且每次递归周期数减少 1。

SICP 很好地介绍了如何构造递归 ---值得一读。

Do you mean something like:

(define (fv n pv r)
  (if (= n 0)
      pv
      (fv (- n 1) (* pv (+ 1 r)) r)))

where the value of pv is replaced by the value at the end of the period, and the number of periods is reduced by one each recursion.

SICP has good coverage of how to structure recursion --- it's worth a read.

回复收藏 0 原文

澉约 2024-09-15 23:57:26

非常感谢您的友好答复。

;;[没有真正的 DBC！]
;;合同：复利：号码号码号码->数量
;;目的：该函数必须创建一个“复利”计算方法，
;;当再次递归调用复利函数 x 次时。
;;示例：(复利 1000 1.05 360) // 应产生 1050

(定义 (复利资本利率利息-时间)
  （条件；
    [(利息时间 >= 3600) 资本];
    [其他；
    (*利率(复利资本利率(-利息-时间360)))];
  );
);

(复利 2000 1.05 360) 2100 0.1);
(check-within (复利 2000 1.05 720) 2205 0.01);
(check-within (复利 2000 1.05 1080) 2315.25 0.001);
(check-within (复利 2000 1.05 1440) 2431.0125 0.0001);
(复利 2000 1.05 1800) 2552.563125 0.00001);
(检查内(复利2000 1.05 2160) 2680.19128125 0.000001);
(检查内(复利2000 1.05 2540) 2814.20084531 0.0000001);
(检查内(复利2000 1.05 2900) 2954.91088758 0.000000001);
；（复利 2000 1.05 3260）
；（复利 2000 1.05 3600）

起初你是对的，我走错了路……关于累加器与否……
然后一位同学向我解释了原因，这就是结果。

嗯，[第一位评论者]：是的，它看起来非常相似，但因为它是 SICP，所以
计划用于 6.001 MIT，由于 DrRacket 中没有安装 SICP 校正模块，我无法真正使用它。

好吧[第二位评论者]：可能你是对的，我应该更详细地介绍一下
阅读更多关于我们教师中的“记忆功能”的内容。

最后但并非最不重要的一点是，感谢您的回答，我现在感觉（在某种程度上）受到启发来解决并关闭这个“线程”。

祝你有美好的一天......[极客们]
安德烈亚斯_P

回复收藏 0 原文

倾城花音 2024-09-15 23:57:26

;interest:number -> number
(define (interest x)
  (or(if(and(> x 0)(< x 1000))(* .04 x))(if(and(> x 1000)(< x 5000))(* .045 x))(if(> x 5000)(* .05 x))))
(interest 500)(* .04 500)
(interest 1600)(* .045 1600)
(interest 90000)(* .05 90000)

;interest:number -> number
(define (interest x)
  (or(if(and(> x 0)(< x 1000))(* .04 x))(if(and(> x 1000)(< x 5000))(* .045 x))(if(> x 5000)(* .05 x))))
(interest 500)(* .04 500)
(interest 1600)(* .045 1600)
(interest 90000)(* .05 90000)

回复收藏 0 原文

~没有更多了~