Hallo,

versuche gerade ein Pythagorasbaum zu code aber irgrendwie komm ich noch nicht sehr weit das ganze auch rekursiv zu machen.
hat villeicht jemand ne Idee wie man son Baum coden kann?
Wäre um jede Hilfe sehr erfreut.

Hier noch mal ein Bild wies aussehen soll: de.wikipedia.org/wiki/Bild:Pyt…s_tree_construct_5of5.png


die Ansätze und die Hilfprozeduren sowie den ersten schritt zum erstellen des ersten Quadraten mit Dreiceck hab ich ja schon..
hier die Ansätze

(turtles)


(define ALPHA 30)
(define BETA (- 90 ALPHA))

;; approximations for the length of the cathetus,
;; consumes the length of the hypothenusis
;; get-b: num -> num
;; get-a: num -> num
(define (get-b c)
(* c (sin (* (/ ALPHA 180) 3.14))))


(define (get-a c)
(* c (sin (* (/ BETA 180) 3.14))))

;; purpose: paints a triangle with the given base length x and given angle ALPHA
;; and returns the turtle to its starting position
;; contract: triangle: num -> does not matter
(define (paintTriangle a)
(list
(draw a)
(turn (+ 90 ALPHA))
(draw (get-b a) )
(turn 90)
(draw (get-a a))
(turn (- 180 ALPHA))))



(define (pythagoras-step a)
(list

(draw a)
(turn 90)
(draw a)
(turn 90)
(draw a)
(turn 180)
(paintTriangle a)
(turn -90)
(draw a)
(turn 180)
(move a)
(turn -60)
))

fehlt nur noch der eigentliche Baum mit der Rekursion...:)

Scheme ein dialekt von Lisp, steht auch schon in der überschrift?
keiner eine Idee?

Hallo,

schon mal Danke für die Antworten.

wie Rekursionen im allgeimenen funktionieren weiß ich ja.
Bloß bekomm ich das nur nicht bei Pythagorasbaum hin.
Von der Logik her müsste die Funktion nach jedem Aufruf wieder zurück zum Ursprung um auch wirklich in jede ecke zu kommen.
Mein Problmm ist, wie ich wieder nach jedem Aufruf zurück zum ursprung komme und wie ich es hin bekomme, dass die Rekursion auf beiden Katheten ausgeführt wird.
Bis jetzt kriege es nur auf einer Kathete hin.

Villeicht habt ihr ja eine Idee?

looool
habs schon selber hin bekommen