-odac
sr = 44100
ksmps = 32
nchnls = 2
0dbfs = 1
;Van der Pol Oscillator
;outputs a nonliniear oscillation
;inputs: a_excitation, k_frequency in Hz (of the linear part), nonlinearity (0 < mu < ca. 0.7)
opcode v_d_p, a, akk
setksmps 1
av init 0
ax init 0
ain,kfr,kmu xin
kc = 2-2*cos(kfr*2*$M_PI/sr)
aa = -kc*ax + kmu*(1-ax*ax)*av
av = av + aa
ax = ax + av + ain
xout ax
endop
instr 1
kaex invalue "aex"
kfex invalue "fex"
kamp invalue "amp"
kf invalue "freq"
kmu invalue "mu"
a1 oscil kaex,kfex,1
aout v_d_p a1,kf,kmu
outs kamp*aout,a1*100
endin
f1 0 32768 10 1
i1 0 95
;example by martin neukom
89863648782true234255246380251473179{7ca21407-b7bd-499b-8f63-0dd8d20881da}true0-3
Courier
800025525525538022472230{6f916395-2560-464d-b174-d8d29e343da9}true0-301.000000001.000000001.000000001.00000000autoautotruefreq833134184{a9a9c39c-8ab3-409a-9cb1-917def558488}true0-30.000000001000.00000000347.82608696lincontinuous-1.00000000falsemu1473334184{1dbeb129-3bd8-47d4-acf9-075245e9a0fc}true0-30.000000001.000000000.54347826lincontinuous-1.00000000falsefex2363034184{feb36ec6-ab64-4532-a795-82ced939e1d3}true0-30.000000002000.00000000782.60869565lincontinuous-1.00000000falseaex2983134184{323641a0-6fc5-467d-9605-12854b6d21b6}true0-30.000000000.010000000.00201087lincontinuous-1.00000000false862243425{e83b7e51-cdc7-4be4-ac8d-c5578fa6d8ad}true0-3left
Lucida Grande
103000255255255noborder111442233425{f45a1163-aabf-4b81-b088-16d326767bfd}true0-3left
Lucida Grande
103000255255255noborder112372213425{b710b25d-df8b-49e2-adf9-c39ef33e5e42}true0-3left
Lucida Grande
103000255255255noborder112942203425{6266a975-c3b6-4887-b908-a1df3428d50c}true0-3left
Lucida Grande
103000255255255noborder112522496826{4c0873d1-dcfc-402c-b16a-bb71a8fd720d}true0-3left
Lucida Grande
103000255255255noborder11672536826{ece7f592-e69c-4f1a-9e4d-88d54bd4490c}true0-3left
Lucida Grande
103000255255255noborder11amp203434184{cafb4894-868b-4539-ae2c-6ca4bf9d08eb}true0-30.000000000.500000000.11141304lincontinuous-1.00000000false212233425{b7f47cef-1178-4bbf-b4ef-f49ef6051d5c}true0-3left
Lucida Grande
103000255255255noborder11amp815625{18a816e1-379c-4adc-9999-1ba5bf1b4bf4}true0-3left
Lucida Grande
103000255255255border11freq7315625{58f75601-0f9e-42ce-8586-a6a43c80bc00}true0-3left
Lucida Grande
103000255255255border11mu13515625{c7d24a1a-c476-4fc8-93df-4fcc61a07caf}true0-3left
Lucida Grande
103000255255255border11aex28715625{26d80db9-f5f0-4d67-85f7-97ffeee09005}true0-3left
Lucida Grande
103000255255255border11fex22115625{53b89138-a6a6-48ea-bf6c-de5c1bff69ba}true0-3left
Lucida Grande
103000255255255border1110310346151{3d37aa10-7ee6-4d22-b026-4772dc3a7e42}true0-31.00000000scope2.000000001.000000001.000000001.000000000.000000007475350150{d231512d-030d-4a9d-8c2e-c5f0353f80b8}true0-32.00000000scope2.000000001.000000001.000000001.000000000.00000000