www.gusucode.com > IPCV_Eval_Kit_R2019a_0ce6858工具箱源码程序matlab > IPCV_Eval_Kit_R2019a_0ce6858/code/demo_files/I2_05_3_tr_custom.m

    clear all; close all; clc;

%% 僇僗僞儉曄姺僼僅乕儉偵傛傞婔壗妛揑曄姺
%    p2c.m 偲 c2p.m  傪巊梡

%% 夋憸偺擖椡偲昞帵
load topo
I = topo(1:90,:);
figure
imagesc(I(end:-1:1,:),'CDataMapping','scaled');
colormap(topomap1)

%% 僇僗僞儉曄姺僼僅乕儉偺嶌惉
T = maketform('custom',2,2,@p2c,@c2p,[]);
udata = [-pi pi];   % 擖椡夋憸偵懳偡傞X幉偺斖埻
vdata = [0 90];   % 擖椡夋憸偵懳偡傞Y幉偺斖埻
xdata = [-90 90];   % 弌椡夋憸偵懳偡傞X幉偺斖埻
ydata = [-90 90];     % 弌椡夋憸偵懳偡傞Y幉偺斖埻


%% 婔壗妛揑曄姺\帵
b = imtransform(I,T,'cubic','UData',udata,...
    'VData',vdata,'XData',xdata,'YData',ydata,...
    'Size',[180 180],'FillValues',0);

figure
imagesc(b,'CDataMapping','scaled');
colormap(topomap1)

%% 
% Copyright 2014 The MathWorks, Inc.