function?[T1coor_shift02]=coortransf（T0fcoor_shift）
%%%%圖像坐標系到柱面坐標的轉換
%對輸入圖像序列T0按焦距f進行變換
coor_shift02=coor_shift;%%%%第一維（行值）不變，第二維（列）在映射后更新
[HWrN]=size（T0）;
w2f=W/2/f;
h2=H/2;
constant2=f*atan（W/（2*f））;
constant1=h2;

for?y=1:W??????%%%%%%???列
????angle=atan（y/f-w2f）;%%%%atan（（y-W/2）/f）;
?????y1=uint16（f*angle+constant2）;
?????if??y1==0??y1=1;??end
????for?x=1:H??%%%%%%%%%%%%???行
?????x1=uint16（（x-h2）*cos（angle）+constant1）;
?????if??x1==0??x1=1;end
?????if?r==3???%%%%%%%%%%%%%彩色圖像
?????????for?n=1:N??%%%%%%%%%
?????????????if?（y==coor_shift（n2））?coor_shift02（n2）=y1;?end%%%對應偏移量
?????????????T1（x1y1:n）=T0（xy:n）;%%%%點的映射
?????????end
?????elseif?r==1
%??????????T1（x1y1）=T0（xy）;
?????end
????end
end
[hwaN]=size（T1）;
for?i=1:60%%%邊緣沒有映射點的地方填白色
??

?屬性????????????大小?????日期????時間???名稱
-----------?---------??----------?-----??----

?????文件??????21144??2012-04-19?22:27??圖像序列柱面全景拼接\5.jpg

?????文件??????19908??2012-04-19?22:27??圖像序列柱面全景拼接\6.jpg

?????文件???????1054??2006-10-24?16:02??圖像序列柱面全景拼接\coortransf.m

?????文件???????1481??2006-10-24?15:59??圖像序列柱面全景拼接\cylinpano2images.m

?????文件????????331??2006-06-27?16:55??圖像序列柱面全景拼接\imagefusion02.m

?????文件????????672??2006-11-14?16:24??圖像序列柱面全景拼接\inorm.m

?????文件???????2141??2012-06-08?09:22??圖像序列柱面全景拼接\main.m

?????文件????????619??2006-11-14?16:56??圖像序列柱面全景拼接\medfilt.m

?????文件???????1065??2006-10-23?21:42??圖像序列柱面全景拼接\mosaic.m

?????文件????????660??2006-10-24?15:22??圖像序列柱面全景拼接\multi_resolution.m

?????文件???????1537??2006-06-30?17:48??圖像序列柱面全景拼接\phase_correlation.m

?????文件???????2612??2006-10-24?19:53??圖像序列柱面全景拼接\poc_2pow.m

?????目錄??????????0??2012-06-11?10:44??圖像序列柱面全景拼接

-----------?---------??----------?-----??----

????????????????53224????????????????????13