改变grid颜色/线宽的函数

yejet

function gridcolor(xc,yc);
% GRIDCOLOR change the color of the axes
% xc is the color of x-axes direction
% yc is the color of y-axes direction
% Example:
% plot(1:10); grid on; gridcolor('r','b');
% Author's email:zjliu2001@163.com
% See also grid,plot,title,xlabel.
if nargin==0, xc='k';yc='k';
elseif nargin==1; yc=xc;
   if ~strcmp('char',class(xc)); error('the class of xc must char!'); end
elseif nargin==2;
   if ~strcmp('char',class(xc)); error('the class of xc must char!'); end
   if ~strcmp('char',class(yc)); error('the class of yc must char!'); end
elseif nargin==3;
   error('this program is applied to 2-D axes!');
end
xs=get(gca,'xgrid'); ys=get(gca,'ygrid');
if strcmp(xs,'on')
   hold on; set(gca,'xgrid','off'); changeC(xc,'x'); hold off;
end
if strcmp(ys,'on')
   hold on; set(gca,'ygrid','off'); changeC(yc,'y'); hold off;
end

function changeC(zc,ss);
if ss~='x' & ss~='y', error('ss must "x" or "y"!'); end
S=[ss,'tick']; Da=get(gca,S); Li=get(gca,[ss,'lim']);
if ss=='x'
   for k=2:length(Da)-1, plot([Da(k),Da(k)],Li,':','color',zc); end
else
   for k=2:length(Da)-1, plot(Li,[Da(k),Da(k)],':','color',zc); end
end

[ 本帖最后由 ChaChing 于 2010-2-12 10:42 编辑 ]

yejet

在紫丁香站发现有人提出这个问题，zjliu 使用plot函数栽了一个小函数，来实现改变grid线宽。程序如下:
function [hx,hy]=gridxy(linewidth,xy);
% GRIDXY add grid to the axes
% linewidth is the width of grid's line;
% xy defines grid's direction
% Example:
% plot(1:10); [hx,hy]=gridxy([2,1],'xy');
% Author's email:zjliu2001@163.com
% See also grid,plot,gca
xk=get(gca,'xtick'); yk=get(gca,'ytick'); xl=xlim; yl=ylim; hold on;
if nargin==1, xy='x'; end
if xy=='x', hx=plotx(xk,xl,yl,linewidth(1)); hy=[];
elseif xy=='y'; hy=ploty(yk,xl,yl,linewidth(end)); hx=[];
else hx=plotx(xk,xl,yl,linewidth(1)); hy=ploty(yk,xl,yl,linewidth(end));
end
hold off;
function H=plotx(xk,xl,yl,linewidth);
H=[];
for k=1:length(xk); if xk(k)~=xl(1)&xk(k)~=xl(end);
   h=plot([xk(k),xk(k)],yl,'k:','linewidth',linewidth); H=[H,h];
end; end
function H=ploty(yk,xl,yl,linewidth);
H=[];
for k=1:length(yk); if yk(k)~=yl(1)&yk(k)~=yl(end);
   h=plot(xl,[yk(k),yk(k)],'k:','linewidth',linewidth); H=[H,h];
end; end



[ 本帖最后由 ChaChing 于 2010-2-12 13:43 编辑 ]

ChaChing

整理下老帖, 顺便修改练习下!

1. 
   
2. function GridColor(xc,yc)
   
3. % GRIDCOLOR change the color of the axes
   
4. % xc/yc is the color of x/y-axes direction
   
5. % Example: plot(1:10); grid on; GridColor('r','b');
   
6. if nargin==0, xc='k';yc='k';
   
7. elseif nargin==1, yc=xc;
   
8.    if ~ischar(xc), error('the class of xc must char!'); end
   
9. elseif nargin==2,
   
10.    if ~ischar(xc), error('the class of xc must char!'); end
    
11.    if ~ischar(yc), error('the class of yc must char!'); end
    
12. else error('this program is applied to 2-D axes!'); end
    
13. hold on; set(gca,'xgrid','off'); set(gca,'ygrid','off');
    
14. changeC(xc,'x'); changeC(yc,'y'); hold off;
    
15. function changeC(zc,ss)
    
16. if ss~='x' & ss~='y', error('ss must "x" or "y"!'); end
    
17. S=[ss,'tick']; Da=get(gca,S); Li=get(gca,[ss,'lim']);
    
18. if ss=='x'
    
19.    for k=2:length(Da)-1, plot([Da(k),Da(k)],Li,':','color',zc); end
    
20. else
    
21.    for k=2:length(Da)-1, plot(Li,[Da(k),Da(k)],':','color',zc); end
    
22. end
    

复制代码

1. 
   
2. function [hx,hy]=GridXY(linewidth,xy)
   
3. % GRIDXY add grid to the axes
   
4. % linewidth is the width of grid's line; xy defines grid's direction
   
5. % Example: plot(1:10); [hx,hy]=GridXY([2,1],'xy');
   
6. xk=get(gca,'xtick'); yk=get(gca,'ytick'); xl=xlim; yl=ylim; hold on;
   
7. if nargin==1, xy='x'; end
   
8. if xy=='x', hx=plotx(xk,xl,yl,linewidth(1)); hy=[];
   
9. elseif xy=='y', hy=ploty(yk,xl,yl,linewidth(end)); hx=[];
   
10. else hx=plotx(xk,xl,yl,linewidth(1)); hy=ploty(yk,xl,yl,linewidth(end));
    
11. end; hold off;
    
12. function H=plotx(xk,xl,yl,linewidth)
    
13. H=[];
    
14. for k=1:length(xk), if xk(k)~=xl(1) & xk(k)~=xl(end),
    
15.    h=plot([xk(k),xk(k)],yl,'k:','linewidth',linewidth); H=[H,h];
    
16. end; end
    
17. function H=ploty(yk,xl,yl,linewidth)
    
18. H=[];
    
19. for k=1:length(yk), if yk(k)~=yl(1) & yk(k)~=yl(end),
    
20.    h=plot(xl,[yk(k),yk(k)],'k:','linewidth',linewidth); H=[H,h];
    
21. end; end
    
22. 
    

复制代码

penghust

我现在需要设置 Box 'LineWidth=1.5' ；  Grid 'LineWidth=0.5'
e=[0.3759    0.1078    0.0066    0.0032   0.0023]; n=[16    25    36    81   121];
plot(n,e); [hx,hy]=gridxy([1,1],'xy');

用这种方法得出的图像，在线性坐标下，可以在图像属性里任意设置 Box 的线宽。 但是如果我把坐标轴都改成对数坐标，所有的grid 都自动消失了？
再次在图像属性里添加 X 和Y 方向的Grid ，则不能单独设置Grid 线宽。 不知道大家能不能帮忙找一下原因！ 谢谢各位！

我需要如下图形

Box 线宽1.5和 Grid 线宽0.5

[ 本帖最后由 ChaChing 于 2010-3-28 21:40 编辑 ]

ChaChing

试了下, 没问题!? LS怎调用函数? 出错代码?

penghust

运行过程没有错误, 运行如下程序
e=[0.3759    0.1078    0.0066    0.0032   0.0023]; n=[16    25    36    81   121];
plot(n,e); [hx,hy]=gridxy([1,1],'xy');
得到的图像为线性坐标，X,Y方向Grid 线宽为 1，1
-----打开 'Proparty editor‘--axas'----
'X Axis' -- 'X Scale' 设为log---然后Y方向 Grid 自动消失
'Y Axis' -- 'Y Scale' 设为log---然后X方向 Grid 自动消失
然后打开 ‘More Properties’----- 'LineWidth'----设置为'1.5'－－XGrid on--YGrid on
－－得到的 X,Y方向Grid 线宽自动设置为 '1.5‘

[ 本帖最后由 ChaChing 于 2010-3-28 21:44 编辑 ]

penghust

发现一个有趣的现象，运行3楼例子
Example: plot(1:10); [hx,hy]=GridXY([0.5,0.5],'xy');
然后将
'X Axis' -- 'X Scale' 设为log
'Y Axis' -- 'Y Scale' 设为log
X,Y方向Grid 并未消失
打开 ‘More Properties’----- 'LineWidth'----设置为'1.5'，此时Box 线宽变为 1.5
X,Y方向Grid 线宽并未改变，仍然为0.5.

如果再运行
Example:  plot(1:20);      [ hx,hy]=GridXY([0.5,0.5],'xy');
然后将X,Y 坐标轴改为 对数坐标，在6楼所描述的现象再次出现。

ChaChing

昨天我是这样用
e=[0.3759    0.1078    0.0066    0.0032   0.0023];
n=[16    25    36    81   121];
loglog(n,e); [hx,hy]=gridxy([2,2],'xy');
个人很少使用那些面板(旧版没这些功能), LZ说的正在看看中!

[ 本帖最后由 ChaChing 于 2010-3-28 21:38 编辑 ]

penghust

对上面的程序做了简单修改，现在可以实现任意设置 Box 和 Grid 线宽
e=[0.3759    0.1078    0.0066    0.0032   0.0023];
n=[16    25    36    81   121];
loglog(n,e); [hx,hy]=gridxy([0.5,0.5],'xy');

function [hx,hy]=gridxy(linewidth,xy)
% GRIDXY add grid to the axes
% linewidth is the width of grid's line; xy defines grid's direction
% Example: plot(1:10); [hx,hy]=gridxy([2,1],'xy');
xk=get(gca,'xtick'); yk=get(gca,'ytick'); xl=xlim; yl=ylim; hold on;
if nargin==1, xy='x'; end
if xy=='x', hx=plotx(xk,xl,yl,linewidth(1)); hy=[];
elseif xy=='y', hy=ploty(yk,xl,yl,linewidth(end)); hx=[];
else hx=plotx(xk,xl,yl,linewidth(1)); hy=ploty(yk,xl,yl,linewidth(end));
end; hold off;
function H=plotx(xk,xl,yl,linewidth)
H=[];
for k=1:length(xk), if xk(k)~=xl(1)                            %在此处做了修改
   mxk=xk(k-1):xk(k-1):xk(k);                                   %在相隔的两个刻度之间设置细分刻度 MiniGrid
   for kk=1:length(mxk)                                                
       h=plot([mxk(kk),mxk(kk)],yl,'k:','linewidth',linewidth); H=[H,h];   
   end                                                                     
end; end
function H=ploty(yk,xl,yl,linewidth)
H=[];
for k=1:length(yk), if yk(k)~=yl(1)                            %在此处做了修改
    myk=yk(k-1):yk(k-1):yk(k);                                  %在相隔的两个刻度之间设置细分刻度 MiniGrid
   for kk=1:length(myk)                                                   
       h=plot(xl,[myk(kk),myk(kk)],'k:','linewidth',linewidth); H=[H,h];   
   end                                                                     
end; end

通过上面的程序，可以实现对 Grid 设置线宽，线型。修改了1楼的程序，可以实现在相隔刻度之间，设置细分刻度的功能。
谢谢 ChaChing的帮助:handshake

penghust

ChaChing
你对句柄图形有研究没？
或者对句柄图形有研究的版内兄弟一起讨论一下。
是否可通过 get() ,  set()  对句柄图形对象进行设置？
关键是能否通过 get() 分别得到 Box 和 Grid 的句柄？？
然后对 Box 和 Grid 的线宽进行单独设置？

rocwoods

box和grid都是axes的属性，它和坐标轴是一体的，而非父子对象关系。grid 和box都和坐标轴连在一起了，硬要设置属性改动的话，坐标轴也会跟着改。譬如下面的代码：

1. 
   
2. plot(rand(100,1),rand(100,1),'*','color','k')
   
3. grid on
   
4. set(gca,'xcolor','r');
   
5. set(gca,'ycolor','b');
   
6. set(gca,'linewidth',5);
   

复制代码

得到下面图形：

ChaChing

help中有 Handle Graphics Property Browser!
好多可以更改!