Wednesday, 19 October 2016

Program beberapa rumus fisika dasar di MATLAB


                Ada yang tau matlab? Aplikasi memang kurang popular dibandingkan dengan aplikasi pemrograman lain seperti codeblock, dll. Tapi tidak jarang program ini digunakan diberbagai perguruan tinggi yang ada mata kuliah teknologi informasi.
            Nah buat kamu mungkin yang pakai program ini. Ada nih satu contoh program beberapa rumus fisika dasar:


clear all
clc

c='y';

while c=='y' || c=='Y';
    disp('Program Menghitung Fisika Dasar');
    fprintf(' 1. Force\n 2. Distance\n 3. Energi Kinetik\n 4. Daya Disparsi Listrik\n 5. Waktu yang diperlukan dari a ke b\n');
    pilihan=input('Masukkan Pilihan ? ');
    switch pilihan;
        case 1;
            m=input('Massa = ');
            a=input('Percepatan = ');
            F=m*a;
            hasil=F;
            pil='Force =';
            satuan=' N';
        case 2;
            vo=input('Kecepatan Awal = ');
            a=input('Percepatan = ');
            t=input('Waktu = ');
            x=vo*t + 0.5*a*(t^2);
            pil='Distance =';
            hasil=x;
            satuan=' meter';
        case 3;
            m=input('Massa = ');
            v=input('Kecepatan = ');
            ek=0.5*m*(v^2);
            hasil=ek;
            satuan=' Joule';
            pil='Energi kinetik =';
        case 4;
            R=input('Hambatan = ');
            V=input('Tegangan = ');
            P=(V^2)/R;
            hasil=P;
            satuan=' Watt';
            pil='Daya dispersi listrik =';
        case 5
            aa=input('Absis titik a (Xa) = ');
            ab=input('Ordinat titik a (Ya) = ');
            ba=input('Absis titik b (Xb) = ');
            bb=input('Ordinat titik b (Xb) = ');
            v=input('Kecepatan = ');
            s=((ba-aa)^2 + (bb-ab)^2)^0.5;
            t=s/v;
            hasil=t;
            satuan=' detik'
            pil='Waktu =';
    end
    disp([(pil),' ',num2str(hasil),(satuan)]);
           
    c=input('Apakah anda ingin menggunakan fitur lainnya (y/n) ? ','s');
end

Semoga bermanfaat….


No comments:

Post a Comment