-
Notifications
You must be signed in to change notification settings - Fork 1
/
carsonstab1.csd
806 lines (733 loc) · 17.7 KB
/
carsonstab1.csd
1
2
<MacOptions>Version: 1Render: FileAsk: NoSFDIR: Macintosh HD:Users:melissamoore:Desktop:csound:Options: -b100 -A -omandarin.aif -s -m7 -R -Lstdin </MacOptions><MacGUI>ioView nobackground {65535, 65535, 65535}
ioListing {10, 10} {400, 500}</MacGUI><CsoundSynthesizer><CsInstruments>sr = 8000kr = 80ksmps = 100nchnls = 1gibase = 440 * 3 / (2 * 32)gi5prev = 200;::::::::::::::::::::::::::::::::::::::::::::::: Gen Tablesifn ftgen 1, 0, 8192, 10, 1 ;:::::::Sine:::::::ifn ftgen 2, 0, 8192, 19, .5, 1, 270, 1 ;:::::::Sigmoid::::ifn ftgen 3, 0, 8192, 10, 10, 8, 7, ;:::::::Sine:::::::ifn ftgen 4, 0, 8192, 10, 10, 8, 4ifn ftgen 5, 0, 8192, 10, 10, 7, 1, 2ifn ftgen 6, 0, 8192, 10, 10, 5, 2ifn ftgen 7, 0, 8192, 10, 10, 4ifn ftgen 8, 0, 8192, 20, 1ifn ftgen 9, 0, 512, 7, -1, 400, 0, 112, 1gitrumpet=.45gibass=.7giharm=.1gitrumpetprev=1gibassprev=1giharmprev=1 giphrase = 6+rnd(6);::::::::::::::::::::::::::::::::::::::::::::::::::::::::::instr 2 ;::::::::::::Trumpet:::::::::::::::::::::::::::::::;::::::::::::::::::::::::::::::::::::::::::::::::::::::::: kdyn linseg rnd(1)+1, rnd(.1), rnd(1)+1, rnd(.5), rnd(1) ifir = 200*(rnd(.3)+.7)/p4 isec = 300*(rnd(.3)+.7)/p4 iatt1 = rnd(.2)+.2 iatt2 = rnd(.2)+.2 kcra linseg 0, p3/3, 0, iatt1, ifir, iatt1, 0, p3/3, 0, iatt2, isec, iatt2, 0 irange = gibase*16 inote = irange*p5 knot linseg iprev, rnd(.5), inote, 1, inote knott = knot*(1/(kcra/(kdyn*12)+1)) ivalve = int(4*frac(inote*323)) kvibc linseg 3, p3, 1 kvibr oscil 1, kvibc, 1 iatt =5000*(rnd(.02)+p3/100)/p4 kmainenv linseg 0.001, iatt, 1, p3-iatt-.1, 1, .1, 0.001 kenv = ((1000+.9*p4)*kdyn+kvibr*100)*kmainenv knote = knott+kvibr*inote/400 kformcon linseg 0, .2, 1, 4, 1 kform = 690+ivalve*10+p4/40+kformcon*70 a1 fof kenv, knote, kform, 0, 600, .001,.002,.001, 200, 3, 2, p3 agrain grain 8000, inote, 30, 1000, inote/400, .08, 3, 8, 1 kcon linseg 900, .1, 1800, p3/2, 1500, p3/2, 900 a2 butterlp a1, kcon*kdyn+p4/40 a3 tone a2, 700 a4 gain a3+agrain*((inote+2000)/180000), kenv out (a4)*gitrumpet gitrumpetprev=inoteendin;::::::::::::::::::::::::::::::::::::::::::::::::::::::::::instr 3 ;::::::::::::Bass::::::::::::::::::::::::::::::::::;:::::::::::::::::::::::::::::::::::::::::::::::::::::::::: iatt = (rnd(40)+20)/1200 kenv1 linseg 0, iatt, 1, p3-.1-iatt, 1, .1, 0 kenv2 expseg p4, 22, 1 kenv = kenv1*kenv2 irange = gibase*4 inote = irange*p5 istr = int(2*frac(inote*323)) istrin = (inote < irange*3/2 ? 4 : 6) istring = istrin + istr acon oscil 4095, inote, 9 a1 tablei acon+4096, istring ar reson a1, inote*2, 50, 1 at tone ar, 700 a2 gain at, kenv aat pluck p4, inote, inote,9,1a1 sleighbells 8000, 0.1 out (aat+a2+a1)*gibassendin;::::::::::::::::::::::::::::::::::::::::::::::::::::::::::instr 4 ;::::::::::::Harmonium:::::::::::::::::::::::::::::;::::::::::::::::::::::::::::::::::::::::::::::::::::::::::p3 = 4 iatt = rnd(40)/100+.4 kenv1 expseg 1, iatt, p4, p3-.5, p4, 1, 1 kconv linseg 1, p3/2, .5, p3/2, 1 kvib oscil .1, kconv*5, 1 kenv=kenv1*(kvib+1)*kconv gkbell oscil 1, 3, 1 gkbell2 oscil 1, 3.5, 1 irange = gibase*16 inote = irange*p5 knote1 expseg gi5prev, iatt-.2, inote, p3, inote ire = int(5*frac(inote*323)) kbell = (ire < 3 ? gkbell : gkbell2) iree = 3000/inote ireed = iree+ire knote=knote1*(kbell/250+1) a1 buzz kenv+kbell*300, knote, ireed, 1 ar1 reson a1, 300, 200, 1 ar2 reson a1, 400, 300, 1 ar3 reson a1, 200, 100, 1 kcon linseg 200, iatt, 400, p3, 300, 1, 300 at tone a1, (kvib+1)*kcon a2 = ar1 + ar2 +ar3*at/100 a3 butterlp a2, 4000 a4 gain a3, kenv out a4*giharm gi5prev = inoteendininstr 5p3 = .4 a1 guiro p4, p5/2a2 cabasa 8100-p4, p5 out a1+a2endin</CsInstruments><CsScore>;SCO BASED ON ;"THE DASTGAH CONCEPT ;IN PERSIAN MUSIC" ;BY HORMOZ FARHAT, ;CHAPTER 9: ;DASTGAH-E SEGAH.t 0 60#define ZANGESOTOR(I#T)#i $I $T 1 8000 [1]i $I + 4 > [27/22]i $I + 1 > [1]i $I + 4 > [4/3]i $I + 1 5000 [1]i $I + 4 . [27/22]i $I + 1 . [1]i $I + 4 . [3/2]i $I + 1 6000 [1]i $I + 4 < [4/3]i $I + 1 < [1]i $I + 4 < [27/22]i $I + 1 < [1]i $I + 4 < [162/98]i $I + 1 < [1]i $I + 4 < [3/2]i $I + 1 < [1]i $I + 4 < [4/3]i $I + 1 < [1]i $I + 4 15000 [27/22]##define MUYEBASIS(I#T)#i $I $T 2 8000 [27/22]i $I + 1 > [4/3]i $I + 2 > [3/2]i $I + 2 > [162/98]i $I + 2 5000 [9/5]i $I + 1 9000 [2]i $I + 2 5000 [9/5]i $I + 2 6000 [162/98]i $I + 2 7000 [3/2]i $I + 1 7000 [4/3]i $I + 2 8000 [27/22]##define HESARBASIS(I#T)#i $I $T 1 8000 [7/5]i $I + 2 > [3/2]i $I + 2 > [5/3]i $I + 2 > [49/27]i $I + 2 5000 [2]i $I + 1 6000 [9/4]i $I + 1 7000 [27/11]i $I + 1 6000 [9/4]i $I + 2 5000 [2]i $I + 2 3000 [49/27]i $I + 2 3000 [5/3]i $I + 2 3000 [3/2]i $I $T 1 8000 [7/5]##define MOXALEFBASIS(I#T)#i $I $T 2 8000 [3/2]i $I + 2 > [162/98]i $I + 2 > [49/27]i $I + 2 > [2]i $I + 2 5000 [9/4]i $I + 1 9000 [12/5]i $I + 2 8000 [9/4]i $I + 2 > [2]i $I + 2 > [49/27]i $I + 2 > [162/98]i $I + 2 3000 [3/2]##define MAQLUBBASIS(I#T)#i $I $T 1 8000 [3/2]i $I + 1 > [162/98]i $I + 2 > [49/27]i $I + 2 > [2]i $I + 2 5000 [9/4]i $I + 2 6000 [12/5]i $I + 2 7000 [8/3]i $I + 2 9000 [12/5]i $I + 2 8000 [9/4]i $I + 2 > [2]i $I + 2 > [49/27]i $I + 1 > [162/98]i $I + 1 3000 [3/2]##define DARAMADS(I#T)#i $I $T 2 8000 [27/22]i $I + .25 8000 [1]i $I + .5 8000 [27/22]i $I + .25 8000 [1]i $I + .75 8000 [27/22]i $I + 2 8000 [27/22]i $I + .75 8000 [4/3]i $I + .25 8000 [27/22]i $I + .75 8000 [4/3]i $I + .25 8000 [27/22]i $I + .25 8000 [4/3]i $I + .25 8000 [3/2]i $I + .25 8000 [3/2]i $I + .25 8000 [4/3]i $I + 2 8000 [3/2]i $I + .75 8000 [4/3]i $I + .25 8000 [27/22]i $I + .5 8000 [4/3]i $I + .5 8000 [3/2]i $I + .25 8000 [4/3]i $I + .25 8000 [4/3]i $I + .25 8000 [27/22]i $I + 2 8000 [27/22]i $I + .25 8000 [1]i $I + .5 8000 [27/22]i $I + 2 8000 [27/22]##define ZABOL(I#T)#i $I $T .5 8000 [27/22]i $I + .5 8000 [4/3]i $I + 2 8000 [3/2]i $I + .25 8000 [4/3]i $I + .75 8000 [4/2]i $I + .25 8000 [162/98]i $I + .25 8000 [3/2]i $I + .25 8000 [162/98]i $I + .25 8000 [3/2]i $I + 2 8000 [162/98]i $I + 2 8000 [3/2]i $I + .25 8000 [162/98]i $I + .25 8000 [3/2]i $I + .25 8000 [4/3]i $I + .25 8000 [27/22]i $I + .25 8000 [4/3]i $I + .25 8000 [3/2]i $I + .25 8000 [3/2]i $I + .25 8000 [4/3]i $I + 1.75 8000 [3/2]i $I + .25 8000 [162/98]i $I + .25 8000 [3/2]i $I + .25 8000 [4/3]i $I + 2 8000 [27/22]##define MUYE(I#T)#i $I $T .25 8000 [3/2]i $I + .25 8000 [162/98]i $I + .25 8000 [9/5]i $I + .5 8000 [162/98]i $I + .5 8000 [9/5]i $I + 1.5 8000 [162/98]i $I + .5 8000 [3/2]i $I + .25 8000 [162/98]i $I + 1.75 8000 [9/5]i $I + 1.5 8000 [162/98]i $I + .25 8000 [3/2]i $I + .25 8000 [9/5]i $I + .25 8000 [162/98]i $I + .25 8000 [3/2]i $I + .25 8000 [162/98]i $I + .25 8000 [3/2]i $I + .25 8000 [162/98]i $I + .25 8000 [3/2]i $I + .25 8000 [162/98]i $I + .25 8000 [3/2]i $I + .25 8000 [162/98]i $I + .5 8000 [162/98]i $I + 2.5 8000 [3/2]i $I + .25 8000 [3/2]i $I + .25 8000 [162/98]i $I + .25 8000 [9/5]i $I + .5 8000 [162/98]i $I + .25 8000 [3/2]i $I + .25 8000 [162/98]i $I + 1.75 8000 [9/5]i $I + .25 8000 [162/98]i $I + .25 8000 [3/2]i $I + .25 8000 [4/3]i $I + .25 8000 [27/22]##define HESAR(I#T)#i $I $T .25 2000 [3/2]i $I + .25 6000 [5/3] i $I + .25 6000 [49/27] i $I + .25 6000 [2] i $I + .25 6000 [49/27]i $I + .25 6000 [5/3] i $I + .25 6000 [49/27] i $I + .25 6000 [2] i $I + .25 6000 [49/27] i $I + .5 6000 [2] i $I + 2 6000 [5/3] i $I + .1 6000 [2] i $I + .65 6000 [49/27] i $I + .25 6000 [2] i $I + .125 6000 [49/27] i $I + .125 6000 [2] i $I + .125 6000 [49/27] i $I + .125 6000 [2] i $I + .125 6000 [49/27] i $I + .125 6000 [2] i $I + .125 6000 [49/27]i $I + .125 6000 [2]i $I + .0625 6000 [49/27] i $I + .0625 6000 [2] i $I + .0625 6000 [49/27] i $I + .0625 6000 [2] i $I + .0625 6000 [49/27] i $I + .0625 6000 [2] i $I + .0625 6000 [49/27]i $I + .0625 6000 [2]i $I + .0625 6000 [49/27] i $I + .0625 6000 [2] i $I + .0625 6000 [49/27] i $I + .0625 6000 [2] i $I + .0625 6000 [49/27] i $I + .0625 6000 [2] i $I + .0625 6000 [49/27]i $I + .0625 6000 [2]i $I + 2 6000 [2] i $I + .25 6000 [49/27]i $I + .25 6000 [5/3]i $I + .25 6000 [49/27]i $I + .25 6000 [5/3]i $I + 2 6000 [49/27]i $I + .5 6000 [2]i $I + .5 6000 [49/27]i $I + .25 6000 [9/4]i $I + .5 6000 [2]i $I + .25 6000 [49/27]i $I + 1.5 6000 [2]i $I + .5 6000 [9/4]i $I + .25 6000 [2] i $I + .25 6000 [49/27]i $I + .25 6000 [5/3] i $I + 2.5 6000 [3/2] i $I + 1 6000 [2]i $I + 1 6000 [49/27]i $I + .25 6000 [3/2]i $I + .5 6000 [49/27] i $I + 2 6000 [49/27]##define FORUD(I#T)#i $I $T 1 2000 [27/22]i $I + .25 6000 [4/3] i $I + .375 6000 [3/2] i $I + .125 6000 [4/3] i $I + .75 6000 [3/2] i $I + .25 6000 [162/98] i $I + .25 6000 [3/2] i $I + .25 6000 [4/3] i $I + .25 6000 [27/22] i $I + .25 6000 [4/3] i $I + .25 6000 [27/22] i $I + .25 6000 [4/3] i $I + .25 6000 [27/22] i $I + .25 6000 [4/3] i $I + .25 6000 [27/22] i $I + .375 6000 [4/3] i $I + .125 6000 [27/22] i $I + .25 6000 [3/2] i $I + .375 6000 [4/3] i $I + .125 6000 [27/22] i $I + 2 6000 [27/22] i $I + 1 6000 [1] i $I + 1 6000 [27/22] i $I + .25 6000 [1]i $I + .5 6000 [27/22] i $I + 2 6000 [27/22]##define MOXALEF(I#T)#i $I $T .25 2000 [3/2]i $I + .25 2000 [3/2]i $I + .5 2000 [3/2]i $I + .5 6000 [162/98] i $I + .5 6000 [49/27] i $I + 1 6000 [2] i $I + .25 6000 [9/5] i $I + .75 6000 [2] i $I + .25 6000 [9/5] i $I + .25 6000 [2] i $I + .25 6000 [9/4] i $I + .5 6000 [2] i $I + .5 6000 [9/4] i $I + .75 6000 [2] i $I + .25 6000 [49/27] i $I + 2 6000 [9/4] i $I + .1 6000 [12/5]i $I + .4 6000 [9/4] i $I + .5 6000 [2] i $I + .5 6000 [49/27] i $I + 2 6000 [2]##define MAQLUB(I#T)#i $I $T .1 2000 [2]i $I + .4 3000 [49/27]i $I + .5 3000 [2]i $I + 1 3000 [49/27]i $I + 1 3000 [2]i $I + 2 3000 [12/5]i $I + .125 3000 [12/5] i $I + .125 3000 [8/3]i $I + .125 3000 [12/5] i $I + .125 3000 [8/3]i $I + .125 3000 [12/5] i $I + .125 3000 [8/3]i $I + .125 3000 [12/5] i $I + .125 3000 [8/3]i $I + .0625 3000 [12/5] i $I + .0625 3000 [8/3]i $I + .0625 3000 [12/5] i $I + .0625 3000 [8/3]i $I + .0625 3000 [12/5] i $I + .0625 3000 [8/3]i $I + .0625 3000 [12/5] i $I + .0625 3000 [8/3]i $I + .0625 3000 [12/5] i $I + .0625 3000 [8/3]i $I + .0625 3000 [12/5] i $I + .0625 3000 [8/3]i $I + .0625 3000 [12/5] i $I + .0625 3000 [8/3]i $I + .0625 3000 [12/5] i $I + .0625 3000 [8/3]i $I + .25 3000 [12/5] i $I + .5 3000 [8/3]i $I + .25 3000 [12/5] i $I + .75 3000 [8/3]i $I + .25 3000 [9/4] i $I + .25 3000 [8/3]i $I + .25 3000 [12/5]i $I + .25 3000 [9/4] i $I + 1.5 3000 [2]i $I + .25 3000 [49/27]i $I + .25 3000 [2]i $I + .25 3000 [9/4]i $I + .25 3000 [12/5] i $I + .25 3000 [8/3]i $I + .25 3000 [12/5]i $I + .25 3000 [9/4] i $I + 1 3000 [2]i $I + .5 3000 [8/3]i $I + 1 3000 [12/5]i $I + .125 3000 [9/4] i $I + .125 3000 [12/5] i $I + .125 3000 [9/4] i $I + .125 3000 [12/5] i $I + .125 3000 [9/4] i $I + .125 3000 [12/5] i $I + .125 3000 [9/4] i $I + .125 3000 [12/5] i $I + .0625 3000 [9/4] i $I + .0625 3000 [12/5] i $I + .0625 3000 [9/4] i $I + .0625 3000 [12/5] i $I + .0625 3000 [9/4] i $I + .0625 3000 [12/5] i $I + .0625 3000 [9/4] i $I + .0625 3000 [12/5] i $I + .0625 3000 [9/4] i $I + .0625 3000 [12/5] i $I + .0625 3000 [9/4] i $I + .0625 3000 [12/5] i $I + .0625 3000 [9/4] i $I + .0625 3000 [12/5] i $I + .0625 3000 [9/4] i $I + .0625 3000 [12/5] i $I + .25 3000 [9/4] i $I + .75 3000 [12/5]i $I + 1 3000 [9/4] i $I + .125 3000 [2] i $I + .125 3000 [9/4] i $I + .125 3000 [2] i $I + .125 3000 [9/4] i $I + .125 3000 [2] i $I + .125 3000 [9/4] i $I + .125 3000 [2] i $I + .125 3000 [9/4] i $I + .0625 3000 [2] i $I + .0625 3000 [9/4] i $I + .0625 3000 [2] i $I + .0625 3000 [9/4] i $I + .0625 3000 [2] i $I + .0625 3000 [9/4] i $I + .0625 3000 [2] i $I + .0625 3000 [9/4] i $I + .0625 3000 [2] i $I + .0625 3000 [9/4] i $I + .0625 3000 [2] i $I + .0625 3000 [9/4] i $I + .0625 3000 [2] i $I + .0625 3000 [9/4] i $I + .0625 3000 [2] i $I + .0625 3000 [9/4] i $I + .25 3000 [2] i $I + .75 3000 [9/4] i $I + 1 3000 [2] i $I + .125 3000 [49/27] i $I + .125 3000 [2] i $I + .125 3000 [49/27] i $I + .125 3000 [2] i $I + .125 3000 [49/27]i $I + .125 3000 [2]i $I + .125 3000 [49/27] i $I + .125 3000 [2] i $I + .0625 3000 [49/27] i $I + .0625 3000 [2] i $I + .0625 3000 [49/27] i $I + .0625 3000 [2] i $I + .0625 3000 [49/27]i $I + .0625 3000 [2]i $I + .0625 3000 [49/27]i $I + .0625 3000 [2]i $I + .0625 3000 [49/27] i $I + .0625 3000 [2] i $I + .0625 3000 [49/27] i $I + .0625 3000 [2] i $I + .0625 3000 [49/27]i $I + .0625 3000 [2]i $I + .0625 3000 [49/27]i $I + .0625 3000 [2]i $I + .25 3000 [49/27]i $I + .5 3000 [2]i $I + .25 3000 [9/4]i $I + 1 3000 [2]#;bass$ZANGESOTOR(3#0)$HESARBASIS(3#45)$MUYEBASIS(3#55)$ZANGESOTOR(3#60)$MOXALEFBASIS(3#89)$MAQLUBBASIS(3#99)$ZANGESOTOR(3#100)$MAQLUBBASIS(3#111)$MOXALEFBASIS(3#121)$MAQLUBBASIS(3#133)$ZANGESOTOR(3#144)$MOXALEFBASIS(3#145)$MAQLUBBASIS(3#155)$HESARBASIS(3#175)$MUYEBASIS(3#185);harmonium$DARAMADS(4#0)$ZABOL(4#10)$DARAMADS(4#20)$MUYE(4#40)$MUYE(4#60)$DARAMADS(4#79)$DARAMADS(4#99)$MOXALEF(4#100)$ZABOL(4#101)$MAQLUB(4#111)$MAQLUB(4#121)$MAQLUB(4#131)$MOXALEF(4#140)$MOXALEF(4#150)$MOXALEF(4#160)$HESAR(4#170) $HESAR(4#180)$FORUD(4#190)$FORUD(4#200);trumpet$FORUD(2#0)$FORUD(2#20)$HESAR(2#40)$HESAR(2#50)$HESAR(2#60)$ZABOL(2#65)$HESAR(2#70)$MOXALEF(2#80)$MOXALEF(2#89)$MOXALEF(2#99)$MAQLUB(2#110)$MAQLUB(2#120)$MAQLUB(2#130)$MOXALEF(2#140)$ZABOL(2#145)$MUYE(2#150)$MUYE(2#170)$MUYE(2#180)$DARAMADS(2#190)$DARAMADS(2#200);guira and cabasai 5 0 1 2000 0.5i 5 + 1 8000 0.1i 5 + 1 2000 0.3i 5 + 1 8000 0.1i 5 + 1 2000 0.3i 5 + 1 8000 0.1i 5 + 1 2000 0.3i 5 + 1 2000 0.5i 5 + 1 8000 0.1i 5 + 1 2000 0.3i 5 + 1 8000 0.1i 5 + 1 2000 0.3i 5 + 1 8000 0.1i 5 + 1 2000 0.3i 5 + 1 2000 0.5i 5 + 1 8000 0.1i 5 + 1 2000 0.3i 5 + 1 8000 0.1i 5 + 1 2000 0.3i 5 + 1 8000 0.1i 5 + 1 2000 0.3i 5 + 1 8000 0.1i 5 + 1 2000 0.3i 5 + 1 2000 0.5i 5 + 1 8000 0.1i 5 + 1 2000 0.3i 5 + 1 8000 0.1i 5 + 1 2000 0.3i 5 + 1 8000 0.1i 5 + 1 2000 0.3i 5 + 1 8000 0.1i 5 + 1 2000 0.3i 5 + 1 2000 0.5i 5 + 1 8000 0.1i 5 + 1 2000 0.3i 5 + 1 8000 0.1i 5 + 1 2000 0.3i 5 + 1 8000 0.1i 5 + 1 2000 0.3i 5 + 1 8000 0.1i 5 + 1 2000 0.3i 5 + 1 2000 0.5i 5 + 1 8000 0.1i 5 + 1 2000 0.3i 5 + 1 8000 0.1i 5 + 1 2000 0.3i 5 + 1 8000 0.1i 5 + 1 2000 0.3i 5 + 1 8000 0.1i 5 + 1 2000 0.3i 5 + 1 2000 0.5i 5 + 1 8000 0.1i 5 + 1 2000 0.3i 5 + 1 8000 0.1i 5 + 1 2000 0.3i 5 + 1 8000 0.1i 5 + 1 2000 0.3i 5 + 1 8000 0.1i 5 + 1 2000 0.3i 5 + 1 2000 0.5i 5 + 1 8000 0.1i 5 + 1 2000 0.3i 5 + 1 8000 0.1i 5 + 1 2000 0.3i 5 + 1 8000 0.1i 5 + 1 2000 0.3i 5 + 1 8000 0.1i 5 + 1 2000 0.3i 5 + 1 2000 0.5i 5 + 1 8000 0.1i 5 + 1 2000 0.3i 5 + 1 8000 0.1i 5 + 1 2000 0.3i 5 + 1 8000 0.1i 5 + 1 2000 0.3i 5 + 1 8000 0.1i 5 + 1 2000 0.3i 5 + 1 2000 0.5i 5 + 1 8000 0.1i 5 + 1 2000 0.3i 5 + 1 8000 0.1i 5 + 1 2000 0.3i 5 + 1 8000 0.1i 5 + 1 2000 0.3i 5 + 1 8000 0.1i 5 + 1 2000 0.3i 5 + 1 2000 0.5i 5 + 1 8000 0.1i 5 + 1 2000 0.3i 5 + 1 8000 0.1i 5 + 1 2000 0.3i 5 + 1 8000 0.1i 5 + 1 2000 0.3i 5 + 1 8000 0.1i 5 + 1 2000 0.3i 5 + 1 2000 0.5i 5 + 1 8000 0.1i 5 + 1 2000 0.3i 5 + 1 8000 0.1i 5 + 1 2000 0.3i 5 + 1 8000 0.1i 5 + 1 2000 0.3i 5 + 1 8000 0.1i 5 + 1 2000 0.3i 5 + 1 2000 0.5i 5 + 1 8000 0.1i 5 + 1 2000 0.3i 5 + 1 8000 0.1i 5 + 1 2000 0.3i 5 + 1 8000 0.1i 5 + 1 2000 0.3i 5 + 1 8000 0.1i 5 + 1 2000 0.3i 5 + 1 2000 0.5i 5 + 1 8000 0.1i 5 + 1 2000 0.3i 5 + 1 8000 0.1i 5 + 1 2000 0.3i 5 + 1 8000 0.1i 5 + 1 2000 0.3i 5 + 1 8000 0.1i 5 + 1 2000 0.3i 5 + 1 2000 0.5i 5 + 1 8000 0.1i 5 + 1 2000 0.3i 5 + 1 8000 0.1i 5 + 1 2000 0.3i 5 + 1 8000 0.1i 5 + 1 2000 0.3i 5 + 1 8000 0.1i 5 + 1 2000 0.3i 5 + 1 2000 0.5i 5 + 1 8000 0.1i 5 + 1 2000 0.3i 5 + 1 8000 0.1i 5 + 1 2000 0.3i 5 + 1 8000 0.1i 5 + 1 2000 0.3i 5 + 1 8000 0