matlab ile ilgili küçük bir soru
4
●5.064
- 16-12-2010, 22:02:25
Üyeliği durduruldusorun şu arkadaşım anamenu şeklinde çıkıyo fakat herhangi bir program çalışıp sonlandığında tekrar menüye dönmüyo hata veriyo ... birde örneğin for döngüsü örneklerine girdiğimde çıkış dediğmde bir önceki menüye dönmesi gerekirken tamamen kapanıyo
clc; clear all; anamenu=0; while(anamenu<=6) anamenu=menu('Dönem Sonu Projesi','Kimya Mühendisliği ile İlgili Hesaplamalar','Kimya Formülleri','Grafik Çizimleri','Vize ve Final Notlarının Hesaplanması','Derste Yapılan Uygulamalar ve Ödevler','Çıkış'); switch anamenu case 1, case 2, case 3, case 4, anamenu=0; while(anamenu<=2) anamenu=menu('Vize-Final Not Hesaplaması','Hesaplama','Çıkış') switch anamenu case 1, disp('... Notların Hesaplanması 1. Yöntem ...') %n=input('Notları Hesaplanacak Öğrenci Sayısını Giriniz='); %for i=1:n dersadi=input('Dersin Adını Giriniz=','s'); ogrencino=input('Öğrenci Numarasını Giriniz='); ogrenciad=input('Öğrencinin Ad-Soyad ını Giriniz=','s'); vize1=input('1. Vize Notunu Giriniz='); vize2=input('2. Vize Notunu Giriniz='); odev=input('Ödev Notunu Giriniz='); final=input('Final Notunu Giriniz='); vizeort=(vize1+vize2+odev)/3; snfort=((vizeort*60/100)+(final*40/100)); if snfort>=90 disp('Bu Dersten AA (En İyi Not) ile Geçtiniz... Tebrikler (:') disp(snfort) elseif snfort>=80 disp('Bu Dersten BA ile Geçtiniz') disp(snfort) elseif snfort>=75 disp('Bu Dersten BB ile Geçtiniz') disp(snfort) elseif snfort>=70 disp('Bu Dersten BC ile Geçtiniz') disp(snfort) elseif snfort>=65 disp('Bu Dersten CC ile Geçtiniz') disp(snfort) elseif snfort>=60 disp('Bu Dersten DC ile Geçtiniz') disp(snfort) elseif snfort>=35 disp('Bu Dersten DD ile Kaldınız :(') disp(snfort) else snfort<=35 disp('Bu Dersten FF (En Düşük Not) ile Kaldınız ... Üzgünüm :(') disp(snfort) end %end fprintf('dersin adı numarası adısoyadı 1.vize 2.vize ödev final geçmenotu \n\n') fprintf('------------- ------------ --------------- -------- -------- ----- ------ ----------\n\n') fprintf('------------- ------------ --------------- -------- -------- ----- ------ ----------\n\n') fprintf(' %s %d %s %d %d %d %d %g \n\n',dersadi,ogrencino,ogrenciad,vize1,vize2,odev,final,snfort') case 2, break end end case 5, anamenu=0; while(anamenu<=9) anamenu=menu('Derste Yapılan Matlab Uygulamaları','Üçgen-Derece-Açı Hesaplamaları','Degişken Uygulamaları','For Döngüsü Uygulamaları','If Döngüsü Uygulamaları','While Döngüsü Uygulamaları','Switch Döngüsü Uygulamaları','Grafik Çizimleri','Function ve M-Dosyası Uygulamaları','Çıkış') switch anamenu case 1, anamenu=0; while(anamenu<=7) anamenu=menu('Üçgen-Derece-Açı Hesaplama Örnekleri','Uygulama-1','Uygulama-2','Uygulama-3','Uygulama-4','Uygulama-5','Uygulama-6','Çıkış') switch anamenu case 1, disp('... Alfa Derece Hesaplama ...') clc; clear all; x=sqrt(4)/2 alfa=asin(x) alfa_derece=alfa*180/pi case 2, disp('... 2 kenarı ve 1 açısı verilen üçgenin alanını hesaplama ...') clear all; clc; a=input('birinci kenarı gir='); b=input('ikinci kenarı gir='); aci=input('aradaki açıyı gir='); x=aci*pi/180; c=(a^2+b^2-2*a*b*cos(aci))^(1/2); fprintf('Alan=%f\n',c) case 3, disp('... Dışarıdan yarıçapı girilen kürenin alanını ve hacmini hesaplama ...') clear all; clc; r=input('yarıçapı gir='); Alan=4*pi*r^2 Hacim=(4*pi*r^3)/3 fprintf('alan=%f\n',Alan) fprintf('hacim=%f\n',Hacim) case 4, disp('... Dışarıdan derece olarak girilen açının radyan ve grad cinsinden hesaplanması ...') clear all; clc; D=input('D açısını gir='); R=D*pi/180; G=D*200/180; fprintf('D açısı=%f\n',D) fprintf('Radyan cinsinden hesaplama=%f\n',R) fprintf('Grad cinsinden hesaplama=%f\n',G) case 5, disp('... Dışarıdan 3 kenarı girilen üçgenin Alanının hesaplanması ...') clear all; clc; A=input('birinci kenarı gir='); b=input('ikinci kenarı gir='); c=input('üçüncü kenarı gir='); u=(A+b+c)/2 Alan=(u*(u-A)*(u-b)*(u-c))^(1/2) fprintf('alan=%f\n',Alan) case 6, disp('... Öklid Bağıntısı Uygulaması ...') clear all; clc; p=input('p kenarını gir='); k=input('k kenarını gir='); h=(p*k)^(1/2) b=((p+k)*k)^(1/2) c=((p+k)*p)^(1/2) fprintf('h değeri=%f\n',h) fprintf('b değeri=%f\n',b) fprintf('c değeri=%f\n',c) case 7, break end end case 2, anamenu=0; while anamenu<=5 anamenu=menu('Degişkenlerle Yapılan Uygulamalar','Uygulama-1','Uygulama-2','Uygulama-3','Uygulama-4','Çıkış') switch anamenu case 1, disp('... Dışarıdan Girilen x ve y değerleriyle F(x) fonksiyonlarının hesaplatılması ...') clear all; clc; x=input('x değerini gir='); y=input('y değerini gir='); fx=x*y+x^2*y+x*y^3; fxx=log(fx)+fx^2/log10(fx); fxxx=tan(sqrt(sin(fxx)/log(fx))); fxy=sqrt(cos(fxxx+sin(fx+fxx)/fx^4)); f=fx+fxx^2+log(fxx)+1/log10(fx)+tan(fxy)+sqrt(sin(fxxx))+3*fx+5*fxx/exp(fx^4); fprintf('f fonksiyonu sonucu=%f\n',f) case 2, disp('... Kütlesi ve Molekül Ağırlığı Girilen bir Maddenin Mol ünü Hesaplama ...') clear all; clc; m=input('maddenin kütlesini gir='); ma=input('maddenin molekül ağırlığını gir='); mol=m/ma fprintf('mol değeri=%f\n',mol) case 3, disp('... Kütlesi, Hızı ve Yerden Yüksekliği Girilen Maddenin Kinetik ve Potansiyel Enerjisinin Hesaplatılması ...') clear all; clc; m=input('maddenin kütlesini gir='); v=input('maddenin hızını gir='); h=input('maddenin yerden yüksekliğini gir='); ep=m*9.8*h ek=(m*v^2)/2 fprintf('ep değeri=%f\n',ep) fprintf('ek değeri=%f\n',ek) case 4, disp('... Yerden yüksekliği ve hızı girilen maddenin yatayda aldığı yol,yere çarpma hızı ve süresinin hesaplatılması ...') clear all; clc; h=input('yerden yüksekliği gir='); vo=input('hızı gir='); t=(2*h/9.8)^(1/2) x=vo*t vy=9.8*t v=(vo^2+vy^2)^(1/2) fprintf('t değeri=%f\n',t) fprintf('x değeri=%f\n',x) fprintf('v değeri=%f\n',v) case 5, break end end case 3, while anamenu<=9 anamenu=menu('For Döngüsü Uygulamaları','Uygulama-1','Uygulama-2','Uygulama-3','Uygulama-4','Uygulama-5','Uygulama-6','Uygulama-7','Uygulama-8','Çıkış') switch anamenu case 1, disp('... x ve y ye göre fonksiyon hesaplama ...') clc; clear all; n=input('yaptırmak istediğiniz n değerini giriniz='); for i=1:n x=input('x değerini gir='); y=input('y değerini gir='); f1=(x*y)+(x^2*y)+(x*y^3)+(log(x)+1)/(log10(y))+tan(x/y)+sqrt(x*y)+(3*x+y)/y^4; fprintf('işlemin sonucu=%15.10f\n\n\n',f1) end case 2, disp('... üçgenin alanını hesaplama ...') clear all; clc; n=input('n işlem değerini giriniz='); for i=1:n A=input('birinci kenarı gir='); b=input('ikinci kenarı gir='); aci=input('aradaki açıyı gir='); x=aci*pi/180; Alan(i)=A*b*sin(x)/2; fprintf('A kenarı=%f\n\n',A) fprintf('b kenarı=%5.2f\n\n',b) fprintf('Alan=%g\n\n',Alan) end case 3, disp('... girilen sayıya kadar olan tek sayıların toplamı ve çarpımı ...') clear all; clc; n=input('n işlem değerini giriniz='); for i=1:n A=input('birinci kenarı gir='); b=input('ikinci kenarı gir='); aci=input('aradaki açıyı gir='); x=aci*pi/180; Alan(i)=A*b*sin(x)/2; fprintf('A kenarı=%f\n\n',A) fprintf('b kenarı=%5.2f\n\n',b) fprintf('Alan=%g\n\n',Alan) end case 4, disp('... girilen sayıya kadar olan çift sayıların toplamı ve çarpımı ...') clear all; clc; sayi=input('lütfen bir sayı giriniz=') toplam=0; carpim=1; for i=2:2:sayi toplam=toplam+i; carpim=carpim*i; fprintf('çift sayının toplamı=%6.2f\n\n',toplam) fprintf('çift sayının çarpımı=%g\n\n',carpim) end case 5, disp('... kenar ve yüksekliği girilen üçgenin alanı ...') clc; clear all; n=input('işlem adedini giriniz='); for i=1:n a=input('a kenarını gir='); h=input('h yüksekliğini gir='); alan=a*h/2; fprintf('a kenarı=%f\n\n',a) fprintf('yükseklik=%7.4f\n\n',h) fprintf('alan=%g\n\n',alan) end case 6, disp('... 2. dereceden denklemin köklerinin hesaplatılması ...') clc; clear all; n=input('n sayısını giriniz=') for i=1:n a=input('x kareli terimin katsayısını giriniz='); b=input('x li terimin katsayısını giriniz='); c=input('sabit terimi giriniz='); dt=((b^2)-4*a*c); if(dt<0); fprintf('sanal kök vardır=%2.1f\n\n',dt) elseif(dt==0); x=(-b/2*a); fprintf('bir kök vardır=%2.1f\n\n',x) else x1=((-b+sqrt(dt))/(2*a)); x2=((-b-sqrt(dt))/(2*a)); fprintf('1.kök=%2.1f\n\n',x1) fprintf('2.kök=%2.1f\n\n',x2) end end case 7, disp('... 2 kenarı ve açısı verilen üçgeninin alanının hesaplatılması ...') clc; clear all; n=input('n işlem değerini giriniz='); for i=1:n a=input('birinci kenarı gir='); b=input('ikinci kenarı gir='); aci=input('aradaki açıyı gir='); R(i)=aci*pi/180; A(i)=sqrt(a^2+b^2-2*a*b*cos(R(i))); B(i)=sqrt(a^2+b^2-2*a*b*cos(aci)); fprintf('radyan hesabı değeri=%g\n\n',A) fprintf('derece hesabı değeri=%g\n\n',B) end case 8, disp('... çarpım tablosu yapımı ...') clc; clear all; for i=1:10 for j=1:10 carpim=i*j fprintf ('%d*%d=%d\n',i,j,carpim) end end case 9, break end end case 4, anamenu=0; while anamenu<=4 anamenu=menu('If Döngüsü Uygulamaları','Uygulama-1','Uygulama-2','Uygulama-3','Çıkış') switch anamenu case 1, disp('... Hangi Ayın Kaç Günden Oluştuğunun Hesaplatılması ...') clc; clear all; ay=input('bir ay numarası giriniz (1-12)='); if ay==1 | ay==3 | ay==5 | ay==7 | ay==8 | ay==10 | ay==12 disp('bu ay 31 günden oluşur') elseif ay==2 disp('bu ay 28 günden oluşur') elseif ay==4|ay==6|ay==9|ay==11 disp('bu ay 30 günden oluşur') else disp('lütfen 1-12 arasında bir sayı giriniz') end case 2, disp('... dışarıdan girilen sayının tekmi çiftmi olduğunun gösterilemsi ...') clc; clear all; n=input('işlem sayısını giriniz=') for i=1:n sayi=input('bir sayı giriniz (1-10 arası)='); if sayi==1 | sayi==3 | sayi==5 | sayi==7 | sayi==9 disp('bu sayı tektir') elseif sayi==2 | sayi==4 | sayi==6 | sayi==8 | sayi==10 disp('bu sayı çifttir') else disp('lütfen 1-10 arası bir sayı giriniz') end end case 3, disp('... 2.derecen denklemin köklerinin hesaplatılması ...') clc; clear all; a=input('a değeri='); b=input('b değeri='); c=input('c değeri='); delta=b^2-4*a*c if delta<0 s='kökler kompleks'; disp(s) else if delta>0 x1=(-b+sqrt(delta))/(2*a); x2=(-b-sqrt(delta))/(2*a); fprintf('1.kök=%f\n',x1) fprintf('2.kök=%f\n',x2) disp('kökler Reel') else if delta==0 disp('katlı kök hali') end end end case 4, break end end case 5, anamenu=0; while anamenu<=6 anamenu=menu('While Döngüsü Uygulamaları','Uygulama-1','Uygulama-2','Uygulama-3','Uygulama-4','Uygulama-5','Çıkış') switch anamenu case 1, disp('... While döngüsü ile modüler aritmetik uygulaması ...') while 1 x=input('x değerini giriniz='); if x<=0 break end while x>1 if mod(x,2)==0 x=x/2 else x=3*x+1 end end end case 2, disp('... while ve nxm boyutunda matris uygulaması ...') while 1 n=input('satır boyutu='); m=input('sütun boyutu='); for i=1:n for j=1:m fprintf('x(%d,%d)=',i,j); x(i,j)=input(''); end end for i=1:n for j=1:m if x<=0 break end for i=1:n for j=1:m while x>1 if mod(x,2)==0 x=x/2 else x=3*x+1 end end end end end;end;end case 3, disp('... while ile sayac kullanımı ...') clc; a=input('herhangi bir sayı giriniz='); sayac=0; sonuc=1; while a<10 a=a+1; sayac=sayac+1; sonuc=sayac*a; end a sayac disp('sonuc') case 4, disp('... Adınızı ve Soyadınızı Ekrana Giren Program ...') clc; clear all; a=input('a gir='); while a<30 a=a+1; disp('FeYYaZ TETİK') end case 5, disp('... while ile faktöriyel uygulaması ...') clc; clear all; n=0 while prod(1:n)<1e100 n=n+1 end case 6, break end end case 6, anamenu=0; while anamenu<=3 anamenu=menu('Switch Döngüsü Uygulamaları','Uygulama-1','Uygulama-2','Çıkış') switch anamenu case 1, disp('... switch ile ayların kaç günden oluştuğu ...') clc; n=input('işlem adedini gir=') for i=1:n ay=input('bir ay numarası gir (1-12)='); switch ay case {1,3,5,7,10,12} disp('bu ay 31 günden oluşur') case {2} disp('bu ay 28 günden oluşur') case {4,6,8,9,11}; disp('bu ay 30 günden oluşur') otherwise disp('lütfen 1-12 arasında sayı gir') end end case 2, disp('... switch ile girilen sayının tek mi çift mi olduğu ...') clc; clear all; n=input('işlem sayısını gir=') for i=1:n sayi=input('1 ile 10 arasında bir sayı giriniz='); switch (sayi) case {1,3,5,7,9} disp('Sayı Tektir') case {2,4,6,8,10} disp('Sayı Çifttir') case{0} disp('girilen sayı sıfırdır') otherwise disp('sayı 1 ile 10 un dışında') end end case 3, break end end case 7, anamenu=0; while anamenu<=11 anamenu=menu('MATLAB da Grafik Çizimleri','Uygulama-1','Uygulama-2','Uygulama-3','Uygulama-4','Uygulama-5','Uygulama-6','Uygulama-7','Uygulama-8','Uygulama-9','Uygulama-10','Çıkış') switch anamenu case 1, disp('... Basit bir grafik çizimi ...') clc; clear all; x=1:0.1:80; y=x.^2-9*x-20; plot(x,y) case 2, disp('... Cos(x) Fonksiyonunun Grafiği ...') clc; clear all; x=0:0.01:2*pi; y=cos(x); plot(x,y) case 3, disp('... Sin(x) Fonksiyonunun Grafiği ...') clc; clear all; x=0:0.01:2*pi; y=sin(x); plot(x,y) case 4, disp('... Trigonometrik Fonksiyonların grafikleri ...') clc; clear all; x=[-10:0.001:pi/8]; y=(sin(x.^2-9*x-20))-1; y1=sin(x); y2=tan(x); y3=cot(x); figure(1),plot(x,y) title('cosx fonksiyonu') xlabel('x ekseni') ylabel('y ekseni') figure(2),plot(x,y1) title('sinx fonksiyonu') xlabel('x ekseni') ylabel('y ekseni') figure(3),plot(x,y2) title('tanx fonksiyonu') xlabel('x ekseni') ylabel('y ekseni') figure(4),plot(x,y3) title('cotx fonksiyonu') xlabel('x ekseni') ylabel('y ekseni') case 5, disp('... çizgi renkleri ve biçimlerin değişimi ...') clc; clear all; x=[-10:0.001:pi/8]; y=(sin(x.^2-9*x-20))-1; y1=sin(x); y2=tan(x); y3=cot(x); figure(1),plot(x,y,'cx-.') title('cosx fonksiyonu') xlabel('x ekseni') ylabel('y ekseni') figure(2),plot(x,y1,'rd:') title('sinx fonksiyonu') xlabel('x ekseni') ylabel('y ekseni') figure(3),plot(x,y2,'bp--') title('tanx fonksiyonu') xlabel('x ekseni') ylabel('y ekseni') figure(4),plot(x,y3,'g*-') title('cotx fonksiyonu') xlabel('x ekseni') ylabel('y ekseni') case 6, disp('... Legend komutunun uygulanması ...') clc; clear all; x=[-10:0.001:pi/8]; y=(sin(x.^2-9*x-20))-1; y1=sin(x); y2=tan(x); y3=cot(x); figure(1),plot(x,y,'cx-.') title('cosx fonksiyonu') xlabel('x ekseni') ylabel('y ekseni') legend('cosx',-1) figure(2),plot(x,y1,'rd:') title('sinx fonksiyonu') xlabel('x ekseni') ylabel('y ekseni') legend('sinx',-1) figure(3),plot(x,y2,'bp--') title('tanx fonksiyonu') xlabel('x ekseni') ylabel('y ekseni') legend('tanx',-1) figure(4),plot(x,y3,'g*-') title('cotx fonksiyonu') xlabel('x ekseni') ylabel('y ekseni') legend('cotx',-1) case 7, disp('... Tek pencerede 2 grafik çizimi ...') clc; clear all; x=[-10:0.001:pi/8]; y=(sin(x.^2-9*x-20))-1; y1=sin(x); y2=tan(x); y3=cot(x); figure(1),plot(x,y,'cx-.',x,y1,'r.:') title('cosx fonksiyonu') xlabel('x ekseni') ylabel('y ekseni') legend('cosx fonksiyonu','sinx fonksiyonu',-1) case 8, disp('... verilen fonksiyonların 4 pencerede 4er grafiğinin çizimi ...') clc; clear all; x=[0:pi/10:4*pi]; y1=log(cot(x)); y2=exp(sqrt(x^3)); y3=sin(x)+cot(sqrt(x)); y4=log10(cos(x)+sqrt(log(x))); y5=sin(x^3+5)+sqrt(pi/5); figure(1),plot(x,y1,'y.-',x,y2,'mo:',x,y3,'cx-.',x,y4,'r+--') title('x in y1-y2-y3-y4 e göre grafiği') xlabel('x ekseni') ylabel('y ekseni') legend('x,y1 fonksiyonu','x,y2 fonksiyonu','x,y3 fonksiyonu','x,y4 fonksiyonu',-1) figure(2),plot(x,y4,'bs-',x,y5,'md:',x,y3,'c^-.',x,y1,'r+--') title('x in y4-y5-y3-y1 e göre grafiği') xlabel('x ekseni') ylabel('y ekseni') legend('x,y4 fonksiyonu','x,y5 fonksiyonu','x,y3 fonksiyonu','x,y1 fonksiyonu',-1) figure(3),plot(x,y2,'y.-',x,y5,'mo:',x,y1,'cx-.',x,y4,'r+--') title('x in y2-y5-y1-y4 e göre grafiği') xlabel('x ekseni') ylabel('y ekseni') legend('x,y2 fonksiyonu','x,y5 fonksiyonu','x,y1 fonksiyonu','x,y4 fonksiyonu',-1) figure(4),plot(x,y1,'y.-',x,y5,'mo:',x,y2,'cx-.',x,y4,'r+--') title('x in y1-y5-y2-y4 e göre grafiği') xlabel('x ekseni') ylabel('y ekseni') legend('x,y1 fonksiyonu','x,y5 fonksiyonu','x,y2 fonksiyonu','x,y4 fonksiyonu',-1) case 9, disp('... 4 fonksiyonun grafikleri ...') clc; clear all; x=[0:pi/10:4*pi]; y1=log(cot(x)); y2=exp(x); y3=sin(x)+cot(sqrt(x)); y4=log10(cos(x)+sqrt(log(x))); y5=sin(x+5)+sqrt(pi/5); y6=cos(exp(x))-1 y7=sin(log10(x/2)); y8=cot(exp(x))-pi; figure(1),plot(x,y1,'y.-',x,y2,'mo:',x,y3,'cx-.',x,y4,'r+--') title('x in y1-y2-y3-y4 e göre grafiği') xlabel('x ekseni') ylabel('y ekseni') legend('x,y1 fonksiyonu','x,y2 fonksiyonu','x,y3 fonksiyonu','x,y4 fonksiyonu',-1) figure(2),plot(x,y5,'bs-',x,y6,'md:',x,y7,'c^-.',x,y8,'r+--') title('x in y5-y6-y7-y8 e göre grafiği') xlabel('x ekseni') ylabel('y ekseni') legend('x,y5 fonksiyonu','x,y6 fonksiyonu','x,y7 fonksiyonu','x,y8 fonksiyonu',-1) figure(3),plot(x,y2,'y.-',x,y5,'mo:',x,y6,'cx-.',x,y3,'r+--') title('x in y2-y5-y6-y3 e göre grafiği') xlabel('x ekseni') ylabel('y ekseni') legend('x,y2 fonksiyonu','x,y5 fonksiyonu','x,y6 fonksiyonu','x,y3 fonksiyonu',-1) figure(4),plot(x,y8,'y.-',x,y3,'mo:',x,y5,'cx-.',x,y1,'r+--') title('x in y8-y3-y5-y1 e göre grafiği') xlabel('x ekseni') ylabel('y ekseni') legend('x,y8 fonksiyonu','x,y3 fonksiyonu','x,y5 fonksiyonu','x,y1 fonksiyonu',-1) case 10, disp('... subplot ile grafik uygulaması ...') subplot(2,2,1) x=0:pi/30:2*pi; y1=sin(x); plot(x,y1,'r.:') title('f(x)=sin(x)') xlabel('x degişimi') ylabel('fonksiyon') legend('sinx',-1) subplot(2,2,2) y2=cos(log10(x)); plot(x,y2,'bd-.') title('f(x)=cos(x)') xlabel('x degişimi') ylabel('fonksiyon') legend('cosx',-1) subplot(2,2,3) y3=tan(log(x/2)); y4=cot(exp(x)); plot(x,y3,'ys--',x,y4,'rp-') title('f(x)=tan(x)') xlabel('x degişimi') ylabel('fonksiyon') legend('tanx','tan(x)',-1) subplot(2,2,4) y5=sin(log(x/2)); y6=cos(exp(x)); plot(x,y5,'go-.',x,y6,'cs:') title('f(x)=cot(x)') xlabel('x degişimi') ylabel('fonksiyon') legend('cotx','cot(x)',-1) case 11, break end end case 8, anamenu=0; while anamenu<=9 anamenu=menu('Function ve M-Dosyası Uygulamaları','Uygulama-1','Uygulama-2','Uygulama-3','Uygulama-4','Uygulama-5','Uygulama-6','Uygulama-7','Uygulama-8','Çıkış') switch anamenu case 1, disp('... A matrisini veri2.dat dosyasına kaydetme ...') clc; clear all; A=[1 5 11;2 4 5;3 2 1;6 5 4;9 8 7]; [m,n]=size(A); %A matrisinin satır ve sutun sayısını m ve n aktarır dosya=fopen('veri2.dat','w+'); fprintf(dosya,'klor deney sonuçları\n'); for i=1:m for j=1:n fprintf(dosya,'%d ',A(i,j)); end fprintf(dosya,'\n'); end fclose(dosya); A C=exp(sin(A.^2))%bu programa çeşitli grafik çizimlerini ekle... plot(A,C) case 2, disp('... 1000 tane sayıyı yazmak için bilgisayarda geçen süre hesaplatılması ...') clc; clear all; girdi_dizisi=randn(1,1000); tic [ifade,mesaj]=fopen('veri4.dat','w+'); sayi=fprintf(ifade,'%23.15e\n',girdi_dizisi); sonuc=fclose(ifade); zaman=toc; fprintf('formatsız dosyayı yazmak için geçen süre=%6.3f\n',zaman) case 3, disp('... Fopen komutu ile grafik çizimi ...') clc;clear all; n=input('vektörün boyutunu giriniz='); for i=1:n; fprintf('M(%d)=',i); M(i)=input(' '); end dosya=fopen('veri1.dat','w+'); for i=1:n fprintf(dosya,'%d ',M(i)); end fclose(dosya); sonuc=log(exp(M.^2)) plot(M,sonuc) case 4, disp('... fscanf komutu ile dosya tarama ...') clc; clear all; [ifade,mesaj]=fopen('veri4.dat','r'); [dizi,sayi]=fscanf(ifade,'%e',inf) sonuc=fclose(ifade); isyap=(dizi.^2-1); isyap1=log(dizi.^2-1); isyap2=sin(dizi.^2-1); figure(1),plot(dizi,isyap); figure(2),plot(dizi,isyap1); figure(3),plot(dizi,isyap2); case 5, disp('... 2 nokta arasındaki uzaklığın hesaplatılması ...') clc; clear all; disp('iki uzaklık arasını hesaplama işlemi:'); ax=input('1. noktanın x değeri:'); ay=input('1. noktanın y değeri:'); bx=input('2. noktanın x değeri:'); by=input('2. noktanın y değeri:'); uzaklik=f_uzaklik(ax,ay,bx,by); % f_uzaklik adlı alt fonksiyonu programa çağırıyor fprintf('iki nokta arasindaki uzaklik=%f\n',uzaklik); case 6, disp('... kombinasyon hesaplama ...') clc; clear all; x1=input(' ilk sayı değerini giriniz='); x2=input(' ikinci sayı değerini giriniz='); a=log10(x1+x2)*2; b=log(x1+x2); kombinasyon(a,b); case 7, disp('... matrisin orta değeri ve ortalama değerinin 2 alt programda hesaplatılması ...') clc; clear all; x1=input(' ilk sayı değerini giriniz='); x2=input(' ikinci sayı değerini giriniz='); a=log10(x1+x2)*2; b=log(x1+x2); kombinasyon(a,b); case 8, disp('... 1 vektörün veri.dat dosyasına kaydedilmesi ...') clc; clear all; M=[1 2 3 4]; %M=[3:3:15] dosya=fopen('veri.dat','w+') fprintf(dosya,'%d %d %d %d',M) fclose(dosya) case 9, break end end case 9, break end end case 6, break end end
