这里是我缝合,似乎工作得很好。
% %加载图片,旋转和转换为二进制
灰色= imread (“scan_00123.tif”);
灰色= rot90(灰色);
阈值= graythresh(灰色);
BW = im2bw(灰色、阈值);
% %找到图像的坐标和光滑的曲线
[y、x] =找到(BW = = 1);
y = y-mean (y);
图;
次要情节(1、2、1);在
情节(x, y)
赢得= 1500;
y2 =光滑(x, y,赢得);
情节(x, y2,“r”)
% %修正向量的大小
[x,指数]=独特的(x);
xq = 1:大小(灰色,2);
yq = interp1 (x, y2(指数),xq,“线性”,“extrap”);
情节(yq xq,“——k”)
% %调整图像列
NewImage = uint16 (nan(大小(灰色,1)* 3,大小(灰色,2)));
ymid =大小(灰色,1)* 3/2;
为i = 1:尺寸(灰色,2)
s = yq(我);
NewImage (ymid-s: ymid-1-s +大小(灰色,1),i) =灰色(:,我);
结束
图;
NewImage (isnan (NewImage)) = 0;
imshow (NewImage)
