S-ICP算法MATLAB程序

点云的配准实验s-icp算法 实现两个点云数据的对准 论文：A scale stretch method based on ICP for 3D data registration

function b = ascread（filename）      %read my file
format long;
fi = fopen（filename‘r‘）;       %openfile
if fi < 0
  error（sprintf（‘File %s not found‘ filename））
end

templine = 1; %
a = sscanf（fgetl（fi） ‘%d‘）;
templine = templine +1;

if length（a）==1
    points=a（1）;
end

pointlist = zeros（3points）;

for vnum = 1 : points
  coord = sscanf（fgetl（fi） ‘%e %e %e‘）;
  if length（coord） ~= 3
    errmsg = sprintf（‘Each vertex line must contain three coordinates （error on line %d）‘ templine）;
    error（errmsg）;
  end
  templine = templine +1;
  pointlist（:vnum） = coord;
end
b = cell（{points;pointlist}）;

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----

     文件        634  2011-03-28 15:04  register\ascread.m

     文件    1182978  2010-10-14 20:28  register\bun000.asc

     文件    1161413  2010-10-14 20:28  register\bun045.asc

     文件        798  2016-12-06 10:31  register\init.asv

     文件        798  2016-12-06 10:36  register\init.m

     文件        761  2010-11-13 14:29  register\reg3D.m

     文件       1231  2010-11-02 14:05  register\Solvecircle.m

     文件         47  2010-11-13 14:32  register\test.m

     文件     741689  2010-07-14 15:51  register\实现_2009A scale stretch method based on ICP for 3D data registration.pdf

     目录          0  2016-12-06 10:06  register

----------- ---------  ---------- -----  ----

              3090349                    10