Tugas Prokom(Febryn Pradana R P 2413100040) Aplikasi Peramal Hari untuk tahun masehi

Nama saya Febryn Pradana Rifanda Putra NRP 2413100040 saya membuat progam matlab ini dari sebuah tutorial dari pemrogaman pyton sehingga saya perlu mengkondisikannya dengan matlab seperti penggunaan fungsi fix(yaitu fungsi pembulatan mendekati o misal 1,9=1 karena di pyton bilangan dibaca seperti itu sehingga saya menggunakan fungsi ini)

Berikut adalah skript kode dari m-file matlab, progam ini adalah progam tentang  peramalan hari untuk tahun masehi dan hari jawa seperti pon, wage, kliwon dst..

berikut adalah skriptnya bisa di copy dan di coba:

disp('.....................................................')
disp('.                 Progam Meramal Hari               .')
disp('.                    Tahun Masehi                   .')
disp('. dengan beberapa kekurangannya kadang hasil +H/-H) .')
disp('.....................................................')
a=input('tanggal = ');
b=input('bulan   = ');
c=input('tahun   = ');
         
%saya menggunakan fungsi fix karena saya mencari referesi progam dari
%progam pyton yang angka desimal dianggap angka bulat dibulatkan ke 0 sama
%seperi fungsi fix pada matlab ini
jmlhhrit =((c-1)*365 + fix((c-1)/4) + fix((c-1)/1000) - fix((c-1)/100));
%menggunakan hari sebagai patokan, hari lahir 18 februari 1995 adalah sabtu
jmlhhri2 =((1994*365 + fix(1994/4) + fix(1994/1000) - fix(1994/100) + 1*31 + 18));
d = (b-1)*30;
if b > 2
    if((mod(c,4)==0)&(((mod(c,100)) ~= 0)|(mod(c,400)==0))) | ((mod(c,1000) == 0))
        if b < 7
            e =(fix(b/2) - 1);
        else
            e =fix((b-1)/2);
        end
    else
        if b < 7
            e =(fix(b/2) - 2);
        else
            e =(fix((b-1)/2) - 1);
        end
    end
else
    e =(b-1);
end
jmlh=(jmlhhrit - jmlhhri2 + a + d + e);
h = mod(jmlh,7);
if (h==0)
    disp('hari = Sabtu')
    helpdlg('Sabtu','Harinya adalah')
elseif (h==1)
    disp('hari = Minggu')
    helpdlg('Minggu','Harinya adalah')
   
elseif (h==2)
    disp('hari = Senin')
    helpdlg('Senin','Harinya adalah')
elseif (h==3)
    disp('hari = Selasa')
    helpdlg('Selasa','Harinya adalah')
elseif (h==4)
    disp('hari = Rabu')
    helpdlg('Rabu','Harinya adalah')
elseif (h==5)
    disp('hari = Kamis')
    helpdlg('Kamis','Harinya adalah')
else
    disp('hari = Jumat')
    helpdlg('Jumat','Harinya adalah')
end
jowo=mod(jmlh,5);
if (jowo==0)
    disp('hari    = = Pon')
elseif (jowo==1)
    disp('hari jowo = Wage')
   
elseif (jowo==2)
    disp('hari jowo = Kliwon')
    
elseif (jowo==3)
    disp('hari jowo = Legi')
    
else (jowo==4)
    disp('hari jowo = Pahing')
end
disp('created by Febryn')

sedangkan ini adalah gambar progamnya ketika berjalan: