matlab提取视网膜血管

matlab代码提取视网膜中血管，包括主程序和血管提取程序，希望能够与大家分享。

%Program for Retinal Blood Vessel Extraction

%Author : Athi Narayanan S
%M.E embedded Systems
%K.S.R College of Engineering
%Erode Tamil Nadu India.
%http://sites.google.com/site/athisnarayanan/
%s_athi1983@yahoo.co.in

%Program Description
%This program is the main entry of the application.
%This program extracts blood vessels from a retina image using Kirsch‘s Templates.

%Clear Memory & Command Window
clc;
clear all;
close all;

%Read Input Retina Image
inImg = imread（‘Input.bmp‘）;
dim = ndims（inImg）;
if（dim == 3）
    %Input is a color image
    inImg = rgb2gray（inImg）;
end

%Extract Blood Vessels
Threshold = 10;
bloodVessels = VesselExtract（inImg Threshold）;

%Output Blood Vessels image

figure;
subplot（121）;imshow（inImg）;title（‘Input Image‘）;
subplot（122）;imshow（bloodVessels）;title（‘Extracted Blood Vessels‘）;

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----
     目录           0  2009-08-11 15:40  Retinal_Blood_Vessel_Extraction\
     文件      102054  2002-12-03 16:12  Retinal_Blood_Vessel_Extraction\Input.bmp
     文件         865  2011-06-07 18:56  Retinal_Blood_Vessel_Extraction\Main.m
     文件        1627  2011-06-07 18:57  Retinal_Blood_Vessel_Extraction\VesselExtract.m
     文件        1325  2011-06-07 09:25  license.txt