PCCI

//+------------------------------------------------------------------+ 
//| PCCI.mq4 
//| 
//+------------------------------------------------------------------+ 
#property copyright "Copyright 2002, Finware.ru Ltd." 
#property link "http://www.finware.ru/" 

#property indicator_separate_window 
#property indicator_buffers 1 
#property indicator_color1 Blue 


//---- buffers 
double PCCIBuffer[]; 

//+------------------------------------------------------------------+ 
//| Custom indicator initialization function | 
//+------------------------------------------------------------------+ 
int init() 
{ 
string short_name; 
//---- indicator line 
SetIndexStyle(0,DRAW_LINE); 
SetIndexBuffer(0,PCCIBuffer); 
SetIndexDrawBegin(0,39); 
//---- 
return(0); 
} 
//+------------------------------------------------------------------+ 
//| PCCI | 
//+------------------------------------------------------------------+ 
int start() 
{ 
int i,counted_bars=IndicatorCounted(); 
double value1; 
//---- 
if(Bars<=38) return(0); 
//---- initial zero 
if(counted_bars<39) 
for(i=1;i<=0;i++) PCCIBuffer[Bars-i]=0.0; 
//---- 
i=Bars-39-1; 
if(counted_bars>=39) i=Bars-counted_bars-1; 
while(i>=0) 
{ 
value1 = 
0.36423990*Close[i+0] 
+0.33441085*Close[i+1] 
+0.25372851*Close[i+2] 
+0.14548806*Close[i+3] 
+0.03934469*Close[i+4] 
-0.03871426*Close[i+5] 
-0.07451349*Close[i+6] 
-0.06903411*Close[i+7] 
-0.03611022*Close[i+8] 
+0.00422528*Close[i+9] 
+0.03382809*Close[i+10] 
+0.04267885*Close[i+11] 
+0.03120441*Close[i+12] 
+0.00816037*Close[i+13] 
-0.01442877*Close[i+14] 
-0.02678947*Close[i+15] 
-0.02525534*Close[i+16] 
-0.01272910*Close[i+17] 
+0.00350063*Close[i+18] 
+0.01565175*Close[i+19] 
+0.01895659*Close[i+20] 
+0.01328613*Close[i+21] 
+0.00252297*Close[i+22] 
-0.00775517*Close[i+23] 
-0.01301467*Close[i+24] 
-0.01164808*Close[i+25] 
-0.00527241*Close[i+26] 
+0.00248750*Close[i+27] 
+0.00793380*Close[i+28] 
+0.00897632*Close[i+29] 
+0.00583939*Close[i+30] 
+0.00059669*Close[i+31] 
-0.00405186*Close[i+32] 
-0.00610944*Close[i+33] 
-0.00509042*Close[i+34] 
-0.00198138*Close[i+35] 
+0.00144873*Close[i+36] 
+0.00373774*Close[i+37] 
+0.01047723*Close[i+38] 
-0.00022625*Close[i+39]; 

PCCIBuffer[i]=(High[i]+Low[i])/2-value1; 

i--; 
} 
return(0); 
} 
//+------------------------------------------------------------------+