| 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
kalo maksudnya ‘manual’ adalah hitungan dengan kalkulator silahkan aja diikuti rumus2 yang saya tulis di blog.
saya melihat koordinat di garmin dengan tulisan X 751196 dan Y 161110
mohon pencerahan untuk melihatnya di google earth..
terimakasih
coba rubah di garmin koordinatnya menjadi lintang bujur.
link nya dah mati mas bro. tlg diupdate dong. tks.
terimakasih notifikasinya…
silahkan dicoba lagi
Salam..
Mas gmana convert dari UTM ke Geografis???
https://cadex.co/2012/12/21/xls-map-09speadsheet-proyeksi-traverse-mercator-di-excel-versi-2/
MANTAP TENAN……TRIMAKASIH PAK, SANGAT MEMBANTU
thanks ilmunya,, sangat membantu
semoga bermanfaat
mas saya tanya untuk merubah tm3 ke utm rumusnya gimana mas….
yang paling mudah dan cepat
pak mohon saran untuk merubah koordinat lokal ke koordinat utm caranya seperti ap?
contoh koordinat lokal X = – 91047,5000, Y = – 664049,2000
untuk merubah koordinat lokal ke utm harus diketahui parameter transformasinya. parameter yang dimaksud adalah nilai rotasi, translasi dan skala. Sedangkan untuk mendapatkan parameter tersebut minimal ada 2 titik sekutu yang sudah diketahui koordinat utm dan koordinat lokalnya. Atau dengan kata lain minimal ada dua titik yang mempunyai koordinat lokal dan koordinat utm.