Kumpulan Program Sederhana : Penggunaan Function

Contoh beberapa program sederhana menggunakan MATLAB 7.1 pada M-File dengan mengunakan perintah function dengan format penulisan 

function[argument keluaran,....]=nama_fungsi[argument input,...]  

dengan catatan program harus disimpan dengan nama_fungsi yang sama dengan yang ada pada program

________________________________________________________________________________

function [d,e]=lat1 (a,b,c)
d=a+b+c
e=a*b*c
end
 
________________________________________________________________________________
function cobaif(x,y)
if x>y
      disp('x lebih besar dari y')
elseif x==y
      disp('x sama dengan y ')
else
      disp('x lebih kecil dari y')
end

________________________________________________________________________________
function latswitch (x)
switch x
      case 1
            disp('x adalah 1')
      case {2,3}
            disp('x adalah 2 or 3')
      case {4,5,6}
            disp('x adalah 4,5, or 6')
      case {7,8,9,10}
            disp('x adalah 7,8,9,10')
      case {11,12}
            disp('x adalah 11, or 12')
      case {13,14,15}
            disp('x adalah 13,14, or 15')
      otherwise
            disp('x tidak terdefinisi')
end

________________________________________________________________________________
function cobawhile (x)
while x<11
      fprintf ('%3d',x)
      x=x+1;
end
fprintf('\n')

________________________________________________________________________________

function [C,baris,kolom]=tambahmatriks (A,B);
%memeriksa matriks A
if ~all(size(A)>1)
      error('A harus berupa matriks')
end
%memeriksa matriks B
if ~all(size(B)>1)
      error('B harus berupa matriks')
end
%memeriksa ukuran matriks A dan B
if ~all(size(A)==size(B))
      error('ukuran matriks harus sama')
end
C=A+B
ukuran = size(C)
baris = ukuran(1)
kolom = ukuran (2)
return

________________________________________________________________________________
function [C,ukuranA,ukuranB,ukuranC]=kalimatriks (A,B);
%memeriksa ukuran matriks A dan B
if ~all(size(A,2)==size(B,1))
      error('jumlah kolom matriks A harus sama dengan jumlah baris matriks B')
end

C=A*B
ukuranA = size(A)
ukuranB = size(B)
ukuranC = size(C)
return

________________________________________________________________________________
%fungsi dimana output membalik input
function balik (x)
panjang=length(x);
hasil=x(panjang:-1:1)
end

________________________________________________________________________________
function latreturn(x)
if ~isnumeric(x) %isnumeric = true jk nilai 1
disp('please...masukan bilangan')
return; %eksekusi terhadap[ fungsi dihentikan jk sesuai pernyataan
end
if x<0
disp('masukan bilangan positif')
return;
end
disp(['thanks, sudah memasukan bilangan positif yaitu = ' ,num2str(x)])

________________________________________________________________________________
%mengetahui jumlah argument input
function jumlahinput(a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z)
jumlah = nargin;
if jumlah==0
      disp('Anda tidak memasukan input');
else
      disp(['jumlah argument yang anada inputkan = ' ,num2str(jumlah)]);
end;

________________________________________________________________________________
function faktorial(n)
nilai=1;
for i=1:n
      nilai=nilai*i;
end
f=nilai

________________________________________________________________________________
function trycatch (A,B);
try
C=A.*B
catch
disp ('dimensi matriks tidak sesuai')
end


selamat mencoba semoga bermanfaat