LogisticMap As originally coded by Ignasi Alvarez Garriga (I think...) ; "logistic map" ; p4 = amplitut iamp = p4 kcx_real = <cx> kfreq = <freq1> kband = <band1> kfreq2 = <freq2> kband2 = <band2> kmaster = <master> ; set absolute value of cx if checkbox set if (<map1> == 1) then kcx_real = 3.864723 elseif (<map2> == 1) then kcx_real = 3.827532 elseif (<map3> == 1) then kcx_real = 3.825912 elseif (<map4> == 1) then kcx_real = 3.8 elseif (<map5> == 1) then kcx_real = 3.748215 elseif (<map6> == 1) then kcx_real = 3.738399 elseif (<map7> == 1) then kcx_real = 3.702165 elseif (<map8> == 1) then kcx_real = 3.669621 elseif (<map9> == 1) then kcx_real = 3.654183 elseif (<map10> == 1) then kcx_real = 3.650289 elseif (<map11> == 1) then kcx_real = 3.582705 endif kcx = kcx_real kcy = kcx_real ax init 0.1 ay init 0.1 axnew init 0 aynew init 0 kax init 0 kay init 0 kcy = kcy + 0.0001 axnew=kcx*ax*(1-ax) aynew=kcy*ay*(1-ay) asig1L resonr axnew,kfreq,kband asig1R resonr aynew,kfreq,kband asig2L lowpass2 asig1L,kfreq2,kband2 asig2R lowpass2 asig1R,kfreq2,kband2 blueMixerOut asig2L*kmaster*iamp,asig2R*kmaster*iamp kax downsamp ax kay downsamp ay ax=axnew ay=aynew cx 548 117 true 3.57 3.999 3.827529 80 true 577 218 CX freq1 50 17 true 20.0 20050.0 11294.887 120 true 27 158 Resonant lowpass freq. cutoff band1 246 22 true 1.0 22050.0 10.0 120 true 230 163 Resonant lowpass bandwidth freq2 48 198 true 20.0 11025.0 264.311 120 true 13 337 2nd Resonant lowpass freq. cutoff band2 246 199 true 1.0 100.0 71.9236 120 true 222 339 2nd resonant lowpass bandwidth master 559 267 true 0.0 1.0 0.5 60 false 551 346 Master Volume map1 427 14 3.864723 false false map2 427 47 3.827532 false false map3 427 80 3.825912 false false map4 427 113 3.8 false false map5 427 146 3.748215 false false map6 427 179 3.738399 false false map7 427 212 3.702165 false false map8 427 245 3.669621 false false map9 427 278 3.654183 false false map10 427 311 3.650289 false false map11 427 345 3.582705 false false