Zeichnen Kreis in Schema Sprache

Question

Ich habe vor kurzem Mittelpunkt Kreis Algorithmus im Schema verwendet, um einen Kreis zu zeichnen, aber es kann nur einen kleinen Kreis mit einem Radius nicht größer als 10 zeichnen, wenn der Radius zunimmt, wird es ein Achteck. Kann mir jemand sagen, wie ich meinen Code korrigieren kann?

(define (Circle x0 y0 r) 
    (let ((x 0) (y r) (dp (- 1 r))) 
    (CircleGo dp x0 x y0 y))) 

(define (CircleGo dp x0 x y0 y) 
    (let ((x1 (+ x 1))(y1 (- y 1))) 
    (let ((dp1 (+ (* 2 x1) 3)) (dp2 (+ (- (* 2 x1) (* 2 y1)) 5))) 
     (if (<= x y) 
       (if (< dp 0) 
       (append (list (+ x0 x)(+ y0 y) 
         (- x0 x) (+ y0 y) 
         (+ x0 x) (- y0 y) 
          (- x0 x) (- y0 y) 
           (+ x0 y) (+ y0 x) 
            (- x0 y) (+ y0 x) 
             (+ x0 y) (- y0 x) 
              (- x0 y) (- y0 x)) 
       (CircleGo dp1 x0 x1 y0 y)) 
       (append (list (+ x0 x) (+ y0 y) 
         (- x0 x) (+ y0 y) 
          (+ x0 x) (- y0 y) 
          (- x0 x) (- y0 y) 
           (+ x0 y) (+ y0 x) 
           (- x0 y) (+ y0 x) 
            (+ x0 y) (- y0 x) 
            (- x0 y) (- y0 x)) 
       (CircleGo dp2 x0 x1 y0 y1)))  
      (list))))) 

Answer 1

Ich denke, diese Frage hat viel mehr mit Mathematik zu tun als mit der Programmierung. Es klingt, als ob Sie eine Funktion benötigen, die einen Mittelpunkt, einen Radius und einen Winkel im Bogenmaß akzeptiert und die x- und y-Koordinaten des angegebenen Punkts zurückgibt. Sine und Cosine sind deine Freunde hier. Genauer gesagt, (x0 + r * Cos(theta), y0 + r * Sin(theta)).