Monday, 24 October 2016

Program beberapa rumus fisika dasar di MATLAB (dengan sub-program)


                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 Dispersi Listrik\n 5. Waktu yang diperlukan dari a ke b\n');
    pilihan=input('Masukkan Pilihan ? ');
    switch pilihan;
        case 1;
            disp(['Force = ',num2str(force),' N']);
        case 2;
            disp(['Distance = ',num2str(distance),' meter']);
        case 3;
            disp(['Energi Kinetik = ',num2str(energi_kinetik),' joule']);
        case 4;
            disp(['Daya Dispersi Listrik = ',num2str(daya_dispersi_listrik),' watt']);
        case 5;
            disp(['Waktu yang diperlukan dari a ke b = ',num2str(waktu),' sekon']);
    end
           
    c=input('Apakah anda ingin menggunakan fitur lainnya (y/n) ? ','s');
end


Simpan di file berbeda dengan nama “force.m’’
function F=force
m=input('Massa = ');
a=input('Percepatan = ');
F=m*a;
end
Simpan di file berbeda dengan nama “distance.m’’
function x=distance
vo=input('Kecepatan Awal = ');
a=input('Percepatan = ');
t=input('Waktu = ');
x=vo*t + 0.5*a*(t^2);
end
Simpan di file berbeda dengan nama “energi_kinetik.m’’
function ek=energi_kinetik
            m=input('Massa = ');
            v=input('Kecepatan = ');
            ek=0.5*m*(v^2);
end
Simpan di file berbeda dengan nama “daya_dispersi_listrik.m’’

function P=daya_dispersi_listrik
            R=input('Hambatan = ');
            V=input('Tegangan = ');
            P=(V^2)/R;
End

Simpan di file berbeda dengan nama “waktu.m’’

function t=waktu
            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;
end

Semoga bermanfaat….

No comments:

Post a Comment