S-ICP算法MATLAB程序

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  registerascread.m

     文件    1182978  2010-10-14 20:28  registerun000.asc

     文件    1161413  2010-10-14 20:28  registerun045.asc

     文件        798  2016-12-06 10:31  registerinit.asv

     文件        798  2016-12-06 10:36  registerinit.m

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

     文件       1231  2010-11-02 14:05  registerSolvecircle.m

     文件         47  2010-11-13 14:32  register est.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