Program Pengukuran Beda Tinggi Waterpass Tertutup Menggunakan Aplikasi Matlab

Kali ini saya akan membagikan salah satu tugas kuliah yaitu pembuatan Program Pengukuran Waterpass Tertutup 3 Titik Menggunakan Aplikasi Matlab. Sebelum itu kalian harus sudah menginstal aplikasi matlab di pc anda. Aplikasinya bisa di download disini

Nah, berikut adalah coding yang saya buat (Tinggal copas ke lembar kerjanya)  :

clear all;
clc;
disp ('-----------------------------------------------------------------');
disp ('>>>>>>>>Perhitungan Beda Tinggi Waterpass Kring Tertutup<<<<<<<<<');
disp ('-----------------------------------------------------------------');
E=input ('Elevasi titik awal = ');
Bti1=input(' Benang Tengah Pergi P1 Belakang = ');
Bti2=input(' Benang Tengah Pergi P2 Muka = ');
Bti2a=input(' Benang Tengah Pergi P2 Belakang = ');
Bti3=input(' Benang Tengah Pergi P3 Muka = ');
Bti3a=input(' Benang Tengah Pergi P3 Belakang = ');
Bti1a=input(' Benang Tengah Pergi P1 Muka = ');
disp ('-----------------------------------------------------------------');
Btp1=input(' Benang Tengah Pulang P1 Belakang = ');
Btp3=input(' Benang Tengah Pulang P3 Muka = ');
Btp3b=input(' Benang Tengah Pulang P3 Belakang = ');
Btp2=input(' Benang Tengah Pulang P2 Muka = ');
Btp2b=input(' Benang Tengah Pulang P2 Belakang = ');
Btp1b=input(' Benang Tengah Pulang P1 Muka = ');
disp ('-----------------------------------------------------------------');
h12ti = Bti1-Bti2;
disp ([ ' Beda Tinggi Pergi P1-P2 = ' num2str(h12ti) ' m']);
h23ti = Bti2a-Bti3;
disp ([ ' Beda Tinggi Pergi P2-P3 = ' num2str(h23ti) ' m']);
h31ti = Bti3a-Bti1a;
disp ([ ' Beda Tinggi Pergi P3-P1 = ' num2str(h31ti) ' m']);
disp ('-----------------------------------------------------------------');
h12tp = Btp2-Btp1;
disp ([ ' Beda Tinggi Pulang P1-P2 = ' num2str(h12tp) ' m']);
h23tp = Btp3b-Btp2;
disp ([ ' Beda Tinggi Pulang P2-P3 = ' num2str(h23tp) ' m']);
h31tp = Btp1b-Btp3b;
disp ([ ' Beda Tinggi Pulang P3-P1 = ' num2str(h31tp) ' m']);
disp ('-----------------------------------------------------------------');
H12r = (h12ti+h12tp)/2;
disp ([ ' Beda Tinggi Rata-Rata P1-P2 = ' num2str(H12r) ' m']);
H23r = (h23ti+h23tp)/2;
disp ([ ' Beda Tinggi Rata-Rata P2-P3 = ' num2str(H23r) ' m']);
H31r = (h31ti+h31tp)/2;
disp ([ ' Beda Tinggi Rata-Rata P3-P1 = ' num2str(H31r) ' m']);
disp ('---------------------------------------------------------');
TTR = H12r+H23r+H31r;
disp ([ ' Total Tinggi Rata-Rata = ' num2str(TTR) ' m']);
disp ('---------------------------------------------------------');
KT = (0-TTR);
disp ([ ' Koreksi Titik = ' num2str(KT) ' m']);
disp ('---------------------------------------------------------');
KPT = (KT/3);
disp ([ ' Koreksi Per Titik = ' num2str(KPT) ' m']);
disp ('---------------------------------------------------------');
h12d = H12r+KPT;
disp ([ ' Beda Tinggi Definitif P1-P2 = ' num2str(h12d) ' m']);
h23d = H23r+KPT;
disp ([ ' Beda Tinggi Definitif P2-P3 = ' num2str(h23d) ' m']);
h31d = H31r+KPT;
disp ([ ' Beda Tinggi Definitif P3-P1 = ' num2str(h31d) ' m']);
disp ('---------------------------------------------------------');
E1 = E+h12d;
disp ([ ' Elevasi Awal (P1) = ' num2str(E1) ' m']);
E2 = E1+h23d;
disp ([ ' Elevasi (P2) = ' num2str(E2) ' m']);
E3 = E2+h31d;
disp ([ ' Elevasi Akhir (P3) = ' num2str(E3) ' m']);


Kurang lebih Outputnya akan seperti di bawah ini :

Udah gitu aja :)