;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;Lu shu (Zuercher Triptychon I)
;Para cinta sola
;Codigo para la sintesis de los materiales sonoros
;Autor: Jose Lopez Montes
;Duracion: 9 min. 46 seg.
;Fecha de composicion: 2002
;Estreno: Sala Manuel de Falla de la SGAE, Madrid, en noviembre de 2002
;Premio: Mencion especial en el II Premio SGAE Internacional de Musica Electroacustica 2002
;Publicacion: CD Premio SGAE Internacional de Musica Electroacustica 2002 - 2003. Dep. Legal: M-53812-2003
;+info: http://www.lopezmontes.es/obra/lu_shu.html
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
sr=44100
kr=44100
ksmps=1
nchnls=2
garev1l init 0
garev1r init 0
garev2l init 0
garev2r init 0
garev3l init 0
garev3r init 0
garev4l init 0
garev4r init 0
garev5l init 0
garev5r init 0
garev6l init 0
garev6r init 0
;__________________________________________________________
instr 1 ; plectro
adeclick linseg 1, p3-.1, 1.0, .1, 0
idur = p3
iamp = p4
kamp = p4
ifreq = p5
kfreq = p5
kcps = ifreq
kcps2 linrand 800
icps linrand 3000
icps = icps+300
icps2 linrand 3000
icps2 = icps2+300
again1:
iwave1 linrand 7
iwave1 = int(iwave1)+1
if iwave1 = 8 igoto again1
again2:
iwave2 linrand 7
iwave2 = int(iwave2)+1
if iwave2 = 8 igoto again2
again3:
iwave3 linrand 7
iwave3 = int(iwave3)+1
if iwave3 = 8 igoto again3
ipan1 trirand .5
ipan1 = ipan1+.5
ipan2 trirand .5
ipan2 = ipan2+.5
kpan expon ipan1, p3, ipan2
irad = 1.5708
imaxdel = 20 ; milisec
idelayr = (imaxdel * ipan1 / 1000) + .0001
idelayl = ((imaxdel - (imaxdel * ipan1)) / 1000) + .0001
kamsin linseg .5, p3*.618, 3, p3*.382, .3
aampul expseg .01, .015, 1.0, (p3/8)-.015, 1.0, (7*p3)/8, .01
kamsaw linseg 1, p3*.25, .1, p3*.75, 0
kenv linseg 1, p3/2, 0, p3/2, 0
ialea1 gauss .01
ialeavib1 linrand .1
ialeavib2 linrand .99
ialeavib3 linrand .0049
ialeavib4 linrand .9
;print ialea1
kvibam expon (.001*ialeavib1)+.0001, p3, 2+ialeavib2
kvibfr expon (.01+ialeavib3)+.0001, p3, 3+ialeavib4
kvibr oscil .01*kvibfr, p3*kvibfr, 1
a1 oscil (iamp/7)*kamsin, ifreq*(1-ialea1)*(1+kvibr), iwave1
a11 oscil (iamp/50)*kamsin, ifreq*(iwave1-3)*(1+kvibr), iwave1
a2 oscil ((iamp*2)/7)*aampul, ifreq*(1+kvibr), iwave2
a22 oscil (iamp/50)*aampul, ifreq*(iwave2-4)*(1+kvibr), iwave2
a3 oscil ((iamp*4)/7)*kamsaw, ifreq*(1+ialea1)*(1+kvibr), iwave3
a33 oscil (iamp/50)*kamsaw, ifreq*(iwave3-5)*(1+kvibr), iwave3
a9 foscil iamp/15, kfreq*(1+kvibr), iwave1, iwave2, kenv, 1
a8 foscil iamp/15, kfreq*(1+kvibr), iwave2, iwave3, kenv, 1
a4 pluck kamp/(iwave1*30), kcps*(1+kvibr), icps, 0, 1
a5 pluck kamp/(iwave2*60), kcps2*(1+kvibr), icps2, 0, 1
asuml = ((a1+a11+a2+a22+a3+a33+a9)+((a4+a5)*kenv))*kpan*adeclick
asumr = ((a1+a11+a2+a22+a3+a33+a9)+((a4+a5)*kenv))*(1-kpan)*adeclick
al delay asuml, idelayl
ar delay asumr, idelayr
outs al, ar
garev1l = garev1l + al
garev1r = garev1r + ar
endin
;__________________________________________________________
instr 91
itime = p4
arev1l reverb garev1l, itime
arev1r reverb garev1r, itime
outs arev1l, arev1r
garev1l = 0
garev1r = 0
endin
;__________________________________________________________
instr 911 ; reverb expon
itime = p4
kenv expseg .00001, p3, 1
arev1l reverb garev1l, itime
arev1r reverb garev1r, itime
outs arev1l*kenv, arev1r*kenv
garev1l = 0
garev1r = 0
endin
;__________________________________________________________
instr 2 ; plectro algoritmico
adeclick linseg 1, p3-.1, 1.0, .1, 0
idur = p3
ipkamp1 = p4
ipkamp2 = p5
idurfn = p6
imin1 = p7
imin2 = p8
ipchfn = p9
imult1 = p10
imult2 = p11
icomp1 = p12
icomp2 = p13
iampfn = 8
irad = 1.5708 ; calculo en radianes
imaxdel = 20 ; milisegundos
ipkdur = .2501
kdurloc phasor p3/p3*20
kpchloc phasor p3/p3*2
kpan rand .5
kpkamp line ipkamp1, p3, ipkamp2
kmin line imin1, p3, imin2
kmult line imult1, p3, imult2
kcomp line icomp1, p3, icomp2
noteinit:
idurloc = i(kdurloc)
idura table idurloc, idurfn, 1
idura = idura*i(kmin)
iampl table idura/ipkdur, iampfn, 1
kampl = iampl
ipchloc = i(kpchloc)
ipch table ipchloc, ipchfn, 1
icps = (ipch*i(kmult))+i(kcomp)
kcps = icps
khz = icps
khz2 linrand 800
ihz linrand 3000
ihz = ihz+300
ihz2 linrand 3000
ihz2 = ihz2+300
ipan1 trirand .5
ipan1 = ipan1+.5
ipan2 trirand .5
ipan2 = ipan2+.5
kpan expon ipan1, idura, ipan2
idelayr = (imaxdel * ipan1 / 1000) + .0001
idelayl = ((imaxdel - (imaxdel * ipan1)) / 1000) + .0001
kamsin linseg .5, idura*.618, 3, idura*.382, .3
aampul expseg .01, .015, 1.0, (idura/8)-.015, 1.0, (7*idura)/8, .01
kamsaw linseg 1, idura*.25, .1, idura*.75, 0
kenv linseg 1, idura/2, 0, idura/2, 0
ialea1 gauss .01
ialeavib1 linrand .1
ialeavib2 linrand .99
ialeavib3 linrand .0049
ialeavib4 linrand .9
again1:
iwave1 linrand 7
iwave1 = int(iwave1)+1
if iwave1 = 8 igoto again1
again2:
iwave2 linrand 7
iwave2 = int(iwave2)+1
if iwave2 = 8 igoto again2
again3:
iwave3 linrand 7
iwave3 = int(iwave3)+1
if iwave3 = 8 igoto again3
kvibam expon (.001*ialeavib1)+.0001, p3, 2+ialeavib2
kvibfr expon (.01+ialeavib3)+.0001, p3, 3+ialeavib4
kvibr oscil .01*kvibfr, idura*kvibfr, 1
a1 oscil (iampl/7)*kamsin*kpkamp, icps*(1-ialea1)*(1+kvibr), iwave1
a11 oscil (iampl/50)*kamsin*kpkamp, icps*(iwave1-3)*(1+kvibr), iwave1
a2 oscil ((iampl*2)/7)*aampul*kpkamp, icps*(1+kvibr), iwave2
a22 oscil (iampl/50)*aampul*kpkamp, icps*(iwave2-4)*(1+kvibr), iwave2
a3 oscil ((iampl*4)/7)*kamsaw*kpkamp, icps*(1+ialea1)*(1+kvibr), iwave3
a33 oscil (iampl/50)*kamsaw*kpkamp, icps*(iwave3-5)*(1+kvibr), iwave3
a9 foscil iampl/15*kpkamp, kcps*(1+kvibr), iwave1, iwave2, kenv, 1
a8 foscil iampl/15*kpkamp, kcps*(1+kvibr), iwave2, iwave3, kenv, 1
a4 pluck kampl/(iwave1*30)*kpkamp, khz*(1+kvibr), ihz, 0, 1
a5 pluck kampl/(iwave2*60)*kpkamp, khz2*(1+kvibr), ihz2, 0, 1
asuml = ((a1+a11+a2+a22+a3+a33+a9)+((a4+a5)*kenv))*kpan*adeclick
asumr = ((a1+a11+a2+a22+a3+a33+a9)+((a4+a5)*kenv))*(1-kpan)*adeclick
al delay asuml, idelayl
ar delay asumr, idelayr
outs al, ar
garev2l = garev2l + al
garev2r = garev2r + ar
rest: timout 0, idura, exit
reinit noteinit
exit: endin
;__________________________________________________________
instr 92
itime = p4
arev2l reverb garev2l, itime
arev2r reverb garev2r, itime
outs arev2l, arev2r
garev2l = 0
garev2r = 0
endin
;__________________________________________________________
instr 921 ; reverb expon
itime = p4
kenv expseg .00001, p3, 1
arev2l reverb garev2l, itime
arev2r reverb garev2r, itime
outs arev2l*kenv, arev2r*kenv
garev2l = 0
garev2r = 0
endin
;__________________________________________________________
instr 3 ; FONDO
idur = p3
ifreq = cpspch(p5)
igls1 = p6
igls2 = p7
icarr = p13
imod = p14
;print ifreq
;print ifreq*igls1
;print ifreq*igls2
iwave1 = p8
iwave2 = p9
iwave3 = p10
;==========AMPLITUDE==========
adeclick linseg 0, .01, 1, idur-.02, .4, .01, 0
iamp = p4/3
iflx1 = p11; 0-1
iflx2 = p12; 0-1. iflx1>iflx2
kamp1l linseg iamp, idur*iflx1, 0, (idur*iflx2)-(idur*iflx1), iamp/3, idur-(idur*iflx2), 0
kamp1r linseg 0, idur*iflx1, iamp, (idur*iflx2)-(idur*iflx1), iamp/3, idur-(idur*iflx2), 0
kamp2l linseg 0, idur*iflx1/2, 0, idur*iflx1/2, iamp, (idur*iflx2)-(idur*iflx1), iamp/3, (idur-(idur*iflx2))/2, 0
kamp2r linseg 0, idur*iflx1/2, iamp, idur*iflx1/2, 0, (idur*iflx2)-(idur*iflx1), iamp/3, (idur-(idur*iflx2))/2, 0
kamp3l linseg 0, idur*iflx1, 0, ((idur*iflx2)-(idur*iflx1))/3, iamp, ((idur*iflx2)-(idur*iflx1))/3, 0, ((idur*iflx2)-(idur*iflx1))/3, iamp, (idur-(idur*iflx2))/3, 0
kamp3r linseg 0, (idur*iflx1)+(((idur*iflx2)-(idur*iflx1))/3), 0, ((idur*iflx2)-(idur*iflx1))/3, iamp, ((idur*iflx2)-(idur*iflx1))/3, 0, (idur-(idur*iflx2))/3, iamp, (idur-(idur*iflx2))*2/3, 0
;============FREQUENCY==============
kfrch1l expseg ifreq+.0001, idur*iflx1, (ifreq+.0001)*igls1, idur-(idur*iflx1), ifreq+.0001
kfrch1r linseg ifreq, idur*iflx1, ifreq*igls1, idur-(idur*iflx1), ifreq
kfrch2l linseg ifreq, idur*iflx2, ifreq*igls2, idur-(idur*iflx2), ifreq
kfrch2r expseg ifreq+.0001, idur*iflx2, (ifreq+.0001)*igls2, idur-(idur*iflx2), ifreq+.0001
;==============FM lines=============
kcarr expseg 1, idur/2, icarr, idur/2, 1
kmod expseg 1, idur/2, imod, idur/2, 1
;=============OSCILLATORS===============
a1l oscil kamp1l/3, ifreq, iwave1
a1r oscil kamp1r/3, ifreq, iwave1
a12l oscil kamp1l/3, kfrch1l, iwave1
a12r oscil kamp1r/3, kfrch1r, iwave1
a13l oscil kamp1l/3, kfrch2l, iwave1
a13r oscil kamp1r/3, kfrch2r, iwave1
a2l foscil kamp2l/3, ifreq, 1, kcarr, kmod, iwave2
a2r foscil kamp2r/3, ifreq, 1, kcarr, kmod, iwave2
a22l foscil kamp2l/3, kfrch1l, 1, kcarr, kmod, iwave2
a22r foscil kamp2r/3, kfrch1r, 1, kcarr, kmod, iwave2
a23l foscil kamp2l/3, kfrch2l, 1, kcarr, kmod, iwave2
a23r foscil kamp2r/3, kfrch2r, 1, kcarr, kmod, iwave2
a3l oscil kamp3l/3, ifreq, iwave3
a3r oscil kamp3r/3, ifreq, iwave3
a32l oscil kamp3l/3, kfrch1l, iwave3
a32r oscil kamp3r/3, kfrch1r, iwave3
a33l oscil kamp3l/3, kfrch2l, iwave3
a33r oscil kamp3r/3, kfrch2r, iwave3
;============FILTER=================
kfltenv linseg 1000, idur/2, .00001, idur/2, 500
afiltl reson ((a1l+a12l+a13l+a2l+a22l+a23l+a3l+a32l+a33l)*adeclick)/500, ifreq+100, kfltenv
afiltr reson ((a1r+a12r+a13r+a2r+a22r+a23r+a3r+a32r+a33r)*adeclick)/500, ifreq-100, kfltenv
;=============NOISE==============
ans rand iamp/700
kenv expseg .0001, p3/2, 1, p3/2, .0001
kbw expseg 500, p3/8, 50, p3*3/8, 1, p3*3/8, 50, p3/8, 1
anoise reson ans*kenv, ifreq, kbw
al = ((a1l+a12l+a13l+a2l+a22l+a23l+a3l+a32l+a33l)*adeclick)+afiltl+anoise
ar = ((a1r+a12r+a13r+a2r+a22r+a23r+a3r+a32r+a33r)*adeclick)+afiltr+anoise
;=========OUTPUTS================
outs al, ar
garev3l = garev3l + al
garev3r = garev3r + ar
endin
;__________________________________________________________
instr 93; reverb
itime = p4
arev3l reverb garev3l, itime
arev3r reverb garev3r, itime
outs arev3l, arev3r
garev3l = 0
garev3r = 0
endin
;__________________________________________________________
instr 931; reverb expon
itime = p4
kenv expseg .0001, p3, 1
arev3l reverb garev3l, itime
arev3r reverb garev3r, itime
outs arev3l*kenv, arev3r*kenv
garev3l = 0
garev3r = 0
endin
;__________________________________________________________
instr 4 ; FONDO + delay flanger
idur = p3
ifreq = cpspch(p5)
igls1 = p6
igls2 = p7
icarr = p13
imod = p14
;print ifreq
;print ifreq*igls1
;print ifreq*igls2
iwave1 = p8
iwave2 = p9
iwave3 = p10
;==========AMPLITUDE==========
adeclick linseg 0, .01, 1, idur-.02, 1, .01, 0
iamp = p4/6
iflx1 = p11; 0-1
iflx2 = p12; 0-1. iflx1>iflx2
kamp1l linseg iamp, idur*iflx1, 0, (idur*iflx2)-(idur*iflx1), iamp/3, idur-(idur*iflx2), 0
kamp1r linseg 0, idur*iflx1, iamp, (idur*iflx2)-(idur*iflx1), iamp/3, idur-(idur*iflx2), 0
kamp2l linseg 0, idur*iflx1/2, 0, idur*iflx1/2, iamp, (idur*iflx2)-(idur*iflx1), iamp/3, (idur-(idur*iflx2))/2, 0
kamp2r linseg 0, idur*iflx1/2, iamp, idur*iflx1/2, 0, (idur*iflx2)-(idur*iflx1), iamp/3, (idur-(idur*iflx2))/2, 0
kamp3l linseg 0, idur*iflx1, 0, ((idur*iflx2)-(idur*iflx1))/3, iamp, ((idur*iflx2)-(idur*iflx1))/3, 0, ((idur*iflx2)-(idur*iflx1))/3, iamp, (idur-(idur*iflx2))/3, 0
kamp3r linseg 0, (idur*iflx1)+(((idur*iflx2)-(idur*iflx1))/3), 0, ((idur*iflx2)-(idur*iflx1))/3, iamp, ((idur*iflx2)-(idur*iflx1))/3, 0, (idur-(idur*iflx2))/3, iamp, (idur-(idur*iflx2))*2/3, 0
;============FREQUENCY==============
kfrch1l expseg ifreq, idur*iflx1, ifreq*igls1, idur-(idur*iflx1), ifreq
kfrch1r linseg ifreq, idur*iflx1, ifreq*igls1, idur-(idur*iflx1), ifreq
kfrch2l linseg ifreq, idur*iflx2, ifreq*igls2, idur-(idur*iflx2), ifreq
kfrch2r expseg ifreq, idur*iflx2, ifreq*igls2, idur-(idur*iflx2), ifreq
;==============FM lines=============
kcarr expseg 1, idur/2, icarr, idur/2, 1
kmod expseg 1, idur/2, imod, idur/2, 1
;=============OSCILLATORS===============
a1l oscil kamp1l/3, ifreq, iwave1
a1r oscil kamp1r/3, ifreq, iwave1
a12l oscil kamp1l/3, kfrch1l, iwave1
a12r oscil kamp1r/3, kfrch1r, iwave1
a13l oscil kamp1l/3, kfrch2l, iwave1
a13r oscil kamp1r/3, kfrch2r, iwave1
a2l foscil kamp2l/3, ifreq, 1, kcarr, kmod, iwave2
a2r foscil kamp2r/3, ifreq, 1, kcarr, kmod, iwave2
a22l foscil kamp2l/3, kfrch1l, 1, kcarr, kmod, iwave2
a22r foscil kamp2r/3, kfrch1r, 1, kcarr, kmod, iwave2
a23l foscil kamp2l/3, kfrch2l, 1, kcarr, kmod, iwave2
a23r foscil kamp2r/3, kfrch2r, 1, kcarr, kmod, iwave2
a3l oscil kamp3l/3, ifreq, iwave3
a3r oscil kamp3r/3, ifreq, iwave3
a32l oscil kamp3l/3, kfrch1l, iwave3
a32r oscil kamp3r/3, kfrch1r, iwave3
a33l oscil kamp3l/3, kfrch2l, iwave3
a33r oscil kamp3r/3, kfrch2r, iwave3
;============FILTER=================
kfltenv linseg 1000, idur/2, .00001, idur/2, 500
afiltl reson ((a1l+a12l+a13l+a2l+a22l+a23l+a3l+a32l+a33l)*adeclick)/500, ifreq+100, kfltenv
afiltr reson ((a1r+a12r+a13r+a2r+a22r+a23r+a3r+a32r+a33r)*adeclick)/500, ifreq-100, kfltenv
;=============NOISE==============
ans rand iamp/700
kenv expseg .0001, p3/2, 1, p3/2, .0001
kbw expseg 500, p3/8, 50, p3*3/8, 1, p3*3/8, 50, p3/8, 1
anoise reson ans*kenv, ifreq, kbw
;anoise2 reson anoise, ifreq, kbw
;anoise3 reson anoise2, ifreq, kbw
;==============DELAY FLANGER==============
ims = 50
alfo oscil ims/2, 1/p3, 1
alfo = alfo + ims/2
adelayl vdelay ((a1l+a12l+a13l+a2l+a22l+a23l+a3l+a32l+a33l)*adeclick)+afiltl+anoise, alfo, ims
adelayr vdelay ((a1r+a12r+a13r+a2r+a22r+a23r+a3r+a32r+a33r)*adeclick)+afiltr+anoise, alfo, ims
adelayl2 vdelay adelayl, alfo, ims
adelayl3 vdelay adelayl2, alfo, ims
adelayl4 vdelay adelayl3, alfo, ims
adelayl5 vdelay adelayl4, alfo, ims
adelaylmix = adelayl+adelayl2+adelayl3+adelayl4+adelayl5
;dispfft adelaylmix, idur, 1024
adelayr2 vdelay adelayr, alfo, ims
adelayr3 vdelay adelayr2, alfo, ims
adelayr4 vdelay adelayr3, alfo, ims
adelayr5 vdelay adelayr4, alfo, ims
adelayrmix = adelayr+adelayr2+adelayr3+adelayr4+adelayr5
al = ((a1l+a12l+a13l+a2l+a22l+a23l+a3l+a32l+a33l)*adeclick)+afiltl+anoise+adelaylmix
ar = ((a1r+a12r+a13r+a2r+a22r+a23r+a3r+a32r+a33r)*adeclick)+afiltr+anoise+adelayrmix
;=========OUTPUTS================
outs al, ar
garev4l = garev4l + al
garev4r = garev4r + ar
endin
instr 94
itime = p4
kenv expseg .00001, p3, 1
arev4l reverb garev4l, itime
arev4r reverb garev4r, itime
outs arev4l*kenv, arev4r*kenv
garev4l = 0
garev4r = 0
endin
;__________________________________________________________
instr 5 ; ruido
idur = p3
iamp = p4
infl1 = p5 ; punto de inflexion (0-1)
infl2 = p6
icf1 = p7
icf2 = p8
ibw1 = p9
ibw2 = p10
kenv linseg 0, p3*infl1, 1, p3*(infl2-infl1), 1, p3*(1-infl2), 0
anoise rand iamp
kcf line icf1, idur, icf2
kbw line ibw1, idur, ibw2
afilt reson anoise, kcf, kbw, 2
outs afilt*kenv, afilt*kenv
garev5l = garev5l + (afilt*kenv)
garev5r = garev5r + afilt*kenv
endin
;__________________________________________________________
instr 95
itime = p4
arev5l reverb garev5l, itime
arev5r reverb garev5r, itime
outs arev5l, arev5r
garev5l = 0
garev5r = 0
endin
;_________________________________
instr 6 ; pluck inicial
adeclick linseg 1, p3-.1, 1.0, .1, 0
idur = p3
iamp = p4
kamp = p4
ifreq = cpspch(p5)
kcps = ifreq
kcps2 linrand 800
icps linrand 3000
icps = icps+300
icps2 linrand 3000
icps2 = icps2+300
again1:
iwave1 linrand 7
iwave1 = int(iwave1)+1
if iwave1 = 8 igoto again1
again2:
iwave2 linrand 7
iwave2 = int(iwave2)+1
if iwave2 = 8 igoto again2
again3:
iwave3 linrand 7
iwave3 = int(iwave3)+1
if iwave3 = 8 igoto again3
ipan1 trirand .5
ipan1 = ipan1+.5
ipan2 trirand .5
ipan2 = ipan2+.5
kpan expon ipan1, p3, ipan2
irad = 1.5708
imaxdel = 20 ; milisec
idelayr = (imaxdel * ipan1 / 1000) + .0001
idelayl = ((imaxdel - (imaxdel * ipan1)) / 1000) + .0001
kamsin linseg .5, p3*.618, 3, p3*.382, .3
aampul expseg .01, .015, 1.0, (p3/8)-.015, 1.0, (7*p3)/8, .01
kamsaw linseg 1, p3*.25, .1, p3*.75, 0
kenv linseg 1, p3/2, 0, p3/2, 0
a1 oscil (iamp/7)*kamsin, ifreq, iwave1
a2 oscil ((iamp*2)/7)*aampul, ifreq, iwave2
a3 oscil ((iamp*4)/7)*kamsaw, ifreq, iwave3
a4 pluck kamp/(iwave1*30), kcps, icps, 0, 1
a5 pluck kamp/(iwave2*60), kcps2, icps2, 0, 1
asuml = ((a1+a2+a3)+((a4+a5)*kenv))*kpan*adeclick
asumr = ((a1+a2+a3)+((a4+a5)*kenv))*(1-kpan)*adeclick
al delay asuml, idelayl
ar delay asumr, idelayr
outs al, ar
garev6l = garev6l + al
garev6r = garev6r + ar
endin
;_________________________________
instr 96
itime = p4
arev6l reverb garev6l, itime
arev6r reverb garev6r, itime
outs arev6l, arev6r
garev6l = 0
garev6r = 0
endin
;_________________________________
instr 961 ; reverb expon
itime = p4
kenv expseg .00001, p3, 1
arev6l reverb garev6l, itime
arev6r reverb garev6r, itime
outs arev6l*kenv, arev6r*kenv
garev6l = 0
garev6r = 0
endin
;;;;;;;;;;;;;;;;;;;
Lu shu - score
;;;;;;;;;;;;;;;;;;;
;___________________________________
;___________________________________
;T A B L A S Y F U N C I O N E S
;___________________________________
;___________________________________
;tablas para formas de onda
;________________________________________________
f1 0 32768 10 1 ;onda sinusoidal
f2 0 32768 10 0 .333 .666 0 .5 .2
f3 0 32768 10 0 0 .3 .6 .9 1 1 1
f4 0 32768 10 1 .5 .3 .25 .2 .167 .14 .125 .111 ; diente de sierra
f5 0 32768 10 1 0 .8 0 .3 ;
f6 0 32768 10 1 1 1 1 .7 .5 .3 .1 ; pulso
f7 0 32768 10 1 0 .3 0 .2 0 .14 0 .111 ; cuadrada
;tabla para amplitud de onda
;________________________________________________
f8 0 129 9 .25 1 0 ;intensidad en funcion de la duracion
;tablas sobre el cuadrado magico de Durero
;________________________________________________
;horizontales
f11 0 16 -2 16 3 2 13 5 10 11 8 9 6 7 12 4 15 14 1
;horizontales retrogradadas
f12 0 16 -2 1 14 15 4 12 7 6 9 8 11 10 5 13 2 3 16
;verticales
f13 0 16 -2 16 5 9 4 3 10 6 15 2 11 7 14 13 8 12 1
;verticales retrogradadas
f14 0 16 -2 1 12 8 13 14 7 11 2 15 6 10 3 4 9 5 16
;diagonales
f15 0 16 -2 16 10 7 1 4 6 11 13 1 7 10 16 13 11 6 4
;esquinas
f16 0 4 -2 16 13 4 1
;centrales
f17 0 4 -2 10 11 6 7
;tablas sobre el cuadrado magico chino del siglo XVI
;________________________________________________
;horizontales+diagonales
f21 0 64 -2 27 29 2 4 13 36 9 11 20 22 31 18 32 25 7 3 21 23 14 16 34 30 12 5 28 6 15 17 26 19 1 24 33 35 8 10 0 27 11 7 30 26 10 0 1 6 34 3 31 36 0 10 26 30 7 11 27 0 36 31 3 34 6 1
;verticales+diagonales inversas
f22 0 64 -2 27 9 32 14 28 1 29 11 25 16 6 24 2 20 7 34 15 33 4 22 3 30 17 35 13 31 21 12 26 8 36 18 23 5 19 10 0 36 31 3 34 6 1 0 10 26 30 7 11 27 0 1 6 34 3 31 36 0 27 11 7 30 26 10
;_______ PARAMETROS DE LOS INSTRUMENTOS ________________________
;______ _______ _______ _______ _______ _______ _______ _______ _______ _______ _______ _______ _______ _______
;1 2 3 4 5 6 7 8 9 10 11 12 13 14
;instr 1 - plectro amp freq
;instr2 - plec. algorit amplit1 amplit2 durfun mindur1 mindur2 pchfun mult1 mult2 comp1 comp2
;instr 3/4 - fondo amp freq chor1 chor2 onda1 onda2 onda3 inflx1 inflx2 icarr imod
;instr5 - ruido amp infl1 infl2 cf1 cf2 bw1 bw2
;reverb tiempo de reverb
;______ _______ _______ _______ _______ _______ _______ _______ _______ _______ _______ _______ _______ _______
;__________________________________
;__________________________________
; L I S T A D E E V E N T O S
;__________________________________
;__________________________________
;==========INTRO==========
i93 0 25 5
i3 0 .3 1000 12.17 1 1 1 1 1 1 1 1 1
i3 + .6 1000 12.12 1 1 1 1 1 1 1 1 1
i3 3 .6 1000 11.27 1 1 1 1 1 1 1 1 1
i3 6.3 .3 150 10.018 1 1 1 1 1 .4 .7 1 1
i3 6.3 1 150 10.998 1 1 1 1 1 .4 .7 1 1
i3 6.3 .2 150 10.038 1 1 1 1 1 .4 .7 1 1
i3 6.3 .3 150 9.011 1 1 1 1 1 .4 .7 1 1
i3 6.3 1 150 10.991 1 1 1 1 1 .4 .7 1 1
i3 6.3 .2 150 10.031 1 1 1 1 1 .4 .7 1 1
i3 7.1 .6 500 9.66 1 1 1 1 1 .2 .8 1 2
i3 7.1 .8 500 8.56 1 1 1 1 1 .2 .8 1 2
i3 7.1 .9 500 8.76 1 1 1 1 1 .2 .8 1 2
i3 9.76 .6 300 11.5 1 1 2 1 1 .4 .7 1 1.5
i3 9.95 2 360 11.37 1 1 3 2 1 .4 .7 1 1.5
i3 11 .05 300 5.08 1.01 1.2 1 2 1 .5 .8 1 1
i3 . .1 300 6.0875 1.01 1.2 1 2 1 .5 .8 1 1
i3 . .2 300 7.0930 1.01 1.2 1 2 1 .5 .8 1 1
i3 . .3 300 8.0995 1.01 1.2 1 2 1 .5 .8 1 1
i3 . .5 300 9.1055 1.01 1.2 1 2 1 .5 .8 1 1
i3 . .7 300 10.1165 1.01 1.2 1 2 1 .5 .8 1 1
i3 . 1 300 11.0880 1.01 1.2 1 2 1 .5 .8 1 1
i3 11.4 .05 600 4.06 1.01 1.2 1 2 1 .5 .8 1 1
i3 . .1 600 5.0775 1.01 1.2 1 2 1 .5 .8 1 1
i3 . .2 600 6.0920 1.01 1.2 1 2 1 .5 .8 1 1
i3 . .3 600 7.101 1.01 1.2 1 2 1 .5 .8 1 1
i3 . .5 600 8.1155 1.01 1.2 1 2 1 .5 .8 1 1
i3 . .7 600 9.96 1.01 1.2 1 2 1 .5 .8 1 1
i3 . 1 600 10.10 1.01 1.2 1 2 1 .5 .8 1 1
i3 10.8 6 100 5.06 .99 .95 1 1 1 .2 .4 1 1
b 16
i3 0 .1 100 10.94 1 1 7 6 4 .33 .8 1 1
i3 + .3 300 8.017 1.01 1 6 5 7 .33 .8 1 1
i3 + .17 200 7.89 1.02 1.01 7 2 5 .33 .8 1 1
i3 + .05 100 11.95 1.04 1.03 1 4 4 .33 .8 1 1
i3 + .45 200 9.211 1.05 1.05 7 6 3 .33 .8 1 1
i3 + .03 300 10.35 1.06 1.07 3 2 4 .33 .8 1 1
i3 0 1 400 8.14 1 1 7 6 4 .33 .8 1 1
i3 .65 3 400 10.64 1.005 1.01 6 5 7 .33 .8 1 1
i3 1 2 400 9.995 1.015 1.03 7 2 5 .33 .8 1 1
i3 1.55 .5 400 9.25 1.015 1.05 1 4 4 .33 .8 1 1
i3 1.85 3 400 11.811 1.03 1.07 7 6 3 .33 .8 1 1
i3 2.4 2.5 400 8.05 1.05 1.08 3 2 4 .33 .8 1 1
i96 0 10 2
i6 0 .8 500 6.44
i6 + .3 500 8.74
i6 + .27 500 7.25
i6 + .05 500 5.95
i6 + .45 500 7.911
i6 + .03 500 5.735
i6 0 .7 800 8.14
i6 0.2 3 800 4.634
i6 2.2 2 800 7.825
i6 2.6 .5 800 5.215
i6 2.65 2 800 4.811
i6 3.1 2.5 800 8.325
b 21
;==========A==============
i96 0 6 4
i94 0 151 8
i931 0 151 8
i6 0 .2 4000 6
i6 .09 . 4500 6
i6 .18 . 5000 6
i6 .27 4 10000 5
i4 0 30 600 6 1.05 1.07 3 1 7 .6 .85 1 6
i4 3.445 40 1000 6.002 1.08 1.11 1 2 7 .7 .92 1 10
i4 5.123 25 1400 5 1.09 1.03 1 2 7 .6 .85 1 30
i4 5.857 10 600 4 1.01 1 5 3 1 .6 .85 1 60
i4 17 50 4000 6.07 1.2 .9 1 2 3 .5 .85 1.3 120
i3 35 18 3000 7.07 1.01 .999 1 5 7 .2 .5 1 20
i3 35 21 3000 7.072 1.02 .998 1 5 7 .3 .6 1 30
i3 35 35 3000 7.074 1.05 .995 1 5 7 .4 .7 1 50
i3 41.7 49 2500 8.02 1.1 .9 1 5 7 .5 .7 1 10
i3 44.871 30 2500 8.02 1.12 .88 1 5 6 .5 .7 1 10
i3 47.81 25 2500 8.02 1.17 .83 2 7 6 .5 .7 1 10
i3 51.81 39 5000 8.075 1.1 .9 1 5 7 .5 .7 1 10
i3 54.73 20 5000 8.07 1.12 .88 1 5 6 .5 .7 1 10
i3 57.28 15 5000 8.08 1.17 .83 2 7 6 .5 .7 1 10
i3 52.07 36 5000 9.04 1.1 .9 1 5 7 .5 .7 1 10
i3 55.57 17 5000 9.0425 1.12 .88 1 5 6 .5 .7 1 10
i3 58.81 13 5000 9.045 1.17 .83 2 7 6 .5 .7 1 10
i3 53.7 35 5000 9.1025 1.1 .9 1 5 7 .5 .7 1 10
i3 56.67 16 5000 9.10425 1.12 .88 1 5 6 .5 .7 1 10
i3 59.27 11 5000 9.105 1.17 .83 2 7 6 .5 .7 1 10
i4 51.24 39 2500 9.0785 1.1 .9 1 5 7 .5 .7 1 10
i4 54.783 20 2500 9.078 1.12 .88 1 5 6 .5 .7 1 10
i4 57.867 15 2500 9.087 1.17 .83 2 7 6 .5 .7 1 10
i4 52.5 36 2500 10.025 1.1 .9 1 5 7 .5 .7 1 10
i4 55.816 17 2500 10.0275 1.12 .88 1 5 6 .5 .7 1 10
i4 58.271 13 2500 10.0255 1.17 .83 2 7 6 .5 .7 1 10
i4 53.27 35 2500 11.10255 1.1 .9 1 5 7 .5 .7 1 10
i4 56.56 16 2500 11.10475 1.12 .88 1 5 6 .5 .7 1 10
i4 60.541 11 2500 11.1055 1.17 .83 2 7 6 .5 .7 1 10
i3 55 30 750 5.09 1.01 1 4 7 7 .6 .85 1 5
i3 58.445 40 1370 5.09 1.01 1 4 3 7 .6 .85 1 4
i3 60.123 25 1050 4.09 1.01 1 3 2 7 .6 .85 1 2
i3 60.857 10 1050 3.09 1.01 1 1 1 1 .6 .85 1 1
i4 78 3 400 7.03 1 1 4 7 7 .5 .8 1 1
i4 78 48.5 200 11.03 1.5 .5 4 7 7 .5 .8 3 50
i4 78 49 250 11.015 1.5 .5 4 3 7 .6 .85 3 40
i4 78 49.5 220 11.075 1.5 .5 3 2 7 .7 .9 3 20
i4 78 50 120 11.115 1.5 .5 1 1 1 .8 .95 3 10
i4 88 40 120 12.035 2 .01 4 7 7 .5 .8 2 50
i4 88 40.5 110 12.025 2 .01 4 3 7 .6 .85 2 40
i4 88 41 100 12.085 2 .01 3 2 7 .7 .9 2 20
i4 88 41.6 99 13.005 2 .01 1 1 1 .8 .95 2 10
i4 125 20 80 10.025 1 1 4 7 7 .5 .6 3 50
i4 126.2 18 70 10.01 1.02 1.025 4 3 7 .55 .65 3 40
i4 127 16 50 10.07 1.06 1.065 3 2 7 .6 .7 3 20
i4 127.65 17 40 10.11 1.15 1.115 1 1 1 .65 .75 3 10
i4 127.1 15 60 9.035 1.03 1.035 4 7 7 .7 .8 3 50
i4 126.4 15.5 90 9.017 1.07 1.075 4 3 7 .75 .85 3 40
i4 126.37 14 30 9.076 1.19 1.195 3 2 7 .8 .9 3 20
i4 125.33 13.7 10 9.1021 1.01 1.015 1 1 1 .85 .95 3 10
s
f0 5
s
;============ parte aguda =========== SERIES DE NOTAS SOBRE EL CUADRADO MAGICO DE DURERO
t 0 250
;a 0 0 192
;===== inicio: fade in
i2 0 11 0 100 11 .5 .1 11 10 1 2000 2000
i2 3 14 0 100 12 .4 .09 12 10 1 2000 1750
i2 7 11 0 100 13 .3 .08 13 10 1 2000 1700
b 10
;====== cresc, chorus
i2 0 30 100 10000 11 .1 .007 11 1 30 1000 1000
i2 5 26 100 10000 12 .2 .015 12 1 35 1000 1000
i2 8 24 100 10000 13 .3 .01 13 1 37 1000 1000
i2 0 35 100 10000 11 .15 .008 13 1 30 1000 1000
i2 5 31 100 10000 12 .25 .012 11 1 35 1000 1000
i2 8 29 100 10000 13 .35 .015 12 1 37 1000 1000
;====== cresc, se amplia el espectro
i2 31 20 10000 15000 12 .015 .005 13 30 50 1000 2000
i2 30 20 10000 15000 13 .015 .006 11 35 60 1000 1500
i2 29 20 10000 15000 11 .015 .007 12 37 70 1000 1000
i2 28 20 10000 15000 13 .015 .0055 12 30 50 1000 1000
i2 27 20 10000 15000 11 .015 .0065 11 35 60 1000 500
i2 26 20 10000 15000 12 .015 .0075 13 37 70 1000 250
;====== cresc, se amplia mucho mas el espectro, ritmo maximo
i2 46 20 15000 20000 12 .005 .001 13 50 80 2000 6000
i2 45 20 15000 20000 13 .006 .0027 11 60 80 1500 4000
i2 44 20 15000 20000 11 .007 .005 12 70 80 1000 3000
i2 47 20 15000 20000 13 .0055 .0009 12 50 80 1000 1000
i2 48 20 15000 20000 11 .0065 .0017 11 60 40 500 100
i2 49 20 15000 20000 12 .0075 .0033 13 70 20 250 0
;====== dim frecuencias graves, ritmo comienza a decrecer
i2 56 30 20000 15000 12 .001 .05 13 80 80 6000 6000
i2 55 30 20000 15000 13 .0027 .06 11 80 80 4000 4000
i2 54 30 20000 15000 11 .005 .07 12 80 80 3000 3000
i2 57 33 20000 0 13 .0009 .007 12 80 80 1000 1000
i2 58 33 20000 0 11 .0017 .003 11 80 80 100 100
i2 59 33 20000 0 12 .0033 .002 13 80 80 0 0
;====== frecuencias agudas, hacia aliasing, dim
i2 84 30 20000 0 13 .055 .25 12 80 8 6000 6000
i2 81 30 20000 0 11 .065 .235 13 80 8 4000 4000
i2 79 30 20000 0 12 .075 .275 11 80 8 3000 3000
i2 84 30 20000 10000 12 .05 .2 13 80 8 6000 6000
i2 81 30 20000 10000 13 .06 .23 11 80 8 4000 6000
i2 79 30 20000 10000 11 .07 .27 12 80 8 3000 6000
;======= solo aliasing, ritmo decresc
i2 113.9 40 10000 20000 12 .2 .11 13 8 8 6000 20000
i2 111.9 45 10000 20000 13 .23 .12 11 8 8 6000 20000
i2 109.9 50 10000 20000 11 .27 .13 12 8 8 6000 20000
i2 123 40 0 10000 12 .2 .11 13 1 40 1000 20000
i2 121 45 0 10000 13 .23 .12 11 1 40 1000 20000
i2 119 50 0 10000 11 .27 .13 12 1 40 1000 20000
;======= hacia el eco falso
i2 143 40 0 10000 12 .15 .31 13 40 10 20000 1000
i2 141 45 0 10000 13 .16 .311 11 40 10 20000 1000
i2 149 50 0 10000 11 .17 .312 12 40 10 20000 1000
i2 143.4 40.1 0 4000 12 .15 .31 13 40 10 20000 1000
i2 141.4 45.1 0 4000 13 .16 .311 11 40 10 20000 1000
i2 149.4 50.1 0 4000 11 .17 .312 12 40 10 20000 1000
i2 143.8 40.11 0 400 12 .15 .31 13 40 10 20000 1000
i2 141.8 45.11 0 400 13 .16 .311 11 40 10 20000 1000
i2 149.8 50.11 0 400 11 .17 .312 12 40 10 20000 1000
i2 144.2 40.111 0 100 12 .15 .31 13 40 10 20000 1000
i2 142.2 45.111 0 100 13 .16 .311 11 40 10 20000 1000
i2 150.2 50.111 0 100 11 .17 .312 12 40 10 20000 1000
;======= eco real
i2 182.5 50 10000 100 12 .31 .00001 13 10 1 1000 0
i2 185 60 10000 100 13 .311 .00001 11 10 1 1000 400
i2 197 70 10000 100 11 .312 .00001 12 10 1 1000 40000
i2 182.9 50 5000 100 12 .31 .00001 13 10 1 1000 0
i2 185.4 60 5000 100 13 .311 .00001 11 10 1 1000 400
i2 197.4 70 5000 100 11 .312 .00001 12 10 1 1000 40000
i2 183.4 50 2500 100 12 .31 .00001 13 10 1 1000 0
i2 185.9 60 2500 100 13 .311 .00001 11 10 1 1000 400
i2 197.9 70 2500 100 11 .312 .00001 12 10 1 1000 40000
i2 184.1 50 1250 100 12 .31 .00001 13 10 1 1000 0
i2 186.6 60 1250 100 13 .311 .00001 11 10 1 1000 400
i2 198.6 70 1250 100 11 .312 .00001 12 10 1 1000 40000
s
f0 5
s
t 0 180
;===== inicio: fade in
i2 0 11 0 100 11 .5 .1 11 10 1 2000 2000
i2 3 14 0 100 12 .4 .09 12 10 1 2000 1750
i2 7 11 0 100 13 .3 .08 13 10 1 2000 1700
b 10
;====== cresc, chorus
i2 0 30 100 10000 11 .1 .007 11 1 30 1000 1000
i2 5 26 100 10000 12 .2 .015 12 1 35 1000 1000
i2 8 24 100 10000 13 .3 .01 13 1 37 1000 1000
i2 0 35 100 10000 11 .15 .008 13 1 30 1000 1000
i2 5 31 100 10000 12 .25 .012 11 1 35 1000 1000
i2 8 29 100 10000 13 .35 .015 12 1 37 1000 1000
;====== cresc, se amplia el espectro
i2 31 20 10000 15000 12 .015 .005 13 30 50 1000 2000
i2 30 20 10000 15000 13 .015 .006 11 35 60 1000 1500
i2 29 20 10000 15000 11 .015 .007 12 37 70 1000 1000
i2 28 20 10000 15000 13 .015 .0055 12 30 50 1000 1000
i2 27 20 10000 15000 11 .015 .0065 11 35 60 1000 500
i2 26 20 10000 15000 12 .015 .0075 13 37 70 1000 250
;====== cresc, se amplia mucho mas el espectro, ritmo maximo
i2 46 20 15000 20000 12 .005 .001 13 50 80 2000 6000
i2 45 20 15000 20000 13 .006 .0027 11 60 80 1500 4000
i2 44 20 15000 20000 11 .007 .005 12 70 80 1000 3000
i2 47 20 15000 20000 13 .0055 .0009 12 50 80 1000 1000
i2 48 20 15000 20000 11 .0065 .0017 11 60 40 500 100
i2 49 20 15000 20000 12 .0075 .0033 13 70 20 250 0
;====== dim frecuencias graves, ritmo comienza a decrecer
i2 56 30 20000 15000 12 .001 .005 13 80 80 6000 6000
i2 55 30 20000 15000 13 .0027 .006 11 80 80 4000 4000
i2 54 30 20000 15000 11 .005 .007 12 80 80 3000 3000
i2 57 33 20000 0 13 .0009 .0007 12 80 80 1000 1000
i2 58 33 20000 0 11 .0017 .0003 11 80 80 100 100
i2 59 33 20000 0 12 .0033 .0002 13 80 80 0 0
;====== frecuencias agudas, hacia aliasing, dim
i2 84 30 20000 0 13 .0055 .025 12 80 8 6000 6000
i2 81 30 20000 0 11 .0065 .0235 13 80 8 4000 4000
i2 79 30 20000 0 12 .0075 .0275 11 80 8 3000 3000
i2 84 30 20000 10000 12 .005 .02 13 80 8 6000 6000
i2 81 30 20000 10000 13 .006 .023 11 80 8 4000 6000
i2 79 30 20000 10000 11 .007 .027 12 80 8 3000 6000
;======= solo aliasing, ritmo decresc
i2 113.9 40 10000 20000 12 .02 .11 13 8 8 6000 6000
i2 111.9 45 10000 20000 13 .023 .12 11 8 8 6000 6000
i2 109.9 50 10000 20000 11 .027 .13 12 8 8 6000 6000
i2 123 40 0 10000 12 .02 .11 13 1 40 1000 6000
i2 121 45 0 10000 13 .023 .12 11 1 40 1000 6000
i2 119 50 0 10000 11 .027 .13 12 1 40 1000 6000
;======= hacia el eco falso
i2 143 40 0 10000 12 .015 .1 13 40 10 6000 1000
i2 141 45 0 10000 13 .016 .11 11 40 10 6000 1000
i2 149 50 0 10000 11 .017 .12 12 40 10 6000 1000
i2 143.4 40.1 0 4000 12 .015 .1 13 40 10 6000 1000
i2 141.4 45.1 0 4000 13 .016 .11 11 40 10 6000 1000
i2 149.4 50.1 0 4000 11 .017 .12 12 40 10 6000 1000
i2 143.8 40.11 0 400 12 .015 .1 13 40 10 6000 1000
i2 141.8 45.11 0 400 13 .016 .11 11 40 10 6000 1000
i2 149.8 50.11 0 400 11 .017 .12 12 40 10 6000 1000
i2 144.2 40.111 0 100 12 .015 .1 13 40 10 6000 1000
i2 142.2 45.111 0 100 13 .016 .11 11 40 10 6000 1000
i2 150.2 50.111 0 100 11 .017 .12 12 40 10 6000 1000
;======= eco real
i2 182.5 50 10000 0 12 .1 .1 13 10 1 1000 200
i2 185 60 10000 0 13 .11 .1 11 10 1 1000 200
i2 197 70 10000 0 11 .12 .1 12 10 1 1000 200
i2 182.9 50 5000 0 12 .1 .1 13 10 1 1000 200
i2 185.4 60 5000 0 13 .11 .1 11 10 1 1000 200
i2 197.4 70 5000 0 11 .12 .1 12 10 1 1000 200
i2 183.4 50 2500 0 12 .1 .1 13 10 1 1000 200
i2 185.9 60 2500 0 13 .11 .1 11 10 1 1000 200
i2 197.9 70 2500 0 11 .12 .1 12 10 1 1000 200
i2 184.1 50 1250 0 12 .1 .1 13 10 1 4000 2000
i2 186.6 60 1250 0 13 .11 .1 11 10 1 4000 2000
i2 198.6 70 1250 0 11 .12 .1 12 10 1 4000 2000
s
f 0 4
s
;a 0 0 975
t 0 300 769 400 949 500 949.001 60
;========= MACROS PARA FRECUENCIAS =========
#define MULT #+522# ; ajusta la region del espectro
; y el rango de los intervalos
#define FRE(A) #[$A.$MULT.]# ; toma el valor de Lu shu
;======== L U S H U ===============
i1 0 4 6000 $FRE(27) ; DURACIONES segun LU SHU, 4 9 2
i1 4 9 . $FRE(11) ; Frecuencias segun cuadrado
i1 13 2 . $FRE(7) ; magico de 6o. orden, DIAGONALES
b25
i1 0 2 6000 $FRE(30) ; Lu Shu 4 9 2 retr.
i1 2 9 . $FRE(26)
i1 11 4 . $FRE(10)
b55
i1 0 4 6000 $FRE(1) ; 4
i1 4 3 . $FRE(6) ; 3
i1 7 8 . $FRE(34) ; 8
b75
i1 0 8 6000 $FRE(3); 4
i1 8 3 . $FRE(31); 3
i1 11 4 . $FRE(36); 8 retr.
b107
i1 0 6 6000 $FRE(10); 8
i1 6 1 . $FRE(26); 1
i1 7 8 . $FRE(30); 6 retr.
i1 16 8 6000 $FRE(7); 8
i1 24 1 . $FRE(11); 1
i1 25 6 . $FRE(27); 6
b139
i1 0 6 6000 $FRE(36); 2
i1 6 7 . $FRE(31); 7
i1 13 2 . $FRE(3); 6 retr.
i1 15 2 6000 $FRE(34); 2
i1 17 7 . $FRE(6); 7
i1 24 6 . $FRE(1); 6
b195
#define MULT #*2+504#
i1 0 3 6000 $FRE(27); 3 ternas centrales en orden
i1 3 5 . $FRE(11); 5 rotatorio
i1 8 7 . $FRE(7) ; 7
i1 15 4 . $FRE(30); 4
i1 19 5 . $FRE(26); 5
i1 24 6 . $FRE(10); 6
i1 30 9 . $FRE(1); etc
i1 39 5 . $FRE(6)
i1 44 1 . $FRE(34)
i1 45 2 . $FRE(3)
i1 47 5 . $FRE(31)
i1 52 8 . $FRE(36)
i1 60 7 . $FRE(10)
i1 67 5 . $FRE(26)
i1 72 3 . $FRE(30)
i1 75 6 . $FRE(7)
i1 81 5 . $FRE(11)
i1 86 4 . $FRE(27)
i1 90 1 . $FRE(36)
i1 91 5 . $FRE(31)
i1 96 9 . $FRE(3)
i1 105 8 . $FRE(34)
i1 113 1 . $FRE(6)
i1 114 6 . $FRE(1)
b 320
#define MULT #*4+468#
i1 0 3 6000 $FRE(27); 3 ternas centrales en orden
i1 3 5 . $FRE(11) ; 5 rotatorio, en proceso
i1 8 7 . $FRE(7) ; 7 de superposicion en torno al 5
i1 14 4 . $FRE(30) ; 4 - 1 seg de aprox. cada terna
i1 18 5 . $FRE(26) ; 5
i1 23 6 . $FRE(10) ; 6
i1 28 9 . $FRE(1) ; etc
i1 37 5 . $FRE(6)
i1 42 1 . $FRE(34)
i1 42 2 . $FRE(3)
i1 44 5 . $FRE(31)
i1 49 8 . $FRE(36)
i1 56 7 . $FRE(10)
i1 63 5 . $FRE(26)
i1 68 3 . $FRE(30)
i1 70 6 . $FRE(7)
i1 76 5 . $FRE(11)
i1 81 4 . $FRE(27)
i1 84 1 . $FRE(36)
i1 85 5 . $FRE(31)
i1 90 9 . $FRE(3)
i1 98 8 . $FRE(34)
i1 106 1 . $FRE(6)
i1 107 6 . $FRE(1)
b 413
#define MULT #*8+396#
i1 0 3 6000 $FRE(27); 3 ternas centrales en orden
i1 3 5 . $FRE(11); 5 rotatorio, en proceso
i1 8 7 . $FRE(7); 7 de superposicion en torno al 5
i1 12 4 . $FRE(30) ; 4 - 3 seg de aprox. cada terna
i1 16 5 . $FRE(26) ; 5
i1 21 6 . $FRE(10) ; 6
i1 24 9 . $FRE(1) ; etc
i1 33 5 . $FRE(6)
i1 38 1 . $FRE(34)
i1 36 2 . $FRE(3)
i1 38 5 . $FRE(31)
i1 43 8 . $FRE(36)
i1 48 7 . $FRE(10)
i1 41 5 . $FRE(26)
i1 46 3 . $FRE(30)
i1 46 6 . $FRE(7)
i1 52 5 . $FRE(11)
i1 57 4 . $FRE(27)
i1 58 1 . $FRE(36)
i1 59 5 . $FRE(31)
i1 64 9 . $FRE(3)
i1 70 8 . $FRE(34)
i1 78 1 . $FRE(6)
i1 79 6 . $FRE(1)
b498
#define MULT #*16+252#
i1 0 3 6000 $FRE(27); 3 ternas centrales en orden
i1 3 5 . $FRE(11); 5 rotatorio, en proceso
i1 8 7 . $FRE(7) ; 7 de superposicion en torno al 5
i1 7 4 . $FRE(30) ; 4 - 8 seg de aprox. cada terna
i1 11 5 . $FRE(26) ; 5
i1 16 6 . $FRE(10); 6
i1 14 9 . $FRE(1) ; etc
i1 23 5 . $FRE(6)
i1 28 1 . $FRE(34)
i1 21 2 . $FRE(3)
i1 23 5 . $FRE(31)
i1 28 8 . $FRE(36)
i1 28 7 . $FRE(10)
i1 35 5 . $FRE(26)
i1 40 3 . $FRE(30)
i1 35 6 . $FRE(7)
i1 41 5 . $FRE(11)
i1 46 4 . $FRE(27)
i1 42 1 . $FRE(36)
i1 43 5 . $FRE(31)
i1 48 9 . $FRE(3)
i1 49 8 . $FRE(34)
i1 57 1 . $FRE(6)
i1 58 6 . $FRE(1)
b562
#define MULT #*18+216#
i1 0 3 6000 $FRE(27); 3 ternas centrales en orden
i1 3 5 . $FRE(11); 5 rotatorio, en proceso
i1 8 7 . $FRE(7) ; 7 de superposicion en torno al 5
i1 2 4 . $FRE(30) ; 4 - 13 seg de aprox. cada terna,
i1 6 5 . $FRE(26); 5 - es decir, 2 seg de desfase
i1 11 6 . $FRE(10) ; 6
i1 4 9 . $FRE(1) ; etc
i1 13 5 . $FRE(6)
i1 18 1 . $FRE(34)
i1 6 2 . $FRE(3)
i1 8 5 . $FRE(31)
i1 13 8 . $FRE(36)
i1 8 7 . $FRE(10)
i1 15 5 . $FRE(26)
i1 20 3 . $FRE(30)
i1 10 6 . $FRE(7)
i1 16 5 . $FRE(11)
i1 21 4 . $FRE(27)
i1 12 1 . $FRE(36)
i1 13 5 . $FRE(31)
i1 18 9 . $FRE(3)
i1 14 8 . $FRE(34)
i1 22 1 . $FRE(6)
i1 23 6 . $FRE(1)
b591
#define MULT #*20+180#
i1 0 3 6000 $FRE(27) ; 3 ternas centrales en orden
i1 3 5 . $FRE(11); 5 rotatorio, en proceso
i1 8 7 . $FRE(7) ; 7 de superposicion en torno al 5
i1 1 4 . $FRE(30) ; 4 - 14 seg de aprox. cada terna,
i1 5 5 . $FRE(26) ; 5 - es decir, 1 seg de desfase
i1 10 6 . $FRE(10) ; 6
i1 2 9 . $FRE(1) ; etc
i1 11 5 . $FRE(6)
i1 16 1 . $FRE(34)
i1 3 2 . $FRE(3)
i1 5 5 . $FRE(31)
i1 10 8 . $FRE(36)
i1 4 7 . $FRE(10)
i1 11 5 . $FRE(26)
i1 16 3 . $FRE(30)
i1 5 6 . $FRE(7)
i1 11 5 . $FRE(11)
i1 16 4 . $FRE(27)
i1 6 1 . $FRE(36)
i1 7 5 . $FRE(31)
i1 12 9 . $FRE(3)
i1 7 8 . $FRE(34)
i1 15 1 . $FRE(6)
i1 16 6 . $FRE(1)
b613
#define MULT #*21+162#
i1 0 3 6000 $FRE(27); 3 ternas centrales en orden
i1 3 5 . $FRE(11); 5 rotatorio, en proceso
i1 8 7 . $FRE(7) ; 7 de superposicion en torno al 5
i1 .5 4 . $FRE(30) ; 4 - 14.5 seg de aprox. cada terna,
i1 4.5 5 . $FRE(26) ; 5 - es decir, 0.5 seg de desfase
i1 9.5 6 . $FRE(10) ; 6
i1 1 9 . $FRE(1) ; etc
i1 10 5 . $FRE(6)
i1 15 1 . $FRE(34)
i1 1.5 2 . $FRE(3)
i1 3.5 5 . $FRE(31)
i1 8.5 8 . $FRE(36)
i1 2 7 . $FRE(10)
i1 9 5 . $FRE(26)
i1 14 3 . $FRE(30)
i1 2.5 6 . $FRE(7)
i1 8.5 5 . $FRE(11)
i1 13.5 4 . $FRE(27)
i1 3 1 . $FRE(36)
i1 4 5 . $FRE(31)
i1 9 9 . $FRE(3)
i1 3.5 8 . $FRE(34)
i1 11.5 1 . $FRE(6)
i1 12.5 6 . $FRE(1)
b621.5
#define MULT #*22+144#
i1 0 3 6000 $FRE(27) ; ternas centrales en orden
i1 3 5 . $FRE(11) ; rotatorio, en SUPERPOSICION
i1 8 7 . $FRE(7) ;
i1 0 4 . $FRE(30)
i1 4 5 . $FRE(26)
i1 11 6 . $FRE(10)
i1 0 9 . $FRE(1)
i1 9 5 . $FRE(6)
i1 14 1 . $FRE(34)
i1 0 2 . $FRE(3)
i1 2 5 . $FRE(31)
i1 7 8 . $FRE(36)
i1 0 7 . $FRE(10)
i1 7 5 . $FRE(26)
i1 12 3 . $FRE(30)
i1 0 6 . $FRE(7)
i1 6 5 . $FRE(11)
i1 11 4 . $FRE(27)
i1 0 1 . $FRE(36)
i1 1 5 . $FRE(31)
i1 6 9 . $FRE(3)
i1 0 8 . $FRE(34)
i1 8 1 . $FRE(6)
i1 9 6 . $FRE(1)
b636.5
#define MULT #*23+126#
i1 1 3 6000 $FRE(27); ternas centrales en orden
i1 4 5 . $FRE(11); rotatorio, en proceso de
i1 9 7 . $FRE(7); centrado en valor central 5
i1 1 4 . $FRE(30)
i1 5 5 . $FRE(26)
i1 10 6 . $FRE(10)
i1 0 9 . $FRE(1)
i1 9 5 . $FRE(6)
i1 14 1 . $FRE(34)
i1 1 2 . $FRE(3)
i1 3 5 . $FRE(31)
i1 8 8 . $FRE(36)
i1 1 7 . $FRE(10)
i1 8 5 . $FRE(26)
i1 13 3 . $FRE(30)
i1 1 6 . $FRE(7)
i1 7 5 . $FRE(11)
i1 12 4 . $FRE(27)
i1 1 1 . $FRE(36)
i1 2 5 . $FRE(31)
i1 7 9 . $FRE(3)
i1 1 8 . $FRE(34)
i1 9 1 . $FRE(6)
i1 10 6 . $FRE(1)
b 652.5
#define MULT #*24+108#
i1 2 3 6000 $FRE(27) ; ternas centrales en orden
i1 5 5 . $FRE(11) ; rotatorio, en proceso de
i1 10 7 . $FRE(7) ; centrado en valor central 5
i1 2 4 . $FRE(30)
i1 6 5 . $FRE(26)
i1 11 6 . $FRE(10)
i1 0 9 . $FRE(1)
i1 9 5 . $FRE(6)
i1 14 1 . $FRE(34)
i1 2 2 . $FRE(3)
i1 4 5 . $FRE(31)
i1 9 8 . $FRE(36)
i1 2 7 . $FRE(10)
i1 9 5 . $FRE(26)
i1 14 3 . $FRE(30)
i1 2 6 . $FRE(7)
i1 8 5 . $FRE(11)
i1 13 4 . $FRE(27)
i1 2 1 . $FRE(36)
i1 3 5 . $FRE(31)
i1 8 9 . $FRE(3)
i1 1 8 . $FRE(34)
i1 9 1 . $FRE(6)
i1 10 6 . $FRE(1)
b 669.5
#define MULT #*25+90#
i1 3 3 6000 $FRE(27) ; ternas centrales en orden
i1 6 5 . $FRE(11) ; rotatorio, en proceso de
i1 11 7 . $FRE(7) ; centrado en valor central 5
i1 3 4 . $FRE(30)
i1 7 5 . $FRE(26)
i1 12 6 . $FRE(10)
i1 0 9 . $FRE(1)
i1 9 5 . $FRE(6)
i1 14 1 . $FRE(34)
i1 3 2 . $FRE(3)
i1 5 5 . $FRE(31)
i1 10 8 . $FRE(36)
i1 2 7 . $FRE(10)
i1 9 5 . $FRE(26)
i1 14 3 . $FRE(30)
i1 3 6 . $FRE(7)
i1 9 5 . $FRE(11)
i1 14 4 . $FRE(27)
i1 3 1 . $FRE(36)
i1 4 5 . $FRE(31)
i1 9 9 . $FRE(3)
i1 1 8 . $FRE(34)
i1 9 1 . $FRE(6)
i1 10 6 . $FRE(1)
b 687.5
#define MULT #*26+72#
i1 4 3 6000 $FRE(27) ; ternas centrales en orden
i1 7 5 . $FRE(11) ; rotatorio, en proceso de
i1 12 7 . $FRE(7) ; centrado en valor central 5
i1 4 4 . $FRE(30)
i1 8 5 . $FRE(26)
i1 13 6 . $FRE(10)
i1 0 9 . $FRE(1)
i1 9 5 . $FRE(6)
i1 14 1 . $FRE(34)
i1 4 2 . $FRE(3)
i1 6 5 . $FRE(31)
i1 11 8 . $FRE(36)
i1 2 7 . $FRE(10)
i1 9 5 . $FRE(26)
i1 14 3 . $FRE(30)
i1 3 6 . $FRE(7)
i1 9 5 . $FRE(11)
i1 14 4 . $FRE(27)
i1 4 1 . $FRE(36)
i1 5 5 . $FRE(31)
i1 10 9 . $FRE(3)
i1 1 8 . $FRE(34)
i1 9 1 . $FRE(6)
i1 10 6 . $FRE(1)
b 706.5
#define MULT #*27+54#
i1 5 3 6000 $FRE(27) ; ternas centrales en orden
i1 8 5 . $FRE(11) ; rotatorio, en proceso de
i1 13 7 . $FRE(7) ; centrado en valor central 5
i1 5 4 . $FRE(30)
i1 9 5 . $FRE(26)
i1 14 6 . $FRE(10)
i1 0 9 . $FRE(1)
i1 9 5 . $FRE(6)
i1 14 1 . $FRE(34)
i1 5 2 . $FRE(3)
i1 7 5 . $FRE(31)
i1 12 8 . $FRE(36)
i1 2 7 . $FRE(10)
i1 9 5 . $FRE(26)
i1 14 3 . $FRE(30)
i1 3 6 . $FRE(7)
i1 9 5 . $FRE(11)
i1 14 4 . $FRE(27)
i1 5 1 . $FRE(36)
i1 6 5 . $FRE(31)
i1 11 9 . $FRE(3)
i1 1 8 . $FRE(34)
i1 9 1 . $FRE(6)
i1 10 6 . $FRE(1)
b 726.5
#define MULT #*28+36#
i1 6 3 6000 $FRE(27) ; ternas centrales en orden
i1 9 5 . $FRE(11) ; rotatorio, en proceso de
i1 14 7 . $FRE(7) ; centrado en valor central 5
i1 5 4 . $FRE(30)
i1 9 5 . $FRE(26)
i1 14 6 . $FRE(10)
i1 0 9 . $FRE(1)
i1 9 5 . $FRE(6)
i1 14 1 . $FRE(34)
i1 6 2 . $FRE(3)
i1 8 5 . $FRE(31)
i1 13 8 . $FRE(36)
i1 2 7 . $FRE(10)
i1 9 5 . $FRE(26)
i1 14 3 . $FRE(30)
i1 3 6 . $FRE(7)
i1 9 5 . $FRE(11)
i1 14 4 . $FRE(27)
i1 6 1 . $FRE(36)
i1 7 5 . $FRE(31)
i1 12 9 . $FRE(3)
i1 1 8 . $FRE(34)
i1 9 1 . $FRE(6)
i1 10 6 . $FRE(1)
b 747.5
#define MULT #*29+18#
i1 6 3 6000 $FRE(27) ; ternas centrales en orden
i1 9 5 . $FRE(11) ; rotatorio, en proceso de
i1 14 7 . $FRE(7) ; centrado en valor central 5
i1 5 4 . $FRE(30)
i1 9 5 . $FRE(26)
i1 14 6 . $FRE(10)
i1 0 9 . $FRE(1)
i1 9 5 . $FRE(6)
i1 14 1 . $FRE(34)
i1 7 2 . $FRE(3)
i1 9 5 . $FRE(31)
i1 14 8 . $FRE(36)
i1 2 7 . $FRE(10)
i1 9 5 . $FRE(26)
i1 14 3 . $FRE(30)
i1 3 6 . $FRE(7)
i1 9 5 . $FRE(11)
i1 14 4 . $FRE(27)
i1 7 1 . $FRE(36)
i1 8 5 . $FRE(31)
i1 13 9 . $FRE(3)
i1 1 8 . $FRE(34)
i1 9 1 . $FRE(6)
i1 10 6 . $FRE(1)
b 769.5
#define MULT #*30#
i1 6 3 6000 $FRE(27); VALOR 5 CENTRADO
i1 9 5 . $FRE(11); En LU SHU, el 5 simboliza
i1 14 7 . $FRE(7) ; la Tierra
i1 5 4 . $FRE(30)
i1 9 5 . $FRE(26)
i1 14 6 . $FRE(10)
i1 0 9 . $FRE(1)
i1 9 5 . $FRE(6)
i1 14 1 . $FRE(34)
i1 7 2 . $FRE(3)
i1 9 5 . $FRE(31)
i1 14 8 . $FRE(36)
i1 2 7 . $FRE(10)
i1 9 5 . $FRE(26)
i1 14 3 . $FRE(30)
i1 3 6 . $FRE(7)
i1 9 5 . $FRE(11)
i1 14 4 . $FRE(27)
i1 8 1 . $FRE(36)
i1 9 5 . $FRE(31)
i1 14 9 . $FRE(3)
i1 1 8 . $FRE(34)
i1 9 1 . $FRE(6)
i1 10 6 . $FRE(1)
b 792.5
i1 6 3 6000 $FRE(27)
i1 9 5 . $FRE(29)
i1 14 7 . $FRE(2)
i1 5 4 . $FRE(4)
i1 9 5 . $FRE(13)
i1 14 6 . $FRE(36)
i1 0 9 . $FRE(9)
i1 9 5 . $FRE(11)
i1 14 1 . $FRE(20)
i1 7 2 . $FRE(22)
i1 9 5 . $FRE(31)
i1 14 8 . $FRE(18)
i1 2 7 . $FRE(32)
i1 9 5 . $FRE(25)
i1 14 3 . $FRE(7)
i1 3 6 . $FRE(3)
i1 9 5 . $FRE(21)
i1 14 4 . $FRE(23)
i1 8 1 . $FRE(14)
i1 9 5 . $FRE(16)
i1 14 9 . $FRE(34)
i1 1 8 . $FRE(30)
i1 9 1 . $FRE(12)
i1 10 6 . $FRE(5)
b815.5
i1 6 3 6000 $FRE(28)
i1 9 5 . $FRE(6)
i1 14 7 . $FRE(15)
i1 5 4 . $FRE(17)
i1 9 5 . $FRE(26)
i1 14 6 . $FRE(19)
i1 0 9 . $FRE(1)
i1 9 5 . $FRE(24)
i1 14 1 . $FRE(33)
i1 7 2 . $FRE(35)
i1 9 5 . $FRE(8)
i1 14 8 . $FRE(10)
i1 2 7 . $FRE(27)
i1 9 5 . $FRE(9)
i1 14 3 . $FRE(32)
i1 3 6 . $FRE(14)
i1 9 5 . $FRE(28)
i1 14 4 . $FRE(1)
i1 8 1 . $FRE(29)
i1 9 5 . $FRE(11)
i1 14 9 . $FRE(25)
i1 1 8 . $FRE(16)
i1 9 1 . $FRE(6)
i1 10 6 . $FRE(24)
b837.5
i1 6 3 6000 $FRE(2)
i1 9 5 . $FRE(20)
i1 14 7 . $FRE(7)
i1 5 4 . $FRE(34)
i1 9 5 . $FRE(15)
i1 14 6 . $FRE(33)
i1 0 9 . $FRE(4)
i1 9 5 . $FRE(22)
i1 14 1 . $FRE(3)
i1 7 2 . $FRE(30)
i1 9 5 . $FRE(17)
i1 14 8 . $FRE(35)
i1 2 7 . $FRE(13)
i1 9 5 . $FRE(31)
i1 14 3 . $FRE(21)
i1 3 6 . $FRE(12)
i1 9 5 . $FRE(26)
i1 14 4 . $FRE(8)
i1 8 1 . $FRE(36)
i1 9 5 . $FRE(18)
i1 14 9 . $FRE(23)
i1 1 8 . $FRE(5)
i1 9 1 . $FRE(19)
i1 10 6 . $FRE(10)
b859.5
i1 6 3 6000 $FRE(10)
i1 9 5 . $FRE(8)
i1 14 7 . $FRE(35)
i1 5 4 . $FRE(33)
i1 9 5 . $FRE(24)
i1 14 6 . $FRE(1)
i1 0 9 . $FRE(19)
i1 9 5 . $FRE(26)
i1 14 1 . $FRE(17)
i1 7 2 . $FRE(15)
i1 9 5 . $FRE(6)
i1 14 8 . $FRE(28)
i1 2 7 . $FRE(5)
i1 9 5 . $FRE(12)
i1 14 3 . $FRE(30)
i1 3 6 . $FRE(34)
i1 9 5 . $FRE(16)
i1 14 4 . $FRE(14)
i1 8 1 . $FRE(23)
i1 9 5 . $FRE(21)
i1 14 9 . $FRE(3)
i1 1 8 . $FRE(7)
i1 9 1 . $FRE(25)
i1 10 6 . $FRE(32)
b880.5
i1 6 3 6000 $FRE(18)
i1 9 5 . $FRE(31)
i1 14 7 . $FRE(22)
i1 5 4 . $FRE(20)
i1 9 5 . $FRE(11)
i1 14 6 . $FRE(9)
i1 0 9 . $FRE(36)
i1 9 5 . $FRE(13)
i1 14 1 . $FRE(4)
i1 7 2 . $FRE(2)
i1 9 5 . $FRE(29)
i1 14 8 . $FRE(27)
i1 2 7 . $FRE(10)
i1 9 5 . $FRE(19)
i1 14 3 . $FRE(5)
i1 3 6 . $FRE(23)
i1 9 5 . $FRE(18)
i1 14 4 . $FRE(36)
i1 8 1 . $FRE(8)
i1 9 5 . $FRE(26)
i1 14 9 . $FRE(12)
i1 1 8 . $FRE(21)
i1 9 1 . $FRE(31)
i1 10 6 . $FRE(13)
b900.5
i1 6 3 6000 $FRE(35)
i1 9 5 . $FRE(17)
i1 14 7 . $FRE(30)
i1 5 4 . $FRE(3)
i1 9 5 . $FRE(22)
i1 14 6 . $FRE(4)
i1 0 9 . $FRE(33)
i1 9 5 . $FRE(15)
i1 14 1 . $FRE(34)
i1 7 2 . $FRE(7)
i1 9 5 . $FRE(20)
i1 14 8 . $FRE(2)
i1 2 7 . $FRE(24)
i1 9 5 . $FRE(6)
i1 14 3 . $FRE(16)
i1 3 6 . $FRE(25)
i1 9 5 . $FRE(11)
i1 14 4 . $FRE(29)
i1 8 1 . $FRE(1)
i1 9 5 . $FRE(28)
i1 14 9 . $FRE(14)
i1 1 8 . $FRE(32)
i1 9 1 . $FRE(9)
i1 10 6 . $FRE(27)
b908.5
i1 6 3 6000 $FRE(27)
i1 9 5 . $FRE(11)
i1 14 7 . $FRE(7)
i1 5 4 . $FRE(30)
i1 9 5 . $FRE(26)
i1 14 6 . $FRE(10)
i1 0 9 . $FRE(9)
i1 9 5 . $FRE(25)
i1 14 1 . $FRE(34)
i1 7 2 . $FRE(17)
i1 9 5 . $FRE(8)
i1 14 8 . $FRE(19)
i1 2 7 . $FRE(12)
i1 9 5 . $FRE(3)
i1 14 3 . $FRE(20)
i1 3 6 . $FRE(29)
i1 9 5 . $FRE(9)
i1 14 4 . $FRE(25)
i1 8 1 . $FRE(34)
i1 9 5 . $FRE(17)
i1 14 9 . $FRE(8)
i1 1 8 . $FRE(19)
i1 9 1 . $FRE(12)
i1 10 6 . $FRE(3)
b914.5
i1 6 3 6000 $FRE(20)
i1 9 5 . $FRE(29)
i1 14 7 . $FRE(32)
i1 5 4 . $FRE(16)
i1 9 5 . $FRE(15)
i1 14 6 . $FRE(35)
i1 0 9 . $FRE(5)
i1 9 5 . $FRE(21)
i1 14 1 . $FRE(22)
i1 7 2 . $FRE(2)
i1 9 5 . $FRE(32)
i1 14 8 . $FRE(16)
i1 2 7 . $FRE(15)
i1 9 5 . $FRE(35)
i1 14 3 . $FRE(5)
i1 3 6 . $FRE(21)
i1 9 5 . $FRE(22)
i1 14 4 . $FRE(2)
i1 8 1 . $FRE(32)
i1 9 5 . $FRE(16)
i1 14 9 . $FRE(15)
i1 1 8 . $FRE(35)
i1 9 1 . $FRE(5)
i1 10 6 . $FRE(21)
b918.5
i1 6 3 6000 $FRE(22)
i1 9 5 . $FRE(2)
i1 14 7 . $FRE(14)
i1 5 4 . $FRE(6)
i1 9 5 . $FRE(33)
i1 14 6 . $FRE(23)
i1 0 9 . $FRE(31)
i1 9 5 . $FRE(4)
i1 14 1 . $FRE(14)
i1 7 2 . $FRE(6)
i1 9 5 . $FRE(33)
i1 14 8 . $FRE(23)
i1 2 7 . $FRE(31)
i1 9 5 . $FRE(4)
i1 14 3 . $FRE(14)
i1 3 6 . $FRE(6)
i1 9 5 . $FRE(33)
i1 14 4 . $FRE(23)
i1 8 1 . $FRE(31)
i1 9 5 . $FRE(4)
i1 14 9 . $FRE(14)
i1 1 8 . $FRE(6)
i1 9 1 . $FRE(33)
i1 10 6 . $FRE(23)
b921.5
i1 6 3 6000 $FRE(31)
i1 9 5 . $FRE(4)
i1 14 7 . $FRE(28)
i1 5 4 . $FRE(24)
i1 9 5 . $FRE(18)
i1 14 6 . $FRE(13)
i1 0 9 . $FRE(28)
i1 9 5 . $FRE(24)
i1 14 1 . $FRE(18)
i1 7 2 . $FRE(13)
i1 9 5 . $FRE(28)
i1 14 8 . $FRE(24)
i1 2 7 . $FRE(18)
i1 9 5 . $FRE(13)
i1 14 3 . $FRE(28)
i1 3 6 . $FRE(24)
i1 9 5 . $FRE(18)
i1 14 4 . $FRE(13)
i1 8 1 . $FRE(28)
i1 9 5 . $FRE(24)
i1 14 9 . $FRE(18)
i1 1 8 . $FRE(13)
i1 9 1 . $FRE(1)
i1 10 6 . $FRE(36)
b923.5
i1 6 3 6000 $FRE(1)
i1 9 5 . $FRE(36)
i1 14 7 . $FRE(1)
i1 5 4 . $FRE(36)
i1 9 5 . $FRE(1)
i1 14 6 . $FRE(36)
i1 0 9 . $FRE(1)
i1 9 5 . $FRE(36)
i1 14 1 . $FRE(1)
i1 7 2 . $FRE(36)
i1 9 5 . $FRE(1)
i1 14 8 . $FRE(6)
i1 2 7 . $FRE(34)
i1 9 5 . $FRE(3)
i1 14 3 . $FRE(31)
i1 3 6 . $FRE(36)
i1 9 5 . $FRE(4)
i1 14 4 . $FRE(31)
i1 8 1 . $FRE(23)
i1 9 5 . $FRE(33)
i1 14 9 . $FRE(6)
i1 1 8 . $FRE(14)
i1 9 1 . $FRE(4)
i1 10 6 . $FRE(31)
b925
i1 6 3 6000 $FRE(23)
i1 9 5 . $FRE(33)
i1 14 7 . $FRE(6)
i1 5 4 . $FRE(14)
i1 9 5 . $FRE(4)
i1 14 6 . $FRE(31)
i1 0 9 . $FRE(23)
i1 9 5 . $FRE(33)
i1 14 1 . $FRE(6)
i1 7 2 . $FRE(14)
i1 9 5 . $FRE(4)
i1 14 8 . $FRE(31)
i1 2 7 . $FRE(23)
i1 9 5 . $FRE(33)
i1 14 3 . $FRE(6)
i1 3 6 . $FRE(14)
i1 9 5 . $FRE(4)
i1 14 4 . $FRE(31)
i1 8 1 . $FRE(23)
i1 9 5 . $FRE(33)
i1 14 9 . $FRE(6)
i1 1 8 . $FRE(14)
i1 9 1 . $FRE(13)
i1 10 6 . $FRE(18)
b926
i1 6 3 6000 $FRE(24)
i1 9 5 . $FRE(28)
i1 14 7 . $FRE(13)
i1 5 4 . $FRE(18)
i1 9 5 . $FRE(24)
i1 14 6 . $FRE(28)
i1 0 9 . $FRE(13)
i1 9 5 . $FRE(18)
i1 14 1 . $FRE(24)
i1 7 2 . $FRE(28)
i1 9 5 . $FRE(13)
i1 14 8 . $FRE(18)
i1 2 7 . $FRE(24)
i1 9 5 . $FRE(28)
i1 14 3 . $FRE(13)
i1 3 6 . $FRE(18)
i1 9 5 . $FRE(24)
i1 14 4 . $FRE(28)
i1 8 1 . $FRE(1)
i1 9 5 . $FRE(36)
i1 14 9 . $FRE(1)
i1 1 8 . $FRE(36)
i1 9 1 . $FRE(1)
i1 10 6 . $FRE(36)
b926.5
i1 6 3 6000 $FRE(1)
i1 9 5 . $FRE(36)
i1 14 7 . $FRE(1)
i1 5 4 . $FRE(36)
i1 9 5 . $FRE(1)
i1 14 6 . $FRE(36)
i1 0 9 . $FRE(1)
i1 9 5 . $FRE(28)
i1 14 1 . $FRE(14)
i1 7 2 . $FRE(32)
i1 9 5 . $FRE(9)
i1 14 8 . $FRE(27)
i1 2 7 . $FRE(24)
i1 9 5 . $FRE(6)
i1 14 3 . $FRE(16)
i1 3 6 . $FRE(25)
i1 9 5 . $FRE(11)
i1 14 4 . $FRE(29)
i1 8 1 . $FRE(33)
i1 9 5 . $FRE(15)
i1 14 9 . $FRE(34)
i1 1 8 . $FRE(7)
i1 9 1 . $FRE(20)
i1 10 6 . $FRE(2)
b926.8
i1 6 3 6000 $FRE(35)
i1 9 5 . $FRE(17)
i1 14 7 . $FRE(30)
i1 5 4 . $FRE(3)
i1 9 5 . $FRE(22)
i1 14 6 . $FRE(4)
i1 0 9 . $FRE(8)
i1 9 5 . $FRE(26)
i1 14 1 . $FRE(12)
i1 7 2 . $FRE(21)
i1 9 5 . $FRE(31)
i1 14 8 . $FRE(13)
i1 2 7 . $FRE(10)
i1 9 5 . $FRE(19)
i1 14 3 . $FRE(5)
i1 3 6 . $FRE(23)
i1 9 5 . $FRE(18)
i1 14 4 . $FRE(36)
i1 8 1 . $FRE(27)
i1 9 5 . $FRE(9)
i1 14 9 . $FRE(32)
i1 1 8 . $FRE(14)
i1 9 1 . $FRE(28)
i1 10 6 . $FRE(1)
b927
i1 6 3 6000 $FRE(29)
i1 9 5 . $FRE(11)
i1 14 7 . $FRE(25)
i1 5 4 . $FRE(16)
i1 9 5 . $FRE(6)
i1 14 6 . $FRE(24)
i1 0 9 . $FRE(2)
i1 9 5 . $FRE(20)
i1 14 1 . $FRE(7)
i1 7 2 . $FRE(34)
i1 9 5 . $FRE(15)
i1 14 8 . $FRE(33)
i1 2 7 . $FRE(4)
i1 9 5 . $FRE(22)
i1 14 3 . $FRE(3)
i1 3 6 . $FRE(30)
i1 9 5 . $FRE(17)
i1 14 4 . $FRE(35)
i1 8 1 . $FRE(13)
i1 9 5 . $FRE(31)
i1 14 9 . $FRE(21)
i1 1 8 . $FRE(12)
i1 9 1 . $FRE(26)
i1 10 6 . $FRE(8)
i1 6 3 6000 $FRE(36)
i1 9 5 . $FRE(18)
i1 14 7 . $FRE(23)
i1 5 4 . $FRE(5)
i1 9 5 . $FRE(19)
i1 14 6 . $FRE(10)
i1 0 9 . $FRE(27)
i1 9 5 . $FRE(29)
i1 14 1 . $FRE(2)
i1 7 2 . $FRE(4)
i1 9 5 . $FRE(13)
i1 14 8 . $FRE(36)
i1 2 7 . $FRE(9)
i1 9 5 . $FRE(11)
i1 14 3 . $FRE(20)
i1 3 6 . $FRE(22)
i1 9 5 . $FRE(31)
i1 14 4 . $FRE(18)
i1 8 1 . $FRE(32)
i1 9 5 . $FRE(25)
i1 14 9 . $FRE(7)
i1 1 8 . $FRE(3)
i1 9 1 . $FRE(21)
i1 10 6 . $FRE(23)
i1 6 3 6000 $FRE(14)
i1 9 5 . $FRE(16)
i1 14 7 . $FRE(34)
i1 5 4 . $FRE(30)
i1 9 5 . $FRE(12)
i1 14 6 . $FRE(5)
i1 0 9 . $FRE(28)
i1 9 5 . $FRE(6)
i1 14 1 . $FRE(15)
i1 7 2 . $FRE(17)
i1 9 5 . $FRE(12)
i1 14 8 . $FRE(5)
i1 2 7 . $FRE(28)
i1 9 5 . $FRE(6)
i1 14 3 . $FRE(15)
i1 3 6 . $FRE(17)
i1 9 5 . $FRE(26)
i1 14 4 . $FRE(19)
i1 8 1 . $FRE(1)
i1 9 5 . $FRE(24)
i1 14 9 . $FRE(33)
i1 1 8 . $FRE(35)
i1 9 1 . $FRE(8)
i1 10 6 . $FRE(10)
b940
; sintesis con el cuadrado magico de durero
i2 0 30 10000 10 11 .01 .04 11 30 30 0 0
i2 .1 . . . 12 .01 .04 12 30 30 0 0
i2 .3 . . . 13 .01 .04 13 30 30 0 0
i2 .8 . . . 14 .01 .04 14 30 30 0 0
i2 0 30 10000 10 11 .01 .04 12 30 30 0 0
i2 .2 . . . 12 .01 .04 13 30 30 0 0
i2 .5 . . . 13 .01 .04 14 30 30 0 0
i2 .9 . . . 14 .01 .04 15 30 30 0 0
i2 3.7 30 10 10000 11 .01 .06 13 30 30 0 0
i2 5.9 . . . 12 .01 . 14 . . 0 0
i2 7.11 . . . 13 .01 . 11 . . 0 0
i2 8.12 . . . 14 .01 . 12 . . 0 0
i2 1.3 30 10 10000 11 .01 .06 14 30 30 0 0
i2 2.3 . . . 12 .01 . 11 . . 0 0
i2 4.3 . . . 13 .01 . 12 . . 0 0
i2 6.3 . . . 14 .01 . 13 . . 0 0
;_____________ 90 Hz
i2 17 30 10 10000 11 .01 .06 13 90 90 0 0
i2 19 . . . 12 .01 . 14 . . 0 0
i2 21 . . . 13 .01 . 11 . . 0 0
i2 22 . . . 14 .01 . 12 . . 0 0
i2 11.3 30 10 10000 11 .01 .06 14 90 90 0 0
i2 12.3 . . . 12 .01 . 11 . . 0 0
i2 14.3 . . . 13 .01 . 12 . . 0 0
i2 16.3 . . . 14 .01 . 13 . . 0 0
b 955
;____________ 270 Hz
i2 17 60 10 7000 11 .01 .07 13 270 270 0 0
i2 19 . . . 12 .01 . 14 . . 0 0
i2 21 . . . 13 .01 . 11 . . 0 0
i2 22 . . . 14 .01 . 12 . . 0 0
i2 11.3 60 10 7000 11 .01 .08 14 270 270 0 0
i2 12.3 . . . 12 .01 . 11 . . 0 0
i2 14.3 . . . 13 .01 . 12 . . 0 0
i2 16.3 . . . 14 .01 . 13 . . 0 0
b 970
;____________ 90 Hz
i2 17 50 10 10000 11 .03 .1 13 90 90 0 0
i2 19 . . . 12 . . 14 . . 0 0
i2 21 . . . 13 . . 11 . . 0 0
i2 22 . . . 14 . . 12 . . 0 0
i2 11.3 50 10 10000 11 .04 .13 14 90 90 0 0
i2 12.3 . . . 12 . . 11 . . 0 0
i2 14.3 . . . 13 . . 12 . . 0 0
i2 16.3 . . . 14 . . 13 . . 0 0
b 980
;______________ 30 Hz - sintesis con el cuadrado magico chino del siglo XVI
i2 0 140 0 10000 21 .01 .002 21 10 10 0 0
i2 15 120 . < 22 . . 22 30 30 0 0
i2 30 105 . < 21 . . 22 60 60 0 0
i2 43 80 . < 22 . . 21 90 90 0 0
i2 52 70 . < 21 .01 .0031 21 120 120 0 0
i2 60 60 . < 22 . . 22 150 150 0 0
i2 66 52 . < 21 . . 22 180 180 0 0
i2 70 45 . < 22 . . 21 210 210 0 0
i2 77 40 . < 21 .01 .0047 21 240 240 0 0
i2 84 30 . < 22 . . 22 270 270 0 0
i2 86 20 . < 21 . . 22 300 300 0 0
i2 87 10 . 1000 22 . . 21 330 330 0 0
s
f0 5
s
t 0 1200 150 1200 150.1 20 180 1200 200 12000 250 3000
;==========VARIACION DEL INICIO==============
i4 0 30 2800 6 1.05 1.07 3 1 7 .6 .85 1 6
i4 3.445 40 1000 6.002 1.08 1.11 1 2 7 .7 .92 1 10
i4 5.123 25 1400 5 1.09 1.03 1 2 7 .6 .85 1 30
i4 5.857 10 600 4 1.01 1 5 3 1 .6 .85 1 60
i4 17 50 4000 6.07 1.2 .9 1 2 3 .5 .85 1.3 120
i3 35 18 3000 7.07 1.01 .999 1 5 7 .2 .5 1 20
i3 35 21 3000 7.07 1.02 .998 1 5 7 .3 .6 1 30
i3 35 35 3000 7.07 1.05 .995 1 5 7 .4 .7 1 50
i3 41.7 49 2500 8.02 1.1 .9 1 5 7 .5 .7 1 10
i3 44.871 30 2500 8.02 1.12 .88 1 5 6 .5 .7 1 10
i3 47.81 25 2500 8.02 1.17 .83 2 7 6 .5 .7 1 10
i3 51.81 39 5000 8.075 1.1 .9 1 5 7 .5 .7 1 10
i3 54.73 20 5000 8.07 1.12 .88 1 5 6 .5 .7 1 10
i3 57.28 15 5000 8.08 1.17 .83 2 7 6 .5 .7 1 10
i3 52.07 36 5000 9.03 1.1 .9 1 5 7 .5 .7 1 10
i3 55.57 17 5000 9.0325 1.12 .88 1 5 6 .5 .7 1 10
i3 58.81 13 5000 9.035 1.17 .83 2 7 6 .5 .7 1 10
i3 53.7 35 5000 9.1025 1.1 .9 1 5 7 .5 .7 1 10
i3 56.67 16 5000 9.10425 1.12 .88 1 5 6 .5 .7 1 10
i3 59.27 11 5000 9.105 1.17 .83 2 7 6 .5 .7 1 10
i4 51.24 39 2500 9.0755 1.1 .9 1 5 7 .5 .7 1 10
i4 54.783 20 2500 9.075 1.12 .88 1 5 6 .5 .7 1 10
i4 57.867 15 2500 9.085 1.17 .83 2 7 6 .5 .7 1 10
i4 52.5 36 2500 10.035 1.1 .9 1 5 7 .5 .7 1 10
i4 55.816 17 2500 10.0375 1.12 .88 1 5 6 .5 .7 1 10
i4 58.271 13 2500 10.0355 1.17 .83 2 7 6 .5 .7 1 10
i4 53.27 35 2500 11.10255 1.1 .9 1 5 7 .5 .7 1 10
i4 56.56 16 2500 11.10475 1.12 .88 1 5 6 .5 .7 1 10
i4 60.541 11 2500 11.1055 1.17 .83 2 7 6 .5 .7 1 10
i3 55 30 750 5.09 1.01 1 4 7 7 .6 .85 1 5
i3 58.445 40 1370 5.09 1.01 1 4 3 7 .6 .85 1 4
i3 60.123 25 1050 4.09 1.01 1 3 2 7 .6 .85 1 2
i3 60.857 10 1050 3.09 1.01 1 1 1 1 .6 .85 1 1
i4 78 3 400 7.03 1 1 4 7 7 .5 .8 1 1
i4 78 50 1000 11.03 1.5 .5 4 7 7 .5 .8 3 50
i4 78 50 1000 11.015 1.5 .5 4 3 7 .6 .85 3 40
i4 78 50 1000 11.075 1.5 .5 3 2 7 .7 .9 3 20
i4 78 50 1000 11.115 1.5 .5 1 1 1 .8 .95 3 10
i4 88 50 1200 12.035 2 .01 4 7 7 .5 .8 2 50
i4 88 50 1200 12.025 2 .01 4 3 7 .6 .85 2 40
i4 88 50 1200 12.085 2 .01 3 2 7 .7 .9 2 20
i4 88 50 1200 13.005 2 .01 1 1 1 .8 .95 2 10
;================
i3 0 270 200 5.108 1 1 1 1 1 .51 .74 1 1
i3 0 269 . 5.109 1 1 1 1 1 .52 .75 1 1
i3 0 268 . 5.110 1 1 1 1 1 .53 .76 1 1
i3 0 267 . 6.107 1 1 1 1 1 .54 .77 1 1
i3 0 266 . 4.106 1 1 1 1 1 .55 .78 1 1
i3 0 265 . 4.105 1 1 1 1 1 .56 .79 1 1
b15
i3 0 252 200 5.108 1 1 1 2 2 .51 .74 2 2
i3 0 253 . 5.108 1 1 1 3 3 .52 .75 2 2
i3 0 254 . 5.108 1 1 1 4 4 .53 .76 2 2
i3 0 256 . 6.108 1 1 1 5 5 .54 .77 2 2
i3 0 257 . 4.108 1 1 1 6 6 .55 .78 2 2
i3 0 259 . 4.108 1 1 1 7 7 .56 .79 2 2
b13
i3 0 260 200 5.108 1 1 1.1 7 2 .41 .84 2 3
i3 0 262 . 5.108 1 1 1.2 6 3 .42 .85 2 3
i3 0 264 . 5.108 1 1 1.3 5 4 .43 .86 2 3
i3 0 266 . 6.108 1 1 1.4 4 5 .44 .87 2 3
i3 0 267 . 4.108 1 1 1.5 3 6 .45 .88 2 3
i3 0 269 . 4.108 1 1 1.6 2 7 .46 .89 2 3
b10
i3 0 263 200 5.108 1 1 1 1 1 .61 .94 1 1
i3 0 267 . 5.108 1 1 1 1 1 .62 .95 1 1
i3 0 268 . 5.108 1 1 1 1 1 .63 .96 1 1
i3 0 271 . 6.108 1 1 1 1 1 .64 .97 1 1
i3 0 273 . 4.108 1 1 1 1 1 .65 .98 1 1
i3 0 275 . 4.108 1 1 1 1 1 .66 .99 1 1
;==========VARIACION AMPLIADA DE LA INTRODUCCION==========
b150
;i93 0 25 5
i3 4.5 11.6 1000 12.17 1 1 1 1 1 1 1 1 1
i3 + 11.8 1000 12.12 1 1 1 1 1 1 1 1 1
i3 7.5 11.9 1000 11.27 1 1 1 1 1 1 1 1 1
i3 6.3 11.6 150 10.018 1 1 1 1 1 .4 .7 1 1
i3 6.3 12 150 10.998 1 1 1 1 1 .4 .7 1 1
i3 6.3 11.5 150 10.038 1 1 1 1 1 .4 .7 1 1
i3 6.3 11.7 150 9.011 1 1 1 1 1 .4 .7 1 1
i3 6.3 112 150 10.991 1 1 1 1 1 .4 .7 1 1
i3 6.3 11.6 150 10.031 1 1 1 1 1 .4 .7 1 1
i3 6.8 11.6 500 9.66 1 1 1 1 1 .2 .8 1 2
i3 6.85 11.8 500 8.56 1 1 1 1 1 .2 .8 1 2
i3 6.9 11.9 500 8.76 1 1 1 1 1 .2 .8 1 2
i3 6.76 12 300 11.5 1 1 2 1 1 .4 .7 1 1.5
i3 6.95 14 360 11.37 1 1 3 2 1 .4 .7 1 1.5
i3 7 11.05 300 5.08 1.01 1.2 1 2 1 .5 .8 1 1
i3 . 11.1 300 6.0875 1.01 1.2 1 2 1 .5 .8 1 1
i3 . 11.2 300 7.0930 1.01 1.2 1 2 1 .5 .8 1 1
i3 . 11.3 300 8.0995 1.01 1.2 1 2 1 .5 .8 1 1
i3 . 11.5 300 9.1055 1.01 1.2 1 2 1 .5 .8 1 1
i3 . 11.7 300 10.1165 1.01 1.2 1 2 1 .5 .8 1 1
i3 . 11 300 11.0880 1.01 1.2 1 2 1 .5 .8 1 1
i3 7.4 11.05 600 4.06 1.01 1.2 1 2 1 .5 .8 1 1
i3 . 11.1 600 5.0775 1.01 1.2 1 2 1 .5 .8 1 1
i3 . 11.2 600 6.0920 1.01 1.2 1 2 1 .5 .8 1 1
i3 . 11.3 600 7.101 1.01 1.2 1 2 1 .5 .8 1 1
i3 . 11.5 600 8.1155 1.01 1.2 1 2 1 .5 .8 1 1
i3 . 11.7 600 9.96 1.01 1.2 1 2 1 .5 .8 1 1
i3 . 11 600 10.10 1.01 1.2 1 2 1 .5 .8 1 1
i3 7.8 16 100 5.06 .99 .95 1 1 1 .2 .4 1 1
b 153
i3 0 11.1 100 10.94 1 1 7 6 4 .33 .8 1 1
i3 + 11.3 300 8.017 1.01 1 6 5 7 .33 .8 1 1
i3 + 11.17 200 7.89 1.02 1.01 7 2 5 .33 .8 1 1
i3 + 11.05 100 11.95 1.04 1.03 1 4 4 .33 .8 1 1
i3 + 11.45 200 9.211 1.05 1.05 7 6 3 .33 .8 1 1
i3 + 11.03 300 10.35 1.06 1.07 3 2 4 .33 .8 1 1
i3 0 11 400 8.14 1 1 7 6 4 .33 .8 1 1
i3 .65 13 400 10.64 1.005 1.01 6 5 7 .33 .8 1 1
i3 1 12 400 9.995 1.015 1.03 7 2 5 .33 .8 1 1
i3 1.55 11.5 400 9.25 1.015 1.05 1 4 4 .33 .8 1 1
i3 1.85 13 400 11.811 1.03 1.07 7 6 3 .33 .8 1 1
i3 2.4 12.5 400 8.05 1.05 1.08 3 2 4 .33 .8 1 1
i96 0 25 2
i6 0 11.8 500 6.44
i6 + 11.3 500 8.74
i6 + 11.27 500 7.25
i6 + 11.05 500 5.95
i6 + 11.45 500 7.911
i6 + 11.03 500 5.735
i6 0 11.7 800 8.14
i6 0.2 13 800 4.634
i6 2.2 12 800 7.825
i6 2.6 11.5 800 5.215
i6 2.65 14 800 4.811
i6 3.1 15.5 800 8.325
b200
;======= toda la seccion de introduccion concentrada en 2 segundos
i4 0 30 2800 6 1.05 1.07 3 1 7 .6 .85 1 6
i4 3.445 40 1000 6.002 1.08 1.11 1 2 7 .7 .92 1 10
i4 5.123 25 1400 5 1.09 1.03 1 2 7 .6 .85 1 30
i4 5.857 10 600 4 1.01 1 5 3 1 .6 .85 1 60
i4 17 50 4000 6.07 1.2 .9 1 2 3 .5 .85 1.3 120
i3 35 18 3000 7.07 1.01 .999 1 5 7 .2 .5 1 20
i3 35 21 3000 7.07 1.02 .998 1 5 7 .3 .6 1 30
i3 35 35 3000 7.07 1.05 .995 1 5 7 .4 .7 1 50
i3 41.7 49 2500 8.02 1.1 .9 1 5 7 .5 .7 1 10
i3 44.871 30 2500 8.02 1.12 .88 1 5 6 .5 .7 1 10
i3 47.81 25 2500 8.02 1.17 .83 2 7 6 .5 .7 1 10
i3 51.81 39 5000 8.075 1.1 .9 1 5 7 .5 .7 1 10
i3 54.73 20 5000 8.07 1.12 .88 1 5 6 .5 .7 1 10
i3 57.28 15 5000 8.08 1.17 .83 2 7 6 .5 .7 1 10
i3 52.07 36 5000 9.03 1.1 .9 1 5 7 .5 .7 1 10
i3 55.57 17 5000 9.0325 1.12 .88 1 5 6 .5 .7 1 10
i3 58.81 13 5000 9.035 1.17 .83 2 7 6 .5 .7 1 10
i3 53.7 35 5000 9.1025 1.1 .9 1 5 7 .5 .7 1 10
i3 56.67 16 5000 9.10425 1.12 .88 1 5 6 .5 .7 1 10
i3 59.27 11 5000 9.105 1.17 .83 2 7 6 .5 .7 1 10
i4 51.24 39 2500 9.0755 1.1 .9 1 5 7 .5 .7 1 10
i4 54.783 20 2500 9.075 1.12 .88 1 5 6 .5 .7 1 10
i4 57.867 15 2500 9.085 1.17 .83 2 7 6 .5 .7 1 10
i4 52.5 36 2500 10.035 1.1 .9 1 5 7 .5 .7 1 10
i4 55.816 17 2500 10.0375 1.12 .88 1 5 6 .5 .7 1 10
i4 58.271 13 2500 10.0355 1.17 .83 2 7 6 .5 .7 1 10
i4 53.27 35 2500 11.10255 1.1 .9 1 5 7 .5 .7 1 10
i4 56.56 16 2500 11.10475 1.12 .88 1 5 6 .5 .7 1 10
i4 60.541 11 2500 11.1055 1.17 .83 2 7 6 .5 .7 1 10
i3 55 30 750 5.09 1.01 1 4 7 7 .6 .85 1 5
i3 58.445 40 1370 5.09 1.01 1 4 3 7 .6 .85 1 4
i3 60.123 25 1050 4.09 1.01 1 3 2 7 .6 .85 1 2
i3 60.857 10 1050 3.09 1.01 1 1 1 1 .6 .85 1 1
i4 78 3 400 7.03 1 1 4 7 7 .5 .8 1 1
i4 78 50 1000 11.03 1.5 .5 4 7 7 .5 .8 3 50
i4 78 50 1000 11.015 1.5 .5 4 3 7 .6 .85 3 40
i4 78 50 1000 11.075 1.5 .5 3 2 7 .7 .9 3 20
i4 78 50 1000 11.115 1.5 .5 1 1 1 .8 .95 3 10
i4 88 50 1200 12.035 2 .01 4 7 7 .5 .8 2 50
i4 88 50 1200 12.025 2 .01 4 3 7 .6 .85 2 40
i4 88 50 1200 12.085 2 .01 3 2 7 .7 .9 2 20
i4 88 50 1200 13.005 2 .01 1 1 1 .8 .95 2 10
;==========INTRO==========
b150
;i93 0 25 5
i3 4.5 11.6 1000 12.17 1 1 1 1 1 1 1 1 1
i3 + 11.8 1000 12.12 1 1 1 1 1 1 1 1 1
i3 7.5 11.9 1000 11.27 1 1 1 1 1 1 1 1 1
i3 6.3 11.6 150 10.018 1 1 1 1 1 .4 .7 1 1
i3 6.3 12 150 10.998 1 1 1 1 1 .4 .7 1 1
i3 6.3 11.5 150 10.038 1 1 1 1 1 .4 .7 1 1
i3 6.3 11.7 150 9.011 1 1 1 1 1 .4 .7 1 1
i3 6.3 112 150 10.991 1 1 1 1 1 .4 .7 1 1
i3 6.3 11.6 150 10.031 1 1 1 1 1 .4 .7 1 1
i3 6.8 11.6 500 9.66 1 1 1 1 1 .2 .8 1 2
i3 6.85 11.8 500 8.56 1 1 1 1 1 .2 .8 1 2
i3 6.9 11.9 500 8.76 1 1 1 1 1 .2 .8 1 2
i3 6.76 12 300 11.5 1 1 2 1 1 .4 .7 1 1.5
i3 6.95 14 360 11.37 1 1 3 2 1 .4 .7 1 1.5
i3 7 11.05 300 5.08 1.01 1.2 1 2 1 .5 .8 1 1
i3 . 11.1 300 6.0875 1.01 1.2 1 2 1 .5 .8 1 1
i3 . 11.2 300 7.0930 1.01 1.2 1 2 1 .5 .8 1 1
i3 . 11.3 300 8.0995 1.01 1.2 1 2 1 .5 .8 1 1
i3 . 11.5 300 9.1055 1.01 1.2 1 2 1 .5 .8 1 1
i3 . 11.7 300 10.1165 1.01 1.2 1 2 1 .5 .8 1 1
i3 . 11 300 11.0880 1.01 1.2 1 2 1 .5 .8 1 1
i3 7.4 11.05 600 4.06 1.01 1.2 1 2 1 .5 .8 1 1
i3 . 11.1 600 5.0775 1.01 1.2 1 2 1 .5 .8 1 1
i3 . 11.2 600 6.0920 1.01 1.2 1 2 1 .5 .8 1 1
i3 . 11.3 600 7.101 1.01 1.2 1 2 1 .5 .8 1 1
i3 . 11.5 600 8.1155 1.01 1.2 1 2 1 .5 .8 1 1
i3 . 11.7 600 9.96 1.01 1.2 1 2 1 .5 .8 1 1
i3 . 11 600 10.10 1.01 1.2 1 2 1 .5 .8 1 1
i3 7.8 16 100 5.06 .99 .95 1 1 1 .2 .4 1 1
b 153
i3 0 11.1 100 10.94 1 1 7 6 4 .33 .8 1 1
i3 .4 11.3 300 8.017 1.01 1 6 5 7 .33 .8 1 1
i3 .3 11.17 200 7.89 1.02 1.01 7 2 5 .33 .8 1 1
i3 .4 11.05 100 11.95 1.04 1.03 1 4 4 .33 .8 1 1
i3 .5 11.45 200 9.211 1.05 1.05 7 6 3 .33 .8 1 1
i3 .6 11.03 300 10.35 1.06 1.07 3 2 4 .33 .8 1 1
i3 0 11 400 8.14 1 1 7 6 4 .33 .8 1 1
i3 .65 13 400 10.64 1.005 1.01 6 5 7 .33 .8 1 1
i3 1 12 400 9.995 1.015 1.03 7 2 5 .33 .8 1 1
i3 1.55 11.5 400 9.25 1.015 1.05 1 4 4 .33 .8 1 1
i3 1.85 13 400 11.811 1.03 1.07 7 6 3 .33 .8 1 1
i3 2.4 12.5 400 8.05 1.05 1.08 3 2 4 .33 .8 1 1
i96 0 25 2
i6 0 11.8 500 6.44
i6 .1 11.3 500 8.74
i6 .2 11.27 500 7.25
i6 .3 11.05 500 5.95
i6 .4 11.45 500 7.911
i6 .5 11.03 500 5.735
i6 0 11.7 800 8.14
i6 0.2 13 800 4.634
i6 2.2 12 800 7.825
i6 2.6 11.5 800 5.215
i6 2.65 14 800 4.811
i6 3.1 15.5 800 8.325
s
f0 5
s
i5 0 40 6000 .2 .3 60 60 3 .1
i5 0.1 . 3000 .3 .4 180 180 5 .1
i5 0.23 . 2000 .4 .5 300 300 8 .1
i5 0.37 . 1000 .5 .6 420 420 13 .1
i5 0.49 . 500 .6 .7 540 540 21 .1
i5 1.49 . 400 .7 .8 660 660 44 .1
i5 3.49 . 300 .8 .9 780 780 65 .1
b 15
i5 0 15 600 .2 .3 600 600 30 .1
i5 0.1 . 300 .3 .4 1800 1800 50 .1
i5 0.23 . 200 .4 .5 3000 3000 80 .1
i5 0.37 . 100 .5 .6 4200 4200 130 .1
i5 0.49 . 50 .6 .7 5400 5400 210 .1
i5 1.49 . 40 .7 .8 6600 6600 440 .1
i5 3.49 . 30 .8 .9 7800 7800 650 .1
s
f0 2
s
i5 0 35 10000 .5 .6 40 20 20 .1
i5 0 25 3000 .5 .6 20000 20000 5000 .1
i5 6 15 2000 .3 .8 8345 8651 200 .1
s
f0 2
s
i5 0 35 3000 .5 .6 540 540 50 .1
i5 0.1 25 3000 .5 .6 540 540 40 .1
i5 0.23 25 3000 .5 .6 540 540 30 .1
i5 0.37 25 3000 .5 .6 540 540 20 .1
i5 0.53 45 3000 .5 .6 540 540 1 .1
e
Version: 3
Render: File
Ask: Yes
Functions: Window
Listing: ioObject
WindowBounds: 65 81 863 703
CurrentView: io
IOViewEdit: Off
Options: -b128 -A -s -m7 -R
ioView nobackground {65535, 65535, 65535}
ioListing {10, 10} {400, 500}