Matlab画k线图

KLine.m

function KLine(varargin)
%% fun help
% function Kplot(O,H,L,C)
%          Kplot(O,H,L,C,date)
%          Kplot(O,H,L,C,date,colorUp,colorDown,colorLine)
%
%          Kplot(OHLC)
%          Kplot(OHLC,date)
%          Kplot(OHLC,date,colorUp,colorDown,colorLine)
%
%  KLine(OHLC, 0, 'r', 'g', 'w');
%%
isMat = size(varargin{1}, 2); %返回第一个参数的值的列数
indexShift = 0; %参数索引位置
useDate = 0; %是否使用

%提取OHLC
if isMat == 4,
    O = varargin{1}(:,1);
    H = varargin{1}(:,2);
    L = varargin{1}(:,3);
    C = varargin{1}(:,4);
else
    O = varargin{1};
    H = varargin{2};
    L = varargin{3};
    C = varargin{4};
    indexShift = 3;
end

%设置颜色的值
if nargin + isMat < 7
    colorDown = 'g'; 
    colorUp = 'r'; 
else
    colorUp = varargin{3+indexShift};
    colorDown = varargin{4+indexShift};
end

%设置Date值
if nargin + isMat < 6
    date = (1:length(O))';
else
    if varargin{2+indexShift} ~= 0
        date = varargin{2+indexShift};
        useDate = 1;
    else
        date = (1:length(O))';
    end
end

%设置宽度
w = .3 * min([(date(2)-date(1)) (date(3)-date(2))]);


d = C - O; %收盘价-开盘价

hold on


%画k线, 收盘价小于开盘价，跌
n = find(d < 0);
for i = 1:length(n)
    line([date(n(i)) date(n(i))], [L(n(i)) H(n(i))], 'Color', colorDown) %x1, x2, y1, y2
    x = [date(n(i))-w date(n(i))-w date(n(i))+w date(n(i))+w date(n(i))-w];
    y = [O(n(i))      C(n(i))      C(n(i))      O(n(i))      O(n(i))];
    fill(x, y, colorDown)
end

%画k线，收盘价大于开盘价，涨
n = find(d > 0);
for i = 1:length(n)
    line([date(n(i)) date(n(i))], [L(n(i)) H(n(i))], 'Color', colorUp) %x1, x2, y1, y2
    x=[date(n(i))-w date(n(i))-w date(n(i))+w date(n(i))+w date(n(i))-w];
    y=[O(n(i))      C(n(i))      C(n(i))      O(n(i))      O(n(i))];
    fill(x, y, colorUp)
end

%画k线，收盘价等于开盘价
n = find(d == 0);
for i = 1:length(n)
    line([date(n(i)) date(n(i))], [L(n(i)) H(n(i))], 'Color', 'w') %x1, x2, y1, y2
    x=[date(n(i))-w date(n(i))-w date(n(i))+w date(n(i))+w date(n(i))-w];
    y=[O(n(i))      C(n(i))      C(n(i))      O(n(i))      O(n(i))];
    fill(x, y, 'w')
end

hold off 

volume.m

function Volume(varargin)
%% fun help
% function Kplot(O,H,L,C)
%          Kplot(O,H,L,C,date)
%          Kplot(O,H,L,C,date,colorUp,colorDown,colorLine)
%
%          Kplot(OHLC)
%          Kplot(OHLC,date)
%          Kplot(OHLC,date,colorUp,colorDown,colorLine)
%
%  KLine(OHLC, 0, 'r', 'g', 'w');
%%
isMat = size(varargin{1}, 2); %返回第一个参数的值的列数
indexShift = 0; %参数索引位置
useDate = 0; %是否使用

%提取OHLC
if isMat == 6,
    O = varargin{1}(:,1);
    H = varargin{1}(:,2);
    L = varargin{1}(:,3);
    C = varargin{1}(:,4);
    V = varargin{1}(:,5);
else
    O = varargin{1};
    H = varargin{2};
    L = varargin{3};
    C = varargin{4};
    indexShift = 3;
end

%设置颜色的值
if nargin + isMat < 7
    colorDown = 'g'; 
    colorUp = 'r'; 
else
    colorUp = varargin{3+indexShift};
    colorDown = varargin{4+indexShift};
end

%设置Date值
if nargin + isMat < 6
    date = (1:length(O))';
else
    if varargin{2+indexShift} ~= 0
        date = varargin{2+indexShift};
        useDate = 1;
    else
        date = (1:length(O))';
    end
end

%设置宽度
w = .3 * min([(date(2)-date(1)) (date(3)-date(2))]);


d = C - O; %收盘价-开盘价

hold on


%画k线, 收盘价小于开盘价，跌
n = find(d < 0);
for i = 1:length(n)
    
    x = [date(n(i))-w date(n(i))-w date(n(i))+w date(n(i))+w];
    y = [0      V(n(i))      V(n(i))      0];
    fill(x, y, colorDown)
end

%画k线，收盘价大于开盘价，涨
n = find(d > 0);
for i = 1:length(n)
    
    x=[date(n(i))-w date(n(i))-w date(n(i))+w date(n(i))+w];
    y=[0      V(n(i))      V(n(i))      0];
    fill(x, y, colorUp)
end

%画k线，收盘价等于开盘价
n = find(d == 0);
for i = 1:length(n)
    
    x=[date(n(i))-w date(n(i))-w date(n(i))+w date(n(i))+w];
    y=[0      V(n(i))      V(n(i))      0];
    fill(x, y, 'w')
end

hold off

KLineDemo.m

%加载数据，改为从网上直接获取或者从通达信客户端
load IF-20120104.mat;
F = F(1:100, :);


%画k线
subplot(3, 1, [1,2]);
OHLC = F(:, 3:6);
KLine(OHLC, 0, 'r', 'g', 'w');
%xlim([1,length( OHLC )]);


%画坐标轴文本
XTick = [];
XTickLabel = [];
    
XTick = [XTick; 1];
str = [num2str(F(1,1)), '-', num2str(F(1,2))];
XTickLabel{numel(XTickLabel)+1, 1} = str;


%10:00
ind = find(F(:,2) == 1000, 1);
if ~isempty(ind)
    XTick = [XTick; ind ];
    str = [num2str(F(ind, 1)),'-',num2str(F(ind, 2))];
    XTickLabel{numel(XTickLabel)+1, 1} = str;
end    
    
%11:30
ind = find(F(:,2) == 1130, 1);
if ~isempty(ind)
    XTick = [XTick; ind ];
    str = [num2str(F(ind, 1)),'-',num2str(F(ind, 2))];
    XTickLabel{numel(XTickLabel)+1, 1} = str;
end


%14:00
ind = find(F(:,2) == 1400, 1);
if ~isempty(ind)
    XTick = [XTick; ind ];
    str = [num2str(F(ind, 1)),'-',num2str(F(ind, 2))];
    XTickLabel{numel(XTickLabel)+1, 1} = str;
end    
    
ind = length(F(:,1));
if XTick(end) ~= ind
    XTick = [XTick; ind ];
    str = [num2str(F(ind, 1)),'-',num2str(F(ind, 2))];
    XTickLabel{numel(XTickLabel)+1, 1} = str;
end    
set(gca,'XTick', XTick);
set(gca,'XTickLabel', XTickLabel);
title('IF20120104 1分钟K线图', 'FontWeight','Bold', 'FontSize', 15);
grid on


%画成交量
subplot(3, 1, 3);
OHLCV = F(:, 3:8);
Volume(OHLCV, 0, 'r', 'g', 'w');
%title('成交量', 'FontWeight','Bold', 'FontSize', 15);
%xlim([1,length( OHLC )]);    
%画坐标轴文本
set(gca,'XTick', XTick);
set(gca,'XTickLabel', XTickLabel);
grid on
   

要达到国内客户端软件的样式还有很多地方需要修改，会继续完善。