GBPUSD_60_SATL

//+------------------------------------------------------------------+
//|                        Digital Low Pass (FATL/SATL, KGLP) Filter |
//|                      Copyright (c) Sergey Iljukhin, Novosibirsk. |
//|                       email sergey[at]tibet.ru http://fx.qrz.ru/ |
//+------------------------------------------------------------------+
#property copyright "Copyright (c) 2005, Sergey Iljukhin, Novosibirsk"
#property link      "http://fx.qrz.ru/"

// --- Parameters: P1=125, D1=105, A1=40
// --- P2=52, D2=31, A2=40, Ripple=0.08, Delay=0
// --- Order [Auto]=647, Calculate method=2

#property indicator_chart_window
#property indicator_buffers 1
#property indicator_color1 Red

//---- buffers
double FilterBuffer[];

//+------------------------------------------------------------------+
//| Digital filter indicator initialization function                 |
//+------------------------------------------------------------------+
int init()
{
string short_name;
//---- indicator line
SetIndexStyle(0,DRAW_LINE);
SetIndexBuffer(0,FilterBuffer);
SetIndexDrawBegin(0,647);
//----
return(0);
}
//+------------------------------------------------------------------+
//| Digital filter main function                                     |
//+------------------------------------------------------------------+
int start()
{
int i,counted_bars=IndicatorCounted();
double response;
//----
if(Bars<=647) return(0);
//---- initial zero
if(counted_bars<647)
for(i=1;i<=0;i++) FilterBuffer[Bars-i]=0.0;
//----
i=Bars-647-1;
if(counted_bars>=647) i=Bars-counted_bars-1;
while(i>=0)
{
response=
 0.0346672315937*Close[i+0]
 +0.0346320637458*Close[i+1]
 +0.0345617816848*Close[i+2]
 +0.0344565356145*Close[i+3]
 +0.0343165133679*Close[i+4]
 +0.0341419592292*Close[i+5]
 +0.0339332078494*Close[i+6]
 +0.0336906324278*Close[i+7]
 +0.0334146918706*Close[i+8]
 +0.0331058690428*Close[i+9]
 +0.0327647439472*Close[i+10]
 +0.0323919422624*Close[i+11]
 +0.0319881471732*Close[i+12]
 +0.03155407200309*Close[i+13]
 +0.03109054336232*Close[i+14]
 +0.03059835020978*Close[i+15]
 +0.03007843896826*Close[i+16]
 +0.02953171551139*Close[i+17]
 +0.02895919718421*Close[i+18]
 +0.02836187619114*Close[i+19]
 +0.02774086648769*Close[i+20]
 +0.02709724460839*Close[i+21]
 +0.02643219919017*Close[i+22]
 +0.02574685674094*Close[i+23]
 +0.02504250291557*Close[i+24]
 +0.02432032948974*Close[i+25]
 +0.02358165025785*Close[i+26]
 +0.02282773124672*Close[i+27]
 +0.02205991482466*Close[i+28]
 +0.02127949699821*Close[i+29]
 +0.02048788726239*Close[i+30]
 +0.01968639626526*Close[i+31]
 +0.01887644828726*Close[i+32]
 +0.01805937081150*Close[i+33]
 +0.01723660941492*Close[i+34]
 +0.01640950330692*Close[i+35]
 +0.01557946889057*Close[i+36]
 +0.01474784762199*Close[i+37]
 +0.01391607254390*Close[i+38]
 +0.01308543449397*Close[i+39]
 +0.01225736528201*Close[i+40]
 +0.01143312018056*Close[i+41]
 +0.01061407010528*Close[i+42]
 +0.00980145536837*Close[i+43]
 +0.00899660547006*Close[i+44]
 +0.00820070540016*Close[i+45]
 +0.00741502129329*Close[i+46]
 +0.00664068150903*Close[i+47]
 +0.00587890855198*Close[i+48]
 +0.00513073867866*Close[i+49]
 +0.00439730485877*Close[i+50]
 +0.00367960218220*Close[i+51]
 +0.002978656364890*Close[i+52]
 +0.002295391102102*Close[i+53]
 +0.001630754434576*Close[i+54]
 +0.000985548220112*Close[i+55]
 +0.000360630907244*Close[i+56]
 -0.0002432801925876*Close[i+57]
 -0.000825428188506*Close[i+58]
 -0.001385204222398*Close[i+59]
 -0.001921971540806*Close[i+60]
 -0.002435196179659*Close[i+61]
 -0.002924355084947*Close[i+62]
 -0.00338905613843*Close[i+63]
 -0.00382885810025*Close[i+64]
 -0.00424349350500*Close[i+65]
 -0.00463263802432*Close[i+66]
 -0.00499610349898*Close[i+67]
 -0.00533370378774*Close[i+68]
 -0.00564536577526*Close[i+69]
 -0.00593101512948*Close[i+70]
 -0.00619067684626*Close[i+71]
 -0.00642439015196*Close[i+72]
 -0.00663230949493*Close[i+73]
 -0.00681456628650*Close[i+74]
 -0.00697139285360*Close[i+75]
 -0.00710306682932*Close[i+76]
 -0.00720989690613*Close[i+77]
 -0.00729226916372*Close[i+78]
 -0.00735060214280*Close[i+79]
 -0.00738534802668*Close[i+80]
 -0.00739701484412*Close[i+81]
 -0.00738615820827*Close[i+82]
 -0.00735337034727*Close[i+83]
 -0.00729928518389*Close[i+84]
 -0.00722455041783*Close[i+85]
 -0.00712990432419*Close[i+86]
 -0.00701606493812*Close[i+87]
 -0.00688379738559*Close[i+88]
 -0.00673390629779*Close[i+89]
 -0.00656720672990*Close[i+90]
 -0.00638454199661*Close[i+91]
 -0.00618680944805*Close[i+92]
 -0.00597487135473*Close[i+93]
 -0.00574965782306*Close[i+94]
 -0.00551206204754*Close[i+95]
 -0.00526305635700*Close[i+96]
 -0.00500355784857*Close[i+97]
 -0.00473453412725*Close[i+98]
 -0.00445692533014*Close[i+99]
 -0.00417174365098*Close[i+100]
 -0.00387988932589*Close[i+101]
 -0.00358239281573*Close[i+102]
 -0.00328014756781*Close[i+103]
 -0.002974154799979*Close[i+104]
 -0.002665321483762*Close[i+105]
 -0.002354633669608*Close[i+106]
 -0.002042961218951*Close[i+107]
 -0.001731257617096*Close[i+108]
 -0.001420362866684*Close[i+109]
 -0.001111217850105*Close[i+110]
 -0.000804597065002*Close[i+111]
 -0.000501384812326*Close[i+112]
 -0.0002023551349301*Close[i+113]
 +0.0000916837620843*Close[i+114]
 +0.000380009478100*Close[i+115]
 +0.000661854142215*Close[i+116]
 +0.000936587814159*Close[i+117]
 +0.001203487515714*Close[i+118]
 +0.001461977648626*Close[i+119]
 +0.001711401608371*Close[i+120]
 +0.001951264464118*Close[i+121]
 +0.002180989626975*Close[i+122]
 +0.002400126843803*Close[i+123]
 +0.002608179111378*Close[i+124]
 +0.002804812215070*Close[i+125]
 +0.002989564846794*Close[i+126]
 +0.003162188511722*Close[i+127]
 +0.00332230913220*Close[i+128]
 +0.00346972924630*Close[i+129]
 +0.00360418371143*Close[i+130]
 +0.00372555739629*Close[i+131]
 +0.00383365561603*Close[i+132]
 +0.00392843007415*Close[i+133]
 +0.00400976723604*Close[i+134]
 +0.00407771853994*Close[i+135]
 +0.00413222983882*Close[i+136]
 +0.00417339986298*Close[i+137]
 +0.00420130373859*Close[i+138]
 +0.00421608701856*Close[i+139]
 +0.00421789366271*Close[i+140]
 +0.00420695527059*Close[i+141]
 +0.00418345358208*Close[i+142]
 +0.00414769503452*Close[i+143]
 +0.00409994044974*Close[i+144]
 +0.00404055579266*Close[i+145]
 +0.00396985201277*Close[i+146]
 +0.00388823202187*Close[i+147]
 +0.00379609109419*Close[i+148]
 +0.00369388197421*Close[i+149]
 +0.00358200139601*Close[i+150]
 +0.00346098201502*Close[i+151]
 +0.00333126419130*Close[i+152]
 +0.00319339881654*Close[i+153]
 +0.003047894554959*Close[i+154]
 +0.002895302559344*Close[i+155]
 +0.002736155481540*Close[i+156]
 +0.002571032038109*Close[i+157]
 +0.002400501898794*Close[i+158]
 +0.002225158254135*Close[i+159]
 +0.002045561274297*Close[i+160]
 +0.001862322152091*Close[i+161]
 +0.001676049164227*Close[i+162]
 +0.001487295959829*Close[i+163]
 +0.001296692325477*Close[i+164]
 +0.001104797165705*Close[i+165]
 +0.000912214480632*Close[i+166]
 +0.000719521196178*Close[i+167]
 +0.000527303472339*Close[i+168]
 +0.000336102810717*Close[i+169]
 +0.0001464847728825*Close[i+170]
 -0.0000410257028269*Close[i+171]
 -0.0002258636716825*Close[i+172]
 -0.000407563090206*Close[i+173]
 -0.000585600406975*Close[i+174]
 -0.000759489823258*Close[i+175]
 -0.000928776370429*Close[i+176]
 -0.001093023736798*Close[i+177]
 -0.001251791276724*Close[i+178]
 -0.001404720340208*Close[i+179]
 -0.001551387097057*Close[i+180]
 -0.001691471602884*Close[i+181]
 -0.001824599593049*Close[i+182]
 -0.001950516679892*Close[i+183]
 -0.002068901088593*Close[i+184]
 -0.002179522264047*Close[i+185]
 -0.002282111079236*Close[i+186]
 -0.002376540832532*Close[i+187]
 -0.002462535007709*Close[i+188]
 -0.002540031965211*Close[i+189]
 -0.002608828579997*Close[i+190]
 -0.002668892671538*Close[i+191]
 -0.002720105590632*Close[i+192]
 -0.002762485739483*Close[i+193]
 -0.002795950912607*Close[i+194]
 -0.002820564762851*Close[i+195]
 -0.002836304127486*Close[i+196]
 -0.002843310997842*Close[i+197]
 -0.002841588685127*Close[i+198]
 -0.002831301705775*Close[i+199]
 -0.002812565419575*Close[i+200]
 -0.002785559941828*Close[i+201]
 -0.002750428933278*Close[i+202]
 -0.002707424933327*Close[i+203]
 -0.002656702003849*Close[i+204]
 -0.002598573622540*Close[i+205]
 -0.002533246251348*Close[i+206]
 -0.002461065805674*Close[i+207]
 -0.002382259502976*Close[i+208]
 -0.002297193811417*Close[i+209]
 -0.002206159316581*Close[i+210]
 -0.002109556131149*Close[i+211]
 -0.002007642188094*Close[i+212]
 -0.001900896897581*Close[i+213]
 -0.001789602968506*Close[i+214]
 -0.001674226569310*Close[i+215]
 -0.001555099321408*Close[i+216]
 -0.001432667376239*Close[i+217]
 -0.001307278065958*Close[i+218]
 -0.001179399120138*Close[i+219]
 -0.001049400695938*Close[i+220]
 -0.000917746671624*Close[i+221]
 -0.000784781726932*Close[i+222]
 -0.000650982855110*Close[i+223]
 -0.000516737903753*Close[i+224]
 -0.000382444344055*Close[i+225]
 -0.0002485109166078*Close[i+226]
 -0.0001153487385639*Close[i+227]
 +0.00001667513472282*Close[i+228]
 +0.0001471366201781*Close[i+229]
 +0.0002756984133866*Close[i+230]
 +0.000401974910618*Close[i+231]
 +0.000525643131669*Close[i+232]
 +0.000646328468029*Close[i+233]
 +0.000763709710362*Close[i+234]
 +0.000877474159968*Close[i+235]
 +0.000987342592263*Close[i+236]
 +0.001092963854100*Close[i+237]
 +0.001194138187753*Close[i+238]
 +0.001290564779478*Close[i+239]
 +0.001382033614090*Close[i+240]
 +0.001468316097904*Close[i+241]
 +0.001549202269057*Close[i+242]
 +0.001624502753391*Close[i+243]
 +0.001694053469270*Close[i+244]
 +0.001757724318789*Close[i+245]
 +0.001815382933856*Close[i+246]
 +0.001866907422052*Close[i+247]
 +0.001912207009415*Close[i+248]
 +0.001951262537532*Close[i+249]
 +0.001983942034415*Close[i+250]
 +0.002010285226538*Close[i+251]
 +0.002030233160763*Close[i+252]
 +0.002043831447207*Close[i+253]
 +0.002051085188476*Close[i+254]
 +0.002052067985875*Close[i+255]
 +0.002046799639800*Close[i+256]
 +0.002035393715720*Close[i+257]
 +0.002017917442338*Close[i+258]
 +0.001994548363310*Close[i+259]
 +0.001965354095598*Close[i+260]
 +0.001930513899401*Close[i+261]
 +0.001890206837748*Close[i+262]
 +0.001844598382567*Close[i+263]
 +0.001793865412611*Close[i+264]
 +0.001738250627006*Close[i+265]
 +0.001677918279523*Close[i+266]
 +0.001613166336346*Close[i+267]
 +0.001544183702022*Close[i+268]
 +0.001471279790043*Close[i+269]
 +0.001394640564160*Close[i+270]
 +0.001314592123146*Close[i+271]
 +0.001231373646933*Close[i+272]
 +0.001145332370344*Close[i+273]
 +0.001056641679133*Close[i+274]
 +0.000965738890080*Close[i+275]
 +0.000872802517961*Close[i+276]
 +0.000778226561540*Close[i+277]
 +0.000682233549976*Close[i+278]
 +0.000585191509314*Close[i+279]
 +0.000487334369423*Close[i+280]
 +0.000389049463286*Close[i+281]
 +0.0002905722297239*Close[i+282]
 +0.0001922701820220*Close[i+283]
 +0.0000943404277756*Close[i+284]
 -0.000002833247491136*Close[i+285]
 -0.0000990081556968*Close[i+286]
 -0.0001939070227568*Close[i+287]
 -0.0002872601064378*Close[i+288]
 -0.000378762874227*Close[i+289]
 -0.000468213906713*Close[i+290]
 -0.000555291604235*Close[i+291]
 -0.000639836083952*Close[i+292]
 -0.000721555489054*Close[i+293]
 -0.000800297865238*Close[i+294]
 -0.000875773999315*Close[i+295]
 -0.000947842594426*Close[i+296]
 -0.001016284332236*Close[i+297]
 -0.001081001025825*Close[i+298]
 -0.001141707604215*Close[i+299]
 -0.001198406010404*Close[i+300]
 -0.001250856819105*Close[i+301]
 -0.001299021411104*Close[i+302]
 -0.001342735049218*Close[i+303]
 -0.001381954046916*Close[i+304]
 -0.001416554532295*Close[i+305]
 -0.001446537657415*Close[i+306]
 -0.001471822047563*Close[i+307]
 -0.001492419234178*Close[i+308]
 -0.001508242307681*Close[i+309]
 -0.001519342659008*Close[i+310]
 -0.001525745628969*Close[i+311]
 -0.001527421594287*Close[i+312]
 -0.001524455724288*Close[i+313]
 -0.001516900040690*Close[i+314]
 -0.001504811033241*Close[i+315]
 -0.001488295906286*Close[i+316]
 -0.001467420333768*Close[i+317]
 -0.001442299121547*Close[i+318]
 -0.001413036576380*Close[i+319]
 -0.001379787906837*Close[i+320]
 -0.001342703301118*Close[i+321]
 -0.001301908613097*Close[i+322]
 -0.001257538300263*Close[i+323]
 -0.001209845925380*Close[i+324]
 -0.001158918058680*Close[i+325]
 -0.001104983208819*Close[i+326]
 -0.001048227165626*Close[i+327]
 -0.000988841814657*Close[i+328]
 -0.000927060253725*Close[i+329]
 -0.000863074824689*Close[i+330]
 -0.000797113972998*Close[i+331]
 -0.000729358732742*Close[i+332]
 -0.000660061492954*Close[i+333]
 -0.000589449708036*Close[i+334]
 -0.000517783076011*Close[i+335]
 -0.000445179860369*Close[i+336]
 -0.000372018467989*Close[i+337]
 -0.0002984023871939*Close[i+338]
 -0.0002246352167204*Close[i+339]
 -0.0001508802837734*Close[i+340]
 -0.0000774100350083*Close[i+341]
 -0.00000439731860393*Close[i+342]
 +0.0000678725675053*Close[i+343]
 +0.0001392456217469*Close[i+344]
 +0.0002094655712721*Close[i+345]
 +0.0002784202740144*Close[i+346]
 +0.000345818201821*Close[i+347]
 +0.000411495316177*Close[i+348]
 +0.000475306597749*Close[i+349]
 +0.000537045127167*Close[i+350]
 +0.000596518384072*Close[i+351]
 +0.000653630297189*Close[i+352]
 +0.000708156916713*Close[i+353]
 +0.000760049609389*Close[i+354]
 +0.000809098641444*Close[i+355]
 +0.000855256260829*Close[i+356]
 +0.000898311545360*Close[i+357]
 +0.000938244856049*Close[i+358]
 +0.000974918147790*Close[i+359]
 +0.001008351035174*Close[i+360]
 +0.001038287489789*Close[i+361]
 +0.001064886030383*Close[i+362]
 +0.001087926406484*Close[i+363]
 +0.001107488719461*Close[i+364]
 +0.001123448369464*Close[i+365]
 +0.001135877560533*Close[i+366]
 +0.001144692035849*Close[i+367]
 +0.001150002299622*Close[i+368]
 +0.001151743515772*Close[i+369]
 +0.001150020688787*Close[i+370]
 +0.001144753577788*Close[i+371]
 +0.001136101834825*Close[i+372]
 +0.001124110614207*Close[i+373]
 +0.001108797238510*Close[i+374]
 +0.001090272635699*Close[i+375]
 +0.001068657767301*Close[i+376]
 +0.001043979831313*Close[i+377]
 +0.001016419176691*Close[i+378]
 +0.000985999128734*Close[i+379]
 +0.000952910672366*Close[i+380]
 +0.000917216615242*Close[i+381]
 +0.000879140975193*Close[i+382]
 +0.000838765196506*Close[i+383]
 +0.000796260052071*Close[i+384]
 +0.000751678364038*Close[i+385]
 +0.000705370774301*Close[i+386]
 +0.000657287832607*Close[i+387]
 +0.000607735521932*Close[i+388]
 +0.000556802549048*Close[i+389]
 +0.000504715848184*Close[i+390]
 +0.000451602390606*Close[i+391]
 +0.000397670077613*Close[i+392]
 +0.000343035803795*Close[i+393]
 +0.0002879014321562*Close[i+394]
 +0.0002324171021832*Close[i+395]
 +0.0001768264761520*Close[i+396]
 +0.0001212619882468*Close[i+397]
 +0.0000658081513634*Close[i+398]
 +0.00001078291153633*Close[i+399]
 -0.0000437610275439*Close[i+400]
 -0.0000976267762099*Close[i+401]
 -0.0001506583059005*Close[i+402]
 -0.0002027034715557*Close[i+403]
 -0.0002536025330576*Close[i+404]
 -0.0003032013400483*Close[i+405]
 -0.000351378795573*Close[i+406]
 -0.000398011833327*Close[i+407]
 -0.000443009782112*Close[i+408]
 -0.000486189299916*Close[i+409]
 -0.000527397079201*Close[i+410]
 -0.000566674761626*Close[i+411]
 -0.000603781526481*Close[i+412]
 -0.000638676723724*Close[i+413]
 -0.000671296270490*Close[i+414]
 -0.000701525140617*Close[i+415]
 -0.000729348204549*Close[i+416]
 -0.000754645193977*Close[i+417]
 -0.000777404473181*Close[i+418]
 -0.000797510158799*Close[i+419]
 -0.000814999864268*Close[i+420]
 -0.000829829996970*Close[i+421]
 -0.000842060822516*Close[i+422]
 -0.000851450214878*Close[i+423]
 -0.000858284599985*Close[i+424]
 -0.000862349116027*Close[i+425]
 -0.000863787108939*Close[i+426]
 -0.000862525757426*Close[i+427]
 -0.000858687755084*Close[i+428]
 -0.000852227473420*Close[i+429]
 -0.000843294523585*Close[i+430]
 -0.000831834031969*Close[i+431]
 -0.000817983072023*Close[i+432]
 -0.000801673815628*Close[i+433]
 -0.000783125966069*Close[i+434]
 -0.000762419881338*Close[i+435]
 -0.000739518382952*Close[i+436]
 -0.000714601626794*Close[i+437]
 -0.000687790937802*Close[i+438]
 -0.000659087810444*Close[i+439]
 -0.000628709774645*Close[i+440]
 -0.000596641956408*Close[i+441]
 -0.000563123065300*Close[i+442]
 -0.000528165921398*Close[i+443]
 -0.000492026747196*Close[i+444]
 -0.000454701411575*Close[i+445]
 -0.000416375309896*Close[i+446]
 -0.000377013817891*Close[i+447]
 -0.000337092220783*Close[i+448]
 -0.0002963584580953*Close[i+449]
 -0.0002552169156589*Close[i+450]
 -0.0002136375061498*Close[i+451]
 -0.0001718755052495*Close[i+452]
 -0.0001299406075482*Close[i+453]
 -0.0000880684866783*Close[i+454]
 -0.0000462602127695*Close[i+455]
 -0.00000476127035451*Close[i+456]
 +0.0000363922246740*Close[i+457]
 +0.0000769267601072*Close[i+458]
 +0.0001168641679788*Close[i+459]
 +0.0001561615570735*Close[i+460]
 +0.0001945031277612*Close[i+461]
 +0.0002319149970642*Close[i+462]
 +0.0002683016492891*Close[i+463]
 +0.0003034798280690*Close[i+464]
 +0.000337441311907*Close[i+465]
 +0.000369999572478*Close[i+466]
 +0.000401158181393*Close[i+467]
 +0.000430772727584*Close[i+468]
 +0.000458865861410*Close[i+469]
 +0.000485297805074*Close[i+470]
 +0.000510004985233*Close[i+471]
 +0.000532775521693*Close[i+472]
 +0.000553941348837*Close[i+473]
 +0.000573079386965*Close[i+474]
 +0.000590370067659*Close[i+475]
 +0.000605701738643*Close[i+476]
 +0.000619092389533*Close[i+477]
 +0.000630486062800*Close[i+478]
 +0.000639887675422*Close[i+479]
 +0.000647252652699*Close[i+480]
 +0.000652600173401*Close[i+481]
 +0.000655948050369*Close[i+482]
 +0.000657371748669*Close[i+483]
 +0.000656878309008*Close[i+484]
 +0.000654204066480*Close[i+485]
 +0.000649801717151*Close[i+486]
 +0.000643414578632*Close[i+487]
 +0.000635196718689*Close[i+488]
 +0.000625160194164*Close[i+489]
 +0.000613396555051*Close[i+490]
 +0.000599930435212*Close[i+491]
 +0.000584866961895*Close[i+492]
 +0.000568200186891*Close[i+493]
 +0.000550031738607*Close[i+494]
 +0.000530354551030*Close[i+495]
 +0.000509389144579*Close[i+496]
 +0.000487313512963*Close[i+497]
 +0.000463824907142*Close[i+498]
 +0.000439329002923*Close[i+499]
 +0.000413823579967*Close[i+500]
 +0.000387325687176*Close[i+501]
 +0.000360033680348*Close[i+502]
 +0.000331931517651*Close[i+503]
 +0.0003032468676571*Close[i+504]
 +0.0002739696129248*Close[i+505]
 +0.0002443302903298*Close[i+506]
 +0.0002142668797246*Close[i+507]
 +0.0001839401941793*Close[i+508]
 +0.0001532619437575*Close[i+509]
 +0.0001229272855971*Close[i+510]
 +0.0000923082345981*Close[i+511]
 +0.0000619857751559*Close[i+512]
 +0.0000317966699039*Close[i+513]
 +0.000001997912261000*Close[i+514]
 -0.00002750017785891*Close[i+515]
 -0.0000564457441351*Close[i+516]
 -0.0000849311531965*Close[i+517]
 -0.0001126718089385*Close[i+518]
 -0.0001397377295912*Close[i+519]
 -0.0001658306112075*Close[i+520]
 -0.0001911330891063*Close[i+521]
 -0.0002157106976665*Close[i+522]
 -0.0002389912797823*Close[i+523]
 -0.0002612531872463*Close[i+524]
 -0.0002824306565800*Close[i+525]
 -0.0003022928669813*Close[i+526]
 -0.000320992862003*Close[i+527]
 -0.000338290604501*Close[i+528]
 -0.000354363720054*Close[i+529]
 -0.000368997364569*Close[i+530]
 -0.000382370628551*Close[i+531]
 -0.000394233060625*Close[i+532]
 -0.000404658224727*Close[i+533]
 -0.000413283345061*Close[i+534]
 -0.000421026749565*Close[i+535]
 -0.000426865691404*Close[i+536]
 -0.000431390084041*Close[i+537]
 -0.000434316737738*Close[i+538]
 -0.000435827574772*Close[i+539]
 -0.000435739755897*Close[i+540]
 -0.000434235883071*Close[i+541]
 -0.000431161174045*Close[i+542]
 -0.000426733129302*Close[i+543]
 -0.000420859680262*Close[i+544]
 -0.000413794926549*Close[i+545]
 -0.000405385549930*Close[i+546]
 -0.000395193108649*Close[i+547]
 -0.000384221219977*Close[i+548]
 -0.000371905273903*Close[i+549]
 -0.000358393740264*Close[i+550]
 -0.000343841254434*Close[i+551]
 -0.000328179043342*Close[i+552]
 -0.0003115577587577*Close[i+553]
 -0.0002939160578122*Close[i+554]
 -0.0002753746425843*Close[i+555]
 -0.0002558991916429*Close[i+556]
 -0.0002356424529506*Close[i+557]
 -0.0002147446861253*Close[i+558]
 -0.0001937089315407*Close[i+559]
 -0.0001712668826399*Close[i+560]
 -0.0001487858487536*Close[i+561]
 -0.0001257924764646*Close[i+562]
 -0.0001024539647773*Close[i+563]
 -0.0000788611913682*Close[i+564]
 -0.0000550746637259*Close[i+565]
 -0.00003120225013328*Close[i+566]
 -0.00000726381077304*Close[i+567]
 +0.00001664696611251*Close[i+568]
 +0.0000405956836142*Close[i+569]
 +0.0000645421149958*Close[i+570]
 +0.0000885976117617*Close[i+571]
 +0.0001112954711271*Close[i+572]
 +0.0001346308355328*Close[i+573]
 +0.0001572650459768*Close[i+574]
 +0.0001795617884685*Close[i+575]
 +0.0002012828763214*Close[i+576]
 +0.0002225460496426*Close[i+577]
 +0.0002430822864536*Close[i+578]
 +0.0002630323753150*Close[i+579]
 +0.0002820837317345*Close[i+580]
 +0.0003004148078868*Close[i+581]
 +0.000317726755695*Close[i+582]
 +0.000334420908707*Close[i+583]
 +0.000351187954226*Close[i+584]
 +0.000365671118218*Close[i+585]
 +0.000379771329831*Close[i+586]
 +0.000393038521923*Close[i+587]
 +0.000405167135516*Close[i+588]
 +0.000416535509176*Close[i+589]
 +0.000426736795808*Close[i+590]
 +0.000436175097495*Close[i+591]
 +0.000444398459553*Close[i+592]
 +0.000451808824321*Close[i+593]
 +0.000457852245912*Close[i+594]
 +0.000462815325581*Close[i+595]
 +0.000465695812550*Close[i+596]
 +0.000470237266360*Close[i+597]
 +0.000471765457382*Close[i+598]
 +0.000472940453722*Close[i+599]
 +0.000472872896607*Close[i+600]
 +0.000472164526801*Close[i+601]
 +0.000470255938898*Close[i+602]
 +0.000467810027921*Close[i+603]
 +0.000464254831026*Close[i+604]
 +0.000460312048371*Close[i+605]
 +0.000455397514401*Close[i+606]
 +0.000450270535350*Close[i+607]
 +0.000444216217880*Close[i+608]
 +0.000434516349627*Close[i+609]
 +0.000427829209010*Close[i+610]
 +0.000419473249328*Close[i+611]
 +0.000410203719183*Close[i+612]
 +0.000400800580373*Close[i+613]
 +0.000390517339538*Close[i+614]
 +0.000380202263494*Close[i+615]
 +0.000369100573546*Close[i+616]
 +0.000358110550172*Close[i+617]
 +0.000346504060047*Close[i+618]
 +0.000335321359473*Close[i+619]
 +0.000324188797715*Close[i+620]
 +0.000317353278822*Close[i+621]
 +0.0003005520031109*Close[i+622]
 +0.0002898865153981*Close[i+623]
 +0.0002781482541436*Close[i+624]
 +0.0002668643507011*Close[i+625]
 +0.0002551941007201*Close[i+626]
 +0.0002441073039806*Close[i+627]
 +0.0002326649167306*Close[i+628]
 +0.0002218065045649*Close[i+629]
 +0.0002104970401266*Close[i+630]
 +0.0001995328165042*Close[i+631]
 +0.0001873747048090*Close[i+632]
 +0.0001718615534704*Close[i+633]
 +0.0001857194220211*Close[i+634]
 +0.0001696343554487*Close[i+635]
 +0.0001614924224611*Close[i+636]
 +0.0001550691746978*Close[i+637]
 +0.0001489450962127*Close[i+638]
 +0.0001440833443899*Close[i+639]
 +0.0001394542977952*Close[i+640]
 +0.0001361028553594*Close[i+641]
 +0.0001330150323229*Close[i+642]
 +0.0001312434318659*Close[i+643]
 +0.0001297707989688*Close[i+644]
 +0.0001296503736295*Close[i+645]
 -0.00934451198090*Close[i+646];
FilterBuffer[i]=response;

i--;
}
return(0);
}