کد متلب تنظیم فیگر(فرم نمایش) با تکیه بر رزولیشن کامپیوتر

در این حالت شما وقتی کدی می نویسین می تونین این کد را در اختیار دوستتان قرار بدین بدون توجه به تنظیمات رزولیشن با این کد به شکل اتوماتیک فرم نمایش تنظیم می شه و مشکلاتی از لحاظ خروج لبه ها از صفحه مانیتور و... نخواهید داشت.

کد متلب:

screenSiz=get(0,'screensize');
screenSiz1=screenSiz;

screenLengthPer=0.09*screenSiz1(3);
screenWidthPer=0.09*screenSiz1(4);

screenSiz1([1,3])=screenSiz1([1,3])+[screenLengthPer,-screenLengthPer*2];
screenSiz1([2,4])=screenSiz1([2,4])+[screenWidthPer,-screenWidthPer*2];


baseFig=figure('name','netGate_nbo','NumberTitle','off','tag','baseFig','ToolBar','none','InnerPosition', screenSiz1,'reSize','off');

 

کد تشخیص لبه و چین و چروک پنجره حداقل

مبنای این کد به این شکل است که با حرکت در طول عکس، و با انتخاب یک بازه در محور y ، کد عددی کل پنجره  در صورتی که دارای مقدار حداقل نباشد، برابر مقدار حداقل می کند.

 

کد متلب:

% Run Demo
[FileName,PathName] = uigetfile('*.jpg','Select the MATLAB code file');
I=imread([PathName,FileName]);
% I=imrotate(I,35,'bilinear');
I = im2double(imread([PathName,FileName]));
img=imrotate(I,35,'bilinear');
imshow(I)
%   I=Icrop ;
im2=I(:,:,1)*0+1;

figure;imshow( I);hold on;


facBoundryX2=[1:1:size(I,2)];


facBoundryY2=[1:1:size(I,1) ]*0+ (size(I,1) );

% plot( facBoundryX2,facBoundryY2,'.')
flagout=0;


%     imshow(I);hold on;
for ind2=1:numel(facBoundryX2)
    for ind1=1:numel(facBoundryY2)
        xI=facBoundryX2(ind2);
        yI=max(facBoundryY2(ind1),1);
        
        
        yVect=[yI-4:yI+4];
        %         yVect=[yI-10:yI+10 ];
        
        yVect=yVect(yVect>0 & yVect<=size(I,1));
        if isempty(yVect)
            flagout=1;
            break
        end
        
        minboc=rgb2gray(I(round( yVect) ,round( xI), 1:3));
        
        [v,in]=min( minboc  );
        facBoundryY2=[1:1:size(I,1) ]*0+ (size(I,1) )-ind1*1;
        
        %         hold on;plot(xI,yI,'ro');
        try
            if v== I( yI,xI)
                
            else
                
                
                im2(yVect(in),xI)=.5;double(v);   %abs(double(v)- double(I1( yI,xI)));
                ss=abs(double(v)- double(I( yI,xI)));
            end
            
        catch
            
        end
        
        
    end
    
    imshow(im2 )
    
    
    
    if flagout==1
        
        break
    end
    
    pause(0.000005)
end


%  mesh((double((im2))))

% end


%%%%%%%%%%%%%%%%%%%%%%%%%%-----------software details-----------%%%%%%%%%%%%%%%%%%%%%%

%devloped in Iran(ardebil)                                       %
%Copyright (C) 2017(1396) by moussa hasanzadeh as the head devloper %%
%All rights reserved.                                             % 
%programed in mathlab 2016                                 
%gmail:[e-mail]
%phone [phone]

 

پیام عذرخواهی از دوستان

من شرمندم بخدا، اینقدر به خاطر کرونا(البته کرونا نگرفتما! ) مشکلات روی سرم ریخت که اصلا نتونستم پست جدیدی بفرستم انشاالله که بتونیم در خدمتتون باشیم....

دوستانی که پیام دادند و نتونستم جواب بدم از اونا هم عذرخواهی می کنم
پست ها را  دوباره  پی می‌گیرم...

/