Institute for Forex, Inc. IndicatorBuffers and SetIndex Buffers(7) - Technical Indicators

Abhinav 2015.06.07 13:44 #11251

//+------------------------------------------------------------------+

//| smoothed rsi |

//| mladen |

//+------------------------------------------------------------------+

#property copyright "www.forex-tsd.com"

#property link "www.forex-tsd.com"

#property indicator_separate_window

#property indicator_buffers 5

#property indicator_color1 Gray

#property indicator_color2 LimeGreen

#property indicator_color3 LimeGreen

#property indicator_color4 Orange

#property indicator_color5 Orange

#property indicator_width2 3

#property indicator_width3 3

#property indicator_width4 3

#property indicator_width5 3

#property indicator_minimum 0

#property indicator_maximum 100

//

extern int Length = 14;

extern int Price = PRICE_CLOSE;

extern double LevelUp = 70;

extern double LevelDown = 30;

extern double SmoothLength = 20;

//

double rsi[];

double rsiUa[];

double rsiUb[];

double rsiDa[];

double rsiDb[];

double prc[];

double trend[];

//+------------------------------------------------------------------+

//| |

//+------------------------------------------------------------------+

//

int init()

{

IndicatorBuffers(7);

SetIndexBuffer(0,rsi);

SetIndexBuffer(1,rsiUa);

SetIndexBuffer(2,rsiUb);

SetIndexBuffer(3,rsiDa);

SetIndexBuffer(4,rsiDb);

SetIndexBuffer(5,prc);

SetIndexBuffer(6,trend);

Length = MathMax(Length ,1);

string PriceType;

switch(Price)

{

case PRICE_CLOSE: PriceType = "Close"; break; // 0

case PRICE_OPEN: PriceType = "Open"; break; // 1

case PRICE_HIGH: PriceType = "High"; break; // 2

case PRICE_LOW: PriceType = "Low"; break; // 3

case PRICE_MEDIAN: PriceType = "Median"; break; // 4

case PRICE_TYPICAL: PriceType = "Typical"; break; // 5

case PRICE_WEIGHTED: PriceType = "Weighted"; break; // 6

}

//

SetLevelValue(0,LevelUp);

SetLevelValue(1,LevelDown);

string addName = "";

if (SmoothLength>1) addName = "smoothed ";

IndicatorShortName("RSI "+addName+"("+Length+","+PriceType+")");

return(0);

}

int deinit()

{

return(0);

}

//+------------------------------------------------------------------+

//| |

//+------------------------------------------------------------------+

//

int start()

{

int counted_bars=IndicatorCounted();

if(counted_bars<0) return(-1);

if(counted_bars>0) counted_bars--;

int limit = MathMin(Bars-counted_bars,Bars-1);

//

if (trend[limit]== 1) CleanPoint(limit,rsiUa,rsiUb);

if (trend[limit]==-1) CleanPoint(limit,rsiDa,rsiDb);

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

{

double price = iMA(NULL,0,1,0,MODE_SMA,Price,i);

if (SmoothLength>1)

price = iSsm(price,SmoothLength,i);

prc = price;

}

for(i=limit; i >= 0; i--)

{

rsi = iRSIOnArray(prc,0,Length,i);

rsiUa = EMPTY_VALUE;

rsiUb = EMPTY_VALUE;

rsiDa = EMPTY_VALUE;

rsiDb = EMPTY_VALUE;

//

trend = trend;

if (rsi>LevelUp) trend= 1;

if (rsi<LevelDown) trend=-1;

if (rsiLevelDown) trend= 0;

if (trend == 1) PlotPoint(i,rsiUa,rsiUb,rsi);

if (trend == -1) PlotPoint(i,rsiDa,rsiDb,rsi);

}

return(0);

}

//------------------------------------------------------------------

//

//------------------------------------------------------------------

//

void CleanPoint(int i,double& first[],double& second[])

{

if ((second != EMPTY_VALUE) && (second != EMPTY_VALUE))

second = EMPTY_VALUE;

else

if ((first != EMPTY_VALUE) && (first != EMPTY_VALUE) && (first == EMPTY_VALUE))

first = EMPTY_VALUE;

}

//

void PlotPoint(int i,double& first[],double& second[],double& from[])

{

if (first == EMPTY_VALUE)

{

if (first == EMPTY_VALUE) {

first = from;

second = EMPTY_VALUE;

}

else {

second = from;

first = EMPTY_VALUE;

}

else

{

first = from;

second = EMPTY_VALUE;

}

//------------------------------------------------------------------

//

//------------------------------------------------------------------

//

double workSsm[][2];

#define _price 0

#define _ssm 1

double workSsmCoeffs[][4];

#define _period 0

#define _c1 1

#define _c2 2

#define _c3 3

#define Pi 3.14159265358979323846264338327950288

//

double iSsm(double price, double period, int i, int instanceNo=0)

{

if (ArrayRange(workSsm,0) !=Bars) ArrayResize(workSsm,Bars);

if (ArrayRange(workSsmCoeffs,0) < (instanceNo+1)) ArrayResize(workSsmCoeffs,instanceNo+1);

if (workSsmCoeffs[_period] != period)

{

workSsmCoeffs[_period] = period;

double a1 = MathExp(-1.414*Pi/period);

double b1 = 2.0*a1*MathCos(1.414*Pi/period);

workSsmCoeffs[_c2] = b1;

workSsmCoeffs[_c3] = -a1*a1;

workSsmCoeffs[_c1] = 1.0 - workSsmCoeffs[_c2] - workSsmCoeffs[_c3];

}

//

i = Bars-i-1;

int s = instanceNo*2;

workSsm[s+_price] = price;

workSsm[s+_ssm] = workSsmCoeffs[_c1]*(workSsm[s+_price]+workSsm[s+_price])/2.0 +

workSsmCoeffs[_c2]*workSsm[s+_ssm] +

workSsmCoeffs[_c3]*workSsm[s+_ssm];

return(workSsm[s+_ssm]);

}

Multi Timeframe Indicators How TO LICENSE LIMITING Requests & Ideas, the

Mladen Rakic 2015.06.07 13:54 #11252

Abhinav:
Hi mladen and mrtools, cud u please add alerts to this indicator. I cud not find option to upload, so here is the indicator :

Abhinav

Version with alerts, multi time frames and some extras posted here : https://www.mql5.com/en/forum/general

Dan Oakman 2015.06.07 14:55 #11253

Dear mladen,

Can you work on the indicator of for me if possible?

bars_ob_ident.mq4

Files:

bars_ob_ident.mq4 6 kb

[Deleted] 2015.06.07 15:12 #11254

Hello mladen and mrtool,

Are you guys familiar with Nadex? If you guys are, i was wondering if you guys could create an indi for me. Nadex have a binary 5 min expiry with 5 strike price.

Every last 10 second of the current 5 min candle, where ever price is at that moment a new set of 5 strike price will be calculated from it.

The middle strike price will always be at the last 10 sec price. The two strike price above and below the middle strike price are 3 pips apart.

I was wondering if you guys could create a 5 horizontal lines that will draw out these strike price.

If doing at the last 10 sec is not possible could you guys do it on the closing of the candle. could guys add the option of changing the pips and also change the expiry time if possible. Nadex has other expiry that i would like to test out like 20 min expiry and up.

Really much appreciated..And thank very much in advance..

indicator/script that automatically draws Dynamic zone indicators ... New help with writing

topi 2015.06.08 01:50 #11255

hi mrtools and mladen can alerts be added to this indi ... ? thanks day_range_cal.mq4

Files:

day_range_cal.mq4 28 kb

Mladen Rakic 2015.06.08 05:36 #11256

topi:
hi mrtools and mladen can alerts be added to this indi ... ? thanks day_range_cal.mq4

Can you please post the original source code of that indicator so that someone can check if that can be done?

topi 2015.06.08 06:02 #11257

hi mladen both the codes are sourced from different sites which were there from 2012. hope both are different, personally i am not aware about how to read the code .

Rodolphe CHARBONNEAU 2015.06.08 07:03 #11258

Hello all,

I find somewhere in the internet this fractal indicator, and it's very interesting.

Can someone please add your wonderful system of alerts ?

I don't know if the alerts system can check several bars to see if a fractal has appeared and give the alerts.

Please guys, it's very important for me

Thanks so much !

Files:

fractalis.mq4 8 kb

Please, can someone add Please help me!! Add Cynthia Kase - Kase

aras2580 2015.06.08 08:02 #11259

Hi everybody...

ı need your help....ı have got a indicator...but its repainting....can you make non repainting?? please help me...thank you very much...best regards....

Files:

xsupertrend_tape_mtf.ex4 7 kb

kannan 2015.06.08 10:48 #11260

hi mrtools and mladen can alerts be added tomulti time frames pricechannel_signal_v1.mq4

Files:

pricechannel_signal_v1.mq4 6 kb

Indicators with alerts/signal - page 1126