Jumat, 11 April 2014

Simulasi Gabungan - Switch - Case

clc;clear all;
disp('==================================================');
disp('Program  : Simulasi Gabungan');
disp('Programer: Syaharuddin');
disp('==================================================');
disp('Daftar Pilihan:');
disp('1. Limit Kiri');
disp('2. Limit Kanan');
disp('3. Algoritma Euclid');
disp('4. Jenis Akar Persamaan Kuadrat');
disp('5. Nilai Kelulusan');
disp('6. Ketuntasan Klasikal');
disp('7. Bangun Datar');
disp('8. Bangun Ruang');
disp('========================================');
p=input('Pilihan = ');
disp('========================================');
switch p
    case 1
        disp('===============================')
disp('Program  : Simulasi Limit Kiri')
disp('Programer: Syaharuddin')
disp('===============================')
syms x
f=input('f(x)= ');
c=input('c   = ');
d=[c-10:0.25:c+10];
ezplot(f,d)
d=[c-10:0.25:c];
n=length(d);
fprintf('%5s %10s \n','x','f(x)')
for i=1:n
    hold on
    plot(d(i),0,'.r')
    hold on
    plot(d(i),subs(f,d(i)),'.r')
    pause(0.2)
    fprintf('%8.2f %8.2f\n',d(i),subs(f,d(i)));
end
L=double(limit(f,c));
text(c,subs(f,c),[' <--- Limit = ',num2str(L)]);
    case 2
        disp('================================')
disp('Program  : Simulasi Limit Kanan')
disp('Programer: Syaharuddin')
disp('================================')
syms x
f=input('f(x)= ');
c=input('c   = ');
d=[c-10:0.25:c+10];
ezplot(f,d)
d=[c+10:-0.25:c];
n=length(d);
fprintf('%5s %10s \n','x','f(x)')
for i=1:n
    hold on
    plot(d(i),0,'.r')
    hold on
    plot(d(i),subs(f,d(i)),'.r')
    pause(0.2)
    fprintf('%8.2f %8.2f\n',d(i),subs(f,d(i)));
end
L=double(limit(f,c));
text(c,subs(f,c),[' <--- Limit = ',num2str(L)])
    case 3
     disp('=====================================')
disp('Program   : Simulasi Teorema Eucliden')
disp('Programer : Syaharuddin')
disp('=====================================')
a=input('a = ');
b=input('b = ');
t=[a b];
while a~=0
    r=mod(b,a);
    h=(b-r)/a;
    disp([num2str(b),' = ',num2str(h),' x ',num2str(a),' + ',num2str(r)])
    b=a;   
    a=r;  
end
disp(['Jadi FPB(',num2str(t(1)),',',num2str(t(2)),') = ',num2str(b)])
    case 4
        disp('==============================================');
disp('Program: Simulasi Jenis Akar Persamaan Kuadrat');
disp('Programer: Syaharuddin');
disp('==============================================');
a=input('a = '); b=input('b = '); c=input('c = ');
D=b^2-4*a*c;
x(1)=(-b+sqrt(D))/2*a; x(2)=(-b-sqrt(D))/2*a;
s=(-b)/2*a; p=(-D)/4*a;
disp(['Nilai D       = ',num2str(D)]);
disp(['Akar-akar     = ',num2str(x)])
disp(['Sumbu Simetri = ',num2str(s)]);
disp(['Titik Balik   = ',num2str(p)]);
if D>0
    disp('Jenis Akar    = Bilangan Real Berlainan')
elseif D<0
    disp('Jenis Akar    = Imajiner / Khayal')
else D=0
    disp('Jenis Akar = Kembar')
end
X = [x(1)-5:0.25:x(2)+5]; f = a.*(X.^2)+b.*X+c;
plot(X,f)
grid on
xlabel('Domain Fungsi'); ylabel('Range Fungsi')
title(['f(x) = ',num2str(a),'x^2 + ',num2str(b),'x + ',num2str(c)])
text(mean(X),mean(f),['Akar = ',num2str(x)])
legend('Grafik Fungsi Kuadrat')
    case 5
        disp('=====================================')
disp('Program  : Simulasi Ketuntasan Belajar')
disp('Programer: Syaharuddin')
disp('=====================================')
K=input('Kehadiran = ');
T=input('Tugas     = ');
M=input('UTS       = ');
U=input('UAS       = ');
NA=(K*10+T*20+M*30+U*40)/100;
if NA>=80
    disp(['Nilai Akhir = ',num2str(NA),' Grade = A, Predikat = Sangat Baik, Ket = Lulus'])
elseif NA>=70
    disp(['Nilai Akhir = ',num2str(NA),' Grade = B, Predikat = Baik, Ket = Lulus'])
elseif NA>=60
    disp(['Nilai Akhir = ',num2str(NA),' Grade = C, Predikat = Kurang, Ket = Hampir Tidak Lulus'])
elseif NA>=50
    disp(['Nilai Akhir = ',num2str(NA),' Grade = D, Predikat = Tidak Baik, Ket = Tidak Lulus'])
else NA<=50
    disp(['Nilai Akhir = ',num2str(NA),' Grade = E, Predikat = Sangat Tidak Baik, Ket = Tidak Lulus'])
end
    case 6
        disp('====================================================')
disp('Program  : Simulasi Ketuntasan Klasikal Nilai Siswa')
disp('Programer: Syaharuddin')
disp('====================================================')
x=input('Data = ');
k=input('KKM  = ');
n=length(x);
ts=[];
tdk=[];
fprintf('%5s %10s\n','   Nilai','  Keterangan')
for i=1:n;
    if x(i)>=k
        t(i)=1;
        ts=[ts i];
        fprintf('%8.2f %8.2f\n',x(i),t(i));
    else
        t(i)=0;
        tdk=[tdk i];
        fprintf('%8.2f %8.2f\n',x(i),t(i));
    end
end
T=sum(t);
P=(T*100)/n;
disp('Ket: 1 = Tuntas, 2 = Tidak Tuntas')
disp(['Hasil Analisis']);
disp(['1. Banyak Siswa = ',num2str(n)])
disp(['2. Siswa Tuntas = ',num2str(ts),', Jumlah = ',num2str(T)])
disp(['3. Ketuntasan Klasikal = ',num2str(P)])
disp(['4. Siswa Tidak Tuntas = ',num2str(tdk),', Jumlah = ',num2str(n-T)])
plot(x,'-*');
hold on
plot([1 n],[k k],'-r')
grid on
xlabel('Nomor Absen Siswa')
ylabel('Nilai Siswa')
title('Grafik Analisis Ketuntasan Hasil Belajar')
legend(['Klasikal = ',num2str(P),'%'])
    case 7
        disp('========================================');
disp('Program  : Luas dan Keliling Bangun Datar');
disp('Programer: Syaharuddin');
disp('========================================');
disp('Daftar Pilihan:');
disp('1. Persegi');
disp('2. Persegi Panjang');
disp('3. Segitiga Siku-siku');
disp('4. Segitiga Sama Sisi');
disp('5. Segitiga Sembarang');
disp('6. Trapesium');
disp('7. Layang-layang');
disp('8. Belah Ketupat');
disp('9. Lingkaran');
disp('========================================');
p=input('Pilihan = ');
disp('========================================');
switch p
    case 1
        s=input('Sisi = ');
        L=s*s;
        K=4*s;
        disp(['L = ',num2str(L)]);
        disp(['K = ',num2str(K)]);
disp('========================================');

    case 2
        p=input('Panjang = ');
        l=input('Lebar = ');
        L=p*l;
        K=2*(p+l);
        disp(['L = ',num2str(L)]);
        disp(['K = ',num2str(K)]);
disp('========================================');

    case 3
        a=input('Alas = ');
        t=input('Tinggi = ');
        m=sqrt(a^2+t^2);
        disp(['Sisi Miring = ',num2str(m)]);
        L=0.5*a*t;
        K=a+t+m;
        disp(['L = ',num2str(L)]);
        disp(['K = ',num2str(K)]);
disp('========================================');

    case 4
        s=input('Sisi = ');
        t=sqrt(s^2-(0.5*s)^2);
        disp(['Tinggi = ',num2str(t)]);
        L=0.5*s*t;
        K=3*s;
        disp(['L = ',num2str(L)]);
        disp(['K = ',num2str(K)]);
disp('========================================');

    case 5
        a=input('Sisi a = ');
        b=input('Sisi b = ');
        c=input('Sisi c = ');
        K=a+b+c;
        s=K/2;
        L=sqrt(s*(s-a)*(s-b)*(s-c));
        disp(['L = ',num2str(L)]);
        disp(['K = ',num2str(K)]);
disp('========================================');

    case 6
        a=input('Sisi Alas = ');
        b=input('Sisi Atas = ');
        m=input('Sisi Miring = ');
        t=sqrt(m^2-((a-b)/2)^2);
        disp(['Tinggi = ',num2str(t)]);
        K=a+b+2*m;
        L=0.5*t*(a+b);
        disp(['L = ',num2str(L)]);
        disp(['K = ',num2str(K)]);
disp('========================================');

    case 7
        s1=input('Sisi 1 = ');
        s2=input('Sisi 2 = ');
        d1=input('Diagonal 1 = ');
        d2=input('Diagonal 2 = ');
        K=2*(s1+s2);
        L=0.5*d1*d2;
        disp(['L = ',num2str(L)]);
        disp(['K = ',num2str(K)]);
disp('========================================');

    case 8
        s=input('Sisi = ');
        d1=input('Diagonal 1 = ');
        d2=input('Diagonal 2 = ');
        K=4*s;
        L=0.5*d1*d2;
        disp(['L = ',num2str(L)]);
        disp(['K = ',num2str(K)]);
disp('========================================');

    case 9
        r=input('Jari-jari = ');
        L=(22/7)*r^2;
        K=2*(22/7)*r;
        disp(['L = ',num2str(L)]);
        disp(['K = ',num2str(K)]);
disp('========================================');

end
    case 8
        disp('==================================================');
disp('Program  : Luas Permukaan dan Volume Bangun Ruang');
disp('Programer: Syaharuddin');
disp('==================================================');
disp('Daftar Pilihan:');
disp('1. Kubus');
disp('2. Balok');
disp('3. Limas Segiempat');
disp('4. Limas Segitiga');
disp('5. Prisma Segitiga');
disp('6. Kerucut');
disp('7. Bola');
disp('8. Tabung');
disp('========================================');
p=input('Pilihan = ');
disp('========================================');
switch p
    case 1
        r=input('Rusuk = ');
        Lp=6*r^2;
        V=r^3;
        disp(['Lp  = ',num2str(Lp)]);
        disp(['V   = ',num2str(V)]);
        disp('========================================');
    case 2
        p=input('Panjang = ');
        l=input('Lebar = ');
        t=input('Tinggi = ');
        Lp=2*(p*l+p*t+l*t);
        V=p*l*t;
        disp(['Lp  = ',num2str(Lp)]);
        disp(['V   = ',num2str(V)]);
        disp('========================================');
    case 3
        a=input('Sisi Alas = ');
        b=input('Sisi Tegak = ');
        ts=sqrt(b^2-(a/2)^2);
        disp(['Tinggi Segitiga = ',num2str(ts)]);
        tl=sqrt(b^2-(sqrt(2*a^2)/2));
        disp(['Tinggi Limas = ',num2str(tl)]);
        V=(1/3)*a^2*tl;
        Lp=a^2+4*0.5*a*ts;
        disp(['Lp  = ',num2str(Lp)]);
        disp(['V   = ',num2str(V)]);
        disp('========================================');
    case 4
        a=input('Rusuk = ');
        ts=sqrt(a^2-(a/2)^2);
        disp(['Tinggi Segitiga = ',num2str(ts)]);
        Ls=0.5*a*ts;
        disp(['Luas Segitiga = ',num2str(Ls)]);
        tl=sqrt(a^2-((2/3)*ts)^2);
        disp(['Tinggi Limas = ',num2str(tl)]);       
        V=(1/3)*Ls*tl;
        Lp=4*Ls;
        disp(['Lp  = ',num2str(Lp)]);
        disp(['V   = ',num2str(V)]);
        disp('========================================');
    case 5
        s=input('Sisi Alas = ');
        t=input('Tinggi = ');
        ts=sqrt(s^2-(s/2)^2);
        disp(['Tinggi Segitiga = ',num2str(ts)]);
        Ls=0.5*s*ts;
        disp(['Luas Segitiga = ',num2str(Ls)]);       
        V=(1/3)*Ls*t;
        Lp=2*Ls+3*s*t;
        disp(['Lp  = ',num2str(Lp)]);
        disp(['V   = ',num2str(V)]);
        disp('========================================');
    case 6
        r=input('Jari-jari = ');
        t=input('Tinggi = ');
        s=sqrt(r^2+t^2);
        disp(['Selimut = ',num2str(s)]);       
        Ll=(22/7)*r^2;
        V=(1/3)*Ll*t;
        Lp=Ll+(22/7)*r*s;
        disp(['Lp  = ',num2str(Lp)]);
        disp(['V   = ',num2str(V)]);
        disp('========================================');
    case 7
        r=input('Jari-jari = ');
        V=(4/3)*(22/7)*r^3;
        Lp=4*(22/7)*r^2;
        disp(['Lp  = ',num2str(Lp)]);
        disp(['V   = ',num2str(V)]);
        disp('========================================');
    case 8
        r=input('Jari-jari = ');
        t=input('Tinggi = ');
        Ll=(22/7)*r^2;
        V=Ll*t;
        Lp=2*Ll+2*(22/7)*r*t;
        disp(['Lp  = ',num2str(Lp)]);
        disp(['V   = ',num2str(V)]);
        disp('========================================');
end
end

Reaksi:

0 komentar:

Poskan Komentar

Catatan Kuliah

Syaharuddin Al Musthafa