[XLS-MAP-04]:Proyeksi Traverse Mercator di Excel

Referensi	:	Traverse Mercator dengan VBA
Platform	:	Excel
Lokasi File	:	download

Pada posting terdahulu, telah diuraikan tentang perhitungan proyeksi traverse mercator dengan menggunakan visual basic application for excel (macro). Dengan bantuan macro tersebut dapat dilakukan konversi koordinat lintang, bujur ke koordinat East (X) , North (Y) sesuai dengan datum dan yang dipilih.

Kali ini dicoba untuk mengkonversi kode visual basic yang ada ada di posting sebelumnya menjadi rumus atau formula di ‘named range’, sehingga akan dihasilkan hitungan sistem proyeksi traverse mercator tanpa menggunakan macro (visual basic application).

Yang juga membedakan dari posting sebelumnya adalah pada spreadsheet excel ditambahkan sheet baru yang berisi pilihan datum dan pilihan parameter proyeksi.

Dengan merubah pilihan di [C2], [C6], [C14] dan [C15], maka parameter yang lain akan otomatis terisi sesuai dengan tabel yang ada di sebelah kanan.

“Named Range” yang ada di sheet setting paramater adalah

No	NamedRange	Formula
1	a_ellips	=$C3$
2	inv_f	=$C$4
3	ScaleFactor	=$C$9
4	FalseEast	=$C$10
5	CentralMeridian	=$C$16
6	FalseNorth	=$C$17

Hal yang perlu diperhatikan saat mengkonversi kode visual basic ke named macro adalah “jangan memberi nama range (named range) dengan nama yang sama dengan nama cell”. Contoh ‘named range’ yang tidak diperbolehkan karena sama dengan nama cell adalah AB1, A1, C1, V12.

Berikut adalah hasil konversi visual basic ke named range:

No	NamedRange	Formula

1	Lr	Lr=RADIANS(LATITUTE)
2	Lg	Lg=RADIANS(LONGITUDE)
3	dB	dB=RADIANS(CentralMeridian)
4	EF	ef=1/inv_f
5	ep_2	ep_2 = 2 *e f -e f ^ 2
6	ep_4	ep_4 = power(ep_2,2)
7	ep_6	ep_6 = ep_4 * ep_2 atau ep_6=power(ep_2,3)
8	e_2	e_2 = ep_2 / (1 – ep_2)
9	TE	TE = Tan(Lr) * Tan(Lr)
10	T_2	T_2 = TE* TE
11	CE	CE = e_2 * Cos(Lr) * Cos(Lr)
12	CP_2	CP_2 = CE * CE
13	A_	A_ = (Lg – dB) * Cos(Lr)
14	MA	MA = (1 – (ep_2 / 4) – (3 * ep_4 / 64) – (5 * ep_6 / 256)) * Lr
15	MB	MB = ((3 * ep_2 / 8) + (3 * ep_4 / 32) + (45 * ep_6 / 1024)) * Sin(2 * Lr)
16	MC	MC = ((15 * ep_4 / 256) + (45 * ep_6 / 1024)) * Sin(4 * Lr)
17	MD	MD = (35 * ep_6 / 3072) * Sin(6 * Lr)
18	M_	M_ = a_ellips * (MA – MB + MC – MD)
19	v_	v_ = a_ellips / Sqrt(1 – e2 * Sin(Lr) * Sin(Lr))
20	AP_2	AP_2 = A_ * A_
21	AP_3	AP_3=power(A_,3)
22	AP_4	A4 = A3 * A atau Power(A_,4)
23	AP_5	A5 = A4 * A
24	AP_6	A6 = A5 * A
25	X_1	X_1 = (1 – TE + CE) * AP_3 / 6
26	X_2	X_2 = (5 – 18 * TE + T_2 + 72 * CE – 58 * e_2) * AP_5 / 120
27	X_	X_ = ScaleFactor * v_ * (A_ + X_1 + X_2)
28	Y_1	Y_1 = (5 – TE + 9 * CE + 4 * CP_2) * AP_4 / 24
29	Y_2	Y_2 = (61 – 58 * TE + T_2 + 600 * CE – 330 * e_2) * AP_6 / 720
30	Y_	Y_= ScaleFactor * (M_ + v_ * Tan(Lr) * (AP_2 / 2 + Y_1 + Y_2))
31	North	North = FalseNorth + Y_
32	East	East = FalseEast + X_