forexprediction

Download script
forexprediction

This script functions as a comprehensive "Forex Prediction" dashboard designed to provide traders with real-time market sentiment, multi-timeframe analysis, and actionable trade signals. It works by aggregating high-frequency data across various timeframes and calculating the relative strength between buyers and sellers.

Core Analysis Logic

The tool performs an exhaustive evaluation of market momentum by analyzing seven different timeframes simultaneously (M1, M5, M15, M30, H1, H4, and D1). For each of these periods, it calculates:

  • Short-term vs. Long-term Averages: It compares the price action of the last two candles against a 5-candle average.
  • Volatility & Momentum Scoring: By measuring the percentage difference between these averages, the script generates a "Prediction Percentage" for every timeframe. These values are displayed on the screen as dynamic labels, allowing you to see at a glance whether the trend is strengthening or weakening across different horizons.

Dynamic Market Indicators

In addition to timeframe analysis, the script pulls live account and market data to provide a holistic view of your trading environment:

  • Buyer vs. Seller Power: It calculates the distribution of "Bullish" and "Bearish" power based on price volume, showing you what percentage of the market is currently pushing in either direction.
  • Live Portfolio Tracking: The dashboard automatically identifies your open positions for the current symbol. It calculates your total real-time profit (turning green for gains and red for losses) and displays the exact count of active Buy and Sell orders.

Automated Signal System

The script translates complex calculations into three distinct visual instructions for the trader:

  1. Trend Up / Trend Down: If the market momentum exceeds a specific "Trigger Level" and the short-term price is moving in harmony with the trend, the script displays a clear confirmation of the current direction.
  2. Enter Long/Short Now: When conditions are optimal, the script provides an explicit "Call to Action" label on the chart, highlighting the immediate opportunity.
  3. Caution / Hold: This is a critical safety feature. If the momentum scores are high but conflicting (indicating that the price action and the trend average are moving in opposite directions), the script issues a "HOLD" warning. This signals a potential market reversal or consolidation, advising the trader to stay out of the market until the direction clarifies.

Visual Interface

The script is designed for high visibility, creating a dedicated information window that populates with:

  • Timeframe Predictions: Specific labels for M1 through Daily charts.
  • Market Info: A "Buyers" vs. "Sellers" percentage breakdown.
  • Profit Dashboard: Real-time tracking of P&L and order counts.
  • Directional Arrows: Visual markers on the price chart to indicate the current trend status (Up, Down, or Hold).
Price Data Components
Series array that contains close prices for each barSeries array that contains tick volumes of each bar
Orders Execution
Checks for the total of open orders
Indicators Used
Bulls Power indicator Bears Power indicator
Miscellaneous
Implements a curve of type %1
13 Views
0 Downloads
0 Favorites
forexprediction 
#property indicator_separate_window
#property indicator_buffers 3
#property indicator_color1 Yellow
#property indicator_color2 Red
#property indicator_color3 Green

double gd_76 = 6.0;
double gd_84 = 25.0;
double gd_92 = 200.0;
extern int TriggerLevel = 52;
int gi_104 = 52;
int gi_108 = 0;
int g_bars_112 = 31;
double g_ibuf_116[];
double g_ibuf_120[];
double g_ibuf_124[];

int init() {
   ObjectsDeleteAll();
   SetIndexBuffer(2, g_ibuf_116);
   SetIndexBuffer(1, g_ibuf_120);
   SetIndexBuffer(0, g_ibuf_124);
   SetIndexStyle(2, DRAW_HISTOGRAM, STYLE_SOLID, 2);
   SetIndexStyle(1, DRAW_HISTOGRAM, STYLE_SOLID, 2);
   SetIndexStyle(0, DRAW_HISTOGRAM, STYLE_SOLID, 1);
   return (0);
}

int start() {
   double l_iclose_0;
   double l_iclose_8;
   double l_iclose_16;
   double l_iclose_24;
   double l_iclose_32;
   double ld_40;
   double ld_48;
   double ld_56;
   double ld_64;
   double ld_72;
   double ld_80;
   double ld_88;
   double ld_96;
   double ld_104;
   double l_iclose_112;
   double l_iclose_120;
   double l_iclose_128;
   double l_iclose_136;
   double l_iclose_144;
   double ld_152;
   double ld_160;
   double ld_168;
   double l_iclose_176;
   double l_iclose_184;
   double l_iclose_192;
   double l_iclose_200;
   double l_iclose_208;
   double ld_216;
   double ld_224;
   double ld_232;
   double l_iclose_240;
   double l_iclose_248;
   double l_iclose_256;
   double l_iclose_264;
   double l_iclose_272;
   double ld_280;
   double ld_288;
   double ld_296;
   double l_iclose_304;
   double l_iclose_312;
   double l_iclose_320;
   double l_iclose_328;
   double l_iclose_336;
   double ld_344;
   double ld_352;
   double ld_360;
   double l_iclose_368;
   double l_iclose_376;
   double l_iclose_384;
   double l_iclose_392;
   double l_iclose_400;
   double ld_408;
   double ld_416;
   double ld_424;
   double l_iclose_432;
   double l_iclose_440;
   double l_iclose_448;
   double l_iclose_456;
   double l_iclose_464;
   double ld_472;
   double ld_480;
   double ld_488;
   double l_iclose_496;
   double l_iclose_504;
   double l_iclose_512;
   double l_iclose_520;
   double l_iclose_528;
   double ld_536;
   double ld_544;
   double ld_552;
   int l_ord_total_560;
   int l_count_564;
   int l_count_568;
   double ld_572;
   double ld_580;
   string ls_588;
   string ls_596;
   string ls_604;
   string ls_612;
   string ls_620;
   string ls_628;
   string ls_636;
   string ls_644;
   string ls_652;
   string ls_660;
   string ls_668;
   string l_text_676;
   string l_text_684;
   string l_text_692;
   string l_text_700;
   string l_text_708;
   string l_text_716;
   string l_text_724;
   string l_text_732;
   string l_text_740;
   string l_text_748;
   string l_text_756;
   string l_text_764;
   string l_text_772;
   string l_text_780;
   string l_text_788;
   string l_text_796;
   string l_text_804;
   string l_text_812;
   string l_text_820;
   string l_text_828;
   string l_text_836;
   double ld_844;
   double ld_852;
   double l_ivolume_860;
   double ld_868;
   double ld_876;
   double ld_884;
   double ld_892;
   if (DayOfWeek() == 0) return (0);
   string ls_900 = "2029.09.16";
   int l_str2time_908 = StrToTime(ls_900);
   //if (TimeCurrent() >= l_str2time_908) {
   //   Alert("Usage of this indicator has expired");
   //   return (0);
   //}
   SetLevelValue(0, TriggerLevel);
   SetLevelStyle(3, 1, Gold);
   IndicatorShortName("FOREX Prediction");
   int li_912 = IndicatorCounted();
   if (li_912 > 0) li_912--;
   int li_916 = Bars - li_912;
   int li_920 = Time[0] + 60 * Period() - TimeCurrent();
   int li_924 = li_920 / 60.0;
   int li_928 = li_920 % 60;
   li_920 = (li_920 - li_920 % 60) / 60;
   if (g_bars_112 >= Bars) g_bars_112 = Bars;
   SetIndexDrawBegin(0, Bars - g_bars_112 + gi_108);
   SetIndexDrawBegin(1, Bars - g_bars_112 + gi_108);
   SetIndexDrawBegin(3, Bars - g_bars_112 + gi_108);
   if (Bars <= gi_108 + 1) return (0);
   if (Bars <= gi_108 + 1) return (0);
   if (li_912 < gi_108 + 1) {
      for (li_924 = 1; li_924 <= gi_108; li_924++) g_ibuf_116[g_bars_112 - li_924] = 0.0;
      for (li_924 = 1; li_924 <= gi_108; li_924++) g_ibuf_120[g_bars_112 - li_924] = 0.0;
      for (li_924 = 1; li_924 <= gi_108; li_924++) g_ibuf_124[g_bars_112 - li_924] = 0.0;
   }
   for (li_924 = g_bars_112 - gi_108; li_924 >= 0; li_924--) {
      ld_64 = gd_92 / 100000.0;
      ld_72 = gd_84 / 100.0;
      ld_80 = AccountBalance() / gd_76;
      if (MarketInfo(Symbol(), MODE_POINT) == 0.01) ld_88 = ld_80 * ld_72 * ld_64 * (127 / Ask);
      else ld_88 = ld_80 * ld_72 * ld_64 * (1 / Ask);
      ld_96 = AccountBalance() * ld_72 / MarketInfo(Symbol(), MODE_TICKVALUE) * ld_88;
      ld_104 = ld_96 / MarketInfo(Symbol(), MODE_TICKVALUE);
      l_iclose_0 = iClose(NULL, 0, li_924);
      l_iclose_8 = iClose(NULL, 0, li_924 + 1);
      l_iclose_16 = iClose(NULL, 0, li_924 + 2);
      l_iclose_24 = iClose(NULL, 0, li_924 + 3);
      l_iclose_32 = iClose(NULL, 0, li_924 + 4);
      ld_40 = (l_iclose_0 + l_iclose_8) / 2.0;
      ld_48 = (l_iclose_0 + l_iclose_8 + l_iclose_16 + l_iclose_24 + l_iclose_32) / 5.0;
      ld_56 = 10000.0 * (125.75 * (MathAbs(ld_40 - ld_48) / l_iclose_0) + 0.54528) / 100.0;
      l_iclose_112 = iClose(NULL, PERIOD_M1, li_924);
      l_iclose_120 = iClose(NULL, PERIOD_M1, li_924 + 1);
      l_iclose_128 = iClose(NULL, PERIOD_M1, li_924 + 2);
      l_iclose_136 = iClose(NULL, PERIOD_M1, li_924 + 3);
      l_iclose_144 = iClose(NULL, PERIOD_M1, li_924 + 4);
      ld_152 = (l_iclose_112 + l_iclose_120) / 2.0;
      ld_160 = (l_iclose_112 + l_iclose_120 + l_iclose_128 + l_iclose_136 + l_iclose_144) / 5.0;
      ld_168 = 10000.0 * (125.75 * (MathAbs(ld_152 - ld_160) / l_iclose_112) + 0.54528) / 100.0;
      l_iclose_176 = iClose(NULL, PERIOD_M5, li_924);
      l_iclose_184 = iClose(NULL, PERIOD_M5, li_924 + 1);
      l_iclose_192 = iClose(NULL, PERIOD_M5, li_924 + 2);
      l_iclose_200 = iClose(NULL, PERIOD_M5, li_924 + 3);
      l_iclose_208 = iClose(NULL, PERIOD_M5, li_924 + 4);
      ld_216 = (l_iclose_176 + l_iclose_184) / 2.0;
      ld_224 = (l_iclose_176 + l_iclose_184 + l_iclose_192 + l_iclose_136 + l_iclose_208) / 5.0;
      ld_232 = 10000.0 * (125.75 * (MathAbs(ld_216 - ld_224) / l_iclose_208) + 0.54528) / 100.0;
      l_iclose_240 = iClose(NULL, PERIOD_M15, li_924);
      l_iclose_248 = iClose(NULL, PERIOD_M15, li_924 + 1);
      l_iclose_256 = iClose(NULL, PERIOD_M15, li_924 + 2);
      l_iclose_264 = iClose(NULL, PERIOD_M15, li_924 + 3);
      l_iclose_272 = iClose(NULL, PERIOD_M15, li_924 + 4);
      ld_280 = (l_iclose_240 + l_iclose_248) / 2.0;
      ld_288 = (l_iclose_240 + l_iclose_248 + l_iclose_256 + l_iclose_264 + l_iclose_272) / 5.0;
      ld_296 = 10000.0 * (125.75 * (MathAbs(ld_280 - ld_288) / l_iclose_240) + 0.54528) / 100.0;
      l_iclose_304 = iClose(NULL, PERIOD_M30, li_924);
      l_iclose_312 = iClose(NULL, PERIOD_M30, li_924 + 1);
      l_iclose_320 = iClose(NULL, PERIOD_M30, li_924 + 2);
      l_iclose_328 = iClose(NULL, PERIOD_M30, li_924 + 3);
      l_iclose_336 = iClose(NULL, PERIOD_M30, li_924 + 4);
      ld_344 = (l_iclose_304 + l_iclose_312) / 2.0;
      ld_352 = (l_iclose_304 + l_iclose_312 + l_iclose_320 + l_iclose_328 + l_iclose_336) / 5.0;
      ld_360 = 10000.0 * (125.75 * (MathAbs(ld_344 - ld_352) / l_iclose_304) + 0.54528) / 100.0;
      l_iclose_368 = iClose(NULL, PERIOD_H1, li_924);
      l_iclose_376 = iClose(NULL, PERIOD_H1, li_924 + 1);
      l_iclose_384 = iClose(NULL, PERIOD_H1, li_924 + 2);
      l_iclose_392 = iClose(NULL, PERIOD_H1, li_924 + 3);
      l_iclose_400 = iClose(NULL, PERIOD_H1, li_924 + 4);
      ld_408 = (l_iclose_368 + l_iclose_376) / 2.0;
      ld_416 = (l_iclose_368 + l_iclose_376 + l_iclose_384 + l_iclose_392 + l_iclose_400) / 5.0;
      ld_424 = 10000.0 * (125.75 * (MathAbs(ld_408 - ld_416) / l_iclose_368) + 0.54528) / 100.0;
      l_iclose_432 = iClose(NULL, PERIOD_H4, li_924);
      l_iclose_440 = iClose(NULL, PERIOD_H4, li_924 + 1);
      l_iclose_448 = iClose(NULL, PERIOD_H4, li_924 + 2);
      l_iclose_456 = iClose(NULL, PERIOD_H4, li_924 + 3);
      l_iclose_464 = iClose(NULL, PERIOD_H4, li_924 + 4);
      ld_472 = (l_iclose_432 + l_iclose_440) / 2.0;
      ld_480 = (l_iclose_432 + l_iclose_440 + l_iclose_448 + l_iclose_456 + l_iclose_464) / 5.0;
      ld_488 = 10000.0 * (125.75 * (MathAbs(ld_472 - ld_480) / l_iclose_432) + 0.54528) / 100.0;
      l_iclose_496 = iClose(NULL, PERIOD_D1, li_924);
      l_iclose_504 = iClose(NULL, PERIOD_D1, li_924 + 1);
      l_iclose_512 = iClose(NULL, PERIOD_D1, li_924 + 2);
      l_iclose_520 = iClose(NULL, PERIOD_D1, li_924 + 3);
      l_iclose_528 = iClose(NULL, PERIOD_D1, li_924 + 4);
      ld_536 = (l_iclose_496 + l_iclose_504) / 2.0;
      ld_544 = (l_iclose_496 + l_iclose_504 + l_iclose_512 + l_iclose_520 + l_iclose_528) / 5.0;
      ld_552 = 10000.0 * (125.75 * (MathAbs(ld_536 - ld_544) / l_iclose_496) + 0.54528) / 100.0;
      l_ord_total_560 = OrdersTotal();
      l_count_564 = 0;
      l_count_568 = 0;
      for (int l_pos_932 = l_ord_total_560 - 1; l_pos_932 >= 0; l_pos_932--) {
         if (OrderSelect(l_pos_932, SELECT_BY_POS)) {
            if (OrderSymbol() == Symbol()) {
               if (OrderType() == OP_BUY) l_count_564++;
               if (OrderType() == OP_SELL) l_count_568++;
            }
         }
      }
      ld_572 = 0;
      ld_580 = 0;
      for (int l_pos_936 = OrdersTotal() - 1; l_pos_936 >= 0; l_pos_936--) {
         if (OrderSelect(l_pos_936, SELECT_BY_POS, MODE_TRADES)) {
            if (OrderSymbol() == Symbol())
               if (OrderType() == OP_BUY) ld_572 += OrderProfit();
         }
      }
      for (l_pos_936 = OrdersTotal() - 1; l_pos_936 >= 0; l_pos_936--) {
         if (OrderSelect(l_pos_936, SELECT_BY_POS, MODE_TRADES)) {
            if (OrderSymbol() == Symbol())
               if (OrderType() == OP_SELL) ld_580 += OrderProfit();
         }
      }
      g_ibuf_124[li_924] = ld_56;
      g_ibuf_120[li_924] = ld_56;
      g_ibuf_116[li_924] = ld_56;
      ls_588 = ld_168;
      ls_596 = ld_232;
      ls_604 = ld_296;
      ls_612 = ld_360;
      ls_620 = ld_424;
      ls_628 = ld_488;
      ls_636 = ld_552;
      ObjectCreate("1M", OBJ_LABEL, WindowFind("FOREX Prediction"), 0, 0);
      ObjectSetText("1M", "M1", 9, "Arial Bold ", Silver);
      ObjectSet("1M", OBJPROP_CORNER, 0);
      ObjectSet("1M", OBJPROP_XDISTANCE, 160);
      ObjectSet("1M", OBJPROP_YDISTANCE, 0);
      ObjectCreate("1MV", OBJ_LABEL, WindowFind("FOREX Prediction"), 0, 0);
      ObjectSetText("1MV", StringSubstr(ls_588, 0, 4), 7, "Arial Bold", White);
      ObjectSet("1MV", OBJPROP_CORNER, 0);
      ObjectSet("1MV", OBJPROP_XDISTANCE, 160);
      ObjectSet("1MV", OBJPROP_YDISTANCE, 25);
      ObjectCreate("5M", OBJ_LABEL, WindowFind("FOREX Prediction"), 0, 0);
      ObjectSetText("5M", "M5", 9, "Arial Bold ", Silver);
      ObjectSet("5M", OBJPROP_CORNER, 0);
      ObjectSet("5M", OBJPROP_XDISTANCE, 185);
      ObjectSet("5M", OBJPROP_YDISTANCE, 0);
      ObjectCreate("2MV", OBJ_LABEL, WindowFind("FOREX Prediction"), 0, 0);
      ObjectSetText("2MV", StringSubstr(ls_596, 0, 4), 7, "Arial Bold", White);
      ObjectSet("2MV", OBJPROP_CORNER, 0);
      ObjectSet("2MV", OBJPROP_XDISTANCE, 185);
      ObjectSet("2MV", OBJPROP_YDISTANCE, 25);
      ObjectCreate("15M", OBJ_LABEL, WindowFind("FOREX Prediction"), 0, 0);
      ObjectSetText("15M", "M15", 9, "Arial Bold ", Silver);
      ObjectSet("15M", OBJPROP_CORNER, 0);
      ObjectSet("15M", OBJPROP_XDISTANCE, 210);
      ObjectSet("15M", OBJPROP_YDISTANCE, 0);
      ObjectCreate("3MV", OBJ_LABEL, WindowFind("FOREX Prediction"), 0, 0);
      ObjectSetText("3MV", StringSubstr(ls_604, 0, 4), 7, "Arial Bold", White);
      ObjectSet("3MV", OBJPROP_CORNER, 0);
      ObjectSet("3MV", OBJPROP_XDISTANCE, 210);
      ObjectSet("3MV", OBJPROP_YDISTANCE, 25);
      ObjectCreate("30M", OBJ_LABEL, WindowFind("FOREX Prediction"), 0, 0);
      ObjectSetText("30M", "M30", 9, "Arial Bold ", Silver);
      ObjectSet("30M", OBJPROP_CORNER, 0);
      ObjectSet("30M", OBJPROP_XDISTANCE, 240);
      ObjectSet("30M", OBJPROP_YDISTANCE, 0);
      ObjectCreate("4MV", OBJ_LABEL, WindowFind("FOREX Prediction"), 0, 0);
      ObjectSetText("4MV", StringSubstr(ls_612, 0, 4), 7, "Arial Bold", White);
      ObjectSet("4MV", OBJPROP_CORNER, 0);
      ObjectSet("4MV", OBJPROP_XDISTANCE, 240);
      ObjectSet("4MV", OBJPROP_YDISTANCE, 25);
      ObjectCreate("1HR", OBJ_LABEL, WindowFind("FOREX Prediction"), 0, 0);
      ObjectSetText("1HR", "1H", 9, "Arial Bold ", Silver);
      ObjectSet("1R", OBJPROP_CORNER, 0);
      ObjectSet("1HR", OBJPROP_XDISTANCE, 270);
      ObjectSet("1HR", OBJPROP_YDISTANCE, 0);
      ObjectCreate("5MV", OBJ_LABEL, WindowFind("FOREX Prediction"), 0, 0);
      ObjectSetText("5MV", StringSubstr(ls_620, 0, 4), 7, "Arial Bold", White);
      ObjectSet("5MV", OBJPROP_CORNER, 0);
      ObjectSet("5MV", OBJPROP_XDISTANCE, 270);
      ObjectSet("5MV", OBJPROP_YDISTANCE, 25);
      ObjectCreate("4H", OBJ_LABEL, WindowFind("FOREX Prediction"), 0, 0);
      ObjectSetText("4H", "4H", 9, "Arial Bold ", Silver);
      ObjectSet("4H", OBJPROP_CORNER, 0);
      ObjectSet("4H", OBJPROP_XDISTANCE, 295);
      ObjectSet("4H", OBJPROP_YDISTANCE, 0);
      ObjectCreate("6MV", OBJ_LABEL, WindowFind("FOREX Prediction"), 0, 0);
      ObjectSetText("6MV", StringSubstr(ls_628, 0, 4), 7, "Arial Bold", White);
      ObjectSet("6MV", OBJPROP_CORNER, 0);
      ObjectSet("6MV", OBJPROP_XDISTANCE, 295);
      ObjectSet("6MV", OBJPROP_YDISTANCE, 25);
      ObjectCreate("1D", OBJ_LABEL, WindowFind("FOREX Prediction"), 0, 0);
      ObjectSetText("1D", "1D", 9, "Arial Bold ", Silver);
      ObjectSet("1D", OBJPROP_CORNER, 0);
      ObjectSet("1D", OBJPROP_XDISTANCE, 325);
      ObjectSet("1D", OBJPROP_YDISTANCE, 0);
      ObjectCreate("7MV", OBJ_LABEL, WindowFind("FOREX Prediction"), 0, 0);
      ObjectSetText("7MV", StringSubstr(ls_636, 0, 4), 7, "Arial Bold", White);
      ObjectSet("7MV", OBJPROP_CORNER, 0);
      ObjectSet("7MV", OBJPROP_XDISTANCE, 325);
      ObjectSet("7MV", OBJPROP_YDISTANCE, 25);
      ls_644 = ld_572 + ld_580;
      ls_652 = Symbol();
      ls_660 = l_count_564;
      ls_668 = l_count_568;
      ObjectCreate("1", OBJ_LABEL, WindowFind("FOREX Prediction"), 0, 0);
      ObjectSetText("1", StringSubstr(ls_652, 0, 8), 7, "Arial Bold", White);
      ObjectSet("1", OBJPROP_CORNER, 0);
      ObjectSet("1", OBJPROP_XDISTANCE, 660);
      ObjectSet("1", OBJPROP_YDISTANCE, 0);
      ObjectCreate("profit", OBJ_LABEL, WindowFind("FOREX Prediction"), 0, 0);
      ObjectSetText("profit", "PROFIT$", 7, "Arial Bold", Silver);
      ObjectSet("profit", OBJPROP_CORNER, 0);
      ObjectSet("profit", OBJPROP_XDISTANCE, 610);
      ObjectSet("profit", OBJPROP_YDISTANCE, 0);
      ObjectCreate("B", OBJ_LABEL, WindowFind("FOREX Prediction"), 0, 0);
      ObjectSetText("B", "BUY ORDERS", 7, "Arial Bold", Silver);
      ObjectSet("B", OBJPROP_CORNER, 0);
      ObjectSet("B", OBJPROP_XDISTANCE, 750);
      ObjectSet("B", OBJPROP_YDISTANCE, 0);
      ObjectCreate("B1", OBJ_LABEL, WindowFind("FOREX Prediction"), 0, 0);
      ObjectSetText("B1", StringSubstr(ls_660, 0, 8), 7, "Arial Bold", White);
      ObjectSet("B1", OBJPROP_CORNER, 0);
      ObjectSet("B1", OBJPROP_XDISTANCE, 750);
      ObjectSet("B1", OBJPROP_YDISTANCE, 10);
      ObjectCreate("S", OBJ_LABEL, WindowFind("FOREX Prediction"), 0, 0);
      ObjectSetText("S", "SELL ORDERS", 7, "Arial Bold", Silver);
      ObjectSet("S", OBJPROP_CORNER, 0);
      ObjectSet("S", OBJPROP_XDISTANCE, 850);
      ObjectSet("S", OBJPROP_YDISTANCE, 0);
      ObjectCreate("S1", OBJ_LABEL, WindowFind("FOREX Prediction"), 0, 0);
      ObjectSetText("S1", StringSubstr(ls_668, 0, 8), 7, "Arial Bold", White);
      ObjectSet("S1", OBJPROP_CORNER, 0);
      ObjectSet("S1", OBJPROP_XDISTANCE, 850);
      ObjectSet("S1", OBJPROP_YDISTANCE, 10);
      if (ld_572 + ld_580 >= 0.0) {
         ObjectDelete("profitA1a");
         ObjectDelete("profitA1b");
         ObjectCreate("profitA1", OBJ_LABEL, WindowFind("FOREX Prediction"), 0, 0);
         ObjectSetText("profitA1", StringSubstr(ls_644, 0, 7), 8, "Arial Bold", Lime);
         ObjectSet("profitA1", OBJPROP_CORNER, 0);
         ObjectSet("profitA1", OBJPROP_XDISTANCE, 610);
         ObjectSet("profitA1", OBJPROP_YDISTANCE, 10);
      }
      if (ld_572 + ld_580 < 0.0) {
         ObjectDelete("profitA1");
         ObjectDelete("profitA1b");
         ObjectCreate("profitA1a", OBJ_LABEL, WindowFind("FOREX Prediction"), 0, 0);
         ObjectSetText("profitA1a", StringSubstr(ls_644, 0, 7), 8, "Arial Bold", Red);
         ObjectSet("profitA1a", OBJPROP_CORNER, 0);
         ObjectSet("profitA1a", OBJPROP_XDISTANCE, 610);
         ObjectSet("profitA1a", OBJPROP_YDISTANCE, 10);
      }
      if (ld_572 + ld_580 == 0.0) {
         ObjectDelete("profitA1");
         ObjectDelete("profitA1a");
         ObjectCreate("profitA1b", OBJ_LABEL, WindowFind("FOREX Prediction"), 0, 0);
         ObjectSetText("profitA1b", "CLOSED", 7, "Arial Bold", Yellow);
         ObjectSet("profitA1b", OBJPROP_CORNER, 0);
         ObjectSet("profitA1b", OBJPROP_XDISTANCE, 610);
         ObjectSet("profitA1b", OBJPROP_YDISTANCE, 10);
      }
      if (ld_168 > gi_104 && ld_152 > ld_160) {
         l_text_676 = "Ù";
         ObjectDelete("ADWN1");
         ObjectDelete("Ahold1");
         ObjectCreate("AUP1", OBJ_LABEL, WindowFind("FOREX Prediction"), 0, 0);
         ObjectSetText("AUP1", l_text_676, 8, "Wingdings", LimeGreen);
         ObjectSet("AUP1", OBJPROP_CORNER, 0);
         ObjectSet("AUP1", OBJPROP_XDISTANCE, 160);
         ObjectSet("AUP1", OBJPROP_YDISTANCE, 10);
      } else {
         if (ld_168 > gi_104 && ld_152 < ld_160) {
            l_text_684 = "Ú";
            ObjectDelete("AUP1");
            ObjectDelete("Ahold1");
            ObjectCreate("ADWN1", OBJ_LABEL, WindowFind("FOREX Prediction"), 0, 0);
            ObjectSetText("ADWN1", l_text_684, 8, "Wingdings", Red);
            ObjectSet("ADWN1", OBJPROP_CORNER, 0);
            ObjectSet("ADWN1", OBJPROP_XDISTANCE, 160);
            ObjectSet("ADWN1", OBJPROP_YDISTANCE, 10);
         } else {
            l_text_692 = "Ø";
            ObjectDelete("AUP1");
            ObjectDelete("ADWN1");
            ObjectCreate("Ahold1", OBJ_LABEL, WindowFind("FOREX Prediction"), 0, 0);
            ObjectSetText("Ahold1", l_text_692, 8, "Wingdings", Yellow);
            ObjectSet("Ahold1", OBJPROP_CORNER, 0);
            ObjectSet("Ahold1", OBJPROP_XDISTANCE, 160);
            ObjectSet("Ahold1", OBJPROP_YDISTANCE, 10);
         }
      }
      if (ld_232 > TriggerLevel && ld_216 > ld_224) {
         l_text_700 = "Ù";
         ObjectDelete("ADWN2");
         ObjectDelete("Ahold2");
         ObjectCreate("AUP2", OBJ_LABEL, WindowFind("FOREX Prediction"), 0, 0);
         ObjectSetText("AUP2", l_text_700, 8, "Wingdings", LimeGreen);
         ObjectSet("AUP2", OBJPROP_CORNER, 0);
         ObjectSet("AUP2", OBJPROP_XDISTANCE, 185);
         ObjectSet("AUP2", OBJPROP_YDISTANCE, 10);
      } else {
         if (ld_232 > TriggerLevel && ld_216 < ld_224) {
            l_text_708 = "Ú";
            ObjectDelete("AUP2");
            ObjectDelete("Ahold2");
            ObjectCreate("ADWN2", OBJ_LABEL, WindowFind("FOREX Prediction"), 0, 0);
            ObjectSetText("ADWN2", l_text_708, 8, "Wingdings", Red);
            ObjectSet("ADWN2", OBJPROP_CORNER, 0);
            ObjectSet("ADWN2", OBJPROP_XDISTANCE, 185);
            ObjectSet("ADWN2", OBJPROP_YDISTANCE, 10);
         } else {
            l_text_716 = "Ø";
            ObjectDelete("AUP2");
            ObjectDelete("ADWN2");
            ObjectCreate("Ahold2", OBJ_LABEL, WindowFind("FOREX Prediction"), 0, 0);
            ObjectSetText("Ahold2", l_text_716, 8, "Wingdings", Yellow);
            ObjectSet("Ahold2", OBJPROP_CORNER, 0);
            ObjectSet("Ahold2", OBJPROP_XDISTANCE, 185);
            ObjectSet("Ahold2", OBJPROP_YDISTANCE, 10);
         }
      }
      if (ld_296 > TriggerLevel && ld_280 > ld_288) {
         l_text_724 = "Ù";
         ObjectDelete("ADWN3");
         ObjectDelete("Ahold3");
         ObjectCreate("AUP3", OBJ_LABEL, WindowFind("FOREX Prediction"), 0, 0);
         ObjectSetText("AUP3", l_text_724, 8, "Wingdings", LimeGreen);
         ObjectSet("AUP3", OBJPROP_CORNER, 0);
         ObjectSet("AUP3", OBJPROP_XDISTANCE, 210);
         ObjectSet("AUP3", OBJPROP_YDISTANCE, 10);
      } else {
         if (ld_296 > TriggerLevel && ld_280 < ld_288) {
            l_text_732 = "Ú";
            ObjectDelete("AUP3");
            ObjectDelete("Ahold3");
            ObjectCreate("ADWN3", OBJ_LABEL, WindowFind("FOREX Prediction"), 0, 0);
            ObjectSetText("ADWN3", l_text_732, 8, "Wingdings", Red);
            ObjectSet("ADWN3", OBJPROP_CORNER, 0);
            ObjectSet("ADWN3", OBJPROP_XDISTANCE, 210);
            ObjectSet("ADWN3", OBJPROP_YDISTANCE, 10);
         } else {
            l_text_740 = "Ø";
            ObjectDelete("AUP3");
            ObjectDelete("ADWN3");
            ObjectCreate("Ahold3", OBJ_LABEL, WindowFind("FOREX Prediction"), 0, 0);
            ObjectSetText("Ahold3", l_text_740, 8, "Wingdings", Yellow);
            ObjectSet("Ahold3", OBJPROP_CORNER, 0);
            ObjectSet("Ahold3", OBJPROP_XDISTANCE, 210);
            ObjectSet("Ahold3", OBJPROP_YDISTANCE, 10);
         }
      }
      if (ld_360 > TriggerLevel && ld_344 > ld_352) {
         l_text_748 = "Ù";
         ObjectDelete("ADWN4");
         ObjectDelete("Ahold4");
         ObjectCreate("AUP4", OBJ_LABEL, WindowFind("FOREX Prediction"), 0, 0);
         ObjectSetText("AUP4", l_text_748, 8, "Wingdings", LimeGreen);
         ObjectSet("AUP4", OBJPROP_CORNER, 0);
         ObjectSet("AUP4", OBJPROP_XDISTANCE, 240);
         ObjectSet("AUP4", OBJPROP_YDISTANCE, 10);
      } else {
         if (ld_360 > TriggerLevel && ld_344 < ld_352) {
            l_text_756 = "Ú";
            ObjectDelete("AUP4");
            ObjectDelete("Ahold4");
            ObjectCreate("ADWN4", OBJ_LABEL, WindowFind("FOREX Prediction"), 0, 0);
            ObjectSetText("ADWN4", l_text_756, 8, "Wingdings", Red);
            ObjectSet("ADWN4", OBJPROP_CORNER, 0);
            ObjectSet("ADWN4", OBJPROP_XDISTANCE, 240);
            ObjectSet("ADWN4", OBJPROP_YDISTANCE, 10);
         } else {
            l_text_764 = "Ø";
            ObjectDelete("AUP4");
            ObjectDelete("ADWN4");
            ObjectCreate("Ahold4", OBJ_LABEL, WindowFind("FOREX Prediction"), 0, 0);
            ObjectSetText("Ahold4", l_text_764, 8, "Wingdings", Yellow);
            ObjectSet("Ahold4", OBJPROP_CORNER, 0);
            ObjectSet("Ahold4", OBJPROP_XDISTANCE, 240);
            ObjectSet("Ahold4", OBJPROP_YDISTANCE, 10);
         }
      }
      if (ld_424 > TriggerLevel && ld_408 > ld_416) {
         l_text_772 = "Ù";
         ObjectDelete("ADWN5");
         ObjectDelete("Ahold5");
         ObjectCreate("AUP5", OBJ_LABEL, WindowFind("FOREX Prediction"), 0, 0);
         ObjectSetText("AUP5", l_text_772, 8, "Wingdings", LimeGreen);
         ObjectSet("AUP5", OBJPROP_CORNER, 0);
         ObjectSet("AUP5", OBJPROP_XDISTANCE, 270);
         ObjectSet("AUP5", OBJPROP_YDISTANCE, 10);
      } else {
         if (ld_424 > TriggerLevel && ld_408 < ld_416) {
            l_text_780 = "Ú";
            ObjectDelete("AUP5");
            ObjectDelete("Ahold5");
            ObjectCreate("ADWN5", OBJ_LABEL, WindowFind("FOREX Prediction"), 0, 0);
            ObjectSetText("ADWN5", l_text_780, 8, "Wingdings", Red);
            ObjectSet("ADWN5", OBJPROP_CORNER, 0);
            ObjectSet("ADWN5", OBJPROP_XDISTANCE, 270);
            ObjectSet("ADWN5", OBJPROP_YDISTANCE, 10);
         } else {
            l_text_788 = "Ø";
            ObjectDelete("AUP5");
            ObjectDelete("ADWN5");
            ObjectCreate("Ahold5", OBJ_LABEL, WindowFind("FOREX Prediction"), 0, 0);
            ObjectSetText("Ahold5", l_text_788, 8, "Wingdings", Yellow);
            ObjectSet("Ahold5", OBJPROP_CORNER, 0);
            ObjectSet("Ahold5", OBJPROP_XDISTANCE, 270);
            ObjectSet("Ahold5", OBJPROP_YDISTANCE, 10);
         }
      }
      if (ld_488 > TriggerLevel && ld_472 > ld_480) {
         l_text_796 = "Ù";
         ObjectDelete("ADWN6");
         ObjectDelete("Ahold6");
         ObjectCreate("AUP6", OBJ_LABEL, WindowFind("FOREX Prediction"), 0, 0);
         ObjectSetText("AUP6", l_text_796, 8, "Wingdings", LimeGreen);
         ObjectSet("AUP6", OBJPROP_CORNER, 0);
         ObjectSet("AUP6", OBJPROP_XDISTANCE, 295);
         ObjectSet("AUP6", OBJPROP_YDISTANCE, 10);
      } else {
         if (ld_488 > TriggerLevel && ld_472 < ld_480) {
            l_text_804 = "Ú";
            ObjectDelete("AUP6");
            ObjectDelete("Ahold6");
            ObjectCreate("ADWN6", OBJ_LABEL, WindowFind("FOREX Prediction"), 0, 0);
            ObjectSetText("ADWN6", l_text_804, 8, "Wingdings", Red);
            ObjectSet("ADWN6", OBJPROP_CORNER, 0);
            ObjectSet("ADWN6", OBJPROP_XDISTANCE, 295);
            ObjectSet("ADWN6", OBJPROP_YDISTANCE, 10);
         } else {
            l_text_812 = "Ø";
            ObjectDelete("AUP6");
            ObjectDelete("ADWN6");
            ObjectCreate("Ahold6", OBJ_LABEL, WindowFind("FOREX Prediction"), 0, 0);
            ObjectSetText("Ahold6", l_text_812, 8, "Wingdings", Yellow);
            ObjectSet("Ahold6", OBJPROP_CORNER, 0);
            ObjectSet("Ahold6", OBJPROP_XDISTANCE, 295);
            ObjectSet("Ahold6", OBJPROP_YDISTANCE, 10);
         }
      }
      if (ld_552 > TriggerLevel && ld_536 > ld_544) {
         l_text_820 = "Ù";
         ObjectDelete("ADWN7");
         ObjectDelete("Ahold7");
         ObjectCreate("AUP7", OBJ_LABEL, WindowFind("FOREX Prediction"), 0, 0);
         ObjectSetText("AUP7", l_text_820, 8, "Wingdings", LimeGreen);
         ObjectSet("AUP7", OBJPROP_CORNER, 0);
         ObjectSet("AUP7", OBJPROP_XDISTANCE, 325);
         ObjectSet("AUP7", OBJPROP_YDISTANCE, 10);
      } else {
         if (ld_552 > TriggerLevel && ld_536 < ld_544) {
            l_text_828 = "Ú";
            ObjectDelete("AUP7");
            ObjectDelete("Ahold7");
            ObjectCreate("ADWN7", OBJ_LABEL, WindowFind("FOREX Prediction"), 0, 0);
            ObjectSetText("ADWN7", l_text_828, 8, "Wingdings", Red);
            ObjectSet("ADWN7", OBJPROP_CORNER, 0);
            ObjectSet("ADWN7", OBJPROP_XDISTANCE, 325);
            ObjectSet("ADWN7", OBJPROP_YDISTANCE, 10);
         } else {
            l_text_836 = "Ø";
            ObjectDelete("AUP7");
            ObjectDelete("ADWN7");
            ObjectCreate("Ahold7", OBJ_LABEL, WindowFind("FOREX Prediction"), 0, 0);
            ObjectSetText("Ahold7", l_text_836, 8, "Wingdings", Yellow);
            ObjectSet("Ahold7", OBJPROP_CORNER, 0);
            ObjectSet("Ahold7", OBJPROP_XDISTANCE, 325);
            ObjectSet("Ahold7", OBJPROP_YDISTANCE, 10);
         }
      }
      ld_844 = MathAbs(iBullsPower(Symbol(), 0, 12, PRICE_CLOSE, li_924));
      ld_852 = MathAbs(iBearsPower(Symbol(), 0, 12, PRICE_CLOSE, li_924));
      l_ivolume_860 = iVolume(Symbol(), 0, li_924);
      ld_868 = ld_844 * l_ivolume_860 / (ld_844 + ld_852);
      ld_876 = ld_852 * l_ivolume_860 / (ld_844 + ld_852);
      if (ld_868 == 0.0) ld_868 = 1;
      if (ld_876 == 0.0) ld_876 = 1;
      ld_884 = MathAbs(100.0 * (ld_868 / (ld_868 + ld_876)));
      ld_892 = MathAbs(100.0 * (ld_876 / (ld_868 + ld_876)));
      ld_868 = ld_884;
      ld_876 = ld_892;
      ObjectCreate("PRED", OBJ_LABEL, WindowFind("FOREX Prediction"), 0, 0);
      ObjectSetText("PRED", "<---MARKET INFO--->", 8, "Arial Bold ", Gold);
      ObjectSet("PRED", OBJPROP_CORNER, 0);
      ObjectSet("PRED", OBJPROP_XDISTANCE, 405);
      ObjectSet("PRED", OBJPROP_YDISTANCE, 0);
      ObjectCreate("LONG", OBJ_LABEL, WindowFind("FOREX Prediction"), 0, 0);
      ObjectSetText("LONG", "BUYERS", 7, "Arial Bold ", LimeGreen);
      ObjectSet("LONG", OBJPROP_CORNER, 0);
      ObjectSet("LONG", OBJPROP_XDISTANCE, 355);
      ObjectSet("LONG", OBJPROP_YDISTANCE, 0);
      ObjectCreate("LONGP", OBJ_LABEL, WindowFind("FOREX Prediction"), 0, 0);
      ObjectSetText("LONGP", DoubleToStr(ld_884, 1) + " % ", 7, "Arial Bold ", White);
      ObjectSet("LONGP", OBJPROP_CORNER, 0);
      ObjectSet("LONGP", OBJPROP_XDISTANCE, 355);
      ObjectSet("LONGP", OBJPROP_YDISTANCE, 10);
      ObjectCreate("SHORT", OBJ_LABEL, WindowFind("FOREX Prediction"), 0, 0);
      ObjectSetText("SHORT", "SELLERS", 7, "Arial Bold ", Red);
      ObjectSet("SHORT", OBJPROP_CORNER, 0);
      ObjectSet("SHORT", OBJPROP_XDISTANCE, 545);
      ObjectSet("SHORT", OBJPROP_YDISTANCE, 0);
      ObjectCreate("SHORTP", OBJ_LABEL, WindowFind("FOREX Prediction"), 0, 0);
      ObjectSetText("SHORTP", DoubleToStr(ld_892, 1) + " % ", 7, "Arial Bold ", White);
      ObjectSet("SHORTP", OBJPROP_CORNER, 0);
      ObjectSet("SHORTP", OBJPROP_XDISTANCE, 545);
      ObjectSet("SHORTP", OBJPROP_YDISTANCE, 10);
      if (ld_56 > TriggerLevel && ld_40 > ld_48) {
         ObjectDelete("enterS");
         ObjectCreate("enterB", OBJ_LABEL, WindowFind("FOREX Prediction"), 0, 0);
         ObjectSetText("enterB", "ENTER LONG NOW", 7, "Arial Bold ", LimeGreen);
         ObjectSet("enterB", OBJPROP_CORNER, 0);
         ObjectSet("enterB", OBJPROP_XDISTANCE, 415);
         ObjectSet("enterB", OBJPROP_YDISTANCE, 12);
      } else ObjectDelete("enterB");
      if (ld_56 > TriggerLevel && ld_40 < ld_48) {
         ObjectDelete("enterB");
         ObjectCreate("enterS", OBJ_LABEL, WindowFind("FOREX Prediction"), 0, 0);
         ObjectSetText("enterS", "ENTER SHORT NOW", 7, "Arial Bold ", Red);
         ObjectSet("enterS", OBJPROP_CORNER, 0);
         ObjectSet("enterS", OBJPROP_XDISTANCE, 415);
         ObjectSet("enterS", OBJPROP_YDISTANCE, 12);
      } else ObjectDelete("enterS");
      if (ld_56 > TriggerLevel && ld_40 > ld_48) {
         g_ibuf_120[li_924] = EMPTY_VALUE;
         ObjectDelete("SELLINFO");
         ObjectDelete("HOLDINFO");
         ObjectCreate("BUYINFO", OBJ_LABEL, WindowFind("FOREX Prediction"), 0, 0);
         ObjectSetText("BUYINFO", DoubleToStr(ld_56, 2) + " % Prediction for Long Trend for the next " + li_920 + " min : " + li_928 + " secs", 8, "Arial ", LimeGreen);
         ObjectSet("BUYINFO", OBJPROP_CORNER, 0);
         ObjectSet("BUYINFO", OBJPROP_XDISTANCE, 2);
         ObjectSet("BUYINFO", OBJPROP_YDISTANCE, 40);
         ObjectDelete("sell");
         ObjectDelete("buy");
         ObjectDelete("hold");
         ObjectDelete("sarrow");
         ObjectDelete("harrow");
         if (ObjectFind("buy") != 0 || ObjectFind("barrow") != 0) {
            ObjectCreate("buy", OBJ_TEXT, 0, Time[0], Bid - 0.0005);
            ObjectSetText("buy", "                      TREND UP ", 8, "Verdana", LimeGreen);
            ObjectCreate("barrow", OBJ_TEXT, 0, Time[0], Bid - 0.002);
            ObjectSetText("barrow", "      ñ ", 12, "Wingdings", LimeGreen);
         } else ObjectMove("buy", 0, Time[0], Bid - 0.0005);
      } else {
         if (ld_56 > TriggerLevel && ld_40 < ld_48) {
            g_ibuf_116[li_924] = EMPTY_VALUE;
            ObjectDelete("BUYINFO");
            ObjectDelete("HOLDINFO");
            ObjectCreate("SELLINFO", OBJ_LABEL, WindowFind("FOREX Prediction"), 0, 0);
            ObjectSetText("SELLINFO", DoubleToStr(ld_56, 2) + " % Prediction for Short Trend for the next " + li_920 + " min : " + li_928 + " secs", 8, "Arial ", Red);
            ObjectSet("SELLINFO", OBJPROP_CORNER, 0);
            ObjectSet("SELLINFO", OBJPROP_XDISTANCE, 2);
            ObjectSet("SELLINFO", OBJPROP_YDISTANCE, 40);
            ObjectDelete("sell");
            ObjectDelete("buy");
            ObjectDelete("hold");
            ObjectDelete("barrow");
            ObjectDelete("harrow");
            if (ObjectFind("sell") != 0 || ObjectFind("sarrow") != 0) {
               ObjectCreate("sell", OBJ_TEXT, 0, Time[0], Ask + 0.0005);
               ObjectSetText("sell", "                       TREND DOWN ", 8, "Verdana", Red);
               ObjectCreate("sarrow", OBJ_TEXT, 0, Time[0], Ask + 0.002);
               ObjectSetText("sarrow", "     ò ", 12, "Wingdings", Red);
            } else ObjectMove("sell", 0, Time[0], Ask + 0.0005);
         } else {
            ObjectDelete("sell");
            ObjectDelete("buy");
            ObjectDelete("hold");
            ObjectDelete("SELLINFO");
            ObjectDelete("BUYINFO");
            ObjectDelete("barrow");
            ObjectDelete("sarrow");
            ObjectCreate("HOLDINFO", OBJ_LABEL, WindowFind("FOREX Prediction"), 0, 0);
            ObjectSetText("HOLDINFO", "***CAUTION*** REVERSAL MAYBE IN PLAY. HOLD! ", 8, "Arial ", Yellow);
            ObjectSet("HOLDINFO", OBJPROP_CORNER, 0);
            ObjectSet("HOLDINFO", OBJPROP_XDISTANCE, 0);
            ObjectSet("HOLDINFO", OBJPROP_YDISTANCE, 40);
            if (ObjectFind("hold") != 0) {
               ObjectCreate("hold", OBJ_TEXT, 0, Time[0], Ask + 0.0005);
               ObjectSetText("hold", "                       HOLD! ", 8, "Verdana", Gold);
               ObjectCreate("harrow", OBJ_TEXT, 0, Time[0], Bid - 0.0001);
               ObjectSetText("harrow", "     I ", 18, "Wingdings", Yellow);
               g_ibuf_116[li_924] = EMPTY_VALUE;
               g_ibuf_120[li_924] = EMPTY_VALUE;
            } else ObjectMove("hold", 0, Time[0], Ask + 0.0005);
         }
      }
   }
   return (0);
}

Similar scripts

###Auto Pivot_002

This indicator dynamically projects daily, weekly, and monthly pivot points and support/resistance levels onto the chart while correcting for market session gaps.

AutoPivotIndicator_001

AutoPivotIndicator_v1

grid yens

This indicator dynamically projects horizontal support and resistance levels across daily, weekly, and monthly horizons using high, low, and closing price calculations.

###Auto Pivot_001

This indicator dynamically projects daily, weekly, and monthly pivot levels along with their corresponding support and resistance boundaries while accounting for specific weekend market data anomalies.

###Auto Pivot

This indicator dynamically plots daily, weekly, and monthly pivot points along with their corresponding support and resistance levels while automatically correcting for weekend data discrepancies.

AutoPivotIndicator

AutoPivotIndicator_003

AutoPivotIndicator_ver5

This indicator automatically projects daily, weekly, and monthly pivot points alongside secondary support/resistance levels and mid-point divisions while dynamically filtering out non-trading weekend data.

Pivot_Auto

Pivots By MoStAsHaR15_v1

Comments