function?main_sort（）
%?功能：相機標定點順序提取，對無序點集按照“從上到下，從左到右”的原則排序。
%?author:cuixingxing
%?email:?cuixingxing150@gmail.com
%?2018.7.23
%
%%?Step1?人工制造6*10個投影變換點，并打亂排列順序
rng（0）;
mode?=?[610];%?標定點模式，m*n個點
[XY]?=?meshgrid（1:mode（2）1:mode（1））;
T?=?[2.73790.29290;
????0.74260.750.1;
????0.531.00];%?手工設定的透視變換矩陣
coordates?=?[X（:）Y（:）ones（length（X（:））1）];
new_coords?=?coordates*T;
new_coords?=?new_coords./new_coords（:3）;

%?制造打亂順序的點集，數字表示坐標唯一編號
n?=?length（X（:））;
index?=?randperm（nn）;
unorder_pts?=?new_coords（index[12]）;
figure;
hold?on;
for?i?=?1:n
????plot（unorder_pts（i1）unorder_pts（i2）‘r.‘‘MarkerSize‘20）;
????text（unorder_pts（i1）+0.2unorder_pts（i2）num2str（i））
end
grid?on
title（‘unordered?points‘）

%%?Step2算法排序
order_mat_index?=?CalibSort（unorder_ptsmode）;

%%?Step3?結果顯示，排序好的索引應用到原無序點集坐標，并逐個按順序繪制
figure;
hold?on;
n?=?1;
for?i?=?1:mode（1）
????for?j?=?1:mode（2）
????????index?=?order_mat_index（ij）;
????????plot（unorder_pts（index1）unorder_pts（index2）‘r.‘‘MarkerSize‘20）;
????????text（unorder_pts（index1）+0.1unorder_pts（index2）num2str（n））;
????????n?=?n+1;
????end
end
grid
title（‘ordered?points‘）
end

?屬性????????????大小?????日期????時間???名稱
-----------?---------??----------?-----??----
?????目錄???????????0??2018-07-25?00:38??相機標定點集排序算法\
?????文件?????????236??2018-07-25?00:18??相機標定點集排序算法\CalcPoint.p
?????文件????????1360??2018-07-25?00:18??相機標定點集排序算法\CalibSort.p
?????文件?????????199??2018-07-25?00:18??相機標定點集排序算法\FindNearestPt.p
?????文件?????????360??2018-07-25?00:18??相機標定點集排序算法\GetDiagPts.p
?????文件?????????295??2018-07-25?00:18??相機標定點集排序算法\IsSameLine.p
?????文件?????????285??2018-07-25?00:18??相機標定點集排序算法\JudgePtUpLine.p
?????文件?????????273??2018-07-25?00:18??相機標定點集排序算法\JudgeSameSide.p
?????文件????????1319??2018-07-25?00:34??相機標定點集排序算法\main_sort.m
?????文件??????????97??2018-07-25?00:39??相機標定點集排序算法\readme.txt