How to get Real Time Lip Segmentation using Matlab R2013b

I am new for Matlab newbie , actually with reference link i am trying to get lip detection like http://www.academia.edu/945274/A_Robust_Lip_Center_Detection_In_Cell_Phone_Environment i have implement code like i am not getting exact lip shape binary out put, please explain binarize lip region how to achieve i am confused.

 YIQ = rgb2ntsc(hue1);
     Y1 = YIQ(:,:,1);
    I1 = YIQ(:,:,2);
    Q = YIQ(:,:,3);

    J = imadjust(Y1);
    t = graythresh(blue_Image);
imCoin = (red_Image > hueThresholdHigh);
    K = medfilt2(red_Image);
    [level1 EM]= graythresh(K);
    BW_lip = im2bw(red_Image);
    Binary_Hue = red_Image > T;
    level = graythresh(J);
   binary_Image = im2bw(J,level);
   [imx,imy]=size(binary_Image);
   bw_Fill= imfill(binary_Image,'holes');
   labeledImage = bwlabel(bw_Fill, 8);
   blobMeasurements = regionprops(labeledImage, 'area');
   areas = [blobMeasurements.Area];
   [maxArea largestBlobIndex] = max(areas);

    bw_area = bwareaopen(bw_Fill ,2500);
   BWnobord = imclearborder(bw_area, 4);
   seD = strel('disk',1);
%     BWfinal = imerode(BWnobord,seD);
    BWfinal = imerode(BWnobord,seD);
    BWoutline = bwperim(bw_area);
    Segout = mouthcrop;
    Segout(BWoutline) = 255;

[Muluken Birara]

your source code is not clear for me pls forward full program code

Answer 1

[Image Analyst]

There is no algorithm there at all. It looks more or less like a random collection of lines from different image processing algorithms. There is no sensible algorithm there at all. Keep working on it.

[SAMEER ahamed]

Thank You reply me .can you please let me know how to get Threshold Lip Segmentation based on another reference link ?<https://docs.google.com/file/d/0B5pNZ8F5ApG2bWhobmpmLUl4d1U/edit?pli=1 Lip Hue Binary Image.> Thanks

[Image Analyst]

I'm sorry to say I won't have time for that.