我的动画地点图像程序有什么问题？

Question

我一直在用球拍写这段代码，根据你在火箭电影中输入的角度让火箭上升。我认为我的数学有些不对劲，因为动画场景中的火箭一直朝着错误的方向飞行。不过，我似乎无法弄清楚到底出了什么问题。似乎唯一有效的方向是 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

请原谅我的迂腐，但你真的需要将你的"make-takeoff"功能分解成更小的部分。 特别是，如果你写了一个接受角度和框架的"rocket-x"函数，你可以为它编写测试用例，并自己找出问题所在。 如果您遇到任何问题，请告诉我。

Answer 2

注意：cos 和 sin 函数以弧度而不是度为单位工作。 你的计算似乎假设度数，这应该解释为什么你会看到奇怪的值。

（另一方面，旋转确实适用于假设数字以度为单位的数字。 所以要小心：根据上下文，数字可能意味着不同的东西。