AOTS for PSE

This is Alignment of the Stars originally named by Zeafreaks from the Philippines. It’s all about the alignment of ma 20 50 100.

//Disclaimer:
//All the AFL’s posted in this section are for learning purpose.
//I do not necessarily own these AFL’s and I don’t have any intellectual property rights on them. I might copy useful AFL’s from public forums
//and post it in this section in a presentable format. The intent is not to copy anybody’s work but to share knowledge.
//If you find any misleading or non-reproducible content then please disregard this AFL
//START////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
//AOTS
ma20 = MA(C, 20);
ma50 = MA(C, 50);
ma100 = MA(C, 100);
// AOTS just formed or aligned
aots_cross = WriteIf((Cross(ma20, ma50) AND (ma50 > ma100)) OR
(Cross(ma20, ma100) AND (ma20 > ma50 > ma100)) OR
(Cross(ma50, ma100) AND (ma20 > ma50)), “YES”, “NO”);
// AOTS = MA20 above MA50 and MA50 above MA100
aots = WriteIf((ma20 > ma50 AND ma50 > ma100), “YES”, “NO”);
//END////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
//START///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
//Zeus Strike
// MA100 crosssed below Price
zeus_strike = WriteIf(Cross(C, ma100), “YES”, “NO”);
//END///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
Filter = C;
AddTextColumn(aots_cross, “AOTS Cross”, 1.0, colorWhite, IIf(aots_cross == “YES”, colorGreen, IIf(aots_cross == “NO”, 0, 0)));
AddTextColumn(aots, “AOTS”, 1.0, colorWhite, IIf(aots == “YES”, colorGreen, IIf(aots == “NO”, 0, 0)));
AddTextColumn(zeus_strike, “Zeus Strike”, 1.0, colorWhite, IIf(zeus_strike == “YES”, colorGreen, IIf(zeus_strike == “NO”, 0, 0)));
_SECTION_END();
_SECTION_BEGIN(“Price1”);
SetChartOptions(0,chartShowArrows|chartShowDates);
_N(Title = StrFormat(“{{NAME}} – {{INTERVAL}} {{DATE}} Open %g, Hi %g, Lo %g, Close %g (%.1f%%) {{VALUES}}”, O, H, L, C, SelectedValue( ROC( C, 1 ) ) ));
Plot( C, “Close”, ParamColor(“Color”, colorBlack ), styleNoTitle | ParamStyle(“Style”) | GetPriceStyle() );
_SECTION_END();
Plot(ma20 ,”ma20 “,colorGreen);
Plot(ma50 ,”ma50″,colorBlue);
Plot(ma100,”ma100″,colorViolet);
aots_cross =(Cross(ma20, ma50) AND (ma50 > ma100)) OR
(Cross(ma20, ma100) AND (ma20 > ma50 > ma100)) OR
(Cross(ma50, ma100) AND (ma20 > ma50));
aots = (ma20 > ma50 AND ma50 > ma100);
zeus_strike = Cross(C, ma100);
PlotShapes(
//IIf(aots , shapeStar, shapeNone), colorBrightGreen, 0, H, 15);
IIf(aots_cross, shapeStar, shapeNone), colorBrightGreen, 0, H, 15);
PlotShapes(
IIf(zeus_strike, shapeStar, shapeNone), colorRed, 0, H, 15);