2

我一直在研究球拍中的这段代码，以根据您在火箭电影中输入的角度使火箭上升。我认为我的数学有问题，因为动画场景中的火箭一直朝错误的方向飞去。我似乎无法弄清楚到底出了什么问题。唯一可行的方向是 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))))
4

2 回答 2

4

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

于 2012-09-17T21:49:39.550 回答
1

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

（另一方面，假设它们以度为单位，旋转确实适用于数字。所以请注意：数字可能意味着不同的东西，具体取决于上下文。）

于 2012-09-19T19:08:30.990 回答