SystemSelect = ParamList( "System Select", "Channel Break Up|EMA Crossover|MA Crossover" ); // Enables the user to select which type of system is traded.
ShowArrows = ParamToggle( "Show Buy/Sell Arrows", "Off|On", 1 );
AllOff = ParamToggle( "Turn Off All Inidcators", "Off|On", 1 ); // Turns all moving averages off in Price chart
ChannelBreakUpPeriod = Param("Channel Break Up Period", 10, 5, 100, 1); // 10 bars
StopLevel = 1 - Param("Channel Break Up TS %", 20, 5, 30, 1)/100;
EMAperiod = Param("EMA Crossover", 20, 5, 100, 1); // number of averaging periods
MAperiod = Param("MA Crossover", 20, 5, 100, 1); // number of averaging periods
SetTradeDelays(1, 1, 1, 1);
///////////////////////////////////////////
// CHARTING //
///////////////////////////////////////////
// Title
_N(Title = StrFormat("{{NAME}}" + " - {{FULLNAME}} " + " - {{INTERVAL}} {{DATE}} Open %g, Hi %g, Lo %g, Close %g (%.1f%%), Vol " +
WriteVal(V, 1.0), O, H, L, C, (ROC(C, 1))));
SetChartBkColor(colorBlack);
SetChartBkGradientFill( colorBlack, colorBlack);
SetChartOptions(1, chartShowDates, chartGridMiddle, 0, 0, 0);
Plot( Close,"Price",colorBlack,styleBar);
if( SystemSelect == "Channel Break Up" )
{
ChannelBreakUp = Close > Ref( HHV( High, ChannelBreakUpPeriod ), -1 );
Buy = ChannelBreakUp;
Sell = 0;
trailARRAY = Null;
trailstop = 0;
for( i = 1; i < BarCount; i++ )
{
if( trailstop == 0 AND Buy[ i ] )
{
trailstop = High[ i ] * stoplevel;
}
else Buy[ i ] = 0; // remove excess buy signals
if( trailstop > 0 AND Low[ i ] < trailstop )
{
Sell[ i ] = 1;
SellPrice[ i ] = trailstop;
trailstop = 0;
}
if( trailstop > 0 )
{
trailstop = Max( High[ i ] * stoplevel, trailstop );
trailARRAY[ i ] = trailstop;
}
}
Plot( trailARRAY,"trailing stop level", colorRed );
if( showArrows AND AllOff )
{
/* Plot Buy and Sell Signal Arrows */
PlotShapes(IIf(Buy, shapeSquare, shapeNone),colorGreen, 0, L, Offset=-40);
PlotShapes(IIf(Buy, shapeSquare, shapeNone),colorLime, 0,L, Offset=-50);
PlotShapes(IIf(Buy, shapeupArrow, shapeNone),colorWhite, 0,L, Offset=-45);
PlotShapes(IIf(Sell, shapeSquare, shapeNone),colorRed, 0, L, Offset=-60);
PlotShapes(IIf(Sell, shapeSquare, shapeNone),colorOrange, 0,L, Offset=-70);
PlotShapes(IIf(Sell, shapeUpArrow, shapeNone),colorWhite, 0,L, Offset=-65);
}
}
if( SystemSelect == "EMA Crossover" )
{
emaCross = EMA( Close, EMAperiod ); // exponential moving average
Buy = Cross( Close, emaCross ); // buy when close crosses ABOVE moving average
Sell = Cross( emaCross, Close ); // sell when closes crosses BELOW moving average
if( AllOff )
{
Plot( emaCross, "EMA ", colorGreen, styleLine, 0, 0, 0, 0, 1 );
}
if( showArrows AND AllOff )
{
/* Plot Buy and Sell Signal Arrows */
PlotShapes(IIf(Buy, shapeSquare, shapeNone),colorGreen, 0, L, Offset=-40);
PlotShapes(IIf(Buy, shapeSquare, shapeNone),colorLime, 0,L, Offset=-50);
PlotShapes(IIf(Buy, shapeupArrow, shapeNone),colorWhite, 0,L, Offset=-45);
PlotShapes(IIf(Sell, shapeSquare, shapeNone),colorRed, 0, L, Offset=-60);
PlotShapes(IIf(Sell, shapeSquare, shapeNone),colorOrange, 0,L, Offset=-70);
PlotShapes(IIf(Sell, shapeUpArrow, shapeNone),colorWhite, 0,L, Offset=-65);
}
}
if( SystemSelect == "MA Crossover" )
{
maCross = MA( Close, MAperiod ); // simple moving average
Buy = Cross( Close, maCross ); // buy when close crosses ABOVE moving average
Sell = Cross( maCross, Close ); // sell when closes crosses BELOW moving average
if( AllOff )
{
Plot( maCross, "MA ", colorYellow, styleLine, 0, 0, 0, 0, 1 );
}
if( showArrows AND AllOff )
{
/* Plot Buy and Sell Signal Arrows */
PlotShapes(IIf(Buy, shapeSquare, shapeNone),colorGreen, 0, L, Offset=-40);
PlotShapes(IIf(Buy, shapeSquare, shapeNone),colorLime, 0,L, Offset=-50);
PlotShapes(IIf(Buy, shapeupArrow, shapeNone),colorWhite, 0,L, Offset=-45);
PlotShapes(IIf(Sell, shapeSquare, shapeNone),colorRed, 0, L, Offset=-60);
PlotShapes(IIf(Sell, shapeSquare, shapeNone),colorOrange, 0,L, Offset=-70);
PlotShapes(IIf(Sell, shapeUpArrow, shapeNone),colorWhite, 0,L, Offset=-65);
}
}