cizim.m

来自「ok &ouml nemli bir kaybnkao lasdhlas sdo」· M 代码 · 共 41 行

function degerli=cizim(kkk,num)
   
fid=fopen('sener_giris.txt','r'); 
Matriks=fscanf(fid,'%f',[8,inf]);
kapat=fclose(fid);
kok_sayisi=Matriks(8,1);

fid2=fopen('H.txt','r'); 
HH=fscanf(fid2,'%f');
kapat=fclose(fid2);

hepsini_kapat=fclose('all');

n1=Matriks(1,1);
n2=Matriks(2,1);
n3=Matriks(3,1);
nmin=Matriks(4,1);
t=Matriks(5,1);
d1=Matriks(6,1);
d2=Matriks(7,1);
m=kok_sayisi;

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
   
   % Normalizasyon Katsay齦ar齨齨 Hesab