Sunday, 30 October 2016

Program array dan fungsi 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 array dan fungsi:





Program utama :
clear all
clc

pil=1; %deklarasi awal
y=1; %deklarasi awal
disp('Finz Program'); %menampilkan tulisan
while pil~=5 %%selama variable pil bukan 5 program akan terus berjalan
    menu %memanggil fungsi menu
    pil=input('Pilihan : '); %input pilihan menu yang akan dipakai (1-5)
    switch pil; %mengganti kasus sesuai input dari variable pil
        case 1 %kasus jika pil=1
            fprintf('\n'); %mencetak spasi
            [s,masuk]=masukan; %memanggil fungsi masukan
            data(y)=s; %data ke y samadengan s(variable balik dari fungsi)
            y=y+1; %nilai y ditambah 1 setelah operasi selesai
        case 2 %kasus jika pil=2
            fprintf('\n'); %mencetak spasi
            printdata(data); %memanggil fungsi printdata
        case 3 %kasus jika pil=3
            fprintf('\n'); %mencetak spasi
            data=ubahdata(data); %memanggil fungsi ubahdata
        case 4 %kasus jika pil=4
            fprintf('\n'); %mencetak spasi
            caridata(data); %memanggil fungsi caridata
    end
    fprintf('\n'); %mencetak spasi
end

Simpan dengan nama ‘menu.m’
function menu %fungsi menu
    disp('1. Masukkan Nilai Tabel'); %menampilkan tulisan
    disp('2. Tampilkan Tabel'); %menampilkan tulisan
    disp('3. Mengubah Isi Tabel'); %menampilkan tulisan
    disp('4. Pencarian Suatu Bilangan'); %menampilkan tulisan
    disp('5. Exit'); %menampilkan tulisan
end

Simpan dengan nama ’masukan.m’.
function [data,masuk]=masukan %fungsi masukan dengan parameter input dan nilai balik
    masuk=input('Masukkan sebuah nilai x(0<=x<=10000) : ');
    while masuk<0 || masuk>10000 %selama variable masuk kurang dari 0 atau lebih dari 10000
        disp('Input salah nilai x berada antara 0 sampai 10000'); %menampilkan tulisan
        masuk=input('Masukkan sebuah nilai x(0<=x<=10000) : '); %mengulangi input variable
    end
    if masuk>=0 || masuk<=10000 %jika variable masuk didalam domain(0<=masuk<=10000
        data=masuk; %maka masuk dimasukkan ke dalam variable data.
    end
    disp('Data berhasil dimasukkan dalam tabel'); %menampilkan tulisan
end

Simpan dengan nama’ubahdata.m’
function data=ubahdata(data) %fungsi ubahdata dengan parameter dan nilai balik
    x=input('Masukkan indeks tabel yang ingin anda ubah : ');
    ubah=input('Masukkan sebuah nilai x(0<=x<=10000) : '); %memasukkan nilai yang diubah
    data(x)=ubah; %data ke x akan diubah sesuai dengan masukan ubah
    fprintf('Data pada tabel indeks ke %d berhasil diubah\n',x); %menampilkan tulisan
end

Simpan dengan nama ‘caridata.m’
function caridata(data) %fungsi caridata dengan parameter input
    x=input('Masukkan bilangan yang ingin anda cari : '); %menginput bilangan yang dicari
    sum=0; %deklarasi awal
    for i=1:length(data); %pengulangan dari 1 sampai panjang data
        if data(i)==x %jika data sama dengan variable yang dimasukkan
            sum=sum+1; %jumlah sum akan ditambah 1
        end
    end
    if sum~=0 %jika sum tidak 0
        s='ada'; %maka ada
    else
        s='tidak ada'; %maka tidak ada
    end
    fprintf('%d %s pada tabel\n',x,s); %menampilkan keterangan dari variable yang dimasukkan
end

       
Simpan dengan nama ‘printdata.m’
function printdata(x) %fungsi printdata dengan parameter input x
    fprintf('Tabel memiliki %d buah nilai, yaitu : \n',length(x)); %menampilkan tulisan
    for i=1:length(x) %pengulangan dari 1 sampai panjang data
        fprintf('%d\n',x(i)); %menampilkan data ke i
    end
    fprintf('\n'); %membuat spasi
end
Catatan : Simpan semua file dalam folder yang sama dan soalnya bisa didownload melalui tautan dibawah ini.

Semoga bermanfaat…

Program menentukan matriks segitiga atas 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 menentukan matriks segitiga atas :


clear all
clc

Nkol=input('Kolom = ');
Nbar=input('Baris = ');
s=0;
for i=1:Nbar
    for j=1:Nkol
        x(i,j)=input('Matriks = ');
    end
end
k=0;
s=0;
for i=1:Nbar
    k=k+1;
    for j=k:Nkol
        if x(i,j)~=0
            s=s;
        else
            s=s+1;
        end
    end
end
z=0;
for i=2:Nbar
    z=z+1;
    for j=1:z
        if x(i,j)==0
            s=s;
        else
            s=s+1;
        end
    end
end
disp(x);
if s==0
    disp('Matriks tersebut adalah matrik segitiga atas');
else
    disp('Matriks tersebut bukan matrik segitiga atas');
end

Semoga bermanfaat….

Program menentukan matriks satuan 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 menentukan matriks satuan:


clear all
clc

Nkol=input('Kolom = ');
Nbar=input('Baris = ');
s=0;
for i=1:Nbar
    for j=1:Nkol
        x(i,j)=input('Matriks = ');
        if x(i,j)==0 || x(i,j)==1
            s=s;
        else
            s=s+1;
        end
    end
end

if s==0
    disp('Matrik tersebut adalah matriks satuan');
else
    disp('Matrik tersebut bukan matriks satuan');
end

Semoga bermanfaat….


Thursday, 27 October 2016

Program menentukan luas daerah dibawah kurva 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 menentukan luas daerah dibawah kurva:

Berikut contoh soalnya :



Algoritmanya :

clear all
clc

x1=input('Masukkan batas X1 = ');
x2=input('Masukkan batas X2 = ');
delta=input('Masukkan delta = ');

while x1>x2 || delta<=0
disp('Salah bos. Baleni.');
x1=input('Masukkan batas X1 = ');
x2=input('Masukkan batas X2 = ');
delta=input('Masukkan delta = ');
end

luas=0;

for i=x1:delta:x2-delta;
    y1=(i^2)+1;
    y2=((i+delta)^2)+1;
    luas=luas+(0.5*(y1+y2)*delta);
end




luas

Semoga bermanfaat….

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….
There was an error in this gadget