关于matlab画十字坐标

mudan

今天忽然想到如何用matlab画十字坐标，不过句柄方面确实用的不熟，便从网上找到一段程序，经测试可用，如果使用时不想有边框，可再加上axis off和box off两条语句，程序源出处是http://www.ilovematlab.cn/viewth...p;extra=&page=9

1. function plot_to_center(x,y,Xticks,Yticks)
   1 H  X7 [& l% u\" m5 V) K
2. if nargin~=2 & nargin~=4 %输入不满足要求则报错
   1 z, e8 `2 k2 l$ O$ ^' z
3. error('??? 输入参数个数不对');
   # X+ f+ k# t5 C5 }$ _8 H
4. return;
   9 W1 C# X) B\" v7 l* V& G& e
5. end6 }; _2 N' {; V! }9 e% Z) J
   
6. figure;, ?% j( g6 \6 L0 J) D- E3 b9 l
   
7. plot(x,y)! ~5 J. H, [! d! D/ v
   
8. set(gca,'xticklabel',[])%不显示x标注1 |& I2 [, q% ^6 G
   
9. set(gca,'yticklabel',[])%不显示y标注
   1 {0 v$ p3 B8 ]( d0 O
10. c=get(gca,'color'); %获取axes背景色0 l  J1 y  x) h/ ~! W/ R) @
    
11. % set(gca,'xcolor',c,'ycolor',c) %设置标注杠颜色
    1 v! v- g2 C4 P4 v\" l2 E
12. grid on %加上网格
    - e) x' V+ Z  }4 Q# k
13. if nargin==4* H1 A- y) p0 E, P# _8 W+ G% I
    
14. set(gca,'Xtick',Xticks); %设置Xtick
    ! R: C6 t: o2 O3 m/ ^1 V* s6 X
15. set(gca,'Ytick',Yticks); %设置Xtick
    & R0 |% X, Q0 U8 ?! C5 o# @% @
16. xlim([Xticks(1),Xticks(end)]); %设置x范围
    6 v8 d$ E6 v2 K
17. ylim([Yticks(1),Yticks(end)]); %设置y范围' Z3 H+ p. a/ P& _: i
    
18. end+ c- S, `4 x! `6 S; W/ C
    
19. x=get(gca,'XTick'); %获取Xtick
    . n5 b* o) N8 M7 _1 {/ f
20. y=get(gca,'YTick'); %获取Ytick+ T, V1 ^\" Q; \\" K
    
21. xL=xlim; %获取X范围
    : U% T. {\" b, y# v6 X0 f
22. yL=ylim; %获取Y范围% h0 y+ U5 f/ z8 N- _2 c$ O% x
    
23. xcenter=mean(xL); %X中心
    1 Y' L3 i9 F8 C6 J5 `
24. ycenter=mean(yL); %Y中心. z7 ^! m3 @% P7 y
    
25. xrank=xL(2)-xL(1); %x跨度$ H: s! C* D. b: p6 K- y2 O+ N/ s
    
26. yrank=yL(2)-yL(1); %y跨度
    # K7 z6 h\" ^6 u
27. hold on;
    3 Z: E1 C6 J% B+ [' s2 i
28. plot(x,ycenter*ones(size(x)),'k',xcenter*ones(size(y)),y,'k') %画坐标轴/ e, _# I8 c; z( `& I
    
29. ax=[max(x),max(x)-0.02*xrank,max(x)-0.02*xrank;...
    6 K! I& `; E! o) ?5 I6 Q
30. ycenter,ycenter+0.01*yrank,ycenter-0.01*yrank]; ( N, a4 g  {: B' S
    
31. fill(ax(1,:),ax(2,:),'k'); %画x箭头
    / u& h; h/ F8 e( T2 U: @  @
32. ay=[xcenter,xcenter+0.0065*xrank,xcenter-0.0065*xrank;...
    7 d: Y8 y* H! n9 x9 s; I% N! q* [
33. max(y),max(y)-0.03*yrank,max(y)-0.03*yrank];& L0 g\" h' q, j$ Z
    
34. fill(ay(1,:),ay(2,:),'k'); %画y箭头\" c( }  Q. _( S7 j. F
    
35. Lx=length(x); %x的长度
    - f. @( L8 ]0 ?1 v
36. plot(repmat(x(1,2:end-1)',1,11)',repmat(ycenter:0.002*yrank:...
    - a9 Q# q) Z8 M5 ~( N( p
37. ycenter+0.02*yrank,Lx-2,1)','k') %画x标注杠7 o) }6 ?$ O# ^6 k2 [$ L
    
38. Ly=length(y);# O, l1 b! O4 w' z
    
39. plot(repmat(xcenter:0.002*xrank:xcenter+0.02*xrank,Ly-2,1)',...
    ( U; |7 H\" d\" V, `6 m! I4 G
40. repmat(y(1,2:end-1)',1,11)','k') %画y标注杠
    7 f4 w1 `$ T- Z  t7 }% Y) a; {
41. for i=1:Lx( w! E) q2 U2 S: t: I. O  e' X
    
42. text(x(i),(ycenter-0.03*yrank),num2str(x(i))); %x标注
    7 k\" F2 [/ {( g- D
43. end! d  C( q7 g3 x( `) u( u
    
44. for i=1:Ly
    ! h+ L! ?, A. U' Y. s7 L
45. text(xcenter-0.05*xrank,y(i),num2str(y(i))); %y标注
    : F, [8 f9 \9 a' {8 S
46. end7 \2 Z2 E( {6 Q5 b- i\" E
    
47. hold off;0 ]* L6 L* ~; }: y7 q
    

复制代码