Perhitungan Luas Tanah Metode Numeris dan Grafis Menggunakan Aplikasi Matlab

Perhitungan Luas Tanah Metode Numeris dan Grafis Menggunakan Aplikasi Matlab

Input :

clear all;
clc;
disp (' -----------Perhitungan Luas Tanah---------- ');
disp ('-------------------------------------------- ');
disp ('Masukkan Koordinat dibawah ini! ');
X1=input('Koordinat X1 (m)=   ');
X2=input('Koordinat X2 (m)=   ');
X3=input('Koordinat X3 (m)=   ');
X4=input('Koordinat X4 (m)=   ');
Y1=input('Koordinat Y1 (m)=   ');
Y2=input('Koordinat Y2 (m)=   ');
Y3=input('Koordinat Y3 (m)=   ');
Y4=input('Koordinat Y4 (m)=   ');
disp('Pilih Metodemu');
disp (' 1. Numeris ');
disp (' 2. Grafis ');
Pilih = input (' Pilihan anda -----> ketik (1/2)--->');
switch Pilih
    case 1
        disp (' Perhitungan dengan metode numeris ');
        Lt= (abs(((((X1*Y2)+(X2*Y3)+(X3*Y4)+(X4*Y1)-(Y1*X2)-(Y2*X3)-(Y3*X4)-(Y4*X1))/2))));
        disp(['Luas tanah= '  num2str(Lt) 'm']);
    case 2
        disp (' Perhitungan dengan metode grafis ');
        A= sqrt((X2-X1)^2+(Y2-Y1)^2);
        disp(['sisi A = '  num2str(A) 'm']);
        B= sqrt((X3-X2)^2+(Y3-Y2)^2);
        disp(['sisi B= '  num2str(B) 'm']);
        C= sqrt((X4-X3)^2+(Y4-Y3)^2);
        disp(['sisi C= '  num2str(C) 'm']);
        D= sqrt((X1-X4)^2+(Y1-Y4)^2);
        disp(['sisi D= '  num2str(D) 'm']);
        E= sqrt((X3-X1)^2+(Y3-Y1)^2);
        disp(['sisi E= '  num2str(E) 'm']);
        S1=((A+B+E)/2);
        disp(['Keliling 1 = '  num2str(S1) 'm' ]);
        L1=(abs((S1*(S1-A)*(S1-B)*(S1-E))));
        disp(['Luas pertama= '  num2str(L1) 'm' ]);
        L1A = sqrt(L1);
        disp(['Akar luas pertama = '  num2str(L1A) 'm' ]);
        S2=((C+D+E)/2);
        disp(['Keliling 2 = '  num2str(S2) 'm' ]);
        L2=(abs((S2*(S2-C)*(S2-D)*(S2-E))));
        disp(['Luas kedua= '  num2str(L2) 'm' ]);
        L2A = sqrt(L2);
        disp(['Akar luas kedua = '  num2str(L2A) 'm' ]);
        Ltot= L1A+L2A;
        disp(['Luas total= '  num2str(Ltot) 'm' ]);
    otherwise
        disp ('Please,try again');
end;


Output :

Jika ada pertanyaan, kritik dan saran di kolom komentar dibawah ya!