candles commentary

_SECTION_END();

_SECTION_BEGIN("Herman's Candles");
O1 = Ref(O,-1);O2 = Ref(O,-2);
H1 = Ref(H,-1);H2 = Ref(H,-2);
L1 = Ref(L,-1);L2 = Ref(L,-2);
C1 = Ref(C,-1);C2 = Ref(C,-2);
NearDoji = (abs(O-C)<= ((H-L)*0.1));
BlackCandle = (O>C);
LongBlackCandle = (O>C AND (O-C)/(0.001+H-L)>0.6);
SmallBlackCandle = ((O>C) AND ((H-L)>(3*(O-C))));
WhiteCandle = (C>O);
LongWhiteCandle = ((C>O) AND ((C-O)/(0.001+H-L)>0.6));
SmallWhiteCandle = ((C>O) AND ((H-L)>(3*(C-O))));
BlackMaubozu = (O>C AND H==O AND C==L);
WhiteMaubozu = (C>O AND H==C AND O==L);
BlackClosingMarubozu = (O>C AND C==L);
WhiteClosingMarubozu = (C>O AND C==H);
BlackOpeningMarubozu = (O>C AND O==H);
WhiteOpeningMarubozu = (C>O AND O==L);
HangingMan = (((H-L)>4*(O-C)) AND ((C-L)/(0.001+H-L)>= 0.75) AND ((O-L)/(0.001+H-L)>= 0.75));
Hammer = (((H-L)>3*(O-C)) AND ((C-L)/(0.001+H-L)>0.6) AND ((O-L)/(0.001+H-L)>0.6));
InvertedHammer = (((H-L)>3*(O-C)) AND ((H-C)/(0.001+H-L)>0.6) AND ((H-O)/(0.001+H-L)>0.6));
ShootingStar = (((H-L)>4*(O-C)) AND ((H-C)/(0.001+H-L)>= 0.75) AND ((H-O)/(0.001+H-L)>= 0.75));
BlackSpinningTop = ((O>C) AND ((H-L)>(3*(O-C))) AND (((H-O)/(0.001+H-L))<0.4) AND (((C-L)/(0.001+H-L))<0.4));
WhiteSpinningTop = ((C>O) AND ((H-L)>(3*(C-O))) AND (((H-C)/(0.001+H-L))<0.4) AND (((O-L)/(0.001+H-L))<0.4));
BearishAbandonedBaby = ((C1 == O1) AND (C2>O2) AND (O>C) AND (L1>H2) AND (L1>H));
BearishEveningDojiStar = ((C2>O2) AND ((C2-O2)/(0.001+H2-L2)>0.6) AND (C2<O1) AND (C1>O1) AND ((H1-L1)>(3*(C1-O1))) AND (O>C) AND (O<O1));
DarkCloudCover = (C1>O1 AND ((C1+O1)/2)>C AND O>C AND O>C1 AND C>O1 AND (O-C)/(0.001+(H-L)>0.6));
BearishEngulfing = ((C1>O1) AND (O>C) AND (O>= C1) AND (O1>= C) AND ((O-C)>(C1-O1)));
ThreeOutsideDownPattern = ((C2>O2) AND (O1>C1) AND (O1>= C2) AND (O2>= C1) AND ((O1-C1)>(C2-O2)) AND (O>C) AND (C<C1));
BullishAbandonedBaby = ((C1 == O1) AND (O2>C2) AND (C>O) AND (L2>H1) AND (L>H1));
BullishMorningDojiStar = ((O2>C2) AND ((O2-C2)/(0.001+H2-L2)>0.6) AND (C2>O1) AND (O1>C1) AND ((H1-L1)>(3*(C1-O1))) AND (C>O) AND (O>O1));
BullishEngulfing = ((O1>C1) AND (C>O) AND (C>= O1) AND (C1>= O) AND ((C-O)>(O1-C1)));
ThreeOutsideUpPattern = ((O2>C2) AND (C1>O1) AND (C1>= O2) AND (C2>= O1) AND ((C1-O1)>(O2-C2)) AND (C>O) AND (C>C1));
BullishHarami = ((O1>C1) AND (C>O) AND (C<= O1) AND (C1<= O) AND ((C-O)<(O1-C1)));
ThreeInsideUpPattern = ((O2>C2) AND (C1>O1) AND (C1<= O2) AND (C2<= O1) AND ((C1-O1)<(O2-C2)) AND (C>O) AND (C>C1) AND (O>O1));
PiercingLine = ((C1<O1) AND (((O1+C1)/2)<C) AND (O<C) AND (O<C1) AND (C<O1) AND ((C-O)/(0.001+(H-L))>0.6));
BearishHarami = ((C1>O1) AND (O>C) AND (O<= C1) AND (O1<= C) AND ((O-C)<(C1-O1)));
ThreeInsideDownPattern = ((C2>O2) AND (O1>C1) AND (O1<= C2) AND (O2<= C1) AND ((O1-C1)<(C2-O2)) AND (O>C) AND (C<C1) AND (O<O1));
ThreeWhiteSoldiers = (C>O*1.01) AND (C1>O1*1.01) AND (C2>O2*1.01) AND (C>C1) AND (C1>C2) AND (O<C1) AND (O>O1) AND (O1<C2) AND (O1>O2) AND (((H-C)/(H-L))<0.2) AND (((H1-C1)/(H1-L1))<0.2) AND (((H2-C2)/(H2-L2))<0.2);
DarkCloudCover = (C1>O1*1.01) AND (O>C) AND (O>H1) AND (C>O1) AND (((C1+O1)/2)>C) AND (C>O1) AND (MA(C,13)-Ref(MA(C,13),-4)>0);
ThreeBlackCrows = (O>C*1.01) AND (O1>C1*1.01) AND (O2>C2*1.01) AND (C<C1) AND (C1<C2) AND (O>C1) AND (O<O1) AND (O1>C2) AND (O1<O2) AND (((C-L)/(H-L))<0.2) AND (((C1-L1)/(H1-L1))<0.2) AND (((C2-L2)/(H2-L2))<0.2);

Doji = (O == C);
GapUpx = GapUp();
GapDownx = GapDown();
BigGapUp = L>1.01*H1;
BigGapDown = H<0.99*L1;
HugeGapUp = L>1.02*H1;
HugeGapDown = H<0.98*L1;
DoubleGapUp = GapUp() AND Ref(GapUp(),-1);
DoubleGapDown = GapDown() AND Ref(GapDown(),-1);
//Common Metastock Bar Patterns
Higher3Highs = H>Ref(H,-1) AND Ref(H,-1)>Ref(H,-2) AND Ref(H,-2)>Ref(H,-3);
LowerLows3ReversalH = L>Ref(L,-1) AND Ref(L,-1)<Ref(L,-2) AND Ref(L,-2)<Ref(L,-3) AND Ref(L,-3)<Ref(L,-4);
Lower3Lows = L<Ref(L,-1) AND Ref(L,-1)<Ref(L,-2) AND Ref(L,-2)<Ref(L,-3);
Lower5Lows = L<Ref(L,-1) AND Ref(L,-1)<Ref(L,-2) AND Ref(L,-2)<Ref(L,-3) AND Ref(L,-3)<Ref(L,-4) AND Ref(L,-4)<Ref(L,-5);
HaboveYesterdaysH = H>Ref(H,-1);
InsideDayDay3 = Ref(Inside(),-3);
InsideDay = Inside();
OgYesterdaysC = O>Ref(C,-1);
OutsideDaygC = Outside() AND C>Ref(C,-1);
OutsideDay = Outside();
SurpriseDayDown = O<Ref(C,-1) AND C>O AND C<Ref(C,-1);
SurpriseDayUp = O>Ref(C,-1) AND C<O AND C>Ref(C,-1);



cStatus =
WriteIf(BlackMaubozu, "Marubozu, Black",
WriteIf(WhiteMaubozu, "Marubozu, White",
WriteIf(BlackClosingMarubozu, "Marubozu, Closing Black",
WriteIf(WhiteClosingMarubozu, "Marubozu, Closing White",
WriteIf(WhiteOpeningMarubozu, "Marubozu, Opening White",
WriteIf(BlackOpeningMarubozu, "Marubozu, Opening Black",
WriteIf(LongBlackCandle, "Black Candle, Long",
WriteIf(LongWhiteCandle, "White Candle, Long",
WriteIf(BearishAbandonedBaby, "Abandoned Baby, Bearish",
WriteIf(BearishEveningDojiStar, "Doji, Evening Star",
WriteIf(DarkCloudCover, "Dark Cloud Cover",
WriteIf(BearishEngulfing, "Engulfing, Bearish",
WriteIf(ThreeOutsideDownPattern, "Three Outside Down",
WriteIf(HangingMan, "Hanging Man",
WriteIf(BearishHarami, "Harami, Bearish",
WriteIf(ThreeInsideDownPattern, "Three Inside Down",
WriteIf(ThreeBlackCrows, "Three Black Crows",
WriteIf(Hammer, "Hammer",
WriteIf(InvertedHammer, "Hammer, Inverted",
WriteIf(ShootingStar, "Shooting Star",
WriteIf(BullishAbandonedBaby, "Abandoned Baby, Bullish",
WriteIf(BullishEngulfing, "Engulfing, Bullish",
WriteIf(BullishHarami, "Harami, Bullish",
WriteIf(BullishMorningDojiStar, "Doji, Morning Star",
WriteIf(ThreeOutsideUpPattern, "Three Outside Up",
WriteIf(ThreeInsideUpPattern, "Three Inside Up",
WriteIf(PiercingLine, "Piercing Line",
WriteIf(ThreeWhiteSoldiers, "Three White Soldiers",
WriteIf(BlackSpinningTop, "Spinning Top, Black",
WriteIf(WhiteSpinningTop, "Spinning Top, Whaite",
WriteIf(BlackCandle, "Black Candle",
WriteIf(SmallBlackCandle, "Black Candle, Small",
WriteIf(SmallWhiteCandle, "White Candle, Small",
WriteIf(WhiteCandle, "White Candle",
WriteIf(doji, "Doji",
"")))))))))))))))))))))))))))))))))));

"";
P_status =
WriteIf(GapUpx, "Gap Up",
WriteIf(GapDownx, "Gap Down",
WriteIf(BigGapUp, "Big Gap Up",
WriteIf(BigGapDown, "Big Gap Down",
WriteIf(HugeGapUp, "Huge Gap Up",
WriteIf(HugeGapDown, "Huge Gap Down",
WriteIf(DoubleGapUp, "Double Gap Up",
WriteIf(DoubleGapDown, "DoubleGapDown",
WriteIf(Higher3Highs, "Three Higher Highs",
WriteIf(LowerLows3ReversalH, "Three Lower Lows Reversal H",
WriteIf(Lower3Lows , "Three Lower Lows ",
WriteIf(Lower5Lows, "Five Lower Lows",
WriteIf(HaboveYesterdaysH, "High > Yesterday's High",
WriteIf(InsideDayDay3, "Inside Day Day3",
WriteIf(InsideDay, "Inside Day",
WriteIf(OgYesterdaysC, "Open > Last Close",
WriteIf(OutsideDaygC, "Outside Day C",
WriteIf(OutsideDay, "Outside Day",
WriteIf(SurpriseDayDown, "Surprise Day Down",
WriteIf(SurpriseDayUp, "Surprise Day Up",
"" ))))))))))))))))))));


Filter = 1;


AddTextColumn(cStatus, "Candle", 5.6, colorWhite,
IIf(BlackMaubozu OR WhiteMaubozu OR BlackClosingMarubozu OR
WhiteClosingMarubozu OR WhiteOpeningMarubozu OR BlackOpeningMarubozu OR
LongBlackCandle OR LongWhiteCandle, colorBlue,
IIf(BearishAbandonedBaby OR BearishEveningDojiStar OR DarkCloudCover OR
BearishEngulfing OR ThreeOutsideDownPattern OR HangingMan OR BearishHarami OR
ThreeInsideDownPattern OR ThreeBlackCrows, colorRed,
IIf(Hammer OR InvertedHammer OR ShootingStar OR BullishAbandonedBaby OR
BullishEngulfing OR BullishHarami OR BullishMorningDojiStar OR
ThreeOutsideUpPattern OR ThreeInsideUpPattern OR PiercingLine OR
ThreeWhiteSoldiers, colorGreen,
IIf(BlackSpinningTop OR WhiteSpinningTop OR BlackCandle OR
SmallBlackCandle OR SmallWhiteCandle OR WhiteCandle OR doji, colorDarkYellow,0)))));


AddTextColumn(P_Status, "Bar Pattern", 5.6, colorWhite, IIf(GapDownx OR
BigGapDown OR HugeGapDown OR DoubleGapDown OR Lower3Lows OR Lower5Lows OR SurpriseDayDown, colorRed,
IIf(GapUpx OR BigGapUp OR HugeGapUp OR DoubleGapUp OR Higher3Highs OR LowerLows3ReversalH OR HaboveYesterdaysH OR
OgYesterdaysC OR SurpriseDayUp OR InsideDayDay3 OR InsideDay OR OutsideDaygC OR OutsideDay, colorGreen,0)) );
_SECTION_END();