// Downloaded From https://www.WiseStockTrader.com ChartLum = Param("Chart Background Color Intensity", 0, 0, 1, 0.01); SetChartBkColor(ColorBlend(colorWHITE, colorLIGHTBLUE, ChartLum)); _SECTION_BEGIN(" PRICE GANN STYLE"); C1 = H > Ref(H,-1) AND L < Ref(L,-1) ; C2 = H < Ref(H,-1) AND L > Ref(L,-1) ; C3 = H > Ref(H,-1) AND L > Ref(L,-1) ; C4 = L < Ref(L,-1) AND H < Ref(H,-1) ; C5 = L == Ref(L,-1) OR H == Ref(H,-1) ; /* plot color coded bars */ Plot( C, FullName(), IIf(C1 ,29,IIf(C2,1,IIf(C3 ,27,IIf(C4,32,IIf (C5 ,41,8))))),128+4 ); x=Cum(1); /* criteria for high and low pivot */ HP = IIf( H < Ref(H,-1) AND Ref(H ,-1) > Ref(H ,-2) AND Ref(H ,-1) > Ref(H ,-3), 1, 0); LP = IIf( L > Ref(L ,-1) AND Ref(L ,-1) < Ref(L ,-2) AND Ref(L ,-1) < Ref(L ,-3), 1, 0); /* find the end and start values and the end and start bar */ startvalue=IIf(BarsSince(HP) < BarsSince(LP), ValueWhen(LP,Ref(L,- 1),1), ValueWhen(HP,Ref(H,-1),1)); startbar = IIf(BarsSince(HP) < BarsSince(LP), LastValue( ValueWhen( LP, x-1, 2 )) ,LastValue( ValueWhen( HP, x-1, 2 ))); endbar = IIf(BarsSince(HP) < BarsSince(LP), LastValue( ValueWhen( HP, x-1, 1 )),LastValue( ValueWhen( LP, x-1, 1 ))); b = startvalue; _SECTION_END(); //outsidebar = colour blue //insidebar = colour black //upbar = colour green //downbar = colour red //neutralbar = colour yellow