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 (' -----------Perhitung...

4:30 AM

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 ('--------------------...

4:15 AM

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 ('------------------------------------------------...

6:34 PM

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 Ma...

11:02 PM

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. ...

7:47 PM