how to segment arabic word?

I want to segment an Arabic word into single characters. Based on the histogram/profile, I assume that I can do the segmentation process by cut/segment the characters based on it's baseline (it have similar pixel values). But, unfortunately, I still stuck to build the appropriate code, to make it works.

% Saving each  single segmented character as one file 
function [segm] = trysegment (a)
%myFolder = 'D:\1. Thesis FINISH!!!\Data set\trial';
myFolder ='C:\Users\dell 5558\Desktop\segmented';
level = graythresh (a);
bw = im2bw (a, level);
b = imcomplement (bw);
i= padarray(b,[0 10]);
verticalProjection = sum(i, 1);
set(gcf, 'Name', 'Trying Segmentation for Cursive', 'NumberTitle', 'Off') 
subplot(2, 2, 1);imshow(i); 
subplot(2,2,3);
plot(verticalProjection, 'b-'); %histogram show by this code
% hist(reshape(input,[],3),1:max(input(:))); 
grid on;
% Extract each region
threshold=max(verticalProjection)/3;
thresholdedProjection=verticalProjection > threshold;
count=0;
startingColumnsIndex=0;
for i=1:length(thresholdedProjection)
  if thresholdedProjection(i)
      if(count>0)
          startingColumnsIndex=startingColumnsIndex+1;
          startingColumns(startingColumnsIndex)= i-floor(count/2);
          count=0;
      end
  else
      count=count+1;
  end
end
endingColumns=[startingColumns(2:end)-1 i-floor(count/2)];
y=1;
for k = 1 : length(startingColumns)
% Get sub image of just one character...
  subImage = i(:, startingColumns(k):endingColumns(k)); 
%   se = strel('rectangle',[2 4]);
%   dil = imdilate(subImage, se); 
th = bwmorph(subImage,'thin',Inf);
n = imresize (th, [64 NaN], 'bilinear');
figure, imshow (n);  
[L,num] = bwlabeln(n);
for z= 1 : num
bw= ismember(L, z);
% Construct filename for this particular image.
baseFileName = sprintf('char %d.png', y);
y=y+1;
% Prepend the folder to make the full file name.
fullFileName = fullfile(myFolder, baseFileName);
% Do the write to disk.
imwrite(bw, fullFileName);
% subplot(2,2,4);
% pause(2);
% imshow(bw);
end
% y=y+1;
end;
segm = (n);

if true % code end