sorun ş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