Ary Sukma Putra

Perhitungan Luas Tanah Metode Numeris dan Grafis Menggunakan Aplikasi Matlab

<div dir="ltr" style="text-align: left;" trbidi="on">
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 : 
 
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiAgsdGqjc4IQ9Y1IF3FRb2SmrpG8LLutJa6aJx5tVHqflIbZPkJbMzGci1ddhp523mnoK1d9rPuta01ZZ_5dkgQf2KSIV7Q2oUelVqcm2fDb91kM6XGkWkxmV2YTB1yr2Y2a7W7h3f72b4/s1600/5.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="266" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiAgsdGqjc4IQ9Y1IF3FRb2SmrpG8LLutJa6aJx5tVHqflIbZPkJbMzGci1ddhp523mnoK1d9rPuta01ZZ_5dkgQf2KSIV7Q2oUelVqcm2fDb91kM6XGkWkxmV2YTB1yr2Y2a7W7h3f72b4/s400/5.png" width="400" /></a></div>
 
 
Jika ada pertanyaan, kritik dan saran di kolom komentar dibawah ya! 
 
 </div>

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(…

29Mar2017

Perhitungan Volume Kubus, Silinder, Balok dan Kerucut Menggunakan Aplikasi Matlab

<div dir="ltr" style="text-align: left;" trbidi="on">
Perhitungan Volume Kubus, Silinder, Balok dan Kerucut Menggunakan Switch Case 
 
Input : 
 
clear all; 
clc; 
disp ('-----------------------------------------------------------------'); 
disp ('>>>>>>>>>>>>>>Perhitungan Volume Bidang Geometri<<<<<<<<<<<<<<<<<'); 
disp ('-----------------------------------------------------------------'); 
disp ('Pilihan Jenis Bidang Gepmetri yang anda pilih :') 
disp ('1. Kubus') 
disp ('2. Silinder') 
disp ('3. Balok') 
disp ('4. Kerucut') 
pilih=input('pilihan anda --> ketik(1/2/3/4)-->'); 
switch pilih 
    case 1 
      disp ('--------------Perhitungan Volume Kubus--------------') 
      s=input('Data Sisi(m)='); 
      Volume=s^3; 
      disp(['Perhitungan Volume Kubus=' num2str(Volume) 'm2']); 
    case 2 
      disp ('>>>>>>> Program Volume Silinder <<<<<<<<<'); 
      disp('---------------------------------------'); 
      r=input('Data Jari-jari (m)='); 
      t= input('Data Tinggi (m)='); 
      LA=pi*r^2; 
      V=LA*t; 
      disp(['Volume=' num2str(V) 'm']); 
    case 3 
      disp ('--------------Perhitungan Volume Balok--------------') 
      pjg=input('Data Panjang(m)='); 
      lbr=input('Data Lebar(m)='); 
      tg=input('Data Tinggi(m)='); 
      Volume=pjg*lbr*tg; 
      disp(['Perhitungan Volume Balok=' num2str(Volume) 'm2']); 
    case 4 
      disp ('>>>>>>> Perhitungan Volume Kerucut <<<<<<<<<'); 
      disp('---------------------------------------'); 
      r=input('Data Jari-jari (m)='); 
      t= input('Data Tinggi (m)='); 
      LA=pi*r^2; 
      V=1/3*LA*t; 
      disp(['Volume=' num2str(V) 'm']); 
    otherwise 
      disp ('zonk'); 
end; 
disp('-----------------------------------------------------------------') 
disp('Apakah anda akan mengulangi perhitungan?'); 
disp('1. ya'); 
disp('2. tidak') 
pilih=input('ketik pilihan anda (1 atau 2)'); 
switch pilih 
    case 1 
        run D:Volume_Bidang.m 
    case 2 
        disp('program selesai'); 
    otherwise 
        disp('zonk'); 
end; 
<div>
 </div>
<div>
 </div>
<div>
Outputnya akan seperti ini :</div>
<div>
 </div>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjYtmHcjXpyJvm3PkeUtIvfOUyLja1QGFkL7XKoYPf-SnP3naZk5F1CS_Xr_yGZdHGustz6uurhZolf_R9KhJxf5SrT8cAWGEHfvjfYpXYSgMghT62FXH8hYw5-jGN4dy8-CYiu174XtHXQ/s1600/Untitled.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="216" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjYtmHcjXpyJvm3PkeUtIvfOUyLja1QGFkL7XKoYPf-SnP3naZk5F1CS_Xr_yGZdHGustz6uurhZolf_R9KhJxf5SrT8cAWGEHfvjfYpXYSgMghT62FXH8hYw5-jGN4dy8-CYiu174XtHXQ/s400/Untitled.png" width="400" /></a></div>
<div>
 </div>
<div>
Jika ada pertanyaan bisa komen di bawah :)</div>
</div>

Perhitungan Volume Kubus, Silinder, Balok dan Kerucut Menggunakan Aplikasi Matlab

Perhitungan Volume Kubus, Silinder, Balok dan Kerucut Menggunakan Switch Case Input : clear all; clc; disp ('-----------------------------------------------------------------'); disp ('>>>>>>>>>>>>>>Perhitungan Volume Bidang Geometri disp ('----------------------------------------------------------…

29Mar2017

Perhitungan Azimuth Menggunakan Aplikasi Matlab

<div dir="ltr" style="text-align: left;" trbidi="on">
Perhitungan Azimuth Menggunakan Aplikasi Matlab 
 
<div class="separator" style="clear: both; text-align: center;">
 </div>
INPUT : 
 
clear all; 
clc; 
disp ('-------------------------------------------------'); 
disp ('>>>>>>>>Perhitungan Azimuth di Dua Titik<<<<<<<<<'); 
disp ('-------------------------------------------------'); 
XA=input(' Absis di titik A (XA)    = '); 
XB=input(' Absis di titik B  (XB)   = '); 
YA=input(' Ordinat di titik A (YA)  = '); 
YB=input(' Ordinat di titik B (YB)  = '); 
disp ('-------------------------------------------------'); 
Q=(XB-XA); 
R=(YB-YA); 
P=atand(Q/R); 
 
if Q>0 & R<0 
    disp(['Degree Azimuth AB = ' num2str((P+180))]); 
elseif Q<0 & R<0 
    disp(['Degree Azimuth AB = ' num2str((P+180))]); 
elseif Q<0 & R>0 
    disp(['Degree Azimuth AB = ' num2str((P+360))]); 
else 
    disp(['Degree Azimuth AB = ' num2str(P)]); 
end; 
<div>
 </div>
<div>
 </div>
<div>
OUTPUT :</div>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhDjBQssdONUUkIhDPLO33fqelBnMFWshh7a-paIIPuNdIC9xtrcX_aKw_VonKxYNoYhorUnXK60eNkiEqyLgYq5EOKzBIabnHOSsrbZegkqgSuRDIF97CAVueA_LeQJ5MENAQAhq8YUUJc/s1600/1.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em; text-align: center;"><img border="0" height="226" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhDjBQssdONUUkIhDPLO33fqelBnMFWshh7a-paIIPuNdIC9xtrcX_aKw_VonKxYNoYhorUnXK60eNkiEqyLgYq5EOKzBIabnHOSsrbZegkqgSuRDIF97CAVueA_LeQJ5MENAQAhq8YUUJc/s400/1.png" width="400" /></a></div>
<div>
</div>
</div>

Perhitungan Azimuth Menggunakan Aplikasi Matlab

Perhitungan Azimuth Menggunakan Aplikasi Matlab INPUT : clear all; clc; disp ('-------------------------------------------------'); disp ('>>>>>>>>Perhitungan Azimuth di Dua Titik disp ('-------------------------------------------------'); XA=input(' Absis di titik A (XA) = '); XB=input(' Absis …

28Mar2017

Program Pengukuran Beda Tinggi Waterpass Tertutup Menggunakan Aplikasi Matlab

<div dir="ltr" style="text-align: left;" trbidi="on">
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 <a href="https://www.kuyhaa-android19.web.id/matlab-r2016a-final-full-version/" target="_blank">disini</a> 
 
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 : 
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgVxFE2fX3xHxk3LViEABmrYuBfsd5IJvlOleHkLGNa8rj8w0BhzURghrauEYSsa6krPcjTVcK4Pzh8tSzjnxIRqoKatQkJmCIyD_kFIoi0tLj8gtPUxazz42uyXYD-XFJ7ZxO_YjubYIij/s1600/Untitled.png" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="290" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEgVxFE2fX3xHxk3LViEABmrYuBfsd5IJvlOleHkLGNa8rj8w0BhzURghrauEYSsa6krPcjTVcK4Pzh8tSzjnxIRqoKatQkJmCIyD_kFIoi0tLj8gtPUxazz42uyXYD-XFJ7ZxO_YjubYIij/s400/Untitled.png" width="400" /></a></div>
 
Udah gitu aja :)</div>

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 (Tingg…

19Mar2017

Undangan Pernikahan cdr

<div dir="ltr" style="text-align: left;" trbidi="on">
Kali ini saya akan memposting contoh undangan pernikahan dalam bentuk cdr. Bisa dijadikan referensi untuk pembuatan tugas sekolah. 
 
 
<div class="separator" style="clear: both; text-align: center;">
</div>
<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiIoCH1OLAjnLphSWY2ZyeEZwQsEUUoG75i9Mm8MXxyImy0dBNPpRWgjQtQn6AXEmLkVgQ9kZitjv7tZ-v62gmaEo1QOL13OYzkHaHzDLQOVzVpt-kqUtmY1Qy3o0kj54nTJosf29bPdcC9/s1600/Kartu+Undangan.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="400" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiIoCH1OLAjnLphSWY2ZyeEZwQsEUUoG75i9Mm8MXxyImy0dBNPpRWgjQtQn6AXEmLkVgQ9kZitjv7tZ-v62gmaEo1QOL13OYzkHaHzDLQOVzVpt-kqUtmY1Qy3o0kj54nTJosf29bPdcC9/s400/Kartu+Undangan.jpg" width="303" /></a></div>
 
Download via <a href="http://www.mediafire.com/file/ab99j97sbbcy5bl/Kartu+Undangan.cdr" target="_blank">mediafire </a>via <a href="https://www.4shared.com/file/bdcPz7H8ba/spanduk.html" target="_blank">4shared</a> 
 </div>

Undangan Pernikahan cdr

Kali ini saya akan memposting contoh undangan pernikahan dalam bentuk cdr. Bisa dijadikan referensi untuk pembuatan tugas sekolah. Download via mediafire via 4shared …

14Mar2017

Load more posts