RGB?=?imread（‘tape.png‘）;%讀取圖像
figure;?imshow（RGB）;%顯示
text（1515‘Estimate?radius?of?the?roll?of?tape‘...
?????‘FontWeight‘‘bold‘‘Color‘‘y‘）;
I?=?rgb2gray（RGB）;%轉化為灰度圖像
threshold?=?graythresh（I）;%閾值
BW?=?im2bw（Ithreshold）;%轉化為二值圖像
figure;?imshow（BW）%顯示二值圖像
dim?=?size（BW）;%圖像大小
col?=?round（dim（2）/2）-90;%邊界起始點的列
row?=?find（BW（:col）?1）;%邊界起始點的行
connectivity?=?8;%連通性為8
num_points???=?180;%邊界點的個數
contour?=?bwtraceboundary（BW?[row?col]?‘N‘...
????connectivity?num_points）;%求取圓周
figure;??imshow（RGB）;%顯示原圖像
hold?on;