Maloma_4_Vicont_1-2-3_6

Download script
Author: Copyright � 2006, maloma.
Maloma_4_Vicont_1-2-3_6

This script is designed as a visual analysis tool for MetaTrader 4 that automatically identifies and projects price levels based on specific mathematical relationships. Instead of just drawing static lines, the logic dynamically calculates "target" zones by observing how the market interacts with your initial input points.

Core Logic Overview

The tool operates on a sequence of discovery. You provide three primary price levels (Level 1, 2, and 3). The script first analyzes the relationship between these numbers to determine the overall direction of the trend—specifically whether the market is moving in an expansive or contractive manner relative to your middle reference point (Level 2).

Once the orientation is established, the script performs three main functions:

1. Historical Reference Mapping

The tool scans your historical price data to find the exact moments in time where the market touched your provided levels. It then places visual markers on the chart, labeling these as "Points 1, 2, and 3," effectively anchoring the current analysis to past price action.

2. Automated Target Projection

The most unique feature of this script is its multi-stage calculation engine. It uses a mathematical multiplier (based on the distance between your initial levels) to project new, "hidden" targets:

  • Target 4: Calculated using a specific coefficient (1.62) relative to the distance between your primary levels. The script looks for the first time price touches this projected zone.
  • Target 5: Once Target 4 is reached, the script automatically recalculates a secondary level based on the midpoint of the new movement.
  • Target 6: This final stage continues the logic, projecting a third target based on the interactions between the newly discovered points.

3. Visual Feedback & Tracking

To make this data actionable for a trader, the script provides several visual layers:

  • Dynamic Labels: It places numbered text markers on the chart to show exactly where "Point 4," "Point 5," and "Point 6" occurred in history.
  • Status Lines: It draws dotted and dashed lines (Etalons and Targets) so you can see your projected goals in real-time.
  • Data Dashboard: A text summary is displayed on the chart screen, providing a quick reference of all active levels, their exact price coordinates, and the specific dates they were hit.

Summary for the User

Think of this tool as an automated "geometry" assistant for your charts. You give it three points of interest, and it uses those points to calculate where the market is mathematically likely to move next. It then hunts through the history to find those marks, helping you visualize a larger price structure that isn't immediately obvious to the naked eye.

13 Views
0 Downloads
0 Favorites
Maloma_4_Vicont_1-2-3_6 
//+------------------------------------------------------------------+
//|                                        maloma 4 vicont 1-2-3.mq4 |
//+------------------------------------------------------------------+
#property copyright "Copyright © 2006, maloma."
#property  indicator_chart_window
//----
extern double level_1=1.2971;//1.2937;//1.2937;
extern double level_2=1.2694;//1.2725;//1.2630;
extern double level_3=1.2978;//1.2874;//1.2829;
/*
extern double level_1=1.2764;//1.2483;//1.2937;
extern double level_2=1.2668;//1.2641;//1.2630;
extern double level_3=1.2714;//1.2524;//1.2829;
*/
extern bool Show_etalon=true;
extern bool Show_target=true;
extern bool Show_true=true;
//----
double level_4=0; double level_5=0; double level_6=0; double level_t=0;
double etalon_4=0; double etalon_5=0; double etalon_6=0;
double true_4=0; double true_5=0; double true_6=0;
int index_1=0; int index_2=0; int index_3=0; int index_4=0; int index_5=0; int index_6=0;
int p2d=0; int p3d=0;
bool get_4=false; bool get_5=false; bool get_6=false;
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
  int init()
  {
   int i=0;
   if (level_3>level_2 && level_1>level_2) {p3d=1; p2d=-1;}
   if (level_3<level_2 && level_1<level_2) {p3d=-1; p2d=1;}
   if (p3d==1)
     {
      while(index_3==0 && i<Bars)
        {
         if (High[i]==level_3) index_3=Time[i];
        i++;}
      while(index_2==0 && i<Bars)
        {
         if (Low[i]==level_2) index_2=Time[i];
        i++;}
        while(index_1==0 && i<Bars){
         if (High[i]==level_1) index_1=Time[i];
        i++;}
     } else
      if (p3d==-1)
        {
           while(index_3==0 && i<Bars){
            if (Low[i]==level_3) index_3=Time[i];
           i++;}
         while(index_2==0 && i<Bars)
           {
            if (High[i]==level_2) index_2=Time[i];
           i++;}
         while(index_1==0 && i<Bars)
           {
            if (Low[i]==level_1) index_1=Time[i];
           i++;}
        }
   CreateText("Point_3","3",index_3,level_3+50*Point*p3d,FireBrick);
   CreateText("Point_2","2",index_2,level_2+50*Point*p2d,FireBrick);
   CreateText("Point_1","1",index_1,level_1+50*Point*p3d,FireBrick);
   //----
   etalon_4=(level_3-(level_3-level_2)*1.62);
   etalon_5=((level_3-(level_3-(level_3-(level_3-level_2)*1.62))/2)-(level_2-(level_3-(level_3-(level_3-(level_3-level_2)*1.62))/2)));
   etalon_6=(((level_3-(level_3-level_2)*1.62)-((level_3-(level_3-level_2)*1.62)-((level_3-(level_3-(level_3-(level_3-level_2)*1.62))/2)-(level_2-(level_3-(level_3-(level_3-(level_3-level_2)*1.62))/2))))/2)-(level_1-((level_3-(level_3-level_2)*1.62)-((level_3-(level_3-level_2)*1.62)-((level_3-(level_3-(level_3-(level_3-level_2)*1.62))/2)-(level_2-(level_3-(level_3-(level_3-(level_3-level_2)*1.62))/2))))/2)));
   //----
   if (Show_etalon) CreateObj("Etalon_4",OBJ_HLINE,Time[0],etalon_4,SaddleBrown,STYLE_DASHDOT);
   if (Show_etalon) CreateObj("Etalon_5",OBJ_HLINE,Time[0],etalon_5,Teal,STYLE_DASHDOT);
   if (Show_etalon) CreateObj("Etalon_6",OBJ_HLINE,Time[0],etalon_6,Purple,STYLE_DASHDOT);
  }
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
  int deinit()
  {
   if (ObjectFind("Point_1")==0) ObjectDelete("Point_1");
   if (ObjectFind("Point_2")==0) ObjectDelete("Point_2");
   if (ObjectFind("Point_3")==0) ObjectDelete("Point_3");
   if (ObjectFind("Point_4")==0) ObjectDelete("Point_4");
   if (ObjectFind("Point_5")==0) ObjectDelete("Point_5");
   if (ObjectFind("Point_6")==0) ObjectDelete("Point_6");
   if (ObjectFind("Etalon_4")==0) ObjectDelete("Etalon_4");
   if (ObjectFind("Etalon_5")==0) ObjectDelete("Etalon_5");
   if (ObjectFind("Etalon_6")==0) ObjectDelete("Etalon_6");
   if (ObjectFind("Level_4")==0) ObjectDelete("Level_4");
   if (ObjectFind("Level_5")==0) ObjectDelete("Level_5");
   if (ObjectFind("Level_6")==0) ObjectDelete("Level_6");
   if (ObjectFind("True_4")==0) ObjectDelete("True_4");
   if (ObjectFind("True_5")==0) ObjectDelete("True_5");
   if (ObjectFind("True_6")==0) ObjectDelete("True_6");
   Comment ("");
  }
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
  void find_4(int index, int dir)
  {
   int tBar=iBarShift(Symbol(),0,index,false)-1;
   if (tBar<0) return(0);
   level_4=(level_3-(level_3-level_2)*1.62);
   if (Show_target) CreateObj("Level_4",OBJ_HLINE,Time[0],level_4,Gold,STYLE_DOT);
   for(int cb=tBar;cb>=0;cb--)
     {
      if (dir==-1)
        {
         if (true_4==0) double level=level_4; else level=true_4;
         if (Low[cb]<=level && get_4==false)
           {
            true_4=Low[cb];
            index_4=Time[cb];
            if (Show_true) CreateObj("True_4",OBJ_HLINE,Time[0],true_4,Gold,STYLE_DASH);
            CreateText("Point_4","4",index_4,true_4+50*Point*p2d,Gold);
            level_5=(level_3-(level_3-true_4)/2)-(level_2-(level_3-(level_3-true_4)/2));
            if (Show_target) CreateObj("Level_5",OBJ_HLINE,Time[0],level_5,Aqua,STYLE_DOT);
           }
         if (true_4!=0 && cb>0)
            if (level_5<=High[cb-1])
              {
               get_4=true;
               find_5(index_4,p3d);
              }
        }
      if (dir==1)
        {
         if (true_4==0) level=level_4; else level=true_4;
         if (High[cb]>=level && get_4==false)
           {
            true_4=High[cb];
            index_4=Time[cb];
            if (Show_true) CreateObj("True_4",OBJ_HLINE,Time[0],true_4,Gold,STYLE_DASH);
            CreateText("Point_4","4",index_4,true_4+50*Point*p2d,Gold);
            level_5=(level_3-(level_3-true_4)/2)-(level_2-(level_3-(level_3-true_4)/2));
            if (Show_target) CreateObj("Level_5",OBJ_HLINE,Time[0],level_5,Aqua,STYLE_DOT);
           }
         if (true_4!=0 && cb>0)
            if (level_5>=Low[cb-1])
              {
               get_4=true;
               find_5(index_4,p3d);
              }
        }
     }
  }

//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
  void find_5(int index, int dir)
  {
   int tBar=iBarShift(Symbol(),0,index,false)-1;
   if (tBar<0) return(0);
   for(int cb=tBar;cb>=0;cb--)
     {
        if (dir==-1) {
         if (true_5==0) double level=level_5; else level=true_5;
         if (Low[cb]<=level && get_5==false)
           {
            true_5=Low[cb];
            index_5=Time[cb];
            if (Show_true) CreateObj("True_5",OBJ_HLINE,Time[0],true_5,Aqua,STYLE_DASH);
            CreateText("Point_5","5",index_5,true_5+50*Point*p3d,Aqua);
            level_6=(true_4-(true_4-true_5)/2)-(level_1-(true_4-(true_4-true_5)/2));
            if (Show_target) CreateObj("Level_6",OBJ_HLINE,Time[0],level_6,Magenta,STYLE_DOT);
           }
         if (true_5!=0 && cb>0)
            if (level_6<=High[cb-1])
              {
               get_5=true;
               find_6(index_5,p2d);
              }
        }
      if (dir==1)
        {
         if (true_5==0) level=level_5; else level=true_5;
         if (High[cb]>=level && get_5==false)
           {
            true_5=High[cb];
            index_5=Time[cb];
            if (Show_true) CreateObj("True_5",OBJ_HLINE,Time[0],true_5,Aqua,STYLE_DASH);
            CreateText("Point_5","5",index_5,true_5+50*Point*p3d,Aqua);
            level_6=(true_4-(true_4-true_5)/2)-(level_1-(true_4-(true_4-true_5)/2));
            if (Show_target) CreateObj("Level_6",OBJ_HLINE,Time[0],level_6,Magenta,STYLE_DOT);
           }
         if (true_5!=0 && cb>0)
            if (level_6>=Low[cb-1])
              {
               get_5=true;
               find_6(index_5,p2d);
              }
        }
     }
  }
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
  void find_6(int index, int dir)
  {
   int tBar=iBarShift(Symbol(),0,index,false)-1;
   if (tBar<0) return(0);
   for(int cb=tBar;cb>=0;cb--)
     {
      if (dir==-1)
        {
         if (true_6==0) double level=level_6; else level=true_6;
         if (Low[cb]<=level && get_6==false)
           {
            true_6=Low[cb];
            index_6=Time[cb];
            if (Show_true) CreateObj("True_6",OBJ_HLINE,Time[0],true_6,Magenta,STYLE_DASH);
            CreateText("Point_6","6",index_6,true_6+50*Point*p2d,Magenta);
           }
        }
      if (dir==1)
        {
         if (true_6==0) level=level_6; else level=true_6;
         if (High[cb]>=level && get_6==false)
           {
            true_6=High[cb];
            index_6=Time[cb];
            if (Show_true) CreateObj("True_6",OBJ_HLINE,Time[0],true_6,Magenta,STYLE_DASH);
            CreateText("Point_6","6",index_6,true_6+50*Point*p2d,Magenta);
           }
        }
     }
  }
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
  void CreateText(string name, string text, int index, double level, color col)
  {
   if (ObjectFind(name)==-1)
     {
      ObjectCreate (name,OBJ_TEXT,0,index,level,0,0,0,0);
      ObjectSetText(name, text, 14, "Times New Roman", col);
     }
   else
     {
      ObjectMove(name, 0, index,level);
     }
  }
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
  void CreateObj(string name, int type, int index, double level, color col, int style)
  {
   if (ObjectFind(name)==-1)
     {
      ObjectCreate (name,type,0,index,level,0,0,0,0);
      ObjectSet    (name, OBJPROP_COLOR, col);
      ObjectSet    (name, OBJPROP_STYLE, style);
     }
   else
     {
      ObjectMove(name, 0, index,level);
     }
  }
//+------------------------------------------------------------------+
//|                                                                  |
//+------------------------------------------------------------------+
  int start()
  {
   int i=0; int j=0; int k=0;
   find_4(index_3,p2d);
   Comment("1: level=",level_1,"; date=",TimeToStr(index_1,TIME_DATE),"\n",
           "2: level=",level_2,"; date=",TimeToStr(index_2,TIME_DATE),"\n",
           "3: level=",level_3,"; date=",TimeToStr(index_3,TIME_DATE),"\n",
           "4: etalon=",etalon_4,"; target=",level_4,"; reached=",true_4,"; date=",TimeToStr(index_4,TIME_DATE),"\n",
           "5: etalon=",etalon_5,"; target=",level_5,"; reached=",true_5,"; date=",TimeToStr(index_5,TIME_DATE),"\n",
           "6: etalon=",etalon_6,"; target=",level_6,"; reached=",true_6,"; date=",TimeToStr(index_6,TIME_DATE));
   return(0);
  }
//+------------------------------------------------------------------+

Similar scripts

1-3-6_v1

This indicator identifies price action structural anchors based on three user-defined levels and dynamically projects recursive expansion zones using nested mathematical offsets.

Heiken_Ashi_Smoothed_Alert_001

This indicator identifies trend reversals by applying multi-stage moving average smoothing to Heiken Ashi price components to filter market noise and highlight directional shifts.

1-2-4!

The algorithm identifies specific price coordinates and executes a recursive backward search to locate nested structural extremes based on proportional geometric offsets.

OHLC_v1

This indicator extracts and displays real-time price data for the current and previous daily candles, specifically highlighting opening, high, low, and closing values alongside calculated volatility ranges.

InnBar_mtf

This indicator identifies multi-timeframe price action instances where a current candle's high and low boundaries are strictly contained within the previous candle's range.

Stoch Crossing_v2

This indicator identifies precise bullish and bearish entry points by detecting the instantaneous intersection of the Stochastic %K and %D lines across multi-period dynamics.

DeltaAlert_001

This indicator calculates the absolute point distance between the current market price and two distinct exponential moving averages to identify trend reversals based on relative divergence.

FISHER~1 (2)

This indicator calculates a smoothed price location relative to the extreme range and applies a logarithmic transformation to identify momentum shifts across zero-line thresholds.

Stoch_Crossing

TD Sequential_v3

Identifies persistent trend progression by counting consecutive price movements relative to a five-bar lookback period to highlight potential exhaustion points.

MTF_BBands_Stop_v1Std

Comments