//+------------------------------------------------------------------+ //| Digital High Pass (KGHP) Filter | //| Created by newdigital | //| Using the Generator of Digital Filters | //| http://www.forex-tsd.com/ | //+------------------------------------------------------------------+ //+------------------------------------------------------------------------+ //| I wanted to create the KGHP digital filter and was failed. | //| But when I attached this indicator to the indicator window together | //| with other filters (in one indicator window) I recognized that | //| it is great indicator. It follows the price and seems it is like | //| the price curve in the indicator window. Just attach an other filter to| //| the same window and this KGHP indicator will be as price curve. | //| It is very easy to analyze everything.*/ | //| --- Parameters: P1=30, D1=29, A1=40 | //| --- P2=52, D2=31, A2=40, Ripple=0.08, Delay=0 | //| --- Order [Auto]=858, Calculate method=2 | //+------------------------------------------------------------------------+ #property copyright "newdigital" #property link "http://www.forex-tsd.com/" //---- #property indicator_separate_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,858); //---- return(0); } //+------------------------------------------------------------------+ //| Digital filter main function | //+------------------------------------------------------------------+ int start() { int i,counted_bars=IndicatorCounted(); double response; //---- if(Bars<=858) return(0); //---- initial zero if(counted_bars<858) for(i=1;i<=0;i++) FilterBuffer[Bars-i]=0.0; //---- i=Bars-858-1; if(counted_bars>=858) i=Bars-counted_bars-1; while(i>=0) { response= 1.000000000000*Close[i+0] +0.000000000000000039*Close[i+1] -0.000000000000000038*Close[i+2] +0.000000000000000038*Close[i+3] -0.000000000000000039*Close[i+4] +0.000000000000000039*Close[i+5] -0.000000000000000039*Close[i+6] +0.000000000000000038*Close[i+7] -0.000000000000000039*Close[i+8] +0.000000000000000039*Close[i+9] -0.000000000000000039*Close[i+10] +0.000000000000000038*Close[i+11] -0.000000000000000039*Close[i+12] +0.000000000000000039*Close[i+13] -0.000000000000000039*Close[i+14] +0.000000000000000038*Close[i+15] -0.000000000000000039*Close[i+16] +0.000000000000000039*Close[i+17] -0.000000000000000039*Close[i+18] +0.000000000000000038*Close[i+19] -0.000000000000000039*Close[i+20] +0.000000000000000039*Close[i+21] -0.000000000000000038*Close[i+22] +0.000000000000000039*Close[i+23] -0.000000000000000039*Close[i+24] +0.000000000000000039*Close[i+25] -0.000000000000000039*Close[i+26] +0.000000000000000038*Close[i+27] -0.000000000000000039*Close[i+28] +0.000000000000000039*Close[i+29] -0.000000000000000039*Close[i+30] +0.000000000000000038*Close[i+31] -0.000000000000000039*Close[i+32] +0.000000000000000039*Close[i+33] -0.000000000000000039*Close[i+34] +0.000000000000000039*Close[i+35] -0.000000000000000039*Close[i+36] +0.000000000000000039*Close[i+37] -0.000000000000000039*Close[i+38] +0.000000000000000039*Close[i+39] -0.000000000000000039*Close[i+40] +0.000000000000000039*Close[i+41] -0.000000000000000039*Close[i+42] +0.000000000000000039*Close[i+43] -0.000000000000000039*Close[i+44] +0.000000000000000039*Close[i+45] -0.000000000000000039*Close[i+46] +0.000000000000000039*Close[i+47] -0.000000000000000039*Close[i+48] +0.000000000000000039*Close[i+49] -0.000000000000000039*Close[i+50] +0.000000000000000039*Close[i+51] -0.000000000000000039*Close[i+52] +0.000000000000000039*Close[i+53] -0.000000000000000039*Close[i+54] +0.000000000000000039*Close[i+55] -0.000000000000000039*Close[i+56] +0.000000000000000039*Close[i+57] -0.000000000000000039*Close[i+58] +0.000000000000000039*Close[i+59] -0.000000000000000039*Close[i+60] +0.000000000000000039*Close[i+61] -0.000000000000000039*Close[i+62] +0.000000000000000039*Close[i+63] -0.000000000000000039*Close[i+64] +0.000000000000000039*Close[i+65] -0.000000000000000039*Close[i+66] +0.000000000000000039*Close[i+67] -0.000000000000000039*Close[i+68] +0.000000000000000039*Close[i+69] -0.000000000000000039*Close[i+70] +0.000000000000000039*Close[i+71] -0.000000000000000039*Close[i+72] +0.000000000000000039*Close[i+73] -0.000000000000000039*Close[i+74] +0.000000000000000039*Close[i+75] -0.000000000000000039*Close[i+76] +0.000000000000000039*Close[i+77] -0.000000000000000039*Close[i+78] +0.000000000000000039*Close[i+79] -0.000000000000000039*Close[i+80] +0.000000000000000039*Close[i+81] -0.000000000000000039*Close[i+82] +0.000000000000000039*Close[i+83] -0.000000000000000039*Close[i+84] +0.000000000000000039*Close[i+85] -0.000000000000000039*Close[i+86] +0.000000000000000039*Close[i+87] -0.000000000000000039*Close[i+88] +0.000000000000000039*Close[i+89] -0.000000000000000039*Close[i+90] +0.000000000000000039*Close[i+91] -0.000000000000000039*Close[i+92] +0.000000000000000039*Close[i+93] -0.000000000000000039*Close[i+94] +0.000000000000000039*Close[i+95] -0.000000000000000039*Close[i+96] +0.000000000000000039*Close[i+97] -0.000000000000000039*Close[i+98] +0.000000000000000039*Close[i+99] -0.000000000000000039*Close[i+100] +0.000000000000000039*Close[i+101] -0.000000000000000039*Close[i+102] +0.000000000000000039*Close[i+103] -0.000000000000000039*Close[i+104] +0.000000000000000039*Close[i+105] -0.000000000000000039*Close[i+106] +0.000000000000000039*Close[i+107] -0.000000000000000039*Close[i+108] +0.000000000000000039*Close[i+109] -0.000000000000000039*Close[i+110] +0.000000000000000039*Close[i+111] -0.000000000000000039*Close[i+112] +0.000000000000000039*Close[i+113] -0.000000000000000039*Close[i+114] +0.000000000000000039*Close[i+115] -0.000000000000000039*Close[i+116] +0.000000000000000039*Close[i+117] -0.000000000000000039*Close[i+118] +0.000000000000000039*Close[i+119] -0.000000000000000039*Close[i+120] +0.000000000000000039*Close[i+121] -0.000000000000000039*Close[i+122] +0.000000000000000039*Close[i+123] -0.000000000000000039*Close[i+124] +0.000000000000000039*Close[i+125] -0.000000000000000039*Close[i+126] +0.000000000000000039*Close[i+127] -0.000000000000000039*Close[i+128] +0.000000000000000039*Close[i+129] -0.000000000000000039*Close[i+130] +0.000000000000000039*Close[i+131] -0.000000000000000039*Close[i+132] +0.000000000000000039*Close[i+133] -0.000000000000000039*Close[i+134] +0.000000000000000039*Close[i+135] -0.000000000000000039*Close[i+136] +0.000000000000000039*Close[i+137] -0.000000000000000039*Close[i+138] +0.000000000000000039*Close[i+139] -0.000000000000000039*Close[i+140] +0.000000000000000039*Close[i+141] -0.000000000000000039*Close[i+142] +0.000000000000000039*Close[i+143] -0.000000000000000039*Close[i+144] +0.000000000000000039*Close[i+145] -0.000000000000000039*Close[i+146] +0.000000000000000039*Close[i+147] -0.000000000000000039*Close[i+148] +0.000000000000000039*Close[i+149] -0.000000000000000039*Close[i+150] +0.000000000000000039*Close[i+151] -0.000000000000000039*Close[i+152] +0.000000000000000039*Close[i+153] -0.000000000000000039*Close[i+154] +0.000000000000000039*Close[i+155] -0.000000000000000039*Close[i+156] +0.000000000000000039*Close[i+157] -0.000000000000000039*Close[i+158] +0.000000000000000039*Close[i+159] -0.000000000000000039*Close[i+160] +0.000000000000000039*Close[i+161] -0.000000000000000039*Close[i+162] +0.000000000000000039*Close[i+163] -0.000000000000000039*Close[i+164] +0.000000000000000039*Close[i+165] -0.000000000000000039*Close[i+166] +0.000000000000000039*Close[i+167] -0.000000000000000039*Close[i+168] +0.000000000000000039*Close[i+169] -0.000000000000000039*Close[i+170] +0.000000000000000039*Close[i+171] -0.000000000000000039*Close[i+172] +0.000000000000000039*Close[i+173] -0.000000000000000039*Close[i+174] +0.000000000000000039*Close[i+175] -0.000000000000000039*Close[i+176] +0.000000000000000040*Close[i+177] -0.000000000000000039*Close[i+178] +0.000000000000000039*Close[i+179] -0.000000000000000039*Close[i+180] +0.000000000000000039*Close[i+181] -0.000000000000000039*Close[i+182] +0.000000000000000039*Close[i+183] -0.000000000000000039*Close[i+184] +0.000000000000000039*Close[i+185] -0.000000000000000039*Close[i+186] +0.000000000000000039*Close[i+187] -0.000000000000000039*Close[i+188] +0.000000000000000039*Close[i+189] -0.000000000000000039*Close[i+190] +0.000000000000000039*Close[i+191] -0.000000000000000039*Close[i+192] +0.000000000000000039*Close[i+193] -0.000000000000000039*Close[i+194] +0.000000000000000039*Close[i+195] -0.000000000000000039*Close[i+196] +0.000000000000000039*Close[i+197] -0.000000000000000039*Close[i+198] +0.000000000000000039*Close[i+199] -0.000000000000000039*Close[i+200] +0.000000000000000039*Close[i+201] -0.000000000000000039*Close[i+202] +0.000000000000000039*Close[i+203] -0.000000000000000039*Close[i+204] +0.000000000000000039*Close[i+205] -0.000000000000000039*Close[i+206] +0.000000000000000040*Close[i+207] -0.000000000000000040*Close[i+208] +0.000000000000000041*Close[i+209] -0.000000000000000039*Close[i+210] +0.000000000000000039*Close[i+211] -0.000000000000000040*Close[i+212] +0.000000000000000039*Close[i+213] -0.000000000000000039*Close[i+214] +0.000000000000000039*Close[i+215] -0.000000000000000040*Close[i+216] +0.000000000000000039*Close[i+217] -0.000000000000000040*Close[i+218] +0.000000000000000039*Close[i+219] -0.000000000000000040*Close[i+220] +0.000000000000000039*Close[i+221] -0.000000000000000040*Close[i+222] +0.000000000000000040*Close[i+223] -0.000000000000000040*Close[i+224] +0.000000000000000040*Close[i+225] -0.000000000000000040*Close[i+226] +0.000000000000000040*Close[i+227] -0.000000000000000040*Close[i+228] +0.000000000000000040*Close[i+229] -0.000000000000000040*Close[i+230] +0.000000000000000040*Close[i+231] -0.000000000000000040*Close[i+232] +0.000000000000000040*Close[i+233] -0.000000000000000040*Close[i+234] +0.000000000000000040*Close[i+235] -0.000000000000000040*Close[i+236] +0.000000000000000040*Close[i+237] -0.000000000000000040*Close[i+238] +0.000000000000000040*Close[i+239] -0.000000000000000040*Close[i+240] +0.000000000000000040*Close[i+241] -0.000000000000000040*Close[i+242] +0.000000000000000040*Close[i+243] -0.000000000000000040*Close[i+244] +0.000000000000000040*Close[i+245] -0.000000000000000040*Close[i+246] +0.000000000000000040*Close[i+247] -0.000000000000000040*Close[i+248] +0.000000000000000040*Close[i+249] -0.000000000000000040*Close[i+250] +0.000000000000000040*Close[i+251] -0.000000000000000041*Close[i+252] +0.000000000000000040*Close[i+253] -0.000000000000000040*Close[i+254] +0.000000000000000040*Close[i+255] -0.000000000000000040*Close[i+256] +0.000000000000000040*Close[i+257] -0.000000000000000040*Close[i+258] +0.000000000000000040*Close[i+259] -0.000000000000000040*Close[i+260] +0.000000000000000040*Close[i+261] -0.000000000000000040*Close[i+262] +0.000000000000000040*Close[i+263] -0.000000000000000040*Close[i+264] +0.000000000000000040*Close[i+265] -0.000000000000000040*Close[i+266] +0.000000000000000040*Close[i+267] -0.000000000000000040*Close[i+268] +0.000000000000000040*Close[i+269] -0.000000000000000040*Close[i+270] +0.000000000000000040*Close[i+271] -0.000000000000000040*Close[i+272] +0.000000000000000040*Close[i+273] -0.000000000000000040*Close[i+274] +0.000000000000000040*Close[i+275] -0.000000000000000040*Close[i+276] +0.000000000000000041*Close[i+277] -0.000000000000000040*Close[i+278] +0.000000000000000040*Close[i+279] -0.000000000000000041*Close[i+280] +0.000000000000000040*Close[i+281] -0.000000000000000040*Close[i+282] +0.000000000000000040*Close[i+283] -0.000000000000000041*Close[i+284] +0.000000000000000040*Close[i+285] -0.000000000000000040*Close[i+286] +0.000000000000000041*Close[i+287] -0.000000000000000040*Close[i+288] +0.000000000000000040*Close[i+289] -0.000000000000000040*Close[i+290] +0.000000000000000040*Close[i+291] -0.000000000000000040*Close[i+292] +0.000000000000000041*Close[i+293] -0.000000000000000040*Close[i+294] +0.000000000000000040*Close[i+295] -0.000000000000000041*Close[i+296] +0.000000000000000041*Close[i+297] -0.000000000000000040*Close[i+298] +0.000000000000000041*Close[i+299] -0.000000000000000040*Close[i+300] +0.000000000000000040*Close[i+301] -0.000000000000000041*Close[i+302] +0.000000000000000041*Close[i+303] -0.000000000000000040*Close[i+304] +0.000000000000000041*Close[i+305] -0.000000000000000041*Close[i+306] +0.000000000000000041*Close[i+307] -0.000000000000000041*Close[i+308] +0.000000000000000041*Close[i+309] -0.000000000000000041*Close[i+310] +0.000000000000000041*Close[i+311] -0.000000000000000041*Close[i+312] +0.000000000000000041*Close[i+313] -0.000000000000000041*Close[i+314] +0.000000000000000041*Close[i+315] -0.000000000000000041*Close[i+316] +0.000000000000000041*Close[i+317] -0.000000000000000041*Close[i+318] +0.000000000000000041*Close[i+319] -0.000000000000000041*Close[i+320] +0.000000000000000041*Close[i+321] -0.000000000000000041*Close[i+322] +0.000000000000000041*Close[i+323] -0.000000000000000041*Close[i+324] +0.000000000000000041*Close[i+325] -0.000000000000000041*Close[i+326] +0.000000000000000041*Close[i+327] -0.000000000000000041*Close[i+328] +0.000000000000000041*Close[i+329] -0.000000000000000041*Close[i+330] +0.000000000000000041*Close[i+331] -0.000000000000000041*Close[i+332] +0.000000000000000041*Close[i+333] -0.000000000000000041*Close[i+334] +0.000000000000000041*Close[i+335] -0.000000000000000041*Close[i+336] +0.000000000000000041*Close[i+337] -0.000000000000000041*Close[i+338] +0.000000000000000041*Close[i+339] -0.000000000000000042*Close[i+340] +0.000000000000000041*Close[i+341] -0.000000000000000041*Close[i+342] +0.000000000000000041*Close[i+343] -0.000000000000000041*Close[i+344] +0.000000000000000041*Close[i+345] -0.000000000000000041*Close[i+346] +0.000000000000000041*Close[i+347] -0.000000000000000043*Close[i+348] +0.000000000000000041*Close[i+349] -0.000000000000000041*Close[i+350] +0.000000000000000041*Close[i+351] -0.000000000000000041*Close[i+352] +0.000000000000000041*Close[i+353] -0.000000000000000041*Close[i+354] +0.000000000000000041*Close[i+355] -0.000000000000000041*Close[i+356] +0.000000000000000041*Close[i+357] -0.000000000000000042*Close[i+358] +0.000000000000000041*Close[i+359] -0.000000000000000042*Close[i+360] +0.000000000000000042*Close[i+361] -0.000000000000000042*Close[i+362] +0.000000000000000042*Close[i+363] -0.000000000000000042*Close[i+364] +0.000000000000000042*Close[i+365] -0.000000000000000042*Close[i+366] +0.000000000000000042*Close[i+367] -0.000000000000000042*Close[i+368] +0.000000000000000042*Close[i+369] -0.000000000000000042*Close[i+370] +0.000000000000000042*Close[i+371] -0.000000000000000042*Close[i+372] +0.000000000000000042*Close[i+373] -0.000000000000000042*Close[i+374] +0.000000000000000042*Close[i+375] -0.000000000000000041*Close[i+376] +0.000000000000000042*Close[i+377] -0.000000000000000042*Close[i+378] +0.000000000000000042*Close[i+379] -0.000000000000000042*Close[i+380] +0.000000000000000042*Close[i+381] -0.000000000000000043*Close[i+382] +0.000000000000000042*Close[i+383] -0.000000000000000042*Close[i+384] +0.000000000000000042*Close[i+385] -0.000000000000000042*Close[i+386] +0.000000000000000041*Close[i+387] -0.000000000000000042*Close[i+388] +0.000000000000000042*Close[i+389] -0.000000000000000042*Close[i+390] +0.000000000000000042*Close[i+391] -0.000000000000000042*Close[i+392] +0.000000000000000042*Close[i+393] -0.000000000000000042*Close[i+394] +0.000000000000000042*Close[i+395] -0.000000000000000042*Close[i+396] +0.000000000000000042*Close[i+397] -0.000000000000000042*Close[i+398] +0.000000000000000042*Close[i+399] -0.000000000000000042*Close[i+400] +0.000000000000000042*Close[i+401] -0.000000000000000042*Close[i+402] +0.000000000000000042*Close[i+403] -0.000000000000000042*Close[i+404] +0.000000000000000042*Close[i+405] -0.000000000000000043*Close[i+406] +0.000000000000000043*Close[i+407] -0.000000000000000042*Close[i+408] +0.000000000000000042*Close[i+409] -0.000000000000000043*Close[i+410] +0.000000000000000043*Close[i+411] -0.000000000000000042*Close[i+412] +0.000000000000000043*Close[i+413] -0.000000000000000042*Close[i+414] +0.000000000000000041*Close[i+415] -0.000000000000000043*Close[i+416] +0.000000000000000043*Close[i+417] -0.000000000000000042*Close[i+418] +0.000000000000000042*Close[i+419] -0.000000000000000043*Close[i+420] +0.000000000000000042*Close[i+421] -0.000000000000000043*Close[i+422] +0.000000000000000042*Close[i+423] -0.000000000000000043*Close[i+424] +0.000000000000000043*Close[i+425] -0.000000000000000043*Close[i+426] +0.000000000000000043*Close[i+427] -0.000000000000000043*Close[i+428] +0.000000000000000043*Close[i+429] -0.000000000000000043*Close[i+430] +0.000000000000000043*Close[i+431] -0.000000000000000043*Close[i+432] +0.000000000000000043*Close[i+433] -0.000000000000000043*Close[i+434] +0.000000000000000043*Close[i+435] -0.000000000000000043*Close[i+436] +0.000000000000000043*Close[i+437] -0.000000000000000043*Close[i+438] +0.000000000000000043*Close[i+439] -0.000000000000000043*Close[i+440] +0.000000000000000043*Close[i+441] -0.000000000000000043*Close[i+442] +0.000000000000000043*Close[i+443] -0.000000000000000043*Close[i+444] +0.000000000000000043*Close[i+445] -0.000000000000000043*Close[i+446] +0.000000000000000043*Close[i+447] -0.000000000000000043*Close[i+448] +0.000000000000000043*Close[i+449] -0.000000000000000047*Close[i+450] +0.000000000000000043*Close[i+451] -0.000000000000000044*Close[i+452] +0.000000000000000043*Close[i+453] -0.000000000000000043*Close[i+454] +0.000000000000000043*Close[i+455] -0.000000000000000043*Close[i+456] +0.000000000000000042*Close[i+457] -0.000000000000000043*Close[i+458] +0.000000000000000044*Close[i+459] -0.000000000000000043*Close[i+460] +0.000000000000000044*Close[i+461] -0.000000000000000044*Close[i+462] +0.000000000000000044*Close[i+463] -0.000000000000000044*Close[i+464] +0.000000000000000044*Close[i+465] -0.000000000000000044*Close[i+466] +0.000000000000000044*Close[i+467] -0.000000000000000044*Close[i+468] +0.000000000000000044*Close[i+469] -0.000000000000000044*Close[i+470] +0.000000000000000044*Close[i+471] -0.000000000000000044*Close[i+472] +0.000000000000000044*Close[i+473] -0.000000000000000044*Close[i+474] +0.000000000000000044*Close[i+475] -0.000000000000000044*Close[i+476] +0.000000000000000044*Close[i+477] -0.000000000000000044*Close[i+478] +0.000000000000000044*Close[i+479] -0.000000000000000044*Close[i+480] +0.000000000000000044*Close[i+481] -0.000000000000000045*Close[i+482] +0.000000000000000044*Close[i+483] -0.000000000000000044*Close[i+484] +0.000000000000000044*Close[i+485] -0.000000000000000044*Close[i+486] +0.000000000000000044*Close[i+487] -0.000000000000000044*Close[i+488] +0.000000000000000044*Close[i+489] -0.000000000000000044*Close[i+490] +0.000000000000000045*Close[i+491] -0.000000000000000044*Close[i+492] +0.000000000000000044*Close[i+493] -0.000000000000000044*Close[i+494] +0.000000000000000044*Close[i+495] -0.000000000000000044*Close[i+496] +0.000000000000000044*Close[i+497] -0.000000000000000045*Close[i+498] +0.000000000000000045*Close[i+499] -0.000000000000000044*Close[i+500] +0.000000000000000044*Close[i+501] -0.000000000000000044*Close[i+502] +0.000000000000000045*Close[i+503] -0.000000000000000045*Close[i+504] +0.000000000000000045*Close[i+505] -0.000000000000000045*Close[i+506] +0.000000000000000045*Close[i+507] -0.000000000000000044*Close[i+508] +0.000000000000000045*Close[i+509] -0.000000000000000045*Close[i+510] +0.000000000000000045*Close[i+511] -0.000000000000000045*Close[i+512] +0.000000000000000045*Close[i+513] -0.000000000000000045*Close[i+514] +0.000000000000000045*Close[i+515] -0.000000000000000045*Close[i+516] +0.000000000000000045*Close[i+517] -0.000000000000000045*Close[i+518] +0.000000000000000045*Close[i+519] -0.000000000000000045*Close[i+520] +0.000000000000000045*Close[i+521] -0.000000000000000043*Close[i+522] +0.000000000000000046*Close[i+523] -0.000000000000000045*Close[i+524] +0.000000000000000045*Close[i+525] -0.000000000000000045*Close[i+526] +0.000000000000000045*Close[i+527] -0.000000000000000045*Close[i+528] +0.000000000000000046*Close[i+529] -0.000000000000000045*Close[i+530] +0.000000000000000046*Close[i+531] -0.000000000000000046*Close[i+532] +0.000000000000000046*Close[i+533] -0.000000000000000046*Close[i+534] +0.000000000000000045*Close[i+535] -0.000000000000000046*Close[i+536] +0.000000000000000045*Close[i+537] -0.000000000000000046*Close[i+538] +0.000000000000000046*Close[i+539] -0.000000000000000046*Close[i+540] +0.000000000000000045*Close[i+541] -0.000000000000000046*Close[i+542] +0.000000000000000046*Close[i+543] -0.000000000000000046*Close[i+544] +0.000000000000000046*Close[i+545] -0.000000000000000046*Close[i+546] +0.000000000000000045*Close[i+547] -0.000000000000000046*Close[i+548] +0.000000000000000046*Close[i+549] -0.000000000000000046*Close[i+550] +0.000000000000000046*Close[i+551] -0.000000000000000046*Close[i+552] +0.000000000000000046*Close[i+553] -0.000000000000000046*Close[i+554] +0.000000000000000046*Close[i+555] -0.000000000000000046*Close[i+556] +0.000000000000000046*Close[i+557] -0.000000000000000044*Close[i+558] +0.000000000000000046*Close[i+559] -0.000000000000000046*Close[i+560] +0.000000000000000046*Close[i+561] -0.000000000000000046*Close[i+562] +0.000000000000000046*Close[i+563] -0.000000000000000046*Close[i+564] +0.000000000000000047*Close[i+565] -0.000000000000000047*Close[i+566] +0.000000000000000046*Close[i+567] -0.000000000000000047*Close[i+568] +0.000000000000000047*Close[i+569] -0.000000000000000047*Close[i+570] +0.000000000000000046*Close[i+571] -0.000000000000000047*Close[i+572] +0.000000000000000046*Close[i+573] -0.000000000000000047*Close[i+574] +0.000000000000000047*Close[i+575] -0.000000000000000047*Close[i+576] +0.000000000000000047*Close[i+577] -0.000000000000000047*Close[i+578] +0.000000000000000047*Close[i+579] -0.000000000000000046*Close[i+580] +0.000000000000000047*Close[i+581] -0.000000000000000047*Close[i+582] +0.000000000000000047*Close[i+583] -0.000000000000000047*Close[i+584] +0.000000000000000047*Close[i+585] -0.000000000000000047*Close[i+586] +0.000000000000000047*Close[i+587] -0.000000000000000047*Close[i+588] +0.000000000000000047*Close[i+589] -0.000000000000000048*Close[i+590] +0.000000000000000047*Close[i+591] -0.000000000000000048*Close[i+592] +0.000000000000000048*Close[i+593] -0.000000000000000048*Close[i+594] +0.000000000000000048*Close[i+595] -0.000000000000000049*Close[i+596] +0.000000000000000047*Close[i+597] -0.000000000000000047*Close[i+598] +0.000000000000000046*Close[i+599] -0.000000000000000048*Close[i+600] +0.000000000000000048*Close[i+601] -0.000000000000000048*Close[i+602] +0.000000000000000048*Close[i+603] -0.000000000000000048*Close[i+604] +0.000000000000000048*Close[i+605] -0.000000000000000048*Close[i+606] +0.000000000000000048*Close[i+607] -0.000000000000000048*Close[i+608] +0.000000000000000048*Close[i+609] -0.000000000000000048*Close[i+610] +0.000000000000000048*Close[i+611] -0.000000000000000048*Close[i+612] +0.000000000000000048*Close[i+613] -0.000000000000000048*Close[i+614] +0.000000000000000048*Close[i+615] -0.000000000000000048*Close[i+616] +0.000000000000000048*Close[i+617] -0.000000000000000048*Close[i+618] +0.000000000000000048*Close[i+619] -0.000000000000000048*Close[i+620] +0.000000000000000048*Close[i+621] -0.000000000000000049*Close[i+622] +0.000000000000000049*Close[i+623] -0.000000000000000049*Close[i+624] +0.000000000000000049*Close[i+625] -0.000000000000000048*Close[i+626] +0.000000000000000049*Close[i+627] -0.000000000000000052*Close[i+628] +0.000000000000000049*Close[i+629] -0.000000000000000049*Close[i+630] +0.000000000000000049*Close[i+631] -0.000000000000000049*Close[i+632] +0.000000000000000049*Close[i+633] -0.000000000000000049*Close[i+634] +0.000000000000000049*Close[i+635] -0.000000000000000049*Close[i+636] +0.000000000000000049*Close[i+637] -0.000000000000000049*Close[i+638] +0.000000000000000049*Close[i+639] -0.000000000000000049*Close[i+640] +0.000000000000000049*Close[i+641] -0.000000000000000049*Close[i+642] +0.000000000000000049*Close[i+643] -0.000000000000000049*Close[i+644] +0.000000000000000049*Close[i+645] -0.000000000000000049*Close[i+646] +0.000000000000000050*Close[i+647] -0.000000000000000050*Close[i+648] +0.000000000000000050*Close[i+649] -0.000000000000000049*Close[i+650] +0.000000000000000050*Close[i+651] -0.000000000000000050*Close[i+652] +0.000000000000000050*Close[i+653] -0.000000000000000050*Close[i+654] +0.000000000000000050*Close[i+655] -0.000000000000000050*Close[i+656] +0.000000000000000050*Close[i+657] -0.000000000000000049*Close[i+658] +0.000000000000000050*Close[i+659] -0.000000000000000050*Close[i+660] +0.000000000000000050*Close[i+661] -0.000000000000000051*Close[i+662] +0.000000000000000050*Close[i+663] -0.000000000000000050*Close[i+664] +0.000000000000000050*Close[i+665] -0.000000000000000050*Close[i+666] +0.000000000000000051*Close[i+667] -0.000000000000000049*Close[i+668] +0.000000000000000052*Close[i+669] -0.000000000000000047*Close[i+670] +0.000000000000000050*Close[i+671] -0.000000000000000051*Close[i+672] +0.000000000000000050*Close[i+673] -0.000000000000000050*Close[i+674] +0.000000000000000050*Close[i+675] -0.000000000000000050*Close[i+676] +0.000000000000000050*Close[i+677] -0.000000000000000050*Close[i+678] +0.000000000000000051*Close[i+679] -0.000000000000000051*Close[i+680] +0.000000000000000050*Close[i+681] -0.000000000000000051*Close[i+682] +0.000000000000000051*Close[i+683] -0.000000000000000050*Close[i+684] +0.000000000000000051*Close[i+685] -0.000000000000000051*Close[i+686] +0.000000000000000051*Close[i+687] -0.000000000000000052*Close[i+688] +0.000000000000000051*Close[i+689] -0.000000000000000051*Close[i+690] +0.000000000000000052*Close[i+691] -0.000000000000000052*Close[i+692] +0.000000000000000051*Close[i+693] -0.000000000000000052*Close[i+694] +0.000000000000000051*Close[i+695] -0.000000000000000050*Close[i+696] +0.000000000000000050*Close[i+697] -0.000000000000000051*Close[i+698] +0.000000000000000052*Close[i+699] -0.000000000000000052*Close[i+700] +0.000000000000000052*Close[i+701] -0.000000000000000052*Close[i+702] +0.000000000000000052*Close[i+703] -0.000000000000000052*Close[i+704] +0.000000000000000051*Close[i+705] -0.000000000000000053*Close[i+706] +0.000000000000000052*Close[i+707] -0.000000000000000052*Close[i+708] +0.000000000000000053*Close[i+709] -0.000000000000000052*Close[i+710] +0.000000000000000052*Close[i+711] -0.000000000000000053*Close[i+712] +0.000000000000000052*Close[i+713] -0.000000000000000052*Close[i+714] +0.000000000000000053*Close[i+715] -0.000000000000000053*Close[i+716] +0.000000000000000052*Close[i+717] -0.000000000000000053*Close[i+718] +0.000000000000000052*Close[i+719] -0.000000000000000053*Close[i+720] +0.000000000000000051*Close[i+721] -0.000000000000000053*Close[i+722] +0.000000000000000053*Close[i+723] -0.000000000000000053*Close[i+724] +0.000000000000000054*Close[i+725] -0.000000000000000053*Close[i+726] +0.000000000000000053*Close[i+727] -0.000000000000000055*Close[i+728] +0.000000000000000053*Close[i+729] -0.000000000000000053*Close[i+730] +0.000000000000000053*Close[i+731] -0.000000000000000054*Close[i+732] +0.000000000000000053*Close[i+733] -0.000000000000000053*Close[i+734] +0.000000000000000053*Close[i+735] -0.000000000000000053*Close[i+736] +0.000000000000000054*Close[i+737] -0.000000000000000054*Close[i+738] +0.000000000000000054*Close[i+739] -0.000000000000000054*Close[i+740] +0.000000000000000054*Close[i+741] -0.000000000000000053*Close[i+742] +0.000000000000000054*Close[i+743] -0.000000000000000053*Close[i+744] +0.000000000000000054*Close[i+745] -0.000000000000000053*Close[i+746] +0.000000000000000054*Close[i+747] -0.000000000000000054*Close[i+748] +0.000000000000000053*Close[i+749] -0.000000000000000054*Close[i+750] +0.000000000000000054*Close[i+751] -0.000000000000000054*Close[i+752] +0.000000000000000054*Close[i+753] -0.000000000000000054*Close[i+754] +0.000000000000000054*Close[i+755] -0.000000000000000055*Close[i+756] +0.000000000000000055*Close[i+757] -0.000000000000000054*Close[i+758] +0.000000000000000055*Close[i+759] -0.000000000000000056*Close[i+760] +0.000000000000000055*Close[i+761] -0.000000000000000052*Close[i+762] +0.000000000000000054*Close[i+763] -0.000000000000000056*Close[i+764] +0.000000000000000054*Close[i+765] -0.000000000000000054*Close[i+766] +0.000000000000000055*Close[i+767] -0.000000000000000055*Close[i+768] +0.000000000000000055*Close[i+769] -0.000000000000000055*Close[i+770] +0.000000000000000055*Close[i+771] -0.000000000000000055*Close[i+772] +0.000000000000000056*Close[i+773] -0.000000000000000055*Close[i+774] +0.000000000000000054*Close[i+775] -0.000000000000000055*Close[i+776] +0.000000000000000056*Close[i+777] -0.000000000000000055*Close[i+778] +0.000000000000000056*Close[i+779] -0.000000000000000056*Close[i+780] +0.000000000000000056*Close[i+781] -0.000000000000000056*Close[i+782] +0.000000000000000056*Close[i+783] -0.000000000000000056*Close[i+784] +0.000000000000000056*Close[i+785] -0.000000000000000056*Close[i+786] +0.000000000000000056*Close[i+787] -0.000000000000000056*Close[i+788] +0.000000000000000056*Close[i+789] -0.000000000000000056*Close[i+790] +0.000000000000000056*Close[i+791] -0.000000000000000057*Close[i+792] +0.000000000000000056*Close[i+793] -0.000000000000000057*Close[i+794] +0.000000000000000056*Close[i+795] -0.000000000000000056*Close[i+796] +0.000000000000000055*Close[i+797] -0.000000000000000057*Close[i+798] +0.000000000000000057*Close[i+799] -0.000000000000000057*Close[i+800] +0.000000000000000057*Close[i+801] -0.000000000000000057*Close[i+802] +0.000000000000000057*Close[i+803] -0.000000000000000059*Close[i+804] +0.000000000000000058*Close[i+805] -0.000000000000000057*Close[i+806] +0.000000000000000062*Close[i+807] -0.000000000000000056*Close[i+808] +0.000000000000000058*Close[i+809] -0.000000000000000058*Close[i+810] +0.000000000000000058*Close[i+811] -0.000000000000000058*Close[i+812] +0.000000000000000057*Close[i+813] -0.000000000000000057*Close[i+814] +0.000000000000000058*Close[i+815] -0.000000000000000058*Close[i+816] +0.000000000000000058*Close[i+817] -0.000000000000000058*Close[i+818] +0.000000000000000059*Close[i+819] -0.000000000000000058*Close[i+820] +0.000000000000000058*Close[i+821] -0.000000000000000058*Close[i+822] +0.000000000000000058*Close[i+823] -0.000000000000000058*Close[i+824] +0.000000000000000059*Close[i+825] -0.000000000000000058*Close[i+826] +0.000000000000000058*Close[i+827] -0.000000000000000059*Close[i+828] +0.000000000000000059*Close[i+829] -0.000000000000000059*Close[i+830] +0.000000000000000059*Close[i+831] -0.000000000000000059*Close[i+832] +0.000000000000000059*Close[i+833] -0.000000000000000059*Close[i+834] +0.000000000000000059*Close[i+835] -0.000000000000000059*Close[i+836] +0.000000000000000060*Close[i+837] -0.000000000000000058*Close[i+838] +0.000000000000000060*Close[i+839] -0.000000000000000059*Close[i+840] +0.000000000000000062*Close[i+841] -0.000000000000000060*Close[i+842] +0.000000000000000060*Close[i+843] -0.000000000000000059*Close[i+844] +0.000000000000000062*Close[i+845] -0.000000000000000060*Close[i+846] +0.000000000000000060*Close[i+847] -0.000000000000000060*Close[i+848] +0.000000000000000060*Close[i+849] -0.000000000000000060*Close[i+850] +0.000000000000000061*Close[i+851] -0.000000000000000061*Close[i+852] +0.000000000000000060*Close[i+853] -0.000000000000000061*Close[i+854] +0.000000000000000060*Close[i+855] -0.000000000000000061*Close[i+856] +0.000000000000000061*Close[i+857]; FilterBuffer[i]=response; i--; } return(0); } //+------------------------------------------------------------------+