1 | function [ xti_str, yti_str] = contlab(xti, yti) |
---|
2 | % |
---|
3 | %------------------------------------------------------------------------ |
---|
4 | % function [ xti_str yti_str] = contlab(xti, yti) |
---|
5 | % |
---|
6 | % fonction pour labels et ticks sur les axes longitude et latitude |
---|
7 | % longitude --> xti tableau defini par lon0:pas:lon1; |
---|
8 | % latitude --> yti tableau defini par lat0:pas:lat1; |
---|
9 | % |
---|
10 | % 24/10/96 - EK |
---|
11 | %------------------------------------------------------------------------ |
---|
12 | |
---|
13 | % Tick labels pour longitude |
---|
14 | set(gca, 'Xticklabel', xti); |
---|
15 | xlab = get(gca, 'Xticklabel'); |
---|
16 | [mxlab nxlab] = size(xlab); |
---|
17 | nxlab_str = int2str(nxlab); |
---|
18 | %xti_str = zeros(mxlab, nxlab+1); |
---|
19 | for iti = 1:mxlab |
---|
20 | xxx = rem(str2num(xlab(iti,:))+540, 360)-180; |
---|
21 | if (xxx<0), xti_str(iti,:) = sprintf(['%' nxlab_str '.0fW'],abs(xxx)); |
---|
22 | elseif (xxx>0) ... |
---|
23 | xti_str(iti,:)=sprintf(['%' nxlab_str '.0fE'],(xxx)); |
---|
24 | else xti_str(iti,:)=sprintf(['%' nxlab_str '.0f '],(xxx)); |
---|
25 | end; |
---|
26 | end; |
---|
27 | |
---|
28 | % Tick labels pour latitude |
---|
29 | set(gca, 'Yticklabel', yti); |
---|
30 | ylab = get(gca, 'Yticklabel'); |
---|
31 | [mylab nylab] = size(ylab); |
---|
32 | nylab_str = int2str(nylab); |
---|
33 | %yti_str = zeros(mylab, nylab+1); |
---|
34 | for iti = 1:mylab |
---|
35 | yyy = str2num(ylab(iti,:)); |
---|
36 | if (yyy<0), yti_str(iti,:)=sprintf(['%' nylab_str '.0fS'],abs(yyy)); |
---|
37 | elseif (yyy>0) ... |
---|
38 | yti_str(iti,:)=sprintf(['%' nylab_str '.0fN'],(yyy)); |
---|
39 | else yti_str(iti,:)=sprintf(['%' nylab_str '.0f '],(yyy)); |
---|
40 | end; |
---|
41 | end; |
---|
42 | |
---|
43 | return |
---|