_SECTION_BEGIN("Volume");
SetChartBkColor(16);
GraphXSpace = Param("Zoom",2,-100);
VLP= Param("VLP",14,10,50,1);
Volumefactor= Param("volume factor upper",1,0.5,4,0.05);
Volumefactor2= Param("volume factor lower",1,0.5,4,0.05);
Vcurve= Param("v curve factor",0.5,-2,6,0.1);
Vcurve2= Param("v curve factor2",-0.5,-2,6,0.1);
Vcurve3= Param("v curve factor5",2.5,-4,8,0.1);
Vcurve4= Param("v curve factor4",4,-4,8,0.1);
SetChartBkColor(16 ) ;
lookback = 8;
Use2Bars = "Yes";
LowVol = "Yes";
ClimaxUp = "Yes";
ClimaxDown = "Yes";
Churn = "Yes";
ClimaxChurn = "Yes";

LowVolColor = colorYellow;
ClimaxUpColor = colorRed;
ClimaxDownColor = colorWhite;
ChurnColor = colorGreen;
ClimaxChurnColor = colorViolet;
DefaultBarColor = 7;
AvgColor = 0;

Range = High-Low;
Value1 = IIf (Close >= Open,Volume * ((Range) / ((2+(Range*Range)/10) * Range + (Open - Close))),
Volume * (((Range + Close - Open)) / (2+(Range*Range)/10) * Range + (Close - Open)));
Value2 = Volume - Value1;

Value3 = Value1 + Value2;
Value4 = Value1 * Range;
Value5 = (Value1 - Value2) * Range;
Value6 = Value2 * Range;
Value7 = (Value2 - Value1) * Range;
Value8 = IIf (Range != 0, Value1 / Range, 1);
Value9 = IIf (Range != 0, (Value1 - Value2) / Range, 1);
Value10 = IIf (Range != 0, Value2 / Range, 1);
Value11 = IIf (Range != 0, (Value2 - Value1) / Range, 1);
Value12 = IIf (Range != 0, Value3 / Range, 1);
Value13 = IIf (Use2Bars=="Yes", Value3 + Ref(Value3,-1),1);
Value14 = IIf (Use2Bars=="Yes", (Value1 + Ref(Value1,-1))*(HHV(High,2)-LLV(Low,2)),1);
Value15 = IIf (Use2Bars=="Yes", (Value1 + Ref(Value1,-1)-Value2-Ref(Value2,-1))*(HHV(High,2)-LLV(Low,2)),1);
Value16 = IIf (Use2Bars=="Yes", (Value2 + Ref(Value2,-1))*(HHV(High,2)-LLV(Low,2)),1);
Value17 = IIf (Use2Bars=="Yes", (Value2 + Ref(Value2,-1)-Value1-Value1[1])*(HHV(High,2)-LLV(Low,2)),1);
Value18 = IIf ((Use2Bars=="Yes" AND (HHV(High,2)!=LLV(Low,2))),(Value1+Ref(Value1,-1))/(HHV(High,2)-LLV(Low,2)),1);
Value19 = IIf ((Use2Bars=="Yes" AND (HHV(High,2)!=LLV(Low,2))),(Value1+Ref(Value1,-1)-Value2-Ref(Value2,-1))/(HHV(High,2)-LLV(Low,2)),1);
Value20 = IIf ((Use2Bars=="Yes" AND (HHV(High,2)!=LLV(Low,2))),(Value2+Ref(Value2,-1))/(HHV(High,2)-LLV(Low,2)),1);
Value21 = IIf ((Use2Bars=="Yes" AND (HHV(High,2)!=LLV(Low,2))),(Value2+Ref(Value2,-1)-Value1-Ref(Value1,-1))/(HHV(High,2)-LLV(Low,2)),1);
Value22 = IIf ((Use2Bars=="Yes" AND (HHV(High,2)!=LLV(Low,2))),Value13/(HHV(High,2)-LLV(Low,2)),1);


Condition1 = IIf(Value3 == LLV(Value3, Lookback), 1, 0);
Condition2 = IIf((Value4 == HHV(Value4, Lookback) AND Close > Open), 1, 0);
Condition3 = IIf((Value5 == HHV(Value5, Lookback) AND Close > Open), 1, 0);
Condition4 = IIf((Value6 == HHV(Value6, Lookback) AND Close < Open), 1, 0);
Condition5 = IIf((Value7 == HHV(Value7, Lookback) AND Close < Open), 1, 0);
Condition6 = IIf((Value8 == LLV(Value8, Lookback) AND Close < Open), 1, 0);
Condition7 = IIf((Value9 == LLV(Value9, Lookback) AND Close < Open), 1, 0);
Condition8 = IIf((Value10 == LLV(Value10, Lookback) AND Close > Open), 1, 0);
Condition9 = IIf((Value11 == LLV(Value11, Lookback) AND Close > Open), 1, 0);
Condition10 = IIf(Value12 == HHV(Value12, lookback), 1, 0);
Condition11 = IIf (Use2Bars=="Yes" AND (Value13==LLV(Value13,Lookback) AND Close > Open AND Ref(Close,-1) > Ref(Open,-1)),1,0);
Condition12 = IIf (Use2Bars=="Yes" AND (Value14==HHV(Value14,Lookback) AND Close > Open AND Ref(Close,-1) > Ref(Open,-1)),1,0);
Condition13 = IIf (Use2Bars=="Yes" AND (Value15==HHV(Value15,Lookback) AND Close > Open AND Ref(Close,-1) < Ref(Open,-1)),1,0);
Condition14 = IIf (Use2Bars=="Yes" AND (Value16==LLV(Value16,Lookback) AND Close < Open AND Ref(Close,-1) < Ref(Open,-1)),1,0);
Condition15 = IIf (Use2Bars=="Yes" AND (Value17==LLV(Value17,Lookback) AND Close < Open AND Ref(Close,-1) < Ref(Open,-1)),1,0);
Condition16 = IIf (Use2Bars=="Yes" AND (Value18==LLV(Value18,Lookback) AND Close < Open AND Ref(Close,-1) < Ref(Open,-1)),1,0);
Condition17 = IIf (Use2Bars=="Yes" AND (Value19==LLV(Value19,Lookback) AND Close > Open AND Ref(Close,-1) < Ref(Open,-1)),1,0);
Condition18 = IIf (Use2Bars=="Yes" AND (Value20==LLV(Value20,Lookback) AND Close > Open AND Ref(Close,-1) > Ref(Open,-1)),1,0);
Condition19 = IIf (Use2Bars=="Yes" AND (Value21==LLV(Value21,Lookback) AND Close > Open AND Ref(Close,-1) > Ref(Open,-1)),1,0);
Condition20 = IIf (Use2Bars=="Yes" AND (Value22==LLV(Value22,Lookback)), 1,0);

Color22=

IIf (ClimaxChurn== "Yes" AND (Condition10 OR Condition20) AND (Condition2 OR Condition3 OR Condition4 OR Condition5 OR Condition6 OR Condition7 OR Condition8 OR Condition9), colorViolet,
IIf (ClimaxUp== "Yes" AND (Condition2 OR Condition3 OR Condition8 OR Condition9 OR Condition12 OR Condition13 OR Condition18 OR Condition19) , colorRed,
IIf (ClimaxDown== "Yes" AND (Condition4 OR condition5 OR Condition6 OR Condition7 OR Condition14 OR Condition15 OR Condition16 OR Condition17) ,colorWhite,
IIf (Churn== "Yes" AND Condition10 OR Condition20,colorBlue,
IIf (V<Ref(V,-1) AND V<Ref(V,-2) , colorYellow,colorGrey50 )))));

PlotVOL = ParamToggle( "plot Volume?","No| Yes",1);
VolScale = Param("1/Vol. Height (TimeBar chart)(fraction of window) 5=1/5=20%",5, -2, 200, 1.0) ; // Timebars
volAvg				=	MA(V,Vlp);
volMean 			= 	StDev(volAvg,Vlp); 
y=MA(V,1)+StDev(MA(V,1),2);
z=MA(V,1)+StDev(MA(V,1),3);

vp1 		= 	(volAvg + Vcurve2*volMean*Volumefactor2); 
vp2 		= 	(volAvg + Vcurve*volMean*Volumefactor2); 
vp3 		= 	(volAvg + Vcurve3*volMean*Volumefactor); 
vp4		= 	(volAvg + Vcurve4*volMean*Volumefactor); 

ultraHighVolume =V>vp4;
VeryhighVolume =V>vp3 AND V<vp4;
highvolume =V>vp2 AND V<vp3;
averagevolume =V>Vp1 AND V>Volavg AND V<vp2;
lowvolume2 = V<volavg;


    Plot( MA( Volume,VLP), "MAV", colorLightBlue);
   
    Plot(V,"V",Color22, styleNoTitle|styleThick|
    ParamStyle( "VStyle", styleHistogram, maskHistogram)  );

PlotOHLC (vp1,vp1,vp2,vp2,"vp1-vp2", ParamColor("color1",colorYellow), styleCloud);
PlotOHLC (vp3,vp3,vp4,vp4,"vp3-vp4", ParamColor("color2",colorPink) , styleCloud);
Title=("\n Volume: ")+WriteIf(ultraHighVolume,EncodeColor(colorLime)+"ultra High",WriteIf(veryhighvolume,EncodeColor(colorLime)+"very High",WriteIf(highVolume,EncodeColor(colorLime)+"High",
WriteIf(averagevolume ,EncodeColor(colorRed)+"Average",WriteIf(lowVolume2,EncodeColor(colorRed)+"Low","Very Low")))));