clc
clear all
close all
I=imread('N1.png');
I2=I(:,:,3);
I3=ind2rgb(I2,gray);
I4=imcomplement(I3);
N=Im_text(I4);
function [val] = Im_text(Original)
my_image = imresize(Original, 3);
BW = imbinarize(rgb2gray(my_image));
BW1 = imdilate(BW,strel('disk',6));
s = regionprops(BW1,'BoundingBox');
bboxes = vertcat(s(:).BoundingBox);
[~,ord] = sort(bboxes(:,2));
bboxes = bboxes(ord,:);
BW = imdilate(BW,strel('disk',1));
ocrResults = ocr(BW,bboxes,'CharacterSet','.0123456789','TextLayout','word');
words = {ocrResults(:).Text}';
words = deblank(words);
val=str2double(words);
end