//------------------------------------------------------------------ // //------------------------------------------------------------------ #property indicator_chart_window #property indicator_buffers 6 #property indicator_color1 PaleVioletRed #property indicator_color2 LimeGreen #property indicator_color3 PaleVioletRed #property indicator_color4 LimeGreen #property indicator_color5 PaleVioletRed #property indicator_color6 LimeGreen #property indicator_style1 STYLE_DOT #property indicator_style2 STYLE_DOT #property indicator_width3 2 #property indicator_width4 2 #property indicator_width5 3 #property indicator_width6 3 #property strict // // // // // enum enDisplay { dis_bars, // Display bars dis_line, // Display lines dis_arro, // Display arrows dis_barl, // Display bars and lines dis_bara, // Display bars and arrows dis_lina, // Display lines and arrows dis_all // Display bars, lines and arrows }; extern ENUM_TIMEFRAMES TimeFrame = PERIOD_CURRENT; // Time frame to use extern int SlowLength = 7; // Slow length extern double SlowPipDisplace = 0; // Slow pips displacement extern int FastLength = 3; // Fast length extern double FastPipDisplace = 0; // Fast pips displacement extern bool AlertsOn = false; // Turn alerts on? extern bool AlertsOnCurrent = true; // Alerts on current (still opened) bar? extern bool AlertsMessage = true; // Alerts should display pop-up message? extern bool AlertsSound = false; // Alerts should play a sound? extern bool AlertsEmail = false; // Alerts should send email? extern enDisplay DisplayWhat = dis_line; // Display type extern bool Interpolate = true; // Interpolate in multi time frame mode? double line1[]; double line2[]; double hist1[]; double hist2[]; double arrou[]; double arrod[]; double trend[]; double trena[]; string indicatorFileName; bool returnBars; //------------------------------------------------------------------ // //------------------------------------------------------------------ // // // // // int init() { int type1 = DRAW_NONE; if (DisplayWhat==dis_all || DisplayWhat==dis_line || DisplayWhat==dis_barl || DisplayWhat==dis_lina) type1 = DRAW_LINE; int type2 = DRAW_NONE; if (DisplayWhat==dis_all || DisplayWhat==dis_bars || DisplayWhat==dis_barl || DisplayWhat==dis_bara) type2 = DRAW_HISTOGRAM; int type3 = DRAW_NONE; if (DisplayWhat==dis_all || DisplayWhat==dis_bara || DisplayWhat==dis_lina || DisplayWhat==dis_arro) type3 = DRAW_ARROW; IndicatorBuffers(8); SetIndexBuffer(0,line1); SetIndexStyle(0,type1); SetIndexBuffer(1,line2); SetIndexStyle(1,type1); SetIndexBuffer(2,hist1); SetIndexStyle(2,type2); SetIndexBuffer(3,hist2); SetIndexStyle(3,type2); SetIndexBuffer(4,arrod); SetIndexStyle(4,type3); SetIndexArrow(4,159); SetIndexBuffer(5,arrou); SetIndexStyle(5,type3); SetIndexArrow(5,159); SetIndexBuffer(6,trend); SetIndexBuffer(7,trena); indicatorFileName = WindowExpertName(); returnBars = TimeFrame==-99; TimeFrame = MathMax(TimeFrame,_Period); IndicatorShortName(timeFrameToString(TimeFrame)+" ptl"); 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 (returnBars) { line1[0] = MathMin(limit+1,Bars-1); return(0); } double pipMultiplier = MathPow(10,MathMod(Digits,2)); // // // // // if (TimeFrame == Period()) { for (int i = limit; i >= 0; i--) { double thigh1 = High[iHighest(NULL, 0, MODE_HIGH, SlowLength,i)] + SlowPipDisplace*Point*pipMultiplier; double tlow1 = Low[iLowest(NULL, 0, MODE_LOW, SlowLength,i)] - SlowPipDisplace*Point*pipMultiplier; double thigh2 = High[iHighest(NULL, 0, MODE_HIGH, FastLength,i)] + FastPipDisplace*Point*pipMultiplier; double tlow2 = Low[iLowest(NULL, 0, MODE_LOW, FastLength,i)] - FastPipDisplace*Point*pipMultiplier; if (i>=(Bars-1)) { line1[i] = Close[i]; line2[i] = Close[i]; continue; } if (Close[i]>line1[i+1]) line1[i] = tlow1; else line1[i] = thigh1; if (Close[i]>line2[i+1]) line2[i] = tlow2; else line2[i] = thigh2; // // // // // hist1[i] = EMPTY_VALUE; hist2[i] = EMPTY_VALUE; arrou[i] = EMPTY_VALUE; arrod[i] = EMPTY_VALUE; trena[i] = trena[i+1]; trend[i] = 0; if (Close[i]line1[i] && Close[i]>line2[i]) trend[i] = -1; if (line1[i]>line2[i] || trend[i] == 1) trena[i] = 1; if (line1[i]=0; i--) { int y = iBarShift(NULL,TimeFrame,Time[i]); line1[i] = iCustom(NULL,TimeFrame,indicatorFileName,PERIOD_CURRENT,SlowLength,SlowPipDisplace,FastLength,FastPipDisplace,AlertsOn,AlertsOnCurrent,AlertsMessage,AlertsSound,AlertsEmail,0,y); line2[i] = iCustom(NULL,TimeFrame,indicatorFileName,PERIOD_CURRENT,SlowLength,SlowPipDisplace,FastLength,FastPipDisplace,AlertsOn,AlertsOnCurrent,AlertsMessage,AlertsSound,AlertsEmail,1,y); trend[i] = iCustom(NULL,TimeFrame,indicatorFileName,PERIOD_CURRENT,SlowLength,SlowPipDisplace,FastLength,FastPipDisplace,AlertsOn,AlertsOnCurrent,AlertsMessage,AlertsSound,AlertsEmail,6,y); trena[i] = iCustom(NULL,TimeFrame,indicatorFileName,PERIOD_CURRENT,SlowLength,SlowPipDisplace,FastLength,FastPipDisplace,AlertsOn,AlertsOnCurrent,AlertsMessage,AlertsSound,AlertsEmail,7,y); hist1[i] = EMPTY_VALUE; hist2[i] = EMPTY_VALUE; arrou[i] = EMPTY_VALUE; arrod[i] = EMPTY_VALUE; if (trend[i]== 1) { hist1[i] = High[i]; hist2[i] = Low[i]; } if (trend[i]==-1) { hist2[i] = High[i]; hist1[i] = Low[i]; } if (i0 && y==iBarShift(NULL,TimeFrame,Time[i-1]))) continue; // // // // // int n,k; datetime time = iTime(NULL,TimeFrame,y); for(n=1; (i+n)= time; n++) continue; for(k=1; (i+n)=0; i--) if (tf==iTfTable[i]) return(sTfTable[i]); return(""); } //------------------------------------------------------------------- // //------------------------------------------------------------------- // // // // // void manageAlerts() { if (AlertsOn) { int whichBar = 1; if (AlertsOnCurrent) whichBar = 0; if (arrod[whichBar] != EMPTY_VALUE || arrou[whichBar] != EMPTY_VALUE) { static datetime time1 = 0; static string mess1 = ""; if (arrou[whichBar] != EMPTY_VALUE) doAlert(time1,mess1," ptl trend changed to up"); if (arrod[whichBar] != EMPTY_VALUE) doAlert(time1,mess1," ptl trend changed to down"); } } } // // // // // void doAlert(datetime& previousTime, string& previousAlert, string doWhat) { string message; if (previousAlert != doWhat || previousTime != Time[0]) { previousAlert = doWhat; previousTime = Time[0]; // // // // // message = timeFrameToString(_Period)+" "+Symbol()+" at "+TimeToStr(TimeLocal(),TIME_SECONDS)+doWhat; if (AlertsMessage) Alert(message); if (AlertsEmail) SendMail(Symbol()+" ptl",message); if (AlertsSound) PlaySound("alert2.wav"); } }