|
Cotswolds UK
Experience: Intermediate
Platform: NT7, Multicharts
Broker: Mirus,Amp,ZenFire
Trading: Fdax
Posts: 64 since Mar 2010
Thanks Given: 95
Thanks Received: 23
|
I have recoded the Supertrend Indy to EasyLanguage for Multicharts,Tradestation but every so often it seems to flatline & I cannot find the error, could any of you guys please help me on this.
Thanks
//$$_DH_SuperTrendIndicator SuperTrend Indicator
Inputs:
NTorBM("NT"), //"NT"/"BM"
ATRLength1(10),
ATRLength2(10),
ATRMult1(1),
ATRMult2(1),
AllPlotTraceDisplay(0),
TrendUDDisplay(0),
Trace_Print(0);
Arrays:
IntraBarPersist Int ATRLength[2](0),
IntraBarPersist ATRMult[2](0),
IntraBarPersist Double UpTrend[2](0),
IntraBarPersist Double DownTrend[2](0),
IntraBarPersist Trend[2](False),
IntraBarPersist Double MedianValue[2](0),
IntraBarPersist Double MedianPlus[2](0),
IntraBarPersist Double MedianMinus[2](0),
IntraBarPersist Double ST[2](0),
IntraBarPersist Double STUp[2](0),
IntraBarPersist Double STDn[2](0),
IntraBarPersist ArrowUpDown[2](" ");
Vars:
IntraBarPersist aTick(MinMove/PriceScale),
IntraBarPersist DualTF(False),
ArrowUpDownTFUP(False),
ArrowUpDownTFDN(False),
IntraBarPersist Int TextID(0),
IntraBarPersist STTraceFile("");
//Proc
Once Begin
ATRLength[1]=ATRLength1;
ATRLength[2]=ATRLength2;
ATRMult[1]=ATRMult1;
ATRMult[2]=ATRMult2;
DualTF=ATRLength1<>ATRLength2 OR ATRMult1<>ATRMult2;
If Trace_Print=1 Then
STTraceFile="C:\STIndicatorOut-"+RightStr("0000"+NumToStr(Random(10000),0),4)+".ST.txt";
//{
If Trace_Print=1 Then
FileAppend(STTraceFile,
" ALen "+NumToStr(ATRLength[1],0)+" AMult "+NumToStr(ATRMult[1],2)+NewLine);
//}
End;
If NTorBM="NT" Then Begin
Value1 = $$_DH_STrendFuncNT(ATRLength[1],ATRMult[1],UpTrend[1],DownTrend[1],Trend[1],
MedianValue[1],MedianPlus[1],MedianMinus[1],
ST[1],STUp[1],STDn[1],ArrowUpDown[1],STTraceFile);
{****debug removal*******
If DualTF Then
Value1 = $$_DH_STrendFuncNT(ATRLength[2],ATRMult[2],UpTrend[2],DownTrend[2],Trend[2],
MedianValue[2],MedianPlus[2],MedianMinus[2],
ST[2],STUp[2],STDn[2],ArrowUpDown[2],STTraceFile);
************************}
End;
{Else
ST = $$_DH_SuperTrendFunction(ATRLength, ATRMult, Strength, Strend);
}
{****debug removal*******
If DualTF Then Begin
ArrowUpDownTFUP=ArrowUpDown[1]="Up" AND ArrowUpDown[2]="Up";
ArrowUpDownTFDN=ArrowUpDown[1]="Dn" AND ArrowUpDown[2]="Dn";
If ArrowUpDownTFUP Then
Plot16(Low-(2)*aTick,"Up",Green);
If ArrowUpDownTFDN Then
Plot17(High+(2)*aTick,"Dn",Red);
Plot11(ST[1],"ST1");
Plot12(ST[2],"ST2");
End;
************************}
//{***Put in [x] reference
If DualTF=False Then Begin
Plot1(ST[1],"ST");
If AllPlotTraceDisplay=1 Then Begin
Plot3(UpTrend[1],"UpTrend");
Plot2(DownTrend[1],"DnTrend");
Plot4(MedianPlus[1],"Md+");
Plot5(MedianMinus[1],"Md-");
Plot8(STUp[1],"STUp");
Plot9(STDn[1],"STDn");
End;
If TrendUDDisplay=1 Then Begin
TextID = Text_New(Date,Time,(Open+Close)*0.5,IffString(Trend[1],"U","D")) ;
Text_SetColor(TextID,DarkGray);
Text_SetStyle( TextID, 2, 2 ) ;
End;
If ArrowUpDown[1]<>" " Then Begin
{
TextID = Text_New(Date,Time,Iff(ArrowUpDown="Up",ST-3*aTick,ST+3*aTick),IffString(ArrowUpDown="Up","UP","DN")) ;
Text_SetColor(TextID,Iff(ArrowUpDown="Up",Green,Red));
Text_SetStyle( TextID, 2, 2 ) ;
}
If ArrowUpDown[1]="Up" Then
Plot6(ST[1]-(1)*aTick,"Up",Magenta);
If ArrowUpDown[1]="Dn" Then
Plot7(ST[1]+(1)*aTick,"Dn",Cyan);
End;
End;
//}
|
