/* This indicator was created by Kalenzo email: bartlomiej.gorski@gmail.com web: http://www.fxservice.eu alerts by pipocrates thanks to hanover FF The base for this indicator was orginal RSI attached with Metatrader. */ #property copyright "Copyright © 2004, MetaQuotes Software Corp." #property link "http://www.metaquotes.net/" #property indicator_separate_window #property indicator_minimum -10 #property indicator_maximum 100 #property indicator_buffers 6 #property indicator_color1 Yellow #property indicator_color2 Black #property indicator_color3 Black #property indicator_color4 Black #property indicator_color5 Black #property indicator_color6 Black //---- input parameters extern int RSIOMA = 12; extern int RSIOMA_MODE = MODE_SMMA; extern int RSIOMA_PRICE = PRICE_CLOSE; extern int Ma_RSIOMA = 0, Ma_RSIOMA_MODE = MODE_EMA; extern int SellTrigger = 80; extern int BuyTrigger = 20; extern color BuyTriggerColor = Silver; extern color SellTriggerColor = Silver; extern int MainTrendLong = 50; extern int MainTrendShort = 50; extern color MainTrendLongColor = Black; extern color MainTrendShortColor = Black; // === Section 1: paste this code directly BELOW the final 'extern' statement ================================================================= // // extern int AlertCandle = 0; // extern bool ShowChartAlerts = true; // extern string AlertEmailSubject = "RSIOMA"; // // datetime LastAlertTime = -999999; // // string AlertTextCrossUp = "Rsioma crossed down"; //---- type your desired text between the quotes // string AlertTextCrossDown = "Rsioma crossed up"; //---- type your desired text between the quotes // // // ============================================================================================================================================ // //---- buffers double RSIBuffer[]; double PosBuffer[]; double NegBuffer[]; double bdn[],bup[]; double sdn[],sup[]; double marsioma[]; string short_name; //+------------------------------------------------------------------+ //| Custom indicator initialization function | //+------------------------------------------------------------------+ int init() { short_name = StringConcatenate("RSIOMA(",RSIOMA,")"); IndicatorBuffers(8); SetIndexBuffer(0,RSIBuffer); SetIndexBuffer(2,bup); SetIndexBuffer(1,bdn); SetIndexBuffer(3,sdn); SetIndexBuffer(4,sup); SetIndexBuffer(5,marsioma); SetIndexStyle(0,DRAW_LINE,STYLE_SOLID,3); SetIndexStyle(2,DRAW_HISTOGRAM,STYLE_SOLID,1); SetIndexStyle(1,DRAW_HISTOGRAM,STYLE_SOLID,1); SetIndexStyle(3,DRAW_HISTOGRAM,STYLE_SOLID,1); SetIndexStyle(4,DRAW_HISTOGRAM,STYLE_SOLID,1); SetIndexStyle(5,DRAW_LINE,STYLE_SOLID,1); SetIndexBuffer(6,PosBuffer); SetIndexBuffer(7,NegBuffer); IndicatorShortName(short_name); SetIndexDrawBegin(0,RSIOMA); SetIndexDrawBegin(1,RSIOMA); SetIndexDrawBegin(2,RSIOMA); SetIndexDrawBegin(3,RSIOMA); SetIndexDrawBegin(4,RSIOMA); SetIndexDrawBegin(5,RSIOMA); SetIndexDrawBegin(6,RSIOMA); SetIndexDrawBegin(7,RSIOMA); //---- drawLine(BuyTrigger,"BuyTrigger", BuyTriggerColor); drawLine(SellTrigger,"SellTrigger", SellTriggerColor ); drawLine(MainTrendLong,"MainTrendLong", MainTrendLongColor ); drawLine(MainTrendShort,"MainTrendShort",MainTrendShortColor ); return(0); } //+------------------------------------------------------------------+ //| Relative Strength Index | //+------------------------------------------------------------------+ int start() { int i,counted_bars=IndicatorCounted(); double rel,negative,positive; //---- if(Bars<=RSIOMA) return(0); //---- initial zero if(counted_bars<1) for(i=1;i<=RSIOMA;i++) RSIBuffer[Bars-i]=0.0; //---- i=Bars-RSIOMA-1; int ma = i; if(counted_bars>=RSIOMA) i=Bars-counted_bars-1; while(i>=0) { double sumn=0.0,sump=0.0; if(i==Bars-RSIOMA-1) { int k=Bars-2; //---- initial accumulation while(k>=i) { double cma = iMA(Symbol(),0,RSIOMA,0,RSIOMA_MODE,RSIOMA_PRICE,k); double pma = iMA(Symbol(),0,RSIOMA,0,RSIOMA_MODE,RSIOMA_PRICE,k+1); rel=cma-pma; if(rel>0) sump+=rel; else sumn-=rel; k--; } positive=sump/RSIOMA; negative=sumn/RSIOMA; } else { //---- smoothed moving average double ccma = iMA(Symbol(),0,RSIOMA,0,RSIOMA_MODE,RSIOMA_PRICE,i); double ppma = iMA(Symbol(),0,RSIOMA,0,RSIOMA_MODE,RSIOMA_PRICE,i+1); rel=ccma-ppma; if(rel>0) sump=rel; else sumn=-rel; positive=(PosBuffer[i+1]*(RSIOMA-1)+sump)/RSIOMA; negative=(NegBuffer[i+1]*(RSIOMA-1)+sumn)/RSIOMA; } PosBuffer[i]=positive; NegBuffer[i]=negative; if(negative==0.0) RSIBuffer[i]=0.0; else { RSIBuffer[i]=100.0-100.0/(1+positive/negative); bdn[i] = 0; bup[i] = 0; sdn[i] = 0; sup[i] = 0; if(RSIBuffer[i]>MainTrendLong) bup[i] = -10; if(RSIBuffer[i]RSIBuffer[i+1]) sup[i] = -10; if(RSIBuffer[i]>80 && RSIBuffer[i]=0) { marsioma[ma] = iMAOnArray(RSIBuffer,0,Ma_RSIOMA,0,Ma_RSIOMA_MODE,ma); ma--; } //---- // === Section 2: paste this code just BEFORE the final 'return(0)' statement in the start() module =========================================== // // ProcessAlerts(); // // // ============================================================================================================================================ // return(0); } //+------------------------------------------------------------------+ void drawLine(double lvl,string name, color Col ) { ObjectDelete(name); ObjectCreate(name, OBJ_HLINE, WindowFind(short_name), Time[0], lvl,Time[0],lvl); ObjectSet(name, OBJPROP_STYLE, STYLE_DOT); ObjectSet(name, OBJPROP_COLOR, Col); ObjectSet(name,OBJPROP_WIDTH,1); } // === Section 3: paste this code at the end of the indicator ================================================================================= // // //+------------------------------------------------------------------+ // int ProcessAlerts() { // //+------------------------------------------------------------------+ // if (AlertCandle >= 0 && Time[0] > LastAlertTime) { // // // === Alert processing for crossover UP (indicator line crosses ABOVE signal line) === // if (RSIBuffer[0] < SellTrigger && RSIBuffer[1] >= SellTrigger) { // string AlertText = Symbol() + "," + TFToStr(Period()) + ": " + AlertTextCrossUp; // if (ShowChartAlerts) Alert(AlertText); // if (AlertEmailSubject > "") SendMail(AlertEmailSubject,AlertText); // LastAlertTime = Time[0]; // } // // // === Alert processing for crossover DOWN (indicator line crosses BELOW signal line) === // if (RSIBuffer[0] > BuyTrigger && RSIBuffer[1] <= BuyTrigger) { // AlertText = Symbol() + "," + TFToStr(Period()) + ": " + AlertTextCrossDown; // if (ShowChartAlerts) Alert(AlertText); // if (AlertEmailSubject > "") SendMail(AlertEmailSubject,AlertText); // LastAlertTime = Time[0]; // } // // // } // return(0); // } // // //+------------------------------------------------------------------+ // string TFToStr(int tf) { // //+------------------------------------------------------------------+ // if (tf == 0) tf = Period(); // if (tf >= 43200) return("MN"); // if (tf >= 10080) return("W1"); // if (tf >= 1440) return("D1"); // if (tf >= 240) return("H4"); // if (tf >= 60) return("H1"); // if (tf >= 30) return("M30"); // if (tf >= 15) return("M15"); // if (tf >= 5) return("M5"); // if (tf >= 1) return("M1"); // return(""); // } // // ============================================================================================================================================ //