ozdeger.m

ok &ouml nemli bir kaybnkao lasdhlas sdohfs naosfnsdn sdondsfgpdsmr ljrg fdbh

%----------------------------------------------------------------------------
%              Optik Filmin TE Tipi 謟degerleri
%-----------------------------------------------------------------------------
%
% gerekli function alt programlari : foz.m, slab.m, alan.m, normal.m, tabint.m
%
% giris parametreleri :
% n1 film b鰈gesi
% n2(ust bolge) ve n3(alt bolge) dis b鰈geler
% t =h/lamda
% d1=D1/lambda alt bolgenin kalinligi
% d2=D2/lambda ust bolgenin kalinligi

function data=ozdeger(fig, tag)
data=get(fig, 'UserData');

global koksayisi;
global kokler;
global modnumarasi;
global HH; % Film tabakasina eklenen ek tabakanin kalinligi HH=H/lambda cinsinden

switch tag
case 'edit1'
   data.n1=get(data.h(17), 'String');
case 'edit2'
   data.n2=get(data.h(18), 'String');
case 'edit3'
   data.n3=get(data.h(19), 'String');   
case 'edit4'
   data.nmin=get(data.h(20), 'String');   
case 'edit5'
   data.t=get(data.h(21), 'String');
case 'edit6'
   data.d1=get(data.h(22), 'String');
case 'edit7'
   data.d2=get(data.h(23), 'String');
case 'edit12'
   data.modno=get(data.h(28), 'String');
case 'edit13'
   data.H=get(data.h(24), 'String');

   HH=str2num(data.H);
   fid=fopen('H.txt','w'); 
   fprintf(fid,'%f\n',HH);
   kapat=fclose(fid);
    
case 'izgara'
   izgara=get(data.h(39),'value');
   if izgara == 0
      set(data.h(34),'Xgrid','off');
      set(data.h(34),'Ygrid','off');
   else
      set(gca,'Xgrid','on');
      set(gca,'Ygrid','on');
   end
      
case 'push1'
   
   if (isempty(data.n1)) | (isempty(data.n2)) | (isempty(data.n3)) | (isempty(data.nmin)) | (isempty(data.t)) | (isempty(data.d1)) | (isempty(data.d2))
		 HataMesaj; return;
	end
      
   n1=str2num(data.n1);
   n2=str2num(data.n2);
   n3=str2num(data.n3);
   nmin=str2num(data.nmin);
   t=str2num(data.t);
   d1=str2num(data.d1);
   d2=str2num(data.d2);
      
   if ( n1<n2 | n1<n3 | n2<n3 ) | (n1==0 | n2==0 | n3==0 | t==0 | d1==0 | d2==0)
      HataMesaj; return;
   end
  
 %  N=200;
 %  eps = 1.e-8;
 
   clear kokler;   
   u=n1;
   m=0;
   sayac=0;
   while nmin>sayac
   z=foz(u,t,d1,d2,n1,n2,n3);
   kok=z;
   if kok~=0
      m=m+1;
      kokler(m)=kok;
      sayac=sayac+1;
   end
   u=u-0.001;
   	if u<=0
      	break;
	   end
   end

   data.m=m;
   koksayisi=m;
   data.kokler=kokler;
	set(data.h(29), 'String',num2str(m));
   set(data.h(25), 'String',num2str(kokler,6));

   
   Matrix=[n1;n2;n3;nmin;t;d1;d2;koksayisi];
   fid=fopen('sener_giris.txt','w'); 
   fprintf(fid,'%6.2f %6.2f %6.2f %6.2f %6.2f %6.2f %6.2f %d\n',Matrix);
   kapat=fclose(fid);
   fid2=fopen('sener_kokler.txt','w');
   for adim=1:1:koksayisi
      fprintf(fid2,'%14.8f\n',kokler(adim));
   end
   
   kapat=fclose(fid2);
   hepsini_kapat=fclose('all');
   
% Normalizasyon Katsay齦ar齨齨 Hesab