adminTD-Sequential-Ultimate
#property copyright EarnForex.com
#property link /metatrader-indicators/TD-Sequential-Ultimate/
#property version 1.03
#property description Shows setups and countdowns based on Tom DeMark s Sequential method.
#property description TDST support and resistance levels are marked too.
#property description Optional alerts available.
#property indicator_chart_window
#property indicator_buffers 5 // 3 buffers for usage with iCustom(), they won t be displayed by the indicator.
#property indicator_plots 5 // Only two are actually displayed. Three others are necessary for iCustom().
#property indicator_color1 clrRed
#property indicator_type1 DRAW_ARROW // Arrows are better because line support/resistance have vertical connections.
#property indicator_width1 1
#property indicator_label1 TDST Resistance
#property indicator_color2 clrGreen
#property indicator_type2 DRAW_ARROW
#property indicator_width2 1
#property indicator_label2 TDST Support
#property indicator_type3 DRAW_NONE
#property indicator_color3 clrNONE
#property indicator_label3 Setup
#property indicator_type4 DRAW_NONE
#property indicator_label4 Countdown
#property indicator_color4 clrNONE
#property indicator_type5 DRAW_NONE
#property indicator_label5 Perfection
#property indicator_color5 clrNONE
input group Calculation
input int MaxBars = 1000; // MaxBars: how many bars to calculate; 0 = all bars.
input group Display
input color BuySetupColor = clrLime;
input color SellSetupColor = clrRed;
input color CountdownColor = clrOrange;
input string FontFace = Verdana
input int FontSize = 12;
input int ArrowWidth = 2;
input int PixelDistance = 3;
input string Prefix = TDS_
input group Alerts
input bool AlertOnSetup = false;
input bool AlertOnPerfecting = false;
input bool AlertOnCountdown13 = false;
input bool AlertOnSupportResistance = false;
input bool AlertNative = false;
input bool AlertEmail = false;
input bool AlertNotification = false;
// Support and resistance buffers - shown on the chart.
double Resistance[], Support[];
// These buffers will be used only by other indicators or EAs calling this one via iCustom().
double Setup[], Countdown[], Perfection[];
uint FontPixelHeight;
enum ENUM_COUNT_TYPE
{
COUNT_TYPE_BUY_SETUP,
COUNT_TYPE_SELL_SETUP,
COUNT_TYPE_BUY_COUNTDOWN,
COUNT_TYPE_SELL_COUNTDOWN,
COUNT_TYPE_BUY_PERFECTION,
COUNT_TYPE_SELL_PERFECTION
};
enum ENUM_ALERT_TYPE
{
ALERT_TYPE_SETUP_BUY,
ALERT_TYPE_SETUP_SELL,
ALERT_TYPE_PERFECTING_BUY,
ALERT_TYPE_PERFECTING_SELL,
ALERT_TYPE_COUNT13_BUY,
ALERT_TYPE_COUNT13_SELL,
ALERT_TYPE_SUPPORT,
ALERT_TYPE_RESISTANCE
};
int OnInit()
{
SetIndexBuffer(0, Resistance, INDICATOR_DATA);
SetIndexBuffer(1, Support, INDICATOR_DATA);
SetIndexBuffer(2, Setup, INDICATOR_DATA);
SetIndexBuffer(3, Countdown, INDICATOR_DATA);
SetIndexBuffer(4, Perfection, INDICATOR_DATA);
ArraySetAsSeries(Resistance, true);
ArraySetAsSeries(Support, true);
ArraySetAsSeries(Setup, true);
ArraySetAsSeries(Countdown, true);
ArraySetAsSeries(Perfection, true);
PlotIndexSetInteger(0, PLOT_ARROW, 158);
PlotIndexSetInteger(1, PLOT_ARROW, 158);
PlotIndexSetDouble(0, PLOT_EMPTY_VALUE, EMPTY_VALUE);
PlotIndexSetDouble(1, PLOT_EMPTY_VALUE, EMPTY_VALUE);
// Calculate the height of the font in pixels - will be needed later to space counts and arrows.
string text = 0 // Any dummy digit text to get its height.
// Get the height of the text based on font and its size. Negative because OS-dependent, *10 because set in 1/10 of pt.
TextSetFont(FontFace, FontSize * -10);
uint w; // Dummy variable, not used anywhere except this call.
TextGetSize(text, w, FontPixelHeight);
return(INIT_SUCCEEDED);
}
void OnDeinit(const int reason)
{
ObjectsDeleteAll(0, Prefix);
}
int OnCalculate(const int rates_total,
const int prev_calculated,
const datetime Time[],
const double open[],
const double High[],
const double Low[],
const double Close[],
const long tick_volume[],
const long volume[],
const int spread[])
{
ArraySetAsSeries(Time, true);
ArraySetAsSeries(High, true);
ArraySetAsSeries(Low, true);
ArraySetAsSeries(Close, true);
static double Preceding_Close = 0;
static bool Use_Preceding_Close = false;
static int Setup_Buy = 0;
static datetime Setup_Buy_First_Candle = 0;
static double Setup_Buy_Highest_High = 0;
static double Setup_Buy_Highest_High_Candidate = 0;
static double Setup_Buy_6_Low = 0;
static double Setup_Buy_7_Low = 0;
static bool No_More_Countdown_Buy_Until_Next_Buy_Setup = false;
static bool Setup_Buy_Perfected = false;
static bool Setup_Buy_Needs_Perfecting = false;
static int Countdown_Buy = 0;
static double Countdown_Buy_8_Close = 0;
static int Setup_Sell = 0;
static datetime Setup_Sell_First_Candle = 0;
static double Setup_Sell_Lowest_Low = 0;
static double Setup_Sell_Lowest_Low_Candidate = 0;
static double Setup_Sell_6_High = 0;
static double Setup_Sell_7_High = 0;
static bool No_More_Countdown_Sell_Until_Next_Sell_Setup = false;
static bool Setup_Sell_Perfected = false;
static bool Setup_Sell_Needs_Perfecting = false;
static int Countdown_Sell = 0;
static double Countdown_Sell_8_Close = 0;
if (rates_total 7) return(0); // Not enough bars to start anything.沒有足夠的酒吧來開始任何事情。
int counted_bars = prev_calculated 0 ? prev_calculated - 1 : 0;
if (counted_bars 0) return(-1);
int limit = MathMin(rates_total - 1 - counted_bars, rates_total - 6); // - 6 because 5 is used in the cycle.“- 6”，因爲“ 5”在循環中使用。
if (limit 1) return(prev_calculated); // Data not yet ready.數據還沒有準備好。
// Need to reset everything because prev_calculated is set to 0 when big chunks of new data are synced.需要重置所有內容，因爲在同步大量新數據時，prev_calculation被設置爲0。
if (prev_calculated == 0)
{
Setup_Buy = 0;
Setup_Buy_First_Candle = 0;
Setup_Buy_Highest_High = 0;
Setup_Buy_6_Low = 0;
Setup_Buy_7_Low = 0;
No_More_Countdown_Buy_Until_Next_Buy_Setup = false;
Setup_Buy_Perfected = false;
Setup_Buy_Needs_Perfecting = false;
Countdown_Buy = 0;
Countdown_Buy_8_Close = 0;
Setup_Sell = 0;
Setup_Sell_First_Candle = 0;
Setup_Sell_Lowest_Low = 0;
Setup_Sell_6_High = 0;
Setup_Sell_7_High = 0;
No_More_Countdown_Sell_Until_Next_Sell_Setup = false;
Setup_Sell_Perfected = false;
Setup_Sell_Needs_Perfecting = false;
Countdown_Sell = 0;
Countdown_Sell_8_Close = 0;
ObjectsDeleteAll(0, Prefix);
for (int i = 0; i rates_total; i )
{
Setup[i] = 0;
Countdown[i] = 0;
Perfection[i] = 0;
Support[i] = EMPTY_VALUE;
Resistance[i] = EMPTY_VALUE;
}
}
limit = MathMin(limit, MaxBars);
for (int i = limit; i i--)
{
Setup[i] = 0;
Countdown[i] = 0;
Perfection[i] = 0;
// Cancel S/R or propagate them:取消S/R或傳播它們:
if ((Resistance[i 1] != EMPTY_VALUE) (Close[i] Resistance[i 1]))
{
Resistance[i] = EMPTY_VALUE;
if (AlertOnSupportResistance) DoAlert(i, ALERT_TYPE_RESISTANCE);
}
else Resistance[i] = Resistance[i 1];
if ((Support[i 1] != EMPTY_VALUE) (Close[i] Support[i 1]))
{
Support[i] = EMPTY_VALUE;
if (AlertOnSupportResistance) DoAlert(i, ALERT_TYPE_SUPPORT);
}
else Support[i] = Support[i 1];
Resistance[0] = EMPTY_VALUE; Support[0] = EMPTY_VALUE; // Always empty for current candle.現在的蠟燭縂是空的。
// Buy Setup.購買安裝。
// Price Flip check 價格繙轉檢查
// First Buy Setup candle 首先購買安裝蠟燭
// Setup_Buy == 0 for when no previous Buy Setup present. Setup_Buy == 9 for when one Buy Setup follows another: Setup_Buy == 0用於不存在以前的購買安裝程序。Setup_Buy == 9用於儅一個購買設置跟隨另一個:
if ((Close[i 1] = Close[i 5]) (Close[i] Close[i 4]) ((Setup_Buy == 0) || (Setup_Buy == 9)))
{
// Remember Close before the Setup s first bar (needed further for TDST Resistance).記得在安裝的第一個酒吧之前關閉(需要進一步的TDST阻力)。
Preceding_Close = Close[i 1];
Use_Preceding_Close = false;
// Set initial values.設置初始值。
Setup_Buy = 1;
PutCount(COUNT_TYPE_BUY_SETUP, IntegerToString(Setup_Buy), Time[i], Low[i]);
Setup_Buy_First_Candle = Time[i]; // Remember the first candle to wipe the Setup if it fails before completing.記住第一個蠟燭擦安裝，如果它在完成前失敗。
Setup_Buy_Highest_High_Candidate = High[i];
Setup[i] = Setup_Buy;
}
// Buy Setup candles - second through nine:購買安裝蠟燭-第二到第九支:
else if ((Close[i] Close[i 4]) (Setup_Buy 0) (Setup_Buy 9))
{
Setup_Buy ;
Setup[i] = Setup_Buy;
PutCount(COUNT_TYPE_BUY_SETUP, IntegerToString(Setup_Buy), Time[i], Low[i]);
if (Setup_Buy_Highest_High_Candidate High[i]) Setup_Buy_Highest_High_Candidate = High[i];
// These are needed for perfection checks.這些是完美檢查所需要的。
if (Setup_Buy == 6) Setup_Buy_6_Low = Low[i];
if (Setup_Buy == 7) Setup_Buy_7_Low = Low[i];
if (Setup_Buy == 9)
{
if (Countdown_Sell 0)
{
Countdown_Sell = 0; // Reset Sell Countdown.重置出售倒計時。
RemoveCount(COUNT_TYPE_SELL_COUNTDOWN, Time[i], Time);
}
No_More_Countdown_Sell_Until_Next_Sell_Setup = true;
if (AlertOnSetup) DoAlert(i, ALERT_TYPE_SETUP_BUY);
Setup_Buy_Perfected = false; // Will be checked farther.將被進一步檢查。
Setup_Buy_Needs_Perfecting = true;
No_More_Countdown_Buy_Until_Next_Buy_Setup = false;
Setup_Sell = 0;
if (Preceding_Close Setup_Buy_Highest_High_Candidate)
{
Setup_Buy_Highest_High = Preceding_Close;
Use_Preceding_Close = true;
}
else Setup_Buy_Highest_High = Setup_Buy_Highest_High_Candidate;
int res_count = 9;
if (Use_Preceding_Close) res_count = 10; // If preceding bar s Close is used to draw the Resistance line, it should be started at that bar s Close.如果前一欄的關閉被用來繪制觝抗線，它應該從該欄的關閉開始。
for (int j = i; j i res_count; j )
{
Resistance[j] = Setup_Buy_Highest_High;
if (High[j] == Setup_Buy_Highest_High) break;
}
// Check perfecting:檢查完善:
// Setup candle #8:設置蠟燭# 8:
if ((Low[i 1] Setup_Buy_6_Low) (Low[i 1] Setup_Buy_7_Low))
{
Setup_Buy_Perfected = true;
Setup_Buy_Needs_Perfecting = false;
Perfection[i 1] = 1;
PutCount(COUNT_TYPE_BUY_PERFECTION, 233 , Time[i 1], High[i 1]); // Arrow up.箭頭曏上
if (AlertOnPerfecting) DoAlert(i 1, ALERT_TYPE_PERFECTING_BUY);
}
// Countdown can also start on this candle but farther in the code.倒計時也可以從這個蠟燭開始，但在代碼中更遠。
}
}
// Buy Setup broken:購買安裝碎。
else if ((Close[i] = Close[i 4]) (Setup_Buy != 9) (Setup_Buy != 0))
{
RemoveCount(COUNT_TYPE_BUY_SETUP, Setup_Buy_First_Candle, Time, Setup_Buy); // Remove number objects for this Buy Setup.刪除此購買安裝程序的數字對象。
Setup_Buy = 0;
Setup_Buy_First_Candle = 0;
Setup_Buy_Highest_High_Candidate = 0;
Setup_Buy_Needs_Perfecting = false;
Setup_Buy_Perfected = false;
}
// Buy Countdown check.買倒計時檢查。
if ((!No_More_Countdown_Buy_Until_Next_Buy_Setup) ((Setup_Buy == 9) || (Countdown_Buy 0))) // Have a completed Buy Setup or a started Countdown.完成購買設置或開始倒計時。
{
if (Countdown_Buy 13)
{
if (Close[i] = Low[i 2])
{
if (Countdown_Buy 12) // Normal condition for Countdown candles from 1 through 12.正常情況下倒數蠟燭從1到12。
{
Countdown_Buy ;
if (Countdown_Buy == 8) Countdown_Buy_8_Close = Close[i]; // Remember 8th Countdown close for checking the 13th.記住倒數第8秒關閉，以檢查第13秒。
Countdown[i] = Countdown_Buy;
PutCount(COUNT_TYPE_BUY_COUNTDOWN, IntegerToString(Countdown_Buy), Time[i], Low[i]);
}
else if (Low[i] Countdown_Buy_8_Close) // Special condition for Countdown candle 13.倒計時蠟燭13的特殊情況。
{
Countdown_Buy ;
Countdown[i] = Countdown_Buy;
PutCount(COUNT_TYPE_BUY_COUNTDOWN, IntegerToString(Countdown_Buy), Time[i], Low[i]);
if (AlertOnCountdown13) DoAlert(i, ALERT_TYPE_COUNT13_BUY);
Countdown_Buy = 0; // Reset Countdown as we have already reached count 13.倒計時蠟燭13的特殊情況。重啓倒計時，我們已經數到13了。
No_More_Countdown_Buy_Until_Next_Buy_Setup = true;
}
else // Failed Countdown candles 13 are marked with .失敗的倒計時蠟燭13標記 。
{
Countdown[i] = 14;
PutCount(COUNT_TYPE_BUY_COUNTDOWN, , Time[i], Low[i]);
}
}
}
}
// Check if Countdown is broken.檢查倒計時是否壞了。
if (Countdown_Buy 0) // Have a Buy Countdown that can be interrupted.設置一個可以被打斷的購買倒計時。
{
if ((Low[i] Setup_Buy_Highest_High) (Close[i 1] Setup_Buy_Highest_High))
{
Countdown_Buy = 0;
RemoveCount(COUNT_TYPE_BUY_COUNTDOWN, Time[i], Time);
Setup_Buy = 0;
}
}
// Check if Setup is perfected.檢查安裝是否完善。
if ((!Setup_Buy_Perfected) (Setup_Buy_Needs_Perfecting)) // Setup Buy candles #9 .購買蠟燭#9 。
{
if ((Low[i] Setup_Buy_6_Low) (Low[i] Setup_Buy_7_Low))
{
Setup_Buy_Perfected = true;
Setup_Buy_Needs_Perfecting = false;
Perfection[i] = 1;
PutCount(COUNT_TYPE_BUY_PERFECTION, 233 , Time[i], High[i]); // Arrow up.箭頭曏上
if (AlertOnPerfecting) DoAlert(i, ALERT_TYPE_PERFECTING_BUY);
}
}
// Sell Setup.銷售安裝。
// Price Flip check
// First Sell Setup candle
// Setup_Sell == 0 for when no previous Sell Setup present. Setup_Sell == 9 for when one Sell Setup follows another:
if ((Close[i 1] = Close[i 5]) (Close[i] Close[i 4]) ((Setup_Sell == 0) || (Setup_Sell == 9)))
{
// Remember Close before the Setup s first bar (needed further for TDST Support).
Preceding_Close = Close[i 1];
Use_Preceding_Close = false;
// Set initial values.
Setup_Sell = 1;
PutCount(COUNT_TYPE_SELL_SETUP, IntegerToString(Setup_Sell), Time[i], High[i]);
Setup_Sell_First_Candle = Time[i]; // Remember the first candle to wipe the Setup if it fails before completing.
Setup_Sell_Lowest_Low_Candidate = Low[i];
Setup[i] = -Setup_Sell;
}
// Sell Setup candles - second through nine:
else if ((Close[i] Close[i 4]) (Setup_Sell 0) (Setup_Sell 9))
{
Setup_Sell ;
Setup[i] = -Setup_Sell;
PutCount(COUNT_TYPE_SELL_SETUP, IntegerToString(Setup_Sell), Time[i], High[i]);
if (Setup_Sell_Lowest_Low_Candidate Low[i]) Setup_Sell_Lowest_Low_Candidate = Low[i];
// These are needed for perfection checks.
if (Setup_Sell == 6) Setup_Sell_6_High = High[i];
if (Setup_Sell == 7) Setup_Sell_7_High = High[i];
if (Setup_Sell == 9)
{
if (Countdown_Buy 0)
{
Countdown_Buy = 0; // Reset Buy Countdown.
RemoveCount(COUNT_TYPE_BUY_COUNTDOWN, Time[i], Time);
}
No_More_Countdown_Buy_Until_Next_Buy_Setup = true;
if (AlertOnSetup) DoAlert(i, ALERT_TYPE_SETUP_SELL);
Setup_Sell_Perfected = false; // Will be checked farther.
Setup_Sell_Needs_Perfecting = true;
No_More_Countdown_Sell_Until_Next_Sell_Setup = false;
Setup_Buy = 0;
if (Preceding_Close Setup_Sell_Lowest_Low_Candidate)
{
Setup_Sell_Lowest_Low = Preceding_Close;
Use_Preceding_Close = true;
}
else Setup_Sell_Lowest_Low = Setup_Sell_Lowest_Low_Candidate;
int supp_count = 9;
if (Use_Preceding_Close) supp_count = 10; // If preceding bar s Close is used to draw the Support line, it should be started at that bar s Close.
for (int j = i; j i supp_count; j )
{
Support[j] = Setup_Sell_Lowest_Low;
if (Low[j] == Setup_Sell_Lowest_Low) break;
}
// Check perfecting:
// Setup candle #8:
if ((High[i 1] Setup_Sell_6_High) (High[i 1] Setup_Sell_7_High))
{
Setup_Sell_Perfected = true;
Setup_Sell_Needs_Perfecting = false;
Perfection[i 1] = -1;
PutCount(COUNT_TYPE_SELL_PERFECTION, 234 , Time[i 1], Low[i 1]); // Arrow down.
if (AlertOnPerfecting) DoAlert(i 1, ALERT_TYPE_PERFECTING_SELL);
}
// Countdown can also start on this candle but farther in the code.
}
}
// Sell Setup broken:
else if ((Close[i] = Close[i 4]) (Setup_Sell != 9) (Setup_Sell != 0))
{
RemoveCount(COUNT_TYPE_SELL_SETUP, Setup_Sell_First_Candle, Time, Setup_Sell); // Remove number objects for this Sell Setup.
Setup_Sell = 0;
Setup_Sell_First_Candle = 0;
Setup_Sell_Lowest_Low_Candidate = 0;
Setup_Sell_Needs_Perfecting = false;
Setup_Sell_Perfected = false;
}
// Sell Countdown check.
if ((!No_More_Countdown_Sell_Until_Next_Sell_Setup) ((Setup_Sell == 9) || (Countdown_Sell 0))) // Have a completed Sell Setup or a started Countdown.
{
if (Countdown_Sell 13)
{
if (Close[i] = High[i 2])
{
if (Countdown_Sell 12) // Normal condition for Countdown candles from 1 through 12.
{
Countdown_Sell ;
if (Countdown_Sell == 8) Countdown_Sell_8_Close = Close[i]; // Remember 8th Countdown close for checking the 13th.
Countdown[i] = -Countdown_Sell;
PutCount(COUNT_TYPE_SELL_COUNTDOWN, IntegerToString(Countdown_Sell), Time[i], High[i]);
}
else if (High[i] Countdown_Sell_8_Close) // Special condition for Countdown candle 13.
{
Countdown_Sell ;
Countdown[i] = -Countdown_Sell;
PutCount(COUNT_TYPE_SELL_COUNTDOWN, IntegerToString(Countdown_Sell), Time[i], High[i]);
if (AlertOnCountdown13) DoAlert(i, ALERT_TYPE_COUNT13_SELL);
Countdown_Sell = 0; // Reset Countdown as we have already reached count 13.
No_More_Countdown_Sell_Until_Next_Sell_Setup = true;
}
else // Failed Countdown candles 13 are marked with .
{
Countdown[i] = -14;
PutCount(COUNT_TYPE_SELL_COUNTDOWN, , Time[i], High[i]);
}
}
}
}
// Check if Countdown is broken.
if (Countdown_Sell 0) // Have a Sell Countdown that can be interrupted.
{
if ((High[i] Setup_Sell_Lowest_Low) (Close[i 1] Setup_Sell_Lowest_Low))
{
Countdown_Sell = 0;
RemoveCount(COUNT_TYPE_SELL_COUNTDOWN, Time[i], Time);
Setup_Sell = 0;
}
}
// Check if Setup is perfected.
if ((!Setup_Sell_Perfected) (Setup_Sell_Needs_Perfecting)) // Setup Sell candles #9 .
{
if ((High[i] Setup_Sell_6_High) (High[i] Setup_Sell_7_High))
{
Setup_Sell_Perfected = true;
Setup_Sell_Needs_Perfecting = false;
Perfection[i] = -1;
PutCount(COUNT_TYPE_SELL_PERFECTION, 234 , Time[i], Low[i]); // Arrow down.
if (AlertOnPerfecting) DoAlert(i, ALERT_TYPE_PERFECTING_SELL);
}
}
}
return(rates_total);
}
void OnChartEvent(const int id,
const long lparam,
const double dparam,
const string sparam)
{
if (id == CHARTEVENT_CHART_CHANGE) RedrawVisibleLabels();
}
void PutCount(const ENUM_COUNT_TYPE count_type, const string s, const datetime time, const double price)
{
string name = Prefix;
color colour = clrNONE;
int level = 0;
ENUM_OBJECT object_type = OBJ_TEXT;
bool adjust_for_height = false;
switch(count_type)
{
case COUNT_TYPE_BUY_SETUP:
name = BS
colour = BuySetupColor;
level = 1;
break;
case COUNT_TYPE_SELL_SETUP:
name = SS
colour = SellSetupColor;
level = -1;
adjust_for_height = true;
break;
case COUNT_TYPE_BUY_COUNTDOWN:
name = BC
colour = CountdownColor;
level = 2;
break;
case COUNT_TYPE_SELL_COUNTDOWN:
name = SC
colour = CountdownColor;
level = -2;
adjust_for_height = true;
break;
case COUNT_TYPE_BUY_PERFECTION:
name = BP
colour = BuySetupColor;
level = 3;
object_type = OBJ_ARROW;
break;
case COUNT_TYPE_SELL_PERFECTION:
name = SP
colour = SellSetupColor;
level = -3;
object_type = OBJ_ARROW;
adjust_for_height = true;
break;
}
name = IntegerToString((int)time);
ObjectCreate(0, name, object_type, 0, time, price);
ObjectSetInteger(0, name, OBJPROP_COLOR, colour);
ObjectSetInteger(0, name, OBJPROP_SELECTABLE, false);
ObjectSetInteger(0, name, OBJPROP_HIDDEN, false);
if ((count_type == COUNT_TYPE_BUY_PERFECTION) || (count_type == COUNT_TYPE_SELL_PERFECTION))
{
ObjectSetInteger(0, name, OBJPROP_ARROWCODE, StringToInteger(s));
ObjectSetInteger(0, name, OBJPROP_WIDTH, ArrowWidth);
}
else
{
ObjectSetInteger(0, name, OBJPROP_FONTSIZE, FontSize);
ObjectSetString(0, name, OBJPROP_FONT, FontFace);
ObjectSetString(0, name, OBJPROP_TEXT, s);
ObjectSetInteger(0, name, OBJPROP_ANCHOR, ANCHOR_UPPER);
}
RedrawOneWickLabel(name, time, price, level);
}
// level - positional level above (-) and below the candles ( ).
void RedrawOneWickLabel(const string name, const datetime time, const double price, const int level)
{
int x, y, cw;
datetime t;
double p, p_0;
if (ObjectFind(0, name) == -1) return;
int distance = 0;
if (level 0) distance = level * (int)FontPixelHeight level * PixelDistance; // Objects above the candle should be additionally adjusted for their own height.
else distance = (level - 1) * (int)FontPixelHeight level * PixelDistance;
// Needed only for y; x is used as a dummy.
ChartTimePriceToXY(0, 0, time, price, x, y);
ChartXYToTimePrice(0, x, y distance, cw, t, p);
// Went above the screen - MT5 ChartXYToTimePrice will invert the offset, so we need to adjust it.
if (y distance 0)
{
// Get the price of Y = 0.
ChartXYToTimePrice(0, x, 0, cw, t, p_0);
p = p_0 (p_0 - p); // Return the price to its above the screen edge position.
}
ObjectSetDouble(0, name, OBJPROP_PRICE, p);
}
void RedrawVisibleLabels()
{
int visible_bars = (int)ChartGetInteger(0, CHART_VISIBLE_BARS);
int first_bar = (int)ChartGetInteger(0, CHART_FIRST_VISIBLE_BAR);
int last_bar = first_bar - visible_bars 1;
// Process all bars on the current screen.
// Cycle through all possible object names based on prefix count_type_name timestamp.
for (int i = first_bar; i = last_bar; i--)
{
datetime time = iTime(Symbol(), Period(), i);
double low = iLow(Symbol(), Period(), i);
double high = iHigh(Symbol(), Period(), i);
string time_string = IntegerToString((int)time);
RedrawOneWickLabel(Prefix BS time_string, time, low, 1);
RedrawOneWickLabel(Prefix SS time_string, time, high, -1);
RedrawOneWickLabel(Prefix BC time_string, time, low, 2);
RedrawOneWickLabel(Prefix SC time_string, time, high, -2);
RedrawOneWickLabel(Prefix BP time_string, time, low, 3);
RedrawOneWickLabel(Prefix SP time_string, time, high, -3);
}
ChartRedraw();
}
void RemoveCount(const ENUM_COUNT_TYPE count_type, const datetime begin, const datetime Time[], const int n = 0)
{
string name_start = Prefix;
if (count_type == COUNT_TYPE_BUY_SETUP) name_start = BS
else if (count_type == COUNT_TYPE_SELL_SETUP) name_start = SS
else if (count_type == COUNT_TYPE_BUY_COUNTDOWN) name_start = BC
else if (count_type == COUNT_TYPE_SELL_COUNTDOWN) name_start = SC
int begin_candle = iBarShift(Symbol(), Period(), begin, true);
if (begin_candle == -1) return; // Some data error.
// Setup
if ((count_type == COUNT_TYPE_BUY_SETUP) || (count_type == COUNT_TYPE_SELL_SETUP))
{
for (int i = begin_candle; i begin_candle - n; i--)
{
string name = name_start IntegerToString(Time[i]);
ObjectDelete(0, name);
}
}
// Countdown
else if ((count_type == COUNT_TYPE_BUY_COUNTDOWN) || (count_type == COUNT_TYPE_SELL_COUNTDOWN))
{
// The number of countdown objects is unknown.
for (int i = begin_candle; i Bars(Symbol(), Period()); i )
{
string name = name_start IntegerToString(Time[i]);
if (ObjectGetString(ChartID(), name, OBJPROP_TEXT) == 1 ) // The last one.
{
ObjectDelete(0, name);
return;
}
ObjectDelete(0, name); // Attempt to delete even if it doesn t exist.
}
}
}
void DoAlert(int i, ENUM_ALERT_TYPE alert_type)
{
if (i 2) return; // i == 2 the earliest possible alert event that should be reacted on.
string main_text = Sequential: Symbol() @ EnumToString((ENUM_TIMEFRAMES)Period());
string email_subject = main_text;
//string
switch(alert_type)
{
case ALERT_TYPE_SETUP_BUY:
main_text = Buy Setup completed by TimeToString(iTime(Symbol(), Period(), i)) candle.
email_subject = Buy Setup
break;
case ALERT_TYPE_SETUP_SELL:
main_text = Sell Setup completed by TimeToString(iTime(Symbol(), Period(), i)) candle.
email_subject = Sell Setup
break;
case ALERT_TYPE_PERFECTING_BUY:
main_text = Buy Setup Perfected by TimeToString(iTime(Symbol(), Period(), i)) candle.
email_subject = Buy Perfecting
break;
case ALERT_TYPE_PERFECTING_SELL:
main_text = Sell Setup Perfected by TimeToString(iTime(Symbol(), Period(), i)) candle.
email_subject = Sell Perfecting
break;
case ALERT_TYPE_COUNT13_BUY:
main_text = Buy Countdown completed by TimeToString(iTime(Symbol(), Period(), i)) candle.
email_subject = Buy Countdown
break;
case ALERT_TYPE_COUNT13_SELL:
main_text = Sell Countdown completed by TimeToString(iTime(Symbol(), Period(), i)) candle.
email_subject = Sell Countdown
break;
case ALERT_TYPE_RESISTANCE:
main_text = TDST Resistance broken by TimeToString(iTime(Symbol(), Period(), i)) candle.
email_subject = Buy TDST Resistance
break;
case ALERT_TYPE_SUPPORT:
main_text = TDST Support broken by TimeToString(iTime(Symbol(), Period(), i)) candle.
email_subject = TDST Support
break;
}
if (AlertNative) Alert(main_text);
if (AlertEmail) SendMail(email_subject, main_text);
if (AlertNotification) SendNotification(main_text);
}
// ------------------------------------------------------------------
本站是提供個人知識琯理的網絡存儲空間，所有內容均由用戶發佈，不代表本站觀點。請注意甄別內容中的聯系方式、誘導購買等信息，謹防詐騙。如發現有害或侵權內容，請點擊一鍵擧報。
0條評論