got from some other forum
_SECTION_BEGIN("Background_Setting");
SetChartBkGradientFill( ParamColor("BgTop",colorBlack),
ParamColor("BgBottom",colorBlack),ParamColor("titleblock",colorDarkTeal ));
_SECTION_END();
_SECTION_BEGIN("Flower");
Title = StrFormat("\\c02 {{NAME}} | {{DATE}} | Open : %g | High : %g | Low : %g | Close : %g | Change = %.1f%% | Volume = " +WriteVal( V, 1.0 ) +" {{VALUES}}",O, H, L, C, SelectedValue( ROC( C, 1 )) );
_SECTION_END();
_SECTION_BEGIN("Sup/Res Detail");
SupResPeriod = Param("LookBack Period", 50, 0, 200,1);
SupResPercentage = Param("Percentage", 100, 0, 200,1);
PricePeriod = Param("Price Period", 16, 0, 200,1);
SupportLinecolor = ParamColor( "Support Color", colorGreen );
SupportLinestyle = ParamStyle("Support Style", styleThick|8|styleNoLabel);
ResistanceLinecolor = ParamColor( "Resistance Color", colorRed );
Resistancestyle = ParamStyle("Resistance Style", styleThick|8|styleNoLabel);
_SECTION_END();
_SECTION_BEGIN("Line Detail");
OverBought = Param("OverBought Above", 200, 0, 400,1);
OverSold = Param("OverSold Bellow", -200, -400, 0,1);
_SECTION_END();
_SECTION_BEGIN("Trend Bought/Sold Detail");
Smoother = Param("Trend Smoother", 5, 5, 20);
upcolor = ParamColor( "UpTrend Color", colorGreen );
Downcolor = ParamColor( "DownTrend Color", colorRed );
_SECTION_END();
_SECTION_BEGIN("Circle Detail");
Warningcolor = ParamColor( "Warning/Watch Signal", colorYellow );
WatchColor = ParamColor( "Accumulation Zone", colorWhite );
EntryColor = ParamColor( "Entry Signal", colorAqua );
ProfitTakeColor = ParamColor( "Distribution Zone", colorYellow );
ExitColor = ParamColor( "Exit Signal", colorRed );
_SECTION_END();
_SECTION_BEGIN("Swing Sup/Res");
Lookback=SupResPeriod;
PerCent=SupResPercentage;
Pds =PricePeriod;
Var=MACD();
Up=IIf(Var>Ref(Var,-1),abs(Var-Ref(Var,-1)),0);
Dn=IIf(Var<Ref(Var,-1),abs(Var-Ref(Var,-1)),0);
Ut=Wilders(Up,Pds);
Dt=Wilders(Dn,Pds);
RSIt=100*(Ut/(Ut+Dt));
A1=RSIt; B2=RSI(pds); C3=CCI(pds); D4=StochK(pds); E5=StochD(pds);
F6=MFI(pds); G7=Ultimate(pds); H8=ROC(C,pds);
Osc=C3;
Value1 = Osc;
Value2 = HHV(Value1,Lookback);
Value3 = LLV(Value1,Lookback);
Value4 = Value2 - Value3;
Value5 = Value4 * (PerCent / 100);
ResistanceLine = Value3 + Value5;
SupportLine = Value2 - Value5;
baseline=IIf( Osc < 100 AND Osc > 10 ,50 ,IIf( Osc < 0 ,0,0));
Plot(ResistanceLine,"",SupportLinecolor,SupportLinestyle);
Plot(SupportLine,"",ResistanceLinecolor,Resistancestyle);
_SECTION_END();
_SECTION_BEGIN("Entry/Exit Detail");
n=Smoother;
ys1=(High+Low+Close*2)/4;
rk3=EMA(ys1,n);
rk4=StDev(ys1,n);
rk5=(ys1-rk3)*200/rk4;
rk6=EMA(rk5,n);
UP=EMA(rk6,n);
DOWN=EMA(up,n);
Oo=IIf(up<down,up,down);
Hh=Oo;
Ll=IIf(up<down,down,up);
Cc=Ll;
barcolor2=IIf(Ref(oo,-1)<Oo AND Cc<Ref(Cc,-1),upcolor,IIf(up>down,upcolor,downcolor));
SetBarFillColor( barcolor2);
PlotOHLC( Oo,hh,ll,Cc, "Matrix - Accumulation or Bought/Distribution or Sold", barcolor2, styleCandle);
Buy=Cross(up,OverSold);
Sell=Cross(OverBought,up);
PlotShapes (IIf(Buy, shapeSmallCircle, shapeNone) ,EntryColor, layer = 0, yposition = -220, offset = 1 );
PlotShapes (IIf(Sell, shapeSmallCircle, shapeNone) ,ExitColor, layer = 0, yposition = 220, offset = 1 );
Buy=IIf(Ref(oo,-1)<Oo AND Cc<Ref(Cc,-1),1,IIf(up>down,1,0));
Short = barcolor2=IIf(Ref(oo,-1)<Oo AND Cc<Ref(Cc,-1),0,IIf(up>down,0,1));
Buy = ExRem(Buy ,Short);
Short = ExRem(Short,Buy);
PlotShapes(Buy * shapeUpArrow , colorRed,0,Ll-25);
PlotShapes(Short * shapeDownArrow , colorLime,0,Hh+25);
pd=Param("Pd",2,1,10);
Plot(Ref(MA(Hh,pd),-1),"",colorGreen,styleThick,styleNoLabel);
Plot(MA(Ll,pd),"",colorRed,styleThick,styleNoLabel);
x=(Hh+Ll)/2;
_SECTION_END();
_SECTION_BEGIN("Overbought/Oversold/Warning Detail");
n=Smoother;
ys1=(High+Low+Close*2)/4;
rk3=EMA(ys1,n);
rk4=StDev(ys1,n);
rk5=(ys1-rk3)*210/rk4;
rk6=EMA(rk5,n);
UP=EMA(rk6,n);
DOWN=EMA(up,n);
Oo=IIf(up<down,up,down);
Hh=Oo;
Ll=IIf(up<down,down,up);
Cc=Ll;
barcolor2=IIf(Ref(oo,-1)<Oo AND Cc<Ref(Cc,-1),colorGreen,IIf(up>down,colorGreen,colorRed));
UP=EMA(rk6,n);
UPshape = IIf(UP >= OverBought OR UP<=OverSold, shapeHollowSmallCircle, shapeNone);
UPColor = IIf(UP>=210, ProfitTakeColor, IIf(UP<=-210, WatchColor, Warningcolor));
Plot(UP, "", colorGrey50, styleThick|stylehidden);
PlotShapes(UPShape, UPColor, 0, UP, 0);
_SECTION_END();
_SECTION_BEGIN("Plot Lines");
Plot(OverBought,"",colorWhite,styleLine|styleNoLabel);
Plot(0,"",colorWhite,styleDashed|styleNoLabel);
Plot(OverSold,"",colorWhite,styleLine|styleNoLabel);
_SECTION_END();
GraphXSpace =10;