Y en Csound =):
<CsoundSynthesizer>
<CsOptions>
</CsOptions>
<CsInstruments>
sr = 44100
ksmps = 64
nchnls = 2
0dbfs = 1
;* Ecuacion:
;* x(i) = x(i-1) (1 - x(i-1)) lambda
instr kspluck
iamp=0.5
ifreq = p4
idecayt = p3
anoise noise 0.1, 0
asignal pluck iamp, ifreq, ifreq, 0, 1
outs asignal, asignal
endin
instr verhulst
ilambda = p4
kfreq init 600
kx init 0.75
ktrig init 1
ktrigfreq trandom ktrig, 1.5, 10
ktrig metro ktrigfreq
if ktrig == 1 then
schedkwhen ktrig, 0, 10, "kspluck", 0, 1.25, kfreq
kx = ((1-kx)*kx)*ilambda ; **-Ecuacion Verhulst-**
kmidinote = floor((kx + 0.45)/2.0 * 127.0 + 0.5)
kfreq = 440 * 2 ^ ((kmidinote - 69)/12)
endif
endin
</CsInstruments>
<CsScore>
; p4 (lambda)
;i "verhulst" 0 60 3.97; // Melodia Caotica (a la Cowell)
i "verhulst" 0 60 3.65; // Melodia Cuasi periodica
;i "verhulst" 0 60 3.05; // Melodía algo periodica (minimalista)
</CsScore>
</CsoundSynthesizer>
Saludos,
Andres
2010/12/26 Juan I Reyes <[email protected]>:
>
>
> Hola Jose Manuel,
>
> Muchas gracias por tu versión de Vermhulst para Pd.
>
> Me parece mas simple de entender que mi versión en SuperCollider que
> complica las cosas de pronto por lo del Karplus-Strong.
>
> Esta versión de Pd es casi un "ready-made" para instalaciones, aunque yo
> también la usaría en interpretación en vivo, cuando es cuasi-periódica,
> como una linea de tenor-bajo.
>
> Feliz Navidad y Felices Fiestas!.
>
> Saludos,
>
> --* Juan
>
> On Wed, 2010-12-22 at 23:50 +0100, José Manuel Berenguer Alarcón wrote:
>> Hola,
>>
>> Ahí va la versión pd del programa que manda Juan
>>
>> Un saludo
>>
>> José Manuel
>>
>
>
> _______________________________________________
>
> Expyezp mailing list
> [email protected]
> http://lists.slow.tk/listinfo.cgi/expyezp-slow.tk
>
> Archivo de mensajes:
> http://lists.slow.tk/pipermail/expyezp-slow.tk/
>
_______________________________________________
Expyezp mailing list
[email protected]
http://lists.slow.tk/listinfo.cgi/expyezp-slow.tk
Archivo de mensajes:
http://lists.slow.tk/pipermail/expyezp-slow.tk/
