autocontrast

% AUTO Contrast  
%        -->Automatically adjusts contrast of images to optimum level using three techniques.
%               - imadjust - Adjust image intensity values or colormap;
%               - histeq - Enhance contrast using histogram equalization;
%               - adapthisteq - Contrast-limited adaptive histogram
%               equalization (CLAHE);

function autocontrast

    warning off
    clc;
    clear all;
    
%--------------------------------------------------------------------------
[FileName,PathName] = uigetfile('*.tiff','Select any image', 'MultiSelect', 'on');

    if PathName~=0;
       n= length (FileName)
        
        for a=1 : 1: n 
            input_image=imread([PathName,FileName{a}]);
 
I_imadjust = imadjust(input_image);
%figure, imshow(input_image_imadjust);
%----------------------------------------------------------------------
        mkdir(PathName,'imadjust')
        FN1= fullfile(PathName,'imadjust',FileName{a});    
        imwrite(I_imadjust,FN1);
        
                end 
    end