INDICADOR POLLAN

Viewing 3 posts - 1 through 3 (of 3 total)

Author

Posts
01/13/2024 at 8:32 PM #226305 quote

deletedaccount22102025
Participant

New

Hola a todos, quería ver si pudieran transcribir el siguiente código de MQL4 en ProRealcode. Pertenece al indicador Pollan. Gracias

#property indicator_separate_window

#property indicator_buffers 2

#property indicator_color1 Blue

#property indicator_color2 Red

//—- input parameters

extern int CCI_per=14;

extern int RSI_per=14;

extern int Ma_Period=2;

extern int koef=8;

extern bool arrows = true;

double a=0,a1=0,a2=0,a3=0,a4=0,a5=0,a6=0,a7=0,a8=0;

double b=0,b1=0,b2=0,b3=0,b4=0,b5=0,b6=0,b7=0,b8=0;

double tt1max=0,tt2min=0;

//—- buffers

double ExtMapBuffer1[];

double ExtMapBuffer2[];

double ExtMapBuffer3[];

double ExtMapBuffer4[];

string sPrefix;

//+——————————————————————+

//| Custom indicator initialization function |

//+——————————————————————+

int init()

{

//—- indicators

IndicatorBuffers(4);

SetIndexStyle(0,DRAW_LINE,0,2);

SetIndexBuffer(0,ExtMapBuffer1);

SetIndexStyle(1,DRAW_LINE,0,2);

SetIndexBuffer(1,ExtMapBuffer2);

SetIndexBuffer(2,ExtMapBuffer3);

SetIndexBuffer(3,ExtMapBuffer4);

SetIndexLabel(0, “CCI-RSI”);

SetIndexLabel(1, “RSI-CCI”);

if (koef>8 || koef<0)koef=8;

sPrefix =”EATA pollan vers 2 (” + CCI_per + “, ” + RSI_per + “: ” + koef +” )”;

IndicatorShortName(sPrefix) ;

//—-

return(0);

}

//+——————————————————————+

//| Custor indicator deinitialization function |

//+——————————————————————+

int deinit()

{

DelOb();

return(0);

}

//+——————————————————————+

//| Custom indicator iteration function |

//+——————————————————————+

int start()

{

int limit=Bars-IndicatorCounted();

for(int i=limit-1;i>=0;i–)

{

a=iCCI(NULL,0,CCI_per,PRICE_TYPICAL,i)-iRSI(NULL,0,RSI_per,PRICE_TYPICAL,i);

a1=(iCCI(NULL,0,CCI_per,PRICE_TYPICAL,i-1)-iRSI(NULL,0,RSI_per,PRICE_TYPICAL,i+1));

a2=(iCCI(NULL,0,CCI_per,PRICE_TYPICAL,i-2)-iRSI(NULL,0,RSI_per,PRICE_TYPICAL,i+2));

a3=(iCCI(NULL,0,CCI_per,PRICE_TYPICAL,i-3)-iRSI(NULL,0,RSI_per,PRICE_TYPICAL,i+3));

a4=(iCCI(NULL,0,CCI_per,PRICE_TYPICAL,i-4)-iRSI(NULL,0,RSI_per,PRICE_TYPICAL,i+4));

a5=(iCCI(NULL,0,CCI_per,PRICE_TYPICAL,i-5)-iRSI(NULL,0,RSI_per,PRICE_TYPICAL,i+5));

a6=(iCCI(NULL,0,CCI_per,PRICE_TYPICAL,i-6)-iRSI(NULL,0,RSI_per,PRICE_TYPICAL,i+6));

a7=(iCCI(NULL,0,CCI_per,PRICE_TYPICAL,i-7)-iRSI(NULL,0,RSI_per,PRICE_TYPICAL,i+7));

a8=(iCCI(NULL,0,CCI_per,PRICE_TYPICAL,i-8)-iRSI(NULL,0,RSI_per,PRICE_TYPICAL,i+8));

//tt1max=a+a1+a2+a3+a4+a5+a6+a7+a8;

b=iRSI(NULL,0,RSI_per,PRICE_TYPICAL,i)-iCCI(NULL,0,CCI_per,PRICE_TYPICAL,i);

b1=(iRSI(NULL,0,RSI_per,PRICE_TYPICAL,i-1)-iCCI(NULL,0,CCI_per,PRICE_TYPICAL,i+1));

b2=(iRSI(NULL,0,RSI_per,PRICE_TYPICAL,i-2)-iCCI(NULL,0,CCI_per,PRICE_TYPICAL,i+2));

b3=(iRSI(NULL,0,RSI_per,PRICE_TYPICAL,i-3)-iCCI(NULL,0,CCI_per,PRICE_TYPICAL,i+3));

b4=(iRSI(NULL,0,RSI_per,PRICE_TYPICAL,i-4)-iCCI(NULL,0,CCI_per,PRICE_TYPICAL,i+4));

b5=(iRSI(NULL,0,RSI_per,PRICE_TYPICAL,i-5)-iCCI(NULL,0,CCI_per,PRICE_TYPICAL,i+5));

b6=(iRSI(NULL,0,RSI_per,PRICE_TYPICAL,i-6)-iCCI(NULL,0,CCI_per,PRICE_TYPICAL,i+6));

b7=(iRSI(NULL,0,RSI_per,PRICE_TYPICAL,i-7)-iCCI(NULL,0,CCI_per,PRICE_TYPICAL,i+7));

b8=(iRSI(NULL,0,RSI_per,PRICE_TYPICAL,i-8)-iCCI(NULL,0,CCI_per,PRICE_TYPICAL,i+8));

//tt2min=b+b1+b2+b3+b4+b5+b6+b7+b8;

switch(koef)

{

case 0 : tt1max=a; tt2min=b; break;

case 1 : tt1max=a+a1; tt2min=b+b1; break;

case 2 : tt1max=a+a1+a2; tt2min=b+b1+b2; break;

case 3 : tt1max=a+a1+a2+a3; tt2min=b+b1+b2+b3; break;

case 4 : tt1max=a+a1+a2+a3+a4; tt2min=b+b1+b2+b3+b4; break;

case 5 : tt1max=a+a1+a2+a3+a4+a5; tt2min=b+b1+b2+b3+b4+b5; break;

case 6 : tt1max=a+a1+a2+a3+a4+a5+a6; tt2min=b+b1+b2+b3+b4+b5+b6; break;

case 7 : tt1max=a+a1+a2+a3+a4+a5+a6+a7; tt2min=b+b1+b2+b3+b4+b5+b6+b7; break;

case 8 : tt1max=a+a1+a2+a3+a4+a5+a6+a7+a8; tt2min=b+b1+b2+b3+b4+b5+b6+b7+b8; break;

default : tt1max=a+a1+a2+a3+a4+a5+a6+a7+a8; tt2min=b+b1+b2+b3+b4+b5+b6+b7+b8;

}

ExtMapBuffer3[i]=tt1max;

ExtMapBuffer4[i]=tt2min;

}

for(i=0; i<limit; i++)

{

ExtMapBuffer1[i]=iMAOnArray(ExtMapBuffer3,Bars,Ma_Period,0,MODE_SMA,i);

ExtMapBuffer2[i]=iMAOnArray(ExtMapBuffer4,Bars,Ma_Period,0,MODE_SMA,i);

}

for(i=0; i<limit; i++)

{

if(arrows)

{

if(ExtMapBuffer1[i]>=ExtMapBuffer2[i] && ExtMapBuffer1[i+1]<ExtMapBuffer2[i+1])

{

DrawAr(“up”,i);

}

if(ExtMapBuffer1[i]<=ExtMapBuffer2[i] && ExtMapBuffer1[i+1]>ExtMapBuffer2[i+1])

{

DrawAr(“dn”,i);

}

}

}

return(0);

}

void DelOb()

{

int n = ObjectsTotal();

for (int i = n – 1; i >= 0; i–)

{

string sName = ObjectName(i);

if (StringFind(sName, sPrefix) == 0)

{

ObjectDelete(sName);

}

}

}

//———————————————————————-

void DrawAr(string ssName, int i)

{

string sName=sPrefix+” “+ssName+” “+ TimeToStr(Time[i],TIME_DATE|TIME_MINUTES);

ObjectDelete(sName);

ObjectCreate(sName, OBJ_ARROW, 0, Time[i], 0);

double gap = 3.0*iATR(NULL,0,20,i)/4.0;

if(ssName==”up”)

{

ObjectSet(sName, OBJPROP_ARROWCODE, 225);

ObjectSet(sName, OBJPROP_PRICE1, Low[i]-gap);

ObjectSet(sName, OBJPROP_COLOR, Lime);

}

if(ssName==”dn”)

{

ObjectSet(sName, OBJPROP_ARROWCODE, 226);

ObjectSet(sName, OBJPROP_PRICE1, High[i]+gap);

ObjectSet(sName, OBJPROP_COLOR, Red);

}

ObjectSet(sName, OBJPROP_WIDTH, 1);

}

//———————————————————+

Pollan-Indicator.png

05/06/2024 at 12:37 PM #232374 quote

Iván González
Moderator

Legend

Buenas!
Aquí tienes el indicador. Mis conocimientos de MT4 son muy limitados por lo que espero que sea lo que buscabas…

https://www.prorealcode.com/prorealtime-indicators/pollan-indicator/

thanked this post

05/07/2024 at 8:30 PM #232443 quote

deletedaccount22102025
Participant

New

Hola Iván, muchas gracias por el aporte y todo lo demás que incluyes en el foro. Gran trabajo.
Author

Posts