alt=""Galerij met voorbeeldenRegelmatige veelhoekFractaalDr.

Fractaal

De constructie van een fractaal in boomvorm is erg eenvoudig. De broncode van de figuur is wonderlijk compact, vooral wanneer men ze vergelijkt met een "handmatige" constructie via de grafische interface.

(new-figure "Baum")
(lets Numeric "A1" free 2 2 +3.4)
(lets Numeric "A2" free 2 3 -3.7)
(lets Numeric "S1" free 2 4 +0.5)
(lets Numeric "S2" free 2 5 +0.9)

(define (dec n)
  (- n 1))
(define (inc n)
  (+ n 1))
(define (invisible p)
  (send p masked)
  p)
(define (scalerot oP C a s)
  (let* ((sP (invisible (Point "" scale oP C s)))
         (rP (invisible (Point "" rotation sP C a))) )
    rP))
(define (Zweig p0 p1 n)
  (Segment "" extremities p0 p1)
  (let* ((left-scale (if (odd? n) S1 S2))
         (left-angle A1)
         (right-scale (if (odd? n) S2 S1))
         (right-angle A2) )
    (if (> n 0)
      (begin
        (Zweig p1 (scalerot p0 p1  left-angle  left-scale) (dec n))
        (Zweig p1 (scalerot p0 p1 right-angle right-scale) (dec n))))))
        
(lets Point "A" free -3 0)
(lets Point "B" free -3 2)
(Zweig A B 6)

Een fractaal die een boomvorm simuleert
An image

Commentaar of opmerkingen ?
Bent u vrijwilliger om delen van de handleiding te schrijven ?
-> Contacteer Hilaire Fernandes op OFSET of word lid van de mailing list van DR. GEO.

alt=""Galerij met voorbeeldenRegelmatige veelhoekFractaalDr.