Dear Sir
im giving u the code of the top(candlestick) chart and the bottom1
plz modify the colors and make them like the picture...thanks....
candlestick chart
//Copyright 9Trading.com
SetChartOptions(0,chartShowArrows|chartShowDates);
_N(Title = StrFormat("{{NAME}} - {{INTERVAL}} {{DATE}} Open %g,Hi %g,Lo %g, Close %g (%.1f%%)
Vol " +WriteVal( V, 1.0 ) +" {{VALUES}}", O, H, L, C, SelectedValue( ROC( C, 1 )) ));
xClose = EMA((Open+High+Low+Close)/4,3) ;
xOpen = EMA((Ref(Open,-1) + Ref(xClose,-1))/2,3);
Temp = Max(High, xOpen);
xHigh = EMA(Max(Temp, xClose),3);
Temp = Min(Low,XOpen);
xLow = EMA(Min(Temp, xClose),3);
barcolor =IIf(xOpen<xClose, ParamColor("Up candlestick", colorBrightGreen ), ParamColor("Down candlestick", colorOrange ));
PlotOHLC( IIf(xOpen<xclose, xopen, xclose),xHigh,xLow,IIf(xOpen<xclose, xclose, xopen), "Close", barColor );
m = Param("Periods", 20, 10,30, 1 );
n = Param("Average", 5, 3, 10, 1 );
p= Param("Ratio", 1.5, 0.1, 2, 0.2 );
x1=Ref(C,-1);
//x2=WMA(Max(C-x1,0),n)/WMA(abs(C-x1),n)*100;
x3=((3*WMA((C-LLV(L,m))/(HHV(H,m)-LLV(L,m))*100,5)-
2*WMA(WMA((C-LLV(L,m))/(HHV(H,m)-LLV(L,m))*100,5),3)-50)*p+50);
x4=(x3+x3)/2;
x5=WMA(C+(x4/50-1)*(MA(C,30)/20)*p,3);
x6=EMA(EMA(x5,3),3);
Plot(x6, "Yellow",colorYellow, 1);
n1=n;
n2=2*n1;
n3=2*n1;
m=n1;
Var1=Ref(Close,-1);
Var3=WMA(Max(Close-Var1,0),n1)/WMA(abs(Close-Var1),n1)*100;
Var4=WMA(Max(Close-Var1,0),n2)/WMA(abs(Close-Var1),n2)*100;
Var5=WMA(Max(Close-Var1,0),n3)/WMA(abs(Close-Var1),n3)*100;
Var6=IIf(Cross(Var3,Var5),Low,Ref(Low,-BarsSince(Cross(Var3,Var5))));
Var7=IIf(Cross(Var5,Var3),High,Ref(High,-BarsSince(Cross(Var5,Var3))));
Var8=IIf(Close>=MA(Close,m),80,50);
Var9=IIf(Close>=MA(Close,m),50,20);
VarA=IIf(Var3<Var8 AND Ref(Var3,-1)>=Var8,HHV(Ref(High,-1),BarsSince(Var3>=Var8 AND Ref(Var3,-1)<Var8)-1),
Ref(HHV(Ref(High,-1),BarsSince(Var3>=Var8 AND Ref(Var3,-1)<Var8)-1), -BarsSince(Var3<Var8 AND Ref(Var3,-1))));
VarB=IIf(High>VarA,Low,Ref(Low,-BarsSince(High>VarA)));
VarC=IIf(High>VarA,Var3,Ref(Var3,-BarsSince(High>VarA)));
VarD=IIf(High>VarB AND Var3<VarC AND Var3<Var5,High,Ref(High,-BarsSince(High>VarB AND Var3<VarC AND Var3<Var5)));
VarE=IIf(Var3>Var9 AND Ref(Var3,-1)<=Var9,LLV(Ref(Low,-1),BarsSince(Var3<=Var9 AND Ref(Var3,-1)>Var9)-1),
Ref(LLV(Ref(Low,-1),BarsSince(Var3<=Var9 AND Ref(Var3,-1)>Var9)-1),-BarsSince(Var3>Var9 AND Ref(Var3,-1))));
VarF=IIf(Low<VarE,High,Ref(High,-BarsSince(Low<VarE)));
Var10=IIf(Low<VarE,Var3,Ref(Var3,-BarsSince(Low<VarE)));
Var11=IIf(Low<VarF AND Var3>Var10 AND Var3>Var5,Low,Ref(Low,-BarsSince(Low<VarF AND Var3>Var10 AND Var3>Var5)));
sup=Var11;
pres= VarD;
ave=(pres+sup)/2;
Plot(sup,"Support",6,1);
Plot(pres,"Press",11,1);
Buy = (x6>Ref(x6,-1) AND (Cross(x6,sup) OR ( x6>Ref(x6,-1) AND Ref(x6,-1)<Ref(x6,-2) AND x6<ave)));
Sell= x6<Ref(x6,-1) AND (Cross(pres,x6 ) OR ( x6<Ref(x6,-1) AND Ref(x6,-1)>Ref(x6,-2) AND x6>ave));
PlotShapes( IIf( Buy, shapeHollowUpArrow, shapeNone ), 10, layer = 0, yposition = xlow, offset = -30 );
PlotShapes( IIf( Sell, shapeHollowDownArrow, shapeNone ), 13, layer = 0, yposition = xHigh, offset = -30 );
_SECTION_BEGIN("Volume");
Plot( Volume, "Volume", ParamColor("Color", colorLightGrey ), 2 | 32768 );
_SECTION_END();
_SECTION_BEGIN("Exploration");
pfrom = Param("Price From", 0, 0, 1000, 0.5 );
pto = Param("Price To", 1000, 0, 1000, 0.5 );
Minv = Param("Minimum Volume (K)", 500, 0, 1000, 50);
dd = Param("Decimal Digits", 1.2, 1, 1.7, 0.1 );
Filter = (Buy OR Sell) AND C>pfrom AND C<pto AND V>1000*Minv;
Color = IIf(Close>Open, colorGreen, colorRed);
bcolor = IIf(Buy, colorGreen, 1);
scolor = IIf(Sell, colorRed, 1);
AddColumn(Buy , "Buy" , 1.1, bcolor);
AddColumn(Sell , "Sell", 1.1, scolor);
AddColumn(O, "Open", dd, textColor = Color);
AddColumn(C, "Close", dd, textColor = Color);
AddColumn(sup, "Support", dd, textColor = Color);
AddColumn(pres, "Resistance", dd, textColor = Color);
AddColumn(V, "Volume", 1, textColor = Color);
AddTextColumn(FullName(),"Name");
_SECTION_END();
Bottom 1
_SECTION_BEGIN("Saturn");
//Copyright 9Trading.com
n=0;
Var1=HHV(High,9)-LLV(Low,9);
Var2=HHV(High,9)-Close;
Var3=Close-LLV(Low,9);
Var4=Var2/Var1*100-70;
Var5=(Close-LLV(Low,60))/(HHV(High,60)-LLV(Low,60))*100;
Var6=(2*Close+High+Low)/4;
Var7=WMA(Var3/Var1*100,3);
Var8=LLV(Low,34);
Var9=WMA(Var7,3)-WMA(Var4,9);
VarA=IIf(Var9>100,Var9-100,0);
VarB=HHV(High,34);
AA= VarA*2;
BB= EMA((Var6-Var8)/(VarB-Var8)*100,13);
VarC=EMA(0.667*Ref(BB,-1)+0.333*BB,2);
VAR1a=(HHV(High,9)-Close)/(HHV(High,9)-LLV(Low,9))*100-70;
VAR2a=WMA(VAR1a,9)+100;
VAR3a=(Close-LLV(Low,9))/(HHV(High,9)-LLV(Low,9))*100;
VAR4a=WMA(VAR3a,3);
VAR5a=WMA(VAR4a,3)+100;
VAR6a=VAR5a-VAR2a;
S= IIf(VAR6a>n,VAR6a-n,Var6a);
barcolor2=IIf(Ref(S,-1)<S, 8, colorRed);
Oo=IIf(Ref(S,-1)<s,Ref(s,-1),s);
Hh=Oo;
Ll=IIf(Ref(S,-1)>s,Ref(s,-1),s);
Cc=Ll;
PlotOHLC( Oo,hh,ll,Cc, "Modified", barcolor2, styleCandle );
_SECTION_END();
