Evolution in random processes

[Veit]

Hey everyone,

 

I am wondering how, in general, I can achieve some kind of "meta"-process over a number of repeated random tasks.

 

Example: Create 20 notes deriving from c4 with rnd-variance, starting at variance 0.1 and ending at 2.

-> Starting point: (gen-loop 20 (rnd-variance 60 0.1) )

-> Last processed instance should be (rnd-variance 60 2)

 

[opmo]

(setf var (gen-accumulate (gen-repeat 20 '(0.1))))
(mapcar (lambda (x) (rnd-variance 60 x)) var)

 

or

(setf var (gen-accumulate (gen-repeat 20 '(0.1))))
(loop for i in var
      collect (rnd-variance 60 i))

 

[Veit]

Perfect, thank you!