第利用Matlab繪制優(yōu)美的k線圖set(fig,'Units','normalized','Position',[.1,.1,.6,.8])

ax=gca;holdon;axistight;gridoff

YLim=ax.YLim;

ax.YLim=ax.YLim+[-3,6].*diff(YLim);

YLim=ax.YLim;

XLim=ax.XLim;

ax.PlotBoxAspectRatio=[1,1,1];

ax.Color=[0,0,0]./255;

ax.TickLength=[0,0];

maxY=YLim(1)+diff(YLim)*2.5/10;

minY=YLim(1)+diff(YLim)*1.5/10;

%繪制星星=================================================================

Xs=diff(XLim).*rand([50,1])+XLim(1);

Ys=(YLim(2)-maxY).*rand([50,1])+maxY;

scatter(Xs,Ys,3,'filled','CData',[.9,.9,.9]);

Xs=diff(XLim).*rand([50,1])+XLim(1);

Ys=(YLim(2)-maxY).*rand([50,1])+maxY;

scatter(Xs,Ys,5,'filled','CData',[.7,.7,.7]);

%修改蠟燭圖配色===========================================================

rColor=[255,255,255]./255;

gColor=[9,28,48]./255;

%獲取豎直線數(shù)據(jù)

LineHdl=CHdl(1);

LineDataX=reshape(LineHdl.XData,3,[]);

ax.XLim=[LineDataX(1,1),LineDataX(1,end)];

LineDataY=reshape(LineHdl.YData,3,[]);

scatter(XLim(1)+diff(XLim)/6,YLim(2)-diff(YLim)/8,500,'filled','CData',[254,247,241]./255)

fill([XLim(1)-3,XLim(2)+3,XLim(2)+3,XLim(1)-3],[YLim(1),YLim(1),minY,minY],[255,255,255]./255,'EdgeColor','none')

fill([LineDataX(1,1)-3,LineDataX(1,1)-3,LineDataX(1,:),LineDataX(1,end)+3,LineDataX(1,end)+3],...

[minY,LineDataY(1,1),LineDataY(1,:),LineDataY(1,end),minY],[255,255,255]./270);

fori=2:length(CHdl)

ifCHdl(i).FaceColor(1)==1

plot(LineDataX(:,i-1),LineDataY(:,i-1),'Color',rColor)

fill(CHdl(i).XData,CHdl(i).YData,rColor,'EdgeColor',rColor)

else

plot(LineDataX(:,i-1),LineDataY(:,i-1),'Color',gColor)

fill(CHdl(i).XData,CHdl(i).YData,gColor,'EdgeColor',gColor)

delete(LineHdl);

%繪制柱狀圖===============================================================

YData=Data.Close-Data.Open;

absYData=abs(YData);

absYData1=absYData./(max(absYData)-min(absYData)).*(maxY-minY)+minY;

absYData2=-absYData./(max(absYData)-min(absYData)).*(maxY-minY)+minY;

disp(char([64971171161041111143258321151089711010097114101114]))

bar(Data.Time(YData0),absYData1(YData0),'BaseValue',minY,'EdgeColor','none','FaceColor',[10,10,10]./255,'BarWidth',1);

bar(Data.Ti