Eur30_RSTL

//+------------------------------------------------------------------+
//|                        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=171, D1=141, A1=40
// --- P2=52, D2=31, A2=40, Ripple=0.08, Delay=43
// --- Order [Auto]=836, 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,836);
//----
return(0);
}
//+------------------------------------------------------------------+
//| Digital filter main function                                     |
//+------------------------------------------------------------------+
int start()
{
int i,counted_bars=IndicatorCounted();
double response;
//----
if(Bars<=836) return(0);
//---- initial zero
if(counted_bars<836)
for(i=1;i<=0;i++) FilterBuffer[Bars-i]=0.0;
//----
i=Bars-836-1;
if(counted_bars>=836) i=Bars-counted_bars-1;
while(i>=0)
{
response=
 0.00750431761765*Close[i+0]
 +0.00773346328895*Close[i+1]
 +0.00796069455828*Close[i+2]
 +0.00818579792386*Close[i+3]
 +0.00840856097195*Close[i+4]
 +0.00862877317454*Close[i+5]
 +0.00884622557066*Close[i+6]
 +0.00906071072233*Close[i+7]
 +0.00927202365399*Close[i+8]
 +0.00947996205533*Close[i+9]
 +0.00968432583958*Close[i+10]
 +0.00988491773227*Close[i+11]
 +0.01008154401702*Close[i+12]
 +0.01027401417150*Close[i+13]
 +0.01046214085541*Close[i+14]
 +0.01064574083449*Close[i+15]
 +0.01082463510707*Close[i+16]
 +0.01099864845682*Close[i+17]
 +0.01116761005858*Close[i+18]
 +0.01133135415527*Close[i+19]
 +0.01148971963707*Close[i+20]
 +0.01164255004812*Close[i+21]
 +0.01178969447735*Close[i+22]
 +0.01193100759582*Close[i+23]
 +0.01206634919339*Close[i+24]
 +0.01219558478638*Close[i+25]
 +0.01231858621025*Close[i+26]
 +0.01243523113264*Close[i+27]
 +0.01254540306724*Close[i+28]
 +0.01264899221596*Close[i+29]
 +0.01274589540630*Close[i+30]
 +0.01283601560410*Close[i+31]
 +0.01291926250965*Close[i+32]
 +0.01299555305398*Close[i+33]
 +0.01306481083904*Close[i+34]
 +0.01312696614983*Close[i+35]
 +0.01318195673533*Close[i+36]
 +0.01322972763861*Close[i+37]
 +0.01327023068054*Close[i+38]
 +0.01330342503443*Close[i+39]
 +0.01332927761693*Close[i+40]
 +0.01334776245234*Close[i+41]
 +0.01335886067731*Close[i+42]
 +0.01336256125158*Close[i+43]
 +0.01335886067731*Close[i+44]
 +0.01334776245234*Close[i+45]
 +0.01332927761693*Close[i+46]
 +0.01330342503443*Close[i+47]
 +0.01327023068054*Close[i+48]
 +0.01322972763861*Close[i+49]
 +0.01318195673533*Close[i+50]
 +0.01312696614983*Close[i+51]
 +0.01306481083904*Close[i+52]
 +0.01299555305398*Close[i+53]
 +0.01291926250965*Close[i+54]
 +0.01283601560410*Close[i+55]
 +0.01274589540630*Close[i+56]
 +0.01264899221596*Close[i+57]
 +0.01254540306724*Close[i+58]
 +0.01243523113264*Close[i+59]
 +0.01231858621025*Close[i+60]
 +0.01219558478638*Close[i+61]
 +0.01206634919339*Close[i+62]
 +0.01193100759582*Close[i+63]
 +0.01178969447735*Close[i+64]
 +0.01164255004812*Close[i+65]
 +0.01148971963707*Close[i+66]
 +0.01133135415527*Close[i+67]
 +0.01116761005858*Close[i+68]
 +0.01099864845682*Close[i+69]
 +0.01082463510707*Close[i+70]
 +0.01064574083449*Close[i+71]
 +0.01046214085541*Close[i+72]
 +0.01027401417150*Close[i+73]
 +0.01008154401702*Close[i+74]
 +0.00988491773227*Close[i+75]
 +0.00968432583958*Close[i+76]
 +0.00947996205533*Close[i+77]
 +0.00927202365399*Close[i+78]
 +0.00906071072233*Close[i+79]
 +0.00884622557066*Close[i+80]
 +0.00862877317454*Close[i+81]
 +0.00840856097195*Close[i+82]
 +0.00818579792386*Close[i+83]
 +0.00796069455828*Close[i+84]
 +0.00773346328895*Close[i+85]
 +0.00750431761765*Close[i+86]
 +0.00727347157955*Close[i+87]
 +0.00704114019101*Close[i+88]
 +0.00680753918515*Close[i+89]
 +0.00657288407573*Close[i+90]
 +0.00633739024763*Close[i+91]
 +0.00610127324244*Close[i+92]
 +0.00586474792685*Close[i+93]
 +0.00562802798961*Close[i+94]
 +0.00539132640740*Close[i+95]
 +0.00515485513404*Close[i+96]
 +0.00491882418667*Close[i+97]
 +0.00468344179670*Close[i+98]
 +0.00444891467467*Close[i+99]
 +0.00421544716268*Close[i+100]
 +0.00398324079967*Close[i+101]
 +0.00375249481693*Close[i+102]
 +0.00352340579558*Close[i+103]
 +0.00329616679318*Close[i+104]
 +0.003070967568100*Close[i+105]
 +0.002847994834982*Close[i+106]
 +0.002627431417987*Close[i+107]
 +0.002409455899631*Close[i+108]
 +0.002194243155815*Close[i+109]
 +0.001981963994777*Close[i+110]
 +0.001772784340486*Close[i+111]
 +0.001566865541177*Close[i+112]
 +0.001364364624833*Close[i+113]
 +0.001165433467967*Close[i+114]
 +0.000970218540794*Close[i+115]
 +0.000778861489190*Close[i+116]
 +0.000591498765955*Close[i+117]
 +0.000408260884651*Close[i+118]
 +0.0002292728201315*Close[i+119]
 +0.0000546542707271*Close[i+120]
 -0.0001154811455485*Close[i+121]
 -0.0002810260399529*Close[i+122]
 -0.000441878619920*Close[i+123]
 -0.000597943057612*Close[i+124]
 -0.000749130155379*Close[i+125]
 -0.000895356848944*Close[i+126]
 -0.001036545935160*Close[i+127]
 -0.001172626839856*Close[i+128]
 -0.001303535655163*Close[i+129]
 -0.001429214454718*Close[i+130]
 -0.001549611657642*Close[i+131]
 -0.001664682606787*Close[i+132]
 -0.001774388975283*Close[i+133]
 -0.001878698484523*Close[i+134]
 -0.001977585631227*Close[i+135]
 -0.002071031611389*Close[i+136]
 -0.002159023587092*Close[i+137]
 -0.002241555045149*Close[i+138]
 -0.002318626285530*Close[i+139]
 -0.002390243734961*Close[i+140]
 -0.002456419659075*Close[i+141]
 -0.002517172847569*Close[i+142]
 -0.002572528427030*Close[i+143]
 -0.002622517086440*Close[i+144]
 -0.002667175433240*Close[i+145]
 -0.002706546393127*Close[i+146]
 -0.002740678438194*Close[i+147]
 -0.002769625300652*Close[i+148]
 -0.002793446618412*Close[i+149]
 -0.002812207642733*Close[i+150]
 -0.002825978432961*Close[i+151]
 -0.002834834215926*Close[i+152]
 -0.002838855701688*Close[i+153]
 -0.002838128237109*Close[i+154]
 -0.002832741531530*Close[i+155]
 -0.002822790268073*Close[i+156]
 -0.002808373715259*Close[i+157]
 -0.002789594904392*Close[i+158]
 -0.002766561000807*Close[i+159]
 -0.002739383542920*Close[i+160]
 -0.002708177534897*Close[i+161]
 -0.002673061196991*Close[i+162]
 -0.002634156550163*Close[i+163]
 -0.002591588943305*Close[i+164]
 -0.002545486228850*Close[i+165]
 -0.002495979156215*Close[i+166]
 -0.002443201543574*Close[i+167]
 -0.002387289325266*Close[i+168]
 -0.002328380341000*Close[i+169]
 -0.002266614902904*Close[i+170]
 -0.002202135251659*Close[i+171]
 -0.002135084747198*Close[i+172]
 -0.002065608295705*Close[i+173]
 -0.001993852464696*Close[i+174]
 -0.001919964501887*Close[i+175]
 -0.001844092178120*Close[i+176]
 -0.001766384346531*Close[i+177]
 -0.001686990341659*Close[i+178]
 -0.001606059202485*Close[i+179]
 -0.001523740144384*Close[i+180]
 -0.001440182628380*Close[i+181]
 -0.001355535368349*Close[i+182]
 -0.001269946242162*Close[i+183]
 -0.001183562852358*Close[i+184]
 -0.001096531882099*Close[i+185]
 -0.001008998367222*Close[i+186]
 -0.000921106223680*Close[i+187]
 -0.000832998281164*Close[i+188]
 -0.000744815294718*Close[i+189]
 -0.000656695937362*Close[i+190]
 -0.000568777370404*Close[i+191]
 -0.000481194569040*Close[i+192]
 -0.000394079658610*Close[i+193]
 -0.0003075625063037*Close[i+194]
 -0.0002217707278318*Close[i+195]
 -0.0001368287178991*Close[i+196]
 -0.0000528577354549*Close[i+197]
 +0.00003002351025035*Close[i+198]
 +0.0001116995534873*Close[i+199]
 +0.0001920587586786*Close[i+200]
 +0.0002709926581159*Close[i+201]
 +0.000348395965815*Close[i+202]
 +0.000424167516082*Close[i+203]
 +0.000498210077256*Close[i+204]
 +0.000570429746466*Close[i+205]
 +0.000640736654446*Close[i+206]
 +0.000709045464974*Close[i+207]
 +0.000775274638773*Close[i+208]
 +0.000839346464189*Close[i+209]
 +0.000901187955546*Close[i+210]
 +0.000960730560737*Close[i+211]
 +0.001017909536440*Close[i+212]
 +0.001072664658351*Close[i+213]
 +0.001124940626589*Close[i+214]
 +0.001174686255892*Close[i+215]
 +0.001221854522437*Close[i+216]
 +0.001266403415837*Close[i+217]
 +0.001308295538881*Close[i+218]
 +0.001347497466103*Close[i+219]
 +0.001383980456885*Close[i+220]
 +0.001417720763317*Close[i+221]
 +0.001448698750225*Close[i+222]
 +0.001476898960519*Close[i+223]
 +0.001502310917782*Close[i+224]
 +0.001524928619907*Close[i+225]
 +0.001544749887100*Close[i+226]
 +0.001561777078208*Close[i+227]
 +0.001576017300773*Close[i+228]
 +0.001587481467702*Close[i+229]
 +0.001596184386381*Close[i+230]
 +0.001602145511733*Close[i+231]
 +0.001605388338693*Close[i+232]
 +0.001605939748622*Close[i+233]
 +0.001603830731868*Close[i+234]
 +0.001599096502651*Close[i+235]
 +0.001591775502119*Close[i+236]
 +0.001581909518946*Close[i+237]
 +0.001569544395260*Close[i+238]
 +0.001554729325677*Close[i+239]
 +0.001537516213562*Close[i+240]
 +0.001517960404980*Close[i+241]
 +0.001496120713492*Close[i+242]
 +0.001472058381756*Close[i+243]
 +0.001445837243260*Close[i+244]
 +0.001417524385498*Close[i+245]
 +0.001387189365497*Close[i+246]
 +0.001354903589212*Close[i+247]
 +0.001320741063564*Close[i+248]
 +0.001284778338062*Close[i+249]
 +0.001247093438839*Close[i+250]
 +0.001207766082454*Close[i+251]
 +0.001166878301992*Close[i+252]
 +0.001124513590553*Close[i+253]
 +0.001080756318164*Close[i+254]
 +0.001035692509455*Close[i+255]
 +0.000989409710085*Close[i+256]
 +0.000941995908132*Close[i+257]
 +0.000893539811378*Close[i+258]
 +0.000844131442549*Close[i+259]
 +0.000793861222981*Close[i+260]
 +0.000742819441783*Close[i+261]
 +0.000691097066688*Close[i+262]
 +0.000638785543612*Close[i+263]
 +0.000585975720471*Close[i+264]
 +0.000532758199060*Close[i+265]
 +0.000479223905407*Close[i+266]
 +0.000425463125758*Close[i+267]
 +0.000371565042229*Close[i+268]
 +0.000317618583633*Close[i+269]
 +0.0002637121659730*Close[i+270]
 +0.0002099326331926*Close[i+271]
 +0.0001563656936356*Close[i+272]
 +0.0001030964704603*Close[i+273]
 +0.0000502085012948*Close[i+274]
 -0.000002216646646290*Close[i+275]
 -0.0000540984804818*Close[i+276]
 -0.0001053578935881*Close[i+277]
 -0.0001559181947604*Close[i+278]
 -0.0002057045789689*Close[i+279]
 -0.0002546435936135*Close[i+280]
 -0.0003026641653142*Close[i+281]
 -0.000349697894232*Close[i+282]
 -0.000395678109560*Close[i+283]
 -0.000440540228995*Close[i+284]
 -0.000484222746504*Close[i+285]
 -0.000526666604452*Close[i+286]
 -0.000567814675415*Close[i+287]
 -0.000607612807455*Close[i+288]
 -0.000646010019136*Close[i+289]
 -0.000682957505931*Close[i+290]
 -0.000718409044512*Close[i+291]
 -0.000752321930066*Close[i+292]
 -0.000784656246618*Close[i+293]
 -0.000815374365770*Close[i+294]
 -0.000844442004701*Close[i+295]
 -0.000871828315736*Close[i+296]
 -0.000897504845771*Close[i+297]
 -0.000921445984963*Close[i+298]
 -0.000943629846959*Close[i+299]
 -0.000964037437090*Close[i+300]
 -0.000982652171934*Close[i+301]
 -0.000999460946589*Close[i+302]
 -0.001014454115328*Close[i+303]
 -0.001027624408919*Close[i+304]
 -0.001038967429614*Close[i+305]
 -0.001048482470074*Close[i+306]
 -0.001056171581873*Close[i+307]
 -0.001062039122322*Close[i+308]
 -0.001066092829704*Close[i+309]
 -0.001068343694160*Close[i+310]
 -0.001068804840401*Close[i+311]
 -0.001067492073058*Close[i+312]
 -0.001064424632299*Close[i+313]
 -0.001059624167712*Close[i+314]
 -0.001053114321045*Close[i+315]
 -0.001044921810067*Close[i+316]
 -0.001035076191125*Close[i+317]
 -0.001023608717120*Close[i+318]
 -0.001010552939083*Close[i+319]
 -0.000995945398411*Close[i+320]
 -0.000979824513446*Close[i+321]
 -0.000962230208667*Close[i+322]
 -0.000943205009383*Close[i+323]
 -0.000922793699342*Close[i+324]
 -0.000901042165739*Close[i+325]
 -0.000877998064279*Close[i+326]
 -0.000853711449398*Close[i+327]
 -0.000828233582648*Close[i+328]
 -0.000801616620234*Close[i+329]
 -0.000773914721775*Close[i+330]
 -0.000745183607755*Close[i+331]
 -0.000715479404704*Close[i+332]
 -0.000684859381788*Close[i+333]
 -0.000653382521280*Close[i+334]
 -0.000621108259051*Close[i+335]
 -0.000588096243099*Close[i+336]
 -0.000554407460022*Close[i+337]
 -0.000520103697880*Close[i+338]
 -0.000485246405438*Close[i+339]
 -0.000449897508451*Close[i+340]
 -0.000414119922879*Close[i+341]
 -0.000377976238359*Close[i+342]
 -0.000341528560426*Close[i+343]
 -0.0003048396580777*Close[i+344]
 -0.0002679723377918*Close[i+345]
 -0.0002309883307344*Close[i+346]
 -0.0001939491963914*Close[i+347]
 -0.0001569167806182*Close[i+348]
 -0.0001199518528446*Close[i+349]
 -0.0000831140441218*Close[i+350]
 -0.0000464630182454*Close[i+351]
 -0.00001005776218039*Close[i+352]
 +0.00002604448540017*Close[i+353]
 +0.0000617872366702*Close[i+354]
 +0.0000971143506784*Close[i+355]
 +0.0001319714323050*Close[i+356]
 +0.0001663057874504*Close[i+357]
 +0.0002000652273300*Close[i+358]
 +0.0002331988573874*Close[i+359]
 +0.0002656580951470*Close[i+360]
 +0.0002973955741551*Close[i+361]
 +0.000328364794461*Close[i+362]
 +0.000358521548746*Close[i+363]
 +0.000387823761420*Close[i+364]
 +0.000416230269183*Close[i+365]
 +0.000443701686391*Close[i+366]
 +0.000470201358469*Close[i+367]
 +0.000495694164469*Close[i+368]
 +0.000520146224154*Close[i+369]
 +0.000543526343708*Close[i+370]
 +0.000565805731318*Close[i+371]
 +0.000586956756992*Close[i+372]
 +0.000606953893056*Close[i+373]
 +0.000625774593982*Close[i+374]
 +0.000643397997013*Close[i+375]
 +0.000659804689940*Close[i+376]
 +0.000674978170345*Close[i+377]
 +0.000688904432297*Close[i+378]
 +0.000701570710651*Close[i+379]
 +0.000712966497028*Close[i+380]
 +0.000723084338645*Close[i+381]
 +0.000731918438769*Close[i+382]
 +0.000739464491244*Close[i+383]
 +0.000745721148759*Close[i+384]
 +0.000750689477362*Close[i+385]
 +0.000754371692702*Close[i+386]
 +0.000756772253458*Close[i+387]
 +0.000757898573458*Close[i+388]
 +0.000757759525982*Close[i+389]
 +0.000756365352963*Close[i+390]
 +0.000753729139232*Close[i+391]
 +0.000749866133515*Close[i+392]
 +0.000744792486194*Close[i+393]
 +0.000738526423609*Close[i+394]
 +0.000731088869284*Close[i+395]
 +0.000722501858203*Close[i+396]
 +0.000712788530275*Close[i+397]
 +0.000701974608721*Close[i+398]
 +0.000690087587982*Close[i+399]
 +0.000677155484450*Close[i+400]
 +0.000663208096212*Close[i+401]
 +0.000648277530487*Close[i+402]
 +0.000632396535785*Close[i+403]
 +0.000615598590581*Close[i+404]
 +0.000597919384868*Close[i+405]
 +0.000579395876828*Close[i+406]
 +0.000560065069469*Close[i+407]
 +0.000539965361162*Close[i+408]
 +0.000519136977230*Close[i+409]
 +0.000497620229315*Close[i+410]
 +0.000475455711092*Close[i+411]
 +0.000452685782407*Close[i+412]
 +0.000429353497542*Close[i+413]
 +0.000405501421730*Close[i+414]
 +0.000381173078054*Close[i+415]
 +0.000356413281517*Close[i+416]
 +0.000331266335844*Close[i+417]
 +0.0003057763484186*Close[i+418]
 +0.0002799887163077*Close[i+419]
 +0.0002539489293853*Close[i+420]
 +0.0002277014412048*Close[i+421]
 +0.0002012912175406*Close[i+422]
 +0.0001747639710544*Close[i+423]
 +0.0001481643061828*Close[i+424]
 +0.0001215361652852*Close[i+425]
 +0.0000949243151660*Close[i+426]
 +0.0000683730282870*Close[i+427]
 +0.0000419250224572*Close[i+428]
 +0.00001562311544331*Close[i+429]
 -0.00001048964230248*Close[i+430]
 -0.0000363718641128*Close[i+431]
 -0.0000619832384197*Close[i+432]
 -0.0000872830442977*Close[i+433]
 -0.0001122315894125*Close[i+434]
 -0.0001367911874890*Close[i+435]
 -0.0001609243944957*Close[i+436]
 -0.0001845939814700*Close[i+437]
 -0.0002077648622201*Close[i+438]
 -0.0002304033518410*Close[i+439]
 -0.0002524756884217*Close[i+440]
 -0.0002739495881988*Close[i+441]
 -0.0002947951269059*Close[i+442]
 -0.0003149828652315*Close[i+443]
 -0.000334483932173*Close[i+444]
 -0.000353271974516*Close[i+445]
 -0.000371322253614*Close[i+446]
 -0.000388610179158*Close[i+447]
 -0.000405112980556*Close[i+448]
 -0.000420810479835*Close[i+449]
 -0.000435683106680*Close[i+450]
 -0.000449712098822*Close[i+451]
 -0.000462881464643*Close[i+452]
 -0.000475176910777*Close[i+453]
 -0.000486584395767*Close[i+454]
 -0.000497091917810*Close[i+455]
 -0.000506690167885*Close[i+456]
 -0.000515370436662*Close[i+457]
 -0.000523124940035*Close[i+458]
 -0.000529948787062*Close[i+459]
 -0.000535838732502*Close[i+460]
 -0.000540791760229*Close[i+461]
 -0.000544806988550*Close[i+462]
 -0.000547886193334*Close[i+463]
 -0.000550031611075*Close[i+464]
 -0.000551246399309*Close[i+465]
 -0.000551536602924*Close[i+466]
 -0.000550909727314*Close[i+467]
 -0.000549373363459*Close[i+468]
 -0.000546937213075*Close[i+469]
 -0.000543613472492*Close[i+470]
 -0.000539414538155*Close[i+471]
 -0.000534353613234*Close[i+472]
 -0.000528446666009*Close[i+473]
 -0.000521710820821*Close[i+474]
 -0.000514163038661*Close[i+475]
 -0.000505822265285*Close[i+476]
 -0.000496709667405*Close[i+477]
 -0.000486846248791*Close[i+478]
 -0.000476253615711*Close[i+479]
 -0.000464955921566*Close[i+480]
 -0.000452978074069*Close[i+481]
 -0.000440344486932*Close[i+482]
 -0.000427081354633*Close[i+483]
 -0.000413216733016*Close[i+484]
 -0.000398778075737*Close[i+485]
 -0.000383793172231*Close[i+486]
 -0.000368292072804*Close[i+487]
 -0.000352305111437*Close[i+488]
 -0.000335861745529*Close[i+489]
 -0.000318992961165*Close[i+490]
 -0.0003017311903066*Close[i+491]
 -0.0002841077785708*Close[i+492]
 -0.0002661541100289*Close[i+493]
 -0.0002479035065521*Close[i+494]
 -0.0002293890661328*Close[i+495]
 -0.0002106426086550*Close[i+496]
 -0.0001916972151642*Close[i+497]
 -0.0001725869734403*Close[i+498]
 -0.0001533443889371*Close[i+499]
 -0.0001340017108927*Close[i+500]
 -0.0001145927987796*Close[i+501]
 -0.0000951507761486*Close[i+502]
 -0.0000757071009929*Close[i+503]
 -0.0000562942416909*Close[i+504]
 -0.0000369452419261*Close[i+505]
 -0.00001769108710558*Close[i+506]
 +0.000001437753979588*Close[i+507]
 +0.00002040950412546*Close[i+508]
 +0.0000391936085973*Close[i+509]
 +0.0000577615213053*Close[i+510]
 +0.0000760838907348*Close[i+511]
 +0.0000941311859123*Close[i+512]
 +0.0001118763619440*Close[i+513]
 +0.0001292930890879*Close[i+514]
 +0.0001463539794045*Close[i+515]
 +0.0001630333030942*Close[i+516]
 +0.0001793076122312*Close[i+517]
 +0.0001951527886166*Close[i+518]
 +0.0002105448723059*Close[i+519]
 +0.0002254627464182*Close[i+520]
 +0.0002398861239217*Close[i+521]
 +0.0002537938382080*Close[i+522]
 +0.0002671667462177*Close[i+523]
 +0.0002799881707125*Close[i+524]
 +0.0002922408118041*Close[i+525]
 +0.0003039077913321*Close[i+526]
 +0.0003149753441613*Close[i+527]
 +0.000325430550468*Close[i+528]
 +0.000335259704660*Close[i+529]
 +0.000344451407286*Close[i+530]
 +0.000352996806804*Close[i+531]
 +0.000360886378395*Close[i+532]
 +0.000368111199232*Close[i+533]
 +0.000374665633365*Close[i+534]
 +0.000380544798170*Close[i+535]
 +0.000385743028393*Close[i+536]
 +0.000390257159535*Close[i+537]
 +0.000394086550011*Close[i+538]
 +0.000397229732895*Close[i+539]
 +0.000399685938945*Close[i+540]
 +0.000401457762023*Close[i+541]
 +0.000402548349287*Close[i+542]
 +0.000402959979640*Close[i+543]
 +0.000402697541971*Close[i+544]
 +0.000401768318488*Close[i+545]
 +0.000400178517121*Close[i+546]
 +0.000397935061148*Close[i+547]
 +0.000395048221757*Close[i+548]
 +0.000391528522460*Close[i+549]
 +0.000387385453862*Close[i+550]
 +0.000382631150710*Close[i+551]
 +0.000377279916863*Close[i+552]
 +0.000371344648271*Close[i+553]
 +0.000364838909900*Close[i+554]
 +0.000357779521512*Close[i+555]
 +0.000350183167517*Close[i+556]
 +0.000342065272586*Close[i+557]
 +0.000333443881811*Close[i+558]
 +0.000324338907142*Close[i+559]
 +0.0003147684529049*Close[i+560]
 +0.0003047512024847*Close[i+561]
 +0.0002943089423947*Close[i+562]
 +0.0002834628692347*Close[i+563]
 +0.0002722326531975*Close[i+564]
 +0.0002606405255758*Close[i+565]
 +0.0002487102253949*Close[i+566]
 +0.0002364632412675*Close[i+567]
 +0.0002239215317996*Close[i+568]
 +0.0002111099714481*Close[i+569]
 +0.0001980523463383*Close[i+570]
 +0.0001847706350168*Close[i+571]
 +0.0001712893070498*Close[i+572]
 +0.0001576339468576*Close[i+573]
 +0.0001438274273678*Close[i+574]
 +0.0001298929892831*Close[i+575]
 +0.0001158565900683*Close[i+576]
 +0.0001017425800464*Close[i+577]
 +0.0000875732319525*Close[i+578]
 +0.0000733732533767*Close[i+579]
 +0.0000591680625577*Close[i+580]
 +0.0000449799107790*Close[i+581]
 +0.00003083134664702*Close[i+582]
 +0.00001674744679703*Close[i+583]
 +0.000002751163060156*Close[i+584]
 -0.00001113686542736*Close[i+585]
 -0.00002489358453507*Close[i+586]
 -0.0000384956253600*Close[i+587]
 -0.0000519232146382*Close[i+588]
 -0.0000651562983519*Close[i+589]
 -0.0000781724539486*Close[i+590]
 -0.0000909518821104*Close[i+591]
 -0.0001034772759421*Close[i+592]
 -0.0001157288782463*Close[i+593]
 -0.0001276869888585*Close[i+594]
 -0.0001393358877257*Close[i+595]
 -0.0001506595182511*Close[i+596]
 -0.0001616395707460*Close[i+597]
 -0.0001722608240107*Close[i+598]
 -0.0001825106569455*Close[i+599]
 -0.0001923738928192*Close[i+600]
 -0.0002018357483091*Close[i+601]
 -0.0002108857471325*Close[i+602]
 -0.0002195129337714*Close[i+603]
 -0.0002277041606001*Close[i+604]
 -0.0002354497910737*Close[i+605]
 -0.0002427428117471*Close[i+606]
 -0.0002495734676324*Close[i+607]
 -0.0002559326914763*Close[i+608]
 -0.0002618159835324*Close[i+609]
 -0.0002672181249402*Close[i+610]
 -0.0002721317056946*Close[i+611]
 -0.0002765532022609*Close[i+612]
 -0.0002804816443933*Close[i+613]
 -0.0002839130480886*Close[i+614]
 -0.0002868443681439*Close[i+615]
 -0.0002892773170133*Close[i+616]
 -0.0002912125455924*Close[i+617]
 -0.0002926484546556*Close[i+618]
 -0.0002935876608664*Close[i+619]
 -0.0002940351686765*Close[i+620]
 -0.0002939926101991*Close[i+621]
 -0.0002934627692674*Close[i+622]
 -0.0002924533092286*Close[i+623]
 -0.0002909703871368*Close[i+624]
 -0.0002890177975696*Close[i+625]
 -0.0002866038422290*Close[i+626]
 -0.0002837389523709*Close[i+627]
 -0.0002804297481345*Close[i+628]
 -0.0002766841881738*Close[i+629]
 -0.0002725151724738*Close[i+630]
 -0.0002679335537983*Close[i+631]
 -0.0002629476699140*Close[i+632]
 -0.0002575706331271*Close[i+633]
 -0.0002518173428167*Close[i+634]
 -0.0002456983802674*Close[i+635]
 -0.0002392258444285*Close[i+636]
 -0.0002324167910533*Close[i+637]
 -0.0002252856024152*Close[i+638]
 -0.0002178439719223*Close[i+639]
 -0.0002101086307918*Close[i+640]
 -0.0002020976829559*Close[i+641]
 -0.0001938243551732*Close[i+642]
 -0.0001853035865648*Close[i+643]
 -0.0001765552592281*Close[i+644]
 -0.0001675958834793*Close[i+645]
 -0.0001584391077276*Close[i+646]
 -0.0001491038999283*Close[i+647]
 -0.0001396101280245*Close[i+648]
 -0.0001299721891088*Close[i+649]
 -0.0001202064282394*Close[i+650]
 -0.0001103341078766*Close[i+651]
 -0.0001003723610986*Close[i+652]
 -0.0000903353097377*Close[i+653]
 -0.0000802427182630*Close[i+654]
 -0.0000701147317612*Close[i+655]
 -0.0000599654124139*Close[i+656]
 -0.0000498110720677*Close[i+657]
 -0.0000396729181956*Close[i+658]
 -0.00002956722165355*Close[i+659]
 -0.00001950713800248*Close[i+660]
 -0.00000951185119879*Close[i+661]
 +0.000000399632346163*Close[i+662]
 +0.00001021500629085*Close[i+663]
 +0.00001991932294878*Close[i+664]
 +0.00002949274478219*Close[i+665]
 +0.0000389212224595*Close[i+666]
 +0.0000481938609986*Close[i+667]
 +0.0000572932692923*Close[i+668]
 +0.0000662028275250*Close[i+669]
 +0.0000749132282077*Close[i+670]
 +0.0000834120179471*Close[i+671]
 +0.0000916818344570*Close[i+672]
 +0.0000997119988338*Close[i+673]
 +0.0001074949420949*Close[i+674]
 +0.0001150160314326*Close[i+675]
 +0.0001222620359994*Close[i+676]
 +0.0001292276373081*Close[i+677]
 +0.0001359037304671*Close[i+678]
 +0.0001422762519274*Close[i+679]
 +0.0001483387638703*Close[i+680]
 +0.0001540877922085*Close[i+681]
 +0.0001595121138038*Close[i+682]
 +0.0001646025810971*Close[i+683]
 +0.0001693585418115*Close[i+684]
 +0.0001737747566980*Close[i+685]
 +0.0001778409445205*Close[i+686]
 +0.0001815554479266*Close[i+687]
 +0.0001849193069614*Close[i+688]
 +0.0001879249927441*Close[i+689]
 +0.0001905677806513*Close[i+690]
 +0.0001928520055596*Close[i+691]
 +0.0001947764295844*Close[i+692]
 +0.0001963346576430*Close[i+693]
 +0.0001975299883265*Close[i+694]
 +0.0001983680133593*Close[i+695]
 +0.0001988447853490*Close[i+696]
 +0.0001989599658998*Close[i+697]
 +0.0001987228252636*Close[i+698]
 +0.0001981358643929*Close[i+699]
 +0.0001971962885612*Close[i+700]
 +0.0001959121642864*Close[i+701]
 +0.0001942932927566*Close[i+702]
 +0.0001923388024659*Close[i+703]
 +0.0001900523449452*Close[i+704]
 +0.0001874477252020*Close[i+705]
 +0.0001845305456261*Close[i+706]
 +0.0001813009687922*Close[i+707]
 +0.0001777713231546*Close[i+708]
 +0.0001739549439597*Close[i+709]
 +0.0001698531859884*Close[i+710]
 +0.0001654729984591*Close[i+711]
 +0.0001608320427888*Close[i+712]
 +0.0001559380785569*Close[i+713]
 +0.0001507933027818*Close[i+714]
 +0.0001454135738892*Close[i+715]
 +0.0001398148423602*Close[i+716]
 +0.0001339995846406*Close[i+717]
 +0.0001279771643695*Close[i+718]
 +0.0001217682536926*Close[i+719]
 +0.0001153816195330*Close[i+720]
 +0.0001088203998459*Close[i+721]
 +0.0001021031488353*Close[i+722]
 +0.0000952473850281*Close[i+723]
 +0.0000882554553040*Close[i+724]
 +0.0000811381883044*Close[i+725]
 +0.0000739183805414*Close[i+726]
 +0.0000666045591161*Close[i+727]
 +0.0000591996527112*Close[i+728]
 +0.0000517241038772*Close[i+729]
 +0.0000441959351652*Close[i+730]
 +0.0000366160635480*Close[i+731]
 +0.00002899588348533*Close[i+732]
 +0.00002135950348678*Close[i+733]
 +0.00001371395129249*Close[i+734]
 +0.00000606082953904*Close[i+735]
 -0.000001578202532983*Close[i+736]
 -0.00000918561739782*Close[i+737]
 -0.00001676321703107*Close[i+738]
 -0.00002429980305423*Close[i+739]
 -0.0000317706091274*Close[i+740]
 -0.0000391713372817*Close[i+741]
 -0.0000465027437438*Close[i+742]
 -0.0000537424086320*Close[i+743]
 -0.0000608741915081*Close[i+744]
 -0.0000679038773598*Close[i+745]
 -0.0000748210317063*Close[i+746]
 -0.0000816006700736*Close[i+747]
 -0.0000882424285201*Close[i+748]
 -0.0000947503552346*Close[i+749]
 -0.0001011014452566*Close[i+750]
 -0.0001072817174167*Close[i+751]
 -0.0001133022029156*Close[i+752]
 -0.0001191535574195*Close[i+753]
 -0.0001248107515515*Close[i+754]
 -0.0001302785668358*Close[i+755]
 -0.0001355651751755*Close[i+756]
 -0.0001406467986886*Close[i+757]
 -0.0001455122612225*Close[i+758]
 -0.0001501791488379*Close[i+759]
 -0.0001546392212075*Close[i+760]
 -0.0001588672297279*Close[i+761]
 -0.0001628743714470*Close[i+762]
 -0.0001666736648469*Close[i+763]
 -0.0001702398681459*Close[i+764]
 -0.0001735651125665*Close[i+765]
 -0.0001766749611682*Close[i+766]
 -0.0001795618557439*Close[i+767]
 -0.0001821996680629*Close[i+768]
 -0.0001846074219524*Close[i+769]
 -0.0001868035827396*Close[i+770]
 -0.0001887600188798*Close[i+771]
 -0.0001904725076030*Close[i+772]
 -0.0001919762525970*Close[i+773]
 -0.0001932633255061*Close[i+774]
 -0.0001943053570176*Close[i+775]
 -0.0001951309245199*Close[i+776]
 -0.0001957644295118*Close[i+777]
 -0.0001961723235432*Close[i+778]
 -0.0001963542198301*Close[i+779]
 -0.0001963571546459*Close[i+780]
 -0.0001961708570226*Close[i+781]
 -0.0001957623317439*Close[i+782]
 -0.0001951721501551*Close[i+783]
 -0.0001944311305955*Close[i+784]
 -0.0001934960761562*Close[i+785]
 -0.0001923705960303*Close[i+786]
 -0.0001911169219677*Close[i+787]
 -0.0001897190798496*Close[i+788]
 -0.0001881355026043*Close[i+789]
 -0.0001864227918244*Close[i+790]
 -0.0001846189525848*Close[i+791]
 -0.0001826640664766*Close[i+792]
 -0.0001805661912644*Close[i+793]
 -0.0001784087030955*Close[i+794]
 -0.0001761642593915*Close[i+795]
 -0.0001737761123725*Close[i+796]
 -0.0001713244812287*Close[i+797]
 -0.0001688563165235*Close[i+798]
 -0.0001662825306801*Close[i+799]
 -0.0001636170850334*Close[i+800]
 -0.0001609763035029*Close[i+801]
 -0.0001583113287362*Close[i+802]
 -0.0001555382134499*Close[i+803]
 -0.0001527766121215*Close[i+804]
 -0.0001500868788950*Close[i+805]
 -0.0001473263242033*Close[i+806]
 -0.0001445188481729*Close[i+807]
 -0.0001418400087027*Close[i+808]
 -0.0001391987679698*Close[i+809]
 -0.0001364583665241*Close[i+810]
 -0.0001338150987366*Close[i+811]
 -0.0001313551025405*Close[i+812]
 -0.0001288249658113*Close[i+813]
 -0.0001262691148119*Close[i+814]
 -0.0001239916619698*Close[i+815]
 -0.0001218080783272*Close[i+816]
 -0.0001194585302002*Close[i+817]
 -0.0001173222626535*Close[i+818]
 -0.0001155546908472*Close[i+819]
 -0.0001136158822823*Close[i+820]
 -0.0001115984926584*Close[i+821]
 -0.0001101837021212*Close[i+822]
 -0.0001089214873062*Close[i+823]
 -0.0001071309721895*Close[i+824]
 -0.0001058135489049*Close[i+825]
 -0.0001054641620398*Close[i+826]
 -0.0001043471501716*Close[i+827]
 -0.0001025947510561*Close[i+828]
 -0.0001030625964828*Close[i+829]
 -0.0001041123488654*Close[i+830]
 -0.0001007522167187*Close[i+831]
 -0.0000987158367196*Close[i+832]
 -0.0001117054113262*Close[i+833]
 -0.0001059718261423*Close[i+834]
 +0.00497346918136*Close[i+835];
FilterBuffer[i]=response;

i--;
}
return(0);
}