FOREXPIPBRO

Below is what I believe to be an open code for the Steinitz fractal breakout strategy. I would like to know if its possible to translate this into easylanguage for tradestation. Please let me know if this is going to work, thank you #property indicator_chart_window #property indicator_buffers 7 #property indicator_color1 LawnGreen #property indicator_color2 Red #property indicator_color3 Red #property indicator_color4 Blue #property indicator_color5 Orange #property indicator_color6 Red #property indicator_color7 LawnGreen int gi_76 = 67890; extern int YourAccountNumber = 12345; bool gi_84 = FALSE; int gi_88 = 12; int gi_92 = 31; int gi_96 = 2008; extern bool Alert_SoundON = TRUE; extern bool EmailON = FALSE; extern bool ShowTradeArrowsOnly = TRUE; extern bool ShowBuySellLines = TRUE; extern bool ShowBadTradeExits = TRUE; extern bool ShowFibProfitTargets = TRUE; extern int MA_Period = 50; extern string m = "--Moving Average Types--"; extern string m0 = " 0 = SMA"; extern string m1 = " 1 = EMA"; extern string m2 = " 2 = SMMA"; extern string m3 = " 3 = LWMA"; extern int MA_Type = 0; extern string p = "--Applied Price Types--"; extern string p0 = " 0 = close"; extern string p1 = " 1 = open"; extern string p2 = " 2 = high"; extern string p3 = " 3 = low"; extern string p4 = " 4 = median(high+low)/2"; extern string p5 = " 5 = typical(high+low+close)/3"; extern string p6 = " 6 = weighted(high+low+close+close)/4"; extern int MA_AppliedPrice = 4; extern double AngleTreshold = 0.25; extern int PrevMAShift = 2; extern int CurMAShift = 0; int g_ma_method_256 = MODE_SMA; bool gi_260 = TRUE; bool gi_264 = TRUE; extern string pg0 = "Bad Trade Exits"; extern string pg = "Price Gap inputs"; extern int PriceGapMN = 100; extern int PriceGapW1 = 60; extern int PriceGapD1 = 40; extern int PriceGapH4 = 25; extern int PriceGapH1 = 20; extern int PriceGapM30 = 15; extern int PriceGapM15 = 10; extern int PriceGapM5 = 5; extern int PriceGapM1 = 3; extern string fp = "Face Position"; extern int FacePosMN = 80; extern int FacePosW1 = 60; extern int FacePosD1 = 48; extern int FacePosH4 = 24; extern int FacePosH1 = 16; extern int FacePosM30 = 10; extern int FacePosM15 = 8; extern int FacePosM5 = 4; extern int FacePosM1 = 4; extern string tp12 = "Fib Retrace Inputs"; extern int BarsBack = 10; extern double FibRetraceTrade1 = 100.0; extern double FibRetraceTrade2 = 161.8; extern double FibRetraceTrade3 = 261.8; extern bool AddSpreadToTargets = TRUE; extern string ap = "Arrow Position"; extern int Arrow_Position = 5; extern string to = "---Text Object Settings---"; extern int Text_X_Offset = 20; extern int StatusTxtSize = 10; extern color StatusColor = White; extern int CommentTxtSize = 10; extern color CommentColor = White; extern color BuyLineColor = Aqua; extern color SellLineColor = Yellow; extern color Fib1Color = Pink; extern color Fib2Color = Orange; extern color Fib3Color = Red; int g_datetime_464; double g_ibuf_468[]; double g_ibuf_472[]; double g_ibuf_476[]; double g_ibuf_480[]; double g_ibuf_484[]; double g_ibuf_488[]; double g_ibuf_492[]; double gd_496; double gd_504; string gs_512 = ""; string gs_520; string gs_528; int g_datetime_536; bool g_global_var_540; bool g_global_var_544; int gi_548; int gi_552; int gi_556; string gs_560; string gs_568; string gs_576; string gs_584 = "Steinitz Fractal Breakout Status"; int gi_592; bool gi_596 = FALSE; string gs_600 = "_SFBInd15_"; bool gi_608; bool gi_612; double gd_616; double gd_624; double g_ima_632; double g_ima_640; double gd_648; double gd_656; double gd_664; double gd_672; double g_ilow_680; double g_ihigh_688; double gd_696; double gd_704; double gd_712; int g_time_720 = 0; int g_time_724 = 0; int g_time_728 = 0; int gi_732 = 0; int gi_736; string g_var_name_740; string g_var_name_748; string g_var_name_756; string g_var_name_764; string g_var_name_772; string g_var_name_780; string g_var_name_788; string g_var_name_796; string g_var_name_804; string g_var_name_812; string g_var_name_820; string g_var_name_828; string g_var_name_836; string g_var_name_844; string g_var_name_852; bool gi_860 = TRUE; int init() { string ls_0; string ls_8; string ls_16; bool li_24; string l_name_36; SetIndexStyle(0, DRAW_ARROW, EMPTY); SetIndexArrow(0, 233); SetIndexBuffer(0, g_ibuf_468); SetIndexStyle(1, DRAW_ARROW, EMPTY); SetIndexArrow(1, 234); SetIndexBuffer(1, g_ibuf_472); SetIndexStyle(2, DRAW_LINE, STYLE_SOLID); SetIndexBuffer(2, g_ibuf_476); SetIndexStyle(3, DRAW_LINE, STYLE_SOLID); SetIndexBuffer(3, g_ibuf_480); SetIndexStyle(4, DRAW_LINE, STYLE_SOLID); SetIndexBuffer(4, g_ibuf_484); SetIndexStyle(5, DRAW_ARROW, EMPTY); SetIndexArrow(5, 76); SetIndexBuffer(5, g_ibuf_492); SetIndexStyle(6, DRAW_ARROW, EMPTY); SetIndexArrow(6, 76); SetIndexBuffer(6, g_ibuf_488); if (MA_Type >= 4) li_24 = FALSE; else li_24 = MA_Type; switch (li_24) { case 0: g_ma_method_256 = 0; ls_0 = "sma10"; ls_8 = "sma21"; ls_16 = "sma50"; break; case 1: g_ma_method_256 = 1; ls_0 = "ema10"; ls_8 = "ema21"; ls_16 = "ema50"; break; case 2: g_ma_method_256 = 2; ls_0 = "smma10"; ls_8 = "smma21"; ls_16 = "smma50"; break; case 3: g_ma_method_256 = 3; ls_0 = "lwma10"; ls_8 = "lwma21"; ls_16 = "lwma50"; break; default: g_ma_method_256 = 0; ls_0 = "sma10"; ls_8 = "sma21"; ls_16 = "sma50"; } SetIndexLabel(2, ls_0); SetIndexLabel(3, ls_8); SetIndexLabel(4, ls_16); gd_496 = Get_mFactor(); gi_596 = FALSE; ClearArrows(); DeleteBadLabels(); if (IsDemo() == TRUE) gi_596 = TRUE; if (gi_596 == FALSE) gi_596 = CheckAccountNumber(); if (gi_596 == TRUE) { DeleteExistingLabels(); SetupLabels(); ClearLabels(); gd_504 = SetPoint(); g_global_var_540 = FALSE; g_global_var_544 = FALSE; OutputStatusToChart(gs_584 + " INITIALIZED SUCCESSFULLY"); if (gi_84 == TRUE) OutputComment1ToChart("Expires on " + gi_88 + "/" + gi_92 + "/" + gi_96); else OutputComment1ToChart("No expiration"); } if (CurMAShift >= PrevMAShift) { Print("Error: CurMAShift >= PrevMAShift"); PrevMAShift = 6; CurMAShift = 0; } GetGlobalVars(); DeleteFractObjects(); DeleteBadLabels(); int l_objs_total_32 = ObjectsTotal(); for (int li_44 = 0; li_44 < l_objs_total_32; li_44++) { l_name_36 = ObjectName(li_44); Print(li_44, "Object name for object #", li_44, " is " + l_name_36); } return (0); } int deinit() { ClearLabels(); DeleteExistingLabels(); ClearArrows(); DeleteFractObjects(); return (0); } int FibRetracement(int ai_0, int ai_4) { int li_ret_16; int l_highest_8 = iHighest(NULL, 0, MODE_HIGH, BarsBack, ai_4); int l_lowest_12 = iLowest(NULL, 0, MODE_LOW, BarsBack, ai_4); g_ihigh_688 = iHigh(NULL, 0, l_highest_8); g_ilow_680 = iLow(NULL, 0, l_lowest_12); if (ai_0 == 0) if (g_ihigh_688 > g_ilow_680) li_ret_16 = MathFloor((g_ihigh_688 - g_ilow_680) / gd_504); if (ai_0 == 1) if (g_ilow_680 < g_ihigh_688) li_ret_16 = MathFloor((g_ihigh_688 - g_ilow_680) / gd_504); return (li_ret_16); } void FibLines(int ai_0, int ai_4) { int li_8 = MarketInfo(Symbol(), MODE_SPREAD); if (Digits == 3 || Digits == 5) li_8 /= 10; int li_12 = FibRetracement(ai_0, ai_4); if (ai_0 == 0) { gd_696 = g_ilow_680 + li_12 * FibRetraceTrade1 / 100.0 * gd_504; if (AddSpreadToTargets) gd_696 += li_8 * gd_504; SaveFib1(gd_696); gd_704 = g_ilow_680 + li_12 * FibRetraceTrade2 / 100.0 * gd_504; if (AddSpreadToTargets) gd_704 += li_8 * gd_504; SaveFib2(gd_704); gd_712 = g_ilow_680 + li_12 * FibRetraceTrade3 / 100.0 * gd_504; if (AddSpreadToTargets) gd_712 += li_8 * gd_504; SaveFib3(gd_712); } if (ai_0 == 1) { gd_696 = g_ihigh_688 - li_12 * FibRetraceTrade1 / 100.0 * gd_504; if (AddSpreadToTargets) gd_696 -= li_8 * gd_504; SaveFib1(gd_696); gd_704 = g_ihigh_688 - li_12 * FibRetraceTrade2 / 100.0 * gd_504; if (AddSpreadToTargets) gd_704 -= li_8 * gd_504; SaveFib2(gd_704); gd_712 = g_ihigh_688 - li_12 * FibRetraceTrade3 / 100.0 * gd_504; if (AddSpreadToTargets) gd_712 -= li_8 * gd_504; SaveFib3(gd_712); } RemoveLine("Fib1"); RemoveLine("Fib2"); RemoveLine("Fib3"); DisplayLine("Fib1", gd_696, Fib1Color); DisplayLine("Fib2", gd_704, Fib2Color); DisplayLine("Fib3", gd_712, Fib3Color); } int start() { int li_8; int li_12; int li_16 = IndicatorCounted(); DeleteBadLabels(); if (gi_552 < 10) { SetupLabels(); ClearLabels(); DeleteExistingLabels(); SetupLabels(); } if (gi_596 == FALSE) return (0); gi_592 = CheckTradeFilters(); if (gi_592 == 1) return (0); if (li_16 < 0) return (-1); if (li_16 > 0) li_16--; int li_0 = Bars - li_16; if (gi_860) { ClearArrows(); gi_860 = FALSE; } for (int li_4 = li_0 - 1; li_4 >= 0; li_4--) { GetMAs(li_4 + 1); gi_608 = FALSE; SaveBuy(gi_608); gi_612 = FALSE; SaveSell(gi_612); CheckMA_Angle(li_4 + 1); CheckHighLowRules(li_4 + 1); CheckMAs(); if (gi_608) { gd_616 = iHigh(NULL, 0, li_4 + 1); SaveBuy1(gd_616); } if (gi_612) { gd_624 = iLow(NULL, 0, li_4 + 1); SaveSell1(gd_624); } if (ShowTradeArrowsOnly) { if (gi_608) { if (iHigh(NULL, 0, li_4) <= gd_616) { gi_608 = FALSE; SaveBuy(gi_608); } } if (gi_612) { if (iLow(NULL, 0, li_4) >= gd_624) { gi_612 = FALSE; SaveSell(gi_612); } } } if (gi_608) { if (li_4 == 0) { if (ShowTradeArrowsOnly) { if (NewTradeBar()) ShowAlert("Buy Trade "); } else if (NewSignalBar()) ShowAlert("Buy Alert "); } li_8 = MathRound((High[li_4 + 1] - gd_672) / gd_504); if (ShowTradeArrowsOnly) gs_528 = GetSignalTime(li_4, 1); else gs_528 = GetSignalTime(li_4 + 1, 0); gs_512 = gs_520 + " - D:" + li_8 + " A:" + DoubleToStr(gd_648, 2) + " at " + gs_528; OutputComment2ToChart(gs_512); if (ShowTradeArrowsOnly) { g_ibuf_468[li_4] = iLow(NULL, 0, li_4) - Arrow_Position * gd_504; if (ShowFibProfitTargets) FibLines(0, li_4 + 1); } else g_ibuf_468[li_4 + 1] = iLow(NULL, 0, li_4 + 1) - Arrow_Position * gd_504; g_global_var_540 = FALSE; SaveLastArrow(0); g_global_var_544 = TRUE; SaveLastSmile(1); g_datetime_464 = Time[0]; if (ShowBuySellLines) { DisplayLine("FractBuy", gd_616, BuyLineColor); RemoveLine("FractSell"); } } else { if (gi_612) { if (li_4 == 0) { if (ShowTradeArrowsOnly) { if (NewTradeBar()) ShowAlert("Sell Trade "); } else if (NewSignalBar()) ShowAlert("Sell Alert "); } li_8 = MathRound((gd_672 - (Low[li_4 + 1])) / gd_504); if (ShowTradeArrowsOnly) gs_528 = GetSignalTime(li_4, 1); else gs_528 = GetSignalTime(li_4 + 1, 0); gs_512 = gs_520 + " - D:" + li_8 + " A:" + DoubleToStr(gd_648, 2) + " at " + gs_528; OutputComment2ToChart(gs_512); if (ShowTradeArrowsOnly) { g_ibuf_472[li_4] = iHigh(NULL, 0, li_4) + Arrow_Position * gd_504; if (ShowFibProfitTargets) FibLines(1, li_4 + 1); } else g_ibuf_472[li_4 + 1] = iHigh(NULL, 0, li_4 + 1) + Arrow_Position * gd_504; g_global_var_540 = TRUE; SaveLastArrow(1); g_global_var_544 = FALSE; SaveLastSmile(0); g_datetime_464 = Time[0]; if (ShowBuySellLines) { DisplayLine("FractSell", gd_624, SellLineColor); RemoveLine("FractBuy"); } } } if (ShowBadTradeExits) { if (g_global_var_540 == 0) { if (g_global_var_544 != 0) { if (CheckBadExit(0, li_4 + 1)) { li_12 = GetFacePos(Period()); g_ibuf_488[li_4 + 1] = iLow(NULL, 0, li_4 + 1) - li_12 * gd_504; g_global_var_544 = FALSE; SaveLastSmile(0); if (li_4 == 0) if (NewBadTradeBar()) ShowAlert("BUY Trade Exit"); } } } if (g_global_var_540 == 1) { if (g_global_var_544 != 1) { if (CheckBadExit(1, li_4 + 1)) { li_12 = GetFacePos(Period()); g_ibuf_492[li_4 + 1] = iHigh(NULL, 0, li_4 + 1) + li_12 * gd_504; g_global_var_544 = TRUE; SaveLastSmile(1); if (li_4 == 0) if (NewBadTradeBar()) ShowAlert("SELL Trade Exit"); } } } } } return (0); } double Get_mFactor() { double ld_ret_8 = 10000.0; string ls_0 = StringSubstr(Symbol(), 3, 3); if (ls_0 == "JPY") ld_ret_8 = 100.0; int li_16 = PrevMAShift - CurMAShift; ld_ret_8 /= li_16; return (ld_ret_8); } bool NewSignalBar() { if (g_time_720 == Time[0]) return (FALSE); g_time_720 = Time[0]; return (TRUE); } bool NewTradeBar() { if (g_time_724 == Time[0]) return (FALSE); g_time_724 = Time[0]; return (TRUE); } bool NewBadTradeBar() { if (g_time_728 == Time[0]) return (FALSE); g_time_728 = Time[0]; return (TRUE); } void GetMAs(int ai_0) { gd_656 = iMA(NULL, 0, 10, 0, g_ma_method_256, PRICE_CLOSE, ai_0); gd_664 = iMA(NULL, 0, 21, 0, g_ma_method_256, PRICE_CLOSE, ai_0); gd_672 = iMA(NULL, 0, 50, 0, g_ma_method_256, PRICE_CLOSE, ai_0); g_ibuf_476[ai_0] = gd_656; g_ibuf_480[ai_0] = gd_664; g_ibuf_484[ai_0] = gd_672; SaveMA10(gd_656); SaveMA21(gd_664); SaveMA50(gd_672); } void CheckMA_Angle(int ai_0) { g_ima_632 = iMA(NULL, 0, MA_Period, 0, g_ma_method_256, MA_AppliedPrice, ai_0 + CurMAShift); g_ima_640 = iMA(NULL, 0, MA_Period, 0, g_ma_method_256, MA_AppliedPrice, ai_0 + PrevMAShift); gd_648 = gd_496 * (g_ima_632 - g_ima_640) / 2.0; gd_648 = NormalizeDouble(gd_648, 2); SavefAngle(gd_648); if (gd_648 > AngleTreshold) { gi_608 = TRUE; SaveBuy(gi_608); gs_520 = "BUY"; return; } if (gd_648 < -AngleTreshold) { gi_612 = TRUE; SaveSell(gi_612); gs_520 = "SELL"; } } void CheckHighLowRules(int ai_0) { if (gi_260 == TRUE) { if (gi_608) { if (Low[ai_0] > gd_656) { gi_608 = FALSE; SaveBuy(gi_608); } } if (gi_612) { if (High[ai_0] < gd_656) { gi_612 = FALSE; SaveSell(gi_612); } } } if (gi_264 == TRUE) { if (gi_608) { if (High[ai_0] > High[ai_0 + 1]) { gi_608 = FALSE; SaveBuy(gi_608); } } if (gi_612) { if (Low[ai_0] < Low[ai_0 + 1]) { gi_612 = FALSE; SaveSell(gi_612); } } } } void CheckMAs() { if (gi_608) { if (gd_656 <= gd_672 || gd_664 <= gd_672) { gi_608 = FALSE; SaveBuy(gi_608); } } if (gi_612) { if (gd_656 >= gd_672 || gd_664 >= gd_672) { gi_612 = FALSE; SaveSell(gi_612); } } } string GetSignalTime(int ai_0, bool ai_4) { if (ai_4) { if (gi_732 != iTime(NULL, 0, ai_0)) { g_datetime_536 = TimeCurrent(); gi_736 = g_datetime_536; SaveLastTradeSignalTime(g_datetime_536); gi_732 = iTime(NULL, 0, ai_0); SaveTradeCandleOpenTime(gi_732); } else g_datetime_536 = gi_736; } else g_datetime_536 = iTime(NULL, 0, ai_0); string ls_ret_8 = TimeToStr(g_datetime_536, TIME_DATE) + " " + TimeHour(g_datetime_536) + ":"; if (TimeMinute(g_datetime_536) < 10) ls_ret_8 = ls_ret_8 + "0"; ls_ret_8 = ls_ret_8 + TimeMinute(g_datetime_536); return (ls_ret_8); } int GetFacePos(int ai_0) { int li_ret_4 = 0; switch (ai_0) { case 43200: li_ret_4 = FacePosMN; break; case 10080: li_ret_4 = FacePosW1; break; case 1440: li_ret_4 = FacePosD1; break; case 240: li_ret_4 = FacePosH4; break; case 60: li_ret_4 = FacePosH1; break; case 30: li_ret_4 = FacePosM30; break; case 15: li_ret_4 = FacePosM15; break; case 5: li_ret_4 = FacePosM5; break; case 1: li_ret_4 = FacePosM1; break; default: li_ret_4 = 5; } return (li_ret_4); } void ShowAlert(string as_0) { string ls_8 = TimeToStr(TimeCurrent(), TIME_DATE) + " " + TimeHour(TimeCurrent()) + ":"; if (TimeMinute(TimeCurrent()) < 10) ls_8 = ls_8 + "0"; ls_8 = ls_8 + TimeMinute(TimeCurrent()); if (Alert_SoundON) Alert(as_0, Symbol(), " on ", tf2txt(Period()), " ", ls_8, " Steinitz"); if (EmailON) SendMail(as_0 + Symbol(), "Date=" + ls_8 + " on " + tf2txt(Period())); } void ClearArrows() { for (int li_0 = Bars; li_0 >= 0; li_0--) { g_ibuf_472[li_0] = 0; g_ibuf_468[li_0] = 0; g_ibuf_492[li_0] = 0; g_ibuf_488[li_0] = 0; } } int CheckTradeFilters() { bool li_4; bool li_ret_0 = FALSE; if (gi_84 == TRUE) { li_4 = FALSE; if (Year() > gi_96) li_4 = TRUE; if (li_4 == FALSE) { if (Year() == gi_96 && Month() > gi_88) li_4 = TRUE; if (li_4 == FALSE) if (Year() == gi_96 && Month() == gi_88 && Day() > gi_92) li_4 = TRUE; } if (li_4 == TRUE) OutputComment1ToChart("Indicator has expired - renew license"); li_ret_0 = li_4; } return (li_ret_0); } double SetPoint() { double ld_ret_0; if (Digits < 4) ld_ret_0 = 0.01; else ld_ret_0 = 0.0001; return (ld_ret_0); } int CheckAccountNumber() { if (YourAccountNumber == AccountNumber() && YourAccountNumber == gi_76) return (1); Alert("AccountNumber entered is incorrect.\n You entered ", YourAccountNumber); return (0); } void ClearLabels() { string ls_0 = " "; OutputLabelToChart(gs_560, gi_548, StatusTxtSize, StatusColor, ls_0, " "); OutputLabelToChart(gs_568, gi_552, CommentTxtSize, CommentColor, ls_0, " "); OutputLabelToChart(gs_576, gi_556, CommentTxtSize, CommentColor, ls_0, " "); } void DeleteBadLabels() { string l_name_8; int l_objs_total_4 = ObjectsTotal(); if (l_objs_total_4 > 0) { for (int li_0 = l_objs_total_4 - 1; li_0 >= 0; li_0--) { l_name_8 = ObjectName(li_0); if (StringFind(l_name_8, Symbol(), 0) < 0) if (StringFind(l_name_8, gs_600, 0) >= 0) ObjectDelete(l_name_8); } } } void DeleteExistingLabels() { string l_name_4; int l_objs_total_0 = ObjectsTotal(OBJ_LABEL); if (l_objs_total_0 > 0) { for (int l_objs_total_12 = l_objs_total_0; l_objs_total_12 >= 0; l_objs_total_12--) { l_name_4 = ObjectName(l_objs_total_12); if (StringFind(l_name_4, Symbol() + gs_600 + "FractalStatus", 0) >= 0) ObjectDelete(l_name_4); else if (StringFind(l_name_4, Symbol() + gs_600 + "FractalComment", 0) >= 0) ObjectDelete(l_name_4); } } } void SetupLabels() { gi_548 = 12; gi_552 = gi_548 + StatusTxtSize + 4; gi_556 = gi_552 + CommentTxtSize + 4; gs_560 = Symbol() + gs_600 + "FractalStatus"; gs_568 = Symbol() + gs_600 + "FractalComment1"; gs_576 = Symbol() + gs_600 + "FractalComment2"; } void OutputLabelToChart(string a_name_0, int a_y_8, int a_fontsize_12, color a_color_16, string a_text_20, string as_unused_28) { if (ObjectFind(a_name_0) != 0) { ObjectCreate(a_name_0, OBJ_LABEL, 0, 0, 0); ObjectSet(a_name_0, OBJPROP_CORNER, 0); ObjectSet(a_name_0, OBJPROP_XDISTANCE, Text_X_Offset); ObjectSet(a_name_0, OBJPROP_YDISTANCE, a_y_8); } ObjectSetText(a_name_0, a_text_20, a_fontsize_12, "Arial Bold", a_color_16); } void OutputStatusToChart(string as_0) { OutputLabelToChart(gs_560, gi_548, StatusTxtSize, StatusColor, as_0, "*"); } void OutputComment1ToChart(string as_0) { OutputLabelToChart(gs_568, gi_552, CommentTxtSize, CommentColor, as_0, "*"); } void OutputComment2ToChart(string as_0) { OutputLabelToChart(gs_576, gi_556, CommentTxtSize, CommentColor, as_0, "*"); } string tf2txt(int ai_0) { switch (ai_0) { case 1: return ("M1"); case 5: return ("M5"); case 15: return ("M15"); case 30: return ("M30"); case 60: return ("H1"); case 240: return ("H4"); case 1440: return ("D1"); case 10080: return ("W1"); case 43200: return ("MN"); } return ("??"); } void DisplayLine(string as_0, double a_price_8, color a_color_16) { string l_name_20 = Symbol() + gs_600 + as_0; if (ObjectFind(l_name_20) != 0) { ObjectCreate(l_name_20, OBJ_HLINE, 0, g_datetime_464, a_price_8); ObjectSet(l_name_20, OBJPROP_STYLE, STYLE_DASHDOTDOT); ObjectSet(l_name_20, OBJPROP_COLOR, a_color_16); ObjectSet(l_name_20, OBJPROP_WIDTH, 1); return; } ObjectMove(l_name_20, 0, g_datetime_464, a_price_8); } void DeleteFractObjects() { ObjectDelete(Symbol() + gs_600 + "FractBuy"); ObjectDelete(Symbol() + gs_600 + "FractSell"); ObjectDelete(Symbol() + gs_600 + "Fib1"); ObjectDelete(Symbol() + gs_600 + "Fib2"); ObjectDelete(Symbol() + gs_600 + "Fib3"); } void RemoveLine(string as_0) { ObjectDelete(Symbol() + gs_600 + as_0); } bool CheckBadExit(int ai_0, int ai_4) { double l_iopen_24 = iOpen(NULL, 0, ai_4); double l_iclose_40 = iClose(NULL, 0, ai_4); double l_iopen_32 = iOpen(NULL, 0, ai_4 + 1); double l_iclose_48 = iClose(NULL, 0, ai_4 + 1); double l_ima_8 = iMA(NULL, 0, 50, 0, g_ma_method_256, PRICE_CLOSE, ai_4); double l_ima_16 = iMA(NULL, 0, 50, 0, g_ma_method_256, PRICE_CLOSE, ai_4 + 1); int li_56 = GetPriceGap(Period()); double ld_60 = li_56 * gd_504; if (Digits < 3) { ld_60 = NormalizeDouble(ld_60, 2); l_iopen_24 = NormalizeDouble(l_iopen_24, 2); l_iclose_40 = NormalizeDouble(l_iclose_40, 2); l_iopen_32 = NormalizeDouble(l_iopen_32, 2); l_iclose_48 = NormalizeDouble(l_iclose_48, 2); l_ima_8 = NormalizeDouble(l_ima_8, 2); l_ima_16 = NormalizeDouble(l_ima_16, 2); } else { ld_60 = NormalizeDouble(ld_60, 4); l_iopen_24 = NormalizeDouble(l_iopen_24, 4); l_iclose_40 = NormalizeDouble(l_iclose_40, 4); l_iopen_32 = NormalizeDouble(l_iopen_32, 4); l_iclose_48 = NormalizeDouble(l_iclose_48, 4); l_ima_8 = NormalizeDouble(l_ima_8, 4); l_ima_16 = NormalizeDouble(l_ima_16, 4); } switch (ai_0) { case 0: if (l_iopen_24 > l_iclose_40) { if (l_iopen_32 > l_iclose_48) { if (l_iclose_40 + ld_60 <= l_ima_8) if (l_iclose_48 + ld_60 <= l_ima_16) return (TRUE); } } case 1: if (l_iopen_24 < l_iclose_40) { if (l_iopen_32 < l_iclose_48) { if (l_iclose_40 - ld_60 >= l_ima_8) if (l_iclose_48 - ld_60 >= l_ima_16) return (TRUE); } } } return (FALSE); } int GetPriceGap(int ai_0) { int li_ret_4 = 0; switch (ai_0) { case 43200: li_ret_4 = PriceGapMN; break; case 10080: li_ret_4 = PriceGapW1; break; case 1440: li_ret_4 = PriceGapD1; break; case 240: li_ret_4 = PriceGapH4; break; case 60: li_ret_4 = PriceGapH1; break; case 30: li_ret_4 = PriceGapM30; break; case 15: li_ret_4 = PriceGapM15; break; case 5: li_ret_4 = PriceGapM5; break; case 1: li_ret_4 = PriceGapM1; break; default: li_ret_4 = 5; } return (li_ret_4); } void GetGlobalVars() { NameGlobalVars(); InitGlobalVars(); GetGlobalVarValues(); } void GetGlobalVarValues() { double l_global_var_0 = GlobalVariableGet(g_var_name_740); if (l_global_var_0 > 0.0) gi_608 = TRUE; else gi_608 = FALSE; l_global_var_0 = GlobalVariableGet(g_var_name_748); if (l_global_var_0 > 0.0) gi_612 = TRUE; else gi_612 = FALSE; gd_616 = GlobalVariableGet(g_var_name_756); gd_624 = GlobalVariableGet(g_var_name_764); gd_656 = GlobalVariableGet(g_var_name_772); gd_664 = GlobalVariableGet(g_var_name_780); gd_672 = GlobalVariableGet(g_var_name_788); gd_648 = GlobalVariableGet(g_var_name_796); gi_732 = GlobalVariableGet(g_var_name_804); gi_736 = GlobalVariableGet(g_var_name_812); g_global_var_540 = GlobalVariableGet(g_var_name_820); g_global_var_544 = GlobalVariableGet(g_var_name_828); gd_696 = GlobalVariableGet(g_var_name_836); gd_704 = GlobalVariableGet(g_var_name_844); gd_712 = GlobalVariableGet(g_var_name_852); } void InitGlobalVars() { if (!GlobalVariableCheck(g_var_name_740)) GlobalVariableSet(g_var_name_740, -10); if (!GlobalVariableCheck(g_var_name_748)) GlobalVariableSet(g_var_name_748, -10); if (!GlobalVariableCheck(g_var_name_756)) GlobalVariableSet(g_var_name_756, 0); if (!GlobalVariableCheck(g_var_name_764)) GlobalVariableSet(g_var_name_764, 0); if (!GlobalVariableCheck(g_var_name_772)) GlobalVariableSet(g_var_name_772, 0); if (!GlobalVariableCheck(g_var_name_780)) GlobalVariableSet(g_var_name_780, 0); if (!GlobalVariableCheck(g_var_name_788)) GlobalVariableSet(g_var_name_788, 0); if (!GlobalVariableCheck(g_var_name_796)) GlobalVariableSet(g_var_name_796, 0); if (!GlobalVariableCheck(g_var_name_804)) GlobalVariableSet(g_var_name_804, 0); if (!GlobalVariableCheck(g_var_name_812)) GlobalVariableSet(g_var_name_812, 0); if (!GlobalVariableCheck(g_var_name_820)) GlobalVariableSet(g_var_name_820, 10); if (!GlobalVariableCheck(g_var_name_828)) GlobalVariableSet(g_var_name_828, 10); if (!GlobalVariableCheck(g_var_name_836)) GlobalVariableSet(g_var_name_836, 0); if (!GlobalVariableCheck(g_var_name_844)) GlobalVariableSet(g_var_name_844, 0); if (!GlobalVariableCheck(g_var_name_852)) GlobalVariableSet(g_var_name_852, 0); } void NameGlobalVars() { string ls_0 = "SFBI_15_" + Symbol() + tf2txt(Period()); g_var_name_740 = ls_0 + "_Buy"; g_var_name_748 = ls_0 + "_Sell"; g_var_name_756 = ls_0 + "_BuyLine"; g_var_name_764 = ls_0 + "_SellLine"; g_var_name_772 = ls_0 + "_MA10"; g_var_name_780 = ls_0 + "_MA21"; g_var_name_788 = ls_0 + "_MA50"; g_var_name_796 = ls_0 + "_fAngle"; g_var_name_804 = ls_0 + "_TradeCandleOT"; g_var_name_812 = ls_0 + "_LastTradeCandleST"; g_var_name_820 = ls_0 + "_LastArrow"; g_var_name_828 = ls_0 + "_LastSmile"; g_var_name_836 = ls_0 + "_Fib1"; g_var_name_844 = ls_0 + "_Fib2"; g_var_name_852 = ls_0 + "_Fib3"; } void SaveBuy(int ai_0) { if (ai_0 == 1) { GlobalVariableSet(g_var_name_740, 10.0); return; } GlobalVariableSet(g_var_name_740, -10.0); } void SaveSell(int ai_0) { if (ai_0 == 1) { GlobalVariableSet(g_var_name_748, 10.0); return; } GlobalVariableSet(g_var_name_748, -10.0); } void SaveBuy1(double ad_0) { GlobalVariableSet(g_var_name_756, ad_0); } void SaveSell1(double ad_0) { GlobalVariableSet(g_var_name_764, ad_0); } void SaveMA10(double ad_0) { GlobalVariableSet(g_var_name_772, ad_0); } void SaveMA21(double ad_0) { GlobalVariableSet(g_var_name_780, ad_0); } void SaveMA50(double ad_0) { GlobalVariableSet(g_var_name_788, ad_0); } void SavefAngle(double ad_0) { GlobalVariableSet(g_var_name_796, ad_0); } void SaveTradeCandleOpenTime(int ai_0) { GlobalVariableSet(g_var_name_804, ai_0); } void SaveLastTradeSignalTime(int ai_0) { GlobalVariableSet(g_var_name_812, ai_0); } void SaveLastArrow(int ai_0) { GlobalVariableSet(g_var_name_820, ai_0); } void SaveLastSmile(int ai_0) { GlobalVariableSet(g_var_name_828, ai_0); } void SaveFib1(int ai_0) { GlobalVariableSet(g_var_name_836, ai_0); } void SaveFib2(int ai_0) { GlobalVariableSet(g_var_name_844, ai_0); } void SaveFib3(int ai_0) { GlobalVariableSet(g_var_name_852, ai_0); }