Патч с дыркой в ​​карте

Я хотел бы добиться следующего результата:

Карта исправлений

Как видите, я хотел бы залатать всю карту, за исключением области, образованной объединением маленьких кругов., которые происходят из местоположения A и местоположения B.

Места A и B имеют следующие координаты (выраженные в градусах):

% Coordinates.
A = [43.6350000000000, 1.36777777777778];
B = [52.7019444444445, -8.92472222222222];

Я получаю координаты маленьких кругов с помощью функции scircle1. Оба малых круга имеют радиус 654 морских мили:

% Small circles from center, range, and azimuth.
RangeNM = 654;
[latcA, loncA] = scircle1(A(1), A(2), RangeNM, [], earthRadius('nm'));
[latcB, loncB] = scircle1(B(1), B(2), RangeNM, [], earthRadius('nm'));

Внутренний контур патча — это периметр, образованный координатами союз обоих малых кругов. Я получаю координаты с помощью функции polybool:

% Set operations on polygonal regions.
[latU, lonU] = polybool('union', latcA, loncA, latcB, loncB);

Внешний контур участка — это периметр, образованный границами широты и долготы карты. Я использую getm для получения свойств MapLatLimit и MapLonLimit карты. Из рисунка выше мы можем предположить, что LatLim = [30, 70] (от 30° до 70° северной широты) и LonLim = [-30, 20] (от 30° западной долготы до 20° восточной долготы):

% Get Map Latitude and Longitude limit.
LatLim = getm(gca, 'MapLatLimit');
LonLim = getm(gca, 'MapLonLimit');

Наконец, я пытаюсь создать патч с помощью функции patchm, которая эквивалентна функции патча для карт. Вот тут у меня проблемы. Я пробовал три разных подхода, но ни один из них не удался:

% APPROACH 1
lat = {[LatLim(1) LatLim(2) LatLim(2) LatLim(1) LatLim(1)], latU};
lon = {[LonLim(1) LonLim(1) LonLim(2) LonLim(2) LonLim(1)], lonU};
% Compute face and vertex matrices.
[f, v] = poly2fv(lat, lon);
patchm('Faces', f, 'Vertices', v, 'FaceColor', [.5 .5 .5], 'FaceAlpha', 0.4); %Doesn't work

% APPROACH 2
lat = {[LatLim(1) LatLim(2) LatLim(2) LatLim(1) LatLim(1)], latU};
lon = {[LonLim(1) LonLim(1) LonLim(2) LonLim(2) LonLim(1)], lonU};
% Compute face and vertex matrices.
[f, v] = poly2fv(lat, lon);
patchm(v(:,1), v(:,2), 'FaceColor', [.5 .5 .5], 'FaceAlpha', 0.4); % Doesn't work

% APPROACH 3
lat = [latU', LatLim(1), LatLim(2), LatLim(2), LatLim(1), LatLim(1)];
lon = [lonU', LonLim(1), LonLim(1), LonLim(2), LonLim(2), LonLim(1)];
patchm(lat, lon, 'FaceColor', [.5 .5 .5], 'FaceAlpha', 0.4); % Doesn't work

Я был бы очень признателен за руку помощи.

Я нашел очень хороший пример исправления с дырами на странице документации poly2fv< /а> функция. Однако в примере используется стандартная функция patch с декартовыми координатами (x, y). Обратите внимание, что используется patch('Faces', f, 'Vertices', v,.... Я пытаюсь воспроизвести этот же пример, используя функцию patchm и географические координаты (широта, долгота).

Код:

Примечание. Для этого кода требуется Mapping Toolbox.

% Read vector features and attributes from shapefile.
landareas = shaperead('landareas.shp', 'UseGeoCoords', true);

% Define map axes and set map properties.
axesm ('lambert',...
    'MapLonLimit', [-30 20],...
    'MapLatLimit', [30 70],...
    'MapParallels', [38.00555556 71.01111111],...
    'Frame', 'on',...
    'FLineWidth', 1,...
    'Grid', 'on',...
    'GLineStyle', '-',...
    'GLineWidth', 0.1,...
    'GColor', [.7 .7 .7]);

% Display map latitude and longitude data.
geoshow(landareas, 'FaceColor', [1 1 .5], 'EdgeColor', [.3 .3 .3]);

% Toggle and control display of graticule lines.
gridm('MLineLocation', 5,...
    'MLabelLocation', 5,...
    'PLineLocation', 5,...
    'PLabelLocation', 5);

% Toggle and control display of meridian labels.
mlabel on;

% Toggle and control display of parallel labels.
plabel on;

axis off;

% Coordinates.
A = [43.6350000000000, 1.36777777777778];
B = [52.7019444444445, -8.92472222222222];

% Plot A.
plotm(A(1), A(2), '.r');
textm(A(1), A(2)+1, 'A');

% Plot B.
plotm(B(1), B(2), '.r');
textm(B(1), B(2)+1, 'B');

% Small circles from center, range, and azimuth.
RangeNM = 654;
[latcA, loncA] = scircle1(A(1), A(2), RangeNM, [], earthRadius('nm'));
[latcB, loncB] = scircle1(B(1), B(2), RangeNM, [], earthRadius('nm'));

% Set operations on polygonal regions.
[latU, lonU] = polybool('union', latcA, loncA, latcB, loncB);

% Get Map Latitude and Longitude limit.
LatLim = getm(gca, 'MapLatLimit');
LonLim = getm(gca, 'MapLonLimit');

% APPROACH 1
lat = {[LatLim(1) LatLim(2) LatLim(2) LatLim(1) LatLim(1)], latU};
lon = {[LonLim(1) LonLim(1) LonLim(2) LonLim(2) LonLim(1)], lonU};
% Compute face and vertex matrices.
[f, v] = poly2fv(lat, lon);
patchm('Faces', f, 'Vertices', v, 'FaceColor', [.5 .5 .5], 'FaceAlpha', 0.4); % Doesn't work

% APPROACH 2
lat = {[LatLim(1) LatLim(2) LatLim(2) LatLim(1) LatLim(1)], latU};
lon = {[LonLim(1) LonLim(1) LonLim(2) LonLim(2) LonLim(1)], lonU};
% Compute face and vertex matrices.
[f, v] = poly2fv(lat, lon);
patchm(v(:,1), v(:,2), 'FaceColor', [.5 .5 .5], 'FaceAlpha', 0.4); % Doesn't work

% APPROACH 3
lat = [latU', LatLim(1), LatLim(2), LatLim(2), LatLim(1), LatLim(1)];
lon = [lonU', LonLim(1), LonLim(1), LonLim(2), LonLim(2), LonLim(1)];
patchm(lat, lon, 'FaceColor', [.5 .5 .5], 'FaceAlpha', 0.4); % Doesn't work

matlab plot geo matlab-figure
person codeaviator    schedule 23.11.2016    source источник

Ответы (1)


arrow_upward
1
arrow_downward

Похоже, что patchm игнорирует дыры. Обходным решением может быть разделение окружающего полигона на две части, чтобы объединение областей перекрывалось с обеими. Затем вычтите эту область из северного и южного участка, начертите две части и добавьте красивое ребро:

% Find a point where we can split the polygon
split_lat = median(latU);
% generate northern patch
p_up_lt = [split_lat LatLim([2 2]) split_lat];
p_up_lg = LonLim([1 1 2 2]);

[lonAup, latAup] = polybool('-', p_up_lg, p_up_lt, lonU, latU);
% and plot it, with invisible edge
p_up = patchm(latAup, lonAup, 'FaceColor', [.5 .5 .5], 'FaceAlpha', 0.4, 'EdgeColor', 'none');

% generate and plot southern patch
p_dn_lt =  [LatLim(1) split_lat split_lat LatLim(1)];
p_dn_lg =  LonLim([1 1 2 2]);
[lonAdn, latAdn] = polybool('-', p_dn_lg, p_dn_lt, lonU, latU);
p_dn = patchm(latAdn, lonAdn, 'FaceColor', [.5 .5 .5], 'FaceAlpha', 0.4, 'EdgeColor', 'none');

% plot edge for the union
p_e = patchm(latU, lonU, 'FaceColor', 'none', 'FaceAlpha', 0.4);
person zeeMonkeez    schedule 23.11.2016