SHI_Mod

Download script
Author: Copyright � 2004, Shurka & Kevin
SHI_Mod

This script is designed to automatically identify and visualize price trends by constructing a geometric "channel" based on historical market behavior. Instead of relying on standard moving averages, it uses price extremes (highs and lows) to determine the boundaries of a price corridor.

Core Logic Overview

1. Data Identification & Historical Context The script begins by identifying a specific starting point in the chart history. It reads external data to determine exactly which "bar" or time period should be used as the anchor for the calculation. This allows the user to see how the channel would have evolved from a specific historical moment into the present.

2. Fractal Point Detection The primary logic revolves around finding "fractals"—which are significant price peaks and valleys.

  • The script scans back through the history to find the most prominent high and low points.
  • It automatically adjusts its sensitivity based on the timeframe you are viewing (e.g., it looks for different "strengths" of peaks on a 1-minute chart versus a Daily chart).

3. Channel Construction Once two major fractal points are identified, the script calculates the trajectory between them:

  • Slope Calculation: It determines the rate of change (the "Step") between the two points.
  • Parallel Boundaries: Using this slope, it projects two parallel lines (a top and a bottom boundary).
  • Median Line: It also calculates a dotted midline, which represents the fair value or "center" of the price channel.

4. Dynamic Adjustment & Filtering The script does not just draw a static line; it performs active checks to ensure the channel remains relevant:

  • Opposition Filtering: It looks for points that contradict the current trend. If the price moves in a way that "breaks" the logic of the identified channel, the script accounts for these outliers to maintain the integrity of the primary trend line.
  • Projection: It extends these boundaries into the future (or forward from the historical start point) so you can see the potential path of the price if current momentum continues.

5. Visual Feedback To make the data easy to read, the script provides clear visual cues:

  • Main Channel: Drawn in a solid tomato color to show the primary "corridor."
  • Projection/Extension: Shown as dotted green lines to represent where the trend is heading.
  • Anchor Point: A vertical line marks the exact historical moment from which all calculations began.

Summary for the User

In simple terms, this tool looks at past price "peaks" and "valleys" to draw a visible corridor on your chart. It tells you: "Based on these two major points in history, here is the path the price has traveled and where it is likely heading next." It helps traders visualize the boundaries of a trend and identify whether the current price is moving within that expected range.

Miscellaneous
Implements a curve of type %1Uses files from the file systemIt reads information from a fileIt issuies visual alerts to the screen
10 Views
0 Downloads
0 Favorites
SHI_Mod 
//+------------------------------------------------------------------+
//|                                                      SHI_Mod.mq4 |
//|                                 Copyright © 2004, Shurka & Kevin |
//|                                 Corrected&Upgraded by Modest     |
//+------------------------------------------------------------------+
// Modest- èñïðàâëåí àëãîðèòì íàõîæäåíèÿ îïîðíîé òî÷êè ìåæäó 
// îáíàðóæåííûìè ôðàêòàëàìè äëÿ ïîñòðîåíèÿ ëèíèè êàíàëà
// Äîáàâëåíà âîçìîæíîñòü òåñòèðîâàíèÿ íà èñòîðèè ïðè ïîìîùè ïðîãðàììû MetaClick.
// Ïðè òåñòèðîâàíèè ëèíèè êàíàëà ïðîäîëæàþòñÿ â áóäóøåå
#property copyright "Copyright © 2004, Shurka & Kevin "
#property link      ""
#property indicator_chart_window
#property indicator_buffers 2
#property indicator_color1 Red
double ExtMapBuffer1[];
double UpLabel[];

extern int       BarsForFract=0;
int CurrentBar=0;
double Step=0;
int B1=-1,B2=-1,iB1=0,iB2=0,flag=0;
int UpDown=0;
double P1=0,P2=0,PP=0,P1f=0,PPf=0;
int i=0,AB=300,BFF=0;
int ishift=0;
double iprice=0;
datetime T1,T2,Tf;
string fileNAME;


//+------------------------------------------------------------------+
//| Custom indicator initialization function                         |
//+------------------------------------------------------------------+
int init()
  {
//---- indicators
   SetIndexStyle(0,DRAW_ARROW);
   SetIndexArrow(0,164);
   SetIndexBuffer(0,ExtMapBuffer1);
   SetIndexEmptyValue(0,0.0);

    SetIndexStyle(1,DRAW_ARROW,EMPTY,1,Blue);
    SetIndexBuffer(1,UpLabel);
    SetIndexArrow(1, 251);
    SetIndexEmptyValue(1,0);
	
   return(0);
  }
//+------------------------------------------------------------------+
//| Custor indicator deinitialization function                       |
//+------------------------------------------------------------------+
int deinit()
  {
//---- 
   FileDelete(fileNAME);
//----
   return(0);
  }

void DelObj()
{
	ObjectDelete("TL1");	ObjectDelete("TL2");	ObjectDelete("MIDL");
   ObjectDelete("Lab1");ObjectDelete("Lab2");ObjectDelete("Lab3");
   ObjectDelete("TL1f");ObjectDelete("TL2f");
   ObjectDelete("MyBarLine");
}

//+------------------------------------------------------------------+
//| Custom indicator iteration function                              |
//+------------------------------------------------------------------+

int start()
  {
   double iPP,Lab1Val,Lab2Val,Lab3Val;
   int MyBar,lastBarTime,h1,ii;
   string v1,fileFrame;
//****************************************************************************************  
//   ×òåíèå äàííûõ (ñòðîêà)  èç âíåøíåãî ôàéëà, ñôîðìèðîâàííîãî ïðîãðàììîé MetaClick,    
//   ïóò¸ì òûêà â áàð (Z+LeftMouse) óêàçûâàþùåé âðåìÿ, äî êîòîðîãî ñòðîèòñÿ èíäèêàòîð.
//   Èùåì íóæíûé íîìåð áàðà
//**************************************************************************************** 
      switch (Period())  // Ôîðìèðîâàíèå ÷àñòè èìåíè âíåøíåãî ôàéëà
      {
      case PERIOD_M1:     fileFrame=",M1";break;
      case PERIOD_M5:     fileFrame=",M5";break;
      case PERIOD_M15:    fileFrame=",M15";break;
      case PERIOD_M30:    fileFrame=",M30";break;
      case PERIOD_H1:     fileFrame=",H1";break;
	   case PERIOD_H4:     fileFrame=",H4";break;
	   case PERIOD_D1:     fileFrame=",Daily";break;
	   case PERIOD_W1:     fileFrame=",Weekly";break;
	   case PERIOD_MN1:    fileFrame=",Monthly";break;   
      }
      fileNAME=Symbol()+fileFrame+".csv";
      h1=FileOpen(Symbol()+fileFrame+".csv",FILE_CSV,";");
      v1 = FileReadString(h1);
      FileClose(h1);
      Comment(v1);
      lastBarTime=StrToTime(v1);
      i=0;
      while (i<=Bars-1 )
      {if (lastBarTime==Time[i])
         { MyBar=i;break;}
      i++;
      }
//**********^^ Çàêîí÷èëè èñêàòü ïîñëåäíèé áàð äëÿ ïîñòðîåíèÿ èíäèêàòîðà **************** 
   ArrayInitialize(UpLabel,0.0);
   if (Bars<MyBar+303) {Alert("Too little history");return(-1);}
   int    counted_bars=IndicatorCounted();
//---- 
	//if(Bars<AllBars)  AllBars=Bars;                 //return(-1);
	//if(AllBars<AB) {Comment("Ìàëî áàðîâ"); return(-1);}
	//Alert("MyBar=",MyBar);
	//if ((AllBars==0) || (Bars<AllBars)) AB=Bars; else AB=AllBars; //AB-êîëè÷åñòâî îáñ÷èòûâàåìûõ áàðîâ
	if (BarsForFract>0) 
		BFF=BarsForFract; 
	else
	{
		switch (Period())
		{
			case 1: BFF=12; break;
			case 5: BFF=48; break;
			case 15: BFF=24; break;
			case 30: BFF=24; break;
			case 60: BFF=12; break;
			case 240: BFF=15; break;
			case 1440: BFF=10; break;
			case 10080: BFF=6; break;
			default: DelObj(); return(-1); break;
		}
	}
	CurrentBar=2+MyBar; //ñ÷èòàåì ñ òðåòüåãî áàðà, ÷òîáû ôðàêòàë "çàêðåïèëñÿ
	B1=-1; B2=-1; UpDown=0; flag=0;
	
	while(((B1==-1) || (B2==-1)) && (CurrentBar<(AB+MyBar)))
	{
		//UpDown=1 çíà÷èò ïåðâûé ôðàêòàë íàéäåí ñâåðõó, UpDown=-1 çíà÷èò ïåðâûé ôðàêòàë
		//íàéäåí ñíèçó, UpDown=0 çíà÷èò ôðàêòàë åù¸ íå íàéäåí.
		//Â1 è Â2 - íîìåðà áàðîâ ñ ôðàêòàëàìè, ÷åðåç íèõ ñòðîèì îïîðíóþ ëèíèþ.
		//Ð1 è Ð2 - ñîîòâåòñòâåííî öåíû ÷åðåç êîòîðûå áóäåì ëèíèþ ïðîâîäèòü
     // if (CurrentBar==4 ) Alert("CurrentBar=",CurrentBar," ","BFF=",BFF);
		
		if((UpDown<1) && (CurrentBar==Lowest(Symbol(),Period(),MODE_LOW,BFF*2+1,CurrentBar-BFF))) 
	// Âûðàæåíèå CurrentBar-BFF ìîæåò áûòü â äàí ñëó÷àå îòðèöàòåëüíûì. Íî âðîäå ðàáîòàåò
	
		{
		  if(UpDown==0) { UpDown=-1; B1=CurrentBar; iB1=CurrentBar; P1=Low[B1];}
			else { B2=CurrentBar; iB2=CurrentBar; P2=Low[B2];}
		}
		if((UpDown>-1) && (CurrentBar==Highest(Symbol(),Period(),MODE_HIGH,BFF*2+1,CurrentBar-BFF))) 
	
		{
			if(UpDown==0) { UpDown=1; B1=CurrentBar; iB1=CurrentBar; P1=High[B1];}
			else { B2=CurrentBar; iB2=CurrentBar; P2=High[B2];}
		}
		CurrentBar++;
	}
	if((B1==-1) || (B2==-1)) {DelObj(); return(-1);} // Çíà÷èò íå íàøëè ôðàêòàëîâ ñðåäè 300 áàðîâ 8-)
	Step=(P2-P1)/(B2-B1);//Âû÷èñëèëè øàã, åñëè îí ïîëîæèòåëüíûé, òî êàíàë íèñõîäÿùèé
	P1=P1-(B1-MyBar)*Step; B1=0+MyBar;//ïåðåñòàâëÿåì öåíó è ïåðâûé áàð ê íóëþ (çíà÷åíèå îïîðíîé ëèíèè íà 0 áàðå)
	
	//À òåïåðü îïîðíóþ òî÷êó ïðîòèâîïîëîæíîé ëèíèè êàíàëà.
	ishift=0+MyBar; iprice=0;
	
	//Alert(UpDown);
	if(UpDown==1)
	{ 
		//  Èñïðàâëåíî!!  Îïîðíóþ òî÷êó áóäåì èñêàòü ÌÅÆÄÓ îáíàðóæåííûìè ôðàêòàëàìè,
		//  à íå ñ 0-ãî (MyBar) áàðà. iB1-ýòî íå èçìåíåííûé B1
		
		//PP=Low[2+MyBar]-(2)*Step;
				
		PP=Low[2+iB1]-(2)*Step;
		iPP=Low[2+iB1]-(2)*Step;
		ii=2+iB1;
		//for(i=3+MyBar;i<=B2;i++) 
		for(i=3+iB1;i<=B2;i++) 
		{
			//if(Low[i]<PP+Step*(i-MyBar)) { PP=Low[i]-(i-MyBar)*Step; ii=i;}
		    if(Low[i]<iPP+Step*(i-iB1)) 
		       //PP-çíà÷åíèå ëèíèè íà ïîñëåäíåì áàðå
		       // iPP-çíà÷åíèå ëèíèè íà áàðå iB1 -ïðàâûé ôðàêòàë
		       { PP=Low[i]-(i-MyBar)*Step; ii=i;
		        iPP=Low[i]-(i-iB1)*Step;  
		       }
		}
		
		//Alert(iB1,"  ",iB2,"  ",ii,"  ","Step=",Step,"  ","PP=",PP);
		//Lab1Val=(High[iB1]+5*Point); 	Lab2Val=(High[iB2]+5*Point); 	Lab3Val=(Low[ii]-5*Point);
		UpLabel[iB1]=High[iB1]+5*Point;
		UpLabel[iB2]=High[iB2]+5*Point;
		UpLabel[ii]=Low[ii]-5*Point;
		
		//Alert(iB1,"  ",ii,"  ",iB2,"  ","Step=",Step,"  ","PP=",PP,"  ","Lab1Val=",Lab1Val);

		
		if(Low[0+MyBar]<PP) {ishift=0+MyBar; iprice=PP;}
		if(Low[1+MyBar]<PP+Step) {ishift=1+MyBar; iprice=PP+Step;}
		if(High[0+MyBar]>P1) {ishift=0+MyBar; iprice=P1;}
		if(High[1+MyBar]>P1+Step) {ishift=1+MyBar; iprice=P1+Step;}
	} 
	else  //òðåíä âíèç
	{ 
		PP=High[2+MyBar]-(2)*Step;
		iPP=High[2+iB1]-(2)*Step;
		ii=2+iB1;
		//for(i=3+MyBar;i<=B2;i++) 
		for(i=3+iB1;i<=B2;i++)  
		{
			if(High[i]>iPP+Step*(i-iB1)) { PP=High[i]-(i-MyBar)*Step;ii=i;
			                                 iPP=High[i]-(i-iB1)*Step;
			                               } //èùåì çíà÷åíèå âåðõíåé ëèíèè íà 0 áàðå
		}
		
		//Lab1Val=(Low[iB1]-5*Point);Lab2Val=(Low[iB2]-5*Point);Lab3Val=(High[ii]+5*Point);
		UpLabel[iB1]=Low[iB1]-5*Point;
		UpLabel[iB2]=Low[iB2]-5*Point;
		UpLabel[ii]=High[ii]+5*Point;
		
		
		
		//Alert(iB1,"  ",iB2,"  ","ii=",ii,"  ","Step=",Step,"  ","PP=",PP,"  ",
		//       "Lab1Val=",Lab1Val,"Lab3Val=",Lab3Val);
		
		// îïðåäåëÿåì, áûëî ëè ïåðåñå÷åíèå ëèíèé êàíàëà íà 0 èëè 1 áàðàõ(÷òîáû ñòàâèòü ïñèñó)
		if(Low[0+MyBar]<P1) {ishift=0+MyBar; iprice=P1;}
		if(Low[1+MyBar]<P1+Step) {ishift=1+MyBar; iprice=P1+Step;}
		if(High[0+MyBar]>PP) {ishift=0+MyBar; iprice=PP;}
		if(High[1+MyBar]>PP+Step) {ishift=1+MyBar; iprice=PP+Step;}
	}
	//Òåïåðü ïåðåñòàâèì êîíå÷íóþ öåíó è áàð íà ÀÂ, ÷òîáû ëèíèè êàíàëà ðèñîâàëèñü ïîäëèííåå
	P2=P1+AB*Step;
	T1=Time[B1]; T2=Time[AB+MyBar];

	//Åñëè íå áûëî ïåðåñå÷åíèÿ êàíàëà, òî 0, èíà÷å ñòàâèì ïñèñó.
	//if(iprice!=0) ExtMapBuffer1[ishift]=iprice;
	DelObj();
	
	//Alert("B1=",B1,"  ","B2=",AB+MyBar,"    ","AB=",AB,"  ","MyBar=",MyBar);
//	Alert("T1=",T1,"  ","T2=",T2);

//***************************************** Ðèñóåì ëèíèè êàíàëà ************************
	ObjectCreate("TL1",OBJ_TREND,0,T2,PP+Step*(AB),T1,PP); 
		ObjectSet("TL1",OBJPROP_COLOR,Tomato); 
		ObjectSet("TL1",OBJPROP_WIDTH,2); 
		ObjectSet("TL1",OBJPROP_STYLE,STYLE_SOLID); 
      ObjectSet("TL1",OBJPROP_RAY,False); 
	ObjectCreate("TL2",OBJ_TREND,0,T2,P2,T1,P1); 
		ObjectSet("TL2",OBJPROP_COLOR,Tomato); 
		ObjectSet("TL2",OBJPROP_WIDTH,2); 
		ObjectSet("TL2",OBJPROP_STYLE,STYLE_SOLID); 
	   ObjectSet("TL2",OBJPROP_RAY,False); 
	ObjectCreate("MIDL",OBJ_TREND,0,T2,(P2+PP+Step*AB)/2,T1,(P1+PP)/2);
		ObjectSet("MIDL",OBJPROP_COLOR,Tomato); 
		ObjectSet("MIDL",OBJPROP_WIDTH,1); 
		ObjectSet("MIDL",OBJPROP_STYLE,STYLE_DOT); 
      ObjectSet("MIDL",OBJPROP_RAY,False); 

//*********************************** Ðèñóåì ïðîäîëæåíèå êàíàëà ************************
     if (MyBar>30) {Tf=Time[MyBar-30]; 
                     PPf=PP-Step*30; P1f=P1-Step*30;
                   }
     else          {Tf=Time[0];PPf=PP-MyBar*Step; P1f=P1-MyBar*Step; 
                   }
    ObjectCreate("TL1f",OBJ_TREND,0,T1,PP,Tf,PPf); 
		ObjectSet("TL1f",OBJPROP_COLOR,Green); 
		ObjectSet("TL1f",OBJPROP_WIDTH,1); 
		ObjectSet("TL1f",OBJPROP_STYLE,STYLE_DOT); 
      ObjectSet("TL1f",OBJPROP_RAY,False); 
    ObjectCreate("TL2f",OBJ_TREND,0,T1,P1,Tf,P1f); 
		ObjectSet("TL2f",OBJPROP_COLOR,Green); 
		ObjectSet("TL2f",OBJPROP_WIDTH,1); 
		ObjectSet("TL2f",OBJPROP_STYLE,STYLE_DOT); 
      ObjectSet("TL2f",OBJPROP_RAY,False); 
    
//************************* Îòìå÷àåì êëèêíóòûé áàð  ************************************    
   if (MyBar>0)    
      {
      ObjectCreate("MyBarLine",OBJ_VLINE,0,Time[MyBar],High[MyBar]); 
      ObjectSet("MyBarLine",OBJPROP_COLOR,MediumOrchid); 
		ObjectSet("MyBarLine",OBJPROP_WIDTH,1); 
		ObjectSet("MyBarLine",OBJPROP_STYLE,STYLE_DOT); 
      }

   
//----
   return(0);
  }
//+------------------------------------------------------------------+

Similar scripts

SHI_Mod_vLine_v2

Identifies significant price extremes using fractal geometry to project multi-layered trend trajectories and median equilibrium lines.

SHI_Mod_vLine

This indicator automatically identifies significant pivot points via fractal analysis to project a dynamic price channel with trend-aligned boundaries and a median equilibrium line.

SHI_Mod_vLine_v1

This algorithm identifies significant price pivots using dual fractal extremes to project dynamic linear channels and geometric trend boundaries.

SHI_Mod_vLine_v3

The algorithm dynamically constructs a dual-boundary trend channel by identifying significant fractal extremes and projecting linear slopes based on historical pivot points.

SHI_Mod_vLine_v4

This indicator dynamically constructs a price channel by identifying significant structural pivot points between opposing fractal extremes and projecting linear trends based on calculated angular steps.

HistoryGraph

Levels_v1

Levels

This indicator projects symmetrical price levels based on previous candle volatility by switching between three distinct Fibonacci expansion ratios depending on the range of the preceding bar.

Show history

This script populates the chart with color-coded arrows and dotted trendlines to visualize open, pending, and historical trade executions.

MultiInstrument

BBR_v1

Comments