VTTrader: Code Snippets (Commonly used Components)

It occurred to me that a section of commonly used Snippets of Code might be handy for anyone building their own Indicators or Trading Systems.

How do you Start a 24 EMA calculating at Midnight on a 1 Hour Chart and not on the 24th Bar no matter what time it is?

As usual, I would prefer that the discussion of any of the posted Snips would be carried out on the existing discussion threads or a new one.

You may find occasions when you do not want to initiate a Trading System {StartTS} until a specific bar on the Chart. {First Midnight after sufficient data to calculate}

Inputs:
EMAPer {default 24}
StartHour {default 0} [Change to 8:00 AM GMT or whatever]

Formula:
BarNum := BarCount();
StartTS := ValueWhen(1,BarNum >= EMAPer And Cross(Hour()=StartHour ,0.5),BarNum);

MyEMA := IF(BarNum >= StartTS, Mov(Close,EMAPer,E),Null);

*******************

This type of code will also prevent those annoying Zero Values at the beginning of the chart causing it to squish the chart.

Inputs:
AcctType {Enumeration. Full / Mini default Full}
Spread {default 3}

Outputs:
FULLPIPS {Indicator New Frame 5}
TradeNum {Indicator New Frame 5} I find it easeir to examine trades when they are numbered.


Formula:
OpenBuy := LongEntrySignal and (eventCount('OpenBuy' )+ ManualLong =eventCount('CloseBuy' ));
CloseBuy := LongExitSignal and (eventCount('OpenBuy' )+ ManualLong >eventCount('CloseBuy' ));

OpenSell := ShortEntrySignal and (eventCount('OpenSell')+ ManualShort =eventCount('CloseSell'));
CloseSell:= ShortExitSignal and (eventCount('OpenSell')+ ManualShort >eventCount('CloseSell'));


{Paste this section after Trade Orders}

AccType := IF(AcctType =0, 1, If(AcctType = 1, 0.1, 0));
PF := SymbolPoint();
_Spread := Spread * PF;
TradeNum:= Cum(OpenBuy)+Cum(OpenSell);


LongEntryPrice := ValueWhen(1,Cross(LongEntrySignal,0.5),Close +_Spread);
ShortEntryPrice:= ValueWhen(1,Cross(ShortEntrySignal,0.5),Close);

LastLongEvent:= IF(SignalFlag(LongEntrySignal,LongExitSignal )=1, 2, 1);
LastShrtEvent:= IF(SignalFlag(ShortEntrySignal,ShortExitSignal)=1,-2,-1);

{Pips Gained in Trade up to Exit Bar}
OpenPips := IF(LastLongEvent=2 And LastShrtEvent = -1,(Close - LongEntryPrice)/PF
,If(LastLongEvent=1 And LastShrtEvent = -2,(ShortEntryPrice - Close -_Spread)/PF
,0));

{Pips Gained on Exit Bar}
ClosedPips:= IF(Cross(1.5,LastLongEvent),((Close - Ref(Close,-1))/PF )
,If(Cross(LastShrtEvent,-1.5),((Close - Ref(Close,-1))/PF)
,0));

OpenPipDif:= IF(OpenPips <>0, OpenPips-Ref(OpenPips,-1) ,0);

TotalPips := IF(Cross(LongExitSignal,0.5) And TradeNum>Ref(TradeNum,-1)
,(Prev - (_Spread/PF) + ClosedPips)
,If(Cross(LongExitSignal,0.5)
,(Prev + ClosedPips + OpenPips)
,if(Cross(ShortExitSignal,0.5) And (TradeNum>Ref((TradeNum,-1)
,(Prev - (_Spread/PF) - ClosedPips)
,if(Cross(ShortExitSignal,0.5)
,(Prev - ClosedPips + OpenPips)
,(TotalPips + OpenPipDif)))));

FULLPIPS:= TotalPips * AccType;

<!-- / icon and title --> <!-- message --> Hey folks,
Rather than post the indicator, as this snippet would only be a part of an Ind or TS, I thought I would simply post the code.

I don't know if MT requires similar code or if Auto detect is already built in but if not, at least here is the logic I used. {unformatted of course}

{Automatically Determine the Chart Interval And Allow for Weekends/Holidays}
Barnum :=Barcount();
FirstBar :=ValueWhen(1,Barnum=1,DayOfMonth()*1440)
+ValueWhen(1,Barnum=1,Hour()*60)+ValueWhen(1,Barnu m=1,Minute());
SecondBar:=ValueWhen(1,Barnum=2,DayOfMonth()*1440)
+ValueWhen(1,Barnum=2,Hour()*60)+ValueWhen(1,Barnu m=2,Minute());
ThirdBar :=ValueWhen(1,Barnum=3,DayOfMonth()*1440)
+ValueWhen(1,Barnum=3,Hour()*60)+ValueWhen(1,Barnu m=3,Minute());
FourthBar:=ValueWhen(1,Barnum=4,DayOfMonth()*1440)
+ValueWhen(1,Barnum=4,Hour()*60)+ValueWhen(1,Barnu m=4,Minute());
FifthBar :=ValueWhen(1,Barnum=5,DayOfMonth()*1440)
+ValueWhen(1,Barnum=5,Hour()*60)+ValueWhen(1,Barnu m=5,Minute());

Scnd_First:= IF(SecondBar-FirstBar <0,Abs(SecondBar-FirstBar ),SecondBar-FirstBar );
Thrd_Scnd := IF(ThirdBar -SecondBar<0,Abs(ThirdBar -SecondBar),ThirdBar -SecondBar);
Frth_Thrd := IF(FourthBar-ThirdBar <0,Abs(FourthBar-ThirdBar ),FourthBar-ThirdBar );
Ffth_Frth := IF(FifthBar -FourthBar<0,Abs(FifthBar -FourthBar),FifthBar -FourthBar);
{ChartInterval =}
ChartInt := IF(Barnum>=5,MIN( Min(Scnd_First, Thrd_Scnd ),Min(Frth_Thrd, Ffth_Frth )),Null);

The value ChartInt will be returned in Minutes. ie. 2 Hour chart =120.

After the above you can write code such as ...
MyVar:= IF( ChartInt=30,---#---,If(ChartInt=120,---#---,Null));

I find this usefull when I need inputs to vary depending on the Timeframe I am applying it to.