//+------------------------------------------------------------------+ //| JMA_Multi_Ind(AM) (JMA WPR fo Spiggy) | //+------------------------------------------------------------------+ #property copyright "" #property link "Andrey Matvievskiy" //---- #property indicator_separate_window #property indicator_buffers 3 #property indicator_color1 Gold #property indicator_color2 Green #property indicator_color3 Red #property indicator_width1 2 #property indicator_width2 2 #property indicator_width3 2 //---- input parameters extern int Drow_style=0; extern int Style=0; extern int Len=0; extern int Phase=0; extern int BarCount=1000; extern int Ind=1; extern int Per1=14; extern int Per2=7; extern int Price1=0; extern int Price2=0; extern int Method1=0; extern int Method2=0; //---- buffers double j[]; double jhi[]; double jlo[]; double a1=0.0; //+------------------------------------------------------------------+ //| Custom indicator initialization function | //+------------------------------------------------------------------+ int init() { if (Drow_style==0) { SetIndexStyle(0,DRAW_ARROW); SetIndexStyle(1,DRAW_ARROW); SetIndexStyle(2,DRAW_ARROW); //---- SetIndexArrow(0,159); SetIndexArrow(1,159); SetIndexArrow(2,159); } else if (Drow_style==1) { SetIndexStyle(0,DRAW_HISTOGRAM); SetIndexStyle(1,DRAW_HISTOGRAM); SetIndexStyle(2,DRAW_HISTOGRAM); } else { SetIndexStyle(0,DRAW_LINE); SetIndexStyle(1,DRAW_LINE); SetIndexStyle(2,DRAW_LINE); } SetIndexBuffer(0,j); SetIndexBuffer(1,jhi); SetIndexBuffer(2,jlo); //---- indicators //---- if(Ind<1 || Ind>54) { Alert("Неправильно задан параметр!"); Ind=1; } IndicatorShortName("3c_JMA_Multi_Ind(AM)"); SetIndexLabel(0,"Ind"); SetIndexLabel(1,"AC"); SetIndexLabel(2,"DC"); return(0); } //+------------------------------------------------------------------+ //| Custor indicator deinitialization function | //+------------------------------------------------------------------+ int deinit() { //---- //---- return(0); } //+------------------------------------------------------------------+ //| Custom indicator iteration function | //+------------------------------------------------------------------+ int start() { int counted_bars=IndicatorCounted(); //---- // variable definitions bool firstTime=True; int AccountedBars=0; int jj=0; int ii=0; int shift=0; double series=0; //---- double vv=0; double v1=0; double v2=0; double v3=0; double v4=0; double s8=0; double s10=0; double s18=0; double s20=0; int v5=0; int v6=0; double s28=0; double s30=0; int s38=0; int s40=0; int s48=0; int s50=0; int s58=0; int s60=0; double s68=0; double s70=0; double f8=0; double f10=0; double f18=0; double f20=0; double f28=0; double f30=0; double f38=0; double f40=0; double f48=0; double f50=0; double f58=0; double f60=0; double f68=0; double f70=0; double f78=0; double f80=0; double f88=0; double f90=0; double f98=0; double fA0=0; double fA8=0; double fB0=0; double fB8=0; double fC0=0; double fC8=0; double fD0=0; double f0=0; double fD8=0; double fE0=0; double fE8=0; int fF0=0; double fF8=0; int value2=0; double JMA=0; //---- double list[127]; double ring1[127]; double ring2[10]; double buffer[61]; //---- ArrayInitialize(list,0); ArrayInitialize(ring1,0); ArrayInitialize(ring2,0); ArrayInitialize(buffer,0); //---- if (firstTime) { AccountedBars=Bars-BarCount; firstTime=False; } //SetLoopCount(0); { s28=63; s30=64; for( ii=1;ii<=s28;ii++) { list[ii]=-1000000; } for( ii=s30;ii<=127 ;ii++ ) { list[ii]=1000000; } f0=1; } //---- for( shift=BarCount;shift>=0;shift-- ) { { switch(Ind) { case 1: a1 = iMA(NULL,0,Per1,0,Method1,Price1,shift);break;//MA case 2: a1 = iMA(NULL,0,Per2,0,Method2,Price2,shift)-iMA(NULL,0,Per1,0,Method1,Price1,shift);break;//MACD case 3: a1 = (iMA(NULL,0,(Per1/2),0,3,Price1,shift)*2)-iMA(NULL,0,Per1,0,3,Price1,shift);break;//HULL MA case 4: a1 = ((iMA(NULL,0,(Per2/2),0,Method2,Price2,shift)*2)-iMA(NULL,0,Per2,0,Method2,Price2,shift)) -((iMA(NULL,0,(Per1/2),0,Method1,Price1,shift)*2)-iMA(NULL,0,Per1,0,Method1,Price1,shift));break;//HULL MACD case 5: a1 = (iMA(NULL,0,Per1,0,0,Price1,shift)*3)-(iMA(NULL,0,Per1,0,3,Price1,shift)*2);break;//LRMA MA case 6: a1 = ((iMA(NULL,0,Per2,0,0,Price2,shift)*3)-(iMA(NULL,0,Per2,0,3,Price2,shift)*2)) -((iMA(NULL,0,Per1,0,0,Price1,shift)*3)-(iMA(NULL,0,Per1,0,3,Price1,shift)*2));break;//LRMA MACD case 7: a1 = iRSI(NULL,0,Per1,Price1,shift)-50;break; case 8: a1 = (iRSI(NULL,0,Per2,Price1,shift)-50)-(iRSI(NULL,0,Per1,Price1,shift)-50);break; case 9: a1 = iMFI(NULL,0,Per1,shift)-50;break; case 10: a1 = (iMFI(NULL,0,Per2,shift)-50)-(iMFI(NULL,0,Per1,shift)-50);break; case 11: a1 = iMomentum(NULL,0,Per1,Price1,shift)-100;break; case 12: a1 = iDeMarker(NULL,0,Per1,shift)-0.5;break; case 13: a1 = iADX(NULL,0,Per1,0,1,shift)-iADX(NULL,0,Per1,0,2,shift);break; case 14: a1 = iADX(NULL,0,Per1,0,0,shift);break; case 15: a1 = iADX(NULL,0,Per1,0,1,shift);break; case 16: a1 = iADX(NULL,0,Per1,0,2,shift);break; case 17: a1 = iWPR(NULL,0,Per1,shift)+50;break; case 18: a1 = iCCI(NULL,0,Per1,Price1,shift);break; case 19: a1 = iAD(NULL,0,shift);break; case 20: a1 = iATR(NULL,0,Per1,shift);break; case 21: a1 = iOBV(NULL,0,Price1,shift);break; case 22: a1 = iStdDev(NULL,0,Per1,0,Method1,Price1,shift);break; case 23: a1 = iRVI(NULL,0,Per1,0,shift);break; case 24: double X = Per1/2+1 ;a1 = Close[shift] - iMA(NULL, 0, Per1, X, Method1, Price1, shift);break;//DPO case 25: a1 = iAO(NULL,0,shift);break; case 26: a1 = iAC(NULL,0,shift);break; case 27: a1 = (0.4360409450*Close[shift+0]+0.3658689069*Close[shift+1]+0.2460452079*Close[shift+2]+0.1104506886*Close[shift+3] -0.0054034585*Close[shift+4]-0.0760367731*Close[shift+5]-0.0933058722*Close[shift+6]-0.0670110374*Close[shift+7] -0.0190795053*Close[shift+8]+0.0259609206*Close[shift+9]+0.0502044896*Close[shift+10]+0.0477818607*Close[shift+11] +0.0249252327*Close[shift+12]-0.0047706151*Close[shift+13]-0.0272432537*Close[shift+14]-0.0338917071*Close[shift+15] -0.0244141482*Close[shift+16]-0.0055774838*Close[shift+17]+0.0128149838*Close[shift+18]+0.0226522218*Close[shift+19] +0.0208778257*Close[shift+20]+0.0100299086*Close[shift+21]-0.0036771622*Close[shift+22]-0.0136744850*Close[shift+23] -0.0160483392*Close[shift+24]-0.0108597376*Close[shift+25]-0.0016060704*Close[shift+26]+0.0069480557*Close[shift+27] +0.0110573605*Close[shift+28]+0.0095711419*Close[shift+29]+0.0040444064*Close[shift+30]-0.0023824623*Close[shift+31] -0.0067093714*Close[shift+32]-0.0072003400*Close[shift+33]-0.0047717710*Close[shift+34]+0.0005541115*Close[shift+35] +0.0007860160*Close[shift+36]+0.0130129076*Close[shift+37]+0.0040364019*Close[shift+38]);break;//FATL case 28: a1 = (0.0982862174*Close[shift+0]+0.0975682269*Close[shift+1]+0.0961401078*Close[shift+2]+0.0940230544*Close[shift+3] +0.0912437090*Close[shift+4]+0.0878391006*Close[shift+5]+0.0838544303*Close[shift+6]+0.0793406350*Close[shift+7] +0.0743569346*Close[shift+8]+0.0689666682*Close[shift+9]+0.0632381578*Close[shift+10]+0.0572428925*Close[shift+11] +0.0510534242*Close[shift+12]+0.0447468229*Close[shift+13]+0.0383959950*Close[shift+14]+0.0320735368*Close[shift+15] +0.0258537721*Close[shift+16]+0.0198005183*Close[shift+17]+0.0139807863*Close[shift+18]+0.0084512448*Close[shift+19] +0.0032639979*Close[shift+20]-0.0015350359*Close[shift+21]-0.0059060082*Close[shift+22]-0.0098190256*Close[shift+23] -0.0132507215*Close[shift+24]-0.0161875265*Close[shift+25]-0.0186164872*Close[shift+26]-0.0205446727*Close[shift+27] -0.0219739146*Close[shift+28]-0.0229204861*Close[shift+29]-0.0234080863*Close[shift+30]-0.0234566315*Close[shift+31] -0.0231017777*Close[shift+32]-0.0223796900*Close[shift+33]-0.0213300463*Close[shift+34]-0.0199924534*Close[shift+35] -0.0184126992*Close[shift+36]-0.0166377699*Close[shift+37]-0.0147139428*Close[shift+38]-0.0126796776*Close[shift+39] -0.0105938331*Close[shift+40]-0.0084736770*Close[shift+41]-0.0063841850*Close[shift+42]-0.0043466731*Close[shift+43] -0.0023956944*Close[shift+44]-0.0005535180*Close[shift+45]+0.0011421469*Close[shift+46]+0.0026845693*Close[shift+47] +0.0040471369*Close[shift+48]+0.0052380201*Close[shift+49]+0.0062194591*Close[shift+50]+0.0070340085*Close[shift+51] +0.0076266453*Close[shift+52]+0.0080376628*Close[shift+53]+0.0083037666*Close[shift+54]+0.0083694798*Close[shift+55] +0.0082901022*Close[shift+56]+0.0080741359*Close[shift+57]+0.0077543820*Close[shift+58]+0.0073260526*Close[shift+59] +0.0068163569*Close[shift+60]+0.0062325477*Close[shift+61]+0.0056078229*Close[shift+62]+0.0049516078*Close[shift+63] +0.0161380976*Close[shift+64]);break;//SATL case 29: a1 = Close[shift] - (0.4360409450*Close[shift+0]+0.3658689069*Close[shift+1]+0.2460452079*Close[shift+2]+0.1104506886*Close[shift+3] -0.0054034585*Close[shift+4]-0.0760367731*Close[shift+5]-0.0933058722*Close[shift+6]-0.0670110374*Close[shift+7] -0.0190795053*Close[shift+8]+0.0259609206*Close[shift+9]+0.0502044896*Close[shift+10]+0.0477818607*Close[shift+11] +0.0249252327*Close[shift+12]-0.0047706151*Close[shift+13]-0.0272432537*Close[shift+14]-0.0338917071*Close[shift+15] -0.0244141482*Close[shift+16]-0.0055774838*Close[shift+17]+0.0128149838*Close[shift+18]+0.0226522218*Close[shift+19] +0.0208778257*Close[shift+20]+0.0100299086*Close[shift+21]-0.0036771622*Close[shift+22]-0.0136744850*Close[shift+23] -0.0160483392*Close[shift+24]-0.0108597376*Close[shift+25]-0.0016060704*Close[shift+26]+0.0069480557*Close[shift+27] +0.0110573605*Close[shift+28]+0.0095711419*Close[shift+29]+0.0040444064*Close[shift+30]-0.0023824623*Close[shift+31] -0.0067093714*Close[shift+32]-0.0072003400*Close[shift+33]-0.0047717710*Close[shift+34]+0.0005541115*Close[shift+35] +0.0007860160*Close[shift+36]+0.0130129076*Close[shift+37]+0.0040364019*Close[shift+38]);break;//PCCI-FATL case 30: a1 = Close[shift] - (0.0982862174*Close[shift+0]+0.0975682269*Close[shift+1]+0.0961401078*Close[shift+2]+0.0940230544*Close[shift+3] +0.0912437090*Close[shift+4]+0.0878391006*Close[shift+5]+0.0838544303*Close[shift+6]+0.0793406350*Close[shift+7] +0.0743569346*Close[shift+8]+0.0689666682*Close[shift+9]+0.0632381578*Close[shift+10]+0.0572428925*Close[shift+11] +0.0510534242*Close[shift+12]+0.0447468229*Close[shift+13]+0.0383959950*Close[shift+14]+0.0320735368*Close[shift+15] +0.0258537721*Close[shift+16]+0.0198005183*Close[shift+17]+0.0139807863*Close[shift+18]+0.0084512448*Close[shift+19] +0.0032639979*Close[shift+20]-0.0015350359*Close[shift+21]-0.0059060082*Close[shift+22]-0.0098190256*Close[shift+23] -0.0132507215*Close[shift+24]-0.0161875265*Close[shift+25]-0.0186164872*Close[shift+26]-0.0205446727*Close[shift+27] -0.0219739146*Close[shift+28]-0.0229204861*Close[shift+29]-0.0234080863*Close[shift+30]-0.0234566315*Close[shift+31] -0.0231017777*Close[shift+32]-0.0223796900*Close[shift+33]-0.0213300463*Close[shift+34]-0.0199924534*Close[shift+35] -0.0184126992*Close[shift+36]-0.0166377699*Close[shift+37]-0.0147139428*Close[shift+38]-0.0126796776*Close[shift+39] -0.0105938331*Close[shift+40]-0.0084736770*Close[shift+41]-0.0063841850*Close[shift+42]-0.0043466731*Close[shift+43] -0.0023956944*Close[shift+44]-0.0005535180*Close[shift+45]+0.0011421469*Close[shift+46]+0.0026845693*Close[shift+47] +0.0040471369*Close[shift+48]+0.0052380201*Close[shift+49]+0.0062194591*Close[shift+50]+0.0070340085*Close[shift+51] +0.0076266453*Close[shift+52]+0.0080376628*Close[shift+53]+0.0083037666*Close[shift+54]+0.0083694798*Close[shift+55] +0.0082901022*Close[shift+56]+0.0080741359*Close[shift+57]+0.0077543820*Close[shift+58]+0.0073260526*Close[shift+59] +0.0068163569*Close[shift+60]+0.0062325477*Close[shift+61]+0.0056078229*Close[shift+62]+0.0049516078*Close[shift+63] +0.0161380976*Close[shift+64]);break;//PCCI-SATL case 31: a1 = Close[shift] - (-0.0025097319*Close[shift+0]+0.0513007762*Close[shift+1]+0.1142800493*Close[shift+2]+0.1699342860*Close[shift+3] +0.2025269304*Close[shift+4]+0.2025269304*Close[shift+5]+0.1699342860*Close[shift+6]+0.1142800493*Close[shift+7] +0.0513007762*Close[shift+8]-0.0025097319*Close[shift+9]-0.0353166244*Close[shift+10]-0.0433375629*Close[shift+11] -0.0311244617*Close[shift+12]-0.0088618137*Close[shift+13]+0.0120580088*Close[shift+14]+0.0233183633*Close[shift+15] +0.0221931304*Close[shift+16]+0.0115769653*Close[shift+17]-0.0022157966*Close[shift+18]-0.0126536111*Close[shift+19] -0.0157416029*Close[shift+20]-0.0113395830*Close[shift+21]-0.0025905610*Close[shift+22]+0.0059521459*Close[shift+23] +0.0105212252*Close[shift+24]+0.0096970755*Close[shift+25]+0.0046585685*Close[shift+26]-0.0017079230*Close[shift+27] -0.0063513565*Close[shift+28]-0.0074539350*Close[shift+29]-0.0050439973*Close[shift+30]-0.0007459678*Close[shift+31] +0.0032271474*Close[shift+32]+0.0051357867*Close[shift+33]+0.0044454862*Close[shift+34]+0.0018784961*Close[shift+35] -0.0011065767*Close[shift+36]-0.0031162862*Close[shift+37]-0.0033443253*Close[shift+38]-0.0022163335*Close[shift+39] +0.0002573669*Close[shift+40]+0.0003650790*Close[shift+41]+0.0060440751*Close[shift+42] +0.0018747783*Close[shift+43]);break;//PCCI-RFTL case 32: a1 = Close[shift] - (-0.00514293*Close[shift+0]-0.00398417*Close[shift+1]-0.00262594*Close[shift+2]-0.00107121*Close[shift+3] +0.00066887*Close[shift+4]+0.00258172*Close[shift+5]+0.00465269*Close[shift+6]+0.00686394*Close[shift+7] +0.00919334*Close[shift+8]+0.01161720*Close[shift+9]+0.01411056*Close[shift+10]+0.01664635*Close[shift+11] +0.01919533*Close[shift+12]+0.02172747*Close[shift+13]+0.02421320*Close[shift+14]+0.02662203*Close[shift+15] +0.02892446*Close[shift+16]+0.03109071*Close[shift+17]+0.03309496*Close[shift+18]+0.03490921*Close[shift+19] +0.03651145*Close[shift+20]+0.03788045*Close[shift+21]+0.03899804*Close[shift+22]+0.03984915*Close[shift+23] +0.04042329*Close[shift+24]+0.04071263*Close[shift+25]+0.04071263*Close[shift+26]+0.04042329*Close[shift+27] +0.03984915*Close[shift+28]+0.03899804*Close[shift+29]+0.03788045*Close[shift+30]+0.03651145*Close[shift+31] +0.03490921*Close[shift+32]+0.03309496*Close[shift+33]+0.03109071*Close[shift+34]+0.02892446*Close[shift+35] +0.02662203*Close[shift+36]+0.02421320*Close[shift+37]+0.02172747*Close[shift+38]+0.01919533*Close[shift+39] +0.01664635*Close[shift+40]+0.01411056*Close[shift+41]+0.01161720*Close[shift+42]+0.00919334*Close[shift+43] +0.00686394*Close[shift+44]+0.00465269*Close[shift+45]+0.00258172*Close[shift+46]+0.00066887*Close[shift+47] -0.00107121*Close[shift+48]-0.00262594*Close[shift+49]-0.00398417*Close[shift+50]-0.00514293*Close[shift+51] -0.00609634*Close[shift+52]-0.00684602*Close[shift+53]-0.00739452*Close[shift+54]-0.00774847*Close[shift+55] -0.00791630*Close[shift+56]-0.00790940*Close[shift+57]-0.00774085*Close[shift+58]-0.00742482*Close[shift+59] -0.00697718*Close[shift+60]-0.00641613*Close[shift+61]-0.00576108*Close[shift+62]-0.00502957*Close[shift+63] -0.00423873*Close[shift+64]-0.00340812*Close[shift+65]-0.00255923*Close[shift+66]-0.00170217*Close[shift+67] -0.00085902*Close[shift+68]-0.00004113*Close[shift+69]+0.00073700*Close[shift+70]+0.00146422*Close[shift+71] +0.00213007*Close[shift+72]+0.00272649*Close[shift+73]+0.00324752*Close[shift+74]+0.00368922*Close[shift+75] +0.00405000*Close[shift+76]+0.00433024*Close[shift+77]+0.00453068*Close[shift+78]+0.00465046*Close[shift+79] +0.00469058*Close[shift+80]+0.00466041*Close[shift+81]+0.00457855*Close[shift+82]+0.00442491*Close[shift+83] +0.00423019*Close[shift+84]+0.00399201*Close[shift+85]+0.00372169*Close[shift+86]+0.00342736*Close[shift+87] +0.00311822*Close[shift+88]+0.00280309*Close[shift+89]+0.00249088*Close[shift+90]+0.00219089*Close[shift+91] +0.00191283*Close[shift+92]+0.00166683*Close[shift+93]+0.00146419*Close[shift+94]+0.00131867*Close[shift+95] +0.00124645*Close[shift+96]+0.00126836*Close[shift+97]-0.00401854*Close[shift+98]);break;//PCCI-RSTL case 33: a1 = Close[shift] - (0.36423990*Close[shift+0]+0.33441085*Close[shift+1]+0.25372851*Close[shift+2]+0.14548806*Close[shift+3] +0.03934469*Close[shift+4]-0.03871426*Close[shift+5]-0.07451349*Close[shift+6]-0.06903411*Close[shift+7] -0.03611022*Close[shift+8]+0.00422528*Close[shift+9]+0.03382809*Close[shift+10]+0.04267885*Close[shift+11] +0.03120441*Close[shift+12]+0.00816037*Close[shift+13]-0.01442877*Close[shift+14]-0.02678947*Close[shift+15] -0.02525534*Close[shift+16]-0.01272910*Close[shift+17]+0.00350063*Close[shift+18]+0.01565175*Close[shift+19] +0.01895659*Close[shift+20]+0.01328613*Close[shift+21]+0.00252297*Close[shift+22]-0.00775517*Close[shift+23] -0.01301467*Close[shift+24]-0.01164808*Close[shift+25]-0.00527241*Close[shift+26]+0.00248750*Close[shift+27] +0.00793380*Close[shift+28]+0.00897632*Close[shift+29]+0.00583939*Close[shift+30]+0.00059669*Close[shift+31] -0.00405186*Close[shift+32]-0.00610944*Close[shift+33]-0.00509042*Close[shift+34]-0.00198138*Close[shift+35] +0.00144873*Close[shift+36]+0.00373774*Close[shift+37]+0.01047723*Close[shift+38] -0.00022625*Close[shift+39]);break;//PCCI-RBCI(1) case 34: a1 = Close[shift] - (0.08269258*Close[shift+0]+0.08210489*Close[shift+1]+0.08093874*Close[shift+2]+0.07921003*Close[shift+3] +0.07694005*Close[shift+4]+0.07415944*Close[shift+5]+0.07090508*Close[shift+6]+0.06722010*Close[shift+7] +0.06314921*Close[shift+8]+0.05874928*Close[shift+9]+0.05407277*Close[shift+10]+0.04918011*Close[shift+11] +0.04413127*Close[shift+12]+0.03898817*Close[shift+13]+0.03381087*Close[shift+14]+0.02866037*Close[shift+15] +0.02359602*Close[shift+16]+0.01867285*Close[shift+17]+0.01394154*Close[shift+18]+0.00945020*Close[shift+19] +0.00524380*Close[shift+20]+0.00135856*Close[shift+21]-0.00217576*Close[shift+22]-0.00533362*Close[shift+23] -0.00809235*Close[shift+24]-0.01044596*Close[shift+25]-0.01238246*Close[shift+26]-0.01390515*Close[shift+27] -0.01501922*Close[shift+28]-0.01573813*Close[shift+29]-0.01607903*Close[shift+30]-0.01606501*Close[shift+31] -0.01572265*Close[shift+32]-0.01508076*Close[shift+33]-0.01417155*Close[shift+34]-0.01303199*Close[shift+35] -0.01170149*Close[shift+36]-0.01021570*Close[shift+37]-0.00860941*Close[shift+38]-0.00692232*Close[shift+39] -0.00519812*Close[shift+40]-0.00345733*Close[shift+41]-0.00174477*Close[shift+42]-0.00008354*Close[shift+43] +0.00149695*Close[shift+44]+0.00297402*Close[shift+45]+0.00432644*Close[shift+46]+0.00553786*Close[shift+47] +0.00659613*Close[shift+48]+0.00749328*Close[shift+49]+0.00822608*Close[shift+50]+0.00879528*Close[shift+51] +0.00920238*Close[shift+52]+0.00944568*Close[shift+53]+0.00952717*Close[shift+54]+0.00946588*Close[shift+55] +0.00929962*Close[shift+56]+0.00898757*Close[shift+57]+0.00859207*Close[shift+58]+0.00810829*Close[shift+59] +0.00755924*Close[shift+60]+0.00696141*Close[shift+61]+0.00633350*Close[shift+62]+0.00569343*Close[shift+63] +0.00505929*Close[shift+64]+0.00444999*Close[shift+65]+0.00388521*Close[shift+66]+0.00338555*Close[shift+67] +0.00297397*Close[shift+68]+0.00267839*Close[shift+69]+0.00253170*Close[shift+70]+0.00257620*Close[shift+71] -0.00816217*Close[shift+72]);break;//PCCI-RBCI(2) case 35: a1 = (0.4360409450*Close[shift+0]+0.3658689069*Close[shift+1]+0.2460452079*Close[shift+2]+0.1104506886*Close[shift+3] -0.0054034585*Close[shift+4]-0.0760367731*Close[shift+5]-0.0933058722*Close[shift+6]-0.0670110374*Close[shift+7] -0.0190795053*Close[shift+8]+0.0259609206*Close[shift+9]+0.0502044896*Close[shift+10]+0.0477818607*Close[shift+11] +0.0249252327*Close[shift+12]-0.0047706151*Close[shift+13]-0.0272432537*Close[shift+14]-0.0338917071*Close[shift+15] -0.0244141482*Close[shift+16]-0.0055774838*Close[shift+17]+0.0128149838*Close[shift+18]+0.0226522218*Close[shift+19] +0.0208778257*Close[shift+20]+0.0100299086*Close[shift+21]-0.0036771622*Close[shift+22]-0.0136744850*Close[shift+23] -0.0160483392*Close[shift+24]-0.0108597376*Close[shift+25]-0.0016060704*Close[shift+26]+0.0069480557*Close[shift+27] +0.0110573605*Close[shift+28]+0.0095711419*Close[shift+29]+0.0040444064*Close[shift+30]-0.0023824623*Close[shift+31] -0.0067093714*Close[shift+32]-0.0072003400*Close[shift+33]-0.0047717710*Close[shift+34]+0.0005541115*Close[shift+35] +0.0007860160*Close[shift+36]+0.0130129076*Close[shift+37]+0.0040364019*Close[shift+38])- (0.0982862174*Close[shift+0]+0.0975682269*Close[shift+1]+0.0961401078*Close[shift+2]+0.0940230544*Close[shift+3] +0.0912437090*Close[shift+4]+0.0878391006*Close[shift+5]+0.0838544303*Close[shift+6]+0.0793406350*Close[shift+7] +0.0743569346*Close[shift+8]+0.0689666682*Close[shift+9]+0.0632381578*Close[shift+10]+0.0572428925*Close[shift+11] +0.0510534242*Close[shift+12]+0.0447468229*Close[shift+13]+0.0383959950*Close[shift+14]+0.0320735368*Close[shift+15] +0.0258537721*Close[shift+16]+0.0198005183*Close[shift+17]+0.0139807863*Close[shift+18]+0.0084512448*Close[shift+19] +0.0032639979*Close[shift+20]-0.0015350359*Close[shift+21]-0.0059060082*Close[shift+22]-0.0098190256*Close[shift+23] -0.0132507215*Close[shift+24]-0.0161875265*Close[shift+25]-0.0186164872*Close[shift+26]-0.0205446727*Close[shift+27] -0.0219739146*Close[shift+28]-0.0229204861*Close[shift+29]-0.0234080863*Close[shift+30]-0.0234566315*Close[shift+31] -0.0231017777*Close[shift+32]-0.0223796900*Close[shift+33]-0.0213300463*Close[shift+34]-0.0199924534*Close[shift+35] -0.0184126992*Close[shift+36]-0.0166377699*Close[shift+37]-0.0147139428*Close[shift+38]-0.0126796776*Close[shift+39] -0.0105938331*Close[shift+40]-0.0084736770*Close[shift+41]-0.0063841850*Close[shift+42]-0.0043466731*Close[shift+43] -0.0023956944*Close[shift+44]-0.0005535180*Close[shift+45]+0.0011421469*Close[shift+46]+0.0026845693*Close[shift+47] +0.0040471369*Close[shift+48]+0.0052380201*Close[shift+49]+0.0062194591*Close[shift+50]+0.0070340085*Close[shift+51] +0.0076266453*Close[shift+52]+0.0080376628*Close[shift+53]+0.0083037666*Close[shift+54]+0.0083694798*Close[shift+55] +0.0082901022*Close[shift+56]+0.0080741359*Close[shift+57]+0.0077543820*Close[shift+58]+0.0073260526*Close[shift+59] +0.0068163569*Close[shift+60]+0.0062325477*Close[shift+61]+0.0056078229*Close[shift+62]+0.0049516078*Close[shift+63] +0.0161380976*Close[shift+64]);break;//FATL-SATL case 36: a1 = (0.4360409450*Close[shift+0]+0.3658689069*Close[shift+1]+0.2460452079*Close[shift+2]+0.1104506886*Close[shift+3] -0.0054034585*Close[shift+4]-0.0760367731*Close[shift+5]-0.0933058722*Close[shift+6]-0.0670110374*Close[shift+7] -0.0190795053*Close[shift+8]+0.0259609206*Close[shift+9]+0.0502044896*Close[shift+10]+0.0477818607*Close[shift+11] +0.0249252327*Close[shift+12]-0.0047706151*Close[shift+13]-0.0272432537*Close[shift+14]-0.0338917071*Close[shift+15] -0.0244141482*Close[shift+16]-0.0055774838*Close[shift+17]+0.0128149838*Close[shift+18]+0.0226522218*Close[shift+19] +0.0208778257*Close[shift+20]+0.0100299086*Close[shift+21]-0.0036771622*Close[shift+22]-0.0136744850*Close[shift+23] -0.0160483392*Close[shift+24]-0.0108597376*Close[shift+25]-0.0016060704*Close[shift+26]+0.0069480557*Close[shift+27] +0.0110573605*Close[shift+28]+0.0095711419*Close[shift+29]+0.0040444064*Close[shift+30]-0.0023824623*Close[shift+31] -0.0067093714*Close[shift+32]-0.0072003400*Close[shift+33]-0.0047717710*Close[shift+34]+0.0005541115*Close[shift+35] +0.0007860160*Close[shift+36]+0.0130129076*Close[shift+37]+0.0040364019*Close[shift+38])- (-0.0025097319*Close[shift+0]+0.0513007762*Close[shift+1]+0.1142800493*Close[shift+2]+0.1699342860*Close[shift+3] +0.2025269304*Close[shift+4]+0.2025269304*Close[shift+5]+0.1699342860*Close[shift+6]+0.1142800493*Close[shift+7] +0.0513007762*Close[shift+8]-0.0025097319*Close[shift+9]-0.0353166244*Close[shift+10]-0.0433375629*Close[shift+11] -0.0311244617*Close[shift+12]-0.0088618137*Close[shift+13]+0.0120580088*Close[shift+14]+0.0233183633*Close[shift+15] +0.0221931304*Close[shift+16]+0.0115769653*Close[shift+17]-0.0022157966*Close[shift+18]-0.0126536111*Close[shift+19] -0.0157416029*Close[shift+20]-0.0113395830*Close[shift+21]-0.0025905610*Close[shift+22]+0.0059521459*Close[shift+23] +0.0105212252*Close[shift+24]+0.0096970755*Close[shift+25]+0.0046585685*Close[shift+26]-0.0017079230*Close[shift+27] -0.0063513565*Close[shift+28]-0.0074539350*Close[shift+29]-0.0050439973*Close[shift+30]-0.0007459678*Close[shift+31] +0.0032271474*Close[shift+32]+0.0051357867*Close[shift+33]+0.0044454862*Close[shift+34]+0.0018784961*Close[shift+35] -0.0011065767*Close[shift+36]-0.0031162862*Close[shift+37]-0.0033443253*Close[shift+38]-0.0022163335*Close[shift+39] +0.0002573669*Close[shift+40]+0.0003650790*Close[shift+41]+0.0060440751*Close[shift+42] +0.0018747783*Close[shift+43]);break;//FTLM case 37: a1 = (0.0982862174*Close[shift+0]+0.0975682269*Close[shift+1]+0.0961401078*Close[shift+2]+0.0940230544*Close[shift+3] +0.0912437090*Close[shift+4]+0.0878391006*Close[shift+5]+0.0838544303*Close[shift+6]+0.0793406350*Close[shift+7] +0.0743569346*Close[shift+8]+0.0689666682*Close[shift+9]+0.0632381578*Close[shift+10]+0.0572428925*Close[shift+11] +0.0510534242*Close[shift+12]+0.0447468229*Close[shift+13]+0.0383959950*Close[shift+14]+0.0320735368*Close[shift+15] +0.0258537721*Close[shift+16]+0.0198005183*Close[shift+17]+0.0139807863*Close[shift+18]+0.0084512448*Close[shift+19] +0.0032639979*Close[shift+20]-0.0015350359*Close[shift+21]-0.0059060082*Close[shift+22]-0.0098190256*Close[shift+23] -0.0132507215*Close[shift+24]-0.0161875265*Close[shift+25]-0.0186164872*Close[shift+26]-0.0205446727*Close[shift+27] -0.0219739146*Close[shift+28]-0.0229204861*Close[shift+29]-0.0234080863*Close[shift+30]-0.0234566315*Close[shift+31] -0.0231017777*Close[shift+32]-0.0223796900*Close[shift+33]-0.0213300463*Close[shift+34]-0.0199924534*Close[shift+35] -0.0184126992*Close[shift+36]-0.0166377699*Close[shift+37]-0.0147139428*Close[shift+38]-0.0126796776*Close[shift+39] -0.0105938331*Close[shift+40]-0.0084736770*Close[shift+41]-0.0063841850*Close[shift+42]-0.0043466731*Close[shift+43] -0.0023956944*Close[shift+44]-0.0005535180*Close[shift+45]+0.0011421469*Close[shift+46]+0.0026845693*Close[shift+47] +0.0040471369*Close[shift+48]+0.0052380201*Close[shift+49]+0.0062194591*Close[shift+50]+0.0070340085*Close[shift+51] +0.0076266453*Close[shift+52]+0.0080376628*Close[shift+53]+0.0083037666*Close[shift+54]+0.0083694798*Close[shift+55] +0.0082901022*Close[shift+56]+0.0080741359*Close[shift+57]+0.0077543820*Close[shift+58]+0.0073260526*Close[shift+59] +0.0068163569*Close[shift+60]+0.0062325477*Close[shift+61]+0.0056078229*Close[shift+62]+0.0049516078*Close[shift+63] +0.0161380976*Close[shift+64])- (-0.00514293*Close[shift+0]-0.00398417*Close[shift+1]-0.00262594*Close[shift+2]-0.00107121*Close[shift+3] +0.00066887*Close[shift+4]+0.00258172*Close[shift+5]+0.00465269*Close[shift+6]+0.00686394*Close[shift+7] +0.00919334*Close[shift+8]+0.01161720*Close[shift+9]+0.01411056*Close[shift+10]+0.01664635*Close[shift+11] +0.01919533*Close[shift+12]+0.02172747*Close[shift+13]+0.02421320*Close[shift+14]+0.02662203*Close[shift+15] +0.02892446*Close[shift+16]+0.03109071*Close[shift+17]+0.03309496*Close[shift+18]+0.03490921*Close[shift+19] +0.03651145*Close[shift+20]+0.03788045*Close[shift+21]+0.03899804*Close[shift+22]+0.03984915*Close[shift+23] +0.04042329*Close[shift+24]+0.04071263*Close[shift+25]+0.04071263*Close[shift+26]+0.04042329*Close[shift+27] +0.03984915*Close[shift+28]+0.03899804*Close[shift+29]+0.03788045*Close[shift+30]+0.03651145*Close[shift+31] +0.03490921*Close[shift+32]+0.03309496*Close[shift+33]+0.03109071*Close[shift+34]+0.02892446*Close[shift+35] +0.02662203*Close[shift+36]+0.02421320*Close[shift+37]+0.02172747*Close[shift+38]+0.01919533*Close[shift+39] +0.01664635*Close[shift+40]+0.01411056*Close[shift+41]+0.01161720*Close[shift+42]+0.00919334*Close[shift+43] +0.00686394*Close[shift+44]+0.00465269*Close[shift+45]+0.00258172*Close[shift+46]+0.00066887*Close[shift+47] -0.00107121*Close[shift+48]-0.00262594*Close[shift+49]-0.00398417*Close[shift+50]-0.00514293*Close[shift+51] -0.00609634*Close[shift+52]-0.00684602*Close[shift+53]-0.00739452*Close[shift+54]-0.00774847*Close[shift+55] -0.00791630*Close[shift+56]-0.00790940*Close[shift+57]-0.00774085*Close[shift+58]-0.00742482*Close[shift+59] -0.00697718*Close[shift+60]-0.00641613*Close[shift+61]-0.00576108*Close[shift+62]-0.00502957*Close[shift+63] -0.00423873*Close[shift+64]-0.00340812*Close[shift+65]-0.00255923*Close[shift+66]-0.00170217*Close[shift+67] -0.00085902*Close[shift+68]-0.00004113*Close[shift+69]+0.00073700*Close[shift+70]+0.00146422*Close[shift+71] +0.00213007*Close[shift+72]+0.00272649*Close[shift+73]+0.00324752*Close[shift+74]+0.00368922*Close[shift+75] +0.00405000*Close[shift+76]+0.00433024*Close[shift+77]+0.00453068*Close[shift+78]+0.00465046*Close[shift+79] +0.00469058*Close[shift+80]+0.00466041*Close[shift+81]+0.00457855*Close[shift+82]+0.00442491*Close[shift+83] +0.00423019*Close[shift+84]+0.00399201*Close[shift+85]+0.00372169*Close[shift+86]+0.00342736*Close[shift+87] +0.00311822*Close[shift+88]+0.00280309*Close[shift+89]+0.00249088*Close[shift+90]+0.00219089*Close[shift+91] +0.00191283*Close[shift+92]+0.00166683*Close[shift+93]+0.00146419*Close[shift+94]+0.00131867*Close[shift+95] +0.00124645*Close[shift+96]+0.00126836*Close[shift+97]-0.00401854*Close[shift+98]);break;//STLM case 38: a1 = (0.36423990*Close[shift+0]+0.33441085*Close[shift+1]+0.25372851*Close[shift+2]+0.14548806*Close[shift+3] +0.03934469*Close[shift+4]-0.03871426*Close[shift+5]-0.07451349*Close[shift+6]-0.06903411*Close[shift+7] -0.03611022*Close[shift+8]+0.00422528*Close[shift+9]+0.03382809*Close[shift+10]+0.04267885*Close[shift+11] +0.03120441*Close[shift+12]+0.00816037*Close[shift+13]-0.01442877*Close[shift+14]-0.02678947*Close[shift+15] -0.02525534*Close[shift+16]-0.01272910*Close[shift+17]+0.00350063*Close[shift+18]+0.01565175*Close[shift+19] +0.01895659*Close[shift+20]+0.01328613*Close[shift+21]+0.00252297*Close[shift+22]-0.00775517*Close[shift+23] -0.01301467*Close[shift+24]-0.01164808*Close[shift+25]-0.00527241*Close[shift+26]+0.00248750*Close[shift+27] +0.00793380*Close[shift+28]+0.00897632*Close[shift+29]+0.00583939*Close[shift+30]+0.00059669*Close[shift+31] -0.00405186*Close[shift+32]-0.00610944*Close[shift+33]-0.00509042*Close[shift+34]-0.00198138*Close[shift+35] +0.00144873*Close[shift+36]+0.00373774*Close[shift+37]+0.01047723*Close[shift+38]-0.00022625*Close[shift+39])- (0.08269258*Close[shift+0]+0.08210489*Close[shift+1]+0.08093874*Close[shift+2]+0.07921003*Close[shift+3] +0.07694005*Close[shift+4]+0.07415944*Close[shift+5]+0.07090508*Close[shift+6]+0.06722010*Close[shift+7] +0.06314921*Close[shift+8]+0.05874928*Close[shift+9]+0.05407277*Close[shift+10]+0.04918011*Close[shift+11] +0.04413127*Close[shift+12]+0.03898817*Close[shift+13]+0.03381087*Close[shift+14]+0.02866037*Close[shift+15] +0.02359602*Close[shift+16]+0.01867285*Close[shift+17]+0.01394154*Close[shift+18]+0.00945020*Close[shift+19] +0.00524380*Close[shift+20]+0.00135856*Close[shift+21]-0.00217576*Close[shift+22]-0.00533362*Close[shift+23] -0.00809235*Close[shift+24]-0.01044596*Close[shift+25]-0.01238246*Close[shift+26]-0.01390515*Close[shift+27] -0.01501922*Close[shift+28]-0.01573813*Close[shift+29]-0.01607903*Close[shift+30]-0.01606501*Close[shift+31] -0.01572265*Close[shift+32]-0.01508076*Close[shift+33]-0.01417155*Close[shift+34]-0.01303199*Close[shift+35] -0.01170149*Close[shift+36]-0.01021570*Close[shift+37]-0.00860941*Close[shift+38]-0.00692232*Close[shift+39] -0.00519812*Close[shift+40]-0.00345733*Close[shift+41]-0.00174477*Close[shift+42]-0.00008354*Close[shift+43] +0.00149695*Close[shift+44]+0.00297402*Close[shift+45]+0.00432644*Close[shift+46]+0.00553786*Close[shift+47] +0.00659613*Close[shift+48]+0.00749328*Close[shift+49]+0.00822608*Close[shift+50]+0.00879528*Close[shift+51] +0.00920238*Close[shift+52]+0.00944568*Close[shift+53]+0.00952717*Close[shift+54]+0.00946588*Close[shift+55] +0.00929962*Close[shift+56]+0.00898757*Close[shift+57]+0.00859207*Close[shift+58]+0.00810829*Close[shift+59] +0.00755924*Close[shift+60]+0.00696141*Close[shift+61]+0.00633350*Close[shift+62]+0.00569343*Close[shift+63] +0.00505929*Close[shift+64]+0.00444999*Close[shift+65]+0.00388521*Close[shift+66]+0.00338555*Close[shift+67] +0.00297397*Close[shift+68]+0.00267839*Close[shift+69]+0.00253170*Close[shift+70]+0.00257620*Close[shift+71] -0.00816217*Close[shift+72]);break;//RBCI case 39: a1 = (0.36423990*Close[shift+0]+0.33441085*Close[shift+1]+0.25372851*Close[shift+2]+0.14548806*Close[shift+3] +0.03934469*Close[shift+4]-0.03871426*Close[shift+5]-0.07451349*Close[shift+6]-0.06903411*Close[shift+7] -0.03611022*Close[shift+8]+0.00422528*Close[shift+9]+0.03382809*Close[shift+10]+0.04267885*Close[shift+11] +0.03120441*Close[shift+12]+0.00816037*Close[shift+13]-0.01442877*Close[shift+14]-0.02678947*Close[shift+15] -0.02525534*Close[shift+16]-0.01272910*Close[shift+17]+0.00350063*Close[shift+18]+0.01565175*Close[shift+19] +0.01895659*Close[shift+20]+0.01328613*Close[shift+21]+0.00252297*Close[shift+22]-0.00775517*Close[shift+23] -0.01301467*Close[shift+24]-0.01164808*Close[shift+25]-0.00527241*Close[shift+26]+0.00248750*Close[shift+27] +0.00793380*Close[shift+28]+0.00897632*Close[shift+29]+0.00583939*Close[shift+30]+0.00059669*Close[shift+31] -0.00405186*Close[shift+32]-0.00610944*Close[shift+33]-0.00509042*Close[shift+34]-0.00198138*Close[shift+35] +0.00144873*Close[shift+36]+0.00373774*Close[shift+37]+0.01047723*Close[shift+38] -0.00022625*Close[shift+39]);break;//RBCI(1) case 40: a1 = (0.08269258*Close[shift+0]+0.08210489*Close[shift+1]+0.08093874*Close[shift+2]+0.07921003*Close[shift+3] +0.07694005*Close[shift+4]+0.07415944*Close[shift+5]+0.07090508*Close[shift+6]+0.06722010*Close[shift+7] +0.06314921*Close[shift+8]+0.05874928*Close[shift+9]+0.05407277*Close[shift+10]+0.04918011*Close[shift+11] +0.04413127*Close[shift+12]+0.03898817*Close[shift+13]+0.03381087*Close[shift+14]+0.02866037*Close[shift+15] +0.02359602*Close[shift+16]+0.01867285*Close[shift+17]+0.01394154*Close[shift+18]+0.00945020*Close[shift+19] +0.00524380*Close[shift+20]+0.00135856*Close[shift+21]-0.00217576*Close[shift+22]-0.00533362*Close[shift+23] -0.00809235*Close[shift+24]-0.01044596*Close[shift+25]-0.01238246*Close[shift+26]-0.01390515*Close[shift+27] -0.01501922*Close[shift+28]-0.01573813*Close[shift+29]-0.01607903*Close[shift+30]-0.01606501*Close[shift+31] -0.01572265*Close[shift+32]-0.01508076*Close[shift+33]-0.01417155*Close[shift+34]-0.01303199*Close[shift+35] -0.01170149*Close[shift+36]-0.01021570*Close[shift+37]-0.00860941*Close[shift+38]-0.00692232*Close[shift+39] -0.00519812*Close[shift+40]-0.00345733*Close[shift+41]-0.00174477*Close[shift+42]-0.00008354*Close[shift+43] +0.00149695*Close[shift+44]+0.00297402*Close[shift+45]+0.00432644*Close[shift+46]+0.00553786*Close[shift+47] +0.00659613*Close[shift+48]+0.00749328*Close[shift+49]+0.00822608*Close[shift+50]+0.00879528*Close[shift+51] +0.00920238*Close[shift+52]+0.00944568*Close[shift+53]+0.00952717*Close[shift+54]+0.00946588*Close[shift+55] +0.00929962*Close[shift+56]+0.00898757*Close[shift+57]+0.00859207*Close[shift+58]+0.00810829*Close[shift+59] +0.00755924*Close[shift+60]+0.00696141*Close[shift+61]+0.00633350*Close[shift+62]+0.00569343*Close[shift+63] +0.00505929*Close[shift+64]+0.00444999*Close[shift+65]+0.00388521*Close[shift+66]+0.00338555*Close[shift+67] +0.00297397*Close[shift+68]+0.00267839*Close[shift+69]+0.00253170*Close[shift+70]+0.00257620*Close[shift+71] -0.00816217*Close[shift+72]);break;//RBCI(2) case 41: a1 = (0.210642090317950000*Close[shift+00]+0.271656355551084000*Close[shift+01]+0.271656355551084000*Close[shift+02] +0.210642090317950000*Close[shift+03]+0.113366214899538000*Close[shift+04]+0.017339655129830400*Close[shift+05] -0.044811701929405100*Close[shift+06]-0.059474537088348700*Close[shift+07]-0.035754954878029800*Close[shift+08] +0.002270804329963180*Close[shift+09]+0.029697524121816400*Close[shift+10]+0.033281042507046500*Close[shift+11] +0.015981183265287400*Close[shift+12]-0.007862943901791450*Close[shift+13]-0.022723234810281000*Close[shift+14] -0.021095992789986800*Close[shift+15]-0.006603314272564040*Close[shift+16]+0.009881836012723110*Close[shift+17] +0.017854024794657900*Close[shift+18]+0.013524194354160800*Close[shift+19]+0.001241377137939080*Close[shift+20] -0.010266977018020800*Close[shift+21]-0.013862391185810200*Close[shift+22]-0.008248135223019260*Close[shift+23] +0.001954191195740410*Close[shift+24]+0.009730937704226890*Close[shift+25]+0.010434675351580300*Close[shift+26] +0.004416791230436310*Close[shift+27]-0.003756477431473020*Close[shift+28]-0.008634197655553740*Close[shift+29] -0.007475256109987750*Close[shift+30]-0.001663522884800100*Close[shift+31]+0.004584004921651760*Close[shift+32] +0.007235217324080300*Close[shift+33]+0.004975877012459140*Close[shift+34]-0.000223061318466289*Close[shift+35] -0.004725162649865770*Close[shift+36]-0.005722101672782540*Close[shift+37]-0.002953057716881230*Close[shift+38] +0.001407739624700190*Close[shift+39]+0.004393595974558090*Close[shift+40]+0.004245548609330800*Close[shift+41] +0.001397484055608480*Close[shift+42]-0.002025967830578520*Close[shift+43]-0.003772809896144160*Close[shift+44] -0.002911735497357070*Close[shift+45]-0.000292151553936419*Close[shift+46]+0.002210279441029960*Close[shift+47] +0.003012392996694690*Close[shift+48]+0.001805433970046320*Close[shift+49]-0.000400198804275733*Close[shift+50] -0.002084665438964100*Close[shift+51]-0.002255328667062000*Close[shift+52]-0.001000793323845250*Close[shift+53] +0.000712215248254048*Close[shift+54]+0.001797318361302890*Close[shift+55]+0.001728302950591050*Close[shift+56] +0.000662981267470111*Close[shift+57]-0.001261996942755200*Close[shift+58]-0.005642398702623070*Close[shift+59] +0.001765331663815800*Close[shift+60])- (-0.057943686277445900*Close[shift+00]-0.043658266634319700*Close[shift+01]+0.016893339337967300*Close[shift+02] +0.110448213843891000*Close[shift+03]+0.205220247113110000*Close[shift+04]+0.264664029548369000*Close[shift+05] +0.264664029548369000*Close[shift+06]+0.205220247113110000*Close[shift+07]+0.110448213843891000*Close[shift+08] +0.016893339337967300*Close[shift+09]-0.043658266634319700*Close[shift+10]-0.057943686277445900*Close[shift+11] -0.034834636631794200*Close[shift+12]+0.002212354734218340*Close[shift+13]+0.028933121721909400*Close[shift+14] +0.032424401776343200*Close[shift+15]+0.015569833996195800*Close[shift+16]-0.007660554868813180*Close[shift+17] -0.022138347829420900*Close[shift+18]-0.020552990368271800*Close[shift+19]-0.006433347602730440*Close[shift+20] +0.009627481503821010*Close[shift+21]+0.017394469333231100*Close[shift+22]+0.013176086997509700*Close[shift+23] +0.001209424586624090*Close[shift+24]-0.010002709133594700*Close[shift+25]-0.013505578777899800*Close[shift+26] -0.008035831519405070*Close[shift+27]+0.001903891095510710*Close[shift+28]+0.009480467257466930*Close[shift+29] +0.010166090979082400*Close[shift+30]+0.004303104789688430*Close[shift+31]-0.003659787203963280*Close[shift+32] -0.008411956859246820*Close[shift+33]-0.007282846005800100*Close[shift+34]-0.001620704470705190*Close[shift+35] +0.004466014467332310*Close[shift+36]+0.007048985722291220*Close[shift+37]+0.004847799927165300*Close[shift+38] -0.000217319809293247*Close[shift+39]-0.004603538852047050*Close[shift+40]-0.005574817063020290*Close[shift+41] -0.002877047191674200*Close[shift+42]+0.001371504969476030*Close[shift+43]+0.004280506570424680*Close[shift+44] +0.004136269885199370*Close[shift+45]+0.001361513374633290*Close[shift+46]-0.001973820228459360*Close[shift+47] -0.003675699277522370*Close[shift+48]-0.002836788589562860*Close[shift+49]-0.000284631689719810*Close[shift+50] +0.002153387731732640*Close[shift+51]+0.002934855205103340*Close[shift+52]+0.001758962821343280*Close[shift+53] -0.000389897847025107*Close[shift+54]-0.002031006983868290*Close[shift+55]-0.002197277408694140*Close[shift+56] -0.000975033303736501*Close[shift+57]+0.000693883112457725*Close[shift+58]+0.001751056105124850*Close[shift+59] +0.001683817123497210*Close[shift+60]+0.000645916394658871*Close[shift+61]-0.001229513645906610*Close[shift+62] -0.005497165615453070*Close[shift+63]+0.001719892732445040*Close[shift+64]);break;//DM_363 case 42: a1 = (0.210642090317950000*Close[shift+00]+0.271656355551084000*Close[shift+01]+0.271656355551084000*Close[shift+02] +0.210642090317950000*Close[shift+03]+0.113366214899538000*Close[shift+04]+0.017339655129830400*Close[shift+05] -0.044811701929405100*Close[shift+06]-0.059474537088348700*Close[shift+07]-0.035754954878029800*Close[shift+08] +0.002270804329963180*Close[shift+09]+0.029697524121816400*Close[shift+10]+0.033281042507046500*Close[shift+11] +0.015981183265287400*Close[shift+12]-0.007862943901791450*Close[shift+13]-0.022723234810281000*Close[shift+14] -0.021095992789986800*Close[shift+15]-0.006603314272564040*Close[shift+16]+0.009881836012723110*Close[shift+17] +0.017854024794657900*Close[shift+18]+0.013524194354160800*Close[shift+19]+0.001241377137939080*Close[shift+20] -0.010266977018020800*Close[shift+21]-0.013862391185810200*Close[shift+22]-0.008248135223019260*Close[shift+23] +0.001954191195740410*Close[shift+24]+0.009730937704226890*Close[shift+25]+0.010434675351580300*Close[shift+26] +0.004416791230436310*Close[shift+27]-0.003756477431473020*Close[shift+28]-0.008634197655553740*Close[shift+29] -0.007475256109987750*Close[shift+30]-0.001663522884800100*Close[shift+31]+0.004584004921651760*Close[shift+32] +0.007235217324080300*Close[shift+33]+0.004975877012459140*Close[shift+34]-0.000223061318466289*Close[shift+35] -0.004725162649865770*Close[shift+36]-0.005722101672782540*Close[shift+37]-0.002953057716881230*Close[shift+38] +0.001407739624700190*Close[shift+39]+0.004393595974558090*Close[shift+40]+0.004245548609330800*Close[shift+41] +0.001397484055608480*Close[shift+42]-0.002025967830578520*Close[shift+43]-0.003772809896144160*Close[shift+44] -0.002911735497357070*Close[shift+45]-0.000292151553936419*Close[shift+46]+0.002210279441029960*Close[shift+47] +0.003012392996694690*Close[shift+48]+0.001805433970046320*Close[shift+49]-0.000400198804275733*Close[shift+50] -0.002084665438964100*Close[shift+51]-0.002255328667062000*Close[shift+52]-0.001000793323845250*Close[shift+53] +0.000712215248254048*Close[shift+54]+0.001797318361302890*Close[shift+55]+0.001728302950591050*Close[shift+56] +0.000662981267470111*Close[shift+57]-0.001261996942755200*Close[shift+58]-0.005642398702623070*Close[shift+59] +0.001765331663815800*Close[shift+60]);break;//DM_363(1) case 43: a1 = (-0.057943686277445900*Close[shift+00]-0.043658266634319700*Close[shift+01]+0.016893339337967300*Close[shift+02] +0.110448213843891000*Close[shift+03]+0.205220247113110000*Close[shift+04]+0.264664029548369000*Close[shift+05] +0.264664029548369000*Close[shift+06]+0.205220247113110000*Close[shift+07]+0.110448213843891000*Close[shift+08] +0.016893339337967300*Close[shift+09]-0.043658266634319700*Close[shift+10]-0.057943686277445900*Close[shift+11] -0.034834636631794200*Close[shift+12]+0.002212354734218340*Close[shift+13]+0.028933121721909400*Close[shift+14] +0.032424401776343200*Close[shift+15]+0.015569833996195800*Close[shift+16]-0.007660554868813180*Close[shift+17] -0.022138347829420900*Close[shift+18]-0.020552990368271800*Close[shift+19]-0.006433347602730440*Close[shift+20] +0.009627481503821010*Close[shift+21]+0.017394469333231100*Close[shift+22]+0.013176086997509700*Close[shift+23] +0.001209424586624090*Close[shift+24]-0.010002709133594700*Close[shift+25]-0.013505578777899800*Close[shift+26] -0.008035831519405070*Close[shift+27]+0.001903891095510710*Close[shift+28]+0.009480467257466930*Close[shift+29] +0.010166090979082400*Close[shift+30]+0.004303104789688430*Close[shift+31]-0.003659787203963280*Close[shift+32] -0.008411956859246820*Close[shift+33]-0.007282846005800100*Close[shift+34]-0.001620704470705190*Close[shift+35] +0.004466014467332310*Close[shift+36]+0.007048985722291220*Close[shift+37]+0.004847799927165300*Close[shift+38] -0.000217319809293247*Close[shift+39]-0.004603538852047050*Close[shift+40]-0.005574817063020290*Close[shift+41] -0.002877047191674200*Close[shift+42]+0.001371504969476030*Close[shift+43]+0.004280506570424680*Close[shift+44] +0.004136269885199370*Close[shift+45]+0.001361513374633290*Close[shift+46]-0.001973820228459360*Close[shift+47] -0.003675699277522370*Close[shift+48]-0.002836788589562860*Close[shift+49]-0.000284631689719810*Close[shift+50] +0.002153387731732640*Close[shift+51]+0.002934855205103340*Close[shift+52]+0.001758962821343280*Close[shift+53] -0.000389897847025107*Close[shift+54]-0.002031006983868290*Close[shift+55]-0.002197277408694140*Close[shift+56] -0.000975033303736501*Close[shift+57]+0.000693883112457725*Close[shift+58]+0.001751056105124850*Close[shift+59] +0.001683817123497210*Close[shift+60]+0.000645916394658871*Close[shift+61]-0.001229513645906610*Close[shift+62] -0.005497165615453070*Close[shift+63]+0.001719892732445040*Close[shift+64]);break;//DM_363(2) case 44: a1 = Close[shift] - (0.210642090317950000*Close[shift+00]+0.271656355551084000*Close[shift+01]+0.271656355551084000*Close[shift+02] +0.210642090317950000*Close[shift+03]+0.113366214899538000*Close[shift+04]+0.017339655129830400*Close[shift+05] -0.044811701929405100*Close[shift+06]-0.059474537088348700*Close[shift+07]-0.035754954878029800*Close[shift+08] +0.002270804329963180*Close[shift+09]+0.029697524121816400*Close[shift+10]+0.033281042507046500*Close[shift+11] +0.015981183265287400*Close[shift+12]-0.007862943901791450*Close[shift+13]-0.022723234810281000*Close[shift+14] -0.021095992789986800*Close[shift+15]-0.006603314272564040*Close[shift+16]+0.009881836012723110*Close[shift+17] +0.017854024794657900*Close[shift+18]+0.013524194354160800*Close[shift+19]+0.001241377137939080*Close[shift+20] -0.010266977018020800*Close[shift+21]-0.013862391185810200*Close[shift+22]-0.008248135223019260*Close[shift+23] +0.001954191195740410*Close[shift+24]+0.009730937704226890*Close[shift+25]+0.010434675351580300*Close[shift+26] +0.004416791230436310*Close[shift+27]-0.003756477431473020*Close[shift+28]-0.008634197655553740*Close[shift+29] -0.007475256109987750*Close[shift+30]-0.001663522884800100*Close[shift+31]+0.004584004921651760*Close[shift+32] +0.007235217324080300*Close[shift+33]+0.004975877012459140*Close[shift+34]-0.000223061318466289*Close[shift+35] -0.004725162649865770*Close[shift+36]-0.005722101672782540*Close[shift+37]-0.002953057716881230*Close[shift+38] +0.001407739624700190*Close[shift+39]+0.004393595974558090*Close[shift+40]+0.004245548609330800*Close[shift+41] +0.001397484055608480*Close[shift+42]-0.002025967830578520*Close[shift+43]-0.003772809896144160*Close[shift+44] -0.002911735497357070*Close[shift+45]-0.000292151553936419*Close[shift+46]+0.002210279441029960*Close[shift+47] +0.003012392996694690*Close[shift+48]+0.001805433970046320*Close[shift+49]-0.000400198804275733*Close[shift+50] -0.002084665438964100*Close[shift+51]-0.002255328667062000*Close[shift+52]-0.001000793323845250*Close[shift+53] +0.000712215248254048*Close[shift+54]+0.001797318361302890*Close[shift+55]+0.001728302950591050*Close[shift+56] +0.000662981267470111*Close[shift+57]-0.001261996942755200*Close[shift+58]-0.005642398702623070*Close[shift+59] +0.001765331663815800*Close[shift+60]);break;//PCCI DM_363(1) case 45: a1 = Close[shift] - (-0.057943686277445900*Close[shift+00]-0.043658266634319700*Close[shift+01]+0.016893339337967300*Close[shift+02] +0.110448213843891000*Close[shift+03]+0.205220247113110000*Close[shift+04]+0.264664029548369000*Close[shift+05] +0.264664029548369000*Close[shift+06]+0.205220247113110000*Close[shift+07]+0.110448213843891000*Close[shift+08] +0.016893339337967300*Close[shift+09]-0.043658266634319700*Close[shift+10]-0.057943686277445900*Close[shift+11] -0.034834636631794200*Close[shift+12]+0.002212354734218340*Close[shift+13]+0.028933121721909400*Close[shift+14] +0.032424401776343200*Close[shift+15]+0.015569833996195800*Close[shift+16]-0.007660554868813180*Close[shift+17] -0.022138347829420900*Close[shift+18]-0.020552990368271800*Close[shift+19]-0.006433347602730440*Close[shift+20] +0.009627481503821010*Close[shift+21]+0.017394469333231100*Close[shift+22]+0.013176086997509700*Close[shift+23] +0.001209424586624090*Close[shift+24]-0.010002709133594700*Close[shift+25]-0.013505578777899800*Close[shift+26] -0.008035831519405070*Close[shift+27]+0.001903891095510710*Close[shift+28]+0.009480467257466930*Close[shift+29] +0.010166090979082400*Close[shift+30]+0.004303104789688430*Close[shift+31]-0.003659787203963280*Close[shift+32] -0.008411956859246820*Close[shift+33]-0.007282846005800100*Close[shift+34]-0.001620704470705190*Close[shift+35] +0.004466014467332310*Close[shift+36]+0.007048985722291220*Close[shift+37]+0.004847799927165300*Close[shift+38] -0.000217319809293247*Close[shift+39]-0.004603538852047050*Close[shift+40]-0.005574817063020290*Close[shift+41] -0.002877047191674200*Close[shift+42]+0.001371504969476030*Close[shift+43]+0.004280506570424680*Close[shift+44] +0.004136269885199370*Close[shift+45]+0.001361513374633290*Close[shift+46]-0.001973820228459360*Close[shift+47] -0.003675699277522370*Close[shift+48]-0.002836788589562860*Close[shift+49]-0.000284631689719810*Close[shift+50] +0.002153387731732640*Close[shift+51]+0.002934855205103340*Close[shift+52]+0.001758962821343280*Close[shift+53] -0.000389897847025107*Close[shift+54]-0.002031006983868290*Close[shift+55]-0.002197277408694140*Close[shift+56] -0.000975033303736501*Close[shift+57]+0.000693883112457725*Close[shift+58]+0.001751056105124850*Close[shift+59] +0.001683817123497210*Close[shift+60]+0.000645916394658871*Close[shift+61]-0.001229513645906610*Close[shift+62] -0.005497165615453070*Close[shift+63]+0.001719892732445040*Close[shift+64]);break;//PCCI DM_363(2) case 46: a1 = ((Close[shift]-Open[shift])+((Close[shift+1]-Open[shift+1])/MathSqrt(2))+ ((Close[shift+2]-Open[shift+2])/MathSqrt(3)))/Point;break;//FAST case 47: a1 = iForce(NULL,0,Per1,Method1,Price1,shift);break; case 48: a1 = iBullsPower(NULL,0,Per1,Price1,shift);break; case 49: a1 = iBearsPower(NULL,0,Per1,Price1,shift);break; case 50: a1 = (0.2149840610*Close[shift+0]+0.2065763732*Close[shift+1]+0.1903728890*Close[shift+2]+0.1675422436*Close[shift+3] +0.1397053150*Close[shift+4]+0.1087951881*Close[shift+5]+0.0768869405*Close[shift+6]+0.0460244906*Close[shift+7] +0.0180517395*Close[shift+8]-0.0055294579*Close[shift+9]-0.0236660212*Close[shift+10]-0.0358140055*Close[shift+11] -0.0419497760*Close[shift+12]-0.0425331450*Close[shift+13]-0.0384279507*Close[shift+14]-0.0307917433*Close[shift+15] -0.0209443384*Close[shift+16]-0.0102335925*Close[shift+17]+0.0000932767*Close[shift+18]+0.0089950015*Close[shift+19] +0.0157131144*Close[shift+20]+0.0198149331*Close[shift+21]+0.0211989019*Close[shift+22]+0.0200639819*Close[shift+23] +0.0168532934*Close[shift+24]+0.0121825067*Close[shift+25]+0.0067474241*Close[shift+26]+0.0012444305*Close[shift+27] -0.0037087682*Close[shift+28]-0.0076300416*Close[shift+29]-0.0102110543*Close[shift+30]-0.0113306266*Close[shift+31] -0.0110462105*Close[shift+32]-0.0095662166*Close[shift+33]-0.0072080453*Close[shift+34]-0.0043494435*Close[shift+35] -0.0013771970*Close[shift+36]+0.0013575268*Close[shift+37]+0.0035760416*Close[shift+38]+0.0050946166*Close[shift+39] +0.0058339574*Close[shift+40]+0.0058160431*Close[shift+41]+0.0051486631*Close[shift+42]+0.0039984014*Close[shift+43] +0.0025619380*Close[shift+44]+0.0010531475*Close[shift+45]-0.0003481453*Close[shift+46]-0.0014937154*Close[shift+47] -0.0022905986*Close[shift+48]-0.0027000514*Close[shift+49]-0.0027359080*Close[shift+50]-0.0024543322*Close[shift+51] -0.0019409837*Close[shift+52]-0.0012957482*Close[shift+53]-0.0006179734*Close[shift+54]+0.0000057542*Close[shift+55] +0.0005111297*Close[shift+56]+0.0008605279*Close[shift+57]+0.0010441921*Close[shift+58]+0.0010775684*Close[shift+59] +0.0009966494*Close[shift+60]+0.0008537300*Close[shift+61]+0.0007142855*Close[shift+62]+0.0006599146*Close[shift+63] -0.0008151017*Close[shift+64])- (0.0825641231*Close[shift+0]+0.0822783080*Close[shift+1]+0.0814249974*Close[shift+2]+0.0800166909*Close[shift+3] +0.0780735197*Close[shift+4]+0.0756232268*Close[shift+5]+0.0727009740*Close[shift+6]+0.0693478349*Close[shift+7] +0.0656105823*Close[shift+8]+0.0615409157*Close[shift+9]+0.0571939540*Close[shift+10]+0.0526285643*Close[shift+11] +0.0479025123*Close[shift+12]+0.0430785482*Close[shift+13]+0.0382152880*Close[shift+14]+0.0333706133*Close[shift+15] +0.0286021160*Close[shift+16]+0.0239614376*Close[shift+17]+0.0194972056*Close[shift+18]+0.0152532583*Close[shift+19] +0.0112682658*Close[shift+20]+0.0075745482*Close[shift+21]+0.0041980052*Close[shift+22]+0.0011588603*Close[shift+23] -0.0015292889*Close[shift+24]-0.0038593393*Close[shift+25]-0.0058303888*Close[shift+26]-0.0074473108*Close[shift+27] -0.0087203043*Close[shift+28]-0.0096645874*Close[shift+29]-0.0102995666*Close[shift+30]-0.0106483424*Close[shift+31] -0.0107374524*Close[shift+32]-0.0105952115*Close[shift+33]-0.0102516944*Close[shift+34]-0.0097377645*Close[shift+35] -0.0090838346*Close[shift+36]-0.0083237046*Close[shift+37]-0.0074804382*Close[shift+38]-0.0065902734*Close[shift+39] -0.0056742995*Close[shift+40]-0.0047554314*Close[shift+41]-0.0038574209*Close[shift+42]-0.0029983549*Close[shift+43] -0.0021924972*Close[shift+44]-0.0014513858*Close[shift+45]-0.0007848072*Close[shift+46]-0.0001995891*Close[shift+47] +0.0003009728*Close[shift+48]+0.0007162164*Close[shift+49]+0.0010478905*Close[shift+50]+0.0012994016*Close[shift+51] +0.0014755433*Close[shift+52]+0.0015824007*Close[shift+53]+0.0016272598*Close[shift+54]+0.0016185271*Close[shift+55] +0.0015648336*Close[shift+56]+0.0014747659*Close[shift+57]+0.0013569946*Close[shift+58]+0.0012193896*Close[shift+59] +0.0010695971*Close[shift+60]+0.0009140878*Close[shift+61]+0.0007591540*Close[shift+62] +0.0016019033*Close[shift+63]);break;//Digital MACD case 51: a1 = (0.2149840610*Close[shift+0]+0.2065763732*Close[shift+1]+0.1903728890*Close[shift+2]+0.1675422436*Close[shift+3] +0.1397053150*Close[shift+4]+0.1087951881*Close[shift+5]+0.0768869405*Close[shift+6]+0.0460244906*Close[shift+7] +0.0180517395*Close[shift+8]-0.0055294579*Close[shift+9]-0.0236660212*Close[shift+10]-0.0358140055*Close[shift+11] -0.0419497760*Close[shift+12]-0.0425331450*Close[shift+13]-0.0384279507*Close[shift+14]-0.0307917433*Close[shift+15] -0.0209443384*Close[shift+16]-0.0102335925*Close[shift+17]+0.0000932767*Close[shift+18]+0.0089950015*Close[shift+19] +0.0157131144*Close[shift+20]+0.0198149331*Close[shift+21]+0.0211989019*Close[shift+22]+0.0200639819*Close[shift+23] +0.0168532934*Close[shift+24]+0.0121825067*Close[shift+25]+0.0067474241*Close[shift+26]+0.0012444305*Close[shift+27] -0.0037087682*Close[shift+28]-0.0076300416*Close[shift+29]-0.0102110543*Close[shift+30]-0.0113306266*Close[shift+31] -0.0110462105*Close[shift+32]-0.0095662166*Close[shift+33]-0.0072080453*Close[shift+34]-0.0043494435*Close[shift+35] -0.0013771970*Close[shift+36]+0.0013575268*Close[shift+37]+0.0035760416*Close[shift+38]+0.0050946166*Close[shift+39] +0.0058339574*Close[shift+40]+0.0058160431*Close[shift+41]+0.0051486631*Close[shift+42]+0.0039984014*Close[shift+43] +0.0025619380*Close[shift+44]+0.0010531475*Close[shift+45]-0.0003481453*Close[shift+46]-0.0014937154*Close[shift+47] -0.0022905986*Close[shift+48]-0.0027000514*Close[shift+49]-0.0027359080*Close[shift+50]-0.0024543322*Close[shift+51] -0.0019409837*Close[shift+52]-0.0012957482*Close[shift+53]-0.0006179734*Close[shift+54]+0.0000057542*Close[shift+55] +0.0005111297*Close[shift+56]+0.0008605279*Close[shift+57]+0.0010441921*Close[shift+58]+0.0010775684*Close[shift+59] +0.0009966494*Close[shift+60]+0.0008537300*Close[shift+61]+0.0007142855*Close[shift+62]+0.0006599146*Close[shift+63] -0.0008151017*Close[shift+64]);break;//Digital MACD (1) case 52: a1 = (0.0825641231*Close[shift+0]+0.0822783080*Close[shift+1]+0.0814249974*Close[shift+2]+0.0800166909*Close[shift+3] +0.0780735197*Close[shift+4]+0.0756232268*Close[shift+5]+0.0727009740*Close[shift+6]+0.0693478349*Close[shift+7] +0.0656105823*Close[shift+8]+0.0615409157*Close[shift+9]+0.0571939540*Close[shift+10]+0.0526285643*Close[shift+11] +0.0479025123*Close[shift+12]+0.0430785482*Close[shift+13]+0.0382152880*Close[shift+14]+0.0333706133*Close[shift+15] +0.0286021160*Close[shift+16]+0.0239614376*Close[shift+17]+0.0194972056*Close[shift+18]+0.0152532583*Close[shift+19] +0.0112682658*Close[shift+20]+0.0075745482*Close[shift+21]+0.0041980052*Close[shift+22]+0.0011588603*Close[shift+23] -0.0015292889*Close[shift+24]-0.0038593393*Close[shift+25]-0.0058303888*Close[shift+26]-0.0074473108*Close[shift+27] -0.0087203043*Close[shift+28]-0.0096645874*Close[shift+29]-0.0102995666*Close[shift+30]-0.0106483424*Close[shift+31] -0.0107374524*Close[shift+32]-0.0105952115*Close[shift+33]-0.0102516944*Close[shift+34]-0.0097377645*Close[shift+35] -0.0090838346*Close[shift+36]-0.0083237046*Close[shift+37]-0.0074804382*Close[shift+38]-0.0065902734*Close[shift+39] -0.0056742995*Close[shift+40]-0.0047554314*Close[shift+41]-0.0038574209*Close[shift+42]-0.0029983549*Close[shift+43] -0.0021924972*Close[shift+44]-0.0014513858*Close[shift+45]-0.0007848072*Close[shift+46]-0.0001995891*Close[shift+47] +0.0003009728*Close[shift+48]+0.0007162164*Close[shift+49]+0.0010478905*Close[shift+50]+0.0012994016*Close[shift+51] +0.0014755433*Close[shift+52]+0.0015824007*Close[shift+53]+0.0016272598*Close[shift+54]+0.0016185271*Close[shift+55] +0.0015648336*Close[shift+56]+0.0014747659*Close[shift+57]+0.0013569946*Close[shift+58]+0.0012193896*Close[shift+59] +0.0010695971*Close[shift+60]+0.0009140878*Close[shift+61]+0.0007591540*Close[shift+62] +0.0016019033*Close[shift+63]);break;//Digital MACD (2) case 53: a1 = Close[shift] - (0.2149840610*Close[shift+0]+0.2065763732*Close[shift+1]+0.1903728890*Close[shift+2]+0.1675422436*Close[shift+3] +0.1397053150*Close[shift+4]+0.1087951881*Close[shift+5]+0.0768869405*Close[shift+6]+0.0460244906*Close[shift+7] +0.0180517395*Close[shift+8]-0.0055294579*Close[shift+9]-0.0236660212*Close[shift+10]-0.0358140055*Close[shift+11] -0.0419497760*Close[shift+12]-0.0425331450*Close[shift+13]-0.0384279507*Close[shift+14]-0.0307917433*Close[shift+15] -0.0209443384*Close[shift+16]-0.0102335925*Close[shift+17]+0.0000932767*Close[shift+18]+0.0089950015*Close[shift+19] +0.0157131144*Close[shift+20]+0.0198149331*Close[shift+21]+0.0211989019*Close[shift+22]+0.0200639819*Close[shift+23] +0.0168532934*Close[shift+24]+0.0121825067*Close[shift+25]+0.0067474241*Close[shift+26]+0.0012444305*Close[shift+27] -0.0037087682*Close[shift+28]-0.0076300416*Close[shift+29]-0.0102110543*Close[shift+30]-0.0113306266*Close[shift+31] -0.0110462105*Close[shift+32]-0.0095662166*Close[shift+33]-0.0072080453*Close[shift+34]-0.0043494435*Close[shift+35] -0.0013771970*Close[shift+36]+0.0013575268*Close[shift+37]+0.0035760416*Close[shift+38]+0.0050946166*Close[shift+39] +0.0058339574*Close[shift+40]+0.0058160431*Close[shift+41]+0.0051486631*Close[shift+42]+0.0039984014*Close[shift+43] +0.0025619380*Close[shift+44]+0.0010531475*Close[shift+45]-0.0003481453*Close[shift+46]-0.0014937154*Close[shift+47] -0.0022905986*Close[shift+48]-0.0027000514*Close[shift+49]-0.0027359080*Close[shift+50]-0.0024543322*Close[shift+51] -0.0019409837*Close[shift+52]-0.0012957482*Close[shift+53]-0.0006179734*Close[shift+54]+0.0000057542*Close[shift+55] +0.0005111297*Close[shift+56]+0.0008605279*Close[shift+57]+0.0010441921*Close[shift+58]+0.0010775684*Close[shift+59] +0.0009966494*Close[shift+60]+0.0008537300*Close[shift+61]+0.0007142855*Close[shift+62]+0.0006599146*Close[shift+63] -0.0008151017*Close[shift+64]);break;//PCCI Digital MACD (1) case 54: a1 = Close[shift] - (0.0825641231*Close[shift+0]+0.0822783080*Close[shift+1]+0.0814249974*Close[shift+2]+0.0800166909*Close[shift+3] +0.0780735197*Close[shift+4]+0.0756232268*Close[shift+5]+0.0727009740*Close[shift+6]+0.0693478349*Close[shift+7] +0.0656105823*Close[shift+8]+0.0615409157*Close[shift+9]+0.0571939540*Close[shift+10]+0.0526285643*Close[shift+11] +0.0479025123*Close[shift+12]+0.0430785482*Close[shift+13]+0.0382152880*Close[shift+14]+0.0333706133*Close[shift+15] +0.0286021160*Close[shift+16]+0.0239614376*Close[shift+17]+0.0194972056*Close[shift+18]+0.0152532583*Close[shift+19] +0.0112682658*Close[shift+20]+0.0075745482*Close[shift+21]+0.0041980052*Close[shift+22]+0.0011588603*Close[shift+23] -0.0015292889*Close[shift+24]-0.0038593393*Close[shift+25]-0.0058303888*Close[shift+26]-0.0074473108*Close[shift+27] -0.0087203043*Close[shift+28]-0.0096645874*Close[shift+29]-0.0102995666*Close[shift+30]-0.0106483424*Close[shift+31] -0.0107374524*Close[shift+32]-0.0105952115*Close[shift+33]-0.0102516944*Close[shift+34]-0.0097377645*Close[shift+35] -0.0090838346*Close[shift+36]-0.0083237046*Close[shift+37]-0.0074804382*Close[shift+38]-0.0065902734*Close[shift+39] -0.0056742995*Close[shift+40]-0.0047554314*Close[shift+41]-0.0038574209*Close[shift+42]-0.0029983549*Close[shift+43] -0.0021924972*Close[shift+44]-0.0014513858*Close[shift+45]-0.0007848072*Close[shift+46]-0.0001995891*Close[shift+47] +0.0003009728*Close[shift+48]+0.0007162164*Close[shift+49]+0.0010478905*Close[shift+50]+0.0012994016*Close[shift+51] +0.0014755433*Close[shift+52]+0.0015824007*Close[shift+53]+0.0016272598*Close[shift+54]+0.0016185271*Close[shift+55] +0.0015648336*Close[shift+56]+0.0014747659*Close[shift+57]+0.0013569946*Close[shift+58]+0.0012193896*Close[shift+59] +0.0010695971*Close[shift+60]+0.0009140878*Close[shift+61]+0.0007591540*Close[shift+62] +0.0016019033*Close[shift+63]);break;//PCCI Digital MACD (2) } } series=a1; if (fF0 < 61) { fF0= fF0 + 1; buffer[fF0]=series; } //{ main cycle } if (fF0 > 30) { if (Len < 1.0000000002) { f80=0.0000000001; //{1.0e-10} } else { f80=(Len - 1)/2.0; } if (Phase < -100) { f10=0.5; } else { if (Phase > 100) { f10=2.5; } else { f10=Phase/100 + 1.5; } } v1=MathLog(MathSqrt(f80)); v2=v1; if (v1/MathLog(2.0) + 2.0 < 0.0) { v3=0; } else { v3=v2/MathLog(2.0) + 2.0; } f98=v3; //---- if (0.5<=f98 - 2.0) { f88=f98 - 2.0; } else { f88=0.5; } f78=MathSqrt(f80) * f98; f90=f78/(f78 + 1.0); f80=f80 * 0.9; f50=f80/(f80 + 2.0); //---- if (f0!=0) { f0=0; v5=0; for( ii=1;ii <=29;ii++) { if (buffer[ii+1]!=buffer[ii]) { v5=1.0; } } fD8=v5*30.0; if (fD8==0) { f38=series; } else { f38=buffer[1]; } f18=f38; if (fD8 > 29) fD8=29; } else fD8=0; //---- for( ii=fD8;ii>=0;ii-- ) { //{ another bigcycle...} value2=31-ii; if (ii==0) { f8=series; } else { f8=buffer[value2]; } f28=f8 - f18; f48=f8 - f38; if (MathAbs(f28) > MathAbs(f48)) { v2=MathAbs(f28); } else { v2=MathAbs(f48); } fA0=v2; vv=fA0 + 0.0000000001; //{1.0e-10;} //---- if (s48<=1) { s48=127; } else { s48=s48 - 1; } if (s50<=1) { s50=10; } else { s50=s50 - 1; } if (s70 < 128) s70=s70 + 1; s8=s8 + vv - ring2[s50]; ring2[s50]=vv; if (s70 > 10) { s20=s8/10; } else s20=s8/s70; //---- if (s70 > 127) { s10=ring1[s48]; ring1[s48]=s20; s68=64; s58=s68; while(s68 > 1) { if (list[s58] < s10) { s68=s68 *0.5; s58=s58 + s68; } else if (list[s58]<=s10) { s68=1; } else { s68=s68 *0.5; s58=s58 - s68; } } } else { ring1[s48]=s20; if (s28 + s30 > 127) { s30=s30 - 1; s58=s30; } else { s28=s28 + 1; s58=s28; } if (s28 > 96) { s38=96; } else s38=s28; if (s30 < 32) { s40=32; } else s40=s30; } //---- s68=64; s60=s68; while(s68 > 1) { if (list[s60]>=s20) { if (list[s60 - 1]<=s20) { s68=1; } else { s68=s68 *0.5; s60=s60 - s68; } } else { s68=s68 *0.5; s60=s60 + s68; } if ((s60==127) && (s20 > list[127])) s60=128; } if (s70 > 127) { if (s58>=s60) { if ((s38 + 1 > s60) && (s40 - 1 < s60)) { s18=s18 + s20; } else if ((s40 > s60) && (s40 - 1 < s58)) s18=s18 + list[s40 - 1]; } else if (s40>=s60) { if ((s38 + 1 < s60) && (s38 + 1 > s58)) s18=s18 + list[s38 + 1]; } else if (s38 + 2 > s60) { s18=s18 + s20; } else if ((s38 + 1 < s60) && (s38 + 1 > s58)) s18=s18 + list[s38 + 1]; if (s58 > s60) { if ((s40 - 1 < s58) && (s38 + 1 > s58)) { s18=s18 - list[s58]; } else if ((s38 < s58) && (s38 + 1 > s60)) s18=s18 - list[s38]; } else { if ((s38 + 1 > s58) && (s40 - 1 < s58)) { s18=s18 - list[s58]; } else if ((s40 > s58) && (s40 < s60)) s18=s18 - list[s40]; } } if (s58<=s60) { if (s58>=s60) { list[s60]=s20; } else { for( jj=s58 + 1;jj<=s60 - 1;jj++) { list[jj - 1]=list[jj]; } list[s60 - 1]=s20; } } else { for( jj=s58 - 1;jj>=s60;jj-- ) { list[jj + 1]=list[jj]; } list[s60]=s20; } if (s70<=127) { s18=0; for(jj=s40;jj<=s38;jj++) { s18=s18 + list[jj]; } } f60=s18/(s38 - s40 + 1); if (fF8 + 1 > 31) { fF8=31; } else fF8=fF8 + 1; //---- if (fF8<=30) { if (f28 > 0) { f18=f8; } else f18=f8 - f28 * f90; if (f48 < 0) { f38=f8; } else f38=f8 - f48 * f90; fB8=series; //{EasyLanguage does not have "continue" statement} if (fF8!=30) { continue; } if (fF8==30) { fC0=series; if (MathCeil(f78)>=1) { v4=MathCeil(f78); } else v4=1; fE8=MathCeil(v4); if (MathFloor(f78)>=1) { v2=MathFloor(f78); } else v2=1; fE0=MathCeil(v2); if (fE8==fE0) { f68=1; } else { v4=fE8 - fE0; f68=(f78 - fE0)/v4; } if (fE0<=29) { v5=fE0; } else v5=29; if (fE8<=29) { v6=fE8; } else v6=29; fA8=(series - buffer[fF0 - v5]) * (1 - f68)/fE0 + (series - buffer[fF0 - v6]) * f68/fE8; } } else { if (f98>=MathPow(fA0/f60, f88)) { v1=MathPow(fA0/f60, f88); } else v1=f98; if (v1 < 1) { v2=1; } else { if (f98>=MathPow(fA0/f60, f88)) { v3=MathPow(fA0/f60, f88); } else v3=f98; v2=v3; } f58=v2; f70=MathPow(f90, MathSqrt(f58)); if (f28 > 0) { f18=f8; } else { f18=f8 - f28 * f70; } if (f48 < 0) { f38=f8; } else { f38=f8 - f48 * f70; } } } if (fF8 > 30) { f30=MathPow(f50, f58); fC0=(1 - f30) * series + f30 * fC0; fC8=(series - fC0) * (1 - f50) + f50 * fC8; fD0=f10 * fC8 + fC0; f20=-f30 * 2; f40=f30 * f30; fB0=f20 + f40 + 1; fA8=(fD0 - fB8) * fB0 + f40 * fA8; fB8=fB8 + fA8; } JMA= fB8; } if (fF0<=30) { JMA=0; } j[shift]= JMA; jhi[shift]= JMA; jlo[shift]= JMA; if(Style == 0) { if (j[shift] > j[shift+1]) { jlo[shift] = EMPTY_VALUE; } else if (j[shift] < j[shift+1]) { jhi[shift] = EMPTY_VALUE; } else if (j[shift] == j[shift+1]) { jhi[shift] = EMPTY_VALUE; jlo[shift] = EMPTY_VALUE; } } else if (j[shift] > 0) { jlo[shift] = EMPTY_VALUE; } else if (j[shift] < 0) { jhi[shift] = EMPTY_VALUE; } else if (j[shift] == 0) { jhi[shift] = EMPTY_VALUE; jlo[shift] = EMPTY_VALUE; } //---- if (shift>0) { AccountedBars=AccountedBars+1; } } //---- return(0); } //+------------------------------------------------------------------+