racket - 我的动画位置图像程序有什么问题？

Question

我一直在 racket 中编写这段代码，使这枚火箭根据您在火箭电影中输入的角度上升。我认为我的数学有问题，因为动画场景中的火箭一直朝着错误的方向发射。我似乎无法弄清楚到底出了什么问题。唯一可行的方向是 20 度。火箭图像本身位于 90 度。任何人都可以帮助我处理我使用的位置图像公式吗？我不知道出了什么问题。

感谢您的宝贵时间。

#lang racket
(require 2htdp/image)
(require 2htdp/universe)
(require rackunit)

;; (make−takeoff angle) −> (−> natural−number/c image?)
;; angle : exact−integer?

(define make-takeoff
    (lambda (angle)
        (let ([side-length 400])
            (let ([the−background (square side-length "solid" "white")]
                  [the-rocket .]
                  [the-velocity (/ side-length 100)])
                (lambda (frame)
                    (place-image
                        (rotate angle the-rocket)
                        (- 375 (* (cos (- 90 angle)) (* frame the-velocity)))  
                        (- 375 (* (sin (- 90 angle)) (* frame the-velocity)))  
                        the−background))))))

;; (rocket−movie angle) −> natural−number/c
;; angle : exact−integer?
(define rocket-movie
    (lambda (angle)
        (animate (make-takeoff angle))))

Answer 1

请原谅我的迂腐，但您真的，真的需要将您的“起飞”功能分解成更小的部分。特别是，如果您编写了一个接受角度和框架的“rocket-x”函数，您可以为它编写测试用例，然后自己找出问题所在。如果您在执行此操作时遇到任何问题，请告诉我。