cascaan

[cascaan]

Gözlerimde ölümü taşırım, Özlemini.. Söylerim kendime 1 sene önce yanımdaydın, yanımda Sevginde Yıllar senden uzaklaştırırken, yolumu bilemem Yönümü Soğuklukla yıllar dökülür dilimden rakamlar Sana varamam Ani güvenirim İçimin parçalarından korkarım Pişmanım mı Bilemem neden söylerim Seni Kelimeler tıkanır, yine durgunlaşırım Evet kekremsi geçmişim, içimin yüklerinden korkarım Yapmadığım şeyler yaparım, yine kendime..

[cascaan]

matlab

nargin(number of input arguments) fonksiyonda kaç tane input kullanıldığını geri döner,çeşitli kontroller de yapılabilir.

       function x=fon(a,b,c)

            if nargin==3

                  x=a+b+c

        else

            disp('yazılan argumenler yetersiz')

       end

       gibi bir örnek verilebilir.

nargout(number of output arguments),kaç tane output kullanıldığı bilgisini geri döner,

kullanılacak olan input ve output sayısını  varargout,vararginkullanarak tam  olarak belirtmesek de olur,

     function varargout=fon(varargin)                %şeklinde tanımlama yapılır ve isteğe göre kontroller yapılabilir

[cascaan]

Programlama Yoluyla Nesnelerin Eklenmesi

Yukarıda bahsedilen mygui.m dosyasının içeriğine aşağıda belirtilen kodları eklediğimizde GUI arayüzümüz şu şekilde görülecektir.

function varargout = mygui(varargin)    mygui icin fonksiyon tanı mı 

 fh = figure('Visible','on','Name','My GUI',...   bu satırlar ekrana belirtilen boyut 'Position',[360,550,550,300]);      ve konumda figure (GUI yüzeyi) getirme 

 cbh = uicontrol(fh,'Style','checkbox',...    GUI yüzeyine checkbox nesnesi 'String','Display file extension',...      ekleme 'Value',1,'Position',[30 15 130 20]);  eth = uicontrol(fh,'Style','edit',...      GUI yüzeyine edit kutusu ekleme 'String','Enter your name here.',... 'Position',[30 45 130 20]);  

eth = uicontrol(fh,'Style','edit',...      GUI yüzeyine çok satırlı edit kutusu 'String','Enter your name and address here.',...  ekleme (çünkü max-min>1 durumu) 'Max',2,'Min',0,... 'Position',[30 75 130 105]); 

[cascaan]

guı

Şimdi GUI arayüzünde yer alan tüm nesneler için View/M-File Editor yolundan kodlama penceresi açılıp, aşağıda yer alan tüm kodlar yazılsın.

  function varargout = untitled_ilk(varargin) gui_Singleton = 1;

 gui_State = struct('gui_Name',       mfilename, ...          

                               'gui_Singleton',  gui_Singleton, ...                  

                               'gui_OpeningFcn', @untitled_ilk_OpeningFcn, ...           

                               'gui_OutputFcn',  @untitled_ilk_OutputFcn, ...            

                               'gui_LayoutFcn',  [] , ...                   

                                 'gui_Callback',   []); 

if nargin && ischar(varargin{1})   

  gui_State.gui_Callback = str2func(varargin{1});

 end 

 if nargout     [varargout{1:nargout}] = gui_mainfcn(gui_State, varargin{:});

 else     

gui_mainfcn(gui_State, varargin{:}); 

end 

 function untitled_ilk_OpeningFcn(hObject, eventdata, handles, varargin)  handles.output = hObject;  

guidata(hObject, handles); 

----

 handles.peaks=peaks(35); 

handles.membrane=membrane;

 [x,y] = meshgrid(-8:.5:8);

 r = sqrt(x.^2+y.^2) + eps; sinc = sin(r)./r; 

handles.sinc = sinc;

 handles.current_data = handles.peaks;

 guidata(hObject, handles);

 surf(handles.current_data)  

-------

function varargout = untitled_ilk_OutputFcn(hObject, eventdata, handles)  varargout{1} = handles.output; 

 >function pushbutton1_Callback(hObject, eventdata, handles) surf(handles.current_data); 

> function pushbutton2_Callback(hObject, eventdata, handles) mesh(handles.current_data);

 > function pushbutton3_Callback(hObject, eventdata, handles) contour(handles.current_data); 

 >function popupmenu1_Callback(hObject, eventdata, handles)  

str = get(hObject, 'String');

 val = get(hObject,'Value'); 

switch str{val}; 

case 'Peaks' % User selects peaks. 

handles.current_data = handles.peaks; 

case 'Membrane' % User selects membrane.

 handles.current_data = handles.membrane; 

case 'Sinc' % User selects sinc.

 handles.current_data = handles.sinc; 

end 

guidata(hObject,handles)

  function popupmenu1_CreateFcn(hObject, eventdata, handles)

 if ispc     

set(hObject,'BackgroundColor','white'); 

else   

  set(hObject,'BackgroundColor',get(0,'defaultUicontrolBackgroundColor')); 

end    

  Burada  teker  teker  nesnelerin  üzerinde  sağ tıklayıp View Callback ve ilgili Callback satırına gidilip ayrı ayrı da yazılabilirdi. Burada göstermek amaçlı olduğu için kodlar bu şekilde direk verilmiştir. Kodlama satırlarında % işareti ile başlayan satırlar açıklama satırları olup, bu satırlar herhangi bir komut olarak görülmezler sadece açıklama amacı taşırlar.

Burada yazılan kod parçalarını (callback rutinlerini) kısaca açıklayalım.   

>>function varargout = untitled_ilk(varargin)      

Yukarıdaki function bloğu GUIDE tarafından otomatik olarak oluşturulur. Burada GUI uygulamasına komut satırından gönderilen parametrelerin alınması ve GUI uygulaması çalıştıktan sonra bir fonksiyon olarak dışarıya gönderilecek parametrelerin tanımlanması ile ilgili kod satırları mevcuttur.

>> function untitled_ilk_OpeningFcn(hObject, eventdata, handles, varargin)      Bu fonsiyon GUI arayüzü ekrana gelmeden (visible olmadan) hemen önce çalıştırılacak kodları içerir. Örneğin böyle bir callback bir GUI uygulaması çalışmadan önce initialization işlemlerinin yapılması ya da bazı GUI nesne özelliklerinin değiştirilmesi istendiğinde kullanılabilir. Ayrıca, varargin giriş parametresi kullanılarak da MATLAB komut satırından girilen parametre değerleri GUI uygulaması içinde kullanılmak üzere bu blokta alınır.

>> function varargout = untitled_ilk_OutputFcn(hObject, eventdata, handles)      Bu  fonksiyon  bloğu bir GUI uygulaması hafızadan silinip programı sonlandırılmadan hemen önce (destroy edilmeden önce) çalıştırılacak komutlar içeriri. Ayrıca, komut satırına gönderilecek çıkış parametre değerleri de bu blok tarafından varargout değişkeni kullanılarak işleme konulur.  

>>   function pushbutton1_Callback(hObject, eventdata, handles)     

 Bu callback bloğu pushbutton1 isimli buton (istenilse bu buton ismi butonun Tag özelliğine özellikler penceresinden yeni bir isim verilerek de değiştirilebilir.) ki burada Surf stringine sahip olan buton tıklandığı zaman çalıştırılacak komutları içerir.   

>>function pushbutton2_Callback(hObject, eventdata, handles)    

 Bu  callback  bloğu da benzer şekilde pushbutton2 isimli buton ki burada Mesh stringine sahip olan buton tıklandığı zaman çalıştırılacak komutları içerir.   >>function pushbutton3_Callback(hObject, eventdata, handles)    

  Bu callback bloğu da benzer şekilde pushbutton3 isimli buton ki burada Contour stringine sahip olan buton tıklandığı zaman çalıştırılacak komutları içerir.  

>> function popupmenu1_Callback(hObject, eventdata, handles)      GUI  arayüzüe  eklenmiş olan popup_menu nesnesininden herhangi bir eleman tıklanıp seçildiği zaman çalışması istenilen kod parçaları bu callback altında yazılır.  

>>function popupmenu1_CreateFcn(hObject, eventdata, handles)     

 Bu  callback  GUIDE  tarafından otomatik olarak oluşturulmuş olup, popup_menu nesnesi uygulama ekranına gelmeden (visible olmadan) ve de oluşturulmadan önce koşturulacak program satırlarını içerir.

[cascaan]

str = get(hObject, 'String'); 

val = get(hObject,'Value');

 switch str{val};

 case 'Peaks' % User selects peaks. 

handles.current_data = handles.peaks; 

case 'Membrane' % User selects membrane.

 handles.current_data = handles.membrane; 

case 'Sinc' % User selects sinc. ,

handles.current_data = handles.sinc; 

end 

guidata(hObject,handles)

[cascaan]

GUI Arayüzünün Programlanması   

Bir GUI arayüzünün programlanması demek o çalışmanın kaydedildiği isimle aynı zamanla oluşturulan .m uzantılı dosya içerisine kodlama satırlarının eklenmesi demektir. Bu dosyanın içine görebilmek, değişiklik yapabilmek için GUIDE çalışma ekranı penceresinden View/M-File Editor komutu işletilebilir 

[cascaan]

Ctrl+Z   ---> İşlemi geri alır.

[cascaan]

Timer

1.Zamana Bağlı Tekrarlı İşlem Yaptırma Komutları 

 Matlab içinde bir komutu belirli zaman aralıklarıyla otomatik olarak yapmak istenilebilir. Bu işlem için Matlab kullancılara “timer” nesnesi sunmaktadır. Bu nesne oluşturularak ve özelliklerini değiştirmek suretiyle bir komut otomatik olarak icra edilebilir.   Matlab içinde bir timer nesnesi oluşturmak için “timer” komutu kullanılır. Ancak, timer nesnesi ile basit bir Matlab komutu ile bir fonksiyonun icra edilmesi farklılık arz etmektedir. Bu nedenle konu iki ayrı alt başlık altında aşağıda ayrıntılı olarak ele alınmıştır.

1 Timer Nesnesi ile Herhangi Bir Matlab Komutunun Çalıştırılması 

 Bu işlem için örnek olarak ekrana 5 saniye aralıklarla “Timer tetiklendi.” Mesajını yazalım.   Aşağıda verilen komut satırları ile konu açıklanmaya çalışılsın. 

 T = timer( ' TimerFcn ', ' disp( '' Timer tetiklendi. '' ) ' , ' StartDelay ' , 5 , ' Period ' , 3 ); 

set ( T , 'ExecutionMode' , 'fixedrate' ); 

 Burada“StartDelay” özelliği 5 değeri atanılarak timerın çalışmaya başlatıldıktan 5 saniye sonra teiklenmeye başlaması sağlanmıştır. Ayrıca, bu timer 3 saniye aralıklarla tetiklenecektir. ‘ExecutionMode’ özelliği ‘fixedrate’ değerine atanarak sürekli olarak timerın çalışması sağlanmıştır. Artık, programcı timerı başlatmak için “start” ve durdurmak için “stop” komutlarını kullanabilir. Ayrıca, oluşturulan bir timer nesnesi mutlaka işi bittinde veya kullanılmayacaksa silinimleri ve programdan kaldırılmalıdır. Bunun için de “delete” komutu kullanılmalıdır. Bu komutların örnek kullanımları aşağıda verilmiştir

start ( T ) ;

 stop ( T ) ;

 delete ( T ) ;

2 .Timer Nesnesi ile Herhangi M Fonksiyonunun Çalıştırılması 

 Bu işlem için örnek olarak ekrana 3 saniye aralıklarla “WebCam_Timer_Fcn” isimli bir Matlab M fonksiyonunun çalıştırılması gerektiği düşünülsün.   Aşağıda verilen komut satırları ile konu açıklanmaya çalışılsın. 

 T = timer ('Period', 3, 'StartDelay', 0);  % “StartDelay” özelliği sıfır yapılarak timerın T.TimerFcn = {@WebCam_TimerFcn, handles} ;  % başlangıçta hiç gecikme olmadan  

Set ( T , 'ExecutionMode' , 'fixedrate' );    % çalışması sağlanmaktadır.  

 Burada öncelikle “timer” komutu kullanılarak “timer”  kullanılmak üzere T değişkenine timer sınıfından bir class atanmaktatır. Daha sonra ise bu sınıf bir yapı değişkeni gibi işlem göreceği için bu class ile ilgili alt özelliklere “.” operatörü ile erişilebilir. Dolayısıyla oluşturulan timer sınıfını tutan T değişkeninin “TimerFcn” callback fonksiyonuna parametresine “WebCam_Timer_Fcn” M fonksiyonu ismi atnmaktadır. Burada atamanın hücre yapısı şeklinde olduğu için süslü parantezler kullanılarak yapıldığına dikkat edilmelidir.

Burada çok önemli bir durum şudur ki icra edilecek fonksiyon eğer lokal ise ya da timer komutu bir M fonksiyon dosyası içinde çalıştırılmak isteniyor ve bu fonksiyon dosyası içinde yer alan fonksiyonlardan biri kullanılmak isteniyorsa bu durumda komut şu  şekilde kullanılmalıdır:  

T.TimerFcn = {@WebCam_Timer_Fcn} ;  

 Burada “@” operatrü lokalde işlem yapılacağını gösterir. Daha sonra set komutu kullanılarak oluştutulan timerın sürekli çalışması ayarlanmaktadır. Kullanıcı bu adımdan sonra “start” komutu ile oluşltutulan timer nesnesini başlatabilir ve “stop” komutunu kullanarak durdurabilir. Ayrıca, oluşturulan bir timer nesnesi mutlaka işi bittinde veya kullanılmayacaksa silinmlei ve programdan kaldırılmalıdır. Bunun için de “delete” kopmutu kullanılmalıdır. 

“start”, “stop” ve “delete” komutları için örnek kullnım  şekli aşağıda verilmiştir.   start ( T ) ; stop ( T ) ; delete ( T ) ;

3.Timer nesneleirnin okunması

Bir timer nesnesinin özelliklerini okumak için “get” komutu kullanılmalıdır. 

Örnek kullanım için aşağıdaki komutlara bakılabilir.  

 zamanlayici = timer( ' TimerFcn ', ' disp( '' Timer tetiklendi. '' ) ' );

  get ( zamanlayici);   

Bu komut ile oluşturulan ve “zamanlayici” değişkenine atılan timer nesnesine ait tüm özellikler Matlab komut ekranında listelenecektir. 

  4.Timer Nesnesinin Özelliklerinin Set Edilmesi  

Bir timer nesnesinin hjerhangi bir özelliğini değiştirmek için “set” komutu kullanılır. Örmek kullanım şekli aşağıda verilmiştir.

   zamanlayici = timer( ' TimerFcn ', ' disp( '' Timer tetiklendi. '' ) ' ); 

 set ( zamanlayici , ' ExecutionMode ' , ' fixedRate ', ' BusyMode ' , ' drop ' , ' Period ' ,1);  

“set” komutu ile bir timer nesnesi için atanabilecek tüm özellikler listesi de aşağıda sunulmuştur.   

•  BusyMode: [ {drop} | queue | error ] 

•  ErrorFcn: string -or- function handle -or- cell array

 •  ExecutionMode: [{singleShot} | fixedSpacing | fixedDelay | fixedRate] 

•  Name 

•  ObjectVisibility: [ {on} | off ] 

•  Period

 •  StartDelay  14 / 209 

•  StartFcn: string -or- function handle -or- cell array

 •  StopFcn: string -or- function handle -or- cell array

 •  Tag

 •  TasksToExecute 

•  TimerFcn: string -or- function handle -or- cell array 

•  UserData   

5 Timer Nesnesinin Belirli Bir Zamanda Çalışmasının Sağlanması

 Timer nesnesini belirli bir zamanda çalıştırmak için “startat” komutuna ihtiyaç vardır. Örnek kullanım şekli için aşağıdaki komutlara bakılabilir.  

 zamanlayici = timer( ' TimerFcn ', ' disp( '' Timer tetiklendi. '' ) ' );

  startat ( zamanlayici , now+1/24 ); 

 Örnek kullanım  şekli ile “now” komutu ile alınan anlık zaman bilgine göre o andaki zamandan bir saat sonrasında timer devreye girecektir.   

6.Timer Nesnesinin Fonksiyonları 

 Timer nesnesinin üç farklı çalıştırılacak fonksiyonu ya da komutu tutatn callback türü vardır. Bunlar aşağıda listelenmiştir. 

 •  TimerFcn callback fonksiyonu her adımda çalıştırılacak fonksiyon ya da komutlar için 

•  StartFcn callback fonksiyonu timer nesnesi ilk çalışmaya başladığında çalıştırılacak fonksiyon ya da komutlar için 

•  StopFcn callback fonksiyonu timer nesnesi sonlandırıldığında çalıştırılacak fonksiyon ya da komutlar içindir.  

7 Timer ile Çizim Yapılması için Yapılması Gerekenler 

 Eğer timer nesnesi ile bir plot benzeri çizim komut kullanılacaksa

 Timer nesnesi içinde “drawnow” fonksiyonu kullnılmalıdır. Bu şekilde grafik çizim alanı sürekli olarak güncel tutulacaktır.  

8.Timer Nesnesinin Başlatılması ve Durdurulması 

 Oluştulan bir timer nesnesini başlatmak için “start” ve durudurmak için “stop” komutları kullanılır. Aşağıda bu komutların nasıl kullnılacağı gösterilmiştir.   zamanlayici = timer( ' TimerFcn ', ' disp( '' Timer tetiklendi. '' ) ' );

 start ( zamanlayici ) ; stop ( zamanlayici ) ; 

9.Timer Nesnesinin Yok Edilmesi   

15 / 209 Oluştulan bir timer nesnesi mutlaka eğer artık çalıştırılmayacaksa bellekten kaldırılmalıdır. Bu işlem için “delete” komutu kullanılmalıdır. Örnek kullanım şekli aşağpıda gösterilmiştir.   

zamanlayici = timer( ' TimerFcn ', ' disp( '' Timer tetiklendi. '' ) ' ); 

start ( zamanlayici ) ; 

stop ( zamanlayici ) ; 

delete ( zamanlayici ) ;  

[cascaan]

ndvı

%% Görüntüyü Acma [g1 g2]=uigetfile('*.tif','görüntü dosyas? aç'); A=imread(g1); [t1 t2]=uigetfile('*.tfw','tfw dosyasi ac'); tfw=worldfileread(t1);

%% Band ?yilestirme ve  Bantlar?na Ay?rma R=A(:,:,1); G=A(:,:,2); B=A(:,:,3); IR=A(:,:,4); CIR=A(:,:,[1 2 4]); figure,imshow(CIR); %% Görüntüyü Kesme [I rect]=imcrop(CIR); yenikoord=[tfw(3,2)+tfw(1,2)*rect(1,2),tfw(3,1)+tfw(2,1)*rect(1,1)]; ytfw=[tfw(1,1),tfw(1,2);tfw(2,1),tfw(2,2);yenikoord(1,2),yenikoord(1,1)]; mapshow (I,ytfw); %% Görüntü ?yilestirme J=imadjust(I,[0.3 0.7],[]); figure,mapshow(J,ytfw) %% Binary(?kili) NIR = im2single(J(:,:,3)); red = im2single(J(:,:,1)); figure imshow(red) title('Visible Red Band') figure imshow(NIR) title('Near Infrared Band') %% figure plot(red, NIR, '+b') ax = gca; ax.XLim  = [0 1]; ax.XTick = 0:0.2:1; ax.YLim  =  [0 1]; ax.YTick = 0:0.2:1; axis square xlabel('red level') ylabel('NIR level') title('NIR vs. Red Scatter Plot') %% ndv? ndvi = (NIR - red) ./ (NIR + red); figure imshow(ndvi,'DisplayRange',[-1 1]) title('Normalized Difference Vegetation Index') threshold = 0.4; q = (ndvi > threshold); figure mapshow(q,ytfw) title('NDVI with Threshold Applied')

%% Referansli Tek Görüntü Kaydetme islemi(tif+tfw) CoordRefSysCode=32637; %CoorRefSysCode=26986; filename=uiputfile({'*.tif','tif dosyasi'},... 'Resmi Kaydet');%,'C:\Work\yyresim.tif'); geotiffwrite(filename,q,ytfw,'CoordRefSysCode',CoordRefSysCode); %% Referansli Acma [fname path]=uigetfile('*.tif','görüntü dosyasi ac'); [F,V]=geotiffread(fname); figure,mapshow(F,V);

[cascaan]

%% uc bina cal?sma % Lidar Veri Kesme Programi % Verilerin Okunmasi [Filename,PathName] = uigetfile('*.*','Data File'); % S=lasread(Filename); % A=[S.X S.Y S.Z]; C=lasdata(Filename); A=[C.x C.y C.z]; %% ginput uygulama  plot(A(:,1),A(:,2),'r.');  pause()  button = 1;  i = 0 ;  while button == 1;      i=i+1;      [x(i),y(i),button]=ginput(1); % sag tus ile bitir...  end  % x=x(1:i-1);  % y=y(1:i-1);  koor=[x(:) y(:)];  clear x;clear y;  xmin=koor(1,1);  xmax=koor(2,1);  ymin=koor(1,2);  ymax=koor(2,2);  %% 1. Çözüm Yolu   x=find (A(:,1)<xmax & A(:,1)>xmin);   y=find (A(:,2)<ymax & A(:,2)>ymin);   ind=intersect(x,y);   %% Seçilen alana ait koordinatlar   B=A(ind,:);   %save ('sonuc.txt','B','-ascii');   %type ('sonuc.txt');   %% Seçilen bina...   % ind1=B(:,3)<80;   % ind2=B(:,3)>=60;   ind12=B(:,3)<100 & B(:,3)>80;   D=B(ind12,:);   plot3(D(:,1),D(:,2),D(:,3),'.r')   %% K MEANS   ind12=B(:,3)<100 & B(:,3)>80;   D=B(ind12,:);   plot3(D(:,1),D(:,2),D(:,3),'.r')   dist='cityblock'; %distancemeasure   opts = statset('Display','final');   [idx,P] = kmeans(D,3,'Distance',dist,...    'Replicates',5,'Options',opts);   %Cizim   figure;  plot(D(idx==1,1),D(idx==1,2),'g.','MarkerSize',12)  hold on  plot(D(idx==2,1),D(idx==2,2),'c.','MarkerSize',12)  hold on  plot(D(idx==3,1),D(idx==3,2),'m.','MarkerSize',12)  plot(P(:,1),P(:,2),P(:,3),'kx',...     'MarkerSize',15,'LineWidth',3)  hold off  %boundary

[cascaan]

%% Lidar Veri Kesme Program? % Verilerin Okunmasi [Filename,PathName] = uigetfile('*.*','Data File'); % S=lasread(Filename); % A=[S.X S.Y S.Z]; C=lasdata(Filename); A=[C.x C.y C.z]; %% 3D Gösterim plot3(A(:,1),A(:,2),A(:,3),'r.'); plot(A(:,1),A(:,2),'r.'); %plot(A(:,1),A(:,2),'c.'); pause(); i=0; button=1; while button==1;    i=i+1;    [x(i),y(i),button]=ginput(1); end x=x(:);y=y(:); %% Seçilen Bölge Koordinatlar?n? Belirliyor [in,on]=inpolygon(A(:,1),A(:,2),x,y); A1=A(:,1);A2=A(:,2);A3=A(:,3); %Seçilen ve Seçilmeyen Bölgeleri Çizdiriliyor hold on plot(A1(in),A2(in),'r+') plot(A1(~in),A2(~in),'bo') hold off

%% yalnizca seçili bölge koordinatlar B=[A1(in) A2(in) A3(in)]; C=[A1(~in) A2(~in) A3(~in)]; plot3(A(:,1),A(:,2),A(:,3),'g.',A(:,1),A(:,2),A(:,3),'r.');

%%

[cascaan]

%% Görüntü ve tfw açma... [g1 g2]=uigetfile('*.tif','görüntü dosyas? aç'); A=imread(g1); [t1 t2]=uigetfile('*.tfw','tfw dosyas? seç'); R = worldfileread(t1); %% Görüntüyü bantlara ay?rma... R=A(:,:,1); G=A(:,:,2); B=A(:,:,3); IR=A(:,:,4); %% Görüntüyü 3 banda çevirme... A=cat(3,R,G,B); %% Görüntüyü kesme ve yeni tfw olusturma... R = worldfileread('img2.tfw'); [A2 rect]=imcrop(A); yenikoord=[RI(3,2)+R(1,2)*rect(1,2),R(3,1)+R(2,1)*rect(1,1)]; yeniRTFW=[RI(1,1),RI(1,2);RI(2,1),RI(2,2);yenikoord(1,2),yenikoord(1,1)]; mapshow(A2,yeniRITFW); impixelinfo;

[cascaan]

%% Görüntüyü georefernsli açma [Filename,PathName] = uigetfile('*.*','.tif File'); IR=imread(FileName); [Filename2,PathName] = uigetfile('*.*','.tfw file'); RI=worldfileread(FileName2); mapshow(IR,RI) impixelinfo;

[cascaan]

%% Lidar Veri Kesme Program? % Verilerin Okunmas? [Filename,PathName] = uigetfile('*.*','Data File'); % S=lasread(Filename); % A=[S.X S.Y S.Z]; C=lasdata(Filename); A=[C.x C.y C.z]; %%  % S?n?rlanan Alan Koordinatlar? (max min)    xmin=408190;    xmax=408260;    ymin=4541645;    ymax=4541720; %% Klavyeden Sinirlar Girilmek Suretiyle Veri Kesme  xmin=input('Min X De?erini Giriniz:');  xmax=input('Max X De?erini Giriniz:');  ymin=input('Min Y De?erini Giriniz:');  ymax=input('Max Y De?erini Giriniz:');  %% ginput uygulama  plot(A(:,1),A(:,2),'r.');  pause()  button = 1;  i = 0 ;  while button == 1;      i=i+1;      [x(i),y(i),button]=ginput(1); % sag tus ile bitir...  end  % x=x(1:i-1);  % y=y(1:i-1);  koor=[x(:) y(:)];  clear x;clear y;  xmin=koor(1,1);  xmax=koor(2,1);  ymin=koor(1,2);  ymax=koor(2,2);  %% 1. Çözüm Yolu   x=find (A(:,1)<xmax & A(:,1)>xmin);   y=find (A(:,2)<ymax & A(:,2)>ymin);   ind=intersect(x,y);   %% 2. Çözüm Yolu   ind=A(:,1)<xmax & A(:,1)>xmin & A(:,2)<ymax & A(:,2)>ymin;   %% Seçilen alana ait koordinatlar   B=A(ind,:);   %save ('sonuc.txt','B','-ascii');   %type ('sonuc.txt');   figure,plot3(B(:,1),B(:,2),B(:,3),'.r',C(:,1),C(:,2),C(:,3),'.b');   %% Seçilen bina...   % ind1=B(:,3)<80;   % ind2=B(:,3)>=60;   ind12=B(:,3)<100 & B(:,3)>80;   D=B(ind12,:);   plot3(D(:,1),D(:,2),D(:,3),'.r')

[cascaan]

%%  Görüntüyü Acma ve Tfw Acma,Kesme ve Yeni tfw olusturma try [g1 g2]=uigetfile('*.tif','görüntü dosyas? aç'); fgor=imread(g1); [t1 t2]=uigetfile('*.tfw','tfw dosyasi ac'); ftfw=worldfileread(t1); msgbox('Görüntü kesme islemi..!','Bilgi','Help'); [x y cgor d]=imcrop(fgor); [satir sutun]=size(cgor); yenikoord=[ftfw(3,2)+ftfw(1,2)*d(1,2),ftfw(3,1)+ftfw(2,1)*d(1,1)]; ytfw=[ftfw(1,1),ftfw(1,2);ftfw(2,1),ftfw(2,2);yenikoord(1,2),yenikoord(1,1)]; mapshow (cgor,ytfw); catch msgbox('Lütfen islemi Tekrarlayin!','Beklenmedik Hata!','warn'); end

%% Kesilen Resim ve yeni Tfw Olusturma... try yresimy=uiputfile({'*.tif','tif dosyasi'},... 'Resmi Kaydet');%,'C:\Work\yyresim.tif'); imwrite(cgor,yresimy); yresimt=uiputfile({'*.tfw','tfw dosyasi'},... 'Koordinat Dosyasini Kaydet');%,'C:\Work\yyresim.tfw'); worldfilewrite(ytfw,yresimt); % 2.YOL %imwrite (cgor,'yresim.tif'); %worldfilewrite(ytfw,'yresim.tfw'); %... catch msgbox('Lütfen ??lemi Tekrarlay?n!','Beklenmedik Hata!','warn'); end %% Sonuç Görüntü Açma [g1 g2]=uigetfile('*.tif','görüntü dosyasi aç'); sgor=imread(g1); [t1 t2]=uigetfile('*.tfw','tfw dosyasi aç'); stfw=worldfileread(t1); mapshow(sgor,stfw); %% Referansli Tek Görüntü Kaydetme islemi(tif+tfw) CoordRefSysCode=32637; %CoorRefSysCode=26986; filename=uiputfile({'*.tif','tif dosyasi'},... 'Resmi Kaydet');%,'C:\Work\yyresim.tif'); geotiffwrite(filename,sgor,stfw,'CoordRefSysCode',CoordRefSysCode); %% Referansli Acma [fname path]=uigetfile('*.tif','görüntü dosyasi ac'); [B,R]=geotiffread(fname); mapshow(B,R);

[cascaan]

A SOUNDS?

[cascaan]

It takes courage to not be the same

Aynı olmamak için cesaret gerekli