| 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_ |
Setelah semua ‘named range’ didefinisikan, contoh aplikasi diperhitungannya adalah sebagai berikut:
download spreadsheet click di sini
Selamat Mencoba…
Selama ini website https://cadex.wordpress.com sangat membantu saya dalam belajar pemetaan. Namun saya sedang kesulitan mencari rumus untuk mengubah koordinat Geografis ke UTM atau sebaliknya. Kalo semisal menggunakan tool atau software saya sudah bisa, hanya saja saya ingin mengetahui rumus konversinya jika dihitung secara manual. Terima kasih…mohon pencerahannya
email: elanglembah44@yahoo.com
Comment by Kangedo — November 3, 2010 @ 20:00
kalo maksudnya ‘manual’ adalah hitungan dengan kalkulator silahkan aja diikuti rumus2 yang saya tulis di blog.
Comment by cadex — November 11, 2010 @ 09:16
saya melihat koordinat di garmin dengan tulisan X 751196 dan Y 161110
mohon pencerahan untuk melihatnya di google earth..
terimakasih
Comment by prianto — January 30, 2014 @ 13:18
coba rubah di garmin koordinatnya menjadi lintang bujur.
Comment by cadex — January 30, 2014 @ 15:23
link nya dah mati mas bro. tlg diupdate dong. tks.
Comment by Alit Duarsa Putra — February 28, 2014 @ 14:06
terimakasih notifikasinya…
silahkan dicoba lagi
Comment by cadex — February 28, 2014 @ 14:27
Salam..
Mas gmana convert dari UTM ke Geografis???
Comment by agussalim — August 28, 2015 @ 19:18
https://cadex.co/2012/12/21/xls-map-09speadsheet-proyeksi-traverse-mercator-di-excel-versi-2/
Comment by cadex — August 30, 2015 @ 06:01
MANTAP TENAN……TRIMAKASIH PAK, SANGAT MEMBANTU
Comment by ASDIE — December 17, 2015 @ 06:55
thanks ilmunya,, sangat membantu
Comment by portalmahasiswajurusankehutananuho — April 27, 2016 @ 08:16
semoga bermanfaat
Comment by cadex — May 9, 2016 @ 17:22
mas saya tanya untuk merubah tm3 ke utm rumusnya gimana mas….
Comment by ade — December 28, 2016 @ 12:03
yang paling mudah dan cepat
Comment by ade — December 28, 2016 @ 12:04