Add files via upload

p7 file/datagravity.txt

@@ -0,0 +1,40 @@
+0	0	0.61
+200	0	0.60
+400	0	0.59
+600	0	0.43
+800	0	0.39
+1000	0	0.23
+1200	0	0.20
+1400	0	0.08
+1600	0	0.04
+1800	0	0.01
+0	200	0.61
+200	200	0.61
+400	200	0.60
+600	200	0.41
+800	200	0.37
+1000	200	0.19
+1200	200	0.18
+1400	200	0.10
+1600	200	0.05
+1800	200	0.00
+0	400	0.64
+200	400	0.61
+400	400	0.58
+600	400	0.44
+800	400	0.36
+1000	400	0.31
+1200	400	0.17
+1400	400	0.15
+1600	400	0.09
+1800	400	0.04
+0	600	0.61
+200	600	0.61
+400	600	0.56
+600	600	0.43
+800	600	0.35
+1000	600	0.30
+1200	600	0.19
+1400	600	0.16
+1600	600	0.09
+1800	600	0.05

p7oa.m

@@ -0,0 +1,13 @@
+%Modul Praktikum GP2103 Metode Komputasi, 
+%Program Studi Teknik Geofisika, Universitas Pertamina
+%Oleh: Hardianto Rizky Prabusetyo dan Mohammad Heriyanto
+
+%Website: https://osf.io/5tfvq/
+%Link Kode: https://github.com/Metkom/Kode-Praktikum-GP2103-Metode-Komputasi
+%DOI: 10.17605/OSF.IO/5TFVQ
+%@ Oktober 2017
+
+  clear; close; clc;
+  x = 0:pi/100:2*pi;
+  y = sin(x);
+  plot(x,y)

p7ob.m

@@ -0,0 +1,17 @@
+%Modul Praktikum GP2103 Metode Komputasi, 
+%Program Studi Teknik Geofisika, Universitas Pertamina
+%Oleh: Hardianto Rizky Prabusetyo dan Mohammad Heriyanto
+
+%Website: https://osf.io/5tfvq/
+%Link Kode: https://github.com/Metkom/Kode-Praktikum-GP2103-Metode-Komputasi
+%DOI: 10.17605/OSF.IO/5TFVQ
+%@ Oktober 2017
+
+  clear; close; clc;
+  x = 0:pi/100:2*pi;
+  y = sin(x);
+  plot(x,y)
+  xlabel('x = 0:2/pi')
+  ylabel('sinus dari x')
+  title('Plot dari fungsi sinus','FontSize',12)
+

p7oc.m

@@ -0,0 +1,16 @@
+%Modul Praktikum GP2103 Metode Komputasi, 
+%Program Studi Teknik Geofisika, Universitas Pertamina
+%Oleh: Hardianto Rizky Prabusetyo dan Mohammad Heriyanto
+
+%Website: https://osf.io/5tfvq/
+%Link Kode: https://github.com/Metkom/Kode-Praktikum-GP2103-Metode-Komputasi
+%DOI: 10.17605/OSF.IO/5TFVQ
+%@ Oktober 2017
+
+  clear; close; clc;
+  x = 0:pi/100:2*pi;
+  y = sin(x); 
+  y2 = sin(x-.25); 
+  y3 = sin(x-.5); 
+  plot(x,y,x,y2,x,y3) 
+  legend('sin(x)','sin(x-.25)','sin(x-.5)')

p7od.m

@@ -0,0 +1,18 @@
+%Modul Praktikum GP2103 Metode Komputasi, 
+%Program Studi Teknik Geofisika, Universitas Pertamina
+%Oleh: Hardianto Rizky Prabusetyo dan Mohammad Heriyanto
+
+%Website: https://osf.io/5tfvq/
+%Link Kode: https://github.com/Metkom/Kode-Praktikum-GP2103-Metode-Komputasi
+%DOI: 10.17605/OSF.IO/5TFVQ
+%@ Oktober 2017
+
+  clear; close; clc;
+  x = 0:pi/100:2*pi;
+  y = sin(x); 
+  y2 = sin(x-.25); 
+  y3 = sin(x-.5); 
+  plot(x,y,'or',x,y2,'xb',x,y3,'^y') 
+  xlabel('axis x','color','b')
+  ylabel('axis y','color','g')
+  legend('sin(x)','sin(x-.25)','sin(x-.5)')

p7oe.m

@@ -0,0 +1,19 @@
+%Modul Praktikum GP2103 Metode Komputasi, 
+%Program Studi Teknik Geofisika, Universitas Pertamina
+%Oleh: Hardianto Rizky Prabusetyo dan Mohammad Heriyanto
+
+%Website: https://osf.io/5tfvq/
+%Link Kode: https://github.com/Metkom/Kode-Praktikum-GP2103-Metode-Komputasi
+%DOI: 10.17605/OSF.IO/5TFVQ
+%@ Oktober 2017
+
+  clear; close; clc;
+  x = -pi:0.1:pi;
+  y = sin(x); 
+  plot(x,y,'^m') 
+  xlabel('axis x','color','b')
+  ylabel('axis y','color','g')
+  legend('sin(x)')
+  set(gca,'YTick',-1:0.25:1)
+  set(gca,'XTickLabel',{'-pi','-pi/2','0','pi/2','pi'})
+

p7of.m

@@ -0,0 +1,14 @@
+%Modul Praktikum GP2103 Metode Komputasi, 
+%Program Studi Teknik Geofisika, Universitas Pertamina
+%Oleh: Hardianto Rizky Prabusetyo dan Mohammad Heriyanto
+
+%Website: https://osf.io/5tfvq/
+%Link Kode: https://github.com/Metkom/Kode-Praktikum-GP2103-Metode-Komputasi
+%DOI: 10.17605/OSF.IO/5TFVQ
+%@ Oktober 2017
+
+  clear; close; clc;
+  y = [75 91 70 65 130 120 180 110 70 64 230];
+	bar(y)
+  bar(y,'b')
+  bar(y,'b','LineWidth',2)

p7og.m

@@ -0,0 +1,27 @@
+%Modul Praktikum GP2103 Metode Komputasi, 
+%Program Studi Teknik Geofisika, Universitas Pertamina
+%Oleh: Hardianto Rizky Prabusetyo dan Mohammad Heriyanto
+
+%Website: https://osf.io/5tfvq/
+%Link Kode: https://github.com/Metkom/Kode-Praktikum-GP2103-Metode-Komputasi
+%DOI: 10.17605/OSF.IO/5TFVQ
+%@ Oktober 2017
+
+  clear; close; clc;
+  c = 2000:2013;
+  harga= [37.55 30.69 29.92 35.55 47.05 60.45 ...
+        68.28 72.99 100.01 58 77.11 91.39 88.95 92.41];
+  bar(c,harga)
+
+	y = [2 2 3; 2 5 6; 2 8 9; 2 11 12];
+	bar(y)
+
+  y = [2 2 3; 2 5 6; 2 8 9; 2 11 12];
+	bar(y,'stacked')
+
+  y = [1 2 3; 4 5 6];
+	ax1 = subplot(2,1,1);
+	bar(ax1,y)
+
+	ax2 = subplot(2,1,2);
+	bar(ax2,y,'stacked')

p7oh.m

@@ -0,0 +1,21 @@
+%Modul Praktikum GP2103 Metode Komputasi, 
+%Program Studi Teknik Geofisika, Universitas Pertamina
+%Oleh: Hardianto Rizky Prabusetyo dan Mohammad Heriyanto
+
+%Website: https://osf.io/5tfvq/
+%Link Kode: https://github.com/Metkom/Kode-Praktikum-GP2103-Metode-Komputasi
+%DOI: 10.17605/OSF.IO/5TFVQ
+%@ Oktober 2017
+
+clear; close; clc;
+theta = 0:0.01:2*pi;
+rho = sin(3*theta).*cos(3*theta);
+
+figure(1)
+polar(theta,rho,'b')
+
+figure(2)
+Y = [8 7 9 4 10 8 2];
+pie(Y)
+legend('karyawan','petani','pengusaha','pedagang','dokter')
+title('Presentase Mata Pencaharian Desa X')

p7oi.m

@@ -0,0 +1,45 @@
+%Modul Praktikum GP2103 Metode Komputasi, 
+%Program Studi Teknik Geofisika, Universitas Pertamina
+%Oleh: Hardianto Rizky Prabusetyo dan Mohammad Heriyanto
+
+%Website: https://osf.io/5tfvq/
+%Link Kode: https://github.com/Metkom/Kode-Praktikum-GP2103-Metode-Komputasi
+%DOI: 10.17605/OSF.IO/5TFVQ
+%@ Oktober 2017
+
+clear; close; clc;
+% Parameter model
+t=10;
+z1=50; z2=150;
+x0=100;
+rho=1;
+x=-500:20:500;
+G=6.67*10e-11;
+v=2*G*rho*t;
+% Persamaan forward modeling
+for i=1:length(x)
+    g(i)=pi+(atand((x(i)-x0)/z1))-(atan((x(i)-x0)/z2));
+end
+gg=v.*g;
+
+% Plot data dan model bawah permukaan
+figure
+subplot(2,1,1)
+plot(x,gg,'*r') % plot data
+xlabel('Posisi (m)')
+ylabel('\Deltag (mGal)')
+title('Modeling Gravity - Patahan')
+xlim ([-500 500])
+
+subplot(2,1,2)
+x1=[-500 -500 x0 x0];
+y1=[z2 z2-t z2-t z2];
+fill(x1,y1,'r') % plot model 1
+hold on
+x2=[x0 x0 500 500];
+y2=[z1 z1-t z1-t z1];
+fill(x2,y2,'r') % plot model 2
+axis([-500 500 0 200])
+xlabel('Posisi (m)')
+ylabel('Kedalaman (m)')
+set(gca,'Ydir','Reverse') % membalikkan sumbu y

p7oj.m

@@ -0,0 +1,22 @@
+%Modul Praktikum GP2103 Metode Komputasi, 
+%Program Studi Teknik Geofisika, Universitas Pertamina
+%Oleh: Hardianto Rizky Prabusetyo dan Mohammad Heriyanto
+
+%Website: https://osf.io/5tfvq/
+%Link Kode: https://github.com/Metkom/Kode-Praktikum-GP2103-Metode-Komputasi
+%DOI: 10.17605/OSF.IO/5TFVQ
+%@ Oktober 2017
+
+clear; close; clc;
+a = load('datagravity.txt');
+x = a(:,1);
+y = a(:,2);
+z = a(:,3);
+[X,Y] = meshgrid(linspace(min(x),max(x),40), linspace(min(y),max(y),40));
+
+contourf(X,Y,griddata(x,y,z,X,Y),'ShowText','on')
+xlabel('Easting (km)')
+ylabel('Northing (km)')
+title('Peta Kontur Data Gravity')
+colorbar
+