Progress (demo), Tugas Sesi Kelas VES Fieldcamp

5:39:00 AM Leo Cahya D 0 Comments

Hello Digital World,

Jadi hari ini habis ada sesi kelas fieldcamp tentang VES (bukan game Persona 3, apalagi sepakbola) alias Vertical Electrical Sounding. Setelah sesi kelas selesai langsung dikasih tugas mengolah data 8 titik menggunakan software Progress. Kira-kira datanya seperti ini :

	1 2245.100
	1.5 981.708
	2 346.403
	3 70.259
	4 23.659
	5 37.172
	6 24.492
	6 24.492
	7 37.815
	8 59.434
	10 75.561
	12 85.078
	15 95.759
	15 95.759
	20 216.134
	30 365.899
	40 593.555
	50 883.475
	60 1238.263

view raw gistfile1.txt hosted with ❤ by GitHub

Nah, nyebahi-nya format input file Progress itu seperti ini:

	19
	1
	2245.1
	1.5
	981.71
	2
	346.4
	3
	70.259
	4
	23.659
	5
	37.172
	6
	24.492
	6
	24.492
	7
	37.815
	8
	59.434
	10
	75.561
	12
	85.078
	15
	95.759
	15
	95.759
	20
	216.13
	30
	365.9
	40
	593.55
	50
	883.48
	60
	1238.3

view raw gistfile1.txt hosted with ❤ by GitHub

Kalo 1 titik kan cuma tinggal enter-enter selesai, lah kalau banyak titik kan males (emang dasarnya saya orangnya pemales --"). Jadinya saya buat listing di matlab kira-kira begini :

	clc
	clear all;
	%terereret
	xxx=dir('*.txt');
	for j=1:length(xxx)
	y=xxx(j,1).name;
	a=dlmread(y);
	pjg=length(a);
	b=zeros(pjg*2+1,1);
	b(1,1)=pjg;
	x=1;
	for i=1:pjg
	b(x+1,1)=a(i,1);
	b(x+2,1)=a(i,2);
	x=x+2;
	end
	pjgt=length(y);
	y(pjgt-3:pjgt-4+8)='conv.ind';
	dlmwrite(y,b);
	end

view raw gistfile1.txt hosted with ❤ by GitHub

Oke, file .ind input Progress pun keluar. Tapi kok di-open gak keluar ya!!?

Ternyata eh ternyata setelah dicek menggunakan notepad++, file yang kita keluarkan dari matlab otomatis ber-format UNIX --". Jadi ya kalau mau berformat DOS/windows kita ubah sedikit programnya jadi begini:

	clc
	clear all;
	%terereret
	xxx=dir('*.txt');
	for j=1:length(xxx)
	y=xxx(j,1).name;
	a=dlmread(y);
	pjg=length(a);
	b=zeros(pjg*2+1,1);
	b(1,1)=pjg;
	x=1;
	for i=1:pjg
	b(x+1,1)=a(i,1);
	b(x+2,1)=a(i,2);
	x=x+2;
	end
	pjgt=length(y);
	y(pjgt-3:pjgt-4+8)='conv.ind';
	dlmwrite(y,b,'newline', 'pc');
	end