Factor:= Input("Factor", 1.00,10.00,3.00); 
Pd:= Input("ATR Periods", 1,200,10);
Up:= MP() + (factor * ATR(Pd)); 
Dn:= MP() - (factor * ATR(Pd));
Td:= If(Cross(C, LLV(Up, 13)), 1, If(Cross(HHV(Dn, 13), C), -1, PREV));

DNX:= If(Dn = HighestSince(1, Cross(Td, 0), Dn), Dn, PREV);
Upx:= If(Up = LowestSince(1, Cross(0, Td), Up), Up, PREV);
ST:= If(Td = 1, DNX, If(Td =- 1, UPX, PREV));
ST

 

//+------------------------------------------------------------------+
//| SuperTrend.mq4 v1.2 |
//| Copyright © 2008, Jason Robinson (jnrtrading). |
//| http://www.spreadtrade2win.com |
//+------------------------------------------------------------------+
#property copyright "Copyright © 2008, Jason Robinson."
#property link "http://www.spreadtrade2win.com"
 
#property indicator_chart_window
#property indicator_color1 Lime
#property indicator_color2 Red
#property indicator_width1 2
#property indicator_width2 2
#property indicator_buffers 2
double TrendUp[], TrendDown[];
int changeOfTrend;
extern int Nbr_Periods = 10;
extern double Multiplier = 3.0;
//+------------------------------------------------------------------+
//| Custom indicator initialization function |
//+------------------------------------------------------------------+
int init()
 {
//---- indicators
 SetIndexBuffer(0, TrendUp);
 SetIndexStyle(0, DRAW_LINE, STYLE_SOLID, 2);
 SetIndexLabel(0, "Trend Up");
 SetIndexBuffer(1, TrendDown);
 SetIndexStyle(1, DRAW_LINE, STYLE_SOLID, 2);
 SetIndexLabel(1, "Trend Down");
//----
 return(0);
 }
//+------------------------------------------------------------------+
//| Custom indicator deinitialization function |
//+------------------------------------------------------------------+
int deinit()
 {
//----
 
//----
 return(0);
 }
//+------------------------------------------------------------------+
//| Custom indicator iteration function |
//+------------------------------------------------------------------+
int start()
 {
 int limit, i, flag, flagh, trend[5000];
 double up[5000], dn[5000], medianPrice, atr;
 int counted_bars = IndicatorCounted();
//---- check for possible errors
 if(counted_bars < 0) return(-1);
//---- last counted bar will be recounted
 if(counted_bars > 0) counted_bars--;
 limit=Bars-counted_bars;
 //Print(limit);
 
//----
 for (i = Bars; i >= 0; i--) {
 TrendUp[i] = EMPTY_VALUE;
 TrendDown[i] = EMPTY_VALUE;
 atr = iATR(NULL, 0, Nbr_Periods, i);
 //Print("atr: "+atr);
 medianPrice = (High[i]+Low[i])/2;
 //Print("medianPrice: "+medianPrice);
 up[i]=medianPrice+(Multiplier*atr);
 //Print("up: "+up);
 dn[i]=medianPrice-(Multiplier*atr);
 //Print("dn: "+dn);
 trend[i]=1;
 
 
 if (Close[i]>up[i+1]) {
 trend[i]=1;
 if (trend[i+1] == -1) changeOfTrend = 1;
 //Print("trend: "+trend);
 
 }
 else if (Close[i]<dn[i+1]) {
 trend[i]=-1;
 if (trend[i+1] == 1) changeOfTrend = 1;
 //Print("trend: "+trend);
 }
 else if (trend[i+1]==1) {
 trend[i]=1;
 changeOfTrend = 0; 
 }
 else if (trend[i+1]==-1) {
 trend[i]=-1;
 changeOfTrend = 0;
 }
 
 if (trend[i]<0 && trend[i+1]>0) {
 flag=1;
 //Print("flag: "+flag);
 }
 else {
 flag=0;
 //Print("flagh: "+flag);
 }
 
 if (trend[i]>0 && trend[i+1]<0) {
 flagh=1;
 //Print("flagh: "+flagh);
 }
 else {
 flagh=0;
 //Print("flagh: "+flagh);
 }
 
 if (trend[i]>0 && dn[i]<dn[i+1])
 dn[i]=dn[i+1];
 
 if (trend[i]<0 && up[i]>up[i+1])
 up[i]=up[i+1];
 
 if (flag==1)
 up[i]=medianPrice+(Multiplier*atr);
 
 if (flagh==1)
 dn[i]=medianPrice-(Multiplier*atr);
 
 //-- Draw the indicator
 if (trend[i]==1) {
 TrendUp[i]=dn[i];
 if (changeOfTrend == 1) {
 TrendUp[i+1] = TrendDown[i+1];
 changeOfTrend = 0;
 }
 }
 else if (trend[i]==-1) {
 TrendDown[i]=up[i];
 if (changeOfTrend == 1) {
 TrendDown[i+1] = TrendUp[i+1];
 changeOfTrend = 0;
 }
 }
 }
 WindowRedraw();
 
//----
 return(0);
 }

Mult:= Input("ATR Multiplier",0.1,3,1); 
Nb:= Input("NbPeriods",1,8,8); 
x:= Input("Price:[1](H+L)/2 [2]Close",1,2,1); 
TruRan:= Wilders(ATR(1),Nb)*Mult; 
HiLimit:=If(x=1,(H+L)/2-TruRan,C-TruRan); 
LoLimit:=If(x=1,(H+L)/2+TruRan,C+TruRan);
LB:=If(HiLimit>=PREV AND HiLimit<c,HiLimit,If(C<prev,HiLimit-0.1,PREV));
UB:=If(LoLimit<prev AND LoLimit>C,LoLimit,If(C>PREV,LoLimit+0.1,PREV));
Trend:=If(UB>Ref(UB,-1),1,If(LB<ref(LB,-1),-1,PREV));
Super:=If((Trend=1 AND Ref(Trend,-1)=-1) OR (Trend=1 OR Trend=0),LB,UB);
Super;